{ (c) 1998 CREEQ <creeq@web.de> }
Program Screensaver_23;
uses Crt;
var i : integer;

Procedure hell;
begin
  highvideo;
  write('23');
end;

Procedure dunkel;
begin
  normvideo;
  write('23');
end;

Begin
  Clrscr;
  repeat
    for i := 1 to 1000 do
    begin
      if i = 128 then hell
      else
      if i = 129 then hell
      else
      if i = 130 then hell
      else
      if i = 131 then hell
      else
      if i = 132 then hell
      else
      if i = 133 then hell
      else
      if i = 134 then hell
      else
      if i = 175 then hell
      else
      if i = 167 then hell
      else
      if i = 206 then hell
      else
      if i = 216 then hell
      else
      if i = 257 then hell
      else
      if i = 297 then hell
      else
      if i = 337 then hell
      else
      if i = 377 then hell
      else
      if i = 416 then hell
      else
      if i = 455 then hell
      else
      if i = 494 then hell
      else
      if i = 533 then hell
      else
      if i = 572 then hell
      else
      if i = 611 then hell
      else
      if i = 650 then hell
      else
      if i = 689 then hell
      else
      if i = 728 then hell
      else
      if i = 767 then hell
      else
      if i = 806 then hell
      else
      if i = 846 then hell
      else
      if i = 847 then hell
      else
      if i = 848 then hell
      else
      if i = 849 then hell
      else
      if i = 850 then hell
      else
      if i = 851 then hell
      else
      if i = 852 then hell
      else
      if i = 853 then hell
      else
      if i = 854 then hell
      else
      if i = 855 then hell
      else
      if i = 856 then hell
      else
      if i = 857 then hell
      else
      if i = 817 then hell
      else
      if i = 222 then hell
      else
      if i = 183 then hell
      else
      if i = 144 then hell
      else
      if i = 145 then hell
      else
      if i = 146 then hell
      else
      if i = 147 then hell
      else
      if i = 148 then hell
      else
      if i = 149 then hell
      else
      if i = 150 then hell
      else
      if i = 191 then hell
      else
      if i = 232 then hell
      else
      if i = 273 then hell
      else
      if i = 313 then hell
      else
      if i = 353 then hell
      else
      if i = 392 then hell
      else
      if i = 431 then hell
      else
      if i = 470 then hell
      else
      if i = 469 then hell
      else
      if i = 468 then hell
      else
      if i = 467 then hell
      else
      if i = 466 then hell
      else
      if i = 511 then hell
      else
      if i = 552 then hell
      else
      if i = 593 then hell
      else
      if i = 633 then hell
      else
      if i = 673 then hell
      else
      if i = 713 then hell
      else
      if i = 753 then hell
      else
      if i = 792 then hell
      else
      if i = 831 then hell
      else
      if i = 870 then hell
      else
      if i = 869 then hell
      else
      if i = 868 then hell
      else
      if i = 867 then hell
      else
      if i = 866 then hell
      else
      if i = 865 then hell
      else
      if i = 824 then hell
      else
      if i = 783 then hell
      else dunkel;
      delay(1);
    end;
  until keypressed;
  readkey;
  normvideo;
  clrscr;
end.