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

CALL ZocRespond "Report Sector 185", "pshp1^Mqqcpy185^Mq"
CALL ZocRespond "Report Sector 263",  "pshp1^Mqqcpy263^Mq"
CALL ZocRespond "Report Sector 275",  "pshp1^Mqqcpy275^Mq"
CALL ZocRespond "Report Sector 1185",  "pshp1^Mqqcpy1185^Mq"
CALL ZocRespond "Report Sector 3662",  "pshp1^Mqqcpy3662^Mq"
CALL ZocRespond "Report Sector 3696",  "pshp1^Mqqcpy3696^Mq"

CALL ZocTimeout 60

do 1000

zocsend "#"
zocdelay 60

end