84 Holiday Expenses
210 LOCATE 1,22:PEN 3:PRINT"ENTER 2 COLU MN NUMBERS (eg.32) TO	DISPLAY CROS
S-RATES (";(N$(2));"/";(NS(1));")"
220 REM CROSS RATES CALCULATOR
230 PEN 2:INPUT "OR ENTER 'M' FOR MENU"; XS:PEN 1:LOCATE 24,24:PRINT"
240 IF XS="" THEN 440
250 IF XS="M" THEN 1150
260 IF LEN(XS)<>2 THEN GOTO 210
270 F=VAL (LEFTS(XS,1))-1:S=VAL(RIGHTS(X $0))-1
280 IF S<0 OR S>4 OR F<0 OR F>4 THEN 210 290 IF S=0 THEN Q=R(F):JS=NS(F):KS="STG" :GOTO 330
300 IF F=0 THEN 0=1/R(S):JS="STG":KS=NS( S):GOTO 330
310 0=R(F)/R(S)
320 JS=NS(F):KS=NS(S)
330 M=1
340 IF Q<0.01 THEN 0=Q*10:M=M*10:GOTO 34
350 QS=STRS(Q):GOSUB 1680
360 C=Q:LOCATE 1,12:PRINT CHR$(20);:LOCA TE 1,12:PEN 3:PRINT" ";JS;TAB (14);KS;:L OCATE 1,14:PEN 1
370 FOR X=1 TO 7:Z=M*VAL(MIDS(ES,3*X-2,3 ))
380 0=C*VAL(MIDS(ES,3*X-2,3))
390 OS=STRS(Q)
400 GOSUB 16eo
410 LOCATE 1,12+X:PRINT Q;TAB (12);"=";Z
420 NEXT X
430 REM CROSS RATES (ANY AMNT)
440 LOCATE 1,22:PRINT CHRS(20);:LOCATE 1
2:PRINT"ENTER ";JS;" OR ";K$;" A MOUNT FOR EQUIVALENT -";:PRINT"eg. ";(J$ );115000 "
450 PEN 3:INPUT"OR ENTER 'M' FOR MENU";U $:LOCATE 23,24:PRINT"	";:PEN
1
460 IF U$="M" THEN 1150
470 IF LEN(US)<4 THEN 210
480 IF LEFTS(US,3)=K$ THEN Y=VAL(MIDS(US ,4)):QS=STRS(Y*C/M):GOSUB 1680:X=0:GOTO 510