Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
system/rever-plain.ps
There are no other files named rever-plain.ps in the archive.
%! Normal text prepend file - with hooks for REVER
% Todd Koumrian
% SRI International
% 31-Aug-1988
/linebuf 1024 string 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
/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
/Reframe { leftmargin topmargin moveto } bind def
/Newpage { showpage Reframe } 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 {
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