2965 FOR J=1 TO NCX