iniciar-programa
define-nueva-instruccion fr como inicio
si orientado-al-oeste entonces inicio
gira-izquierda;
gira-izquierda;
fin;
gira-izquierda;
gira-izquierda;
mientras frente-libre hacer inicio
avanza;
fin;
gira-izquierda;
gira-izquierda;
mientras junto-a-zumbador y frente-libre hacer inicio
avanza;
fin;
deja-zumbador;
fin;
define-nueva-instruccion fg como inicio
si orientado-al-oeste entonces inicio
gira-izquierda;
gira-izquierda;
fin;
mientras frente-libre hacer inicio
avanza;
fin;
gira-izquierda;
gira-izquierda;
mientras junto-a-zumbador y frente-libre hacer inicio
avanza;
fin;
deja-zumbador;
deja-zumbador;
fin;

define-nueva-instruccion ty como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
si junto-a-zumbador entonces inicio
coge-zumbador;
fg;
si frente-libre entonces inicio
avanza;
fin;
ty;
fin
sino inicio
fr;
si frente-libre entonces inicio
avanza;
fin;
ty;
fin;
fin;
fin;
    inicia-ejecucion
    mientras no orientado-al-oeste hacer inicio
    gira-izquierda;
    fin;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira-izquierda;
    gira-izquierda;
    repetir 50 veces inicio
    ty;
    si frente-libre entonces inicio
    avanza;
    fin
    sino inicio
    gira-izquierda;
    gira-izquierda;
    fin;
    fin;
    mientras no orientado-al-este hacer inicio
    gira-izquierda;
    fin;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira-izquierda;
    gira-izquierda;
    ty;
     mientras no orientado-al-este hacer inicio
    gira-izquierda;
    fin;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira-izquierda;
    gira-izquierda;
    si frente-libre entonces inicio
    avanza;
    fin;
    ty;
     mientras no orientado-al-este hacer inicio
    gira-izquierda;
    fin;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira-izquierda;
    gira-izquierda;
    si frente-libre y junto-a-zumbador entonces inicio
    avanza;
    fin;
    si frente-libre entonces inicio
    avanza;
    fin;
    ty;
      mientras no orientado-al-este hacer inicio
    gira-izquierda;
    fin;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira-izquierda;
    gira-izquierda;
    si frente-libre entonces inicio
    avanza;
    fin;
    si frente-libre entonces inicio
    avanza;
    fin;
    si frente-libre entonces inicio
    avanza;
    fin;
    ty;
      mientras no orientado-al-este hacer inicio
    gira-izquierda;
    fin;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira-izquierda;
    gira-izquierda;
    si frente-libre entonces inicio
    avanza;
    fin;
    si frente-libre entonces inicio
    avanza;
    fin;
    si frente-libre entonces inicio
    avanza;
    fin;
    si frente-libre entonces inicio
    avanza;
    fin;
    ty;
    repetir 20 veces inicio
      mientras no orientado-al-este hacer inicio
    gira-izquierda;
    fin;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira-izquierda;
    gira-izquierda;
    mientras frente-libre y junto-a-zumbador hacer inicio
    avanza;
    fin;
    mientras frente-libre y no junto-a-zumbador hacer inicio
    avanza;
    fin;
    ty;
    fin;


                                
        apagate;
    termina-ejecucion
finalizar-programa
