9636 IF P(1)<1 THEN P(1)=1