program random_ascii;

uses
   crt;


procedure display_random_ascii;

begin
   while not keypressed do
   begin
      textcolor(random(256));
      gotoxy(random(80),random(25));
      write(chr(random(256)));
   end;
end;


begin
   textmode(80);
   randomize;
   textbackground(black);
   clrscr;

   display_random_ascii;

   textcolor(lightgray);
   clrscr;
end.