2885 FOR K=1 TO NCK