2620 FOR NN=1 TO KM