0 REM Patch for glchek.ba by Richard Nehrbass 11/29/91 1 CLEAR1000:MAXFILES=3:GOTO59 59 CLEAR:S$="########.##":T$=" $$########.##":CLS:PRINT"E]xit or:":PRINTTAB(10)"I]nput Data":PRINTTAB(10)"C]heck Balance":PRINTTAB(10)"P]rint Journal":PRINTTAB(10)"S]tatement Check":PRINTTAB(10)"R]econciliation":PRINTTAB(10)"D]elete cleared items" 60 ONINSTR(" IiCcEePpSsRrDd",INKEY$)GOTO60,60,24,24,3,3,61,61,40,40,45,45,2,2,78,78:GOTO60 78 CLS:PRINT:PRINT:PRINT:PRINTTAB(17)"WORKING":OPEN"cj"FORINPUTAS1:OPEN"temp"FOROUTPUTAS2:OPEN"old"FOROUTPUTAS3 79 GOSUB70:IFEOF(1)THENGOTO83 80 INPUT#1,A$,B$,C$,D$,E$,F,G:IFE$<>""GOTO82 81 PRINT#2,A$;",";B$;",";C$;",";D$;",";E$;",";F;",";G:GOTO79 82 FSUM=FSUM+F:GSUM=GSUM+G:PRINT#3,A$;",";B$;",";C$;",";D$;",";E$;",";F;",";G:GOTO79 83 IFFSUM>=GSUMTHENFSUM=FSUM-GSUM:GSUM=0 84 IFGSUM>=FSUMTHENGSUM=GSUM-FSUM:FSUM=0 85 C$="SB":B$="starting balance":E$="X":A$=DATE$:F=FSUM:G=GSUM 86 PRINT#2,A$;",";B$;",";C$;",";D$;",";E$;",";F;",";G:CLOSE:KILL"cj.do":NAME"temp.do"AS"cj.do":GOTO59