1 '\"		Copyright (c) 1984 AT&T
2 '\"		  All Rights Reserved
3 '\"#ident	"@(#)macros:vmca.src	1.17"
4 .ifn .ds Tm \uTM\d
5 .ift .ds Tm \v'-0.5m'\s-8TM\s+8\v'0.5m'
6 .deVS
7 .)j
8 .nr)K 0i
9 .nr)L 0i
10 .nr)U 8i
11 .nr)X 18
12 .nr)H 0
13 .nr)W 0
14 .nr)O 0i
15 .nr)M 0
16 .if!\\n(.$ .)V
17 .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
18 .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
19 .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
20 ..
21 .deVh
22 .)j
23 .nr)K 0.9i
24 .nr)L 1i
25 .nr)U 8i
26 .nr)X 14
27 .nr)H 1
28 .nr)W 0
29 .nr)O 0.2i
30 .nr)M 0
31 .if!\\n(.$ .)V
32 .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
33 .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
34 .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
35 ..
36 .deSh
37 .)j
38 .nr)K 1.1i
39 .nr)L 1i
40 .nr)U 8i
41 .nr)X 14
42 .nr)H 1
43 .nr)W 0
44 .nr)O 0.2i
45 .nr)M 1
46 .if!\\n(.$ .)V
47 .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
48 .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
49 .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
50 ..
51 .deVw
52 .)j
53 .nr)K 0i
54 .nr)L 0i
55 .nr)U 6i
56 .nr)X 14
57 .nr)H 0
58 .nr)W 1
59 .nr)O 0.2i
60 .nr)M 0
61 .if!\\n(.$ .)V
62 .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
63 .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
64 .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
65 ..
66 .deSw
67 .)j
68 .nr)K 0i
69 .nr)L 0i
70 .nr)U 6i
71 .nr)X 14
72 .nr)H 0
73 .nr)W 1
74 .nr)O 0.2i
75 .nr)M 1
76 .if!\\n(.$ .)V
77 .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
78 .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
79 .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
80 ..
81 .deVH
82 .)j
83 .nr)K 0i
84 .nr)L 0i
85 .nr)U 10i
86 .nr)X 18
87 .nr)H 1
88 .nr)W 0
89 .nr)O 0.5i
90 .nr)M 0
91 .if!\\n(.$ .)V
92 .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
93 .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
94 .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
95 ..
96 .deSH
97 .)j
98 .nr)K 0.5i
99 .nr)L 0i
100 .nr)U 10i
101 .nr)X 18
102 .nr)H 1
103 .nr)W 0
104 .nr)O 0.5i
105 .nr)M 1
106 .if!\\n(.$ .)V
107 .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
108 .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
109 .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
110 ..
111 .deVW
112 .)j
113 .nr)K 0i
114 .nr)L 0i
115 .nr)U 6.44i
116 .nr)X 14
117 .nr)H 0
118 .nr)W 1
119 .nr)O 0.4i
120 .nr)M 0
121 .if!\\n(.$ .)V
122 .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
123 .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
124 .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
125 ..
126 .deSW
127 .)j
128 .nr)K 0i
129 .nr)L 0i
130 .nr)U 6.44i
131 .nr)X 14
132 .nr)H 0
133 .nr)W 1
134 .nr)O 0.4i
135 .nr)M 1
136 .if!\\n(.$ .)V
137 .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
138 .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
139 .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
140 ..
141 .de)V
142 .fc
143 .wh0i
144 .if\\nX .wh -0.5i
145 .nr)o 0u
146 .if\\n()i .nr )o 10p
147 .nr)U +\\n()ou
148 .pl\\n()Uu+1.5i
149 .if\\nX .if \\n(.pu-\\n()Gu .pl \\n()Gu
150 .na
151 .fi
152 .nh
153 .lg0
154 .ta0.5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i
155 .ce0
156 .in0i
157 .ll7.54i
158 .po0i
159 .lt7.68i
160 .if\\n()i .)t "'\(da cut \(da''\(da cut \(da'" 1
161 .nr)i 0
162 .)t "'\l'0.38i'''\l'0.38i''" 1
163 .sp0.5v
164 .po0.23i
165 .lt7.06i
166 .if\\n(.$-1 .ds )N "\\$2
167 .if\\n(.$-2 .ds )Y "\\$3
168 .tl\\*()Y
169 .tl\\*()N
170 .if\\n(.$ .tl \\*()F \\$1
171 .if!\\n(.$ .tl \\*()F %
172 .po
173 .sp|0.68i+\\n()ou
174 .po0.26i+\\n()Lu+\\n()Ou
175 .lt7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou
176 .if\\n()H .)t "'|''|'"
177 .po
178 .sp|1i+\\n()Ou+\\n()ou
179 .if!\\n(.A .)e
180 .po0.1i
181 .lt7.4i
182 .if\\n()W .)t "'_''_'"
183 .po
184 .sp|1i+\\n()ou
185 .if!\\n(.A .)e
186 .po0.23i+\\n()Lu
187 .lt7.06i-\\n()Lu-\\n()Lu
188 .tl++
189 .sp-3p
190 .if\\n()M .if \\n()W .sp \\n()Ou
191 .po
192 .nr)J \\n()Uu
193 .if\\n()M .if \\n()W .nr )J \\n()Uu-\\n()Ou
194 .nr)E \\n()Ju
195 .wh\\n()Eu )Z
196 .S \\n()X 6i-\\n()Ku-\\n()Ku
197 .I "" A no-space
198 .sp.5v
199 .nr)n \\n(nlu
200 ..
201 .de)Z
202 .wh\\n()Eu
203 .nr)w 0
204 .ev1
205 .)g
206 'sp|\\n()Uu
207 .if!\\n(.A .)e
208 .po0.23i+\\n()Lu
209 .lt7.06i-\\n()Lu-\\n()Lu
210 .tl++
211 .po
212 'sp|\\n()Uu-\\n()Ou
213 .if!\\n(.A .)e
214 .po0.1i
215 .lt7.4i
216 .if\\n()W .)t "'_''_'"
217 .po
218 'sp|\\n()Uu+0.32i
219 .po0.26i+\\n()Lu+\\n()Ou
220 .lt7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou
221 .if\\n()H .)t "'|''|'"
222 .po
223 .if!\\n()H 'sp 1v
224 'sp1v
225 .ev
226 .if\\nX .pl \\n()Gu
227 .if\\nX .wh -0.5i )m
228 .wh0i )P
229 ..
230 .de)m
231 .bp
232 ..
233 .de)z
234 .pl\\n(.pu+2i
235 .br
236 .if\\n()i  \{.ps 10
237 .lt6i
238 .tl*** No input or no ``foil start'' macro in input. \}
239 .if!\\n()i \{.nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu
240 .nr)v \\n()w
241 .sp|\\n(.pu-2.8i
242 .if\\nX .wh -0.5i
243 .if\\nX .pl \\n(.pu+2i
244 \&
245 .br
246 .)g
247 .po0i
248 .ll6i
249 .ce0
250 .in0i
251 .if\\n(.A .sp -1.1v
252 .if\\n(.A .sp 0.1v
253 .if\\n(.A .if \\n()v ==> Approximately \\n()x blank line(s) \
254 left to bottom of previous foil.
255 .if\\n(.A .if !\\n()v ==> *** Previous foil full; \
256 check for overflow.
257 .sp|\\n(.pu-2i
258 .lt7.68i
259 .)t "'\l'0.38i'''\l'0.38i''" 1
260 .)t "'\(ua cut \(ua''\(ua cut \(ua'" 1 \}
261 ..
262 .de)t
263 .if!\\n(.A .if \\n(.$-1 .)e
264 .if!\\n(.A .tl \\$1
265 ..
266 .de)e
267 .po0i
268 .lt1i
269 .tl'\ '''
270 'sp-1v
271 .po
272 .lt
273 ..
274 .de)P
275 .pl2i
276 .if\\nX .pl \\n()Gu
277 ..
278 .de)j
279 .br
280 .if\\n()i .if \\n(nl \{.ps 10
281 .lt6i
282 .tl*** Text before ``foil start'' macro in input. \}
283 .if!\\n()i \{.nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu
284 .nr)v \\n()w
285 .sp|\\n(.pu-0.8i
286 \&
287 .br\}
288 .)g
289 .if!\\n()i \{.po 0i
290 .ll6i
291 .ce0
292 .in0i
293 .if\\n(.A .sp -1.1v
294 .if\\n(.A .sp 0.1v
295 .if\\n(.A .if \\n()v ==> Approximately \\n()x blank line(s) \
296 left to bottom of previous foil.
297 .if\\n(.A .if !\\n()v ==> *** Previous foil full; \
298 check for overflow.
299 .br
300 .ll
301 .po\}
302 .if\\n(nl .bp
303 .nr)w 1
304 ..
305 .de)g
306 .ft\\*()f
307 .cs\\*()f
308 .ps8
309 .vs10p
310 .ss16
311 ..
312 .deT
313 .br
314 .if\\n(nlu-\\n()nu .sp .5v
315 .nr]a \\n(.s
316 .ps
317 .nr]b \\n(.s
318 .ps
319 .nr)u \\n(.iu
320 .in0i
321 .ps+4
322 .ce
323 \&\\$1
324 .in\\n()uu
325 .ps\\n(]b
326 .ps\\n(]a
327 .sp.5v
328 .nr)n \\n(nlu
329 ..
330 .deS
331 .if!\w\\$1 .ps
332 .if\w\\$1 .if !\\$1+1 .ps \\$1
333 .if\w\\$1 .if \\$1 .nr )y \\n(.s
334 .if\w\\$1 .if \\$1 .nr )y \\$1
335 .if\w\\$1 .if \\$1-99 .nr )y \\n()X
336 .if\w\\$1 .if \\$1 .ps \\n()y
337 .vs\\n(.sp*5u/4u
338 .ss16
339 .nr)a .8i+\\n()Ku
340 .nr]c \\n(.s
341 .ps
342 .nr]d \\n(.s
343 .ps
344 .nr)A \\n(.s*\\n()Q/\\n(]X
345 .ps\\n()A
346 .nr)b \w\\*()B\ u
347 .ps
348 .nr)A \\n(.s*\\n()R/\\n(]X
349 .ps\\n()A
350 .nr)c \\n()bu+\w\\*()C\ u
351 .ps
352 .nr)A \\n(.s*\\n()S/\\n(]X
353 .ps\\n()A
354 .nr)d \\n()cu+\w\\*()D\ u
355 .ps\\n(]d
356 .ps\\n(]c
357 .if\\n(.$-1 .nr )u \\$2
358 .if\\n(.$-1 .if !\\n()uu-7u .nr )p \\$2i
359 .if\\n(.$-1 .if \\n()uu-7u .nr )p \\$2
360 .nr)q \\n()pu-0i
361 .nr)r \\n()qu-0i
362 .nr)s \\n()ru-0i
363 .nr)T \\n(.sp*5u/4u
364 .nr)E \\n()Ju-\\n()Tu
365 .ch)Z \\n()Eu
366 ..
367 .deI
368 .if!\w\\$1u .nr )k 0i
369 .if\w\\$1u .if !\\$1 .nr )u 0i-\\$1
370 .if\w\\$1u .if \\$1 .nr )u \\$1
371 .if\w\\$1u .if !\\n()uu-7u .nr )k \\$1i
372 .if\w\\$1u .if \\n()uu-7u .nr )k \\$1
373 .if\\n(.$-1 .A \\$3
374 ..
375 .deA
376 .br
377 .if!\\n(.$ .if \\n(nlu-\\n()nu .sp \\*(]Au
378 .nr)n \\n(nlu
379 .po\\n()au
380 .in0u+\\n()ku
381 .ll\\n()pu
382 .lt\\n()pu
383 ..
384 .deB
385 .br
386 .if\\n(nlu-\\n()nu .sp \\*(]Bu
387 .nr)n \\n(nlu
388 .in\\n()bu+\\n()ku
389 .ll\\n()qu
390 .lt\\n()qu
391 .nr)l 0
392 .nr]x \\n()bu
393 .if!\\n(.$ .)I \\*()B \\n()Q
394 .if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
395 .if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()Q
396 .if\\n(.$-1 .if !\\$2-99 .nr )l 1
397 .if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
398 ..
399 .deC
400 .br
401 .if\\n(nlu-\\n()nu .sp \\*(]Cu
402 .nr)n \\n(nlu
403 .in\\n()cu+\\n()ku
404 .ll\\n()ru
405 .lt\\n()ru
406 .nr)l 0
407 .nr]x \\n()cu-\\n()bu
408 .if!\\n(.$ .)I \\*()C \\n()R
409 .if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
410 .if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()R
411 .if\\n(.$-1 .if !\\$2-99 .nr )l 1
412 .if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
413 ..
414 .deD
415 .br
416 .if\\n(nlu-\\n()nu .sp \\*(]Du
417 .nr)n \\n(nlu
418 .in\\n()du+\\n()ku
419 .ll\\n()su
420 .lt\\n()su
421 .nr)l 0
422 .nr]x \\n()du-\\n()cu
423 .if!\\n(.$ .)I \\*()D \\n()S
424 .if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
425 .if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()S
426 .if\\n(.$-1 .if !\\$2-99 .nr )l 1
427 .if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
428 ..
429 .de)I
430 .nr]a \\n(.s
431 .ps
432 .nr]b \\n(.s
433 .ps
434 .if!\\n()l .if !\\$2 .nr )A \\n(.s
435 .if!\\n()l .if \\$2 .nr )A \\n(.s*\\$2/\\n(]X
436 .if\\n()l .nr )A \\n(.s+\\$2
437 .ps\\n()A
438 .ti-\w\\$1\ u
439 \&\\$1\ \&\c
440 .ps\\n(]b
441 .ps\\n(]a
442 ..
443 .deU
444 .if!\w\\$1u-.46m \&\\$1\v'.55m'\l'|0\(hy'\v'-.55m'\\$2
445 .if\w\\$1u-.46m \&\\$1\v'.09m'\l'|0\(ul'\v'-.09m'\\$2
446 ..
447 .deDV
448 .if\w\\$1 .ds ]A \\$1
449 .if\w\\$2 .ds ]B \\$2
450 .if\w\\$3 .ds ]C \\$3
451 .if\w\\$4 .ds ]D \\$4
452 ..
453 .deDF
454 .if\\n(.$-1 .ds )f "\\$2
455 .if\\n(.$-1 .fp \\$1 \\$2
456 .if\\n(.$-1 .ft \\$2
457 .if\\n(.$-3 .fp \\$3 \\$4
458 .if\\n(.$-5 .fp \\$5 \\$6
459 .if\\n(.$-7 .fp \\$7 \\$8
460 ..
461 .deSP
462 .sp\\$1
463 ..
464 .deBR
465 .br
466 ..
467 .deTA
468 'ta\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
469 ..
470 .deCE
471 .ce\\$1
472 ..
473 .deTI
474 .ti\\$1
475 ..
476 .deFI
477 .fi
478 ..
479 .deNF
480 .nf
481 ..
482 .deAD
483 'ad\\$1
484 ..
485 .deNA
486 'na
487 ..
488 .deHY
489 'hy\\$1
490 ..
491 .deNH
492 'nh
493 ..
494 .deSO
495 'so\\$1
496 ..
497 .deNX
498 'nx\\$1
499 ..
500 .ds)F FOIL
501 .if\n(.A .ds )F FOIL
502 .ds)N Bell\ Labs
503 .ds)Y \n(mo/\n(dy/\n(yr
504 .ds)B \(bu\ \|
505 .ds)C \(em\ \|
506 .ds)D \(bu\ \|
507 .ds]A .5v
508 .ds]B .5v
509 .ds]C .5v
510 .ds]D 0v
511 .nr)G 11i-7.5p
512 .nr)Q 5
513 .nr)R 5
514 .nr)S 3
515 .nr]X 6
516 .nr)i 1
517 .nr)w 0
518 .em)z
519 .DF 1 H