4 DEFDBL A,P
5 DIM X$(210):DIM Y$(210):DIM P(210)
10 'CHECK REGISTER PROGRAM
20 'PRINT SUB-PROGRAM
30 'COPYRIGHT HARRY HAYMAN - 1985
33 GOSUB 6000
34 IMAGE$="#####  \    \ \               \ \                         \ $$#####.##    \  \"
40 PRINT CHR$(26):PRINT:PRINT:PRINT:AA4=0:E1=0
42 Z=0:AA1$="":AA2$="":AA3$="":A4=0:AD$=""
45 PRINT TAB(10) STRING$(29,"*")
50 PRINT TAB(10)"CHECK REGISTER PRINT PROGRAM"
60 PRINT TAB(10)"COPYRIGHT HARRY HAYMAN - 1985"
65 PRINT TAB(10) STRING$(29,"*")
70 PRINT:PRINT:PRINT
80 PRINT TAB(10) "1.  LIST INDIVIDUAL ACCOUNTS"
90 PRINT TAB(10) "2.  LIST ALL ENTRIES"
100 PRINT TAB(10) "3.  LIST INDIVIDUAL ENTRIES"
110 PRINT TAB(10) "4.  PRINT TOTALS OF ALL ACCOUNTS"
115 PRINT TAB(10) "5.  PRINT TOTAL OF CLEARED ITEMS"
118 PRINT TAB(10) "6.  PRINT TOTAL OF UNCLEARED ITEMS"
120 PRINT TAB(10) "7.  END PRINT PROGRAM"
130 INPUT "                         INPUT NUMBER DESIRED ";AB
140 ON AB GOTO 1000,2000,3000,4000,9000,15000,5000
150 PRINT "YOU HAVE SELECTED AN INCORRECT PROGRAM"
160 FOR N=1 TO 2000:NEXT N
170 GOTO 40
1000 'PROGRAM TO LIST INDIVIDUAL ACCOUNTS'
1005 Q=0:M=1
1010 PRINT CHR$(26):PRINT:PRINT:PRINT
1020 PRINT TAB(10) "PROGRAM TO LIST INDIVIDUAL ACCOUNTS"
1025 PRINT TAB(13) "TO EXIT PROGRAM ENTER 0"
1030 PRINT:PRINT:PRINT
1040 INPUT "WHICH ACCOUNT DO YOU WANT ";A
1043 IF A=0 THEN GOTO 34
1045 GOSUB 13000
1050 INPUT "DO YOU WANT THE ACCOUNT PRINTED (YES OR NO)";B$
1051 PRNT$=B$
1052 PRINT CHR$(26):PRINT:PRINT:PRINT
1060 IF B$<>"YES" THEN GOTO 1069
1066 IF B$="YES" THEN GOSUB 12500
1067 INPUT "IF YOU WANT JUST ONE MONTH PRINTED, LIST THE MONTH HERE ";C$
1068 D$=LEFT$(C$,3)
1069 PRINT "ACCOUNT NUMBER";A,Y$(A)
1070 GOSUB 10000
1071 PRINT "ENTRY CHECK     DATE               PAYEE                 AMOUNT    CLEARED"
1076 Z=1
1077 PRINT " NO.   NO."
1078 GOSUB 10000
1079 PRINT
1080 GOSUB 8000
1090 IF VAL(AA5$)=A THEN GOSUB 1300
1100 IF VAL(AA7$)=A THEN GOSUB 1400
1110 IF VAL(AA9$)=A THEN GOSUB 1500
1120 IF VAL(AA11$)=A THEN GOSUB 1600
1210 'BLANK
1220 GOSUB 8000
1230 IF VAL(AA5$)=A THEN GOSUB 1300
1240 IF VAL(AA7$)=A THEN GOSUB 1400
1250 IF VAL(AA9$)=A THEN GOSUB 1500
1260 IF VAL(AA11$)=A THEN GOSUB 1600
1280 GOTO 1210
1300 ' PRINT PROGRAM
1315 AA4=AA4+A4
1320 PRINT USING IMAGE$;Z-1;AA1$;AA2$;AA3$;A4;AD$ 
1321 IF MO$<"!" THEN GOTO 1340
1322 IF A2$<>MO$ THEN GOTO 1341
1340 IF B$="YES" THEN LPRINT USING IMAGE$;Z-1;AA1$;AA2$;AA3$;A4;AD$ :GOSUB 12000
1341 IF B$="YES" THEN E1=E1+A4
1342 GOSUB 1700
1350 RETURN
1400 'PRINT PROGRAM
1410 AA4=AA4+A6 
1420 PRINT USING IMAGE$;Z-1;AA1$;AA2$;AA3$;A6;AD$
1430 IF B$="YES" THEN LPRINT USING IMAGE$;Z-1;AA1$;AA2$;AA3$;A6;AD$:GOSUB 12000
1431 IF B$="YES" THEN E1=E1+A6
1432 GOSUB 1700
1440 RETURN
1500 'PRINT PROGRAM
1510 AA4=AA4+A8
1520 PRINT USING IMAGE$;Z-1;AA1$;AA2$;AA3$;A8;AD$
1530 IF B$="YES" THEN LPRINT USING IMAGE$;Z-1;AA1$;AA2$;AA3$;A8;AD$:GOSUB 12000
1531 IF B$="YES" THEN E1=E1+A8
1532 GOSUB 1700
1540 RETURN
1600 'PRINT PROGRAM
1610 AA4=AA4+A10
1620 PRINT USING IMAGE$;Z-1;AA1$;AA2$;AA3$;A10;AD$
1621 IF B$="YES" THEN E1=E1+A10
1630 IF B$="YES" THEN LPRINT USING IMAGE$;Z-1;AA1$;AA2$;AA3$;A10;AD$:GOSUB 12000
1632 GOSUB 1700
1640 RETURN
1700 R=R+1:IF B$="YES" THEN RETURN
1701 IF R=20 GOTO 1720
1702 RETURN
1720 R=0
1721 INPUT "PRESS ANY KEY TO CONTINUE";S
1722 PRINT CHR$(26)
1723 RETURN
2000 'PROGRAM TO PRINT ALL ENTRIES
2010 PRINT CHR$(26):PRINT:PRINT:PRINT
2020 PRINT TAB(40) "COPYRIGHT - HARRY HAYMAN - 1985"
2030 PRINT:PRINT:PRINT
2035 M=1:Q=0:Z=0
2036 PRINT TAB(10) "THIS PRINTOUT REQUIRES A 132 COLUMN PRINTER OR A"
2037 PRINT TAB(12) " PRINTER CAPABLE OF PRINTING IN THE COMPRESSED MODE"
2038 PRINT:PRINT:PRINT
2040 INPUT "THIS WILL BE PRINTED IN HARDCOPY ONLY DO YOU WANT TO CONTINUE - YES OR NO ";B$
2041 IF B$="YES" THEN GOTO 2043
2042 GOTO 40
2043 PRINT:PRINT "IF YOU WANT TO START AT A PARTICULAR ENTRY ENTER THE NUMBER"
2044 INPUT "  OTHERWISE PRESS RETURN  ";Z
2045 IF Z<1 GOTO 2052
2046 Z=Z-1:GOTO 2054
2052 INPUT "IF YOU ONLY WANT ONE MONTH PRINTOUT - ENTER THE MONTH HERE";MOS$
2053 MO$=LEFT$(MOS$,3)
2054 LPRINT CHR$(15):LPRINT CHR$(27)"Q"CHR$(232):WIDTH LPRINT 232
2055 LPRINT TAB(100) "PAGE ";M:GOSUB 12000
2056 IF MOS$>"!" THEN LPRINT TAB(30) "LISTING OF ALL ENTRIES FOR MONTH OF ";MOS$
2057 IF MOS$>"!" THEN GOTO 2070
2060 LPRINT TAB(35) "LISTING OF ENTRIES":GOSUB 12000
2070 LPRINT:GOSUB 12000
2080 LPRINT STRING$(132,"="):GOSUB 12000
2100 IMAGE$="####     \      \ \               \\                         \$$#####.## ###       \       \\                                                \"
2110 FORM$="\     \\     \  \                  \\                         \ \         \\  \\       \          \                                       \"
2120 A$="ENTRY":B$="CHECK":C$="    DATE":D$="PAYEE":E$="AMOUNT":F$="A/C":G$="REMARKS":H$="CLEARED"
2130 LPRINT USING FORM$;A$;B$;C$;D$;E$;F$;H$;G$:GOSUB 12000
2140 LPRINT STRING$(132,"="):GOSUB 12000
2150 LPRINT:GOSUB 12000
2160 Z=Z+1
2170 OPEN "R",#1,"B:ENTRIES",136
2180 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$
2190 GET 1,Z
2200 A4=VAL(AA4$):A5=VAL(AA5$)
2210 IF EOF(1) GOTO 2300
2220 CLOSE #1
2221 A2$=LEFT$(AA2$,3)
2222 IF MOS$<"!" THEN GOTO 2230
2223 IF A2$<>MO$ THEN GOTO 2160
2230 LPRINT USING IMAGE$;Z;AA1$;AA2$;AA3$;A4;A5;AD$;AC$:GOSUB 12000
2240 GOTO 2160
2300 O=66-Q
2310 FOR N=1 TO O:LPRINT:NEXT N
2320 Q=0
2330 LPRINT CHR$(18)
2335 CLOSE #1
2340 GOTO 34
3000 'PROGRAM TO LIST INDIVIDUAL ITEMS
3010 PRINT CHR$(26):PRINT:PRINT:PRINT:P=0
3020 PRINT TAB(15) STRING$(40,"=")
3030 PRINT TAB(20) "COPYRIGHT - HARRY HAYMAN - 1985"
3040 PRINT TAB(19) "PROGRAM TO PRINT INDIVIDUAL ITEMS"
3050 PRINT TAB(15) STRING$(40,"=")
3060 PRINT:PRINT:PRINT
3069 PRINT TAB(10)"TO END PROGRAM ENTER 0":PRINT:PRINT
3070 INPUT "ENTER ENTRY NUMBER DESIRED";Z
3075 IF Z=0 THEN GOTO 40  
3080 OPEN "R",#1,"B:ENTRIES",136
3090 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$
3100 GET #1,Z
3110 A4=VAL(AA4$):A5=VAL(AA5$):A6=VAL(AA6$):A7=VAL(AA7$):A8=VAL(AA8$)
3120 A9=VAL(AA9$):A10=VAL(AA10$):A11=VAL(AA11$)
3130 IF EOF(1) GOTO 3700
3140 CLOSE #1
3150 GOSUB 3500
3155 INPUT "IF YOU WANT HARDCOPY ENTER 'YES' ";HC$
3156 IF HC$="YES" THEN GOSUB 3300
3160 PRINT "TO END PROGRAM TYPE 0"
3170 PRINT "TO READ PRECEEDING ITEM TYPE - "
3180 PRINT "TO READ ANOTHER ITEM TYPE ENTRY NUMBER"
3190 PRINT "TO READ THE NEXT ITEM TYPE RETURN"
3200 INPUT Q$:Q=VAL(Q$)
3210 IF Q$="" THEN Z=Z+1
3220 IF Q$="" THEN GOTO 3080
3230 IF Q$="0" THEN GOTO 40
3240 IF Q$="-" THEN Z=Z-1
3245 IF Q$="-" THEN GOTO 3080
3250 IF Q>0 THEN Z=Q
3260 IF Q>0 THEN GOTO 3080
3270 PRINT CHR$(26):PRINT:PRINT:GOTO 3150
3300 LPRINT TAB(10) "ENTRY NUMBER  ";Z
3310 LPRINT TAB(10) "CHECK NUMBER  ";AA1$
3320 LPRINT TAB(10) "DATE          ";AA2$
3330 LPRINT TAB(10) "PAYEE         ";AA3$
3340 LPRINT TAB(10) USING IM$;A5;Y$(A5);A4
3350 LPRINT TAB(10) USING IM$;A7;Y$(A7);A6
3360 LPRINT TAB(10) USING IM$;A9;Y$(A9);A8
3370 LPRINT TAB(10) USING IM$;A11;Y$(A11);A10
3371 LPRINT TAB(10) "REMARKS:           ";AC$
3372 LPRINT TAB(10) "HAS ITEM CLEARED:  ";AD$
3375 LPRINT
3380 P=P+11
3390 IF P>55 THEN GOTO 3410
3400 RETURN
3410 O=66-P
3420 FOR N=1 TO O:LPRINT:NEXT N
3430 P=0
3440 RETURN
3500 PRINT CHR$(26):PRINT:PRINT:PRINT
3510 PRINT "ENTRY NUMBER  ";Z
3520 PRINT "CHECK NUMBER  ";AA1$
3530 PRINT "DATE          ";AA2$
3540 PRINT "PAYEE         ";AA3$
3545 IM$="ACCOUNT NUMBER ###    \                        \ $$##,###.##"
3550 PRINT USING IM$;A5;Y$(A5),A4
3560 PRINT USING IM$;A7;Y$(A7),A6
3570 PRINT USING IM$;A9;Y$(A9),A8
3580 PRINT USING IM$;A11;Y$(A11);A10
3584 PRINT "REMARKS: ";AC$
3585 PRINT "HAS ITEM CLEARED: ";AD$
3590 PRINT:PRINT:PRINT
3600 RETURN
3700 CLOSE #1
3710 PRINT TAB(10) "YOU HAVE SELECTED A NON-EXISTENT ENTRY"
3720 FOR N=1 TO 2500:NEXT N
3730 GOTO 3000
4000 'PROGRAM TO PRINT TOTALS OF ALL ACCOUNTS
4010 PRINT CHR$(26):PRINT TAB(30) "COPYRIGHT HARRY HAYMAN - 1985"
4020 PRINT:PRINT:PRINT
4030 PRINT TAB(10) "PROGRAM TO PRINT TOTAL OF ALL ACCOUNTS"
4040 PRINT:PRINT:PRINT
4050 INPUT "DO YOU WANT PRINTOUT - YES OR NO";A$
4055 LINE INPUT "INPUT TODAY'S DATE  ";A1$
4056 INPUT "IF YOU WANT THE TOTAL OF ONLY ONE MONTH - ENTER MONTH";E$
4057 F$=LEFT$(E$,3)
4060 Z=0:Y=0:P=0
4061 PRINT:PRINT:PRINT "READING ENTRY NUMBER"
4070 Z=Z+1
4075 PRINT CHR$(27) CHR$(46)+"0"
4080 OPEN "R",#1,"B:ENTRIES",136
4090 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$
4100 GET #1,Z
4105 IF EOF(1) GOTO 4175
4106 CLOSE #1
4107 PRINT CHR$(27)+"="+CHR$(47):PRINT TAB(10)Z
4111 G$=LEFT$(AA2$,3)
4112 IF G$=F$ THEN GOTO 4120
4113 IF E$="" THEN GOTO 4120
4114 GOTO 4070
4120 AA4=VAL(AA4$):AA5=VAL(AA5$):AA6=VAL(AA6$):AA7=VAL(AA7$):AA8=VAL(AA8$):AA9=VAL(AA9$):AA10=VAL(AA10$):AA11=VAL(AA11$)
4130 P(AA5)=P(AA5)+AA4
4140 P(AA7)=P(AA7)+AA6
4150 P(AA9)=P(AA9)+AA8
4160 P(AA11)=P(AA11)+AA10
4170 GOTO 4070
4175 PRINT CHR$(27)CHR$(46)+"2"
4180 CLOSE #1:IF A$="YES" THEN GOTO 4300
4200 PRINT CHR$(26):PRINT:PRINT:PRINT
4201 H$="":IF E$>"A" THEN H$=" FOR "+E$
4202 PRINT TAB(10) "TOTAL OF ALL ACCOUNTS";H$
4203 PRINT
4210 IMAGE$="  ###      \                              \       $$#####.##"
4220 Y=Y+1
4225 IF Y=200 THEN GOTO 4700
4226 P=P+P(Y)
4227 IF P(Y)=0 THEN GOTO 4220
4230 PRINT USING IMAGE$;Y;Y$(Y);P(Y)
4231 W=W+1
4232 IF W>19 GOTO 4239
4235 GOTO 4250
4239 W=0
4240 INPUT "TYPE ANY KEY TO CONTINUE";A
4241 PRINT CHR$(26)
4243 PRINT TAB(10) "TOTAL OF ALL ACCOUNTS";H$          
4244 PRINT
4250 GOTO 4220
4300 W=1:Y=0:Q=0
4310 IMAGE$="  ###       \                                  \        $$#####.##"
4340 LPRINT TAB(65) "PAGE ";W:GOSUB 4500
4350 LPRINT TAB(65) A1$:GOSUB 4500
4360 LPRINT STRING$(80,"="):GOSUB 4500
4365 H$="":IF F$>"" THEN H$=" FOR "+E$
4370 LPRINT TAB(30) "TOTAL OF ALL ACCOUNTS";H$:GOSUB 4500
4380 LPRINT "A/C #                     A/C NAME                      TOTAL":GOSUB 4500
4390 LPRINT STRING$(80,"="):GOSUB 4500
4400 LPRINT:GOSUB 4500
4401 IF Y=200 THEN GOTO 4800
4404 Y=Y+1
4405 IF Y=200 THEN GOTO 4800
4406 P=P+P(Y)
4407 IF P(Y)=0 THEN GOTO 4404
4410 LPRINT USING IMAGE$;Y;Y$(Y);P(Y):GOSUB 4500
4430 GOTO 4404
4500 Q=Q+1
4510 IF Q=55 THEN W=W+1
4520 IF Q=55 THEN GOTO 4535
4530 RETURN
4535 O=66-Q
4540 FOR N=1 TO O:LPRINT:NEXT N
4545 Q=0
4550 IF Y=200 THEN GOTO 4800
4560 IF Y=201 THEN GOTO 4600
4570 GOTO 4310
4600 INPUT "TYPE RETURN TO CONTINUE";E
4610 GOTO 34
4700 Y$(Y)="        TOTAL":P(Y)=P
4710 PRINT USING IMAGE$;0;Y$(Y);P(Y)
4720 GOTO 4600
4800 LPRINT                  
4810 Y=0:Y$(Y)="        TOTAL":P(Y)=P
4820 LPRINT USING IMAGE$;Y;Y$(Y);P(Y)                 
4830 O=64-Q
4840 FOR N=1 TO O:LPRINT:NEXT N
4850 INPUT "TYPE RETURN TO CONTINUE";E
4860 GOTO 34
5000 RUN "CHECKREG"
6000 PRINT CHR$(26):FOR N=1 TO 10:PRINT:NEXT N
6003 PRINT CHR$(27) CHR$(46)+"0"
6004 Z=1
6005 PRINT TAB(20) "READING ACCOUNTS"
6006 PRINT CHR$(27)+"="+CHR$(45)
6007 PRINT TAB(25)Z
6010 OPEN "R",#1,"B:ACCOUNTS",28
6020 FIELD #1,3 AS CC1$,25 AS CC2$
6030 GET #1,Z
6040 IF EOF(1) GOTO 6090
6050 CLOSE #1
6060 X$(Z)=CC1$:Y$(Z)=CC2$
6070 Z=Z+1
6080 GOTO 6006
6090 PRINT CHR$(27) CHR$(46)+"2"
6100 CLOSE #1:Z=1:RETURN
7000 Z=1
7010 X=VAL(X$(Z))
7015 IF A=X THEN A$=Y$(Z)
7020 IF A=X THEN RETURN
7030 Z=Z+1
7040 IF Z=200 GOTO 7100
7050 GOTO 7010
7100 PRINT TAB(10)"YOU HAVE ENTERED AN UNASSIGNED ACCOUNT"
7110 RETURN
8000 'REM
8001 OPEN "R",#1,"B:ENTRIES",136
8010 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$
8020 GET #1,Z
8021 A4=VAL(AA4$):A5=VAL(AA5$):A6=VAL(AA6$):A7=VAL(AA7$):A8=VAL(AA8$)
8022 A9=VAL(AA9$):A10=VAL(AA10$):A11=VAL(AA11$)
8030 IF EOF(1) GOTO 8100
8040 Z=Z+1
8050 CLOSE #1
8051 E$=LEFT$(AA2$,3)
8052 B$="NO"
8053 IF D$="" THEN B$=PRNT$
8054 IF D$=E$ THEN B$="YES"
8060 RETURN
8100 CLOSE #1
8105 B$=PRNT$
8110 IF A=1 THEN GOTO 8500
8111 IF A=2 THEN GOTO 8500
8112 IF A=3 THEN GOTO 8500
8120 IMAG$="\                                                        \ $$#####.##"
8121 IMG$="\                                \\                       \ $$#####.##"
8125 PRINT:PRINT USING IMAG$;"TOTAL";AA4
8140 IF B$="YES" THEN LPRINT "   ":GOSUB 12000
8141 IF PRNT$="YES" THEN GOTO 8143
8142 GOTO 8150
8143 IF D$="" GOTO 8150
8144 G$="            TOTAL FOR"
8145 LPRINT USING IMG$;G$;C$;E1:GOSUB 12000
8146 LPRINT:GOSUB 12000
8150 IF B$="YES" THEN LPRINT USING IMAG$;"                     TOTAL";AA4:GOSUB 12000
8151 Q=66-Q
8152 IF B$="YES" THEN FOR N=0 TO Q:LPRINT:NEXT N
8160 INPUT "PRESS RETURN TO CONTINUE     ";A:GOTO 40
8500 OPEN "R",#1,"B:BALANCE",58
8510 FIELD #1,9 AS X1$,9 AS X2$,9 AS X3$,9 AS X4$,9 AS X5$,9 AS X6$,4 AS ZZ$
8520 GET #1,2
8530 IF A=1 THEN X1=CVD(X1$)*-1
8531 IF A=2 THEN X1=CVD(X2$)*-1
8532 IF A=3 THEN X1=CVD(X3$)*-1
8540 CLOSE #1
8549 IMG$="\                                \\                       \ $$#####.##"
8550 IMAG$="\                                                        \ $$#####.##"
8551 IF B$="YES" THEN LPRINT:GOSUB 12000
8552 IF B$="YES" THEN GOTO 8554
8553 GOTO 8561
8554 G$="         TOTAL FOR":IF C$="" THEN G$="          TOTAL FOR ALL MONTHS"
8555 LPRINT USING IMG$;G$;C$;E1:GOSUB 12000
8556 LPRINT "    ":GOSUB 12000
8561 PRINT USING IMAG$;"                  STARTING BALANCE";X1
8562 PRINT
8570 IF B$="YES" THEN LPRINT USING IMAG$;"         STARTING BALANCE";X1:GOSUB 12000
8580 AA4=AA4+X1
8585 IF B$="YES" THEN LPRINT "  ":GOSUB 12000
8590 IF B$="YES" THEN LPRINT USING IMAG$;"         CURRENT BALANCE";CDBL(AA4):GOSUB 12000
8591 PRINT USING IMAG$;"                     TOTAL";AA4
8593 Q=66-Q
8594 IF B$="YES" THEN FOR N=0 TO Q:LPRINT:NEXT N
8595 INPUT "PRESS RETURN TO CONTINUE";R
8600 GOTO 40
9000 ' PROGRAM TO PRINT AND TOTAL CLEARED ITEMS
9010 PRINT CHR$(26):PRINT:PRINT:PRINT
9020 INPUT "WHICH CHECKING ACCOUNT DO YOU WANT 1, 2, OR 3";A
9030 IF A>3 THEN GOTO 9020
9040 INPUT "DO YOU WANT THE ACCOUNT PRINTED (YES OR NO) ";B$
9045 IF B$<>"YES" THEN GOTO 9050
9046 INPUT "IF YOU WANT JUST ONE MONTH PRINTED OUT INPUT THE MONTH HERE";MOS$
9048 MO$=LEFT$(MOS$,3)
9050 GOSUB 7000
9060 PRINT CHR$(26):PRINT:PRINT:PRINT
9064 M=1
9065 IF B$="YES" THEN LPRINT TAB(70) "PAGE ";M:GOSUB 12000
9070 IF B$="YES" THEN LPRINT TAB(10) "LISTING OF ACCOUNT  ";A,A$:GOSUB 12000
9090 PRINT TAB(10) "LISTING OF ACCOUNT ";A,A$
9100 GOSUB 10000
9110 PRINT:PRINT "ENTRY CHECK     DATE                       PAYEE           AMOUNT  CLEARED"
9120 IF B$="YES" THEN GOSUB 11000
9125 GOSUB 12000
9130 IF B$="YES" THEN LPRINT "ENTRY CHECK     DATE               PAYEE              AMOUNT    CLEARED":GOSUB 12000
9140 IF B$="YES" THEN LPRINT "  NO.   NO.:GOSUB 12000
9150 IF B$="YES" THEN GOSUB 11000
9155 GOSUB 12000
9160 IF B$="YES" THEN LPRINT:GOSUB 12000
9170 PRINT "  NO.    NO."
9180 GOSUB 10000
9190 Z=1
9200 GOSUB 9500
9210 IF VAL(AA5$)=A THEN GOTO 9400
9211 IF VAL(AA7$)=A THEN GOSUB 9800
9212 IF VAL(AA9$)=A THEN GOSUB 9850
9213 IF VAL(AA11$)=A THEN GOSUB 9900
9230 GOTO 9200
9400 IF AD$="Y" THEN GOTO 9450
9410 GOTO 9200
9450 'BLANK
9451 A2$=LEFT$(AA2$,3)
9459 GOSUB 1300
9460 GOTO 9200
9500 'REM
9510 OPEN "R",#1,"B:ENTRIES",136
9520 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$
9530 GET #1,Z
9540 A4=VAL(AA4$):A5=VAL(AA5$):A6=VAL(AA6$):A7=VAL(AA7$):A8=VAL(AA8$)
9545 A9=VAL(AA9$):A10=VAL(AA10$):A11=VAL(AA11$)
9550 IF EOF(1) GOTO 9600
9560 Z=Z+1
9570 CLOSE #1
9580 RETURN
9600 CLOSE #1
9610 IMAG$="\                                                         \$$#####.##"
9620 OPEN "R",#1,"B:BALANCE",58
9630 FIELD #1,9 AS X1$,9 AS X2$,9 AS X3$,9 AS X4$,9 AS X5$,9 AS X6$,4 AS ZZ$
9640 GET #1,1
9650 IF A=1 THEN X1=CVD(X4$)*-1
9660 IF A=2 THEN X1=CVD(X5$)*-1
9670 IF A=3 THEN X1=CVD(X6$)*-1
9680 CLOSE #1
9690 IF B$="YES" THEN LPRINT "  "
9700 PRINT USING IMAG$;"                     STARTING BALANCE";X1
9710 PRINT
9720 IF B$="YES" THEN LPRINT USING IMAG$;"          STARTING BALANCE";X1
9730 AA4=AA4+X1
9740 IF B$="YES" THEN LPRINT
9750 IF B$="YES" THEN LPRINT USING IMAG$;"                 TOTAL";AA4
9760 PRINT USING IMAG$;"                            TOTAL";AA4
9762 IF B$<>"YES" THEN GOTO 9770
9765 O=66-(Q+4):FOR N=1 TO O:LPRINT:NEXT N
9770 INPUT "PRESS RETURN TO CONTINUE";Q
9780 GOTO 40
9800 IF AD$="Y" THEN GOTO 9820
9810 GOTO 9200
9820 GOSUB 1400
9830 GOTO 9200
9850 IF AD$="Y" THEN GOTO 9870
9860 GOTO 9200
9870 GOSUB 1500
9880 GOTO 9200
9900 IF AD$="Y" THEN GOTO 9920
9910 GOTO 9200
9920 GOSUB 1600
9930 GOTO 9200
10000 PRINT STRING$(80,"=")
10010 RETURN
11000 LPRINT STRING$(80,"="):GOSUB 12000
11010 RETURN
12000 Q=Q+1
12010 IF Q=55 THEN GOSUB 12040
12020 RETURN
12030 'BLANK
12040 O=66-Q
12041 FOR N=1 TO O:LPRINT:NEXT N
12050 M=M+1
12060 Q=0
12061 IF AB=2 THEN GOTO 2055
12065 GOSUB 12500
12070 RETURN
12500 LPRINT TAB(70) "PAGE ";M:GOSUB 12000
12505 LPRINT TAB(10)"LISTING OF ACCOUNT ";A,Y$(A):GOSUB 12000
12510 LPRINT STRING$(80,"="):GOSUB 12000
12520 LPRINT "ENTRY CHECK    DATE           PAYEE                            AMOUNT    CLEARED":GOSUB 12000
12530 LPRINT " NO.     NO.":GOSUB 12000
12540 LPRINT STRING$(80,"="):GOSUB 12000
12550 RETURN
13000 IF Y$(A)<"!" GOTO 13020
13010 RETURN
13020 PRINT:PRINT:PRINT
13030 PRINT TAB(10) "YOU HAVE SELECTED AN UNUSED ACCOUNT"
13040 PRINT TAB(12) "  REENTER ACCOUNT NUMBER"
13050 FOR N=1 TO 2000:NEXT N
13060 GOTO 1000
15000 'PROGRAM TO PRINT AND TOTAL UNCLEARED ITEMS
15010 PRINT CHR$(26):PRINT:PRINT:PRINT:AA4=0
15020 INPUT "WHICH CHECKING ACCOUNT DO YOU WANT 1, 2, OR 3 ";A
15030 IF A>3 THEN GOTO 15010
15040 INPUT "DO YOU WANT THE ACCOUNT PRINTED (YES OR NO) ";B$
15050 IF B$<>"YES" THEN GOTO 15080
15060 INPUT "IF YOU WANT JUST ONE MONTH PRINTED OUT INPUT THE MONTH HERE";MOS$
15070 MO$=LEFT$(MOS$,3)
15080 PRINT CHR$(26):PRINT:PRINT:PRINT
15090 M=1:IF B$="YES" THEN LPRINT TAB(30) "LISTING OF UNCLEARED ITEMS"
15100 IF B$="YES" THEN LPRINT TAB(70) "PAGE ";M:GOSUB 12000
15110 PRINT TAB(10) "LISTING OF ACCOUNT ";A,Y$(A)
15115 IF B$="YES" THEN LPRINT TAB(10) "LISTING OF ACCOUNT ";A,Y$(A):GOSUB 12000
15120 GOSUB 10000
15130 PRINT "ENTRY CHECK     DATE                       PAYEE              AMOUNT  CLEARED"
15140 IF B$="YES" THEN GOSUB 11000
15150 GOSUB 12000
15160 IF B$="YES" THEN LPRINT "ENTRY CHECK     DATE               PAYEE                     AMOUNT  CLEARED":GOSUB 12000
15170 IF B$="YES" THEN LPRINT "  NO.     NO."
15180 IF B$="YES" THEN GOSUB 11000
15190 GOSUB 12000
15200 IF B$="YES" THEN LPRINT:GOSUB 12000
15210 PRINT " NO.   NO.
15220 GOSUB 10000
15230 Z=1
15240 GOSUB 15500
15250 IF VAL(AA5$)=A THEN GOTO 15300
15260 IF VAL(AA7$)=A THEN GOSUB 15800
15270 IF VAL(AA9$)=A THEN GOSUB 15850
15280 IF VAL(AA11$)=A THEN GOSUB 15900
15290 GOTO 15240
15300 IF AD$="N" THEN GOTO 15320
15310 GOTO 15240
15320 A2$=LEFT$(AA2$,3)
15330 GOSUB 1300
15340 GOTO 15240
15500 OPEN "R",#1,"B:ENTRIES",136
15510 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$
15520 GET #1,Z
15530 A4=VAL(AA4$):A5=VAL(AA5$):A6=VAL(AA6$):A7=VAL(AA7$):A8=VAL(AA8$)
15540 A9=VAL(AA9$):A10=VAL(AA10$):A11=VAL(AA11$)
15550 IF EOF(1) GOTO 15600
15560 Z=Z+1
15570 CLOSE #1
15580 RETURN
15600 CLOSE #1
15610 IMAG$="\                                                         \$$#####.##"
15620 OPEN "R",#1,"B:BALANCE",58
15630 FIELD #1,9 AS X1$,9 AS X2$,9 AS X3$,9 AS X4$,9 AS X5$,9 AS X6$,4 AS ZZ$
15640 GET #1,1
15650 IF A=1 THEN X1=CVD(X1$)
15660 IF A=2 THEN X1=CVD(X2$)
15670 IF A=3 THEN X1=CVD(X3$)
15680 CLOSE #1
15690 IF B$="YES" THEN LPRINT "  "
15700 PRINT USING IMAG$;"          CHECKBOOK BALANCE";X1
15710 PRINT
15720 IF B$="YES" THEN LPRINT USING IMAG$;"              CHECKBOOK BALANCE";X1
15730 AA4=AA4+X1
15740 IF B$="YES" THEN LPRINT
15750 IF B$="YES" THEN LPRINT USING IMAG$;"                   BANK BALANCE";AA4
15760 PRINT USING IMAG$;"                       BANK BALANCE";AA4 
15770 IF B$<>"YES" THEN GOTO 15790
15780 O=66-(Q+4):FOR N=1 TO O:LPRINT:NEXT N
15790 INPUT "PRESS RETURN TO CONTINUE";Q
15795 GOTO 40
15800 IF AD$="N" THEN GOTO 15820
15810 GOTO 15240
15820 GOSUB 1400
15830 GOTO 15240
15850 IF AD$="N" THEN GOTO 15870
15860 GOTO 15240
15870 GOSUB 1500
15880 GOTO 15240
15900 IF AD$="N" THEN GOTO 15920
15910 GOSUB 15240
15920 GOSUB 1600
15930 GOTO 15240

15870 GOSUB 1500
15880 GOTO 15240
