home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 134 / 134.d81 / banker64 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  29KB  |  647 lines
  1. 2 rem banker64 * ecberge * 3/23/95 *
  2. 4 dv=peek(186):ifdv<8thendv=8
  3. 6 print"":close15:open15,dv,15:c=646:bc=53280:cr$=chr$(13):rq$="[210]ecord #"
  4. 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
  5. 10 bl=m+51:sr=m+9:ss=m+6:sm=m+33:di=m+45:sysbl,"getword 800+",dv,o:gosub828
  6. 12 d=peek(c)and15:e=d:x=peek(bc)and15:ife=xthene=e-(x+1<16)+(x+1>15):d=e
  7. 14 pokec,d:cl=41:gosub1286:ifjj=2thencl=127
  8. 16 dimb$(40,1),b(40,1),b%(40,12),w$(80,1):deffns(x)=int(x*100+.05)
  9. 18 ar$=" [193]re you sure? [146]"
  10. 20 printchr$(14)+chr$(8):ha$="[210]#        [196][197][211][195][210][201][208][212][201][207][206]":v=0:cf$="0:categories
  11. 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"
  12. 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=
  13. 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.
  14. 28 cn$[178]"lenancel entries shown on bank statement":tp$[178][199](12)
  15. 30 b1$[178]"(NULL)our balance ":b2$[178]" the bank's!":dd$[178]"equals":ep$[178][199](0)[170][199](1)
  16. 32 dn$[178]"doesn't equal":bj$[178]"             ":pp$[178]" (NULL)ress return wait"
  17. 34 bk$[178]"                                     ":p1$[178]"p"[170][199](98):x$[178][200](bk$,28)
  18. 36 sp$[178]"(NULL)pace to cancel/lenrsr to move/val to exitwait":kr$[178][200](bk$,18):[141]1106
  19. 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
  20. 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
  21. 42 [158]ce,5,"  by valileen peekergewait":[158]a,8,7,"atnccount (NULL)anager     (1)
  22. 44 sysa,8,8,"[194]alance [193]ccount     (2)[146]":sysa,8,9,"[211]earch [198]iles        (3)[146]
  23. 46 [158]a,8,10,"peekudgetatnid           (4)wait":[158]a,8,11,"atndd/str$elete lenategory (5)wait
  24. 48 sysa,8,12,"[207]ptions             (6)[146]":sysa,8,13,"[196]irectory           (7)[146]
  25. 50 [158]a,8,14,"(NULL)end str$isk lenommand   (8)wait":[158]a,8,15,"left$elp                (left$)
  26. 52 sysa,8,16,"[209]uit                ([209])[146]":sysm,7,7,31,10,fc,e,"12345678hq[209][200]
  27. 54 [145]f%[137]70,316,454,544,766,1112,56,1096,1218,1262,1262,1218
  28. 56 [153]"load str$right$(NULL)vallen(NULL)(NULL)(NULL)(NULL)closewait"
  29. 58 di$[178]"0":[139]cl[178]41[167]64
  30. 60 [153]"(NULL)artition #? ";:[158]o,e,d,2:di$[178]w$:[153]:[151]c,d
  31. 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]
  32. 64 wc$[178]"":[151]c,d:[153]"(NULL)ild lenard? ";:[158]o,e,d,l:[151]c,d:[153]
  33. 66 wc$[178]"$"[170]di$[170]":"[170]w$:[158]di,wc$,dv:[132]15,er,em$:[139]er[177]19[167][153]er;em$
  34. 68 [153][199](13):[141]868:[145]ps[137]38,70,544
  35. 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
  36. 72 [158]p,5,36,4,20,160,fc
  37. 74 [158]ce,7," atnlenlen(NULL)(NULL)(NULL)(NULL)close(NULL)atn(NULL)atnchr$val(NULL) ":[158]a,8,9,"(NULL)pen ascile           (1)
  38. 76 sysa,8,10,"[193]dd a [210]ecord        (2)[146]":sysa,8,11,"[210]ead/[208]rint [198]ile     (3)
  39. 78 [158]a,8,12,"atnlter (NULL)ecord        (4)wait":[158]a,8,13,"str$elete (NULL)ecord       (5)
  40. 80 sysa,8,14,"[201]nsert [210]ecord       (6)[146]"
  41. 82 sysa,8,15,"[196]irectory           (7)[146]":sysa,8,16,"[200]elp                ([200])[146]
  42. 84 [158]a,8,17,"chr$oto (NULL)ain (NULL)enu      ((NULL))wait":[158]m,9,7,31,9,fc,e,"1234567hx(NULL)left$
  43. 86 onf%goto88,168,178,206,250,290,56,1220,38,38,1220
  44. 88 js=1:dx$="":l$=" [207]pen [198]ile ":gosub862:t$="[201]":sysa,0,8,"[197]xisting [198]ile       (1)
  45. 90 [158]a,0,9,"(NULL)ext ascile in (NULL)eries (2)":[158]a,0,10,"(NULL)o (NULL)revious ascile    (3)
  46. 92 sysa,0,11,"[197]xit":printspc(16)"([216])":sysm,8,0,23,4,d,e,"123x
  47. 94 [145]f%[137]96,108,104,70
  48. 96 l$[178]"valxisting ascilewait":[141]860:[141]840:[139]s%[178]1[167]1112
  49. 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
  50. 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$
  51. 102 [141]990:r1$[178]r$:p$[178]p1$[170][199](2)[170]ep$:[141]990:r2$[178]r$:[137]150
  52. 104 l$[178]"(NULL)ew (NULL)erieswait":[141]860:[141]840:[139]s%[178]1[167]1112
  53. 106 ba[178]0:ob$[178]"     0.00":ob[178]0:bx[178]0:[137]122
  54. 108 l$[178]"(NULL)ext ascile in (NULL)erieswait":[141]860:[141]840:[139]s%[178]1[167]1112
  55. 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
  56. 112 f$[178]dx$[170]ty$:p$[178]"p"[170][199](99)[170][199](2)[170]ep$:[141]874:[141]876:[132]3,ro$
  57. 114 [141]828:[141]876:[160]3:ob$[178][202](ro$,rl[171]11,9):ob[178][197](ob$)
  58. 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
  59. 118 dy$[178][201]("00"[170][202]([196](dy),2),2)
  60. 120 dm$[178][201]("00"[170][202]([196](dm),2),2):d$[178]dy$[170]dm$:f$[178]d$[170]ty$
  61. 122 [153]"(NULL)ld peekalance = ";ob$
  62. 124 [141]1254:[139]w$[178]"y"[167]ba[178][197](ob$):[137]130
  63. 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
  64. 128 ba[178]bx
  65. 130 [141]878:[139]dx$[178]""[167]134
  66. 132 [151]c,d:[153]"(NULL)ew ascile="f$:[141]1254:[139]w$[178]"y"[167]138
  67. 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
  68. 136 dy$[178][200](d$,2):dm$[178][201](d$,2):f$[178]d$[170]ty$:[137]132
  69. 138 [141]878:am$[178]"    0.00":v$[178]"(NULL)":de$[178][200]("(NULL)ew peekalance"[170]bk$,dl):ca$[178]"(NULL)peek"
  70. 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$
  71. 142 ch$[178]"002":ca$[178]"valpeek":t$[178]"(NULL)":de$[178][200]("valnding peekalance"[170]bk$,dl)
  72. 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)
  73. 146 [141]978:r$[178]r1$:p$[178]p1$[170][199](1)[170]ep$:[141]978:r$[178]r2$
  74. 148 p$[178]p1$[170][199](2)[170]ep$:[141]978
  75. 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)
  76. 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)
  77. 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)
  78. 156 [158]a,0,7,ha$:[153]:[153]1;de$:[153]fc$:[153]"  "da$" "ch$" "ca$" "am$" "ba$"
  79. 158 da$=mid$(r2$,1,8):ch$=mid$(r2$,9,3):de$=mid$(r2$,12,dl)
  80. 160 ca$=mid$(r2$,rl-21,2):am$=mid$(r2$,rl-19,8):ba$=mid$(r2$,rl-11,9)
  81. 162 t$=mid$(r2$,rl-2,1):v$=mid$(r2$,rl-1,1):ba=val(ba$):rc=val(ch$)
  82. 164 printha$:print2;de$:printfc$:print"  "da$" "ch$" "ca$" "am$" "ba$" "t$" "v$
  83. 166 gosub868:goto70
  84. 168 iff$=""then1088
  85. 170 l$=f$+"  "+"[193][196][196] [193] [210][197][195][207][210][196]":js=2:gosub862:onf%goto70,172
  86. 172 rc=(rc<2)*-2+(rc=>2)*-rc:gosub1216:rc=rc+1:v$="[207]":rc$=rq$+mid$(str$(rc),2)
  87. 174 cb$=cc$+ba$:gosub884:sysa,0,20,n$:gosub838:ifw$="y"then172
  88. 176 gosub968:goto70
  89. 178 iff$=""then1088
  90. 180 l$=f$+"  "+"[210][197][193][196]/[208][210][201][206][212] [198][201][204][197]":js=0:gosub862:onf%goto70,182
  91. 182 print"[208][146]rint, [196][146]isplay, or e[216][146]it":sysbr,"pdx":onf%goto184,188,70
  92. 184 print"[210]eady printer":gosub868:close4:open4,4,7:l$="[198]ile "+f$:l=len(l$)
  93. 186 l=int((80-l)/2):l$=right$(bk$+l$,l):print#4,l$:print#4:print#4,h$
  94. 188 gosub988:r=val(mid$(r$,9,3)):printha$:printfc$
  95. 190 fori=1tor:p$=p1$+chr$(i)+ep$:gosub990
  96. 192 rn$=right$("00"+mid$(str$(i),2),2):da$=mid$(r$,1,8):ch$=mid$(r$,9,3):de$=mid$(r$,12,dl)
  97. 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)
  98. 196 v$=mid$(r$,rl-1):gosub992:gosub994:iff%<>1then202
  99. 198 pt$=rn$+" "+da$+" "+ch$+" "+left$(de$+bk$,38)+ca$+" "+am$+" "+ba$+" "+t$
  100. 200 pt$=pt$+" "+v$:print#4,pt$
  101. 202 next:iff%=1thenprint#4,tp$:close4
  102. 204