86 Holiday Expenses
700 IF X$="" THEN 680
710 IF LEFT$(X$,1)<"A" OR LEFT$(X$,1)>"L " OR MID$(X$,2,1)<"M" OR MID$(X$,2,1)>"P " OR LEN (X$)<3 THEN 680
720 0$=MID$(X$,3):GOSUB 1680:C(ASC(X$)-6 4,ASC(MID$(X$,2,1))-76)=0:LOCATE (2+7*(A SC(MID$(X$,2,1))-76)),ASC(X$)-61:PRINT 0 730 GOTO 680
740 REM CALCULATE TOTAL COSTS
750 T=0:FOR X=1 TO 4:C(13,X)=0:NEXT X:FO R X=1 TO 12:FOR Y=1 TO 4:C(13,Y)=C(13,Y) +C(X,Y):NEXT Y:NEXT X
760 FOR X=1 TO 4:IF C(13,X)=0 THEN 760 770 0$=STR$(C(13,X)):GOSUB 1680:C(13,X)= 0
790 NEXT X
790 LOCATE 9,17:PRINT C(13,1);TAB(16);C( 13,2);TAB(23);C(13,3);TAB (30);C(13,4) 800 LOCATE 1,17:PRINT"TOTALS";:LOCATE 1, 18:PEN 3:PRINT" RATE";:LOCATE 1,19:PEN 1 :PRINT" ";PU$;"STG"
810 FOR X=1 TO 4
820 LOCATE (2+7*X),18:PEN 3:PRINT R(X):P EN 1:12$=STR$(C(13,X)/R(X)):GOSUB 1680:LO CATE (2+7*X),19:PRINT Q:T=T+Q
830 NEXT X
840 Q$=STR$(T):GOSUB 1680:LOCATE 14,20:P RINT"GRAND TOTAL=";PU$;0
850 PEN 2:PRINT: INPUT"	PRESS ENTER T
0 RETURN TO MENU";X$:PEN 1
860 GOTO 1150
870 PEN 2:PRINT"	HOLIDAY EXPE
NSES":PEN 1
se@ PRINT:PRINT:PRINT"This program will help you to calculate your approximate f oreign currency needs for a tour thro ugh one, or several countries."
890 PRINT:PRINT"International exchange r ates are always based on the American do liar rate for each currency. For examp le,the Sterling /Pesatas rate is produce d from the STG/$ and $/PTS rates."