3020 FOR K=1 TO NVI : V(K)=A(I,JX(K)) : NEXT K