FoxPro/Visual FoxPro - Informatico

mi Pregunta es existe en visual fox pro una funcion en la que pueda yo buscar o comparar si existe una subcadena o un caracter dentro de una cadena.

agradecere sus comentarios muchas gracias

cadena='programacion'
subcadena='gram'
IF subcadena$cadena
MESSAGEBOX('Subcadena encontrada')
ENDIF

*También la siguiente es una manera de ver en qué posición está.
pos=AT(subcadena,cadena)