iniciar-programa
define-nueva-instruccion gira(n) como
inicio
repetir n veces gira-izquierda;
fin;
define-nueva-instruccion deja(n) como
inicio
si frente-libre entonces
inicio
avanza;
deja(sucede(n));
fin
sino
inicio
gira(1);
avanza;
repetir n veces deja-zumbador;
apagate;
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;
mientras junto-a-zumbador y frente-libre hacer avanza;
repetir n veces
inicio
deja-zumbador;
si frente-libre entonces
avanza;
fin;
gira(2);
avanza;
gira(2);
deja-zumbador;
gira(2);
mientras frente-libre hacer avanza;
gira(1);
avanza;
gira(1);
si junto-a-zumbador entonces
cuenta(0);

fin;
fin;
define-nueva-instruccion revisa como
inicio
mientras junto-a-zumbador hacer
inicio
coge-zumbador;
si no-junto-a-zumbador entonces
inicio
deja-zumbador;
si frente-bloqueado entonces
sal-de-instruccion;
avanza;
fin
sino
inicio
deja-zumbador;
gira(3);
avanza;
si junto-a-zumbador entonces
inicio
coge-zumbador;
si no-junto-a-zumbador entonces
inicio
deja-zumbador;
gira(2);
avanza;
gira(3);
avanza;
fin
sino

inicio
gira(3);
deja(0);
fin;
fin
sino
inicio
gira(2);
avanza;
gira(3);
si frente-bloqueado entonces
sal-de-instruccion;
avanza;
fin;
fin;
fin;
fin;



define-nueva-instruccion  torneos como
inicio
cuenta(0);
gira(1);
avanza;
avanza;
gira(3);
avanza;
revisa;
gira(2);
mientras frente-libre hacer avanza;
gira(3);
mientras frente-libre hacer avanza;
gira(3);

torneos;

fin;

    inicia-ejecucion
    mientras no-orientado-al-sur hacer gira(1);
    mientras frente-libre hacer avanza;
    gira(3);
    mientras frente-libre hacer avanza;
    gira(3);
    torneos;
        apagate;
    termina-ejecucion
finalizar-programa
