iniciar-programa

    define-nueva-instruccion gira-derecha como inicio
        repetir 3 veces inicio
            gira-izquierda;
        fin;
    fin;

    define-nueva-instruccion choca como inicio
        mientras frente-libre hacer inicio
           avanza;
        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 beeper como inicio

        mientras junto-a-zumbador y frente-libre hacer inicio
            avanza;
        fin;
        mientras no-junto-a-zumbador y frente-libre hacer inicio
           avanza;
        fin;
    fin;

    define-nueva-instruccion come como inicio
        mientras junto-a-zumbador hacer inicio
            coge-zumbador;
        fin;
    fin;

    define-nueva-instruccion cambia-columna como inicio
        si derecha-libre entonces inicio
            gira-derecha;
            avanza;
            gira-izquierda;
        fin sino inicio
            norte;
            choca;
            gira-izquierda;
            mientras frente-libre hacer inicio
                come;
                si frente-libre entonces inicio
                    avanza;
                fin;
           fin;
               come;
        fin;
    fin;

    define-nueva-instruccion dibuja como inicio
       mientras algun-zumbador-en-la-mochila hacer inicio
           deja-zumbador;
           si frente-libre entonces inicio
               avanza;
           fin;
       fin;
    fin;

    define-nueva-instruccion vacia como inicio
        mientras algun-zumbador-en-la-mochila hacer inicio
            deja-zumbador;
        fin;
    fin;

    define-nueva-instruccion pinta como inicio
            beeper;
        si frente-bloqueado y no-junto-a-zumbador entonces
        inicio
            sur;
            mientras no-junto-a-zumbador y frente-libre hacer inicio
                avanza;
            fin;
         mientras orientado-al-sur hacer inicio
           si junto-a-zumbador entonces inicio
                    come;
                    deja-zumbador;
               si frente-libre entonces inicio
                   avanza;
               fin sino inicio
                   norte;
                   choca;
                   vacia;
                   sur;
                   choca;
                   norte;
                   cambia-columna;
              fin;
           fin sino inicio
               si izquierda-bloqueada entonces inicio
                   apagate;
               fin  sino inicio
                   gira-izquierda;
                   avanza;
                   norte;
               fin;
           fin;
           fin;
        fin sino inicio
            come;
            sur;
            choca;
            norte;
            dibuja;
        fin;
    fin;


    inicia-ejecucion

        mientras orientado-al-norte hacer inicio
            pinta;
        fin;
            pinta;
            norte;
            choca;
            gira-izquierda;
            mientras frente-libre hacer inicio
                come;
                si frente-libre entonces inicio
                    avanza;
                fin;
           fin;
               come;


        apagate;
    termina-ejecucion
finalizar-programa
