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