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


CALL ZocRespond "warps", "annnnnny1000^Mannnnny1000^M"


DO 1000

DO 1000
CALL ZocSend "#"
zocdelay 20
end

END