8180 IF FP>1 THEN FP=1