iniciar-programa
define-nueva-instruccion gira(n) como
inicio
repetir n veces gira-izquierda;
fin;
define-nueva-instruccion mitad como
inicio
si frente-libre entonces
avanza;
si frente-libre entonces
inicio
avanza;
mitad;
avanza;
fin
sino
gira(2);
fin;
define-nueva-instruccion deja(n) como
inicio
repetir n veces deja-zumbador;
fin;
define-nueva-instruccion sube como
inicio
    si frente-bloqueado entonces
    inicio
        gira(2);
        mientras frente-libre hacer avanza;
        gira(2);
    fin
    sino
    avanza;

fin;
define-nueva-instruccion derecha como
inicio
    si derecha-bloqueada entonces
    inicio
    gira(1);
    mientras frente-libre hacer avanza;
    gira(3);
    fin
    sino
    inicio
    gira(3);
    avanza;
    gira(1);
    fin;

fin;
define-nueva-instruccion regresa como
inicio
    gira(2);
    si frente-bloqueado entonces
    inicio
        gira(2);
        mientras frente-libre hacer avanza;
    fin
    sino
    inicio
    avanza;
    gira(2);
    fin;
    si izquierda-bloqueada entonces
    inicio
    gira(3);
    mientras frente-libre hacer avanza;
    gira(1);
    fin
    sino
    inicio
        gira(1);
        avanza;
        gira(3);
    fin;
    gira(2);
    si frente-bloqueado  entonces
    inicio
    gira(2);
    mientras frente-libre hacer
    avanza;
    si junto-a-zumbador entonces
    apagate;
    sal-de-instruccion;
    fin;
    avanza;
    gira(2);

fin;
define-nueva-instruccion cubo(n) como
inicio

        deja(n);
        sube;
        derecha;
        si junto-a-zumbador entonces
        regresa;
        si junto-a-zumbador entonces
        aPAGATE;
        cubo(sucede(n));

fin;
    inicia-ejecucion
    mientras no-orientado-al-norte hacer gira(1);
    mientras frente-libre hacer avanza;
    gira(3);
    mitad;
    gira(3);
    cubo(1);
        apagate;
    termina-ejecucion
finalizar-programa
