iniciar-programa
define-nueva-instruccion vuelta como inicio gira-izquierda; gira-izquierda; fin;
define-nueva-instruccion avanzar como mientras frente-libre hacer avanza;
define-nueva-instruccion gira-derecha como inicio vuelta; gira-izquierda; fin;
define-nueva-instruccion busca como inicio
    mientras frente-libre y no-junto-a-zumbador hacer inicio
        avanza;
    fin;
    si frente-bloqueado y no-junto-a-zumbador entonces inicio
        gira-derecha;
        si frente-libre entonces inicio
        avanza;
            gira-derecha;
            avanzar;
            vuelta;
            busca;
        fin;
    fin;
fin;
 define-nueva-instruccion norte como inicio
        mientras no orientado-al-norte hacer inicio
            gira-izquierda;
        fin;
    fin;

    define-nueva-instruccion sur como inicio
        mientras no orientado-al-sur hacer inicio
            gira-izquierda;
        fin;
    fin;

    define-nueva-instruccion este como inicio
        mientras no orientado-al-este hacer inicio
            gira-izquierda;
        fin;
    fin;

    define-nueva-instruccion oeste como inicio
        mientras no orientado-al-oeste hacer inicio
            gira-izquierda;
        fin;
    fin;
define-nueva-instruccion esquina como inicio
    oeste;
    avanzar;
    sur;
    avanzar;
    oeste;
fin;
define-nueva-instruccion camina como inicio
    si frente-libre entonces inicio
        avanza;
    fin sino inicio
    si orientado-al-norte entonces inicio
        gira-derecha;
        si frente-libre entonces inicio
            avanza;
            gira-derecha;
            avanzar;
            vuelta;
        fin;
       fin;
       si orientado-al-sur entonces inicio
           gira-izquierda;
           si frente-libre entonces inicio
               avanza;
           fin;
           gira-izquierda;
       fin;
   fin;
fin;
define-nueva-instruccion guarda(n) como inicio
si junto-a-zumbador entonces inicio
    coge-zumbador;
    guarda(sucede(n));
fin sino inicio
    si no orientado-al-este entonces inicio
        busca;
        guarda(0);
    fin sino inicio
        esquina;
    fin;
   repetir n veces inicio
       si frente-libre entonces inicio
           avanza;
       fin sino inicio
           vuelta;
       fin;
   fin;
   deja-zumbador;
   esquina;
   fin;
fin;
define-nueva-instruccion contar(m) como inicio
    si frente-libre y no-junto-a-zumbador entonces inicio
        avanza;
        contar(sucede(m));
    fin sino inicio
        vuelta;
        avanzar;
        vuelta;
        avanza;
        mientras junto-a-zumbador hacer inicio
            coge-zumbador;
        fin;
        repetir m veces inicio
            deja-zumbador;
        fin;
    fin;
fin;
define-nueva-instruccion cuenta2(z) como inicio
    si frente-libre entonces inicio
        avanza;
        cuenta2(sucede(z));
    fin sino inicio
        mientras junto-a-zumbador hacer inicio
            coge-zumbador;
        fin;
        repetir z veces inicio
            deja-zumbador;
        fin;
    fin;
fin;
    inicia-ejecucion
    norte;
    busca;
    guarda(0);
    coge-zumbador;
    este;
    contar(1);
    este;
    avanzar;
    vuelta;
    mientras no-junto-a-zumbador hacer avanza;
    cuenta2(1);

        apagate;
    termina-ejecucion
finalizar-programa
