8572 IF FP<0 THEN FP=0