7800 WHILE ABS(FPY)>.001