iniciar-programa



define-nueva-instruccion norte como mientras no-orientado-al-norte hacer gira-izquierda;
define-nueva-instruccion sur como mientras no-orientado-al-sur hacer gira-izquierda;
define-nueva-instruccion este como mientras no-orientado-al-este hacer gira-izquierda;
define-nueva-instruccion oeste como mientras no-orientado-al-oeste hacer gira-izquierda;
define-nueva-instruccion choca como mientras frente-libre hacer avanza;

define-nueva-instruccion company como inicio
    si frente-bloqueado y derecha-bloqueada y izquierda-bloqueada entonces
    inicio
        deja-zumbador;
        deja-zumbador;
    fin;
    si no-junto-a-zumbador entonces inicio
        deja-zumbador;
        norte;
        si frente-libre entonces inicio
           avanza;
           company;
           sur;
           avanza;
        fin;
        oeste;
        si frente-libre entonces inicio
           avanza;
           company;
           este;
           avanza;
        fin;
        sur;
        si frente-libre entonces inicio
           avanza;
           company;
           norte;
           avanza;
        fin;
        este;
        si frente-libre entonces inicio
           avanza;
           company;
           oeste;
           avanza;
        fin;
    fin;
fin;


define-nueva-instruccion quita como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
               norte;
             si frente-libre entonces inicio
                 avanza;
                 quita;
                 sur;
                 avanza;
             fin;
             oeste;
             si frente-libre entonces inicio
                 avanza;
                 quita;
                 este;
                 avanza;
             fin;
              sur;
             si frente-libre entonces inicio
                 avanza;
                 quita;
                 norte;
                 avanza;
             fin;
             este;
             si frente-libre entonces inicio
                 avanza;
                 quita;
                 oeste;
                 avanza;
             fin;
    fin;
fin;
    inicia-ejecucion
        si frente-bloqueado entonces gira-izquierda;
        si frente-bloqueado entonces gira-izquierda;
        si frente-bloqueado entonces gira-izquierda;
        si frente-bloqueado entonces gira-izquierda;
        si frente-bloqueado entonces apagate;
        company;
        quita;
        apagate;
    termina-ejecucion
finalizar-programa
