new code for rocks

sample6.gridlang

@LOOPSTART
CALL << @CHECKALL
CALL << @MOVEEAST
CALL << @CHECKALL
CALL << @MOVENORTH
GOTO << @LOOPSTART

@CHECKALL
CALL << @CHECKEAST
CALL << @CHECKNORTH
CALL << @CHECKWEST
CALL << @CHECKSOUTH
CALL << @CHECKSOUTHEAST
RETURN

@MOVEEAST
CALLFF << @LOOK @EAST 2
EQUAL << @CELL_EMPTY
IFFGOTO << @MOVENORTH
CALLFF << @MOVE @EAST 2
POP
RETURN

@MOVENORTH
CALLFF << @LOOK @NORTH 2
EQUAL << @CELL_EMPTY
IFFGOTO << @MOVEWEST
CALLFF << @MOVE @NORTH 2
POP
GOTO << @LOOPSTART

@MOVEWEST
CALLFF << @LOOK @WEST 2
EQUAL << @CELL_EMPTY
IFFGOTO << @MOVESOUTH
CALLFF << @MOVE @WEST 2
POP
CALLFF << @MOVE @SOUTH 2
POP
GOTO << @LOOPSTART

@MOVESOUTH
CALLFF << @MOVE @SOUTH 2
POP
GOTO << @LOOPSTART

@CHECKEAST
CALLFF << @LOOK @EAST 2
DUP
###############################DUP#top of stack contains whats in the east if DUP comment removed
EQUAL << @CELL_RESOURCE
IFTCALL << @PULLEAST
EQUAL << @CELL_ROBOT
IFTCALL << @PUNCHEAST
RETURN

@PULLEAST
CALLFF << @PULL @EAST 2
POP
RETURN

@PUNCHEAST
CALLFF << @PUNCH @EAST 2
POP
CALLFF << @PULL @EAST 2
POP
RETURN

@CHECKNORTH
CALLFF << @LOOK @NORTH 2
DUP
#####################################3#DUP#top of stack contains whats in the north if DUP comment removed
EQUAL << @CELL_RESOURCE
IFTCALL << @PULLNORTH
EQUAL << @CELL_ROBOT
IFTCALL << @PUNCHNORTH
RETURN

@PULLNORTH
CALLFF << @PULL @NORTH 2
POP
RETURN

@PUNCHNORTH
CALLFF << @PUNCH @NORTH 2
POP
CALLFF << @PULL @NORTH 2
POP
RETURN

@CHECKWEST
CALLFF << @LOOK @WEST 2
DUP
##########################DUP#top of stack contains whats in the west if DUP comment removed
EQUAL << @CELL_RESOURCE
IFTCALL << @PULLWEST
EQUAL << @CELL_ROBOT
IFTCALL << @PUNCHWEST
RETURN

@PULLWEST
CALLFF << @PULL @WEST 2
POP
RETURN

@PUNCHWEST
CALLFF << @PUNCH @WEST 2
POP
CALLFF << @PULL @WEST 2
POP
RETURN

@CHECKSOUTH
CALLFF << @LOOK @SOUTH 2
DUP
####################################DUP#top of stack contains whats in the south if DUP comment removed
EQUAL << @CELL_RESOURCE
IFTCALL << @PULLSOUTH
EQUAL << @CELL_ROBOT
IFTCALL << @PUNCHSOUTH
RETURN

@PULLSOUTH
CALLFF << @PULL @SOUTH 2
POP
RETURN

@PUNCHSOUTH
CALLFF << @PUNCH @SOUTH 2
POP
CALLFF << @PULL @SOUTH 2
POP
RETURN

@CHECKSOUTHEAST
CALLFF << @SCAN 1 1 3
EQUAL << @CELL_RESOURCE
IFTCALL << @MOVESOUTHEAST
RETURN

@MOVESOUTHEAST
CALLFF << @MOVE @SOUTH 2
POP
CALLFF << @PULL @EAST 2
POP
CALLFF << @MOVE @EAST 2
POP
RETURN