1 .nr _0 \n(c.
2 .\"	@(#)sh.me	2.1	8/18/80
3 .\" This version has had comments stripped; an unstripped version is available.
4 .de sh
5 .if (\\n(si>0)&(\\n(si<1n) \
6 .	nr si \\n(sin
7 .ce 0
8 .@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
9 .if !"\\$2"_" \
10 \{\
11 .	ds |x \&\\$2
12 .	$p "\\*(|x" "\\*($n" \\n($0
13 .	$0 "\\*(|x" "\\*($n" \\n($0
14 .	rm |x
15 .\}
16 .nr $p 0 1
17 ..
18 .de @d
19 .if !""\\$1" \
20 .	nr $0 \\$1
21 .if \\n($0&(\\n(.$>1) \
22 .	nr $\\n($0 \\$2
23 .ds $n \&\"
24 .ie \\n($0>=1 \
25 \{\
26 .	if \\n($1=0 \
27 .		nr $1 1
28 .	if (\\n(.$>=3) .if !"\\$3"-" \
29 .		nr $1 \\$3
30 .	as $n \\n($1
31 .\}
32 .el \
33 .	nr $1 0
34 .ie \\n($0>=2 \
35 \{\
36 .	if \\n($2=0 \
37 .		nr $2 1
38 .	if (\\n(.$>=4) .if !"\\$4"-" \
39 .		nr $2 \\$4
40 .	as $n .\\n($2
41 .\}
42 .el \
43 .	nr $2 0
44 .ie \\n($0>=3 \
45 \{\
46 .	if \\n($3=0 \
47 .		nr $3 1
48 .	if (\\n(.$>=5) .if !"\\$5"-" \
49 .		nr $3 \\$5
50 .	as $n .\\n($3
51 .\}
52 .el \
53 .	nr $3 0
54 .ie \\n($0>=4 \
55 \{\
56 .	if \\n($4=0 \
57 .		nr $4 1
58 .	if (\\n(.$>=6) .if !"\\$6"-" \
59 .		nr $4 \\$6
60 .	as $n .\\n($4
61 .\}
62 .el \
63 .	nr $4 0
64 .ie \\n($0>=5 \
65 \{\
66 .	if \\n($5=0 \
67 .		nr $5 1
68 .	if (\\n(.$>=7) .if !"\\$7"-" \
69 .		nr $5 \\$7
70 .	as $n .\\n($5
71 .\}
72 .el \
73 .	nr $5 0
74 .ie \\n($0>=6 \
75 \{\
76 .	if \\n($6=0 \
77 .		nr $6 1
78 .	if (\\n(.$>=8) .if !"\\$8"-" \
79 .		nr $6 \\$8
80 .	as $n .\\n($6
81 .\}
82 .el \
83 .	nr $6 0
84 ..
85 .de sx
86 .ce 0
87 .ul 0
88 .nr _0 \\n($0-1
89 .if \\n(.$ .nr _0 +1
90 .if \\n(.$ .nr _0 \\$1
91 .@d \\n(_0
92 .rr _0
93 .$p "" "" \\n($0
94 .nr $p 0 1
95 ..
96 .de uh
97 .$p "\\$1"
98 .$0 "\\$1"
99 ..
100 .if \n(sf<=0 \
101 .	nr sf 8
102 .if \n(sp<=0 \
103 .	nr sp 10
104 .if \n(ss<=0 \
105 .	nr ss 12p
106 .if \n(si<=0 \
107 .	nr si 0
108 .nr c. \n(_0