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