SUBROUTINE SPACE
	write(*,*)'ENTER'
	READ(*,*)
	DO  I=1,27
	  WRITE(*,*)
	ENDDO
	RETURN
	END