mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 07:59:28 +02:00
23 lines
380 B
ObjectPascal
23 lines
380 B
ObjectPascal
Program Example9;
|
|
uses Crt;
|
|
|
|
{ Program to demonstrate the ClrEol function. }
|
|
var
|
|
I,J : integer;
|
|
|
|
begin
|
|
For I:=1 to 15 do
|
|
For J:=1 to 80 do
|
|
begin
|
|
gotoxy(j,i);
|
|
Write(j mod 10);
|
|
end;
|
|
Window(5,5,75,12);
|
|
Write('This line will be cleared from',
|
|
' here till the right of the window');
|
|
GotoXY(27,WhereY);
|
|
ReadKey;
|
|
ClrEol;
|
|
WriteLn;
|
|
end.
|