home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / gldgr.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  21 lines
  1. 0 'GLDGR.BA - BY J. KAPLAN                 CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 MAXFILES=2:GOTO16
  3. 2 OPEN"wtb"FORINPUTAS2
  4. 3 OPEN"cj"FORINPUTAS1:IFEOF(2)GOTO14
  5. 4 INPUT#2,C2$,T$,U,V,W,X,Y:LPRINT"CAT ";C2$;"   ";T$:LPRINT:LC=LC+2
  6. 5 IFEOF(1)GOTO12
  7. 6 A$=" ":B$=" ":C$=" ":D$=" ":E$=" ":F=0:G=0:INPUT#1,A$,B$,C$,D$,E$,F,G:IF C$="SB"THENGOTO5
  8. 7 IFSTR$(VAL(C$))<>STR$(VAL(C2$))GOTO5
  9. 8 LPRINTTAB(3)A$;TAB(13);B$;TAB(40);D$;TAB(45);:IFF>0THENLPRINTUSING"######.##";F;
  10. 9 IFG>0THENLPRINTUSING"          ######.##";G;
  11. 10 FSUM=FSUM+F:GSUM=GSUM+G:LPRINT:LC=LC+1:IFLC>54THENLPRINTCHR$(12):LC=1
  12. 11 GOTO5
  13. 12 LPRINT:LPRINTTAB(55)"Sub-Total";TAB(64)USING"#######.##";FSUM-GSUM:LC=LC+2:IFLC>54THENLPRINTCHR$(12):LC=1
  14. 13 TF=TF+FSUM:FSUM=0:TG=TG+GSUM:GSUM=0:CLOSE#1:GOTO3
  15. 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
  16. 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
  17. 16 CLEAR:CLS:PRINT"SELECT:":PRINT:PRINTTAB(10)"E]xit":PRINTTAB(10)"P]rint Ledgers"
  18. 17 ONINSTR("EePp",INPUT$(1))GOTO18,18,15,15:GOTO17
  19. 18 CLOSE:MAXFILES=1:MENU
  20. 19 CLS:PRINT:PRINT:PRINT:PRINT"     THERE IS A MISSING CJ.DO OR WTB.DO":INPUT"     HIT <CR> TO CONTINUE";Z$:GOTO1
  21.