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