**TI89**mainRzscore ¥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 If c=3 Then s\invnormf((1+r)/2,0,1)q Else s\invnormf(r,0,1)q If c=2 Then ­qq EndIf EndIf ClrIO If c=3 Then Output 1,1,"z scores" Output 1,65,{round(­q,3),round(q,3)} Else Output 1,1,"z score" Output 1,65,round(q,3) EndIf EndPrgm äåÜ·„