5 MAXFILES=2:GOTO2000
10 OPEN"wtb"FORINPUTAS2
20 OPEN"cj"FORINPUTAS1
23 IFEOF(2)GOTO210
25 INPUT#2,C2$,T$,U,V,W,X,Y:LPRINT"CAT ";C2$;"   ";T$:LPRINT:LC=LC+2
30 IFEOF(1)GOTO150
40 A$=" ":B$=" ":C$=" ":D$=" ":E$=" ":F=0:G=0:INPUT#1,A$,B$,C$,D$,E$,F,G:IF C$="SB"THENGOTO30
45 IFSTR$(VAL(C$))<>STR$(VAL(C2$))GOTO30
50 LPRINTTAB(3)A$;TAB(13);B$;TAB(40);D$;TAB(45);
60 IFF>0THENLPRINTUSING"######.##";F;
70 IFG>0THENLPRINTUSING"          ######.##";G;
75 FSUM=FSUM+F:GSUM=GSUM+G
80 LPRINT:LC=LC+1:IFLC>54THENLPRINTCHR$(12):LC=1
90 GOTO30
150 LPRINT:LPRINTTAB(55)"Sub-Total";TAB(64)USING"#######.##";FSUM-GSUM:LC=LC+2
160 IFLC>54THENLPRINTCHR$(12):LC=1
180 TF=TF+FSUM:FSUM=0:TG=TG+GSUM:GSUM=0:CLOSE#1:GOTO20
210 LPRINT:LPRINTTAB(40)"Total Debits   =";TAB(60)USING"$$#########.##";TF
220 LPRINTTAB(40)"Totals Credits =";TAB(60)USING"$$#########.##";-TG
230 LPRINTTAB(40)"Ledger Totals  =";TAB(60)USING"$$#########.##";TF-TG
250 LPRINTCHR$(12):GOTO2000
730 ONERRORGOTO2050:OPEN"cj"FORINPUTAS1:CLOSE
750 LPRINT:LPRINTTAB(30)"Check Ledger"
760 LPRINTTAB(29)"As Of ";DATE$:LPRINT:LPRINT:LPRINT:LPRINTTAB(48)"Checks";TAB(56)"Deposits":LC=7
780 GOTO10
2000 CLEAR:CLS:PRINT"SELECT:":PRINT
2030 PRINTTAB(10)"E]xit":PRINTTAB(10)"P]rint Ledgers"
2040 ONINSTR("EePp",INPUT$(1))GOTO2045,2045,730,730:GOTO2040
2045 CLOSE:MAXFILES=1:MENU
2050 CLS:PRINT:PRINT:PRINT:PRINT"     THERE IS A MISSING CJ.DO OR WTB.DO":INPUT"     HIT <CR> TO CONTINUE";Z$:GOTO5