2565 IF CY(2)>0 THEN A(I,CY(2))=ER