+ Better example

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;