10 REM PERSONAL SPENDING
20 REM By K R Street 30 REM Amstrad Action September 1988 40 MODE 1:CLS 50 BORDER 1:PAPER 0:PEN 2 60 LOCATE 16,5:PRINT"ACCOUNTS":LOCATE 16,6:PRINT"========":LOCATE 17,6:PRINT"=======" 70 PEN 2:LOCATE 13,11:PRINT"E":PEN 3:LOCATE 14,11:PRINT"nter new data" 80 PEN 2:LOCATE 13,15:PRINT"N":PEN 3:LOCATE 14,15:PRINT"ew month" 90 PEN 2:LOCATE 13,19:PRINT"R":PEN 3:LOCATE 14,19:PRINT"efer old month" 100 menu$=INKEY$:IF menu$=" "GOTO 100 110 IF menu$="e" THEN GOTO 500 120 IF menu$="n" GOTO 750 130 IF menu$="r" THEN GOTO 170 140 GOTO 100 150 CLS 160 REM ************** REFER OLD WEEK ************** 170 CLS:LOCATE 26,14:PRINT"=====" 180 LOCATE 10,13:PEN 2:INPUT "ENTER MONTH NO: ",file$:GOSUB 910 190 LOCATE 29,1:PRINT "REFER OLD MONTH" 200 OPENIN file$ 210 LET z=0:LET t=0 220 IF EOF=-1 THEN CLS:LOCATE 34,9:PRINT "NO MORE DATA":LOCATE 32,13:PRINT "PRESS M FOR MENU":GOTO 330 230 INPUT #9,a$,b$,c,d$,e$:PRINT #1,a$:PRINT#2,UPPERS(b$):PRINT #3,"";c:PRINT #4,UPPER$(d$):PRINT#5,UPPERS(e$) 240 LET t=t+c 250 LET z=z+1:IF z=14 GOTO 330 260 IF EOF= 1 GOTO 270 ELSE 230 270 PRINT #3,"-------":PRINT #3,"";t 280 PEN 3:LOCATE 6,24:PRINT"N:Next sheet" 290 PEN 3:LOCATE 26,24:PRINT"P:Print file" 300 PEN 3:LOCATE 45,24:PRINT"M:Menu" 310 PEN 3:LOCATE 57,24:PRINT "E:Enter new data" 320 CLOSEIN 330 f$=INKEY$:IF f$="" THEN GOTO 330 340 IF f$="n" GOTO 380 350 IF f$="p" GOTO 410 360 IF f$="m" GOTO 40 370 IF f$="e" THEN CLOSEIN:CLS:CLS #1:CLS #2:CLS #3:CLS #4:CLS #5:GOSUB 910:GOTO 530 380 CLS #1:CLS #2:CLS #3:CLS #4:CLS #5 390 GOTO 220 400 REM ******************** PRINT FILE******************** 410 CLOSEIN:OPENIN file$ 420 PRINT #8,"DATE","CHEQUE No / DESCRIPTION"," COST","PAID TO"," A/K" 430 PRINT #8,"------------------------------------------------------------------" 440 INPUT #9,a$,b$,c,d$,e$ 450 WIDTH 255 460 PRINT #8,a$;TAB(14);UPPER$(b$);TAB(40);c;TAB(53);UPPER$(d$);TAB(78);UPPER$(e$) 470 IF EOF=0 GOTO 440 ELSE CLOSEIN:GOTO 480 480 PRINT #8,TAB(35);"------------" 490 PRINT #8,TAB(35);"TOTAL";t:GOTO 330 500 REM **************** ENTER NEW DATA **************** 510 CLS:LOCATE 26,14:PRINT"=====" 520 LOCATE 10,13:PEN 2:INPUT "ENTER MONTH NO: ",file$:GOSUB 910 530 LOCATE 30,1:PRINT "ENTER NEW DATA" 540 CLS #1:CLS #2:CLS #3:CLS #4:CLS #5 550 OPENIN file$ 560 OPENOUT "temp" 570 INPUT #9,a$,b$,c,d$,e$ 580 WRITE #9,a$,b$,c,d$,e$ 590 IF EOF=-1 GOTO 600 ELSE 570 600 CLOSEIN 610 INPUT #1,"",a$:IF a$="end" THEN GOTO 660 ELSE 620 620 INPUT #2,"",b$:INPUT #3,"",c 630 INPUT #4,"",d$:INPUT #5,"",e$ 640 WRITE #9,a$,b$,c,d$,e$ 650 GOTO 610 660 CLOSEOUT 670 OPENIN "temp" 680 OPENOUT file$ 690 INPUT #9,a$,b$,c,d$,e$ 700 WRITE #9,a$,b$,c,d$,e$ 710 IF EOF=-1 GOTO 720 ELSE 690 720 CLOSEOUT:CLOSEIN 730 GOSUB 910:GOTO 190 740 REM ******************** NEW MONTH******************** 750 CLS:LOCATE 13,4:PRINT"START NEW MONTH" 760 LOCATE 13,5:PRINT"===============" 770 LOCATE 18,9:PRINT"MENU" 780 LOCATE 18,10:PRINT"====" 790 LOCATE 27,16:PRINT"=====" 800 LOCATE 8,15:PEN 2:INPUT "ENTER NEW MONTH NO:",file$ 810 GOSUB 910:LOCATE 32,1:PRINT "NEW MONTH" 820 OPENOUT file$ 830 INPUT #1,"",a$:IF a$="end" THEN GOTO 880 ELSE 840 840 INPUT #2,"",b$:INPUT #3,"",c 850 INPUT #4,"",d$:INPUT #5,"",e$ 860 WRITE #9,a$,b$,c,d$,e$ 870 GOTO 830 880 CLOSEOUT 890 CLS #1:CLS #2:CLS #3:CLS #4:CLS #5 900 GOTO 200 910 REM *************** DISPLAY SHEET **************** 920 CLS:MODE 2:PEN 1:PAPER 0:BORDER 1 930 MOVE 2,340:DRAWR 610,0:DRAWR 0,-295:DRAWR -610,0:DRAWR 0,295 940 MOVE 2,315:DRAWR 610,0:MOVE 85,340:DRAWR 0,-295 950 MOVE 320,340:DRAWR 0,-295:MOVE 410,340:DRAWR 0,-295 960 MOVE 580,340:DRAWR 0,-295:WINDOW #1,2,10,7,22 970 PAPER #1,0:CLS #1:WINDOW #2,13,38,7,22 980 PAPER #2,0:CLS #2:WINDOW #3,42,51,7,22 990 PAPER #3,0:CLS #3:WINDOW #4,53,70,7,22 1000 PAPER #4,0:CLS #4:WINDOW #5,74,76,7,22 1010 PAPER #5,0:CLS #5 1020 LOCATE 30,3:PRINT"MONTH NO:":LOCATE 39,3:PRINT file$:LOCATE 2,5:PRINT"DATE":LOCATE 13,5:PRINT"CHEQUE No / DESCRIPTION" 1030 LOCATE 42,5:PRINT"COST":LOCATE 53,5:PRINT"PAID TO":LOCATE 74,5:PRINT"A/K":RETURN |