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