DIM cambio AS SINGLE
DIM pesos AS SINGLE
DIM dolares AS SINGLE
cambio = 1.33 ' valor inicial para probar....
Principal: ' bucle principal
DO
GOSUB Menu
INPUT opcion
SELECT CASE opcion
CASE 1
GOSUB DolarPeso
CASE 2
GOSUB PesoDolar
CASE 3
GOSUB EstablecerCambio
CASE 4
GOSUB MostrarCambio
CASE 5
END
CASE ELSE
PRINT "La opci¢n: "; opcion; " no est contemplada en el men£... pulse un n£mero del 1 al 5."
END SELECT
LOCATE 15, 10: INPUT "...pulse una tecla para continuar...", espera 'espera que se pulse una tecla permitiendo mientras ver el resultado
LOOP WHILE opcion <> 5
END
Menu: 'Men£ principal
CLS
LOCATE 2, 10: PRINT "Elija una de las opciones siguientes (1-5):"
LOCATE 4, 15: PRINT "1 - Cambiar de D¢lar a Pesos"
LOCATE 5, 15: PRINT "2 - Cambiar de Pesos a D¢lar"
LOCATE 6, 15: PRINT "3 - Establecer un nuevo tipo de cambio."
LOCATE 7, 15: PRINT "4 - Mostrar el cambio actual."
LOCATE 9, 15: PRINT "5 - Salir del programa."
RETURN
PesoDolar:
INPUT "Cuantos pesos desea cambiar a d¢lares: ", pesos
PRINT "El cambio de "; pesos; " pesos a d¢lares es: "; (pesos * (1 / cambio))
RETURN
DolarPeso:
INPUT "Cuantos d¢lares desea cambiar a pesos: ", dolares
PRINT "el cambio de "; dolares; " d¢lares a pesos es: "; (dolares * cambio)
RETURN
EstablecerCambio:
cambiar:
CLS :
LOCATE 5, 10: PRINT "El cambio de 1 dolar equivale actualmente a "; cambio; " pesos"
LOCATE 6, 10: INPUT "Establezca el valor del nuevo cambio: ", nuevocambio
IF nuevocambio < 1 THEN
DO
LOCATE 10, 2: INPUT "Est seguro que 1 d¢lar vale menos que 1 peso (s/n).", resp$
LOOP WHILE resp$ <> "s" AND resp$ <> "n"
IF resp$ = "n" THEN GOTO cambiar
END IF
cambio = nuevocambio
RETURN
MostrarCambio:
CLS
LOCATE 4, 10
PRINT "El cambio actual es 1 d¢lar = "; cambio; " pesos."
RETURN