tmac/tmac.skeep

   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 .br
  28 .nr KN \\n(.u
  29 .if !\\n(IK .FQ
  30 .nr IK +1
  31 ..
  32 .       \"FQ real floating keep processor
  33 .de FQ
  34 .nr KI \\n(.i
  35 .ev 2
  36 .br
  37 .in \\n(KIu
  38 .ps \\n(PS
  39 .if \\n(VS>40 .vs \\n(VSu
  40 .if \\n(VS<=39 .vs \\n(VSp
  41 .ll \\n(LLu
  42 .lt \\n(LTu
  43 .if \\n(NX>1 .ll \\n(CWu
  44 .if \\n(NX>1 .lt \\n(CWu
  45 .di KK
  46 .nr TB 1
  47 .nr KV 0
  48 ..
  49 .       \"KP - keep full page
  50 .de KP
  51 .nr KV 1
  52 ..
  53 .       \"KE release - everything between keep and release is together
  54 .de KE
  55 .if \\n(IK .if !\\n(IK-1 .if \\n(IF=0 .RQ
  56 .if \\n(IK .nr IK -1
  57 ..
  58 .       \"RQ real release
  59 .de RQ
  60 .br
  61 .nr KI \\n(.i
  62 .di
  63 .nr NF 0
  64 .if \\n(dn-\\n(.t .nr NF 1
  65 .if \\n(TC .nr NF 1
  66 .if \\n(KV .nr NF 1 \" if KV on full page needed, doesn't fit
  67 .if \\n(NF .if !\\n(TB .sp 11i
  68 .if !\\n(NF .if \\n(TB .nr TB 0
  69 .nf
  70 .rs
  71 .nr TC 5
  72 .in 0
  73 .ls 1
  74 .if \\n(TB=0 .ev
  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 .da KJ
  82 .if \\n(TB \!.KD \\n(dn \\n(KV
  83 .if \\n(TB .KK
  84 .if \\n(TB .di
  85 .nr TC \\n(TB
  86 .if \\n(KN .fi
  87 .in
  88 .ev
  89 .in \\n(KIu
  90 ..