iniciar-programa

define-nueva-instruccion gd como repetir 3 veces gira-izquierda;

define-nueva-instruccion md como repetir 2 veces gira-izquierda;

define-nueva-instruccion iz como  gira-izquierda;

define-nueva-instruccion pared como mientras frente-libre hacer avanza;

define-nueva-instruccion entrada como inicio
    si orientado-al-oeste entonces md;
    si orientado-al-norte entonces gd;
    si orientado-al-sur entonces iz;
    pared;
    md;
fin;

define-nueva-instruccion dos como inicio
    mientras no-junto-a-zumbador y frente-libre hacer avanza;
    si junto-a-zumbador y orientado-al-este entonces inicio
        coge-zumbador;
        si frente-bloqueado entonces md;
        si frente-libre y orientado-al-este entonces avanza;
        dos;
        deja-zumbador;
    fin
    sino inicio
        si orientado-al-este entonces inicio
            md;
            pared;
        fin;
    fin;
fin;
define-nueva-instruccion coge como inicio
    mientras no-junto-a-zumbador y frente-libre hacer avanza;
    si junto-a-zumbador y orientado-al-oeste entonces inicio
        coge-zumbador;
        si frente-bloqueado entonces md;
        si frente-libre y orientado-al-oeste entonces avanza;
        coge;
        deja-zumbador;
    fin
    sino inicio
    si orientado-al-oeste entonces md;
        dos;
        md;
        pared;
    fin;
fin;
define-nueva-instruccion medio como inicio
    mientras junto-a-zumbador hacer inicio
        coge-zumbador;
        pared;
        si junto-a-zumbador entonces coge-zumbador;
        md;
        avanza;
        repetir 2 veces deja-zumbador;
        pared;
        md;
    fin;
fin;
define-nueva-instruccion recu como inicio
   si junto-a-zumbador entonces inicio
       coge-zumbador;
       recu;
       deja-zumbador;
   fin
   sino inicio
       pared;
   fin;
fin;
define-nueva-instruccion fila como inicio
   si junto-a-zumbador entonces inicio
       coge-zumbador;
       fila;
       deja-zumbador;
       si frente-libre entonces avanza;
   fin;
   fin;
define-nueva-instruccion fila2 como inicio
   si junto-a-zumbador entonces inicio
       coge-zumbador;
       coge-zumbador;
       fila2;
       deja-zumbador;
       deja-zumbador;
       si frente-libre entonces avanza;
   fin;
   fin;
    inicia-ejecucion
      entrada;
      coge;
      md;
      pared;
      md;
      medio;
      pared;
      md;
      recu;
      md;
      pared;
      md;
      avanza;
      md;
      recu;
      md;
      fila2;
      pared;
      md;
      fila;
        apagate;
    termina-ejecucion
finalizar-programa
