1 5f1cf8e6 2004-05-16 devnull .\" 10/22/92 activate next line before installing
2 75347226 2004-05-17 devnull .pi #9/bin/auxpm
4 5f1cf8e6 2004-05-16 devnull . \" IZ - initialization
6 5f1cf8e6 2004-05-16 devnull .fp 1 R \" force a font out into prefix
7 5f1cf8e6 2004-05-16 devnull .nr PS 10 \" point size
8 5f1cf8e6 2004-05-16 devnull .nr VS 12 \" line spacing
9 5f1cf8e6 2004-05-16 devnull .ps \\n(PS
10 5f1cf8e6 2004-05-16 devnull .ie \\n(VS>=41 .vs \\n(VSu
11 5f1cf8e6 2004-05-16 devnull .el .vs \\n(VSp
12 5f1cf8e6 2004-05-16 devnull .nr LL 6i \" line length
13 5f1cf8e6 2004-05-16 devnull .ll \\n(LLu
14 5f1cf8e6 2004-05-16 devnull .nr LT \\n(.l \" title length
15 5f1cf8e6 2004-05-16 devnull .lt \\n(LTu
16 5f1cf8e6 2004-05-16 devnull .if !\\n(HM .nr HM 1i \" top of page
17 5f1cf8e6 2004-05-16 devnull .if !\\n(FM .nr FM 1i \" footer margin
18 5f1cf8e6 2004-05-16 devnull .if !\\n(FO .nr FO \\n(.p-\\n(FM \" bottom of page
19 5f1cf8e6 2004-05-16 devnull . \" to set text ht to N, set FO to N + \n(HM. default is 10i
20 5f1cf8e6 2004-05-16 devnull .pl 32767u \" safety first: big pages for pm
21 5f1cf8e6 2004-05-16 devnull .if !\\n(PO .nr PO \\n(.ou \" page offset
22 5f1cf8e6 2004-05-16 devnull .nr PI 5n \" .PP paragraph indent
23 5f1cf8e6 2004-05-16 devnull .nr QI 5n \" .QS indent
24 5f1cf8e6 2004-05-16 devnull .nr DI 5n \" .DS indent
25 5f1cf8e6 2004-05-16 devnull .nr PD 0.3v \" paragraph vertical separation
26 5f1cf8e6 2004-05-16 devnull .nr TS 0.5v \" space around tables
27 5f1cf8e6 2004-05-16 devnull .nr Kf 0.5v \" space around .KF/.KE
28 5f1cf8e6 2004-05-16 devnull .nr Ks 0.5v \" space around .KS/.KE
30 5f1cf8e6 2004-05-16 devnull .nr P1 .4i \" indent for .P1/.P2
31 5f1cf8e6 2004-05-16 devnull .nr dP 1 \" delta point size for programs in .P1/.P2
32 5f1cf8e6 2004-05-16 devnull .nr dV 2p \" delta vertical for programs
33 5f1cf8e6 2004-05-16 devnull .nr dT 8 \" delta tab stop for programs
34 5f1cf8e6 2004-05-16 devnull .nr DV .5v \" space before start of program
35 5f1cf8e6 2004-05-16 devnull .nr IP 0 \" ?
36 5f1cf8e6 2004-05-16 devnull .nr IR 0 \" ?
37 5f1cf8e6 2004-05-16 devnull .nr I1 \\n(PIu
39 5f1cf8e6 2004-05-16 devnull .if !\\n(FL .nr FL \\n(LLu \" footnote length
40 5f1cf8e6 2004-05-16 devnull .ll \\n(FLu
41 5f1cf8e6 2004-05-16 devnull .ps 8 \" text size & leading in footnote
44 5f1cf8e6 2004-05-16 devnull .if \\*(CH .ds CH "\(hy \\\\n(PN \(hy
45 5f1cf8e6 2004-05-16 devnull .ds # #\\\\n(.c \\\\n(.F
48 5f1cf8e6 2004-05-16 devnull .ME \" initialize date strings
50 5f1cf8e6 2004-05-16 devnull . \" accents: \*'e \*`e \*:u \*^e \*~n \*va \*,c
51 5f1cf8e6 2004-05-16 devnull .ds ' \h'\w'e'u*4/10'\z\(aa\h'-\w'e'u*4/10'
52 5f1cf8e6 2004-05-16 devnull .ds ` \h'\w'e'u*4/10'\z\(ga\h'-\w'e'u*4/10'
53 5f1cf8e6 2004-05-16 devnull .ds : \\v'-0.6m'\\h'(1u-(\\\\n(.fu%2u))*0.13m+0.00m'\\z.\\h'0.2m'\\z.\\h'-((1u-(\\\\n(.fu%2u))*0.13m+0.20m)'\\v'0.6m'
54 5f1cf8e6 2004-05-16 devnull .ds ^ \\\\k:\\h'-\\\\n(.fu+1u/2u*2u+\\\\n(.fu-1u*0.13m+0.06m'\\z^\\h'|\\\\n:u'
55 5f1cf8e6 2004-05-16 devnull .ds ~ \\\\k:\\h'-\\\\n(.fu+1u/2u*2u+\\\\n(.fu-1u*0.13m+0.06m'\\z~\\h'|\\\\n:u'
56 5f1cf8e6 2004-05-16 devnull .ds v \\\\k:\\\\h'+\\\\w'e'u/4u'\\\\v'-0.6m'\\\\s6v\\\\s0\\\\v'0.6m'\\\\h'|\\\\n:u'
57 5f1cf8e6 2004-05-16 devnull .ds , \\\\k:\\\\h'\\\\w'c'u*0.4u'\\\\z,\\\\h'|\\\\n:u'
61 5f1cf8e6 2004-05-16 devnull . \" SP - generate paddable space
65 5f1cf8e6 2004-05-16 devnull .if \\n(.$ .nr X \\$1v
66 5f1cf8e6 2004-05-16 devnull .ie '\\$2'exactly' \{\
67 5f1cf8e6 2004-05-16 devnull \v'\\nXu'\ \h'-\w'\ 'u'\c
68 5f1cf8e6 2004-05-16 devnull .sp \\$1\}
69 5f1cf8e6 2004-05-16 devnull .el .X "SP \\nX \\$2"
71 5f1cf8e6 2004-05-16 devnull . \" NE - need space on this page
74 5f1cf8e6 2004-05-16 devnull .if \\n(.$ .nr X \\$1v
75 5f1cf8e6 2004-05-16 devnull .X "NE \\nX \\$2"
77 5f1cf8e6 2004-05-16 devnull . \" BP, FL, FC - begin page, flush figures, flush column
80 5f1cf8e6 2004-05-16 devnull .X CMD BP
84 5f1cf8e6 2004-05-16 devnull .X CMD FL
88 5f1cf8e6 2004-05-16 devnull .X CMD FC
90 5f1cf8e6 2004-05-16 devnull . \" X - generate an x X ... command in the output
92 5f1cf8e6 2004-05-16 devnull ....ie '\\n(.z'' \\!x X \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
93 5f1cf8e6 2004-05-16 devnull ....el \\!.X "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
95 5f1cf8e6 2004-05-16 devnull .if !'\\n(.z'' .if \\n(.$=1 \\!.X "\\$1
96 5f1cf8e6 2004-05-16 devnull .if !'\\n(.z'' .if \\n(.$=2 \\!.X "\\$1 \\$2
97 5f1cf8e6 2004-05-16 devnull .if !'\\n(.z'' .if \\n(.$=3 \\!.X "\\$1 \\$2 \\$3
98 5f1cf8e6 2004-05-16 devnull .if !'\\n(.z'' .if \\n(.$>3 \\!.X "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
99 5f1cf8e6 2004-05-16 devnull .if '\\n(.z'' .if \\n(.$=1 \\!x X \\$1 \\*#
100 5f1cf8e6 2004-05-16 devnull .if '\\n(.z'' .if \\n(.$=2 \\!x X \\$1 \\$2 \\*#
101 5f1cf8e6 2004-05-16 devnull .if '\\n(.z'' .if \\n(.$=3 \\!x X \\$1 \\$2 \\$3 \\*#
102 5f1cf8e6 2004-05-16 devnull .if '\\n(.z'' .if \\n(.$=4 \\!x X \\$1 \\$2 \\$3 \\$4 \\*#
103 5f1cf8e6 2004-05-16 devnull .if '\\n(.z'' .if \\n(.$>4 \\!x X \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 \\*#
105 5f1cf8e6 2004-05-16 devnull . \" DA - force date
107 5f1cf8e6 2004-05-16 devnull .if \\n(.$ .ds DY \\$1 \\$2 \\$3 \\$4
108 5f1cf8e6 2004-05-16 devnull .ds CF \\*(DY
110 5f1cf8e6 2004-05-16 devnull . \" ND - set new or no date
112 5f1cf8e6 2004-05-16 devnull .ds DY \\$1 \\$2 \\$3 \\$4
115 5f1cf8e6 2004-05-16 devnull .de ME \" ME - set month strings
116 5f1cf8e6 2004-05-16 devnull .if \\n(mo-0 .ds MO January
117 5f1cf8e6 2004-05-16 devnull .if \\n(mo-1 .ds MO February
118 5f1cf8e6 2004-05-16 devnull .if \\n(mo-2 .ds MO March
119 5f1cf8e6 2004-05-16 devnull .if \\n(mo-3 .ds MO April
120 5f1cf8e6 2004-05-16 devnull .if \\n(mo-4 .ds MO May
121 5f1cf8e6 2004-05-16 devnull .if \\n(mo-5 .ds MO June
122 5f1cf8e6 2004-05-16 devnull .if \\n(mo-6 .ds MO July
123 5f1cf8e6 2004-05-16 devnull .if \\n(mo-7 .ds MO August
124 5f1cf8e6 2004-05-16 devnull .if \\n(mo-8 .ds MO September
125 5f1cf8e6 2004-05-16 devnull .if \\n(mo-9 .ds MO October
126 5f1cf8e6 2004-05-16 devnull .if \\n(mo-10 .ds MO November
127 5f1cf8e6 2004-05-16 devnull .if \\n(mo-11 .ds MO December
128 5f1cf8e6 2004-05-16 devnull .if \\n(dw-0 .ds DW Sunday
129 5f1cf8e6 2004-05-16 devnull .if \\n(dw-1 .ds DW Monday
130 5f1cf8e6 2004-05-16 devnull .if \\n(dw-2 .ds DW Tuesday
131 5f1cf8e6 2004-05-16 devnull .if \\n(dw-3 .ds DW Wednesday
132 5f1cf8e6 2004-05-16 devnull .if \\n(dw-4 .ds DW Thursday
133 5f1cf8e6 2004-05-16 devnull .if \\n(dw-5 .ds DW Friday
134 5f1cf8e6 2004-05-16 devnull .if \\n(dw-6 .ds DW Saturday
135 5f1cf8e6 2004-05-16 devnull .if "\\*(DY"" .ds DY \\*(MO \\n(dy, 19\\n(yr
137 5f1cf8e6 2004-05-16 devnull . \" FP - font position for a family
139 5f1cf8e6 2004-05-16 devnull .if '\\$1'palatino'\{\
140 5f1cf8e6 2004-05-16 devnull . fp 1 PA
141 5f1cf8e6 2004-05-16 devnull . fp 2 PI
142 5f1cf8e6 2004-05-16 devnull . fp 3 PB
143 5f1cf8e6 2004-05-16 devnull . fp 4 PX\}
144 5f1cf8e6 2004-05-16 devnull .if '\\$1'century'\{\
145 5f1cf8e6 2004-05-16 devnull . ie '\\*(.T'202'\{\
146 5f1cf8e6 2004-05-16 devnull . fp 1 NR Centsb
147 5f1cf8e6 2004-05-16 devnull . fp 2 NI CentI
148 5f1cf8e6 2004-05-16 devnull . fp 3 NB CentB
149 5f1cf8e6 2004-05-16 devnull . fp 4 NX CentBI\}
150 5f1cf8e6 2004-05-16 devnull . el \{\
151 5f1cf8e6 2004-05-16 devnull . fp 1 NR
152 5f1cf8e6 2004-05-16 devnull . fp 2 NI
153 5f1cf8e6 2004-05-16 devnull . fp 3 NB
154 5f1cf8e6 2004-05-16 devnull . fp 4 NX\}\}
155 5f1cf8e6 2004-05-16 devnull .if '\\$1'helvetica'\{\
156 5f1cf8e6 2004-05-16 devnull . fp 1 H
157 5f1cf8e6 2004-05-16 devnull . fp 2 HI
158 5f1cf8e6 2004-05-16 devnull . fp 3 HB
159 5f1cf8e6 2004-05-16 devnull . fp 4 HX\}
160 5f1cf8e6 2004-05-16 devnull .if '\\$1'bembo'\{\
161 5f1cf8e6 2004-05-16 devnull . ie '\\*(.T'202'\{\
162 5f1cf8e6 2004-05-16 devnull . fp 1 B1 Bembo
163 5f1cf8e6 2004-05-16 devnull . fp 2 B2 BemboI
164 5f1cf8e6 2004-05-16 devnull . fp 3 B3 BemboB
165 5f1cf8e6 2004-05-16 devnull . fp 4 B4 BemboBI\}
166 5f1cf8e6 2004-05-16 devnull . el \{\
167 5f1cf8e6 2004-05-16 devnull . fp 1 B1
168 5f1cf8e6 2004-05-16 devnull . fp 2 B2
169 5f1cf8e6 2004-05-16 devnull . fp 3 B3
170 5f1cf8e6 2004-05-16 devnull . fp 4 B4\}\}
171 5f1cf8e6 2004-05-16 devnull .if '\\$1'optima'\{\
172 5f1cf8e6 2004-05-16 devnull . fp 1 R Optima
173 5f1cf8e6 2004-05-16 devnull . fp 2 I OptimaI
174 5f1cf8e6 2004-05-16 devnull . fp 3 B OptimaB
175 5f1cf8e6 2004-05-16 devnull . fp 4 BI OptimaBI\}
176 5f1cf8e6 2004-05-16 devnull .if '\\$1'souvenir'\{\
177 5f1cf8e6 2004-05-16 devnull . fp 1 R Souvenir
178 5f1cf8e6 2004-05-16 devnull . fp 2 I SouvenirI
179 5f1cf8e6 2004-05-16 devnull . fp 3 B SouvenirB
180 5f1cf8e6 2004-05-16 devnull . fp 4 BI SouvenirBI\}
181 5f1cf8e6 2004-05-16 devnull .if '\\$1'melior'\{\
182 5f1cf8e6 2004-05-16 devnull . fp 1 R Melior
183 5f1cf8e6 2004-05-16 devnull . fp 2 I MeliorI
184 5f1cf8e6 2004-05-16 devnull . fp 3 B MeliorB
185 5f1cf8e6 2004-05-16 devnull . fp 4 BI MeliorBI\}
186 5f1cf8e6 2004-05-16 devnull .if '\\$1'times'\{\
187 5f1cf8e6 2004-05-16 devnull . fp 1 R
188 5f1cf8e6 2004-05-16 devnull . fp 2 I
189 5f1cf8e6 2004-05-16 devnull . fp 3 B
190 5f1cf8e6 2004-05-16 devnull . fp 4 BI\}
192 5f1cf8e6 2004-05-16 devnull . \" TL - title
195 5f1cf8e6 2004-05-16 devnull .if !\\n(1T .BG
196 5f1cf8e6 2004-05-16 devnull ....hy 0
198 5f1cf8e6 2004-05-16 devnull .ps \\n(PS+2p
199 5f1cf8e6 2004-05-16 devnull .vs \\n(VS+2p
200 5f1cf8e6 2004-05-16 devnull .ll \\n(LLu
201 5f1cf8e6 2004-05-16 devnull .ce 100 \" turned off in .RT
204 5f1cf8e6 2004-05-16 devnull . \" AU - remember author(s)
207 5f1cf8e6 2004-05-16 devnull .ps \\n(PS
208 5f1cf8e6 2004-05-16 devnull .ie \\n(VS>=41 .vs \\n(VSu
209 5f1cf8e6 2004-05-16 devnull .el .vs \\n(VSp
212 5f1cf8e6 2004-05-16 devnull . \" AI - author's institution
217 5f1cf8e6 2004-05-16 devnull . \" AB - begin abstract
219 5f1cf8e6 2004-05-16 devnull .nr AB 1 \" we're in abstract
220 5f1cf8e6 2004-05-16 devnull .if !\\n(1T .BG
222 5f1cf8e6 2004-05-16 devnull .ps \\n(PS
223 5f1cf8e6 2004-05-16 devnull .vs \\n(VSp
225 5f1cf8e6 2004-05-16 devnull .in +\\n(.lu/12u
226 5f1cf8e6 2004-05-16 devnull .ll -\\n(.lu/12u
228 5f1cf8e6 2004-05-16 devnull .ie \\n(.$ \\$1
229 5f1cf8e6 2004-05-16 devnull .el ABSTRACT
233 5f1cf8e6 2004-05-16 devnull . \" AE - end of abstract
236 5f1cf8e6 2004-05-16 devnull .nr AB 0
238 5f1cf8e6 2004-05-16 devnull .ll \\n(LLu
239 5f1cf8e6 2004-05-16 devnull .ps \\n(PS
240 5f1cf8e6 2004-05-16 devnull .ie \\n(VS>=41 .vs \\n(VSu
241 5f1cf8e6 2004-05-16 devnull .el .vs \\n(VSp
244 5f1cf8e6 2004-05-16 devnull . \" 2C - 2 columns
248 5f1cf8e6 2004-05-16 devnull . \" 1C - 1 column
252 5f1cf8e6 2004-05-16 devnull . \" MC - multiple columns
255 5f1cf8e6 2004-05-16 devnull .if \\n(1T .RT
256 5f1cf8e6 2004-05-16 devnull .if \\n(1T .NP
257 5f1cf8e6 2004-05-16 devnull .if !\\n(OL .nr OL \\n(LL
258 5f1cf8e6 2004-05-16 devnull .if \\n(CW=0 .nr CW \\n(LL*7/15
259 5f1cf8e6 2004-05-16 devnull .if \\n(GW=0 .nr GW \\n(LL-(2*\\n(CW)
260 5f1cf8e6 2004-05-16 devnull .nr x \\n(CW+\\n(GW
261 5f1cf8e6 2004-05-16 devnull .if "\\$1"" .MC 2
262 5f1cf8e6 2004-05-16 devnull .if \\$1=1 \{\
263 5f1cf8e6 2004-05-16 devnull . X MC 1 0
264 5f1cf8e6 2004-05-16 devnull . nr LL \\n(OLu\}
265 5f1cf8e6 2004-05-16 devnull .if \\$1=2 \{\
266 5f1cf8e6 2004-05-16 devnull . X MC 2 \\nx
267 5f1cf8e6 2004-05-16 devnull . nr LL \\n(CWu\}
268 5f1cf8e6 2004-05-16 devnull .ll \\n(LLu
269 5f1cf8e6 2004-05-16 devnull .if \\$1>2 .tm -mpm can't handle more than two columns
270 5f1cf8e6 2004-05-16 devnull .if \\n(1T .RT
272 5f1cf8e6 2004-05-16 devnull . \" TS - table start, TE - table end; also TC, TQ, TH
275 5f1cf8e6 2004-05-16 devnull .if !\\n(1T .RT
276 5f1cf8e6 2004-05-16 devnull .SP \\n(TSu TS
277 5f1cf8e6 2004-05-16 devnull .X "US TS
278 5f1cf8e6 2004-05-16 devnull .if \\$1H .TQ
279 5f1cf8e6 2004-05-16 devnull .nr IX 1
282 5f1cf8e6 2004-05-16 devnull .nr TZ \\n(.lu
283 5f1cf8e6 2004-05-16 devnull .if \\n(.$ .nr TZ \\$1n
284 5f1cf8e6 2004-05-16 devnull .ta \\n(TZuR
288 5f1cf8e6 2004-05-16 devnull .nr TZ 0
292 5f1cf8e6 2004-05-16 devnull .nr IT 1
295 5f1cf8e6 2004-05-16 devnull .if \\n(.d>0.5v \{\
296 5f1cf8e6 2004-05-16 devnull . nr T. 0
297 5f1cf8e6 2004-05-16 devnull . T# 0\}
299 5f1cf8e6 2004-05-16 devnull .nr TQ \\n(.i
300 5f1cf8e6 2004-05-16 devnull .nr HT 1
309 5f1cf8e6 2004-05-16 devnull .in \\n(TQu
312 5f1cf8e6 2004-05-16 devnull . \" TE - table end
314 5f1cf8e6 2004-05-16 devnull .nr IX 0
315 5f1cf8e6 2004-05-16 devnull .if \\n(IT .if !\\n(HT \{\
317 5f1cf8e6 2004-05-16 devnull . nr EF \\n(.u
320 5f1cf8e6 2004-05-16 devnull . if \\n(EF .fi\}
321 5f1cf8e6 2004-05-16 devnull .nr IT 0
322 5f1cf8e6 2004-05-16 devnull .nr HT 0
323 5f1cf8e6 2004-05-16 devnull .rm a+ b+ c+ d+ e+ f+ g+ h+ i+ j+ k+ l+ n+ m+
324 5f1cf8e6 2004-05-16 devnull .rr 32 33 34 35 36 37 38 40 79 80 81 82
325 5f1cf8e6 2004-05-16 devnull .rr a| b| c| d| e| f| g| h| i| j| k| l| m|
326 5f1cf8e6 2004-05-16 devnull .rr a- b- c- d- e- f- g- h- i- j- k- l- m-
327 5f1cf8e6 2004-05-16 devnull .X "END US TE
328 5f1cf8e6 2004-05-16 devnull .SP \\n(TSu TE
331 5f1cf8e6 2004-05-16 devnull . \" EQ - equation, breakout and display
333 5f1cf8e6 2004-05-16 devnull .nr EF \\n(.u
335 5f1cf8e6 2004-05-16 devnull .nr LE 1 \" 1 is center
336 5f1cf8e6 2004-05-16 devnull .ds EL \\$1
337 5f1cf8e6 2004-05-16 devnull .if "\\$1"L" \{\
338 5f1cf8e6 2004-05-16 devnull . ds EL \\$2
339 5f1cf8e6 2004-05-16 devnull . nr LE 0\}
340 5f1cf8e6 2004-05-16 devnull .if "\\$1"C" .ds EL \\$2
341 5f1cf8e6 2004-05-16 devnull .if "\\$1"R" \{\
342 5f1cf8e6 2004-05-16 devnull . ds EL \\$2 \" 2 is right adjust
343 5f1cf8e6 2004-05-16 devnull . nr LE 2\}
344 5f1cf8e6 2004-05-16 devnull .if "\\$1"I" \{\
345 5f1cf8e6 2004-05-16 devnull . nr LE 0
346 5f1cf8e6 2004-05-16 devnull . if "\\$3"" .ds EE \\h'|10n'
347 5f1cf8e6 2004-05-16 devnull . el .ds EE \\h'\\$3'
348 5f1cf8e6 2004-05-16 devnull . ds EL \\$2\}
349 5f1cf8e6 2004-05-16 devnull .if \\n(YE .nf
352 5f1cf8e6 2004-05-16 devnull . \" EN - end of equation
357 5f1cf8e6 2004-05-16 devnull .nr ZN \\n(dn
358 5f1cf8e6 2004-05-16 devnull .if \\n(ZN .if !\\n(YE .LP
359 5f1cf8e6 2004-05-16 devnull .if !\\n(ZN .if !"\\*(EL"" .nr ZN 1
360 5f1cf8e6 2004-05-16 devnull .if \\n(ZN \{\
361 5f1cf8e6 2004-05-16 devnull . SP .5v EQ
362 5f1cf8e6 2004-05-16 devnull . X "US EQ"\}
364 5f1cf8e6 2004-05-16 devnull .if \\n(BD .nr LE 0 \" don't center if block display or mark/lineup
365 5f1cf8e6 2004-05-16 devnull .if \\n(MK \{\
366 5f1cf8e6 2004-05-16 devnull . if \\n(LE=1 .ds EE \\h'|10n'
367 5f1cf8e6 2004-05-16 devnull . nr LE 0\}
368 5f1cf8e6 2004-05-16 devnull 'lt \\n(.lu
369 5f1cf8e6 2004-05-16 devnull .if !\\n(EP .if \\n(ZN \{\
370 5f1cf8e6 2004-05-16 devnull . if \\n(LE=1 .tl \(ts\(ts\\*(10\(ts\\*(EL\(ts
371 5f1cf8e6 2004-05-16 devnull . if \\n(LE=2 .tl \(ts\(ts\(ts\\*(10\\*(EL\(ts
372 5f1cf8e6 2004-05-16 devnull . if !\\n(LE \{\
373 5f1cf8e6 2004-05-16 devnull . if !\\n(BD .tl \(ts\\*(EE\\*(10\(ts\(ts\\*(EL\(ts
374 5f1cf8e6 2004-05-16 devnull . if \\n(BD .if \\n(BD<\\w\(ts\\*(10\(ts .nr BD \\w\(ts\\*(10\(ts
375 5f1cf8e6 2004-05-16 devnull . if \\n(BD \!\\*(10\\t\\*(EL\}\}
376 5f1cf8e6 2004-05-16 devnull .if \\n(EP .if \\n(ZN \{\
377 5f1cf8e6 2004-05-16 devnull . if \\n(LE=1 .tl \(ts\\*(EL\(ts\\*(10\(ts\(ts
378 5f1cf8e6 2004-05-16 devnull . if \\n(LE=2 .tl \(ts\\*(EL\(ts\(ts\\*(10\(ts
379 5f1cf8e6 2004-05-16 devnull . if !\\n(LE \{\
380 5f1cf8e6 2004-05-16 devnull . if !\\n(BD .tl \(ts\\*(EL\\*(EE\\*(10\(ts\(ts\(ts
381 5f1cf8e6 2004-05-16 devnull . if \\n(BD .if \\n(BD<\\w\(ts\\*(10\(ts .nr BD \\w\(ts\\*(10\(ts
382 5f1cf8e6 2004-05-16 devnull . if \\n(BD \!\\h'-\\\\n(.iu'\\*(EL\\h'|0'\\*(10\}\}
383 5f1cf8e6 2004-05-16 devnull 'lt \\n(LLu
385 5f1cf8e6 2004-05-16 devnull .if \\n(YE .if \\n(EF .fi
386 5f1cf8e6 2004-05-16 devnull .if \\n(ZN .X "END US EQ"
387 5f1cf8e6 2004-05-16 devnull .if \\n(ZN .SP .5v EN
388 5f1cf8e6 2004-05-16 devnull .if \\n(ZN .bp
390 5f1cf8e6 2004-05-16 devnull . \" PS - start picture
391 5f1cf8e6 2004-05-16 devnull .de PS \" $1 is height, $2 is width, in inches
393 5f1cf8e6 2004-05-16 devnull .nr X 0.35v
394 5f1cf8e6 2004-05-16 devnull .if \\$1>0 .X "SP \\nX PS"
395 5f1cf8e6 2004-05-16 devnull .ie \\$1>0 .nr $1 \\$1
396 5f1cf8e6 2004-05-16 devnull .el .nr $1 0
397 5f1cf8e6 2004-05-16 devnull .X "US PS \\$1
398 5f1cf8e6 2004-05-16 devnull .in (\\n(.lu-\\$2)/2u
400 5f1cf8e6 2004-05-16 devnull . \" PE - end of picture
403 5f1cf8e6 2004-05-16 devnull .X "END US PE
404 5f1cf8e6 2004-05-16 devnull .nr X .65v
405 5f1cf8e6 2004-05-16 devnull .if \\n($1>0 .X "SP \\nX PE"
408 5f1cf8e6 2004-05-16 devnull .de IS \" for -mpm only
415 5f1cf8e6 2004-05-16 devnull . \" NP - new page
419 5f1cf8e6 2004-05-16 devnull .if \\n(KF=0 \{\
420 5f1cf8e6 2004-05-16 devnull . nr PX \\n(.s
421 5f1cf8e6 2004-05-16 devnull . nr PF \\n(.f
422 5f1cf8e6 2004-05-16 devnull . nr PV \\n(.v
423 5f1cf8e6 2004-05-16 devnull . lt \\n(LTu
424 5f1cf8e6 2004-05-16 devnull . ps \\n(PS
425 5f1cf8e6 2004-05-16 devnull . vs \\n(PS+2
427 5f1cf8e6 2004-05-16 devnull . if \\n(PO .po \\n(POu \" why isn't this reset???
428 5f1cf8e6 2004-05-16 devnull . PT \\$1
433 5f1cf8e6 2004-05-16 devnull . nr %# +1
434 5f1cf8e6 2004-05-16 devnull . ps \\n(PX
435 5f1cf8e6 2004-05-16 devnull . vs \\n(PVu
436 5f1cf8e6 2004-05-16 devnull . ft \\n(PF \}
440 5f1cf8e6 2004-05-16 devnull .ds %e .tl '\\*(LH'\\*(CH'\\*(RH'
441 5f1cf8e6 2004-05-16 devnull .ds %o .tl '\\*(LH'\\*(CH'\\*(RH'
442 5f1cf8e6 2004-05-16 devnull .ds %E .tl '\\*(LF'\\*(CF'\\*(RF'
443 5f1cf8e6 2004-05-16 devnull .ds %O .tl '\\*(LF'\\*(CF'\\*(RF'
445 5f1cf8e6 2004-05-16 devnull . \" PT - page title
447 5f1cf8e6 2004-05-16 devnull .nr PN \\n(%#
448 5f1cf8e6 2004-05-16 devnull .X "PT \\n(%#
449 5f1cf8e6 2004-05-16 devnull .sp \\n(HMu/2u
450 5f1cf8e6 2004-05-16 devnull .if \\n(OL .lt \\n(OLu \" why isn't this reset???
451 5f1cf8e6 2004-05-16 devnull .if \\n(BT>0 .if \\n(%#%2 \\*(%o
452 5f1cf8e6 2004-05-16 devnull .if \\n(BT>0 .if !\\n(%#%2 \\*(%e
453 5f1cf8e6 2004-05-16 devnull .if \\n(BT=0 .tl '\0''' \" put out something or spacing is curdled
454 5f1cf8e6 2004-05-16 devnull .X "END PT \\n(%#
456 5f1cf8e6 2004-05-16 devnull . \" BT - bottom title
458 5f1cf8e6 2004-05-16 devnull .X "BT \\n(%#
459 5f1cf8e6 2004-05-16 devnull .sp |\\n(FMu/2u+\\n(FOu-1v
460 5f1cf8e6 2004-05-16 devnull .if \\n(%#%2 \\*(%O
461 5f1cf8e6 2004-05-16 devnull .if !\\n(%#%2 \\*(%E
462 5f1cf8e6 2004-05-16 devnull .nr BT \\n(BT+1
463 5f1cf8e6 2004-05-16 devnull .X "END BT \\n(%#
465 5f1cf8e6 2004-05-16 devnull . \" KS - non-floating keep
468 5f1cf8e6 2004-05-16 devnull .if "\\n(.z"" .NP \" defends poorly against including ht of page stuff in diversion for .B1
469 5f1cf8e6 2004-05-16 devnull .X "US KS 0
470 5f1cf8e6 2004-05-16 devnull .nr KS +1
471 5f1cf8e6 2004-05-16 devnull .SP \\n(Ksu
473 5f1cf8e6 2004-05-16 devnull . \" KF - floating keep
477 5f1cf8e6 2004-05-16 devnull .if \\n(KS>0 .tm KF won't work inside KS, line \\n(.c, file \\n(.F
478 5f1cf8e6 2004-05-16 devnull .if \\n(KF>0 .tm KF won't work inside KF, line \\n(.c, file \\n(.F
479 5f1cf8e6 2004-05-16 devnull .nr KF 1
480 5f1cf8e6 2004-05-16 devnull .nr 10 0
481 5f1cf8e6 2004-05-16 devnull . if !'\\$1'' .nr 10 \\$1u
482 5f1cf8e6 2004-05-16 devnull . if '\\$1'bottom' .nr 10 \\n(FOu-1u
483 5f1cf8e6 2004-05-16 devnull . if '\\$1'top' .nr 10 \\n(HM
484 5f1cf8e6 2004-05-16 devnull . if \\n(10 .X "UF \\n(10 KF"
485 5f1cf8e6 2004-05-16 devnull . if !\\n(10 .X "UF \\n(HM KF"
486 5f1cf8e6 2004-05-16 devnull . nr X \\n(FOu-2u
487 5f1cf8e6 2004-05-16 devnull . if \\n(10 .X "UF \\n(10 KF"
488 5f1cf8e6 2004-05-16 devnull . if !\\n(10 .X "UF \\nX KF"
489 5f1cf8e6 2004-05-16 devnull .nr SJ \\n(.u
490 5f1cf8e6 2004-05-16 devnull .ps \\n(PS
491 5f1cf8e6 2004-05-16 devnull .if \\n(VS>40 .vs \\n(VSu
492 5f1cf8e6 2004-05-16 devnull .if \\n(VS<=39 .vs \\n(VSp
493 5f1cf8e6 2004-05-16 devnull .ll \\n(LLu
494 5f1cf8e6 2004-05-16 devnull .lt \\n(LTu
495 5f1cf8e6 2004-05-16 devnull .SP \\n(Kfu
497 5f1cf8e6 2004-05-16 devnull . \" KE - end of KS/KF
500 5f1cf8e6 2004-05-16 devnull .ie \\n(KS>0 \{\
501 5f1cf8e6 2004-05-16 devnull . SP \\n(Ksu
502 5f1cf8e6 2004-05-16 devnull . X "END US KS
503 5f1cf8e6 2004-05-16 devnull . nr KS -1 \}
504 5f1cf8e6 2004-05-16 devnull .el .ie \\n(KF>0 \{\
505 5f1cf8e6 2004-05-16 devnull . SP \\n(Kfu
506 5f1cf8e6 2004-05-16 devnull . nr KF 0
507 5f1cf8e6 2004-05-16 devnull . X "END UF KF"
508 5f1cf8e6 2004-05-16 devnull . if \\n(SJ .fi
510 5f1cf8e6 2004-05-16 devnull .el .tm .KE without preceding .KS or .KF, line \\n(.c, file \\n(.F
513 5f1cf8e6 2004-05-16 devnull . \" DS - display. .DS C center; L left-adjust; I indent (default)
514 5f1cf8e6 2004-05-16 devnull .de DS \" $2 = amount of indent
517 5f1cf8e6 2004-05-16 devnull .\\$1D \\$2 \\$1
519 5f1cf8e6 2004-05-16 devnull .if !\\n(IF \{\
520 5f1cf8e6 2004-05-16 devnull . ps \\n(PS
521 5f1cf8e6 2004-05-16 devnull . if \\n(VS>40 .vs \\n(VSu
522 5f1cf8e6 2004-05-16 devnull . if \\n(VS<=39 .vs \\n(VSp\}
525 5f1cf8e6 2004-05-16 devnull .ID \\$1
529 5f1cf8e6 2004-05-16 devnull .ce 1000
533 5f1cf8e6 2004-05-16 devnull .if \\n(.$=0 .in +\\n(DIu
534 5f1cf8e6 2004-05-16 devnull .if \\n(.$=1 .if "\\$1"I" .in +\\n(DIu
535 5f1cf8e6 2004-05-16 devnull .if \\n(.$=1 .if !"\\$1"I" .in +\\$1n
536 5f1cf8e6 2004-05-16 devnull .if \\n(.$>1 .in +\\$2n
537 5f1cf8e6 2004-05-16 devnull .....in +0.5i
538 5f1cf8e6 2004-05-16 devnull .....if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(DIu
539 5f1cf8e6 2004-05-16 devnull .....if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n
546 5f1cf8e6 2004-05-16 devnull .nr OI \\n(.i
547 5f1cf8e6 2004-05-16 devnull .SP \\n(DVu
549 5f1cf8e6 2004-05-16 devnull . \" BD - block display: save everything, then center it.
552 5f1cf8e6 2004-05-16 devnull .nr BD 1
554 5f1cf8e6 2004-05-16 devnull .in \\n(OIu
557 5f1cf8e6 2004-05-16 devnull . \" DE - display end
560 5f1cf8e6 2004-05-16 devnull .if \\n(BD>0 .XF
561 5f1cf8e6 2004-05-16 devnull .nr BD 0
562 5f1cf8e6 2004-05-16 devnull .in \\n(OIu
563 5f1cf8e6 2004-05-16 devnull .SP \\n(DVu
567 5f1cf8e6 2004-05-16 devnull . \" XF - finish a block display to be recentered.
570 5f1cf8e6 2004-05-16 devnull .if \\n(dl>\\n(BD .nr BD \\n(dl
571 5f1cf8e6 2004-05-16 devnull .if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u
572 5f1cf8e6 2004-05-16 devnull .nr EI \\n(.l-\\n(.i
573 5f1cf8e6 2004-05-16 devnull .ta \\n(EIuR
576 5f1cf8e6 2004-05-16 devnull .in \\n(OIu
580 5f1cf8e6 2004-05-16 devnull . \" SH - (unnumbered) section heading
583 5f1cf8e6 2004-05-16 devnull .nr X 1v
584 5f1cf8e6 2004-05-16 devnull .nr Y 3v
585 5f1cf8e6 2004-05-16 devnull .if \\n(1T .NP
586 5f1cf8e6 2004-05-16 devnull .if \\n(1T .X "NE \\nY SH" \" should these be reversed, change Y to 4v
587 5f1cf8e6 2004-05-16 devnull .if \\n(1T .X "SP \\nX SH
590 5f1cf8e6 2004-05-16 devnull . \" NH - numbered heading
593 5f1cf8e6 2004-05-16 devnull .nr X 1v
594 5f1cf8e6 2004-05-16 devnull .nr Y 3v
595 5f1cf8e6 2004-05-16 devnull .if \\n(1T .NP
596 5f1cf8e6 2004-05-16 devnull .if \\n(1T .X "NE \\nY NH" \" should these be reversed, change Y to 4v
597 5f1cf8e6 2004-05-16 devnull .if \\n(1T .X "SP \\nX NH
599 5f1cf8e6 2004-05-16 devnull .nr NS \\$1
600 5f1cf8e6 2004-05-16 devnull .if !\\n(.$ .nr NS 1
601 5f1cf8e6 2004-05-16 devnull .if !\\n(NS .nr NS 1
602 5f1cf8e6 2004-05-16 devnull .nr H\\n(NS +1
603 5f1cf8e6 2004-05-16 devnull .if !\\n(NS-4 .nr H5 0
604 5f1cf8e6 2004-05-16 devnull .if !\\n(NS-3 .nr H4 0
605 5f1cf8e6 2004-05-16 devnull .if !\\n(NS-2 .nr H3 0
606 5f1cf8e6 2004-05-16 devnull .if !\\n(NS-1 .nr H2 0
607 5f1cf8e6 2004-05-16 devnull .if !\\$1 .if \\n(.$ .nr H1 1
608 5f1cf8e6 2004-05-16 devnull .ds SN \\n(H1.
609 5f1cf8e6 2004-05-16 devnull .if \\n(NS-1 .as SN \\n(H2.
610 5f1cf8e6 2004-05-16 devnull .if \\n(NS-2 .as SN \\n(H3.
611 5f1cf8e6 2004-05-16 devnull .if \\n(NS-3 .as SN \\n(H4.
612 5f1cf8e6 2004-05-16 devnull .if \\n(NS-4 .as SN \\n(H5.
615 5f1cf8e6 2004-05-16 devnull . \" RT - reset at beginning of each PP, LP, etc.
617 5f1cf8e6 2004-05-16 devnull .if !\\n(AB .if !\\n(1T .BG
619 5f1cf8e6 2004-05-16 devnull .if !\\n(AB .if !\\n(KF .if !\\n(IF .if !\\n(IX .if !\\n(BE .di
620 5f1cf8e6 2004-05-16 devnull .if \\n(QP \{\
621 5f1cf8e6 2004-05-16 devnull . ll +\\n(QIu
622 5f1cf8e6 2004-05-16 devnull . in -\\n(QIu
623 5f1cf8e6 2004-05-16 devnull . nr QP -1\}
624 5f1cf8e6 2004-05-16 devnull .if !\\n(AB \{\
625 5f1cf8e6 2004-05-16 devnull . ll \\n(LLu\}
626 5f1cf8e6 2004-05-16 devnull .if !\\n(IF .if !\\n(AB \{\
627 5f1cf8e6 2004-05-16 devnull . ps \\n(PS
628 5f1cf8e6 2004-05-16 devnull . ie \\n(VS>=41 .vs \\n(VSu
629 5f1cf8e6 2004-05-16 devnull . el .vs \\n(VSp\}
630 5f1cf8e6 2004-05-16 devnull .ie \\n(IP \{\
631 5f1cf8e6 2004-05-16 devnull . in \\n(I\\n(IRu
632 5f1cf8e6 2004-05-16 devnull . nr IP -1\}
633 5f1cf8e6 2004-05-16 devnull .el .if !\\n(IR \{\
634 5f1cf8e6 2004-05-16 devnull . nr I1 \\n(PIu
635 5f1cf8e6 2004-05-16 devnull . nr I2 0
636 5f1cf8e6 2004-05-16 devnull . nr I3 0
637 5f1cf8e6 2004-05-16 devnull . nr I4 0
638 5f1cf8e6 2004-05-16 devnull . nr I5 0\}
639 5f1cf8e6 2004-05-16 devnull .if !\\n(AB .ft 1
640 5f1cf8e6 2004-05-16 devnull .ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
643 5f1cf8e6 2004-05-16 devnull . \" BG - begin, execute at first TL, AB, NH, SH, PP, etc.
644 5f1cf8e6 2004-05-16 devnull .de BG \" IZ has been called, so registers have some value
646 5f1cf8e6 2004-05-16 devnull .if \\n(CW>0 .if \\n(LL=0 .nr LL \\n(CW+\\n(CW+\\n(GW
647 5f1cf8e6 2004-05-16 devnull .ll \\n(LLu
648 5f1cf8e6 2004-05-16 devnull .lt \\n(LLu
649 5f1cf8e6 2004-05-16 devnull .po \\n(POu
650 5f1cf8e6 2004-05-16 devnull .nr YE 1 \" ok to cause break in .EQ (earlier ones won't)
660 5f1cf8e6 2004-05-16 devnull .nr 1T 1
661 5f1cf8e6 2004-05-16 devnull .X "PARM NP \\n(HM
662 5f1cf8e6 2004-05-16 devnull .X "PARM FO \\n(FO
663 5f1cf8e6 2004-05-16 devnull .if !\\n(%# .nr %# 1
665 5f1cf8e6 2004-05-16 devnull . \" PP - paragraph
668 5f1cf8e6 2004-05-16 devnull .if \\n(1T .NP
669 5f1cf8e6 2004-05-16 devnull .if \\n(1T .X "SP \\n(PD PP"
670 5f1cf8e6 2004-05-16 devnull .if \\n(1T .X "BS 2 PP"
671 5f1cf8e6 2004-05-16 devnull .ti +\\n(PIu
673 5f1cf8e6 2004-05-16 devnull . \" LP - left aligned paragraph
676 5f1cf8e6 2004-05-16 devnull .if \\n(1T .NP
677 5f1cf8e6 2004-05-16 devnull .if \\n(1T .X "SP \\n(PD LP"
678 5f1cf8e6 2004-05-16 devnull .if \\n(1T .X "BS 2 LP"
680 5f1cf8e6 2004-05-16 devnull . \" IP - indented paragraph
683 5f1cf8e6 2004-05-16 devnull .if !\\n(IP .nr IP +1
684 5f1cf8e6 2004-05-16 devnull .if \\n(1T .NP
685 5f1cf8e6 2004-05-16 devnull .if \\n(1T .X "SP \\n(PD PP"
686 5f1cf8e6 2004-05-16 devnull .if \\n(1T .X "BS 2 IP"
687 5f1cf8e6 2004-05-16 devnull .nr IU \\n(IR+1
688 5f1cf8e6 2004-05-16 devnull .if \\n(.$>1 .nr I\\n(IU \\$2n+\\n(I\\n(IRu
689 5f1cf8e6 2004-05-16 devnull .if \\n(I\\n(IU=0 .nr I\\n(IU \\n(PIu+\\n(I\\n(IRu
690 5f1cf8e6 2004-05-16 devnull .in \\n(I\\n(IUu
691 5f1cf8e6 2004-05-16 devnull .nr TY \\n(TZ-\\n(.i
692 5f1cf8e6 2004-05-16 devnull .nr JQ \\n(I\\n(IU-\\n(I\\n(IR
693 5f1cf8e6 2004-05-16 devnull .ta \\n(JQu \\n(TYuR
694 5f1cf8e6 2004-05-16 devnull .if \\n(.$ \{\
695 5f1cf8e6 2004-05-16 devnull .ti \\n(I\\n(IRu
696 5f1cf8e6 2004-05-16 devnull \&\\$1\t\c\}
698 5f1cf8e6 2004-05-16 devnull . \" QP - quoted paragraph (within IP)
701 5f1cf8e6 2004-05-16 devnull .if \\n(1T .NP
702 5f1cf8e6 2004-05-16 devnull .if \\n(1T .X "SP \\n(PD QP"
703 5f1cf8e6 2004-05-16 devnull .if \\n(1T .X "BS 2 QP"
704 5f1cf8e6 2004-05-16 devnull .nr QP 1
705 5f1cf8e6 2004-05-16 devnull .in +\\n(QIu
706 5f1cf8e6 2004-05-16 devnull .ll -\\n(QIu
707 5f1cf8e6 2004-05-16 devnull .ti \\n(.iu
709 5f1cf8e6 2004-05-16 devnull . \" RS - prepare for double indenting
711 5f1cf8e6 2004-05-16 devnull .nr IS \\n(IP
713 5f1cf8e6 2004-05-16 devnull .nr IP \\n(IS
714 5f1cf8e6 2004-05-16 devnull .nr IU \\n(IR
715 5f1cf8e6 2004-05-16 devnull .nr IR +1
716 5f1cf8e6 2004-05-16 devnull .if !\\n(I\\n(IR .nr I\\n(IR \\n(I\\n(IU+\\n(PIu
717 5f1cf8e6 2004-05-16 devnull .in \\n(I\\n(IRu
718 5f1cf8e6 2004-05-16 devnull .nr TY \\n(TZ-\\n(.i
719 5f1cf8e6 2004-05-16 devnull .ta \\n(TYuR
721 5f1cf8e6 2004-05-16 devnull . \" RE - retreat to the left
723 5f1cf8e6 2004-05-16 devnull .nr IS \\n(IP
725 5f1cf8e6 2004-05-16 devnull .nr IP \\n(IS
726 5f1cf8e6 2004-05-16 devnull .if \\n(IR>0 .nr IR -1
727 5f1cf8e6 2004-05-16 devnull .in \\n(I\\n(IRu
729 5f1cf8e6 2004-05-16 devnull . \" B - bold font
731 5f1cf8e6 2004-05-16 devnull .nr PQ \\n(.f
733 5f1cf8e6 2004-05-16 devnull .if \\n(.$ \&\\$1\\f\\n(PQ\\$2
735 5f1cf8e6 2004-05-16 devnull . \" BI - bold italic
737 5f1cf8e6 2004-05-16 devnull .nr PQ \\n(.f
739 5f1cf8e6 2004-05-16 devnull .if \\n(.$ \&\\$1\\f\\n(PQ\\$2
741 5f1cf8e6 2004-05-16 devnull . \" R - Roman font
743 5f1cf8e6 2004-05-16 devnull .nr PQ \\n(.f
745 5f1cf8e6 2004-05-16 devnull .if \\n(.$ \&\\$1\f\\n(PQ\\$2
747 5f1cf8e6 2004-05-16 devnull . \" I - italic font
749 5f1cf8e6 2004-05-16 devnull .nr PQ \\n(.f
751 5f1cf8e6 2004-05-16 devnull .if \\n(.$ \&\\$1\^\f\\n(PQ\\$2
753 5f1cf8e6 2004-05-16 devnull . \" CW - constant width font from -ms
755 5f1cf8e6 2004-05-16 devnull .nr PQ \\n(.f
756 5f1cf8e6 2004-05-16 devnull .if \\n(.$=0 .ft CW
757 5f1cf8e6 2004-05-16 devnull .if \\n(.$>0 \%\&\\$3\f(CW\\$1\\f\\n(PQ\\$2
759 5f1cf8e6 2004-05-16 devnull .de IT \" ditto to italicize argument
760 5f1cf8e6 2004-05-16 devnull .nr Sf \\n(.f
761 5f1cf8e6 2004-05-16 devnull \%\&\\$3\f2\\$1\f\\n(Sf\&\\$2
763 5f1cf8e6 2004-05-16 devnull . \" TA - tabs set in ens or chars
765 5f1cf8e6 2004-05-16 devnull .ta \\$1n \\$2n \\$3n \\$4n \\$5n \\$6n \\$7n \\$8n \\$9n
767 5f1cf8e6 2004-05-16 devnull . \" SM - make smaller size
769 5f1cf8e6 2004-05-16 devnull .ie \\n(.$ \&\\$3\s-2\\$1\s0\\$2
770 5f1cf8e6 2004-05-16 devnull .el .ps -2
772 5f1cf8e6 2004-05-16 devnull . \" LG - make larger size
774 5f1cf8e6 2004-05-16 devnull .ie \\n(.$ \&\\$3\s+2\\$1\s0\\$2
775 5f1cf8e6 2004-05-16 devnull .el .ps +2
777 5f1cf8e6 2004-05-16 devnull . \" NL - return to normal size
779 5f1cf8e6 2004-05-16 devnull .ps \\n(PS
781 5f1cf8e6 2004-05-16 devnull . \" FS - begin footnote
783 5f1cf8e6 2004-05-16 devnull .if \\n(IF>0 .tm .FS within .FS/.FE, line \\n(.c, file \\n(.F
784 5f1cf8e6 2004-05-16 devnull .if \\n(KF>0 .tm .FS won't work inside .KF, line \\n(.c, file \\n(.F
785 5f1cf8e6 2004-05-16 devnull .if \\n(KS>0 .tm .FS won't work inside .KS, line \\n(.c, file \\n(.F
786 5f1cf8e6 2004-05-16 devnull .nr IF 1
788 5f1cf8e6 2004-05-16 devnull .ps \\n(PS-2
789 5f1cf8e6 2004-05-16 devnull .ie \\n(VS>=41 .vs \\n(VSu-2p
790 5f1cf8e6 2004-05-16 devnull .el .vs \\n(VSp-2p
791 5f1cf8e6 2004-05-16 devnull .ll \\n(LLu
793 5f1cf8e6 2004-05-16 devnull .nr X \\n(FOu
794 5f1cf8e6 2004-05-16 devnull .X "BF \\nX FS
796 5f1cf8e6 2004-05-16 devnull ....FA \" deleted by authority of cvw, 10/17/88
798 5f1cf8e6 2004-05-16 devnull . \" FE - end footnote
800 5f1cf8e6 2004-05-16 devnull .if !\\n(IF .tm .FE without .FS, line \\n(.c, file \\n(.F
802 5f1cf8e6 2004-05-16 devnull .X "END BF FE
805 5f1cf8e6 2004-05-16 devnull .nr IF 0
807 5f1cf8e6 2004-05-16 devnull . \" FA - the line for a footnote
812 5f1cf8e6 2004-05-16 devnull . \" Tm - message to be passed on
815 5f1cf8e6 2004-05-16 devnull .if \\n(.$=1 .X "TM \\$1
816 5f1cf8e6 2004-05-16 devnull .if \\n(.$=2 .X "TM \\$1 \\$2
817 5f1cf8e6 2004-05-16 devnull .if \\n(.$=3 .X "TM \\$1 \\$2 \\$3
818 5f1cf8e6 2004-05-16 devnull .if \\n(.$=4 .X "TM \\$1 \\$2 \\$3 \\$4
819 5f1cf8e6 2004-05-16 devnull .if \\n(.$=5 .X "TM \\$1 \\$2 \\$3 \\$4 \\$5
820 5f1cf8e6 2004-05-16 devnull .if \\n(.$=6 .X "TM \\$1 \\$2 \\$3 \\$4 \\$5 \\$6
821 5f1cf8e6 2004-05-16 devnull .if \\n(.$=7 .X "TM \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7
822 5f1cf8e6 2004-05-16 devnull .if \\n(.$=8 .X "TM \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
823 5f1cf8e6 2004-05-16 devnull .if \\n(.$=9 .X "TM \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
828 5f1cf8e6 2004-05-16 devnull AT&T Bell Laboratories
829 5f1cf8e6 2004-05-16 devnull Murray Hill, New Jersey 07974
832 5f1cf8e6 2004-05-16 devnull AT&T Bell Laboratories
833 5f1cf8e6 2004-05-16 devnull Holmdel, New Jersey 07733
836 5f1cf8e6 2004-05-16 devnull AT&T Bell Laboratories
837 5f1cf8e6 2004-05-16 devnull Whippany, New Jersey 07981
840 5f1cf8e6 2004-05-16 devnull AT&T Bell Laboratories
841 5f1cf8e6 2004-05-16 devnull Naperville, Illinois 60540
843 5f1cf8e6 2004-05-16 devnull . \" UL - underline argument, don't italicize
845 5f1cf8e6 2004-05-16 devnull \\$1\l'|0\(ul'\\$2
847 5f1cf8e6 2004-05-16 devnull . \" UX - print $2 UNIX $1
849 5f1cf8e6 2004-05-16 devnull .ie \\n(UX \\$2\s-1UNIX\s0\\$1
851 5f1cf8e6 2004-05-16 devnull \\$2\s-1UNIX\\s0\\$1\(rg
852 5f1cf8e6 2004-05-16 devnull .nr UX 1\}
854 5f1cf8e6 2004-05-16 devnull . \" QS - start quote
858 5f1cf8e6 2004-05-16 devnull .in +\\n(QIu
859 5f1cf8e6 2004-05-16 devnull .ll -\\n(QIu
861 5f1cf8e6 2004-05-16 devnull . \" QE - end quote
864 5f1cf8e6 2004-05-16 devnull .ll +\\n(QIu
865 5f1cf8e6 2004-05-16 devnull .in -\\n(QIu
868 5f1cf8e6 2004-05-16 devnull . \" B1 - begin boxed stuff
872 5f1cf8e6 2004-05-16 devnull .nr BC 0
873 5f1cf8e6 2004-05-16 devnull .if "\\$1"C" .nr BC 1
874 5f1cf8e6 2004-05-16 devnull .nr BE 1
876 5f1cf8e6 2004-05-16 devnull . \" B2 - end boxed stuff
879 5f1cf8e6 2004-05-16 devnull .nr BI 1n
880 5f1cf8e6 2004-05-16 devnull .if \\n(.$>0 .nr BI \\$1n
882 5f1cf8e6 2004-05-16 devnull .nr BE 0
883 5f1cf8e6 2004-05-16 devnull .nr BW \\n(dl
884 5f1cf8e6 2004-05-16 devnull .nr BH \\n(dn
885 5f1cf8e6 2004-05-16 devnull .ne \\n(BHu+\\n(.Vu
886 5f1cf8e6 2004-05-16 devnull .nr BQ \\n(.j
889 5f1cf8e6 2004-05-16 devnull .if \\n(BC>0 .in +(\\n(.lu-\\n(BWu)/2u
890 5f1cf8e6 2004-05-16 devnull .in +\\n(BIu
894 5f1cf8e6 2004-05-16 devnull .in -\\n(BIu
895 5f1cf8e6 2004-05-16 devnull .nr BW +2*\\n(BI
897 5f1cf8e6 2004-05-16 devnull \l'\\n(BWu\(ul'\L'-\\n(BHu'\l'|0\(ul'\h'|0'\L'\\n(BHu'
898 5f1cf8e6 2004-05-16 devnull .if \\n(BC>0 .in -(\\n(.lu-\\n(BWu)/2u
899 5f1cf8e6 2004-05-16 devnull .if \\n(BQ .fi
902 5f1cf8e6 2004-05-16 devnull . \" BX - boxed stuff
904 5f1cf8e6 2004-05-16 devnull \(br\|\\$1\|\(br\l'|0\(rn'\l'|0\(ul'
907 5f1cf8e6 2004-05-16 devnull . \" macros for programs, etc.
910 5f1cf8e6 2004-05-16 devnull programs are displayed between .P1/.P2 pairs
911 5f1cf8e6 2004-05-16 devnull default is to indent by 1/2 inch, nofill, dP smaller
912 5f1cf8e6 2004-05-16 devnull .P1 x causes an indent of x instead.
914 5f1cf8e6 2004-05-16 devnull .P3 can be used to specify optional page-break points
915 5f1cf8e6 2004-05-16 devnull inside .P1/.P2
918 5f1cf8e6 2004-05-16 devnull . \" P1 - start of program
920 5f1cf8e6 2004-05-16 devnull .nr $1 \\n(P1
921 5f1cf8e6 2004-05-16 devnull .if \\n(.$ .nr $1 \\$1n
923 5f1cf8e6 2004-05-16 devnull .X "SP \\n(DV P1"
924 5f1cf8e6 2004-05-16 devnull .X "US P1"
925 5f1cf8e6 2004-05-16 devnull .in \\n($1u
927 5f1cf8e6 2004-05-16 devnull .nr v \\n(.v
928 5f1cf8e6 2004-05-16 devnull .ps -\\n(dP
929 5f1cf8e6 2004-05-16 devnull .vs -\\n(dVu
931 5f1cf8e6 2004-05-16 devnull .nr t \\n(dT*\\w'x'u
932 5f1cf8e6 2004-05-16 devnull .ta 1u*\\ntu 2u*\\ntu 3u*\\ntu 4u*\\ntu 5u*\\ntu 6u*\\ntu 7u*\\ntu 8u*\\ntu 9u*\\ntu 10u*\\ntu 11u*\\ntu 12u*\\ntu 13u*\\ntu 14u*\\ntu
934 5f1cf8e6 2004-05-16 devnull . \" P2 - end of program
937 5f1cf8e6 2004-05-16 devnull .ps \\n(PS
938 5f1cf8e6 2004-05-16 devnull .vs \\nvu
941 5f1cf8e6 2004-05-16 devnull .X "END US P1
942 5f1cf8e6 2004-05-16 devnull .X "SP \\n(DV P2"
945 5f1cf8e6 2004-05-16 devnull . \" P3 - provides optional unpadded break in P1/P2
947 5f1cf8e6 2004-05-16 devnull .nr x \\n(DV
948 5f1cf8e6 2004-05-16 devnull .nr DV 0
950 5f1cf8e6 2004-05-16 devnull .P1 \\n($1u
951 5f1cf8e6 2004-05-16 devnull .nr DV \\nx
961 5f1cf8e6 2004-05-16 devnull .so /sys/lib/tmac/tmac.srefs
