Programas Básicos en Visual Fox Pro (Parte 2)

Aqui les van otro dos programa básico en Visual Fox Pro, simplemente tienene que copiar y pegar en un nuevo programa dentro de Visual Fox, se trata de un conversor de monedas.

CONVERSOR DE MONEDAS
* SE LIMPIA LA PANTALLA
CLEAR
*SE CIERRAN TODAS LAS VENTANAS
CLOSE ALL
* SE DECLARAN LAS VARIABLES
STORE 0.00 TO cd, ce, cantidad, dq, qd, eq, qe

@ 3,5 say "CONVERSOR DE MONEDAS"
* SE OBTIENEN LAS ENTRADAS
@ 5,5 say "Ingrese el cambio del Dolar:" get cd
read
@ 6,5 say "Ingrese el cambio del Euro:" get ce
read
@ 7,5 say "Ingrese la cantidad de dinero:" get cantidad
READ

* SE REALIZA EL PROCESO
dq = cantidad * cd
qd = cantidad / cd
eq = cantidad * ce
qe = cantidad / ce

* SE MUESTRAN EN PANTALLA LOS RESULTADOS O SALIDAS
@ 10,5 say "De Dolares a Quetzales:" get dq
@ 11,5 say "De Quetzales a Dólares:" get qd
@ 12,5 say "De Euros a Quetzales:" get eq
@ 13,5 say "De Quetzales a Euros:" get qe

* SE LIMPIA EL BUFFER
CLEAR gets