4770 FOR K=1 TO NC