home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.cs.arizona.edu
/
ftp.cs.arizona.edu.tar
/
ftp.cs.arizona.edu
/
icon
/
historic
/
v941.tgz
/
icon.v941src.tar
/
icon.v941src
/
ipl
/
progs
/
paginate.icn
< prev
next >
Wrap
Text File
|
2000-07-29
|
916b
|
36 lines
############################################################################
#
# 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