5 POKE808,234:PRINTCHR$(8) 10 REM ******************************* 11 REM * PROGRAMM ZUR BERECHNUNG * 12 REM * VON BANKGESCHAEFTEN * 13 REM * VON GERHARD BAUKELMANN * 14 REM * AUF DER REIHE 100 A * 15 REM * 4300 ESSEN 12 * 16 REM * TEL.: 0201/21 26 40 * 17 REM ******************************* 18 REM KENNWORTEINGABE 20 ZL=0 21 IFZL=3THEN SYS 64738 22 IF ZL=2 AND KW$="64'ER"THENGOTO68 30 PRINTCHR$(147):POKE53280,0:POKE53281,0:POKE646,5:KW$="" 40 PRINT"FUER COMMI KENNWORT EING.:" 50 POKE646,0:INPUTKW$ 60 KN$="GELD":IF KW$<>KN$THENPOKE646,5:PRINT"KENNWORT FALSCH!":FORI=1TO2000:NEXTI 61 REM ANZAHL EINGABEN 62 ZL=ZL+1 63 IF KN$<>KW$THEN GOTO 21 66 REM 68 PRINTCHR$(8):POKE53280,14:POKE53281,6 69 PRINTCHR$(147):PRINTCHR$(142) 70 PRINT" MOECHTEN SIE EINE [146]" 71 PRINT" FARBEINSTELLUNG VORNEHMEN? [146]" 72 PRINT" BITTE J ODER N DRUECKEN! [146]" 73 POKE 198,0:WAIT 203,63 74 GET H$: 75 IF H$=CHR$(74)THENGOTO100 76 IF H$=CHR$(78)THENPRINTCHR$(147):POKE53280,14:POKE53281,6:POKE646,14:GOTO 900 80 GOTO 73 90 REM FARBEINSTELLUNGEN 100 PRINTCHR$(147):POKE646,0 101 POKE53280,13:POKE53281,5 105 PRINTCHR$(147):GOSUB 110 106 GOTO 180 110 PRINT"****************************************" 120 PRINT"[145]* [146]*" 130 PRINT"[145]* B I T T E F A R B E N [146]*" 140 PRINT"[145]* [146]*" 150 PRINT"[145]* E I N S T E L L E N ! [146]*" 160 PRINT"[145]****************************************" 170 RETURN 180 PRINT"[145]* *" 185 PRINT"[145]* *" 190 PRINT"[145]* *" 200 PRINT"[145]* F1 [146] RAHMEN [146] *" 210 PRINT"[145]* *" 220 PRINT"[145]* *" 221 PRINT"[145]* F3 [146] HINTERGRUND [146] *" 222 PRINT"[145]* *" 223 PRINT"[145]* *" 224 PRINT"[145]* F5 [146] SCHRIFT [146] *" 225 PRINT"[145]* *" 226 PRINT"[145]* *" 227 PRINT"[145]* F7 [146] WEITER [146] *" 228 PRINT"[145]* *" 229 PRINT"[145]* *" 230 PRINT"[145]****************************************" 231 REM AUSWAHLVERZWEIGUNG 232 POKE 198,0:WAIT203,63:GET H$ 233 IF H$=CHR$(133)THEN GOTO 238 234 IF H$=CHR$(134)THEN GOTO 243 235 IF H$=CHR$(135)THEN GOTO 248 236 IF H$=CHR$(136)THEN GOTO 255 237 GOTO 232 238 REM RANDFARBE 239 Z=Z+1:IFZ>15THENZ=0 240 POKE 53280,Z 241 PRINTCHR$(147):GOSUB 110 242 GOTO180 243 REM HINTERGRUNDFARBE 244 U=U+1:IF U>15THENU=0 245 POKE 53281,U 246 PRINTCHR$(147):GOSUB 110 247 GOTO180 248 REM SCHRIFTFARBE 249 W=W+1:IFW>15THENW=0 250 POKE 646,W 251 PRINTCHR$(147):GOSUB 110 252 GOTO180 255 J1=PEEK(53281)AND15 260 J2=PEEK(646)AND15 261 IFJ1<>J2THEN GOTO 900 262 PRINTCHR$(147):POKE53280,0:POKE53281,0:POKE646,1 263 PRINT"SCHRIFT- UND HINTERGRUNDFARBE [146]" 264 PRINT"MUESSEN VERSCHIEDEN SEIN !!! [146]" 265 FORI=1TO2000:NEXTI:GOTO100 270 GOTO 900 285 PRINTCHR$(147) 290 PRINT"***************************************" 300 PRINT"* [146]*" 310 PRINT"* RATENKREDITBERECHNUNG [146]*" 320 PRINT"* [146]*" 325 PRINT"* [146]*" 330 PRINT"***************************************" 340 POKE214,6:POKE211,0:SYS58640 345 PRINT:PRINT"WOLLEN SIE DEN EFFEKTIVEN JAHRESZINS [146]" 346 PRINT:PRINT"EXAKT[146] ODER ANNAEHERUNGSWEISE[146] ER-" 347 PRINT:PRINT"MITTELT HABEN?(F1 [146]/F2 [146])" 348 WAIT 203,63:GET E$ 349 IF E$=CHR$(133)THEN X=1:GOTO 362 350 IF E$=CHR$(137)THEN X=2:GOTO 362 355 GOTO 348 362 PRINT:PRINT:PRINT"RUNDUNGSANGABE FUER DIE KREDITKOSTEN:":PRINT 363 PRINT"(D)[146] FUER MARK/" 365 PRINT"(G)[146] FUER GROSCHEN/ (P)[146] FUER PFENNIG" 371 POKE 198,0:WAIT 203,63:GET R$ 373 IF R$="D"THENU=1:V=1:GOTO382 379 IF R$="G"THENU=10:V=.1:GOTO382 380 IF R$="P"THENU=100:V=.01:GOTO382 381 GOTO 371 382 PRINTCHR$(147):POKE214,0:POKE211,8:SYS58640 383 IF X>=1THEN PRINT"DER EFFEKT. JAHRESZINS WIRD" 384 IF X=1THEN PRINT"EXAKT BERECHNET 385 [139] X[178]2[167] [153]"ANNAEHERUNGSWEISE BERECHNET." 386 [153]:[153]"EINGABE BENOETIGTER DATEN:WAIT":[153] 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 390 [133]"*BEANTRAGTER KREDIT:DM WAIT"; BK 391 [139] BK[179][178]0 [176] BK[177]1000000 [167][153]"FALSCHE ANGABE!!!WAIT":[137]390 392 [153] 395 [133]"*EVEN. NETTO RESTSALDO:DM WAIT"; NR 396 [139] NR[179]0 [176] NR[177]1000000 [167] [137] 395 397 [153] 400 [133]"*LAUFZEIT IN MONATEN: WAIT"; L% 401 [139] L%[179]12 [176] L%[177]120 [167][153]"FALSCHE ANGABE!!!WAIT":[137]400 402 [153] 405 [133]"*ZINSEN PRO MONAT IN %: % WAIT"; ZS: 406 [139] ZS[179][178].01 [176] ZS[177]5 [167][153]"FALSCHE ANGABE!!!WAIT":[137]405 407 [153] 410 [133]"*BEARBEIT.GEBUEHR IN %: % WAIT"; BA 411 [139] BA[179]0 [176] BA[177]20 [167] [137]410 412 [153] 415 [133]"*MAKLERGEBUEHR IN %: % WAIT"; MG 416 [139] MG[179]0 [176] MG[177]20 [167] [137] 415 417 [153]:[153]"SOLL DIE ERSTE RATE EVENTUELL NIE-" 418 [153]"DRIGER ODER DIE LETZTE HOEHER SEIN? N/H" 419 [151]198,0:[146]203,63:[161] H$ 420 [139] H$[178]"N" [167] P[178]0:[153]"NIEDRIGER":[137] 423 421 [139] H$[178]"H"[167] P[178]1:[153]"HOEHER":[137]423 422 [137] 419 423 [153]:[153]" ANGABEN RWAITICHTIG/FWAITALSCH?" 424 [151]198,0:[146]203,63:[161] H$ 425 [139] H$[178][199](82)[167][137]430 426 [139] H$[178][199](70)[167][137]382 427 [137] 424 430 SU[178]BK[170]NR 435 Q[178](ZS[173]100) 440 KB[178]SU[172]Q[172]L% 450 GB[178](BA[173]100)[172]BK 455 GK[178](SU[170]KB[170]GB) 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 470 [139] KB[172]U[171][181](KB[172]U)[179].5 [167] KB[178]([181](KB[172]U)[173]U) 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 480 [139] GB[172]U[171][181](GB[172]U)[179].5 [167] GB[178]([181](GB[172]U)[173]U) 485 MK[178]MG[172]BK[173]100 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 500 [139] MK[172]U[171][181](MK[172]U)[179].5 [167]MK[178]([181](MK[172]U)[173]U) 505 G1[178]SU[170]KB[170]MK[170]GB 510 R0[178]G1[173]L% 511 [139] P[178]1[167] [137] 524 515 R2[178][181](R0)[170]1 516 [139] R0[171][181](R0)[178]0[167]R2[178]G1[173]L% 517 R1[178]([171](L%[171]1)[172]R2[170]G1) 518 [139]R1[179][178]0[167][153][199](147);"EIN KREDIT ZU SOLCHEN KONDITIONEN WAIT" 519 [139]R1[179][178]0[167][153]"KANN NICHT HERAUSGELEGT WERDEN!!!WAIT":[137]780 520 [153][199](147):[137]530 524 R2[178][181](R0) 525 [139] R0[171][181](R0)[178]0[167]R2[178]G1[173]L% 526 R1[178]([171](L%[171]1)[172]R2[170]G1) 527 [139]R2[179][178]0[167][153][199](147);"EIN KREDIT ZU SOLCHEN KONDITIONEN WAIT" 528 [139]R2[179][178]0[167][153]"KANN NICHT HERAUSGELEGT WERDEN!!!WAIT":[137]780 529 [153][199](147) 530 [143] DATENAUSGABE 550 [151]214,3:[151] 211,0 560 [158] 58640 570 [153]"AUSGABE DER DATEN:" 580 [153] 590 [153]"KREDITSUMME:DM:";[181](SU[172]100[170].5)[173]100 600 [153]"" 610 [153]"MAKLERGEBUEHREN:DM:";[181](MK[172]100)[173]100 620 [153]"=======================================" 630 [153] 640 [153]"GESAMTKREDITHERAUSLAGE:DM:";[181](MK[172]100[170].5)[173]100[170]SU 650 [153] 660 [153]"KREDITGEBUEHREN:DM:";[181](KB[172]100[170].5)[173]100 679 [153] 680 [153]"BEARBEITUNGSGEBUEHREN:DM:";[181](GB[172]100[170].5)[173]100 690 [153] 700 [153]"GESAMTKREDITBETRAG:DM:";[181](G1[172]100[170].5)[173]100 710 [153]"=======================================" 720 [153]"RATENPLAN:" 721 R1[178][181](R1[172]100[170].5)[173]100 722 [139] P[178]0[167][137] 740 734 [153]"";L%[171]1;"RATEN:DM:";R2 735 [153] 736 [153]"LETZTE RATE:DM:";R1 737 [137] 764 740 [153]"ERSTE RATE:DM:";R1 750 [153] 760 [153]"WEITERE";L%[171]1;"RATEN:DM:";R2 764 [139] E$[178][199](137) [167] [137] 767 765 [139] E$[178][199](133)[167] [141] 25000 766 [137] 780 767 MH[178](MK[173]SU)[172]100 770 EF[178]24[172](((ZS[172]L%)[170]MH[170](GB[172]100[173]SU))[173](L%[170]1)) 771 EF[178][181](EF[172]100[170].5) 775 [153]"EFFEKT. JAHRESZINS:";EF[173]100 780 [153]"NOCH EINE BERECHNUNG?(J/N)" 790 [151] 198,0:[146]203,63:[161]F$ 800 [139] F$ [178][199](74)[167][137]382 810 [139] F$[178][199](78)[167][153][199](147):[137]1000 830 [139] F$[178][199](92)[167][141] 26000 835 [137] 790 900 [143] KASSOFIX HAUPTMENUE 1000 [153][199](147) 1010 [153]"****************************************" 1020 [153]"ON* WAIT*" 1030 [153]"ON* K A S S O F I X V.3 WAIT*" 1040 [153]"ON* MENUEAUSWAHL WAIT*" 1050 [153]"ON* (C) 1986 BY GERD BAUKELMANN WAIT*" 1060 [153]"ON****************************************" 1070 [153]"ON* *" 1080 [153]"ON* F1 WAIT RATENKREDITBERECHNUNG WAIT *" 1085 [153]"ON* *" 1090 [153]"ON* F2 WAIT RAHMENKREDIT WAIT *" 1095 [153]"ON* *" 1100 [153]"ON* F3 WAIT HYPOTHEKENDARLEHEN WAIT *" 1105 [153]"ON* *" 1110 [153]"ON* F4 WAIT SPARBRIEFBERECHNUNGEN WAIT *" 1115 [153]"ON* *" 1120 [153]"ON* F5 WAIT BONUSSPAREN WAIT *" 1125 [153]"ON* *" 1130 [153]"ON* F6 WAIT FARBEINSTELLUNG WAIT *" 1135 [153]"ON* *" 1137 [153]"ON* F7 WAIT HILFSMENUE WAIT *" 1138 [153]"ON* *" 1139 [153]"ON* F8 WAIT ENDE WAIT *" 1140 [153]"ON****************************************" 1145 [151]198,0:[146] 203,63 1150 [161] M$ 1160 [139] M$[178][199](133)[167][137]285 1170 [139] M$[178][199](137)[167][137]2000 1180 [139] M$[178][199](134)[167][137]3000 1190 [139] M$[178][199](138)[167][137]4000 1200 [139] M$[178][199](135)[167][137]5000 1210 [139] M$[178][199](139)[167][137]105 1220 [139] M$[178][199](136)[167][137]10000 1225 [139] M$[178][199](140)[167][153][199](147):[153]"BYE!":[129]I[178]1[164]2000:[130]I:[137] 5 1226 [139] ZL[178]2[175] M$[178][199](155)[167][141]30000 1227 [139] ZL[178]2 [175] KW$[179][177]KN$ [167] ZL[178]ZL[170]1:[137]1000 1230 [137] 1145 2000 [153][199](147):[153]"ON****************************************" 2010 [153]"ON* WAIT*" 2020 [153]"ON* R A H M E N K R E D I T WAIT*" 2030 [153]"ON* WAIT*" 2035 [153]"ON* WAIT*" 2040 [153]"ON****************************************" 2050 [153] 2060 [153]" EINGABE BENOETIGTER DATEN: WAIT":[153]:[153] 2065 KB[178]0:ZS[178]0:MR[178]0 2070 [133]"KREDITBETRAG: DM: WAIT";KB 2075 [139] KB[179]1000 [167] [153]"BETRAG MUSS MIND. DM 1000 SEINWAIT":[137]2070 2080 [153] 2085 [133]"ZINSSATZ IN % P.A.% : WAIT";ZS 2090 [139] ZS[179][178].1[167] [153]"ZINSSATZ IST FALSCH! WAIT":[137] 2085 2091 [139] ZS[177]30[167] [153]"ZINSSATZ IST ZU HOCH! WAIT":[137] 2085 2095 [153] 2100 [133]"MONATL. RATENHOEHE:DM: WAIT";MR 2101 [139] MR[179][178]0[167] [141] 2150:[137]2100 2102 [139] MR[177]KB[167] [141] 2150:[137]2100 2103 [139] KB[173]MR[177]100 [167] [141] 2150:[137]2100 2114 [137] 2156 2150 [153]"FALSCHE EINGABE!!! WAIT": 2155 [142] 2156 [153]:[153]"ZINSZAHLUNGSTERMIN:WAIT VWAITIERTELJAEHRLICH/" 2157 [153]"HWAITALBJAEHRLICH/JWAITAEHRLICH?" 2158 [151]198,0:[146] 203,63:[161] H$: 2159 [139] H$[178][199](86)[167]X[178]1:Y[178]90:Z[178]3:J$[178]"VIERTELJAEHRLICH":[153]J$:[137] 2163 2160 [139] H$[178][199](72)[167]X[178]2.5:Y[178]180:Z[178]6:J$[178]"HALBJAEHRLICH":[153]J$:[137] 2163 2161 [139] H$[178][199](74)[167]X[178]5.5:Y[178]360:Z[178]12:J$[178]"JAEHRLICH":[153]J$:[137] 2163 2162 [137] 2158 2163 [139]KB[173]MR[179]4[167] [153]"FALSCHE EINGABE!!!":[129] I[178]1 [164] 1000:[130]I:[137]2000 2164 [139] KB[173]MR[179]Z[167] [141]2150:[137] 2158 2165 [153]:[153]"AUSGABE DES EFF. JAHRESZINS?(J/N)" 2166 [151] 198,0:[146] 203,63:[161] G$:[139] G$[178][199](74)[167] P[178]1:[137] 2200 2167 [139] G$[178][199](78)[167] P[178]0:[137] 2200 2168 [137] 2166 2200 [143] RECHENROUTINE KONTOKORRENT 2201 ZH[178]0 2202 [139] KB[173]MR[179][178]Z [167] AW[178]KB:ZH[178]0:[137] 2400 2204 [139] ZH[179][177]0[167] BW[178]AW[171]X[172]MR:[137]2206 2205 BW[178]KB[171]X[172]MR 2206 RW[178]BW[173]100 2207 ZB[178]RW[172]Y[172]ZS[173]360:[139] ZH[177]0[167] [137]2209 2208 AW[178]KB[171](Z[172]MR)[170]ZB:ZH[178]Z:[137] 2211 2209 AW[178]AW[171](Z[172]MR)[170]ZB:ZH[178]ZH[170]Z 2211 [139] ZH [177]120 [167] [153][199](147);"EIN RAHMENKREDIT ZU SOLCHEN KONDI-WAIT" 2212 [139] ZH [177]120 [167] [153]"TIONEN KANN NICHT HERAUSGELEGT WERDEN!WAIT":[137] 2744 2220 [143] ABBRUCHBEDINGUNGEN FUER RECHNEN 2221 [139]AW[171](Z[172]MR)[179][178]0[167] [137]2400 2225 [137] 2204 2400 [143] RECHENROUTINE UNTERE VERZINSUNG 2401 K1[178]0:D[178]0 2402 [139] MR[177]AW [167] R2[178]AW[170]((AW[173]100)[172]30[172]ZS[173]360):[137] 2550 2415 KW[178]AW[173]100 2520 K1[178]K1[170](KW[172]30[172]ZS[173]360):D[178]D[170]1 2525 AW[178]AW[171]MR:ZH[178]ZH[170]1 2530 [139] AW[177]MR[167] [137]2415 2540 [139] D[179] Z [167] R2[178]AW[170]K1[170]((AW[173]100)[172]30[172]ZS[173]360) 2545 [139]D[177][178]Z [167] R2[178]AW[170]K1[170](((AW[170]K1)[173]100)[172]30[172]ZS[173]360) 2550 R3[178][171][181](R2[172]100)[170]R2[172]100 2551 [139] R3[177][178].5[167] R4[178]0.01 2552 [139] R3[179].5[167] R4[178]0 2553 R5[178][181](R2[172]100)[173]100[170]R4 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 2555 [153][199](147) 2600 MR[178][181](MR[172]100[170].5)[173]100 2605 R5[178][181](R5[172]100[170].5)[173]100 2680 [153]:[153]"AUSGABE DER DATEN:":[153] 2700 [153]"BEI EINER KREDITSUMME VON ":[153] 2710 [153]"DM ";[181](KB[172]100[170].5)[173]100:[153]:[153] 2730 [153]"ZU EINEM ZINSSATZ VON";ZS;"% P. A.":[153] 2735 [153]"ERGIBT SICH BEI EINER MONATLICHEN RATE":[153] 2738 [153]"VON DM";[181](MR[172]100[170].5)[173]100;"FOLGENDER RATENPLAN:":[153]:[153] 2739 [153]ZH;"RATEN ZU DM ";[181](MR[172]100[170].5)[173]100:[153] 2740 [153]"UND EINE RATE VON DM";R5:[153] 2741 [153]"ZINSZAHLUNGSTERMIN:";J$:[153] 2742 [153]"GESAMTKREDITBETRAG DM";ZH[172]MR[170]R5:[153]:[153] 2743 [139]P[178]1[167] [141] 20000 2744 [153]"NOCH EINE BERECHNUNG?(J/N)" 2750 [151]198,0:[146] 203,63:[161] H$ 2754 [139] H$[178][199](78)[167] [137]1000 2755 [139] H$[178][199](74)[167] [137]2000 2756 [139] H$[178][199](92)[167] [141]26000 2760 [137] 2750 3000 [143] HYPOTHEKENDARLEHEN 3010 [153][199](147) 3020 [153]"****************************************" 3030 [153]"ON* WAIT*" 3040 [153]"ON* H Y P O T H E K E N- WAIT*" 3045 [153]"ON* WAIT*" 3050 [153]"ON* D A R L E H E N WAIT*" 3060 [153]"ON****************************************" 3070 [143] EINGABE 3080 [153]"EINGABE BENOETIGTER DATEN: WAIT" 3090 [153]:[153]"WIE HOCH SOLL DIE SCHULDSUMME SEIN?" 3100 [133]"DM: WAIT";C 3105 [139] C[179]1000 [176] C[177]50000000 [167][137]3100 3110 [153]:[133]"WELCHE LAUFZEIT IN JAHREN";J 3115 [139] J[179]1 [176]J[177]50 [167][137]3110 3120 [153]:[133]"WELCHER ZINSSATZ (IN %)";Z 3125 [139] Z[179][178].1 [176] Z[177]30 [167] [137]3120 3200 [143] BERECHNEN DER ANNUITAET 3210 Q[178](1[170](Z[173]100)) 3220 RB[178]([171](Q[174][171]J)[170]1)[173](Q[171]1) 3230 AN[178]1[173]RB:AF[178]C[172]AN 3240 AC[178]AN[172]C:AC[178][181](AC[172]100)[173]100 3245 D[178]AC[173](((66[173]12)[172](Z[173]100))[170]12) 3246 D[178][181](D[172]100)[173]100 3252 [153]:[153]"SOLL EIN DISAGIO VEREINBART WERDEN?(J/N)" 3253 [151] 198,0:[146] 203,63:[161] F$ 3254 [139] F$[178][199](74)[167] [137] 3258 3255 [139] F$[178][199](78)[167] [137] 3259 3256 [137] 3253 3257 [137] 3258 3258 [141] 28000 3259 [153][199](147) 3260 [153]"AUSGABE DER DATEN:" 3270 [153] 3280 [153]"BEI EINER VERZINSUNG VON ";Z;"% ERGIBT" 3290 [153]:[153]"SICH FUER EINE LAUFZEIT VON ";J;" JAHREN " 3295 [153]:[153]"BEI EINEM KREDIT VON DM: ";[181](C[172]100[170].5)[173]100 3300 [153]:[153]"EINE JAEHRLICHE BELASTUNG VON" 3310 [153]:[153]"DM: ";AC 3315 [153]:[153]"DAS ENTSPRICHT EINER DURCHSCHNITTLICHEN" 3320 [153]:[153]"MONATLICHEN BELASTUNG VON DM: ";[181](D[172]100[170].5)[173]100 3321 [139] F$[178][199](78)[167] [137] 3330 3325 [139] F$[178][199](74) [167] [151] 214,18:[151] 211,0:[158]58640 3326 [153]"DIE EFFEKTIVE VERZINSUNG BETRAEGT BEI" 3327 [153]:[153]"EINEM DISAGIO VON ";ZD;"%: ";Z1;"%" 3328 [153]:[153]"AUSZAHLUNGSBETRAG: DM ";[181](L[172]100[170].5)[173]100 3330 [153]:[153]" TASTE DRUECKEN!" 3335 [151]198,0:[146]203,63:[161] H$ 3336 [139] H$[179][177][199](92)[167] [137] 3500 3337 [139] H$[178][199](92)[167] [141] 26000 3340 [137] 3335 3500 [153][199](147) 3505 J4[178]0:J5[178]0:Z5[178]Z:W[178]0:V[178]0 3510 [153][199](147) 3511 [153]"****************************************" 3512 [153]"ON* WAIT*" 3513 [153]"ON* H Y P O T H E K E N- WAIT*" 3514 [153]"ON* WAIT*" 3515 [153]"ON* D A R L E H E N WAIT*" 3516 [153]"ON****************************************" 3520 [153]"MOECHTEN SIE EINE SCHULDENSTAND-" 3530 [153]"BERECHNUNGWAIT VORNEHMEN? (J/N) WAIT" 3540 [151]198,0:[146]203,63:[161] H$ 3550 [139] H$[178][199](74) [167] [137] 3600 3560 [139] H$[178][199](78) [167] [137] 3575 3570 [137] 3540 3575 [153]:[153]"NOCH EINE BERECHNUNG? J/N" 3576 [151]198,0:[146]203,63:[161] H$ 3577 [139] H$[178][199](74) [167] [137] 3000 3578 [139] H$[178][199](78) [167] [137] 1000 3579 [137] 3576 3600 [143] SCHULDENSTANDBERECHNUNG 3610 [153]:[153]"WIEVIELE JAHRE LANG HABEN SIE BEREITS" 3620 [153]:[133]"IHRE RATEN BEZAHLT";J4 3625 [139] J4[179][178]0[167] [137] 3610 3626 [139] J4[177]J [167] [137] 3610 3627 [139] J4[178]J [167] [137] 3800 3630 J5[178]J[171]J4 3640 Z5[178]Z5[173]100 3650 Q[178]1[170]Z5 3660 RB[178](1[171](Q[174][171]J5))[173]Z5 3670 V[178]RB[172]AF 3680 W[178]C[171]V 3690 V[178][181](V[172]100)[173]100 3700 W[178][181](W[172]100)[173]100 3710 DF[178]C[171](V[170]W) 3711 [139] DF[177]0[167] W[178]W[170].01 3715 [153][199](147):[153]" SCHULDENSTAND:" 3716 [153]:[153]"BEI EINEM KREDIT VON DM";C;",EINER" 3717 [153]:[153]"LAUFZEIT VON "J;"JAHREN ZU EINEM ZINS-" 3718 [153]:[153]"SATZ VON ";Z5[172]100;"% P.A. 3719 IF J4=1THEN GOTO 3721 3720 PRINT:PRINT"HABEN SIE NACH ";J4;"JAHREN DM";W:GOTO3730 3721 PRINT:PRINT"HABEN SIE NACH EINEM JAHR DM";W 3730 PRINT 3735 PRINT"ABBEZAHLT." 3740 PRINT:PRINT"SIE HABEN NOCH DM ";V 3745 PRINT:PRINT"ZU ZAHLEN." 3750 PRINT:PRINT" TASTE DRUECKEN! " 3760 POKE198,0:WAIT 203,63:GETH$ 3770 IF H$=CHR$(92)THEN GOSUB26000 3780 IF H$<>CHR$(92)THEN PRINTCHR$(147):GOTO3259 3800 PRINTCHR$(147):PRINT" SCHULDENSTAND:" 3810 POKE 214,10:POKE211,0:SYS58640 3820 PRINT:PRINT"SIE HABEN KEINE SCHULDEN MEHR!" 3830 PRINT:PRINT 3840 PRINT:PRINT 3850 PRINT:PRINT" TASTE DRUECKEN! " 3860 POKE198,0:WAIT 203,63:GETH$ 3870 IF H$=CHR$(92)THEN GOSUB26000 3880 IF H$<>CHR$(92)THEN PRINTCHR$(147):GOTO3259 4000 REM SPARBRIEFBERECHNUNGEN 4005 GOSUB 4010 4006 GOTO 4080 4010 PRINTCHR$(147) 4020 PRINT"****************************************" 4030 PRINT"[145]* [146]*" 4040 PRINT"[145]* S P A R B R I E F - [146]*" 4045 PRINT"[145]* [146]*" 4050 PRINT"[145]* B E R E C H N U N G [146]*" 4060 PRINT"[145]****************************************" 4070 RETURN 4080 PRINT"[145]* *" 4085 PRINT"[145]* WAEHLEN SIE DEN SPARBRIEFTYP! [146] *" 4090 PRINT"[145]* *" 4095 PRINT"[145]* *" 4100 PRINT"[145]* F1 [146] AUFGEZINST [146] *" 4105 PRINT"[145]* *" 4110 PRINT"[145]* *" 4115 PRINT"[145]* F3 [146] ABGEZINST [146] *" 4120 PRINT"[145]* *" 4125 PRINT"[145]* *" 4130 PRINT"[145]* F5 [146] ZINSAUSZAHLUNG JAEHRLICH [146] *" 4140 PRINT"[145]* *" 4145 PRINT"[145]* *" 4150 PRINT"[145]* F7 [146] ZURUECK [146] *" 4155 PRINT"[145]* *" 4160 PRINT"[145]****************************************" 4170 REM AUSWAHLVERZWEIGUNG 4175 POKE 198,0:WAIT203,63:GET H$ 4177 IF H$=CHR$(133)THEN GOTO 4200 4180 IF H$=CHR$(134)THEN GOTO 4300 4185 IF H$=CHR$(135)THEN GOTO 4400 4186 IF H$=CHR$(136)THEN GOTO 1000 4190 GOTO 4175 4200 REM AUFGEZINSTER SPARBRIEF 4205 GOSUB 4010 4210 PRINT"AUFGEZINSTER SPARBRIEF [146]":PRINT 4215 PRINT"WELCHER BETRAG (MIN. DM 50,--)" 4220 INPUT" DM [146]:";DM 4221 IF DM<50 OR DM>50000000 THEN GOTO4215 4225 PRINT:PRINT 4230 INPUT"WELCHER ZINSSATZ (IN % P.A.)";PS 4231 IF PS<=.1 ORPS>30 THEN GOTO4230 4235 PRINT:INPUT"WELCHE LAUFZEIT (IN JAHREN)";J 4236 IF J<=0 ORJ>40 THEN GOTO4235 4240 PRINT:PRINT" TASTE DRUECKEN! [146] " 4245 POKE 198,0:WAIT 198,1 4246 REM BERECHNUNG 4250 Q=1+(PS/100) 4255 E=(Q^J)*DM 4256 E1=INT(E*100):E2=E1/10:E3=INT(E2):E4=E3/10 4257 IFE2-INT(E2)>=.5THEN E=E4+.1 4258 IFE2-INT(E2)<.5THEN E=E4 4260 PRINTCHR$(147):REM AUSGABE 4265 PRINT:PRINT:PRINT"DER AUFGEZINSTE SPARBRIEF ZUM NENN-" 4266 PRINT:PRINT"WERT VON DM: ";INT(DM*100+.5)/100;" ," 4270 PRINT:PRINT"EINER LAUFZEIT VON ";J;" JAHREN" 4275 PRINT:PRINT"UND ZINSEN VON ";PS;"% P. A." 4280 PRINT:PRINT"HAT EINEN RUECKZAHLUNGSWERT VON" 4285 PRINT:PRINT" DM: ";E 4287 PRINT:PRINT" TASTE DRUECKEN! " 4290 POKE 198,0:WAIT 203,63:GET H$ 4291 IF H$=CHR$(92)THEN GOSUB 26000 4292 IF H$<>CHR$(92)THEN GOTO 4000 4295 GOTO4290 4300 REM ABGEZINSTER SPARBRIEF 4305 GOSUB 4010 4310 PRINT"ABGEZINSTER SPARBRIEF [146]":PRINT 4315 PRINT"WELCHER BETRAG (MIN. DM 50,--)" 4320 INPUT" DM [146]:";DM 4321 IF DM<50 OR DM> 50000000 THEN GOTO4315 4325 PRINT:PRINT 4330 INPUT"WELCHER ZINSSATZ (IN % P.A.)";PS 4331 IF PS<=.1 OR PS>30 THEN GOTO4330 4335 PRINT:INPUT"WELCHE LAUFZEIT (IN JAHREN)";J 4336 IF J<=0 ORJ>40 THEN GOTO4335 4340 PRINT:PRINT" TASTE DRUECKEN! [146] " 4345 POKE 198,0:WAIT 198,1 4346 REM BERECHNUNG 4350 Q=1+(PS/100) 4355 E=(Q^-J)*DM 4356 E1=INT(E*100):E2=E1/10:E3=INT(E2):E4=E3/10 4357 IFE2-INT(E2)>=.5THEN E=E4+.1 4358 IFE2-INT(E2)<.5THEN E=E4 4360 PRINTCHR$(147):REM AUSGABE 4365 PRINT:PRINT:PRINT"DER ABGEZINSTE SPARBRIEF MIT EINEM" 4366 PRINT:PRINT"NENNWERT VON DM ";INT(DM*100+.5)/100;" ," 4370 PRINT:PRINT"EINER LAUFZEIT VON ";J;" JAHREN" 4375 PRINT:PRINT"UND ZINSEN VON ";PS;"% P. A." 4380 PRINT:PRINT"HAT EINEN KAUFPREIS VON" 4385 PRINT:PRINT" DM: ";E 4387 PRINT:PRINT" TASTE DRUECKEN! " 4390 POKE 198,0:WAIT 203,63:GET H$ 4391 IF H$=CHR$(92)THEN GOSUB 26000 4392 IF H$<>CHR$(92)THEN GOTO 4000 4395 GOTO4390 4400 REM JAEHRLICHE ZINSAUSZAHLUNG 4405 GOSUB 4010 4410 PRINT"SPARBBRIEF MIT JAEHRLICHER ZINSAUS-[146]" 4411 PRINT"ZAHLUNG [146]" 4415 PRINT:PRINT"WELCHER BETRAG (MIN. DM 50,--)" 4420 INPUT" DM [146]:";DM 4421 IF DM<50 ORDM>50000000 THEN GOTO4315 4425 PRINT:PRINT 4430 INPUT"WELCHER ZINSSATZ (IN % P.A.)";PS 4431 IF PS<=.1 OR PS>30 THEN GOTO4430 4435 PRINT:PRINT 4440 PRINT:PRINT" TASTE DRUECKEN! [146] " 4445 POKE 198,0:WAIT 198,1 4446 REM BERECHNUNG 4450 ZA=(PS/100)*DM 4455 Z1=INT(ZA*100):Z2=Z1/10:Z3=INT(Z2):Z4=Z3/10 4460 IFZ2-Z3<.5THENZ4=Z4 4465 IFZ2-Z3>=.5THENZ4=Z4+.1 4467 PRINTCHR$(147):REM AUSGABE 4470 PRINT:PRINT:PRINT"DER SPARBRIEF MIT EINEM NENNWERT VON " 4475 PRINT:PRINT"DM: ";INT(DM*100+.5)/100;" BRINGT BEI EINEM " 4477 PRINT:PRINT"ZINSSATZ VON ";PS;"% P. A. " 4480 PRINT:PRINT"ZINSEN IN HOEHE VON DM: ";Z4 4482 PRINT:PRINT 4485 PRINT:PRINT 4487 PRINT:PRINT 4489 PRINT:PRINT" TASTE DRUECKEN! " 4490 POKE 198,0:WAIT 203,63:GET H$ 4491 IF H$=CHR$(92)THEN GOSUB 26000 4492 IF H$<>CHR$(92)THEN GOTO 4000 4495 GOTO4390 5000 REM BONUSSPARPROGRAMM 5010 PRINTCHR$(147) 5020 PRINT"****************************************" 5030 PRINT"[145]* [146]*" 5040 PRINT"[145]* B O N U S S P A R E N [146]*" 5050 PRINT"[145]* [146]*" 5060 PRINT"[145]****************************************" 5070 PRINT"[145] DATENEINGABE [146]" 5080 POKE214,7:POKE211,0:SYS58640 5090 INPUT"SPARRATE: DM [146]";SR 5092 IF SR<=0 OR SR > 50000THENPRINT"FALSCHE EINGABE!!![146]":GOTO 5090 5093 INPUT"ZINSSATZ(IN%):  [146]";ZS 5095 IF ZS<=.1 OR ZS>30 THENPRINT"FALSCHE EINGABE!!! [146]":GOTO5092 5100 INPUT"WIEVIEL JAHRE?:  [146]";JH 5105 IFJH<=0 OR JH>40 THENPRINT"FALSCHE EINGABE!!![146]":GOTO5100 5110 INPUT"BONUSSATZ(IN%):  % [146]";BS 5111 IF BS<0 OR BS>100 THENPRINT"FALSCHE EINGABE!!![146]":GOTO5110 5115 PRINT"SPARRATE:(M)[146]ONATLICH/(V)[146]IERTELJAEHRLICH " 5116 PRINT"[145](H)[146]HALBJAEHLICH ODER (J)[146]JAEHRLICH?" 5121 WAIT 203,63:GET L$ 5122 EG=0:IFL$=CHR$(77)THENPRINT"MONATLICH[146]":EG=12:GOTO5130 5123 IFL$=CHR$(86)THENPRINT"VIERTELJAEHRLICH[146]":EG=4:GOTO5130 5124 IFL$=CHR$(74)THENPRINT"JAEHRLICH[146]":EG=1:GOTO5130 5125 IFL$=CHR$(72)THENPRINT" HALBJAEHRLICH[146]":EG=2:GOTO5130 5126 GOTO5121 5130 PRINT"ZAHLUNGSWEISE: V[146]ORSCHUESSIG M[146]EDIO " 5131 PRINT" ODER N[146]ACHSCHUESSIG?" 5132 FOR I=1TO300:NEXTI 5135 POKE198,0:WAIT203,63:GET N$ 5136 IFN$=CHR$(86) THEN KN=EG+1:J$="VORSCHUESSIG [146]":PRINT"";J$:GOTO5140 5137 IFN$=CHR$(77) THEN KN=EG:J$="MEDIO [146]":PRINT"";J$:GOTO5140 5138 IFN$=CHR$(78) THEN KN=EG-1:J$="NACHSCHUESSIG[146]":PRINT"";J$:GOTO5140 5139 GOTO5135 5140 PRINT:PRINT"T A S T E D R U E C K E N[146]" 5142 POKE198,0 5145 WAIT 198,1 5146 PRINTCHR$(147);"AUSGABE DER DATEN:":PRINT 5160 JR=SR*EG:JR=INT(JR*100+.5)/100 5161 KP=JR*JH:KP=INT(KP*100+.5)/100 5162 ZR=SR*ZS/100*KN/2:ZR=INT(ZR*100)/100 5163 J1=JR+ZR 5165 REM RENTENENDWERTFAKTOR 5170 Q=(1+(ZS/100)) 5175 RE=(-1+(Q^JH))/(ZS/100) 5180 EW=J1*RE:EW=INT(EW*100+.5)/100 5185 E1=EW-KP:E1=INT(E1*100+.5)/100 5190 BN=KP*BS/100:BN=INT(BN*100+.5)/100 5200 POKE 213,5:POKE211,0:SYS58640 5210 PRINT"JAEHRL. SPARSUMME:DM: ";JR 5215 PRINT 5220 PRINT"KAPITAL IN ";JH;" JAHREN:DM: ";KP 5225 PRINT 5230 PRINT"ZINSERTRAG:DM: ";E1 5235 PRINT 5240 PRINT"BONUSERTRAG:DM: ";BN 5245 PRINT 5250 PRINT"GESAMTBETRAG:DM: ";EW+BN 5251 PRINT:PRINT"ZINSSATZ: ";ZS;"% P. A." 5255 PRINT:PRINT:PRINT"****************************************" 5260 PRINT"WUENSCHEN SIE EINE RENTENBERECHNUNG ?" 5265 PRINT"BITTE J/N DRUECKEN!" 5270 PRINT:PRINT"****************************************" 5275 POKE 198,0:WAIT 203,63 5276 GET G$ 5280 IF G$=CHR$(74) THEN GOTO 5300 5283 IF G$=CHR$(78) THEN GOTO 5291 5285 IF G$=CHR$(92) THEN GOSUB 26000 5290 GOTO 5275 5291 PRINT"NOCH EINE BERECHNUNG?(J/N)" 5292 POKE 198,0:WAIT 203,63 5293 GET G$ 5294 IF G$=CHR$(74) THEN GOTO 5000 5295 IF G$=CHR$(78) THEN GOTO 1000 5296 GOTO 5292 5300 GOSUB 5302 :REM RENTENMENUE 5301 GOTO 5310 5302 PRINTCHR$(147):PRINT"[145]****************************************" 5303 PRINT"[145]* [146]*" 5304 PRINT"[145]* RENTENBERECHNUNG FUER BONUSSPAREN [146]*" 5305 PRINT"[145]* [146]*" 5306 PRINT"[145]****************************************" 5307 RETURN 5310 PRINT"[145]* *" 5311 PRINT"[145]* BESTIMMUNG DES RENTENKAPITALS [146] *" 5312 PRINT"[145]* *" 5313 PRINT"[145]* F1 [146] GESAMTBETRAG [146] *" 5314 PRINT"[145]* *" 5315 PRINT"[145]* *" 5316 PRINT"[145]* F3 [146] GESAMTBETRAG-BONUS [146] *" 5317 PRINT"[145]* *" 5318 PRINT"[145]* *" 5319 PRINT"[145]* F5 [146] ZINSERTRAG [146] *" 5320 PRINT"[145]* *" 5321 PRINT"[145]* *" 5322 PRINT"[145]* F7 [146] BONUSBETRAG [146] *" 5323 PRINT"[145]* *" 5324 PRINT"[145]* *" 5325 PRINT"[145]* F8 [146] BELIEBIGER BETRAG [146] *" 5326 PRINT"[145]* *" 5328 PRINT"[145]****************************************" 5329 POKE 198,0:WAIT203,63:GET H$ 5330 IF H$=CHR$(133)THEN RK=EW+BN:W$="GESAMTBETRAG [146]":GOTO5350 5335 IF H$=CHR$(134)THEN RK=EW:W$="GESAMTBETRAG-BONUS [146]":GOTO5350 5340 IF H$=CHR$(135)THEN RK=E1:W$="ZINSERTRAG [146]":GOTO5350 5341 IF H$=CHR$(140)THEN W$="BELIEBIGER BETRAG [146]" 5342 IF H$=CHR$(140)THEN PRINTCHR$(147):GOSUB 5302 5343 IF H$=CHR$(140)THEN INPUT"WELCHER BETRAG?DM: [146]";RK:GOTO5350 5345 IF H$=CHR$(136)THEN RK=BN:W$="BONUSBETRAG [146]":GOTO5350 5346 GOTO5329 5350 GOSUB 5302:IF RK<=0ORRK>5000000 THENPRINT"BETRAG IST FALSCH!!! [146]" 5351 IF RK<=0ORRK>5000000THEN FOR I=1TO 2000:NEXTI:GOTO5300 5352 REM RENTENZAHLUNGSPERIOSDE 5355 PRINT"[145]* *" 5356 PRINT"[145]* ZAHLUNGEN DER RENTEN [146] *" 5357 PRINT"[145]* *" 5358 PRINT"[145]*  M [146] MONATLICH [146] *" 5359 PRINT"[145]* *" 5360 PRINT"[145]* *" 5361 PRINT"[145]*  V [146] VIERTELJAEHRLICH [146] *" 5362 PRINT"[145]* *" 5363 PRINT"[145]* *" 5364 PRINT"[145]*  H [146] HALBJAEHRL [146] *" 5365 PRINT"[145]* *" 5366 PRINT"[145]* *" 5367 PRINT"[145]*  J [146] JAEHRL [146] *" 5368 PRINT"[145]* *" 5369 PRINT"[145]* *" 5370 PRINT"[145]****************************************" 5380 POKE 198,0:WAIT203,63:GET G$ 5385 IF G$=CHR$(77)THEN XK=12:V$="MONATLICH ":GOTO5400 5386 IF G$=CHR$(86)THEN XK=4:V$="VIERTELJAEHRLICH ":GOTO5400 5387 IF G$=CHR$(74)THEN XK=1:V$="JAEHRLICH ":GOTO5400 5388 IF G$=CHR$(72)THEN XK=2:V$="HALBJAEHRLICH ":GOTO5400 5395 GOTO5380 5399 GOSUB 5302 5400 GOSUB 5302 5401 REM RESTEINGABEN 5402 PRINT 5405 PRINT"ZAHLUNGSWEISE: V[146]ORSCHUESSIG M[146]EDIO " 5410 PRINT" ODER N[146]ACHSCHUESSIG?" 5411 POKE 198,0:WAIT203,63:GET H$ 5415 IFH$=CHR$(86) THEN K2=XK+1:J$="VORSCHUESSIG ":PRINTJ$:GOTO5435 5420 IFH$=CHR$(77) THEN K2=XK:J$="MEDIO ":PRINTJ$:GOTO5435 5425 IFH$=CHR$(78) THEN K2=XK-1:J$="NACHSCHUESSIG":PRINTJ$:GOTO5435 5430 GOTO5411 5435 PRINT:INPUT"WELCHER ZINSSATZ(IN%)";Z5 5436 IFZ5<=0.1 OR Z5>30 THENPRINT"FALSCHE EINGABE!!![146]":GOTO5435 5440 PRINT:PRINT"WIE LANGE [146] SOLL DIE RENTE GEZAHLT WERDEN" 5445 PRINT:INPUT"[145] 0 [146] FUER EWIGE RENTE [146]/ZAHLEN FUER JAHRE";DA:Z$="" 5446 IF DA=0THEN Z$=" EWIG ":GOTO5450 5447 IF DA>0 AND DA<50 THEN DA=0+DA:GOTO5450 5449 IF DA<1 OR DA>40 THENPRINT"FALSCHE EINGABE!!!":Z$=CHR$(DA):GOTO5440 5450 GOSUB 5302 5500 REM EINGABE PRUEFEN 5501 PRINT 5502 PRINT" UEBERPRUEFUNG DER EINGABEN:[146] " 5503 PRINT 5504 PRINT" RENTENKAPITAL:";W$ 5505 PRINT 5507 PRINT" ZAHLUNGSTERMIN:";V$ 5508 PRINT 5509 PRINT" ZAHLUNGSWEISE:";J$ 5510 REM 5511 PRINT 5512 PRINT"DAUER DER RENTE:";Z$ 5513 IF DA>0THENPOKE214,15:POKE211,20:SYS58640:PRINT" ";DA;" JAHRE [146]" 5514 PRINT 5515 PRINT"ZINSSATZ:";Z5;"%" 5516 PRINT 5517 PRINT"EINGABEN: R[146]ICHTIG/F[146]ALSCH?" 5520 POKE 198,0:WAIT203,63:GETK$ 5525 IF K$=CHR$(82)THEN GOTO5530 5526 IF K$=CHR$(70)THEN GOTO5300 5527 GOTO 5520 5530 REM RENTENBERECHNUNG 5535 REM SPRUNG INS UNTERPROGRAMM 5540 GOSUB 27000 5560 PRINTCHR$(147):PRINT"":GOTO5146 6000 REM 10000 REM HILFMENUE 10010 PRINTCHR$(147):PRINTCHR$(14) 10020 PRINT"****************************************" 10030 PRINT"[145]* [146]*" 10040 PRINT"[145]* [203][160][193][160][211][160][211][160][207][160][198] [201] [216][160]([200]ILFSMENUE) [146]*" 10042 PRINT"[145]* [146]*" 10050 PRINT"[145]****************************************" 10060 PRINT"[145]* [198]1 [146] [210]ATENKREDITBERECHNUNG [146] *" 10070 PRINT"[145]* *" 10080 PRINT"[145]* [198]2 [146] [210]AHMENKREDIT [146] *" 10090 PRINT"[145]* *" 10100 PRINT"[145]* [198]3 [146] [200]YPOTHEKENDARLEHEN [146] *" 10110 PRINT"[145]* *" 10120 PRINT"[145]* [198]4 [146] [211]PARBRIEFBERECHNUNG [146] *" 10130 PRINT"[145]* *" 10140 PRINT"[145]* [198]5 [146] [194]ONUSSPAREN [146] *" 10150 PRINT"[145]* *" 10160 PRINT"[145]* [198]6 [146] [198]ARBEINSTELLUNGEN [146] *" 10170 PRINT"[145]* *" 10180 PRINT"[145]* [198]7 [146] [196]RUCKMOEGLICHKEITEN [146] *" 10182 PRINT"[145]* *" 10185 PRINT"[145]* [198]8 [146] [218]URUECK INS [205]ENUE [146] *" 10190 PRINT"[145]****************************************" 10200 POKE198,0:WAIT 203,63 10210 GET H$ 10220 IF H$=CHR$(133)THEN GOTO11000 10230 IF H$=CHR$(137)THEN GOTO12000 10240 IF H$=CHR$(134)THEN GOTO13000 10250 IF H$=CHR$(138)THEN GOTO14000 10260 IF H$=CHR$(135)THEN GOTO15000 10270 IF H$=CHR$(139)THEN GOTO16000 10275 IF H$=CHR$(136)THEN GOTO17000 10280 IF H$=CHR$(140)THENPRINTCHR$(147):PRINTCHR$(142):GOTO1000 10290 GOTO10200 11000 REM KOMMENTAR ZUM RATENKREDIT 11010 PRINTCHR$(147) 11020 PRINT"****************************************" 11025 PRINT"* [210][193][212][197][206][203][210][197][196][201][212][197] *" 11030 PRINT"****************************************" 11040 PRINT 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]" 11050 PRINT"ERMOEGLICHT DAS [194]ERECHNEN VON [210]ATENKRE- " 11060 PRINT"[145]DITEN, WIE SIE UEBLICHERWEISE IM [194]ANKGE-" 11070 PRINT"[145]SCHAEFT VORGENOMMEN WERDEN." 11080 PRINT"[198]OLGENDES IST ZU BEACHTEN: " 11090 PRINT"1.) [194]EI UNRICHTIGEN [197]INGABEN MELDET" 11100 PRINT"SICH DAS [208]ROGRAMM MIT EINER [198]EHLERMEL-" 11110 PRINT"DUNG. 11120 [153]"2.)STR$IE (null)OSTEN DES (null)REDITES WERDEN " 11130 [153]"KAUFMAENNISCH JE NACH ATNNGABE GERUNDET." 11140 [153]"3.) STR$ER VALFFEKTIVE MID$AHREZINSWAIT WIRD ENT-" 11150 [153]"WEDER DURCH EIN EINFACHES ATNNNAEHERUNGS-" 11160 [153]"VERFAHREN ODER ITERATIV EXAKT BERECHNET." 11170 [153]"PEEKEI ITERATIVER PEEKERECHNUNG BRAUCHT DER " 11175 [153]"(null)ECHNER ZUM (null)EIL EINIGE (null)EIT." 11180 [153]"  (null)ATN(null)(null)VAL STR$(null)(null)VALLEN(null)VAL(null)! WAIT" 11190 [146] 203,63 11200 [161] V$ 11210 [139] V$[178][199](74)[167][153][199](147):[137]1010 11220 [153][199](147):[153][199](142):[137]1010 12000 [143] KOMMENTAR ZUM RAHMENKREDIT 12010 [153][199](147) 12020 [153]"****************************************" 12025 [153]"* (null)ATNLEFT$(null)VAL(null)(null)(null)VALSTR$RIGHT$(null) *" 12030 [153]"****************************************" 12040 [153] 12045 [153]"STR$ER (null)ROGRAMMPUNKT (null)ATNLEFT$(null)VAL(null)(null)(null)VALSTR$RIGHT$(null)WAIT" 12050 [153]"ERMOEGLICHT DAS KONTOKORRENTMAESSIGE " 12060 [153]"PEEKERECHNEN VON (null)REDITEN." " 12070 PRINT"[196]IE [218]INSBETRAEGE WERDEN JEWEILS" 12080 PRINT"ZUM ANGEGEBENEN [218]EITPUNKT KAPITALI-" 12090 PRINT"SIERT." 12100 PRINT"[196]IE [194]ERECHNUNG GEHT DAVON AUS, DASS " 12110 PRINT"DIE ERSTE MONATLICHE [210]ATE 30 [212]AGE" 12120 PRINT"NACH [193]USZAHLUNG DES [203]REDITES FAELLIG" 12130 PRINT"WIRD.":PRINT 12179 PRINT 12180 PRINT"  [212][193][211][212][197] [196][210][213][197][195][203][197][206]! [146]" 12190 WAIT 203,63 12200 GET V$ 12210 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010 12220 PRINTCHR$(147):PRINTCHR$(142):GOTO1010 12230 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010 12250 PRINTCHR$(147):PRINTCHR$(142):GOTO1010 13000 REM KOMMENTAR HYPOTHEKARDARLEHEN 13010 PRINTCHR$(147) 13020 PRINT"****************************************" 13025 PRINT"* [200][217][208][207][212][200][197][203][197][206][196][193][210][204][197][200][197][206] *" 13030 PRINT"****************************************" 13040 PRINT 13045 PRINT"[200]YPOTHEKENDARLEHEN WERDEN IN DER [210]E-" 13050 PRINT"GEL FUER [194]AU- ODER [210]ENOVIERUNGSFINAN-" 13060 PRINT"ZIERUNGEN VERGEBEN." 13070 PRINT"[199]EMAESS $1113 [194][199][194] VERLANGEN DIE [194]ANKEN" 13080 PRINT"ALS [211]ICHERHEIT EINE [194]ELASTUNG DES " 13090 PRINT"[199]RUNDSTUECKS ([200]YPOTHEK)." 13100 PRINT"[196]AS [208]ROGRAMM BERECHNET BANKUEBLICH" 13110 PRINT"DIE MONATLICHE [194]ELASTUNG, WENN " 13120 PRINT"VORSCHUESSIG BEZAHLT WIRD." 13130 PRINT"[194]EI VEREINBARTEM [193]BGELD ([196]ISAGIO) WIRD" 13140 PRINT"DIE TATSAECHLICHE [214]ERZINSUNG AUF" 13150 PRINT"DER [194]ASIS DES [193]USZAHLUNGSBETRAGES" 13160 PRINT"ITERATIV ERMITTELT." 13170 PRINT"[196]AS [208]ROGRAMM ERLAUBT FERNER EINE" 13180 PRINT"[211]CHULDENSTANDBERECHNUNG." 13200 PRINT 13220 PRINT"  [212][193][211][212][197] [196][210][213][197][195][203][197][206]! [146]" 13230 WAIT 203,63 13240 GET V$ 13250 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010 13260 PRINTCHR$(147):PRINTCHR$(142):GOTO1010 14000 REM SPARBRIEFE 14010 PRINTCHR$(147) 14020 PRINT"****************************************" 14025 PRINT"* [211][160][208][160][193][160][210][160][194][160][210][160][201][160][197][160][198][160][197] *" 14030 PRINT"****************************************" 14040 PRINT 14045 PRINT"[211]PARBRIEFE SIND [206]OMINALPAPIERE IM" 14050 PRINT"[211]INNE DES $ 808 [194][199][194]. [196]IE [194]ANKEN VER-" 14060 PRINT"KAUFEN IN DER [210]EGEL DREI [212]YPEN SOLCHER" 14070 PRINT"[211]PARBRIEFE:" 14080 PRINT"1.) AUFGEZINSTE [146] " 14090 PRINT"[197]S HANDELT SICH UM [211]PARBRIEFE MIT [218]INS-" 14100 PRINT"ANSAMMLUNG" 14110 PRINT"2.) ABGEZINSTE [146] " 14120 PRINT"[197]S HANDELT SICH UM [211]PARBRIEFE, DEREN" 14130 PRINT"[203]AUFPREIS DEM DURCH [204]AUFZEIT UND [218]INS-" 14140 PRINT"SATZ ABGEZINSTEN [206]ENNWERT ENTSPRICHT." 14150 PRINT"3.) MIT JAEHRLICHER [218]INSAUSZAHLUNG [146]" 14160 PRINT"[196]ER [218]INSERTRAG WIRD NACH JEWEILS 12" 14170 PRINT"[203]ALENDERMONATEN AUSGEZAHLT." 14200 PRINT 14210 PRINT 14220 PRINT"  [212][193][211][212][197] [196][210][213][197][195][203][197][206]! [146]" 14230 WAIT 203,63 14240 GET V$ 14250 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010 14260 PRINTCHR$(147):PRINTCHR$(142):GOTO1010 15000 REM KOMENTAR BONUSSPAREN 15010 PRINTCHR$(147) 15020 PRINT"****************************************" 15025 PRINT"* [194][207][206][213][211][211][208][193][210][197][206] *" 15030 PRINT"****************************************" 15040 PRINT"[194][207][206][213][211][211][208][193][210][197][206] IST EINE [205]OEGLICHKEIT,SICH" 15045 PRINT"DURCH [211]PARRATEN UEBER EINEN GEWISSEN" 15050 PRINT"[218]EITRAUM FUER ZUKUENFTIGE [196]ISPOSITIO-" 15055 PRINT"NEN EIN ANGEMESSENES [203]APITAL ZU BE-" 15060 PRINT"SCHAFFEN. [196]IE [194]ANKEN GEWAEHREN IN DER " 15070 PRINT"[210]EGEL AM [197]NDE DER [204]AUFZEIT AUF DIE EIN-" 15080 PRINT"GEZAHLTE [211]UMME EINEN [194]ONUSPROZENTSATZ," 15090 PRINT"DER VON DER [199]ESAMTLAUFZEIT ABHAENGIG " 15100 PRINT"IST. [196]A DIESE [211]PARFORM DIE [211]CHAFFUNG" 15119 PRINT"EINER ZUKUENFTIGEN [218]USATZRENTE ERMOEG-" 15120 PRINT"LICHT, IST EIN [210]ENTENBERECHNUNGSPRO-" 15130 PRINT"GRAMM ANGEFUEGT." 15131 PRINT"[194]EIM [210]ENTENPROGRAMM WIRD DAVON AUSGE-" 15132 PRINT"GANGEN, DASS DIE [210]ENTENZAHLUNG 1 [202]AHR " 15133 PRINT"NACH [214]ERTRAGSENDE BEGINNT." 15134 PRINT 15140 PRINT"  [212][193][211][212][197] [196][210][213][197][195][203][197][206]! [146]" 15150 POKE198,0:WAIT 198,1 15160 PRINTCHR$(142) 15170 PRINTCHR$(147):GOTO1000 16000 PRINTCHR$(147) 16020 PRINT"****************************************" 16025 PRINT"* [198][193][210][194][197][201][206][211][212][197][204][204][213][206][199] *" 16030 PRINT"****************************************" 16040 PRINT 16045 PRINT"[196]URCH [196]RUCK AUF [198]6 GELANGEN [211]IE " 16050 PRINT"WIEDER INS [198]ARBEINSTELLUNGSMENUE. " 16055 PRINT:PRINT 16060 PRINT"[194]EI GLEICHER [211]CHRIFT- UND [200]INTERGRUND- " 16070 PRINT"FARBE WIRD EINE [198]EHLERMELDUNG " 16080 PRINT"AUSGEGEBEN." 16179 PRINT 16180 PRINT"  [212][193][211][212][197] [196][210][213][197][195][203][197][206]! [146]" 16190 WAIT 203,63 16200 GET V$ 16210 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010 16220 PRINTCHR$(147):PRINTCHR$(142):GOTO1010 16230 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010 16250 PRINTCHR$(147):PRINTCHR$(142):GOTO1010 17000 REM DRUCKEN 17010 PRINTCHR$(147) 17020 PRINT"****************************************" 17025 PRINT"* [196][210][213][195][203][205][207][197][199][204][201][195][200][203][197][201][212] *" 17030 PRINT"****************************************" 17040 PRINT"[197]S BESTEHT DIE [205]OEGLICHKEIT, SICH DIE" 17045 PRINT"[210]ECHENERGEBNISSE DER [196]ATENAUSGABE AUS-" 17050 PRINT"DRUCKEN ZU LASSEN." 17055 PRINT 17056 PRINT 17060 PRINT"[211]CHALTEN [211]IE ZUNAECHST [201]HREN [196]RUCKER EIN" 17070 PRINT"[145]UND BETAETIGEN [211]IE DANN DIE \-[212]ASTE." 17080 PRINT"[211]OFORT BEGINNT DER [193]USDRUCK." 17090 PRINT:PRINT 17180 PRINT"  [212][193][211][212][197] [196][210][213][197][195][203][197][206]! [146]" 17190 WAIT 203,63 17200 GET V$ 17210 IF V$=CHR$(74)THENPRINTCHR$(147):GOTO1010 17220 PRINTCHR$(147):PRINTCHR$(142):GOTO1010 20000 REM JAEHRL. EFFEKTIVZINS 20005 POKE214,23:POKE211,0:SYS58640 20006 PRINT"BITTE WARTEN![146]" 20010 REM FUER RAHMENKREDIT 20015 IF Z=12THEN EX=ZS:GOTO20110 20020 R=ZS/100 20030 DA=ZH+1 20040 J=INT(DA/12) 20049 L1=DA-(J*12) 20050 LR=DA-(J*12)-1 20051 R=R+.0001 20055 RF=(1-(1+R)^-J)/R 20056 K1=(5.5*R*MR+(12*MR))*RF 20057 FJ=(1+R)^(-DA/12) 20060 K2=((LR*(LR+1)/24)*R*MR+(LR*MR+R5))*FJ 20070 K3=K1+K2 20080 IF K3>KBTHEN GOTO20051 20090 REM EFFI AUSGEBEN 20100 EX=INT(R*10000)/100 20110 POKE214,23:POKE211,0:SYS58640 20120 PRINT"EFFEKTIVER JAHRESZINS=";EX;"%" 20130 RETURN 25000 REM UNTERPROG. EFFEKTIVZINS 25008 IF P=1 THEN GOSUB 35000 25009 IF P=1 THEN RETURN 25010 REM ERMITTLUNG DES 25020 REM EFFEKTIVEN JAHRESZINSES 25030 POKE214,23:POKE211,10:SYS58640 25040 PRINT"BITTE WARTEN ![146]" 25100 REM VARIABLEN ZUORDNEN 25105 EH=0:EF=0:MH=0:L1=0:J1=0:J2=0:J3=0 25106 L1=(L%-12)/12 25107 MH=(MK/SU)*100 25108 EF=24*(((ZS*L%)+MH+(GB*100/SU))/(L%+1)) 25109 EH=EF/100 25110 REM ERSTE JAHR 25111 J1=(((11/12)*R1*EH)+((55/12)*EH*R2)+R1+(11*R2))/(1+EH) 25112 RB=(1-((1+EH)^-L1))/(EH) 25113 J2=(((5.5*EH*R2)+(12*R2))/(1+EH))*RB 25114 J3=J1+J2 25115 IF J3>SU THEN GOTO25120 25116 IF J3.5THEND=1 27130 IFE-INT(E)<.5THEND=0 27135 E=INT(E)+D 27140 E=E/100 27150 REM AUSGABE AUF BILDSCHIRM 27160 PRINTCHR$(147):POKE214,3:POKE211,0:SYS58640 27170 PRINT"****************************************" 27180 PRINT"* *" 27190 PRINT"IHRE RENTE BETRAEGT: DM";INT(E*100+.5)/100 27200 PRINT 27210 PRINT"GEZAHLT WIRD JEWEILS ";V$ 27220 PRINT 27230 PRINT"ZAHLUNGSWEISE: ";J$ 27240 PRINT 27250 PRINT"DAUER DER RENTE: ";DA;" JAHRE" 27251 PRINT 27260 PRINT"ZINSSATZ:";Z5;"% P. A." 27270 PRINT"* *" 27280 PRINT"****************************************" 27300 IF DA=0THENPOKE214,13:POKE211,16:SYS58640 27310 IF DA=0THENPRINTZ$;" " 27315 PRINT:PRINT:PRINT:PRINT 27316 PRINT"TASTE DRUECKEN! " 27317 POKE198,0:WAIT203,63:GET G$ 27318 IF G$=CHR$(92)THEN GOSUB26000 27319 IF G$=CHR$(92) THEN GOTO 27317 27320 IF G$<>CHR$(92)THEN PRINTCHR$(147) 27321 RETURN 28000 REM UNTERPROGRAMM 28010 REM EFFEKTIVE VERZINSUNG 28020 REM BEI DISAGIO 28030 POKE 214,20:POKE211,0:SYS58640 28040 INPUT"WIEVIEL % DISAGIO (MAX. 20%)";ZD 28045 IFZD>20THEN28040 28050 IFZD<=0THEN28040 28055 POKE 214,20:POKE211,0:SYS58640 28056 FORI=1TO 200:POKE(1800+I),32:NEXT I 28057 POKE 214,20:POKE211,0:SYS58640 28058 PRINT" BITTE WARTEN![146] " 28060 L=C-((ZD/100)*C) 28070 REM ITERATION ERSTELLEN 28080 Z1=Z/100 28090 Z1=Z1+.0001 28100 R1=(1-((1+Z1)^-J))/Z1 28110 R2=L/AC 28120 IF R1>R2THENGOTO 28090 28125 Z1=INT(Z1*10000)/100 28130 POKE 214,20:POKE211,0:SYS58640 28170 RETURN 30000 IFZL=2AND KW$=KN$ THENRETURN 30001 IFZL<>2 THENRETURN 30005 PRINTCHR$(147):POKE214,10:POKE211,10:SYS58640 30010 PRINT"";KN$;"[146]":FORI=1 TO2000:NEXTI:PRINTCHR$(147):RETURN 35000 REM UNTERPROG. ZUR ITERATIVEN 35010 REM ERMITTLUNG DES 35020 REM EFFEKTIVEN JAHRESZINSES 35030 POKE214,23:POKE211,10:SYS58640 35040 PRINT"BITTE WARTEN ![146]" 35100 REM VARIABLEN ZUORDNEN 35105 EH=0:EF=0:MH=0:L1=0:J1=0:J2=0:J3=0 35106 L1=((L%-12)/12):L2=(L%/12)-L1 35107 MH=(MK/SU)*100 35108 EF=24*(((ZS*L%)+MH+(GB*100/SU))/(L%+1)) 35109 EH=EF/100 35110 REM LEZTE JAHR 35111 J1=(((1/12)*R1*EH)+((65/12)*EH*R2)+R1+(11*R2))/((1+EH)^(L2)) 35112 RB=(1-(1+EH)^-L1)/EH 35113 J2=(((5.5*EH*R2)+(12*R2))/(1+EH))*RB 35114 J3=J1+J2 35115 IF J3>SU THEN GOTO35120 35116 IF J3