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

CALL ZocRespond "Equipment do you want to buy", "0^M"
CALL ZocRespond "Organics do you want to buy", "^M^M"
CALL ZocRespond "Ore do you want to buy", "0^M"

CALL ZocTimeout 60

SAY ""
SAY ""
SAY "What planet do you want to place the product on?"
PULL PLANET

DO 10000

CALL ZocSend "p"
CALL ZocSend "t"

CALL Zocwait "]:["
CALL ZocSend "l"
CALL ZocSend PLANET
CALL ZocSend "^M"

CALL ZocSend "tn"
CALL ZocSend "l"
CALL ZocSend "2"
CALL ZocSend "^M"
CALL ZocSend "q"

CALL Zocwait "]:["

END