home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 134
/
134.d81
/
banker64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
29KB
|
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