/*REXX*/

/* this script sends all characters from a file 
(including control characters and the NUL character
to the current device */

filename = "foobar.dat"

do forever
	c= charin(filename)
	if stream(filename, "s")\="READY" then leave
	
	/* Control Characters 00 - 1F */
	if c2d(c)<32 then c= "^"||d2c(c2d(c)+64)
	else
	/* Quote ^ character */
	if c="^" then c= "^^"

	call ZocWrite c
end

call stream filename, "c", "close"