**TI89**mainRtconfint™¥Z?() Prgm ClrIO Disp "sample size" Input m Disp "sample mean" Input x Disp "sample deviation" Input s Disp "confidence level" Input r s\tinv((1-r)/2,m-1)q ClrIO Disp "Xbar, Error" Disp {round(x,4),"+-",round(q*s/(¨(m)),4)} Disp "Confidence Interval" Disp {round(x-q*s/(¨(m)),4),round(x+q*s/(¨(m)),4)} EndPrgm äåÜ e