iniciar-programa

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

define-nueva-instruccion revisa(n) como inicio
si junto-a-zumbador entonces inicio
repetir n veces inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
fin
sino inicio
repetir 100 veces
deja-zumbador;
apagate;
fin;
fin;
si junto-a-zumbador entonces inicio
repetir n veces
deja-zumbador;
fin
sino inicio
repetir 100 veces
deja-zumbador;
apagate;
fin;
si frente-libre entonces inicio
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(3);
revisa(sucede(n));
fin;
gira(1);
revisa(n);
fin;
revisa(n);
fin
sino inicio
repetir 100 veces
deja-zumbador;
fin;
fin;
    inicia-ejecucion
    mientras no orientado-al-sur hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    gira(3);
    mientras frente-libre hacer
    avanza;
    gira(3);
    revisa(1);

        apagate;
    termina-ejecucion
finalizar-programa
