4400 IF CY(4)>0 THEN A(I,CY(4))=ER