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

CALL ZocTimeout 3600

CALL ZocRespond "ingle step/Express)","e"
CALL ZocRespond "Your fighters:","a5000^M"
CALL ZocRespond "Stop in this sector","ey"



SAY "start which sector?"
PULL sector

DO 10000
CALL ZocSend sector
CALL ZocSend "^M"

call zocwait "Autopilot disengaging."
call zocsend "f500^Mpo"
sector=sector+1

END

exit