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