4390 IF CY(2)>0 THEN A(I,CY(2))=XTE