blob: c15d3650d8e4271c493537fcbb5a142dbf87ff31 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
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.
|
