/* THIS IS A REXX PROGRAM THAT CAN BE USED TO PATCH BUGS OUT OF ZOC */
/* DON'T USE WITHOUT INSTRUCTIONS FROM THE ZOC AUTHOR! */

n.1= 0 
n.2= 0 
old= 00
new= 00

name= zoc.exe

if stream(name, c, open)=="READY:" then do 
	do i=1 to 2 
		if (c2x(charin(name, n.i, 3))==old) then do
			call charout name, x2c(new), n.i
			say OK!
		end 
	end
	call stream name, c, close
end

/* END - running this should output 'OK!' */