2045 FOR J=1 TO NC : VX(J)=J : NEXT J : NCK=NC