SUBROUTINE STOPIT(ITRANS)
C	  FIRST STOP INTERRUPT
	INTEGER*2 ISTAT
	BYTE CMD(7)
	DATA CMD/'A','T','Q','1','H','0',"15/
	ISTAT=1
	CALL MARK(17,1,2)		!WAIT GAURD TIME
	CALL WAITFR(17)
	ITCHAR='+'
	DO 5,I=1,3
	J=IOUTT1(ITCHAR)
	CALL MARK(17,3,1)
	CALL WAITFR(17)
5	CONTINUE
	CALL MARK(17,1,2)
	CALL WAITFR(17)
	DO 6,I=1,7
	ITCHAR=CMD(I)
	J=IOUTT1(ITCHAR)
	CALL MARK(17,3,1)
	CALL WAITFR(17)
6	CONTINUE
	ENTRY STOPEX(ITRANS)
	CALL IOUTT1(-2)
	CALL ITTOUR(-2)
C	  NOW CHECK FOR ANY OPEN FILES
	IF((ITRANS.AND.1).EQ.0) GOTO 10
	CALL OUTFIL(IDUMMY,ITRANS,3)
	WRITE(5,100)'7'O
	ISTAT=2
 10	IF((ITRANS.AND.2).EQ.0) GO TO 20
	CALL INPFIL(IDUMMY,ITRANS,3)
	WRITE(5,101)'7'O
	ISTAT=2
20	CALL EXIT(ISTAT)
100	FORMAT(1X,A1,'Receive complete')
101	FORMAT(1X,A1,'Transmission complete')
	END