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 come(x) como
inicio
 si junto-a-zumbador entonces
  inicio
   coge-zumbador;
   come(sucede(x));
  fin
 sino
  inicio
   avanza;
   gira-derecha;
   repetir x veces
    avanza;
   media-vuelta;
   avanza;
   media-vuelta;
   fin;
 fin;
 define-nueva-instruccion traga(x) como
inicio
 si junto-a-zumbador entonces
  inicio
   coge-zumbador;
   traga(sucede(x));
  fin
 sino
  inicio
   media-vuelta;
   mientras frente-libre hacer
    avanza;
   gira-derecha;
   avanza;
   gira-derecha;
   repetir x veces
    avanza;
   media-vuelta;
   avanza;
   media-vuelta;
   deja-zumbador;
   fin;
 fin;
 define-nueva-instruccion regresa como
 inicio
  media-vuelta;
  mientras frente-libre hacer
   avanza;
  gira-izquierda;
 avanza;
 gira-izquierda;
 mientras no-junto-a-zumbador y frente-libre hacer
  avanza;
 fin;
 define-nueva-instruccion final(x) como
 inicio
  si junto-a-zumbador entonces
   inicio
    coge-zumbador;
    final(sucede(x));
    deja-zumbador;
   fin
   sino
   inicio
    media-vuelta;
    mientras frente-libre hacer
     avanza;
    fin;
  fin;
 define-nueva-instruccion cuenta(x) como
 inicio
  si no-junto-a-zumbador entonces
   inicio
    si frente-bloqueado entonces
     sal-de-instruccion;
    avanza;
    cuenta(sucede(x));
   fin
   sino
   inicio
    media-vuelta;
    mientras frente-libre hacer
     avanza;
    gira-izquierda;
    avanza;
    gira-izquierda;
    repetir x veces
     avanza;
    si no-junto-a-zumbador entonces
     repetir x veces
      deja-zumbador;
    fin;
   fin;
    inicia-ejecucion
    si no-junto-a-zumbador entonces
     apagate;
    come(0);
    deja-zumbador;
    regresa;
    mientras junto-a-zumbador hacer
     inicio
      traga(0);
      regresa;
     fin;
    media-vuelta;
    mientras frente-libre hacer
     avanza;
    gira-derecha;
    avanza;
    gira-derecha;
    mientras no-junto-a-zumbador hacer
     avanza;
    mientras junto-a-zumbador hacer
     inicio
      coge-zumbador;
      avanza;
      cuenta(1);
      si frente-bloqueado entonces
      inicio
           media-vuelta;
     mientras frente-libre hacer
      avanza;
     gira-izquierda;
     avanza;
     gira-izquierda;
     mientras no-junto-a-zumbador hacer
      avanza;
     final(0);
     apagate;
     fin;
      media-vuelta;
      mientras frente-libre hacer
       avanza;
      gira-derecha;
      avanza;
      gira-derecha;
      mientras no-junto-a-zumbador y frente-libre hacer
       avanza;
     fin;

             apagate;
    termina-ejecucion
finalizar-programa
