2 % Simple program to print a banner page
10 /inch {72 mul} bind def
11 /pagebbox [clippath pathbbox newpath] def
15 /height pagebbox 3 get def
16 /width pagebbox 2 get .09 mul def
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
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
30 pagebbox 0 get 1.5 width mul add pagebbox 3 get 2.0 width mul sub translate
36 (Destination) nextline