M&O solver

ClrHome
Output(3,2,"M&O Solver"
Output(4,7,"v1.1"
Output(6,4,"Created by"
Output(7,2,"Jad"
Pause
Lbl A1
ClrHome
Menu(" Bereken: ","Enkelvoudig Interest",B1,"Samengesteld Interest",B2,"Eindwaarde",B3,"Contante Waarde",B4,"Quit",Q
Lbl B1
Menu(" Onbekende: ","Int. Bedrag",C1,"Kapitaal",C2,"Percentage",C3
Lbl B2
Menu(" Onbekende: ","Eind Bedrag",D1,"Begin kapitaal",D2,"Percentage",D3,"Aantal Jaren",D4
Lbl B3
Menu(" Onbekende: ","Eindwaarde",E1
Lbl B4
Menu(" Onbekende: ","Contante Waarde",F1
Lbl C1
ClrHome
Input "Kapitaal=",K
Input "Percentage=",P
Input "Tijd=",T
P/100üR
K*R*TüU
Output(5,1,"Uitkomst:"
Output(6,4,U