I was bored so I made this flashly light thingy.
PHP Code: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.




Reply With Quote



)
