iniciar-programa


define-nueva-instruccion ratones(x) como
inicio
   si junto-a-zumbador entonces
   inicio
       coge-zumbador;
       si junto-a-zumbador entonces
       inicio
           coge-zumbador;
           si junto-a-zumbador entonces
           inicio
               mientras junto-a-zumbador hacer
                   coge-zumbador;
           fin
           sino
           inicio
               repetir 3 veces
                   gira-izquierda;
           fin;
       fin
       sino
       inicio
           gira-izquierda;
       fin;
   fin
   sino
   inicio

   fin;
fin;
define-nueva-instruccion paso(x) como
inicio
    si junto-a-zumbador entonces
    inicio
        coge-zumbador;
        paso(sucede(x));
    fin
    sino
    inicio
        si no junto-a-zumbador entonces
        repetir x veces
            avanza;
        si junto-a-zumbador entonces
        inicio
            ratones(0);
            paso(x);
            deja-zumbador;
        fin;
    fin;
fin;
    inicia-ejecucion
        paso(0);
        deja-zumbador;
        apagate;
    termina-ejecucion
finalizar-programa
