iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;

define-nueva-instruccion tortuga(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
tortuga(sucede(n));
deja-zumbador;
si frente-libre entonces inicio
avanza;
fin;
fin
sino inicio
repetir n veces
deja-zumbador;
avanza;
avanza;
gira(3);
mientras no junto-a-zumbador y frente-libre  hacer
avanza;
mientras junto-a-zumbador  hacer
avanza;
fin;
fin;

define-nueva-instruccion conejo(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
conejo(sucede(n));
deja-zumbador;
si frente-libre entonces
avanza;
fin
sino inicio
repetir n veces
deja-zumbador;
avanza;
avanza;
gira(3);
mientras junto-a-zumbador hacer
avanza;
fin;
fin;

define-nueva-instruccion busca como inicio
si no junto-a-zumbador y frente-libre entonces inicio
avanza;
busca;
fin
sino inicio
si frente-bloqueado entonces inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(3);
avanza;
gira(3);
busca;
fin
sino inicio
si junto-a-zumbador entonces inicio
avanza;
si junto-a-zumbador entonces inicio
apagate;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(3);
mientras frente-libre hacer
avanza;
gira(3);
avanza;
sal-de-instruccion;
fin;
fin;
fin;
fin;
fin;

    inicia-ejecucion
    avanza;
    tortuga(0);
    gira(2);
    si no junto-a-zumbador entonces
    avanza;
    coge-zumbador;
    gira(2);
    gira(3);
    mientras frente-libre hacer
    avanza;
    gira(3);
    mientras frente-libre hacer
    avanza;
    deja-zumbador;
    gira(3);
    avanza;
    avanza;
    conejo(0);
    mientras no orientado-al-sur hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    gira(1);
    mientras frente-libre hacer
    avanza;
    gira(1);
    busca;
    mientras junto-a-zumbador hacer inicio
    tortuga(0);
    gira(3);
    mientras frente-libre hacer
    avanza;
    gira(3);
    mientras frente-libre hacer
    avanza;
    deja-zumbador;
    gira(3);
    avanza;
    avanza;
    conejo(0);
    mientras no orientado-al-sur hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    gira(1);
    mientras frente-libre hacer
    avanza;
    gira(1);
    busca;
    fin;
        apagate;
    termina-ejecucion
finalizar-programa
