iniciar-programa

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

define-nueva-instruccion posicionate como inicio
mientras no-orientado-al-este hacer inicio
gira-izquierda;
fin;
mientras frente-libre hacer inicio
avanza;
fin;
gira-izquierda;
mientras frente-libre hacer inicio
avanza;
fin;
gira-izquierda;
fin;

define-nueva-instruccion escaleras como inicio
mientras frente-libre hacer inicio
deja-zumbador;
gira-izquierda;
si frente-libre entonces
avanza;
gira-derecha;
si frente-libre entonces
avanza;
fin;
deja-zumbador;
gira-derecha;
mientras frente-libre hacer inicio
avanza;
fin;
gira-izquierda;
gira-izquierda;

mientras frente-libre hacer inicio
si no-junto-a-zumbador entonces
deja-zumbador;
gira-izquierda;
si frente-libre entonces
avanza;
gira-derecha;
si frente-libre entonces
avanza;
fin;
deja-zumbador;
gira-derecha;
fin;

define-nueva-instruccion retrocede como inicio
gira-izquierda;
gira-izquierda;
si frente-libre entonces
avanza;
gira-izquierda;
gira-izquierda;
fin;

define-nueva-instruccion mitadesuno como inicio
si frente-libre entonces inicio
avanza;
avanza;
mitadesuno;
avanza;
fin
sino
inicio
repetir 2 veces
gira-izquierda;
fin;
fin;

define-nueva-instruccion acompletauno como inicio
gira-izquierda;
mientras frente-libre hacer inicio
si no-junto-a-zumbador entonces
deja-zumbador;
si frente-libre entonces
avanza;
fin;
deja-zumbador;
fin;

define-nueva-instruccion dirigete como inicio
gira-izquierda;
mientras frente-libre hacer inicio
avanza;
fin;
gira-izquierda;
fin;

define-nueva-instruccion acompletados como inicio
gira-derecha;
mientras frente-libre hacer inicio
si no-junto-a-zumbador entonces
deja-zumbador;
avanza;
fin;
deja-zumbador;
fin;




    inicia-ejecucion



    posicionate;

    escaleras;

    mitadesuno;

    acompletauno;

    dirigete;

    mitadesuno;

    acompletados;

        apagate;
    termina-ejecucion
finalizar-programa
