Holiday Expenses 89
1260 IF VAL(X$)=5 THEN CF=1
1270 IF VAL(X$)=6 THEN TF=1
1280 ON VAL(X$) GOTO 1320,1320,100,540,5 40,540
1290 GOTO 1150
1300 STOP
1310 REM AF'PROX TOURIST RATES
1320 CLS:PEN 2:PRINT" Approximate touris t rates ";PUWSTG=";:PEN 1
1330 x=27
1340 PRINT" US$ USA dollar";TAB (x);"1.
1350 PRINT" CN$ Canada dollar";TAB(x);" 1.87"
1360 PRINT" FFR France franc";TAB(x);"1 1.6"
1370 PRINT" BFR Belgium & Lux franc";TA B(x);"76.5"
1380 PRINT" ITL Italy lire" ;TAB (x);"22 65"
1390 PRINT" SFR Switzerland franc";TAB( x);"3.22"
1400 PRINT" DMK W.Germany Demark";TAB ( x);"3.84"
1410 PRINT" ASH Austria schilling";TAB( x);"27.0"
1420 PRINT" ESC Portugal escudo";TAB(x) "154"
1430 PRINT" SPA Spain peseta";TAB (x);" 211"
1440 PRINT" HFL Holland guilder";TAB (x );"4.30"
1450 PRINT" NKR Norway kroma";TAB (x);" 11.0"
1460 PRINT" IRP Ireland punt";TAB(x);"1 22"
1470 PRINT" DRA Greece drachma";TAB (x) "128"
1480 PRINT" MLT Malta pound";TAB (x);"0 .64"
1490 PRINT" YGD Yogoslavia dinar";TAB(x );"127"
1500 PRINT" YEN Japan yen";TAB(x);"367" 1510 PRINT" AU$ Australia dollar";TAB(x );"1.74"