4380 IF Y>0 THEN SEA=SEA+ABS(ER/Y)