iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;
define-nueva-instruccion erosion como
si junto-a-zumbador entonces
inicio
gira(1);
avanza;
gira(3);
si junto-a-zumbador y frente-libre entonces
mientras frente-libre hacer avanza
sino si frente-libre entonces avanza;
si junto-a-zumbador y frente-libre entonces
mientras frente-libre hacer avanza
sino
si frente-libre entonces
inicio
mientras no-junto-a-zumbador y frente-libre hacer avanza;
si junto-a-zumbador entonces
inicio
gira(3);
avanza;
gira(3);
mientras junto-a-zumbador hacer avanza;
gira(2);
avanza;
coge-zumbador;
mientras frente-libre hacer avanza;
gira(1);
avanza;
deja-zumbador;
fin;
fin;
mientras no-orientado-al-este hacer gira(1);
mientras no-junto-a-zumbador y frente-libre hacer avanza;
fin;
define-nueva-instruccion checa como
si junto-a-zumbador entonces
inicio
gira(1);
mientras junto-a-zumbador hacer avanza;
gira(2);
avanza;
erosion;
fin;
define-nueva-instruccion revisa como
mientras frente-libre hacer
inicio
mientras no-orientado-al-este hacer gira(1);
si junto-a-zumbador entonces checa;
fin;
define-nueva-instruccion mira como
inicio
si izquierda-libre entonces
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
si junto-a-zumbador entonces
inicio
mientras junto-a-zumbador hacer avanza;
gira(2);
deja-zumbador;
mientras frente-libre hacer avanza;
gira(2);
fin
sino deja-zumbador;
fin;
fin;
si izquierda-libre entonces
inicio
gira(1);
avanza;
gira(3);
fin;
fin;
    inicia-ejecucion
    mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
    mientras junto-a-zumbador hacer
    inicio
    coge-zumbador;
    mientras no-orientado-al-este hacer gira(1);
    avanza;
    mientras no-junto-a-zumbador y frente-libre hacer avanza;
    revisa;
    gira(1);
    mientras izquierda-libre hacer mira;
    fin;
        apagate;
    termina-ejecucion
finalizar-programa
