Você pode substitutir tudo isso:
IFMATCHES(%DIRECTION%,N);
&frente = NORTH;
ENDIF;
IFMATCHES(%DIRECTION%,S);
&frente = SOUTH;
ENDIF;
IFMATCHES(%DIRECTION%,W);
&frente = WEST;
ENDIF;
IFMATCHES(%DIRECTION%,E);
&frente = EAST;
ENDIF;
DO;
LOOK(%&frente%);
LOOK(,-90);
por isso:
DO;
LOOK(,0);
LOOK(,-90);
Parabéns por compartilhar