iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;
define-nueva-instruccion base como
inicio
mientras no-orientado-al-sur hacer gira(1);
mientras frente-libre hacer avanza;
mientras no-orientado-al-este hacer gira(1);
mientras frente-libre hacer avanza;
fin;
define-nueva-instruccion junta como
si frente-libre entonces
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
junta;
deja-zumbador;
fin
sino
inicio
mientras frente-libre hacer avanza;
gira(2);
mientras junto-a-zumbador y frente-libre hacer avanza;
fin;
fin;
define-nueva-instruccion casa como
inicio
mientras no-orientado-al-oeste hacer gira(1);
mientras frente-libre hacer avanza;
mientras no-orientado-al-sur hacer gira(1);
mientras frente-libre hacer avanza;
gira(3);
fin;
define-nueva-instruccion mira como
si frente-libre entonces
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
si no junto-a-zumbador entonces
inicio
avanza;
mira;
casa;
deja-zumbador;
fin
sino
inicio
coge-zumbador;
si no junto-a-zumbador entonces
inicio
avanza;
mira;
casa;
gira(2);
avanza;
repetir 2 veces deja-zumbador;
fin
sino
inicio
coge-zumbador;
si frente-libre entonces avanza;
mira;
casa;
deja-zumbador;
gira(2);
avanza;
repetir 2 veces deja-zumbador;
fin;
fin;
fin;
fin;

define-nueva-instruccion ve como
si junto-a-zumbador entonces
inicio
coge-zumbador;
ve;
deja-zumbador;
si frente-libre entonces avanza;
fin;
define-nueva-instruccion ve2 como
si junto-a-zumbador entonces
inicio
repetir 2 veces coge-zumbador;
ve2;
repetir 2 veces deja-zumbador;
si frente-libre entonces avanza;
fin;

    inicia-ejecucion
    base;
    gira(2);
    mientras frente-libre hacer
    inicio
    mientras junto-a-zumbador hacer avanza;
    mientras no-junto-a-zumbador y frente-libre hacer avanza;
    si junto-a-zumbador entonces
    inicio
    gira(2);
    junta;
    fin
    sino
    inicio
    gira(2);
    mientras frente-libre hacer avanza;
    si izquierda-libre entonces
    inicio
    gira(1);
    avanza;
    gira(1);
    fin;
    fin;
    fin;
    gira(3);
    mientras frente-libre hacer avanza;
    gira(3);
    mientras frente-libre hacer
    inicio
    mira;
    mientras no-orientado-al-este hacer gira(1);
    mientras frente-libre hacer avanza;
    si izquierda-libre entonces
    inicio
    gira(1);
    avanza;
    gira(1);
    fin;
    fin;
    casa;
    gira(3);
    ve;
    gira(3);
    avanza;
    gira(3);
    mientras frente-libre hacer avanza;
    gira(2);
    ve2;
        apagate;
    termina-ejecucion
finalizar-programa
