**TI86** X HPSAMPSZEHFClLCDÖDisp "1 = LARGE","2 = FINITE"ÖInput CÖClLCDÖIf C==2ÖThenÖDisp "POP. SIZE"ÖInput NÖElseÖ0NÖEndÖDisp "MARGIN OF ERROR"ÖInput EÖDisp "CONF. LEVEL"ÖInput RÖinvnm((R+1)/2,0,1)QÖIf N==0ÖThenÖ(Q/2/E)MÖElseÖ(Q/2/E)*N/(N-1+(Q/2/E))MÖEndÖIf int (M)==MÖThenÖMLÖElseÖint (M+1)LÖEndÖClLCDÖDisp "SAMPLE SIZE ="ÖDisp int (L)Ö@o