Juan Carlos
11 de Agosto del 2004

Buen d铆a, tengo un problema demaciado tonto, pero que necesito solucionar, quiero hacer un programa con varias opciones, y bueno, es el siguiente:

OPC = SPACE(1)
DO WHILE .T.
@ 1,1 SAY '1.UNO'
@ 2,1 SAY '2.DOS'
@ 3,1 SAY '3.TRES'
@ 4,1 GET OPC
READ
ENDDO
DO CASE OPC
CASE OPC = "1"
MESSAGEBOX ("A PRECIONADO 1")
CASE OPC = "2"
MESSAGEBOX ("A PRECIONADO 2")
CASE OPC = "3"
MESSAGEBOX ("A PRECIONADO 3")
QUIT
ENDCASE

Cuando ejecuto este programa muestra el men煤, pero no ejecuta nunguna acci贸n, ya probe, y al quitar el DO WHILE .T. funciona, pero al escojer una opci贸n la ejecuta y finaliza el programa, lo que quiero es que al ejecutar la acci贸n regrese al men煤, ummm, yo ya habia hecho un programa parecido, y bueno, lo hice de esta forma y si me habia funcionado, espero que me puedan ayudar.
Gracias

Ricardo
11 de Agosto del 2004

Amigo Juan Carlos en ENDDO PONLO AL FINAL DE TU PROGRAMA.
SALUDOS.