iniciar-programa

define-nueva-instruccion num  como inicio
si junto-a-zumbador y orientado-al-este entonces inicio
coge-zumbador;
num ;
avanza;
fin
sino inicio
mientras no junto-a-zumbador hacer avanza;
repetir 3 veces gira-izquierda;
avanza;
repetir 3 veces gira-izquierda;
fin;
fin;

define-nueva-instruccion dejo  como inicio
si junto-a-zumbador y orientado-al-este entonces inicio
coge-zumbador;
dejo ;
avanza;
fin;
fin;

define-nueva-instruccion saca como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
saca;
deja-zumbador;
fin
sino inicio
gira-izquierda;
gira-izquierdA;
avanza;
fin;
fin;





define-nueva-instruccion cuantos como inicio
mientras junto-a-zumbador hacer inicio
gira-izquierda;
avanza;
si no junto-a-zumbador entonces  inicio
mientras no orientado-al-sur hacer gira-izquierda;
avanzA;
saca;
mientras no orientado-al-sur hacer gira-izquierda;
avanzA;
gira-izquierda;
avanza;
fin
sino inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
sal-de-instruccion;
fin;
fin;
cuantos;
fin;
fin;

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

     define-nueva-instruccion recorre (n) como inicio
     si junto-a-zumbador entonces inicio
     si junto-a-zumbador entonces coge-zumbador;
      recorre (sucede(n));
       fin
     sino inicio
     si frente-libre entonces avanza;
     si junto-a-zumbador entonces inicio
     recorre (0);
     fin
     sino inicio
     mientras frente-libre hacer avanza;
     gira-izquierda;
     gira-izquierda;
     mientras junto-a-zumbador hacer avanza;
        fin;
     repetir n veces deja-zumbador; 
     si frente-libre entonces avanza;
     fin;
     fin;
 define-nueva-instruccion recorrei (n) como inicio
     si junto-a-zumbador entonces inicio
     si junto-a-zumbador entonces coge-zumbador;
      recorrei (sucede(n));
       fin
     sino inicio
     si frente-libre entonces avanza;
     si junto-a-zumbador entonces inicio
     recorrei (0);
     fin
     sino inicio
     mientras frente-libre hacer avanza;
     gira-izquierda;
     avanza;
     gira-izquierda;
     mientras junto-a-zumbador hacer avanza;
        fin;
     repetir n veces deja-zumbador; 
     si frente-libre entonces avanza;
     fin;
     fin;
     define-nueva-instruccion uno como inicio
     si junto-a-zumbador entonces inicio
     coge-zumbador;
     uno;
    deja-zumbador;
    fin
    sino inicio
    avanza;
    mientras junto-a-zumbador hacer avanza;   
 fin;
  fin;

    inicia-ejecucion
    mientras no orientado-al-norte hacer gira-izquierda;
    avanza;
    mientras no orientado-al-este hacer gira-izquierda;
    dejo ;
    gira-izquierda;
    gira-izquierda;
    avanza;
    deja-zumbador;
    si frente-libre entonces avanzA;
    mientras no junto-a-zumbador y frente-libre hacer avanza;
    si frente-bloqueado entonces inicio
    gira-izquierda;
    avanza;
    gira-izquierda;
    uno;
     mientras frente-libre hacer avanzA;
    gira-izquierda;
    gira-izquierda;
    mientras no junto-a-zumbador hacer avanza;

    recorre (0);
    fin
    sino inicio
    gira-izquierda;
    gira-izquierda;
    num;
    gira-izquierda;
    gira-izquierda;
    cuantos;
    ve;
     mientras frente-libre hacer avanzA;
    gira-izquierda;
    gira-izquierda;
    mientras no junto-a-zumbador hacer avanza;

    recorre (0);
     mientras frente-libre hacer avanzA;
    gira-izquierda;
    avanza;
    gira-izquierda;
    mientras no junto-a-zumbador hacer avanza;
    recorrei (0);
    fin;
        apagate;
    termina-ejecucion
finalizar-programa
