3500 WHILE ABS((SER-SERA)/SER)>.001 AND ITE<ITM