iniciar-programa

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

define-nueva-instruccion avan como inicio
si frente-libre entonces inicio
avanza;
avan;
deja-zumbador;
fin;
fin;

define-nueva-instruccion divide como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
coge-zumbador;
divide;
avanza;
gira(3);
avanza;
gira(1);
fin;
fin;

define-nueva-instruccion real(n) como inicio
si no junto-a-zumbador entonces inicio
gira(1);
avanza;
si junto-a-zumbador entonces inicio
gira(2);
avanza;
repetir n veces deja-zumbador;
gira(1);
avanza;
real(n);
fin
sino inicio
gira(2);
avanza;
gira(2);
repetir n veces inicio
si no-junto-a-zumbador entonces
repetir n veces deja-zumbador;
avanza;
fin;
real(n);
fin;
fin;
fin;

define-nueva-instruccion cuenta(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
cuenta(sucede(n));
fin
sino inicio
repetir n veces deja-zumbador;
avanza;
real(n);
fin;
fin;

define-nueva-instruccion pasa(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
pasa(sucede(n));
fin
sino inicio
repetir n veces deja-zumbador;
si frente-libre entonces inicio
avanza;
fin
sino inicio
apagate;
fin;
gira(3);
avanza;
gira(2);
repetir n veces deja-zumbador;
deja-zumbador;
cuenta(0);
si frente-bloqueado entonces apagate;
pasa(0);
fin;
fin;

define-nueva-instruccion fija(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
fija(sucede(n));
fin
sino inicio
repetir n veces deja-zumbador;
mientras junto-a-zumbador hacer inicio
coge-zumbador;
si junto-a-zumbador entonces inicio
coge-zumbador;
fin
sino inicio
repetir n veces deja-zumbador;
coge-zumbador;
divide;
gira(1);
deja-zumbador;
pasa(0);

fin;
fin;
repetir n veces deja-zumbador;
divide;
gira(1);
deja-zumbador;
pasa(0);

fin;
fin;

define-nueva-instruccion chico(n) como inicio
si frente-libre entonces inicio
avanza;
chico(sucede(n));
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
repetir n veces inicio
si junto-a-zumbador y orientado-al-oeste entonces inicio
coge-zumbador;
fin
sino inicio
mientras no orientado-al-norte hacer gira-izquierda;
deja-zumbador;
fin;
fin;
si orientado-al-oeste entonces inicio
mientras junto-a-zumbador hacer coge-zumbador;
repetir n veces deja-zumbador;
gira(3);
fin
sino inicio
si orientado-al-norte entonces inicio
gira(1);
repetir n veces inicio
si junto-a-zumbador y orientado-al-oeste entonces inicio
coge-zumbador;
fin
sino inicio
mientras no orientado-al-norte hacer gira-izquierda;
deja-zumbador;
fin;
fin;
fin;
fin;
fija(0);
fin;
fin;

    inicia-ejecucion
    mientras no orientado-al-norte hacer gira-izquierda;
    mientras frente-libre hacer avanza;
    gira(2);
    avan;
    gira(1);
    chico(0);
        apagate;
    termina-ejecucion
finalizar-programa
