iniciar-programa
define-nueva-instruccion gira-derecha como inicio
repetir 3 veces gira-izquierda;
fin;
define-nueva-instruccion media-vuelta como inicio
repetir 2 veces gira-izquierda;
fin;
define-nueva-instruccion amontonar como inicio
mientras junto-a-zumbador hacer inicio
coge-zumbador;
si no-junto-a-zumbador entonces inicio
si frente-libre entonces inicio
avanza;
fin;
si no-junto-a-zumbador entonces inicio
media-vuelta;
mientras frente-libre hacer inicio
avanza;
fin;
mientras algun-zumbador-en-la-mochila hacer inicio
deja-zumbador;
fin;
media-vuelta;
sal-de-instruccion;
fin;
fin;
fin;
fin;
define-nueva-instruccion deposita como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
deposita;
deja-zumbador;
fin
sino
    inicio
    media-vuelta;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira-derecha;
    avanza;
    gira-derecha;
    fin;
fin;
define-nueva-instruccion exporta-excedente como inicio
mientras no-junto-a-zumbador hacer inicio
avanza;
fin;
si junto-a-zumbador entonces inicio
deposita;
fin;
coge-zumbador;
avanza;
gira-derecha;
avanza;
mientras algun-zumbador-en-la-mochila hacer inicio
deja-zumbador;
fin;
media-vuelta;
avanza;
gira-izquierda;
avanza;
media-vuelta;
fin;
define-nueva-instruccion suma1 como
inicio
mientras no-orientado-al-norte hacer
gira-izquierda;
mientras junto-a-zumbador hacer
inicio
    repetir 10 veces
    inicio
    si junto-a-zumbador entonces
    inicio
    coge-zumbador;
    fin                             
    sino
    inicio
    mientras no-orientado-al-norte hacer
    gira-izquierda;
    avanza;
    deja-zumbador;
    gira-izquierda;
    gira-izquierda;
    avanza;
    fin;
    fin;
mientras no-orientado-al-norte hacer
gira-izquierda;
avanza;
avanza;
deja-zumbador;
gira-izquierda;
gira-izquierda;
avanza;
avanza;
fin;
fin;
define-nueva-instruccion revisa(x) como
inicio
      si junto-a-zumbador entonces
      inicio
      coge-zumbador;
      revisa(precede(x));
      fin;
      si si-es-cero(x) entonces
      inicio
      mientras no-orientado-al-oeste hacer
      gira-izquierda;
      avanza;
      deja-zumbador;
      mientras no-orientado-al-norte hacer
      gira-izquierda;
      avanza;
      avanza;
      avanza;
      mientras algun-zumbador-en-la-mochila hacer
      deja-zumbador;
      gira-izquierda;
      gira-izquierda;
      avanza;
      avanza;
      avanza;
      fin;
      mientras algun-zumbador-en-la-mochila hacer
      deja-zumbador;
fin;
define-nueva-instruccion suma2 como
inicio
    mientras no-orientado-al-norte hacer
    gira-izquierda;
    avanza;
    repetir 10 veces
    si junto-a-zumbador entonces
    inicio
    coge-zumbador;
    fin
    sino
    inicio
    mientras no-orientado-al-sur hacer
    gira-izquierda;
    avanza;
    deja-zumbador;
    gira-izquierda;
    gira-izquierda;
    avanza;
    fin;
fin;
define-nueva-instruccion verifica como inicio
gira-izquierda;
avanza;
si junto-a-zumbador entonces inicio
gira-derecha;
sal-de-instruccion;
fin;
si no-junto-a-zumbador entonces inicio
sal-de-instruccion;
fin;
fin;
define-nueva-instruccion cuenta-mayor-de-diez como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
fin;
fin;
define-nueva-instruccion checa-si-es-diez como inicio
si junto-a-zumbador entonces inicio
repetir 9 veces cuenta-mayor-de-diez;
si junto-a-zumbador entonces inicio
mientras algun-zumbador-en-la-mochila hacer inicio
deja-zumbador;
fin;
revisa(10);
gira-izquierda;
avanza;
gira-izquierda;
fin;
si no-junto-a-zumbador entonces inicio
mientras algun-zumbador-en-la-mochila hacer inicio
deja-zumbador;
fin;
fin;
fin;
fin;
define-nueva-instruccion identifica como inicio
si junto-a-zumbador entonces inicio
repetir 10 veces cuenta-mayor-de-diez;
si junto-a-zumbador entonces inicio
mientras algun-zumbador-en-la-mochila hacer inicio
deja-zumbador;
fin;
suma1;
suma2;
exporta-excedente;
mientras no-orientado-al-este hacer inicio
gira-izquierda;
fin;
avanza;
mientras no-orientado-al-norte hacer inicio
gira-izquierda;
fin;
revisa(10);
mientras no-orientado-al-norte hacer inicio
gira-izquierda;
fin;
fin;
si no-junto-a-zumbador entonces inicio
mientras algun-zumbador-en-la-mochila hacer inicio
deja-zumbador;
fin;
checa-si-es-diez;
gira-izquierda;
avanza;
gira-derecha;
fin;
fin;
fin;
inicia-ejecucion
avanza;
gira-derecha;
mientras no-junto-a-zumbador hacer inicio
avanza;
fin;
mientras junto-a-zumbador hacer inicio
si frente-libre entonces inicio
avanza;
fin;
fin;
gira-izquierda;
si no-junto-a-zumbador entonces inicio
gira-izquierda;
avanza;
gira-derecha;
fin;
mientras junto-a-zumbador hacer inicio
amontonar;
verifica;
fin;
media-vuelta;
avanza;
mientras junto-a-zumbador hacer inicio
avanza;
fin;
media-vuelta;
avanza;
gira-derecha;
mientras junto-a-zumbador hacer inicio
identifica;
fin;

             apagate;
    termina-ejecucion
finalizar-programa
