FoxPro/Visual FoxPro - valor

hola, bueno necesito realizar una lectura de numero. osea leer cada digito del numero colocado en un text.
ejmplo supongamos que en el text1 se coloca esto 589632147230 .
entonces lo que necesito hacer es esto dado lo que tiene en text1
variable1 = (0+2+4+2+6+8)
variable2 = (3+7+1+3+9+5)
si observan la variable1 está tomando todos los valores en posiciones impares de izquierda a derecha y la variable2 está tomando tods los valores pares de izquierda a derecha.
estuve revisando con la función len pero no se realiza. bueno gracias por su aporte

Hola Canalero:

Lo que necesitas es hacer un Ciclo For desde el valor de LEN(), hasta 1, y con la funcion SubStr() vas leyendo el valor de cada numero y luego vas haciendo la suma, acumulando el valor.

Necesitarias saber cuando la posicion es Par y cuando es Impar, para eso utilizarias el MOD(lnVariableCicloFor), si es 0, es par, de lo contrario es impar.

Prueba y me cuentas

Saludos