iniciar-programa
define-nueva-instruccion gira-derecha como
inicio
   repetir 3 veces gira-izquierda;
   fin;
   define-nueva-instruccion vuelta como
inicio
repetir 2 veces gira-izquierda;
fin;
define-nueva-instruccion oca como inicio
 mientras no-orientado-al-este hacer inicio
   gira-izquierda;
   fin;
    mientras no-junto-a-zumbador y frente-libre hacer inicio
    avanza;
    fin;
    mientras junto-a-zumbador hacer inicio
    coge-zumbador;
    fin;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    si ningun-zumbador-en-la-mochila y frente-bloqueado entonces inicio
    apagate;
    fin;
    gira-izquierda;
    mientras derecha-bloqueada hacer inicio
    avanza;
    fin;
    gira-derecha;
    avanza;
   gira-derecha;
   mientras frente-libre hacer inicio
   avanza;
   fin;
   si junto-a-zumbador entonces inicio
   gira-izquierda;
   mientras junto-a-zumbador hacer inicio
   avanza;
   fin;
   fin;
   mientras algun-zumbador-en-la-mochila hacer inicio
   deja-zumbador;
   fin;
   vuelta;
   mientras frente-libre y izquierda-bloqueada hacer inicio
   avanza;
   fin;
  si frente-bloqueado y izquierda-bloqueada entonces inicio
  gira-derecha;
  fin;
   mientras izquierda-bloqueada hacer inicio
   avanza;
   fin;
   gira-izquierda;
   mientras frente-libre hacer inicio
   avanza;
   fin;
   gira-izquierda;
   mientras frente-libre hacer inicio
   avanza;
   fin;
   oca;
   fin;
    inicia-ejecucion
   oca;

        apagate;
    termina-ejecucion
finalizar-programa
