home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
bus
/
gldgr.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
1KB
|
21 lines
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 <CR> TO CONTINUE";Z$:GOTO1