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

define-nueva-instruccion cuenta como inicio
si junto-a-zumbador y orientado-al-sur entonces inicio
coge-zumbador;
si frente-libre entonces
avanza;
cuenta;
deja-zumbador;
fin
sino inicio
si no junto-a-zumbador y orientado-al-sur entonces inicio
gira(2);
mientras no junto-a-zumbador hacer
avanza;
gira(3);
avanza;
cuenta;
fin
sino inicio
si junto-a-zumbador y orientado-al-este entonces inicio
coge-zumbador;
si frente-libre entonces
avanza;
cuenta;
gira(1);
avanza;
deja-zumbador;
gira(2);
avanza;
gira(1);
fin
sino inicio
si no junto-a-zumbador y orientado-al-este entonces inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
mientras frente-libre hacer
avanza;
sal-de-instruccion;
fin;
fin;
fin;
fin;
fin;

define-nueva-instruccion multib(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
multib(n);
repetir n veces
deja-zumbador;
fin;
fin;

define-nueva-instruccion multi(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
multi(sucede(n));
fin
sino inicio
avanza;
multib(n);
fin;
fin;

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

define-nueva-instruccion eleva como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
eleva;
repetir 4 veces
deja-zumbador;
fin;
fin;

define-nueva-instruccion adel como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
adel;
deja-zumbador;
fin
sino inicio
mientras frente-libre hacer
avanza;
fin;
fin;

define-nueva-instruccion busca como inicio
si no junto-a-zumbador entonces inicio
si frente-libre entonces inicio
avanza;
busca;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(3);
si frente-libre entonces inicio
avanza;
gira(3);
busca;
fin
sino inicio
sal-de-instruccion;
fin;
fin;
fin
sino inicio
si junto-a-zumbador entonces inicio
avanza;
cuenta;
gira(1);
pasa(0);
gira(2);
avanza;
gira(2);
pasa(0);
gira(2);
multi(0);
eleva;
adel;
gira(2);
avanza;
gira(2);
adel;
fin;
fin;
fin;


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