home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
bus
/
glpatc.100
< prev
next >
Wrap
Text File
|
2006-10-19
|
1KB
|
14 lines
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