INSTALL @lib$+"FNUSING"
REPEAT
PRINT "Press 1 for RATES"
PRINT "Press 2 for CONVERTER"
PRINT "Press 3 for EXIT"
INPUT "Enter the number for the converter: " mode%
REM Rates
IF mode%=1 THEN
PRINT "Press 1 for euro rate"
PRINT "Press 2 for usa dollar rate"
PRINT "Press 3 for japanese yen rate"
PRINT "Press 4 for british pounds rate"
INPUT "Enter currency: " choice%
CASE choice% OF
WHEN 1:INPUT "Enter rate for EURO to GBP" EURtoGBPrate#
INPUT "Enter rate for EURO to YEN" EURtoYENrate#
INPUT "Enter rate for EURO to USD" EURtoUSDrate#
WHEN 2:INPUT "Enter rate for USD to EURO" USDtoEUROrate#
INPUT "Enter rate for USD to YEN" USDtoYENrate#
INPUT "Enter rate for USD to GBP" USDtoGBPrate#
WHEN 3:INPUT "Enter rate for YEN to EURO" YENtoEUROrate#
INPUT
INPUT
WHEN 4:INPUT
INPUT
INPUT
ENDCASE
ENDIF
REM Convert
IFmode%=2 THEN
PRINT "Press 1 for euro converter"
PRINT "Press 2 for japanese yen converter"
PRINT "Press 3 for usa dollar converter"
PRINT "Press 4 for british pounds converter"
INPUT "Enter the number for the converter: " choice%
CASE choice% OF
WHEN 1: PRINT "You chose option 1 for euro converter"
WHEN 2: PRINT "You chose option 2 for japanese yen converter"
WHEN 3: PRINT "You chose option 3 for usa dollar converter"
WHEN 4: PRINT "You chose option 4 for british pounds converter"
ENDCASE
PRINT FNusing("##.##",.15)
PRINT "The amount that you want to covert"
PRINT "Enter the amount that you want to convert"
ENDIF
UNTIL mode% = 3
Copyright © 2026 eLLeNow.com All Rights Reserved.
