C
C	subroutine PTXPIP.PGM
C
	BYTE      BUFFER(134)
	INTEGER*2 LENGTH
C
C	first, send out a formfeed to make sure we start at the top of a page
C
	WRITE (LOONOU,10) "14
10	FORMAT('+',A1,$)
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)
	GOTO 100
C
110	FORMAT(Q,134A1)
C
C	end or error detected - all done
C
1000	RETURN
	END