blob: a896f9ece76628683b3280a690cc81469f584952 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
.eo
.de Sr
. mk c
. if (\nb > \nc) .sp (\nbu - \ncu - 1v)
. if (\nb > 0) .if (\nc > \nb) .sp 0.5v
. if !(\nz = 1) .if (\np > 0) .if (\n% > \np) .sp -(\nbu - \ncu - 1.5v)
. nf
. ft C
. ps -1p
. vs -1p
. ta 8n +8n +8n +8n +8n
. in 2.2i
. mk a
. nr p \n%
..
.de Se
. mk b
. rt (\nau - 7p)
. nr z 0
. if (\n% > \np) \{
. rt \n(HMu
. nr z 1
. \}
. nr LL 2i
. LP
..
.ec
|