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