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


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 "do you want to buy"
call zocsend "^M^M"

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

CALL ZocSend "tnl1^M"
CALL ZocSend "tnl2^M"
CALL ZocSend "tnl3^Mq"

CALL Zocwait "]:["

END