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