Roberto:
Es más simple con el operador "$" que te devuelve verdadero o falso si una cadena está contenida dentro de otra o no, sin importar su posición.
Ejemplo:

cCadena1 := "forma"
cCadena2 := "informatica"
cCadena1$cCadena2 =======> VERDADERO (.T.)
cCadena1$"parachoques" ====> FALSO (.F.)

El operador "$" es sensible a las mayúsculas por lo que para evitar errores siempre conviene convertir antes de comparar:
cCadena1 := "forma"
cCadena2 := "INFORMATICA"
cCadena1$cCadena2 ====> FALSO (.F.)
UPPER(cCadena1)$UPPER(cCadena2) ======> VERDADERO (.T.)

Saludos...
Ricardo Sassy
Buenos Aires

At 22:41 04/02/2003, you wrote:

Pues a mi poca experiencia yo eso lo haria con la funcion substr que extrae una subcadena de una cadena, es decir, una parte de una cadena.
tienes que calcular y guardar en una variable la cadena que vas a buscar e ir buscandola en el campo descripcion.
@ 10,10 say "palabra a buscar" Get xbuscar
read
for i=1 to Len(campo descripcion)-Len(xbuscar)
    If xbuscar=substr(campo descripcion,Len(xbucar),i)
       grabar los datos en un dbf auxiliar
       o usar la variable achoice()
    EndIf
Next

y despues me imagino que sabes como desplegar los resultados
de ahi es tu creatividad

Mi nombre es ROBERTO MONTALVAN NOYOLA soy de Cuajinicuilapa, Gro
mi correo es obrian28@...

suerte y saludos a todos los cliperos!