**TI86** Ë »PCONFINT»¹ClLCDÖDisp "1 = LARGE","2 = FINITE"ÖInput CÖClLCDÖIf C==2ÖThenÖDisp "POP. SIZE"ÖInput PÖElseÖ0PÖEndÖDisp "NUMBER OF YES"ÖInput MÖDisp "SAMPLE SIZE"ÖInput NÖDisp "CONF. LEVEL"ÖInput RÖIf P==0ÖThenÖ(M/N*(1-M/N))SÖElseÖ(M/N*(1-M/N))*((P-N)/(P-1))SÖEndÖinvnm((R+1)/2,0,1)QÖClLCDÖDisp "SAMPLE P, ERROR"ÖDisp round(M/N,4)ÖDisp round(Q*S/(N),4)Ömax(0,M/N-Q*S/(N))LÖmin(1,M/N+Q*S/(N))RÖDisp "CONF. INTERVAL"ÖDisp {round(L,4),round(R,4)}§