home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 78 / 64er_Magazin_Sonderheft_78_19xx_Markt__Technik_de_Side_B.d64 / konto (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  13KB  |  430 lines
  1. 0 rem **** nikolaus heusler / zwengauerweg 18 / 8000 muenchen 71 ****
  2. 1 ifpeek(51201)<>253thenload"using",8,8
  3. 2 ifpeek(49153)<>225thenload"uhrzeit",8,8
  4. 3 ifpeek(50505)<>169thenload"cursor-lock",8,8
  5. 4 zz=365*2:poke53281,15:poke53280,15:dimdm(500),bt$(500),da$(500),ze(zz)
  6. 5 sys50505:vn$="26
  7. 6 [158]49152,1:uh[178][194](2):dv[178]3:rg[178]5
  8. 7 sp$[178]"                                                                     "
  9. 8 le$[178]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("[170][199](13)[170]"on
  10. 9 poke44300,13:poke44301,145:poke44302,0:poke63194,201
  11. 10 print"[147][151][142]kontofuehrung version "vn$"
  12. 11 [139]uh[167][153]"mit";:[137]13
  13. 12 [153]"ohne";
  14. 13 [153]" echtzeituhr
  15. 20 poke198,.:input"kontonummer (0 = liste)   0[157][157][157]";nm$:nm=val(nm$)
  16. 21 ifnm<.ornm>999thenrun
  17. 22 open15,8,15,"i
  18. 23 [139]nm[178].[167]700
  19. 25 [159]2,8,2,"kto"[170][196](nm)[170]",s,r
  20. 26 input#15,f1:iff1<>62then48
  21. 30 close2:poke198,.:print"konto besteht nicht. anlegen ? [j/n]
  22. 32 [161]a$:[139]a$[178]"n"[167][138]
  23. 33 [139]a$[179][177]"j"[167]32
  24. 40 [133]"k-bezeichung ";na$
  25. 41 [139]na$[178]""[176][195](na$)[177]24[167][153]"min. 1 / max. 24 zeichen!":[137]40
  26. 42 [153]"konto wird angelegt.
  27. 44 open2,8,2,"kto"+str$(nm)+",s,w
  28. 46 [152]2,na$:[152]2,0:[152]2,0:[152]2,0:[152]2,"//":[152]2,0:[160]2:[138]
  29. 48 [139]f1[167][153]"diskettenfehler nr."f1:[160]2:[160]15:[128]
  30. 50 [132]2,na$:[153]"k-bezeichnung: "na$
  31. 52 [132]2,ab:[153]"buchungen:"ab:wt$[178]"0
  32. 56 input#2,p1:input#2,p2:input#2,p3$:input#2,wt$:ifab=.then70
  33. 58 print"datei wird gelesen  bitte warten!
  34. 60 [129]i[178]1[164]ab:[132]2,dm(i),bt$(i),da$(i):[130]
  35. 70 [160]2
  36. 72 am[178]12:[134]ak$(am),vz$(am)
  37. 74 [129]i[178]1[164]am:[135]ak$(i),vz$(i):[130]
  38. 76 [131]ueberweisung,,bar,,zinsen,+,scheck,+,uebertrag,,ec-automat,-
  39. 77 [131]gutschrift,+,lastschrift,-,einzahlung,+,auszahlung,-
  40. 78 [131]kontoabrechnung,+,wertpapiere,
  41. 100 dp$[178]",":[153]"loadkontofuehrung  hauptmenuewait            v"vn$;
  42. 101 ko[178].:m5$[178]"/":[139]p3$[178]""[167]p3$[178]"/
  43. 102 printle$" a [146] - buchen
  44. 104 [153]" b wait - storno
  45. 106 print" c [146] - buchungsliste
  46. 108 [153]" d wait - kontostand
  47. 110 print" e [146] - einzel-info
  48. 111 [153]" f wait - zinsberechnung
  49. 112 print" g [146] - kontoauszug (drucker)
  50. 113 [153]" h wait - auszug-status":[153]" i wait - stammdatenpflege
  51. 114 print" j [146] - zins-auswertung":print" k [146] - uebertrag
  52. 117 [153]" l wait - ende
  53. 118 open4,3:poke198,.
  54. 119 printle$"konto-nr.:"nm"- "na$:print"buchungen:"ab:print"     wert: "wt$
  55. 120 gosub800:poke198,.
  56. 122 getm4$:ifm4$<"a"orm4$>"l"then122
  57. 123 print"[147]kto.nr."nm"- "na$:ifm4$="l"then6000
  58. 124 onasc(m4$)-64gosub1000,2000,3000,4000,5000,7000,8000,9000,10000,11000,12000
  59. 130 print#4:close4
  60. 145 ifm5$<>"b"then100
  61. 150 print"** weiter mit taste[146] **
  62. 160 [151]198,.:[146]198,1
  63. 190 [137]100
  64. 200 us$[178]"":[153]"ausgabe dwaitrucker oder bwaitildschirm ?
  65. 202 getm5$:ifm5$="d"thendv=4:goto206
  66. 204 ifm5$<>"b"then202
  67. 205 dv=3:us$=chr$(13)
  68. 206 close4:open4,dv:print#4:ifst<0then280
  69. 207 ifdv=4andrg>0thenopen19,4,2:print#19,"l"+chr$(rg);:close19
  70. 208 print#4:print#4,"***** kontofuehrung v"vn$" *****"chr$(13)
  71. 210 print#4,"konto-nr.: "right$(" "+str$(nm),3)"        "us$"bez.: "na$
  72. 212 print#4,"buchungen: "right$(" "+str$(ab),3)"        wert: "wt$
  73. 214 print#4:return
  74. 280 print"achtung[146]: drucker nicht ansprechbar!
  75. 282 [153]"  n wait - nochmal versuchen
  76. 284 print"  b [146] - bildschirm-ausgabe
  77. 290 [161]m5$:[139]m5$[178]"n"[167]206
  78. 292 [139]m5$[179][177]"b"[167]290
  79. 294 [137]205
  80. 300 [158]51200,x,dv[172]6[171]7,128,dv[171]3,2,32,1[171](dp$[178]","),x$:[142]
  81. 330 [152]4,"dm";:[141]300:[152]4,x$:[142]
  82. 335 [152]4,": ";:x[178]sd:[137]330
  83. 340 [152]4,[201](sp$[170][202]([196](x),2),3);:[142]
  84. 350 [141]300:[152]4,[201](x$,7)"% : ";:[142]
  85. 360 ez$[178]" ":[139]ko[178]0[167][139]ri[178]p2[167]ez$[178]"to
  86. 362 return
  87. 400 ifab<2thenvd$="tt.mm.91":goto410
  88. 402 vd$=da$(ab-1):return
  89. 410 ifuhthensys49155,128,vd$
  90. 412 return
  91. 500 cy=.:t=val(left$(x$,2))
  92. 502 m=val(mid$(x$,4,2))
  93. 504 j=1900+val(mid$(x$,7,2))
  94. 506 ift<1ort>31orm<1orm>12thenreturn
  95. 510 ifm>2thenm=m-3:goto514
  96. 512 m=m+9:j=j-1
  97. 514 c=int(j/100):ja=j-100*c
  98. 516 x=int(146097*c/4)+int(1461*ja/4)+int((153*m+2)/5)+t:cy=1:return
  99. 600 ifuh=.thentd$="tt.mm.91":goto604
  100. 602 sys49155,128,td$
  101. 604 ifdv=3thenreturn
  102. 606 print""td$
  103. 608 input"[145]heutiges datum ";td$:return
  104. 700 print"kontenliste ausgeben
  105. 702 [153]"ausgabe dwaitrucker oder bwaitildschirm ?
  106. 704 getm5$:ifm5$="d"thendv=4:goto710
  107. 706 ifm5$<>"b"then704
  108. 708 dv=3
  109. 710 gosub600:close4:open4,dv:ifdv=3thenm4$="n":goto720
  110. 712 print"kontostaende drucken ? [j/n]
  111. 714 [161]m4$:[139]m4$[179][177]"n"[175]m4$[179][177]"j"[167]714
  112. 720 [152]4:[152]4:[152]4,"***** kontofuehrung v"vn$" *****
  113. 722 gh=.:gl=.:print#4:print#4,"kontenliste    stand: "td$
  114. 724 print#4:print#4,"kto  bezeichnung";
  115. 725 hs$="                kto-stand dm  wert  letzte buchg  buchungen
  116. 726 [139]m4$[178]"j"[167]dp$[178]",":[152]4,hs$;
  117. 728 [152]4
  118. 730 nm[178]1
  119. 732 [159]2,8,2,"kto"[170][196](nm)[170]",s,r
  120. 734 input#15,f1:iff1then790
  121. 736 input#2,na$:print#4,right$(sp$+str$(nm),3)"  "left$(na$+sp$,27);
  122. 738 ifm4$="n"then760
  123. 740 input#2,ab:input#2,p1:input#2,p2:input#2,p3$:p3$="":input#2,wt$:wt=val(wt$)
  124. 742 sd=.:ifab=.then750
  125. 744 fori=1toab
  126. 746 input#2,p2:input#2,p3$:input#2,p3$:sd=sd+p2:next:gh=gh+sd:gl=gl+ab
  127. 748 gw=gw+wt*sd
  128. 750 x=sd:gosub300:print#4,right$(x$,12)right$(sp$+wt$,5);
  129. 752 print#4,right$(sp$+p3$,13)right$(sp$+str$(ab),11);
  130. 760 print#4:close2
  131. 762 nm=nm+1:goto732
  132. 770 ifm4$="n"ornm<2thenreturn
  133. 772 print#4,"----------------------------------------------------------";
  134. 773 print#4,"------------------
  135. 774 [152]4,"     s u m m e :             dm ";
  136. 776 x[178]gh:[141]300:[152]4,[201](x$,12);
  137. 778 [152]4,[201](sp$[170][196](gl),29)
  138. 780 [152]4,"     gewertete summe:        dm ";
  139. 782 x[178]gw:[141]300:[152]4,[201](x$,12):[142]
  140. 790 [141]770:[152]4:[139]nm[178]1[167][152]4,"keine konten gespeichert
  141. 792 print#4:close4:poke198,.:ifm5$="d"thenrun
  142. 794 print"(weiter mit taste)
  143. 796 [146]198,1:[151]198,.:[138]
  144. 800 [153]le$"kontofuehrungsprogamm zu zebuha
  145. 804 print"von nikolaus heusler":return
  146. 1000 print"buchen
  147. 1002 ab[178]ab[170]1:[153]"buch-nr."ab:x[178].
  148. 1004 [153]"abkuerzungen:
  149. 1006 fori=1toam:print" *"+chr$(i+64)"  - "ak$(i):next
  150. 1007 g4=0:print" #nr - buchungstext uebernehmen":print"*a
  151. 1008 [133]"ontext ";bt$(ab):[139][200](bt$(ab),1)[178]"#"[167][141]1100:[139]v[178]0[167]1008
  152. 1009 bt$(ab)[178][200](bt$(ab),30)
  153. 1010 [139][200](bt$(ab),1)[179][177]"*"[167]1016
  154. 1012 x[178][198]([202](bt$(ab),2)[170][199](0)):[139]x[171]64[177]am[176]x[179]65[167]1008
  155. 1014 bt$(ab)[178]ak$(x[171]64):g4[178]1
  156. 1016 [139]g4[167][153]"on"bt$(ab):g4[178].:[137]1008
  157. 1020 :
  158. 1022 [153]"gutschrift:  + wait     lastschrift:  - wait
  159. 1023 ifxthenpoke198,1:poke631,asc(vz$(x-64)+chr$(0))
  160. 1024 input"betrag dm ";dm(ab):ifdm(ab)=.thenab=ab-1:return
  161. 1025 gosub400:print"";vd$
  162. 1026 input"[145]wert-datum ";da$(ab)
  163. 1028 print"eingaben ok ? [j/n]
  164. 1030 [161]a$:[139]a$[178]"n"[167]ab[178]ab[171]1
  165. 1032 [139]a$[179][177]"j"[175]a$[179][177]"n"[167]1030
  166. 1034 [142]
  167. 1100 g4[178]2:v[178][197]([202](bt$(ab),2)):[139]v[179]1[176]v[177]ab[171]1[167]v[178]0
  168. 1102 bt$(ab)[178]bt$(v):[142]
  169. 2000 [153]"storno
  170. 2002 ifab<1thenreturn
  171. 2004 print""ab
  172. 2006 input"[145]welche buchung stornieren ";sb:ifsb<1orsb>abthenreturn
  173. 2008 print"buchung nr.:"sb
  174. 2010 print"       text: "bt$(sb)
  175. 2012 print"     betrag:"dm(sb)
  176. 2014 print"      datum: "da$(sb)
  177. 2016 fori=1toab:ifbt$(i)="storno buchung"+str$(sb)then2020
  178. 2018 next:goto2030
  179. 2020 print"achtung[146][157][157][157][157][157][157][157][145][164][164][164][164][164][164][164]   buchung wurde bereits stor-
  180. 2022 [153]"          niert! (mit buchung nr."i"cmd)
  181. 2030 print"stornieren ? [j/n]
  182. 2032 [161]a$:[139]a$[178]"n"[167][142]
  183. 2034 [139]a$[179][177]"j"[167]2032
  184. 2036 ab[178]ab[170]1:bt$(ab)[178]"storno buchung"[170][196](sb)
  185. 2038 dm(ab)[178][171]dm(sb):da$(ab)[178]da$(sb):[142]
  186. 3000 [153]"buchungsliste
  187. 3002 ifab<1thenreturn
  188. 3006 input"von buchung   1[157][157][157]";b1:ifb1<1thenreturn
  189. 3008 print""ab
  190. 3010 input"[145]bis buchung ";b2
  191. 3012 ifb1<1orb2>aborb1>b2thenreturn
  192. 3014 sd=.:ifb1<2then3020
  193. 3016 fori=1tob1-1:sd=sd+dm(i):next
  194. 3020 gosub200
  195. 3022 gosub600
  196. 3024 print#4,"buchungsliste vom "td$
  197. 3026 print#4:print#4,spc(40-ko*17)"alter kontostand";:gosub335
  198. 3028 print#4,spc(40-ko*17)"-------------------------------------
  199. 3030 bz[178].:so[178].:ha[178].:[129]ri[178]b1[164]b2:bz[178]bz[170]1
  200. 3032 x[178]ri:[141]340:[141]360
  201. 3033 [152]4,ez$da$(ri)" "[200](bt$(ri)[170]sp$,30);
  202. 3034 x[178]dm(ri):sd[178]sd[170]x:[141]300:[152]4,x$;:[139]ko[178]0[167]x[178]sd:[141]300:[152]4,x$;
  203. 3035 [152]4,us$
  204. 3036 [139]dm(ri)[179].[167]so[178]so[171]dm(ri)
  205. 3037 [139]dm(ri)[177].[167]ha[178]ha[170]dm(ri)
  206. 3038 [130]ri
  207. 3040 [152]4,[166]40[171]ko[172]17)"-------------------------------------
  208. 3042 print#4,spc(40-ko*17)"neuer kontostand";:gosub335
  209. 3044 print#4,spc(40-ko*17)"-------------------------------------
  210. 3046 [139]ko[167][142]
  211. 3050 [152]4:[152]4,"      buchungen :"[201](sp$[170][196](bz),16)
  212. 3052 [152]4,"bewegung soll   ";:sd[178]so:[141]335
  213. 3054 [152]4,"bewegung haben  ";:sd[178]ha:[141]335
  214. 3056 [152]4,"bewegung gesamt ";:sd[178]ha[170]so:[137]335
  215. 4000 [153]"kontostand
  216. 4002 print""ab
  217. 4004 input"[145]nach buchung nr.";he
  218. 4006 ifhe>aborhe<1thenreturn
  219. 4008 sd=.:fori=1tohe:sd=sd+dm(i):next
  220. 4010 gosub200:gosub600
  221. 4012 print#4,"kontostand am "td$":"us$;:x=sd:gosub330
  222. 4014 return
  223. 5000 fori=6to12:poke781,i:sys59903:next:poke781,2:sys59903:poke781,3:sys59903
  224. 5001 print"einzel-info[146]"spc(20)"wert:"wt$
  225. 5002 ifab<1thenreturn
  226. 5003 ifje<1orje>abthenje=ab
  227. 5004 je=int(je):printle$"buchung:"jetab(20)"von"ab
  228. 5005 print"text:    "bt$(je)
  229. 5006 print"betrag: "dm(je)
  230. 5008 print"wert:    "da$(je)
  231. 5020 printle$" + [146]    und    - [146] blaettern
  232. 5022 [153]" x wait fertig    l wait letzte buchung
  233. 5024 print" n [146] nummer eingeben"spc(17)"v"vn$"
  234. 5030 [161]a$:[139]a$[178]"x"[167][142]
  235. 5032 [139]a$[178]"+"[167]je[178]je[170]1:[139]je[177]ab[167]je[178]1
  236. 5034 [139]a$[178]"-"[167]je[178]je[171]1:[139]je[179]1[167]je[178]ab
  237. 5036 [139]a$[178]"l"[167]je[178]ab
  238. 5038 [139]a$[178]"+"[176]a$[178]"l"[176]a$[178]"-"[167]5000
  239. 5040 [139]a$[178]"n"[167]5100
  240. 5090 [137]5030
  241. 5100 [151]781,2:[158]59903:[153]""je
  242. 5102 [133]"onbuchung-nr. ";je
  243. 5104 [137]5000
  244. 6000 [153]"ende
  245. 6002 print#15,"s:kto"+str$(nm)
  246. 6004 open2,8,2,"kto"+str$(nm)+",s,w
  247. 6005 [139]p3$[178]""[167]p3$[178]"/
  248. 6006 print#2,na$:print#2,ab:print#2,p1:print#2,p2:print#2,p3$:print#2,wt$
  249. 6008 fori=1toab:print#2,dm(i):print#2,bt$(i):print#2,da$(i):next
  250. 6010 close2:input#15,f1,f1$,f2,f3:close15
  251. 6012 iff1<2thenprint"vorgang abgeschlossen. alles ok.":end
  252. 6014 print"achtung[146] disk-fehler nr."f1
  253. 6016 print"text: "f1$
  254. 6018 print"track"f2" sektor"f3:end
  255. 7000 print"zinsberechnung
  256. 7002 [139]ab[179]1[167][142]
  257. 7004 [133]"habenzinsen p.a. %   0.5cmdcmdcmdcmdcmd";q1:[139]q1[179].[176]q1[177]100[167][142]
  258. 7006 [133]"sollzinsen  p.a. %   12.75cmdcmdcmdcmdcmdcmdcmd";q2:[139]q2[179].[176]q2[177]100[167][142]
  259. 7007 [153]"die zinsen koennen ueber einen zeitraum
  260. 7008 print"von maximal"zz/365"jahren berechnet werden.
  261. 7009 [141]7200:[133]"onvon buchung ";b1:[139]b1[177].[167][153]"wert-datum: "da$(b1)
  262. 7010 [153]""ab
  263. 7012 [133]"onbis buchung ";b2
  264. 7014 [139]b1[179]1[176]b2[177]ab[176]b1[178][177]b2[167][142]
  265. 7015 [153]"wert-datum: "da$(b2)
  266. 7018 [133]"zinstage pro jahr   360cmdcmdcmdcmdcmd";tg:[139]tg[179]1[167][142]
  267. 7019 [153]""da$(b2)
  268. 7020 [133]"onzinsdatum ";zx$
  269. 7021 [153]"berechne alten stand...":zh[178].:zs[178].:sd[178].
  270. 7022 x$[178]zx$:[141]500:[139]cy[178].[167]7042
  271. 7023 ze[178]x
  272. 7024 [129]i[178]1[164]b1:sd[178]sd[170]dm(i):[130]:[153]"loesche zinstabelle...
  273. 7026 fori=.tozz:ze(i)=.:next:print"verfolge buchungen...
  274. 7030 z1[178]q1[173]tg:z2[178]q2[173]tg
  275. 7032 x$[178]da$(b1):[141]500:[139]cy[178]1[167]7040
  276. 7034 [153]"* fehler: wert-datum buchung nr."b1
  277. 7035 [153]"fehlerhaftes datum: "da$(b1)
  278. 7036 [153]"taste drueckenwait":[151]198,.:[146]198,1:[142]
  279. 7040 no[178]x:[139]no[179][178]ze[167]7050
  280. 7042 [153]"* fehler: zinsdatum falsch":[137]7036
  281. 7050 [129]i[178]b1[170]1[164]b2
  282. 7052 x$[178]da$(i):[141]500:[139]cy[178].[176]x[171]no[179].[176]x[171]no[177]zz[167]b1[178]i:[137]7034
  283. 7054 ze(x[171]no)[178]ze(x[171]no)[170]dm(i)
  284. 7056 [130]:[153]"berechne zinsen...
  285. 7057 print""ze-no-1
  286. 7058 input"[145]anzahl der zinstage ";ji
  287. 7060 gosub7400
  288. 7068 gosub200
  289. 7070 zh=int(zh*100+.5)/100:zs=-int(zs*100+.5)/100
  290. 7072 print#4,"zinsberechnung "us$"von buchung"b1"bis buchung"b2
  291. 7074 print#4,"zinsdatum: "zx$
  292. 7076 print#4:print#4,"  habenzinsen  ";:x=q1:gosub350:x=zh:gosub330
  293. 7078 print#4,"  sollzinsen   ";:x=q2:gosub350:x=zs:gosub330
  294. 7079 print#4,spc(26)"-------------";:ifdv=4thenprint#4,"------";
  295. 7080 print#4:print#4,"  zinsertrag              ";:x=zs+zh:gosub330
  296. 7090 print#4:dp$=".
  297. 7100 [139]zs[178]0[175]zh[178]0[167][142]
  298. 7102 [153]"zinsen buchen ? [j/n]
  299. 7104 geta$:ifa$="n"thenreturn
  300. 7106 ifa$<>"j"then7104
  301. 7108 ifzh=0then7120
  302. 7110 ab=ab+1:dm(ab)=zh:da$(ab)=zx$
  303. 7112 x=q1:gosub300:bt$(ab)="habenzinsen"+right$(x$,7)+"%
  304. 7120 [139]zs[178]0[167]7130
  305. 7122 ab[178]ab[170]1:dm(ab)[178]zs:da$(ab)[178]zx$
  306. 7124 x[178]q2:[141]300:bt$(ab)[178]"sollzinsen "[170][201](x$,7)[170]"%
  307. 7130 return
  308. 7200 forb1=abto1step-1:bt$=bt$(b1)
  309. 7202 gosub7300:ifzfthen7210
  310. 7206 next:b1=1
  311. 7210 print"";b1:return
  312. 7300 zf=0:ifleft$(bt$,4)="zins"then7310
  313. 7302 ifleft$(bt$,5)="sollz"then7310
  314. 7304 ifleft$(bt$,6)="habenz"then7310
  315. 7306 ifleft$(bt$,7)="kontoab"then7310
  316. 7309 return
  317. 7310 zf=1:return
  318. 7400 zc=0:md=0:zp=1:print"zinstage  zahlen   kto.stand
  319. 7402 zc[178]zc[170]1:zp[178]zp[170]1
  320. 7404 [139]ze(zp)[167][141]7500
  321. 7450 [139]zp[179]ji[167]7402
  322. 7460 md[178]1:[141]7500:zh[178]zh[172]z1:zs[178]zs[172]z2:[142]
  323. 7500 za[178][181](.5[170].01[172](zc[170]md)[172]sd):sd[178]sd[170]ze(zp):[153]zc[163]10)za;
  324. 7502 [139]za[177]0[167]zh[178]zh[170]za:[137]7506
  325. 7504 zs[178]zs[171]za
  326. 7506 zc[178]0:[139]md[178]0[167][153][163]20)sd;
  327. 7508 [153]:[142]
  328. 8000 [153]"kontoauszug
  329. 8002 us$="":dv=4:m5$="d":gosub206:gosub600
  330. 8004 print"sind sie sicher?":print" 1 [146] - auszug        0 [146] - abbruch
  331. 8005 [151]198,.:[146]198,1:[161]a$:[139]a$[178]"0"[167][142]
  332. 8006 [139]a$[177][179]"1"[167]8005
  333. 8008 sd[178].
  334. 8010 [139]p2[177]0[167][129]i[178]1[164]p2:sd[178]sd[170]dm(i):[130]
  335. 8012 [139]ab[177]p2[167]8100
  336. 8020 [152]4,"kontostandsmitteilung vom "td$
  337. 8022 [152]4:[152]4,"kontostand: ";:x[178]sd:[141]330
  338. 8024 is$[178]"":[139]p1[167][152]4:[152]4,"letzter auszug am "p3$:is$[178]" weiteren
  339. 8026 print#4:print#4,"es liegen keine"is$" buchungen vor.
  340. 8030 [142]
  341. 8100 p1[178]p1[170]1
  342. 8102 [152]4,"kontoauszug nr."p1"vom "td$
  343. 8104 b1[178]p2[170]1:b2[178]ab:p2[178]ab:p3$[178]td$
  344. 8106 ko[178]1:[137]3026
  345. 9000 [153]"auszug-status
  346. 9002 gosub200
  347. 9003 m8$="":ifdv=4thenm8$="        "
  348. 9004 print#4,"auszug-status:
  349. 9006 [152]4:[152]4,"               anz. kontoauszuege:"p1:[139]p1[179]1[167][142]
  350. 9008 [152]4,"  letzter auszug nach buchung nr.:"p2
  351. 9010 [152]4,m8$"datum des letzten auszugs: "p3$
  352. 9012 [142]
  353. 10000 [153]"stammdatenpflege
  354. 10002 print"konto-nr."nm"[157]:
  355. 10004 [153]""na$
  356. 10006 [133]"onbezeichnung ";na$
  357. 10007 [139][195](na$)[177]24[176]na$[178]""[167]10100
  358. 10008 [153]""wt$
  359. 10010 [133]"onwert        ";wt$
  360. 10012 [153]""rg
  361. 10014 [133]"onlinker druckrand ";rg
  362. 10016 [139]rg[179]0[176]rg[177]30[167]10014
  363. 10018 [142]
  364. 10100 x[178][194](214):[151]214,23:[158]58732:[153]"min. 1 / max. 24 zeichen!
  365. 10102 poke214,x:sys58732:goto10006
  366. 11000 print"zins-auswertung
  367. 11002 [139]ab[179]1[167][142]
  368. 11006 [133]"von buchung   1cmdcmdcmd";b1:[139]b1[179]1[167][142]
  369. 11008 [153]""ab
  370. 11010 [133]"onbis buchung ";b2
  371. 11012 [139]b1[179]1[176]b2[177]ab[176]b1[177]b2[167][142]
  372. 11014 zc[178]0:zh[178]0:zs[178]0
  373. 11020 [129]i[178]b1[164]b2:bt$[178]bt$(i):[141]7300:[139]zf[178]0[167]11030
  374. 11022 [139]dm(i)[179]0[167]zs[178]zs[171]dm(i):zc[178]zc[170]1
  375. 11024 [139]dm(i)[177]0[167]zh[178]zh[170]dm(i):zc[178]zc[170]1
  376. 11030 [130]
  377. 11032 [141]200:[141]600
  378. 11040 [152]4,"zinsauswertung vom "td$:[152]4
  379. 11041 p4$[178]"            ":[139]dv[178]3[167]p4$[178]""
  380. 11042 [152]4,"anzahl der zinsbuchungen:  "p4$zc:[139]zc[179]1[167][142]
  381. 11044 [152]4,"       summe habenzinsen: ";:x[178]zh:[141]330
  382. 11046 [152]4,"        summe sollzinsen: ";:x[178]zs:[141]330
  383. 11048 [152]4,"              zinsertrag: ";:x[178]zh[171]zs:[141]330
  384. 11050 [152]4
  385. 11052 [152]4,"evtl. kontofuehrungsgebuehren werden "us$;
  386. 11053 [152]4,"wie sollzinsen verrechnet.
  387. 11054 return
  388. 12000 print"uebertrag
  389. 12002 [133]"gegenkonto-nr. ";gk:[139]gk[179]1[176]gk[177]999[176]nm[178]gk[167][142]
  390. 12004 [160]6:[159]6,8,2,"kto"[170][196](gk)[170]",s,r
  391. 12006 input#15,f1:iff1=0then12012
  392. 12007 iff1<>62then12010
  393. 12008 print"gegenkonto nicht bekannt!
  394. 12009 [153]"** weiter mit tastewait **":[160]6:[151]198,.:[146]198,1:[142]
  395. 12010 [153]"diskfehler nr."f1:[137]12009
  396. 12012 [132]6,g1$:[153]"k-bezeichnung: "g1$
  397. 12014 [153]"bitte art des vorgangs waehlen:
  398. 12016 print" a [146] - gutschrift auf konto-nr."nm
  399. 12018 print" b [146] - gutschrift auf konto-nr."gk
  400. 12020 print" c [146] - abbruch
  401. 12022 [151]198,.:[146]198,1
  402. 12024 [161]at$:[139]at$[178]"c"[167]12035
  403. 12026 [139]at$[179][177]"a"[175]at$[179][177]"b"[167]12024
  404. 12030 [133]"betrag dm ";dm:[139]dm[179][177]0[167]12040
  405. 12035 [160]6:[142]
  406. 12040 [133]"wert-datum   tt.mm.jjcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";wd$
  407. 12042 [153]"eingaben ok ? [j/n]
  408. 12044 geta$:ifa$="n"then12035
  409. 12046 ifa$<>"j"then12044
  410. 12050 print"vorgang wird ausgefuehrt - bitte warten
  411. 12052 ab[178]ab[170]1:da$(ab)[178]wd$
  412. 12054 [139]at$[178]"a"[167]bt$(ab)[178]"uebertrag von kto."[170][196](gk):dm(ab)[178]dm
  413. 12056 [139]at$[178]"b"[167]bt$(ab)[178]"uebertrag auf kto."[170][196](gk):dm(ab)[178][171]dm
  414. 12058 [160]7:[152]15,"s:kto dummy":[159]7,8,7,"kto dummy,s,w
  415. 12060 print#7,g1$:input#6,g1:print#7,g1+1
  416. 12062 input#6,g2:print#7,g2:input#6,g2:print#7,g2
  417. 12064 input#6,g2$:print#7,g2$:input#6,g2$:print#7,g2$
  418. 12066 ifg1=0then12074
  419. 12068 fori=1tog1
  420. 12070 input#6,g1:print#7,g1:input#6,g1$:print#7,g1$
  421. 12072 input#6,g1$:print#7,g1$:next
  422. 12074 ifat$="b"then12080
  423. 12076 print#7,-dm:print#7,"uebertrag auf kto."+str$(nm):print#7,wd$
  424. 12078 goto12082
  425. 12080 print#7,dm:print#7,"uebertrag von kto."+str$(nm):print#7,wd$
  426. 12082 close7:close6
  427. 12084 print#15,"s:kto"+str$(gk)
  428. 12086 print#15,"r:kto"+str$(gk)"=kto dummy
  429. 12088 [152]15,"s:kto dummy":[142]
  430.