1 13f7391e 2004-05-15 devnull %
 2 13f7391e 2004-05-15 devnull % Simple program to print a banner page
 3 13f7391e 2004-05-15 devnull %
 4 13f7391e 2004-05-15 devnull 
 5 13f7391e 2004-05-15 devnull /banner {
 6 13f7391e 2004-05-15 devnull 	/saveobj save def
 7 13f7391e 2004-05-15 devnull 	erasepage initgraphics
 8 13f7391e 2004-05-15 devnull 
 9 13f7391e 2004-05-15 devnull 	/#copies 1 def
10 13f7391e 2004-05-15 devnull 	/inch {72 mul} bind def
11 13f7391e 2004-05-15 devnull 	/pagebbox [clippath pathbbox newpath] def
12 13f7391e 2004-05-15 devnull 
13 13f7391e 2004-05-15 devnull 	/font /Helvetica def
14 13f7391e 2004-05-15 devnull 	/size 20 def
15 13f7391e 2004-05-15 devnull 	/height pagebbox 3 get def
16 13f7391e 2004-05-15 devnull 	/width pagebbox 2 get .09 mul def
17 13f7391e 2004-05-15 devnull 
18 13f7391e 2004-05-15 devnull 	.92 setgray
19 13f7391e 2004-05-15 devnull 	pagebbox 0 get pagebbox 1 get moveto
20 13f7391e 2004-05-15 devnull 	width 0 rlineto 0 height rlineto width neg 0 rlineto closepath eofill
21 13f7391e 2004-05-15 devnull 	pagebbox 2 get pagebbox 1 get moveto
22 13f7391e 2004-05-15 devnull 	width neg 0 rlineto 0 height rlineto width 0 rlineto closepath eofill
23 13f7391e 2004-05-15 devnull 	0 setgray
24 13f7391e 2004-05-15 devnull 
25 13f7391e 2004-05-15 devnull 	font findfont size scalefont setfont
26 13f7391e 2004-05-15 devnull 	/linesp size size .15 mul add neg def
27 13f7391e 2004-05-15 devnull 	/tab (Destination) stringwidth pop 1.5 mul def
28 13f7391e 2004-05-15 devnull 	/nextline {0 0 moveto show tab 0 moveto show 0 linesp translate} def
29 13f7391e 2004-05-15 devnull 
30 13f7391e 2004-05-15 devnull 	pagebbox 0 get 1.5 width mul add pagebbox 3 get 2.0 width mul sub translate
31 13f7391e 2004-05-15 devnull 	(Bin)  nextline
32 13f7391e 2004-05-15 devnull 	(Name) nextline
33 13f7391e 2004-05-15 devnull 	(Owner) nextline
34 13f7391e 2004-05-15 devnull 	(File) nextline
35 13f7391e 2004-05-15 devnull 	(Account) nextline
36 13f7391e 2004-05-15 devnull 	(Destination) nextline
37 13f7391e 2004-05-15 devnull 	(Spooldate) nextline
38 13f7391e 2004-05-15 devnull 	showpage
39 13f7391e 2004-05-15 devnull 	saveobj restore
40 13f7391e 2004-05-15 devnull } bind def