**TI86** Œ ~GEOMET~|ClLCDÖDisp "PROBABILITY"ÖInput PÖDisp "LOWER BOUND"ÖInput JÖDisp "UPPER BOUND"ÖInput KÖ(1-P)^(J-1)-(1-P)^KCÖDisp "COMPLETE DIST?"ÖInput ZÖIf Z==1ÖThenÖClrLstsÖint (ln(.025)/ln(1-P))+1MÖseq(I,I,1,M)xStatÖseq(gepdf(P,I),I,1,M)yStatÖseq(gecdf(P,I),I,1,M)fStatÖEndÖClLCDÖOutpt(2,1,"PROB")ÖOutpt(2,8,C)ÖOutpt(4,1,"MEAN")ÖOutpt(4,8,1/P)ÖOutpt(6,1,"ST.DEV")ÖOutpt(6,8,(1-P)/P)ÖÖÖÖW