rem written by Stefan K„chele, Freiburg 1990, Germany
rem no unauthorized reproduktion !!!
rem have fun with your money growing
c$ = "Monaten": c1$ = "Jahren": c2$ = "Monatlicher"
c3$ = "Jaehrlicher": c4$ = "monatlicher": c5$ = "jaehrlicher"
GOTO 1
3: ks = e / kw: FOR r = 0 TO 3
4: p = p + 1 / (10 ^ r): q = (((1 + p / 100) ^ l) - 1) * (p + 100) / p
IF ks > q THEN GOTO 4
s = p - 1 / (10 ^ r): p = s: NEXT r: RETURN
1: CLS : PRINT "      Zinsrechnung:":?           
?"Wollen Sie von einer fixen Summe (kf)"
?"ausgehen oder einem monatl. wachsenden"
?"Ansparbetrag (kw)"
PRINT : INPUT "                   "; a$
IF a$ <> "kf" AND a$ <> "kw" THEN GOTO 1
2: CLS
?:?:?:?"Soll Ihr Kapital monatlich (m) oder"
?"j„hrlich (j) verzinst werden":INPUT "                 "; b$
IF b$ <> "m" AND b$ <> "j" THEN GOTO 2:
IF b$ = "m" THEN d$ = c$: f$ = c2$: g$ = c4$: GOTO 190
d$ = c1$: f$ = c3$: g$ = c5$
190 : CLS : IF a$ = "kf" THEN GOTO 220
INPUT "Monatliche Kapitaleinlage:kw="; kw
GOTO 230
220 : CLS :INPUT "Anfangskapital:kf="; k
230 : PRINT "Laufzeit in " + d$ + " :L=": INPUT l1
PRINT f$ + " Satz der Verzinsung:Pz=": INPUT p1
INPUT "Endkapital:Ke"; e
CLS : IF b$ = "j" THEN p = p1 / 12: l = l1 * 12: GOTO 280
p = p1: l = l1
280 : IF k * l * p > 0 THEN e = k * ((1 + p / 100) ^ l): GOTO 37
IF k * l * e > 0 THEN p = 100 * ((e / k) ^ (1 / l) - 1): GOTO 37
IF k * p * e > 0 THEN l = LOG(e / k) / LOG((p / 100) + 1): GOTO 37
IF l * p * e > 0 AND a$ = "kf" THEN k = e / (((p / 100) + 1) ^ l): GOTO 37
IF kw * l * p > 0 THEN e = kw * ((((p / 100) + 1) ^ l) - 1) * (p + 100) / p: GOTO 37
IF kw * l * e > 0 THEN GOSUB 3: GOTO 37
IF kw * p * e > 0 THEN l = LOG((e * p) / (kw * (p + 100)) + 1) / LOG((p / 100) + 1): GOTO 37
IF l * p * e > 0 THEN kw = (p * e) / ((((1 + p / 100) ^ l) - 1) * (p + 100)): GOTO 37
GOTO 1
37 : e = INT(100 * e) / 100: PRINT "Das Endkapital betr„gt:"; e; "DM"
kw = INT(100 * kw) / 100: IF a$ = "kw" THEN PRINT "bei monatl. Einlage von:"; kw; "DM, ": GOTO 40
k = INT(k * 100) / 100: PRINT "bei einem Startkapital von:"; k; "DM, "
40 : l1 = l: p1 = p: IF b$ = "j" THEN l1 = l / 12: p1 = p * 12
p1 = INT(1000 * p1) / 1000: l1 = INT(100 * l1) / 100: PRINT"einer Laufzeit von:"; l1; d$
PRINT "und " + g$ + " Verzinsung von:"; p1; "%"