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