Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

%%%%%%%%%%% Don't delete this file -- MKL %%%%%%%%%%%%%%%
%! Adobe PasteUp Version 2.0 (35)
/in.{72 mul}def
/line 512 string def
/buff 10 string def

/leftmargin where not{/leftmargin .75 in. def}{pop}ifelse
/bottom where not{/bottom .5 in. def}{pop}ifelse
/startX where not{/startX leftmargin def}{pop}ifelse
/startY where not{/startY 10 in. def}{pop}ifelse
/fontname where not{/fontname/Courier def}{pop}ifelse
/pointsize where not{/pointsize 11 def}{pop}ifelse
/leading where not{/leading pointsize 2 add def}{pop}ifelse
/headerfontname where not{/headerfontname/Courier-Bold def}{pop}ifelse
/headerpointsize where not{/headerpointsize 12 def}{pop}ifelse
/headerfont headerfontname findfont headerpointsize scalefont def
/page where not{/page 1 def}{pop}ifelse
/pagenumber where not{/pagenumber true def}{pop}ifelse
/printheader{gsave currentdict
	/header known
		{36 10.5 in. moveto
		headerfont
		setfont
		header
		show}
	if
	pagenumber{8 in. 10.5 in. moveto
		headerfont
		setfont
		page
		buff
		cvs
		show
		/page page 1 add def}if
	grestore startX startY moveto
}bind def
/crlf{leftmargin currentpoint exch pop leading sub dup bottom
	le{pop
	   pop
	   showpage
	   printheader}{moveto}ifelse}bind
def
/printfile{line
	   readline{{show
	   crlf currentfile
	   cvlit
	   line
	   readline
	   not{exit}if}loop}if
	   showpage}bind
def
fontname
findfont
pointsize
scalefont
setfont
printheader
currentfile
cvlit
printfile