iniciar-programa
define-nueva-instruccion oeste como inicio
mientras no orientado-al-oeste hacer inicio
gira-izquierda;
fin;
fin;

define-nueva-instruccion norte como inicio
mientras no orientado-al-norte hacer inicio
gira-izquierda;
fin;
fin;


 define-nueva-instruccion sur como inicio
mientras no orientado-al-sur hacer inicio
gira-izquierda;
fin;
fin;



define-nueva-instruccion este como inicio
mientras no orientado-al-este hacer inicio
gira-izquierda;
fin;
fin;


define-nueva-instruccion juntar como inicio
mientras no junto-a-zumbador hacer inicio
avanza;
fin;
mientras junto-a-zumbador hacer inicio
coge-zumbador;
fin;
oeste;
avanza;
norte;
avanza;
fin;

define-nueva-instruccion paret como inicio
mientras frente-libre y derecha-bloqueada hacer inicio
avanza;
fin;
este;
avanza;                                        
norte;
fin;



  define-nueva-instruccion dejar como inicio
    mientras frente-libre   hacer inicio
    deja-zumbador;
        avanza;
    fin;
    mientras frente-libre hacer inicio
        dejar;
        deja-zumbador;
        fin;
        si frente-bloqueado entonces inicio
        deja-zumbador;
    fin;

fin;

define-nueva-instruccion orientarce como inicio
    mientras frente-libre hacer inicio
        avanza;
    fin;
    sur;
    dejar;
    si izquierda-libre entonces inicio
        gira-izquierda;
        avanza;
        gira-izquierda;
        orientarce;
    fin;

fin;

  define-nueva-instruccion salir como inicio
   mientras frente-bloqueado hacer inicio
   norte;
   fin;
   mientras frente-libre y derecha-bloqueada hacer inicio
   avanza;
   fin;
 mientras frente-bloqueado hacer inicio
 este;
 avanza;
 sur;
   fin;
   fin;








   inicia-ejecucion
   este;
   juntar;
   paret;
   orientarce;
   salir;

        apagate;
    termina-ejecucion
finalizar-programa
