From 99c5d0adab000aea388a874eaf4ecfcfdb84f7d3 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 5 Jan 2003 20:54:10 +0000
Subject: [PATCH] + Better example

---
 docs/crtex/ex9.pp | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/docs/crtex/ex9.pp b/docs/crtex/ex9.pp
index a2d896d182..0b401a7d8f 100644
--- a/docs/crtex/ex9.pp
+++ b/docs/crtex/ex9.pp
@@ -2,10 +2,19 @@ Program Example9;
 uses Crt;
 
 { Program to demonstrate the ClrEol function. }
-
+var
+  I,J : integer;
+  
 begin
-  Write('This line will be cleared from the',
-        ' cursor postion until the right of the screen');
+  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;