3369 FOR K=1 TO NCK : VX(K)=K : NEXT K