4680 FOR M=1 TO L