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