4100 FOR M=1 TO NXX