iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;
define-nueva-instruccion ve(a) como
si junto-a-zumbador entonces
inicio
coge-zumbador;
repetir a veces
inicio
avanza;
si derecha-libre entonces gira(3);
fin;
ve(a);
deja-zumbador;
fin
sino
inicio
gira(2);
avanza;
gira(1);
avanza;
gira(2);
fin;
define-nueva-instruccion cuenta(a) como
si junto-a-zumbador entonces
inicio
coge-zumbador;
cuenta(sucede(a));
fin
sino
inicio
avanza;
mientras no-junto-a-zumbador hacer
inicio
deja-zumbador;
repetir a veces
inicio
avanza;
si derecha-libre entonces gira(3);
fin;
fin;
si junto-a-zumbador entonces ve(a);
fin;
define-nueva-instruccion mide como
si izquierda-bloqueada entonces
inicio
avanza;
mide;
repetir 2 veces deja-zumbador;
fin;
define-nueva-instruccion mide2 como
si derecha-bloqueada entonces
inicio
avanza;
mide2;
repetir 2 veces deja-zumbador;
fin;
define-nueva-instruccion lleva como
si junto-a-zumbador entonces
inicio
coge-zumbador;
lleva;
deja-zumbador;
fin
sino
inicio
avanza;
gira(2);
fin;
define-nueva-instruccion dos(a) como
si no si-es-cero(a) entonces
si junto-a-zumbador entonces
inicio
coge-zumbador;
dos(precede(a));
fin
sino
inicio
gira(2);
repetir 2 veces avanza;
repetir a veces deja-zumbador;
fin;
define-nueva-instruccion uno(a) como
si junto-a-zumbador entonces
inicio
coge-zumbador;
uno(sucede(a));
fin
sino                                       
inicio
repetir a veces deja-zumbador;
avanza;
dos(a);
fin;
define-nueva-instruccion termina como
si junto-a-zumbador entonces
inicio
coge-zumbador;
termina;
deja-zumbador;
fin
sino
repetir 2 veces avanza;
    inicia-ejecucion
    mientras no-orientado-al-este hacer gira(1);
    avanza;
    gira(1);
    cuenta(0);
    avanza;
    gira(3);
    mientras derecha-libre hacer avanza;
    mientras derecha-bloqueada hacer avanza;
    gira(2);
    avanza;
    mide;
    gira(1);
    avanza;
    mientras izquierda-bloqueada hacer avanza;
    gira(2);
    avanza;
    mide2;
    repetir 4 veces deja-zumbador;
    gira(1);
    lleva;
    gira(3);
    avanza;
    gira(2);
    uno(0);
    si junto-a-zumbador entonces
    inicio
    gira(2);
    termina;
    fin;
        apagate;
    termina-ejecucion
finalizar-programa
