iniciar-programa

define-nueva-instruccion gira-d como repetir 3 veces gira-izquierda;
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 avanza-muro como mientras frente-libre hacer avanza;
define-nueva-instruccion avanza-zumbador como mientras junto-a-zumbador hacer avanza;

define-nueva-instruccion mitad como
inicio
    mientras frente-libre y orientado-al-este hacer
    inicio
        repetir 2 veces avanza;
        mitad;
        oeste;
        avanza;
    fin;
fin;

define-nueva-instruccion tramo-linea como
inicio
    oeste;
    avanza-muro;
    este;
    mitad;
    deja-zumbador;
fin;

    inicia-ejecucion
    mientras algun-zumbador-en-la-mochila hacer
    inicio
    oeste;
    avanza-muro;
        este;
        mientras derecha-bloqueada y frente-libre hacer avanza;
        si derecha-libre entonces
        inicio
            tramo-linea;
            oeste;
            avanza-muro;
            este;
            mientras derecha-bloqueada hacer avanza;
            sur;
            avanza;
        fin;
        si derecha-bloqueada y frente-bloqueado y orientado-al-este entonces
        inicio
            tramo-linea;
            apagate;
        fin;
    fin;
    termina-ejecucion
finalizar-programa
