paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 23:40:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Better example

Browse Source
This commit is contained in:
michael 2003-01-05 20:54:10 +00:00
parent f228f4d812
commit 99c5d0adab
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
docs/crtex/ex9.pp
View File

@ -2,10 +2,19 @@ Program Example9;
uses Crt; uses Crt;
{ Program to demonstrate the ClrEol function. } { Program to demonstrate the ClrEol function. }
var
I,J : integer;
begin begin
Write('This line will be cleared from the', For I:=1 to 15 do
' cursor postion until the right of the screen'); 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); GotoXY(27,WhereY);
ReadKey; ReadKey;
ClrEol; ClrEol;