Initial upstream version 9.4.3upstream/9.4.3

1 files changed, 35 insertions, 0 deletions

diff --git a/ipl/progs/paginate.icn b/ipl/progs/paginate.icn
new file mode 100644
index 0000000..0b5cb5d
--- /dev/null
+++ b/ipl/progs/paginate.icn
@@ -0,0 +1,35 @@
+############################################################################
+#
+#	File:     paginate.icn
+#
+#	Subject:  Program to insert formfeeds
+#
+#	Author:   Paul Abrahams
+#
+#	Date:     September 28, 1992
+#
+############################################################################
+#
+#   This file is in the public domain.
+#
+############################################################################
+#
+#  This program processes a document text file, inserting formfeeds
+#  at appropriate places.
+#
+############################################################################
+
+procedure main()
+   local j, k, line, eof
+ 
+   while /eof do {
+      line := list(66, "")
+      every k := 1 to 66 do
+         (line[k] := read()) | (eof := 0)
+      every k := 66 to 0 by -1 do
+         if k = 0 | *trim(line[k]) > 0 then break
+      every write(line[j := 1 to k])
+      if k > 0 then
+         write("\f")
+      }
+end