2810 FOR J=1 TO NC