V10/cmd/spitbol/4.3/printcomm.sc

input (.in, 0, "spitv43.cmt")
lineno = 100
pageno = 0

while (line = in) {
	if (line ? fence && span(" ") &&
	    ("EJC" && (span(" ") | "") && rpos(0) |
	    "TTL" && span(" ") && rem . ttl))
		lineno = 100
	else {
		if (lineno > 60)
			newpage()
		lineno = lineno + 1
		output = line
	}
}

procedure newpage() {
	if (lineno > 1)
		eject()
	output = ""
	output = ""
	pageno = pageno + 1
	lineno = 1
	output = "Page " && rpad(pageno, 4) && "            " && ttl
	output = ""
}