4742 FOR K=1 TO NC : V(K)=A(1,K) : VX(K)=0 : NEXT K