M&O formules

ClrHome
Output(3,4,"MO Solver"
Output(4,7,"v2.4"
Output(6,4,"Created by"
Output(7,7,"Jad"
Pause
Lbl A1
ClrHome
Menu(" Bereken: ","Enkelvoudig",B1,"Samengesteld",B2,"Eindwaarde",B3,"Contante",B4,"Quit",Q1
Lbl B1
Menu(" Onbekende: ","Bedrag",C1,"Kapitaal",C2,"Percentage",C3
Lbl B2
Menu(" Onbekende: ","Eindbedrag",D1,"Beginkapitaal",D2
Lbl B3
Menu(" Onbekende: ","Eindwaarde",E1
Lbl B4
Menu(" Onbekende: ","Contante Waarde",F1
Lbl C1
ClrHome
Input "Kapitaal=",K
Input "Percentage=",P
Input "Jaren=",T
P/100üR
K*R*TüU
Output(5,1,"Bedrag:"
Output(6,1,U
Pause
Goto A1
Lbl C2
ClrHome
Input "Percentage=",P
Input "Jaren=",T
Input "Interest=",K
P/100üR
K/TüJ
J/RüU
Output(5,1,"Kapitaal:"
Output(6,1,U
Pause
Goto A1
Lbl C3
ClrHome
Input "Interest=",I
Input "Jaren=",J
Input "Kapitaal=",K
I/JüL
K+LüW
W/KüR
R-1üY
Y*100üU
Output(5,1,"Percentage="
Output(6,1,U
Pause
Goto A1
Lbl D1
Input "Beginkapitaal=",K
Input "Percentage=",P
Input "Jaren=",J
P/100üR
K*(1+R)^JüU
Output(5,1,"Eindbedrag:"
Output(6,1,U
Pause
Goto A1
Lbl D2
ClrHome
Input "Eindkapitaal=",K
Input "Percentage=",R
Input "Jaren=",J
R/100üI
K*(1+I)^(ú7)üU
Output(5,1,"Conante:"
Output(6,1,U
Pause
Goto A1
Lbl E1
ClrHome
Input "Termijn=",K
Input "N=",N
Input "Percentage=",P
P/100üR
T*((1+R)*((1+R)^N-1)/R)üU
Output(5,1,"Eindwaarde:"
Output(6,1,U
Pause
Goto A1
Lbl F1
ClrHome
Input "Termijn=",T
Input "N=",N
Input "Percentage=",P
P/100üR
T*((1-(1+R)^úN)/RüU
Output(5,1,"Contante:"
Output(6,1,U
Pause
Goto A1
Lbl Q1
DelVar K
DelVar P
DelVar T
DelVar R
DelVar U
DelVar I
DelVar L
DelVar W
DelVar N
ClrHome
Return