90 Holiday Expenses
1520 PRINT" NZ$ New Zealand dollar";TAB (x);"2.32"
1530 IF VF=1 THEN LOCATE 4,24:PEN 2:PRIN T"PRESS ENTER TO RETURN TO MENU":PEN 1:I NPUT X$:VF=0:GOTO 1150
1540 FOR Y=1 TO 4
1550 LOCATE 1,22:PEN 2:PRINT"CURRENCY";Y ;"IS ";NS(Y);:PRINT". PRESS ENTER TO KE EP ";NS(Y);", OR ENTER A NEW CODE
":PEN 1
1560 PRINT"CURRENCY";Y;"(";NS(Y);")";:IN PUT X$
1570 IF XS="" THEN LOCATE 1,22:PRINT CHR $(20);:LOCATE 1,22:PEN 2:PRINT" PRESS EN TER TO KEEP PRESENT ";NS(Y);" RATE: ";R( Y);"OR ENTER NEW RATE";:GOTO 1620
1580 FOR X=1 TO 13:C(X,Y)=0:NEXT
1590 NS(Y)=X$
1600 LOCATE 1,22:PRINT CHRS(20):LOCATE 1 ,22 :PEN.3:PRINT" ENTER THE NEW RATE FOR ";NS(Y);
1610 PEN 1
1620 INPUT QS:IF DS="" THEN 1650
1630 IF ASC(QS)<48 OR ASC(QS)>57 THEN 16 20
1640 GOSUB 1680:R(Y)=Q
1650 NEXT Y
1660 GOTO 1150
1670 REM NUMBER CLEAN-UP
1680 Q=VAL(DS):IF 0<10 THEN 1D=(INT(100*Q ))/100:RETURN
1690 IF 0<100 THEN Q=(INT(10*Q))/10:RETU RN
1700 0=INT(Q)
1710 RETURN
1720 REM INITIAL DATA
1730 DATA "FFR","SFR","USS","ITL"
1740 DATA 11.6,3.22,1.52,2265
1750 DATA "HOTEL","TOURS","BUS","MEALS", "FOOD","DRINK","LAUND","FUEL","POST","PH ONE","GIFTS","SUNDR"