**TI86** ¬ œSAMPSIZEœšClLCDÖDisp "1 = LARGE","2 = FINITE"ÖInput CÖClLCDÖIf C==2ÖThenÖDisp "POP. SIZE"ÖInput NÖElseÖ0NÖEndÖDisp "RANGE LOWER BOUND"ÖInput CÖDisp "RANGE UPPER BOUND"ÖInput DÖDisp "MARGIN OF ERROR"ÖInput EÖDisp "CONF. LEVEL"ÖInput RÖinvnm((R+1)/2,0,1)QÖIf N==0ÖThenÖ(Q*(D-C)/2/E)MÖElseÖ((D-C)*Q/2/E)*N/(N-1+((D-C)*Q/2/E))MÖEndÖIf int (M)==MÖThenÖMNÖElseÖint (M+1)NÖEndÖClLCDÖDisp "SAMPLE SIZE ="ÖDisp int (N)ÖN‰