Start:
put Go Port
pause 1
PUT Search
if $lefthand != empty then gosub StowStart
MATCH north : north.
MATCH northeast : northeast.
MATCH northwest : northwest.
MATCH southeast : southeast.
MATCH southwest : southwest.
MATCH east : east.
MATCH west : west.
MATCH south : south.
MATCH north north,
MATCH north north.
MATCH northeast , northeast
MATCH northwest , northwest
MATCH west , west,
MATCH west , west.
MATCH east , east,
MATCH east , east.
MATCH southeast , southeast
MATCH southwest , southwest
MATCH south , south,
MATCH south , south.
PUT Stand
pause 1
PUT Look
matchwait

north:
Move north
put search
if $lefthand != empty then gosub StowStart

PUT Stand
pause 1
if $up = 1 then goto Start
if $southwest = 1 then goto southwest
if $west = 1 then goto west
if $northwest = 1 then goto northwest
if $north = 1 then goto north
if $northeast = 1 then goto northeast
if $east = 1 then goto east
if $southeast = 1 then goto southeast
Goto south

northeast:
MOVE northeast
put search

if $lefthand != empty then gosub StowStart
PUT Stand
pause 1
if $up = 1 then goto Start
if $west = 1 then goto west
if $northwest = 1 then goto northwest
if $north = 1 then goto north
if $northeast = 1 then goto northeast
if $east = 1 then goto east
if $southeast = 1 then goto southeast
if $south = 1 then goto south
GOTO southwest

northwest:
MOVE northwest

PUT Search
if $lefthand != empty then gosub StowStart
PUT Stand
pause 1
if $up = 1 then goto Start
if $south = 1 then goto south
if $southwest = 1 then goto southwest
if $west = 1 then goto west
if $northwest = 1 then goto northwest
if $north = 1 then goto north
if $northeast = 1 then goto northeast
if $east = 1 then goto east
GOTO southeast

west:
MOVE west

PUT Search
if $lefthand != empty then gosub StowStart
PUT Stand
pause 1
if $up = 1 then goto Start
if $southeast = 1 then goto southeast
if $south = 1 then goto south
if $southwest = 1 then goto southwest
if $west = 1 then goto west
if $northwest = 1 then goto northwest
if $north = 1 then goto north
if $northeast = 1 then goto northeast
goto east

east:
MOVE east
PUT Search
if $lefthand != empty then gosub StowStart
PUT Stand
pause 1
if $up = 1 then goto Start
if $northwest = 1 then goto northwest
if $north = 1 then goto north
if $northeast = 1 then goto northeast
if $east = 1 then goto east
if $southeast = 1 then goto southeast
if $south = 1 then goto south
if $southwest = 1 then goto southwest
goto west

south:
MOVE south

PUT Search
if $lefthand != empty then gosub StowStart
PUT Stand
pause 1
if $up = 1 then goto Start
if $northeast = 1 then goto northeast
if $east = 1 then goto east
if $southeast = 1 then goto southeast
if $south = 1 then goto south
if $southwest = 1 then goto southwest
if $west = 1 then goto west
if $northwest = 1 then goto northwest
Goto north

southeast:
Move southeast

PUT Search
if $lefthand != empty then gosub StowStart
PUT Stand
pause 1
if $up = 1 then goto Start
if $north = 1 then goto north
if $northeast = 1 then goto northeast
if $east = 1 then goto east
if $southeast = 1 then goto southeast
if $south = 1 then goto south
if $southwest = 1 then goto southwest
if $west = 1 then goto west
goto northwest

southwest:
MOVE southwest

PUT Search
if $lefthand != empty then gosub StowStart
PUT Stand
pause 1
if $up = 1 then goto Start
if $east = 1 then goto east
if $southeast = 1 then goto southeast
if $south = 1 then goto south
if $southwest = 1 then goto southwest
if $west = 1 then goto west
if $northwest = 1 then goto northwest
if $north = 1 then goto north
goto northeast

StowStart:
pause 1
if $lefthandnoun = chain then gosub Stow.left
if $lefthandnoun = bloodrune then gosub Stow.left
if $lefthandnoun = sack then gosub Stow.left
if $lefthandnoun = textbook then gosub Stow.left
if $lefthandnoun = bloodscrip then gosub Stow.left
if $lefthand != Empty then gosub empty.left
return

Stow.left:

PUT Stow Left
waitforre ^Stow what?|^You put your
return

empty.left:
PUT Empty Left
return