iniciar-programa

define-nueva-instruccion regresa como
    inicio
    mientras no-orientado-al-sur hacer
    gira-izquierda;
    mientras frente-libre hacer
        inicio
        avanza;
        mientras no-orientado-al-este hacer
        gira-izquierda;
        avanza;
        si no-junto-a-zumbador entonces
        deja-zumbador;
        mientras no-orientado-al-sur hacer
        gira-izquierda;
        fin;
        fin;

 define-nueva-instruccion cuenta(N) como
 inicio
 mientras no-orientado-al-oeste hacer
 gira-izquierda;
 si frente-libre entonces
 avanza;
 si frente-libre entonces
 inicio
 avanza;
 cuenta(SUCEDE(N));
 avanza;
 fin
     sino
     inicio
     gira-izquierda;
     gira-izquierda;
     repetir n veces
     avanza;
     mientras no-orientado-al-norte hacer
     gira-izquierda;

     fin;
 fin;




define-nueva-instruccion rellena(n) como
inicio

si no-junto-a-zumbador entonces
deja-zumbador;
gira-izquierda;
repetir 2 veces
inicio
repetir n veces
inicio
    avanza;
    si no-junto-a-zumbador entonces
    deja-zumbador;
 fin;
 gira-izquierda;
 gira-izquierda;
 repetir n veces
 avanza;
 fin;
 mientras no-orientado-al-sur hacer
 gira-izquierda;
 si frente-libre entonces
 inicio
 avanza;
 rellena(sucede(n));
 fin;
 fin;


    inicia-ejecucion
mientras algun-zumbador-en-la-mochila hacer
inicio
     si no-junto-a-zumbador entonces
     deja-zumbador;
     mientras no-orientado-al-este hacer
     gira-izquierda;
     si frente-libre entonces
     avanza;
     mientras no-orientado-al-norte hacer
     gira-izquierda;
     avanza;
     si no-junto-a-zumbador entonces
     deja-zumbador;
     mientras no-orientado-al-sur hacer
     gira-izquierda;
     rellena(0);
     mientras no-orientado-al-norte hacer
     gira-izquierda;
     mientras junto-a-zumbador hacer
     avanza;
     si no-junto-a-zumbador entonces
         inicio
         gira-izquierda;
         gira-izquierda;
         avanza;
         fin;
fin;
mientras no-orientado-al-norte hacer
gira-izquierda;
si izquierda-bloqueada entonces
inicio
mientras no-orientado-al-este hacer
gira-izquierda;
mientras junto-a-zumbador hacer
avanza;
cuenta(0);
fin;     




    apagate;
    termina-ejecucion
finalizar-programa
