home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 23 / 64er_Magazin_Sonderheft_23_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / kassofix (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.