8184 IF FP<0 THEN FP=0