2345 FOR M=1 TO NPG