7460 FOR K=1 TO KP