Loadstar 134/134.d81/banker64

Commodore BASIC | 1995-01-01 | 28.6 KB | 647 lines

2 rem banker64 * ecberge * 3/23/95 *
4 dv=peek(186):ifdv<8thendv=8
6 print"":close15:open15,dv,15:c=646:bc=53280:cr$=chr$(13):rq$="[210]ecord #"
8 m=49152:p=m+3:fr=m+54:ce=m+18:a=m+15:lc=m+24:uc=m+21:br=m+48:rh=m+27:o=2048
10 bl=m+51:sr=m+9:ss=m+6:sm=m+33:di=m+45:sysbl,"getword 800+",dv,o:gosub828
12 d=peek(c)and15:e=d:x=peek(bc)and15:ife=xthene=e-(x+1<16)+(x+1>15):d=e
14 pokec,d:cl=41:gosub1286:ifjj=2thencl=127
16 dimb$(40,1),b(40,1),b%(40,12),w$(80,1):deffns(x)=int(x*100+.05)
18 ar$=" [193]re you sure? [146]"
20 printchr$(14)+chr$(8):ha$="[210]#        [196][197][211][195][210][201][208][212][201][207][206]":v=0:cf$="0:categories
22 h$[178]"(NULL)#   str$atn(NULL)val   lenleft$#      str$val(NULL)len(NULL)right$(NULL)(NULL)right$(NULL)(NULL)                     lenatn(NULL)   atn(NULL)(NULL)(NULL)(NULL)(NULL)closecloseclose"
24 h$[178]h$[170]"peekatn(NULL)atn(NULL)lenval (NULL) sqr":[150][165]r(x)[178][181](x[172]100[170].05)[173]100:cc$[178]"lenurrent peekalance=
26 fc$="    [196][193][212][197]   [195][200]# [195][193][212]  [193][205][207][213][206][212]   [194][193][204][193][206][195][197] [212] [186]":qu$=chr$(34):rv$="r.
28 cn$[178]"lenancel entries shown on bank statement":tp$[178][199](12)
30 b1$[178]"(NULL)our balance ":b2$[178]" the bank's!":dd$[178]"equals":ep$[178][199](0)[170][199](1)
32 dn$[178]"doesn't equal":bj$[178]"             ":pp$[178]" (NULL)ress return wait"
34 bk$[178]"                                     ":p1$[178]"p"[170][199](98):x$[178][200](bk$,28)
36 sp$[178]"(NULL)pace to cancel/lenrsr to move/val to exitwait":kr$[178][200](bk$,18):[141]1106
38 [151]bc,pg:[151]bc[170]1,pg:[151]c,fc:ps[178]1:[153]"load":[158]p,4,38,2,21,q2,u1:s8[178]0
40 [158]p,3,37,1,20,q1,f1:[158]p,4,36,2,19,160,fc:[158]ce,4," peekatn(NULL)(NULL)val(NULL) 64close":qn[178]18
42 [158]ce,5,"  by valileen peekergewait":[158]a,8,7,"atnccount (NULL)anager     (1)
44 sysa,8,8,"[194]alance [193]ccount     (2)[146]":sysa,8,9,"[211]earch [198]iles        (3)[146]
46 [158]a,8,10,"peekudgetatnid           (4)wait":[158]a,8,11,"atndd/str$elete lenategory (5)wait
48 sysa,8,12,"[207]ptions             (6)[146]":sysa,8,13,"[196]irectory           (7)[146]
50 [158]a,8,14,"(NULL)end str$isk lenommand   (8)wait":[158]a,8,15,"left$elp                (left$)
52 sysa,8,16,"[209]uit                ([209])[146]":sysm,7,7,31,10,fc,e,"12345678hq[209][200]
54 [145]f%[137]70,316,454,544,766,1112,56,1096,1218,1262,1262,1218
56 [153]"load str$right$(NULL)vallen(NULL)(NULL)(NULL)(NULL)closewait"
58 di$[178]"0":[139]cl[178]41[167]64
60 [153]"(NULL)artition #? ";:[158]o,e,d,2:di$[178]w$:[153]:[151]c,d
62 [153]"(NULL)ath? ";:[158]o,e,d,22:di$[178]di$[170]w$:[153]:l[178]cl[171][195](wc$)[171]2:[151]c,d:[139]s4[167][142]
64 wc$[178]"":[151]c,d:[153]"(NULL)ild lenard? ";:[158]o,e,d,l:[151]c,d:[153]
66 wc$[178]"$"[170]di$[170]":"[170]w$:[158]di,wc$,dv:[132]15,er,em$:[139]er[177]19[167][153]er;em$
68 [153][199](13):[141]868:[145]ps[137]38,70,544
70 [151]bc,pg:[151]c,fc:ps[178]2:[153]"load":[158]p,5,38,4,22,q4,u2:[158]p,4,37,3,21,q3,f2
72 [158]p,5,36,4,20,160,fc
74 [158]ce,7," atnlenlen(NULL)(NULL)(NULL)(NULL)close(NULL)atn(NULL)atnchr$val(NULL) ":[158]a,8,9,"(NULL)pen ascile           (1)
76 sysa,8,10,"[193]dd a [210]ecord        (2)[146]":sysa,8,11,"[210]ead/[208]rint [198]ile     (3)
78 [158]a,8,12,"atnlter (NULL)ecord        (4)wait":[158]a,8,13,"str$elete (NULL)ecord       (5)
80 sysa,8,14,"[201]nsert [210]ecord       (6)[146]"
82 sysa,8,15,"[196]irectory           (7)[146]":sysa,8,16,"[200]elp                ([200])[146]
84 [158]a,8,17,"chr$oto (NULL)ain (NULL)enu      ((NULL))wait":[158]m,9,7,31,9,fc,e,"1234567hx(NULL)left$
86 onf%goto88,168,178,206,250,290,56,1220,38,38,1220
88 js=1:dx$="":l$=" [207]pen [198]ile ":gosub862:t$="[201]":sysa,0,8,"[197]xisting [198]ile       (1)
90 [158]a,0,9,"(NULL)ext ascile in (NULL)eries (2)":[158]a,0,10,"(NULL)o (NULL)revious ascile    (3)
92 sysa,0,11,"[197]xit":printspc(16)"([216])":sysm,8,0,23,4,d,e,"123x
94 [145]f%[137]96,108,104,70
96 l$[178]"valxisting ascilewait":[141]860:[141]840:[139]s%[178]1[167]1112
98 [153]"ascile str$ate ((NULL)(NULL)(NULL)(NULL))? ";:[158]o,e,d,4:[153]:[151]c,d:[139][195](w$)[179]4[167]98
100 d$[178]w$:dy$[178][200](d$,2):dm$[178][202](d$,3,2):p$[178]p1$[170][199](1)[170]ep$:f$[178]d$[170]ty$
102 [141]990:r1$[178]r$:p$[178]p1$[170][199](2)[170]ep$:[141]990:r2$[178]r$:[137]150
104 l$[178]"(NULL)ew (NULL)erieswait":[141]860:[141]840:[139]s%[178]1[167]1112
106 ba[178]0:ob$[178]"     0.00":ob[178]0:bx[178]0:[137]122
108 l$[178]"(NULL)ext ascile in (NULL)erieswait":[141]860:[141]840:[139]s%[178]1[167]1112
110 [153]"(NULL)ast file ((NULL)(NULL)(NULL)(NULL))? ";:[158]o[170]3,e,d,4:[153]:dx$[178]w$:[139][195](dx$)[179]4[167]108
112 f$[178]dx$[170]ty$:p$[178]"p"[170][199](99)[170][199](2)[170]ep$:[141]874:[141]876:[132]3,ro$
114 [141]828:[141]876:[160]3:ob$[178][202](ro$,rl[171]11,9):ob[178][197](ob$)
116 dy[178][197]([202](dx$,1,2)):dm[178][197]([202](dx$,3,2)):dm[178]dm[170]u:[139]dm[177]12[167]dm[178]dm[171]12:dy[178]dy[170]1
118 dy$[178][201]("00"[170][202]([196](dy),2),2)
120 dm$[178][201]("00"[170][202]([196](dm),2),2):d$[178]dy$[170]dm$:f$[178]d$[170]ty$
122 [153]"(NULL)ld peekalance = ";ob$
124 [141]1254:[139]w$[178]"y"[167]ba[178][197](ob$):[137]130
126 [153]"(NULL)ew peekalance? ";:[158]o[170]3,e,d,8:[153]:bx[178][197](w$):[141]1254:[139]w$[178]"n"[167]126
128 ba[178]bx
130 [141]878:[139]dx$[178]""[167]134
132 [151]c,d:[153]"(NULL)ew ascile="f$:[141]1254:[139]w$[178]"y"[167]138
134 [153]:[153]"valnter (NULL)ew ascile ((NULL)(NULL)(NULL)(NULL))? ";:[158]o[170]3,e,d,4:[153]:d$[178]w$:[139][195](d$)[179]4[167]134
136 dy$[178][200](d$,2):dm$[178][201](d$,2):f$[178]d$[170]ty$:[137]132
138 [141]878:am$[178]"    0.00":v$[178]"(NULL)":de$[178][200]("(NULL)ew peekalance"[170]bk$,dl):ca$[178]"(NULL)peek"
140 da$[178]dm$[170]"/01/"[170]dy$:ch$[178]ca$[170]" ":t$[178]"right$":r1$[178]da$[170]ch$[170]de$[170]ca$[170]am$[170]ba$[170]t$[170]v$
142 ch$[178]"002":ca$[178]"valpeek":t$[178]"(NULL)":de$[178][200]("valnding peekalance"[170]bk$,dl)
144 r2$[178]da$[170]ch$[170]de$[170]ca$[170]am$[170]ba$[170]t$[170]v$:p$[178]p1$[170][199](6)[170]ep$:r$[178][199](255)
146 [141]978:r$[178]r1$:p$[178]p1$[170][199](1)[170]ep$:[141]978:r$[178]r2$
148 p$[178]p1$[170][199](2)[170]ep$:[141]978
150 l$[178]" (NULL)pen ascile "[170]f$[170]" ":[151]c,fc:[158]ce,2,l$:[151]c,d:[141]836:da$[178][202](r1$,1,8)
152 ch$[178][202](r1$,9,3):de$[178][202](r1$,12,dl):t$[178][202](r1$,rl[171]2,1):v$[178][202](r1$,rl[171]1,1)
154 ca$[178][202](r1$,rl[171]21,2):am$[178][202](r1$,rl[171]19,8):ba$[178][202](r1$,rl[171]11,9)
156 [158]a,0,7,ha$:[153]:[153]1;de$:[153]fc$:[153]"  "da$" "ch$" "ca$" "am$" "ba$"
158 da$=mid$(r2$,1,8):ch$=mid$(r2$,9,3):de$=mid$(r2$,12,dl)
160 ca$=mid$(r2$,rl-21,2):am$=mid$(r2$,rl-19,8):ba$=mid$(r2$,rl-11,9)
162 t$=mid$(r2$,rl-2,1):v$=mid$(r2$,rl-1,1):ba=val(ba$):rc=val(ch$)
164 printha$:print2;de$:printfc$:print"  "da$" "ch$" "ca$" "am$" "ba$" "t$" "v$
166 gosub868:goto70
168 iff$=""then1088
170 l$=f$+"  "+"[193][196][196] [193] [210][197][195][207][210][196]":js=2:gosub862:onf%goto70,172
172 rc=(rc<2)*-2+(rc=>2)*-rc:gosub1216:rc=rc+1:v$="[207]":rc$=rq$+mid$(str$(rc),2)
174 cb$=cc$+ba$:gosub884:sysa,0,20,n$:gosub838:ifw$="y"then172
176 gosub968:goto70
178 iff$=""then1088
180 l$=f$+"  "+"[210][197][193][196]/[208][210][201][206][212] [198][201][204][197]":js=0:gosub862:onf%goto70,182
182 print"[208][146]rint, [196][146]isplay, or e[216][146]it":sysbr,"pdx":onf%goto184,188,70
184 print"[210]eady printer":gosub868:close4:open4,4,7:l$="[198]ile "+f$:l=len(l$)
186 l=int((80-l)/2):l$=right$(bk$+l$,l):print#4,l$:print#4:print#4,h$
188 gosub988:r=val(mid$(r$,9,3)):printha$:printfc$
190 fori=1tor:p$=p1$+chr$(i)+ep$:gosub990
192 rn$=right$("00"+mid$(str$(i),2),2):da$=mid$(r$,1,8):ch$=mid$(r$,9,3):de$=mid$(r$,12,dl)
194 ca$=mid$(r$,rl-21,2):am$=mid$(r$,rl-19,8):ba$=mid$(r$,rl-11,9):t$=mid$(r$,rl-2,1)
196 v$=mid$(r$,rl-1):gosub992:gosub994:iff%<>1then202
198 pt$=rn$+" "+da$+" "+ch$+" "+left$(de$+bk$,38)+ca$+" "+am$+" "+ba$+" "+t$
200 pt$=pt$+" "+v$:print#4,pt$
202 next:iff%=1thenprint#4,tp$:close4
204 gosub868:goto70
206 iff$=""then1088
208 l$=f$+"  "+"[193][204][212][197][210] [210][197][195][207][210][196]":js=0:gosub862:onf%goto70,210
210 gosub1216:gosub836:sysa,0,7,rq$+"? ":syso+3,e,d,4:r=val(w$):s9=0
212 s3=0:print:pokec,d:gosub1258:ifs3then246
214 rc$=rq$+mid$(str$(r),2):p$=p1$+chr$(r)+ep$:gosub990
216 d1$=mid$(r$,1,8):d2$=mid$(r$,9,3):d3$=mid$(r$,12,dl):d4$=mid$(r$,rl-21,2)
218 d5$=mid$(r$,rl-19,8):d6$=mid$(r$,rl-11,9):d5=val(d5$):d6=val(d6$)
220 d7$=mid$(r$,rl-2,1):d8$=right$(r$,1):gosub836
222 sysa,0,7,rc$:bx=val(ba$):sysa,0,9,"[196]ate         (a)":sysa,18,9,d1$
224 sysa,0,10,"[195]heck #      (b)":sysa,18,10,d2$:sysa,0,11,"[195]ategory     (c)
226 [158]a,18,11,d4$:[158]a,0,12,"atnmount       (d)":[158]a,19,12,d5$
228 [158]a,0,13,"peekalance      (e)":[158]a,18,13,d6$:[158]a,0,14,"(NULL)ransaction  (f)
230 sysa,18,14,d7$:sysa,0,15,"[214]erification (g)":sysa,18,15,d8$
232 sysa,0,16,"[196]escription  (h)":sysa,18,16,d3$:sysa,0,19,bk$:ifsdthenreturn
234 sysa,0,18,"[207]kay ([217]/[216])":sysa,0,20,bk$:sysm,9,0,15,10,d,e,"abcdefghny[217]x[216]
236 [145]f%[141]1000,1010,1014,1018,1028,1034,1038,996
238 [145](f%[171]9[177]0)[172][171](f%[171]9)[137]242,242,966,966
240 [139]f%[179]10[167]234
242 r$[178]d1$[170]d2$[170]d3$[170]d4$[170]d5$[170]d6$[170]d7$[170]d8$:p$[178]p1$[170][199](r)[170]ep$:[141]978
244 [139]s9[178]1[175](r[177]2[175]r[179]rc)[167][158]a,0,20,n$:[141]1040
246 s9[178]0:[158]p,0,39,20,24,32,pg:[158]a,0,20,n$:[141]838:[139]w$[178]"y"[167]208
248 [141]968:[141]868:[137]70
250 [139]f$[178]""[167]1088
252 l$[178]f$[170]"  "[170]"str$val(NULL)val(NULL)val (NULL)vallen(NULL)(NULL)str$":js[178]0:[141]862:[151]c,d:[145]f%[137]70,254
254 [151]c,d:[153]"(NULL)ecord to delete? ";:[158]o[170]3,e,d,4:[153]:r[178][197](w$)
256 s3[178]0:[141]1256:[139]s3[167]266
258 [151]c,d:sd[178]1:[141]214:[158]a,0,20,bk$:[158]a,0,20,n$:[141]1228:[139]w$[179][177]"y"[167]288
260 [139]d5[178]0[175]d6[178]0[167][141]1090
262 ba[178]d6[170]((d7$[178]"+")[171](d7$[178]"-"))[172]d5:sd[178]0:p$[178]p1$[170][199](r)[170]ep$:[141]878
264 r$[178][199](255):s9[178]1:[141]978:[153]rc$;" deleted":[139]rc[177]r[167][141]1040
266 s3[178]0:[141]838:[139]w$[178]"y"[167]252
268 [153]"(NULL)eordering file after deletion(s) ...":[129]i[178]1[164]10:d%(i)[178]0:[130]
270 [141]988:r[178][197]([202](r$,9,3)):da$[178][202](r$,1,8):n[178]0:[139]si[178]1[167]r[178]rc
272 [129]i[178]3[164]r:p$[178]p1$[170][199](i)[170]ep$:[141]990:[139][198](r$)[178]255[167]n[178]n[170]1:d%(n)[178]i
274 [130]:[139]n[167]278
276 [153]"ascound no deleted records in file.":[141]868:[137]70
278 [129]i[178]n[164]1[169][171]1:[139]d%(i)[178][177]r[167]284
280 [129]j[178]d%(i)[170]1[164]r:p$[178]p1$[170][199](j)[170]ep$:[141]990
282 p$[178]p1$[170][199](j[171]1)[170]ep$:[141]978:[130]
284 r[178]r[171]1:[130]:rc[178]r:[139]si[178]1[167]1242
286 [141]968:[141]868
288 [137]70
290 [139]f$[178]""[167]1088
292 l$[178]f$[170]"  "[170]"right$(NULL)(NULL)val(NULL)(NULL) (NULL)vallen(NULL)(NULL)str$":js[178]0:[141]862:[145]f%[137]70,294
294 [153]"right$nsert at "[170]rq$[170]"? ";:[158]o[170]3,e,d,4:[153]:r[178][197](w$)
296 s3[178]0:[141]1256:[139]s3[167]292
298 [141]1228:[139]w$[179][177]"y"[167]314
300 [141]988:rc[178][197]([202](r$,9,3)):da$[178][202](r$,1,8):r2$[178]r$:si[178]1
302 [153]:[153]"(NULL)oving records up ...":[129]j[178]rc[164]r[169][171]1:p$[178]p1$[170][199](j)[170]ep$:[141]990
304 p$[178]p1$[170][199](j[170]1)[170]ep$:[141]978:[130]:rc[178]rc[170]1:rr[178]r[171]1:rq[178]rc:[139]r[178]3[167]rr[178]1
306 p$[178]p1$[170][199](rr)[170]ep$:[141]990:ba[178][197]([202](r$,rl[171]11,9)):[141]878:cb$[178]cc$[170]ba$
308 rc$[178]rq$[170][196](r):rc[178]r:v$[178]"(NULL)":[141]884:[139]sj[167]sj[178]0:[137]314
310 [158]a,0,20,n$:rc[178]rq:[141]1040:[141]968
312 [141]838:[139]w$[178]"y"[167]292
314 si[178]0:[137]70
316 l$[178]" peekatn(NULL)atn(NULL)lenval(NULL) ":[151]c,fc:[153]"load":[158]p,1,38,1,6,q4,u2:js[178]0
318 [158]p,0,37,0,5,q3,f2:[158]p,2,36,1,4,160,fc:[141]864:[145]f%[137]38,442
320 [151]c,d:[153]"peekank's valnding peekalance?close";:[158]o[170]3,e,d,9:[153]:[151]c,d
322 :be[178][197](w$):[141]840:[139]s%[178]1[167]1112
324 tw[178]0:w1[178]0:[129]i[178]1[164]80:[129]j[178]0[164]1:w$(i,j)[178]"":[130]:[130]
326 [153]"(NULL)tarting (NULL)onth ((NULL)(NULL)(NULL)(NULL))? ";:[158]o[170]3,e,d,4:d$[178]w$:[153]:f$(1)[178]d$[170]ty$:[151]c,d
328 [153]"# months to search? ";:[158]o[170]3,e,d,3:[153]:gn[178][197](w$):[139]gn[179]2[167]336
330 dy$[178][200](d$,2):dy[178][197](dy$):dm$[178][201](d$,2):dm[178][197](dm$):[129]k[178]1[164]gn[171]1[169]u
332 gm[178]dm[170]k:gy[178]dy:[139]gm[177]12[167]gm[178]gm[171]12:gy[178]gy[170]1
334 f$(k[170]1)[178][201]("0"[170][202]([196](gy[172]100[170]gm),2),4)[170]ty$:[130]
336 [151]c,d:[153]"asciles to search:":[129]k[178]1[164]gn:[153]f$(k):[130]:[153]:[141]1254:[139]w$[179][177]"y"[167]326
338 [129]i[178]1[164]gn:[153]"(NULL)earching ascile "f$(i)" ...":f$[178]f$(i)
340 l[178][195](f$):[141]988:rc[178][197]([202](r$,9,3)):[139]i[178]gn[167]eb[178][197]([202](r$,rl[171]11,9))
342 [129]j[178]3[164]rc:j$[178][201]("0"[170][202]([196](j),2),2):p$[178]p1$[170][199](j)[170]ep$:[141]990
344 v$[178][201](r$,1):t$[178][202](r$,rl[171]2,1):ch$[178][202](r$,9,3)
346 am$[178][202](r$,rl[171]19,8):am[178][197](am$):[139]t$[178]"-"[167]am[178]am[172][171]1
348 [139]v$[179][177]"(NULL)"[167]352
350 w[178]w[170]1:w$(w,0)[178]ch$[170]"="[170]am$[170]t$:w$(w,1)[178]f$[170]j$:tw[178]tw[170]am
352 [130]:[130]:[153]:
354 l$[178]"close(NULL)(NULL)(NULL)val(NULL)right$ascright$valstr$closeatn(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)closewait":[139]w[177]0[167]358
356 [153]"(NULL)o atnmounts (NULL)nverified":[137]408
358 b[178]20:z[178][181](w[173]2):[129]k[178]0[164]40[169]40:[139]k[177]w[167]406
360 [153]"load":[151]c,u1:[158]ce,0,l$:[151]c,e:[158]ce,1,cn$:[158]ce,2,sp$:[158]a,0,3,n$
362 [151]c,d:[129]i[178]1[164]39[169]2:[129]j[178]0[164]1:n[178]k[170]i[170]j:[139]n[177]w[167]i[178]39:j[178]2:[137]366
364 [158]a,j[172]b,[181](i[173]2)[170]4,w$(n,0)[170]"  (NULL)"
366 [130]:[130]:i[178]1:j[178]0
368 x[178]j[172]b:y[178][181](i[173]2)[170]4:n[178]k[170]i[170]j:w$[178]""[170]w$(n,0)[170]"wait":[158]a,x,y,w$
370 [158]br,"ecmdon ":[145]f%[137]406,372,380,388,394,402
372 [158]a,x,y,w$(n,0):j[178]j[170]1
374 [139]j[177]1[167]j[178]j[171]2:i[178]i[170]2
376 [139]i[177]40[176]n[170]1[177]w[167]i[178]1
378 [137]368
380 [158]a,x,y,w$(n,0):j[178]j[171]1
382 [139]j[179]0[167]j[178]j[170]2:i[178]i[171]2
384 [139]i[179]1[167]i[178]w[171]k[170](i[173]2[178][181](i[173]2))
386 [137]368
388 [158]a,x,y,w$(n,0):i[178]i[170]2[172](n[170]2[171]k[178][179]39)[172](n[170]2[178][179]w)
390 [139]n[170]2[177]39[170]k[170]j[176]n[170]2[171]k[177]w[171]k[167]i[178]1
392 [137]368
394 [158]a,x,y,w$(n,0):i[178]i[170]2[172](n[171]2[178][177]k[170]1)
396 [139]n[171]2[179]k[170]j[170]1[167]i[178]39[172][171]([181]((w[171]k)[173]40)[177]0)[171](w[171][181](w[173]40)[172]40)[172]([181]((w[171]k)[173]40)[178]0)
398 [139]i[177]1[175][181](i[173]2)[178]i[173]2[167]i[178]i[171]1
400 [137]368
402 am[178][197]([202](w$(n,0),5,8)):[139][202](w$(n,0),13)[178]"-"[167]am[178]am[172][171]1
404 tw[178]tw[171]am:w$(n,0)[178]bj$:[158]a,x,y,bj$:[137]368
406 [130]
408 [153]"load":bf[178]0:eb[178][165]r(eb):be[178][165]r(be):tw[178][165]r(tw):bf[178]be[170]tw:bf[178][165]r(bf)
410 ba[178]eb:[141]878:eb$[178]ba$:ba[178]be:[141]878:be$[178]ba$:ba[178]tw:[141]878:tw$[178]ba$
412 ba[178]bf:[141]878:bf$[178]ba$:[139]w[178]0[167]418
414 [129]i[178]1[164]w:[139]w$(i,0)[179][177]bj$[167]w1[178]w1[170]1
416 [130]:w1$[178][201]("00"[170][202]([196](w1),2),2)
418 [153]"    peekank's valnding peekalance = ";be$:[153]w1$;"     (NULL)nverified atnmounts = "tw$
420 [153]"    atndjusted peekank peekalance = "bf$:[153]"      (NULL)our valnding peekalance = "eb$
422 [153]:[139]eb[178]bf[167]s[178]1:[153]b1$dd$b2$:[137]426
424 [153]b1$dn$b2$
426 [153]:[141]868:[139]w[178]0 [167] [153]"(NULL)o atnmounts unverified":[137]452
428 w1[178]0:[129]i[178]1[164]w:[139]w$(i,0)[178]bj$[167]438
430 w1[178]w1[170]1:x[178]w1[171][181](w1[173]2)[172]2:[139]x[178]0[167]x[178]2
432 [145]x[137]434,436
434 [153]w$(i,0)"   (NULL)";:[137]438
436 [153][163]19)w$(i,0)"   (NULL)"
438 [130]:[153]:[153]:[153]w1$" (NULL)ecords (NULL)till (NULL)nverified.":[141]868:[139]s[178]1[167]444
440 [153]"load(NULL)ry again ((NULL)/(NULL))? ";:[141]870:[139]w$[178]"n"[167]452
442 [129]i[178]0[164]80:[129]j[178]0[164]1:w$(i,j)[178]"":[130]:[130]:w[178]0:tw[178]0:w1[178]0:[137]320
444 [151]c,e:[153]"lenhecking (NULL)ff asciles ...":[129]i[178]1[164]w:[139]w$(i,0)[179][177]bj$[167]450
446 f$[178][200](w$(i,1),l):r[178][197]([201](w$(i,1),2)):p$[178]p1$[170][199](r)[170]ep$
448 [141]990:r$[178][200](r$,rl[171]2)[170]"sqr":[141]978:[153]"ascile "f$,rq$r:[153]r$
450 [130]:[153]"(NULL)erified records are checked off":[141]868
452 [137]38
454 js[178]0:l$[178]" (NULL)valatn(NULL)lenleft$closeascright$(NULL)val(NULL) ":[151]c,fc:[153]"load":[158]p,1,38,1,6,q4,u2
456 [158]p,0,37,0,5,q3,f2:[158]p,2,36,1,4,160,fc:[141]864:[145]f%[137]38,458
458 [141]840:[139]s%[167]1112
460 [141]836:[158]a,0,7,"(NULL)earch asciles from ((NULL)(NULL)(NULL)(NULL))?close":[158]o[170]3,e,d,4:[153]:d$[178]w$:[151]c,d
462 [153]"# months to search? ";:[158]o[170]3,e,d,2:[153]:[151]c,d
464 dn[178][197](w$):[158]ce,10," (NULL)elect ascield to (NULL)earch wait":[158]a,11,12,"str$ate         (1)
466 sysa,11,13,"[195]heck #      (2)":sysa,11,14,"[196]escription  (3)":dy=val(left$(d$,2))
468 sysa,11,15,"[195]ategory     (4)":sysa,11,16,"[193]mount       (5)":dm=val(right$(d$,2))
470 sysa,11,17,"[194]alance      (6)":sysa,11,18,"[212]ransaction  (7)"
472 sysa,11,19,"[214]erification (8)":sysm,12,10,27,8,d,e,"12345678"
474 onf%gosub1060,1062,1064,1066,1068,1070,1072,1074
476 qr=0:pokec,d:sysa,0,21,"[208]rint found records ([217]/[206])? ":gosub870:ifw$="y"thenqr=1
478 print"[212]otal [193]mounts of [198]ound [210]ecords ([217]/[206])? ";:gosub870:ad$=w$
480 print"[211]earch [211]tring? ";:syso,e,d,lf:s$=w$:sx=0:q=0:tt=0:av=0:pokec,d:print
482 f=len(s$):iff<1orf>lfthenprint"[204]ength must be between 1 and"lf:goto480
484 iff%=2orf%=4orf%=7orf%=8thensysuc,s$
486 iff%=2orf%=4thens$=left$(s$+bk$,lf)
488 iff%=5thenam=val(s$):sa=1:gosub942:s$=am$:sa=0
490 iff%=6thenba=val(s$):gosub878:s$=ba$
492 iff%=1andf=8orf%<>1then496
494 print"[210]e-enter [196]ate ([205][205]/[196][196]/[217][217])":goto480
496 se$="[211]earching for "+qu$+s$+qu$+" in field "+qu$+fi$+qu$+" ...
498 [139]qr[167][160]4:[159]4,4,7:[152]4,se$:[152]4
500 [129]i[178]1[164]dn[169]u:f$[178]d$[170]ty$:[141]988:r[178][197]([202](r$,9,3)):[129]j[178]1[164]r
502 p$[178]p1$[170][199](j)[170]ep$:j$[178]";"[170][202]([196](j),2):[141]990:q$[178][202](r$,by,lf):[139]f%[179][177]3[167]510
504 [129]k[178]1[164]lf[171]f[170]1:[139]s$[179][177][202](q$,k,f)[167]508
506 sx[178]1:k[178]lf[171]f[170]1
508 [130]:[137]512
510 [139]s$[178]q$[167]sx[178]1
512 [139]sx[178]0[167]520
514 am[178][197]([202](r$,rl[171]19,8)):t$[178][202](r$,rl[171]2,1):[139]t$[178]"-"[167]am[178]am[172][171]1
516 [153]j;r$:sx[178]0:q[178]q[170]1:tt[178]tt[170]am
518 [139]qr[167][152]4,[200](f$[170]j$[170]bk$,12):[152]4,r$
520 [130]:[160]2:[153]"ascile "f$" is closed"
522 dm[178]dm[170]u:[139]dm[177]12[167]dm[178]dm[171]12:dy[178]dy[170]1
524 d$[178][201]("0"[170][202]([196](dy[172]100[170]dm),2),4):[130]
526 [139]qr[167][152]4:[152]4,q"records found"
528 [151]c,d:[153]q"records found":[139]ad$[178]"n"[167]538
530 [139]q[178]0[167]tt$[178]"     0.00":av$[178]"     0.00":[137]536
532 ba[178]tt:[141]878:tt$[178]ba$:av[178]tt[173]q:ba[178]av:[141]878:av$[178]ba$
534 [153]"(NULL)otal   = ";tt$:[153]"atnverage = ";av$
536 [139]qr[167][152]4,"(NULL)otal   = ";tt$:[152]4,"atnverage = ";av$
538 [139]qr[167][152]4,tp$:[160]4
540 [151]c,d:[153]"(NULL)earch completed":[141]838:[139]w$[178]"y"[167][153]"load";:[137]458
542 [137]38
544 [151]bc,pg:ps[178]3:[153]"load":[151]c,fc:[158]p,5,38,5,20,q4,u2:[158]p,4,37,4,19,q3,f2:s8[178]0
546 [158]p,5,36,5,18,160,fc:[158]ce,7," peek(NULL)str$chr$val(NULL)atnright$str$ "
548 [158]a,8,9,"lenollect str$ata        (1)wait
550 sysa,8,10,"[196]isplay [210]eview [198]ile (2)[146]":sysa,8,11,"[211]ave [210]eview [198]ile    (3)[146]
552 [158]a,8,12,"(NULL)oad (NULL)eview ascile    (4)wait":[158]a,8,13,"(NULL)rint (NULL)eview ascile   (5)wait
554 sysa,8,14,"[196]irectory           (6)[146]":sysa,8,15,"[200]elp                ([200])[146]
556 [158]a,8,16,"(NULL)eturn to (NULL)ain (NULL)enu ((NULL))":[158]m,9,7,31,8,fc,e,"123456hx(NULL)left$
558 onf%goto560,624,690,704,724,56,1224,38,38,1224
560 j=0:l$="[195]ollect [196]ata":gosub862:onf%goto544,562
562 pokec,d:gosub840:ifs%=1then1112
564 print"[198]or how many months (1-12)? ";:syso,e,d,2:print:le=val(w$):ifle>12then564
566 ab$="":a$="[211]tarting ":ab$="[217]ear and [205]onth ([217][217][205][205])? ":ifle>1thenab$=a$+ab$
568 pokec,d:printab$;:syso,e,d,4:d$=w$:dy$=left$(d$,2):dm$=right$(d$,2):print:pokec,d
570 dy=val(dy$):dm=val(dm$):ifle<1then564
572 ifle=1theng$="":goto578
574 gm=dm+le-1:gy=dy:ifgm>12thengm=gm-12:gy=gy+1
576 g=gy*100+gm:g$=right$("0"+mid$(str$(g),2),4)
578 f$=d$+ty$:printa$+"file "f$:ifle<>1thenprint"  [197]nding file "g$+ty$
580 gosub1254:ifw$<>"y"then562
582 fr$=rv$+d$:ifle=1thenfr$=fr$+ty$
584 ifle>1thenfr$=fr$+"-"+g$+ty$
586 gosub1076:print"[195]ollecting [196]ata for "fr$" ...":fori=0to40:forj=0to1
588 b(i,j)=0:next:forj=0to12:b%(i,j)=0:next:next:b1=0:b2=0:bi=0
590 fori=1tolestepu:f$=dy$+dm$+ty$:gosub988:r=val(mid$(r$,9,3))
592 dm=val(dm$):ifi=le thenb2=val(mid$(r$,rl-11,9))
594 forj=1tor:t=0:p$=p1$+chr$(j)+ep$:gosub990:ifasc(r$)=255then612
596 ca$=mid$(r$,rl-21,2):am=val(mid$(r$,rl-19,8)):ba=val(mid$(r$,rl-11))
598 ifj=1andi=1thenb1=ba
600 t$=mid$(r$,rl-2,1):v$=mid$(r$,rl-1,1):ifca$="[206][194]"orca$="[197][194]"thenam=ba
602 ift$="-"thenam=am*-1
604 fork=1tov:ifca$=b$(k,0)thent=k:k=v
606 next:ift=0thenprintca$" category not found":printrq$r,"[198]ile "f$:goto610
608 b(t,0)=b(t,0)+am:b%(t,dm)=b%(t,dm)+1:ifca$="[201][206]"thenbi=bi+am
610 b(0,0)=b(0,0)-am*(t$="+"):b(0,1)=b(0,1)-am*(t$="-")
612 next:close2:print"[198]ile "f$" closed":ifle=1then618
614 dm=dm+u:ifdm>12thendm=dm-12:dy=dy+1
616 dm$=right$("0"+mid$(str$(dm),2),2):dy$=right$("0"+mid$(str$(dy),2),2)
618 next:forj=1tov:fork=1to12:ifb%(j,k)thenb%(j,0)=b%(j,0)+1
620 next:ifb%(j,0)thenb(j,1)=b(j,0)/b%(j,0)
622 next:gosub868:goto544
624 js=0:l$="[196][201][211][208][204][193][217][160][210][214]"+mid$(fr$,3):gosub862:onf%goto544,626
626 iffr$=""then1086
628 ifv=0thengosub1076
630 sysp,0,39,7,24,32,d:sysa,0,8,"[195]ategory [212]otals and [193]verages (1)
632 [158]a,0,9,"(NULL)onthly ascrequency lenhart      (2)
634 sysa,0,10,"[195]ategories [196]efinitions       (3)"
636 sysa,0,11,"[210]eturn to [194]udgetaid [205]enu     (4)":sysm,8,0,32,4,d,e,"1234"
638 onf%goto642,672,684,544
640 print"[147]":gosub670
642 print"[147]":gosub670:sysa,0,1,"[195]ategory[146]"
644 sysa,12,1,"[212]otals[146]":sysa,24,1,"[193]verages[146]":sysa,36,1,"# [205][146]"
646 sysa,0,3,n$:fori=1tov:printb$(i,0);:forj=0to1:ba=b(i,j):gosub878
648 printtab(10+j*13)ba$;:next:printtab(35)b%(i,0)
650 ifi=20thengosub868:sysp,0,39,2,24,32,d:sysa,0,3,n$
652 next:gosub868:sysp,0,39,2,24,32,d:sysa,0,8,n$:ba=b1:gosub878
654 print"[194]eginning [194]alance ="ba$:bc$="[212]otal [196]eposits    ="
656 ifcr=-1thenbc$="[212]otal [195]harges     ="
658 ba=b(0,0):gosub878:printbc$ba$:bc$="[212]otal [215]ithdrawals ="
660 ifcr=-1thenbc$="[212]otal [208]ayments    ="
662 ba=b(0,1):gosub878:printbc$ba$:ifbi=0then666
664 bc$="[212]otal [201]nterest    =":ba=bi:gosub878:printbc$ba$
666 ba=b2:gosub878:print"[197]nding [194]alance    ="ba$
668 gosub868:sysp,0,39,2,24,32,d:sysa,0,3,n$:goto630
670 sysp,0,39,0,0,160,e:pokec,e:sysce,0,""+l$+"[146]":pokec,d:sysp,0,39,1,1,160,d:return
672 print"[147]":gosub670:l1$="[205]onthly [198]requency [195]hart[146]":sysce,1,l1$
674 sysa,0,2,"[195][193][212][160][160][160][212]  1 2 3 4 5 6 7 8 9 [207][160][206][160][196][146]":sysa,0,3,n$
676 fori=1tov:ifi=20thengosub868:sysp,0,39,2,24,32,d:sysa,0,3,n$
678 printb$(i,0)"  ";:bb$=right$(bk$+str$(b%(i,0)),3)+" ":printbb$;
680 forj=1to12:bb$=right$(bk$+str$(b%(i,j)),2):printbb$;:next:print:next
682 gosub868:goto624
684 print"[147]":gosub670
686 sysa,0,3,n$:l1$="[195]ategory [196]efinitions[146]":sysce,1,l1$:sysa,0,2,n$:fori=1tovstep2
688 forj=0to1:printtab(j*20)b$(i+j,1);:next:print:next:gosub868:goto624
690 js=0:l$="[211][193][214][197][160][210][197][214][201][197][215][160][198][201][204][197]":gosub862:onf%goto544,692
692 iffr$=""then1086
694 sf=0:print"[211]aving "fr$:close7:open7,dv,7,pf$+":"+fr$+",s,w":input#15,er,em$
696 b$(0,0)="-1":b$(0,1)="0":ifer=63thengosub1238:on(sf+1)goto692,544
698 print#7,v:fori=0tov:print#7,b$(i,0);cr$;b$(i,1):forj=0to1
700 print#7,b(i,j):next:next:fori=0tov:forj=0to12:print#7,b%(i,j)
702 next:next:print#7,b1:print#7,b2:print#7,bi:close7:gosub868:goto544
704 js=0:l$="[204][207][193][196] [210][197][214][201][197][215][160][198][201][204][197]":gosub862:onf%goto544,706
706 di$="0:":ifcl<42then710
708 s4=1:gosub58:di$=di$+":":s4=0
710 print"[210]eview file? ";:syso,e,d,16:fr$=w$:print:pokec,d
712 print"[211]earching for "di$+fr$:close7:open7,dv,7,di$+fr$+",s,r"
714 input#15,er,em$:ifer=62thenprintem$:gosub868:goto704
716 print"[204]oading "di$+fr$" ...
718 [141]830:[132]7,v:[129]i[178]0[164]v:[132]7,b$(i,0),b$(i,1):[129]j[178]0[164]1
720 [132]7,b(i,j):[130]:[130]:[129]i[178]0[164]v:[129]j[178]0[164]12:[132]7,b%(i,j)
722 [130]:[130]:[132]7,b1:[132]7,b2:[132]7,bi:[160]7:[141]868:[137]544
724 l$[178]"(NULL)(NULL)right$(NULL)(NULL)close(NULL)"[170][202](fr$,2):[141]862:[145]f%[137]544,726
726 [151]c,d:[139]fr$[178]""[167]1086
728 [139]b$(1,0)[178]""[167][141]1076
730 m$[178]"lenatn        (NULL)(NULL)(NULL)atn(NULL)(NULL) closecloseatn(NULL)val(NULL)atnchr$val(NULL) close(NULL)(NULL)closeclose01  02  03  04  05  06  07  08  09  10
732 m$=m$+"  11  12":close4:open4,4,7:l$="[210][197][214][201][197][215] "+mid$(fr$,3):l=len(l$)
734 print"[210]eady printer":gosub868:f=int(80-l)/2:print#4,tab(f)l$:print#4,cr$;m$
736 print"[198]ormatting for printout ...
738 [129]i[178]1[164]v:bp$[178]b$(i,0)[170]"   ":[129]j[178]0[164]1:ba[178]b(i,j):[141]878:bp$[178]bp$[170]"  "[170]ba$:[130]
740 [129]j[178]0[164]12:j$[178]"  "[170][200]("0"[170][202]([196](b%(i,j)),2),2):bp$[178]bp$[170]j$:
742 [130]:[152]4,bp$:[130]:[152]4:ba[178]b1:[141]878:[152]4,"peekeginning peekalance ="ba$
744 bc$[178]"(NULL)otal str$eposits    =":[139]cr[178][171]1[167]bc$[178]"(NULL)otal lenharges     ="
746 ba[178]b(0,0):[141]878:[152]4,bc$ba$:bc$[178]"(NULL)otal (NULL)ithdrawals ="
748 [139]cr[178][171]1[167]bc$[178]"(NULL)otal (NULL)ayments    ="
750 ba[178]b(0,1):[141]878:[152]4,bc$ba$:[139]bi[178]0[167]754
752 bc$[178]"(NULL)otal right$nterest    =":ba[178]bi:[141]878:[152]4,bc$ba$
754 ba[178]b2:[141]878:[152]4,"valnding peekalance    ="ba$
756 [152]4:l$[178]"lenatn(NULL)valchr$(NULL)(NULL)(NULL)closestr$valascright$(NULL)right$(NULL)right$(NULL)(NULL)(NULL)":l[178][195](l$):f[178][181]((80[171]l)[173]2):b[178]20
758 l$[178][200](bk$,f)[170]l$:[152]4,l$:[152]4
760 [129]i[178]1[164]v[169]4:i$[178]"":[129]j[178]0[164]3:[139]i[170]j[177]v[167]j[178]3:[137]764
762 j$[178][200](b$(i[170]j,1)[170]bk$,20):i$[178]i$[170]j$:[130]:
764 [152]4,i$:[130]:[152]4,tp$:[160]4:[145](s8[170]1)[137]544,38
766 l$[178]" atnstr$str$/str$val(NULL)val(NULL)valcloselenatn(NULL)valchr$(NULL)(NULL)(NULL) ":[153]"load":[151]c,fc:[158]p,1,38,1,6,q4,u2
768 [158]p,0,37,0,5,q3,f2:[158]p,2,36,1,4,160,fc:[141]864:[145]f%[137]38,770
770 [141]1076:b[178]20:[158]p,0,39,10,16,160,d
772 [158]a,2,11,"   atndding or deleting categories
774 sysa,2,12,"could invalidate previous files and
776 [158]a,2,13,"records. (NULL)hink carefully, and search
778 sysa,2,14,"and change all previous records that"
780 sysa,2,15,"might be affected.[146]":sysa,2,18,"[195]ontinue ([217]/[206])? ":gosub870
782 ifw$="n"then544
784 print"[147]";:fori=1tov:ifi=20thengosub868:print"[145]"bk$:print"[145]";
786 forj=0to1:printtab(j*b)b$(i,j);:next:print:next:printv"[195]ategories"
788 n=0:print"[193][146]dd/[196][146]elete/[197][146]xit":sysbr,"ade":onf%goto790,790,822
790 print"[195]ategory ([206][206])? ";:syso,e,d,2:print:n1$=w$:sysuc,n1$:ifn1$=""then790
792 n1$=left$(n1$+" ",2):print"[196]efinition? ";:syso,e,d,15:n2$=w$:print:ifn2$=""then792
794 n2$=n1$+"="+n2$:iff%=2then804
796 print" [193]dding category [146]":sz=0:fori=1tov:ifn1$=b$(i,0)thensz=1:
798 next:ifszthenprint"[195]ategory already exists.":goto790
800 v=v+1:b$(v,0)=n1$:b$(v,1)=n2$:b$(v+1,0)="-1
802 b$(v[170]1,1)[178]"0":[153]"lenategory "n2$" added":[153]v;"lenategories total":[137]814
804 [153]" str$eleting category "[170]n2$[170]"wait":[129]i[178]1[164]v
806 [139]b$(i,0)[178]n1$[175]b$(i,1)[178]n2$[167]k[178]i:i[178]v
808 [130]:[139]k[178]0[167][153]"lenategory "n2$" not found":[137]814
810 v[178]v[171]1:[129]i[178]k[164]v:b$(i,0)[178]b$(i[170]1,0):b$(i,1)[178]b$(i[170]1,1):[130]:b$(i,0)[178]"-1
812 b$(i,1)="0":print"[195]ategory "n2$" deleted":printv;"[195]ategories remaining
814 [141]838:[139]w$[178]"y"[167]784
816 [153]"(NULL)ewriting lenategory ascile ...":[152]15,"s"[170]cf$:[141]828
818 [159]6,dv,6,cf$[170]",s,w":[141]828:[129]i[178]1[164]v[170]1:[129]j[178]0[164]1
820 [152]6,b$(i,j):[130]:[130]:[160]6
822 [153]"(NULL)rint lenategories ((NULL)/(NULL))? ";:[141]870:[139]w$[179][177]"y"[167]826
824 [153]"(NULL)eady (NULL)rinter":[141]868:s8[178]1:[160]4:[159]4,4,7:[137]756
826 [141]868:[137]38
828 [132]15,er,em$,et,es:[139]er[178]50[167]834
830 [139] er[179]20[167]834
832 [153]er;em$;et,es:[143]run
834 [142]
836 [158]p,0,39,7,24,32,pg:[142]
838 [151]c,e:[153]"(NULL)ore ((NULL)/(NULL))? ";:[141]870:[142]
840 ty$[178]"":[158]a,0,13,"ascile (NULL)uffix? ":[158]o,e,d,4:ty$[178]"."[170]w$:[153]:[151]c,d
842 s%[178]0:[141]1230:[139]s%[178]1[167]856
844 [141]836:[158]a,0,7,"(NULL)ecord (NULL)ength ="[170][196](rl)
846 dl[178]rl[171]33:[158]a,0,8,"str$escription ascield (NULL)ength ="[170][196](dl)
848 [158]a,0,9,"ascile right$nterval ="[170][196](u):[158]a,0,10,"ascile (NULL)uffix = "[170]qu$[170]ty$[170]qu$
850 z$[178]"(NULL)ot a lenredit atnccount":[139]cr[179]1[167] z$[178][201](z$,14)
852 [158]a,0,11,z$:z$[178]"lenpeek(NULL)":[139]cl[177]41[167]z$[178]"len(NULL)str$"
854 z$[178]z$[170]" str$rive":[158]a,0,12,z$:[139]cl[177]41[167]z$[178]"(NULL)artition "[170]pf$:[158]a,0,13,z$
856 [153]:[153]:[141]1254:[139]w$[179][177]"y"[167]s%[178]1
858 [141]836:[158]a,0,8,n$:[142]
860 [151]c,fc:[158]ce,3,l$:[151]c,d:[142]
862 [153]"load":[151]c,fc:[158]p,1,38,1,6,q6,u3:[158]p,0,37,0,5,q5,f3
864 [158]p,2,36,1,4,160,fc:[158]ce,2,l$:[139]js[178]1[167][158]a,0,7,n$:[151]c,d:[142]
866 [158]ce,3,"(NULL) to exit/len to contwait":[158]a,0,7,n$:[151]c,d:[158]br,"xc":[142]
868 [151]c,e:[153]pp$;
870 [158]o,e,d,1:[158]lc,w$:[153]:[151]c,d:[142]
872 [160]2:[159]2,dv,2,pf$[170]":"[170]f$[170]",l,"[170][199](rl):[141]828:[142]
874 [160]3:[159]3,dv,3,pf$[170]":"[170]f$[170]",l,"[170][199](rl):[141]828:[142]
876 [152]15,p$:[141]828:[142]
878 [139]ba[178]0[167]ba$[178]"     0.00":[137]882
880 ba$[178][196]([165]s(ba)):ba$[178][201](bk$[170]ba$,8):ba$[178][200](ba$,6)[170]"."[170][201](ba$,2)
882 [142]
884 [141]836:[158]a,0,7,rc$:[158]a,13,7,cb$:[158]a,0,9,"str$ate         (a)
886 bx=ba:sysa,0,10,"[195]heck #      (b)":sysa,0,11,"[195]ategory     (c)
888 [158]a,0,12,"atnmount       (d)":[158]a,0,13,"(NULL)ransaction  (f)":tr[178]13:td[178]14
890 [158]a,0,14,"str$escription  (h)":[158]a,0,17,bk$:[158]a,0,16,"(NULL)kay       (y/x)
892 sysa,0,17,bk$:sysa,0,16,"[207]kay       (y/x)
894 [151]c,d:[158]m,9,0,15,8,d,e,"abcdfhny(NULL)x(NULL)":[145]f%[141]924,932,936,940,950,920
896 [145](f%[171]6[177]0)[172][171](f%[171]6)[137]898,900,900,960,960
898 [139]f%[179]8[167]892
900 ba[178]ba[170]am[172](t$[178]"-")[171]am[172](t$[178]"+"):[158]p,0,39,13,24,32,pg:[141]878:tr[178]14:td[178]16
902 [158]a,0,13,"peekalance      (e)":[158]a,18,13,[200](bk$,11):[158]a,18,13,ba$
904 [158]a,0,14,"(NULL)ransaction  (f)":[158]a,18,14,t$:[158]a,0,15,"(NULL)erification (g)
906 sysa,18,15,v$:sysa,0,16,"[196]escription  (h)":sysa,18,16,de$
908 sysa,0,19,bk$:sysa,0,18,"0kay       (y/x)":pokec,d
910 sysm,9,0,15,10,d,e,"abcdefghny[217]x[216]
912 [145]f%[141]924,932,936,940,954,950,958,920
914 [145](f%[171]8[177]0)[172][171](f%[171]8)[137]908,918,918,960,960
916 [139]f%[179]10[167]908
918 r$[178]da$[170]ch$[170]de$[170]ca$[170]am$[170]ba$[170]t$[170]v$:p$[178]p1$[170][199](rc)[170]ep$:[141]978:[142]
920 at$[178]bk$[170]"  ":[158]a,18,td,at$:[158]a,18,td,n$:[158]o,e,d,dl:de$[178]w$
922 de$[178][200](de$[170]bk$,dl):[158]a,18,td,at$:[158]a,18,td,de$:[142]
924 [158]a,18,9,kr$:[158]a,18,9,n$:[158]o,e,d,8:da$[178]w$
926 [139][195](da$)[178]2[167]da$[178]dm$[170]"/"[170]da$[170]"/"[170]dy$
928 [139][195](da$)[179][177]8[167]924
930 [158]a,18,9,kr$:[158]a,18,9,da$:[142]
932 [158]a,18,10,kr$:[158]a,18,10,n$:[158]o,e,d,3:ch$[178]w$
934 ch$[178][200](ch$[170]bk$,3):[158]uc,ch$:[158]a,18,10,kr$:[158]a,18,10,ch$:[142]
936 [158]a,18,11,kr$:[158]a,18,11,n$:[158]o,e,d,2:ca$[178]w$
938 ca$[178][200](ca$[170]bk$,2):[158]uc,ca$:[158]a,18,11,kr$:[158]a,18,11,ca$:[142]
940 [158]a,18,12,kr$:[158]a,18,12,n$:[158]o[170]3,e,d,8:am[178][197](w$)
942 [139]am[178]0[167]am$[178]"    0.00":[137]946
944 am$[178][196]([165]s(am)):am$[178][201](bk$[170]am$,7):am$[178][200](am$,5)[170]"."[170][201](am$,2)
946 [139]sa[178]1[167][142]
948 [158]a,18,12,kr$:[158]a,19,12,am$:[142]
950 [158]a,18,tr,kr$:[158]a,18,tr,n$:[158]o,e,d,1:t$[178]w$:[158]uc,t$
952 [158]a,18,tr,kr$:[158]a,18,tr,t$:[142]
954 [158]a,18,13,kr$:[158]a,18,13,n$:[158]o[170]3,e,d,9:ba[178][197](w$)
956 [141]878:[158]a,18,13,kr$:[158]a,18,13,ba$:[142]
958 [158]a,18,15,kr$:[158]a,18,15,n$:[158]o,e,d,1:v$[178]w$:[158]uc,v$:[158]a,18,15,v$:[142]
960 rc[178]rc[171]1:[139]rc[179]2[167]rc[178]2
962 ba[178]bx:[141]878
964 [142]
966 ba[178]bx:[141]878:[137]246
968 [151]c,e:[153]"(NULL)pdating atnccount ...":[151]c,d:t$[178]"(NULL)":v$[178]"(NULL)"
970 ch$[178][202]([196](rc),2):ch$[178][201]("000"[170]ch$,3):am[178]0:am$[178]"    0.00"
972 de$[178][200]("valnding peekalance"[170]bk$,dl):ca$[178]"valpeek":[141]878
974 r$[178]da$[170]ch$[170]de$[170]ca$[170]am$[170]ba$[170]t$[170]v$:[139][195](r$)[179][177]rl[171]1[167]980
976 [153]ha$:rn$[178]"002":[141]992:[153]fc$:[141]994:p$[178]p1$[170][199](2)[170]ep$
978 [141]872:[141]876:[152]2,r$:[141]828:[141]876:[160]2:[142]
980 [153]"(NULL)e-enter valnding str$ate ";:[158]o,e,d,8:da$[178]w$:[153]
982 [139][195](da$)[178]2[167]da$[178]dm$[170]"/"[170]da$[170]"/"[170]dy$
984 [139][195](da$)[179][177]8[167]980
986 [137]974
988 p$[178]p1$[170][199](2)[170]ep$
990 [141]872:[141]876:[132]2,r$:[141]828:[141]876:[160]2:[142]
992 [153]rn$" "de$:[142]
994 [153]"  "da$" "ch$" "ca$" "am$" "ba$" "t$" "[170]v$:[142]
996 at$[178]bk$[170]"  ":[158]a,18,16,at$:[158]a,18,16,n$:[158]o,e,d,dl:d3$[178]w$
998 d3$[178][200](d3$[170]bk$,dl):[158]a,18,16,at$:[158]a,18,16,d3$:[142]
1000 [158]a,18,9,kr$:[158]a,18,9,n$:[158]o,e,d,8:d1$[178]w$
1002 [139][195](d1$)[178]2[167]d1$[178]dm$[170]"/"[170]d1$[170]"/"[170]dy$
1004 [139][195](d1$)[179][177]8[167]1000
1006 [139]r[178]2[167]da$[178]d1$
1008 [158]a,18,9,kr$:[158]a,18,9,d1$:[142]
1010 [158]a,18,10,kr$:[158]a,18,10,n$:[158]o,e,d,3:d2$[178][200](w$[170]bk$,3)
1012 [158]uc,d2$:[158]a,18,10,kr$:[158]a,18,10,d2$:[142]
1014 [158]a,18,11,kr$:[158]a,18,11,n$:[158]o,e,d,2:d4$[178][200](w$[170]bk$,2)
1016 [158]uc,d4$:[158]a,18,11,kr$:[158]a,18,11,d4$:[142]
1018 [158]a,18,12,kr$:[158]a,18,12,n$:[158]o[170]3,e,d,8:dx[178][197](w$)
1020 d6[178]d6[170]([171](d7$[178]"+"))[172](dx[171]d5)[170]((d7$[178]"-"))[172](dx[171]d5):d5[178]dx
1022 [139]d5[178]0[167]d5$[178]"    0.00":[137]1026
1024 d5$[178][196]([165]s(d5)):d5$[178][201](bk$[170]d5$,7):d5$[178][200](d5$,5)[170]"."[170][201](d5$,2)
1026 [158]a,18,12,kr$:[158]a,19,12,d5$:[137]1030
1028 [158]a,18,13,kr$:[158]a,18,13,n$:[158]o[170]3,e,d,9:d6[178][197](w$)
1030 ba[178]d6:[141]878:d6$[178]ba$:[139]sd[167][142]
1032 [158]a,18,13,kr$:[158]a,18,13,d6$:s9[178]1:[142]
1034 [158]a,18,14,kr$:[158]a,18,14,n$:[158]o,e,d,1:d7$[178]w$:[158]uc,d7$
1036 [158]a,18,14,kr$:[158]a,18,14,d7$:[142]
1038 [158]a,18,15,kr$:[158]a,18,15,n$:[158]o,e,d,1:d8$[178]w$:[158]uc,d8$:[158]a,18,15,d8$:[142]
1040 [153]"atndjusting balance on following records":[151]c,d:[153]ha$:[153]"on"fc$
1042 [129]i[178]r[170]1[164]rc:p$[178]p1$[170][199](i)[170]ep$:[141]990
1044 [139][198](r$)[178]255[167]rd$[178][196](r):[153]rd$[170]" record deleted":[137]1058
1046 d1$[178][202](r$,1,8):d2$[178][202](r$,9,3):d3$[178][202](r$,12,dl):d4$[178][202](r$,rl[171]21,2)
1048 d5$[178][202](r$,rl[171]19,8):d6$[178][202](r$,rl[171]11,9):d7$[178][202](r$,rl[171]2,1)
1050 d8$[178][201](r$,1):d5[178][197](d5$):d6[178][197](d6$):i$[178][201]("0"[170][202]([196](i),2),2)
1052 d6[178]ba[170]([171](d7$[178]"+"))[172]d5[170]((d7$[178]"-"))[172]d5:ba[178]d6
1054 [141]878:d6$[178]ba$:r$[178]d1$[170]d2$[170]d3$[170]d4$[170]d5$[170]d6$[170]d7$[170]d8$:[141]978
1056 [153]i$" "d3$:[153]"  "d1$" "d2$" "d4$"close"d5$" "d6$" "d7$" "d8$
1058 [130]:[141]868:[142]
1060 by[178]1:lf[178]8:fi$[178]"str$ate":[142]
1062 by[178]9:lf[178]3:fi$[178]"lenheck #":[142]
1064 by[178]12:lf[178]dl:fi$[178]"str$escription":[142]
1066 by[178]rl[171]21:lf[178]2:fi$[178]"lenategory":[142]
1068 by[178]rl[171]19:lf[178]8:fi$[178]"atnmount":[142]
1070 by[178]rl[171]11:lf[178]9:fi$[178]"peekalance":[142]
1072 by[178]rl[171]2:lf[178]1:fi$[178]"(NULL)ransaction":[142]
1074 by[178]rl[171]1:lf[178]1:fi$[178]"(NULL)erification":[142]
1076 [153]"(NULL)eading "[202](cf$,3)" file ...":[159]6,dv,6,cf$[170]",s,r"
1078 [132]15,er,em$:[139]er[178]62[167][153]em$:[141]868:[137]1084
1080 [141]828:v[178]0:[129]i[178]1[164]40:[129]j[178]0[164]1:[132]6,b$(i,j):[130]:[139]b$(i,0)[178]"-1"[167]v[178]i[171]1:i[178]40
1082 [130]
1084 [160]6:[142]
1086 [153]"lenollect str$ata or (NULL)oad ascile first":[141]868:[137]544
1088 [158]ce,23," (NULL)pen new file wait":[158]ce,24,pp$:[141]870:[137]88
1090 rr[178]rr[171]1:p$[178]p1$[170][199](rr)[170]ep$:[141]872:[141]876:[132]2,rr$:[141]828:[141]876:[160]2:[142]
1092 c5[178][197]([202](rr$,rl[171]19,8)):c6[178][197]([202](rr$,r1[171]11,9)):[139]c5[178]0[175]c6[178]0[167]1090
1094 d6[178]c6:[142]
1096 [158]a,0,22,n$:[153]"str$isk command?wait ";:[158]o,e,d,cl:cq$[178]w$:[153]:[139]cq$[178]""[167]38
1098 [152]15,cq$:[158]a,0,22,bk$[170]"   ":[132]15,er,em$,et,es
1100 em$[178][196](er)[170]" "[170]em$[170]","[170][196](et)[170]","[170][196](es):[158]a,0,22,em$:[153]:[141]868:[137]38
1102 [158]a,z,21,l$:[158]a,z,22,"lenolor 1 (0-15)? ":[158]o,e,d,2:d[178][197](w$)
1104 [158]a,z,23,"lenolor 2 (0-15)? ":[158]o[170]3,e,d,2:e[178][197](w$):[142]
1106 [160]10:[159]10,dv,5,"col.opt,s,r":[141]828
1108 [132]10,d,e,pg,fc,u1,f1,u2,f2,u3,f3:[141]828
1110 [132]10,q1,q2,q3,q4,q5,q6:[141]828:[160]10:[142]
1112 js[178]0:[151]c,fc:l$[178]" (NULL)(NULL)(NULL)right$(NULL)(NULL)(NULL) ":[153]"load";:[158]p,1,38,1,6,q4,u2:[158]p,0,37,0,5,q3,f2
1114 [158]p,2,36,1,4,160,fc:[141]864:[145]f%[137]38,1116
1116 [141]1204:[141]1208:[141]1212:[151]c,d:[158]a,18,7,"peekackground lenolor   (1)
1118 sysa,18,8,"[195]ursor [195]olor       (2)":sysa,18,9,"[205]enu [194]ackground    (3)
1120 [158]a,18,10,"(NULL)ain (NULL)enu ascrame    (4)":[158]a,18,11,"(NULL)ain (NULL)enu (NULL)hadow   (5)"
1122 [158]a,18,12,"(NULL)econdary ascrame    (6)":[158]a,18,13,"(NULL)econdary (NULL)hadow   (7)"
1124 [158]a,18,14,"(NULL)ertiary ascrame     (8)":[158]a,18,15,"(NULL)ertiary (NULL)hadow closeclose (9)"
1126 [158]a,18,16,"(NULL)ave lenolor (NULL)ptions (len)":[158]a,18,17,"lenhoose ascile (NULL)ptions(asc)
1128 sysa,18,18,"[199]oto [205]ain [205]enu     ([216])":sysfr,9,39,20,24,e:z=10
1130 sysm,7,18,39,12,d,e,"123456789cfx[195][198][216]"
1132 onf%goto1136,1138,1140,1144,1148,1150,1154,1156,1160,1188,1162,38
1134 onf%-13goto1188,1162,38
1136 l$="[194]ackground [195]olor:":gosub1196:pg=i:pokebc,pg:pokebc+1,pg:goto1200
1138 l$="[195]ursor [195]olor:":gosub1102:pokec,d:sysfr,9,39,20,24,e:goto1200
1140 l$="[205]enu [194]ackground:":gosub1196:fc=i
1142 pokec,fc:gosub1204:gosub1208:gosub1212:pokec,d:goto1200
1144 l$="[205]ain [205]enu [198]rame:":gosub1196:f1=i:gosub1198:q1=i
1146 gosub1204:goto1200
1148 l$="[205]ain [205]enu [211]hadow:":gosub1196:u1=i:gosub1198:q2=i:goto1146
1150 l$="[211]econdary [198]rame:":gosub1196:f2=i:gosub1198:q3=i
1152 gosub1208:goto1200
1154 l$="[211]econdary [211]hadow:":gosub1196:u2=i:gosub1198:q4=i:goto1152
1156 l$="[212]ertiary [198]rame:":gosub1196:f3=i:gosub1198:q5=i
1158 gosub1212:goto1200
1160 l$="[212]ertiary [211]hadow:":gosub1196:u3=i:gosub1198:q6=i:goto1158
1162 l$="[198]ile [207]ptions":sysa,z,21,l$:sysa,z,23,"[211]elect ([195][194][205]/[195][205][196])":cl=41:pf$="0"
1164 sysa,z,22,"[196]isk [196]rive [212]ype? ":syso,e,d,3:sysuc,w$:print:ifw$<>"[195][205][196]"then1170
1166 cl=127:gosub1202:sysa,z,23,"[210]ange (1 to 31)":sysa,z,22,"[208]artition #? "
1168 syso+3,e,d,2:pf$=w$:sysa,z,23,x$:sysa,z,23,"[208]ath?[160]":syso,e,d,22:pf$=pf$+w$
1170 gosub1202:sysa,z,22,"[198]ile [211]uffix? ":syso,e,d,4:ty$="."+w$:gosub1202
1172 sysa,z,22,"[195]redit [193]cct ([217]/[206])? ":gosub870:cr=-(w$<>"y")+(w$="y")
1174 gosub1202:sysa,z,23,"[210]ange (45-70)":sysa,z,22,"[210]ecord [204]ength? "
1176 syso+3,e,d,2:rl=val(w$):ifrl<45orrl>70thensysa,z,22,x$:goto1174
1178 gosub1202:sysa,z,23,"[210]ange (1-12)":sysa,z,22,"[198]ile interval? "
1180 syso+3,e,d,2:u=val(w$):print:ifu<1oru>12thensysa,z,22,x$:goto1178
1182 gosub1202:sysa,z,22,"[211]ave [207]ptions ([217]/[206])? ":gosub870:ifw$="y"thengosub1202:goto1244
1184 goto1200
1186 sysp,25,28,19,21,160,fc:return
1188 fo$="0:col.opt":print#15,"s"+fo$:sysa,z,21,mid$(fo$,3):sysa,z,22,"[211]aving ...
1190 [160]10:[159]10,dv,5,fo$[170]",s,w":[141]828:[152]10,d;cr$;e;cr$;pg;cr$;fc:[141]828
1192 [152]10,u1;cr$;f1;cr$;u2;cr$;f2;cr$;u3;cr$;f3;cr$;q1;cr$;q2;cr$;q3:[141]828
1194 [152]10,q4;cr$;q5;cr$;q6:[141]828:[160]10:[137]38
1196 [158]a,z,21,l$:[158]a,z,22,"lenolor (0-15)? ":[158]o[170]3,e,d,2:i[178][197](w$):[151]c,d:[142]
1198 [158]a,z,23,"(NULL)creen lenode? ":[158]o,e,d,3:i[178][197](w$):[153]:[151]c,d:[142]
1200 [141]1202:[158]a,z,21,x$:[137]1130
1202 [158]a,z,22,x$:[158]a,z,23,x$:[142]
1204 [151]c,fc:[158]p,1,6,9,13,q2,u1:[158]p,0,5,8,12,q1,f1:[158]p,1,4,9,11,160,fc
1206 l$[178]"(NULL)1wait":[158]a,2,10,l$:[151]c,d:[142]
1208 [151]c,fc:[158]p,10,16,9,13,q4,u2:[158]p,9,15,8,12,q3,f2
1210 [158]p,10,14,9,11,160,fc:l$[178]"(NULL)2wait":[158]a,11,10,l$:[151]c,d:[142]
1212 [151]c,fc:[158]p,1,6,17,21,q6,u3:[158]p,0,5,16,20,q5,f3
1214 [158]p,1,4,17,19,160,fc:l$[178]"(NULL)3wait":[158]a,2,18,l$:[151]c,d:[142]
1216 [158]ce,4,"lenursor to move/wait(NULL)val(NULL)(NULL)(NULL)(NULL) to selectwait":[151]c,d:[142]
1218 [158]39948,54272,40960,255:[158]rh[170]3,40960,e,u1,"peekcloseatn (NULL) (NULL) valclose(NULL) 6 4":[137]38
1220 [158]39948,58624,40960,255
1222 [158]rh[170]3,40960,e,u1,"atn len lenclose(NULL)close(NULL) (NULL)close(NULL) closeclose(NULL) atn (NULL) atnclosechr$ val (NULL)":[137]70
1224 [158]39948,63488,40960,255
1226 [158]rh[170]3,40960,e,u1,"peekclose(NULL) str$ chr$ valclose(NULL) atn right$ str$":[137]544
1228 [151]c,e:[153]ar$;:[141]870:[151]c,d:[142]
1230 fo$[178]"fop"[170]ty$:[160]9:[159]9,dv,4,"0:"[170]fo$[170]",s,r"
1232 [132]15,er,em$,et,es:[139]er[179][177]62[167][141]830:[137]1236
1234 [153]qu$fo$qu$" "em$:[141]868:s%[178]1:[142]
1236 [132]9,ty$,cr,rl,u,cl,pf$:[141]828:[160]9:[142]
1238 [153][202](fr$,3)" "em$:[153]"(NULL)eplace it ((NULL)/(NULL))?close";:[141]870:[139]w$[178]"n"[167]sf[178]1:[142]
1240 [152]15,"s0:"[170]fr$:[141]828:[142]
1242 ba$[178][202](r2$,rl[171]11,9):ba[178][197](ba$):rc[178]rq[171]1:da$[178][202](r2$,1,8):[141]968:[142]
1244 fo$[178]"0:fop"[170]ty$:z$[178]"(NULL)aving "[170]fo$:[158]a,z,22,z$
1246 [160]9:[159]9,dv,4,fo$[170]",s,w":[132]15,er,em$,et,es:[139]er[179][177]63[167][141]830:[137]1252
1248 [141]1202:[158]a,z,22,em$:[158]a,z,23,"(NULL)eplace it ((NULL)/(NULL))? ":[141]870:[139]w$[179][177]"y"[167]1200
1250 [152]15,"s"[170]fo$:[137]1244
1252 [152]9,ty$;cr$;cr;cr$;rl;cr$;u;cr$cl;cr$;pf$:[141]828:[160]9:[137]1200
1254 [153]"(NULL)(NULL)close((NULL)/(NULL))? ";:[141]870:[151]c,d:[142]
1256 [139]r[179]3[167][153]"lenan't insert/delete below "rq$"3":s3[178]1:[141]868
1258 [139]r[178]0[176]r[177]rc[167][153]"(NULL)ecord requested is beyond range of file.":s3[178]1:[141]868
1260 [142]
1262 [158]a,13,qn,ar$:[141]870:[139]w$[179][177]"y"[167]38
1264 [158]a,13,qn,"               wait":[158]ce,qn," valnd ":[129]k[178]2[164]15:[160]k:[130]
1266 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
1268 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]1272
1270 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
1272 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
1274 [160]2:[159]2,i,2:[160]2:[139]st[167]1278
1276 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]1280
1278 [130]:[153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
1280 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
1282 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
1284 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
1286 [160]15:[159]15,dv,15,"cp":[132]15,jj
1288 [160]2:[159]2,dv,2,"$:":[161]#2,w$:[160]2:[139]w$[178]"d"[167]jj[178]2
1290 [142]
1292 [151]631,[198]("c"):[151]198,1:[142]