iniciar-programa
define-nueva-instruccion ubicate como
inicio
mientras no-orientado-al-oeste hacer
gira-izquierda;
mientras frente-libre hacer
avanza;
mientras no-orientado-al-sur hacer
gira-izquierda;
mientras frente-libre hacer
avanza;
mientras no-orientado-al-norte hacer
gira-izquierda;
fin;


define-nueva-instruccion rellena-2 como
inicio
    avanza;
    deja-zumbador;
    gira-izquierda;
    gira-izquierda;
    avanza;
    gira-izquierda;
    gira-izquierda;
fin;

define-nueva-instruccion rellena-1 como
inicio
si frente-libre entonces
rellena-2;
si frente-libre entonces
    inicio
    avanza;
    gira-izquierda;
    gira-izquierda;
    gira-izquierda;
        si frente-libre entonces
        rellena-2;
    gira-izquierda;
    gira-izquierda;
        si frente-libre entonces
        rellena-2;
    gira-izquierda;
    avanza;
    gira-izquierda;
    gira-izquierda;
    fin;
    gira-izquierda;
        si frente-libre entonces
        rellena-2;
    gira-izquierda;
    gira-izquierda;
        si frente-libre entonces
        rellena-2;
    gira-izquierda;
    gira-izquierda;
    gira-izquierda;
        si frente-libre entonces
        rellena-2;
        si frente-libre entonces
        inicio
        avanza;
        gira-izquierda;
        gira-izquierda;
        gira-izquierda;
            si frente-libre entonces
            rellena-2;
        gira-izquierda;
        gira-izquierda;
            si frente-libre entonces
            rellena-2;
        gira-izquierda;
        avanza;
        gira-izquierda;
        gira-izquierda;
        fin;
        gira-izquierda;
        gira-izquierda;
    fin;

define-nueva-instruccion cuenta(n) como
inicio
si no si-es-cero (n) entonces
    inicio
    si junto-a-zumbador entonces
    inicio
    coge-zumbador;
    cuenta(precede(n));
    deja-zumbador;
    fin;
    fin
    sino
    inicio
    rellena-1;
    fin;
    fin;

define-nueva-instruccion compara(n) como
inicio
si junto-a-zumbador entonces
    inicio
    coge-zumbador;
    compara (precede(n));
    fin
    sino
    inicio
    si si-es-cero(n) entonces
    repetir 9 veces deja-zumbador;

    fin;

fin;


define-nueva-instruccion compara-2(n) como
inicio
si( junto-a-zumbador) y ( no si-es-cero(n)) entonces
    inicio
    coge-zumbador;
    compara-2 (precede(n));
    deja-zumbador;
    fin
    sino
    inicio
    si si-es-cero(n) entonces
    inicio
    rellena-1;
    fin;
    fin;

fin;




define-nueva-instruccion recorre como
inicio
mientras frente-libre o orientado-al-norte hacer
    inicio
    si junto-a-zumbador entonces
    compara(9);
    si frente-libre entonces
    avanza;
    si frente-bloqueado entonces
        inicio
        si junto-a-zumbador entonces
        compara(9);
        mientras no-orientado-al-este hacer
        gira-izquierda;
        si frente-libre entonces
            inicio
            avanza;
            si derecha-libre entonces
                inicio
                gira-izquierda;
                gira-izquierda;
                gira-izquierda;
                fin
                sino
                inicio
                gira-izquierda;
                fin;
            fin;

        fin;
    fin;
fin;

define-nueva-instruccion recorre-2 como
  inicio
mientras frente-libre o orientado-al-norte hacer
    inicio
    si junto-a-zumbador entonces
        inicio

        si junto-a-zumbador entonces
        compara-2(9);
    fin;
    si frente-libre entonces
    avanza;
    si frente-bloqueado entonces
        inicio
        si junto-a-zumbador entonces
        compara-2(9);

        mientras no-orientado-al-este hacer
        gira-izquierda;
        si frente-libre entonces
            inicio
            avanza;
            si derecha-libre entonces
                inicio
                gira-izquierda;
                gira-izquierda;
                gira-izquierda;
                fin
                sino
                inicio
                gira-izquierda;
                fin;
            fin;

        fin;
    fin;
    fin;




    inicia-ejecucion
   ubicate;
   recorre;
   ubicate;
   recorre-2;

        apagate;
    termina-ejecucion
finalizar-programa
