9520 FOR K=1 TO N