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

CALL ZocRespond "Report Sector 549", "qcpy549^M"
CALL ZocRespond "Report Sector 1187", "qcpy1187^M"
CALL ZocRespond "Report Sector 2019", "qcpy2019^M"
CALL ZocRespond "Report Sector 4533", "qcpy4533^M"
CALL ZocRespond "Report Sector 7115", "qcpy7115^M"
CALL ZocRespond "Report Sector 8849", "qcpy8849^M"


DO 1000

DO 1000
CALL ZocSend "#"
zocdelay 60
end

END