\START\
\COMMENT=
\NAME=SPAREN
\FILE=sparen.85P
Lbl Zz
ClLCD
Disp "   Schmedi@sax.de:"
Disp "Errechnung der Zinsen"
Disp "---------------------"
Disp ""
Input "Anfangskapital:",Ka
Input "Anlagezeit in Jahren:",At
Input "Zinssatz in %:",p
(Ka*((100+p)/100)^At)\->\Ke
Disp "Endkapital:"
Disp Ke
Lbl MM
Menu(1,"again",Zz,2,"Zins",Zi,3,"more",ho,5,"EXIT",E)
Lbl Zi
Disp "Der Zins betraegt:"
(Ke-Ka)\->\Zi
Disp Zi
Goto MM
Lbl E
""\->\Ke:""\->\Ke2:""\->\p2:""\->\At:""\->\p:""\->\Zi:""\->\At2
Stop
Lbl ho
ClLCD
Disp "Anfangskapital:",Ke
Input "Anlagezeit in Jahren:",At2
Input "Zinssatz in %:",p2
(Ke*((100+p2)/100)^At2)\->\Ke2
Ke2\->\Ke
Disp "Endkapital:"
Disp Ke2
Goto MM
\STOP\