iniciar-programa



define-nueva-instruccion come como mientras junto-a-zumbador hacer coge-zumbador;
define-nueva-instruccion norte como mientras no-orientado-al-norte hacer gira-izquierda;
define-nueva-instruccion sur como mientras no-orientado-al-sur hacer gira-izquierda;
define-nueva-instruccion este como mientras no-orientado-al-este hacer gira-izquierda;
define-nueva-instruccion oeste como mientras no-orientado-al-oeste hacer gira-izquierda;
define-nueva-instruccion media-vuelta como repetir 2 veces gira-izquierda;
define-nueva-instruccion choca como mientras frente-libre hacer avanza;
define-nueva-instruccion derecha como repetir 3 veces gira-izquierda;

define-nueva-instruccion coche como inicio
        mientras junto-a-zumbador y frente-libre hacer avanza; si junto-a-zumbador entonces coge-zumbador;
        media-vuelta; avanza;

    mientras junto-a-zumbador y frente-libre hacer inicio
        coge-zumbador; avanza;
    fin;
    si junto-a-zumbador entonces coge-zumbador;
    media-vuelta;
    avanza;
fin;

define-nueva-instruccion cuenta como inicio
   si algun-zumbador-en-la-mochila y no junto-a-zumbador entonces inicio
         deja-zumbador;
         si frente-libre entonces avanza;
         cuenta;
         coge-zumbador;
         avanza;
   fin sino inicio
       si algun-zumbador-en-la-mochila entonces inicio
           media-vuelta;   si frente-libre entonces avanza;
       fin sino inicio
           apagate;
       fin;
   fin;
fin;

define-nueva-instruccion izquierda como inicio
    gira-izquierda; avanza;
    derecha;
    cuenta;
    media-vuelta; avanza; derecha; avanza; gira-izquierda;
fin;


define-nueva-instruccion por-derecha como inicio
    derecha; avanza;
    gira-izquierda;
    cuenta;
    media-vuelta; avanza; gira-izquierda; avanza; derecha;
fin;


    inicia-ejecucion
        coche;
        mientras algun-zumbador-en-la-mochila hacer inicio
            izquierda;

            por-derecha;
            avanza;
        fin;



        apagate;
    termina-ejecucion
finalizar-programa
