**TI89**mainRzconfint$Z() Prgm ClrIO Disp "1 = large","2 = finite" Input c ClrIO If c=2 Then Disp "population size" Input p Else 0p EndIf Disp "sample size" Input n Disp "sample mean" Input x Disp "sample deviation" Input s Disp "confidence level" Input r s\invNormF((r+1)/2,0,1)q If p=0 Then q*s/(n)e Else q*s*((p-n)/(p-1))/(n)e EndIf ClrIO Disp "Xbar, Error" Disp {round(x,4),"+-",round(e,4)} Disp "Confidence Interval" Disp {round(x-e,4),round(x+e,4)} EndPrgm