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 esquina como
    inicio
        sur;
        mientras frente-libre hacer avanza;
        oeste;
        mientras frente-libre hacer avanza;
        norte;

    fin;

define-nueva-instruccion puerta como
    inicio
        mientras frente-libre hacer
            inicio

                si derecha-libre entonces
                    inicio
                        este;
                         avanza;
                        esquina;
                        mientras no-junto-a-zumbador hacer
                            inicio
                                si frente-bloqueado entonces
                                    inicio
                                        sur;
                                        deja-zumbador;
                                        mientras frente-libre hacer avanza;
                                        si orientado-al-sur y frente-bloqueado y izquierda-bloqueada o  orientado-al-norte y frente-bloqueado y derecha-bloqueada entonces apagate;
                                        este;
                                        avanza;
                                        norte;
                                    fin;
                                deja-zumbador;
                                avanza;

                            fin;
                    fin;
                avanza;
            fin;

    fin;
define-nueva-instruccion camina como
     inicio
         este;
         mientras no-junto-a-zumbador hacer avanza;
         mientras junto-a-zumbador hacer coge-zumbador;
         esquina;
         avanza;
         puerta;



     fin;

    inicia-ejecucion
        camina;
        apagate;
    termina-ejecucion
finalizar-programa
