home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / me / float.me < prev    next >
Text File  |  1980-02-17  |  674b  |  57 lines
  1. .nr _0 \n(c.
  2. .de (z            \" *** begin floating keep
  3. .@D 4 \\$1 \\$2
  4. .@(
  5. .nr ?T 0
  6. ..
  7. .de )z            \" *** end floating keep
  8. .sp \\n(zsu
  9. .@)
  10. .rr _0
  11. .if !\\n(?b \
  12. .    nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu
  13. .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a) \
  14. \{\
  15. .    nr ?a 1
  16. .    ds |x |t
  17. .\}
  18. .el \
  19. \{\
  20. .    nr ?b 1
  21. .    nr _b +\\n(dnu
  22. .    ch @f -\\n(_bu
  23. .    ds |x |b
  24. .\}
  25. .da \\*(|x            \" copy to save macro
  26. .nf
  27. .ls 1
  28. .nr ?k 1
  29. \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
  30. .eo
  31. .cc @
  32. @|k                \" and the body
  33. @cc
  34. .ec
  35. .nr ?k 0
  36. .rm |k                \" remove the temp macro
  37. .da
  38. .in 0
  39. .ls 1
  40. .xl \\n($lu
  41. .ev
  42. ..
  43. .de @k            \" --- output floating keep
  44. .ev 1
  45. .nf
  46. .ls 1
  47. .in 0
  48. .sp \\n(zsu
  49. .\\$1
  50. .ec
  51. .br
  52. .rm \\$1
  53. .ev
  54. .nr ?T 0
  55. ..
  56. .nr c. \n(_0
  57.