2230 FOR K=1 TO NP