0 'GL100.BA - BY J. KAPLAN CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 1 GOSUB68:S$="######.##":GOTO64 2 IFH$=""THENGOSUB66 3 GOSUB67:GOSUB63:OPEN"WTB"FORINPUTAS1 4 IFEOF(1)THENCLOSE:GOTO7 5 GOSUB48:IFA$>="500"ANDA$<"600"THENGOSUB54 6 GOTO4 7 I1=WSUM-VSUM:I2=YSUM-XSUM:GOSUB63:LPRINTTAB(32)"Income Statement":LPRINTTAB((80-LEN(H$))/2);H$:LPRINTTAB((80-LEN(DA$))/2);DA$:LPRINT:LPRINT 8 LPRINTTAB(30)"Year To Date"TAB(45)"Percent"TAB(55)"Current Period"TAB(70)"Percent":LPRINT"Income":LC=7:OPEN"WTB"FORINPUTAS1 9 IFEOF(1)THENEND 10 GOSUB48:IFA$<"500"GOTO9 11 IFA$<"600"THENGOSUB57:GOTO9 12 IFA$>="600"GOTO16 13 IFEOF(1)GOTO19 14 GOSUB48:IFA$<"800"GOTO13 15 GOSUB60:GOTO13 16 GOSUB55:LPRINTTAB(6)"Total Income";:LPRINTTAB(30)USINGS$;WSUM-VSUM;:IFI1<>0THENLPRINTTAB(42)USINGS$;((WSUM-VSUM)*100)/I1; 17 LPRINTTAB(55)USINGS$;YSUM-XSUM;:IFI2<>0THENLPRINTTAB(67)USINGS$;((YSUM-XSUM)*100)/I2; 18 LPRINT:GOSUB55:LPRINT:LPRINT"Expenses":GOSUB63:GOSUB60:GOTO13 19 GOSUB55:LPRINTTAB(6)"Total Expenses";TAB(30)USINGS$;VSUM-WSUM;:IFI1<>0THENLPRINTTAB(42)USINGS$;((VSUM-WSUM)*100)/I1; 20 LPRINTTAB(55)USINGS$;XSUM-YSUM;:IFI2<>0THENLPRINTTAB(67)USINGS$;((XSUM-YSUM)*100)/I2; 21 LPRINT:GOSUB55:LPRINTTAB(9)"Net Income";TAB(30)USINGS$;I1+WSUM-VSUM;:IFI1<>0THENLPRINTTAB(42)USINGS$;((I1+WSUM-VSUM)*100)/I1; 22 LPRINTTAB(55)USINGS$;I2+YSUM-XSUM;:IFI2<>0THENLPRINTTAB(67)USINGS$;((I2+YSUM-XSUM)*100)/I2; 23 LPRINT:GOSUB56:LPRINTCHR$(12):CLOSE:GOTO64 24 IFH$=""THENGOSUB66 25 GOSUB67:GOSUB63:OPEN"WTB"FORINPUTAS1 26 GOSUB47:IFA$<"500"GOTO26 27 GOSUB49:GOTO26 28 CLOSE:P1=WSUM-VSUM:P2=YSUM-XSUM:GOSUB63:LPRINTTAB(33)"Balance Sheet":LPRINTTAB((80-LEN(H$))/2)H$:LPRINTTAB((80-LEN(DA$))/2)DA$:LPRINT:LPRINTTAB(37)"ASSETS":LPRINT:LPRINT"Current Assets":LC=7:OPEN"WTB"FORINPUTAS1 29 GOSUB47:IFA$="000"GOTO29 30 IFA$<"150"THENGOSUB49:N=U+V-W:GOSUB45:GOTO29 31 ST=USUM+VSUM-WSUM:LPRINTTAB(6)"Total Current Assets";:GOSUB50:GOSUB51:LPRINT"Other Assets":LC=LC+1:GOTO33 32 GOSUB47 33 IFA$<"200"THENGOSUB49:N=U+V-W:GOSUB45:GOTO32 34 ST=-ST+USUM+VSUM-WSUM:LPRINTTAB(6)"Total Other Assets";:GOSUB50:GOSUB51:ST=USUM+VSUM-WSUM:LPRINTTAB(6)"Total Assets";:GOSUB50:GOSUB52:GOSUB63:LPRINT:LPRINTTAB(35)"LIABILITIES":LC=LC+2:LPRINT"Current Liabilities":LC=LC+1:GOTO36 35 GOSUB47 36 IFA$<"350"THENGOSUB49:N=-U+W-V:GOSUB45:GOTO35 37 ST=-USUM+WSUM-VSUM:LPRINTTAB(6)"Total Current Liabilities";:GOSUB50:GOSUB51:LPRINT"Long Term Liabilities":LC=LC+1:GOTO39 38 GOSUB47 39 IFA$<"400"THENGOSUB49:N=-U+W-V:GOSUB45:GOTO38 40 ST=-ST-USUM+WSUM-VSUM:LPRINTTAB(6)"Total Long Term Liabilities";:GOSUB50:GOSUB51:ST=-USUM+WSUM-VSUM:LPRINTTAB(6)"Total Liabilities";:GOSUB50:LPRINT:LPRINT:LPRINT"Equity":LC=LC+3:GOTO42 41 GOSUB47 42 IFA$="410"ORB$="Retained Earnings"THENW=W+P1:Y=Y+P2 43 IFA$<"500"THENGOSUB49:N=-U+W-V:GOSUB45:GOTO41 44 ST=-ST-USUM+WSUM-VSUM:LPRINTTAB(6)"Total Equity";:GOSUB50:GOSUB51:ST=-USUM+WSUM-VSUM:LPRINTTAB(6)"Total Liabilities & Equity";:GOSUB50:GOSUB52:CLOSE:LPRINTCHR$(12):GOTO64 45 LPRINTTAB(3)B$;TAB(45);:LPRINTUSINGS$;N:LC=LC+1:IFLC>54THENLPRINTCHR$(12):LC=0 46 RETURN 47 IFEOF(1)GOTO28 48 INPUT#1,A$,B$,U,V,W,X,Y:RETURN 49 USUM=USUM+U:VSUM=VSUM+V:WSUM=WSUM+W:RETURN 50 LPRINTTAB(55)USINGS$;ST:LC=LC+1:RETURN 51 LPRINTTAB(55)"---------":LC=LC+1:RETURN 52 LPRINTTAB(55)"=========":LPRINT:LC=LC+2:IFLC>25THENLPRINTCHR$(12):LC=0 53 RETURN 54 USUM=USUM+U:VSUM=VSUM+V:WSUM=WSUM+W:XSUM=XSUM+X:YSUM=YSUM+Y:RETURN 55 LPRINTTAB(30)"---------"TAB(45)"------"TAB(55)"---------"TAB(70)"------":RETURN 56 LPRINTTAB(30)"========="TAB(45)"======"TAB(55)"========="TAB(70)"======":RETURN 57 LPRINTTAB(3)B$TAB(30)USINGS$;(W-V);:IFI1<>0THENLPRINTTAB(42)USINGS$;((W-V)*100)/I1; 58 LPRINTTAB(55)USINGS$;(Y-X);:GOSUB54:IFI2<>0THENLPRINTTAB(67)USINGS$;((Y-X)*100)/I2; 59 LPRINT:RETURN 60 LPRINTTAB(3)B$TAB(30)USINGS$;(V-W);:IFI1<>0THENLPRINTTAB(42)USINGS$;((V-W)*100)/I1; 61 LPRINTTAB(55)USINGS$;(X-Y);:GOSUB54:IFI2<>0THENLPRINTTAB(67)USINGS$;((X-Y)*100)/I2; 62 LPRINT:RETURN 63 USUM=0:VSUM=0:WSUM=0:XSUM=0:YSUM=0:RETURN 64 CLS:PRINT"SELECT REPORT":PRINT:PRINT:PRINTTAB(10)"I]ncome Statement":PRINTTAB(10)"B]alance Sheet":PRINTTAB(10)"E]xit" 65 ONINSTR(" IiBbEe",INKEY$)GOTO65,65,2,2,24,24,70,70:GOTO65 66 CLS:PRINT" Use No Commas":INPUT"Enter Company Name or Title";H$:RETURN 67 CLS:PRINT" Use No Commas":INPUT"Enter Date(s)";DA$:RETURN 68 OPEN"WTB"FORINPUTAS1:GOSUB48:CLOSE:IFA$="000"THENH$=B$ 69 RETURN 70 MENU