7895 FOR M=XD+1 TO XE