Holiday Expenses 85
490 IF LEFTS(US,3)=JS THEN X=VAL(MIDS(US ,4)):QS=STRS(X*M/C):GOSUB 1680:Y=0:GOTO 510
500 GOTO 210
510 CLS #3:PRINT #3," ";JS;TAB (12);K$;" ";:PEN 2:PRINT #3,X;TAB (11);Y:PEN 2 :PRINT #3,:PRINT #3,"	PRESS ENTER TO"
;:PRINT #3,"	CONTINUE HERE."
520 GOTO 210
530 REM COST SPREADSHEET
540 CLS:PRINT"	HOLIDAY EXPENS
ES"
550 PEN 2:PRINT TAB(11)"M";TAB(18)"N";TA B(25)"0";TAB(32)"P":PEN 1
560 PEN 3:PRINT"CHARGES";TAB(10);NS(1);T AB(17);N$(2);TAB(24);N$(3);TAB(31);N$(4) :PEN 1
570 FOR X=1 TO 12:LOCATE 1,X+3:PRINT CHR $(X+64);">";CS(X):NEXT X
580 FOR X=1 TO 12:FOR Y=1 TO 4:LOCATE (2 +7*Y),X+3:PRINT C(X,Y);:NEXT Y: NEXT X 590 LOCATE 1,16:PRINT STRING$(40,208) 600 IF TF=1 THEN TF=0:GOTO 750
610 IF CF=0 THEN GOTO 680
620 CF=0
630 LOCATE 1,21:PEN 3:PRINT"ENTER CHARGE CODE LETTER TOGETHER WITH NEW NAME (eg .IBTOURS )":PEN 1
640 PEN 2:PRINT"	OR 'M' FOR MENU
11
650 PEN 1:INPUT X$:LOCATE 3,24:PRINT" " :IF XS="M" THEN 1150
660 IF X$="" OR LEN (X$)<2 OR LEFTS(XS,1 )<"A" OR LEFTS(X$,1)>"L" THEN 640
670 CS(ASC(XS)-64)=MIDS(X$+"	",?,6
):FOR X=1 TO 12:PEN 2:LOCATE 1,X+3:PRINT CHRS(X+64);">";CS(X):NEXT:PEN 1:GOTO 63 0
680 LOCATE 1,21:PRINT"TO ENTER A COST IT EM,ENTER ROW/COLUMN WITH AMOUNT. eg.AM 200 "
690 PEN 3:PRINT:INPUT "	OR ENTER '
M' FOR MENU";XS:LOCATE 31,24:PRINT" ":IF XS="M" THEN 1150