SUBROUTINE ZEILE(MM)
C SCHLIESST ZEILE UND SETZT SPALTENZAEHLER MM=0
C FORTRAN II
	WRITE(1,1000)LEER
1000	FORMAT(I0)
	MM=0
	RETURN
	END