*USO DE LA ESTRUCTURA DO CASE
*PROGRAMACION ESTRUCTURADA

CLEARR="S"
WAIT "PULSAR UN NUMERO ENTERO ENTRE EL 1-4" TO Opcion
DO CASE
CASE Opcion ="1"
? "HA PULSADO EL NUMERO 1"
CASE Opcion ="2"
? "HA PULSADO EL NUMERO 2"
CASE Opcion ="3"
? "HA PULSADO EL NUMERO 3"
CASE Opcion ="4"
? "HA PULSADO EL NUMERO 4"
OTHER WISE
? "OPCION INCORRECTA"
ENDCASE