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

CALL ZocRespond "Stop in this sector (Y,N,E,I,R,S,D,P","n"
CALL ZocRespond "Report Sector 185", "185^Mf1^Mct"
CALL ZocRespond "Report Sector 263",  "263^Mf1^Mct"
CALL ZocRespond "Report Sector 275",  "275^Mf1^Mct"
CALL ZocRespond "Report Sector 1185",  "1185f1^Mct"
CALL ZocRespond "Report Sector 3662",  "3662f1^Mct"
CALL ZocRespond "Report Sector 3696",  "3696f1^Mct"

CALL ZocTimeout 60

do 1000

zocsend "#"
zocdelay 60

end