SUBROUTINE ABREAK
C	  THIS SUBROUTINE SENDS A BREAK TO THE REMOTE
	I=IOUTT1(-1)
	TYPE *,'BREAK'
C	I=IOUTT1(0)
	RETURN
	END