FoxPro/Visual FoxPro - extraer numero

Hola a todos tengo una duda ojala q me puedan ayudar, necesito extraer digitos de una cadena por ejemplo: cadena=12547 y extraer el primer digito el segundo y asi sucesivamente para realizar operaciones con cada uno.

Espero y me puedan ayudar gracias,

Saludos

lmStrExt= "1,2,3,4,5"

FUNCTION lmStrExt

PARAMETERS lmmsg, lmsrc, lmpos
LOCAL lmex0, lmex1, lmex2
lmpos = Max(floor(lmpos),1)
lmex0 = IIF(lmpos>1,ATC(lmsrc, lmmsg, lmpos-1)+lenc(lmsrc),1)
lmex1 = ATC(lmsrc, lmmsg, lmpos) -1
IF lmex1 < 0 .AND. (lmex0 > 1 .OR. lmpos = 1)
lmex1 = LEN(lmmsg)
ENDIF
RETURN SUBS( lmmsg, MIN(lmex0,LEN(lmmsg)), MAX(lmex1-lmex0+1,0))

ENDFUNC

Suerte

Oie compa porke haces bien dificiles las cosas
Sabes en ves de usar esa rutina ke espero el colega la entienda
porke no haces esto ke es mas comprensible:
1.- Conviertes a string o caracter tu numero con la funcion Str()
2.- Luego extraes los caracteres ke desees con la funcion SUBSTR()
Y listo...
Buena suerte y elige una de las dos.

CON EL MISMO NUMERO PODES USAR LAS FUNCIONES MOD E INT.

EJEMPLO: MOD(1234,10)=4 MOD(1234,100)=34
MOD( INT(1234/100),10)=2
,CON ESTO LO QUE LOGRAS ES PODER OPERAR MATEMATICAMENTE CON LOS RESULTADOS OBTENIDOS,SIN NECESIDADA DE USAR LA FUNCION VAL PARA CONVERTIR EL STRING .

SALUDOS