Ti-Basic

Lbl ST
"Geef-"üStr0
"significatie!"üStr1
Menu("Omrekenen van...","Mol",Q1,"Massa",Q2,"Aantal",Q3,"Molariteit",Q4)

Lbl Q1
Input "Mol=", A
Menu("Omrekenen naar..","Massa",A1,"MolWaarde",A2,"Volume",A3,"Molariteit",A4)

Lbl Q2
Input "Massa(gr)=", A
Menu("Omrekenen naar..","Dichtheid",B1,"MolWaarde",B2,"Mol",B3,"Aantal",B4)

Lbl Q3
Input "Aantal(cm3)=", A
Menu("Omrekenen Naar..","Dichtheid",C1,"Massa",C2)

Lbl Q4
Input "Molariteit(mol/l)=", A
Menu("Omrekenen Naar..","Volume",D1,"Mol",D2)

Lbl A1
Disp Str0+"MolWaarde","in-gram/mol"
Input "MolWaarde=", B
Disp "Mol*Mw=Massa(gr)"
Goto S1

Lbl A2
Disp Str0+"Massa","in-gram"
Input "Massa=", B
Disp "Massa/Mol=Mw(g/mol)"
Goto S3

Lbl A3
Disp Str0+"Molariteit","in-Mol/L"
Input "Molariteit=", B
Disp "Mol/M=Volume(L)","M=molariteit"
Goto S2

Lbl A4
Disp Str0+"Volume","in-Liter"
Input "Volume=", B
Disp "Mol/Volume=M","(Mol/L)","M=molariteit"
Goto S2

Lbl B1
Disp Str0+"Volume","in-MilliLiter/cm3"
Input "Volume=", B
Disp "Massa/Volume=p","(g/cm3)","p=dichtheid"
Goto S2

Lbl B2
Disp Str0+"Mol"
Input "Mol=", B
Disp "Massa/Mol=Mw(gr/mol)"
Goto S2

Lbl B3
Disp Str0+"MolWaarde(gr/mol)"
Input "Mw=", B
Disp "Massa/Mw=mol"
Goto S2

Lbl B4
Disp Str0+"Dichtheid(gr/cm3)"
Input "p=", B
Disp "Massa*p=Aantal","(cm3=ml)"
Goto S1

Lbl C1
Disp Str0+"Massa(gr)"
Input "Massa=", B
Disp "Aantal/Massa=p","(g/cm3)", "p=dichtheid"
Goto S2

Lbl C2
Disp Str0+"Dichtheid(g/cm3)"
Input "p=", B
Disp "Aantal/p=Massa","(g)"
Goto S2

Lbl D1
Disp Str0+"Mol"
Input "Mol=", B
Disp "M/Mol=Volume","(L)","M=molariteit"
Goto S2

Lbl D2
Disp Str0+"Volume(L)"
Input "Volume=", B
Disp "M*Volume=Mol","M=molariteit"
Goto S1

Lbl S3
Disp B/A, Str1
Pause ""

Lbl S2
Disp A/B, Str1
Pause ""

Lbl S1
Disp A*B, Str1
Pause ""