7745 IF ABS(FP)<=.001 THEN RETURN