/* asd */

SAY ""
SAY "Move products between planets"
SAY "by: digirave"
SAY "Move product how many times?"
PULL times
SAY "Move product from planet #?"
PULL frompla
SAY "Move product from product #?"
PULL frompro
SAY "Move product to planet #?"
PULL topla

call zocsend "jy"

call zocsend "l"
call zocsend frompla
call zocsend "^M"
call zocsend "tnt"
call zocsend frompro
call zocsend "^M"
call zocsend "q"
call zocsend "l"
call zocsend topla
call zocsend "^M"
call zocsend "tnl"
call zocsend frompro
call zocsend "^M"
call zocsend "q"

times=times-1

do times

call zocsend "l"
call zocsend frompla
call zocsend "^M"
call zocsend "tnt"
call zocsend frompro
call zocsend "^M"
call zocsend "q"
call zocsend "l"
call zocsend topla
call zocsend "^M"
call zocsend "tnl"
call zocsend frompro
call zocsend "^M"
call zocwait "Which product are you leaving?"
call zocsend "q"


end
exit