home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh23c.d64
/
kassofix
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
37KB
|
1,174 lines
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<SU THEN GOTO25240
25120 REM
25121 REM ZUNEHMENDER ZINS
25122 EH=((EH*100)+.01)/100
25130 J1=(((11/12)*R1*EH)+((55/12)*EH*R2)+R1+(11*R2))/(1+EH)
25131 REM BERECHNUNG DES
25140 REM RENTENBARWERTFAKTOR
25150 RB=(1-((1+EH)^-L1))/(EH)
25160 J2=(((5.5*EH*R2)+(12*R2))/(1+EH))*RB
25161 REM
25170 J3=J1+J2
25175 POKE 214,0:POKE211,0:SYS58640
25176 PRINT"ITERATION BEI DM: [146]";INT(J3*100)/100
25177 PRINT"ITERATION BEI % : [146]";" ":POKE214,1:POKE211,18:SYS58640
25178 PRINT;INT(EH*10000)/100:POKE214,0:POKE211,0:SYS58640
25179 POKE 214,0:POKE211,0:SYS58640
25180 IFJ3<SU THEN GOTO25500
25181 GOTO25122
25200 REM
25210 REM
25220 REM ITERATION MIT ABNEHMENDEN
25230 REM ZINS
25240 J1=0:J2=0:J3=0
25300 EH=((EH*100)-.01)/100
25310 J1=(((11/12)*R1*EH)+((55/12)*EH*R2)+R1+(11*R2))/(1+EH)
25320 REM ABNEHMENDER ZINS
25400 REM RENTENBARWERTFAKTOR
25410 REM
25420 RB=(1-((1+EH)^-L1))/(EH)
25430 J2=(((5.5*EH*R2)+(12*R2))/(1+EH))*RB
25440 J3=J1+J2
25450 POKE 214,0:POKE211,0:SYS58640
25460 PRINT"ITERATION BEI DM: [146]";INT(J3*100)/100
25470 PRINT"ITERATION BEI % : [146]";" ":POKE214,1:POKE211,18:SYS58640
25475 PRINT;INT(EH*10000)/100:POKE214,0:POKE211,0:SYS58640
25480 POKE 214,0:POKE211,0:SYS58640
25490 IF-J3<-SU THEN GOTO25500
25495 GOTO25300
25500 REM AUSGABE DES EFFI
25510 EH= EH*100
25511 EH=INT(EH*100+.5)/100
25512 REM
25513 POKE 214,23:POKE211,6:SYS58640
25520 PRINT"EFFEKT. JAHRESZINS= ";EH
25530 RETURN
26000 REM HARDCOPYROUTINE
26005 OPEN4,4,4:CMD 4
26010 FOR I=1024 TO 1984 STEP 40: REM 25 ZEILEN
26015 BZ$="":REM GESAMTZEILE LOESCHEN
26020 FOR J=0 TO 39:REM 40 ZEICHEN
26030 Z=PEEK(I+J):REM ZEICHEN LESEN
26040 IF Z<32 THEN Z=Z+64:REM UMWANDLUNG
26050 BZ$=BZ$+CHR$(Z)
26060 NEXT J
26070 PRINTBZ$
26080 NEXT I:CLOSE 4
26090 RETURN
27000 REM UNTERPROGRAMM
27010 REM ANNUITAETEN
27020 REM UND RENTENBERECHNUNG
27030 REM ANNUITAETENFAKTOR
27040 Q=(Z5/100)+1
27050 A1=1-(Q^-DA):IF DA=0THENA1=1
27060 A2=((Z5/100)/A1)*Q
27070 RT=RK*A2
27080 Z6=(XK*K2)/(XK*2)
27090 Z7=Z6*(Z5/100)
27100 E=RT/(XK+Z7)
27110 E=E*100
27120 IFE-INT(E)>.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<SU THEN GOTO35240
35120 REM
35121 REM ZUNEHMENDER ZINS
35122 EH=((EH*100)+.01)/100
35130 J1=(((1/12)*R1*EH)+((65/12)*EH*R2)+R1+(11*R2))/((1+EH)^(L2))
35131 REM BERECHNUNG DES
35140 REM RENTENBARWERTFAKTOR
35150 RB=(1-((1+EH)^-L1))/(EH)
35160 J2=(((5.5*EH*R2)+(12*R2))/(1+EH))*RB
35170 J3=J1+J2
35175 POKE 214,0:POKE211,0:SYS58640
35176 PRINT"ITERATION BEI DM: [146]";INT(J3*100)/100
35177 PRINT"ITERATION BEI % : [146]";" ":POKE214,1:POKE211,18:SYS58640
35178 PRINT;INT(EH*10000)/100:POKE214,0:POKE211,0:SYS58640
35179 POKE 214,0:POKE211,0:SYS58640
35180 IFJ3<SU THEN GOTO35500
35181 GOTO35122
35240 J1=0:J2=0:J3=0
35300 EH=((EH*100)-.01)/100
35310 J1=(((1/12)*R1*EH)+((65/12)*EH*R2)+R1+(11*R2))/((1+EH)^(L2))
35320 REM ABNEHMENDER ZINS
35400 REM RENTENBARWERTFAKTOR
35410 REM
35420 RB=(1-((1+EH)^-L1))/(EH)
35430 J2=(((5.5*EH*R2)+(12*R2))/(1+EH))*RB
35440 J3=J1+J2
35450 POKE 214,0:POKE211,0:SYS58640
35460 PRINT"ITERATION BEI DM: [146]";INT(J3*100)/100
35470 PRINT"ITERATION BEI % : [146]";" ":POKE214,1:POKE211,18:SYS58640
35475 PRINT;INT(EH*10000)/100:POKE214,0:POKE211,0:SYS58640
35480 POKE 214,0:POKE211,0:SYS58640
35490 IF-J3<-SU THEN GOTO35500
35495 GOTO35300
35500 REM AUSGABE DES EFFI
35510 EH= EH*100
35511 EH=INT(EH*100+.5)/100
35513 POKE 214,23:POKE211,6:SYS58640
35520 PRINT"EFFEKT. JAHRESZINS= ";EH
35530 RETURN