FoxPro/Visual FoxPro - CONVERSION DE NUMEROS A LETRAS

Necesito su ayuda, como puedo convertir una cantidad de numeros a letras urgente,
ejemplo:
1250 = mil doscientos cincuenta

gracias

http://www.portalfox.com/index.php?name=News&file=article&sid=24&mode=nested&order=0&thold=0

Hola, me podrias explicar como le hago para incluir la o las funciones dentro de un formulario, o como las puedo manejar las funciones, es que tengo rato que no programo en visual fox.

Gracias

*****************************************************************
* PROCEDIMIENTO PARA CONVERTIR NUMERO EN LETRAS HASTA 9 DIGITOS *
*****************************************************************
PROCEDURE CONVNUME

PUBLIC UNIDAD1
PUBLIC UNIDAD2
PUBLIC UNIDAD3
PUBLIC ESPECIAL
PUBLIC NRO
PUBLIC CIC

UNIDAD3="Un Dos Tres Cuatro "
UNIDAD3=UNIDAD3+"Cinco Seis Siete "
UNIDAD3=UNIDAD3+"Ocho Nueve "
UNIDAD2=" Veinte Treinta Cuarenta "
UNIDAD2=UNIDAD2+"Cincuenta Sesenta Setenta "
UNIDAD2=UNIDAD2+"Ochenta Noventa "
UNIDAD1="Cien Doscientos Trescientos Cuatrocientos"
UNIDAD1=UNIDAD1+"Quinientos Seiscientos Setecientos "
UNIDAD1=UNIDAD1+"Ochocientos Novecientos "
ESPECIAL="Diez Once Doce Trece "
ESPECIAL=ESPECIAL+"Catorce Quince Dieciseis "
ESPECIAL=ESPECIAL+"Diecisiete Dieciocho Diecinueve "

PUBLIC LIKI

STORE 0 to LIKI

LIKI=m.num
nu = str(m.num)
LIK=STR(LIKI,9)
SON=" "
PRIMER=SUBSTR(LIK,1,3)
SEGUNDO=SUBSTR(LIK,4,3)
TERCER=SUBSTR(LIK,7,3)
NRO=PRIMER
IF VAL(NRO)>0
DO CICLO
IF VAL(NRO)>1
SON=SON+" Millones "
ELSE
SON=SON+" Millón "
ENDIF
ENDIF

NRO=SEGUNDO
IF VAL(NRO) > 0
DO CICLO
SON=SON+"Mil "
ENDIF
NRO=TERCER
IF VAL(NRO) > 0
DO CICLO
ENDIF
IF LIKI=1
SON=SON&&+"Guaraní"
ELSE
IF LIKI=0
SON="Cero"
ENDIF
ENDIF

DO GRABARCH

RETURN