FoxPro/Visual FoxPro - TEXTO EN RTF

HOLA ALGUN PROGRAMA EJEMPLO QUE ME PERMITA PONER TXTO ENRIQUECIDO DONDE PUEDO CONSEGUIR O BAJARLO
GRACIAS

_rtffile = SYS(3) + ".rft" &&Creo un Archivo con extension RTF
SET TEXTMERGE TO &_rtffile NOSHOW

SET TEXTMERGE ON
\\<<ver_ima>>
SET TEXTMERGE TO

el campo ver_ima es un campo memo

tambien puedes hacerlo con fopen(), fseek(),fclose()

IF FILE(archivo)
ERR1=FOPEN(ALLTRIM(archivo),0)
ENDIF

STORE FSEEK(err1, 0, 2) TO TAMANO && Mueve el puntero a EOF

STORE FSEEK(err1, 0) TO principio && Mueve el puntero a BOF

cadena = FREAD(err1,TAMANO)

cadena tiene el contenido del archivo