8185 IF FP<0 THEN FP=0