1 %
2 % Version 3.3.2 prologue for text files.
3 %
4 
5 /#copies 1 store
6 /aspectratio 1 def
7 /font /Courier def
8 /formsperpage 1 def
9 /landscape false def
10 /magnification 1 def
11 /margin 10 def
12 /orientation 0 def
13 /pointsize 10 def
14 /rotation 1 def
15 /xoffset .25 def
16 /yoffset .25 def
17 
18 /roundpage true def
19 /useclippath true def
20 /pagebbox [0 0 612 792] def
21 
22 /inch {72 mul} bind def
23 /min {2 copy gt {exch} if pop} bind def
24 
25 /show {show} bind def		% so later references don't bind
26 /stringwidth {stringwidth} bind def
27 
28 /setup {
29 	counttomark 2 idiv {def} repeat pop
30 
31 	landscape {/orientation 90 orientation add def} if
32 	font findfont pointsize scalefont setfont
33 	/charwidth (M) stringwidth pop def
34 	/linespace pointsize pointsize .10 mul add neg def
35 
36 	pagedimensions
37 	xcenter ycenter translate
38 	orientation rotation mul rotate
39 	width 2 div neg height 2 div translate
40 	xoffset inch yoffset inch neg translate
41 	margin 2 div dup neg translate
42 	magnification dup aspectratio mul scale
43 	height width div 1 min dup scale
44 	0 linespace translate
45 } def
46 
47 /pagedimensions {
48 	useclippath userdict /gotpagebbox known not and {
49 		/pagebbox [clippath pathbbox newpath] def
50 		roundpage currentdict /roundpagebbox known and {roundpagebbox} if
51 	} if
52 	pagebbox aload pop
53 	4 -1 roll exch 4 1 roll 4 copy
54 	landscape {4 2 roll} if
55 	sub /width exch def
56 	sub /height exch def
57 	add 2 div /xcenter exch def
58 	add 2 div /ycenter exch def
59 	userdict /gotpagebbox true put
60 } def
61 
62 /pagesetup {/page exch def 0 0 moveto 0} bind def
63 
64 /L {
65 	counttomark 2 idiv {charwidth mul currentpoint exch pop moveto show} repeat
66 	linespace add dup 0 exch moveto
67 } bind def
68 
69 /l {show linespace add dup 0 exch moveto} bind def
70 
71 /LL {
72 	counttomark 2 idiv {charwidth mul currentpoint exch pop moveto show} repeat
73 } bind def
74 
75 /done {/lastpage where {pop lastpage} if} def