program strobe;
uses crt;
var      x,y,l,m,d  :       integer;
         ch       :       char;
         done,r,s :       boolean;
begin
clrscr;
l:=11;
d:=50;
writeln('warning: this program may cause seizures or other injuries!');
writeln('controls');
writeln('d : exit');
writeln('1 : dark blue colored bars');
writeln('2 : dark green colored bars');
writeln('3 : teal colored bars');
writeln('4 : red colored bars');
writeln('5 : pink colored bars');
writeln('6 : brown colored bars');
writeln('7 : light gray colored bars');
writeln('8 : dark gray colored bars');
writeln('9 : blue colored bars');
writeln('q : green colored bars');
writeln('w : light blue colored bars');
writeln('e : dull pink colored bars');
writeln('r : pink colored bars');
writeln('t : yellow colored bars');
writeln('y : white colored bars');
writeln('m : random colored bars');
writeln('s : multi colored bars');
writeln('+ : speed up');
writeln('- : slow down');
writeln('press enter to continue');
readln;
repeat
delay(d);
if r=true then
l:=random(14)+1;
for y:=1 to 24 do
    begin
         for x:=1 to 80 do
             begin
                  if s=true then
l:=random(14)+1;
                  if x mod 2=0 then
                     begin
                          textcolor(l);
                          gotoxy(x,y);
                          write(char(219));

                     end
                  else
                      begin
                           textcolor(black);
                           gotoxy(x,y);
                           write(char(219));

                      end;
             end;
    end;
    delay(50);
for y:= 1 to 24 do
    begin
         for x:=1 to 80 do
         begin

                  if x mod 2=0 then
                     begin
                          textbackground(black);
                          textcolor(black);
                          gotoxy(x,y);
                          write(char(219));
                     end
                  else
                      begin
                           textcolor(l);
                           gotoxy(x,y);
                           write(char(219));
                      end;
         end;

    end;
    if keypressed then
    begin
    ch:=readkey;
       if ch='m' then
       begin
       s:=false;
       r:=true
       end
       else
       if ch='s' then s:=true
       else
       begin
       s:=false;
       r:=false;
       case ch of

            'd':done:=true;
            '1':l:=1;
            '2':l:=2;
            '3':l:=3;
            '4':l:=4;
            '5':l:=5;
            '6':l:=6;
            '7':l:=7;
            '8':l:=8;
            '9':l:=9;
            'q':l:=10;
            'w':l:=11;
            'e':l:=12;
            'r':l:=13;
            't':l:=14;
            'y':l:=15;
            '-':d:=d+10;
            '+':d:=d-10;
       end;
    end;
    end;
until done;
end.