1 .nr _0 \n(c.
2 .\"	@(#)float.me	2.1	8/18/80
3 .\" This version has had comments stripped; an unstripped version is available.
4 .de (z
5 .@D 4 \\$1 \\$2
6 .@(
7 .nr ?T 0
8 ..
9 .de )z
10 .sp \\n(zsu
11 .@)
12 .rr _0
13 .if !\\n(?b \
14 .	nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu
15 .nr dl -\n(.H
16 .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \
17 \{\
18 .	nr ?a 1
19 .	if (\\n(dl>\\n($l)&(\\n($m>1) \
20 .		nr ?w 1
21 .	ds |x |t
22 .\}
23 .el \
24 \{\
25 .	nr ?b 1
26 .	if (\\n(dl>\\n($l)&(\\n($m>1) \
27 .		nr ?W 1
28 .	nr _b +\\n(dnu
29 .	ch @f -\\n(_bu
30 .	ds |x |b
31 .\}
32 .da \\*(|x
33 .nf
34 .ls 1
35 .nr ?k 1
36 \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
37 .eo
38 .cc @
39 @|k
40 @cc
41 .ec
42 .nr ?k 0
43 .rm |k
44 .da
45 .in 0
46 .ls 1
47 .xl \\n($lu
48 .ev
49 ..
50 .de @k
51 .ev 1
52 .nf
53 .ls 1
54 .in 0
55 .sp \\n(zsu
56 .\\$1
57 .ec
58 .br
59 .rm \\$1
60 .ev
61 .nr ?T 0
62 ..
63 .nr c. \n(_0