2380 FOR M=1 TO 2