4440 IF FP<.5 THEN FP=2*FP