xref: /csrg-svn/old/ms/tmac.skeep (revision 42837)
1*42547Skarels.	\"KS keep - for keep release features. As in IFM
2*42547Skarels.de ]K
3*42547Skarels.nr KN \\n(.u
4*42547Skarels.if \\n(IK=0 .if \\n(IF=0 .KQ
5*42547Skarels.nr IK +1
6*42547Skarels..
7*42547Skarels.	\"KQ - real keep processor
8*42547Skarels.de KQ
9*42547Skarels.br
10*42547Skarels.nr KI \\n(.i
11*42547Skarels.ev 2
12*42547Skarels.br
13*42547Skarels.in \\n(KIu
14*42547Skarels.ps \\n(PS
15*42547Skarels.if \\n(VS>40 .vs \\n(VSu
16*42547Skarels.if \\n(VS<=39 .vs \\n(VSp
17*42547Skarels.ll \\n(LLu
18*42547Skarels.lt \\n(LTu
19*42547Skarels.if \\n(NX>1 .ll \\n(CWu
20*42547Skarels.if \\n(NX>1 .lt \\n(CWu
21*42547Skarels.di KK
22*42547Skarels.nr TB 0
23*42547Skarels..
24*42547Skarels.	\"KF - floating keep
25*42547Skarels.de ]J
26*42547Skarels.nr KN \\n(.u
27*42547Skarels.if !\\n(IK .FQ
28*42547Skarels.nr IK +1
29*42547Skarels..
30*42547Skarels.	\"FQ real floating keep processor
31*42547Skarels.de FQ
32*42547Skarels.nr KI \\n(.i
33*42547Skarels.ev 2
34*42547Skarels.br
35*42547Skarels.in \\n(KIu
36*42547Skarels.ps \\n(PS
37*42547Skarels.if \\n(VS>40 .vs \\n(VSu
38*42547Skarels.if \\n(VS<=39 .vs \\n(VSp
39*42547Skarels.ll \\n(LLu
40*42547Skarels.lt \\n(LTu
41*42547Skarels.if \\n(NX>1 .ll \\n(CWu
42*42547Skarels.if \\n(NX>1 .lt \\n(CWu
43*42547Skarels.di KK
44*42547Skarels.nr TB 1
45*42547Skarels..
46*42547Skarels.	\"KE release - everything between keep and release is together
47*42547Skarels.de KE
48*42547Skarels.if \\n(IK .if !\\n(IK-1 .if \\n(IF=0 .RQ
49*42547Skarels.if \\n(IK .nr IK -1
50*42547Skarels..
51*42547Skarels.	\"RQ real release
52*42547Skarels.de RQ
53*42547Skarels.br
54*42547Skarels.di
55*42547Skarels.nr NF 0
56*42547Skarels.if \\n(dn-\\n(.t .nr NF 1
57*42547Skarels.if \\n(TC .nr NF 1
58*42547Skarels.if \\n(NF .if !\\n(TB .sp 200
59*42547Skarels.if !\\n(NF .if \\n(TB .nr TB 0
60*42547Skarels.nf
61*42547Skarels.rs
62*42547Skarels.nr TC 5
63*42547Skarels.in 0
64*42547Skarels.ls 1
65*42547Skarels.if \\n(TB=0 .ev
66*42547Skarels.if \\n(TB=0 .br
67*42547Skarels.if \\n(TB=0 .ev 2
68*42547Skarels.if \\n(TB=0 .KK
69*42547Skarels.ls
70*42547Skarels.ce 0
71*42547Skarels.if \\n(TB=0 .rm KK
72*42547Skarels.if \\n(TB .da KJ
73*42547Skarels.if \\n(TB \!.KD \\n(dn
74*42547Skarels.if \\n(TB .KK
75*42547Skarels.if \\n(TB .di
76*42547Skarels.nr TC \\n(TB
77*42547Skarels.if \\n(KN .fi
78*42547Skarels.in
79*42547Skarels.ev
80*42547Skarels..
81