7740 IF ABS(FP)<=.0001 THEN RETURN