iniciar-programa
define-nueva-instruccion norte como mientras no-orientado-al-norte hacer gira-izquierda;
define-nueva-instruccion sur como mientras no-orientado-al-sur hacer gira-izquierda;
define-nueva-instruccion oeste como mientras no-orientado-al-oeste hacer gira-izquierda;
define-nueva-instruccion este como mientras no-orientado-al-este hacer gira-izquierda;
define-nueva-instruccion irfinal como
    inicio
        oeste;
                    mientras frente-libre hacer avanza;
                    norte;
                    mientras frente-libre hacer avanza;
                    este;
                    mientras frente-libre hacer avanza;
                    sur;
                    mientras frente-libre hacer avanza;
                    este;
                    avanza;
    fin;
define-nueva-instruccion ancho como
    inicio
        si izquierda-bloqueada y frente-libre entonces
            inicio
                avanza;
                ancho;
                deja-zumbador;
            fin sino
                inicio
                    oeste;
                    mientras frente-libre hacer avanza;
                    sur;
                    mientras frente-libre hacer avanza;
                    este;
                    mientras no-junto-a-zumbador hacer avanza;
                    este;
                    avanza;
                    avanza;
                    avanza;
                    deja-zumbador;
                fin;
    fin;
define-nueva-instruccion agrega como
    inicio
        si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                agrega;
                deja-zumbador;
                oeste;
                repetir 2 veces avanza;
                deja-zumbador;
                este;
                repetir 2 veces avanza;
            fin sino
                inicio
                    este;
                    repetir 2 veces avanza;
                    deja-zumbador;
                fin;
    fin;
define-nueva-instruccion resultado como
    inicio
        si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                resultado;
                deja-zumbador;
            fin sino
                inicio
                    irfinal;
                    si junto-a-zumbador entonces mientras junto-a-zumbador hacer coge-zumbador;
                fin;
    fin;
define-nueva-instruccion compara como
    inicio
        si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                si junto-a-zumbador entonces
                    inicio
                        oeste;
                        avanza;
                        si junto-a-zumbador entonces
                            inicio
                                coge-zumbador;
                                si junto-a-zumbador entonces
                                    inicio
                                        este;
                                        avanza;
                                        compara;
                                        deja-zumbador;
                                    fin sino
                                        inicio
                                            este;
                                            avanza;
                                            deja-zumbador;
                                        fin;
                            fin;
                    fin sino
                        inicio
                            oeste;
                            irfinal;
                            si junto-a-zumbador entonces mientras junto-a-zumbador hacer coge-zumbador;
                            deja-zumbador;
                            apagate;
                        fin;
            fin;
    fin;
    inicia-ejecucion
        este;
        avanza;
        coge-zumbador;
        si junto-a-zumbador entonces agrega;
        oeste;
        mientras frente-libre hacer avanza;
        este;
        repetir 5 veces avanza;
        deja-zumbador;
        oeste;
        mientras frente-libre hacer avanza;
        norte;
        mientras frente-libre hacer avanza;
        este;
        ancho;
        compara;
        resultado;
        apagate;
    termina-ejecucion
finalizar-programa
