2300 IF CY(1)>0 THEN A(I,CY(1))=YE