iniciar-programa

define-nueva-instruccion gd como repetir 3 veces gira-izquierda;

define-nueva-instruccion md como repetir 2 veces gira-izquierda;

define-nueva-instruccion iz como  gira-izquierda;

define-nueva-instruccion pared como mientras frente-libre hacer avanza;

define-nueva-instruccion deja como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        deja;
        deja-zumbador;
        si frente-libre entonces avanza;
    fin
    sino inicio
        md;
        pared;
        gd;
        pared;
        md;
    fin;
FIN;
define-nueva-instruccion fi como inicio
    iz;
    pared;
    gd;
    mientras frente-libre o frente-bloqueado hacer inicio
        si junto-a-zumbador entonces inicio
        deja;
        md;
        pared;
        gd;
        pared;
        gd;
        mientras no-junto-a-zumbador y frente-libre hacer avanza;
        iz;
        fin
        sino inicio
            gd;
            si frente-libre entonces avanza;
            si frente-bloqueado entonces apagate;
            iz;
        fin;
    fin;
fin;

    inicia-ejecucion
    mientras frente-libre hacer inicio
    si izquierda-bloqueada entonces avanza;
    mientras no-junto-a-zumbador y frente-libre hacer avanza;
    si derecha-bloqueada y frente-bloqueado entonces fi;
    si frente-bloqueado entonces inicio
    md;
    pared;
    iz;
    avanza;
    iz;
    avanza;
    fin;

    si junto-a-zumbador entonces inicio
    deja;
    md;
    pared;
    gd;
    fin;
    fin;

        apagate;
    termina-ejecucion
finalizar-programa
