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

define-nueva-instruccion comprueba como
inicio
    gira(3);
    mientras frente-libre hacer avanza;
    si no-junto-a-zumbador entonces
    inicio
        si orientado-al-norte entonces
        inicio
        gira(1);
        mientras frente-libre hacer avanza;
        gira(1);
        mientras frente-libre hacer avanza;
        apagate;
        fin;
        si orientado-al-sur entonces
        inicio
        gira(3);
        mientras frente-libre hacer avanza;
        apagate;
        fin;
        si orientado-al-este entonces
        inicio
        gira(1);
        mientras frente-libre hacer avanza;
        gira(1);
        mientras frente-libre hacer avanza;
        gira(1);
        mientras frente-libre hacer avanza;
        apagate
        fin;
        si orientado-al-oeste entonces
        inicio
        gira(1);
        mientras frente-libre hacer avanza;
        apagate;
        fin;
    fin
    sino
    inicio
        gira(2);
        mientras frente-libre hacer avanza;
        gira(3);
    fin;
fin;



define-nueva-instruccion terminate como
inicio
    mientras frente-libre y izquierda-bloqueada hacer
    inicio
        comprueba;
        avanza;
        si izquierda-libre entonces
        inicio
            gira(1);
            avanza;
        fin;
   fin;

   si (frente-bloqueado y izquierda-bloqueada) y derecha-libre entonces
   inicio
       gira(3);
       terminate;
   fin;
   si (frente-bloqueado y izquierda-bloqueada) y derecha-bloqueada entonces
   inicio
        gira(2);
        terminate;
    fin;
    si (izquierda-libre y derecha-libre) o (izquierda-bloqueada y frente-libre) entonces
    inicio
        gira(3);
        avanza;
        comprueba;
        terminate;
   fin;

fin;





define-nueva-instruccion verifica como
inicio
    coge-zumbador;
    si junto-a-zumbador entonces
    inicio
        deja-zumbador;
        terminate;
    fin
    sino
    inicio
        deja-zumbador;
    fin;
fin;




define-nueva-instruccion isla como
inicio
    mientras frente-libre y izquierda-bloqueada hacer
    inicio

        si no-junto-a-zumbador entonces deja-zumbador;

        avanza;
        si junto-a-zumbador entonces verifica;
        si no-junto-a-zumbador entonces
        inicio
            deja-zumbador;
        fin
        sino
        inicio
            verifica;
        fin;
        si izquierda-libre entonces
        inicio
           gira(1);
           avanza;



           si junto-a-zumbador entonces verifica;
           si izquierda-libre entonces
           inicio
           gira(1);
           avanza;
           fin;
           si junto-a-zumbador entonces verifica;
           isla;
   fin;

   fin;
   si izquierda-bloqueada y frente-libre entonces avanza;
   si (frente-bloqueado y izquierda-bloqueada) y derecha-libre entonces
   inicio
       gira(3);
       isla;
   fin;
   si (frente-bloqueado y izquierda-bloqueada) y derecha-bloqueada entonces
   inicio
        gira(2);
        isla;
    fin;
    si (izquierda-libre y derecha-libre) o (izquierda-bloqueada y frente-libre) entonces
    inicio
        gira(3);
        si no-junto-a-zumbador entonces
        inicio
                deja-zumbador;
        fin
        sino
        inicio
            verifica;
        fin;
        avanza;
        isla;
   fin;
fin;

    inicia-ejecucion
    mientras izquierda-libre hacer gira(1);
    repetir 2 veces deja-zumbador;
    isla;
        apagate;
    termina-ejecucion
finalizar-programa
