iniciar-programa
define-nueva-instruccion gira-derecha como inicio
repetir 3 veces gira-izquierda;
fin;
define-nueva-instruccion da-media-vuelta como inicio
repetir 2 veces gira-izquierda;
fin;
define-nueva-instruccion brinca como inicio
gira-izquierda;
mientras derecha-bloqueada hacer inicio
si frente-bloqueado y orientado-al-norte entonces inicio
da-media-vuelta;
mientras frente-libre hacer inicio
avanza;
fin;

sal-de-instruccion
fin sino inicio
si orientado-al-sur entonces inicio
sal-de-instruccion;
fin sino
avanza;
fin;
fin;
gira-derecha;
avanza;
gira-derecha;
mientras frente-libre hacer inicio
avanza;
fin;
gira-izquierda;
fin;
define-nueva-instruccion regresa como inicio
    gira-derecha;
    mientras izquierda-bloqueada hacer inicio
        avanza;
    fin;
    gira-izquierda;
    avanza;
    gira-izquierda;
    mientras frente-libre hacer inicio
        avanza;
    fin;
    gira-derecha;
fin;
define-nueva-instruccion tomar (n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
tomar (n);
deja-zumbador;
fin sino inicio
mientras frente-libre hacer inicio
avanza;
fin;
brinca;
repetir n veces avanza;
fin;
fin;
define-nueva-instruccion avanzar (n) como inicio
si derecha-bloqueada entonces inicio
si frente-bloqueado y izquierda-libre entonces inicio
brinca;
si orientado-al-sur entonces inicio
gira-derecha;
sal-de-instruccion;
fin;
fin sino inicio
si frente-bloqueado entonces inicio
da-media-vuelta;
sal-de-instruccion;
fin sino
avanza;
fin;
si frente-bloqueado entonces inicio
brinca;
fin sino avanza;
avanzar (sucede(n));
si frente-bloqueado entonces inicio
regresa;
fin sino
avanza;

fin sino inicio
da-media-vuelta;
fin;
fin;
define-nueva-instruccion orientar como inicio
si orientado-al-norte entonces inicio
gira-derecha;
fin;
si orientado-al-oeste entonces inicio
da-media-vuelta;
fin;
si orientado-al-sur entonces inicio
gira-izquierda;
fin;
fin;
    inicia-ejecucion
    orientar;
    mientras derecha-bloqueada hacer inicio
    avanzar (0);
    apagate;
    fin;
        apagate;
    termina-ejecucion
finalizar-programa

