{ (c) 1998 CREEQ <creeq@web.de> }
program star;
uses Crt;
var c : byte;
begin
  clrscr;
  randomize;
  repeat
    gotoxy(random(80),24);
    c := random(3);
    if c = 0 then textcolor(darkgray);
    if c = 1 then textcolor(lightgray);
    if c = 2 then textcolor(white);
    write('.');
    gotoxy(1,1);
    delay(50);
    delline;
  until keypressed;
  clrscr;
end.