**TI89**mainRzmntestZ() Prgm ClrIO Disp "1 = large","2 = finite" Input c ClrIO If c=2 Then Disp "population size" Input p Else 0p EndIf Disp "test mean" Input m Disp "sample size" Input n Disp "xbar" Input x Disp "sample deviation" Input s Disp "level of significance" Input a If p0 Then s*((p-n)/(p-1))s EndIf (x-m)/(s/(n))z s\nrmcdff(0,z,0,1)b b+.5l .5-br ClrIO If a>r Then Disp "reject mean m" Else Disp "accept mean m" EndIf If a>l Then Disp "reject mean m" Else Disp "accept mean m" EndIf If (a/2>r) or (a/2>l) Then Disp "reject mean = m" Else Disp "accept mean = m" EndIf Output 36,1,"test stat =" Output 36,70,round(z) Disp "tail values",{round(l,4),round(r,4)} EndPrgm