iniciar-programa

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

    define-nueva-instruccion gira-doble como
    inicio
        repetir 2 veces
        inicio
            gira-izquierda;
        fin;
    fin;

    define-nueva-instruccion principio como
    inicio
        mientras izquierda-libre hacer
        inicio
            gira-izquierda;
        fin;
    fin;

    define-nueva-instruccion marca como
    inicio
        repetir 1500 veces
        inicio
            si (izquierda-bloqueada y frente-libre) entonces
            inicio
                deja-zumbador;
                avanza;
            fin
            sino
            inicio
                si izquierda-libre entonces
                inicio
                   gira-izquierda;
                   avanza;
                fin
                sino
                inicio
                    si izquierda-bloqueada y frente-bloqueado entonces
                    inicio
                        gira-derecha;
                        deja-zumbador;
                        avanza;
                    fin;
                fin;
            fin;
        fin;
    fin;

    define-nueva-instruccion camina como
    inicio
        mientras frente-libre hacer
        inicio
            avanza;
        fin;
    fin;

    define-nueva-instruccion extra como
    inicio
        si orientado-al-sur entonces
        inicio
           gira-derecha;
           camina;
           apagate;
        fin
        sino
        inicio
            si orientado-al-norte entonces
            inicio
               gira-izquierda;
               camina;
               gira-izquierda;
               camina;
               apagate;
            fin
            sino
            inicio
                si orientado-al-este entonces
                inicio
                   gira-derecha;
                   camina;
                   gira-derecha;
                   camina;
                   apagate;
                fin
                sino
                inicio
                    si orientado-al-oeste entonces
                    inicio
                        gira-izquierda;
                        camina;
                        apagate;
                    fin;
                fin;
            fin;
        fin;
    fin;

    define-nueva-instruccion revisa como
    inicio
        gira-derecha;
        mientras frente-libre hacer
        inicio
            avanza;
        fin;
        si junto-a-zumbador entonces
        inicio
           gira-doble;
           mientras frente-libre hacer
           inicio
               avanza;
           fin;
           gira-derecha;
        fin
        sino
        inicio
            extra;
        fin;
    fin;

    define-nueva-instruccion tamales como
    inicio
        si izquierda-bloqueada entonces
        inicio
            revisa;
        fin;
        si izquierda-bloqueada y frente-libre entonces
        inicio
            avanza;
        fin
        sino
        inicio
            si izquierda-bloqueada y frente-bloqueado entonces
            inicio
                gira-derecha;
                avanza;
            fin
            sino
            inicio
                si izquierda-libre entonces
                inicio
                    gira-izquierda;
                    avanza;
                fin;
            fin;
        fin;
    fin;

    inicia-ejecucion
        principio;
        marca;
        mientras (no(derecha-libre y derecha-bloqueada)) hacer
        inicio
            tamales;
        fin;
        apagate;
    termina-ejecucion
finalizar-programa
