iniciar-programa

define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;

define-nueva-instruccion expande como inicio
repetir 4 veces inicio
si frente-libre entonces inicio
avanza;
si no junto-a-zumbador entonces
deja-zumbador;
gira(2);
avanza;
gira(2);
fin;
gira(1);
fin;
fin;

define-nueva-instruccion virus como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
si junto-a-zumbador entonces inicio
expande;

si frente-libre entonces inicio
avanza;
virus;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(3);
sal-de-instruccion;
fin;
gira(1);
virus;
fin;
fin
sino inicio
deja-zumbador;
si frente-libre entonces inicio
avanza;
virus;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
gira(1);
virus;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(3);
sal-de-instruccion;
fin;
fin;
fin;
fin
sino inicio
si frente-libre entonces inicio
avanza;
virus;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(3);
sal-de-instruccion;
fin;
gira(1);
virus;
fin;
fin;
fin;

define-nueva-instruccion marca como inicio
si no junto-a-zumbador entonces inicio
si frente-libre entonces inicio
avanza;
marca;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
gira(1);
marca;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(3);
sal-de-instruccion;
fin;
fin;
fin
sino inicio
si junto-a-zumbador entonces inicio
deja-zumbador;
si frente-libre entonces inicio
avanza;
marca;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
gira(1);
marca;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(3);
sal-de-instruccion;
fin;
fin;
fin;
fin;
fin;

define-nueva-instruccion barrido como inicio
si no junto-a-zumbador entonces inicio
si frente-libre entonces inicio
avanza;
barrido;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
gira(1);
barrido;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
sal-de-instruccion;
fin;
fin;
fin
sino inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
barrido;
deja-zumbador;
fin;
fin;
fin;

define-nueva-instruccion dias(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
dias(sucede(n));
fin
sino inicio
repetir n veces inicio
marca;
virus;
fin;
barrido;
fin;
fin;

    inicia-ejecucion
    dias(0);
        apagate;
    termina-ejecucion
finalizar-programa
