3410 IF CY(1)>0 THEN A(I,CY(1))=VX(I)