iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;
define-nueva-instruccion casa como
inicio
gira(2);
avanza;
gira(1);
avanza;
gira(3);
avanza;gira(3);
avanza;
fin;
define-nueva-instruccion yos(n) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
yos(n);
repetir n veces deja-zumbador;
fin
sino
inicio
casa;
fin;
fin;
define-nueva-instruccion cuenta(n) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
cuenta(sucede(n));
fin
sino
inicio
avanza;
yos(n);
fin;
fin;
define-nueva-instruccion cociente como
inicio
gira(2);
avanza;
mientras junto-a-zumbador hacer
coge-zumbador;
gira(1);
avanza;
gira(1);
repetir 2 veces avanza;
gira(1);
avanza;
deja-zumbador;
avanza;
gira(1);
repetir 2 veces avanza;
gira(1);
avanza;
gira(1);
avanza;
fin;
define-nueva-instruccion mueve como
inicio
coge-zumbador;
gira(2);
avanza;
deja-zumbador;
gira(2);
avanza;
fin;
define-nueva-instruccion divide(m) como
inicio
mientras junto-a-zumbador hacer
inicio
repetir m veces
si junto-a-zumbador entonces
inicio
mueve
fin
sino
inicio
apagate;
fin;
cociente;
fin;
fin;
define-nueva-instruccion primero(n) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
primero(sucede(n));
fin
sino
inicio
avanza;
gira(1);
avanza;
gira(1);
avanza;
si junto-a-zumbador entonces divide(n);
fin;
fin;
define-nueva-instruccion regresa como
inicio
gira(3);
avanza;
gira(3);
repetir 3 veces avanza;
gira(3);
avanza;
fin;
    inicia-ejecucion
    mientras no-orientado-al-norte hacer gira(1);
    mientras frente-libre hacer avanza;
    gira(3);
    avanza;
    gira(1);
    avanza;
    gira(1);
    avanza;
    gira(3);
    cuenta(0);
    gira(2);
    repetir 2 veces avanza;
    gira(1);
    avanza;
    gira(2);
    primero(0);
    si frente-libre entonces regresa;
        apagate;
    termina-ejecucion
finalizar-programa
