home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / glpost.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  42 lines
  1. 0 'GLPOST.BA - BY J. KAPLAN
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 MAXFILES=3:GOTO38
  4. 3 CLS:PRINT@135,"Posting":OPEN"TEMP"FOROUTPUTAS3:OPEN"WTB"FORINPUTAS2
  5. 4 OPEN"CJ"FORINPUTAS1:IFEOF(2)THENCLOSE:NAME"WTB.DO"AS"LASTMO.DO":NAME"TEMP.DO"AS"WTB.DO":GOTO38
  6. 5 GOSUB30
  7. 6 GOSUB32:IFC$<>C2$GOTO6
  8. 7 FSUM=FSUM+F:GSUM=GSUM+G:GOTO6
  9. 8 X=FSUM:Y=GSUM:V=V+X:W=W+Y:PRINT#3,C2$;",";T$;",";U;V;W;X;Y:FSUM=0:GSUM=0:CLOSE#1:GOTO4
  10. 9 OPEN"WTB"FORINPUTAS2:CLS:PRINT@135,"Posting"
  11. 10 GOSUB30:IFC2$<"500"GOTO10
  12. 11 VSUM=VSUM+V:WSUM=WSUM+W:IFEOF(2)GOTO13
  13. 12 GOSUB30:GOTO11
  14. 13 P=VSUM-WSUM:CLOSE:OPEN"WTB"FORINPUTAS2:OPEN"TEMP"FOROUTPUTAS1
  15. 14 IFEOF(2)THENCLOSE:NAME"WTB.DO"AS"LASTYR.DO":NAME"TEMP.DO"AS"WTB.DO":GOTO38
  16. 15 GOSUB29:IFC2$="410"ORT$="Retained Earnings"THENV=V+P
  17. 16 IFC2$<"500"THENU=U+V-W:V=0:W=0:X=0:Y=0
  18. 17 IFC2$>="500"THENU=0:V=0:W=0:X=0:Y=0
  19. 18 GOSUB31:GOTO14
  20. 19 OPEN"WTB"FORINPUTAS1:INPUT#1,A$,B$:CLOSE:IFA$="000"THENH$=B$
  21. 20 IFH$=""THENCLS:PRINT"  Use No Commas":INPUT"Enter Company Name or Title (use no commas)";H$
  22. 21 CLS:PRINT"  Use No Commas":INPUT"Enter Time Period";DA$:OPEN"WTB"FORINPUTAS2:S$="######.##":LPRINTDATE$:LPRINTSPACE$((80-LEN(H$))/2);H$
  23. 22 LPRINTTAB(29);"Working Trial Balance":LPRINTSPACE$((80-LEN(DA$))/2);DA$:LPRINT:LPRINT:LPRINTTAB(38)"Debits";TAB(52)"Credits":LPRINT:LC=7
  24. 23 IFLC>54THENLPRINTCHR$(12):LC=0
  25. 24 IFEOF(2)GOTO28
  26. 25 GOSUB30:IFC2$="000"GOTO25
  27. 26 LPRINTC2$;TAB(5);T$;:N=0:M=U+V-W:IFM<0THENN=-M:M=0
  28. 27 MSUM=MSUM+M:NSUM=NSUM+N:GOSUB35:GOTO23
  29. 28 LPRINTTAB(35);"---------";TAB(50);"---------":M=MSUM:N=NSUM:GOSUB35:LPRINTTAB(35);"=========";TAB(50);"=========";:LPRINTCHR$(12):GOTO38
  30. 29 IFEOF(2)GOTO38
  31. 30 INPUT#2,C2$,T$,U,V,W,X,Y:RETURN
  32. 31 PRINT#1,C2$;",";T$;",";U;V;W;X;Y:RETURN
  33. 32 IFEOF(1)GOTO8
  34. 33 A$=" ":B$=" ":C$=" ":D$=" ":E$=" ":F=0:G=0:INPUT#1,A$,B$,C$,D$,E$,F,G:IF C$="sb"THENGOTO32
  35. 34 RETURN
  36. 35 IFM>0THENLPRINTTAB(35);USINGS$;M;
  37. 36 IFN>0THENLPRINTTAB(50);USINGS$;N;
  38. 37 LPRINT:LC=LC+1:RETURN
  39. 38 CLEAR:CLS:PRINT"SELECT:":PRINT:PRINTTAB(10)"P]ost Current Period":PRINTTAB(10)"Y]ear End Closing":PRINTTAB(10)"W]TB Print Out":PRINTTAB(10)"E]xit"
  40. 39 ONINSTR("  PpYyWwEe",INKEY$)GOTO39,39,3,3,9,9,19,19,40,40:GOTO39
  41. 40 CLOSE:MAXFILES=1:MENU:END
  42.