**TI86**  POISSONClLCDDisp "AVERAGE"Input PDisp "LOWER BOUND"Input JDisp "UPPER BOUND"Input KIf J==0Thenpscdf(P,K)CElsepscdf(P,K)-pscdf(P,J-1)CEndint (P)Rpspdf(P,R)AIf R1Thenpspdf(P,R-1)BElse0BEndDisp "COMPLETE DIST?"Input ZIf Z==1ThenClrLstsFnOff R+1MWhile pscdf(P,M)<.975M+1MEndseq(I,I,0,M)xStatseq(pspdf(P,I),I,0,M)yStatseq(pscdf(P,I),I,0,M)fStat0xMinMxMax1xScl0yMinAyMax1ySclPlOffPlOn 1Plot1(1,xStat,yStat,1)EndClLCDOutpt(2,1,"PROB")Outpt(2,8,C)Outpt(4,1,"MEAN")Outpt(4,9,P)Outpt(5,1,"ST.DEV")Outpt(5,9,(P))If round(A)==round(B)ThenOutpt(7,1,"BIMODAL")Outpt(7,9,{R-1,R})ElseOutpt(7,1,"MODE")Outpt(7,9,R)End