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



CALL ZocRespond "Organics do you want to buy", "0^M"
CALL ZocRespond "Equipment 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 "Fuel Ore do you want to buy"
call zocsend "^M^M"

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

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

CALL Zocwait "]:["

END