PARAMETER	IBSIZ=264
	BYTE	IB(IBSIZ),IBYTE,IPAT(8),IPATS(3)
	COMMON	/IOCOM/IUNIT,LUNIT,LREC,IOTYPE
	DATA	IPAT/"1,"2,"4,"10,"20,"40,"100,"200/
	DATA	IPATS/'C3'X,'0c'x,'30'x/
	LUNIT	= 6
	IOTYPE	= 1
	CAll	attach
	DO 20	I = 1,8
	IBYTE	= IPAT(I)
	DO 20 LINES	= 1,40
	DO 10	J	= 1,IBSIZ
10	IB(J)	= IBYTE
	CALL	OUTPUT(IB,IBSIZ)
20	CALL	OWAIT
	DO 40 LINES	= 1,8000
	I	= 1
	DO 30	J	= 1,IBSIZ
	IB(J)	= IPATS(I)
	I	= I + 1
	IF(I .gt. 3) I = 1
30	CONTINUE	
	CALL	OUTPUT(IB,IBSIZ)
40	CALL	OWAIT
	CALL	OUTPUT(0,0)
	END