8588 IF P(1)<=0 THEN P(1)=.001