88 Holiday Expenses
1080 PRINT:PRINT"The program is in three sections:"
1090 PRINT:PRINT"	1 Rates Entr
y	2 Cross Rate
Calculation	3 Holiday Co
sts"
1100 PEN 2:PRINT:PRINT"Four currencies c
an be handled at the	same time. The pr
esent four are	";:PEN 1:PRINT N$
(1);",";N$(2);",";N$(3);",";N$(4);:PEN 2 :PRINT"But you may change these by folio wing the prompts"
1110 PEN 3:PRINT:PRINT:PRINT"
CAPS LOCK MUST BE ON)"
1120 PEN 2:PRINT:PRINT"Currency codes sh ould always be three CAPITAL LET TERS."
1130 LOCATE 12,24:INPUT" PRESS ENTER";X
1140 GOTO 1320
1150 CLS:LOCATE 13,1:PEN 3:PRINT"HOLIDAY EXPENSES":LOCATE 13,2:PRINT STRING$(16, 208):PEN 1
1160 LOCATE 13,5:PEN 2:PRINT"**** M E N U ****":PEN 1
1170 LOCATE 9,8:PRINT"1 RATES TABLE (VI EW ONLY)
1180 LOCATE 9,10:PEN 3:PRINT"2 CHANGE R ATES/CURRENCIES":PEN 1
1190 LOCATE 9,12:PEN 2:PRINT"3 CROSS RA TES CALCULATIONS":PEN 1
1200 LOCATE 9,14:PRINT"4 HOLIDAY COSTS TABLE"
1210 LOCATE 9,16:PEN 3:PRINT"5 CHANGE A COST CATECORY":PEN 1
1220 LOCATE 9,I8:PEN 2:PRINT"6 CALCULAT E TOTAL COSTS":PEN 1
1230 LOCATE 9,22:PRINT CHR$(20);:LOCATE 9,22:PRINT CHR$(24);" ENTER OPTION NUMBE R ";CHR$(24);:INPUT X$:IF )($="" THEN 123 0
1240 IF X$<"1" OR X$>"6" OR LEN(X$)>1 TH EN 1230
1250 IF VAL(X$)=1 THEN VF=1