\START\
\COMMENT=
\NAME=SPAR2
\FILE=spar2.85P
ClLCD
0\->\KN:0\->\K0:0\->\NN:0\->\KP
Disp "   Schmedi@sax.de:"
Disp " Zinseszinsrechnung"
Disp "---------------------"
Disp " "
Disp "Was ist gesucht ?"
Disp " "
Menu(1,"Kn",KN1,2,"K0",K01,3,"n",NN1,4,"p",P1,5,"exit",EE)

Lbl KN1
Input "Anlagezeit in Jahren: ",NN
Input "Anfangskapital: ",K0
Input "Zinssatz in %: ",KP
(K0*((100+KP)/100)^NN)\->\KN
Disp ""
Disp "Das Endkapital:"
Disp KN
Goto EE

Lbl K01
Input "Anlagezeit in Jahren: ",NN
Input "Endkapital: ",KN
Input "Zinssatz in %: ",KP
(KN/(((100+KP)/100)^NN))\->\K0
Disp "Das Anfangskapital:"
Disp K0
Goto EE

Lbl NN1
Input "Anfangskapital: ",K0
Input "Endkapital: ",KN
Input "Zinssatz in %: ",KP
((log (KN/K0))/(log ((100+KP)/100)))\->\NN
Disp "Anlagezeit:"
Disp NN
Goto EE

Lbl P1
Input "Anfangskapital: ",K0
Input "Endkapital: ",KN
Input "Anlagezeit in Jahren:",NN
((NN\xRooty\(KN/K0))*100-100)\->\KP
Disp "Zinssatz in %:"
Disp KP
Lbl EE
""\->\KN:""\->\K0:""\->\NN:""\->\KP
Stop
\STOP\