bs 556 B

123456789101112131415161718192021222324
  1. .pn 267
  2. .nr %# 267
  3. .ds Tl "Acme: A User Interface for Programmers
  4. .ds Au "USER INTERFACES
  5. .de PT
  6. .nr PN \\n(%#
  7. .X "PT \\n(%#
  8. .sp \\n(HMu/2u
  9. .nr Ps \\n(PS-1
  10. .if \\n(OL .lt \\n(OLu \" why isn't this reset???
  11. .if \\n(BT>0 .if e .tl @\\n(PN \s\\n(Ps\\*(Au\s0@@@
  12. .if \\n(BT>0 .if o .tl @@@\f2\\*(Tl\\f1 \\n(PN@
  13. .if \\n(BT=0 .tl '\0''' \" put out something or spacing is curdled
  14. .X "END PT \\n(%#
  15. ..
  16. . \" BT - bottom title
  17. .de BT
  18. .X "BT \\n(%#
  19. .sp |\\n(FMu/2u+\\n(FOu-1v
  20. .if \\n(%#%2 \\*(%O
  21. .if !\\n(%#%2 \\*(%E
  22. .nr BT \\n(BT+1
  23. .X "END BT \\n(%#
  24. ..