10 'CHECK REGISTER PROGRAM
20 'BANK CONCILIATION PROGRAM
30 'COPYRIGHT HARRY HAYMAN -1985
40 PRINT CHR$(26):PRINT:PRINT:PRINT
50 PRINT TAB(14) "PROGRAM TO BALANCE ACCOUNT AGAINST BANK STATEMENT"
60 PRINT TAB(20) "   COPYRIGHT - HARRY HAYMAN - 1985"
70 PRINT:PRINT:PRINT TAB(23)"********************************":PRINT
80 PRINT TAB(20) "TO END PROGRAM TYPE 0 FOR ENTRY NUMBER"         
90 PRINT:PRINT TAB(23)"********************************":PRINT:PRINT
100 INPUT "ENTRY NUMBER OF ITEM TO BE CLEARED OR RETURN FOR NEXT ITEM";A$
110 IF A$="" THEN A=A+1
120 IF A$="" GOTO 150
130 A=VAL(A$)
140 IF A=0 THEN RUN "CHECKREG"
150 'READ ENTRY FROM 
160 OPEN "R",#1,"B:ENTRIES",136
170 GOSUB 510
180 GET #1,A
190 IF EOF(1) GOTO 460
200 CLOSE #1
210 AB1$=AA1$:AB2$=AA2$:AB3$=AA3$:AB4$=AA4$:AB5$=AA5$:AB6$=AA6$:AB7$=AA7$
220 AB8$=AA8$:AB9$=AA9$:AB10$=AA10$:AB11$=AA11$:AC1$=AC$:AD1$=AD$
230 PRINT CHR$(26):PRINT:PRINT:PRINT
240 A5=VAL(AA5$):A4=VAL(AA4$)
250 PRINT "1.  CHECK NUMBER  ";AB1$
260 PRINT "2.  DATE          ";AB2$
270 PRINT "3.  PAYEE         ";AB3$
280 PRINT "4.  AMOUNT (DEPOSITS SHOULD BE PRECEEDED BY -)  ";AB4$
290 PRINT "5.  ACCOUNT TO BE DEBITED   ";AB5$
300 PRINT
310  PRINT "6.  AMOUNT TO BE CHARGED   ";AB6$
320 PRINT "7.  ACCOUNT TO BE CHARGED   ";AB7$
330 PRINT
340 PRINT "8.  AMOUNT TO BE CHARGED    ";AB8$
350 PRINT"9.  ACCOUNT TO BE CHARGED   ";AB9$
360 PRINT
370 PRINT "10. AMOUNT TO BE CHARGED    ";AB10$
380 PRINT "11. ACCOUNT TO BE CHARGED   ";AB11$
390 PRINT
400 PRINT "12. REMARKS                 ";AC1$
410 PRINT "13. HAS CHECK CLEARED       ";AD1$
420 PRINT "HAS ITEM CLEARED (Y)ES OR (N)O"
430 AD2$=INKEY$:IF AD2$="" THEN GOTO 430
431 IF AD2$="Y" GOTO 440
432 IF AD2$="N" GOTO 440
433 GOTO 430
440 AD1$=AD2$:GOTO 530
450 GOTO 230
460 CLOSE #1
470 PRINT CHR$(26):PRINT:PRINT:PRINT
480 PRINT TAB(10) "YOU HAVE REACHED THE END OF FILE"
490 FOR N=1 TO 2500:NEXT N
500 GOTO 10
510 FIELD #1,4 AS AA1$,15 AS AA2$,25 AS AA3$,9 AS AA4$,4 AS AA5$,9 AS AA6$,4 AS AA7$,9 AS AA8$,4 AS AA9$,9 AS AA10$,4 AS AA11$,39 AS AC$,1 AS AD$
520 RETURN
530 'TO REENTER CORRECTED ENTRIES
540 B5=VAL(AB5$):B4=VAL(AB4$)
550 OPEN "R",#1,"B:ENTRIES",136
560 GOSUB 510
570 LSET AA1$=AB1$:LSET AA2$=AB2$:LSET AA3$=AB3$:LSET AA4$=AB4$
580 LSET AA5$=AB5$:LSET AA6$=AB6$:LSET AA7$=AB7$:LSET AA8$=AB8$
590 LSET AA9$=AB9$:LSET AA10$=AB10$:LSET AA11$=AB11$:LSET AC$=AC1$
600 LSET AD$=AD1$
610 PUT #1,A
620 CLOSE #1
630 GOTO 40
90 LSET AA9$=AB9$:LSET AA10$=AB10$:LSET AA11$=AB11$:LSET AC$=AC1$
600 LSET AD