iniciar-programa
define-nueva-instruccion gira-derecha como
inicio
 repetir 3 veces
  gira-izquierda;
fin;

define-nueva-instruccion media-vuelta como
inicio
 repetir 2 veces
  gira-izquierda;
 fin;

define-nueva-instruccion nextline como
inicio
gira-izquierda;
avanza;
gira-derecha;
fin;

define-nueva-instruccion recorre(x) como
inicio
 si no-junto-a-zumbador y izquierda-libre entonces
  nextline;
 mientras junto-a-zumbador hacer
 inicio
  si izquierda-bloqueada entonces
   sal-de-instruccion;
  repetir x veces
    avanza;
  si junto-a-zumbador entonces
   inicio
    si frente-bloqueado entonces
     inicio
       media-vuelta;
       coge-zumbador;
       avanza;
       mientras frente-libre hacer
        inicio
         coge-zumbador;
         avanza;
        fin;
       coge-zumbador;
       media-vuelta;
       nextline;
      fin
      sino
   inicio
     avanza;
     si junto-a-zumbador entonces
      inicio
       media-vuelta;
       mientras frente-libre hacer
        avanza;
       media-vuelta;
       nextline;
      fin
      sino
      inicio
       media-vuelta;
       avanza;
       mientras frente-libre hacer
        inicio
         coge-zumbador;
         avanza;
        fin;
       coge-zumbador;
       media-vuelta;
       nextline;
     fin;
      fin;
    fin
    sino
    inicio
     media-vuelta;
     mientras frente-libre hacer
      avanza;
     media-vuelta;
     nextline;
    fin;
    si no-junto-a-zumbador y izquierda-libre entonces
    nextline;
  fin;
  si no-junto-a-zumbador y izquierda-libre entonces
    inicio
    nextline;
    recorre(x);
   fin;

fin;

define-nueva-instruccion cuenta(x) como
inicio
 si junto-a-zumbador entonces
  inicio
   coge-zumbador;
   si frente-libre entonces
   avanza;
   cuenta(sucede(x));
  fin
  sino
   inicio
    media-vuelta;
    mientras frente-libre hacer
     avanza;
    gira-derecha;
    avanza;
    gira-derecha;
    recorre(precede(x));
   fin;
fin;

    inicia-ejecucion
    mientras frente-libre hacer
     avanza;
    gira-izquierda;
    mientras izquierda-libre hacer
    inicio
     si junto-a-zumbador entonces
      inicio
       cuenta(0);
       deja-zumbador;
      fin
      sino
      inicio
       nextline;
      fin;
     gira-derecha;
     mientras frente-libre hacer
      avanza;
     media-vuelta;
     mientras no-junto-a-zumbador y frente-libre hacer
      avanza;
     si frente-bloqueado entonces
      apagate;
     gira-derecha;
    fin;
        apagate;
    termina-ejecucion
finalizar-programa
