iniciar-programa
define-nueva-instruccion gira(n) como inicio
   repetir n veces
      gira-izquierda;
fin;
define-nueva-instruccion norte como inicio
   mientras no-orientado-al-norte hacer
      gira(1);
fin;
define-nueva-instruccion sur como inicio
   mientras no-orientado-al-sur hacer
      gira(1);
fin;
define-nueva-instruccion este como inicio
   mientras no-orientado-al-este hacer
      gira(1);
fin;
define-nueva-instruccion oeste como inicio
   mientras no-orientado-al-oeste hacer
      gira(1);
fin;
define-nueva-instruccion cuenta(n) como inicio
   si junto-a-zumbador entonces inicio
      coge-zumbador;
      cuenta(sucede(n));
   fin
   sino inicio
      repetir n veces
         deja-zumbador;
      este;
      avanza;
      repetir n veces
         coge-zumbador;
      apagate;
   fin;
fin;
define-nueva-instruccion mide como inicio
   si izquierda-bloqueada entonces inicio
      avanza;
      mide;
      deja-zumbador;
   fin
   sino inicio
      mientras no-orientado-al-sur hacer inicio
         gira (1);
         avanza;
         mide;
      fin;
      si orientado-al-sur y no-junto-a-zumbador entonces inicio
         sur;
         avanza;
         este;
         avanza;
         avanza;
         repetir 4 veces
            deja-zumbador;
         sur;
      fin;
   fin;
fin;
define-nueva-instruccion regresa como inicio
   mientras no-junto-a-zumbador hacer inicio
      deja-zumbador;
      avanza;
      si junto-a-zumbador entonces inicio
         sur;
         avanza;
         este;
         avanza;
         deja-zumbador;
         oeste;
         avanza;
         norte;
         avanza;
         este;
         avanza;
         mientras no-junto-a-zumbador hacer inicio
            mientras izquierda-bloqueada y no-junto-a-zumbador hacer inicio
               avanza;
               si izquierda-libre y no-junto-a-zumbador entonces inicio
                  gira(1);
                  avanza;
               fin
               sino inicio
                  si izquierda-libre y junto-a-zumbador entonces
                     gira(1);
               fin;
            fin;
         fin;
      fin;
      mientras no-junto-a-zumbador hacer inicio
         mientras izquierda-bloqueada y no-junto-a-zumbador hacer
            avanza;
         si izquierda-libre y no-junto-a-zumbador entonces inicio
            gira(1);
            avanza;
         fin
         sino inicio
            si junto-a-zumbador entonces inicio
               sur;
               avanza;
               este;
               avanza;
               deja-zumbador;
               oeste;
               avanza;
               norte;
               avanza;
               este;
               avanza;
               mientras no-junto-a-zumbador hacer inicio
                  mientras izquierda-bloqueada y no-junto-a-zumbador hacer inicio
                     avanza;
                     si izquierda-libre y no-junto-a-zumbador entonces inicio
                        gira(1);
                        avanza;
                     fin
                     sino inicio
                        si izquierda-libre y junto-a-zumbador entonces
                           gira(1);
                     fin;
                  fin;
               fin;
            fin;
         fin;
      fin;
   fin;
fin;
define-nueva-instruccion bardar(n) como inicio
   repetir n veces
      avanza;
   si izquierda-bloqueada y no-junto-a-zumbador entonces inicio
      regresa;
      coge-zumbador;
      bardar(n);
   fin
   sino inicio
      si no-junto-a-zumbador entonces inicio
         gira(1);
         regresa;
         coge-zumbador;
         bardar(n);
      fin
      sino inicio
         coge-zumbador;
         avanza;
         este;
         avanza;
         deja-zumbador;
      fin;
   fin;
fin;
define-nueva-instruccion barda(n) como inicio
   si junto-a-zumbador entonces inicio
      coge-zumbador;
      barda(sucede(n));
   fin
   sino inicio
      repetir n veces
         deja-zumbador;
         norte;
         avanza;
         este;
         deja-zumbador;
         bardar(n);
   fin;
fin;
    inicia-ejecucion
       este;
       avanza;
        barda(0);
        norte;
        avanza;
        este;
        mide;
        oeste;
        avanza;
        cuenta(0);
        apagate;
    termina-ejecucion
finalizar-programa 