4412 FOR J=1 TO NC : V(J)=A(1,J) : NEXT J : I=1