iniciar-programa

  define-nueva-instruccion cuenta como inicio
si frente-libre entonces inicio
avanza;
cuenta;
deja-zumbador;
fin
sino inicio
gira-izquierda;
avanza;
fin;
fin;
 define-nueva-instruccion empate como inicio
 avanza;
  mientras no junto-a-zumbador hacer avanza;
si junto-a-zumbador entonces inicio
 gira-izquierda;
 gira-izquierdA;
 gira-izquierdA;
 avanza;
 si junto-a-zumbador entonces inicio
 mientras no orientado-al-sur hacer gira-izquierda;
 cuenta;
 apagate;
 fin
sino
gira-izquierda;
gira-izquierda;
avanza;
repetir 3 veces gira-izquierda;
empate;
 fin;
fin;

define-nueva-instruccion   paso(n) como inicio
si frente-libre entonces inicio
  si junto-a-zumbador entonces inicio
  coge-zumbador;
  paso(sucede(n));
  fin
  sino inicio
  si no junto-a-zumbador  entonces inicio
   repetir n veces deja-zumbador;
   fin;
   repetir n veces inicio
   si frente-libre entonces avanza;
   fin;
si no junto-a-zumbador  entonces inicio
   repetir n veces deja-zumbador;
   fin;
   paso(0);
   fin;
      fin;
      fin;

    inicia-ejecucion
     mientras no orientado-al-sur hacer gira-izquierda;
    mientras frente-libre hacer avanza;
    mientras no orientado-al-oeste hacer gira-izquierda;
    mientras frente-libre hacer avanza;
    mientras no orientado-al-este hacer gira-izquierda;
    avanza;
    mientras no orientado-al-norte hacer gira-izquierda;
    paso (0);
    gira-izquierda;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    repetir 3 veces gira-izquierda;
    avanza;
    repetir 3 veces gira-izquierda;
    paso(0);
      gira-izquierda;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    mientras no orientado-al-norte hacer gira-izquierda;
     
     empate;
    apagate;
    termina-ejecucion
finalizar-programa
