iniciar-programa
define-nueva-instruccion gi como gira-izquierda;
define-nueva-instruccion gd como repetir 3 veces gi;
define-nueva-instruccion mv como repetir 2 veces gi;
define-nueva-instruccion a como avanza;
define-nueva-instruccion av(x) como
inicio
    repetir x veces a;
    si junto-a-zumbador entonces
    inicio
        coge-zumbador;
        si no-junto-a-zumbador entonces
        inicio
            gi;
            deja-zumbador;
        fin
        sino
        inicio
            coge-zumbador;
            si no-junto-a-zumbador entonces
            inicio
                gd;
                deja-zumbador;
                deja-zumbador;
            fin
        fin;
    fin;
fin;
define-nueva-instruccion pasos(x) como
inicio
    si junto-a-zumbador entonces
    inicio
        coge-zumbador;
        pasos(sucede(x));
    fin
    sino
    inicio
        av(x);
        repetir 80 veces
        si junto-a-zumbador entonces
        inicio
            repetir 50 veces si junto-a-zumbador entonces coge-zumbador;
            si no-junto-a-zumbador entonces av(x)
            sino  repetir 50 veces deja-zumbador;
        fin
        sino
        inicio
            repetir 51 veces deja-zumbador;
        fin;
    fin;
fin;
define-nueva-instruccion encontrar(x) como
inicio
    si junto-a-zumbador entonces
    inicio
        repetir 50 veces si junto-a-zumbador entonces coge-zumbador;
        si junto-a-zumbador entonces
        inicio
            mientras junto-a-zumbador hacer coge-zumbador;
            repetir x veces deja-zumbador;
            deja-zumbador;
            apagate;
        fin;
    fin;
    si frente-libre entonces inicio a; encontrar(x); fin
    sino
    inicio
        mv;
        mientras frente-libre hacer a;
        gd;
        a;
        gd;
        encontrar(x);
    fin;
fin;
define-nueva-instruccion regresa(x) como
inicio
    mv;
    mientras frente-libre hacer a;
    si derecha-libre entonces
    inicio
        gd; a; gd;
    fin
    sino
    inicio
        mientras no-orientado-al-oeste hacer gi;
        mientras frente-libre hacer a;
        gi;
        mientras frente-libre hacer a;
        gi;
        encontrar(x);
    fin;
fin;

define-nueva-instruccion barrer(x) como
inicio
    si no-junto-a-zumbador entonces
    inicio
        si frente-libre entonces inicio a; barrer(sucede(x)); fin
        sino
        inicio                                 
            deja-zumbador;
            barrer(sucede(x));
            regresa(x);
        fin;
    fin
    sino
    inicio
        si frente-libre entonces inicio a; barrer(x); fin
        sino inicio regresa(x);  barrer(x); fin;
    fin;
fin;
    inicia-ejecucion
    pasos(0);
    mientras no-orientado-al-oeste hacer gi;
    mientras frente-libre hacer a;
    gi;
    mientras frente-libre hacer a;
    gi;
    barrer(0);
        apagate;
    termina-ejecucion
finalizar-programa
