984 FOR K=1 TO KL