**TI86** h [PTEST[YClLCDÖDisp "1 = LARGE","2 = FINITE"ÖInput CÖClLCDÖIf C==2ÖThenÖDisp "POP. SIZE"ÖInput KÖElseÖ0KÖEndÖDisp "TEST PROPORTION"ÖInput PÖDisp "NUMBER OF YES"ÖInput MÖDisp "SAMPLE SIZE"ÖInput NÖDisp "LEVEL OF SIG."ÖInput AÖIf K==0ÖThenÖ(M/N-P)/(P(1-P)/N)ZÖElseÖ(M/N-P)/(P(1-P)/N)/((K-N)/(K-1))ZÖEndÖnmcdf(0,Z,0,1)BÖB+.5LÖ.5-BRÖIf A>RÖThenÖDisp "REJECT PROP.  P"ÖElseÖDisp "ACCEPT PROP.  P"ÖEndÖIf A>LÖThenÖDisp "REJECT PROP.  P"ÖElseÖDisp "ACCEPT PROP.  P"ÖEndÖIf (A/2>R) or (A/2>L)ÖThenÖDisp "REJECT PROP. = P"ÖElseÖDisp "ACCEPT PROP. = P"ÖEndÖDisp ZÖDisp "TAIL VALUES",{round(L,4),round(R,4)}UÃ