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

%! Book prepend file - with hooks for REVER
%  Todd Koumrian
%  SRI International
%  31-Aug-1988
/linebuf 1024 string def
/localpage 0 def
/inch {72 mul} def
/fontname where not {/fontname /Courier def} {pop} ifelse
/fontsize where not {/fontsize 11 def} {pop} ifelse
/spacing where not {/spacing fontsize 1 add def} {pop} ifelse
/tabspaces where not {/tabspaces 8 def} {pop} ifelse
/scaleX where not {/scaleX 11 2 div 8.5 div def} {pop} ifelse
/scaleY where not {/scaleY 8.5 11 div def} {pop} ifelse
/leftmargin where not {/leftmargin 0.75 inch def} {pop} ifelse
/topmargin where not {/topmargin 10.5 inch def} {pop} ifelse
/bottommargin where not {/bottommargin 0.5 inch def} {pop} ifelse
/Initland { 1 11 inch translate -90 rotate scaleX scaleY scale } bind def
/Shiftright { 1 scaleX div 5.5 inch mul 0 translate } bind def
/Reframe { leftmargin topmargin moveto } bind def
/Newpage { localpage 2 mod 0 eq
    {Shiftright Reframe} 
    {showpage Initland Reframe} ifelse
  /localpage localpage 1 add def
} bind def
/Newline {
    leftmargin currentpoint exch pop
    spacing sub
} bind def
/Tab {dup show length tabspaces mod 1 tabspaces 1 sub {pop ( ) show} for
} bind def
/FindTab {
    (\t) search {Tab pop FindTab} {show} ifelse
} bind def
/FF { FindTab Newpage } bind def
/FindFF {
   (\f) search
    { FF  pop dup () ne {FindFF} {pop Newline moveto} ifelse}
    {FindTab Newline dup round bottommargin round le
        {pop pop Newpage} {moveto} ifelse}
    ifelse
} bind def
/Printfile {
    Initland Reframe
    { currentfile cvlit linebuf readline not
      {dup () eq {pop} {FindFF} ifelse exit}
      {FindFF}
      ifelse
    }loop
    currentpoint exch pop round topmargin round lt {showpage}if
} bind def
fontname findfont fontsize scalefont setfont
Printfile