1 .	\"KS keep - for keep release features. As in IFM
2 .de KS
3 .nr KN \\n(.u
4 .if \\n(IK=0 .if \\n(IF=0 .KQ
5 .nr IK +1
6 ..
7 .	\"KQ - real keep processor
8 .de KQ
9 .br
10 .nr KI \\n(.i
11 .ev 2
12 .br
13 .in \\n(KIu
14 .ps \\n(PS
15 .if \\n(VS>40 .vs \\n(VSu
16 .if \\n(VS<=39 .vs \\n(VSp
17 .ll \\n(LLu
18 .lt \\n(LTu
19 .if \\n(NX>1 .ll \\n(CWu
20 .if \\n(NX>1 .lt \\n(CWu
21 .di KK
22 .nr TB 0
23 .nr KV 0
24 ..
25 .	\"KF - floating keep
26 .de KF
27 .nr KN \\n(.u
28 .if !\\n(IK .FQ
29 .nr IK +1
30 ..
31 .	\"FQ real floating keep processor
32 .de FQ
33 .nr KI \\n(.i
34 .ev 2
35 .br
36 .in \\n(KIu
37 .ps \\n(PS
38 .if \\n(VS>40 .vs \\n(VSu
39 .if \\n(VS<=39 .vs \\n(VSp
40 .ll \\n(LLu
41 .lt \\n(LTu
42 .if \\n(NX>1 .ll \\n(CWu
43 .if \\n(NX>1 .lt \\n(CWu
44 .di KK
45 .nr TB 1
46 .nr KV 0
47 ..
48 .	\"KP - keep full page
49 .de KP
50 .nr KV 1
51 ..
52 .	\"KE release - everything between keep and release is together
53 .de KE
54 .if \\n(IK .if !\\n(IK-1 .if \\n(IF=0 .RQ
55 .if \\n(IK .nr IK -1
56 ..
57 .	\"RQ real release
58 .de RQ
59 .br
60 .nr KI \\n(.i
61 .di
62 .nr NF 0
63 .if \\n(dn-\\n(.t .nr NF 1
64 .if \\n(TC .nr NF 1
65 .if \\n(KV .nr NF 1 \" if KV on full page needed, doesn't fit
66 .if \\n(NF .if !\\n(TB .sp 11i
67 .if !\\n(NF .if \\n(TB .nr TB 0
68 .nf
69 .rs
70 .nr TC 5
71 .in 0
72 .ls 1
73 .if \\n(TB=0 .ev
74 .if \\n(TB=0 .KX
75 .if \\n(TB=0 .br
76 .if \\n(TB=0 .ev 2
77 .if \\n(TB=0 .KK
78 .ls
79 .ce 0
80 .if \\n(TB=0 .rm KK
81 .if \\n(TB=0 .KY
82 .if \\n(TB .da KJ
83 .if \\n(TB \!.KD \\n(dn \\n(KV
84 .if \\n(TB .KK
85 .if \\n(TB .di
86 .nr TC \\n(TB
87 .if \\n(KN .fi
88 .in
89 .ev
90 .in \\n(KIu
91 ..