image of READY prompt

Wang2200.org

Listing of file='\$CONVERT' on disk='vmedia/toolbox.wvd.zip'

# Sector 1039, program filename = '$CONVERT'
0010 REM .$CONVERT -- Currency conversion 7/14/82
0015 PRINT HEX(03);"CURRENCY CONVERSION"
   : PRINT "FIRST UPDATE RATES IN S.F. ' LINES"
0020 DEFFN'15
   : PRINT "Currency conversion"
0030 PRINT "'1 = Belgian Francs"
   : PRINT "'2 = English Pounds"
   : PRINT "'3 = W.German Marks"
0040 STOP "Key appropriate function"
0045 DEFFN'0
   : INPUT "Amount in Dollars",A
   : INPUT "Amount in local ",R
   : PRINT "rate =";A/R
   : STOP #
0050 DEFFN'1
   : R=.0198134216
   : A$="Belgian Francs"
   : GOTO 80
0060 DEFFN'2
   : R=1.720300752
   : A$="English Pounds"
   : GOTO 80
0070 DEFFN'3
   : R=.4237167
   : A$="W.German Marks"
   : GOTO 80
0080 PRINT A$;" amount ",
   : INPUT A
0090 PRINTUSING 100,A*R
0100 % Amount in dollars   $##,###.##
0110 GOTO 80