3 OPTION RUN
5 used=0:FOR a=1 TO 40:PRINT:NEXT
10 DEF FNa$=DEC$(bal#,"####,##.##")
20 DEF FNb$=DEC$(i#,"####,##.##")
22 IF FIND$("*.ACC")="" THEN PRINT "No Accounts files this disc.":ELSE PRINT "Files on this disc are:":PRINT:FILES "*.ACC":PRINT:PRINT
24 INPUT "Type in filename to be used: ",filen$
26 IF INSTR(UPPER$(filen$),".ACC")=0 THEN filen$=UPPER$(filen$)+".ACC"
28 IF FIND$(filen$)="" THEN 600
30 OPEN "i",1,filen$
40 INPUT #1,ac$,date$,ch.no$,bal#
50 CLOSE 1
60 PRINT "ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"
70 PRINT "    Checking Account Balance    "
80 PRINT " ";ac$;" -  £";FNa$
90 PRINT " Date last check: ";date$
100 PRINT " Last cheque no.: ";ch.no$
110 PRINT "===========options=============="
120 PRINT " 1. Enter cheques
130 PRINT " 2. Payments in
140 PRINT " 3. Finish using
150 PRINT "ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"
160 z$=INPUT$(1):IF z$="1" OR z$="2" OR z$="3" THEN ON ASC(z$)-48 GOTO 170,300,410
165 GOTO 160
170 used =1:PRINT "================================"
180 PRINT "          Cheques"
190 PRINT "--------instructions------------"
200 PRINT "Type in value of cheque or press
210 PRINT "ENTER when you've finished.
220 PRINT "================================"
230 INPUT; i#
240 IF i#=0 THEN PRINT CHR$(13);:GOTO 60 
250 PRINT CHR$(13);FNb$;
260 IF i#=24.05# THEN PRINT " - Local Search";
270 IF i#=16.85# THEN PRINT " - Coal Board Search";
280 bal#=bal#-i#
290 PRINT:GOTO 230
300 used =1:PRINT "================================"
310 PRINT "        Payments in:"
320 PRINT "--------instructions------------"
330 PRINT "Type in value of credit or press
340 PRINT "ENTER when you've finished.
350 PRINT "================================"
360 INPUT; i#
370 IF i#=0 THEN PRINT CHR$(13);:GOTO 60 
380 PRINT CHR$(13);FNb$;
390 bal#=bal#+i#
400 PRINT:GOTO 360
410 IF used=0 THEN 570
411 PRINT "ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"
420 PRINT "        Finish Using
430 PRINT "ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"
440 PRINT "Date last check: ";date$
450 PRINT "New date (then press RETURN):
460 INPUT "          ",date$
470 PRINT "Last cheque no.:";ch.no$
480 PRINT "New cheque no.:"
490 INPUT "          ",ch.no$
500 PRINT "Account balance: £"FNa$
510 IF bal#<0 THEN PRINT CHR$(7)"!!!!NEGATIVE BALANCE!!!!"
520 IF bal#<100 THEN PRINT CHR$(7)"Please note - balance is low."
540 OPEN "o",1,filen$
550 WRITE #1,ac$,date$,ch.no$,bal#
560 CLOSE 1
570 GOTO 25000
600 PRINT:PRINT"Opening new file called "filen$"."
610 LINE INPUT "Please type in full name of Account: ",ac$
620 INPUT "What is the balance in the account?  £",bal#
630 used=1
640 FOR ccc=1 TO 32:PRINT:NEXT:GOTO 60
25000 IF FIND$("M:$$$$$$$$.&&&")<>"" THEN OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$=INPUT$(1):RUN "M:$$$$$$$$.&&&":ELSE END
OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$=INPUT$(1):RUN "M:$$$$$$$$.&&&":ELSE