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

CALL ZocRespond "Clear Avoids?", "y"

CALL ZocTimeout 3600



sector=11
call zocsend "c"

CALL ZocLogname "SECTOR.LOG"
CALL ZocLogging 1

call zocsend "f1^M"
call zocsend sector
call zocsend "^M"
sector=sector+1

call zocsend "f1^M"
call zocsend sector
call zocsend "^M"
sector=sector+1
DO 4988
call zocsend "f1^M"
call zocsend sector
call zocsend "^M"
sector=sector+1
call zocwait "Computed."

END

exit