1. \"KS keep - for keep release features. As in IFM 2.de ]K 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.. 24. \"KF - floating keep 25.de ]J 26.nr KN \\n(.u 27.if !\\n(IK .FQ 28.nr IK +1 29.. 30. \"FQ real floating keep processor 31.de FQ 32.nr KI \\n(.i 33.ev 2 34.br 35.in \\n(KIu 36.ps \\n(PS 37.if \\n(VS>40 .vs \\n(VSu 38.if \\n(VS<=39 .vs \\n(VSp 39.ll \\n(LLu 40.lt \\n(LTu 41.if \\n(NX>1 .ll \\n(CWu 42.if \\n(NX>1 .lt \\n(CWu 43.di KK 44.nr TB 1 45.. 46. \"KE release - everything between keep and release is together 47.de KE 48.if \\n(IK .if !\\n(IK-1 .if \\n(IF=0 .RQ 49.if \\n(IK .nr IK -1 50.. 51. \"RQ real release 52.de RQ 53.br 54.di 55.nr NF 0 56.if \\n(dn-\\n(.t .nr NF 1 57.if \\n(TC .nr NF 1 58.if \\n(NF .if !\\n(TB .sp 200 59.if !\\n(NF .if \\n(TB .nr TB 0 60.nf 61.rs 62.nr TC 5 63.in 0 64.ls 1 65.if \\n(TB=0 .ev 66.if \\n(TB=0 .br 67.if \\n(TB=0 .ev 2 68.if \\n(TB=0 .KK 69.ls 70.ce 0 71.if \\n(TB=0 .rm KK 72.if \\n(TB .da KJ 73.if \\n(TB \!.KD \\n(dn 74.if \\n(TB .KK 75.if \\n(TB .di 76.nr TC \\n(TB 77.if \\n(KN .fi 78.in 79.ev 80.. 81