1865 FOR M=0 TO NVC(1) : TI(M,1)=0 : NEXT M