Blob
1 '\" Copyright (c) 1984 AT&T2 '\" All Rights Reserved3 '\"#ident "@(#)macros:vmca.src 1.17"4 .ifn .ds Tm \uTM\d5 .ift .ds Tm \v'-0.5m'\s-8TM\s+8\v'0.5m'6 .deVS7 .)j8 .nr)K 0i9 .nr)L 0i10 .nr)U 8i11 .nr)X 1812 .nr)H 013 .nr)W 014 .nr)O 0i15 .nr)M 016 .if!\\n(.$ .)V17 .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 .deVh22 .)j23 .nr)K 0.9i24 .nr)L 1i25 .nr)U 8i26 .nr)X 1427 .nr)H 128 .nr)W 029 .nr)O 0.2i30 .nr)M 031 .if!\\n(.$ .)V32 .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 .deSh37 .)j38 .nr)K 1.1i39 .nr)L 1i40 .nr)U 8i41 .nr)X 1442 .nr)H 143 .nr)W 044 .nr)O 0.2i45 .nr)M 146 .if!\\n(.$ .)V47 .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 .deVw52 .)j53 .nr)K 0i54 .nr)L 0i55 .nr)U 6i56 .nr)X 1457 .nr)H 058 .nr)W 159 .nr)O 0.2i60 .nr)M 061 .if!\\n(.$ .)V62 .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 .deSw67 .)j68 .nr)K 0i69 .nr)L 0i70 .nr)U 6i71 .nr)X 1472 .nr)H 073 .nr)W 174 .nr)O 0.2i75 .nr)M 176 .if!\\n(.$ .)V77 .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 .deVH82 .)j83 .nr)K 0i84 .nr)L 0i85 .nr)U 10i86 .nr)X 1887 .nr)H 188 .nr)W 089 .nr)O 0.5i90 .nr)M 091 .if!\\n(.$ .)V92 .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 .deSH97 .)j98 .nr)K 0.5i99 .nr)L 0i100 .nr)U 10i101 .nr)X 18102 .nr)H 1103 .nr)W 0104 .nr)O 0.5i105 .nr)M 1106 .if!\\n(.$ .)V107 .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 .deVW112 .)j113 .nr)K 0i114 .nr)L 0i115 .nr)U 6.44i116 .nr)X 14117 .nr)H 0118 .nr)W 1119 .nr)O 0.4i120 .nr)M 0121 .if!\\n(.$ .)V122 .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 .deSW127 .)j128 .nr)K 0i129 .nr)L 0i130 .nr)U 6.44i131 .nr)X 14132 .nr)H 0133 .nr)W 1134 .nr)O 0.4i135 .nr)M 1136 .if!\\n(.$ .)V137 .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)V142 .fc143 .wh0i144 .if\\nX .wh -0.5i145 .nr)o 0u146 .if\\n()i .nr )o 10p147 .nr)U +\\n()ou148 .pl\\n()Uu+1.5i149 .if\\nX .if \\n(.pu-\\n()Gu .pl \\n()Gu150 .na151 .fi152 .nh153 .lg0154 .ta0.5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i155 .ce0156 .in0i157 .ll7.54i158 .po0i159 .lt7.68i160 .if\\n()i .)t "'\(da cut \(da''\(da cut \(da'" 1161 .nr)i 0162 .)t "'\l'0.38i'''\l'0.38i''" 1163 .sp0.5v164 .po0.23i165 .lt7.06i166 .if\\n(.$-1 .ds )N "\\$2167 .if\\n(.$-2 .ds )Y "\\$3168 .tl\\*()Y169 .tl\\*()N170 .if\\n(.$ .tl \\*()F \\$1171 .if!\\n(.$ .tl \\*()F %172 .po173 .sp|0.68i+\\n()ou174 .po0.26i+\\n()Lu+\\n()Ou175 .lt7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou176 .if\\n()H .)t "'|''|'"177 .po178 .sp|1i+\\n()Ou+\\n()ou179 .if!\\n(.A .)e180 .po0.1i181 .lt7.4i182 .if\\n()W .)t "'_''_'"183 .po184 .sp|1i+\\n()ou185 .if!\\n(.A .)e186 .po0.23i+\\n()Lu187 .lt7.06i-\\n()Lu-\\n()Lu188 .tl++189 .sp-3p190 .if\\n()M .if \\n()W .sp \\n()Ou191 .po192 .nr)J \\n()Uu193 .if\\n()M .if \\n()W .nr )J \\n()Uu-\\n()Ou194 .nr)E \\n()Ju195 .wh\\n()Eu )Z196 .S \\n()X 6i-\\n()Ku-\\n()Ku197 .I "" A no-space198 .sp.5v199 .nr)n \\n(nlu200 ..201 .de)Z202 .wh\\n()Eu203 .nr)w 0204 .ev1205 .)g206 'sp|\\n()Uu207 .if!\\n(.A .)e208 .po0.23i+\\n()Lu209 .lt7.06i-\\n()Lu-\\n()Lu210 .tl++211 .po212 'sp|\\n()Uu-\\n()Ou213 .if!\\n(.A .)e214 .po0.1i215 .lt7.4i216 .if\\n()W .)t "'_''_'"217 .po218 'sp|\\n()Uu+0.32i219 .po0.26i+\\n()Lu+\\n()Ou220 .lt7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou221 .if\\n()H .)t "'|''|'"222 .po223 .if!\\n()H 'sp 1v224 'sp1v225 .ev226 .if\\nX .pl \\n()Gu227 .if\\nX .wh -0.5i )m228 .wh0i )P229 ..230 .de)m231 .bp232 ..233 .de)z234 .pl\\n(.pu+2i235 .br236 .if\\n()i \{.ps 10237 .lt6i238 .tl*** No input or no ``foil start'' macro in input. \}239 .if!\\n()i \{.nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu240 .nr)v \\n()w241 .sp|\\n(.pu-2.8i242 .if\\nX .wh -0.5i243 .if\\nX .pl \\n(.pu+2i244 \&245 .br246 .)g247 .po0i248 .ll6i249 .ce0250 .in0i251 .if\\n(.A .sp -1.1v252 .if\\n(.A .sp 0.1v253 .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-2i258 .lt7.68i259 .)t "'\l'0.38i'''\l'0.38i''" 1260 .)t "'\(ua cut \(ua''\(ua cut \(ua'" 1 \}261 ..262 .de)t263 .if!\\n(.A .if \\n(.$-1 .)e264 .if!\\n(.A .tl \\$1265 ..266 .de)e267 .po0i268 .lt1i269 .tl'\ '''270 'sp-1v271 .po272 .lt273 ..274 .de)P275 .pl2i276 .if\\nX .pl \\n()Gu277 ..278 .de)j279 .br280 .if\\n()i .if \\n(nl \{.ps 10281 .lt6i282 .tl*** Text before ``foil start'' macro in input. \}283 .if!\\n()i \{.nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu284 .nr)v \\n()w285 .sp|\\n(.pu-0.8i286 \&287 .br\}288 .)g289 .if!\\n()i \{.po 0i290 .ll6i291 .ce0292 .in0i293 .if\\n(.A .sp -1.1v294 .if\\n(.A .sp 0.1v295 .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 .br300 .ll301 .po\}302 .if\\n(nl .bp303 .nr)w 1304 ..305 .de)g306 .ft\\*()f307 .cs\\*()f308 .ps8309 .vs10p310 .ss16311 ..312 .deT313 .br314 .if\\n(nlu-\\n()nu .sp .5v315 .nr]a \\n(.s316 .ps317 .nr]b \\n(.s318 .ps319 .nr)u \\n(.iu320 .in0i321 .ps+4322 .ce323 \&\\$1324 .in\\n()uu325 .ps\\n(]b326 .ps\\n(]a327 .sp.5v328 .nr)n \\n(nlu329 ..330 .deS331 .if!\w\\$1 .ps332 .if\w\\$1 .if !\\$1+1 .ps \\$1333 .if\w\\$1 .if \\$1 .nr )y \\n(.s334 .if\w\\$1 .if \\$1 .nr )y \\$1335 .if\w\\$1 .if \\$1-99 .nr )y \\n()X336 .if\w\\$1 .if \\$1 .ps \\n()y337 .vs\\n(.sp*5u/4u338 .ss16339 .nr)a .8i+\\n()Ku340 .nr]c \\n(.s341 .ps342 .nr]d \\n(.s343 .ps344 .nr)A \\n(.s*\\n()Q/\\n(]X345 .ps\\n()A346 .nr)b \w\\*()B\ u347 .ps348 .nr)A \\n(.s*\\n()R/\\n(]X349 .ps\\n()A350 .nr)c \\n()bu+\w\\*()C\ u351 .ps352 .nr)A \\n(.s*\\n()S/\\n(]X353 .ps\\n()A354 .nr)d \\n()cu+\w\\*()D\ u355 .ps\\n(]d356 .ps\\n(]c357 .if\\n(.$-1 .nr )u \\$2358 .if\\n(.$-1 .if !\\n()uu-7u .nr )p \\$2i359 .if\\n(.$-1 .if \\n()uu-7u .nr )p \\$2360 .nr)q \\n()pu-0i361 .nr)r \\n()qu-0i362 .nr)s \\n()ru-0i363 .nr)T \\n(.sp*5u/4u364 .nr)E \\n()Ju-\\n()Tu365 .ch)Z \\n()Eu366 ..367 .deI368 .if!\w\\$1u .nr )k 0i369 .if\w\\$1u .if !\\$1 .nr )u 0i-\\$1370 .if\w\\$1u .if \\$1 .nr )u \\$1371 .if\w\\$1u .if !\\n()uu-7u .nr )k \\$1i372 .if\w\\$1u .if \\n()uu-7u .nr )k \\$1373 .if\\n(.$-1 .A \\$3374 ..375 .deA376 .br377 .if!\\n(.$ .if \\n(nlu-\\n()nu .sp \\*(]Au378 .nr)n \\n(nlu379 .po\\n()au380 .in0u+\\n()ku381 .ll\\n()pu382 .lt\\n()pu383 ..384 .deB385 .br386 .if\\n(nlu-\\n()nu .sp \\*(]Bu387 .nr)n \\n(nlu388 .in\\n()bu+\\n()ku389 .ll\\n()qu390 .lt\\n()qu391 .nr)l 0392 .nr]x \\n()bu393 .if!\\n(.$ .)I \\*()B \\n()Q394 .if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0395 .if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()Q396 .if\\n(.$-1 .if !\\$2-99 .nr )l 1397 .if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"398 ..399 .deC400 .br401 .if\\n(nlu-\\n()nu .sp \\*(]Cu402 .nr)n \\n(nlu403 .in\\n()cu+\\n()ku404 .ll\\n()ru405 .lt\\n()ru406 .nr)l 0407 .nr]x \\n()cu-\\n()bu408 .if!\\n(.$ .)I \\*()C \\n()R409 .if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0410 .if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()R411 .if\\n(.$-1 .if !\\$2-99 .nr )l 1412 .if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"413 ..414 .deD415 .br416 .if\\n(nlu-\\n()nu .sp \\*(]Du417 .nr)n \\n(nlu418 .in\\n()du+\\n()ku419 .ll\\n()su420 .lt\\n()su421 .nr)l 0422 .nr]x \\n()du-\\n()cu423 .if!\\n(.$ .)I \\*()D \\n()S424 .if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0425 .if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()S426 .if\\n(.$-1 .if !\\$2-99 .nr )l 1427 .if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"428 ..429 .de)I430 .nr]a \\n(.s431 .ps432 .nr]b \\n(.s433 .ps434 .if!\\n()l .if !\\$2 .nr )A \\n(.s435 .if!\\n()l .if \\$2 .nr )A \\n(.s*\\$2/\\n(]X436 .if\\n()l .nr )A \\n(.s+\\$2437 .ps\\n()A438 .ti-\w\\$1\ u439 \&\\$1\ \&\c440 .ps\\n(]b441 .ps\\n(]a442 ..443 .deU444 .if!\w\\$1u-.46m \&\\$1\v'.55m'\l'|0\(hy'\v'-.55m'\\$2445 .if\w\\$1u-.46m \&\\$1\v'.09m'\l'|0\(ul'\v'-.09m'\\$2446 ..447 .deDV448 .if\w\\$1 .ds ]A \\$1449 .if\w\\$2 .ds ]B \\$2450 .if\w\\$3 .ds ]C \\$3451 .if\w\\$4 .ds ]D \\$4452 ..453 .deDF454 .if\\n(.$-1 .ds )f "\\$2455 .if\\n(.$-1 .fp \\$1 \\$2456 .if\\n(.$-1 .ft \\$2457 .if\\n(.$-3 .fp \\$3 \\$4458 .if\\n(.$-5 .fp \\$5 \\$6459 .if\\n(.$-7 .fp \\$7 \\$8460 ..461 .deSP462 .sp\\$1463 ..464 .deBR465 .br466 ..467 .deTA468 'ta\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9469 ..470 .deCE471 .ce\\$1472 ..473 .deTI474 .ti\\$1475 ..476 .deFI477 .fi478 ..479 .deNF480 .nf481 ..482 .deAD483 'ad\\$1484 ..485 .deNA486 'na487 ..488 .deHY489 'hy\\$1490 ..491 .deNH492 'nh493 ..494 .deSO495 'so\\$1496 ..497 .deNX498 'nx\\$1499 ..500 .ds)F FOIL501 .if\n(.A .ds )F FOIL502 .ds)N Bell\ Labs503 .ds)Y \n(mo/\n(dy/\n(yr504 .ds)B \(bu\ \|505 .ds)C \(em\ \|506 .ds)D \(bu\ \|507 .ds]A .5v508 .ds]B .5v509 .ds]C .5v510 .ds]D 0v511 .nr)G 11i-7.5p512 .nr)Q 5513 .nr)R 5514 .nr)S 3515 .nr]X 6516 .nr)i 1517 .nr)w 0518 .em)z519 .DF 1 H