iniciar-programa
Define-nueva-instruccion OrientaNorte como inicio
     Mientras no-orientado-al-norte hacer  gira-izquierda;
fin;
Define-nueva-instruccion Levanta como inicio
    Gira-izquierda;
    Mientras Frente-libre hacer avanza;
    gira-izquierda;
    avanza;  avanza;
Fin;
Define-nueva-instruccion Deposita como inicio
    Repetir 2 veces gira-izquierda;
    mientras frente-libre hacer   avanza;
    repetir 2 veces gira-izquierda;
    Si junto-a-zumbador entonces    avanza;
    Mientras algun-zumbador-en-la-mochila hacer
    Deja-zumbador;
fin;
Define-nueva-instruccion Saca-Area1 como  inicio
   si izquierda-bloqueada entonces inicio
          avanza;
      saca-Area1;
        Si no-orientado-al-este entonces
            Levanta;
          repetir 3 veces   Coge-zumbador;
 fin;
Fin;
Define-nueva-instruccion Saca-Area2 como  inicio
   si izquierda-bloqueada entonces inicio
          avanza;
      saca-Area2;
        Si no-orientado-al-este entonces
            Levanta;
          repetir 2 veces   Coge-zumbador;
 fin;
Fin;
Define-nueva-instruccion ve como inicio
    repetir 3 veces gira-izquierda;
    Mientras Frente-libre hacer  avanza;
    repetir 2 veces gira-izquierda;
fin;
Define-nueva-instruccion n2(n) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        n2(precede(n));
    fin;
fin;
Define-nueva-instruccion Num2(n) como inicio
  si junto-a-zumbador y no(si-es-cero(n)) entonces  inicio
      coge-zumbador;
      Num2(precede(n));
     fin
     sino inicio
     si no(si-es-cero(n)) entonces  inicio
      repetir 2 veces gira-izquierda;
      avanza;
    fin;
  fin;
fin;
Define-nueva-instruccion Mayor(n) como inicio
   Si junto-a-zumbador entonces inicio
        coge-zumbador;
      Mayor(sucede(n));
         fin
       sino inicio
        avanza;
        Num2(n);
       fin;
fin;
Define-nueva-instruccion Coloca-Mayor como inicio
    OrientaNorte;
    si izquierda-bloqueada entonces inicio
       avanza;
       Mientras algun-zumbador-en-la-mochila hacer
        deja-zumbador;
        Repetir 2 veces gira-izquierda;
        avanza;
        OrientaNorte;
        Repetir 5 veces avanza;
        ve;
        Saca-Area1;
        Deposita;
    fin
    sino inicio
        avanza;
       Mientras algun-zumbador-en-la-mochila hacer
        deja-zumbador;
        Repetir 2 veces gira-izquierda;
        avanza;
        OrientaNorte;
        Repetir 2 veces avanza;
        ve;
        Saca-area2;
        deposita;
    fin;
fin;
inicia-ejecucion
    OrientaNorte;
    Repetir 5 veces Avanza;
    Ve;
    Saca-Area1;
    Deposita;
    OrientaNorte;
    Repetir 2 veces Avanza;
    Ve;
    Saca-area2;
    deposita;
    Repetir 2 veces gira-izquierda;
    avanza;
    repetir 2 veces gira-izquierda;
        Mayor(0);
        Coloca-Mayor;
        apagate;
    termina-ejecucion
finalizar-programa
