iniciar-programa
define-nueva-instruccion comprueba(x) como
inicio
mientras frente-libre y no-junto-a-zumbador hacer
inicio
si frente-libre entonces avanza;
si no-junto-a-zumbador entonces
inicio
repetir 2 veces gira-izquierda;
si frente-libre entonces avanza;
repetir 2 veces gira-izquierda;
si no junto-a-zumbador entonces repetir x veces deja-zumbador;
si frente-libre entonces avanza;
repetir 3 veces gira-izquierda;
comprueba(sucede(x));
fin sino
inicio
repetir 2 veces gira-izquierda;
si frente-libre entonces avanza;
repetir 3 veces gira-izquierda;
si no-junto-a-zumbador entonces repetir x veces deja-zumbador;
si frente-libre entonces avanza;
repetir 3 veces gira-izquierda;
comprueba(sucede(x));
fin;
fin;
fin;
    inicia-ejecucion
    mientras no-orientado-al-norte hacer gira-izquierda;
    deja-zumbador;
    si frente-libre entonces avanza;
    repetir 3 veces gira-izquierda;
    comprueba(2);
        apagate;
    termina-ejecucion
finalizar-programa
