tmac.skeep (1380B)
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 ..