home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 June / 64er_Magazin_87-06_1987_Markt__Technik_de_Side_B.d64 / mony64.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  30.0 KB  |  879 lines
  1. 10 goto100
  2. 20 poke214,int(po/40):poke211,po-((int(po/40))*40):sys58640:return
  3. 30 return
  4. 35 we=1:goto61600
  5. 40 we=2:goto61600
  6. 50 we=3:goto61600
  7. 60 we=4:goto61600
  8. 70 forpo=880to960step40:gosub20:sys59903:next:sys58732:return
  9. 80 forpo=200to960step40:gosub20:sys59903:next:sys58732:return
  10. 100 dimkn$(111),su(111),pl(111),pa(14),bu$(20),js(25),vm$(20),dr$(6),fb$(51)
  11. 110 kn$(0)="[197][201][206][206][193][200][205][197][206]":pa(13)=1:pa(14)=1985
  12. 120 kn$(110)="[193][213][211][199][193][194][197][206] [199][197][211][193][205][212]":dr$(0)="4":dr$(1)="7":dr$(2)="14":dr$(3)="15"
  13. 123 dr$(4)="":dr$(5)="":dr$(6)=""
  14. 125 kn$(111)="[196][201][198][198][197][210][197][206][218]"
  15. 130 deffna(fr)=fr-int(fr)
  16. 132 printchr$(8)chr$(14)"[147]"
  17. 134 md$="[211][217][211][212][197][205]-[211][212][193][210][212]":gosub60100:po=61:gosub20:print"              "
  18. 136 po=280:gosub20:print"[129]([195]) 1987[151]   [199]. [194]oehm, 4005 [205]eerbusch"
  19. 138 print"[194]itte warten [211]ie das [208]rogramm wird"
  20. 139 print"initialisiert."
  21. 140 fori=1to39:lo$=lo$+chr$(32):next
  22. 150 restore:fori=1to24:readmo$:next:fori=49152to49240:reada:pokei,a:next
  23. 170 goto500
  24. 200 md$="[196]rucker":gosub60100:po=61:gosub20:print"              "
  25. 210 po=200:gosub20:print"[196]ruckeranpassung:"
  26. 220 ei$=dr$(0):po=280:l=2:au$="[196]ruckeradresse..: ":we=1:gosub61500:dr$(0)=ei$
  27. 230 x=val(dr$(0)):ifx<4orx>5then220
  28. 240 ei$=dr$(1):po=320:l=2:au$="[211]ekundaeradresse: ":we=1:gosub61500:dr$(1)=ei$
  29. 250 x=val(dr$(1)):ifx<0orx>127then240
  30. 260 po=400:gosub20:print"[211]teuerzeichen bitte 3 stellig mit [211]pace[146]"
  31. 270 po=440:gosub20:print"als [212]rennung eingeben."
  32. 280 ei$=dr$(2):po=520:l=15:au$="[194]reitschrift ein: ":we=1:gosub61500:dr$(2)=ei$
  33. 290 f=0:fori=1tolen(dr$(2))step4:x=val(mid$(dr$(2),i,4)):ifx<0orx>255thenf=1
  34. 295 next:iff=1then280
  35. 297 ifval(dr$(2))=0thendr$(2)=""
  36. 300 ei$=dr$(3):po=560:l=15:au$="[194]reitschrift aus: ":we=1:gosub61500:dr$(3)=ei$
  37. 310 f=0:fori=1tolen(dr$(3))step4:x=val(mid$(dr$(3),i,4)):ifx<0orx>255thenf=1
  38. 315 next:iff=1then300
  39. 317 ifval(dr$(3))=0thendr$(3)=""
  40. 320 ei$=dr$(4):po=640:l=15:au$="[196]ruckstart 1....: ":we=1:gosub61500:dr$(4)=ei$
  41. 330 f=0:fori=1tolen(dr$(4))step4:x=val(mid$(dr$(4),i,4)):ifx<0orx>255thenf=1
  42. 335 next:iff=1then320
  43. 337 ifval(dr$(4))=0thendr$(4)=""
  44. 340 ei$=dr$(5):po=680:l=15:au$="[196]ruckstart 2....: ":we=1:gosub61500:dr$(5)=ei$
  45. 350 f=0:fori=1tolen(dr$(5))step4:x=val(mid$(dr$(5),i,4)):ifx<0orx>255thenf=1
  46. 355 next:iff=1then340
  47. 357 ifval(dr$(5))=0thendr$(5)=""
  48. 360 ei$=dr$(6):po=760:l=15:au$="[204]inefeed........: ":we=1:gosub61500:dr$(6)=ei$
  49. 370 f=0:fori=1tolen(dr$(6))step4:x=val(mid$(dr$(6),i,4)):ifx<0orx>255thenf=1
  50. 375 next:iff=1then360
  51. 377 ifval(dr$(6))=0thendr$(6)=""
  52. 380 po=920:gosub20:print"[193]lle [197]ingaben [210]ichtig ? ([202]/[206])"
  53. 390 gosub60200:ifx$="n"orx$="[206]"thengosub70:goto220
  54. 400 ifx$<>"j"andx$<>"[202]"then390
  55. 410 ifm2=1thenreturn
  56. 420 gosub450:ifer=0thenreturn
  57. 430 goto200
  58. 450 gosub60500:ifer<>0thenreturn
  59. 455 open15,8,15:open2,8,2,"@:drucker,s,w"
  60. 460 gosub60700:ifer<>0thenclose2:close15:return
  61. 465 fori=0to6:ifdr$(i)=""thendr$(i)=" "
  62. 470 print#2,dr$(i):goto30020
  63. 480 gosub60500:ifer<>0thenreturn
  64. 485 open15,8,15:open2,8,2,"drucker,s,r"
  65. 490 input#15,er:ifer<>0thenclose2:close15:return
  66. 493 fori=0to6:input#2,dr$(i):ifdr$(i)=" "thendr$(i)=""
  67. 495 goto30020
  68. 500 gosub80:po=240:gosub20:print"[129]([195]) 1987[151]   [199]. [194]oehm, 4005 [205]eerbusch"
  69. 510 po=360:gosub20:print"[194]itte legen [211]ie die aktuelle [196]atendis-"
  70. 515 po=440:gosub20:print"kette von diesem [202]ahr in die [198]loppy."
  71. 520 po=520:gosub20:print"[196]ruecken [211]ie:"
  72. 525 po=640:gosub20:print"[149][210]eturn[146]  fuer [211]ystem-[211]tart"
  73. 530 po=720:gosub20:print"     [149][206][146]  fuer [206]eustart"
  74. 535 po=800:gosub20:print"     [149][196][146]  fuer [196]ruckeranpassung"
  75. 540 gosub60200:ifx$="n"orx$="[206]"then600
  76. 545 ifx$="d"orx$="[196]"thengosub200:goto500
  77. 550 ifx$<>chr$(13)then540
  78. 555 gosub61800:ifer=0then560
  79. 556 po=880:gosub20:print"[211]ie haben keine [196]atendiskette von"
  80. 557 po=920:gosub20:print"diesen [208]rogramm eingelegt !!!"
  81. 558 gosub61950:goto540
  82. 560 gosub30000:ifer<>0then500
  83. 565 gosub30400:ifer<>0then500
  84. 567 lj$=right$("  "+str$(pa(13)),2)+"/"+right$(str$(pa(14)),2)
  85. 569 gosub480:ifer<>0thengosub200
  86. 570 po=920:l=10:au$="[212]agesdatum ([212][212].[205][205].[202][202][202][202]): ":gosub50:da$=ei$:gosub61300
  87. 580 ifda$=""thengosub60612:goto570
  88. 590 ad$=da$:goto1000
  89. 600 md$="[211][217][211][212][197][205]-[206][197][213][211][212][193][210][212]":gosub60100:po=61:gosub20:print"              "
  90. 610 po=360:gosub20:print"[211]ind [211]ie [211]icher ? ([202]/[206])"
  91. 620 gosub60200:ifx$="j"orx$="[202]"then640
  92. 630 goto500
  93. 640 gosub80:po=240:l=2:au$=" [211]tartmonat ([205][205]): ":gosub40
  94. 650 pa(13)=val(ei$):ifpa(13)<1orpa(13)>12then640
  95. 660 po=320:l=4:au$="[211]tartjahr ([202][202][202][202]): ":gosub40
  96. 670 pa(14)=val(ei$):ifpa(14)<1985then660
  97. 680 po=920:l=10:au$="[212]agesdatum ([212][212].[205][205].[202][202][202][202]): ":gosub50:da$=ei$:gosub61300
  98. 690 ifda$=""thengosub60612:goto680
  99. 700 ad$=da$:ud$=ad$
  100. 710 m2=1:gosub200:m2=0
  101. 720 gosub70:po=880:gosub20:print"[194]itte legen sie eine [151]leere[146] oder [151]unfor-"
  102. 730 po=920:gosub20:print"[151]matierte[146] [196]iskette in das [204]aufwerk."
  103. 750 gosub61950
  104. 760 gosub70:po=920:gosub20:print"[129][196]iskette wird formatiert":gosub61400
  105. 775 gosub450:ifer<>0then700
  106. 780 gosub30100:ifer<>0then700
  107. 782 gosub30500:ifer<>0then700
  108. 784 gosub30900:ifer<>0then700
  109. 785 gosub30970:ifer<>0then700
  110. 786 gosub30300:ifer<>0then700
  111. 788 gosub30700:ifer<>0then700
  112. 790 fi$="@:buchungen ":gosub60900:x$="w"
  113. 795 gosub31000:ifer<>0then700
  114. 797 close2:close15
  115. 800 ifm1=5thengosub6600
  116. 1000 pa(0)=0:close2:close15:close4:md$="[200][193][213][208][212][205][197][206][213][197]":gosub60100
  117. 1010 po=280:gosub20:print" [198]1 [146] _[192] [194]uchen":print" [198]2 [146] _[192] [202]ournal"
  118. 1020 print" [198]3 [146] _[192] [205]onatsuebersicht":print" [198]4 [146] _[192] [205]onatsabschluss"
  119. 1030 print" [198]5 [146] _[192] [208]lanzahleneingabe":print" [198]6 [146] _[192] [203]ontenplan"
  120. 1040 print" [198]7 [146] _[192] [214]ermoegen / [194]ilanz":print" [198]8 [146] _[192] [206]ach- und [198]ixbuchen"
  121. 1050 gosub60300:ifx<1orx>8then1050
  122. 1060 onxgoto5000,3000,4000,8000,7000,6000,2000,9000
  123. 1070 sys64738
  124. 2000 gosub30000:ifer<>0then1000
  125. 2010 md$="[203][207][206][212][197][206][208][204][193][206]":m1=1:gosub52060
  126. 2020 onxgoto2070,40000,2050
  127. 2030 gosub42110:gosub42300:gosub42110
  128. 2040 dr$="[206]r. [203]onto"+left$(lo$,31)+"[206]r. [203]onto":gosub42100:zl=zl+4:return
  129. 2050 ifpa(0)=0thengosub1000
  130. 2055 gosub30100:ifer<>0then1000
  131. 2060 goto1000
  132. 2070 zl=-10:gosub52040
  133. 2080 gosub60200:ifx$="m"orx$="[205]"then2010
  134. 2085 ifx$="d"orx$="[196]"thengosub60800:gosub51010
  135. 2090 ifx$="k"orx$="[203]"then2110
  136. 2100 goto52000
  137. 2110 gosub70
  138. 2120 po=880:l=3:au$="[203]ontonummer: ":gosub40
  139. 2130 i=val(ei$):ifi<zlori>zl+9thengosub60608:goto2120
  140. 2140 pa(0)=1:gosub70:po=880:gosub20:print"[203]onto [193]lt: "kn$(i)
  141. 2150 po=920:l=20:au$="[203]onto [206]eu: ":gosub60:kn$(i)=ei$
  142. 2160 ifzl=-10then52040
  143. 2170 goto52050
  144. 3000 md$="[205][207][206][193][212][211][213][197][194][197][210][211][201][195][200][212]":m1=2:gosub52060
  145. 3010 y=x:ify=1ory=2then3400
  146. 3020 onygoto3030,40000,1000
  147. 3030 zl=-10:gosub52040
  148. 3040 gosub60200:ifx$="m"orx$="[205]"then3000
  149. 3050 ifx$="d"orx$="[196]"thengosub60800:gosub51030
  150. 3060 ifx$="s"orx$="[211]"thengosub3130
  151. 3065 ifx$="j"orx$="[202]"thengosub3300
  152. 3070 goto52000
  153. 3080 y$=left$(x$,13):x$=str$(pl(x)):gosub60000:y$=y$+" "+x$
  154. 3090 x$=str$(su(x)):gosub60000:y$=y$+" "+x$
  155. 3100 za=pl(x)-su(x):ifx<=9orx=111thengosub60310
  156. 3110 x$=str$(za):gosub60000:ifval(x$)<0theny$=y$+""
  157. 3120 x$=y$+x$+"":return
  158. 3130 gosub70:x=0:gosub50200:gosub3080:po=880:gosub20:printx$
  159. 3140 x=110:gosub50200:gosub3080:po=920:gosub20:printx$
  160. 3150 x=111:gosub50200:gosub3080:po=960:gosub20:printx$;
  161. 3160 gosub60200:ifx$="d"orx$="[196]"thengosub60800
  162. 3170 zl=-10:goto52040
  163. 3220 x$=str$(pl(x)):gosub60000:dr$=left$(dr$,30)+x$+"     "
  164. 3230 x$=str$(su(x)):gosub60000:dr$=dr$+x$+"     "
  165. 3240 za=pl(x)-su(x):ifx<=9orx=111thengosub60310
  166. 3245 x$=str$(za):gosub60000:dr$=dr$+x$+"  "
  167. 3247 ifx<=9orx>110orsu(x)=0thenreturn
  168. 3248 za=100/(su(110)/su(x)):x$=str$(za):gosub60000:dr$=dr$+x$:return
  169. 3250 dr$=" "+mo$+" "+str$(pa(14)):gosub42100:gosub42300:gosub42110
  170. 3260 dr$="[206]r. [203]onto"+left$(lo$,25)+"[208]lan     [193]usgaben    [196]ifferenz       %"
  171. 3270 gosub42100:zl=zl+4:return
  172. 3280 gosub30600:ifer<>0then3350
  173. 3300 gosub70:po=880:l=3:au$="[203]ontonummer: ":gosub40
  174. 3310 x=val(ei$):ifx<0orx>109thengosub60608:goto3310
  175. 3320 fr=x/10:iffna(fr)=0thenmx=x+9:mi=x:goto3340
  176. 3330 mx=x:mi=x
  177. 3340 gosub7260:ifer=0thengosub7140
  178. 3350 ifzl=-10then52040
  179. 3360 goto52050
  180. 3400 gosub61000:gosub60910
  181. 3410 gosub30210:ifer<>0then1000
  182. 3420 gosub30610:ifer<>0then1000
  183. 3430 gosub61100:goto3020
  184. 4000 md$="[208][204][193][206][218][193][200][204][197][206]":m1=3:gosub52060
  185. 4003 y=x:ify=1ory=2then4400
  186. 4010 onygoto4050,40000,1000
  187. 4020 x$=str$(pl(x)):gosub60000:dr$=left$(dr$,30)+x$+"  ":return
  188. 4030 ifpa(0)=0then4000
  189. 4035 gosub30710:ifer<>0then4000
  190. 4040 pa(0)=0:goto4000
  191. 4050 zl=-10:gosub52040
  192. 4060 gosub60200:ifx$="m"orx$="[205]"then4030
  193. 4065 ifx$="d"orx$="[196]"thengosub60800:gosub51060
  194. 4070 ifx$="e"orx$="[197]"then4100
  195. 4080 goto52000
  196. 4090 y$=left$(x$,13):x$=str$(pl(x)):gosub60000:x$=y$+" "+x$:return
  197. 4100 ifzl=-10then4060
  198. 4110 pa(0)=1:pl(zl)=0:forx=zl+1tozl+9:ifkn$(x)=""orkn$(x)=" "thenx$="":goto4160
  199. 4120 ze=10+(x-zl):po=(ze*40)+25:l=8:au$="":gosub50:x$=ei$
  200. 4140 gosub60000:po=(ze*40)+25:gosub20:printx$:po=(ze*40)+14:gosub20:printx$
  201. 4160 pl(x)=val(x$):next:gosub61100:goto52050
  202. 4170 gosub60900:dr$=" "+mo$+str$(pa(14)):gosub42100:gosub42300:gosub42110
  203. 4180 dr$="[206]r. [203]onto"+left$(lo$,25)+"[208]lan  [206]r. [203]onto"+left$(lo$,25)+"[208]lan"
  204. 4185 gosub42100:zl=zl+4:return
  205. 4400 gosub61000:gosub60910
  206. 4410 gosub30610:ifer<>0then1000
  207. 4420 gosub61100:goto4010
  208. 5000 md$="[194][213][195][200][197][206]":gosub60100
  209. 5003 ei$=lj$:gosub61005
  210. 5005 m1=4:bu=1:tg$="":gosub60100
  211. 5010 x=0:fori=1to109:iflen(kn$(i))>1thenx=x+1
  212. 5012 next:ifx=0thengosub60616:goto1000
  213. 5013 gosub60900:gosub61200
  214. 5015 gosub30200:ifer<>0then1000
  215. 5017 ifm2<>0thenpa(13)=m2
  216. 5019 gosub5900
  217. 5020 ze=8+bu:po=(ze*40):gosub20:print"[129]"right$("   "+str$(bu+pa(mo)),3)
  218. 5025 tg$="":tx$="":bt$="":ko$=""
  219. 5030 ei$=tg$:po=(ze*40)+4:l=2:au$="":we=1:gosub61500:tg$=ei$
  220. 5035 ifasc(tg$)=94then5250
  221. 5040 ifval(tg$)<1orval(tg$)>tthentg$="":gosub60604:gosub5910:goto5030
  222. 5045 tg$=right$("00"+tg$,2):gosub20:printtg$".";
  223. 5050 ei$=tx$:po=(40*ze)+8:l=16:au$="":we=4:gosub61500:tx$=ei$
  224. 5070 ei$=bt$:po=(ze*40)+25:l=8:au$="":we=3:gosub61500:x$=ei$
  225. 5075 gosub60000:bt$=x$:sp=25:gosub8970
  226. 5080 x=val(bt$):ifx>99999orx<-99999thenbt$="":gosub60606:gosub5910:goto5070
  227. 5087 ifx=0thengosub5400:gosub70:gosub5910:goto5070
  228. 5090 bu$(bu)=tg$+tx$+left$(lo$,16-len(tx$))+bt$
  229. 5100 ei$=ko$:po=(40*ze)+35:l=3:au$="":we=1:gosub61500:ko$=ei$
  230. 5110 x=asc(ko$):ifx=94then5220
  231. 5130 x=val(ko$):ifx<0orx>109thenko$="":goto5100
  232. 5140 fr=x/10
  233. 5145 iffna(fr)=0orx>109orkn$(x)=" "orkn$(x)=""thengosub60602:gosub5910
  234. 5147 iffna(fr)=0orx>109orkn$(x)=" "orkn$(x)=""thenko$="":goto5100
  235. 5150 ko$=right$("000"+ko$,3):po=(40*ze)+35:gosub20:printko$:bu$(bu)=bu$(bu)+ko$
  236. 5160 gosub70:po=920:gosub20:print"[151][203][146]orrektur      [210]eturn[146] = ok";
  237. 5170 gosub60200:ifx$="[203]"orx$="k"then5030
  238. 5180 ifx$<>chr$(13)then5170
  239. 5190 gosub70:gosub5910:su(x)=su(x)+val(mid$(bu$(bu),19,8))
  240. 5200 bu$(bu)=bu$(bu):bu=bu+1:ifbu=13thengosub5290:gosub5900
  241. 5210 goto5020
  242. 5220 zl=-10:gosub52040
  243. 5230 gosub60200:ifx$="e"orx$="[197]"then5260
  244. 5240 goto52000
  245. 5250 gosub5290:ifm2<>0thenreturn
  246. 5255 goto1000
  247. 5260 gosub5900:fori=1tobu:ze=8+i
  248. 5265 po=(ze*40):gosub20:print"[129]"right$("   "+str$(i+pa(mo)),3)
  249. 5270 po=(ze*40)+4:gosub20:print""left$(bu$(i),2)"."
  250. 5275 po=(ze*40)+8:gosub20:print""mid$(bu$(i),3,16)
  251. 5280 sp=25:gosub20:x$=mid$(bu$(i),19,8):gosub8970
  252. 5285 po=(ze*40)+35:gosub20:print""right$(bu$(i),3):next:ko$="":goto5100
  253. 5290 ifbu=1thenreturn
  254. 5295 fi$="@:buchungen ":gosub60900:x$="a"
  255. 5300 gosub31000:ifer<>0then1000
  256. 5310 fori=1tobu-1:print#2,bu$(i):bu$(i)="":next:close2:close15
  257. 5320 pa(mo)=pa(mo)+(bu-1):bu=1
  258. 5330 ud$=ad$:gosub30500:ifer<>0then1000
  259. 5340 gosub61100:gosub30300:ifer<>0then1000
  260. 5350 return
  261. 5400 a1=0:a2=0:gosub70
  262. 5410 gosub5800:po=946:l=8:au$="[129]":gosub50:a1=val(ei$)
  263. 5420 ifa1>99999ora1<-99999thena1=0:gosub60606:gosub5800:goto5410
  264. 5430 x$=str$(a1):gosub60000:bt$=x$:po=946:gosub20:print"[129]"bt$
  265. 5435 gosub60200:dr$=x$:po=956:gosub20:print""dr$"[146]";
  266. 5440 ifdr$<>"+"anddr$<>"-"anddr$<>"*"anddr$<>"/"anddr$<>"%"anddr$<>"="then5435
  267. 5450 ifdr$="%"then5520
  268. 5465 ifdr$="="thenreturn
  269. 5470 gosub5800:po=946:l=8:au$="[129]":gosub50:a2=val(ei$)
  270. 5480 ifdr$="+"thena3=a1:a4=100+a2:a1=a1+a2:goto5530
  271. 5490 ifdr$="-"thena3=a1:a4=100-a2:a1=a1-a2:goto5530
  272. 5500 ifdr$="/"thena1=a1/a2:goto5530
  273. 5510 ifdr$="*"thena1=a1*a2:goto5530
  274. 5520 ifdr$="%"thena1=(a3*a4)/100
  275. 5530 ifa1>99999ora1<-99999thena1=0:gosub60606:gosub5800:goto5410
  276. 5550 po=956:gosub20:print" "
  277. 5560 goto5430
  278. 5800 po=880:gosub20:print"[151][212]aschenrechenerfunktion  [176][192][192][192][192][192][192][192][192][192][178][192][174]"
  279. 5810 po=945:gosub20:print"[221]         [221][221] "
  280. 5820 po=960:gosub20:print"[151]       + - * / %         [173][192][192][192][192][192][192][192][192][192][177][192][189][145][145]";
  281. 5830 return
  282. 5900 gosub80:po=280:gosub20:print"[129][206]r. [212]ag [194]uchungstext       [194]etrag [203]onto"
  283. 5910 po=880:gosub20:print"[151] [203]onto+^[146] = [200]ilfe";
  284. 5920 po=920:gosub20:print"[151]   [212]ag+^[146] = [197]ingabeende";
  285. 5930 po=960:gosub20:print"[151][194]etrag=0[146] = [212]aschenrechnerfunktion[145][145]";
  286. 5940 return
  287. 6000 md$="[205][207][206][193][212][211][215][197][195][200][211][197][204]":m1=5:gosub60100
  288. 6010 po=360:gosub20:print"[211]ind [211]ie [211]icher ? ([202]/[206])"
  289. 6020 gosub60200:ifx$="j"orx$="[202]"then6035
  290. 6030 goto1000
  291. 6035 ei$=lj$:gosub61005
  292. 6040 ja=pa(14):ma=pa(13):da$=ud$:gosub6400:gosub6300
  293. 6043 gosub80:po=360:gosub20:print"[194]itte warten [196]ateien werden geschrieben"
  294. 6045 ud$=ad$:ifpa(13)=12then6120
  295. 6050 pa(13)=pa(13)+1:gosub60900
  296. 6055 lj$=right$("  "+str$(pa(13)),2)+"/"+right$(str$(pa(14)),2)
  297. 6070 po=440:gosub20:print"[206]euer [205]onat: [129]"mo$pa(14)
  298. 6080 fori=0to110:su(i)=0:pl(i)=0:next
  299. 6090 gosub30300:ifer<>0then6200
  300. 6092 gosub30500:ifer<>0then6200
  301. 6094 gosub30700:ifer<>0then6200
  302. 6100 fi$="@:buchungen ":gosub60900:x$="w"
  303. 6102 gosub31000:ifer<>0then6200
  304. 6104 close2:close15
  305. 6110 gosub6600:goto1000
  306. 6120 gosub80:po=280:gosub20:print"[149][193]chtung [202]ahreswechsel !!!"
  307. 6125 pa(13)=1:pa(14)=pa(14)+1:gosub60900
  308. 6127 lj$=right$("  "+str$(pa(13)),2)+"/"+right$(str$(pa(14)),2)
  309. 6130 mo=12:gosub30210:ifer<>0then6200
  310. 6131 gosub30800:ifer<>0then6200
  311. 6132 js(12)=su(0):js(24)=su(110):gosub30900:ifer<>0then6200
  312. 6133 js(0)=0:js(25)=0:fori=1to12:js(0)=js(0)+js(i):js(25)=js(25)+js(i+12):next
  313. 6134 gi=val(vm$(0))+js(0)-js(25):vm$(0)=str$(gi)
  314. 6138 fori=0to25:js(i)=0:next
  315. 6140 fori=0to110:su(i)=0:pl(i)=0:next:fori=1to12:pa(i)=0:next
  316. 6143 gosub480:ifer<>0thengosub200
  317. 6145 gosub30000:ifer<>0then6200
  318. 6147 gosub30950:ifer<>0then6200
  319. 6170 gosub60900:po=360:gosub20:print"[206]euer [205]onat: [129]"mo$pa(14):goto720
  320. 6200 pa(14)=ja:pa(13)=ma:ud$=da$:goto1000
  321. 6300 mo=ma
  322. 6310 gosub30210:ifer<>0then6200
  323. 6320 gosub30800:ifer<>0then6200
  324. 6330 js(pa(13))=su(0)
  325. 6340 js((pa(13))+12)=su(110)
  326. 6350 gosub30900:ifer<>0then6200
  327. 6360 return
  328. 6400 ifpa(ma)=0thenreturn
  329. 6405 gosub70:po=880:gosub20:print"[193]nlagevermoegen aktualisieren ? ([202]/[206])"
  330. 6410 gosub60200:ifx$<>"[202]"andx$<>"j"thenreturn
  331. 6415 gosub30800:ifer<>0then6200
  332. 6420 gosub60910:fi$="buchungen ":x$="r"
  333. 6430 gosub31000:ifer<>0then6200
  334. 6440 forbu=1topa(ma):input#2,bu$
  335. 6450 ifmid$(bu$,3,2)<>"v#"andmid$(bu$,3,2)<>"[214]#"then6530
  336. 6460 vm=val(mid$(bu$,5,2))
  337. 6465 x=val(mid$(bu$,19,8)):ifval(right$(bu$,3))<=9thenx=x-(x*2)
  338. 6470 x$=str$(val(mid$(vm$(vm),57,8))+x):gosub60000:bt$=x$
  339. 6480 gosub70:po=880:gosub20:print"[193]nlagevermoegen #"vm"buchen ? ([202]/[206])"
  340. 6490 po=920:gosub20:print"[193]lter [194]etrag:  [129]"mid$(vm$(vm),57,8)"    [194]uchen ?[146]";
  341. 6500 po=960:gosub20:print"[206]euer [194]etrag:  [129]"bt$;"    (j/n)   [146]";
  342. 6510 gosub60200:ifx$<>"[202]"andx$<>"j"then6530
  343. 6520 vm$(vm)=mid$(vm$(vm),1,56)+bt$+ad$+right$(vm$(vm),12)
  344. 6530 next
  345. 6540 close2:close15
  346. 6550 gosub30900:ifer<>0then6200
  347. 6560 return
  348. 6600 gosub70:po=920:gosub20:print"[151][198]ixbuchungen buchen ? ([202]/[206])";
  349. 6605 gosub60200:ifx$="n"orx$="n"thenreturn
  350. 6610 ifx$="j"orx$="[202]"then6615
  351. 6613 goto6605
  352. 6615 gosub30950:ifer<>0then6000
  353. 6620 bu=1:gosub6900:forfb=0to51:ze=bu+8
  354. 6630 ifmid$(fb$(fb),mo,1)<>"*"then6720
  355. 6640 bu$(bu)="01"+mid$(fb$(fb),13,27)
  356. 6645 x=val(mid$(bu$(bu),27,3))
  357. 6650 su(x)=su(x)+val(mid$(bu$(bu),19,8))
  358. 6660 po=ze*40:gosub20:print"[129]"right$("   "+str$(bu+pa(mo)),3)
  359. 6670 po=(ze*40)+4:gosub20:print""left$(bu$(bu),2)"."
  360. 6680 po=(ze*40)+8:gosub20:print""mid$(bu$(bu),3,16)
  361. 6690 sp=25:gosub20:x$=mid$(bu$(bu),19,8):gosub8970
  362. 6700 po=(ze*40)+35:gosub20:print""right$(bu$(bu),3)
  363. 6710 bu=bu+1:ifbu=13thengosub5290:gosub6900
  364. 6720 next:gosub5290:return
  365. 6900 gosub5900:gosub70:gosub60900
  366. 6910 po=240:gosub20:print"[151][198]ixbuchungen fuer "mo$pa(14)
  367. 6920 return
  368. 7000 md$="[202][207][213][210][206][193][204]":m1=6:gosub52060
  369. 7010 y=x:ify=1ory=2thengosub7260:ifer=1then7000
  370. 7020 onygoto7140,7030,1000
  371. 7030 mo=ma:gosub60910:gosub40000:fi$="buchungen ":x$="r"
  372. 7035 gosub31000:ifer<>0then7000
  373. 7040 forbu=1topa(ma):input#2,bu$
  374. 7050 dr$=left$(bu$,2)+".  "+mid$(bu$,3,16)+"  "+mid$(bu$,19,8)+"    "
  375. 7060 x=val(right$(bu$,3)):gosub50200
  376. 7070 dr$=dr$+x$:ko=x
  377. 7072 x$=str$(100/(su(ko)/val(mid$(bu$,19,8)))):gosub60000:dr$=dr$+x$+"  "
  378. 7074 x$=str$(100/(su(110)/val(mid$(bu$,19,8)))):gosub60000:dr$=dr$+x$
  379. 7079 gosub42100:zl=zl+1
  380. 7080 ifzl>65thengosub49000:se=se+1:gosub40010
  381. 7090 next:close2:close15
  382. 7100 ifzl>50thengosub49000:se=se+1:gosub40010
  383. 7110 gosub42110:gosub42110:gosub42110:gosub3260:gosub42110:zl=zl+5
  384. 7120 forx=0to110step10:gosub50200:dr$=x$+"     "
  385. 7125 ifx=110thengosub42110:zl=zl+2
  386. 7130 gosub3220:gosub42100:zl=zl+1:next:gosub49000:close4:goto7000
  387. 7140 fi$="buchungen ":mo=ma:gosub60910:x$="r":gosub31000:ifer<>0then7000
  388. 7150 gosub7250:se=0:forbu=1topa(ma):input#2,bu$
  389. 7160 x=val(right$(bu$,3)):ifm1=2and(x<miorx>mx)then7240
  390. 7170 dr$=left$(bu$,2)+". "+mid$(bu$,3,16)+" "
  391. 7180 ifval(mid$(bu$,19,8))<0thendr$=dr$+"":goto7200
  392. 7190 dr$=dr$+""
  393. 7200 dr$=dr$+mid$(bu$,19,8)+" "
  394. 7210 x=val(right$(bu$,3)):gosub50200:dr$=dr$+x$
  395. 7220 po=(se+9)*40:gosub20:printleft$(dr$,41):se=se+1
  396. 7230 ifse=13then7310
  397. 7240 next:close2:close15:goto7310
  398. 7250 gosub80:po=200:gosub20:print"[151][202]ournal "mo$pa(14)
  399. 7255 po=280:gosub20:print"[149][212]ag [212]ext"spc(15)"[194]etrag [206][210]. [203]onto":return
  400. 7260 er=0:ifm1<>2thengosub61000
  401. 7265 ma=mo:er=0:ifpa(ma)<=0thengosub60618:er=1:goto7290
  402. 7266 ify=1then7290
  403. 7270 gosub30210:ifer<>0then7000
  404. 7280 gosub30610:ifer<>0then7000
  405. 7290 return
  406. 7300 gosub60910:gosub30210:ifer<>0then7000
  407. 7305 gosub30400:ifer<>0then7000
  408. 7310 gosub70:po=960:gosub20:print"[151]     [215][146]eiter   [196][146]rucker   [218][146]urueck";
  409. 7320 gosub60200:if(x$="w"orx$="[215]")and(bu<pa(ma)+1)thengosub7250:se=0:goto7240
  410. 7330 ifx$="d"orx$="[196]"thengosub60800:goto7310
  411. 7340 if(x$="z"orx$="[218]")andm1=2thenclose2:close15:return
  412. 7350 ifx$="z"orx$="[218]"thenclose2:close15:goto7000
  413. 7360 goto7320
  414. 7370 dr$=" "+mo$+str$(pa(14)):gosub42100:gosub42300:gosub42110
  415. 7380 dr$="[212]ag  [212]ext"+left$(lo$,16)+"[194]etrag    [206][210]. [203]onto"
  416. 7385 dr$=dr$+left$(lo$,17)+"[203]onto %  [199]esamt %":gosub42100
  417. 7390 gosub42110:zl=zl+5:return
  418. 8000 md$="[214]ermoegen / [194]ilanz":m1=7:gosub60100
  419. 8003 gosub70:po=880:l=4:au$="[215]elches [202]ahr ([202][202][202][202]): ":gosub60:x$=ei$
  420. 8005 ei$="01/"+right$(x$,2):gosub61005
  421. 8007 gosub30800:ifer<>0then1000
  422. 8010 gosub80:po=320:gosub20:print"  [198]1[146] _[192] [197]in- / [193]usgabenbilanz"
  423. 8020 print"  [198]3[146] _[192] [199]irokontostand eingabe/aendern"
  424. 8030 print"  [198]5[146] _[192] [193]nlagevermoegen"
  425. 8040 print"  [198]7[146] _[192] [205]enue"
  426. 8050 gosub60300:ifx<1orx>4then8050
  427. 8060 onxgoto8500,8070,8100,1000
  428. 8070 gosub70:po=880:l=8:au$="[199]irokontostand (1.1.): ":gosub50:x$=ei$
  429. 8080 gosub60000:vm$(0)=x$:pa(0)=1:goto8220
  430. 8100 zl=1:gosub80
  431. 8110 gosub80:po=280:gosub20:print"[149][213]ebersicht  [193]nlagevermoegen"
  432. 8120 po=360:gosub20:print"[129][206]r[151] [203]ontenname   [193]rt   [194]etrag     [213]pdate"
  433. 8130 fori=0to9:ze=i+11:ps=i+zl:x$=right$("  "+str$(ps),2)
  434. 8135 po=(ze*40):gosub20:print"[129]"x$
  435. 8140 kn$=mid$(vm$(ps),1,11):po=(ze*40)+3:gosub20:print""kn$
  436. 8143 fe$=mid$(vm$(ps),53,4):po=(ze*40)+15:gosub20:printfe$
  437. 8145 bt$=mid$(vm$(ps),57,8):po=(ze*40)+20:gosub20:printbt$
  438. 8147 lu$=mid$(vm$(ps),65,10):po=(ze*40)+29:gosub20:printlu$:next
  439. 8150 po=960:gosub20:print"[151][215][146]echsel   [218][146]eigen   [196][146]ruck   [205][146]enue";
  440. 8160 gosub60200:ifx$="m"orx$="[205]"then8220
  441. 8170 ifx$="z"orx$="[218]"then8240
  442. 8180 ifx$="d"orx$="[196]"thengosub60800:goto8150
  443. 8190 if(x$="w"orx$="[215]")andzl=1thenzl=11:goto8110
  444. 8200 if(x$="w"orx$="[215]")andzl=11thenzl=1:goto8110
  445. 8210 goto8160
  446. 8220 ifpa(0)=0then8005
  447. 8225 gosub30900:ifer<>0then8005
  448. 8230 goto8010
  449. 8240 gosub70:po=920:l=2:au$="[193]nlagevermoegennr. ":gosub40
  450. 8250 a=val(ei$):ifa<zlora>zl+9thengosub60620:goto8240
  451. 8260 gosub80:po=240:gosub20:print"[149][213]ebersicht  [193]nlagevermoegen [206]r."a
  452. 8270 kn$=mid$(vm$(a),1,15):po=320:gosub20:print"[203]ontoname[164][164][164]: [129]"kn$
  453. 8280 kr$=mid$(vm$(a),16,12):po=400:gosub20:print"[203]ontonummer[164]: [129]"kr$
  454. 8290 gi$=mid$(vm$(a),28,25):po=480:gosub20:print"[199]eldinstitut: [129]"gi$
  455. 8300 fe$=mid$(vm$(a),53,4):po=560:gosub20:print"[193]nlageart [198]est/[198]rei: [129]"fe$
  456. 8310 bt$=mid$(vm$(a),57,8):po=640:gosub20:print"[194]etrag[164][164][164][164][164][164][164][164][164][164][164][164][164]: [129]"bt$
  457. 8320 lu$=mid$(vm$(a),65,10):po=720:gosub20:print"[204]etzte [203]orrektur[164][164][164]: [129]"lu$
  458. 8330 bm$=mid$(vm$(a),75,12):po=800:gosub20:print"[194]emerkungen[164][164][164][164][164][164][164][164]: [129]"bm$
  459. 8340 po=960:gosub20:print"[151][197][146]ingabe /[193]endern    [218][146]urueck    [196][146]ruck";
  460. 8350 gosub60200:ifx$="z"orx$="[218]"then8110
  461. 8360 ifx$="d"orx$="[196]"thengosub60800:goto8340
  462. 8370 ifx$="e"orx$="[197]"then8390
  463. 8380 goto8350
  464. 8390 pa(0)=1:print"[129]";:lu$=ad$:po=741:gosub20:print"[129]"lu$
  465. 8400 ei$=kn$:po=334:l=15:au$="[129]":we=4:gosub61500:kn$=ei$:kn$=left$(kn$+lo$,15)
  466. 8410 ei$=kr$:po=414:l=12:au$="[129]":we=3:gosub61500:kr$=ei$:kr$=left$(kr$+lo$,12)
  467. 8420 ei$=gi$:po=494:l=25:au$="[129]":we=4:gosub61500:gi$=ei$:gi$=left$(gi$+lo$,25)
  468. 8430 ei$=fe$:po=581:l=4:au$="[129]":we=4:gosub61500:fe$=ei$:fe$=left$(fe$+lo$,4)
  469. 8440 ei$=bt$:po=661:l=8:au$="[129]":we=3:gosub61500:x$=ei$:gosub60000:bt$=x$
  470. 8445 gosub20:printx$
  471. 8450 ei$=bm$:po=821:l=12:au$="[129]":we=4:gosub61500:bm$=ei$:bm$=left$(bm$+lo$,15)
  472. 8460 vm$(a)=kn$+kr$+gi$+fe$+bt$+lu$+bm$:print"";:goto8340
  473. 8500 gosub80:po=600:gosub20:print"[129][194]itte warten sie die [194]ilanzdaten werden"
  474. 8510 po=600:gosub20:print"[129][194]itte warten sie die [194]ilanzdaten werden"
  475. 8520 print"erstellt.":gosub30200:ifer<>0then8005
  476. 8530 js(mo)=su(0):js(mo+12)=su(110)
  477. 8535 js(25)=0:js(0)=0:fori=1to12:js(0)=js(0)+js(i):js(25)=js(25)+js(i+12):next
  478. 8550 gosub80:po=200:gosub20:print"[129][197]innahmen / [193]usgabenbilanz"pa(14)
  479. 8560 po=280:gosub20:print"[151][205]onat      [197]innahmen [193]usgaben   [196]iff."
  480. 8565 formo=1topa(13):ze=mo+8:gosub60910
  481. 8570 po=(ze*40):gosub20:print""mo$
  482. 8580 x$=str$(js(mo)):gosub60000:sp=13:gosub8970
  483. 8590 x$=str$(js(mo+12)):gosub60000:sp=22:gosub8970
  484. 8600 gi=js(mo)-js(mo+12):x$=str$(gi):gosub60000:sp=32:gosub8970
  485. 8610 next:po=840:gosub20:print"[149][193]ufgelaufen"
  486. 8620 x$=str$(js(0)):gosub60000::ze=21:sp=13:gosub8970
  487. 8630 x$=str$(js(25)):gosub60000:sp=22:gosub8970
  488. 8635 gi=js(0)-js(25):x$=str$(gi):gosub60000:sp=32:gosub8970
  489. 8640 po=960:gosub20:print"[151][205][146]enue    [214][146]ermoegensbilanz    [196][146]ruck";
  490. 8650 gosub60200:ifx$="[205]"orx$="m"then8010
  491. 8660 ifx$="d"orx$="[196]"thengosub60800:goto8640
  492. 8670 ifx$="[214]"orx$="v"then8690
  493. 8680 goto8650
  494. 8690 gosub80:po=280:gosub20:print"[129][214]ermoegensbilanz"pa(14)
  495. 8700 po=400:gosub20:print"[199]irokontostand 1.[202]anuar"pa(14)
  496. 8710 x$=vm$(0):gosub60000:ze=10:sp=30:gosub8970
  497. 8720 po=440:gosub20:print"[197]inahmen aufgelaufen"pa(14)
  498. 8730 x$=str$(js(0)):gosub60000:ze=11:sp=30:gosub8970
  499. 8740 po=480:gosub20:print"[193]usgaben aufgelaufen"pa(14)
  500. 8750 x$=str$(js(25)):gosub60000:ze=12:sp=30:gosub8970
  501. 8760 gosub60900:po=520:gosub20:print"[199]irokontostand "mo$pa(14)
  502. 8765 gi=(val(vm$(0))+js(0))-js(25)
  503. 8770 x$=str$(gi):gosub60000:ze=13:sp=30:gosub8970:fe=0:fs=0
  504. 8780 fori=1to20:ifmid$(vm$(i),53,2)="fr"thenfs=fs+val(mid$(vm$(i),57,8))
  505. 8790 ifmid$(vm$(i),53,2)="fe"thenfe=fe+val(mid$(vm$(i),57,8))
  506. 8795 next
  507. 8800 po=600:gosub20:print"[193]nlagevermoegen [198]rei"
  508. 8810 x$=str$(fs):gosub60000:ze=15:sp=30:gosub8970
  509. 8820 gosub60900:po=640:gosub20:print"[194]arvermoegen im [200]aus"
  510. 8830 po=670:l=8:au$="":gosub50:x$=ei$:gosub60000:bt$=x$:ze=16:sp=30:gosub8970
  511. 8840 po=680:gosub20:print"[218]wischensumme"
  512. 8850 x$=str$(gi+fs+val(bt$)):gosub60000:ze=17:sp=30:gosub8970
  513. 8860 po=760:gosub20:print"[193]nlagevermoegen [198]est"
  514. 8870 x$=str$(fe):gosub60000:ze=19:sp=30:gosub8970
  515. 8880 gosub60900:po=800:gosub20:print"[214]ermoegen am "ud$
  516. 8890 x$=str$(gi+fs+val(bt$)+fe):gosub60000:ze=20:sp=30:gosub8970
  517. 8900 po=870:gosub20:print"========"
  518. 8910 po=960:gosub20:print"[151][205][146]enue  [197][146]innahmen/[193]usgabenbilanz  [196][146]ruck";
  519. 8920 gosub60200:ifx$="[205]"orx$="m"then8010
  520. 8930 ifx$="d"orx$="[196]"thengosub60800:goto8910
  521. 8940 ifx$="[197]"orx$="e"then8550
  522. 8950 goto8920
  523. 8970 ifval(x$)<0thenpo=(ze*40)+sp:gosub20:print""x$:return
  524. 8980 po=(ze*40)+sp:gosub20:print""x$:return
  525. 8999 :goto8999
  526. 9000 md$="[198]ix- und [206]achbuchen":m1=8:gosub60100:gosub80
  527. 9010 po=320:gosub20:print"  [198]1[146] _[192] [206]achbuchen in alten [205]onat"
  528. 9020 print"  [198]3[146] _[192] [198]ixbuchungen aendern"
  529. 9030 print"  [198]5[146] _[192] [205]enue"
  530. 9040 gosub60300:ifx<1orx>4then9040
  531. 9050 onxgoto9100,9200,1000
  532. 9100 gosub70
  533. 9110 gosub61000:m2=mo:m3=ja
  534. 9130 am=pa(13):pa(13)=m2:aj=pa(14):pa(14)=m3:gosub5005:m1=8
  535. 9140 gosub70:po=880:gosub20:print"[194]itte warten [211]ummen werden korrigiert"
  536. 9150 ma=pa(13):gosub6300
  537. 9160 gosub30400:ifer<>0then9000
  538. 9170 pa(13)=am:pa(14)=m3
  539. 9180 ud$=ad$:gosub30500:ifer<>0then9000
  540. 9190 m2=0:m3=0:goto9000
  541. 9200 gosub30950:ifer<>0then9000
  542. 9210 m3=0:en=0
  543. 9220 gosub9900:fori=entoen+12
  544. 9230 ze=8+(i-en):po=(ze*40):gosub20:print"[129]"right$("   "+str$(i),3)
  545. 9240 po=(ze*40+4):gosub20:print""mid$(fb$(i),13,16)
  546. 9250 ifm3=1then9280
  547. 9260 po=(ze*40+21):gosub20:printmid$(fb$(i),29,8)
  548. 9270 po=(ze*40+32):gosub20:printmid$(fb$(i),37,3):goto9285
  549. 9280 po=(ze*40+23):gosub20:printmid$(fb$(i),1,12)
  550. 9285 next
  551. 9290 gosub60200:ifx$="m"orx$="[205]"then9380
  552. 9300 ifx$="v"orx$="[214]"thenen=en+13:goto9350
  553. 9310 ifx$="z"orx$="[218]"thenen=en-13:goto9350
  554. 9320 ifx$="e"orx$="[197]"then9410
  555. 9325 ifx$="d"orx$="[196]"thengosub60800
  556. 9330 ifx$="b"orx$="[194]"thenm3=1:goto9220
  557. 9335 ifx$="k"orx$="[203]"thenm3=0:goto9220
  558. 9340 goto9290
  559. 9350 ifen<0thenen=39
  560. 9360 ifen+12>51thenen=0
  561. 9370 goto9220
  562. 9380 ifpa(0)<>0thengosub30970:ifer<>0then9000
  563. 9390 goto9000
  564. 9410 gosub70:po=880:l=2:au$="[215]elche [198]ixbuchungsnummer ":gosub35
  565. 9420 fb=val(ei$):iffb<enorfb>en+12thengosub60622:goto9410
  566. 9430 gosub80:po=240:gosub20:print"[129][197]ingabe [198]ixbuchungnr."fb
  567. 9435 ifm4=0thengosub9700
  568. 9440 po=320:gosub20:print"[194]uchungstext[164]: [129]"tx$
  569. 9450 po=400:gosub20:print"[194]etrag[164][164][164][164][164][164][164]: [129]"bt$
  570. 9460 po=480:gosub20:print"[203]onto[164][164][164][164][164][164][164][164]: [129]"ko$
  571. 9480 po=575:gosub20:print"[202] [198] [205] [193] [205] [202] [202] [193] [211] [207] [206] [196]"
  572. 9490 po=615:gosub20:print"a e r p a u u u e k o e"
  573. 9500 po=655:gosub20:print"n b z r i n l g p t v z"
  574. 9520 po=720:gosub20:print"[194]uchungsmonat: [129]"mt$
  575. 9530 po=800:gosub20:print"[194]itte tragen sie unter den [205]onat in dem"
  576. 9540 po=840:gosub20:print"gebucht werden soll ein '*' ein."
  577. 9542 po=880:gosub20:print"[218]um loeschen des [194]uchungssatzes bitte"
  578. 9543 po=920:gosub20:print"den [194]etrag loeschen."
  579. 9545 ifm4=1thenm4=0:goto9570
  580. 9550 ei$=tx$:po=335:l=16:au$="[129]":we=4:gosub61500:tx$=ei$:tx$=left$(tx$+lo$,16)
  581. 9560 ei$=bt$:po=415:l=8:au$="[129]":we=3:gosub61500:x$=ei$:gosub60000:bt$=x$
  582. 9563 ifval(bt$)=0thenfb$(fb)=left$(lo$,39):pa(0)=1:goto9220
  583. 9565 po=415:gosub20:printbt$
  584. 9570 ei$=ko$:po=495:l=3:au$="[129]":we=1:gosub61500:ko$=ei$
  585. 9580 x=asc(ko$):ifx=94then9800
  586. 9590 x=val(ko$):ifx<0orx>109thenko$="":goto9570
  587. 9600 fr=x/10
  588. 9620 iffna(fr)=0orx>109orkn$(x)=" "orkn$(x)=""thenko$="":goto9570
  589. 9630 ko$=right$("000"+ko$,3):po=495:gosub20:print"[129]"ko$
  590. 9640 ei$=mt$:po=735:l=23:au$="[129]":we=4:gosub61500:mt$=ei$:mt$=left$(mt$+lo$,23)
  591. 9645 fb$(fb)="":fori=1to23step2
  592. 9646 x$="*":ifmid$(mt$,i,1)<>"*"thenx$="-"
  593. 9647 fb$(fb)=fb$(fb)+x$:next
  594. 9649 fb$(fb)=fb$(fb)+tx$+bt$+ko$
  595. 9650 gosub70:po=920:gosub20:print"[151][193]lle [197]ingaben ok ? ([202]/[206])";
  596. 9660 gosub60200:ifx$="n"orx$="n"then9550
  597. 9670 ifx$="j"orx$="[202]"thenpa(0)=1:goto9220
  598. 9680 goto9660
  599. 9700 tx$=mid$(fb$(fb),13,16)
  600. 9710 bt$=mid$(fb$(fb),29,8)
  601. 9720 ko$=mid$(fb$(fb),37,3)
  602. 9730 mt$=left$(fb$(fb),1):fori=2to12:mt$=mt$+" "+mid$(fb$(fb),i,1):next
  603. 9740 return
  604. 9800 zl=-10:gosub52040
  605. 9810 gosub60200:ifx$="e"orx$="[197]"thenm4=1:goto9430
  606. 9820 goto52000
  607. 9900 gosub80:po=240:gosub20:print"[129][206]r. [194]uchungstext       [194]etrag [203]onto"
  608. 9905 ifm3=1thenpo=263:gosub20:print"[202][198][205][193][205][202][202][193][211][207][206][196]   "
  609. 9910 po=880:gosub20:print"[214][146]or       [205][146]enue     [194][146]uchungsmonate";
  610. 9920 po=920:gosub20:print"[218][146]urueck   [197][146]ingabe   [203][146]onto+[194]etrag";
  611. 9930 po=960:gosub20:print"[196][146]ruck";:return
  612. 30000 fi$="kontenplan":mo$="":x$="r":gosub31000:ifer<>0thenreturn
  613. 30010 fori=0to109:input#2,kn$(i):ifkn$(i)=" "thenkn$(i)=""
  614. 30020 next:close2:close15:gosub70:return
  615. 30100 fi$="@:kontenplan":mo$="":x$="w":gosub31000:ifer<>0thenreturn
  616. 30110 fori=0to109:ifkn$(i)=""thenkn$(i)=" "
  617. 30120 print#2,kn$(i):goto30020
  618. 30200 mo=pa(13)
  619. 30210 fi$="summen    ":gosub60910:x$="r":gosub31000:ifer<>0thenreturn
  620. 30220 gosub61100:fori=0to110:input#2,su(i):goto30020
  621. 30300 mo=pa(13)
  622. 30310 fi$="@:summen    ":gosub60910:x$="w":gosub31000:ifer<>0thenreturn
  623. 30320 gosub61100:fori=0to110:print#2,su(i):goto30020
  624. 30400 fi$="parameter":mo$="":x$="r":gosub31000:ifer<>0thenreturn
  625. 30410 input#2,ud$:fori=0to14:input#2,pa(i):goto30020
  626. 30500 fi$="@:parameter":mo$="":x$="w":gosub31000:ifer<>0thenreturn
  627. 30510 print#2,ud$:fori=0to14:print#2,pa(i):goto30020
  628. 30600 mo=pa(13)
  629. 30610 fi$="plan      ":gosub60910:x$="r":gosub31000:ifer<>0thenreturn
  630. 30620 gosub61100:fori=0to110:input#2,pl(i):goto30020
  631. 30700 mo=pa(13)
  632. 30710 fi$="@:plan      ":gosub60910:x$="w":gosub31000:ifer<>0thenreturn
  633. 30720 gosub61100:fori=0to110:print#2,pl(i):goto30020
  634. 30800 fi$="vermoegen":mo$="":x$="r":gosub31000:ifer<>0thenreturn
  635. 30810 fori=0to25:input#2,js(i):next
  636. 30820 fori=0to20:input#2,vm$(i):goto30020
  637. 30900 fi$="@:vermoegen":mo$="":x$="w":gosub31000:ifer<>0thenreturn
  638. 30910 fori=0to25:print#2,js(i):next
  639. 30920 fori=0to20:vm$(i)=left$(vm$(i)+lo$,86)
  640. 30930 print#2,vm$(i):goto30020
  641. 30950 fi$="fixbuchungen":mo$="":x$="r":gosub31000:ifer<>0thenreturn
  642. 30960 fori=0to51:input#2,fb$(i):goto30020
  643. 30970 fi$="@:fixbuchungen":mo$="":x$="w":gosub31000:ifer<>0thenreturn
  644. 30980 fori=0to51:fb$(i)=left$(fb$(i)+lo$,39)
  645. 30990 print#2,fb$(i):goto30020
  646. 31000 fi$=fi$+left$(mo$,3)+",s,"+x$:dn$=left$(fi$,len(fi$)-4)
  647. 31010 ifx$<>"r"thenei$="geschrieben":dn$=right$(dn$,len(dn$)-2)
  648. 31020 ifx$="r"thenei$="gelesen"
  649. 31030 gosub60500:ifer<>0thenreturn
  650. 31035 open15,8,15:open2,8,2,fi$:gosub60700:ifer<>0thenclose2:close15:return
  651. 31040 gosub31100:return
  652. 31100 gosub70:ei$="[196]atei "+dn$+"[146] wird "+ei$
  653. 31110 po=920:gosub20:printei$;:return
  654. 40000 gosub60400:ifer<>0then40190
  655. 40005 gosub41000:se=1:gosub41100
  656. 40010 gosub61850:dr$="":forx=1to79:dr$=dr$+"=":next:gosub42100
  657. 40020 gosub42200:dr$="   [200][160][193][160][213][160][211][160][200][160][193][160][204][160][212][160][211][160][198][160][201][160][206][160][193][160][206][160][218][160][197][160][206][160]   ":gosub42100
  658. 40030 gosub42300:dr$="":forx=1to79:dr$=dr$+"=":next:gosub42100
  659. 40040 dr$=left$(lo$,20)+"[196]atum:  "+ad$+left$(lo$,23)+"[211]eite: "+str$(se)
  660. 40050 gosub42100:gosub42110:gosub42110:zl=6:gosub42200:dr$=md$:gosub42000
  661. 40052 onm1gosub2030,3250,4170,7370,7370,7370
  662. 40070 ifse<>1orm1=6thenreturn
  663. 40080 se=1:forko=0to100step10:y=0:gosub42110:gosub42110
  664. 40090 gosub40200:gosub42100
  665. 40095 dr$="":forx=1to79:dr$=dr$+"-":next:gosub42100:zl=zl+4:md=0
  666. 40100 fory=1to9:gosub40200
  667. 40105 iflen(dr$)<=40andmd=0thengosub42000:zl=zl+.5:md=1:goto40130
  668. 40110 iflen(dr$)<=40andmd=1thengosub42100:zl=zl+.5:md=0:goto40130
  669. 40120 gosub42100:zl=zl+1
  670. 40130 next:iflen(dr$)<=40thengosub42110:zl=zl+.5
  671. 40140 ifzl>63and(m1=1orm1=3)thense=se+1:gosub49000:gosub40010
  672. 40150 ifzl>60andm1=2thense=se+1:gosub49000:gosub40010
  673. 40160 next:ifm1<>2then40180
  674. 40170 gosub42110:gosub42110:y=0:ko=0:gosub40200:gosub42100:ko=110:gosub40200
  675. 40175 gosub42100:ko=111:gosub40200:gosub42100
  676. 40180 gosub49000:close4
  677. 40190 onm1goto2010,3000,4000,1000,1000,1000,1000
  678. 40200 x=ko+y:gosub50200:dr$=x$+left$(lo$,40-len(x$))
  679. 40210 onm1gosub30,3220,4020:return
  680. 41000 open4,val(dr$(0)),val(dr$(1)):return
  681. 41100 iflen(dr$(4))=0then41120
  682. 41110 fordr=1tolen(dr$(4))step4:print#4,val(mid$(dr$(4),dr,3));:next
  683. 41120 iflen(dr$(4))=0then41140
  684. 41130 fordr=1tolen(dr$(5))step4:print#4,val(mid$(dr$(5),dr,3));:next
  685. 41140 return
  686. 42000 print#4,dr$;:return
  687. 42100 print#4,dr$;
  688. 42110 print#4:iflen(dr$(6))=0thenreturn
  689. 42120 fordr=1tolen(dr$(6))step4:print#4,chr$(val(mid$(dr$(6),dr,3)));:next
  690. 42130 return
  691. 42200 iflen(dr$(2))=0thenreturn
  692. 42210 fordr=1tolen(dr$(2))step4:print#4,chr$(val(mid$(dr$(2),dr,3)));:next
  693. 42220 return
  694. 42300 iflen(dr$(3))=0thenreturn
  695. 42310 fordr=1tolen(dr$(3))step4:print#4,chr$(val(mid$(dr$(3),dr,3)));:next
  696. 42320 return
  697. 49000 ifzl<73thenzl=zl+1:gosub42110:goto49000
  698. 49010 return
  699. 50000 ifzl<0thenzl=100
  700. 50010 ifzl+9>109thenzl=0
  701. 50020 forxx=0to9:x=xx+zl:ze=xx+10:gosub50200
  702. 50030 ifx=zlthen:print"[129]";:goto50050
  703. 50040 print"";
  704. 50050 onm1gosub30,3080,4090,30,30,30,30
  705. 50060 po=(ze*40):gosub20:printx$"":next
  706. 50070 printlo$"[145]":return
  707. 50100 forxx=0to10:x=xx*10:ze=10+xx
  708. 50110 gosub50200
  709. 50120 ifx=0then:print"[129]";:goto50140
  710. 50130 print"";
  711. 50140 onm1gosub30,3080,4090,30,30,30,30
  712. 50150 po=(ze*40):gosub20:printx$"":next:return
  713. 50200 x$=str$(x):x$=right$("000"+right$(x$,(len(x$)-1)),3)+" "+kn$(x)
  714. 50210 x$=x$+left$(lo$,25-len(x$)):return
  715. 51000 gosub80:onm1gosub51010,51030,51060,51100,30,51080,51080,51100:return
  716. 51010 gosub51900:print"[151][205][146]enue         [203][146]orrektur     [196][146]ruck";
  717. 51020 po=320:gosub20:print"[149][206]r. [203]ontenname":return
  718. 51030 gosub51900:print"[151][205][146]enue         [196][146]rucker       [211][146]umme"
  719. 51035 print"[202][146]ournal";
  720. 51040 po=240:gosub20:print"[151]"mo$"  "pa(14)""
  721. 51050 print"[149][206]r. [203]onto         [208]lan    [193]usg.   [204]imit":return
  722. 51060 gosub51900:print"[151][205][146]enue         [197][146]ingabe       [196][146]ruck";
  723. 51070 po=240:gosub20:print"[208]lan fuer [151]"mo$"  "pa(14)""
  724. 51075 po=320:gosub20:print"[149][206]r. [203]ontenname    [208]lan   [197]ingabe":return
  725. 51080 gosub51900:print"[151][205][146]enue         [202][146]ournal";
  726. 51090 po=320:gosub20:print"[149][206]r. [203]ontenname    ":return
  727. 51100 gosub51900:print"[151][197][146]ingabe";
  728. 51110 po=320:gosub20:print"[149][206]r. [203]ontenname    ":return
  729. 51900 po=880:gosub20:print"[151][200][146]auptkonten   [214][146]or           [218][146]urueck"
  730. 51920 return
  731. 52000 ifx$="h"orx$="[200]"thenzl=-10:gosub52040
  732. 52010 ifx$="v"orx$="[214]"thenzl=zl+10:goto52050
  733. 52020 ifx$="z"orx$="[218]"thenzl=zl-10:goto52050
  734. 52030 onm1goto2080,3040,4060,5230,8020,8020,8020,9810
  735. 52040 gosub51000:gosub50100:goto52030
  736. 52050 gosub51000:gosub50000:goto52030
  737. 52060 gosub60100
  738. 53000 po=360:gosub20:print" [198]1 [146]  "md$" zeigen":print" [198]3 [146]  "md$" drucken"
  739. 53010 print" [198]5 [146]  [205]enue"
  740. 53020 gosub60300:ifx<1orx>3then53020
  741. 53030 return
  742. 60000 forz=1tolen(x$):ifmid$(x$,z,1)<>","then60020
  743. 60010 x$=left$(x$,z-1)+"."+right$(x$,len(x$)-(z))
  744. 60020 next
  745. 60025 z=val(x$):z=int(z*100+.5)/100:x$=str$(z)
  746. 60030 fr=z:iffna(fr)=0andlen(x$)<=2thenx$=x$+".":goto60050
  747. 60040 iffna(fr)=0andmid$(x$,len(x$)-2,1)<>"."thenx$=x$+"."
  748. 60050 x$=x$+"000"
  749. 60060 ifmid$(x$,len(x$)-2,1)<>"."thenx$=left$(x$,len(x$)-1):goto60060
  750. 60070 x$=right$("       "+x$,8)
  751. 60080 if(z<1andz>-1)andz<>0thenx$=mid$(x$,2,4)+"0"+right$(x$,3)
  752. 60090 return
  753. 60100 poke53280,15:poke53281,15:gosub60900
  754. 60110 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  755. 60112 print"[221]                   [221]                  [221]";
  756. 60114 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]                  [221]";
  757. 60116 print"[221]                   [221]                  [221]";
  758. 60120 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  759. 60130 print"[129][200][193][213][211][200][193][204][212][211][198][201][206][193][206][218][197][206]"spc(3)mo$pa(14)
  760. 60140 po=101:gosub20:print"[213]pdate: "ud$
  761. 60150 print"[145][156]"md$;:po=141:gosub20:print"[196]atum : "ad$:return
  762. 60200 getx$:ifx$=""then60200
  763. 60210 return
  764. 60300 gosub60200:x=asc(x$)-132
  765. 60310 ifza>0thenza=za-(za*2):goto60330
  766. 60320 ifza<0thenza=abs(za)
  767. 60330 return
  768. 60400 fl=0
  769. 60405 er=0:print"[155]";:gosub41000:poke768,61:gosub42300:close4:poke768,139
  770. 60410 ifst<>-128andst<>-125thenreturn
  771. 60430 gosub70:po=920:gosub20:print"     [194]itte [196]rucker einschalten !!! ";
  772. 60440 gosub61950:iffl=1thener=1:return
  773. 60450 iffl=0thenfl=1
  774. 60460 goto60405
  775. 60500 fl=0
  776. 60505 er=0:print"[155]";:open15,8,15:poke768,61:print#15,"i0";:close15:poke768,139
  777. 60510 ifst<>-128andst<>-125thenreturn
  778. 60530 gosub70:po=920:gosub20:print"    [194]itte [198]loppy #8 einschalten !!! ";
  779. 60540 gosub61950:iffl=1thener=1:return
  780. 60550 iffl=0thenfl=1
  781. 60560 goto60505
  782. 60602 er$="[194]uchung auf dieses [203]onto nicht moeglich":goto60690
  783. 60604 er$="[213]nzulaessiger [212]ag":goto60690
  784. 60606 er$="[194]etrag zu gross oder zu klein":goto60690
  785. 60608 er$="[213]nzulaessige [203]ontonummer":goto60690
  786. 60610 er$="[213]nzulaessiger [205]onat":goto60690
  787. 60612 er$="[213]nzulaessiges [196]atum":goto60690
  788. 60614 er$="[213]nzulaessiges [200]auptkonto":goto60690
  789. 60616 er$="[197]s wurden keine [203]onten definiert":goto60690
  790. 60618 er$="[201]n diesem [205]onat wurde nichts gebucht":goto60690
  791. 60620 er$="[213]nzulaessige [193]nlagennummer":goto60690
  792. 60622 er$="[213]nzulaessige [198]ixbuchungsnummer":goto60690
  793. 60690 gosub70:po=960:gosub20:print""er$;:forps=1to1000:next:gosub70:return
  794. 60700 er=0:input#15,er:ifer=0thenreturn
  795. 60710 ifer=62thener$="[198]alsche [196]iskette":goto60780
  796. 60720 ifer=73thener$="[196]iskette altes [202]ahr":goto60780
  797. 60770 er$=" [196][160][201][160][211][160][203][160][160]-  [197][160][210][160][210][160][207][160][210]   !!!":goto60780
  798. 60780 gosub70:po=880:gosub20:print" [193][195][200][212][213][206][199] !!! "er$
  799. 60795 po=920:gosub20:print"[196]atensicherheit gefaehrdet"
  800. 60797 gosub61950:goto1000
  801. 60800 gosub60400:ifer<>0thenreturn
  802. 60810 gosub41000:gosub41100:close4
  803. 60820 poke186,val(dr$(0)):poke185,val(dr$(1)):sys49152:return
  804. 60900 mo=pa(13):j=pa(14)
  805. 60910 restore:fori=1tomo:readmo$:next:return
  806. 61000 gosub70:po=880:gosub20:print"[215]elcher [205]onat, [194]uchungsmonat mit [149][210][197][212][213][210][206][146]"
  807. 61002 po=920:l=5:au$="[205]onat ([205][205]/[202][202]): ":gosub60
  808. 61003 iflen(ei$)<>5thenei$=lj$:po=935:gosub20:print""ei$
  809. 61005 mo=val(left$(ei$,2)):ifmo<1ormo>12thengosub60610:goto61000
  810. 61010 ja=val(right$(ei$,2))+1900:ifja=pa(14)then61050
  811. 61015 gosub70:po=880:gosub20:print"[194]itte legen [211]ie die [196]atendiskette"
  812. 61020 po=920:gosub20:print"von 19"right$(ei$,2)" ein                [149][212]aste[146]"
  813. 61025 gosub60200:gosub61800:ifmid$(dn$,12,2)=right$(ei$,2)then61045
  814. 61030 po=960:gosub20:print"[193][195][200][212][213][206][199] !!! [198]alsche [196]atendiskette[145][145]";
  815. 61040 gosub60200:goto61000
  816. 61045 gosub30400:ifer<>0then500
  817. 61050 ifmo>pa(13)thenmo=pa(13)
  818. 61055 return
  819. 61100 fori=0to100step10:su(i)=0:pl(i)=0:forx=1to9
  820. 61110 su(i)=su(i)+su(i+x):pl(i)=pl(i)+pl(i+x):next:next
  821. 61120 su(110)=0:pl(110)=0:fori=10to100step10:su(110)=su(110)+su(i)
  822. 61130 pl(110)=pl(110)+pl(i):next
  823. 61140 pl(111)=pl(0)-pl(110):su(111)=su(0)-su(110):return
  824. 61200 restore:fori=1to12:readx$:next
  825. 61210 fori=1tom:readt:next
  826. 61220 fr=(j-1984)/4:ifmo=2andfna(fr)=0thent=t+1
  827. 61230 return
  828. 61300 j=val(right$(da$,4)):mo=val(mid$(da$,4,2)):gosub61200
  829. 61310 ifj<pa(14)orlen(da$)<10thenda$=""
  830. 61320 ifmo<1ormo>12thenda$=""
  831. 61330 ifval(left$(da$,2))>tthenda$=""
  832. 61340 return
  833. 61400 open15,8,15,"n:haushalt"+str$(pa(14))+",lj"
  834. 61410 print#15,"i0":gosub60700:close15:return
  835. 61500 iflen(ei$)=0then61600
  836. 61510 ifasc(right$(ei$,1))=32thenei$=left$(ei$,len(ei$)-1):goto61500
  837. 61520 goto61605
  838. 61600 ei$=""
  839. 61605 gosub20:printau$left$(lo$,l)
  840. 61610 gosub20:printau$ei$left$(lo$,l+1-len(ei$));
  841. 61612 gosub20:printau$ei$"[164][157]";
  842. 61616 gosub60200:wt=asc(x$)
  843. 61620 ifwt=13thenprint" ":goto61760
  844. 61630 ifwt=20then61730
  845. 61640 iflen(ei$)=lthenx$="":goto61610
  846. 61650 ifx$="^"andlen(ei$)=0andwe=1thenei$=x$:print""chr$(20);:return
  847. 61660 ifwt>=48andwt<=57then61720
  848. 61670 ifwe<=2thenx$="":goto61610
  849. 61680 if(wt>=48andwt<=57)or(wt>=44andwt<=46)then61720
  850. 61690 ifwe<=3thenx$="":goto61610
  851. 61700 if(wt>=32andwt<=95andwt<>34)or(wt>=193andwt<=218)then61720
  852. 61710 x$="":goto61610
  853. 61720 ei$=ei$+x$:goto61610
  854. 61730 x$="":iflen(ei$)=0then61610
  855. 61750 ei$=left$(ei$,len(ei$)-1):goto61610
  856. 61760 iflen(ei$)=0andwe=4thenei$=" "
  857. 61770 iflen(ei$)=0andwe<4thenei$="0"
  858. 61780 return
  859. 61800 gosub60500:ifer<>0thenreturn
  860. 61805 open15,8,15:open2,8,2,"#":gosub60700:ifer<>0thenreturn
  861. 61810 print#15,"b-r 2 0 18 0":print#15,"b-p 2 144"
  862. 61820 dn$="":er=0:fori=1to16:get#2,x$:dn$=dn$+x$:next:close2:close15
  863. 61830 ifleft$(dn$,8)<>"haushalt"thener=1
  864. 61840 return
  865. 61850 gosub70:po=880:gosub20:print"[194]itte [211]eitenausrichtung am [196]rucker"
  866. 61860 po=920:gosub20:print"ueberpruefen"
  867. 61870 gosub61950:gosub70:po=920:gosub20:print"[151][196]ruckvorgang laeuft";:return
  868. 61950 po=985:gosub20:print"[149][212]aste[146] druecken[145][145]";
  869. 61960 gosub60200:gosub70:return
  870. 62000 data"[202]anuar","[198]ebruar","[205]aerz","[193]pril","[205]ai","[202]uni","[202]uli","[193]ugust"
  871. 62010 data"[211]eptember","[207]ktober","[206]ovember","[196]ezember"
  872. 62020 data31,28,31,30,31,30,31,31,30,31,30,31
  873. 62030 data169,126,133,184,169,0,160,4,133,113,132,114,133,183
  874. 62040 data32,192,255,166,184,32,201,255,162,25,169,13,32,210,255,32
  875. 62050 data225,255,240,46,160,0,177,113,133,103,41,63,6,103,36,103,16,2,9,128
  876. 62060 data112,2,9,64,32,210,255,200,192,40,208,230,152,24,101,113,133,113,144
  877. 62070 data2,230,114,202,208,205,169,13,32,210,255,32,204,255,169,126,32,195,255
  878. 62080 data96
  879.