10 CLEAR,,,,20
20 GOTO 70
30 PRINT : PRINT "                             "p$
40 an$ = INKEY$ : WHILE an$ = "" : an$ = INKEY$ : WEND
50 an = INSTR(m$,an$) : IF an = 0 THEN 40
60 RETURN
70 PRINT CHR$(27);"0"
80 L = 300
90 cls$ = CHR$(27) + "E" + CHR$(27) + "H" : PRINT cls$;
100 CLOSE
110 IF FIND$("finance.rnd") = "" THEN GOSUB 600 ELSE OPEN "R",1,"finance.rnd",20
120 FIELD 1,6 AS r.bal$, 8 AS r.d$, 6 AS r.n$
130 GET 1,1
140 a = VAL(r.bal$) 
150 IF a<0 THEN GOSUB 590
160 PRINT : PRINT "LAST DATE  ";r.d$
170 PRINT "STARTING BALANCE "USING"###.##";a
180 p$ = "Adjust   List  Basic  or System  A/L/B/S " : m$ = "AaLlBbSs" : GOSUB 30
190 ON an GOTO 220,220,690,690,200,200,210,210
200 CLOSE : PRINT cls$ : END
210 CLOSE : PRINT cls$ : SYSTEM
220 FOR ck = 2 TO 300
230 GET 1,ck
240 IF r.d$ = STRING$(8," ") THEN 250 ELSE 340
250 INPUT "CHEQUE NUMBER ";n$
260 INPUT "CHEQUE VALUE ";b : IF b = 0 GOTO 350
270 INPUT "DATE ";d$
280 LSET r.bal$ = STR$(b)
290 LSET r.d$ = d$
300 da$ = d$
310 LSET r.n$ = n$
320 PUT 1,ck
330 b = b + c : c = b 
340 NEXT
350 ck=L
360 o = a - c
370 f = o
380 FOR ck = 2 TO L
390 GET 1,ck
400 IF r.d$ = STRING$(8," ") THEN 410 ELSE 530 
410 INPUT "WHOSE MONEY IN ";who$
420 INPUT "DATE ";d$
430 INPUT "DEPOSIT = ";d
440 IF d <=0 THEN 540
450 who$ = UPPER$(who$)
460 LSET r.n$ = who$
470 LSET r.d$ = d$
480 da$ = d$
490 LSET r.bal$ = STR$(d)
500 PUT 1,ck
510 f = o + d : o = f
520 PRINT " + + + + + "f" + + + + + "
530 NEXT
540 ck = L
550 PRINT USING "START BALANCE  £ ###.## out  £ ###.## dep  £ ###.## bal £ ###.##";a,c,d,f
560 LSET r.bal$=STR$(f) : LSET r.d$ = da$ : PUT 1,1 
570 PRINT : PRINT"                PRESS ANY KEY TO CONTINUE"
580 WHILE INKEY$ = "" : WEND : GOTO 180
590 PRINT " YOU ARE OVERDRAWN BY ",TAB(60)USING "###.##";a : RETURN
600 PRINT "CREATING EMPTY FILE     PLEASE WAIT"
610 OPEN "R",1,"finance.rnd",20
620 FIELD 1,20 AS re$
630 LSET re$ = ""
640 FOR a = 1 TO L
650 PUT 1
660 NEXT
670 PRINT " FILE CREATED "
680 RETURN
690 PRINT cls$ : PRINT : PRINT : PRINT : PRINT
700 p$ = "   FULL LIST OR LAST FIFTEEN ENTRIES   F/L " : m$ = "FfLl" : GOSUB 30
710 ON an GOTO 720,720,890,890
720 PRINT cls$;
730 GET 1,1
740 PRINT : PRINT "                       PRESENT BALANCE = "r.bal$"    DATE  "r.d$
750 LNE = 0
760 FOR ck = 2 TO L
770 GET 1,ck
780 IF r.d$ = STRING$(8," ") THEN 820
790 PRINT : PRINT "FILE No = "ck"  DATE "r.d$"    "r.n$"     "r.bal$
800 lne = lne + 1 : IF lne >= 14 THEN GOSUB 850
810 NEXT
820 PRINT : PRINT "                           END OF LISTING   " : PRINT
830 GOSUB 850
840 PRINT cls$ : GOTO 180
850 LNE = 0
860 PRINT "                     PRESS ANY KEY TO CONTINUE "
870 WHILE INKEY$ = "" : WEND
880 RETURN
890 PRINT cls$;
900 FOR ck = 2 TO L
910 GET 1,ck
920 IF r.d$ = STRING$(8," ") THEN 940
930 NEXT
940 ct = ck-15
950 IF ct <=1 THEN ct = 2
960 cf = ck-1
970 FOR ck=ct TO cf
980 GET 1,ck
990 PRINT : PRINT "FILE  "ck"   date "r.d$"    "r.n$"      "r.bal$
1000 NEXT
1010 PRINT : PRINT 
1020 GET 1,1
1030 PRINT "         DATE OF LAST ENTRY "r.d$"              PRESENT BALANCE = "r.bal$
1040 PRINT : PRINT " PRESS ANY KEY TO CONTINUE "
1050 WHILE INKEY$ = "" : WEND
1060 PRINT cls$ : GOTO 180
ALANCE = "r.bal$
1040 PRINT : PRINT " PRESS ANY KEY TO CONTINUE "