C
C	subroutine VERPIP.PGM
C
	BYTE      BUFFER(270)
	INTEGER*2 LENGTH
C
C	now loop thru the entire file
C
100	READ  (LOONRS,110,END=1000,ERR=1000) LENGTH,BUFFER
	WRITE (LOONOU,110) (BUFFER(I),I=1,LENGTH)
	CALL WAIT(IWTIME,1)		! wait IWTIME msec before the next line
	GOTO 100
C
110	FORMAT(Q,2(150A1))
C
C	end or error detected - all done
C
1000	RETURN
	END