start tok64 d64-LMrRqB
2 REM:
3 REM:  computer ed. software
4 REM:  1002 brookes avenue west
5 REM:  san diego, ca. 92103
6 REM:  (619) 291-4344
7 REM:
10 CLR:RESTORE:POKE53280,0:POKE53281,0:
11 GOSUB347:GOSUB217:PRINT"{reverse on}{light green}{space*7}hot accounts, version 1.00{reverse off}"
12 PRINT"{down*12}{light gray}self-running demo{space*9}copyright 1984"
13 PRINT"{up}computer ed.{space*9}all rights reserved{down*2}":PRINT"time 12:17"
14 FORww=1TO3500:NEXT:GOSUB350:GOSUB445:GOSUB677
15 PRINT"{clear}{yellow}main directory{space*2}{down}":GOSUB216
16 PRINT"{yellow}0{cyan}{space*2}open the first set of ledger files":GOSUB216
17 PRINT"{yellow}1{white}{space*2}*{cyan} add new account no. & description":GOSUB216
18 PRINT"{yellow}2{white}{space*2}*{cyan} post new expenses to ledger":GOSUB216
19 PRINT"{yellow}3{white}{space*2}*{cyan} deposit revenue to the accounts":GOSUB216
20 PRINT"{yellow}4{cyan}{space*2}research information & create reports{up}":GOSUB216
21 PRINT"{yellow}5{cyan}{space*2}monthly income statement and balances{up}":GOSUB216
22 PRINT"{yellow}6{cyan}{space*2}end of period accounting transactions{up}":GOSUB216
23 PRINT"{yellow}7{cyan}{space*2}journal adjustments - deletions":GOSUB216
24 PRINT"{yellow}8{cyan}{space*2}file maintenance/record sorting":GOSUB216
25 PRINT"{yellow}9{cyan}{space*2}back-up (duplicate) files{space*2}":GOSUB216:GOSUB677:POKE54296,0
26 GOTO355
27 PRINTTAB(22)"{reverse on}chart of{space*7}":PRINTTAB(22)"{reverse on}accounts file{space*2}":RETURN
28 PRINTTAB(22)"{reverse on}bookkeeping{space*4}":PRINTTAB(22)"{reverse on}files{space*10}";"{home}":RETURN
29 PRINTTAB(22)"{reverse on} cash & revenue":PRINTTAB(22);"{reverse on} file{space*10}":RETURN
30 PRINTTAB(22)"{reverse on} ledger{space*8}":PRINTTAB(22)"{reverse on} expense files ":RETURN
31 PRINT"{yellow}{space*8}press any key to continue";:RETURN
32 GOSUB444:GOSUB444:GOSUB444:GOTO15
33 RETURN
34 RETURN
35 PRINT"{down}{cyan}":GOSUB55:FORx=1TOj%:GOSUB38:NEXT
36 GOTO40
37 PRINT"{clear}{light green}chart of accounts":GOSUB216:RETURN
38 IFx=19ORx=38ORx=57ORx=76ORx=95ORx=114ORx=133ORx=152ORx=171ORx=190THEN41
39 PRINT"{white}";:PRINTq$(x);"{cyan} ";r$(x):RETURN
40 PRINT"{down}":CLR:GOTO90
41 PRINT:GOSUB31:GOSUB444:GOSUB37
42 PRINT"{cyan}":GOSUB39:RETURN
43 GOSUB37:RETURN
44 GOSUB347:GOSUB251:GOSUB250
45 PRINT"{cyan}account number ({x*3})":PRINT
46 GOSUB216
47 PRINT"{cyan}account title {yellow}":PRINT:GOSUB216:RETURN
48 GOSUB216
49 RETURN
50 FORi=1TO1000:NEXT:GOSUB323:GOTO44
51 INPUT#9,q$(x):INPUT#9,r$(x):RETURN
52 IFs$(x)>s$(j)THENGOSUB530
53 OPEN9,8,9,"chart,s,r":INPUT#9,j%:RETURN
54 PRINT"{home}{light green}file maintenance and record sorting":RETURN
55 GOSUB53:GOSUB325:FORx=1TOj%:GOSUB51:NEXT:CLOSE9:RETURN
56 GOSUB327:GOSUB326
57 FORx=1TOj%:GOSUB195:NEXT:CLOSE8:RETURN
58 RETURN
59 GOSUB177:FORx=1TOj%:GOSUB70:NEXT:CLOSE6:RETURN
60 FORx=(j%+1)TOjt%:GOSUB61:NEXT
61 GOSUB347:GOSUB252:GOSUB250
62 PRINT"{cyan}date of expenditure (mmddyy)"
63 PRINT:GOSUB216:PRINT"{cyan}type (cash-check-card-other)"
64 PRINT:GOSUB216:PRINT"{cyan}check number"
65 PRINT:GOSUB216:PRINT"{cyan}amount"
66 PRINT:GOSUB216:PRINT"{cyan}account code ({x*3})"
67 PRINT:GOSUB216
68 PRINT"{cyan}description":PRINT:GOSUB216:RETURN
69 ct$(x)=r$(y):CLOSE9:RETURN
70 INPUT#6,s$(x):INPUT#6,y$(x):INPUT#6,cd$(x):INPUT#6,dl$(x):INPUT#6,w$(x)
71 INPUT#6,ex$(x):INPUT#6,ct$(x):RETURN
72 tt=tt+VAL(dl$(x)):RETURN
73 am=tt:GOSUB212:tt$=am$:IFp=2THEN76
74 PRINTTAB(27);:FORi=1TO12:PRINT"{light green}-";:NEXT:PRINT
75 PRINTTAB(25);:FORi=1TO(14-LEN(tt$)):PRINT" ";:NEXT:PRINTtt$:GOSUB444
76 IFkc=2THENGOTO15
77 CLR:srd=6:GOTO15
78 RETURN
79 GOSUB323:GOTO61
80 PRINT"{white}";s$(x);
81 PRINT"{156} ";:IFy$(x)="$"THENPRINT"$$";
82 IFy$(x)="r"THENPRINT"{reverse on} {cm l}{reverse off}";
83 IFy$(x)="k"THENPRINT"IN";
84 IFy$(x)="o"THENPRINT"o.";
85 PRINT"{cyan} ";cd$(x);:PRINT"{gray} ";ct$(x);
86 PRINTTAB(29);"{light green}";:FORi=1TO(10-LEN(dl$(x))):PRINT" ";:NEXT:PRINTdl$(x)
87 IFy$(x)="r"ORy$(x)="$"ORy$(x)="o"THEN89
88 PRINTTAB(5);"{gray}ck# ";w$(x);
89 PRINTTAB(15);"{orange}";ex$(x):tt=VAL(dl$(x))+tt:RETURN
90 GOSUB177
91 FORx=1TOj%:GOSUB70:NEXT:tt$="0":CLOSE6:IFe=2THEN530
92 GOSUB176:PRINT:FORx=1TOj%:GOSUB149:GOSUB80:NEXT:GOSUB73:GOTO40
93 GOSUB120:GOSUB222
94 PRINT"{pink}":GOSUB245:GOSUB30:GOSUB125
95 GOSUB53:GOSUB325:DIMat(j%):b=j%:FORy=1TOb:INPUT#9,q$(y)
96 INPUT#9,r$(y):NEXT:CLOSE9:GOSUB59:FORy=1TOb:GOSUB106:NEXT
97 x=0:PRINT"{light green}":GOSUB245:GOSUB29:GOSUB125:GOSUB56:FORy=1TOb:GOSUB111
98 IFse=2THENNEXT:RETURN
99 IFe=2THENGOTO530
100 FORy=1TOb:v=VAL(q$(y)):IFv<300THENNEXT
101 IFv<500THENGOSUB119
102 NEXT:RETURN
103 FORy=1TOb:IFLEFT$(q$(y),1)="1"THENGOSUB119
104 IFVAL(LEFT$(q$(y),1))>4THENGOSUB119
105 NEXT
106 FORx=1TOj%:IFcd$(x)<>q$(y)THENNEXT
107 IFx>j%THENRETURN
108 IFe=2THENat(y)=at(y)+VAL(dl$(x)):NEXT:RETURN
109 IFLEFT$(s$(x),2)=m$THENat(y)=at(y)+VAL(dl$(x))
110 NEXT:RETURN
111 FORx=1TOj%:IFi$(x)<>q$(y)THENNEXT
112 IFx>j%THENRETURN
113 IFe=2THENat(y)=at(y)+VAL(n$(x)):NEXT:RETURN
114 IFLEFT$(o$(x),2)=m$THENat(y)=at(y)+VAL(n$(x))
115 NEXT:RETURN
116 tt=0:GOSUB56:FORx=1TOj%:IFLEFT$(o$(x),2)=m$THENGOSUB530
117 NEXT:GOSUB73:CLOSE7:GOTO15
118 tt=tt+VAL(n$(x)):RETURN
119 IFat(y)=0THENRETURN
120 PRINT"{clear}{light green}income statements & period balances":GOSUB216:RETURN
121 PRINTTAB(8);"2{space*2}back up files"
122 PRINT"{down*10}":GOTO189
123 PRINT"{clear}{light green}end program and back-up files":GOSUB216:RETURN
124 PRINT"{down*10}":GOSUB347:GOSUB31:GOSUB32:RETURN
125 PRINT"{reverse off}{up*2}reading. .":RETURN
126 GOSUB176:GOSUB225:GOSUB32
127 GOTO126
128 GOSUB176:GOSUB129:GOTO135
129 PRINT"select:";:PRINTTAB(8);"1{space*2}search by day of expense{down}"
130 PRINTTAB(8);"2{space*2}expenses of entire month{down}"
131 PRINTTAB(8);"3{space*2}ledger account number search{down}"
132 PRINTTAB(8);"4{space*2}amount search{down}"
133 PRINTTAB(8);"5{space*2}type (cash-check-card-other){down}"
134 PRINTTAB(8);"6{space*2}search by check number{down}":RETURN
135 GOSUB216
136 GOTO126
137 GOSUB176:PRINT"{yellow}";:GOSUB129:GOSUB32
138 GOTO137
139 s=1:GOSUB176
140 GOSUB177:GOSUB176
141 FORx=1TOj%:GOSUB70
142 IFp<>2THENGOSUB80
143 IFx=j%THEN147
144 FORx=(x+1)TOj%:GOSUB70
145 IFx>j%THEN147
146 IFp<>2THENGOSUB149:GOSUB80:NEXT
147 GOSUB73:CLOSE6:IFk=2THENGOTO530
148 GOTO189
149 l=l+1:g=(l+9)/9:g$=STR$(g):IFLEN(g$)>3THENRETURN
150 PRINT:GOSUB31:GOSUB444:GOSUB176:PRINT:RETURN
151 ss=2:FORs=1TO2:GOSUB176:IFs=2THENGOSUB530
152 IFs=1THENGOSUB530
153 PRINT"{yellow}";:GOSUB129:GOSUB32
154 IFp<>2THENGOSUB80
155 IFx=j%THEN147
156 FORx=(x+1)TOj%:GOSUB70
157 GOTO158
158 NEXT
159 IFx>j%THEN147
160 IFp<>2THENGOSUB149:GOSUB80:NEXT
161 GOSUB73:GOTO189
162 GOSUB176
163 GOTO162
164 GOTO167
165 e$=b$:GOTO167
166 GOSUB176
167 GOSUB327:GOSUB326
168 FORx=1TOj%:GOSUB195:IFo$(x)=e$ORi$(x)=e$ORn$(x)=e$THEN170
169 NEXT:CLOSE8:GOTO530
170 GOSUB224:PRINT"{down}":GOSUB199:IFx=j%THENGOTO175
171 FORx=(x+1)TOj%:GOSUB195:IFo$(x)=e$ORi$(x)=e$ORn$(x)=e$THEN173
172 NEXT
173 IFx>j%THENGOTO175
174 GOSUB199:NEXT
175 GOSUB203:GOTO189
176 PRINT"{clear}{light green}ledger information search":GOSUB216:RETURN
177 OPEN6,8,6,"expenses,s,r":INPUT#6,j%
178 DIMs$(j%),y$(j%),cd$(j%),dl$(j%),w$(j%),ex$(j%),ct$(j%):RETURN
179 f$(s)=b$:RETURN
180 RETURN
181 RETURN
182 PRINT"{down}":GOSUB339:RETURN
183 GOTO185
184 GOTO185
185 GOSUB53:GOSUB325:FORx=1TOj%:GOSUB51
186 IFq$(x)=e$ORr$(x)=e$THEN187
187 GOSUB176:PRINT"{down*2}{cyan}";q$(x);"{space*3}";r$(x):CLOSE9
188 FORi=1TO16:PRINT:NEXT
189 CLOSE6:CLOSE8:CLOSE9:PRINT"{down}":GOSUB31:GOSUB444:GOSUB444:CLR:GOTO510
190 GOSUB347:GOSUB253:GOSUB250:PRINT"{cyan}date of revenue receipt (mmddyy){down}":GOSUB216
191 PRINT"{cyan}ledger account number ({x*3})":PRINT:GOSUB216
192 PRINT"{cyan}amount":PRINT:GOSUB216:RETURN
193 IFde<.01ORde>999999.99THEN334
194 am=de:GOSUB212:n$(x)=am$:am$="":GOSUB216:RETURN
195 INPUT#8,o$(x):INPUT#8,i$(x):INPUT#8,n$(x):RETURN
196 GOSUB224:GOSUB244
197 FORx=1TOj%:GOSUB195:NEXT:CLOSE8:GOSUB205:FORx=1TOj%:GOSUB199:NEXT
198 GOTO202
199 IFx=19ORx=38ORx=57ORx=76ORx=95ORx=114ORx=133ORx=152ORx=171ORx=190THEN204
200 PRINT"{white}";:PRINTo$(x);"{cyan}{space*3}";i$(x);"{light green}{space*3}";
201 FORi=1TO(10-LEN(n$(x))):PRINT" ";:NEXT:PRINTn$(x):tt=tt+VAL(n$(x)):RETURN
202 GOSUB203:GOTO189
203 CLOSE8:PRINT"{down}{light gray}revenue total, $";tt:RETURN
204 PRINT:GOSUB31:GOSUB444:GOSUB224:PRINT:GOSUB200:RETURN
205 GOTO207
206 PRINT"{up*8}":GOTO205
207 GOSUB224:RETURN
208 GOSUB224:GOSUB222:GOSUB32
209 INPUT#8,j%:jt%=j%+jj%:DIMo$(jt%),i$(jt%),n$(jt%):z%=jt%
210 FORx=1TOj%:GOSUB195:NEXT:CLOSE8
211 FORx=(j%+1)TOjt%:GOSUB190:NEXT
212 am=(INT(am*100+.5))/100:t=0:t=t+am:t$=STR$(t):t$="{0*3}"+t$
213 IF MID$(t$,(LEN(t$)-1),1)="."THEN t$=t$+"0":GOTO215
214 IF MID$(t$,(LEN(t$)-2),1)<>"."THENt$=t$+".00"
215 am$=RIGHT$(t$,LEN(t$)-3):RETURN
216 FORi=1TO40:PRINT"{gray}C";:NEXT:RETURN
217 PRINT"{clear}":FORi=1TO40:PRINT"{green}{cm d}";:NEXT:FORi=1TO200:PRINT"{light green}{reverse on} ";:NEXT:FORi=1TO40
218 PRINT"{reverse off}{green}{cm y}";:NEXT:FORi=1TO12:PRINT:NEXT
219 PRINT:PRINT:PRINT:PRINT
220 PRINT"{up*20}{light green}";:RETURN
221 PRINT"{clear}":RETURN
222 PRINT"{yellow}{down*2}turn on printer":FORi=1TO18:PRINT:NEXT:GOSUB31:GOSUB32:RETURN
223 PRINT"{down*2}{yellow}printer routine running":RETURN
224 PRINT"{clear}{light green}revenue record":GOSUB216:RETURN
225 PRINT"{down*3}{yellow}select:{space*2}1{space*2}screen display{down}"
226 PRINT"{space*9}2{space*2}printed report":RETURN
227 FORx=1TOj%:GOSUB70:IFs$(x)=d$ANDdl$(x)=m$THEN530
228 NEXT:CLOSE6:GOTO229
229 IFk>0THEN530
230 IFk<>j%THENFORx=(k+1)TOj%:GOSUB530:NEXT
231 GOTO243
232 INPUT#9,j%
233 GOSUB325:FORx=1TOj%:GOSUB51:IFq$(x)=ak$THEN530
234 NEXT:CLOSE9:GOTO235
235 IFk>0THEN530
236 IFk<>j%THENFORx=(k+1)TOj%:GOSUB530:NEXT
237 GOTO243
238 FORx=1TOj%:GOSUB195:IFo$(x)=d$ANDn$(x)=m$THEN530
239 NEXT:CLOSE8:GOTO240
240 IFk>0THEN530
241 IFk<>j%THENFORx=(k+1)TOj%:GOSUB530:NEXT
242 GOTO243
243 GOTO328
244 GOSUB327:GOTO326
245 PRINT"{clear}";:PRINT:PRINTTAB(21);"{reverse on}{sh pound}{space*16}"
246 PRINTTAB(20);"{reverse on}{sh pound}{space*17}"
247 PRINT"{reverse on}U{C*37}{reverse off}{cm d}"
248 FORi=1TO20:PRINT"{reverse on}B{space*38}":NEXT
249 PRINT"{white}{reverse on}";"{up*23}";:RETURN
250 PRINT"{space*25}";"{white}no. 1 of 3":PRINT:GOSUB216:RETURN
251 PRINT"{clear}{light green}adding to the chart of accounts":GOSUB216:RETURN
252 PRINT"{clear}{light green}adding expenses to the ledger":GOSUB216:RETURN
253 PRINT"{clear}{light green}adding revenue to the ledger":GOSUB216:RETURN
254 RETURN
255 GOSUB287
256 c=d/5:GOSUB263
257 IFv<500THEN261
258 IFVAL(q$(y))>499THEN261
259 NEXT
260 GOTO15
261 s=INT(65*at(y)/d):IFat(y)=0THEN259
262 u=INT(at(y)/rt*100):u$=STR$(u):u$=u$+"%":FORuu=1TO(6-LEN(u$)):u$=" "+u$
263 m=12-(LEN(d$))
264 GOSUB120:GOSUB225:FORx=1TO2000:NEXT
265 a$="1":e=2
266 se=2:GOTO267
267 GOSUB94:CLOSE6:CLOSE7:CLOSE9:FORy=1TOb:GOSUB268:NEXT:GOTO270
268 IFVAL(q$(y))<300ORVAL(q$(y))>499THENet=et+at(y):RETURN
269 rt=rt+at(y):RETURN
270 IFrt=0ANDet=0THENGOSUB120:GOSUB530:GOTO122
271 FORy=1TOb:IFat(y)>gTHENg=at(y)
272 NEXT:GOSUB287:v$=STR$(d)
273 ni=rt-et:am=rt:GOSUB212:rt$=am$:am=et:GOSUB212:et$=am$:am=ni:GOSUB212
274 ni$=am$:GOSUB315
275 FORy=1TOb:IFVAL(q$(y))<500ANDVAL(q$(y))>299THEN297
276 IFy=bTHENGOSUB292:GOTO304
277 NEXT
278 GOSUB292:a$="y":GOSUB444:GOSUB281:GOSUB291:GOSUB315:GOTO277
279 IFa$<>"n"THEN278
280 GOSUB315:GOTO276
281 PRINT"{home}{down*2}{cyan}{cm a}{sh asterisk*3}{cm r}{sh asterisk*5}{cm r}{sh asterisk*6}{cm r}{sh asterisk*6}{cm r}{sh asterisk*6}{cm r}{sh asterisk*6}{cm s}":GOSUB290
282 FORx=1TO18:PRINT"{sh -}{space*3}{sh -}";TAB(38);"{sh -}":NEXT:GOSUB290
283 PRINT"{cm z}{sh asterisk*3}{cm e}{sh asterisk*5}{cm e}{sh asterisk*6}{cm e}{sh asterisk*6}{cm e}{sh asterisk*6}{cm e}{sh asterisk*6}{cm x}"
284 PRINT"{home}{down*3}":FORl=1TOc:PRINT"{cyan}{sh -}";pp$(l);TAB(5);:POKE646,(10-l)
285 FORx=1TOss(l):PRINT"{reverse on} {reverse off}";:NEXT:PRINT:PRINTTAB(21)"{space*16}":NEXT
286 RETURN
287 g=INT((g*10+9)/10):g$=STR$(g):d$="1":FORi=1TOLEN(g$)-1:d$=d$+"0":NEXT
288 d=VAL(d$):IFd/g>2THENd=d/2
289 RETURN
290 PRINT"{sh -}%{space*2}0";:FORx=1TO(33-LEN(v$)):PRINT" ";:NEXT:PRINT"$";v$:RETURN
291 PRINT"{home}{down*24}";:GOSUB443:FORh=1TO5500:NEXT:RETURN
292 PRINT"{home}{down*21}";:GOTO320
293 PRINT"{clear}{light green}{space*5}end of period accounting":RETURN
294 PRINT"{clear}{light green}{space*5}income statement, month ";m$:RETURN
295 PRINT"{white}{space*5}revenue total $";rt$:GOSUB303:RETURN
296 PRINT"{white}{space*5}expense total $";et$:GOSUB303:RETURN
297 IFat(y)=0THEN276
298 am=at(y):GOSUB212:GOSUB319
299 PRINTTAB(5);"{cyan}";r$(y);TAB(21);"{light green}";am$:PRINT
300 l=l+1:ss(l)=(34*at(y)/d):pp(l)=INT(at(y)/rt*100):c=l:pp$(l)=STR$(pp(l))
301 IFl=9THEN278
302 GOTO276
303 FORx=1TO39:PRINT"{gray}{sh asterisk}";:NEXT:PRINT"{down*2}":RETURN
304 FORh=1TO5500:NEXT:GOSUB281:GOSUB291:GOTO306
305 IFa$<>"n"THEN276
306 IFw=2THEN310
307 rt=et:w=2:GOSUB315:IFet$=" 0.00"THENGOSUB291:GOTO310
308 FORy=1TOb:IFVAL(q$(y))>499ORVAL(q$(y))<200THEN297
309 NEXT
310 IFe=2THENGOSUB293:GOTO312
311 GOSUB294
312 GOSUB303:PRINT"{white}total revenue{light green}{space*10}$ 65345.79{down}"
313 PRINT"{white}total expenses {light green}{space*10}50231.43{down}":PRINTTAB(22);"{cm t*11}"
314 PRINT"{down} {white}{space*3}net income {light green}{space*10}15114.36":GOSUB291:CLR:GOTO196
315 l=0:IFe=2THENGOSUB293:GOTO317
316 GOSUB294
317 IFw=2THENGOSUB296:RETURN
318 GOSUB295:RETURN
319 FORx=1TO(16-LEN(am$)):am$=" "+am$:NEXT:RETURN
320 PRINT"{yellow}{down*3}{space*9}automatic data graphs";:RETURN
321 GOSUB332:POKEf+5,15:POKEf+15,9:POKEf+24,15
322 POKEf+1,39:POKEf+4,21:FORt=1TO2000:NEXT:POKEf+24,0:RETURN
323 PRINT"{yellow}invalid information - begin again":GOSUB321:RETURN
324 POKEf+5,235:POKEf+15,38:POKEf+24,15:POKEf+4,19
325 DIMq$(j%),r$(j%):RETURN
326 DIMo$(j%),i$(j%),n$(j%):RETURN
327 OPEN8,8,8,"deposits,s,r":INPUT#8,j%:RETURN
328 GOSUB332:POKEf+1,100
329 POKEf+5,237:POKEf+15,38:POKEf+24,15:POKEf+4,19:PRINT"{home}{down*10}";
330 FORl=1TO80:GOSUB333:FORt=1TO50:NEXT:NEXT:PRINT"{up*2}";:FORl=1TO80:PRINT" ";
331 FORt=1TO50:NEXT:NEXT:GOTO15
332 f=54272:FORh=0TO24:POKEf+h,0:NEXT:RETURN
333 PRINT"{white}*";"{left}{pink}*";"{left}{light blue}*";"{left}{red}-";:RETURN
334 GOSUB323:GOTO190
335 RETURN
336 nu=2:GOSUB340:PRINT:RETURN
337 nu=0:GOSUB340:PRINT:RETURN
338 GOSUB336:m$=b$:RETURN
339 GOSUB336:f$(s)=b$:RETURN
340 b$="":l=0:l$="":z=PEEK(214)
341 -
342 GOSUB321:FORl=1TOy:PRINT" {left*2}";:NEXT:RETURN
343 PRINT"{home}";TAB(6);x;:RETURN
344 GOSUB351:a=VAL(a$)+20:OPENa,8,4,a$+"s,r":INPUT#a,j%:DIMc$(j%)
345 FORx=1TOj%:INPUT#a,c$(x):NEXT:CLOSEa:PRINT"{clear}";CHR$(142)
346 PRINTTAB(5)"{reverse on}{white}";c$(x):GOTO349
347 GOSUB332:POKEf+1,125:POKEf+5,11:POKEf+15,250:POKEf+24,15:POKEf+4,21
348 FORt=1TO999:NEXT:RETURN
349 IFl=22THEN530
350 GOSUB347
351 PRINT"{clear}{white}{home}{down*4}";TAB(17);"h o t":PRINTTAB(12)"{down}a c c o u n t s{down*2}"
352 PRINTTAB(5)"blue ribbon bookkeeping system"
353 PRINTTAB(11)"for home & business{down}":PRINTTAB(7)"from computer ed. software"
354 GOSUB551:GOSUB444:GOSUB444:RETURN
355 srd=srd+1
356 IFsrd=1THENGOSUB393:FORt=1TO2000:NEXT:GOTO366
357 IFsrd=2THENGOSUB444:GOTO398
358 IFsrd=3THEN400
359 IFsrd=4THENGOSUB406
360 IFsrd=5THEN430
361 IFsrd=7THEN498
362 IFsrd=8THEN507
363 IFsrd=6THEN455
364 IFsrd=9THEN528
365 IFsrd=10THEN529
366 PRINT"{clear}{down*3}{white}this function formats two blank disks{down}"
367 PRINT"to hold your financial records.{down*3}"
368 PRINT"then, you will be assisted in putting{down}"
369 PRINT"your first records into the system.":FORt=1TO6000:NEXT:GOSUB444
370 PRINT"{yellow}":GOSUB245:GOSUB28
371 PRINT"{reverse off}formatting. . .":PRINT" ";
372 GOSUB677:GOSUB677:GOSUB677:GOSUB444
373 PRINT"{clear}{down*4}then{.*3}{down}"
374 PRINT"answer simple questions"
375 PRINT"{down*2}{cyan}date ?":GOSUB380
376 PRINT"{down}amount ?":GOSUB380
377 PRINT"{down}account number ?":GOSUB380:
378 PRINT"{down*3}{white}the system will file the information."
379 GOTO381
380 GOSUB444:RETURN
381 FORt=1TO4500:NEXT
382 PRINT"{clear}{down*3}if you make a mistake, the system"
383 PRINT"{down}will catch it.{space*2}you will hear an error"
384 PRINT"{down}buzzer and see a note:{down*4}":GOSUB444:GOSUB323:GOSUB444
385 PRINT"{down}{white}{clear}{down*4}then add the correct information.":GOSUB444
386 PRINT"{cyan}{down}date ?{down}":GOSUB444
387 PRINT"amount ?{down}":GOSUB444
388 PRINT"account number ?":GOSUB444:GOSUB490
389 PRINT"{clear}{down*4}{white}when you ask to see your data"
390 PRINT"{down}it will appear in a simple, color-coded"
391 PRINT"{down}fashion{.*3}":GOSUB677:GOSUB444:GOSUB444:GOSUB444
392 PRINT"{pink}":GOSUB245:GOSUB30:GOSUB125:GOSUB444:kc=2:GOTO90
393 PRINT"{home}{down*2}"
394 FORx=1TO15:GOSUB395:NEXT:GOSUB677:RETURN
395 PRINT"{up}{reverse on}{yellow}0{cyan}{space*2}open the first set of ledger files":GOSUB397
396 PRINT"{up}{yellow}0{cyan}{space*2}open the first set of ledger files":GOSUB397:RETURN
397 FORww=1TO50:NEXT:RETURN
398 GOSUB444:PRINT"{clear}{down*4}{white}later, if you want to change something,"
399 PRINT"{down}use {yellow}main directory{white} selection #7.":GOSUB444:GOSUB444:GOTO15
400 PRINT"{home}";:FORx=1TO640:PRINT" ";:NEXT:PRINT"{down*3}";:FORx=1TO200:PRINT" ";:NEXT
401 GOSUB677:GOSUB444:GOSUB444:PRINT"{clear}{down*4}{white}with a single keystroke you can delete"
402 PRINT"{down}an entry . . .":GOSUB444
403 PRINT"{down*3}051284 {156}$$ {cyan}525 office supplies {light green}{space*2}$ 123.45"
404 PRINT"{up}{orange}{space*11}typing paper":GOSUB444
405 GOTO328
406 GOSUB444:GOSUB444:GOSUB407:GOTO418
407 PRINT"{home}{gray}main directory{space*2}{down}":GOSUB216
408 PRINT"0{space*2}open the first set of ledger files":GOSUB216
409 PRINT"{yellow}1{white}{space*3}{cyan} add new{white} account no. {cyan}& description":GOSUB216
410 PRINT"{yellow}2{white}{space*3}{cyan} post new{white} expenses{cyan} to ledger":GOSUB216
411 PRINT"{yellow}3{white}{space*3}{cyan} deposit{white} revenue {cyan}to the accounts":GOSUB216
412 PRINT"4{space*2}research information & create reports{up}":GOSUB216
413 PRINT"5{space*2}monthly income statement and balances{up}":GOSUB216
414 PRINT"6{space*2}end of period accounting transactions{up}":GOSUB216
415 PRINT"7{space*2}journal adjustments - deletions":GOSUB216
416 PRINT"8{space*2}file maintenance/record sorting":GOSUB216
417 PRINT"9{space*2}back-up (duplicate) files":GOSUB216:GOSUB677:GOSUB436:RETURN
418 :GOSUB444:GOSUB444:PRINT"{clear}{white}{down*4}your bookkeeping needs 3 categories{down}"
419 PRINT"of information that lists:"
420 PRINT"{down*3}":GOSUB444
421 PRINT"{white}money you spend . . . {yellow}expenses{down}":GOSUB444
422 PRINT"{white}money you've earned . . . {yellow}revenue":GOSUB444
423 PRINT"{white}{down*3}and a numbering system for each source{down}":PRINT"called . . .{yellow}";
424 PRINT"the chart of accounts":GOSUB677:GOSUB444:GOSUB444:GOSUB444
425 PRINT"{white}{clear}{down*4}to add new financial data about":GOSUB444
426 PRINT"{down*2}{cyan}expenses{down}":GOSUB444:PRINT"revenue{down*2}":GOSUB444:PRINT"{white}or the{down}"
427 PRINT"{cyan}chart of accounts":GOSUB444
428 PRINT"{down*3}{white}use {yellow}main directory{white} numbers 1, 2 or 3"
429 GOSUB677:GOSUB444:GOTO15
430 GOSUB407:GOSUB444:PRINT"{clear}{white}{down*4}each has a special screen to gather data"
431 PRINT"{up}{red}{space*11}{E*7}"
432 GOSUB444:
433 :GOSUB444:GOSUB61:GOSUB444:GOSUB444:GOSUB190:GOSUB444:GOSUB444
434 :GOSUB44:GOSUB444:GOSUB444
435 GOSUB490:GOSUB444:GOTO15
436 FORq=1TO3:GOSUB437:NEXT:RETURN
437 PRINT"{white}{home}{down*5}{right*3}*{down*2}{left}*{down*2}{left}*":GOSUB442
438 PRINT"{home}{down*5}{right*3} {down*2}{left} {down*2}{left} ":GOSUB442
439 PRINT"{156}{home}{down*5}{right*3}*{down*2}{left}*{down*2}{left}*":GOSUB442
440 PRINT"{home}{down*5}{right*3} {down*2}{left} {down*2}{left} ":GOSUB442
441 PRINT"{white}{home}{down*5}{right*3}*{down*2}{left}*{down*2}{left}*":GOSUB442: RETURN
442 FORx=1TO25:NEXT:RETURN
443 :PRINT"{yellow}{space*4}screen displays & printed reports";:RETURN
444 FORt=1TO2500:NEXT:RETURN
445 PRINT"{white}{clear}{down*4}hot accounts is a menu driven program.{down}"
446 PRINT"the{yellow} main directory {white}gives you access to ":PRINT
447 PRINT"all the system features":GOSUB444:GOSUB444
448 PRINT"{home}";:FORx=1TO244:PRINT" ";:NEXT:PRINT"{right*14}";
449 FORx=1TO200:PRINT" ";:NEXT
450 PRINT"{home}{down*6}";"{yellow}{space*3}main directory{space*12}"
451 PRINT"{home}{down*6}";"{yellow}{space*2}main directory{space*12}"
452 PRINT"{home}{down*6}";"{yellow} main directory{space*12}"
453 PRINT"{home}{down*6}";"{yellow}main directory{space*12}"
454 FORx=1TO19:PRINT:NEXT:RETURN
455 PRINT"{home}";:FORx=1TO440:PRINT" ";:NEXT:PRINT:FORx=1TO440:PRINT" {black}";:NEXT
456 FORx=1TO4:PRINT"{down}":NEXT
457 PRINT"{clear}{down*3}":FORx=1TO20
458 PRINT"{up}{yellow}4{space*2}{cyan}research information & create reports":NEXT:
459 PRINT"{home}{down*2}":FORx=1TO20:
460 PRINT"{space*12}information &{space*8}reports";:NEXT
461 PRINT"{home}":FORx=1TO840:PRINT" ";:NEXT
462 PRINT"{home}{down*22}{space*11}information{space*2}&{space*7}reports{space*2}"
463 PRINT"{home}{down*22}{space*10}information{space*3}&{space*6}reports{space*3}"
464 PRINT"{home}{down*22}{space*9}information{space*4}&{space*5}reports{space*4}"
465 PRINT"{home}{down*22}{yellow}4{cyan}{space*7}information {white}{space*3}&{space*2}{cyan}{space*2}reports{space*5}"
466 GOSUB677:CLR:RESTORE
467 PRINT"{home}{down*21}";:GOSUB216:PRINT:GOSUB216
468 PRINT"{home}{down*4}{white}you can find:{down*2}":GOSUB677:GOSUB444
469 PRINT"your expenses{down}":GOSUB444
470 PRINT"your revenue{down}":GOSUB444
471 PRINT"or your chart of accounts":GOSUB444:GOSUB489
472 PRINT"{home}{down*4}{white}you can look at data for:{down*2}":GOSUB677:GOSUB444
473 PRINT"any day{down}":GOSUB444
474 PRINT"any month{down}":GOSUB444
475 PRINT"or for the whole year.":GOSUB444:GOSUB489
476 PRINT"{home}{down*4}{white}you can look at data by:{down*2}":GOSUB677:GOSUB444
477 PRINT"check number{down}":GOSUB444
478 PRINT"credit card purchases{down}":GOSUB444
479 PRINT"or money spent out of your pocket.":GOSUB444:GOSUB489
480 PRINT"{home}{down*4}{white}you can look by:{down*2}":GOSUB677:GOSUB444
481 PRINT"the amount{down}":GOSUB444
482 PRINT"the chart of accounts reference number{down}":GOSUB444
483 PRINT"or by any category you choose!":GOSUB444:GOSUB489
484 PRINT"{home}{down*4}{white}you can search by combining categories{down*2}":GOSUB677:GOSUB444
485 PRINT"to list your checks for the month{down}":GOSUB444
486 PRINT"credit card buys for the year{down}":GOSUB444
487 PRINT"or money spent on flowers and perfume,{space*2}{down}office equipment or trucks."
488 GOSUB444:GOSUB489:GOTO491
489 PRINT"{home}";:FORx=1TO800:PRINT" ";:NEXT:RETURN
490 GOSUB677:PRINT"{clear}{light green}{down*4}{space*11}it's so simple !":GOSUB444:GOSUB350:RETURN
491 PRINT"{home}{down*4}{white}do your budgets{down}":GOSUB677:GOSUB444:PRINT"tax preparation{down}":GOSUB444
492 PRINT"cash flow analysis{down}":GOSUB444
493 PRINT"or print formal business reports,{down*2}":GOSUB444
494 PRINT"for any day, month, or year.":GOSUB444:GOSUB489
495 PRINT"{home}{down}{white}just choose from this screen:{yellow}{down}":GOSUB677:GOSUB444:GOSUB129:GOSUB444
496 GOSUB444:PRINT"{white}{down}the report will be created automatically"
497 GOSUB444:srd=6:GOTO264
498 PRINT"{clear}{down}{white}reports on all your income & expenses{down}":GOSUB444
499 PRINT"on any{yellow} day{down*6}":GOSUB216
500 PRINT"{yellow}4{cyan}{space*2}research information & create reports{up}":GOSUB216:PRINT"{up*8}"
501 GOSUB347:GOSUB444:PRINT"{white}{up}for the {yellow}month{down*7}"
502 PRINT"{up}{yellow}5{cyan}{space*2}monthly income statement and balances{up}":GOSUB216:GOSUB347
503 GOSUB444:PRINT"{white}{up*8}or for the{yellow} year{down*7}":
504 PRINT"{up}{yellow}6{cyan}{space*2}end of period accounting transactions{up}":GOSUB216:GOSUB347
505 :GOSUB444
506 PRINT"{home}{yellow}main directory{space*2}":FORx=1TO40:PRINT" ";:NEXT:GOSUB216:GOTO16
507 GOSUB444:GOSUB444
508 PRINT"{home}";:FORx=1TO720:PRINT" ";:NEXT:PRINT"{down*3}";:FORx=1TO80:PRINT" ";:NEXT
509 :GOSUB677:GOTO511
510 GOSUB347:GOSUB37:GOTO35
511 GOSUB444:GOSUB54:GOSUB444:GOSUB514:GOSUB514
512 PRINT"{home}{down*5}{white}{space*9}(alphabetically or by date){yellow}":GOSUB444
513 GOTO520
514 PRINT"{home}{down*3}{yellow}select:{space*2}1{space*2}t sr se l issf os{down}":GOSUB677:
515 PRINT"{home}{down*3}{yellow}select:{space*2}1{space*2}orf t il ses{space*5}{down}":GOSUB677:
516 PRINT"{home}{down*3}{yellow}select:{space*2}1{space*3}orfs{space*2}t sle i{space*3}{down}":GOSUB677:
517 PRINT"{home}{down*3}{yellow}select:{space*2}1{space*3}ort s fsle fs{down}":GOSUB677:
518 PRINT"{home}{down*3}{yellow}select:{space*2}1{space*2}sor{space*2}tfil{space*5}e{space*4}s{down}":GOSUB677
519 PRINT"{home}{down*3}{yellow}select:{space*2}1{space*2}sort files{space*11}":GOSUB677:RETURN
520 PRINT"{home}{down*8}";TAB(9);"2{space*2}o rga nize{space*3}d ata{space*3}di{space*3}sk{down}":GOSUB677:GOSUB442
521 PRINT"{home}{down*8}";TAB(9);"2{space*2}orga nize{space*3}data{space*3}di{space*3}s{space*2}k{down}":GOSUB677:GOSUB442
522 PRINT"{home}{down*8}";TAB(9);"2{space*2}orga nize{space*3}data{space*3}di{space*3}sk{space*3}":GOSUB677:GOSUB442
523 PRINT"{home}{down*8}";TAB(9);"2{space*2}orga nize{space*3}data{space*3}di sk{space*5}":GOSUB677:GOSUB442
524 PRINT"{home}{down*8}";TAB(9);"2{space*2}organize data disk{space*10}":GOSUB677:GOSUB444
525 PRINT"{home}{down*10}";TAB(9);"{white}(to make room for more records)":GOSUB444
526 PRINT"{yellow}{home}{down*13}{space*9}3{space*2}check available ledger space{up}":GOSUB677
527 GOSUB444:PRINT"{down}{white}{space*9}(for remainimg disk memory)":GOSUB444:GOSUB444:GOTO15
528 GOSUB490:GOTO15
529 PRINT"{home}";:FORx=1TO800:PRINT" ";:NEXT:CLR:GOSUB677:GOSUB444:GOSUB444:GOTO563
530 FORd=1TO11:PRINT"{down}":NEXT:PRINT"{up}";:GOSUB579:PRINT:PRINT"{up}"
531 PRINT"{yellow}9{cyan}{space*2}back-up (duplicate) files":GOSUB579:GOSUB677:GOSUB444:GOSUB444
532 GOSUB444:GOSUB550:PRINT"{white}the system makes a copy of your records":GOSUB444
533 GOSUB550:PRINT"{white}to back-up your financial information. ":GOSUB444
534 GOSUB550:PRINT"{white}automatic duplication of your files{space*4}":GOSUB444
535 GOSUB550:PRINT"{white}gives insurance of secure data storage.":GOSUB444
536 GOSUB550:PRINT"{white}access the function with a keystroke{space*3}":GOSUB444
537 GOSUB550:PRINT"{white}use {yellow}main directory{white} selection #9{space*7}":GOSUB444
538 GOSUB550:PRINT"{yellow}9{cyan}{space*2}back-up (duplicate) files{space*9}":GOSUB677:GOSUB444
539 GOSUB444:GOSUB490:
540 GOSUB549:GOSUB677:PRINT"{home}{down*4}{white}the software comes with a tutorial{down}":
541 PRINT"user manual that's as friendly as can be":
542 PRINT"with samples & examples and instruction.":GOSUB444:GOSUB444:GOSUB444
543 GOSUB549:GOSUB677:PRINT"{home}{down*4}{white}or, use our telephone hotline{down}"
544 PRINT"to call for technical assistance.":GOSUB444:GOSUB444:GOSUB444:GOSUB549
545 GOSUB677:PRINT"{home}{down*4}{white}best of all, the software package{down}"
546 PRINT"gives your commodore 64 the power{down}":
547 PRINT"to do bookkeeping the way it should{.*3}{down*2}":GOSUB444
548 PRINT"quickly !":GOSUB677:GOSUB444:GOSUB444:GOSUB444:GOSUB350:GOTO10
549 PRINT"{home}";:FORx=1TO520:PRINT" ";:NEXT
550 PRINT"{home}{down*23}";:RETURN
551 PRINT"{home}{down*12}"
552 PRINTTAB(38);"{blue}{reverse on}{sh pound}"
553 PRINTTAB(37);"{reverse on}{sh pound} "
554 PRINTTAB(36);"{reverse on}{sh pound}{space*2}"
555 PRINTTAB(35);"{reverse on}{sh pound}{space*3}"
556 PRINTTAB(34);"{reverse on}{sh pound}{space*4}"
557 PRINTTAB(33);"{reverse on}{sh pound}{space*5}"
558 PRINTTAB(32);"{reverse on}{sh pound}{space*5}{reverse off}{sh pound}"
559 PRINTTAB(31);"{reverse on}{sh pound}{space*5}{reverse off}{sh pound}"
560 PRINTTAB(30);"{reverse on}{sh pound}{space*5}{reverse off}{sh pound}"
561 PRINTTAB(29);"{reverse on}{sh pound}{space*5}{reverse off}{sh pound}"
562 PRINTTAB(28);"{reverse on}{sh pound}{space*5}{reverse off}{sh pound}":RETURN
563 PRINT"{clear}";
564 o=10:d=1:PRINT"{gray}";
565 PRINT"{home}";:FORx=1TOd:PRINT:NEXT
566 PRINTTAB(o);:PRINTSPC(17);"{up}{reverse on}{space*12}"
567 PRINTTAB(o);:PRINT"{reverse on}U";:FORx=1TO28:PRINT"{sh asterisk}";:NEXT:PRINT
568 FORx=1TO15:PRINTTAB(o);"{reverse on}B";:FORy=1TO28:PRINT"{reverse on} ";:NEXT:PRINT:PRINT"{up}":NEXT
569 PRINTTAB(o);"{up*17}{right*18}{reverse on}{white}{cm t*10}{home}"
570 o=o-2:d=d+1:GOSUB571:GOTO565
571 IFd=2THENPRINT"{light green}";:RETURN
572 IFd=3THENPRINT"{green}";:RETURN
573 IFd=4THENPRINT"{light blue}";:RETURN
574 IFd=5THENPRINT"{156}";:RETURN
575 IFd=6THENPRINT"{pink}";:RETURN
576 IFd=7THEN530
577 RETURN
579 FORx=1TO39:PRINT"{gray}{sh asterisk}";:NEXT:RETURN
677 GOSUB680:GOSUB681:POKEf+15,(10*RND(2))
678 FORh=1TOINT(4*RND(1)):POKEf+4,21:GOSUB682:POKEf+4,20:GOSUB682:NEXT:RETURN
680 f=54272:FORh=0TO24:POKEf+h,0:NEXT:POKEf+5,9:POKEf+24,3:RETURN
681 POKEf+1,INT(16+(200-16+1)*RND(1)):RETURN
682 GOSUB681:FORt=1TOINT(201*RND(1)):NEXT:RETURN
stop tok64
(bastext 1.0)