mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 12:26:58 +02:00
22 lines
278 B
ObjectPascal
22 lines
278 B
ObjectPascal
{ %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.
|