4525 FOR J=1 TO N