iniciar-programa
define-nueva-instruccion vuelta como
repetir 2 veces
gira-izquierda;

define-nueva-instruccion bacam(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
bacam(sucede(n));
coge-zumbador;
deja-zumbador;
fin
sino
inicio
mientras algun-zumbador-en-la-mochila hacer
deja-zumbador;
avanza;
repetir n veces inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
fin
sino
si no junto-a-zumbador entonces inicio
mientras algun-zumbador-en-la-mochila hacer
deja-zumbador;
vuelta;
avanza;
fin;
fin;
fin;
si junto-a-zumbador y orientado-al-sur entonces inicio
mientras algun-zumbador-en-la-mochila hacer
deja-zumbador;
apagate;
fin
sino
inicio
mientras algun-zumbador-en-la-mochila hacer
deja-zumbador;
fin;
fin;

define-nueva-instruccion cesu como inicio
si junto-a-zumbador entonces inicio
avanza;
vuelta;
bacam(0);
cesu;
fin;
fin;

define-nueva-instruccion cambia(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
cambia(sucede(n));
coge-zumbador;
deja-zumbador;
fin
sino
inicio
mientras algun-zumbador-en-la-mochila hacer
deja-zumbador;
avanza;
repetir n veces inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
fin
sino
si no junto-a-zumbador entonces inicio
mientras algun-zumbador-en-la-mochila hacer
deja-zumbador;
vuelta;
avanza;
fin;
fin;
fin;
si junto-a-zumbador y orientado-al-oeste entonces inicio
repetir 3 veces
gira-izquierda;
mientras algun-zumbador-en-la-mochila hacer
deja-zumbador;
cesu;
fin
sino inicio
mientras algun-zumbador-en-la-mochila hacer
deja-zumbador;
fin;
fin;

define-nueva-instruccion suce como inicio
si junto-a-zumbador entonces inicio
avanza;
vuelta;
cambia(0);
suce;
fin;
fin;


    inicia-ejecucion
    mientras no orientado-al-este hacer
    gira-izquierda;
    suce;
        apagate;
    termina-ejecucion
finalizar-programa
