|
DataMuseum.dkPresents historical artifacts from the history of: RC9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: @ T s
Length: 1532 (0x5fc)
Types: TextFile
Notes: @(#)sh.me 13.1 (Tolerant) 91/02/02
Names: »sh.me«
└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
└─⟦bbf173f5c⟧ »0004«
└─⟦this⟧ »./usr/lib/me/sh.me«
.\" @(#)sh.me 13.1 (Tolerant) 91/02/02
.\" @(-)sh.me 2.2 4/10/83
.\"
.\" This version has had comments stripped; an unstripped version is available.
.nr _0 \n(c.
.de sh
.if (\\n(si>0)&(\\n(si<1n) \
. nr si \\n(sin
.ce 0
.@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
.if !"\\$2"_" \
\{\
. ds |n \&\\$2
. $p "\\*(|n" "\\*($n" \\n($0
. $0 "\\*(|n" "\\*($n" \\n($0
. rm |n
.\}
.nr $p 0 1
..
.de @d
.if !""\\$1" \
. nr $0 \\$1
.if \\n($0&(\\n(.$>1) \
. nr $\\n($0 \\$2
.ds $n \&\"
.ie \\n($0>=1 \
\{\
. if \\n($1=0 \
. nr $1 1
. if (\\n(.$>=3) .if !"\\$3"-" \
. nr $1 \\$3
. as $n \\n($1
.\}
.el \
. nr $1 0
.ie \\n($0>=2 \
\{\
. if \\n($2=0 \
. nr $2 1
. if (\\n(.$>=4) .if !"\\$4"-" \
. nr $2 \\$4
. as $n .\\n($2
.\}
.el \
. nr $2 0
.ie \\n($0>=3 \
\{\
. if \\n($3=0 \
. nr $3 1
. if (\\n(.$>=5) .if !"\\$5"-" \
. nr $3 \\$5
. as $n .\\n($3
.\}
.el \
. nr $3 0
.ie \\n($0>=4 \
\{\
. if \\n($4=0 \
. nr $4 1
. if (\\n(.$>=6) .if !"\\$6"-" \
. nr $4 \\$6
. as $n .\\n($4
.\}
.el \
. nr $4 0
.ie \\n($0>=5 \
\{\
. if \\n($5=0 \
. nr $5 1
. if (\\n(.$>=7) .if !"\\$7"-" \
. nr $5 \\$7
. as $n .\\n($5
.\}
.el \
. nr $5 0
.ie \\n($0>=6 \
\{\
. if \\n($6=0 \
. nr $6 1
. if (\\n(.$>=8) .if !"\\$8"-" \
. nr $6 \\$8
. as $n .\\n($6
.\}
.el \
. nr $6 0
..
.de sx
.ce 0
.ul 0
.nr _0 \\n($0-1
.if \\n(.$ .nr _0 +1
.if \\n(.$ .nr _0 \\$1
.@d \\n(_0
.rr _0
.$p "" "" \\n($0
.nr $p 0 1
..
.de uh
.$p "\\$1"
.$0 "\\$1"
..
.if \n(sf<=0 \
. nr sf 8
.if \n(sp<=0 \
. nr sp 10
.if \n(ss<=0 \
. nr ss 12p
.if \n(si<=0 \
. nr si 0
.nr c. \n(_0