Index
TOC
K.I.S.S. Bird Business Accounting System
written in
GW-Basic
This is a small K.I.S.S. bird business income and expense
tracking program that was written for my son. Naturally he
never used it, he just used his credit card statements
instead. (smartass..) that never occured to me...
Anyhow, you just fill in the inline data statements with
your expenses or income and it automatically does a Profit
and Loss statement for you. Kind of handy, if you need that
sort of thing... (he didn't)
kept the total transactions to about 100 or so a year, but
you can go much higher if you need to and naturally, you can
use it for other things as well. (some people's kids...)
1 VIEW PRINT:KEY 7, "run"+CHR$(34)+"menu"+CHR$(13)
2 CLS:X=25: 'sets the tabular spacing for the P&L statement.
3 ' K.I.S.S. Bird Business Accounting
4 ' written by Dad for "******* *******"
5 ' during February 12, 1996
6 '
7 READ TNO,DAY$,TRAN$,PERS$,ACCT$,AMT,RATE,MIL,HR,NOTE$
8 IF TNO=999 THEN 22
9 '
10 ' Add up all the different accounts and store them to memory variables.
11 '
12 IF ACCT$="EXP" THEN TEXP=TEXP+AMT
13 IF ACCT$="PUR" THEN TPUR=TPUR+AMT
14 IF ACCT$="SAL" THEN TSAL=TSAL+AMT
15 IF ACCT$="SAL" THEN TAXOD=TAXOD+(AMT*RATE)
16 IF ACCT$="RIP" THEN TRIP=TRIP+AMT
17 TMIL=TMIL+MIL
18 THR=THR+HR
19 IF PERS$<>"" THEN TCOUNT=TCOUNT+1
20 'PRINT TNO;DAY$;TRAN$;PERS$;ACCT$;AMT;RATE;MIL;HR;NOTE$
21 GOTO 7
22 PRINT TAB(X)"******* ******* Bird Business"
23 PRINT TAB(X)" K.I.S.S. Accounting":PRINT
24 PRINT TAB(X)"YTD Income & Expense Report"
25 PRINT TAB(X)" as of: ";:PRINT DATE$:PRINT
26 PRINT TAB(X)"Sales ";:PRINT USING "$$###";TSAL
27 PRINT TAB(X)" Expenses ";:PRINT USING "#####";TEXP
28 PRINT TAB(X)" Purchases ";:PRINT USING "#####";TPUR
29 PRINT TAB(X)" Tax owing ";:PRINT USING "#####";TAXOD
30 PRINT TAB(X)" Mileage ";:PRINT USING "#####";TMIL*.275
31 PRINT TAB(X)" ------"
32 NPROFIT = TSAL-TEXP-TPUR-TAXOD-TMIL*.275
33 PRINT TAB(X)"Net Profit ";:PRINT USING "$######,";NPROFIT
34 IF NPROFIT < 0 THEN PRINT TAB(X)"No federal taxes owing" ELSE PRINT TAB(X)"After taxes ";:PRINT USING "$$###";NPROFIT*.8
35 THOURS = ((VAL(DATE$)-1)*31)+VAL(MID$(DATE$,4,2))+THR
36 ' Calcs hourly rate depending
37 PRINT TAB(X)"Total Labor ";THOURS;:PRINT"hours"
38 IF NPROFIT > 0 THEN HWAGE=NPROFIT*.8/THOURS ELSE HWAGE=NPROFIT/THOURS
39 PRINT TAB(X)"Actual wages ";:PRINT USING "$$##.##";HWAGE;:PRINT"/hour"
40 PRINT TAB(X)"Based on ";TCOUNT;" transactions"
41 A$="$#####,"
42 PRINT TAB(X)"YTD bird deaths = ";:PRINT USING A$;TRIP
43 PRINT TAB(X)"Income + Bird deaths = ";
44 IF NPROFIT > 0 THEN PRINT USING A$;(NPROFIT*.8)-TRIP
45 IF NPROFIT < 0 THEN PRINT USING A$;NPROFIT-TRIP
46 PRINT"f7=exit"
47 GOSUB 149
48 ' ----------------data starts here------------------
49 ' TNO DATE TRANSACTION PERSON ACC AMT RATE MIL HR NOTES
50 DATA 01,Jan06,MonkeyChow ,Ford ,EXP ,34 , ,10 , 1,
51 DATA 02, , , , , , , , ,
52 DATA 03, , , , , , , , ,
53 DATA 04, , , , , , , , ,
54 DATA 05, , , , , , , , ,
55 DATA 06, , , , , , , , ,
56 DATA 07, , , , , , , , ,
57 DATA 08, , , , , , , , ,
58 DATA 09, , , , , , , , ,
59 DATA 10, , , , , , , , ,
60 DATA 11, , , , , , , , ,
61 DATA 12, , , , , , , , ,
62 DATA 13, , , , , , , , ,
63 DATA 14, , , , , , , , ,
64 DATA 15, , , , , , , , ,
65 DATA 16, , , , , , , , ,
66 DATA 17, , , , , , , , ,
67 DATA 18, , , , , , , , ,
68 DATA 19, , , , , , , , ,
69 DATA 20, , , , , , , , ,
70 DATA 21, , , , , , , , ,
71 DATA 22, , , , , , , , ,
72 DATA 23, , , , , , , , ,
73 DATA 24, , , , , , , , ,
74 DATA 25, , , , , , , , ,
75 DATA 26, , , , , , , , ,
76 DATA 27, , , , , , , , ,
77 DATA 28, , , , , , , , ,
78 DATA 29, , , , , , , , ,
79 DATA 30, , , , , , , , ,
80 DATA 31, , , , , , , , ,
81 DATA 32, , , , , , , , ,
82 DATA 33, , , , , , , , ,
83 DATA 34, , , , , , , , ,
84 DATA 35, , , , , , , , ,
85 DATA 36, , , , , , , , ,
86 DATA 37, , , , , , , , ,
87 DATA 38, , , , , , , , ,
88 DATA 39, , , , , , , , ,
89 DATA 40, , , , , , , , ,
90 DATA 41, , , , , , , , ,
91 DATA 42, , , , , , , , ,
92 DATA 43, , , , , , , , ,
93 DATA 44, , , , , , , , ,
94 DATA 45, , , , , , , , ,
95 DATA 46, , , , , , , , ,
96 DATA 47, , , , , , , , ,
97 DATA 48, , , , , , , , ,
98 DATA 49, , , , , , , , ,
99 DATA 50, , , , , , , , ,
100 DATA 51, , , , , , , , ,
101 DATA 52, , , , , , , , ,
102 DATA 53, , , , , , , , ,
103 DATA 54, , , , , , , , ,
104 DATA 55, , , , , , , , ,
105 DATA 56, , , , , , , , ,
106 DATA 57, , , , , , , , ,
107 DATA 58, , , , , , , , ,
108 DATA 59, , , , , , , , ,
109 DATA 60, , , , , , , , ,
110 DATA 61, , , , , , , , ,
111 DATA 62, , , , , , , , ,
112 DATA 63, , , , , , , , ,
113 DATA 64, , , , , , , , ,
114 DATA 65, , , , , , , , ,
115 DATA 66, , , , , , , , ,
116 DATA 67, , , , , , , , ,
117 DATA 68, , , , , , , , ,
118 DATA 69, , , , , , , , ,
119 DATA 70, , , , , , , , ,
120 DATA 71, , , , , , , , ,
121 DATA 72, , , , , , , , ,
122 DATA 73, , , , , , , , ,
123 DATA 74, , , , , , , , ,
124 DATA 75, , , , , , , , ,
125 DATA 76, , , , , , , , ,
126 DATA 77, , , , , , , , ,
127 DATA 78, , , , , , , , ,
128 DATA 79, , , , , , , , ,
129 DATA 80, , , , , , , , ,
130 DATA 81, , , , , , , , ,
131 DATA 82, , , , , , , , ,
132 DATA 83, , , , , , , , ,
133 DATA 84, , , , , , , , ,
134 DATA 85, , , , , , , , ,
135 DATA 86, , , , , , , , ,
136 DATA 87, , , , , , , , ,
137 DATA 88, , , , , , , , ,
138 DATA 999,,,,,,,,,
139 ' save "birdbiz.bas",a
140 ' RENUM ,,
141 END
142 ' -----------------------OTHER NOTES--------------------------------
143 '
144 '
145 '
146 ' ' save "(c/d/e/f:(directory/biz.bas",a
147 END
148 RUN"menu
149 PRINT " Your 'hobby' cost you about $nn/day or $nnn/month for 199n."
150 PRINT " Cashflow averages about -$nnn per month. ...dad"
151 RETURN
TOP
Index
TOC