3070 FOR M=1 TO NI(1)+1