138090Skarels 238090Skarels% included prolog for enscript files 338090Skarels% last edit: shore Sat Nov 9 13:28:41 1985 438090Skarels% Copyright (c) 1983, 1984 Adobe Systems Incorporated 5*45360Skarels% @(#)enscript.pro 1.3 (Berkeley) 10/19/90 638091Skarels% RCSID: $Header: enscript.pro,v 1.5 89/03/10 00:45:30 van Exp $ 738090Skarelssave/EnscriptJob exch def 838090Skarels/StartEnscriptDoc{$enscript begin}def 938090Skarels/$enscript 50 dict def $enscript begin 1038090Skarels/EndEnscriptDoc{end}def 1138090Skarels/S/show load def 1238090Skarels/X{exch 0 rmoveto S}def 1338090Skarels/Y{exch 0 exch rmoveto S}def 1438090Skarels/B{3 1 roll moveto S}def 1538090Skarels/F{$fd exch get setfont}def 1638090Skarels/StartPage{/svpg save def .05 dup scale}def 1738090Skarels/EndPage{svpg restore showpage}def 1838090Skarels/DoPreFeed{/statusdict where{pop 1938090Skarels statusdict/prefeed known{statusdict exch/prefeed exch put 0}if}if pop}def 2038090Skarels/Landscape{90 rotate 0 -15840 translate}def 2138090Skarels/SetUpFonts 2238090Skarels {dup/$fd exch array def{findfont exch scalefont $fd 3 1 roll put}repeat}def 2338091Skarels/InitGaudy{/TwoColumn exch def /BarLength exch def}def 2438090Skarels/U{1440 mul}def 2538090Skarels/UP{U 72 div}def 2638090Skarels/LB{/pts exch UP def /charcolor exch def /boxcolor exch def /font exch def 2738090Skarels /label exch def /dy exch def /dx exch def /lly exch def /llx exch def 2838090Skarels gsave boxcolor setgray 2938090Skarels llx lly moveto dx 0 rlineto 0 dy rlineto dx neg 0 rlineto closepath fill 3038090Skarels /lines label length def 3138090Skarels /yp lly dy add dy lines pts mul sub 2 div sub pts .85 mul sub def 3238090Skarels font setfont charcolor setgray 3338090Skarels label {dup stringwidth pop 2 div llx dx 2 div add exch sub yp moveto show 3438090Skarels /yp yp pts sub def}forall grestore}def 3538090Skarels/Gaudy{/Page exch def /Date exch def /File exch def /Comment exch def 3638091Skarels .25 U 10.2 U BarLength .1 sub U .25 U [File] $fd 2 get .97 0 14 LB 3738091Skarels .25 U 10.45 U BarLength .1 sub U .25 U [Comment] $fd 1 get 1 0 14 LB 3838091Skarels .25 U 10.2 U .75 U .5 U Date $fd 3 get .97 0 12 LB 39*45360Skarels BarLength .5 sub U 10.2 U .75 U .5 U [Page] $fd 4 get .97 0 30 LB 4038090Skarels TwoColumn{BarLength 2 div .19 add U 10.2 U moveto 0 -10 U rlineto stroke}if 4138090Skarels}def 4238090Skarelsend 43