iniciar-programa
define-nueva-instruccion mitad-hori como inicio
    si frente-libre entonces inicio
        avanza;
        si frente-libre entonces inicio
            avanza;
            mitad-hori;
            avanza;
        fin sino inicio
            repetir 2 veces gira-izquierda;
            avanza;
        fin;
    fin sino inicio
        repetir 2 veces gira-izquierda;
    fin;
fin;
define-nueva-instruccion altura(c) como inicio
    si frente-libre entonces inicio
        avanza;
        altura(sucede(c));
        mientras no orientado-al-norte hacer  inicio
            gira-izquierda;
        fin;
        avanza;
    fin sino inicio
        repetir 2 veces gira-izquierda;
        repetir c veces avanza;
    fin;
fin;
define-nueva-instruccion ancho(d) como inicio
    si frente-libre entonces inicio
        avanza;
        ancho(sucede(d));
        mientras no orientado-al-este hacer  inicio
            gira-izquierda;
        fin;
        avanza;
    fin sino inicio
        repetir 2 veces gira-izquierda;
        repetir d veces avanza;
    fin;
fin;

define-nueva-instruccion cuadro(b) como  inicio
    repetir 4 veces inicio
        repetir 2 veces inicio
            repetir b veces inicio
                si junto-a-zumbador entonces coge-zumbador;
                repetir sucede(b) veces inicio
                     deja-zumbador;
                fin;
                si frente-libre entonces avanza;
            fin;
        fin;
        gira-izquierda;
    fin;
fin;

 define-nueva-instruccion newh como inicio
     si frente-libre entonces inicio
         avanza;
         si frente-libre entonces inicio
             avanza;
             newh;
             avanza;
         fin sino inicio
             repetir 2 veces gira-izquierda;
             avanza;
         fin;
     fin sino inicio
         repetir 2 veces gira-izquierda;
     fin;
 fin;
define-nueva-instruccion cuenta(a) como inicio
    si frente-libre entonces inicio
        avanza;
        cuenta(sucede(a));
        avanza;
        gira-izquierda;
        avanza;
        repetir 3 veces gira-izquierda;
        cuadro(a);
    fin sino inicio
        repetir 3 veces gira-izquierda;
        repetir a veces inicio
          si frente-libre entonces  inicio
              avanza;
          fin sino inicio
              repetir 2 veces gira-izquierda;
              mientras frente-libre hacer avanza;
              repetir 2 veces gira-izquierda;
              newh;
              ancho(0);
              deja-zumbador;
              mientras no orientado-al-oeste hacer gira-izquierda;
              cuenta(0);
              apagate;
          fin;
        fin;
        repetir 2 veces gira-izquierda;
        cuadro(a);
    fin;
fin;
inicia-ejecucion
    mientras no orientado-al-este hacer gira-izquierda;
    mitad-hori;
    altura(0);
    deja-zumbador;
    mientras no orientado-al-oeste hacer gira-izquierda;
    cuenta(0);
        apagate;
    termina-ejecucion
finalizar-programa
 