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

%! QuadH 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 0.5 def} {pop} ifelse
/scaleY where not {/scaleY 0.5 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
/Initquad { 0 11 inch 5 sub scaleY mul translate scaleX scaleY scale } bind def
/Shiftright { 8.5 inch 0 translate } bind def
/Shiftleft { -8.5 inch 0 translate } bind def
/Shiftdown { 0 -11 inch translate } bind def
/Reframe { leftmargin topmargin moveto } bind def
/Newpage {
    localpage dup 2 mod 0 eq
        {pop Shiftright Reframe}
        {4 mod 3 eq
            {showpage Initquad Reframe}
            {Shiftdown Shiftleft Reframe} ifelse
	} 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 {
    Initquad 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