iniciar-programa

define-nueva-instruccion gira (r) como inicio
repetir r veces gira-izquierda;
fin;


define-nueva-instruccion cuenta2 como inicio
 si frente-libre entonces inicio
  avanza;
  cuenta2;
   repetir 3 veces deja-zumbador;
   fin
    sino inicio
    gira (2);
   mientras frente-libre hacer avanza;
  gira-izquierda;
 repetir 2 veces avanza;
fin;

fin;


define-nueva-instruccion cuenta como inicio
 si frente-libre entonces inicio
  avanza;
  cuenta;
   repetir 2 veces deja-zumbador;
   fin
    sino inicio
    gira (2);
   mientras frente-libre hacer avanza;
 fin;

fin;
(*---------------------------------------*)

define-nueva-instruccion lleva como inicio
 si junto-a-zumbador entonces inicio
  coge-zumbador;
   lleva;
    deja-zumbador;
     fin
     sino inicio
     mientras no-orientado-al-sur hacer gira-izquierda;
    mientras frente-libre hacer avanza;
   fin;
fin;


define-nueva-instruccion compara2 (k) como inicio
 si junto-a-zumbador y no si-es-cero (k) entonces inicio
  coge-zumbador;
   compara2 (precede(k));
    deja-zumbador;
    fin
    sino inicio
   si no-junto-a-zumbador entonces gira (2);
  fin;
fin;



define-nueva-instruccion compara (k) como inicio
 si junto-a-zumbador entonces inicio
  coge-zumbador;
   compara (sucede(k));

    fin
    sino inicio
    repetir k veces deja-zumbador;
   avanza;
  compara2 (k);
   si orientado-al-norte entonces avanza;
    lleva;


 fin;

fin;


    inicia-ejecucion

    mientras no-orientado-al-este hacer gira-izquierda;
    repetir 4 veces avanza;
     gira (2);
     repetir 255 veces coge-zumbador;
      repetir 2 veces avanza;
      gira (3);
      repetir 2 veces avanza;
     gira (3);

     cuenta;

     gira (3);

     repetir 3 veces avanza;
     gira (3);
     repetir 2 veces avanza;

     cuenta2;

     compara (0);



        apagate;
    termina-ejecucion
finalizar-programa
