7790 WHILE ABS(FPY)>.0001