**TI89**mainRinvnorm Z() Prgm ClrIO Disp "1 = left prob","2 = right prob","3 = middle prob" Input c ClrIO If c=1 Then Disp "left prob" Else If C=2 Then Disp "right prob" Else Disp "middle prob" EndIf EndIf Input r Disp "mean" Input m Disp "standard deviation" Input s If c=3 Then s\invnormf((1+r)/2,m,s)q Else s\invnormf(r,m,s)q If c=2 Then (2*m-q)q EndIf EndIf ClrIO If c=3 Then Disp "inverse values" Disp 2*m-q,q Else Disp "inverse value" Disp q EndIf EndPrgm