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