home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2 / Openstep-4.2-Intel-User.iso / usr / lib / tmac / tmac.skeep < prev    next >
Text File  |  1982-08-05  |  1KB  |  81 lines
  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.