home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh23c.d64 / kassofix (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  37KB  |  1,174 lines
  1. 5 POKE808,234:PRINTCHR$(8)
  2. 10 REM *******************************
  3. 11 REM * PROGRAMM ZUR BERECHNUNG     *
  4. 12 REM *   VON BANKGESCHAEFTEN       *
  5. 13 REM * VON GERHARD BAUKELMANN      *
  6. 14 REM *  AUF DER REIHE 100 A        *
  7. 15 REM *     4300 ESSEN 12           *
  8. 16 REM * TEL.: 0201/21 26 40         *
  9. 17 REM *******************************
  10. 18 REM KENNWORTEINGABE
  11. 20 ZL=0
  12. 21 IFZL=3THEN SYS 64738
  13. 22 IF ZL=2 AND KW$="64'ER"THENGOTO68
  14. 30 PRINTCHR$(147):POKE53280,0:POKE53281,0:POKE646,5:KW$=""
  15. 40 PRINT"FUER COMMI KENNWORT EING.:"
  16. 50 POKE646,0:INPUTKW$
  17. 60 KN$="GELD":IF KW$<>KN$THENPOKE646,5:PRINT"KENNWORT FALSCH!":FORI=1TO2000:NEXTI
  18. 61 REM ANZAHL EINGABEN
  19. 62 ZL=ZL+1
  20. 63 IF KN$<>KW$THEN GOTO 21
  21. 66 REM
  22. 68 PRINTCHR$(8):POKE53280,14:POKE53281,6
  23. 69 PRINTCHR$(147):PRINTCHR$(142)
  24. 70 PRINT"        MOECHTEN SIE EINE            [146]"
  25. 71 PRINT"          FARBEINSTELLUNG VORNEHMEN? [146]"
  26. 72 PRINT"          BITTE J ODER N DRUECKEN!   [146]"
  27. 73 POKE 198,0:WAIT 203,63
  28. 74 GET H$:
  29. 75 IF H$=CHR$(74)THENGOTO100
  30. 76 IF H$=CHR$(78)THENPRINTCHR$(147):POKE53280,14:POKE53281,6:POKE646,14:GOTO 900
  31. 80 GOTO 73
  32. 90 REM FARBEINSTELLUNGEN
  33. 100 PRINTCHR$(147):POKE646,0
  34. 101 POKE53280,13:POKE53281,5
  35. 105 PRINTCHR$(147):GOSUB 110
  36. 106 GOTO 180
  37. 110 PRINT"****************************************"
  38. 120 PRINT"[145]*                                      [146]*"
  39. 130 PRINT"[145]*      B I T T E   F A R B E N         [146]*"
  40. 140 PRINT"[145]*                                      [146]*"
  41. 150 PRINT"[145]*      E I N S T E L L E N !           [146]*"
  42. 160 PRINT"[145]****************************************"
  43. 170 RETURN
  44. 180 PRINT"[145]*                                      *"
  45. 185 PRINT"[145]*                                      *"
  46. 190 PRINT"[145]*                                      *"
  47. 200 PRINT"[145]*    F1 [146]   RAHMEN      [146]                *"
  48. 210 PRINT"[145]*                                      *"
  49. 220 PRINT"[145]*                                      *"
  50. 221 PRINT"[145]*    F3 [146]   HINTERGRUND [146]                *"
  51. 222 PRINT"[145]*                                      *"
  52. 223 PRINT"[145]*                                      *"
  53. 224 PRINT"[145]*    F5 [146]   SCHRIFT     [146]                *"
  54. 225 PRINT"[145]*                                      *"
  55. 226 PRINT"[145]*                                      *"
  56. 227 PRINT"[145]*    F7 [146]   WEITER  [146]                    *"
  57. 228 PRINT"[145]*                                      *"
  58. 229 PRINT"[145]*                                      *"
  59. 230 PRINT"[145]****************************************"
  60. 231 REM AUSWAHLVERZWEIGUNG
  61. 232 POKE 198,0:WAIT203,63:GET H$
  62. 233 IF H$=CHR$(133)THEN GOTO 238
  63. 234 IF H$=CHR$(134)THEN GOTO 243
  64. 235 IF H$=CHR$(135)THEN GOTO 248
  65. 236 IF H$=CHR$(136)THEN GOTO 255
  66. 237 GOTO 232
  67. 238 REM RANDFARBE
  68. 239 Z=Z+1:IFZ>15THENZ=0
  69. 240 POKE 53280,Z
  70. 241 PRINTCHR$(147):GOSUB 110
  71. 242 GOTO180
  72. 243 REM HINTERGRUNDFARBE
  73. 244 U=U+1:IF U>15THENU=0
  74. 245 POKE 53281,U
  75. 246 PRINTCHR$(147):GOSUB 110
  76. 247 GOTO180
  77. 248 REM SCHRIFTFARBE
  78. 249 W=W+1:IFW>15THENW=0
  79. 250 POKE 646,W
  80. 251 PRINTCHR$(147):GOSUB 110
  81. 252 GOTO180
  82. 255 J1=PEEK(53281)AND15
  83. 260 J2=PEEK(646)AND15
  84. 261 IFJ1<>J2THEN GOTO 900
  85. 262 PRINTCHR$(147):POKE53280,0:POKE53281,0:POKE646,1
  86. 263 PRINT"SCHRIFT- UND HINTERGRUNDFARBE [146]"
  87. 264 PRINT"MUESSEN VERSCHIEDEN SEIN !!!  [146]"
  88. 265 FORI=1TO2000:NEXTI:GOTO100
  89. 270 GOTO 900
  90. 285 PRINTCHR$(147)
  91. 290 PRINT"***************************************"
  92. 300 PRINT"*                                     [146]*"
  93. 310 PRINT"*        RATENKREDITBERECHNUNG        [146]*"
  94. 320 PRINT"*                                     [146]*"
  95. 325 PRINT"*                                     [146]*"
  96. 330 PRINT"***************************************"
  97. 340 POKE214,6:POKE211,0:SYS58640
  98. 345 PRINT:PRINT"WOLLEN SIE DEN EFFEKTIVEN JAHRESZINS [146]"
  99. 346 PRINT:PRINT"EXAKT[146] ODER ANNAEHERUNGSWEISE[146] ER-"
  100. 347 PRINT:PRINT"MITTELT HABEN?(F1 [146]/F2 [146])"
  101. 348 WAIT 203,63:GET E$
  102. 349 IF E$=CHR$(133)THEN X=1:GOTO 362
  103. 350 IF E$=CHR$(137)THEN X=2:GOTO 362
  104. 355 GOTO 348
  105. 362 PRINT:PRINT:PRINT"RUNDUNGSANGABE FUER DIE KREDITKOSTEN:":PRINT
  106. 363 PRINT"(D)[146] FUER MARK/"
  107. 365 PRINT"(G)[146] FUER GROSCHEN/ (P)[146] FUER PFENNIG"
  108. 371 POKE 198,0:WAIT 203,63:GET R$
  109. 373 IF R$="D"THENU=1:V=1:GOTO382
  110. 379 IF R$="G"THENU=10:V=.1:GOTO382
  111. 380 IF R$="P"THENU=100:V=.01:GOTO382
  112. 381 GOTO 371
  113. 382 PRINTCHR$(147):POKE214,0:POKE211,8:SYS58640
  114. 383 IF X>=1THEN PRINT"DER EFFEKT. JAHRESZINS WIRD"
  115. 384 IF X=1THEN PRINT"EXAKT BERECHNET
  116. 385 [139] X[178]2[167] [153]"ANNAEHERUNGSWEISE BERECHNET."
  117. 386 [153]:[153]"EINGABE BENOETIGTER DATEN:WAIT":[153]
  118. 387 BK[178]0:NR[178]0:L%[178]0:ZS[178]0:BA[178]0:MG[178]0:MK[178]0:MG[178]0:EF[178]0
  119. 390 [133]"*BEANTRAGTER KREDIT:DM WAIT";    BK
  120. 391 [139] BK[179][178]0 [176] BK[177]1000000 [167][153]"FALSCHE ANGABE!!!WAIT":[137]390
  121. 392 [153]
  122. 395 [133]"*EVEN. NETTO RESTSALDO:DM WAIT";    NR
  123. 396 [139] NR[179]0 [176] NR[177]1000000 [167] [137] 395
  124. 397 [153]
  125. 400 [133]"*LAUFZEIT IN MONATEN:   WAIT";    L%
  126. 401 [139] L%[179]12 [176] L%[177]120 [167][153]"FALSCHE ANGABE!!!WAIT":[137]400
  127. 402 [153]
  128. 405 [133]"*ZINSEN PRO MONAT IN %: % WAIT";    ZS:
  129. 406 [139] ZS[179][178].01 [176] ZS[177]5 [167][153]"FALSCHE ANGABE!!!WAIT":[137]405
  130. 407 [153]
  131. 410 [133]"*BEARBEIT.GEBUEHR IN %: % WAIT";    BA
  132. 411 [139] BA[179]0 [176] BA[177]20 [167] [137]410
  133. 412 [153]
  134. 415 [133]"*MAKLERGEBUEHR IN %: % WAIT";    MG
  135. 416 [139] MG[179]0 [176] MG[177]20 [167] [137] 415
  136. 417 [153]:[153]"SOLL DIE ERSTE RATE EVENTUELL NIE-"
  137. 418 [153]"DRIGER ODER DIE LETZTE HOEHER SEIN? N/H"
  138. 419 [151]198,0:[146]203,63:[161] H$
  139. 420 [139] H$[178]"N" [167] P[178]0:[153]"NIEDRIGER":[137] 423
  140. 421 [139] H$[178]"H"[167] P[178]1:[153]"HOEHER":[137]423
  141. 422 [137] 419
  142. 423 [153]:[153]"        ANGABEN RWAITICHTIG/FWAITALSCH?"
  143. 424 [151]198,0:[146]203,63:[161] H$
  144. 425 [139] H$[178][199](82)[167][137]430
  145. 426 [139] H$[178][199](70)[167][137]382
  146. 427 [137] 424
  147. 430 SU[178]BK[170]NR
  148. 435 Q[178](ZS[173]100)
  149. 440 KB[178]SU[172]Q[172]L%
  150. 450 GB[178](BA[173]100)[172]BK
  151. 455 GK[178](SU[170]KB[170]GB)
  152. 460 [139] KB[172]U[171][181](KB[172]U)[177][178].5[167] KB[178]([181](KB[172]U)[173]U)[170]V:[137] 470
  153. 470 [139] KB[172]U[171][181](KB[172]U)[179].5 [167] KB[178]([181](KB[172]U)[173]U)
  154. 475 [139] GB[172]U[171][181](GB[172]U)[177][178].5[167] GB[178]([181](GB[172]U)[173]U)[170]V:[137] 485
  155. 480 [139] GB[172]U[171][181](GB[172]U)[179].5 [167] GB[178]([181](GB[172]U)[173]U)
  156. 485 MK[178]MG[172]BK[173]100
  157. 490 [139] MK[172]U[171][181](MK[172]U)[177][178].5[167]MK[178]([181](MK[172]U)[173]U)[170]V:[137] 505
  158. 500 [139] MK[172]U[171][181](MK[172]U)[179].5 [167]MK[178]([181](MK[172]U)[173]U)
  159. 505 G1[178]SU[170]KB[170]MK[170]GB
  160. 510 R0[178]G1[173]L%
  161. 511 [139] P[178]1[167] [137] 524
  162. 515 R2[178][181](R0)[170]1
  163. 516 [139] R0[171][181](R0)[178]0[167]R2[178]G1[173]L%
  164. 517 R1[178]([171](L%[171]1)[172]R2[170]G1)
  165. 518 [139]R1[179][178]0[167][153][199](147);"EIN KREDIT ZU SOLCHEN KONDITIONEN WAIT"
  166. 519 [139]R1[179][178]0[167][153]"KANN NICHT HERAUSGELEGT WERDEN!!!WAIT":[137]780
  167. 520 [153][199](147):[137]530
  168. 524 R2[178][181](R0)
  169. 525 [139] R0[171][181](R0)[178]0[167]R2[178]G1[173]L%
  170. 526 R1[178]([171](L%[171]1)[172]R2[170]G1)
  171. 527 [139]R2[179][178]0[167][153][199](147);"EIN KREDIT ZU SOLCHEN KONDITIONEN WAIT"
  172. 528 [139]R2[179][178]0[167][153]"KANN NICHT HERAUSGELEGT WERDEN!!!WAIT":[137]780
  173. 529 [153][199](147)
  174. 530 [143] DATENAUSGABE
  175. 550 [151]214,3:[151] 211,0
  176. 560 [158] 58640
  177. 570 [153]"AUSGABE DER DATEN:"
  178. 580 [153]
  179. 590 [153]"KREDITSUMME:DM:";[181](SU[172]100[170].5)[173]100
  180. 600 [153]""
  181. 610 [153]"MAKLERGEBUEHREN:DM:";[181](MK[172]100)[173]100
  182. 620 [153]"======================================="
  183. 630 [153]
  184. 640 [153]"GESAMTKREDITHERAUSLAGE:DM:";[181](MK[172]100[170].5)[173]100[170]SU
  185. 650 [153]
  186. 660 [153]"KREDITGEBUEHREN:DM:";[181](KB[172]100[170].5)[173]100
  187. 679 [153]
  188. 680 [153]"BEARBEITUNGSGEBUEHREN:DM:";[181](GB[172]100[170].5)[173]100
  189. 690 [153]
  190. 700 [153]"GESAMTKREDITBETRAG:DM:";[181](G1[172]100[170].5)[173]100
  191. 710 [153]"======================================="
  192. 720 [153]"RATENPLAN:"
  193. 721 R1[178][181](R1[172]100[170].5)[173]100
  194. 722 [139] P[178]0[167][137] 740
  195. 734 [153]"";L%[171]1;"RATEN:DM:";R2
  196. 735 [153]
  197. 736 [153]"LETZTE RATE:DM:";R1
  198. 737 [137] 764
  199. 740 [153]"ERSTE RATE:DM:";R1
  200. 750 [153]
  201. 760 [153]"WEITERE";L%[171]1;"RATEN:DM:";R2
  202. 764 [139] E$[178][199](137) [167] [137] 767
  203. 765 [139] E$[178][199](133)[167] [141] 25000
  204. 766 [137] 780
  205. 767 MH[178](MK[173]SU)[172]100
  206. 770 EF[178]24[172](((ZS[172]L%)[170]MH[170](GB[172]100[173]SU))[173](L%[170]1))
  207. 771 EF[178][181](EF[172]100[170].5)
  208. 775 [153]"EFFEKT. JAHRESZINS:";EF[173]100
  209. 780 [153]"NOCH EINE BERECHNUNG?(J/N)"
  210. 790 [151] 198,0:[146]203,63:[161]F$
  211. 800 [139] F$ [178][199](74)[167][137]382
  212. 810 [139] F$[178][199](78)[167][153][199](147):[137]1000
  213. 830 [139] F$[178][199](92)[167][141] 26000
  214. 835 [137] 790
  215. 900 [143] KASSOFIX  HAUPTMENUE
  216. 1000 [153][199](147)
  217. 1010 [153]"****************************************"
  218. 1020 [153]"ON*                                      WAIT*"
  219. 1030 [153]"ON*           K A S S O F I X  V.3       WAIT*"
  220. 1040 [153]"ON*              MENUEAUSWAHL            WAIT*"
  221. 1050 [153]"ON*      (C) 1986 BY GERD BAUKELMANN     WAIT*"
  222. 1060 [153]"ON****************************************"
  223. 1070 [153]"ON*                                      *"
  224. 1080 [153]"ON*    F1 WAIT    RATENKREDITBERECHNUNG WAIT     *"
  225. 1085 [153]"ON*                                      *"
  226. 1090 [153]"ON*    F2 WAIT    RAHMENKREDIT          WAIT     *"
  227. 1095 [153]"ON*                                      *"
  228. 1100 [153]"ON*    F3 WAIT    HYPOTHEKENDARLEHEN    WAIT     *"
  229. 1105 [153]"ON*                                      *"
  230. 1110 [153]"ON*    F4 WAIT    SPARBRIEFBERECHNUNGEN WAIT     *"
  231. 1115 [153]"ON*                                      *"
  232. 1120 [153]"ON*    F5 WAIT    BONUSSPAREN           WAIT     *"
  233. 1125 [153]"ON*                                      *"
  234. 1130 [153]"ON*    F6 WAIT    FARBEINSTELLUNG       WAIT     *"
  235. 1135 [153]"ON*                                      *"
  236. 1137 [153]"ON*    F7 WAIT    HILFSMENUE            WAIT     *"
  237. 1138 [153]"ON*                                      *"
  238. 1139 [153]"ON*    F8 WAIT    ENDE                  WAIT     *"
  239. 1140 [153]"ON****************************************"
  240. 1145 [151]198,0:[146] 203,63
  241. 1150 [161] M$
  242. 1160 [139] M$[178][199](133)[167][137]285
  243. 1170 [139] M$[178][199](137)[167][137]2000
  244. 1180 [139] M$[178][199](134)[167][137]3000
  245. 1190 [139] M$[178][199](138)[167][137]4000
  246. 1200 [139] M$[178][199](135)[167][137]5000
  247. 1210 [139] M$[178][199](139)[167][137]105
  248. 1220 [139] M$[178][199](136)[167][137]10000
  249. 1225 [139] M$[178][199](140)[167][153][199](147):[153]"BYE!":[129]I[178]1[164]2000:[130]I:[137] 5
  250. 1226 [139] ZL[178]2[175] M$[178][199](155)[167][141]30000
  251. 1227 [139] ZL[178]2 [175] KW$[179][177]KN$ [167] ZL[178]ZL[170]1:[137]1000
  252. 1230 [137] 1145
  253. 2000 [153][199](147):[153]"ON****************************************"
  254. 2010 [153]"ON*                                      WAIT*"
  255. 2020 [153]"ON*       R A H M E N K R E D I T        WAIT*"
  256. 2030 [153]"ON*                                      WAIT*"
  257. 2035 [153]"ON*                                      WAIT*"
  258. 2040 [153]"ON****************************************"
  259. 2050 [153]
  260. 2060 [153]"       EINGABE BENOETIGTER DATEN: WAIT":[153]:[153]
  261. 2065 KB[178]0:ZS[178]0:MR[178]0
  262. 2070 [133]"KREDITBETRAG:     DM: WAIT";KB
  263. 2075 [139] KB[179]1000 [167] [153]"BETRAG MUSS MIND. DM 1000 SEINWAIT":[137]2070
  264. 2080 [153]
  265. 2085 [133]"ZINSSATZ IN % P.A.% : WAIT";ZS
  266. 2090 [139] ZS[179][178].1[167] [153]"ZINSSATZ IST FALSCH! WAIT":[137] 2085
  267. 2091 [139] ZS[177]30[167] [153]"ZINSSATZ IST ZU HOCH! WAIT":[137] 2085
  268. 2095 [153]
  269. 2100 [133]"MONATL. RATENHOEHE:DM: WAIT";MR
  270. 2101 [139] MR[179][178]0[167] [141] 2150:[137]2100
  271. 2102 [139] MR[177]KB[167] [141] 2150:[137]2100
  272. 2103 [139] KB[173]MR[177]100 [167] [141] 2150:[137]2100
  273. 2114 [137] 2156
  274. 2150 [153]"FALSCHE EINGABE!!! WAIT":
  275. 2155 [142]
  276. 2156 [153]:[153]"ZINSZAHLUNGSTERMIN:WAIT VWAITIERTELJAEHRLICH/"
  277. 2157 [153]"HWAITALBJAEHRLICH/JWAITAEHRLICH?"
  278. 2158 [151]198,0:[146] 203,63:[161] H$:
  279. 2159 [139] H$[178][199](86)[167]X[178]1:Y[178]90:Z[178]3:J$[178]"VIERTELJAEHRLICH":[153]J$:[137] 2163
  280. 2160 [139] H$[178][199](72)[167]X[178]2.5:Y[178]180:Z[178]6:J$[178]"HALBJAEHRLICH":[153]J$:[137] 2163
  281. 2161 [139] H$[178][199](74)[167]X[178]5.5:Y[178]360:Z[178]12:J$[178]"JAEHRLICH":[153]J$:[137] 2163
  282. 2162 [137] 2158
  283. 2163 [139]KB[173]MR[179]4[167] [153]"FALSCHE EINGABE!!!":[129] I[178]1 [164] 1000:[130]I:[137]2000
  284. 2164 [139] KB[173]MR[179]Z[167] [141]2150:[137] 2158
  285. 2165 [153]:[153]"AUSGABE DES EFF. JAHRESZINS?(J/N)"
  286. 2166 [151] 198,0:[146] 203,63:[161] G$:[139] G$[178][199](74)[167] P[178]1:[137] 2200
  287. 2167 [139] G$[178][199](78)[167] P[178]0:[137] 2200
  288. 2168 [137] 2166
  289. 2200 [143] RECHENROUTINE KONTOKORRENT
  290. 2201 ZH[178]0
  291. 2202 [139] KB[173]MR[179][178]Z [167] AW[178]KB:ZH[178]0:[137] 2400
  292. 2204 [139] ZH[179][177]0[167] BW[178]AW[171]X[172]MR:[137]2206
  293. 2205 BW[178]KB[171]X[172]MR
  294. 2206 RW[178]BW[173]100
  295. 2207 ZB[178]RW[172]Y[172]ZS[173]360:[139] ZH[177]0[167] [137]2209
  296. 2208 AW[178]KB[171](Z[172]MR)[170]ZB:ZH[178]Z:[137] 2211
  297. 2209 AW[178]AW[171](Z[172]MR)[170]ZB:ZH[178]ZH[170]Z
  298. 2211 [139] ZH [177]120 [167] [153][199](147);"EIN RAHMENKREDIT ZU SOLCHEN KONDI-WAIT"
  299. 2212 [139] ZH [177]120 [167] [153]"TIONEN KANN NICHT HERAUSGELEGT WERDEN!WAIT":[137] 2744
  300. 2220 [143] ABBRUCHBEDINGUNGEN FUER RECHNEN
  301. 2221 [139]AW[171](Z[172]MR)[179][178]0[167] [137]2400
  302. 2225 [137] 2204
  303. 2400 [143] RECHENROUTINE UNTERE VERZINSUNG
  304. 2401 K1[178]0:D[178]0
  305. 2402 [139] MR[177]AW [167] R2[178]AW[170]((AW[173]100)[172]30[172]ZS[173]360):[137] 2550
  306. 2415 KW[178]AW[173]100
  307. 2520 K1[178]K1[170](KW[172]30[172]ZS[173]360):D[178]D[170]1
  308. 2525 AW[178]AW[171]MR:ZH[178]ZH[170]1
  309. 2530 [139] AW[177]MR[167] [137]2415
  310. 2540 [139] D[179] Z [167] R2[178]AW[170]K1[170]((AW[173]100)[172]30[172]ZS[173]360)
  311. 2545 [139]D[177][178]Z [167] R2[178]AW[170]K1[170](((AW[170]K1)[173]100)[172]30[172]ZS[173]360)
  312. 2550 R3[178][171][181](R2[172]100)[170]R2[172]100
  313. 2551 [139] R3[177][178].5[167] R4[178]0.01
  314. 2552 [139] R3[179].5[167] R4[178]0
  315. 2553 R5[178][181](R2[172]100)[173]100[170]R4
  316. 2554 [139] R5[177]MR[167] AW[178]0:R2[178]R5[171]MR:ZH[178]ZH[170]1:R2[178]R2[170]((R2[173]100)[172]30[172]ZS[173]360):[137]2550
  317. 2555 [153][199](147)
  318. 2600 MR[178][181](MR[172]100[170].5)[173]100
  319. 2605 R5[178][181](R5[172]100[170].5)[173]100
  320. 2680 [153]:[153]"AUSGABE DER DATEN:":[153]
  321. 2700 [153]"BEI EINER KREDITSUMME VON ":[153]
  322. 2710 [153]"DM  ";[181](KB[172]100[170].5)[173]100:[153]:[153]
  323. 2730 [153]"ZU EINEM ZINSSATZ VON";ZS;"% P. A.":[153]
  324. 2735 [153]"ERGIBT SICH BEI EINER MONATLICHEN RATE":[153]
  325. 2738 [153]"VON DM";[181](MR[172]100[170].5)[173]100;"FOLGENDER RATENPLAN:":[153]:[153]
  326. 2739 [153]ZH;"RATEN ZU DM ";[181](MR[172]100[170].5)[173]100:[153]
  327. 2740 [153]"UND EINE RATE VON DM";R5:[153]
  328. 2741 [153]"ZINSZAHLUNGSTERMIN:";J$:[153]
  329. 2742 [153]"GESAMTKREDITBETRAG DM";ZH[172]MR[170]R5:[153]:[153]
  330. 2743 [139]P[178]1[167] [141] 20000
  331. 2744 [153]"NOCH EINE BERECHNUNG?(J/N)"
  332. 2750 [151]198,0:[146] 203,63:[161] H$
  333. 2754 [139] H$[178][199](78)[167] [137]1000
  334. 2755 [139] H$[178][199](74)[167] [137]2000
  335. 2756 [139] H$[178][199](92)[167] [141]26000
  336. 2760 [137] 2750
  337. 3000 [143] HYPOTHEKENDARLEHEN
  338. 3010 [153][199](147)
  339. 3020 [153]"****************************************"
  340. 3030 [153]"ON*                                      WAIT*"
  341. 3040 [153]"ON*      H Y P O T H E K E N-            WAIT*"
  342. 3045 [153]"ON*                                      WAIT*"
  343. 3050 [153]"ON*        D A R L E H E N               WAIT*"
  344. 3060 [153]"ON****************************************"
  345. 3070 [143] EINGABE
  346. 3080 [153]"EINGABE BENOETIGTER DATEN: WAIT"
  347. 3090 [153]:[153]"WIE HOCH SOLL DIE SCHULDSUMME SEIN?"
  348. 3100 [133]"DM: WAIT";C
  349. 3105 [139] C[179]1000 [176] C[177]50000000 [167][137]3100
  350. 3110 [153]:[133]"WELCHE LAUFZEIT IN JAHREN";J
  351. 3115 [139] J[179]1 [176]J[177]50 [167][137]3110
  352. 3120 [153]:[133]"WELCHER ZINSSATZ (IN %)";Z
  353. 3125 [139] Z[179][178].1 [176] Z[177]30 [167] [137]3120
  354. 3200 [143] BERECHNEN DER ANNUITAET
  355. 3210 Q[178](1[170](Z[173]100))
  356. 3220 RB[178]([171](Q[174][171]J)[170]1)[173](Q[171]1)
  357. 3230 AN[178]1[173]RB:AF[178]C[172]AN
  358. 3240 AC[178]AN[172]C:AC[178][181](AC[172]100)[173]100
  359. 3245 D[178]AC[173](((66[173]12)[172](Z[173]100))[170]12)
  360. 3246 D[178][181](D[172]100)[173]100
  361. 3252 [153]:[153]"SOLL EIN DISAGIO VEREINBART WERDEN?(J/N)"
  362. 3253 [151] 198,0:[146] 203,63:[161] F$
  363. 3254 [139] F$[178][199](74)[167] [137] 3258
  364. 3255 [139] F$[178][199](78)[167] [137] 3259
  365. 3256 [137] 3253
  366. 3257 [137] 3258
  367. 3258 [141] 28000
  368. 3259 [153][199](147)
  369. 3260 [153]"AUSGABE DER DATEN:"
  370. 3270 [153]
  371. 3280 [153]"BEI EINER VERZINSUNG VON ";Z;"% ERGIBT"
  372. 3290 [153]:[153]"SICH FUER EINE LAUFZEIT VON ";J;" JAHREN "
  373. 3295 [153]:[153]"BEI EINEM KREDIT VON DM: ";[181](C[172]100[170].5)[173]100
  374. 3300 [153]:[153]"EINE JAEHRLICHE BELASTUNG VON"
  375. 3310 [153]:[153]"DM: ";AC
  376. 3315 [153]:[153]"DAS ENTSPRICHT EINER DURCHSCHNITTLICHEN"
  377. 3320 [153]:[153]"MONATLICHEN BELASTUNG VON DM: ";[181](D[172]100[170].5)[173]100
  378. 3321 [139] F$[178][199](78)[167] [137] 3330
  379. 3325 [139] F$[178][199](74) [167] [151] 214,18:[151] 211,0:[158]58640
  380. 3326 [153]"DIE EFFEKTIVE VERZINSUNG BETRAEGT BEI"
  381. 3327 [153]:[153]"EINEM DISAGIO VON ";ZD;"%: ";Z1;"%"
  382. 3328 [153]:[153]"AUSZAHLUNGSBETRAG: DM ";[181](L[172]100[170].5)[173]100
  383. 3330 [153]:[153]"        TASTE DRUECKEN!"
  384. 3335 [151]198,0:[146]203,63:[161] H$
  385. 3336 [139] H$[179][177][199](92)[167] [137] 3500
  386. 3337 [139] H$[178][199](92)[167] [141] 26000
  387. 3340 [137] 3335
  388. 3500 [153][199](147)
  389. 3505 J4[178]0:J5[178]0:Z5[178]Z:W[178]0:V[178]0
  390. 3510 [153][199](147)
  391. 3511 [153]"****************************************"
  392. 3512 [153]"ON*                                      WAIT*"
  393. 3513 [153]"ON*      H Y P O T H E K E N-            WAIT*"
  394. 3514 [153]"ON*                                      WAIT*"
  395. 3515 [153]"ON*        D A R L E H E N               WAIT*"
  396. 3516 [153]"ON****************************************"
  397. 3520 [153]"MOECHTEN SIE EINE SCHULDENSTAND-"
  398. 3530 [153]"BERECHNUNGWAIT VORNEHMEN? (J/N) WAIT"
  399. 3540 [151]198,0:[146]203,63:[161] H$
  400. 3550 [139] H$[178][199](74) [167] [137] 3600
  401. 3560 [139] H$[178][199](78) [167] [137] 3575
  402. 3570 [137] 3540
  403. 3575 [153]:[153]"NOCH EINE BERECHNUNG? J/N"
  404. 3576 [151]198,0:[146]203,63:[161] H$
  405. 3577 [139] H$[178][199](74) [167] [137] 3000
  406. 3578 [139] H$[178][199](78) [167] [137] 1000
  407. 3579 [137] 3576
  408. 3600 [143]  SCHULDENSTANDBERECHNUNG
  409. 3610 [153]:[153]"WIEVIELE JAHRE LANG HABEN SIE BEREITS"
  410. 3620 [153]:[133]"IHRE RATEN BEZAHLT";J4
  411. 3625 [139] J4[179][178]0[167] [137] 3610
  412. 3626 [139] J4[177]J [167] [137] 3610
  413. 3627 [139] J4[178]J [167] [137] 3800
  414. 3630 J5[178]J[171]J4
  415. 3640 Z5[178]Z5[173]100
  416. 3650 Q[178]1[170]Z5
  417. 3660 RB[178](1[171](Q[174][171]J5))[173]Z5
  418. 3670 V[178]RB[172]AF
  419. 3680 W[178]C[171]V
  420. 3690 V[178][181](V[172]100)[173]100
  421. 3700 W[178][181](W[172]100)[173]100
  422. 3710 DF[178]C[171](V[170]W)
  423. 3711 [139] DF[177]0[167] W[178]W[170].01
  424. 3715 [153][199](147):[153]"     SCHULDENSTAND:"
  425. 3716 [153]:[153]"BEI EINEM KREDIT VON DM";C;",EINER"
  426. 3717 [153]:[153]"LAUFZEIT VON "J;"JAHREN ZU EINEM ZINS-"
  427. 3718 [153]:[153]"SATZ VON ";Z5[172]100;"% P.A.
  428. 3719 IF J4=1THEN GOTO 3721
  429. 3720 PRINT:PRINT"HABEN SIE NACH ";J4;"JAHREN DM";W:GOTO3730
  430. 3721 PRINT:PRINT"HABEN SIE NACH EINEM JAHR DM";W
  431. 3730 PRINT
  432. 3735 PRINT"ABBEZAHLT."
  433. 3740 PRINT:PRINT"SIE HABEN NOCH DM ";V
  434. 3745 PRINT:PRINT"ZU ZAHLEN."
  435. 3750 PRINT:PRINT"       TASTE DRUECKEN! "
  436. 3760 POKE198,0:WAIT 203,63:GETH$
  437. 3770 IF H$=CHR$(92)THEN GOSUB26000
  438. 3780 IF H$<>CHR$(92)THEN PRINTCHR$(147):GOTO3259
  439. 3800 PRINTCHR$(147):PRINT"     SCHULDENSTAND:"
  440. 3810 POKE 214,10:POKE211,0:SYS58640
  441. 3820 PRINT:PRINT"SIE HABEN KEINE SCHULDEN MEHR!"
  442. 3830 PRINT:PRINT
  443. 3840 PRINT:PRINT
  444. 3850 PRINT:PRINT"       TASTE DRUECKEN! "
  445. 3860 POKE198,0:WAIT 203,63:GETH$
  446. 3870 IF H$=CHR$(92)THEN GOSUB26000
  447. 3880 IF H$<>CHR$(92)THEN PRINTCHR$(147):GOTO3259
  448. 4000 REM SPARBRIEFBERECHNUNGEN
  449. 4005 GOSUB 4010
  450. 4006 GOTO 4080
  451. 4010 PRINTCHR$(147)
  452. 4020 PRINT"****************************************"
  453. 4030 PRINT"[145]*                                      [146]*"
  454. 4040 PRINT"[145]*      S P A R B R I E F -             [146]*"
  455. 4045 PRINT"[145]*                                      [146]*"
  456. 4050 PRINT"[145]*      B E R E C H N U N G             [146]*"
  457. 4060 PRINT"[145]****************************************"
  458. 4070 RETURN
  459. 4080 PRINT"[145]*                                      *"
  460. 4085 PRINT"[145]* WAEHLEN SIE DEN SPARBRIEFTYP! [146]       *"
  461. 4090 PRINT"[145]*                                      *"
  462. 4095 PRINT"[145]*                                      *"
  463. 4100 PRINT"[145]*    F1 [146]   AUFGEZINST [146]                 *"
  464. 4105 PRINT"[145]*                                      *"
  465. 4110 PRINT"[145]*                                      *"
  466. 4115 PRINT"[145]*    F3 [146]   ABGEZINST  [146]                 *"
  467. 4120 PRINT"[145]*                                      *"
  468. 4125 PRINT"[145]*                                      *"
  469. 4130 PRINT"[145]*    F5 [146]   ZINSAUSZAHLUNG JAEHRLICH [146]   *"
  470. 4140 PRINT"[145]*                                      *"
  471. 4145 PRINT"[145]*                                      *"
  472. 4150 PRINT"[145]*    F7 [146]   ZURUECK [146]                    *"
  473. 4155 PRINT"[145]*                                      *"
  474. 4160 PRINT"[145]****************************************"
  475. 4170 REM AUSWAHLVERZWEIGUNG
  476. 4175 POKE 198,0:WAIT203,63:GET H$
  477. 4177 IF H$=CHR$(133)THEN GOTO 4200
  478. 4180 IF H$=CHR$(134)THEN GOTO 4300
  479. 4185 IF H$=CHR$(135)THEN GOTO 4400
  480. 4186 IF H$=CHR$(136)THEN GOTO 1000
  481. 4190 GOTO 4175
  482. 4200 REM AUFGEZINSTER SPARBRIEF
  483. 4205 GOSUB 4010
  484. 4210 PRINT"AUFGEZINSTER SPARBRIEF [146]":PRINT
  485. 4215 PRINT"WELCHER BETRAG (MIN. DM 50,--)"
  486. 4220 INPUT"              DM [146]:";DM
  487. 4221 IF DM<50 OR DM>50000000 THEN GOTO4215
  488. 4225 PRINT:PRINT
  489. 4230 INPUT"WELCHER ZINSSATZ (IN % P.A.)";PS
  490. 4231 IF PS<=.1 ORPS>30    THEN GOTO4230
  491. 4235 PRINT:INPUT"WELCHE LAUFZEIT (IN JAHREN)";J
  492. 4236 IF J<=0 ORJ>40   THEN GOTO4235
  493. 4240 PRINT:PRINT"          TASTE DRUECKEN! [146]         "
  494. 4245 POKE 198,0:WAIT 198,1
  495. 4246 REM BERECHNUNG
  496. 4250 Q=1+(PS/100)
  497. 4255 E=(Q^J)*DM
  498. 4256 E1=INT(E*100):E2=E1/10:E3=INT(E2):E4=E3/10
  499. 4257 IFE2-INT(E2)>=.5THEN E=E4+.1
  500. 4258 IFE2-INT(E2)<.5THEN E=E4
  501. 4260 PRINTCHR$(147):REM AUSGABE
  502. 4265 PRINT:PRINT:PRINT"DER AUFGEZINSTE SPARBRIEF ZUM NENN-"
  503. 4266 PRINT:PRINT"WERT VON DM: ";INT(DM*100+.5)/100;" ,"
  504. 4270 PRINT:PRINT"EINER LAUFZEIT VON ";J;" JAHREN"
  505. 4275 PRINT:PRINT"UND ZINSEN VON ";PS;"% P. A."
  506. 4280 PRINT:PRINT"HAT EINEN RUECKZAHLUNGSWERT VON"
  507. 4285 PRINT:PRINT"       DM: ";E
  508. 4287 PRINT:PRINT"       TASTE DRUECKEN!        "
  509. 4290 POKE 198,0:WAIT 203,63:GET H$
  510. 4291 IF H$=CHR$(92)THEN GOSUB 26000
  511. 4292 IF H$<>CHR$(92)THEN GOTO 4000
  512. 4295 GOTO4290
  513. 4300 REM ABGEZINSTER SPARBRIEF
  514. 4305 GOSUB 4010
  515. 4310 PRINT"ABGEZINSTER SPARBRIEF [146]":PRINT
  516. 4315 PRINT"WELCHER BETRAG (MIN. DM 50,--)"
  517. 4320 INPUT"              DM [146]:";DM
  518. 4321 IF DM<50 OR DM> 50000000 THEN GOTO4315
  519. 4325 PRINT:PRINT
  520. 4330 INPUT"WELCHER ZINSSATZ (IN % P.A.)";PS
  521. 4331 IF PS<=.1 OR PS>30  THEN GOTO4330
  522. 4335 PRINT:INPUT"WELCHE LAUFZEIT (IN JAHREN)";J
  523. 4336 IF J<=0 ORJ>40 THEN GOTO4335
  524. 4340 PRINT:PRINT"          TASTE DRUECKEN! [146]         "
  525. 4345 POKE 198,0:WAIT 198,1
  526. 4346 REM BERECHNUNG
  527. 4350 Q=1+(PS/100)
  528. 4355 E=(Q^-J)*DM
  529. 4356 E1=INT(E*100):E2=E1/10:E3=INT(E2):E4=E3/10
  530. 4357 IFE2-INT(E2)>=.5THEN E=E4+.1
  531. 4358 IFE2-INT(E2)<.5THEN E=E4
  532. 4360 PRINTCHR$(147):REM AUSGABE
  533. 4365 PRINT:PRINT:PRINT"DER ABGEZINSTE SPARBRIEF MIT EINEM"
  534. 4366 PRINT:PRINT"NENNWERT VON DM ";INT(DM*100+.5)/100;" ,"
  535. 4370 PRINT:PRINT"EINER LAUFZEIT VON ";J;" JAHREN"
  536. 4375 PRINT:PRINT"UND ZINSEN VON ";PS;"% P. A."
  537. 4380 PRINT:PRINT"HAT EINEN KAUFPREIS VON"
  538. 4385 PRINT:PRINT"       DM: ";E
  539. 4387 PRINT:PRINT"       TASTE DRUECKEN!        "
  540. 4390 POKE 198,0:WAIT 203,63:GET H$
  541. 4391 IF H$=CHR$(92)THEN GOSUB 26000
  542. 4392 IF H$<>CHR$(92)THEN GOTO 4000
  543. 4395 GOTO4390
  544. 4400 REM JAEHRLICHE ZINSAUSZAHLUNG
  545. 4405 GOSUB 4010
  546. 4410 PRINT"SPARBBRIEF MIT JAEHRLICHER ZINSAUS-[146]"
  547. 4411 PRINT"ZAHLUNG [146]"
  548. 4415 PRINT:PRINT"WELCHER BETRAG (MIN. DM 50,--)"
  549. 4420 INPUT"              DM [146]:";DM
  550. 4421 IF DM<50 ORDM>50000000 THEN GOTO4315
  551. 4425 PRINT:PRINT
  552. 4430 INPUT"WELCHER ZINSSATZ (IN % P.A.)";PS
  553. 4431 IF PS<=.1 OR PS>30   THEN GOTO4430
  554. 4435 PRINT:PRINT
  555. 4440 PRINT:PRINT"          TASTE DRUECKEN! [146]         "
  556. 4445 POKE 198,0:WAIT 198,1
  557. 4446 REM BERECHNUNG
  558. 4450 ZA=(PS/100)*DM
  559. 4455 Z1=INT(ZA*100):Z2=Z1/10:Z3=INT(Z2):Z4=Z3/10
  560. 4460 IFZ2-Z3<.5THENZ4=Z4
  561. 4465 IFZ2-Z3>=.5THENZ4=Z4+.1
  562. 4467 PRINTCHR$(147):REM AUSGABE
  563. 4470 PRINT:PRINT:PRINT"DER SPARBRIEF MIT EINEM NENNWERT VON "
  564. 4475 PRINT:PRINT"DM: ";INT(DM*100+.5)/100;" BRINGT BEI EINEM "
  565. 4477 PRINT:PRINT"ZINSSATZ VON ";PS;"% P. A. "
  566. 4480 PRINT:PRINT"ZINSEN IN HOEHE VON DM: ";Z4
  567. 4482 PRINT:PRINT
  568. 4485 PRINT:PRINT
  569. 4487 PRINT:PRINT
  570. 4489 PRINT:PRINT"       TASTE DRUECKEN!        "
  571. 4490 POKE 198,0:WAIT 203,63:GET H$
  572. 4491 IF H$=CHR$(92)THEN GOSUB 26000
  573. 4492 IF H$<>CHR$(92)THEN GOTO 4000
  574. 4495 GOTO4390
  575. 5000 REM BONUSSPARPROGRAMM
  576. 5010 PRINTCHR$(147)
  577. 5020 PRINT"****************************************"
  578. 5030 PRINT"[145]*                                      [146]*"
  579. 5040 PRINT"[145]*      B O N U S S P A R E N           [146]*"
  580. 5050 PRINT"[145]*                                      [146]*"
  581. 5060 PRINT"[145]****************************************"
  582. 5070 PRINT"[145]   DATENEINGABE    [146]"
  583. 5080 POKE214,7:POKE211,0:SYS58640
  584. 5090 INPUT"SPARRATE: DM [146]";SR
  585. 5092 IF SR<=0 OR SR > 50000THENPRINT"FALSCHE EINGABE!!![146]":GOTO 5090
  586. 5093 INPUT"ZINSSATZ(IN%):    [146]";ZS
  587. 5095 IF ZS<=.1 OR ZS>30 THENPRINT"FALSCHE EINGABE!!! [146]":GOTO5092
  588. 5100 INPUT"WIEVIEL JAHRE?:    [146]";JH
  589. 5105 IFJH<=0 OR JH>40 THENPRINT"FALSCHE EINGABE!!![146]":GOTO5100
  590. 5110 INPUT"BONUSSATZ(IN%):  % [146]";BS
  591. 5111 IF BS<0 OR BS>100 THENPRINT"FALSCHE EINGABE!!![146]":GOTO5110
  592. 5115 PRINT"SPARRATE:(M)[146]ONATLICH/(V)[146]IERTELJAEHRLICH "
  593. 5116 PRINT"[145](H)[146]HALBJAEHLICH ODER (J)[146]JAEHRLICH?"
  594. 5121 WAIT 203,63:GET L$
  595. 5122 EG=0:IFL$=CHR$(77)THENPRINT"MONATLICH[146]":EG=12:GOTO5130
  596. 5123 IFL$=CHR$(86)THENPRINT"VIERTELJAEHRLICH[146]":EG=4:GOTO5130
  597. 5124 IFL$=CHR$(74)THENPRINT"JAEHRLICH[146]":EG=1:GOTO5130
  598. 5125 IFL$=CHR$(72)THENPRINT"   HALBJAEHRLICH[146]":EG=2:GOTO5130
  599. 5126 GOTO5121
  600. 5130 PRINT"ZAHLUNGSWEISE: V[146]ORSCHUESSIG M[146]EDIO "
  601. 5131 PRINT" ODER N[146]ACHSCHUESSIG?"
  602. 5132 FOR I=1TO300:NEXTI
  603. 5135 POKE198,0:WAIT203,63:GET N$
  604. 5136 IFN$=CHR$(86) THEN KN=EG+1:J$="VORSCHUESSIG [146]":PRINT"";J$:GOTO5140
  605. 5137 IFN$=CHR$(77) THEN KN=EG:J$="MEDIO [146]":PRINT"";J$:GOTO5140
  606. 5138 IFN$=CHR$(78) THEN KN=EG-1:J$="NACHSCHUESSIG[146]":PRINT"";J$:GOTO5140
  607. 5139 GOTO5135
  608. 5140 PRINT:PRINT"T A S T E   D R U E C K E N[146]"
  609. 5142 POKE198,0
  610. 5145 WAIT 198,1
  611. 5146 PRINTCHR$(147);"AUSGABE DER DATEN:":PRINT
  612. 5160 JR=SR*EG:JR=INT(JR*100+.5)/100
  613. 5161 KP=JR*JH:KP=INT(KP*100+.5)/100
  614. 5162 ZR=SR*ZS/100*KN/2:ZR=INT(ZR*100)/100
  615. 5163 J1=JR+ZR
  616. 5165 REM RENTENENDWERTFAKTOR
  617. 5170 Q=(1+(ZS/100))
  618. 5175 RE=(-1+(Q^JH))/(ZS/100)
  619. 5180 EW=J1*RE:EW=INT(EW*100+.5)/100
  620. 5185 E1=EW-KP:E1=INT(E1*100+.5)/100
  621. 5190 BN=KP*BS/100:BN=INT(BN*100+.5)/100
  622. 5200 POKE 213,5:POKE211,0:SYS58640
  623. 5210 PRINT"JAEHRL. SPARSUMME:DM: ";JR
  624. 5215 PRINT
  625. 5220 PRINT"KAPITAL IN ";JH;" JAHREN:DM: ";KP
  626. 5225 PRINT
  627. 5230 PRINT"ZINSERTRAG:DM: ";E1
  628. 5235 PRINT
  629. 5240 PRINT"BONUSERTRAG:DM: ";BN
  630. 5245 PRINT
  631. 5250 PRINT"GESAMTBETRAG:DM: ";EW+BN
  632. 5251 PRINT:PRINT"ZINSSATZ:    ";ZS;"% P. A."
  633. 5255 PRINT:PRINT:PRINT"****************************************"
  634. 5260 PRINT"WUENSCHEN SIE EINE RENTENBERECHNUNG ?"
  635. 5265 PRINT"BITTE   J/N   DRUECKEN!"
  636. 5270 PRINT:PRINT"****************************************"
  637. 5275 POKE 198,0:WAIT 203,63
  638. 5276 GET G$
  639. 5280 IF G$=CHR$(74) THEN GOTO 5300
  640. 5283 IF G$=CHR$(78) THEN GOTO 5291
  641. 5285 IF G$=CHR$(92) THEN GOSUB 26000
  642. 5290 GOTO 5275
  643. 5291 PRINT"NOCH EINE BERECHNUNG?(J/N)"
  644. 5292 POKE 198,0:WAIT 203,63
  645. 5293 GET G$
  646. 5294 IF G$=CHR$(74) THEN GOTO 5000
  647. 5295 IF G$=CHR$(78) THEN GOTO 1000
  648. 5296 GOTO 5292
  649. 5300 GOSUB 5302 :REM RENTENMENUE
  650. 5301 GOTO 5310
  651. 5302 PRINTCHR$(147):PRINT"[145]****************************************"
  652. 5303 PRINT"[145]*                                      [146]*"
  653. 5304 PRINT"[145]* RENTENBERECHNUNG FUER BONUSSPAREN    [146]*"
  654. 5305 PRINT"[145]*                                      [146]*"
  655. 5306 PRINT"[145]****************************************"
  656. 5307 RETURN
  657. 5310 PRINT"[145]*                                      *"
  658. 5311 PRINT"[145]* BESTIMMUNG DES RENTENKAPITALS [146]       *"
  659. 5312 PRINT"[145]*                                      *"
  660. 5313 PRINT"[145]*    F1 [146]   GESAMTBETRAG [146]               *"
  661. 5314 PRINT"[145]*                                      *"
  662. 5315 PRINT"[145]*                                      *"
  663. 5316 PRINT"[145]*    F3 [146]   GESAMTBETRAG-BONUS [146]         *"
  664. 5317 PRINT"[145]*                                      *"
  665. 5318 PRINT"[145]*                                      *"
  666. 5319 PRINT"[145]*    F5 [146]   ZINSERTRAG  [146]                *"
  667. 5320 PRINT"[145]*                                      *"
  668. 5321 PRINT"[145]*                                      *"
  669. 5322 PRINT"[145]*    F7 [146]   BONUSBETRAG [146]                *"
  670. 5323 PRINT"[145]*                                      *"
  671. 5324 PRINT"[145]*                                      *"
  672. 5325 PRINT"[145]*    F8 [146]   BELIEBIGER BETRAG  [146]         *"
  673. 5326 PRINT"[145]*                                      *"
  674. 5328 PRINT"[145]****************************************"
  675. 5329 POKE 198,0:WAIT203,63:GET H$
  676. 5330 IF H$=CHR$(133)THEN RK=EW+BN:W$="GESAMTBETRAG [146]":GOTO5350
  677. 5335 IF H$=CHR$(134)THEN RK=EW:W$="GESAMTBETRAG-BONUS [146]":GOTO5350
  678. 5340 IF H$=CHR$(135)THEN RK=E1:W$="ZINSERTRAG [146]":GOTO5350
  679. 5341 IF H$=CHR$(140)THEN W$="BELIEBIGER BETRAG [146]"
  680. 5342 IF H$=CHR$(140)THEN PRINTCHR$(147):GOSUB 5302
  681. 5343 IF H$=CHR$(140)THEN INPUT"WELCHER BETRAG?DM: [146]";RK:GOTO5350
  682. 5345 IF H$=CHR$(136)THEN RK=BN:W$="BONUSBETRAG [146]":GOTO5350
  683. 5346 GOTO5329
  684. 5350 GOSUB 5302:IF RK<=0ORRK>5000000 THENPRINT"BETRAG IST FALSCH!!! [146]"
  685. 5351 IF RK<=0ORRK>5000000THEN FOR I=1TO 2000:NEXTI:GOTO5300
  686. 5352 REM RENTENZAHLUNGSPERIOSDE
  687. 5355 PRINT"[145]*                                      *"
  688. 5356 PRINT"[145]* ZAHLUNGEN DER RENTEN [146]                *"
  689. 5357 PRINT"[145]*                                      *"
  690. 5358 PRINT"[145]*     M [146]   MONATLICH          [146]         *"
  691. 5359 PRINT"[145]*                                      *"
  692. 5360 PRINT"[145]*                                      *"
  693. 5361 PRINT"[145]*     V [146]   VIERTELJAEHRLICH   [146]         *"
  694. 5362 PRINT"[145]*                                      *"
  695. 5363 PRINT"[145]*                                      *"
  696. 5364 PRINT"[145]*     H [146]   HALBJAEHRL         [146]         *"
  697. 5365 PRINT"[145]*                                      *"
  698. 5366 PRINT"[145]*                                      *"
  699. 5367 PRINT"[145]*     J [146]   JAEHRL             [146]         *"
  700. 5368 PRINT"[145]*                                      *"
  701. 5369 PRINT"[145]*                                      *"
  702. 5370 PRINT"[145]****************************************"
  703. 5380 POKE 198,0:WAIT203,63:GET G$
  704. 5385 IF G$=CHR$(77)THEN XK=12:V$="MONATLICH ":GOTO5400
  705. 5386 IF G$=CHR$(86)THEN XK=4:V$="VIERTELJAEHRLICH ":GOTO5400
  706. 5387 IF G$=CHR$(74)THEN XK=1:V$="JAEHRLICH ":GOTO5400
  707. 5388 IF G$=CHR$(72)THEN XK=2:V$="HALBJAEHRLICH ":GOTO5400
  708. 5395 GOTO5380
  709. 5399 GOSUB 5302
  710. 5400 GOSUB 5302
  711. 5401 REM RESTEINGABEN
  712. 5402 PRINT
  713. 5405 PRINT"ZAHLUNGSWEISE: V[146]ORSCHUESSIG M[146]EDIO "
  714. 5410 PRINT" ODER N[146]ACHSCHUESSIG?"
  715. 5411 POKE 198,0:WAIT203,63:GET H$
  716. 5415 IFH$=CHR$(86) THEN K2=XK+1:J$="VORSCHUESSIG ":PRINTJ$:GOTO5435
  717. 5420 IFH$=CHR$(77) THEN K2=XK:J$="MEDIO ":PRINTJ$:GOTO5435
  718. 5425 IFH$=CHR$(78) THEN K2=XK-1:J$="NACHSCHUESSIG":PRINTJ$:GOTO5435
  719. 5430 GOTO5411
  720. 5435 PRINT:INPUT"WELCHER ZINSSATZ(IN%)";Z5
  721. 5436 IFZ5<=0.1 OR Z5>30 THENPRINT"FALSCHE EINGABE!!![146]":GOTO5435
  722. 5440 PRINT:PRINT"WIE LANGE [146] SOLL DIE RENTE GEZAHLT WERDEN"
  723. 5445 PRINT:INPUT"[145] 0 [146] FUER EWIGE RENTE [146]/ZAHLEN FUER JAHRE";DA:Z$=""
  724. 5446 IF DA=0THEN Z$="  EWIG  ":GOTO5450
  725. 5447 IF DA>0 AND DA<50   THEN DA=0+DA:GOTO5450
  726. 5449 IF DA<1 OR DA>40 THENPRINT"FALSCHE EINGABE!!!":Z$=CHR$(DA):GOTO5440
  727. 5450 GOSUB 5302
  728. 5500 REM EINGABE PRUEFEN
  729. 5501 PRINT
  730. 5502 PRINT"    UEBERPRUEFUNG DER EINGABEN:[146]       "
  731. 5503 PRINT
  732. 5504 PRINT"     RENTENKAPITAL:";W$
  733. 5505 PRINT
  734. 5507 PRINT"    ZAHLUNGSTERMIN:";V$
  735. 5508 PRINT
  736. 5509 PRINT"     ZAHLUNGSWEISE:";J$
  737. 5510 REM
  738. 5511 PRINT
  739. 5512 PRINT"DAUER DER RENTE:";Z$
  740. 5513 IF DA>0THENPOKE214,15:POKE211,20:SYS58640:PRINT" ";DA;" JAHRE [146]"
  741. 5514 PRINT
  742. 5515 PRINT"ZINSSATZ:";Z5;"%"
  743. 5516 PRINT
  744. 5517 PRINT"EINGABEN: R[146]ICHTIG/F[146]ALSCH?"
  745. 5520 POKE 198,0:WAIT203,63:GETK$
  746. 5525 IF K$=CHR$(82)THEN GOTO5530
  747. 5526 IF K$=CHR$(70)THEN GOTO5300
  748. 5527 GOTO 5520
  749. 5530 REM RENTENBERECHNUNG
  750. 5535 REM SPRUNG INS UNTERPROGRAMM
  751. 5540 GOSUB 27000
  752. 5560 PRINTCHR$(147):PRINT"":GOTO5146
  753. 6000 REM
  754. 10000 REM HILFMENUE
  755. 10010 PRINTCHR$(147):PRINTCHR$(14)
  756. 10020 PRINT"****************************************"
  757. 10030 PRINT"[145]*                                      [146]*"
  758. 10040 PRINT"[145]*   [203][160][193][160][211][160][211][160][207][160][198] [201] [216][160]([200]ILFSMENUE)       [146]*"
  759. 10042 PRINT"[145]*                                      [146]*"
  760. 10050 PRINT"[145]****************************************"
  761. 10060 PRINT"[145]*    [198]1 [146]    [210]ATENKREDITBERECHNUNG [146]     *"
  762. 10070 PRINT"[145]*                                      *"
  763. 10080 PRINT"[145]*    [198]2 [146]    [210]AHMENKREDIT          [146]     *"
  764. 10090 PRINT"[145]*                                      *"
  765. 10100 PRINT"[145]*    [198]3 [146]    [200]YPOTHEKENDARLEHEN    [146]     *"
  766. 10110 PRINT"[145]*                                      *"
  767. 10120 PRINT"[145]*    [198]4 [146]    [211]PARBRIEFBERECHNUNG   [146]     *"
  768. 10130 PRINT"[145]*                                      *"
  769. 10140 PRINT"[145]*    [198]5 [146]    [194]ONUSSPAREN           [146]     *"
  770. 10150 PRINT"[145]*                                      *"
  771. 10160 PRINT"[145]*    [198]6 [146]    [198]ARBEINSTELLUNGEN     [146]     *"
  772. 10170 PRINT"[145]*                                      *"
  773. 10180 PRINT"[145]*    [198]7 [146]    [196]RUCKMOEGLICHKEITEN   [146]     *"
  774. 10182 PRINT"[145]*                                      *"
  775. 10185 PRINT"[145]*    [198]8 [146]    [218]URUECK INS [205]ENUE     [146]     *"
  776. 10190 PRINT"[145]****************************************"
  777. 10200 POKE198,0:WAIT 203,63
  778. 10210 GET H$
  779. 10220 IF H$=CHR$(133)THEN GOTO11000
  780. 10230 IF H$=CHR$(137)THEN GOTO12000
  781. 10240 IF H$=CHR$(134)THEN GOTO13000
  782. 10250 IF H$=CHR$(138)THEN GOTO14000
  783. 10260 IF H$=CHR$(135)THEN GOTO15000
  784. 10270 IF H$=CHR$(139)THEN GOTO16000
  785. 10275 IF H$=CHR$(136)THEN GOTO17000
  786. 10280 IF H$=CHR$(140)THENPRINTCHR$(147):PRINTCHR$(142):GOTO1000
  787. 10290 GOTO10200
  788. 11000 REM KOMMENTAR ZUM RATENKREDIT
  789. 11010 PRINTCHR$(147)
  790. 11020 PRINT"****************************************"
  791. 11025 PRINT"*       [210][193][212][197][206][203][210][197][196][201][212][197]                   *"
  792. 11030 PRINT"****************************************"
  793. 11040 PRINT
  794. 11045 PRINT"[196]ER [208]ROGRAMMPUNKT [210][193][212][197][206][203][210][197][196][201][212][194][197][210][197][195][200][206][213][206][199][146]"
  795. 11050 PRINT"ERMOEGLICHT DAS [194]ERECHNEN VON [210]ATENKRE- "
  796. 11060 PRINT"[145]DITEN, WIE SIE UEBLICHERWEISE IM [194]ANKGE-"
  797. 11070 PRINT"[145]SCHAEFT VORGENOMMEN WERDEN."
  798. 11080 PRINT"[198]OLGENDES IST ZU BEACHTEN: "
  799. 11090 PRINT"1.) [194]EI UNRICHTIGEN [197]INGABEN MELDET"
  800. 11100 PRINT"SICH DAS [208]ROGRAMM MIT EINER [198]EHLERMEL-"
  801. 11110 PRINT"DUNG.
  802. 11120 [153]"2.)STR$IE (null)OSTEN DES (null)REDITES WERDEN    "
  803. 11130 [153]"KAUFMAENNISCH JE NACH ATNNGABE GERUNDET."
  804. 11140 [153]"3.) STR$ER VALFFEKTIVE MID$AHREZINSWAIT WIRD ENT-"
  805. 11150 [153]"WEDER DURCH EIN EINFACHES ATNNNAEHERUNGS-"
  806. 11160 [153]"VERFAHREN ODER ITERATIV EXAKT BERECHNET."
  807. 11170 [153]"PEEKEI ITERATIVER PEEKERECHNUNG BRAUCHT DER  "
  808. 11175 [153]"(null)ECHNER ZUM (null)EIL EINIGE (null)EIT."
  809. 11180 [153]"        (null)ATN(null)(null)VAL STR$(null)(null)VALLEN(null)VAL(null)!   WAIT"
  810. 11190 [146] 203,63
  811. 11200 [161] V$
  812. 11210 [139] V$[178][199](74)[167][153][199](147):[137]1010
  813. 11220 [153][199](147):[153][199](142):[137]1010
  814. 12000 [143] KOMMENTAR ZUM RAHMENKREDIT
  815. 12010 [153][199](147)
  816. 12020 [153]"****************************************"
  817. 12025 [153]"*       (null)ATNLEFT$(null)VAL(null)(null)(null)VALSTR$RIGHT$(null)                   *"
  818. 12030 [153]"****************************************"
  819. 12040 [153]
  820. 12045 [153]"STR$ER (null)ROGRAMMPUNKT (null)ATNLEFT$(null)VAL(null)(null)(null)VALSTR$RIGHT$(null)WAIT"
  821. 12050 [153]"ERMOEGLICHT DAS KONTOKORRENTMAESSIGE "
  822. 12060 [153]"PEEKERECHNEN VON (null)REDITEN."               "
  823. 12070 PRINT"[196]IE [218]INSBETRAEGE WERDEN JEWEILS"
  824. 12080 PRINT"ZUM ANGEGEBENEN [218]EITPUNKT KAPITALI-"
  825. 12090 PRINT"SIERT."
  826. 12100 PRINT"[196]IE [194]ERECHNUNG GEHT DAVON AUS, DASS   "
  827. 12110 PRINT"DIE ERSTE MONATLICHE [210]ATE 30 [212]AGE"
  828. 12120 PRINT"NACH [193]USZAHLUNG DES [203]REDITES FAELLIG"
  829. 12130 PRINT"WIRD.":PRINT
  830. 12179 PRINT
  831. 12180 PRINT"        [212][193][211][212][197] [196][210][213][197][195][203][197][206]!   [146]"
  832. 12190 WAIT 203,63
  833. 12200 GET V$
  834. 12210 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010
  835. 12220 PRINTCHR$(147):PRINTCHR$(142):GOTO1010
  836. 12230 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010
  837. 12250 PRINTCHR$(147):PRINTCHR$(142):GOTO1010
  838. 13000 REM KOMMENTAR HYPOTHEKARDARLEHEN
  839. 13010 PRINTCHR$(147)
  840. 13020 PRINT"****************************************"
  841. 13025 PRINT"*       [200][217][208][207][212][200][197][203][197][206][196][193][210][204][197][200][197][206]             *"
  842. 13030 PRINT"****************************************"
  843. 13040 PRINT
  844. 13045 PRINT"[200]YPOTHEKENDARLEHEN WERDEN IN DER [210]E-"
  845. 13050 PRINT"GEL FUER [194]AU- ODER [210]ENOVIERUNGSFINAN-"
  846. 13060 PRINT"ZIERUNGEN VERGEBEN."
  847. 13070 PRINT"[199]EMAESS $1113 [194][199][194] VERLANGEN DIE [194]ANKEN"
  848. 13080 PRINT"ALS [211]ICHERHEIT EINE [194]ELASTUNG DES "
  849. 13090 PRINT"[199]RUNDSTUECKS ([200]YPOTHEK)."
  850. 13100 PRINT"[196]AS [208]ROGRAMM BERECHNET BANKUEBLICH"
  851. 13110 PRINT"DIE MONATLICHE [194]ELASTUNG, WENN "
  852. 13120 PRINT"VORSCHUESSIG BEZAHLT WIRD."
  853. 13130 PRINT"[194]EI VEREINBARTEM [193]BGELD ([196]ISAGIO) WIRD"
  854. 13140 PRINT"DIE TATSAECHLICHE [214]ERZINSUNG AUF"
  855. 13150 PRINT"DER [194]ASIS DES [193]USZAHLUNGSBETRAGES"
  856. 13160 PRINT"ITERATIV ERMITTELT."
  857. 13170 PRINT"[196]AS [208]ROGRAMM ERLAUBT FERNER EINE"
  858. 13180 PRINT"[211]CHULDENSTANDBERECHNUNG."
  859. 13200 PRINT
  860. 13220 PRINT"        [212][193][211][212][197] [196][210][213][197][195][203][197][206]!   [146]"
  861. 13230 WAIT 203,63
  862. 13240 GET V$
  863. 13250 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010
  864. 13260 PRINTCHR$(147):PRINTCHR$(142):GOTO1010
  865. 14000 REM SPARBRIEFE
  866. 14010 PRINTCHR$(147)
  867. 14020 PRINT"****************************************"
  868. 14025 PRINT"*       [211][160][208][160][193][160][210][160][194][160][210][160][201][160][197][160][198][160][197]            *"
  869. 14030 PRINT"****************************************"
  870. 14040 PRINT
  871. 14045 PRINT"[211]PARBRIEFE SIND [206]OMINALPAPIERE IM"
  872. 14050 PRINT"[211]INNE DES $ 808 [194][199][194]. [196]IE [194]ANKEN VER-"
  873. 14060 PRINT"KAUFEN IN DER [210]EGEL DREI [212]YPEN SOLCHER"
  874. 14070 PRINT"[211]PARBRIEFE:"
  875. 14080 PRINT"1.) AUFGEZINSTE [146] "
  876. 14090 PRINT"[197]S HANDELT SICH UM [211]PARBRIEFE MIT [218]INS-"
  877. 14100 PRINT"ANSAMMLUNG"
  878. 14110 PRINT"2.) ABGEZINSTE [146] "
  879. 14120 PRINT"[197]S HANDELT SICH UM [211]PARBRIEFE, DEREN"
  880. 14130 PRINT"[203]AUFPREIS DEM DURCH [204]AUFZEIT  UND [218]INS-"
  881. 14140 PRINT"SATZ ABGEZINSTEN [206]ENNWERT ENTSPRICHT."
  882. 14150 PRINT"3.) MIT JAEHRLICHER [218]INSAUSZAHLUNG [146]"
  883. 14160 PRINT"[196]ER [218]INSERTRAG WIRD NACH JEWEILS 12"
  884. 14170 PRINT"[203]ALENDERMONATEN AUSGEZAHLT."
  885. 14200 PRINT
  886. 14210 PRINT
  887. 14220 PRINT"        [212][193][211][212][197] [196][210][213][197][195][203][197][206]!   [146]"
  888. 14230 WAIT 203,63
  889. 14240 GET V$
  890. 14250 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010
  891. 14260 PRINTCHR$(147):PRINTCHR$(142):GOTO1010
  892. 15000 REM KOMENTAR BONUSSPAREN
  893. 15010 PRINTCHR$(147)
  894. 15020 PRINT"****************************************"
  895. 15025 PRINT"*       [194][207][206][213][211][211][208][193][210][197][206]                    *"
  896. 15030 PRINT"****************************************"
  897. 15040 PRINT"[194][207][206][213][211][211][208][193][210][197][206] IST EINE [205]OEGLICHKEIT,SICH"
  898. 15045 PRINT"DURCH [211]PARRATEN UEBER EINEN GEWISSEN"
  899. 15050 PRINT"[218]EITRAUM FUER ZUKUENFTIGE [196]ISPOSITIO-"
  900. 15055 PRINT"NEN EIN ANGEMESSENES [203]APITAL ZU BE-"
  901. 15060 PRINT"SCHAFFEN. [196]IE [194]ANKEN GEWAEHREN IN DER "
  902. 15070 PRINT"[210]EGEL AM [197]NDE DER [204]AUFZEIT AUF DIE EIN-"
  903. 15080 PRINT"GEZAHLTE [211]UMME EINEN [194]ONUSPROZENTSATZ,"
  904. 15090 PRINT"DER VON DER [199]ESAMTLAUFZEIT ABHAENGIG "
  905. 15100 PRINT"IST. [196]A DIESE [211]PARFORM DIE [211]CHAFFUNG"
  906. 15119 PRINT"EINER ZUKUENFTIGEN [218]USATZRENTE ERMOEG-"
  907. 15120 PRINT"LICHT, IST EIN [210]ENTENBERECHNUNGSPRO-"
  908. 15130 PRINT"GRAMM ANGEFUEGT."
  909. 15131 PRINT"[194]EIM [210]ENTENPROGRAMM WIRD DAVON AUSGE-"
  910. 15132 PRINT"GANGEN, DASS DIE [210]ENTENZAHLUNG 1 [202]AHR "
  911. 15133 PRINT"NACH [214]ERTRAGSENDE BEGINNT."
  912. 15134 PRINT
  913. 15140 PRINT"        [212][193][211][212][197] [196][210][213][197][195][203][197][206]!   [146]"
  914. 15150 POKE198,0:WAIT 198,1
  915. 15160 PRINTCHR$(142)
  916. 15170 PRINTCHR$(147):GOTO1000
  917. 16000 PRINTCHR$(147)
  918. 16020 PRINT"****************************************"
  919. 16025 PRINT"*       [198][193][210][194][197][201][206][211][212][197][204][204][213][206][199]                *"
  920. 16030 PRINT"****************************************"
  921. 16040 PRINT
  922. 16045 PRINT"[196]URCH [196]RUCK AUF [198]6 GELANGEN [211]IE "
  923. 16050 PRINT"WIEDER INS [198]ARBEINSTELLUNGSMENUE.    "
  924. 16055 PRINT:PRINT
  925. 16060 PRINT"[194]EI GLEICHER [211]CHRIFT- UND [200]INTERGRUND- "
  926. 16070 PRINT"FARBE WIRD EINE [198]EHLERMELDUNG  "
  927. 16080 PRINT"AUSGEGEBEN."
  928. 16179 PRINT
  929. 16180 PRINT"        [212][193][211][212][197] [196][210][213][197][195][203][197][206]!   [146]"
  930. 16190 WAIT 203,63
  931. 16200 GET V$
  932. 16210 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010
  933. 16220 PRINTCHR$(147):PRINTCHR$(142):GOTO1010
  934. 16230 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010
  935. 16250 PRINTCHR$(147):PRINTCHR$(142):GOTO1010
  936. 17000 REM DRUCKEN
  937. 17010 PRINTCHR$(147)
  938. 17020 PRINT"****************************************"
  939. 17025 PRINT"*       [196][210][213][195][203][205][207][197][199][204][201][195][200][203][197][201][212]              *"
  940. 17030 PRINT"****************************************"
  941. 17040 PRINT"[197]S BESTEHT DIE [205]OEGLICHKEIT, SICH DIE"
  942. 17045 PRINT"[210]ECHENERGEBNISSE DER [196]ATENAUSGABE AUS-"
  943. 17050 PRINT"DRUCKEN ZU LASSEN."
  944. 17055 PRINT
  945. 17056 PRINT
  946. 17060 PRINT"[211]CHALTEN [211]IE ZUNAECHST [201]HREN [196]RUCKER EIN"
  947. 17070 PRINT"[145]UND BETAETIGEN [211]IE DANN DIE \-[212]ASTE."
  948. 17080 PRINT"[211]OFORT BEGINNT DER [193]USDRUCK."
  949. 17090 PRINT:PRINT
  950. 17180 PRINT"        [212][193][211][212][197] [196][210][213][197][195][203][197][206]!   [146]"
  951. 17190 WAIT 203,63
  952. 17200 GET V$
  953. 17210 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010
  954. 17220 PRINTCHR$(147):PRINTCHR$(142):GOTO1010
  955. 20000 REM JAEHRL. EFFEKTIVZINS
  956. 20005 POKE214,23:POKE211,0:SYS58640
  957. 20006 PRINT"BITTE WARTEN![146]"
  958. 20010 REM FUER RAHMENKREDIT
  959. 20015 IF Z=12THEN EX=ZS:GOTO20110
  960. 20020 R=ZS/100
  961. 20030 DA=ZH+1
  962. 20040 J=INT(DA/12)
  963. 20049 L1=DA-(J*12)
  964. 20050 LR=DA-(J*12)-1
  965. 20051 R=R+.0001
  966. 20055 RF=(1-(1+R)^-J)/R
  967. 20056 K1=(5.5*R*MR+(12*MR))*RF
  968. 20057 FJ=(1+R)^(-DA/12)
  969. 20060 K2=((LR*(LR+1)/24)*R*MR+(LR*MR+R5))*FJ
  970. 20070 K3=K1+K2
  971. 20080 IF K3>KBTHEN GOTO20051
  972. 20090 REM EFFI AUSGEBEN
  973. 20100 EX=INT(R*10000)/100
  974. 20110 POKE214,23:POKE211,0:SYS58640
  975. 20120 PRINT"EFFEKTIVER JAHRESZINS=";EX;"%"
  976. 20130 RETURN
  977. 25000 REM UNTERPROG. EFFEKTIVZINS
  978. 25008 IF P=1 THEN GOSUB 35000
  979. 25009 IF P=1 THEN RETURN
  980. 25010 REM ERMITTLUNG DES
  981. 25020 REM EFFEKTIVEN JAHRESZINSES
  982. 25030 POKE214,23:POKE211,10:SYS58640
  983. 25040 PRINT"BITTE WARTEN ![146]"
  984. 25100 REM VARIABLEN ZUORDNEN
  985. 25105 EH=0:EF=0:MH=0:L1=0:J1=0:J2=0:J3=0
  986. 25106 L1=(L%-12)/12
  987. 25107 MH=(MK/SU)*100
  988. 25108 EF=24*(((ZS*L%)+MH+(GB*100/SU))/(L%+1))
  989. 25109 EH=EF/100
  990. 25110 REM ERSTE JAHR
  991. 25111 J1=(((11/12)*R1*EH)+((55/12)*EH*R2)+R1+(11*R2))/(1+EH)
  992. 25112 RB=(1-((1+EH)^-L1))/(EH)
  993. 25113 J2=(((5.5*EH*R2)+(12*R2))/(1+EH))*RB
  994. 25114 J3=J1+J2
  995. 25115 IF J3>SU THEN GOTO25120
  996. 25116 IF J3<SU THEN GOTO25240
  997. 25120 REM
  998. 25121 REM ZUNEHMENDER ZINS
  999. 25122 EH=((EH*100)+.01)/100
  1000. 25130 J1=(((11/12)*R1*EH)+((55/12)*EH*R2)+R1+(11*R2))/(1+EH)
  1001. 25131 REM BERECHNUNG DES
  1002. 25140 REM RENTENBARWERTFAKTOR
  1003. 25150 RB=(1-((1+EH)^-L1))/(EH)
  1004. 25160 J2=(((5.5*EH*R2)+(12*R2))/(1+EH))*RB
  1005. 25161 REM
  1006. 25170 J3=J1+J2
  1007. 25175 POKE 214,0:POKE211,0:SYS58640
  1008. 25176 PRINT"ITERATION BEI DM: [146]";INT(J3*100)/100
  1009. 25177 PRINT"ITERATION BEI % : [146]";"           ":POKE214,1:POKE211,18:SYS58640
  1010. 25178 PRINT;INT(EH*10000)/100:POKE214,0:POKE211,0:SYS58640
  1011. 25179 POKE 214,0:POKE211,0:SYS58640
  1012. 25180 IFJ3<SU THEN GOTO25500
  1013. 25181 GOTO25122
  1014. 25200 REM
  1015. 25210 REM
  1016. 25220 REM ITERATION MIT ABNEHMENDEN
  1017. 25230 REM ZINS
  1018. 25240 J1=0:J2=0:J3=0
  1019. 25300 EH=((EH*100)-.01)/100
  1020. 25310 J1=(((11/12)*R1*EH)+((55/12)*EH*R2)+R1+(11*R2))/(1+EH)
  1021. 25320 REM ABNEHMENDER ZINS
  1022. 25400 REM RENTENBARWERTFAKTOR
  1023. 25410 REM
  1024. 25420 RB=(1-((1+EH)^-L1))/(EH)
  1025. 25430 J2=(((5.5*EH*R2)+(12*R2))/(1+EH))*RB
  1026. 25440 J3=J1+J2
  1027. 25450 POKE 214,0:POKE211,0:SYS58640
  1028. 25460 PRINT"ITERATION BEI DM: [146]";INT(J3*100)/100
  1029. 25470 PRINT"ITERATION BEI % : [146]";"           ":POKE214,1:POKE211,18:SYS58640
  1030. 25475 PRINT;INT(EH*10000)/100:POKE214,0:POKE211,0:SYS58640
  1031. 25480 POKE 214,0:POKE211,0:SYS58640
  1032. 25490 IF-J3<-SU THEN GOTO25500
  1033. 25495 GOTO25300
  1034. 25500 REM AUSGABE DES EFFI
  1035. 25510 EH=   EH*100
  1036. 25511 EH=INT(EH*100+.5)/100
  1037. 25512 REM
  1038. 25513 POKE 214,23:POKE211,6:SYS58640
  1039. 25520 PRINT"EFFEKT. JAHRESZINS= ";EH
  1040. 25530 RETURN
  1041. 26000 REM HARDCOPYROUTINE
  1042. 26005 OPEN4,4,4:CMD 4
  1043. 26010 FOR I=1024 TO 1984 STEP 40: REM 25 ZEILEN
  1044. 26015 BZ$="":REM GESAMTZEILE LOESCHEN
  1045. 26020 FOR J=0 TO 39:REM 40 ZEICHEN
  1046. 26030 Z=PEEK(I+J):REM ZEICHEN LESEN
  1047. 26040 IF Z<32  THEN Z=Z+64:REM UMWANDLUNG
  1048. 26050 BZ$=BZ$+CHR$(Z)
  1049. 26060 NEXT J
  1050. 26070 PRINTBZ$
  1051. 26080 NEXT I:CLOSE 4
  1052. 26090 RETURN
  1053. 27000 REM UNTERPROGRAMM
  1054. 27010 REM ANNUITAETEN
  1055. 27020 REM UND RENTENBERECHNUNG
  1056. 27030 REM ANNUITAETENFAKTOR
  1057. 27040 Q=(Z5/100)+1
  1058. 27050 A1=1-(Q^-DA):IF DA=0THENA1=1
  1059. 27060 A2=((Z5/100)/A1)*Q
  1060. 27070 RT=RK*A2
  1061. 27080 Z6=(XK*K2)/(XK*2)
  1062. 27090 Z7=Z6*(Z5/100)
  1063. 27100 E=RT/(XK+Z7)
  1064. 27110 E=E*100
  1065. 27120 IFE-INT(E)>.5THEND=1
  1066. 27130 IFE-INT(E)<.5THEND=0
  1067. 27135 E=INT(E)+D
  1068. 27140 E=E/100
  1069. 27150 REM AUSGABE AUF BILDSCHIRM
  1070. 27160 PRINTCHR$(147):POKE214,3:POKE211,0:SYS58640
  1071. 27170 PRINT"****************************************"
  1072. 27180 PRINT"*                                      *"
  1073. 27190 PRINT"IHRE RENTE BETRAEGT:  DM";INT(E*100+.5)/100
  1074. 27200 PRINT
  1075. 27210 PRINT"GEZAHLT WIRD JEWEILS  ";V$
  1076. 27220 PRINT
  1077. 27230 PRINT"ZAHLUNGSWEISE:  ";J$
  1078. 27240 PRINT
  1079. 27250 PRINT"DAUER DER RENTE: ";DA;" JAHRE"
  1080. 27251 PRINT
  1081. 27260 PRINT"ZINSSATZ:";Z5;"% P. A."
  1082. 27270 PRINT"*                                      *"
  1083. 27280 PRINT"****************************************"
  1084. 27300 IF DA=0THENPOKE214,13:POKE211,16:SYS58640
  1085. 27310 IF DA=0THENPRINTZ$;"      "
  1086. 27315 PRINT:PRINT:PRINT:PRINT
  1087. 27316 PRINT"TASTE DRUECKEN!  "
  1088. 27317 POKE198,0:WAIT203,63:GET G$
  1089. 27318 IF G$=CHR$(92)THEN GOSUB26000
  1090. 27319 IF G$=CHR$(92) THEN GOTO 27317
  1091. 27320 IF G$<>CHR$(92)THEN PRINTCHR$(147)
  1092. 27321 RETURN
  1093. 28000 REM UNTERPROGRAMM
  1094. 28010 REM EFFEKTIVE VERZINSUNG
  1095. 28020 REM BEI DISAGIO
  1096. 28030 POKE 214,20:POKE211,0:SYS58640
  1097. 28040 INPUT"WIEVIEL % DISAGIO (MAX. 20%)";ZD
  1098. 28045 IFZD>20THEN28040
  1099. 28050 IFZD<=0THEN28040
  1100. 28055 POKE 214,20:POKE211,0:SYS58640
  1101. 28056 FORI=1TO 200:POKE(1800+I),32:NEXT I
  1102. 28057 POKE 214,20:POKE211,0:SYS58640
  1103. 28058 PRINT"        BITTE WARTEN![146]               "
  1104. 28060 L=C-((ZD/100)*C)
  1105. 28070 REM ITERATION ERSTELLEN
  1106. 28080 Z1=Z/100
  1107. 28090 Z1=Z1+.0001
  1108. 28100 R1=(1-((1+Z1)^-J))/Z1
  1109. 28110 R2=L/AC
  1110. 28120 IF R1>R2THENGOTO 28090
  1111. 28125 Z1=INT(Z1*10000)/100
  1112. 28130 POKE 214,20:POKE211,0:SYS58640
  1113. 28170 RETURN
  1114. 30000 IFZL=2AND  KW$=KN$ THENRETURN
  1115. 30001 IFZL<>2 THENRETURN
  1116. 30005 PRINTCHR$(147):POKE214,10:POKE211,10:SYS58640
  1117. 30010 PRINT"";KN$;"[146]":FORI=1 TO2000:NEXTI:PRINTCHR$(147):RETURN
  1118. 35000 REM UNTERPROG. ZUR ITERATIVEN
  1119. 35010 REM ERMITTLUNG DES
  1120. 35020 REM EFFEKTIVEN JAHRESZINSES
  1121. 35030 POKE214,23:POKE211,10:SYS58640
  1122. 35040 PRINT"BITTE WARTEN ![146]"
  1123. 35100 REM VARIABLEN ZUORDNEN
  1124. 35105 EH=0:EF=0:MH=0:L1=0:J1=0:J2=0:J3=0
  1125. 35106 L1=((L%-12)/12):L2=(L%/12)-L1
  1126. 35107 MH=(MK/SU)*100
  1127. 35108 EF=24*(((ZS*L%)+MH+(GB*100/SU))/(L%+1))
  1128. 35109 EH=EF/100
  1129. 35110 REM LEZTE JAHR
  1130. 35111 J1=(((1/12)*R1*EH)+((65/12)*EH*R2)+R1+(11*R2))/((1+EH)^(L2))
  1131. 35112 RB=(1-(1+EH)^-L1)/EH
  1132. 35113 J2=(((5.5*EH*R2)+(12*R2))/(1+EH))*RB
  1133. 35114 J3=J1+J2
  1134. 35115 IF J3>SU THEN GOTO35120
  1135. 35116 IF J3<SU THEN GOTO35240
  1136. 35120 REM
  1137. 35121 REM ZUNEHMENDER ZINS
  1138. 35122 EH=((EH*100)+.01)/100
  1139. 35130 J1=(((1/12)*R1*EH)+((65/12)*EH*R2)+R1+(11*R2))/((1+EH)^(L2))
  1140. 35131 REM BERECHNUNG DES
  1141. 35140 REM RENTENBARWERTFAKTOR
  1142. 35150 RB=(1-((1+EH)^-L1))/(EH)
  1143. 35160 J2=(((5.5*EH*R2)+(12*R2))/(1+EH))*RB
  1144. 35170 J3=J1+J2
  1145. 35175 POKE 214,0:POKE211,0:SYS58640
  1146. 35176 PRINT"ITERATION BEI DM: [146]";INT(J3*100)/100
  1147. 35177 PRINT"ITERATION BEI % : [146]";"           ":POKE214,1:POKE211,18:SYS58640
  1148. 35178 PRINT;INT(EH*10000)/100:POKE214,0:POKE211,0:SYS58640
  1149. 35179 POKE 214,0:POKE211,0:SYS58640
  1150. 35180 IFJ3<SU THEN GOTO35500
  1151. 35181 GOTO35122
  1152. 35240 J1=0:J2=0:J3=0
  1153. 35300 EH=((EH*100)-.01)/100
  1154. 35310 J1=(((1/12)*R1*EH)+((65/12)*EH*R2)+R1+(11*R2))/((1+EH)^(L2))
  1155. 35320 REM ABNEHMENDER ZINS
  1156. 35400 REM RENTENBARWERTFAKTOR
  1157. 35410 REM
  1158. 35420 RB=(1-((1+EH)^-L1))/(EH)
  1159. 35430 J2=(((5.5*EH*R2)+(12*R2))/(1+EH))*RB
  1160. 35440 J3=J1+J2
  1161. 35450 POKE 214,0:POKE211,0:SYS58640
  1162. 35460 PRINT"ITERATION BEI DM: [146]";INT(J3*100)/100
  1163. 35470 PRINT"ITERATION BEI % : [146]";"           ":POKE214,1:POKE211,18:SYS58640
  1164. 35475 PRINT;INT(EH*10000)/100:POKE214,0:POKE211,0:SYS58640
  1165. 35480 POKE 214,0:POKE211,0:SYS58640
  1166. 35490 IF-J3<-SU THEN GOTO35500
  1167. 35495 GOTO35300
  1168. 35500 REM AUSGABE DES EFFI
  1169. 35510 EH=   EH*100
  1170. 35511 EH=INT(EH*100+.5)/100
  1171. 35513 POKE 214,23:POKE211,6:SYS58640
  1172. 35520 PRINT"EFFEKT. JAHRESZINS= ";EH
  1173. 35530 RETURN
  1174.