iniciar-programa
define-nueva-instruccion gira(n) como
inicio
repetir n veces gira-izquierda;
fin;
define-nueva-instruccion avanzar como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
avanzar;
si frente-libre entonces
avanza;
fin
sino
inicio
gira(2);
avanza;
gira(1);
fin;
fin;
define-nueva-instruccion regresa1 como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
regresa1;
deja-zumbador;
fin
sino
inicio
gira(2);
avanza;
fin;
fin;
define-nueva-instruccion sube como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
sube;
deja-zumbador;
fin
sino
inicio
gira(1);
avanza;
si junto-a-zumbador entonces
inicio
gira(3);
avanza;
gira(1);
fin;
fin;
fin;
define-nueva-instruccion pasar como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
pasar;
deja-zumbador;
fin
sino
inicio
gira(1);
avanza;
gira(3);
mientras no-junto-a-zumbador hacer
avanza;
mientras junto-a-zumbador y frente-libre hacer avanza;
si frente-bloqueado entonces
inicio
gira(3);
fin
sino
inicio
gira(2);
avanza;
gira(1);
fin;
avanza;
gira(3);
mientras junto-a-zumbador hacer avanza;
gira(1);

fin;
fin;

define-nueva-instruccion mover como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
mover;
pasar;
gira(3);
avanza;
mientras no-junto-a-zumbador y frente-libre hacer avanza;
gira(2);
fin
sino
inicio
gira(1);
avanza;
gira(1);
mientras junto-a-zumbador hacer avanza;
gira(2);
avanza;
gira(2);
fin;
fin;
define-nueva-instruccion dejar como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
dejar;
deja-zumbador;
fin
sino
inicio
mientras frente-libre hacer avanza;
gira(1);
avanza;
gira(1);
mientras junto-a-zumbador hacer
inicio
si frente-bloqueado entonces apagate; avanza;
fin;
fin;
fin;


    inicia-ejecucion
    mientras no-orientado-al-norte hacer
    gira(1);
    avanza;
    coge-zumbador;
    avanzar;

    mientras junto-a-zumbador hacer
    inicio
    sube;
    gira(2);
    avanza;
    gira(1);
    si frente-libre y no-junto-a-zumbador entonces
    avanza;
    fin;
    gira(1);
    avanza;
    gira(1);
    avanza;
    mientras frente-libre hacer avanza;
    gira(2);
    avanza;
    gira(2);
    mover;
    gira(1);
    avanza;
    gira(3);
    mientras no-junto-a-zumbador y frente-libre  hacer avanza;
    gira(2);
    dejar;
    mientras junto-a-zumbador hacer
    inicio
    gira(1);
    avanza;
    gira(3);
    mientras no-junto-a-zumbador y frente-libre  hacer avanza;
    gira(2);
    dejar;
    fin;
    si frente-libre entonces
    inicio
    avanza;
    si junto-a-zumbador entonces
    regresa1;
    fin;

        apagate;
    termina-ejecucion
finalizar-programa
