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