**TI89**mainRtscore%¥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 "degrees of freedom" Input m If c=3 Then ­s\tinv((1+r)/2,m)q Else ­s\tinv(r,m)q If c=2 Then ­qq EndIf EndIf ClrIO If c=3 Then Output 1,1,"t scores" Output 1,65,{round(­q,3),round(q,3)} Else Output 1,1,"t score" Output 1,65,round(q,3) EndIf EndPrgm äåÜŽ