iniciar-programa

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


define-nueva-instruccion vende (t) como inicio

si no si-es-cero (t) entonces inicio
si no-junto-a-zumbador entonces avanza;
si junto-a-zumbador entonces inicio
coge-zumbador;
vende (precede (t));
fin;
fin;
fin;

define-nueva-instruccion tortilla (t) como inicio
si algun-zumbador-en-la-mochila entonces inicio
deja-zumbador;
tortilla (sucede(t));
fin
sino inicio
avanza;
avanza;
gira-izquierda;
vende (t);
fin;
fin;


    inicia-ejecucion
    mientras no orientado-al-norte hacer gira-izquierda;
    avanza;
    avanza;
    gira (2);
    tortilla (0);
    gira (2);
    mientras frente-libre hacer avanza;
    gira (3);
    avanza;
    avanza;
    mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
    gira (2);
    avanza;
    avanza;
    gira-izquierda;


    mientras no-junto-a-zumbador y frente-libre hacer avanza;

    mientras junto-a-zumbador hacer inicio
    gira (2);
    mientras junto-a-zumbador hacer coge-zumbador;
    mientras frente-libre y no-junto-a-zumbador hacer avanza;
    si junto-a-zumbador entonces inicio
    gira (2);
    si frente-libre entonces avanza;

    gira (2);
    fin;
    mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
    gira (2);
    si frente-libre entonces inicio
    avanza;
    fin
    sino apagate;
    mientras no-junto-a-zumbador y frente-libre hacer avanza;



    fin;
        apagate;
    termina-ejecucion
finalizar-programa
