/* REXX (CREATED BY ZOC LEARN MODE) */


DO 1000

DO 1000
a=0

CALL ZocSend "'"
call zocsend a
call zocsend "jkafhjkfhsklhjfhakjlfhsdfjklsdfsdj;fh^M"

a=a+1

end

END