iniciar-programa
define-nueva-instruccion norte como mientras no-orientado-al-norte hacer gira-izquierda;
define-nueva-instruccion este como mientras no-orientado-al-este hacer gira-izquierda;
define-nueva-instruccion oeste como mientras no-orientado-al-oeste hacer gira-izquierda;
define-nueva-instruccion sur como mientras no-orientado-al-sur hacer gira-izquierda;
define-nueva-instruccion llena como
    inicio

    fin;
define-nueva-instruccion ir1 como
    inicio
        sur;
        mientras frente-libre hacer avanza;
        oeste;
        mientras frente-libre hacer avanzA;
        este;
    fin;
define-nueva-instruccion rellena como
    inicio
        si no-junto-a-zumbador entonces
            inicio
                deja-zumbador;
                norte;
                si frente-libre entonces
                    inicio
                        avanza;
                        rellena;
                        sur;
                        avanza;
                    fin;
                sur;
                si frente-libre entonces
                    inicio
                        avanza;
                        rellena;
                        norte;
                        avanza;
                    fin;
                este;
                si frente-libre entonces
                    inicio
                        avanza;
                        rellena;
                        oeste;
                        avanza;
                    fin;
                oeste;
                si frente-libre entonces
                    inicio
                        avanza;
                        rellena;
                        este;
                        avanza;
                    fin;
            fin;
    fin;
define-nueva-instruccion camina como
    inicio
        si frente-libre entonces avanza
        sino
            inicio
                oeste;
                mientras frente-libre hacer avanza;
                norte;
                avanza;
                este;
            fin;

    fin;

    inicia-ejecucion
        ir1;
        rellena;
        este;
        mientras frente-libre o izquierda-libre hacer
            inicio
                camina;
                si no-junto-a-zumbador entonces
                    inicio
                        rellena;
                        ir1;
                        deja-zumbador;
                        este;
                    fin;
            fin;
       ir1;
        coge-zumbador;
        apagate;
    termina-ejecucion
finalizar-programa
