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

    define-nueva-instruccion gira(n) como inicio
        repetir n veces gira-izquierda;
    fin;

    define-nueva-instruccion marca como inicio
        si junto-a-zumbador entonces inicio

            norte;
            si frente-libre entonces inicio
                avanza;
                si no-junto-a-zumbador entonces inicio
                    gira(2);
                    avanza;
                    repetir 2 veces deja-zumbador;
                    sal-de-instruccion;
                fin sino inicio
                    gira(2);
                    avanza;
                fin;
            fin sino inicio
                repetir 2 veces deja-zumbador;
                sal-de-instruccion;
            fin;

            sur;
            si frente-libre entonces inicio
                avanza;
                si no-junto-a-zumbador entonces inicio
                    gira(2);
                    avanza;
                    repetir 2 veces deja-zumbador;
                    sal-de-instruccion;
                fin sino inicio
                    gira(2);
                    avanza;
                fin;
            fin sino inicio
                repetir 2 veces deja-zumbador;
                sal-de-instruccion;
            fin;


            este;
            si frente-libre entonces inicio
                avanza;
                si no-junto-a-zumbador entonces inicio
                    gira(2);
                    avanza;
                    repetir 2 veces deja-zumbador;
                    sal-de-instruccion;
                fin sino inicio
                    gira(2);
                    avanza;
                fin;
            fin sino inicio
                repetir 2 veces deja-zumbador;
                sal-de-instruccion;
            fin;

            oeste;
            si frente-libre entonces inicio
                avanza;
                si no-junto-a-zumbador entonces inicio
                    gira(2);
                    avanza;
                    repetir 2 veces deja-zumbador;
                    sal-de-instruccion;
                fin sino inicio
                    gira(2);
                    avanza;
                fin;
             fin sino inicio
                repetir 2 veces deja-zumbador;
                sal-de-instruccion;
            fin;

            deja-zumbador;
        fin;
    fin;

    define-nueva-instruccion busqueda como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            si junto-a-zumbador entonces inicio
                deja-zumbador;
            fin sino inicio
                deja-zumbador;
                marca;

              norte;
              si frente-libre entonces inicio
                  avanza;
                  busqueda;
                  sur;
                  avanza;
              fin;

              este;
              si frente-libre entonces inicio
                  avanza;
                  busqueda;
                  oeste;
                  avanza;
              fin;

              sur;
              si frente-libre entonces inicio
                  avanza;
                  busqueda;
                  norte;
                  avanza;
              fin;

              oeste;
              si frente-libre entonces inicio
                  avanza;
                  busqueda;
                  este;
                  avanza;
              fin;

            fin;
        fin;
    fin;

    define-nueva-instruccion quita como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            si junto-a-zumbador entonces  inicio
                coge-zumbador;

                            norte;
              si frente-libre entonces inicio
                  avanza;
                  quita;
                  sur;
                  avanza;
              fin;

              este;
              si frente-libre entonces inicio
                  avanza;
                  quita;
                  oeste;
                  avanza;
              fin;

              sur;
              si frente-libre entonces inicio
                  avanza;
                  quita;
                  norte;
                  avanza;
              fin;

              oeste;
              si frente-libre entonces inicio
                  avanza;
                  quita;
                  este;
                  avanza;
              fin;
            fin sino inicio
                deja-zumbador;
            fin;
        fin;
    fin;

    inicia-ejecucion
        busqueda;
        quita;
        apagate;
    termina-ejecucion
finalizar-programa
