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