2340 IF CY(1)>0 THEN A(I,CY(1))=XES