**TI86** £ “ZCONFINT“‘ClLCDÖDisp "1 = LARGE","2 = FINITE"ÖInput CÖClLCDÖIf C==2ÖThenÖDisp "POP. SIZE"ÖInput PÖElseÖ0PÖEndÖDisp "SAMPLE SIZE"ÖInput NÖDisp "SAMPLE MEAN"ÖInput XÖDisp "SAMPLE DEV."ÖInput SÖDisp "CONF. LEVEL"ÖInput RÖinvnm((R+1)/2,0,1)QÖIf P==0ÖThenÖQ*S/(N)EÖElseÖQ*S*((P-N)/(P-1))/(N)EÖEndÖClLCDÖDisp "XBAR, ERROR"ÖDisp round(X,4)ÖDisp round(E,4)ÖDisp "CONF. INTERVAL"ÖDisp {round(X-E,4),round(X+E,4)}Õ‡