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