Index: gets.n
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/gets.n,v
retrieving revision 1.4
diff -u -r1.4 gets.n
--- gets.n	14 Sep 2001 19:20:40 -0000	1.4
+++ gets.n	15 Apr 2004 20:15:46 -0000
@@ -52,6 +52,17 @@
 The \fBeof\fR and \fBfblocked\fR commands can be used to distinguish
 these three cases.
 
+.SH "EXAMPLE"
+This example reads a file, line by line.
+
+.CS
+set fl [open somefile]
+while { [gets $fl line] >= 0 } {
+    ... code ...
+}
+.CE
+
+
 .SH "SEE ALSO"
 file(n), eof(n), fblocked(n), Tcl_StandardChannels(3)
 
