iniciar-programa
define-nueva-instruccion yaacabe como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
avanza;
repetir 3 veces gira-izquierda;
avanza;
deja-zumbador;
gira-izquierda;
gira-izquierda;
avanza;
gira-izquierda;
avanza;
gira-izquierda;
gira-izquierda;
yaacabe;
apagate;
fin;
fin;


define-nueva-instruccion cuenta(q) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
cuenta(sucede(q));
mientras frente-libre hacer avanza;
repetir q veces deja-zumbador;
gira-izquierda;
gira-izquierda;
avanza;
repetir 3 veces gira-izquierda;
yaacabe;
fin;
fin;




define-nueva-instruccion nu3 como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
avanza;
gira-izquierdA;
avanza;
gira-izquierda;
avanza;
deja-zumbador;
repetir 2 veces gira-izquierda;
avanza;
repetir 3 veces gira-izquierda;
avanza;
repetir 3 veces gira-izquierda;
avanza;
repetir 2 veces gira-izquierda;
nu3;
deja-zumbador;
fin;
fin;
define-nueva-instruccion nu2 como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
avanza;
deja-zumbador;
repetir 2 veces gira-izquierda;
avanza;
repetir 2 veces gira-izquierda;
nu2;
deja-zumbador;
fin;
fin;
define-nueva-instruccion CD(a) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
CD(sucede(a));
repetir a veces deja-zumbador;
repetir 3 veces gira-izquierdA;
avanza;
gira-izquierda;
avanza;
gira-izquierda;
avanza;
repetir 3 veces gira-izquierda;
mientras junto-a-zumbador hacer
inicio
repetir a veces
inicio
si junto-a-zumbador entonces coge-zumbador;
si no-junto-a-zumbador entonces
inicio
avanza;
gira-izquierda;
avanza;
gira-izquierda;
avanza;
si no-junto-a-zumbador entonces deja-zumbador;
mientras junto-a-zumbador hacer
inicio
coge-zumbador;
avanza;
deja-zumbador;
gira-izquierda;
avanza;
nu3;
repetir 2 veces gira-izquierda;
avanza;
repetir 3 veces gira-izquierda;
avanza;
repetir 2 veces gira-izquierda;
si no-junto-a-zumbador entonces
inicio
avanza;
repetir 2 veces gira-izquierda;
mientras junto-a-zumbador hacer
inicio
coge-zumbador;
avanza;
deja-zumbador;
repetir 2 veces gira-izquierda;
avanza;
repetir 2 veces gira-izquierda;
fin;
si no-junto-a-zumbador entonces
inicio
avanza;
si no-junto-a-zumbador entonces deja-zumbador;
avanza;

repetir 3 veces gira-izquierdA;
avanza;
gira-izquierda;
nu2;
repetir 2 veces gira-izquierda;
avanza;
repetir 2 veces gira-izquierda;
mientras junto-a-zumbador hacer
inicio
coge-zumbador;
avanza;
coge-zumbador;
repetir 2 veces gira-izquierda;
avanza;
repetir 2 veces gira-izquierda;
fin;
avanza;
avanza;
gira-izquierda;
gira-izquierda;
cuenta(1);
apagate;
fin;
fin;
fin;
fin;
fin;
avanza;
gira-izquierda;
avanza;
gira-izquierda;
avanza;
deja-zumbador;
repetir 2 veces gira-izquierda;
avanza;
repetir 3 veces gira-izquierda;
avanza;
repetir 3 veces gira-izquierda;
avanza;
repetir 2 veces gira-izquierda;
fin;
fin;
fin;
define-nueva-instruccion nu como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
gira-izquierda;
avanza;
repetir 3 veces gira-izquierdA;
avanza;
repetir 3 veces gira-izquierda;
avanza;
deja-zumbador;
repetir 2 veces gira-izquierda;
avanza;
gira-izquierda;
avanza;
gira-izquierda;
avanza;
gira-izquierda;
nu;
deja-zumbador;
fin;
fin;
    inicia-ejecucion
mientras no-orientado-al-norte hacer gira-izquierda;
    mientras frente-libre hacer avanza;
    repetir 3 veces gira-izquierda;
    avanza;
    gira-izquierda;
    avanza;
    gira-izquierda;
    avanza;
    repetir 3 veces gira-izquierda;
    avanza;
    repetir 2 veces gira-izquierda;
    mientras junto-a-zumbador hacer
    inicio
    coge-zumbador;
    repetir 2 veces gira-izquierda;
    avanza;
    deja-zumbador;
    repetir 2 veces gira-izquierda;
    mientras frente-libre hacer avanza;
    nu;
    repetir 2 veces gira-izquierda;
    avanza;
    repetir 2 veces gira-izquierda;
    fin;
    repetir 2 veces gira-izquierda;
    avanza;
    repetir 2 veces gira-izquierda;
    mientras junto-a-zumbador hacer
    inicio
    coge-zumbador;
    avanza;
    deja-zumbador;
    repetir 2 veces gira-izquierda;
    avanza;
    repetir 2 veces gira-izquierda;
    fin;
    mientras frente-libre hacer avanza;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    repetir 3 veces gira-izquierda;
    avanza;
    gira-izquierda;
    avanza;
    gira-izquierda;
    avanza;
    repetir 3 veces gira-izquierda;
    nu2;
    repetir 3 veces gira-izquierda;
    avanza;
    repetir 3 veces gira-izquierda;
    avanza;
    repetir 3 veces gira-izquierda;
    avanza;
    repetir 3 veces gira-izquierda;
    CD(1);
        apagate;
    termina-ejecucion
finalizar-programa
