iniciar-programa


define-nueva-instruccion sur como inicio
       mientras no-orientado-al-sur hacer inicio
           gira-izquierda;
       fin;
fin;

define-nueva-instruccion norte como inicio
       mientras no-orientado-al-norte hacer inicio
           gira-izquierda;
       fin;
fin;

define-nueva-instruccion oeste como inicio
       mientras no-orientado-al-oeste hacer inicio
           gira-izquierda;
       fin;
fin;


define-nueva-instruccion este como inicio
       mientras no-orientado-al-este hacer inicio
           gira-izquierda;
       fin;
fin;


define-nueva-instruccion a-tope como inicio
    mientras frente-libre hacer inicio
        avanza;
    fin;
fin;


define-nueva-instruccion vacia como inicio
    mientras algun-zumbador-en-la-mochila hacer inicio
        deja-zumbador;
    fin;
fin;

define-nueva-instruccion ir-a-puerta como inicio
    sur;
    a-tope;
    oeste;
    a-tope;
    vacia;
fin;


define-nueva-instruccion final como inicio
    mientras no-junto-a-zumbador hacer inicio
        si frente-libre entonces inicio
             avanza;
        fin sino inicio
            ir-a-puerta;
            vacia;
            apagate;
        fin;

    fin;
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        ir-a-puerta;
        vacia;
    fin;
fin;

define-nueva-instruccion cambia-renglon como inicio
    este;
    a-tope;
    norte;
    si frente-libre entonces inicio
        avanza;
        oeste;
    fin sino inicio
        oeste;
        final;
        ir-a-puerta;
        vacia;
    fin;
fin;

define-nueva-instruccion revisa-abajo como inicio
     sur;
     avanza;

     si junto-a-zumbador entonces inicio
            coge-zumbador;
            norte;
            si frente-libre entonces inicio
                avanza;
            fin;

            cambia-renglon;
     fin sino inicio
           norte;
           avanza;
           oeste;
           si frente-libre entonces inicio
                avanza;
           fin sino inicio
               cambia-renglon;
           fin;
     fin;

 fin;

define-nueva-instruccion explora-renglon como inicio
    si junto-a-zumbador entonces inicio
        si frente-libre entonces inicio
            avanza;
        fin sino inicio
            cambia-renglon;
        fin;
    fin sino inicio
        revisa-abajo;

    fin;

fin;





    inicia-ejecucion
        cambia-renglon;
        mientras izquierda-libre hacer inicio
            explora-renglon;
        fin;


        apagate;
    termina-ejecucion
finalizar-programa
