iniciar-programa
    define-nueva-instruccion media-vuelta como
        repetir 2 veces
            gira-izquierda;
    define-nueva-instruccion gira-derecha como
        repetir 3 veces
            gira-izquierda;
    define-nueva-instruccion regresa como inicio
        media-vuelta;
        avanza;
        media-vuelta;
    fin;
    define-nueva-instruccion checa(x) como
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            checa(sucede(x));
            deja-zumbador;
        fin
        sino inicio
            avanza;
            repetir x veces
                si junto-a-zumbador entonces
                    coge-zumbador;
        fin;
    define-nueva-instruccion sur como
        si frente-libre entonces inicio
            avanza;
            sur;
            avanza;
        fin
        sino inicio
            gira-izquierda;
            avanza;
            deja-zumbador;
            media-vuelta;
            avanza;
            gira-derecha;
        fin;
    define-nueva-instruccion oeste como
        si frente-libre entonces inicio
            avanza;
            oeste;
            avanza;
        fin
        sino inicio
            gira-izquierda;
            sur;
            gira-derecha;
        fin;
    define-nueva-instruccion orientacion como
        si no-orientado-al-oeste entonces inicio
            gira-izquierda;
            orientacion;
            gira-derecha;
        fin
        sino inicio
            oeste;
            media-vuelta;            
        fin;

    define-nueva-instruccion busca(x) como
        repetir 3 veces inicio
            si frente-libre entonces inicio
                avanza;
                si junto-a-zumbador entonces inicio
                    coge-zumbador;
                    si junto-a-zumbador entonces inicio
                        coge-zumbador;
                        si junto-a-zumbador entonces inicio
                            repetir 2 veces
                                deja-zumbador;
                            regresa;
                        fin
                        sino inicio
                            gira-derecha;
                            busca(x);
                            orientacion;
                            media-vuelta;
                            regresa;
                        fin;
                    fin
                    sino inicio
                        gira-derecha;
                        busca(x);
                        media-vuelta;
                        regresa;
                    fin;
                fin
                sino inicio
                    regresa;
                fin;
           fin;
           gira-izquierda;
        fin;
    define-nueva-instruccion recorre como inicio
     mientras no-orientado-al-norte hacer inicio
       mientras frente-libre hacer inicio
            si junto-a-zumbador entonces inicio
                coge-zumbador;
                si junto-a-zumbador entonces inicio
                    coge-zumbador;
                    gira-derecha;
                    busca(0);
                    mientras no-orientado-al-oeste hacer
                        gira-izquierda;
                    mientras frente-libre hacer
                        avanza;
                    gira-izquierda;
                    mientras frente-libre hacer
                        avanza;
                    gira-izquierda;
                    avanza;
                    media-vuelta;
                    deja-zumbador;
                    checa(0);
                    media-vuelta;
                    avanza;
                fin
                sino inicio
                    gira-derecha;
                    busca(0);
                    mientras no-orientado-al-oeste hacer
                        gira-izquierda;
                    mientras frente-libre hacer
                        avanza;
                    gira-izquierda;
                    mientras frente-libre hacer
                        avanza;
                    gira-izquierda;
                    avanza;
                    media-vuelta;
                    checa(0);
                    media-vuelta;
                    avanza;
                fin;
            fin
            sino inicio
                avanza;
            fin;
        fin;
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            si junto-a-zumbador entonces inicio
                coge-zumbador;
                gira-derecha;
                busca(0);
                mientras no-orientado-al-oeste hacer
                    gira-izquierda;
                mientras frente-libre hacer
                    avanza;
                gira-izquierda;
                mientras frente-libre hacer
                    avanza;
                gira-izquierda;
                avanza;
                media-vuelta;
                deja-zumbador;
                checa(0);
                media-vuelta;
                avanza;
            fin
            sino inicio
                gira-derecha;
                busca(0);
                mientras no-orientado-al-oeste hacer
                    gira-izquierda;
                mientras frente-libre hacer
                    avanza;
                gira-izquierda;
                mientras frente-libre hacer
                    avanza;
                gira-izquierda;
                avanza;
                media-vuelta;
                checa(0);
                media-vuelta;
                avanza;
            fin;
        fin
        sino inicio
            si izquierda-libre entonces inicio
                media-vuelta;
                mientras frente-libre hacer
                    avanza;
                gira-derecha;
                avanza;
                gira-derecha;
            fin
            sino
                gira-izquierda;
        fin;
    fin;
    fin;
    inicia-ejecucion
        mientras no-orientado-al-oeste hacer
            gira-izquierda;
        mientras frente-libre hacer
            avanza;
        gira-izquierda;
        mientras frente-libre hacer
            avanza;
        gira-izquierda;
        recorre;
        apagate;
    termina-ejecucion
finalizar-programa
