SRL Archive - Other Scripts

I was bored so I made this flashly light thingy.

[PHP]program lights;

procedure a;
begin;
ClearDebug;
writeln('==0==0==0==0==0==0==0==0==0==0==0');
writeln('0 =');
writeln('= =');
writeln('= 0');
writeln('0 =');
writeln('= =');
writeln('= 0');
writeln('0==0==0==0==0==0==0==0==0==0==0==');
end;

procedure b;
begin;
ClearDebug;
writeln('=0==0==0==0==0==0==0==0==0==0==0=');
writeln('= =');
writeln('0 0');
writeln('= =');
writeln('= =');
writeln('0 0');
writeln('= =');
writeln('=0==0==0==0==0==0==0==0==0==0==0=');
end;

procedure c;
begin;
ClearDebug;
writeln('0==0==0==0==0==0==0==0==0==0==0==');
writeln('= 0');
writeln('= =');
writeln('0 =');
writeln('= 0');
writeln('= =');
writeln('0 =');
writeln('==0==0==0==0==0==0==0==0==0==0==0');
end;

begin;
repeat;
a;
wait(100);
b;
wait(100);
c;
wait(100);
until(false);
end.[/PHP]

Haha, cool :)

haha, sweet. Way to spend your time ;-)