3720 IF X>P(1) THEN FP=1-FP