*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

PROGRAMA QUE PERMITE CALCULAR
LA VELOCIDAD FINAL

STORE 0 TO VF,VO,A,T
RESP="S"
DO WHILE (RESP="S")
CLEAR
@5,5 SAY "INTRODUCE EL VALOR DE LA VELOCIDAD INICIAL" GET VO
READ
@6,5 SAY "INTRODUCE EL VALOR DE LA ACELERACION" GET A
READ
@7,5 SAY "INTRODUCE EL VALOR DE TIEMPO" GET T
READ
VF=VO+A*T
@8,5 SAY "VELOCIDAD FINAL="
@8,12 SAY VF
@8,30 SAY "M/SEG2"
WAIT "DECEA OTROS CALCULOS/N?" TO RESP
RESP=UPPER(RESP)
ENDDO
WAIT WINDOW "FIN DEL PROGRAMA"