iniciar-programa
define-nueva-instruccion norte como mientras no-orientado-al-norte hacer gira-izquierda;
define-nueva-instruccion este como mientras no-orientado-al-este hacer gira-izquierda;
define-nueva-instruccion oeste como mientras no-orientado-al-oeste hacer gira-izquierda;
define-nueva-instruccion sur como mientras no-orientado-al-sur hacer gira-izquierda;
define-nueva-instruccion revisa(u) como
    inicio
     si orientado-al-este entonces
         inicio
        mientras frente-libre y no-junto-a-zumbador hacer avanza;
        si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                si frente-libre entonces avanza
                sino
                    inicio
                        si junto-a-zumbador entonces
                            inicio
                                oeste;
                              
                            fin;
                   fin;
                revisa(sucede(u));
            fin;
        si frente-bloqueado entonces inicio

                oeste;
                revisa(u);
              fin;
         fin
      sino
          inicio
              mientras no-junto-a-zumbador y frente-libre hacer
              avanza;
              si junto-a-zumbador entonces
                  inicio
                      coge-zumbador;
                      revisa(precede(u));
                  fin;
             si frente-bloqueado entonces
                 inicio
                     repetir u veces deja-zumbador;
                     apagate;
                 fin;
          fin;
    fin;

define-nueva-instruccion checa(u) como
    inicio
        sur;
        mientras frente-libre hacer avanza;
        oeste;
        mientras frente-libre hacer avanza;
        sur;
        mientras frente-libre hacer avanza;
        este;
        revisa(0);
    fin;
define-nueva-instruccion deja(x) como
    inicio
        sur;
        mientras frente-libre hacer avanza;
        oeste;
        mientras frente-libre hacer avanza;
        sur;
        si frente-libre entonces avanza;
        este;
        repetir x veces avanza;
        deja-zumbador;
        oeste;
        mientras frente-libre hacer avanza;
        norte;
    fin;
define-nueva-instruccion busca(x) como
    inicio
        si no-junto-a-zumbador entonces
            inicio
                si frente-libre entonces avanza
                sino
                inicio
                    si orientado-al-norte entonces
                        inicio
                            este;
                            si frente-bloqueado entonces checa(0);
                            avanza;
                            sur;
                            busca(x);
                        fin
                    sino
                        inicio
                            si orientado-al-sur entonces
                                inicio
                                    este;
                                    si frente-bloqueado entonces checa(0);
                                    avanza;
                                    norte;
                                    busca(x);
                                fin;
                        fin;

                fin;
                busca(0);
            fin
        sino
            inicio
                coge-zumbador;
                si junto-a-zumbador entonces
                    inicio
                        busca(sucede(x));
                    fin
                sino
                    inicio
                        deja(sucede(x));
                    fin;

            fin;

    fin;
define-nueva-instruccion ir como
    inicio
        sur;
        mientras frente-libre hacer avanza;
        oeste;
        mientras frente-libre hacer avanza;
        norte;
        avanza;
        busca(0);
    fin;
    inicia-ejecucion
        norte;
        mientras orientado-al-norte y frente-libre hacer ir;
        apagate;
    termina-ejecucion
finalizar-programa
