BYTE	IA(32000)
	IEOF	= 0
1	CALL	MTGET(3,IA,32000,IERR,IBYTES)
	IF(IERR .eq. 1) THEN
	IEOF	= 0
	CALL	MTPUT(2,IA,IBYTES,IERR,IBY2)
	IF(IERR .ne. 1) TYPE *,'Write error',IERR,IBY2
	GO TO 1
	ELSE
	IF(IERR .eq. "366) THEN
	  CALL MTEOF(2)
	  IEOF	= IEOF + 1
	  IF(IEOF .ge. 2) THEN
	    CALL MTEOF(2)
	    CALL MTEOF(2)
	    STOP 'End-of-tape'
	  ENDIF
	  GO TO 1
	ENDIF
	IEOF	= 0
	IF(IERR .eq. "365) THEN
	   CALL MTEOF(2)
	   CALL MTEOF(2)
	   CALL MTEOF(2)
	   CALL MTEOF(2)
	   STOP 'End-of-tape'
	ENDIF
	TYPE *,'Input error',IERR,IBYTES
	ENDIF	   
	GO TO 1
	END