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