Programacion en foxppro

Ahí te he enviado un formulario de VFP7 con lo que pides.

Buenos Fernando, si la programación es en visual foxpro version 7.0 y para ello creo un pequeño formulario donde creo dos campos de texto, el primero seria para digitar el número inicial y en el segundo texto seria donde aparezca la respuesta y un command.mi correo es [email protected]
Agradezco su valiosa colaboración

La rutina seria la siguiente:
nro1=1324567
nro2=0
string1=allt(str(nro1))
string2=''
if len(string1)>0
for I=len(string1) to 1 step -1
string2=string2+substr(string1,I,1)
ENDFOR
string2=ALLTRIM(string2)
nro2=int(val(string2))
Endif
Wait str(nro2) wind
Saludos
Fernando Alvarez
La Pampa - Argentina
No olvides puntuar...

Gracias por la anterior respuesta pero necesito una aclaración y es la siguiente:
Como programo para que el número inicial que ingreso sea cualquier número que yo quiera, pero que me arroje el número invertido.
Gracias por su colaboración, ¿y cómo es lo del puntaje?

¿Te hago una pregunta?
¿Estas programando en FoxPro o en Visual FoxPro?
Necesito saber tu Email para enviarte un ejemplo en caso que programes en Visual FoxPro.
Si programas en FoxPro, haz lo siguiente:
DEFINE WINDOW WWIN FROM 10,30 TO 14,60
ACTI WIND WWIN
NRO1=0
DO WHILE .T.
@0,0 SAY 'NUMERO: ' GET NRO1 PICTURE '9999999'
READ
IF LASTKEY()=27
EXIT
ENDIF
nro2=0
string1=allt(str(nro1))
string2=''
if len(string1)>0
for I=len(string1) to 1 step -1
string2=string2+substr(string1,I,1)
ENDFOR
string2=ALLTRIM(string2)
nro2=int(val(string2))
@2,0 SAY NRO2 PICTURE '9999999'
Endif
Enddo
Deac wind wwin
Relé wind wwin
Para puntuar la respuesta, fíjate que cuando leas esto, un poco más abajo en esta página podrás puntuar con 1,2,3,4 o 5 estrellas la respuesta que te di.

Te lo he enviado de nuevo.

Buenas noches Fernando
Que pena con usted y ya estará cansado conmigo, pero estuve revisando mi correo y no me llego nada.
Muchísimas gracias por su colaboración
Carlos E