0 'GLDGR.BA - BY J. KAPLAN CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 1 MAXFILES=2:GOTO16 2 OPEN"wtb"FORINPUTAS2 3 OPEN"cj"FORINPUTAS1:IFEOF(2)GOTO14 4 INPUT#2,C2$,T$,U,V,W,X,Y:LPRINT"CAT ";C2$;" ";T$:LPRINT:LC=LC+2 5 IFEOF(1)GOTO12 6 A$=" ":B$=" ":C$=" ":D$=" ":E$=" ":F=0:G=0:INPUT#1,A$,B$,C$,D$,E$,F,G:IF C$="SB"THENGOTO5 7 IFSTR$(VAL(C$))<>STR$(VAL(C2$))GOTO5 8 LPRINTTAB(3)A$;TAB(13);B$;TAB(40);D$;TAB(45);:IFF>0THENLPRINTUSING"######.##";F; 9 IFG>0THENLPRINTUSING" ######.##";G; 10 FSUM=FSUM+F:GSUM=GSUM+G:LPRINT:LC=LC+1:IFLC>54THENLPRINTCHR$(12):LC=1 11 GOTO5 12 LPRINT:LPRINTTAB(55)"Sub-Total";TAB(64)USING"#######.##";FSUM-GSUM:LC=LC+2:IFLC>54THENLPRINTCHR$(12):LC=1 13 TF=TF+FSUM:FSUM=0:TG=TG+GSUM:GSUM=0:CLOSE#1:GOTO3 14 LPRINT:LPRINTTAB(40)"Total Debits =";TAB(60)USING"$$#########.##";TF:LPRINTTAB(40)"Totals Credits =";TAB(60)USING"$$#########.##";-TG:LPRINTTAB(40)"Ledger Totals =";TAB(60)USING"$$#########.##";TF-TG:LPRINTCHR$(12):GOTO16 15 ONERRORGOTO19:OPEN"cj"FORINPUTAS1:CLOSE:LPRINT:LPRINTTAB(30)"Check Ledger":LPRINTTAB(29)"As Of ";DATE$:LPRINT:LPRINT:LPRINT:LPRINTTAB(48)"Checks";TAB(56)"Deposits":LC=7:GOTO2 16 CLEAR:CLS:PRINT"SELECT:":PRINT:PRINTTAB(10)"E]xit":PRINTTAB(10)"P]rint Ledgers" 17 ONINSTR("EePp",INPUT$(1))GOTO18,18,15,15:GOTO17 18 CLOSE:MAXFILES=1:MENU 19 CLS:PRINT:PRINT:PRINT:PRINT" THERE IS A MISSING CJ.DO OR WTB.DO":INPUT" HIT TO CONTINUE";Z$:GOTO1