SUBROUTINE ABREAK
C	  THIS SUBROUTINE SENDS A BREAK TO THE REMOTE
	I=IOUTT1(-1)
	WRITE(5,10)
10	FORMAT(' BREAK')
C	I=IOUTT1(0)
	RETURN
	END