%!PS-Adobe-2.0
%%Title: Green Book Listing 4-2, on page 60.
%%Creator: "extract" program
%%CreationDate: Mon May  9 09:50:06 PDT 1988
%%EndComments
% --- cut here ---
%!PS-Adobe-2.0
%%Title: simple line printer emulator
 /buff 5000 string def
 /leftmargin 72 def  /topmargin 72 def
 /bottom 72 def  /top 792 topmargin sub def
 /ptsize 10 def /lead 10 def
 /EOLchar (\n) def  % line feed
 /F { findfont exch scalefont setfont } bind def
 /newline { %def
	currentpoint exch pop lead sub
	dup bottom lt { %if
		showpage
		pop top
	} if
	leftmargin exch moveto
 } bind def
 /emulate { %def
	{ %loop
		currentfile buff readstring exch
		EOLchar
		{ %loop (innermost)
			search { %ifelse
				show newline
			}{ %else
				show exit
			} ifelse
		} loop
		not { %if readstring found EOF
			exit
		} if
	} loop
	showpage
	leftmargin top moveto
 } bind def
%%EndProlog
%%BeginSetup
 ptsize /Courier F
 leftmargin top moveto
%%EndSetup
emulate
I wasted time, and now doth time waste me;
For now hath time made me his numbering clock;
My thoughts are minutes.
        - William Shakespeare