iniciar-programa
    define-nueva-instruccion norte como inicio
        mientras no-orientado-al-norte 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 oeste como inicio
        mientras no-orientado-al-oeste 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 pon1 como inicio
      este;
        mientras frente-libre hacer inicio
            avanza;
            si junto-a-zumbador entonces inicio
                deja-zumbador;
            fin;
        fin;
        oeste;
        mientras frente-libre hacer inicio
            avanza;
       fin;
       norte;
       si frente-libre entonces inicio
           avanza;
           este;
           pon1;
       fin sino inicio
       sur;
           mientras frente-libre hacer inicio
               avanza;
           fin;

         fin;

    fin;
        define-nueva-instruccion bola como inicio
            norte;
            si frente-libre entonces inicio
                avanza;
                si no-junto-a-zumbador  entonces inicio
                    deja-zumbador;
                fin;
                sur;
                avanza;
            fin;
            este;
            si frente-libre entonces inicio
                avanza;
                si no-junto-a-zumbador entonces inicio
                    deja-zumbador;
                fin;
                oeste;
                avanza;
            fin;
            sur;
            si frente-libre entonces inicio
                avanza;
                si no-junto-a-zumbador entonces inicio
                deja-zumbador;
                fin;
                norte;
                avanza;
            fin;
            oeste;
            si frente-libre entonces inicio
                avanza;
                si no-junto-a-zumbador entonces inicio
                deja-zumbador;
                fin;
                este;
                avanza;
            fin;
            si no-orientado-al-este entonces este;
        fin;
              define-nueva-instruccion termina(n) como inicio
          este;
          mientras frente-libre hacer inicio
              si junto-a-zumbador entonces inicio
                  coge-zumbador;
                  termina(sucede(n));
              fin;
              avanza;
         fin;
         si frente-bloqueado entonces inicio
               si junto-a-zumbador entonces inicio
                  coge-zumbador;
                  termina(sucede(n));
              fin;
             oeste;
         fin;
           mientras frente-libre hacer inicio
              avanza;
           fin;
          norte;
           si frente-libre entonces inicio
               avanza;
                termina(n);
           fin sino inicio                      
               sur;
               mientras frente-libre hacer inicio
                   avanza;
               fin;
               repetir n veces inicio
                   deja-zumbador;
               fin;
               apagate;
          fin;

     fin;
          define-nueva-instruccion mas2 como inicio
          este;
          mientras frente-libre hacer inicio
               si junto-a-zumbador entonces inicio
                  coge-zumbador;
                  si junto-a-zumbador entonces inicio
                  deja-zumbador;
                  fin sino inicio
                      deja-zumbador;
                      deja-zumbador;
                  fin;

             fin;
              avanza;
              si junto-a-zumbador entonces inicio
                  coge-zumbador;
                  si junto-a-zumbador entonces inicio
                  deja-zumbador;
                  fin sino inicio
                      deja-zumbador;
                      deja-zumbador;
                  fin;

             fin;
         fin;
         si frente-bloqueado entonces inicio
             oeste;
         fin;
           mientras frente-libre hacer inicio
              avanza;
           fin;
          norte;
           si frente-libre entonces inicio
               avanza;
               mas2;
           fin sino inicio
               sur;
               mientras frente-libre hacer inicio
                   avanza;
               fin;
          fin;

     fin;
       define-nueva-instruccion rombo como inicio
          este;
          mientras frente-libre hacer inicio
                si junto-a-zumbador entonces inicio
                  coge-zumbador;
                  si junto-a-zumbador entonces inicio
                  bola;
                  fin sino inicio
                      deja-zumbador;
                  fin;

             fin;
              avanza;
              si junto-a-zumbador entonces inicio
                  coge-zumbador;
                  si junto-a-zumbador entonces inicio
                  bola;
                  fin sino inicio
                      deja-zumbador;
                  fin;

             fin;
         fin;
         si frente-bloqueado entonces inicio
             oeste;
         fin;
           mientras frente-libre hacer inicio
              avanza;
           fin;
          norte;
           si frente-libre entonces inicio
               avanza;
               rombo;
           fin sino inicio
               sur;
               mientras frente-libre hacer inicio
                   avanza;
               fin;
          fin;

     fin;

    define-nueva-instruccion busca(n) como inicio
         si junto-a-zumbador entonces inicio
             coge-zumbador;
             busca(sucede(n));
         fin sino inicio
             repetir n veces inicio
                 mas2;
                 rombo;
             fin;
     fin;


    fin;
     inicia-ejecucion
     busca(0);
     termina(0);
     apagate;
    termina-ejecucion
finalizar-programa
