home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8706b.d64 / mony64.bas (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  31KB  |  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.