.MCALL	QIOW$S
        .TITLE  PUT
        .GLOBL  PUT
PUT::	QIOW$S	#IO.WVB,#5,#1,,,,<2(R5),@4(R5)>
	RETURN
	.END