tests/webtbs/tw20880.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

{ %interactive }

program CrtBug;

uses Crt;

begin
  ClrScr;
  Window(windmaxx - 25, 5, windmaxx, 20);
  TextColor(LightRed);
  TextBackground(Cyan); 
  ClrScr;  
  
  while not KeyPressed do
  begin
    Write('R=', Random(256), ' ');
    Delay(100);
  end;
  
  ReadKey;
end.