[dragonfly.git] / contrib / groff / contrib / mom / om.tmac

.\" om.tmac
.ig
Mom -- a typesetting/document-processing macro set for groff.

Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
  Free Software Foundation, Inc.
     Written by Peter Schaffter (pschaffter@magma.ca)

This file is part of groff.

groff is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation, either version 3 of the License, or
(at your option) any later version.

groff is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.

You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.

Version 1.5-c
-------------
Antoine de St-Exupéry asserted that elegance in engineering is
achieved not when there is nothing left to add, but when there is
nothing left to take away.

By those standards, mom is a Rube Goldberg contraption.  She was
created over the years while groff, and my understanding of it,
changed and evolved.  However, I'm a firm believer in "if it
ain't broke, don't fix it," so I'm leaving any major clean-up
of redundancies and whatnot for a rainy day.

Inasmuch as possible, macros that turn a feature on or off follow
a similar style.  Invoking the macro without an argument turns
the feature on.  Invoking it with any other argument turns it off.
Use of the argument OFF is recommended, but not required; users
may find other conventions preferable (e.g. NO, X, END, QUIT, etc.).

"<anything>" in the description of arguments that can be passed
to a macro means that any argument turns the feature off.
..
.\" %beginstrip%
\#
\# ====================================================================
\#
\# Check which version of groff is being run
.if (\n[.x]\n[.y] < 118) \
.   ab [mom]: You need GNU troff version 1.18 or higher to run this version of mom.
\# Check that GNU troff is being run
.if !\n[.g]=1 \
.   ab [mom]: The mom macros require that you be running GNU troff.
.if \n(.C \
.   ab [mom]: The groff mom macros do not work in compatibility mode.
\# Add supplementary styles
.sty \n[.fp] L       \"  Light Roman
.sty \n[.fp] LI      \"  Light Italic
.sty \n[.fp] LCD     \"  Light Condensed Roman
.sty \n[.fp] LCDI    \"  Light Condensed Italic
.sty \n[.fp] LEX     \"  Light Extended Roman
.sty \n[.fp] LEXI    \"  Light Extended Italic
.sty \n[.fp] CD      \"  Medium/Book Condensed Roman
.sty \n[.fp] CDI     \"  Medium/Book Condensed Italic
.sty \n[.fp] EX      \"  Medium/Book Extended Roman
.sty \n[.fp] EXI     \"  Medium/Book Extended Italic
.sty \n[.fp] DB      \"  DemiBold Roman
.sty \n[.fp] DBI     \"  DemiBold Italic
.sty \n[.fp] BCD     \"  Bold Condensed Roman
.sty \n[.fp] BCDI    \"  Bold Condensed Italic
.sty \n[.fp] BEX     \"  Bold Extended Roman
.sty \n[.fp] BEXI    \"  Bold Extended Italic
.sty \n[.fp] HV      \"  Heavy Roman
.sty \n[.fp] HVI     \"  Heavy Italic
.sty \n[.fp] HVCD    \"  Heavy Condensed Roman
.sty \n[.fp] HVCDI   \"  Heavy Condensed Italic
.sty \n[.fp] HVEX    \"  Heavy Extended Roman
.sty \n[.fp] HVEXI   \"  Heavy Extended Italic
.sty \n[.fp] BL      \"  Black Roman
.sty \n[.fp] BLI     \"  Black Italic
.sty \n[.fp] BLCD    \"  Black Condensed Roman
.sty \n[.fp] BLCDI   \"  Black Condensed Italic
.sty \n[.fp] BLEX    \"  Black Extended Roman
.sty \n[.fp] BLEXI   \"  Black Extended Italic
.sty \n[.fp] UBL     \"  Ultra-Black Roman
.sty \n[.fp] UBLI    \"  Ultra-Black Italic
\#
\# Instruct grops to use square linecaps and joins.
\# This instruction is also executed in DO_B_MARGIN, NEWPAGE, and HEADER
\#
\X'ps: exec 0 setlinejoin'\X'ps: exec 0 setlinecap'
\#
\# ====================================================================
\#
\# TYPESETTING MACROS, STRINGS, AND ALIASES
\# ========================================
\#
\# +++ALIASES+++
\#
\# Alias .als as ALIAS, and .aln (number registers) as ALIASN
\#
.als      ALIAS           als
.als      ALIASN          aln
\#
\#
\# ALIASES FOR GROFF REQUESTS
\# --------------------------
\#
.ALIAS    MAC             de
.ALIAS    BR              br
.ALIAS    SP              sp
.ALIAS    PAGELENGTH      pl
.ALIAS    SPREAD          brp
.ALIAS    ESC_CHAR        ec
.ALIAS    STRING          ds
.ALIAS    INCLUDE         so
\#
\# ALIASES FOR NUMBER REGISTERS
\# ----------------------------
\#
.ALIASN  #PT_SIZE        .ps    \"fractional point size in units
.ALIASN  #DIVER_DEPTH     dn    \"diversion depth
.ALIASN  #DIVER_WIDTH     dl    \"diversion width
.ALIASN  #TRAP_DISTANCE  .t     \"distance to next trap
.ALIASN  #LEAD           .v     \"line space (.vs, not .ls)
.ALIASN  #PAGE_LENGTH    .p     \"page length
.ALIASN  #NUM_ARGS       .$     \"number of arguments passed to a macro
.ALIASN  #INDENT         .i     \"value of current indent
\#
\# ====================================================================
\#
\# MISCELLANEOUS
\# =============
.nr #L_MARGIN \n(.o  \" Tabs, etc require #L_MARGIN
.cflags 4 /\(en      \" So slash and en-dashes get broken
.warn 8192
\#
\# About the warn level
\# --------------------
\# 
\# There's a lot of testing for the presence of number registers and
\# strings in this macro file.  Many of the registers and strings
\# pop into and out of existence on the fly.  For convenience, I
\# often use
\# 
\#     .if \\n[whatever]    and    .if !\\n[whatever]
\# 
\# to test "if the register exists and is (not) empty."  Groff,
\# encountering such tests when called with the -ww options, emits
\# 
\#     warning: number register whatever not defined.
\# 
\# Groff also warns about strings similarly tested for.
\# 
\# The warn level, above, is high in order to shut off those
\# warnings.  If you're futzing in this file and need more verbose
\# warnings, either comment out ".warn 8192" or set the warnlevel
\# to the one you need (but be ready for lots of what I've just
\# described).
\#
\# ====================================================================
\#
\# +++PAGE LAYOUT+++
\#
\# Macros that control the physical layout of the page: paper size
\# and margins.
\#
\# PAGE WIDTH
\# ----------
\# *Argument:
\#   <width of printer sheet>
\# *Function:
\#   Stores user supplied page width in register #PAGE_WIDTH.
\# *Notes:
\#   #PAGE_WIDTH is used to establish the default LL (and right margin).
\#   Requires unit of measure.
\#
.MAC PAGEWIDTH END
.    br
.    nr #PAGE_WIDTH \\$1
.    if !r#L_MARGIN \{ .L_MARGIN \\n(.o \}
.    if !r#R_MARGIN \{ .R_MARGIN 1i \}
.END
\#
\#
\# L_MARGIN
\# --------
\# *Argument:
\#   <offset from page left>
\# *Function:
\#   Stores user supplied page offset in register #L_MARGIN.
\#   Sets .po to user supplied offset.
\# *Notes:
\#   Requires unit of measure.
\#
.MAC L_MARGIN END
.    br
.    nr #L_MARGIN (\\$1)
.    po \\n[#L_MARGIN]u
.END
\#
\#
\# R_MARGIN
\# --------
\# *Argument:
\#   <width of right margin>
\# *Function:
\#   Stores user supplied right margin in register #R_MARGIN.
\# *Notes:
\#   This is a pseudo-margin.  Right margin is actually a function of
\#   line length.  The macro calculates line length from the page offset
\#   and the value plugged into #R_MARGIN.
\#
\#   N.B. -- PAGEWIDTH and L_MARGIN have to be defined before R_MARGIN.
\#
\#   Requires unit of measure.
\#
.MAC R_MARGIN END
.    br
.    nr #R_MARGIN (\\$1)
.    ll \\n[#PAGE_WIDTH]u-\\n[#L_MARGIN]u-\\n[#R_MARGIN]u
.    ta \\n(.lu
.    nr #L_LENGTH \\n(.l
.END
\#
\#
\# T_MARGIN
\# --------
\# *Argument:
\#   <distance to advance from top of page>
\# *Function:
\#   Stores the user supplied top margin in register #T_MARGIN.
\#   Advances user supplied depth from the top of the page.
\# *Notes:
\#   Requires unit of measure.
\#
.MAC T_MARGIN END
.    nr #T_MARGIN (\\$1)
.    nr #TOP 1
.    if !\\n[#DOCS] \{\
.       sp |\\n[#T_MARGIN]u-1v
.    \}
.    wh 0i DO_T_MARGIN
.END
\#
\#
\# B_MARGIN
\# --------
\# *Argument:
\#   <space to leave at the bottom of the page>
\# *Function:
\#   Stores the user supplied bottom margin in register #B_MARGIN.
\# *Notes:
\#   Requires unit of measure.
\#
.MAC B_MARGIN END
.    br
.    nr #B_MARGIN (\\$1)
.    nr #ORIGINAL_B_MARGIN \\n[#B_MARGIN]
.    nr #B_MARGIN_SET 1
.    wh -\\n[#B_MARGIN]u DO_B_MARGIN
.END
\#
\#
\# PAGE
\# ----
\# *Arguments:
\#   <pagewidth>  [pagelength [leftmargin [rightmargin [topmargin [bottommargin]]]]]
\# *Function:
\#   Page set-up.  Collects arguments and passes them to the appropriate
\#   macros.
\# *Notes:
\#   All arguments after pagewidth are optional, but must appear
\#   in the order given above.  (User can fill in as much or as
\#   little as desired.)
\#
\#   All arguments require a unit of measure.
\#
.MAC PAGE END
.    br
.    PAGEWIDTH   \\$1
.    PAGELENGTH  \\$2
.    ie '\\$3''  \{ .L_MARGIN \\n(.o  \}
.    el          \{ .L_MARGIN \\$3    \}
.    ie '\\$4''  \{ .R_MARGIN 1i      \}
.    el          \{ .R_MARGIN \\$4    \}
.    if !'\\$5'' \{ .T_MARGIN \\$5    \}
.    if !'\\$6'' \{ .B_MARGIN \\$6    \}
.END
\#
\# =====================================================================
\#
\# +++PAGE CONTROL+++
\#
\# Generic macros for breaking pages.
\#
\# DO_T_MARGIN
\# -----------
\# *Argument:
\#   <none>
\# *Function:
\#   Plants the top margin at the top of each page.
\# *Notes:
\#   The trap is set in .T_MARGIN or .PAGE
\#
.MAC DO_T_MARGIN END
.    ev T_MARGIN
.    nr #TOP 1
.    sp |\\n[#T_MARGIN]u-1v
.    ev
.    sp -\\n[#T_MARGIN_LEAD_ADJ]u
.END
\#
\#
\# DO_B_MARGIN
\# -----------
\# *Argument:
\#   <none>
\# *Function:
\#   Plants the bottom margin at the bottom of each page.
\# *Notes:
\#   The trap is set in .B_MARGIN or .PAGE.
\#
.MAC DO_B_MARGIN END
.    nr #T_MARGIN_LEAD_ADJ \\n[#LEAD]-12000
.    ev B_MARGIN
.    bp
.    nop \X'ps: exec 0 setlinejoin'\X'ps: exec 0 setlinecap'
.    ev
.END
\#
\#
\# NEWPAGE
\# -------
\# *Argument:
\#   <none>
\# *Function:
\#   Breaks to a new page.
\# *Notes:
\#   If a B_MARGIN has been set, processes that, otherwise, just
\#   breaks to a new page.
\#
.MAC NEWPAGE END
.    ie \\n[#NO_BREAK] \{\
'       br
.       rr #NO_BREAK
.    \}
.    el \{\
.       br
.    \}
.    nr #NEWPAGE 1
.    ie \\n[#B_MARGIN_SET]=1 \{\
.       ie !\\n[#DOCS]=1 \{\
.          ev NP
.          bp
.          nop \X'ps: exec 0 setlinejoin'\X'ps: exec 0 setlinecap'
.          ev
.       \}
.       el \{\
.          if \\n[#COLUMNS]=1 \{ .nr #COL_NUM \\n[#NUM_COLS] \}
.          ie !\\n[#FN_DEPTH] \{\
.             ch FN_OVERFLOW_TRAP
.             DO_B_MARGIN
.             wh -(\\n[#FN_OVERFLOW_TRAP_POS]u) FN_OVERFLOW_TRAP
.          \}
.          el \{\
.             DO_B_MARGIN
.          \}
.       \}
.    \}
.    el \{\
.       DO_B_MARGIN
.    \}
.END
\#
\# =====================================================================
\#
\# +++GENERAL STYLE MACROS+++
\#
\# Macros that are likely to appear together to define general
\# type style: line length, family, font, point size, and line
\# spacing.
\#
\# LINE LENGTH
\# -----------
\# *Argument:
\#   <line length>
\# *Function:
\#   Stores user supplied line length in register #L_LENGTH.
\#   Sets .ll to #L_LENGTHu
\# *Notes:
\#   Requires unit of measure.
\#
.MAC LL END
.    nr #USER_SET_L_LENGTH 1
.    ll \\$1
.    nr #L_LENGTH \\n(.l
.    ta \\n(.lu
.END
\#
\#
\# +++FAMILY AND FONT+++
\#
\# FALLBACK FONT
\# -------------
\# *Argument:
\#   <fallback font> [ ABORT | WARN ] | ABORT | WARN
\# *Function:
\#   Sets register #ABORT_FT_ERRORS to 1, or defines a fallback font
\#   called "dummy" at font position 0.
\# *Notes:
\#   Calls to non-existent families cause mom to continue processing
\#   files using the fallback font until a valid family is entered.
\#
\#   Calls to non-existent fonts generate warnings.  If ABORT is passed
\#   to FALLBACK_FONT, mom stops processing files after the warning.
\#   Otherwise, she continues to process files using the fallback font
\#   after the warning is issued.  The default fallback font is CR; the
\#   default for font warnings is to abort.
\#
.MAC FALLBACK_FONT END
.    if \\n[#NUM_ARGS]=1 \{\
.       if '\\$1'ABORT' \{ .nr #ABORT_FT_ERRORS 1 \}
.       if '\\$1'WARN' \{\
.          if r#ABORT_FT_ERRORS \{ .nr #ABORT_FT_ERRORS 0 \}
.       \}
.       if !'\\$1'ABORT' \{\
.          if !'\\$1'WARN' \{\
.             fp 0 dummy \\$1
.          \}
.       \}
.    \}
.    if \\n[#NUM_ARGS]=2 \{\
.       fp 0 dummy \\$1
.       if '\\$2'ABORT' \{ .nr #ABORT_FT_ERRORS 1 \}
.       if '\\$2'WARN'  \{ .nr #ABORT_FT_ERRORS 0 \}
.    \}
.END
\#
.FALLBACK_FONT CR ABORT
\#
\# FAMILY
\# ------
\# *Argument:
\#   <font family>
\# *Function:
\#   Stores user supplied font family in string $FAMILY.  Sets .fam
\#   to $FAMILY.
\#
.MAC FAMILY END
.    ds $FAMILY \\$1
.    if \\n[#PRINT_STYLE]=1 \{\
.       fam C
.       return
.    \}
.    if \\n[#IGNORE] \{\
.       fam C
.       return
.    \}
.    if (\\n[.x]\\n[.y]\\n[.Y] >= 1192) \{\
.       ds $SAVED_STYLE \\n[.sty]
.    \}
.    ft 0
.    fam \\*[$FAMILY]
.    if (\\n[.x]\\n[.y]\\n[.Y] >= 1192) \{\
.       ft \\*[$SAVED_STYLE]
.       if !F\\n[.fn] \{\
.          ft 0
.       \}
.    \}
.    ie \\n[#PRE_COLLATE]=1 \{ . \}
.    el \{\
.       if \\n[#COLLATE]=1 \{\
.          if !r#START \{ .DOC_FAM \\*[$FAMILY] \}
.       \}
.    \}
.END
\#
\#
\# FONT
\# ----
\# *Argument:
\#   R | I | B | BI | <other style extension>
\# *Function:
\#  Stores user supplied font in $FONT and sets .ft to $FONT.
\#
.MAC FT END
.    ds $FONT \\$1
.    if \\n[#PRINT_STYLE]=1 \{\
.       ie '\\$1'I' \{\
.          if \\n[#UNDERLINE_ITALIC]=1 \{\
.             UNDERLINE
.             return
.          \}
.          if \\n[#ITALIC_MEANS_ITALIC]=1 \{\
.             ds $FONT \\$1
.             ft \\*[$FONT]
.             return
.          \}
.       \}
.       el \{ .UNDERLINE OFF \}
.       return
.    \}
.    ft 0
.    ft \\*[$FONT]
.    if (\\n[.x]\\n[.y]\\n[.Y] >= 1192) \{\
.       if '\\n[.sty]'' \{\
.          if !F\\n[.fn] \{\
.             if !S\\*[$FONT] \{\
.                tm1 "[mom]: Font style "\\*[$FONT]" at line \\n(.c has not been registered.
.                ie \\n[#ABORT_FT_ERRORS]=0 \{\
.                   tm1 "       Continuing to process using fallback font.
.                \}
.                el .ab Aborting.
.             \}
.             if \\n[.f]=0 \{\
.                tm1 "[mom]: Either font style "\\*[$FONT]" at line \\n(.c does not exist in family "\\n[.fam]",
.                tm1 "       or family "\\n[.fam]" has not been installed in font/devps.
.                ie \\n[#ABORT_FT_ERRORS]=0 \{\
.                   tm1 "       Continuing to process using fallback font.
.                \}
.                el .ab Aborting.
.             \}
.          \}
.       \}
.    \}
.END
\#
\#
\# POINT SIZE
\# ----------
\# *Arguments:
\#   <point size of type>
\# *Function:
\#   Sets point size to user supplied value in scaled points.
\#   If #AUTO_LEAD is on, sets .vs to #AUTOLEAD_VALUE+#PT_SIZE.
\# *Notes:
\#   Must NOT use a unit of measure.
\#
.MAC PT_SIZE END
.    if \\n[#PRINT_STYLE]=1 \{ .return \}
.    if \\n[#IGNORE]        \{ .return \}
.    nr #PT_SIZE_SET 1
.    ps \\$1
.    if \\n[#AUTO_LEAD] \{\
.       ie \\n[#AUTOLEAD_FACTOR] \{ .vs \\n[#PT_SIZE]u*\\n[#AUTOLEAD_VALUE]u/1000u \}
.       el \{ .vs \\n[#PT_SIZE]u+\\n[#AUTOLEAD_VALUE]u \}
.    \}
.    nr #PT_SIZE_IN_UNITS \\n[.ps]
.END
\#
\#
\# SIZE (inline)
\# -------------
\# *Arguments:
\#   <point size of type>
\# *Function:
\#   Sets point size to user supplied value in scaled points.
\#   Intended to be called inline with \*[SIZE <n><unit>]
\# *Notes:
\#   Can be used with a unit of measure or not.
\#
.MAC SIZE END
\c
.ps \\$1
.END
\#
\#
\# LEADING
\# -------
\# *Argument:
\#   <leading between lines of text>
\# *Function:
\#   Turns off #AUTOLEAD if it's on.
\#   Sets .vs to user supplied value.
\# *Notes:
\#   Does not require unit of measure.  LS automatically turns off AUTOLEAD.
\#
.MAC LS END
.    br
.    nr #OLD_LEAD \\n(.v
.    if \\n[#PRINT_STYLE]=1 \{ .return \}
.    if \\n[#IGNORE]        \{ .return \}
.    if \\n[#AUTO_LEAD] \{\
.       rr #AUTO_LEAD
.       rr #AUTOLEAD_FACTOR
.    \}
.    vs \\$1
.    if \\n[#TOP] \{\
.       nr #TOP_BASELINE_ADJ \\n(.v-\\n[#OLD_LEAD]
.       sp -\\n[#TOP_BASELINE_ADJ]u
.       rr #TOP
.       rr #TOP_BASELINE_ADJ
.    \}
.END
\#
.MAC RESET_LEAD END
'    vs
.    ch RESET_LEAD
.END
\#
\#
\# AUTOLEAD
\# --------
\# *Argument:
\#   <leading value to add to #PT_SIZE> [FACTOR]
\# *Function:
\#   Stores user supplied auto-lead value in register #AUTOLEAD_VALUE.
\#   Adds #AUT0LEAD_VALUE to #PT_SIZE when invoked to set leading.
\#   All subsequent PT_SIZE requests reset the leading in the same way until
\#   AUTOLEAD is turned off.
\# *Notes:
\#   With the optional FACTOR argument, the current point size is
\#   multiplied by #AUTOLEAD_VALUE instead of the two being added
\#   together.
\#
.MAC AUTOLEAD END
.    if \\n[#PRINT_STYLE]=1 \{ .return \}
.    if \\n[#IGNORE]        \{ .return \}
.    nr #AUTO_LEAD 1
.    nr #OLD_LEAD \\n(.v
.    nr #AUTOLEAD_VALUE (p;\\$1)
.    ie \\n[#NUM_ARGS]=2 \{\
.       if '\\$2'FACTOR' \{\
.          nr #AUTOLEAD_FACTOR 1
.          vs \\n[#PT_SIZE]u*\\n[#AUTOLEAD_VALUE]u/1000u
.       \}
.    \}
.    el \{\
.       vs \\n[#PT_SIZE]u+\\n[#AUTOLEAD_VALUE]u
.    \}
.    if \\n[#TOP] \{\
.       nr #TOP_BASELINE_ADJ \\n(.v-\\n[#OLD_LEAD]
.       sp -\\n[#TOP_BASELINE_ADJ]u
.       rr #TOP
.       rr #TOP_BASELINE_ADJ
.    \}
.END
\#
\#
\# STRINGS FOR INLINE CONTROL OF GENERAL TYPE STYLE
\# ------------------------------------------------
.ds ROM  \EfR
.ds IT   \EfI
.ds BD   \EfB
.ds BDI  \Ef(BI
.ds PREV \Ef[]
.ds S    \Es
\#
\# =====================================================================
\#
\# +++KERNING+++
\#
\# AUTOMATIC PAIRWISE KERNING
\# --------------------------
\# *Arguments:
\#   <none> | <anything>
\# *Function:
\#   Turns automatic pairwise kerning on or off.
\#
.MAC KERN END
.    ie '\\$1'' \{\
.       kern
.       nr #KERN 1
.    \}
.    el \{\
.       kern 0
.       nr #KERN 0
.    \}
.END
\#
\#
\# INLINE KERNING AND HORIZONTAL MOVEMENT
\# --------------------------------------
\# Kerning
\# 
\# Inline kerning provides a simple method for users to adjust the
\# amount of space between any two letters.  It's predicated on a
\# unit of measure "U", which is 1/36 of the current point size as
\# returned by \n[.ps].  E.g., if the current point size is 18,
\# \n[.ps] returns 18000u, therefore U=500u.  Since U remains
\# proportional relative to the current point size, the amount
\# of kerning between two letters as expressed in Us remains
\# visually similar regardless of changes in point size.
\# 
\# N.B.--the amount of inline kerning supplied by \*[BU<n>] or
\# \*[FU<n>] is added to or subtracted from any kerning that already
\# takes place between two characters when automatic kerning is
\# turned on.
\# 
\# In groff v. 1.17.2, it was not possible to pass arguments to macros that
\# were called with inline escapes, nor thence to evaluate conditional
\# expressions.  Consequently, each pseudo-escape \[BU<n>] had to be defined
\# separately with ".char".
\# 
\# As of v. 1.18, one can pass arguments to inline strings/macros,
\# hence it is now possible to do \*[BU n] where n, inline, is the desired
\# number of kern units.  The original .char definitions have been left in
\# for backward compatibility with documents created prior to mom-1.1.3c.
\#
.nr #KERN_UNIT 36
.ds BU   \h'-(\En[#PT_SIZE]u/\n[#KERN_UNIT]u*\\$1u)'
.ds FU   \h'(\En[#PT_SIZE]u/\n[#KERN_UNIT]u*\\$1u)'
\#
\# Initialize strings for pre-1.1.3c-style BU and FU
\#
.nr #LOOP 0 1
.while \n+[#LOOP]<37 \{\
.   ds BU\n[#LOOP]  \h'-(\En[#PT_SIZE]u/\n[#KERN_UNIT]u*\n[#LOOP]u)'
.\}
\#
.nr #LOOP 0 1
.while \n+[#LOOP]<37 \{\
.   ds FU\n[#LOOP]  \h'(\En[#PT_SIZE]u/\n[#KERN_UNIT]u*\n[#LOOP]u)'
.\}
.rr #LOOP
\#
\# Horizontal movements
\# --------------------
\# BP1...12.75 and FP1...12.75 move backwards or forwards inline by the
\# specified number of points.
\#
\# Left in for backward compatibility with mom-1.1.3c, the
\# preferred methods for inline horizontal movements are now
\# \*[BCK <n><unit>] and \*[FWD <n><unit>].
\#
.ds BCK  \h'-\\$1'
.ds FWD  \h'\\$1'
\#
.ds BP.25    \h'-.25'
.ds BP.5     \h'-.5'
.ds BP.75    \h'-.75'
.ds BP1      \h'-1p'
.ds BP1.25   \h'-1.25p'
.ds BP1.5    \h'-1.5p'
.ds BP1.75   \h'-1.75p'
.ds BP2      \h'-2p'
.ds BP2.25   \h'-2.25p'
.ds BP2.5    \h'-2.5p'
.ds BP2.75   \h'-2.75p'
.ds BP3      \h'-3p'
.ds BP3.25   \h'-3.25p'
.ds BP3.5    \h'-3.5p'
.ds BP3.75   \h'-3.75p'
.ds BP4      \h'-4p'
.ds BP4.25   \h'-4.25p'
.ds BP4.5    \h'-4.5p'
.ds BP4.75   \h'-4.75p'
.ds BP5      \h'-5p'
.ds BP5.25   \h'-5.25p'
.ds BP5.5    \h'-5.5p'
.ds BP5.75   \h'-5.75p'
.ds BP6      \h'-6p'
.ds BP6.25   \h'-6.25p'
.ds BP6.5    \h'-6.5p'
.ds BP6.75   \h'-6.75p'
.ds BP7      \h'-7p'
.ds BP7.25   \h'-7.25p'
.ds BP7.5    \h'-7.5p'
.ds BP7.75   \h'-7.75p'
.ds BP8      \h'-8p'
.ds BP8.25   \h'-8.25p'
.ds BP8.5    \h'-8.5p'
.ds BP8.75   \h'-8.75p'
.ds BP9      \h'-9p'
.ds BP9.25   \h'-9.25p'
.ds BP9.5    \h'-9.5p'
.ds BP9.75   \h'-9.75p'
.ds BP10     \h'-10p'
.ds BP10.25  \h'-10.25p'
.ds BP10.5   \h'-10.5p'
.ds BP10.75  \h'-10.75p'
.ds BP11     \h'-11p'
.ds BP11.25  \h'-11.25p'
.ds BP11.5   \h'-11.5p'
.ds BP11.75  \h'-11.75p'
.ds BP12     \h'-12p'
.ds BP12.25  \h'-12.25p'
.ds BP12.5   \h'-12.5p'
.ds BP12.75  \h'-12.75p'
\#
.ds FP.25    \h'.25'
.ds FP.5     \h'.5'
.ds FP.75    \h'.75'
.ds FP1      \h'1p'
.ds FP1.25   \h'1.25p'
.ds FP1.5    \h'1.5p'
.ds FP1.75   \h'1.75p'
.ds FP2      \h'2p'
.ds FP2.25   \h'2.25p'
.ds FP2.5    \h'2.5p'
.ds FP2.75   \h'2.75p'
.ds FP3      \h'3p'
.ds FP3.25   \h'3.25p'
.ds FP3.5    \h'3.5p'
.ds FP3.75   \h'3.75p'
.ds FP4      \h'4p'
.ds FP4.25   \h'4.25p'
.ds FP4.5    \h'4.5p'
.ds FP4.75   \h'4.75p'
.ds FP5      \h'5p'
.ds FP5.25   \h'5.25p'
.ds FP5.5    \h'5.5p'
.ds FP5.75   \h'5.75p'
.ds FP6      \h'6p'
.ds FP6.25   \h'6.25p'
.ds FP6.5    \h'6.5p'
.ds FP6.75   \h'6.75p'
.ds FP7      \h'7p'
.ds FP7.25   \h'7.25p'
.ds FP7.5    \h'7.5p'
.ds FP7.75   \h'7.75p'
.ds FP8      \h'8p'
.ds FP8.25   \h'8.25p'
.ds FP8.5    \h'8.5p'
.ds FP8.75   \h'8.75p'
.ds FP9      \h'9p'
.ds FP9.25   \h'9.25p'
.ds FP9.5    \h'9.5p'
.ds FP9.75   \h'9.75p'
.ds FP10     \h'10p'
.ds FP10.25  \h'10.25p'
.ds FP10.5   \h'10.5p'
.ds FP10.75  \h'10.75p'
.ds FP11     \h'11p'
.ds FP11.25  \h'11.25p'
.ds FP11.5   \h'11.5p'
.ds FP11.75  \h'11.75p'
.ds FP12     \h'12p'
.ds FP12.25  \h'12.25p'
.ds FP12.5   \h'12.5p'
.ds FP12.75  \h'12.75p'
\#
\#
\# WHOLE LINE KERNING (RW and EW)
\# -----------------------------
\# The line kerning macros are special instances of track kerning,
\# used where a complete line needs to be tightened (or relaxed) in
\# order to accomodate or remove one or two more characters
\# than the default justification permits.
\#
\# *Argument:
\#   <amount of overall "kerning" (letter spacing) to apply to the line>
\# *Function:
\#   Invokes .tkf (track kerning) for the current font with
\#   1 as both the upper and lower point size limits, so that
\#   the value entered by the user applies regardless of point
\#   size.  RW ("Reduce Whitespace") reduces the amount of space
\#   between all characters by an equal amount.  EW ("Extra
\#   Whitespace") increases the amount of space.
\# *Notes:
\#   Decimal values are acceptable.
\#
\# The groff documentation is a tad confusing about what unit of
\# measure is used in track kerning, only that the width of each
\# character is increased or decreased by the amount(s) passed as
\# arguments to .tkf, and something about linear function of point
\# size.  In fact, with the way I've put this macro together, it
\# doesn't matter.  All the user needs to know is that a value of
\# one will produce an unacceptably tight or loose line at most text
\# point sizes; therefore, effective use of RW and EW is in the
\# fractional range below 1 (e.g. .25, .5).  Given that RW and EW
\# are for massaging type, a certain amount of experimentation and
\# previewing is expected and necessary.
\# 
\# \n(.f holds the current font number, which is acceptable to .tkf.
\# 
\# RW and EW must be reset to 0 to cancel their effect on subsequent
\# output lines.
\#
.MAC RW END
.    if \\n[#BR_AT_LINE_KERN] \{\
.       ie \\n[#JUSTIFY]=1 \{ .brp \}
.       el \{ .br \}
.    \}
.    tkf \\n(.f 1 -\\$1 1 -\\$1
.END
\#
\#
.MAC EW END
.    if \\n[#BR_AT_LINE_KERN] \{\
.       ie \\n[#JUSTIFY]=1 \{ .brp \}
.       el \{ .br \}
.    \}
.    tkf \\n(.f 1 \\$1 1 \\$1
.END
\#
\#
\# BREAK AT LINE KERN
\# ------------------
\# *Arguments:
\#   toggle
\# *Function:
\#   Enables/disables .br's before .RW and .EW
\# *Notes:
\#   Mostly, users will want .br's before any kind of line kerning, but
\#   there may be cases where they don't.  BR_BEFORE_LINE_KERN is off by
\#   default and must be invoked explicitly.
\#
.MAC BR_AT_LINE_KERN END
.    ie '\\$1'' \{ .nr #BR_AT_LINE_KERN  1 \}
.    el         \{ .rr #BR_AT_LINE_KERN \}
.END
\#
\# =====================================================================
\#
\# +++HYPHENATION+++
\#
\# AUTO HYPHENATION
\# ----------------
\# *Arguments:
\#   <none> | <anything> | DEFAULT
\#                 or
\#   LINES <n> | MARGIN <n> | SPACE <n>
\# *Function:
\#   Turns auto hyphenation on or off, resets the hyphenation style
\#   to default, or permits the setting of various hyphenation
\#   parameters.
\# *Notes:
\#   HY, by itself, defaults to .hy 14, i.e. no hyphens after the
\#   first two or before the last two characters of a word, and no
\#   hyphenation of the last line prior to a trap (e.g., at the
\#   bottom of a page).
\#
\#   HY DEFAULT resets the hyphenation style to .hy 14 (see
\#   above) if that behaviour is desired after changes have been
\#   made to LINES, MARGIN, or SPACE.
\#
\#   HY LINES <n> sets the number of allowable consecutive hyphenated lines.
\#
\#   HY MARGIN <n> sets the amount of space (ipPcm) allowed at the end
\#   of a line in QUAD mode before hyphenation is tripped (e.g. if there's
\#   only 6 points left, groff won't try to hyphenate the next word).
\#
\#   HY SPACE sets the amount of extra interword space (ipPcm) that can
\#   be added in JUSTIFY mode to prevent a line from being hyphenated.
\#
.MAC HY END
.    ie '\\$1'' \{\
.       hy 14
.       nr #HYPHENATE 1
.    \}
.    el \{\
.       if !'\\$1'LINES'  \{\
.          nh
.          nr #HYPHENATE 0
.       \}
.       if !'\\$1'MARGIN' \{\
.          nh
.          nr #HYPHENATE 0
.       \}
.       if !'\\$1'SPACE'  \{\
.          nh
.          nr #HYPHENATE 0
.       \}
.       if !'\\$1'DEFAULT'  \{\
.          nh
.          nr #HYPHENATE 0
.       \}
.       if '\\$1'LINES'   \{ .hlm \\$2 \}
.       if '\\$1'MARGIN'  \{ .hym \\$2 \}
.       if '\\$1'SPACE'   \{ .hys \\$2 \}
.       if '\\$1'DEFAULT' \{\
.          hlm -1
.          hym 0
.          hys 0
.       \}
.    \}
.END
\#
\#
\# HYPHENATION PARAMETERS
\# ----------------------
\# *Arguments:
\#   <# of lines> | <size of margin> | <amount of interword space>
\# *Function:
\#   Allows user to specify .HY LINES, MARGIN, and SPACE with a single command.
\#
.MAC HY_SET END
.    nr #HY_SET 1
.    hlm \\$1
.    hym \\$2
.    hys \\$3
.END
\#
\# =====================================================================
\#
\# +++VERTICAL SPACING+++
\#
\# ADVANCE LEAD
\# ------------
\# *Argument:
\#   <user supplied lead to advance below current baseline>
\# *Function:
\#   Creates or modifies register #ALD.  Adds user supplied lead
\#   below current baseline.
\# *Notes:
\#   Requires a unit of measure.
\#
.MAC ALD END
.    if \\n(nl=0 \{ .nr #TOP 1 \}
.    if '\\$0'ALD' \{\
.       nr #ALD (\\$1)
.       sp \\n[#ALD]u
.    \}
.    if '\\$0'ADD_SPACE' \{\
.       nr #ALD (\\$1)
.       rs
.       sp \\n[#ALD]u
.    \}
.    if '\\$0'SPACE' \{\
.       sp \\$1
.    \}
.    if '\\$0'SP' \{\
.       sp \\$1
.    \}
.END
\#
\#
\# REVERSE LEAD
\# ------------
\# *Argument:
\#   <user supplied lead to reverse above current baseline>
\# *Function:
\#   Creates or modifies register #RLD.  Reverses user supplied
\#   lead above current baseline.
\# *Notes:
\#   Requires a unit of measure.
\#
.MAC RLD END
.    nr #RLD (\\$1)
.    sp -\\n[#RLD]u
.END
\#
\# ALD/RLD STRINGS
\# ---------------
\# The strings \*[ALD.25]...\*[ALD12.75] and their corresponding
\# \*[RLD] forms have been left in for backward compatibility with
\# documents created using mom-1.1.3c or earlier.  The prefered methods
\# of advancing and reversing on the page inline are \*[UP <n><unit>]
\# and \*[DOWN <n><unit>].
\#
.ds DOWN      \v'\\$1'
.ds UP        \v'-\\$1'
\#
.ds ALD.25    \v'.25p'
.ds ALD.5     \v'.5p'
.ds ALD.75    \v'.75p'
.ds ALD1      \v'1p'
.ds ALD1.25   \v'1.25p'
.ds ALD1.5    \v'1.5p'
.ds ALD1.75   \v'1.75p'
.ds ALD2      \v'2p'
.ds ALD2.25   \v'2.25p'
.ds ALD2.5    \v'2.5p'
.ds ALD2.75   \v'2.75p'
.ds ALD3      \v'3p'
.ds ALD3.25   \v'3.25p'
.ds ALD3.5    \v'3.5p'
.ds ALD3.75   \v'3.75p'
.ds ALD4      \v'4p'
.ds ALD4.25   \v'4.25p'
.ds ALD4.5    \v'4.5p'
.ds ALD4.75   \v'4.75p'
.ds ALD5      \v'5p'
.ds ALD5.25   \v'5.25p'
.ds ALD5.5    \v'5.5p'
.ds ALD5.75   \v'5.75p'
.ds ALD6      \v'6p'
.ds ALD6.25   \v'6.25p'
.ds ALD6.5    \v'6.5p'
.ds ALD6.75   \v'6.75p'
.ds ALD7      \v'7p'
.ds ALD7.25   \v'7.25p'
.ds ALD7.5    \v'7.5p'
.ds ALD7.75   \v'7.75p'
.ds ALD8      \v'8p'
.ds ALD8.25   \v'8.25p'
.ds ALD8.5    \v'8.5p'
.ds ALD8.75   \v'8.75p'
.ds ALD9      \v'9p'
.ds ALD9.25   \v'9.25p'
.ds ALD9.5    \v'9.5p'
.ds ALD9.75   \v'9.75p'
.ds ALD10     \v'10p'
.ds ALD10.25  \v'10.25p'
.ds ALD10.5   \v'10.5p'
.ds ALD10.75  \v'10.75p'
.ds ALD11     \v'11p'
.ds ALD11.25  \v'11.25p'
.ds ALD11.5   \v'11.5p'
.ds ALD11.75  \v'11.75p'
.ds ALD12     \v'12p'
.ds ALD12.25  \v'12.5p'
.ds ALD12.5   \v'12.5p'
.ds ALD12.75  \v'12.75p'
\#
.ds RLD.25    \v'-.25p'
.ds RLD.5     \v'-.5p'
.ds RLD.75    \v'-.75p'
.ds RLD1      \v'-1p'
.ds RLD1.25   \v'-1.25p'
.ds RLD1.5    \v'-1.5p'
.ds RLD1.75   \v'-1.75p'
.ds RLD2      \v'-2p'
.ds RLD2.25   \v'-2.25p'
.ds RLD2.5    \v'-2.5p'
.ds RLD2.75   \v'-2.75p'
.ds RLD3      \v'-3p'
.ds RLD3.25   \v'-3.25p'
.ds RLD3.5    \v'-3.5p'
.ds RLD3.75   \v'-3.75p'
.ds RLD4      \v'-4p'
.ds RLD4.25   \v'-4.25p'
.ds RLD4.5    \v'-4.5p'
.ds RLD4.75   \v'-4.75p'
.ds RLD5      \v'-5p'
.ds RLD5.25   \v'-5.25p'
.ds RLD5.5    \v'-5.5p'
.ds RLD5.75   \v'-5.75p'
.ds RLD6      \v'-6p'
.ds RLD6.25   \v'-6.25p'
.ds RLD6.5    \v'-6.5p'
.ds RLD6.75   \v'-6.75p'
.ds RLD7      \v'-7p'
.ds RLD7.25   \v'-7.25p'
.ds RLD7.5    \v'-7.5p'
.ds RLD7.75   \v'-7.75p'
.ds RLD8      \v'-8p'
.ds RLD8.25   \v'-8.25p'
.ds RLD8.5    \v'-8.5p'
.ds RLD8.75   \v'-8.75p'
.ds RLD9      \v'-9p'
.ds RLD9.25   \v'-9.25p'
.ds RLD9.5    \v'-9.5p'
.ds RLD9.75   \v'-9.75p'
.ds RLD10     \v'-10p'
.ds RLD10.25  \v'-10.25p'
.ds RLD10.5   \v'-10.5p'
.ds RLD10.75  \v'-10.75p'
.ds RLD11     \v'-11p'
.ds RLD11.25  \v'-11.25p'
.ds RLD11.5   \v'-11.5p'
.ds RLD11.75  \v'-11.75p'
.ds RLD12     \v'-12p'
.ds RLD12.25  \v'-12.5p'
.ds RLD12.5   \v'-12.5p'
.ds RLD12.75  \v'-12.75p'
\#
\# =====================================================================
\#
\# +++REFINEMENTS+++
\#
\# AUTOMATIC LIGATURES
\# -------------------
\# *Arguments:
\#   <none> | <anything>
\# *Function:
\#   Turns automatic ligature generation on or off.
\# *Notes:
\#   Ligatures may be supplied manually with \(fi, \(fl, etc.
\#
.MAC LIGATURES END
.    ie '\\$1'' \{\
.       lg
.       nr #LIGATURES 1
.    \}
.    el \{\
.       lg 0
.       nr #LIGATURES 0
.    \}
.END
\#
\#
\# SMARTQUOTES
\# -----------
\# *Arguments:
\#   [ ,, ] | [ << ] | [ >> ] | <anything>
\#   or
\#   [ DA | DE | ES | FR | IT | NL | NO | PT | SV ] | <anything>
\# *Function:
\#   Turns smartquotes on (optionally with a quoting style from the
\#   argument list, or off).
\# *Notes:
\#   The " character is read outside the macro when mom is
\#   processed.  The strings for open/close ($QUOTE<n>) are then
\#   defined in the macro.
\#
\#   (Note to myself: code for " is \N'34'.)
\#
.char " \\*[$QUOTE\\n[#OPEN_CLOSE]]\R'#OPEN_CLOSE (1-\\n[#OPEN_CLOSE])'
\#
.MAC SMARTQUOTES END
.    rr #ARGS_TO_SQ
.    if \\n[#RESTORE_SQ]=1 \{\
.       rr #RESTORE_SQ
.       ie '\\*[$RESTORE_SQ]'' \{\
.          ds $QUOTE0 \[dq]
.          ds $QUOTE1 \[dq]
.       \}
.       el \{\
.          SMARTQUOTES \\*[$RESTORE_SQ]
.          return
.       \}
.    \}
.    ie '\\$1'' \{\
.       nr #OPEN_CLOSE 0
.       ds $QUOTE0 \\[lq]
.       ds $QUOTE1 \\[rq]
.       ds $RESTORE_SQ \\$1
.    \}
.    el \{\
.       if '\\$1',,' \{\
.          nr #ARGS_TO_SQ 1
.          ds $QUOTE0 \\[Bq]
.          ds $QUOTE1 \\[lq]
.          ds $RESTORE_SQ \\$1
.       \}
.       if '\\$1'<<' \{\
.          nr #ARGS_TO_SQ 1
.          ds $QUOTE0 \\[Fo]
.          ds $QUOTE1 \\[Fc]
.          ds $RESTORE_SQ \\$1
.       \}
.       if '\\$1'>>' \{\
.          nr #ARGS_TO_SQ 1
.          ds $QUOTE0 \\[Fc]
.          ds $QUOTE1 \\[Fo]
.          ds $RESTORE_SQ \\$1
.       \}
.       if '\\$1'DA' \{\
.          nr #ARGS_TO_SQ 1
.          ds $QUOTE0 \\[Fc]
.          ds $QUOTE1 \\[Fo]
.          ds $RESTORE_SQ \\$1
.       \}
.       if '\\$1'DE' \{\
.          nr #ARGS_TO_SQ 1
.          ds $QUOTE0 \\[Bq]
.          ds $QUOTE1 \\[lq]
.          ds $RESTORE_SQ \\$1
.       \}
.       if '\\$1'ES' \{\
.          nr #ARGS_TO_SQ 1
.          ds $QUOTE0 \\[lq]
.          ds $QUOTE1 \\[rq]
.          ds $RESTORE_SQ \\$1
.       \}
.       if '\\$1'FR' \{\
.          nr #ARGS_TO_SQ 1
.          ds $QUOTE0 \\[Fo]\\|
.          ds $QUOTE1 \\|\\[Fc]
.          ds $RESTORE_SQ \\$1
.       \}
.       if '\\$1'IT' \{\
.          nr #ARGS_TO_SQ 1
.          ds $QUOTE0 \\[Fo]\\|
.          ds $QUOTE1 \\|\\[Fc]
.          ds $RESTORE_SQ \\$1
.       \}
.       if '\\$1'NL' \{\
.          nr #ARGS_TO_SQ 1
.          ds $QUOTE0 \\[rq]
.          ds $QUOTE1 \\[rq]
.          ds $RESTORE_SQ \\$1
.       \}
.       if '\\$1'NO' \{\
.          nr #ARGS_TO_SQ 1
.          ds $QUOTE0 \\[Fo]
.          ds $QUOTE1 \\[Fc]
.          ds $RESTORE_SQ \\$1
.       \}
.       if '\\$1'PT' \{\
.          nr #ARGS_TO_SQ 1
.          ds $QUOTE0 \\[Fo]
.          ds $QUOTE1 \\[Fc]
.          ds $RESTORE_SQ \\$1
.       \}
.       if '\\$1'SV' \{\
.          nr #ARGS_TO_SQ 1
.          ds $QUOTE0 \\[Fc]
.          ds $QUOTE1 \\[Fc]
.          ds $RESTORE_SQ \\$1
.       \}
.       if !r#ARGS_TO_SQ \{\
.          ds $QUOTE0 \\[dq]
.          ds $QUOTE1 \\[dq]
.          nr #RESTORE_SQ 1
.       \}
.    \}
.END
\#
.ds $QUOTE0 \[dq]
.ds $QUOTE1 \[dq]
\#
\# Strings for foot and inch marks
\#
.ds FOOT \(fm
.ds INCH \(fm\(fm
\#
\# =====================================================================
\#
\# +++LINE BREAKS+++
\#
\# NO-SPACE BREAK
\# --------------
\# *Argument:
\#   <none>
\# *Function:
\#   Breaks a line without advancing.
\# *Notes:
\#   EL is the mnemonic used on older, dedicated typesetting machines
\#   to indicate "process the line, without advancing the galley
\#   medium."  It stands for End Line.
\#
\#   The \c inline must be appended to the end of input lines when in
\#   nofill mode; in fill modes, the \c inline must not be used.
\#
.MAC EL END
.    TRAP OFF
.    if \\n[#PSEUDO_FILL]=1 \&
.    br
.    sp -1v
.    TRAP
.END
\#
\# An inline escape to accomplish the same thing.  Actually
\# preferable, since it works with filled and non-filled copy and
\# doesn't require the user to remember to use (or not use) the \c.
\#
.ds B \h'|0'\R'#NO_ADVANCE 1'\c
\#
\# =====================================================================
\#
\# +++FILLING/QUADDING/JUSTIFYING+++
\#
\# JUSTIFY
\# -------
\# *Argument:
\#   <none>
\# *Function:
\#   Turns fill on and sets .ad to b.
\# *Notes:
\#   Justifies text left and right.
\#
.MAC JUSTIFY END
.    if \\n[#TAB_ACTIVE]=0 \{\
.       nr #QUAD 1
.       ds $RESTORE_QUAD_VALUE \\*[$QUAD_VALUE]
.    \}
'    ce 0
.    QUAD J
.    if \\n[#PRINT_STYLE]=1 \{ .QUAD L \}
.    nr #PSEUDO_FILL 0
.END
\#
\#
\# QUAD
\# ----
\# *Arguments:
\#   L | LEFT | R | RIGHT | C | CENTER/CENTRE
\# *Function:
\#   Turns fill on and sets .ad to l, r, or c.
\# *Notes:
\#   Terminology is a problem here.  Some people call quad left
\#   left justified, flush left, or flush left/rag right (and the
\#   reverse for quad right).  Quad center is sometimes called rag
\#   both.  For our purposes, all "quad" modes mean that groff fill
\#   mode is enabled.
\#
.MAC QUAD END
.    ds $QUAD_VALUE \\$1
.    if \\n[#TAB_ACTIVE]=0 \{\
.       nr #QUAD 1
.       ds $RESTORE_QUAD_VALUE \\*[$QUAD_VALUE]
.    \}
'    ce 0
'    fi
.    if '\\*[$QUAD_VALUE]'L'       \{\
.       nr #JUSTIFY 0
.       ad l
.    \}
.    if '\\*[$QUAD_VALUE]'LEFT'    \{\
.       nr #JUSTIFY 0
.       ad l
.    \}
.    if '\\*[$QUAD_VALUE]'R'       \{\
.       nr #JUSTIFY 0
.       ad r
.    \}
.    if '\\*[$QUAD_VALUE]'RIGHT'   \{\
.       nr #JUSTIFY 0
.       ad r
.    \}
.    if '\\*[$QUAD_VALUE]'C'       \{\
.       nr #JUSTIFY 0
.       ad c
.    \}
.    if '\\*[$QUAD_VALUE]'CENTER'  \{\
.       nr #JUSTIFY 0
.       ad c
.    \}
.    if '\\*[$QUAD_VALUE]'CENTRE'  \{\
.       nr #JUSTIFY 0
.       ad c
.    \}
.    if '\\*[$QUAD_VALUE]'J'       \{\
.       nr #JUSTIFY 1
.       ad b
.    \}
.    if '\\*[$QUAD_VALUE]'JUSTIFY' \{\
.       nr #JUSTIFY 1
.       ad b
.    \}
.    nr #PSEUDO_FILL 0
.END
\#
\#
\# LEFT, RIGHT, AND CENTER
\# -----------------------
\# The purpose of these macros is to allow the user to enter lines of
\# text that will be quadded LRC *without* the user having to enter .BR
\# or .br between lines.  For the sake of consistency, all three appear
\# to behave similarly (from the point of view of the user), although
\# the underlying primitives don't.  For this reason, LEFT, RIGHT, and
\# CENTER must be followed by .QUAD [L R C J] or .JUSTIFY to restore
\# text to groff fill mode.
\#
\# LEFT
\# ----
\# *Argument:
\#   <none>
\# *Function:
\#   Turns fill mode off.  Allows user to quad lines left without
\#   requiring the .BR or .br macro.
\# *Notes:
\#   LEFT simply turns fill off.  Lines that exceed the current LL will
\#   not be broken, just continued (indefinitely) until a return is
\#   encountered.  Note that this behaviour differs from the RIGHT and
\#   CENTER macros.
\#
.MAC LEFT END
.    if \\n[#TAB_ACTIVE]=0 \{\
.       rr #QUAD
.       ds $RESTORE_QUAD_VALUE LEFT
.    \}
.    ce 0
.    nf
.    nr #PSEUDO_FILL 1
.\" Fix for a little conflict with DOCTYPE LETTER
.    if '\\n(.z'LETTERHEAD1' \{ .rr #DATE_FIRST \}
.END
\#
\#
\# RIGHT
\# -----
\# *Argument:
\#   <none>
\# *Function:
\#   Turns fill on.  Allows user to quad lines right without
\#   requiring the .BR or .br macro.
\# *Notes:
\#   Lines that exceed the current LL will be broken, with the excess
\#   text quadded right.
\#
.MAC RIGHT END
.    if \\n[#TAB_ACTIVE]=0 \{\
.       rr #QUAD
.       ds $RESTORE_QUAD_VALUE RIGHT
.    \}
.    nf
.    rj 100000
.    nr #PSEUDO_FILL 1
.END
\#
\#
\# CENTER
\# ------
\# *Argument:
\#   <none>
\# *Function:
\#   Turns fill on.  Allows user to center lines without
\#   requiring the .BR or .br macro.
\# *Notes:
\#   Lines that exceed the current LL will be broken, with the excess
\#   text centered.
\#
.MAC CENTER END
.    if \\n[#TAB_ACTIVE]=0 \{\
.       rr #QUAD
.       ds $RESTORE_QUAD_VALUE CENTER
.    \}
.    nf
.    ce 100000
.    nr #PSEUDO_FILL 1
.END
\#
\# =====================================================================
\#
\# +++TABS+++
\#
\# There are two different kinds of tabs available: typesetting tabs
\# and string tabs.
\# 
\# Typesetting tabs are set with TAB_SET, which requires a tab number,
\# an indent (offset) from the left margin and a length (optionally
\# with a quad direction and an instruction to fill lines).  After tabs
\# are set with TAB_SET, they are called with .TAB n, where "n"
\# corresponds to the number passed to TAB_SET as a valid tab number.
\# 
\# String tabs allow the user to mark off tab positions inline.  Tab
\# indents and lengths are calculated from the beginning and end
\# positions of the marks.  Up to 19 string tabs may be created,
\# numbered 1-19.  Once created, they are called with .TAB n,
\# just like typesetting tabs.
\# 
\# Setting up string tabs is a two-step procedure.  First, the user
\# enters an input line in which s/he wants to mark off string tabs.
\# The beginning of a tab is marked with \*[STn], where "n" is
\# the desired number of the tab.  The end of the the tab is marked
\# with \*[STnX].  All ST's must have a matching STX.  String tabs
\# may be nested.
\# 
\# Next, the user invokes .ST n for every string tab defined, and
\# optionally passes quad information to it.  That done, string tabs
\# can be called just like typesetting tabs.
\# 
\# String tabs don't preview properly with gxditview.  Use gv instead.
\#
\# Strings for string tab inlines
\# ------------------------------
\# Initialize string tab markers numbered 1 to 19.
\#
.nr #LOOP 0 1
.while \n+[#LOOP]<20 \{\
.   ds ST\n[#LOOP] \Ek[#ST\n[#LOOP]_OFFSET]
.\}
\#
.nr #LOOP 0 1
.while \n+[#LOOP]<20 \{\
.   ds ST\n[#LOOP]X \Ek[#ST\n[#LOOP]_MARK]
.\}
.rr #LOOP
\#
\#
\# These are reserved ST numbers for internal use
.ds ST100  \Ek[#ST100_OFFSET]
.ds ST100X \Ek[#ST100_MARK]
.ds ST101  \Ek[#ST101_OFFSET]
.ds ST101X \Ek[#ST101_MARK]
\#
\#
\# QUAD AND SET STRING TABS
\# ------------------------
\# *Arguments:
\#   <stringtab number>  L | R | C | J  [QUAD]
\# *Function:
\#   Creates strings $ST<#>_QUAD_DIR and $ST<#>_FILL, then sets up a
\#   tab based on the collected information.
\# *Notes:
\#   Like TAB_SET, ST invoked without a quad direction will default to LEFT.
\#   If lines should be filled and quadded, use the optional argument QUAD.
\#   N.B. -- indents *must* be turned off before setting string tabs
\#   inside .PAD
\#
.MAC ST END
.    ds $ST\\$1_QUAD_DIR \\$2
.    if \\n[#NUM_ARGS]=3 \{\
.       ds $ST\\$1_FILL QUAD
.    \}
.    nr #ST\\$1_LENGTH \\n[#ST\\$1_MARK]-\\n[#ST\\$1_OFFSET]
.    ie \\n[#IN_TAB] \{\
.       TAB_SET \\$1 \\n[#ST\\$1_OFFSET]u+\\n[#ST_OFFSET]u \\n[#ST\\$1_LENGTH]u \\*[$ST\\$1_QUAD_DIR] \\*[$ST\\$1_FILL]
.    \}
.    el \{\
.       TAB_SET \\$1 \\n[#ST\\$1_OFFSET]u \\n[#ST\\$1_LENGTH]u \\*[$ST\\$1_QUAD_DIR] \\*[$ST\\$1_FILL]
.    \}
.END
\#
\#
\# TAB SET
\# -------
\# *Arguments:
\#   <n>  ident(ipPcm)  length(ipPcm)  [L | R | C | J [QUAD]]
\# *Function:
\#   Creates macros TABn and TAB n, where "n" is any arbitrary number.
\#   TABn is a typesetting tab (i.e. a tab defined as an indent
\#   from the page left offset plus a line length.)
\# *Notes:
\#   n      = arbitrary digit to identify the tab
\#   indent = indent from left margin; unit of measure required
\#   length = length of tab (unit of measure required; can be
\#            \w'<string>'u--if more than one word in string, surround
\#            with double quotes "\w'<three word string>'"
\#   LRCJ   = quad for tab (left, right, center, justified)
\#            If option QUAD afterwards is not given, quad is line for line
\#            (no fill mode), meaning that there's no need for .BR or .br
\#            between lines.
\#   QUAD   = fill tab (so it behaves as if .QUAD LRC or .JUSTIFY
\#            had been given).
\#
\#   N.B. -- indents *must* be turned off before setting tabs
\#
\# Examples:
\# --------
\# 
\# .TAB_SET 1 2P+6p 12P C
\# 
\# means "create a tab numbered 1 that starts 2 picas and 6 points from
\# the left margin, is 12 picas long, and centre each input line."
\# 
\# .TAB_SET 1 2P+6P 12P C QUAD
\# 
\# means exactly the same thing, except that input lines are joined and
\# the area delimted by the tab filled with centered text.
\# 
\# TAB n can be called at any time after being set.
\# 
\# Tabs are NOT columnar in behaviour.  If the text inside a
\# tab runs to several lines, when you call the next tab a break
\# occurs, meaning that the new tab starts one line below the last
\# line in the previous tab.  For columnar behaviour, you must
\# use the multi-column macros in addition to tabs.
\# 
\# If you want tabs to line up bottom-line to bottom-line (most likely
\# single line tabs), use .TN (provided the tabs are numbered sequentially).
\# Otherwise, you must use .EL then .TAB <n> if you want them to align.
\# 
\# If you want to reset tabs, you must use .TQ before .TAB_SET.
\# 
\# Note that indents are turned off automatically whenever a new
\# tab is called with TAB <n>.
\# 
\# Tabs themselves are user-invoked using the TAB macro with a numeric
\# argument, e.g. TAB 1.
\# 
\# Generally, in order not to get confused, it's a good idea
\# to make sure all indents are off before setting tabs.
\#
.MAC TAB_SET END
.    br
.    nr #TAB_NUMBER \\$1
.    ds $CURRENT_TAB \\n[#TAB_NUMBER]
.    nr #TAB_OFFSET (\\$2)
.    nr #TAB_LENGTH (\\$3)
.    MAC TAB\\n[#TAB_NUMBER] DONE \"Define TAB macro
.        if !\\\\n[#TB+]=1 \{ .br \}
.        if \\\\n[#TB+]=1 \{\
.           EL
.           vpt 0
.           rr #TB+
.        \}
.        in 0
.        nr #TAB_ACTIVE 1
.        nr #CURRENT_TAB \\n[#TAB_NUMBER]
.        ds $CURRENT_TAB \\*[$CURRENT_TAB]
.        nr #TAB_OFFSET\\*[$CURRENT_TAB] \\n[#TAB_OFFSET]
.        nr #ST_OFFSET \\n[#TAB_OFFSET]
.        po \\\\n[#L_MARGIN]u+\\\\n[#TAB_OFFSET\\\\*[$CURRENT_TAB]]u
.        ll \\n[#TAB_LENGTH]u
.        ta \En(.lu
.        ie '\\$5'QUAD' \{\
.           if '\\$4'L' \{ .QUAD L  \}
.           if '\\$4'R' \{ .QUAD R  \}
.           if '\\$4'C' \{ .QUAD C  \}
.           if '\\$4'J' \{ .JUSTIFY \}
.        \}
.        el \{\
.           if '\\$4''  \{ .LEFT    \}
.           if '\\$4'L' \{ .LEFT    \}
.           if '\\$4'R' \{ .RIGHT   \}
.           if '\\$4'C' \{ .CENTER  \}
.           if '\\$4'J' \{ .JUSTIFY \}
.        \}
.        if \\\\n[#TN]=1 \{\
.           TRAP
.           rr #TN
.        \}
.DONE
.    rr #TAB_ACTIVE
.END
\#
\#
\# TAB
\# ---
\# *Arguments:
\#   <tab number to tab into>
\# *Function:
\#   Moves to tab number passed as an argument.
\#
.MAC TAB END
.    ds $TAB_NUMBER \\$1
.    TAB\\*[$TAB_NUMBER]
.    nr #IN_TAB 1
.END
\#
\#
\# TAB NEXT
\# --------
\# *Argument:
\#   <none>
\# *Function:
\#   Automagically moves to TAB<n+1> on the same line as the last
\#   line of the previous tab.
\# *Notes:
\#   The \c inline must be appended to the end of input lines when in
\#   nofill mode; in fill modes, the \c inline must not be used.
\#
.MAC TN END
.    nr #TN 1
.    TRAP OFF
.    sp -1v
.    nr #NEXT_TAB \\n[#CURRENT_TAB]+1
.    TAB\\n[#NEXT_TAB]
.    TRAP
.END
\#
\# An inline escape to accomplish the same thing.  Actually
\# preferable, since it works with filled and non-filled copy and
\# doesn't require the user to remember to use (or not use) the \c.
\#
.ds TB+ "\c\\R'#TB+ 1'\\R'#TN 1'\\R'#NEXT_TAB \\n[#CURRENT_TAB]+1'\\*[TAB\\n[#NEXT_TAB]]\c
\#
\# TAB QUIT
\# --------
\# *Argument:
\#   <none>
\# *Function:
\#   Sets #TAB_ACTIVE to "0" (off).
\#   Resets left margin to value in effect prior to tabs.
\#   Resets line length to value in effect prior to tabs.
\#   Checks #QUAD to see if we were in flush or quad mode
\#   prior to tabs (0=off, 1=on).
\#   Resets QUAD [ L|R|C ], LEFT, RIGHT, CENTER, or JUSTIFY
\#   in effect prior to tabs.
\# *Notes:
\#   TQ *must* come before setting any new tabs if you want the
\#   tabs' indents measured from page left.  Otherwise, the tabs'
\#   indents are measured from the left margin of the tab you're
\#   currently in.
\#
.MAC TQ END
.    br
.    rr #TAB_ACTIVE
.    rr #IN_TAB
.    po \\n[#L_MARGIN]u
.    ll \\n[#L_LENGTH]u
.    ta \\n(.lu
.    ie \\n[#QUAD] \{\
.       ie '\\*[$RESTORE_QUAD_VALUE]'J' \{ .JUSTIFY \}
.       el                              \{ .QUAD \\*[$RESTORE_QUAD_VALUE] \}
.    \}
.    el \{\
.       if '\\*[$RESTORE_QUAD_VALUE]'LEFT'   \{ .LEFT \}
.       if '\\*[$RESTORE_QUAD_VALUE]'RIGHT'  \{ .RIGHT \}
.       if '\\*[$RESTORE_QUAD_VALUE]'CENTER' \{ .CENTER \}
.    \}
.END
\#
\# ====================================================================
\#
\# COLOR HANDLING
\# ==============
\#
\# COLOR
\# -----
\# *Arguments:
\#   <pre-defined NEWCOLOR or XCOLOR>
\# *Function:
\#   Allows the inline escape for setting color to be called
\#   as a macro.
\#
.MAC COLOR END
.ie \\n(.u=1 \{\
\c
\\*[\\$1]\c
.\}
.el \{ \\*[\\$1] \}
.END
\#
\#
\# NEWCOLOR
\# --------
\# *Arguments:
\#   <color name> [<color scheme>] <color definition>
\# *Function:
\#   Based on .defcolor, allows users to name and define colors using
\#   one of the four color schemes rgb, cmy, cmyk and grey.  The new
\#   color is then defined as a string so that it can be called inline
\#   with \*[COLORNAME] or with .COLOR.
\# *Notes:
\#   With only two args, the default color scheme is rgb.
\#
\#   It is highly recommended that users define new colors as
\#   all-cap strings, to differentiate them from x colors, which must
\#   be in lower case.
\#
.MAC NEWCOLOR END
.    if \\n[#NUM_ARGS]=2 \{\
.       defcolor \\$1 rgb \\$2
.    \}
.    if \\n[#NUM_ARGS]=3 \{\
.       if '\\$2'RGB'  .ds $COLOR_SCHEME rgb
.       if '\\$2'CYM'  .ds $COLOR_SCHEME cym
.       if '\\$2'CMYK' .ds $COLOR_SCHEME cmyk
.       if '\\$2'GRAY' .ds $COLOR_SCHEME gray
.       if '\\$2'GREY' .ds $COLOR_SCHEME gray
.       defcolor \\$1  \\*[$COLOR_SCHEME] \\$3
.    \}
.    ds \\$1 \\m[\\$1]
.END
\#
\#
\# XCOLOR
\# ------
\# *Arguments:
\#   <x color name> [<alias>]
\# *Function:
\#   Defines a string of x color name (i.e. a predefined x
\#   color).  If <alias> is given, creates a string of <alias name>
\#   that references the x color name of the first argument.
\# *Notes:
\#   The color name must be a valid color name from rgb.txt, and
\#   must be given entirely in lower case, all one word.
\#
.MAC XCOLOR END
.    ds \\$1 \m[\\$1]
.    if \\n[#NUM_ARGS]=2 \{\
.       ds \\$2 \m[\\$1]
.       ds $\\$2_FILL \\$1
.    \}
.END
\#
\# Pre-define xcolors black and white
\#
.ds black \m[black]
.ds BLACK \m[black]
.ds white \m[white]
.ds WHITE \m[WHITE]
\#
\# =====================================================================
\#
\# +++MISCELLANEOUS USEFUL MACROS AND STRINGS+++
\#
\# UNDERLINE
\# ---------
\# *Arguments:
\#   <none> | <anything>
\# *Function:
\#   When on, underlines all letters, words, and digits in a passage,
\#   ignoring punctuation and spaces.
\# *Notes:
\#   Only for use when the font family is COURIER, to simulate
\#   typewriter-style underlining of italic  passages.
\#
.MAC UNDERLINE END
.    ie '\\$1'' \{\
.       nr #UNDERLINE_ON 1
.       char A _\bA
.       char B _\bB
.       char C _\bC
.       char D _\bD
.       char E _\bE
.       char F _\bF
.       char G _\bG
.       char H _\bH
.       char I _\bI
.       char J _\bJ
.       char K _\bK
.       char L _\bL
.       char M _\bM
.       char N _\bN
.       char O _\bO
.       char P _\bP
.       char Q _\bQ
.       char R _\bR
.       char S _\bS
.       char T _\bT
.       char U _\bU
.       char V _\bV
.       char W _\bW
.       char X _\bX
.       char Y _\bY
.       char Z _\bZ
.       char \[`A] _\b\[`A]
.       char \[^A] _\b\[^A]
.       char \['A] _\b\['A]
.       char \[:A] _\b\[:A]
.       char \[oA] _\b\[oA]
.       char \[~A] _\b\[~A]
.       char \[AE] _\b\[AE]
.       char \[`E] _\b\[`E]
.       char \[^E] _\b\[^E]
.       char \['E] _\b\['E]
.       char \[:E] _\b\[:E]
.       char \[`I] _\b\[`I]
.       char \[^I] _\b\[^I]
.       char \['I] _\b\['I]
.       char \[:I] _\b\[:I]
.       char \[`O] _\b\[`O]
.       char \[^O] _\b\[^O]
.       char \['O] _\b\['O]
.       char \[:O] _\b\[:O]
.       char \[~O] _\b\[~O]
.       char \[/O] _\b\[/O]
.       char \[`U] _\b\[`U]
.       char \[^U] _\b\[^U]
.       char \['U] _\b\['U]
.       char \[:U] _\b\[:U]
.       char \[,C] _\b\[,C]
.       char \[-D] _\b\[-D]
.       char \[~N] _\b\[~N]
.       char \[TP] _\b\[TP]
.       char \['Y] _\b\['Y]
.       char \[:Y] _\b\[:Y]
.       char a _\ba
.       char b _\bb
.       char c _\bc
.       char d _\bd
.       char e _\be
.       char f _\bf
.       char g _\bg
.       char h _\bh
.       char i _\bi
.       char j _\bj
.       char k _\bk
.       char l _\bl
.       char m _\bm
.       char n _\bn
.       char o _\bo
.       char p _\bp
.       char q _\bq
.       char r _\br
.       char s _\bs
.       char t _\bt
.       char u _\bu
.       char v _\bv
.       char w _\bw
.       char x _\bx
.       char y _\by
.       char z _\bz
.       char \[`a] _\b\[`a]
.       char \[^a] _\b\[^a]
.       char \['a] _\b\['a]
.       char \[:a] _\b\[:a]
.       char \[oa] _\b\[oa]
.       char \[~a] _\b\[~a]
.       char \[ae] _\b\[ae]
.       char \[`e] _\b\[`e]
.       char \[^e] _\b\[^e]
.       char \['e] _\b\['e]
.       char \[:e] _\b\[:e]
.       char \[`i] _\b\[`i]
.       char \[^i] _\b\[^i]
.       char \['i] _\b\['i]
.       char \[:i] _\b\[:i]
.       char \[`o] _\b\[`o]
.       char \[^o] _\b\[^o]
.       char \['o] _\b\['o]
.       char \[:o] _\b\[:o]
.       char \[~o] _\b\[~o]
.       char \[/o] _\b\[/o]
.       char \[`u] _\b\[`u]
.       char \[^u] _\b\[^u]
.       char \['u] _\b\['u]
.       char \[:u] _\b\[:u]
.       char \[,c] _\b\[,c]
.       char \[Sd] _\b\[Sd]
.       char \[~n] _\b\[~n]
.       char \[Tp] _\b\[Tp]
.       char \['y] _\b\['y]
.       char \[:y] _\b\[:y]
.       char \[ss] _\b\[ss]
.       char ' _\b'
.       char 1 _\b1
.       char 2 _\b2
.       char 3 _\b3
.       char 4 _\b4
.       char 5 _\b5
.       char 6 _\b6
.       char 7 _\b7
.       char 8 _\b8
.       char 9 _\b9
.       char 0 _\b0
.    \}
.    el \{\
.       nr #UNDERLINE_ON 0
.       rchar A B C D E F G H I J K L M N O P Q R S T U V W X Y Z \
        a b c d e f g h i j k l m n o p q r s t u v w x y z \
        \[`A] \[^A] \['A] \[:A] \[oA] \[~A] \[AE] \[`E] \[^E] \['E] \[:E] \
        \[`I] \[^I] \['I] \[:I] \[`O] \[^O] \['O] \[:O] \[~O] \[/O] \[`U] \
        \[^U] \['U] \[:U] \[,C] \[-D] \[~N] \[TP] \['Y] \[:Y] \
        \[`a] \[^a] \['a] \[:a] \[oa] \[~a] \[ae] \[`e] \[^e] \['e] \[:e] \[`i] \
        \[^i] \['i] \[:i] \[`o] \[^o] \['o] \[:o] \[~o] \[/o] \[`u] \[^u] \['u] \
        \[:u] \[,c] \[Sd] \[~n] \[Tp] \['y] \[:y] \[ss] \
        ' 1 2 3 4 5 6 7 8 9 0
.    \}
.END
\#
\#
\# UL/ULX
\# ------
\# *Arguments:
\#   <none>
\# *Function:
\#   Underscores all letters, words, and digits in a passage,
\#   ignoring punctuation and spaces.
\# *Notes:
\#   Intended to be called with inline escapes \*[UL] (underline
\#   on) and \*[ULX] (underline off).  Only works when the font family
\#   is fixed width, to simulate typewriter-style underlining of italic
\#   passages.
\#
.MAC UL END
\c\R'#UNDERLINE_ON 1'
.       char A _\bA
.       char B _\bB
.       char C _\bC
.       char D _\bD
.       char E _\bE
.       char F _\bF
.       char G _\bG
.       char H _\bH
.       char I _\bI
.       char J _\bJ
.       char K _\bK
.       char L _\bL
.       char M _\bM
.       char N _\bN
.       char O _\bO
.       char P _\bP
.       char Q _\bQ
.       char R _\bR
.       char S _\bS
.       char T _\bT
.       char U _\bU
.       char V _\bV
.       char W _\bW
.       char X _\bX
.       char Y _\bY
.       char Z _\bZ
.       char \[`A] _\b\[`A]
.       char \[^A] _\b\[^A]
.       char \['A] _\b\['A]
.       char \[:A] _\b\[:A]
.       char \[oA] _\b\[oA]
.       char \[~A] _\b\[~A]
.       char \[AE] _\b\[AE]
.       char \[`E] _\b\[`E]
.       char \[^E] _\b\[^E]
.       char \['E] _\b\['E]
.       char \[:E] _\b\[:E]
.       char \[`I] _\b\[`I]
.       char \[^I] _\b\[^I]
.       char \['I] _\b\['I]
.       char \[:I] _\b\[:I]
.       char \[`O] _\b\[`O]
.       char \[^O] _\b\[^O]
.       char \['O] _\b\['O]
.       char \[:O] _\b\[:O]
.       char \[~O] _\b\[~O]
.       char \[/O] _\b\[/O]
.       char \[`U] _\b\[`U]
.       char \[^U] _\b\[^U]
.       char \['U] _\b\['U]
.       char \[:U] _\b\[:U]
.       char \[,C] _\b\[,C]
.       char \[-D] _\b\[-D]
.       char \[~N] _\b\[~N]
.       char \[TP] _\b\[TP]
.       char \['Y] _\b\['Y]
.       char \[:Y] _\b\[:Y]
.       char a _\ba
.       char b _\bb
.       char c _\bc
.       char d _\bd
.       char e _\be
.       char f _\bf
.       char g _\bg
.       char h _\bh
.       char i _\bi
.       char j _\bj
.       char k _\bk
.       char l _\bl
.       char m _\bm
.       char n _\bn
.       char o _\bo
.       char p _\bp
.       char q _\bq
.       char r _\br
.       char s _\bs
.       char t _\bt
.       char u _\bu
.       char v _\bv
.       char w _\bw
.       char x _\bx
.       char y _\by
.       char z _\bz
.       char \[`a] _\b\[`a]
.       char \[^a] _\b\[^a]
.       char \['a] _\b\['a]
.       char \[:a] _\b\[:a]
.       char \[oa] _\b\[oa]
.       char \[~a] _\b\[~a]
.       char \[ae] _\b\[ae]
.       char \[`e] _\b\[`e]
.       char \[^e] _\b\[^e]
.       char \['e] _\b\['e]
.       char \[:e] _\b\[:e]
.       char \[`i] _\b\[`i]
.       char \[^i] _\b\[^i]
.       char \['i] _\b\['i]
.       char \[:i] _\b\[:i]
.       char \[`o] _\b\[`o]
.       char \[^o] _\b\[^o]
.       char \['o] _\b\['o]
.       char \[:o] _\b\[:o]
.       char \[~o] _\b\[~o]
.       char \[/o] _\b\[/o]
.       char \[`u] _\b\[`u]
.       char \[^u] _\b\[^u]
.       char \['u] _\b\['u]
.       char \[:u] _\b\[:u]
.       char \[,c] _\b\[,c]
.       char \[Sd] _\b\[Sd]
.       char \[~n] _\b\[~n]
.       char \[Tp] _\b\[Tp]
.       char \['y] _\b\['y]
.       char \[:y] _\b\[:y]
.       char \[ss] _\b\[ss]
.       char ' _\b'
.       char 1 _\b1
.       char 2 _\b2
.       char 3 _\b3
.       char 4 _\b4
.       char 5 _\b5
.       char 6 _\b6
.       char 7 _\b7
.       char 8 _\b8
.       char 9 _\b9
.       char 0 _\b0
.END
\#
\#
.MAC ULX END
\c\R'#UNDERLINE_ON 0'
.    rchar A B C D E F G H I J K L M N O P Q R S T U V W X Y Z \
     a b c d e f g h i j k l m n o p q r s t u v w x y z \
     \[`A] \[^A] \['A] \[:A] \[oA] \[~A] \[AE] \[`E] \[^E] \['E] \[:E] \
     \[`I] \[^I] \['I] \[:I] \[`O] \[^O] \['O] \[:O] \[~O] \[/O] \[`U] \
     \[^U] \['U] \[:U] \[,C] \[-D] \[~N] \[TP] \['Y] \[:Y] \
     \[`a] \[^a] \['a] \[:a] \[oa] \[~a] \[ae] \[`e] \[^e] \['e] \[:e] \[`i] \
     \[^i] \['i] \[:i] \[`o] \[^o] \['o] \[:o] \[~o] \[/o] \[`u] \[^u] \['u] \
     \[:u] \[,c] \[Sd] \[~n] \[Tp] \['y] \[:y] \[ss] \
     ' 1 2 3 4 5 6 7 8 9 0
.END
\#
\#
\# UNDERSCORE
\# ----------
\# *Arguments:
\#   [<points below baseline>] "text"
\# *Function:
\#   Places an underscore 2 points under the string if no lead given,
\#   otherwise places underscore under string by user specified amount.
\# *Notes:
\#   When using this macro, the string to be underscored must begin
\#   with double-quotes ("), regardless of whether it's the sole
\#   argument or the second.
\#   E.g.:
\#      .UNDERSCORE "Text to be underscored
\#         or
\#      .UNDERSCORE 2p "Text to be underscored
\#
\#   All text is underscored (including punctuation and spaces).
\#   This is the primary difference between UNDERLINE and
\#   UNDERSCORE, aside from the fact the UNDERLINE only works with
\#   fixed width fonts.
\#
\#   UNDERSCORE does not work across line breaks.  Each line of
\#   text must be entered separately with UNDERSCORE.  If the
\#   UNDERSCORE begins in the middle of a line and crosses over a
\#   break, the portion before the break must be entered in its own
\#   UNDERSCORE, as must the portion that comes after the break.
\#
.MAC UNDERSCORE END
.    nr #SAVED_UNDERSCORE_WEIGHT     \\n[#UNDERSCORE_WEIGHT]
.    nr #SAVED_UNDERSCORE_WEIGHT_ADJ \\n[#UNDERSCORE_WEIGHT_ADJ]
.    ds $SAVED_UNDERSCORE_GAP        \\*[$UNDERSCORE_GAP]
.    if \\n[#FROM_BIB_STRING]=1 \{\
.       nr #UNDERSCORE_WEIGHT     \\n[#BIB_STRING_UNDERLINE_WEIGHT]
.       nr #UNDERSCORE_WEIGHT_ADJ \\n[#BIB_STRING_UNDERLINE_WEIGHT_ADJ]
.       ds $UNDERSCORE_GAP        \\*[$BIB_STRING_UNDERLINE_GAP]
.    \}
.    if \\n[#FROM_COVER]=1 \{\
.       nr #UNDERSCORE_WEIGHT     \\n[#COVER_UNDERLINE_WEIGHT]
.       nr #UNDERSCORE_WEIGHT_ADJ \\n[#COVER_UNDERLINE_WEIGHT_ADJ]
.       ds $UNDERSCORE_GAP        \\*[$COVER_UNDERLINE_GAP]
.    \}
.    if \\n[#FROM_DOC_COVER]=1 \{\
.       nr #UNDERSCORE_WEIGHT     \\n[#DOCCOVER_UNDERLINE_WEIGHT]
.       nr #UNDERSCORE_WEIGHT_ADJ \\n[#DOCCOVER_UNDERLINE_WEIGHT_ADJ]
.       ds $UNDERSCORE_GAP        \\*[$DOCCOVER_UNDERLINE_GAP]
.    \}
.    if \\n[#FROM_DOCTYPE]=1 \{\
.       nr #UNDERSCORE_WEIGHT     \\n[#DOCTYPE_UNDERLINE_WEIGHT]
.       nr #UNDERSCORE_WEIGHT_ADJ \\n[#DOCTYPE_UNDERLINE_WEIGHT_ADJ]
.       ds $UNDERSCORE_GAP        \\*[$DOCTYPE_UNDERLINE_GAP]
.    \}
.    if \\n[#FROM_HEAD]=1 \{\
.       nr #UNDERSCORE_WEIGHT     \\n[#HEAD_UNDERLINE_WEIGHT]
.       nr #UNDERSCORE_WEIGHT_ADJ \\n[#HEAD_UNDERLINE_WEIGHT_ADJ]
.       ds $UNDERSCORE_GAP        \\*[$HEAD_UNDERLINE_GAP]
.    \}
.    if \\n[#FROM_EN_STRING]=1 \{\
.       nr #UNDERSCORE_WEIGHT     \\n[#EN_STRING_UNDERLINE_WEIGHT]
.       nr #UNDERSCORE_WEIGHT_ADJ \\n[#EN_STRING_UNDERLINE_WEIGHT_ADJ]
.       ds $UNDERSCORE_GAP        \\*[$EN_STRING_UNDERLINE_GAP]
.    \}
.    if \\n[#FROM_EN_TITLE]=1 \{\
.       nr #UNDERSCORE_WEIGHT     \\n[#EN_TITLE_UNDERLINE_WEIGHT]
.       nr #UNDERSCORE_WEIGHT_ADJ \\n[#EN_TITLE_UNDERLINE_WEIGHT_ADJ]
.       ds $UNDERSCORE_GAP        \\*[$EN_TITLE_UNDERLINE_GAP]
.    \}
.    ie \\n[#NUM_ARGS]=1 \{\
.       nr #TEXT_WIDTH \w'\\$1'
\\$1\
\D't \\n[#UNDERSCORE_WEIGHT]'\
\h'-\\n[#TEXT_WIDTH]u-\\n[#UNDERSCORE_WEIGHT]u'\
\v'+(\\*[$UNDERSCORE_GAP])+\\n[#UNDERSCORE_WEIGHT_ADJ]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\D't \\n[#RULE_WEIGHT]'\
\h'-\\n[#RULE_WEIGHT]u'\
\v'-(\\*[$UNDERSCORE_GAP])-\\n[#UNDERSCORE_WEIGHT_ADJ]u'
.    \}
.    el \{\
.       nr #TEXT_WIDTH \w'\\$2'
\\$2\
\h'-\\n[#TEXT_WIDTH]u-\\n[#UNDERSCORE_WEIGHT]u'\
\v'+(\\$1)+\\n[#UNDERSCORE_WEIGHT_ADJ]u'\
\D't \\n[#UNDERSCORE_WEIGHT]'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\D't \\n[#RULE_WEIGHT]'\
\h'-\\n[#RULE_WEIGHT]u'\
\v'-(\\$1)-\\n[#UNDERSCORE_WEIGHT_ADJ]u'
.    \}
.    nr #UNDERSCORE_WEIGHT     \\n[#SAVED_UNDERSCORE_WEIGHT]
.    nr #UNDERSCORE_WEIGHT_ADJ \\n[#SAVED_UNDERSCORE_WEIGHT_ADJ]
.    ds $UNDERSCORE_GAP        \\*[$SAVED_UNDERSCORE_GAP]
.    rr #SAVED_UNDERSCORE_WEIGHT
.    rr #SAVED_UNDERSCORE_WEIGHT_ADJ
.    rm $SAVED_UNDERSCORE_GAP
.END
\#
\#
\# DOUBLE UNDERSCORE
\# -----------------
\# *Arguments:
\#   [points below baseline] [points distance between rules] "text"
\# *Function:
\#   Same as UNDERSCORE, except it produces a double underscore.  The default
\#   distance between the rules is 2 points.
\# *Notes:
\#   The same double-quote requirement as UNDERSCORE.
\#
\#
.MAC UNDERSCORE2 END
.    nr #SAVED_UNDERSCORE_WEIGHT     \\n[#UNDERSCORE_WEIGHT]
.    nr #SAVED_UNDERSCORE_WEIGHT_ADJ \\n[#UNDERSCORE_WEIGHT_ADJ]
.    ds $SAVED_UNDERSCORE_GAP        \\*[$UNDERSCORE_GAP]
.    ds $SAVED_RULE_GAP              \\*[$RULE_GAP]
.    if \\n[#NUM_ARGS]=2 \{\
.       ds $UNDERSCORE_GAP \\$1
.    \}
.    if \\n[#NUM_ARGS]=3 \{\
.       ds $UNDERSCORE_GAP \\$1
.       ds $RULE_GAP \\$2
.    \}
.    if \\n[#FROM_BIB_STRING] \{\
.       nr #UNDERSCORE_WEIGHT     \\n[#BIB_STRING_UNDERLINE_WEIGHT]
.       nr #UNDERSCORE_WEIGHT_ADJ \\n[#BIB_STRING_UNDERLINE_WEIGHT_ADJ]
.       ds $UNDERSCORE_GAP        \\*[$BIB_STRING_UNDERLINE_GAP]
.       ds $RULE_GAP              \\*[$BIB_STRING_RULE_GAP]
.    \}
.    if \\n[#FROM_EN_STRING] \{\
.       nr #UNDERSCORE_WEIGHT     \\n[#EN_STRING_UNDERLINE_WEIGHT]
.       nr #UNDERSCORE_WEIGHT_ADJ \\n[#EN_STRING_UNDERLINE_WEIGHT_ADJ]
.       ds $UNDERSCORE_GAP        \\*[$EN_STRING_UNDERLINE_GAP]
.       ds $RULE_GAP              \\*[$EN_STRING_RULE_GAP]
.    \}
.    if \\n[#NUM_ARGS]=1 \{\
.       nr #TEXT_WIDTH \w'\\$1'
\\$1\
\D't \\n[#UNDERSCORE_WEIGHT]'\
\v'+\\*[$UNDERSCORE_GAP]+\\n[#UNDERSCORE_WEIGHT_ADJ]u'\
\h'-\\n[#TEXT_WIDTH]u-\\n[#UNDERSCORE_WEIGHT]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\v'+\\*[$RULE_GAP]+\\n[#UNDERSCORE_WEIGHT]u'\
\h'-\\n[#TEXT_WIDTH]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\D't \\n[#RULE_WEIGHT]'\
\h'-\\n[#RULE_WEIGHT]u'\
\v'-(\\*[$UNDERSCORE_GAP]+\\*[$RULE_GAP])-(\\n[#UNDERSCORE_WEIGHT]u*2u)'
.    \}
.    if \\n[#NUM_ARGS]=2 \{\
.       nr #TEXT_WIDTH \w'\\$2'
\\$2\
\D't \\n[#UNDERSCORE_WEIGHT]'\
\v'+\\*[$UNDERSCORE_GAP]+\\n[#UNDERSCORE_WEIGHT_ADJ]u'\
\h'-\\n[#TEXT_WIDTH]u-\\n[#UNDERSCORE_WEIGHT]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\v'+(\\*[$RULE_GAP])+\\n[#UNDERSCORE_WEIGHT]u'\
\h'-\\n[#TEXT_WIDTH]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\D't \\n[#RULE_WEIGHT]'\
\h'-\\n[#RULE_WEIGHT]u'\
\v'-(\\*[$UNDERSCORE_GAP]+\\*[$RULE_GAP])+(\\n[#UNDERSCORE_WEIGHT]u*2u)'
.    \}
.    if \\n[#NUM_ARGS]=3 \{\
.       nr #TEXT_WIDTH \w'\\$3'
\\$3\
\D't \\n[#UNDERSCORE_WEIGHT]'\
\v'+\\*[$UNDERSCORE_GAP]+\\n[#UNDERSCORE_WEIGHT_ADJ]u'\
\h'-\\n[#TEXT_WIDTH]u-\\n[#UNDERSCORE_WEIGHT]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\v'+\\*[$RULE_GAP]+\\n[#UNDERSCORE_WEIGHT]u'\
\h'-\\n[#TEXT_WIDTH]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\D't \\n[#RULE_WEIGHT]'\
\h'-\\n[#RULE_WEIGHT]u'\
\v'-(\\*[$UNDERSCORE_GAP]+\\*[$RULE_GAP])-(\\n[#UNDERSCORE_WEIGHT]u*2u)'
.    \}
.    nr #UNDERSCORE_WEIGHT     \\n[#SAVED_UNDERSCORE_WEIGHT]
.    nr #UNDERSCORE_WEIGHT_ADJ \\n[#SAVED_UNDERSCORE_WEIGHT_ADJ]
.    ds $UNDERSCORE_GAP        \\*[$SAVED_UNDERSCORE_GAP]
.    rr #SAVED_UNDERSCORE_WEIGHT
.    rr #SAVED_UNDERSCORE_WEIGHT_ADJ
.    rm $SAVED_UNDERSCORE_GAP
.    rm $SAVED_RULE_GAP
.END
\#
\# Default underscoring rule gaps
\#
.ds $BIB_STRING_UNDERLINE_GAP 2p
.ds $BIB_STRING_RULE_GAP      2p
.ds $COVER_UNDERLINE_GAP      2p
.ds $DOCCOVER_UNDERLINE_GAP   2p
.ds $DOCTYPE_UNDERLINE_GAP    2p
.ds $EN_STRING_UNDERLINE_GAP  2p
.ds $EN_STRING_RULE_GAP       2p
.ds $EN_TITLE_UNDERLINE_GAP   2p
.ds $HEAD_UNDERLINE_GAP       2p
.ds $RULE_GAP                 2p
.ds $UNDERSCORE_GAP           2p
\#
\#
\# SUPERSCRIPT INLINES
\# -------------------
\# *Function:
\#   Prints everything after invocation as superscript.
\# *Notes:
\#   \*[SUP] and \*[SUPX] turn superscript on and off respectively.
\#   If running type is pseudo-condensed/expanded, invoke the superscript
\#   strings as \*[CONDSUP] or \*[EXTSUP] and turn off with \*[CONDSUPX]
\#   and \*[EXTSUPX] respectively.
\#
.ds SUP \
\R'#PT_SIZE_IN_UNITS \En[.ps]'\
\R'#SUP_PT_SIZE \En[#PT_SIZE_IN_UNITS]u*6u/10u'\
\s[\En[#PT_SIZE_IN_UNITS]u]\v'-.26m'\s[\En[#SUP_PT_SIZE]u]
\#
.ds SUPX \s[\En[#PT_SIZE_IN_UNITS]u]\v'.26m'
\#
.ds CONDSUP \
\R'#PT_SIZE_IN_UNITS \En[.ps]'\
\R'#SUP_PT_SIZE \En[#PT_SIZE_IN_UNITS]u*6u/10u'\
\s[\En[#PT_SIZE_IN_UNITS]u]\v'-.3m'\s[\En[#SUP_PT_SIZE]u]\E*[COND_FOR_SUP]
\#
.ds CONDSUPX \s[\En[#PT_SIZE_IN_UNITS]u]\v'.3m'\E*[COND]
\#
.ds EXTSUP \
\R'#PT_SIZE_IN_UNITS \En[.ps]'\
\R'#SUP_PT_SIZE \En[#PT_SIZE_IN_UNITS]u*6u/10u'\
\s[\En[#PT_SIZE_IN_UNITS]u]\v'-.3m'\s[\En[#SUP_PT_SIZE]u]\E*[EXT_FOR_SUP]
\#
.ds EXTSUPX \s[\En[#PT_SIZE_IN_UNITS]u]\v'.3m'\E*[EXT]
\#
\#
\# SLANT
\# -----
\#
\# SETSLANT
\# --------
\# *Arguments:
\#   <number of degrees> | RESET
\# *Function:
\#   Modifies register #DEGREES for use with \*[SLANT], or resets
\#   it to the default.  Defines string \*[SLANTX]
\# *Notes:
\#   \*[SLANT] permits pseudo-italicizing of a font in cases where
\#   no italic font exists in a particular family.
\#
\#   Default # of degrees is 15.
\#
\#   Do not use unit of measure with arg to SETSLANT.
\#
\#   It may be necessary to adjust the spacing on either side of
\#   [SLANT] and [SLANTX].
\#
\#   In docs, SLANT carries over from para to para.
\#
.nr #DEGREES 15
.ds SLANT \ER'#SLANT_ON 1'\ES'\En[#DEGREES]'
.ds SLANTX \ER'#SLANT_ON 0'\ES'0'
\#
.MAC SETSLANT END
.    ie '\\$1'RESET' \{\
.       nr #DEGREES 15
.       if \\n[#PRINT_STYLE]=1 \{\
.          if \\n[#UNDERLINE_SLANT] \{ .return \}
.       \}
.       ds SLANT \ER'#SLANT_ON 1'\ES'\En[#DEGREES]'
.    \}
.    el \{\
.       nr #DEGREES \\$1
.       if \\n[#PRINT_STYLE]=1 \{\
.          if \\n[#UNDERLINE_SLANT] \{ .return \}
.       \}
.       ds SLANT \ER'#SLANT_ON 1'\ES'\En[#DEGREES]'
.    \}
.    ds SLANTX \ER'#SLANT_ON 0'\ES'0'
.END
\#
\#
\# BOLDER
\# ------
\#
\# SETBOLDER
\# ---------
\# *Arguments:
\#   <amount of emboldening> | RESET
\# *Function:
\#   Modifies register #BOLDER_UNITS for use with \*[BOLDER], or resets
\#   it to the default 700 units.
\# *Notes:
\#   \*[BOLDER] allows pseudo-emboldening of a font where no bold
\#   font exists in a particular family.
\#
\#   Default for SETBOLDER is 700 units.  Do not use unit of measure
\#   with arg to SETBOLDER.
\#
.nr #BOLDER_UNITS 700
\#
.MAC SETBOLDER END
.    if \\n[#IGNORE]=1 \{ .return \}
.    ie '\\$1'RESET' \{ .nr #BOLDER_UNITS 700 \}
.    el \{ .nr #BOLDER_UNITS \\$1 \}
.END
\#
\#
.MAC BOLDER END
\c
.bd \\n(.f \\n[#BOLDER_UNITS]
.END
\#
\#
.MAC BOLDERX END
\c
.bd \\n(.f
.END
\#
\# +++CONDENSE/EXTEND+++
\#
\# CONDENSE/EXTEND
\# ---------------
\# *Arguments:
\#   <percentage to condense/expand type size>
\# *Function:
\#   Stores current point size in z's in #PT_SIZE_IN_UNITS, figures out
\#   new point size (for character width) from arg, and defines string
\#   COND or EXT, which set the type size to the new character width,
\#   and sets the height of type to the value stored in CURRENT_PT_SIZE
\# *Notes:
\#   CONDENSE_OR_EXTEND is invoked from the aliases
\#   CONDENSE and EXTEND.  CONDENSE implies <100, EXTEND
\#   implies >100.  Do not use a percent sign in the argument.
\#
\#   There is no default setting for CONDENSE or EXTEND.
\#   80 is a good approximation of condensed type, 120 is okay
\#   for extended.
\#
\#   The value set by CONDENSE or EXTEND applies to all
\#   subsequent \*[COND] or \*[EXT] escapes until a new value is set.
\#
\#  \*[COND] or \*[EXT] must be turned off before all changes of point
\#  size and reinvoked afterwards (if so desired).  This refers to
\#  changes of point size via control lines AND with via inlines.
\#
.MAC CONDENSE_OR_EXTEND END
.    if '\\$0'CONDENSE' \{\
.       ds $COND_PERCENT \\$1
.       if \\n[#PRINT_STYLE]=1 \{\
.          rm $COND_PERCENT
.          ds $COND_PERCENT 100
.       \}
.       ds COND \
\R'#PT_SIZE_IN_UNITS \En[.ps]'\
\R'#CONDENSE 1'\
\R'#COND_WIDTH (\En[#PT_SIZE_IN_UNITS]u*\E*[$COND_PERCENT]u)/100'\
\Es[\En[#COND_WIDTH]u]\EH'\En[#PT_SIZE_IN_UNITS]u'
.       ds COND_FOR_SUP \
\R'#COND_WIDTH (\En[#SUP_PT_SIZE]u*\E*[$COND_PERCENT]u)/100'\
\Es[\En[#COND_WIDTH]u]\H'\En[#SUP_PT_SIZE]u'
.    \}
.    if '\\$0'EXTEND' \{\
.       ds $EXT_PERCENT \\$1
.       if \\n[#PRINT_STYLE]=1 \{\
.          rm $EXT_PERCENT
.          ds $EXT_PERCENT 100
.       \}
.       ds EXT \
\R'#PT_SIZE_IN_UNITS \En[.ps]'\
\R'#EXTEND 1'\
\R'#EXT_WIDTH (\En[#PT_SIZE_IN_UNITS]u*\E*[$EXT_PERCENT]u)/100'\
\Es[\En[#EXT_WIDTH]u]\EH'\En[#PT_SIZE_IN_UNITS]u'
.       ds EXT_FOR_SUP \
\R'#EXT_WIDTH (\En[#SUP_PT_SIZE]u*\E*[$EXT_PERCENT]u)/100'\
\Es[\En[#EXT_WIDTH]u]\H'\En[#EXT_PT_SIZE]u'
.    \}
.END
\#
.ds CONDX \ER'#CONDENSE 0'\Es0\R'#PT_SIZE_IN_UNITS \En[.ps]'\H'\En[#PT_SIZE_IN_UNITS]u'
.ds EXTX  \ER'#EXTEND   0'\Es0\R'#PT_SIZE_IN_UNITS \En[.ps]'\H'\En[#PT_SIZE_IN_UNITS]u'
\#
\#
\# +++PAD LINES+++ (insert space)
\#
\# PAD MARKER
\# ----------
\# *Arguments:
\#   <character to use for marking pad points>
\# *Function:
\#   Defines string $PAD_MARKER, used in PAD
\# *Notes:
\#   $PAD_MARKER is normally # (the pound sign).
\#
.MAC PAD_MARKER END
.    ds $PAD_MARKER \\$1
.END
\#
\#
\# PAD
\# ---
\# *Argments:
\#   "<string of text with padding markers inserted>"
\# *Function:
\#   Defines and redefines padding character (default=pound sign
\#   unless padding character has been set with PAD_MARKER)
\#   several times so that when the string is output at the end
\#   of the macro, every # has been converted to an equal-sized
\#   amount of padding (blank space) on a line. # is equivalent to
\#   CompuGraphic's old <IS>.
\# *Notes:
\#   String tabs may be marked off during PAD.
\#
.MAC PAD END
.    if \\n(.u=1 \{ .nr #FILL_MODE 1 \}
.    nf
.    if !d$PAD_MARKER .ds $PAD_MARKER #
.    char \\*[$PAD_MARKER] \R'#PAD_COUNT \En[#PAD_COUNT]+1'
.    ds $FAMILY_FOR_PAD \\n[.fam]
.    fp \\n[.fp] \\n[.sty]
.    ds $FONT_FOR_PAD   \\*[$FONT]
.    nr #SIZE_FOR_PAD   \\n[.ps]
.    ds $PAD_STRING \\$1
.    as $PAD_STRING \Ekp
.    di PAD_STRING
.    fam \\*[$FAMILY_FOR_PAD]
\\f[\\*[$FONT_FOR_PAD]]\\s[\\n[#SIZE_FOR_PAD]u]\\*[$PAD_STRING]
.    br
.    di
.    char \\*[$PAD_MARKER] \R'#SPACE_TO_END \En(.l-\Enp'\R'#PAD_SPACE \En[#SPACE_TO_END]/\En[#PAD_COUNT]'
.    di PAD_STRING
.    fam \\*[$FAMILY_FOR_PAD]
\\f]\\*[$FONT_FOR_PAD]]\\s[\\n[#SIZE_FOR_PAD]u]\\*[$PAD_STRING]
.    br
.    di
.    char \\*[$PAD_MARKER] \h'\En[#PAD_SPACE]u'
.    ie \\n[#SILENT] \{\
.       SILENT
.       fam \\*[$FAMILY_FOR_PAD]
\\f[\\*[$FONT_FOR_PAD]]\\s[\\n[#SIZE_FOR_PAD]u]\\*[$PAD_STRING]
.       br
.       SILENT OFF
.    \}
.    el \{\
.       fam \\*[$FAMILY_FOR_PAD]
\\f[\\*[$FONT_FOR_PAD]]\\s[\\n[#SIZE_FOR_PAD]u]\\*[$PAD_STRING]
.       br
.    \}
.    if \\n[#FILL_MODE]=1 \{\
.       fi
.       rr #FILL_MODE
.    \}
.    rr #PAD_COUNT
.    rr #SPACE_TO_END
.    rr #PAD_SPACE
.    rm $PAD_STRING
.    rm PAD_STRING
.    rchar #
.    if '\\$2'NOBREAK' \{\
.       TRAP OFF
.       EOL
.       TRAP
.    \}
.END
\#
\#
\# +++LEADERS+++
\#
\# The leader mechanism is primitive, but it works.  Basically, every
\# macro in this set that includes a line length also sets a single
\# groff tab stop at the right hand end of the line.  That way,
\# whenever Ctrl-A is invoked (always at the end of an input line),
\# leader of the correct length gets deposited.  Ctrl-A is accessed by
\# the string LEADER (i.e. inline, as \*[LEADER]).  Leaders within tabs
\# get their length from the tab line length.
\#
\# SET LEADER CHARACTER
\# --------------------
\# *Arguments:
\#   <character to use whenever \*[LEADER] is invoked>
\# *Function:
\#   Set leader character.
\#
.MAC LEADER_CHARACTER END
.    lc \\$1
.END
\#
.ds LEADER \ 1
\#
\# +++DROP CAPS+++
\#
\# DROP CAP FAMILY
\# ---------------
\# *Argument:
\#   <family of drop cap>
\# *Function:
\#   Creates or modifies string $DC_FAM.
\#
.MAC DROPCAP_FAMILY END
.    ds $DC_FAM \\$1
.END
\#
\#
\# DROP CAP FONT
\# -------------
\# *Argument:
\#   <font of drop cap>
\# *Function:
\#   Creates or modifies string $DC_FT.
\#
.MAC DROPCAP_FONT END
.    ds $DC_FT \\$1
.END
\#
\#
\# DROPCAP COLOR
\# -------------
\# *Arguments:
\#   <pre-defined XCOLOR or NEWCOLOR>
\# *Function:
\#   Defines string $DC_COLOR to argument.
\# *Notes:
\#   User must define an XCOLOR or NEWCOLOR before using
\#   DC_COLOR.
\#
.MAC DROPCAP_COLOR END
.    if \\n[#PRINT_STYLE]=1 \{ .return \}
.    nr #DC_COLOR 1
.    ds $DC_COLOR \\$1
.END
\#
\#
\# DROP CAP GUTTER
\# ---------------
\# *Argument:
\#   <width of gutter between drop cap and indented text>
\# *Function:
\#   Creates or modifies register #DC_GUT.
\# *Notes:
\#   Requires unit of measure.  Default is 3p.
\#
.MAC DROPCAP_GUTTER END
.    nr #DC_GUT (\\$1)
.END
\#
\#
\# DROP CAP ADJUST
\# ---------------
\# *Argument:
\#   <+|- # of points to in/decrease point size of drop cap letter>
\# *Function:
\#   Creates or modifies string $DC_ADJUST.
\# *Notes:
\#   Despite its best efforts, DROPCAP doesn't always get the point
\#   size of the drop cap critically perfect.  DROPCAP_ADJUST lets
\#   the user add or subtract points (or fractions of points) to
\#   get the size right.
\#
\#   Requires the + or - sign.
\#
.MAC DROPCAP_ADJUST END
.    ds $DC_ADJUST \\$1
.END
\#
\#
\# DROP CAP
\# --------
\# *Arguments:
\#   <dropcap letter> <# of lines> [COND <% to condense> | EXT <% to extend>]
\# *Function:
\#   Calculates point size of dropcap based on # of lines passed as
\#   arg 2.  Sets indent for text based on dropcap width+gutter.
\#   Advances and prints dropcap; reverses and prints indented text
\#   to bottom of dropcap, then resets indent to left margin (plus
\#   any indent that was in effect prior to invoking DROPCAP).
\# *Notes:
\#   Drop caps put a strain on on resource-challenged systems.
\#
\#   Drop caps when using the doc processing macro PP only work with
\#   initial paragraphs (i.e. at doc start, or after heads), only when
\#   DROPCAPS comes immediately after PP, and only when the PRINTSTYLE
\#   is TYPESET.  If these conditions aren't met, DROPCAPS is silently
\#   ignored.
\#
\#   The COND or EXT argument are processed separately from all
\#   other COND or EXT inlines or macros, hence passing COND or
\#   EXT has no effect on running type.
\#
.MAC DROPCAP END
.    if \\n[#IGNORE]=1 \{\
.       PRINT \\$1\c
.       return
.    \}
.    br
.    if n \{\
.       PRINT \\$1\c
.       return
.    \}
.    if \\n[#DOCS] \{\
.       if \\n[#PRINT_STYLE]=1 \{\
.       PRINT \\$1\c
.       return
.    \}
.       if \\n[#PRINT_STYLE]=2 \{\
.          if \\n[#PP_STYLE]=2 \{\
.             PRINT \\$1\c
.             return
.          \}
.          if \\n[#PP]>1 \{\
.             PRINT \\$1\c
.             return
.          \}
.          ti 0
.       \}
.    \}
.    ds $DROPCAP         \\$1
.    nr #DC_LINES        \\$2-1
.    if \\n[#CONDENSE]=1 \{\
.       ds $RESTORE_COND \\*[$COND_PERCENT]
\\*[CONDX]
.       nr #CONDENSE_WAS_ON 1
.    \}
.    if \\n[#EXTEND]=1 \{\
.       ds $RESTORE_EXT \\*[$EXT_PERCENT]
\\*[EXTX]
.       nr #EXTEND_WAS_ON 1
.    \}
.    if '\\$3'COND'      \{ .CONDENSE \\$4 \}
.    if '\\$3'EXT'       \{ .EXTEND \\$4 \}
.    if !r#DC_GUT        \{ .nr #DC_GUT (3p) \}
.    ds $RESTORE_FAM     \\n[.fam]
.    ds $RESTORE_FT      \\*[$FONT]
.    nr #RESTORE_PT_SIZE \\n[#PT_SIZE]
.    nr #RESTORE_INDENT  \\n(.i
.    SIZESPECS
.    nr #DC_HEIGHT \\n[#DC_LINES]*\\n[#LEAD]+\\n[#CAP_HEIGHT]
.    ie !d$DC_FAM \{ .FAM \\n[.fam] \}
.    el \{ .FAM \\*[$DC_FAM] \}
.    ie !d$DC_FT \{ .FT \\*[$FONT] \}
.    el \{ .FT \\*[$DC_FT] \}
.    while \\n[#GET_DC_HEIGHT]<\\n[#DC_HEIGHT] \{\
.       ps \\n[#PT_SIZE]u+100u
.       SIZESPECS
.       nr #GET_DC_HEIGHT \\n[#CAP_HEIGHT]
.\}
.    if d$DC_ADJUST \{ .ps \\*[$DC_ADJUST]p \}
.    mk x
.    sp \\n[#DC_LINES]v
.    if \\n[#DOCS]=1 \{ .SHIM \}
.    ie \\n[#DC_COLOR]=1 \{\
.       ie !'\\$3'' \{\
.          ie '\\$3'COND' \{ .PRINT \m[\\*[$DC_COLOR]]\\*[COND]\\*[$DROPCAP]\\*[CONDX]\m[] \}
.          el \{ .PRINT \m[\\*[$DC_COLOR]]\\*[EXT]\\*[$DROPCAP]\\*[EXTX]\m[] \}
.       \}
.       el \{ .PRINT \m[\\*[$DC_COLOR]]\\*[$DROPCAP]\m[] \}
.    \}
.    el \{\
.       ie !'\\$3'' \{\
.          ie '\\$3'COND' \{ .PRINT \\*[COND]\\*[$DROPCAP]\\*[CONDX] \}
.          el \{ .PRINT \\*[EXT]\\*[$DROPCAP]\\*[EXTX] \}
.       \}
.       el \{ .PRINT \m[\\*[$DC_COLOR]]\\*[$DROPCAP]\m[] \}
.    \}
.    if '\\$3'COND' \{ \E*[COND] \}
.    if '\\$3'EXT'  \{ \E*[EXT]  \}
.    ie \\n(.i \{ .in +\w'\\*[$DROPCAP]'u+\\n[#DC_GUT]u \}
.    el        \{ .in \w'\\*[$DROPCAP]'u+\\n[#DC_GUT]u \}
.    if '\\$3'COND' \{ \E*[CONDX]\c \}
.    if '\\$3'EXT'  \{ \E*[EXTX]\c \}
.    rt \\nxu
.    FAM \\*[$RESTORE_FAM]
.    FT  \\*[$RESTORE_FT]
.    ps \\n[#RESTORE_PT_SIZE]u
.    if \\n[#CONDENSE_WAS_ON] \{\
.       CONDENSE \\*[$RESTORE_COND]
\\*[COND]\c
.    \}
.    if \\n[#EXTEND_WAS_ON] \{\
.       EXTEND \\*[$RESTORE_EXT]
\\*[EXT]\c
.    \}
.    ie \\n(.u \{ .wh \\n(.du+\\n[#DC_HEIGHT]u-1v DROPCAP_OFF \}
.    el \{ .wh \\n(.du+\\n[#DC_HEIGHT]u DROPCAP_OFF \}
.    rr #CONDENSE_WAS_ON
.    rr #EXTEND_WAS_ON
.    rm $DROPCAP
.    rr #DC_LINES
.    rm $RESTORE_COND
.    rm $RESTORE_EXT
.    rm $RESTORE_FAM
.    rm $RESTORE_FT
.    rr #RESTORE_PT_SIZE
.    rr #RESTORE_INDENT
.    rr #DC_HEIGHT
.    rr #GET_DC_HEIGHT
.    rr x
.END
\#
.MAC DROPCAP_OFF END
'    in \\n[#RESTORE_INDENT]u
.END
\#
\# =====================================================================
\#
\# +++GRAPHICAL OBJECTS+++
\#
\# HORIZONTAL RULE - DRH
\# ---------------------
\# *Arguments:
\#   <none> | <rule weight> <indent> <length> [ <color> ]
\# *Function:
\#   With no arg, draws a full measure rule.  With args, draws
\#   described horizontal rule.
\# *Notes:
\#   Rules are drawn left-to-right, from the baseline down, and
\#   return to their point of origin.  Color must be set in the
\#   macro; otherwise the color will be black, regardless of current
\#   .gcolor.  If no arg given, the rule weight is the one set by
\#   RULE_WEIGHT.
\#
.MAC DRH END
.    if \\n[.vpt]=1 \{\
.       vpt 0
.       nr #RESTORE_TRAP 1
.    \}
.    ie !\\n[#NO_ADVANCE]=1 \{ .br \}
.    el \{\
.       sp -1v
.       rr #NO_ADVANCE
.    \}
.    ie \\n(.u=1 \{\
.       nr #FILLED 1
.       nr #FILL_MODE \\n(.j
.    \}
.    el \{\
.       nr #NOFILL 1
.       if \\n[.ce]>0 \{ .nr #NOFILL_MODE 3 \}
.       if \\n[.rj]>0 \{ .nr #NOFILL_MODE 5 \}
.       ce 0
.       rj 0
.    \}
.    nf
.    ds $RL_WEIGHT \\$1
.    ds $RL_INDENT \\$2
.    ds $RL_LENGTH \\$3
.    ie !'\\$4'' \{\
.       ds $RL_COLOR  \\$4
.    \}
.    el \{\
.       ds $RL_COLOR default
.    \}
.    nr #SAVED_WEIGHT     \\n[#RULE_WEIGHT]
.    nr #SAVED_WEIGHT_ADJ \\n[#RULE_WEIGHT_ADJ]
.    di NULL
.       if \\n[#NUM_ARGS]>=1 \{ .RULE_WEIGHT \\*[$RL_WEIGHT] \}
.    di
.    gcolor \\*[$RL_COLOR]
.    ie \\n[#NUM_ARGS]=0 \{\
.       ie \\n[#INDENT_ACTIVE] \{\
.          nr #RESTORE_L_LENGTH \\n(.l
.          if \\n[#INDENT_BOTH_ACTIVE] \{ .ll \\n(.lu-\\n[#BL_INDENT]u \}
.          if \\n[#INDENT_LEFT_ACTIVE] \{ .ll \\n(.lu-\\n[#L_INDENT]u \}
\D't \\n[#RULE_WEIGHT]'\
\h'\\*[$RL_INDENT]-\\n[#RULE_WEIGHT]u'\
\v'\\n[#RULE_WEIGHT_ADJ]u'\
\D'l \En(.lu 0'\v'-\\n[#RULE_WEIGHT_ADJ]u'\
\v'-\\n[#RULE_WEIGHT_ADJ]u'\
\D't \\n[#SAVED_RULE_WEIGHT]'
.          ll \\n[#RESTORE_L_LENGTH]u
.          rr #RESTORE_L_LENGTH
.       \}
.       el \{\
\D't \\n[#RULE_WEIGHT]'\
\h'\\*[$RL_INDENT]-\\n[#RULE_WEIGHT]u'\
\v'\\n[#RULE_WEIGHT_ADJ]u'\
\D'l \En(.lu 0'\v'-\\n[#RULE_WEIGHT_ADJ]u'\
\v'-\\n[#RULE_WEIGHT_ADJ]u'\
\D't \\n[#SAVED_RULE_WEIGHT]'
.       \}
.    \}
.    el \{\
\D't \\n[#RULE_WEIGHT]'\
\h'\\*[$RL_INDENT]-\\n[#RULE_WEIGHT]u'\
\v'\\n[#RULE_WEIGHT_ADJ]u'\
\D'l \\*[$RL_LENGTH] 0'\
\v'-\\n[#RULE_WEIGHT_ADJ]u'\
\D't \\n[#SAVED_RULE_WEIGHT]'
.    \}
.    if \\n[#FILLED]=1 \{\
.       if \\n[#FILL_MODE]=0 \{ .QUAD LEFT   \}
.       if \\n[#FILL_MODE]=1 \{ .JUSTIFY     \}
.       if \\n[#FILL_MODE]=3 \{ .QUAD CENTER \}
.       if \\n[#FILL_MODE]=5 \{ .QUAD RIGHT  \}
.       rr #FILLED
.    \}
.    sp -1v
.    if \\n[#NOFILL]=1 \{\
.       if \\n[#NOFILL_MODE]=3 \{ .CENTER \}
.       if \\n[#NOFILL_MODE]=5 \{ .RIGHT  \}
.    \}
.    gcolor
.    nr #RULE_WEIGHT     \\n[#SAVED_WEIGHT]
.    nr #RULE_WEIGHT_ADJ \\n[#SAVED_WEIGHT_ADJ]
.    rr #SAVED_WEIGHT
.    rr #SAVED_WEIGHT_ADJ
.    if \\n[#RESTORE_TRAP]=1 \{\
.       vpt 1
.       rr #RESTORE_TRAP
.    \}
.END
\#
\#
\# RULE
\# ----
\# *Argument:
\#   <none>
\# *Function:
\#   Draws a rule the length of the current measure.
\# *Notes:
\#   A convenience macro.  DRV does the same thing.  Kept in for
\#   backward compatibility.
\#
.MAC RULE END
.    if \\n(.u=1 \{\
.       nr #FILLED 1
.       ds $CURRENT_QUAD \\*[$QUAD_VALUE]
.       nf
.    \}
.    ie \\n[#INDENT_ACTIVE] \{\
.       if \\n[#INDENT_BOTH_ACTIVE] \{ .ll \\n(.lu-\\n[#BL_INDENT]u \}
.       if \\n[#INDENT_LEFT_ACTIVE] \{ .ll \\n(.lu-\\n[#L_INDENT]u \}
.       PRINT \D't \\n[#RULE_WEIGHT]'\v'\\n[#RULE_WEIGHT_ADJ]u'\D'l \En(.lu 0'\v'-\\n[#RULE_WEIGHT_ADJ]u'\h'|0'\c
.       ll
.       rr #RESTORE_L_LENGTH
.    \}
.    el \{\
.       PRINT \D't \\n[#RULE_WEIGHT]'\v'\\n[#RULE_WEIGHT_ADJ]u'\D'l \En(.lu 0'\v'-\\n[#RULE_WEIGHT_ADJ]u'\h'|0'\c
.    \}
.    if r#FILLED \{\
.       fi
.       rr #FILLED
.       QUAD \\*[$CURRENT_QUAD]
.       rm $CURRENT_QUAD
.    \}
.    EOL
.END
\#
\#
\# VERTICAL RULE - DRV
\# -------------------
\# *Arguments:
\#   <rule weight> <indent> <depth> [ <color> ]
\# *Function:
\#   Draws described vertical rule.
\# *Notes:
\#   Rules are drawn left-to-right, from the baseline down, and
\#   return to their point of origin.  Color must be set in the
\#   macro; otherwise the color will be black, regardless of current
\#   .gcolor.
\#
.MAC DRV END
.    if \\n[.vpt]=1 \{\
.       vpt 0
.       nr #RESTORE_TRAP 1
.    \}
.    ie !\\n[#NO_ADVANCE]=1 \{ .br \}
.    el \{\
.       sp -1v
.       rr #NO_ADVANCE
.    \}
.    ie \\n(.u=1 \{\
.       nr #FILLED 1
.       nr #FILL_MODE \\n(.j
.    \}
.    el \{\
.       nr #NOFILL 1
.       if \\n[.ce]>0 \{ .nr #NOFILL_MODE 3 \}
.       if \\n[.rj]>0 \{ .nr #NOFILL_MODE 5 \}
.       ce 0
.       rj 0
.    \}
.    nf
.    ds $RL_WEIGHT \\$1
.    ds $RL_INDENT \\$2
.    ds $RL_DEPTH  \\$3
.    ie !'\\$4'' \{\
.       ds $RL_COLOR  \\$4
.    \}
.    el \{\
.       ds $RL_COLOR default
.    \}
.    nr #SAVED_WEIGHT     \\n[#RULE_WEIGHT]
.    nr #SAVED_WEIGHT_ADJ \\n[#RULE_WEIGHT_ADJ]
.    di NULL
.       RULE_WEIGHT \\*[$RL_WEIGHT]
.    di
.    gcolor \\*[$RL_COLOR]
\D't \\n[#RULE_WEIGHT]'\
\h'\\*[$RL_INDENT]-\\n[#RULE_WEIGHT_ADJ]u'\
\D'l 0 \\*[$RL_DEPTH]'\
\D't \\n[#SAVED_RULE_WEIGHT]'
.    if \\n[#FILLED]=1 \{\
.       if \\n[#FILL_MODE]=0 \{ .QUAD LEFT   \}
.       if \\n[#FILL_MODE]=1 \{ .JUSTIFY     \}
.       if \\n[#FILL_MODE]=3 \{ .QUAD CENTER \}
.       if \\n[#FILL_MODE]=5 \{ .QUAD RIGHT  \}
.       rr #FILLED
.    \}
.    sp -1v
.    if \\n[#NOFILL]=1 \{\
.       if \\n[#NOFILL_MODE]=3 \{ .CENTER \}
.       if \\n[#NOFILL_MODE]=5 \{ .RIGHT  \}
.    \}
.    gcolor
.    nr #RULE_WEIGHT     \\n[#SAVED_WEIGHT]
.    nr #RULE_WEIGHT_ADJ \\n[#SAVED_WEIGHT_ADJ]
.    if \\n[#RESTORE_TRAP]=1 \{\
.       vpt 1
.       rr #RESTORE_TRAP
.    \}
.END
\#
\# BOXES - DBX
\# -----------
\# *Arguments:
\#   <rule weight | SOLID> <indent> <length> <depth> [ <color> ]
\# *Function:
\#   Draws described box.
\# *Notes:
\#   Boxes are drawn left-to-right, from the baseline down, and
\#   return to their point of origin.  Box rules are drawn from the
\#   perimeter inwards.  Color must be set in the macro; otherwise
\#   the color will be black, regardless of current .gcolor.  If no
\#   arg given, the rule weight is the one set by RULE_WEIGHT.
\#
.MAC DBX END
.    if \\n[.vpt]=1 \{\
.       vpt 0
.       nr #RESTORE_TRAP 1
.    \}
.    ie !\\n[#NO_ADVANCE]=1 \{ .br \}
.    el \{\
.       sp -1v
.       rr #NO_ADVANCE
.    \}
.    ie \\n(.u=1 \{\
.       nr #FILLED 1
.       nr #FILL_MODE \\n(.j
.    \}
.    el \{\
.       nr #NOFILL 1
.       if \\n[.ce]>0 \{ .nr #NOFILL_MODE 3 \}
.       if \\n[.rj]>0 \{ .nr #NOFILL_MODE 5 \}
.       ce 0
.       rj 0
.    \}
.    nf
.    ie '\\$1'SOLID' \{\
.       nr #BX_SOLID 1
.    \}
.    el \{\
.       ds $BX_WEIGHT \\$1
.    \}
.    ds $BX_INDENT \\$2
.    ds $BX_WIDTH \\$3
.    ds $BX_DEPTH  \\$4
.    ie !'\\$5'' \{\
.       ie d$\\$5_FILL \{\
.          ds $BX_COLOR \\*[$\\$5_FILL]
.       \}
.       el \{\
.          ds $BX_COLOR \\$5
.       \}
.    \}
.    el \{\
.       ds $BX_COLOR default
.    \}
.    nr #SAVED_WEIGHT     \\n[#RULE_WEIGHT]
.    nr #SAVED_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.    if !'\\$1'SOLID' \{\
.       di NULL
.          RULE_WEIGHT \\*[$BX_WEIGHT]
.       di
.    \}
.    ds $BX_INDENT \\*[$BX_INDENT]-\\n[#WEIGHT_ADJ]u
.    ie \\n[#BX_SOLID]=1 \{\
.       fcolor \\*[$BX_COLOR]
\h'\\*[$BX_INDENT]'\
\D'P \\*[$BX_WIDTH] 0 0 \\*[$BX_DEPTH] -\\*[$BX_WIDTH] 0 0 -\\*[$BX_DEPTH]'
.       fcolor
.       rr #BX_SOLID
.    \}
.    el \{\
.       gcolor \\*[$BX_COLOR]
\D't \\n[#RULE_WEIGHT]'\
\h'\\*[$BX_INDENT]'\
\v'\\n[#WEIGHT_ADJ]u'\
\D'p \\*[$BX_WIDTH]-\\n[#RULE_WEIGHT]u 0 0 \\*[$BX_DEPTH]-\\n[#RULE_WEIGHT]u -\\*[$BX_WIDTH]+\\n[#RULE_WEIGHT]u 0 0 -\\*[$BX_DEPTH]+\\n[#RULE_WEIGHT]u'\
\v'-\\n[#WEIGHT_ADJ]u'\
\D't \\n[#SAVED_RULE_WEIGHT]'
.       gcolor
.    \}
.    sp -1v
.    if \\n[#FILLED]=1 \{\
.       if \\n[#FILL_MODE]=0 \{ .QUAD LEFT   \}
.       if \\n[#FILL_MODE]=1 \{ .JUSTIFY     \}
.       if \\n[#FILL_MODE]=3 \{ .QUAD CENTER \}
.       if \\n[#FILL_MODE]=5 \{ .QUAD RIGHT  \}
.       rr #FILLED
.    \}
.    if \\n[#NOFILL]=1 \{\
.       if \\n[#NOFILL_MODE]=3 \{ .CENTER \}
.       if \\n[#NOFILL_MODE]=5 \{ .RIGHT  \}
.    \}
.    nr #RULE_WEIGHT \\n[#SAVED_WEIGHT]
.    nr #WEIGHT_ADJ  \\n[#SAVED_WEIGHT_ADJ]
.    rr #SAVED_WEIGHT
.    rr #SAVED_WEIGHT_ADJ
.    if \\n[#RESTORE_TRAP]=1 \{\
.       vpt 1
.       rr #RESTORE_TRAP
.    \}
.END
\#
\#
\# ELLIPSES - DCL
\# --------------
\# *Arguments:
\#   <rule weight | SOLID> <indent> <width> <depth> [ <color> ]
\# *Function:
\#   Draws described ellipses.
\# *Notes:
\#   Ellipses (circles) are drawn left-to-right, from the baseline
\#   down, and return to their point of origin.  Ellipse rules are
\#   drawn from the perimeter inwards.  Color must be set in the
\#   macro; otherwise the color will be black, regardless of current
\#   .gcolor.  If no arg given, the rule weight is the one set by
\#   RULE_WEIGHT.
\#
.MAC DCL END
.    if \\n[.vpt]=1 \{\
.       vpt 0
.       nr #RESTORE_TRAP 1
.    \}
.    ie !\\n[#NO_ADVANCE]=1 \{ .br \}
.    el \{\
.       sp -1v
.       rr #NO_ADVANCE
.    \}
.    ie \\n(.u=1 \{\
.       nr #FILLED 1
.       nr #FILL_MODE \\n(.j
.    \}
.    el \{\
.       nr #NOFILL 1
.       if \\n[.ce]>0 \{ .nr #NOFILL_MODE 3 \}
.       if \\n[.rj]>0 \{ .nr #NOFILL_MODE 5 \}
.       ce 0
.       rj 0
.    \}
.    nf
.    ie '\\$1'SOLID' \{\
.       nr #CL_SOLID 1
.    \}
.    el \{\
.       ds $CL_WEIGHT \\$1
.    \}
.    ds $CL_INDENT \\$2
.    ds $CL_WIDTH  \\$3
.    ds $CL_DEPTH  \\$4
.    ie !'\\$5'' \{\
.       ie d$\\$5_FILL \{\
.          ds $CL_COLOR \\*[$\\$5_FILL]
.       \}
.       el \{\
.          ds $CL_COLOR \\$5
.       \}
.    \}
.    el \{\
.       ds $CL_COLOR default
.    \}
.    nr #SAVED_WEIGHT     \\n[#RULE_WEIGHT]
.    nr #SAVED_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.    if !'\\$1'SOLID' \{\
.       di NULL
.          RULE_WEIGHT \\*[$CL_WEIGHT]
.       di
.    \}
.    ds $CL_INDENT \\*[$CL_INDENT]-\\n[#WEIGHT_ADJ]u
.    ie \\n[#CL_SOLID]=1 \{\
.       fcolor \\*[$CL_COLOR]
\h'\\*[$CL_INDENT]'\
\v'\\*[$CL_DEPTH]/2u'\
\D'E \\*[$CL_WIDTH]-\\n[#RULE_WEIGHT]u \\*[$CL_DEPTH]-\\n[#RULE_WEIGHT]u'\
\v'-\\*[$CL_DEPTH]/2u'
.       fcolor
.       rr #CL_SOLID
.    \}
.    el \{\
.       gcolor \\*[$CL_COLOR]
\D't \\n[#RULE_WEIGHT]'\
\h'\\*[$CL_INDENT]'\
\v'\\*[$CL_DEPTH]/2u'\
\D'e \\*[$CL_WIDTH]-\\n[#RULE_WEIGHT]u \\*[$CL_DEPTH]-\\n[#RULE_WEIGHT]u'\
\v'-(\\*[$CL_DEPTH]/2u)'\
\D't \\n[#SAVED_RULE_WEIGHT]'
.       gcolor
.    \}
.    sp -1v
.    if \\n[#FILLED]=1 \{\
.       if \\n[#FILL_MODE]=0 \{ .QUAD LEFT   \}
.       if \\n[#FILL_MODE]=1 \{ .JUSTIFY     \}
.       if \\n[#FILL_MODE]=3 \{ .QUAD CENTER \}
.       if \\n[#FILL_MODE]=5 \{ .QUAD RIGHT  \}
.       rr #FILLED
.    \}
.    if \\n[#NOFILL]=1 \{\
.       if \\n[#NOFILL_MODE]=3 \{ .CENTER \}
.       if \\n[#NOFILL_MODE]=5 \{ .RIGHT  \}
.    \}
.    nr #RULE_WEIGHT \\n[#SAVED_WEIGHT]
.    nr #WEIGHT_ADJ  \\n[#SAVED_WEIGHT_ADJ]
.    rr #SAVED_WEIGHT
.    rr #SAVED_WEIGHT_ADJ
.    if \\n[#RESTORE_TRAP]=1 \{\
.       vpt 1
.       rr #RESTORE_TRAP
.    \}
.END
\#
\#
\# RULE WEIGHT
\# -----------
\# *Argument:
\#   <weight of rules in points>
\# *Function:
\#   Sets \D't <n>' to the correct number of machine units for the
\#   argument given in points.
\# *Notes:
\#   Decimal fractions are allowed.  Rule weight must be > 100.
\#
.MAC RULE_WEIGHT END
.    di NULL \" Diverted so there's no problem with breaks, spacing, etc.
.       ds $ARG \\$1
.       substring $ARG -1
.       if !\B'\\*[$ARG]' \{\
.             tm1 "[mom]: The argument to \\$0 must not have a unit of measure appended.
.             ab Aborting at \\$0, line \\n[.c].
.       \}
.       length #STR_LENGTH \\$1
.       ds $ARG \\$1
.       substring $ARG 0 0
.       ie '\\*[$ARG]'.' \{\
.          ds $ARG \\$1
.          substring $ARG 1 \\n[#STR_LENGTH]-1
.          nr #WEIGHT \\*[$ARG]*100
.          if (\\n[#WEIGHT]>=1000) \{\
.              while (\\n[#WEIGHT]>=1000) \{\
.                  nr #WEIGHT \\n[#WEIGHT]/10
.   \}
        \}
.       \}
.       el \{\
.          ds $ARG \\$1
.          substring $ARG 1 1
.          ie '\\*[$ARG]'.' \{\
.             ds $LHS \\$1
.             substring $LHS 0 0
.             ds $RHS \\$1
.             substring $RHS 2
.             nr #WEIGHT \\*[$LHS]\\*[$RHS]*100
.             if (\\n[#WEIGHT]>=10000) \{\
.                while (\\n[#WEIGHT]>=10000) \{\
.                   nr #WEIGHT \\n[#WEIGHT]/10
.   \}
.             \}
.          \}
.          el \{\
.             ie \\n[#STR_LENGTH]<=2 \{\
.                nr #WEIGHT \\$1*1000
.             \}
.             el \{\
.                ds $ARG \\$1
.                substring $ARG 2 2
.                ie !'\\*[$ARG]'.' \{\
.                   tm1 "[mom]: Invalid argument given to macro \\$0 at line \\n[.c].
.                   tm1 "       Rule weight must be > 100 points.
.                   tm1 "       Falling back to default weight .5 points.
.                   nr #WEIGHT 500
.                \}
.                el \{\
.                   ds $LHS \\$1
.                   substring $LHS 0 1
.                   ds $RHS \\$1
.                   substring $RHS 3
.                   nr #WEIGHT \\*[$LHS]\\*[$RHS]*1000
.                   if (\\n[#WEIGHT]>=100000) \{\
.                      while (\\n[#WEIGHT]>=100000) \{\
.                         nr #WEIGHT \\n[#WEIGHT]/10
.   \}
.                   \}
.                \}
.             \}
.          \}
.       \}
.       nr #WEIGHT_ADJ \\n[#WEIGHT]/2
.       if '\\$0'BIBLIOGRAPHY_STRING_UNDERLINE_WEIGHT' \{\
.          nr #BIB_STRING_UNDERLINE_WEIGHT     \\n[#WEIGHT]
.          nr #BIB_STRING_UNDERLINE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.       \}
.       if '\\$0'COVER_UNDERLINE_WEIGHT' \{\
.          nr #COVER_UNDERLINE_WEIGHT     \\n[#WEIGHT]
.          nr #COVER_UNDERLINE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.       \}
.       if '\\$0'DOCCOVER_UNDERLINE_WEIGHT' \{\
.          nr #DOCCOVER_UNDERLINE_WEIGHT     \\n[#WEIGHT]
.          nr #DOCCOVER_UNDERLINE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.       \}
.       if '\\$0'DOCTYPE_UNDERLINE_WEIGHT' \{\
.          nr #DOCTYPE_UNDERLINE_WEIGHT     \\n[#WEIGHT]
.          nr #DOCTYPE_UNDERLINE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.       \}
.       if '\\$0'ENDNOTE_STRING_UNDERLINE_WEIGHT' \{\
.          nr #EN_STRING_UNDERLINE_WEIGHT     \\n[#WEIGHT]
.          nr #EN_STRING_UNDERLINE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.       \}
.       if '\\$0'ENDNOTE_TITLE_UNDERLINE_WEIGHT' \{\
.          nr #EN_TITLE_UNDERLINE_WEIGHT     \\n[#WEIGHT]
.          nr #EN_TITLE_UNDERLINE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.       \}
.       if '\\$0'FOOTER_RULE_WEIGHT' \{\
.          nr #FOOTER_RULE_WEIGHT     \\n[#WEIGHT]
.          nr #FOOTER_RULE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.       \}
.       if '\\$0'FOOTNOTE_RULE_WEIGHT' \{\
.          nr #FN_RULE_WEIGHT     \\n[#WEIGHT]
.          nr #FN_RULE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.       \}
.       if '\\$0'HEAD_UNDERLINE_WEIGHT' \{\
.          nr #HEAD_UNDERLINE_WEIGHT     \\n[#WEIGHT]
.          nr #HEAD_UNDERLINE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.       \}
.       if '\\$0'HEADER_RULE_WEIGHT' \{\
.          nr #HEADER_RULE_WEIGHT     \\n[#WEIGHT]
.          nr #HEADER_RULE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.       \}
.       if '\\$0'RULE_WEIGHT' \{\
.          nr #RULE_WEIGHT     \\n[#WEIGHT]
.          nr #RULE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.       \}
.       if '\\$0'UNDERSCORE_WEIGHT' \{\
.          nr #UNDERSCORE_WEIGHT     \\n[#WEIGHT]
.          nr #UNDERSCORE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.       \}
.    di
.END
\#
\# Aliases
\# ~~~~~~~
.ALIAS BIBLIOGRAPHY_STRING_UNDERLINE_WEIGHT RULE_WEIGHT
.ALIAS COVER_UNDERLINE_WEIGHT               RULE_WEIGHT
.ALIAS DOCCOVER_UNDERLINE_WEIGHT            RULE_WEIGHT
.ALIAS DOCTYPE_UNDERLINE_WEIGHT             RULE_WEIGHT
.ALIAS ENDNOTE_STRING_UNDERLINE_WEIGHT      RULE_WEIGHT
.ALIAS ENDNOTE_TITLE_UNDERLINE_WEIGHT       RULE_WEIGHT
.ALIAS FOOTER_RULE_WEIGHT                   RULE_WEIGHT
.ALIAS FOOTNOTE_RULE_WEIGHT                 RULE_WEIGHT
.ALIAS HEAD_UNDERLINE_WEIGHT                RULE_WEIGHT
.ALIAS HEADER_RULE_WEIGHT                   RULE_WEIGHT
.ALIAS UNDERSCORE_WEIGHT                    RULE_WEIGHT
\#
\# Default rule weights
\# ~~~~~~~~~~~~~~~~~~~~
.nr #BIB_STRING_UNDERLINE_WEIGHT 500
.nr #COVER_UNDERLINE_WEIGHT      500
.nr #DOCCOVER_UNDERLINE_WEIGHT   500
.nr #DOCTYPE_UNDERLINE_WEIGHT    500
.nr #EN_STRING_UNDERLINE_WEIGHT  500
.nr #EN_TITLE_UNDERLINE_WEIGHT   500
.nr #FN_RULE_WEIGHT              500
.nr #FOOTER_RULE_WEIGHT          500
.nr #HEAD_UNDERLINE_WEIGHT       500
.nr #HEADER_RULE_WEIGHT          500
.nr #RULE_WEIGHT                 500
.nr #UNDERSCORE_WEIGHT           500
\#
.nr #BIB_STRING_UNDERLINE_WEIGHT_ADJ \\n[#BIB_STRING_UNDERLINE_WEIGHT]/2
.nr #COVER_UNDERLINE_WEIGHT_ADJ      \\n[#DOCTYPE_UNDERLINE_WEIGHT]/2
.nr #DOCCOVER_UNDERLINE_WEIGHT_ADJ   \\n[#DOCTYPE_RULE_WEIGHT]/2
.nr #DOCTYPE_UNDERLINE_WEIGHT_ADJ    \\n[#DOCTYPE_RULE_WEIGHT]/2
.nr #EN_STRING_UNDERLINE_WEIGHT_ADJ  \\n[#EN_STRING_UNDERLINE_WEIGHT]/2
.nr #EN_TITLE_UNDERLINE_WEIGHT_ADJ   \\n[#EN_STRING_UNDERLINE_WEIGHT]/2
.nr #FOOTER_RULE_WEIGHT_ADJ          \\n[#FOOTER_RULE_WEIGHT]/2
.nr #FN_RULE_WEIGHT_ADJ              \\n[#FN_RULE_WEIGHT]/2
.nr #HEAD_UNDERLINE_WEIGHT_ADJ       \\n[#HEAD_UNDERLINE_WEIGHT]/2
.nr #HEADER_RULE_WEIGHT_ADJ          \\n[#HEADER_RULE_WEIGHT]/2
.nr #RULE_WEIGHT_ADJ                 \\n[#RULE_WEIGHT]/2
.nr #UNDERSCORE_WEIGHT_ADJ           \\n[#UNDERSCORE_WEIGHT]/2
\#
\# Set default rule weight
\#
.di NULL
\D't 500'
.di
\#
\# =====================================================================
\#
\# +++WORD AND SENTENCE SPACING+++
\#
\# WORD SPACE CONTROL
\# ------------------
\# *Argument:
\#   <+|->wordspace | DEFAULT
\# *Function:
\#   Increases or decreases interword space by user supplied amount.
\#   If DEFAULT, value is set to 12 (groff default).
\# *Notes:
\#   $WS_CONSTANT is the groff default word space.
\#   $WS_VAR is the user supplied amount by which to in/decrease word space.
\#   $WS is a concatenation of WS_CONSTANT and WS_VAR.
\#
\#   Because the user supplied value requires a literal + or - sign,
\#   the macro argument is stored in a string.
\#
\#   \n[.sss] holds the current sentence space value.
\#
.MAC WS END
.    ds $WS_CONSTANT 12
.    ds $WS_VAR \\$1
.    ie '\\$1'DEFAULT' .ds $WS_VAR +0
.    el                .ds $WS (\\*[$WS_CONSTANT]\\*[$WS_VAR])
.    ie \\n[.sss]=12   \{ .ss \\*[$WS] 12 \}
.    el \{\
.       ss \\*[$WS] (\\*[$WS]\\*[$SS_VAR])
.       SS \\*[$SS_VAR]
.    \}
.END
\#
\#
\# SENTENCE SPACE CONTROL
\# ----------------------
\# *Argument:
\#   <+-sentencespace> | 0 | DEFAULT
\# *Function:
\#   Increases or decreases sentence space by user supplied amount.
\#   If 0, sentence spaces are ignored.  If DEFAULT, value is
\#   set to 12 (groff default).
\# *Notes:
\#   Because the user supplied value requires a literal + or - sign,
\#   the macro argument is stored in a string.
\#
\#   Sentence space applies only to input where sentences are separated
\#   by two spaces (and/or, in fill mode [FLUSH L|R|C or JUSTIFY], an EOL).
\#   Changing .SS when sentences are separated by only one space has
\#   no effect on the space between sentences.
\#
\#   \n[.ss] holds the current wordspace value.
\#   \n[.sss] holds the current sentence space value.
\#
.MAC SS END
.    ie '\\$1'0' \{ .ss \\n[.ss] (\\n[.ss]-\\n[.ss]) \}
.    el \{\
.       ie '\\$1'DEFAULT' \{ .ss \\n[.ss] \}
.       el \{\
.          ds $SS_VAR \\$1
.          ss \\n[.ss] (0\\*[$SS_VAR])
.       \}
.    \}
.END
\#
\#
\# =====================================================================
\#
\# +++INDENTS+++
\#
\# There are five styles of indents: left, right, both, temporary,
\# and hanging.  Each is set/invoked with a different macro.
\# Indent macros begin with the letter "I", hence .IL means "indent left,"
\# .IR means "indent right," and so on.
\# 
\# The first time any of the indent macros is used, it requires an
\# argument--the size of the indent (with a unit of measure).  The
\# size may also be entered using the \w escape--very useful
\# for numbered lists using HI.  The unit of measure is required.
\# Subsequent invocations don't require the argument; the indent
\# measure remains the same until it's changed by invoking the macro
\# with an argument again.
\# 
\# If no indents are in effect, the arguments passed to indent macros are
\# measured from the left and right margins of the page.  If a left indent
\# or a right indent is already in effect, the arguments passed to
\# the indent macros are calculated from the current values; in other words,
\# the arguments are additive.  If you quit an indent and later return
\# to it, its value will be the value last in effect, unless you pass
\# it an argument.  If you do pass an argument, it is added to the last
\# value in effect, unless you cleared the indent with one of
\# .I<LRB>X/Q macros.
\# 
\# Example
\# -------
\# 
\# .IL 2P
\# ...some text...
\# .IL 2P
\# ...some text...
\# .IQ
\# ...some text...
\# .IL
\# ...some text...
\# 
\# The first .IL 2P indents text 2P from the left margin.  The second
\# .IL 2P indents text by an additional 2P, i.e. 4P from the left margin.
\# .IQ turns the indent off.  The last .IL (which has no argument)
\# takes its value from the total of all arguments passed to .IL (in
\# this case, 2P and 2P), therefore it indents 2P+2P from the left
\# margin, i.e. 4P.  If you wanted the last .IL to indent just 2P,
\# you'd either have to reset the .IL prior to .IQ (.IL -2P), or pass
\# the last .IL the argument 2P.
\# 
\# To reverse the sense of an indent added to an indent, you may use
\# negative values.
\# 
\# Indents can be turned off individually with ILX, IRX, and IBX.
\# LEFT and RIGHT indents may be combined and manipulated
\# separately, (e.g. you can have an IL of 2P and an IR of 4P
\# operative at the same time, and then change, say, the IL to
\# 4P--thereby left indenting 6P--while the IR remains at 4P.
\# 
\# IB automatically turns off IL and IR.  They have to be reinvoked
\# again when needed. IL and IR automatically turn IB off; it, too,
\# has to be reinvoked with needed.
\# 
\# All indents can be turned off at once with IQ.  The ILX, IRX, IBX,
\# and IQ macros simply turn the indents off; the values stored in
\# the respective indent macros (IL, IR, IB) remain in effect.  If
\# the user wishes to clear the values, the I<LRB>X macros should be
\# invoked with the single argument CLEAR.  IQ CLEAR clears out
\# the values stored for all indent styles.
\# 
\# Indents *must* be turned off before settting string tabs
\# inside PAD.  Generally, in order not to get confused, it's a
\# good idea to turn all indents off before setting any tabs.
\# 
\# TI and HI are special cases.  There's no need to turn them off,
\# since they affect only one line--the first after their
\# invocation.  Like the other indent styles, the first time
\# they're invoked, they require a value in iPpcm; each subsequent
\# invocation without an argument will use the same value.  To
\# change the value, simply pass a new value.  Values for TI and HI
\# are *not* additive.
\# 
\# HI presupposes that you already have a left or both indent on.
\# HI will never hang a line outside the left margin of a document
\# or column.  In other words, you must have IL or IB on before you
\# can use HI.
\#
\# INDENT LEFT
\# -----------
\#
.MAC IL END
.    if \\n[#INDENT_STYLE_BOTH] \{ .IBX \}
.    nr #INDENT_STYLE_LEFT  1
.    nr #INDENT_ACTIVE      1
.    nr #INDENT_LEFT_ACTIVE 1
.    ie '\\$1'' \{\
.       br
.       in \\n[#L_INDENT]u
.       ta \\n(.lu-\\n[#L_INDENT]u
.    \}
.    el \{\
.       br
.       nr #L_INDENT +(\\$1)
.       in \\n[#L_INDENT]u
.       ta \\n(.lu-\\n[#L_INDENT]u
.    \}
.END
\#
\#
\# +++INDENT RIGHT+++
\#
.MAC IR END
.    if \\n[#INDENT_STYLE_BOTH] \{ .IBX \}
.    nr #INDENT_STYLE_RIGHT   1
.    nr #INDENT_ACTIVE        1
.    nr #INDENT_RIGHT_ACTIVE 1
.    ie '\\$1'' \{\
.       br
.       ie \\n[#TAB_ACTIVE] \{\
.          ll \\n(.lu-\\n[#R_INDENT]u
.          ta \\n(.lu-\\n[#L_INDENT]u
.       \}
.       el \{\
.          ll \\n[#L_LENGTH]u-\\n[#R_INDENT]u
.          ta \\n(.lu-\\n[#L_INDENT]u
.       \}
.    \}
.    el \{\
.       br
.       nr #R_INDENT +(\\$1)
.       ie \\n[#TAB_ACTIVE] \{\
.          ll \\n(.lu-\\n[#R_INDENT]u
.          ta \\n(.lu-\\n[#L_INDENT]u
.       \}
.       el \{\
.          ll \\n[#L_LENGTH]u-\\n[#R_INDENT]u
.          ta \\n(.lu-\\n[#L_INDENT]u
.       \}
.    \}
.END
\#
\#
\# +++INDENT BOTH+++
\#
.MAC IB END
.    if \\n[#INDENT_STYLE_LEFT]  \{ .ILX \}
.    if \\n[#INDENT_STYLE_RIGHT] \{ .IRX \}
.    nr #INDENT_STYLE_BOTH  1
.    nr #INDENT_ACTIVE      1
.    nr #INDENT_BOTH_ACTIVE 1
.    ie '\\$1'' \{\
.       br
.       in \\n[#BL_INDENT]u
.       ie \\n[#TAB_ACTIVE] \{\
.          ll \\n(.lu-\\n[#BR_INDENT]u
.          ta \\n(.lu-\\n[#BR_INDENT]u
.       \}
.       el \{\
.          ll \\n[#L_LENGTH]u-\\n[#BR_INDENT]u
.          ta \\n(.lu-\\n[#BR_INDENT]u
.       \}
.    \}
.    el \{\
.       br
.       nr #BL_INDENT (\\n[#INDENT]+\\$1)
.       ie \\n[#NUM_ARGS]=2 \{ .nr #BR_INDENT +(\\$2) \}
.       el                  \{ .nr #BR_INDENT \\n[#BL_INDENT] \}
.       ie \\n[#TAB_ACTIVE] \{\
.          in \\n[#BL_INDENT]u
.          ll \\n(.lu-\\n[#BR_INDENT]u
.          ta \\n(.lu-\\n[#BL_INDENT]u
.       \}
.       el \{\
.          in \\n[#BL_INDENT]u
.          ll \\n[#L_LENGTH]u-\\n[#BR_INDENT]u
.          ta \\n(.lu-\\n[#BR_INDENT]u
.       \}
.    \}
.END
\#
\#
\# +++TEMPORARY INDENT+++
\#
.MAC TI END
.    br
.    ie '\\$1'' \{\
.       ti \\n[#T_INDENT]u
.       if \\n[#INDENT_LEFT_ACTIVE] \{\
.          ti \\n[#T_INDENT]u+\\n[#L_INDENT]u
.       \}
.       if \\n[#INDENT_BOTH_ACTIVE] \{\
.          ti \\n[#T_INDENT]u+\\n[#BL_INDENT]u
.       \}
.    \}
.    el \{\
.       nr #T_INDENT (\\$1)
.       ti \\n[#T_INDENT]u
.    \}
.END
\#
\#
\# +++HANGING INDENT+++
\#
.MAC HI END
.    ie '\\$1'' \{ .ti -\\n[#HL_INDENT]u \}
.    el \{\
.       nr #HL_INDENT (\\$1)
.       ti -\\n[#HL_INDENT]u
.    \}
.END
\#
\#
\# +++INDENTS OFF+++
\#
.MAC ILX END
.    br
.    in 0
.    rr #INDENT_LEFT_ACTIVE
.    if '\\$1'CLEAR' \{\
.       rr #L_INDENT
.       rr #INDENT_STYLE_LEFT
.    \}
.END
\#
\#
.MAC IRX END
.    br
.    rr #INDENT_RIGHT_ACTIVE
.    ie \\n[#TAB_ACTIVE] \{ .TAB\\n[#CURRENT_TAB] \}
.    el \{\
.       ie \\n[#COLUMNS] \{\
.          ll \\n[#COL_L_LENGTH]u
.          ta \\n(.lu
.       \}
.       el \{\
.          ll \\n[#L_LENGTH]u
.          ta \\n(.lu
.       \}
.    \}
.    if '\\$1'CLEAR' \{\
.       rr #R_INDENT
.       rr #INDENT_STYLE_RIGHT
.    \}
.END
\#
\#
.MAC IBX END
.    br
.    in 0
.    rr #INDENT_BOTH_ACTIVE
.    ie \\n[#TAB_ACTIVE] \{ .TAB\\n[#CURRENT_TAB] \}
.    el \{\
.       ie \\n[#COLUMNS] \{\
.          ll \\n[#COL_L_LENGTH]u
.          ta \\n(.lu
.       \}
.       el \{\
.          ll \\n[#L_LENGTH]u
.          ta \\n(.lu
.       \}
.    \}
.    if '\\$1'CLEAR' \{\
.       rr #BL_INDENT
.       rr #BR_INDENT
.       rr #INDENT_STYLE_BOTH
.    \}
.END
\#
\#
.MAC IX END
.    if '\\$0'IX' \{\
.       if !\\n[#IX_WARN] \{\
.          tm1 "[mom]: Use of .IX is now deprecated.  Use .IQ instead.
.          tm1 "      .IX will continue to behave as before, but to
.          tm1 "       avoid this message, please update your document.
.          nr #IX_WARN 1
.       \}
.    \}
.    br
.    in 0
.    rr #INDENT_LEFT_ACTIVE
.    rr #INDENT_RIGHT_ACTIVE
.    rr #INDENT_BOTH_ACTIVE
.    if \\n[#INDENT_STYLE_RIGHT] \{\
.       ie \\n[#TAB_ACTIVE] \{ .TAB\\n[#CURRENT_TAB] \}
.       el \{\
.          ie \\n[#COLUMNS] \{\
.             ll \\n[#COL_L_LENGTH]u
.             ta \\n(.lu
.          \}
.          el \{\
.             ll \\n[#L_LENGTH]u
.             ta \\n(.lu
.          \}
.       \}
.    \}
.    if \\n[#INDENT_STYLE_BOTH] \{\
.       ie \\n[#TAB_ACTIVE] \{ .TAB\\n[#CURRENT_TAB] \}
.       el \{\
.          ie \\n[#COLUMNS] \{\
.             ll \\n[#COL_L_LENGTH]u
.             ta \\n(.lu
.          \}
.          el \{\
.             ll \\n[#L_LENGTH]u
.             ta \\n(.lu
.          \}
.       \}
.    \}
.    if '\\$1'CLEAR' \{\
.       if \\n[#INDENT_STYLE_RIGHT] \{\
.          ie \\n[#TAB_ACTIVE] \{ .TAB\\n[#CURRENT_TAB] \}
.          el \{\
.             ie \\n[#COLUMNS] \{\
.                ll \\n[#COL_L_LENGTH]u
.                ta \\n(.lu
.             \}
.             el \{\
.                ll \\n[#L_LENGTH]u
.                ta \\n(.lu
.             \}
.          \}
.       \}
.       if \\n[#INDENT_STYLE_BOTH] \{\
.          ie \\n[#TAB_ACTIVE] \{ .TAB\\n[#CURRENT_TAB] \}
.          el \{\
.             ie \\n[#COLUMNS] \{\
.                ll \\n[#COL_L_LENGTH]u
.                ta \\n(.lu
.             \}
.             el \{\
.                ll \\n[#L_LENGTH]u
.                ta \\n(.lu
.             \}
.          \}
.       \}
.       rr #L_INDENT
.       rr #R_INDENT
.       rr #BL_INDENT
.       rr #BR_INDENT
.       rr #T_INDENT
.       rr #H_INDENT
.       rr #INDENT_STYLE_LEFT
.       rr #INDENT_STYLE_RIGHT
.       rr #INDENT_STYLE_BOTH
.    \}
.    rr #INDENT_ACTIVE
.END
\#
\# =====================================================================
\#
\# +++MULTIPLE COLUMNS+++
\#
\# MULTIPLE COLUMNS ON
\# -------------------
\# *Arguments:
\#   <none>
\# *Function:
\#   Marks the top of a column set
\#
.MAC MCO END
.mk c
.END
\#
\# MULTIPLE COLUMN RETURN
\# ----------------------
\# *Arguments:
\#   <none>
\# *Function:
\#   Returns to the top of a column set
\#
.MAC MCR END
.    TRAP OFF
.    sp |\\ncu
.    TRAP
.END
\#
\# MULTIPLE COLUMNS OFF
\# --------------------
\# *Arguments:
\#   <none> | <lead to advance beneath bottom of deepest column>
\# *Function:
\#   Advances to the end of a column set
\# *Notes:
\#   With no argument, advances to the next baseline (at the current
\#   leading value) beneath the longest column.  With an argument
\#   (which requires a unit of measure), advances arg distance
\#   beneath the baseline of the deepest column.  If the argument
\#   is zero, advances to the baseline of the deepest column.
\#
.MAC MCX END
.    TRAP OFF
.    ie '\\$1'' \{\
.       TQ
.       sp |\\n(.hu
.    \}
.    el \{\
.       nr #MCX_ALD (\\$1)
.       TQ
.       ie \\n[#MCX_ALD]=0 \{ .sp |\\n(.hu-1v \}
.       el \{ .sp |\\n(.hu+\\n[#MCX_ALD]u \}
.       rr #MCX_ALD
.    \}
.    TRAP
.END
\#
\# =====================================================================
\#
\# +++TYPESETTING SUPPORT MACROS+++
\#
\# TRAP
\# ----
\# *Arguments:
\#   toggle
\# *Function:
\#   Enables/disables traps.
\# *Notes:
\#   EL and TN don't function as advertised on the last line before
\#   a trap (when they break the preceding line, they spring the
\#   trap, and groff won't back up to the line preceding the trap).
\#   TRAP is a kludge to get EL and TN work properly on last lines.
\#   The user simply enloses the offending lines in TRAP OFF/TRAP.
\#
.MAC TRAP END
.    ie '\\$1'' \{ .vpt 1 \}
.    el \{ .vpt 0 \}
.END
\#
\#
\# SILENT
\# ------
\# *Arguments:
\#   <none> | <anything>
\# *Function:
\#   Diverts text so that it doesn't print, or turns the function off.
\# *Notes:
\#   Useful for setting up autotabs where you don't want the line with
\#   the tab marks to print.
\#
\#   Also aliased as COMMENT, in case user wants to input a batch of
\#   text that doesn't print.
\#
.MAC SILENT END
.    nr #SILENT 1
.    if \\n[#QUAD] \{ .br \}
.    ie '\\$1'' \{ .di NO_FLASH \}
.    el \{\
.       br
.       di
.       rm NO_FLASH
.       rr #SILENT
.    \}
.END
\#
\#
\# PRINT
\# -----
\# *Function:
\#   Prints anything.  A macro that helps keep my code nicely indented.
\#
.MAC PRINT END
.    nop \\$*
.END
\#
\#
\# CAPS
\# ----
\# *Arguments:
\#   <none> | <anything>
\# *Function:
\#   Converts text to caps, or, if OFF, reverts to normal caps/lc.
\# *Notes:
\#   For inline control of capitalization style, use \*[UC] and
\#   \*[LC].
\#
.MAC CAPS END
.    ie '\\$1'' \{\
.       tr aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ
.       tr à\[`A]
.       tr â\[^A]
.       tr á\['A]
.       tr ä\[:A]
.       tr å\[oA]
.       tr ã\[~A]
.       tr æ\[AE]
.       tr è\[`E]
.       tr ê\[^E]
.       tr é\['E]
.       tr ë\[:E]
.       tr ì\[`I]
.       tr î\[^I]
.       tr í\['I]
.       tr ï\[:I]
.       tr ò\[`O]
.       tr ô\[^O]
.       tr ó\['O]
.       tr ö\[:O]
.       tr õ\[~O]
.       tr ø\[/O]
.       tr ù\[`U]
.       tr û\[^U]
.       tr ú\['U]
.       tr ü\[:U]
.       tr ç\[,C]
.       tr ð\[-D]
.       tr ñ\[~N]
.       tr þ\[TP]
.       tr ý\['Y]
.       tr ÿ\[:Y]
.       nr #CAPS_ON 1
.    \}
.    el \{\
.       tr aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz
.       tr à\[`a]
.       tr â\[^a]
.       tr á\['a]
.       tr ä\[:a]
.       tr å\[oa]
.       tr ã\[~a]
.       tr æ\[ae]
.       tr è\[`e]
.       tr ê\[^e]
.       tr é\['e]
.       tr ë\[:e]
.       tr ì\[`i]
.       tr î\[^i]
.       tr í\['i]
.       tr ï\[:i]
.       tr ò\[`o]
.       tr ô\[^o]
.       tr ó\['o]
.       tr ö\[:o]
.       tr õ\[~o]
.       tr ø\[/o]
.       tr ù\[`u]
.       tr û\[^u]
.       tr ú\['u]
.       tr ü\[:u]
.       tr ç\[,c]
.       tr ð\[Sd]
.       tr ñ\[~n]
.       tr þ\[Tp]
.       tr ý\['y]
.       tr ÿ\[:y]
.       rr #CAPS_ON
.    \}
.END
\#
.MAC UC END
\c
.    tr aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ
.    tr à\[`A]
.    tr â\[^A]
.    tr á\['A]
.    tr ä\[:A]
.    tr å\[oA]
.    tr ã\[~A]
.    tr æ\[AE]
.    tr è\[`E]
.    tr ê\[^E]
.    tr é\['E]
.    tr ë\[:E]
.    tr ì\[`I]
.    tr î\[^I]
.    tr í\['I]
.    tr ï\[:I]
.    tr ò\[`O]
.    tr ô\[^O]
.    tr ó\['O]
.    tr ö\[:O]
.    tr õ\[~O]
.    tr ø\[/O]
.    tr ù\[`U]
.    tr û\[^U]
.    tr ú\['U]
.    tr ü\[:U]
.    tr ç\[,C]
.    tr ð\[-D]
.    tr ñ\[~N]
.    tr þ\[TP]
.    tr ý\['Y]
.    tr ÿ\[:Y]
.    nr #CAPS_ON 1
.END
\#
.MAC LC END
\c
.    tr aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz
.    tr à\[`a]
.    tr â\[^a]
.    tr á\['a]
.    tr ä\[:a]
.    tr å\[oa]
.    tr ã\[~a]
.    tr æ\[ae]
.    tr è\[`e]
.    tr ê\[^e]
.    tr é\['e]
.    tr ë\[:e]
.    tr ì\[`i]
.    tr î\[^i]
.    tr í\['i]
.    tr ï\[:i]
.    tr ò\[`o]
.    tr ô\[^o]
.    tr ó\['o]
.    tr ö\[:o]
.    tr õ\[~o]
.    tr ø\[/o]
.    tr ù\[`u]
.    tr û\[^u]
.    tr ú\['u]
.    tr ü\[:u]
.    tr ç\[,c]
.    tr ð\[Sd]
.    tr ñ\[~n]
.    tr þ\[Tp]
.    tr ý\['y]
.    tr ÿ\[:y]
.    rr #CAPS_ON
.END
\#
\# SIZESPECS
\# ---------
\# Argument:
\#   <none>
\# Function:
\#   Gets cap-height, x-height, and descender depth of the
\#   current font at the current point size.
\# *Notes:
\#   The routine is diverted so it remains invisible to output.
\#
.MAC SIZESPECS END
.    di TYPESIZE
E\\R'#CAP_HEIGHT \\n[.cht]'
e\\R'#X_HEIGHT \\n[.cht]'
y\\R'#DESCENDER \\n[.cdp]'
.    br
.    di
.END
\#
\# =====================================================================
\#
\# +++TYPESETTING ALIASES+++
\#
.ALIAS    ADD_SPACE       ALD
.ALIAS    CENTRE          CENTER
.ALIAS    COLOUR          COLOR
.ALIAS    COMMENT         SILENT
.ALIAS    CONDENSE        CONDENSE_OR_EXTEND
.ALIAS    EXTEND          CONDENSE_OR_EXTEND
.ALIAS    FAM             FAMILY
.ALIAS    FONT            FT
.ALIAS    HYPHENATE       HY
.ALIAS    HYPHENATION     HY
.ALIAS    HYSET           HY_SET
.ALIAS    IBQ             IBX
.ALIAS    ILQ             ILX
.ALIAS    IQ              IX
.ALIAS    IRQ             IRX
.ALIAS    LIG             LIGATURES
.ALIAS    NEWCOLOUR       NEWCOLOR
.ALIAS    PADMARKER       PAD_MARKER
.ALIAS    SP              ALD
.ALIAS    SPACE           ALD
.ALIAS    TABSET          TAB_SET
.ALIAS    TB              TAB
.ALIAS    UNDERSCORE_2    UNDERSCORE2
.ALIAS    XCOLOUR         XCOLOR
\#
\#
\# ====================================================================
\#
\# DOCUMENT PROCESSING MACROS, STRINGS AND ALIASES
\# ===============================================
\#
\# +++PAGE DIMENSIONS+++
\#
\# PAPER SIZE
\# ----------
\# *Arguments:
\#   LETTER | LEGAL | STATEMENT | TABLOID | LEDGER | FOLIO | QUARTO | 10x14 | EXECUTIVE | A3 | A4 | A5 | B4 | B5
\# *Function:
\#   Sets up dimensions for different paper sizes.
\#
.MAC PAPER END
.    ds $PAPER \\$1
.    if '\\*[$PAPER]'LETTER' \{\
.       PAGEWIDTH  8.5i
.       PAGELENGTH 11i
.    \}
.    if '\\*[$PAPER]'LEGAL' \{\
.       PAGEWIDTH  8.5i
.       PAGELENGTH 14i
.    \}
.    if '\\*[$PAPER]'STATEMENT' \{\
.       PAGEWIDTH  5.5i
.       PAGELENGTH 8.5i
.    \}
.    if '\\*[$PAPER]'TABLOID' \{\
.       PAGEWIDTH  11i
.       PAGELENGTH 17i
.    \}
.    if '\\*[$PAPER]'LEDGER' \{\
.       PAGEWIDTH  17i
.       PAGELENGTH 11i
.    \}
.    if '\\*[$PAPER]'FOLIO' \{\
.       PAGEWIDTH  8.5i
.       PAGELENGTH 13i
.    \}
.    if '\\*[$PAPER]'QUARTO' \{\
.       PAGEWIDTH  610p
.       PAGELENGTH 780p
.    \}
.    if '\\*[$PAPER]'10x14' \{\
.       PAGEWIDTH  10i
.       PAGELENGTH 14i
.    \}
.    if '\\*[$PAPER]'EXECUTIVE' \{\
.       PAGEWIDTH  7.25i
.       PAGELENGTH 10.5i
.    \}
.    if '\\*[$PAPER]'A3' \{\
.       PAGEWIDTH  842p
.       PAGELENGTH 1190p
.    \}
.    if '\\*[$PAPER]'A4' \{\
.       PAGEWIDTH  595p
.       PAGELENGTH 842p
.    \}
.    if '\\*[$PAPER]'A5' \{\
.       PAGEWIDTH  421p
.       PAGELENGTH 595p
.    \}
.    if '\\*[$PAPER]'B4' \{\
.       PAGEWIDTH  709p
.       PAGELENGTH 1002p
.    \}
.    if '\\*[$PAPER]'B5' \{\
.       PAGEWIDTH  501p
.       PAGELENGTH 709p
.    \}
.    if !r#L_MARGIN \{ .L_MARGIN \\n(.o \}
.    if !r#R_MARGIN \{ .R_MARGIN 1i \}
.END
\#
\#
\# ====================================================================
\#
\# +++PRINTSTYLE -- TYPEWRITE OR TYPESET+++
\#
\# PRINTSTYLE
\# ----------
\# *Arguments:
\#   TYPESET | TYPEWRITE [SINGLESPACE]
\# *Function:
\#   Sets type specs for typewriter-style or typeset output.
\# *Notes:
\#   Number registers: TYPEWRITE=1, TYPESET=2.
\#
.MAC PRINTSTYLE END
.    if !\\n[#COLLATE]=1 \{\
.       if !d$PAPER \{ .PAPER LETTER \}
.       if '\\$1'TYPEWRITE' \{\
.          nr #PRINT_STYLE 1
.          if !\\n[#DOC_TYPE]=4 \{ .L_MARGIN 6P \}
.          if !\\n[#DOC_TYPE]=4 \{ .R_MARGIN 6P \}
.          TYPEWRITER
.          color 0
.          ie '\\$2'SINGLESPACE' \{\
.             nr #SINGLE_SPACE 1
.             vs 12
.             nr #ORIGINAL_DOC_LEAD \\n(.v
.          \}
.          el \{\
.             vs 24
.             nr #ORIGINAL_DOC_LEAD \\n(.v
.          \}
.          QUAD    L
.          HY      OFF
.          SMARTQUOTES OFF
.          if !\\n[#PP_INDENT] \{\
.             in 3P                 \"Set indent
.             nr #PP_INDENT \\n(.i  \"Read into #PP_INDENT
.             in 0                  \"Remove indent
.          \}
.          HDRFTR_RIGHT_CAPS
.          nr #BOLDER_UNITS 0
.          nr #CONDENSE 0
.          nr #EXTEND 0
.          if !\\n[#ITALIC_MEANS_ITALIC]  \{ .rm IT \}
.          rm BD
.          rm BDI
.          if !\\n[#ITALIC_MEANS_ITALIC] \{ .rm PREV          \}
.          if !\\n[#SLANT_MEANS_SLANT]   \{ .UNDERLINE_SLANT  \}
.          if !\\n[#ITALIC_MEANS_ITALIC] \{ .UNDERLINE_ITALIC \}
.          if !\\n[#UNDERLINE_QUOTES]    \{ .UNDERLINE_QUOTES \}
.          nr #IGNORE_COLUMNS 1
.          nr #RULE_WEIGHT 500
.          nr #HEAD_UNDERLINE_WEIGHT 500
.          char \(em --
.          tr `'
.       \}
.       if '\\$1'TYPESET' \{\
.          nr #PRINT_STYLE 2
.          if !\\n[#DOC_TYPE]=4 \{ .L_MARGIN 6P \}
.          if !\\n[#DOC_TYPE]=4 \{ .R_MARGIN 6P \}
.          FAMILY  T
.          FT      R
.          if !\\n[#DOC_TYPE]=4 \{ .PT_SIZE 12.5 \}
.          if !\\n[#DOC_TYPE]=4 \{ .LS 16 \}
.          JUSTIFY
.          HY
.          HY_SET 2 36p 1p
.          KERN
.          LIG
.          SS 0
.          SMARTQUOTES
.          if !\\n[#PP_INDENT] \{\
.             in 2m                 \"Set indent
.             nr #PP_INDENT \\n(.i  \"Read into #PP_INDENT
.             in 0                  \"Remove indent
.          \}
.          HDRFTR_RIGHT_CAPS
.          rr #IGNORE_COLUMNS
.       \}
.    \}
.END
\#
\#
\# Macros to control behaviour of PRINTSTYLE TYPEWRITE
\#
\# First, a little utility macro.
\#
.MAC TYPEWRITER END
.    fam C
.    ft  R
.    ps  12
.END
\#
\#
\# ITALIC MEANS ITALIC
\# -------------------
\# *Argument:
\#   <none>
\# *Function:
\#   Instructs TYPEWRITE to treat italics as italics, whether
\#   invoked via control lines or inline.
\# *Notes:
\#   ITALIC_MEANS_ITALIC and UNDERLINE_ITALIC are mututally exclusive,
\#   hence invoking the one automatically turns off the other.
\#
.MAC ITALIC_MEANS_ITALIC END
.    if \\n[#PRINT_STYLE]=1 \{\
.       nr #ITALIC_MEANS_ITALIC 1
.       rr #UNDERLINE_ITALIC
.       rm ROM
.       rm IT
.       rm PREV
.       ds ROM  \EfR
.       ds IT   \EfI
.       ds PREV \EfR
.    \}
.END
\#
\#
\# UNDERLINE ITALIC
\# ----------------
\# *Argument:
\#   <none>
\# *Function:
\#   Instructs TYPEWRITE to underline italics, whether invoked
\#   via control lines or inline.
\# *Notes:
\#   UNDERLINE_ITALIC and ITALIC_MEANS_ITALIC are mututally exclusive,
\#   hence invoking the one automatically turns off the other.
\#
\#   UNDERLINE_ITALIC is the default for TYPEWRITE.
\#
.MAC UNDERLINE_ITALIC END
.    if \\n[#PRINT_STYLE]=1 \{\
.       nr #UNDERLINE_ITALIC 1
.       rr #ITALIC_MEANS_ITALIC
.       rm ROM
.       rm IT
.       rm PREV
.       ds ROM  \E*[ULX]
.       ds IT   \E*[UL]
.       ds PREV \E*[ULX]
.    \}
.END
\#
\#
\# UNDERLINE SLANT
\# ---------------
\# *Arguments:
\#   <none> | <anything>
\# *Function:
\#   Instructs TYPEWRITE to underline occurences of \*[SLANT], or
\#   turns feature off.
\# *Notes:
\#   Users may want \*[SLANT] to mean slant in TYPEWRITE, although
\#   most of the time, \*[SLANT] most likely means the user wanted
\#   italic but didn't have it, ergo the need to tell TYPEWRITE to
\#   treat \*[SLANT] as italic (i.e. underlined).
\#
\#   UNDERLINE_SLANT and SLANT_MEANS_SLANT are mututally exclusive,
\#   hence invoking the one automatically turns off the other.
\#
\#   UNDERLINE_SLANT is the default for TYPEWRITE.
\#
.MAC UNDERLINE_SLANT END
.    if \\n[#PRINT_STYLE]=1 \{\
.       rr #SLANT_MEANS_SLANT
.       nr #UNDERLINE_SLANT 1
.       rm SLANT
.       rm SLANTX
.       ds SLANT  \ER'#SLANT_ON 1'\E*[UL]
.       ds SLANTX \ER'#SLANT_ON 0'\E*[ULX]
.    \}
.END
\#
\#
.MAC SLANT_MEANS_SLANT END
.    if \\n[#PRINT_STYLE]=1 \{\
.       rr #UNDERLINE_SLANT
.       nr #SLANT_MEANS_SLANT 1
.       rm SLANT
.       rm SLANTX
.       ds SLANT  \ER'#SLANT_ON 1'\ES'\En[#DEGREES]'
.       ds SLANTX \ER'#SLANT_ON 0'\ES'0'
.    \}
.END
\#
\#
.MAC IGNORE_COLUMNS END
.    if \\n[#PRINT_STYLE]=1 \{ .nr #NO_COLUMNS 1 \}
.END
\#
\#
\# ====================================================================
\#
\# +++COPY STYLE -- DRAFT OR FINAL+++
\#
\# COPY STYLE
\# ----------
\# *Arguments:
\#   DRAFT | FINAL
\# *Function:
\#   Sets registers that are used to determine what to put
\#   in the default header, and how to number pages.
\# *Notes:
\#   DOCTYPE must come before COPYSTYLE.
\#
.MAC COPYSTYLE END
.    ds $COPY_STYLE \\$1
.    if '\\*[$COPY_STYLE]'DRAFT' \{\
.       nr #COPY_STYLE 1
.       if !d$DRAFT \{ .DRAFT 1 \}
.    \}
.    if '\\*[$COPY_STYLE]'FINAL' \{ .nr #COPY_STYLE 2         \}
.    if !d$CHAPTER_STRING        \{ .CHAPTER_STRING "Chapter" \}
.    if !d$DRAFT_STRING          \{ .DRAFT_STRING "Draft"     \}
.    if !d$REVISION_STRING       \{ .REVISION_STRING "Rev."   \}
.\" Default
.    if \\n[#DOC_TYPE]=1 \{\
.       ie \\n[#COPY_STYLE]=1 \{\
.          ie \\n[#PAGENUM_STYLE_SET] \{ .PAGENUM_STYLE \\*[$PAGENUM_STYLE] \}
.          el \{ .PAGENUM_STYLE roman \}
.          if \\n[#USER_DEF_HDRFTR_CENTER]=0 \{\
.             ie \\n[#DRAFT_WITH_PAGENUM] \{\
.                ds $HDRFTR_CENTER
.             \}
.             el \{\
.                ie '\\*[$REVISION]'' \{\
.                   ds $HDRFTR_CENTER \
                    \\*[$DRAFT_STRING]\\*[$DRAFT]
.                \}
.                el \{\
.                   ds $HDRFTR_CENTER \
                    \\*[$DRAFT_STRING]\\*[$DRAFT], \
                    \\*[$REVISION_STRING] \\*[$REVISION]
.                \}
.             \}
.          \}
.       \}
.       el \{\
.          ie \\n[#PAGENUM_STYLE_SET] \{ .PAGENUM_STYLE \\*[$PAGENUM_STYLE] \}
.          el \{ .PAGENUM_STYLE DIGIT \}
.          if r#DRAFT_WITH_PAGENUM \{ .rr #DRAFT_WITH_PAGENUM \}
.          if \\n[#USER_DEF_HDRFTR_CENTER]=0 \{\
.             ds $HDRFTR_CENTER
.             rr #USER_DEF_HDRFTR_CENTER
.          \}
.       \}
.    \}
.\" Chapter
.    if \\n[#DOC_TYPE]=2 \{\
.\" Copystyle DRAFT
.       ie \\n[#COPY_STYLE]=1 \{\
.          ie \\n[#PAGENUM_STYLE_SET] \{ .PAGENUM_STYLE \\*[$PAGENUM_STYLE] \}
.          el \{ .PAGENUM_STYLE roman \}
.          if \\n[#USER_DEF_HDRFTR_CENTER]=0 \{\
.             ie \\n[#DRAFT_WITH_PAGENUM] \{\
.                ie '\\*[$CHAPTER]'' \{\
.                   ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.                      ds $HDRFTR_CENTER \\*[$CHAPTER_TITLE]
.                   \}
.                   el .ds $HDRFTR_CENTER \\*[$CHAPTER_STRING]
.                \}
.                el \{\
.                   ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.                      ds $HDRFTR_CENTER \\*[$CHAPTER_TITLE]
.                   \}
.                   el .ds $HDRFTR_CENTER \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.                \}
.             \}
.             el \{\
.                ie '\\*[$REVISION]'' \{\
.                   ie '\\*[$CHAPTER]'' \{\
.                      ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.                         ie '\\*[$DRAFT]'' \{\
.                            ds $HDRFTR_CENTER \\*[$CHAPTER_TITLE]
.                         \}
.                         el \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_TITLE], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT]
.                         \}
.                      \}
.                      el \{\
.                         ie '\\*[$DRAFT]'' \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING]
.                         \}
.                         el \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT]
.                         \}
.                      \}
.                   \}
.                   el \{\
.                      ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.                         ie '\\*[$DRAFT]'' \{\
.                            ds $HDRFTR_CENTER \\*[$CHAPTER_TITLE]
.                         \}
.                         el \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_TITLE_1], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT]
.                         \}
.                      \}
.                      el \{\
.                         ie '\\*[$DRAFT]'' \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.                         \}
.                         el \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING] \\*[$CHAPTER], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT]
.                         \}
.                      \}
.                   \}
.                \}
.                el \{\
.                   ie '\\*[$CHAPTER]'' \{\
.                      ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.                         ie '\\*[$DRAFT]'' \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_TITLE], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.                         \}
.                         el \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_TITLE], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.                         \}
.                      \}
.                      el \{\
.                         ie '\\*[$DRAFT]'' \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.                         \}
.                         el \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.                         \}
.                      \}
.                   \}
.                   el \{\
.                      ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.                         ie '\\*[$DRAFT]'' \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_TITLE], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.                         \}
.                         el \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_TITLE], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.                         \}
.                      \}
.                      el \{\
.                         ie '\\*[$DRAFT]'' \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING] \\*[$CHAPTER], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.                         \}
.                         el \{\
.                            ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING] \\*[$CHAPTER], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.                         \}
.                      \}
.                   \}
.                \}
.             \}
.          \}
.       \}
.\" Copystyle FINAL
.       el \{\
.          if r#DRAFT_WITH_PAGENUM \{ .rr #DRAFT_WITH_PAGENUM \}
.          if \\n[#USER_DEF_HDRFTR_CENTER]=0 \{\
.             ie \\n[#PAGENUM_STYLE_SET] \{ .PAGENUM_STYLE \\*[$PAGENUM_STYLE] \}
.             el \{ .PAGENUM_STYLE DIGIT \}
.             ie '\\*[$CHAPTER]'' \{\
.                ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.                   ds $HDRFTR_CENTER \\*[$CHAPTER_TITLE]
.                \}
.                el \{\
.                   ds $HDRFTR_CENTER \\*[$CHAPTER_STRING]
.                \}
.             \}
.             el \{\
.                ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.                   ds $HDRFTR_CENTER \\*[$CHAPTER_TITLE]
.                \}
.                el \{\
.                   ds $HDRFTR_CENTER \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.                \}
.             \}
.          \}
.       \}
.    \}
.\" Named
.    if \\n[#DOC_TYPE]=3 \{\
.       ie \\n[#COPY_STYLE]=1 \{\
.          ie \\n[#PAGENUM_STYLE_SET] \{ .PAGENUM_STYLE \\*[$PAGENUM_STYLE] \}
.          el \{ .PAGENUM_STYLE roman \}
.          ie \\n[#DRAFT_WITH_PAGENUM] \{\
.             ds $HDRFTR_CENTER \\*[$DOC_TYPE]
.          \}
.          el \{\
.             if \\n[#USER_DEF_HDRFTR_CENTER]=0 \{\
.                ie '\\*[$REVISION]'' \{\
.                   ie '\\*[$DRAFT]'' \{\
.                      ds $HDRFTR_CENTER \\*[$DOC_TYPE]
.                   \}
.                   el \{\
.                      ds $HDRFTR_CENTER \
                       \\*[$DOC_TYPE], \
                       \\*[$DRAFT_STRING]\\*[$DRAFT]
.                   \}
.                \}
.                el \{\
.                   ie '\\*[$DRAFT]'' \{\
.                      ds $HDRFTR_CENTER \
                       \\*[$DOC_TYPE], \
                       \\*[$REVISION_STRING] \\*[$REVISION]
.                   \}
.                   el \{\
.                      ds $HDRFTR_CENTER \
                       \\*[$DOC_TYPE], \
                       \\*[$DRAFT_STRING]\\*[$DRAFT], \
                       \\*[$REVISION_STRING] \\*[$REVISION]
.                   \}
.                \}
.             \}
.          \}
.       \}
.       el \{\
.          if r#DRAFT_WITH_PAGENUM \{ .rr #DRAFT_WITH_PAGENUM \}
.          if \\n[#USER_DEF_HDRFTR_CENTER]=0 \{\
.             ie \\n[#PAGENUM_STYLE_SET] \{ .PAGENUM_STYLE \\*[$PAGENUM_STYLE] \}
.             el \{ .PAGENUM_STYLE DIGIT \}
.             ds $HDRFTR_CENTER \\*[$DOC_TYPE]
.          \}
.       \}
.    \}
.END
\#
\# ====================================================================
\#
\# +++COLLECT DOC INFO -- STRINGS AND REGISTERS FOR REFERENCE MACROS+++
\#
\# *Arguments:
\#   various string/register arguments
\# *Function:
\#   Collect information about documents.
\#
\#
.MAC DOCTITLE END
.    rr #DOCTITLE_NUM
.    nr #DOCTITLE_NUM 0 1
.    while \\n[#NUM_ARGS]>\\n[#DOCTITLE_NUM] \{\
.       ds $DOC_TITLE_\\n+[#DOCTITLE_NUM] \\$\\n[#DOCTITLE_NUM]
.\}
.    ds $DOC_TITLE \\$*
.END
\#
.MAC TITLE END \"Document title
.    ie \\n[#NUM_ARGS]=0 \{\
.       if \\n[#TITLE_NUM] \{\
.          nr #ITEM 0 1
.          while \\n[#TITLE_NUM]>\\n[#ITEM] \{\
.             rm $TITLE_\\n+[#ITEM]
.\}
.          rr #TITLE_NUM
.       \}
.    \}
.    el \{\
.       nr #TITLE_NUM 0 1
.       while \\n[#NUM_ARGS]>\\n[#TITLE_NUM] \{\
.          ds $TITLE_\\n+[#TITLE_NUM] \\$\\n[#TITLE_NUM]
.\}
.       ds $TITLE \\$*
.    \}
.END
\#
\#
.MAC SUBTITLE END \"Document sub-title
.    ie \\n[#NUM_ARGS]=0 \{\
.       if \\n[#SUBTITLE_NUM] \{\
.          nr #ITEM 0 1
.          while \\n[#SUBTITLE_NUM]>\\n[#ITEM] \{\
.             rm $SUBTITLE_\\n+[#ITEM]
.\}
.          rr #SUBTITLE_NUM
.          rm $SUBTITLE
.       \}
.    \}
.    el \{\
.    if '\\$1'DOC_COVER' \{\
.       shift
.       nr #SUBTITLE_DOCCOVER_NUM 0 1
.       while \\n[#NUM_ARGS]>\\n[#SUBTITLE_DOCCOVER_NUM] \{\
.           ds $SUBTITLE_DOCCOVER_\\n+[#SUBTITLE_DOCCOVER_NUM] \\$\\n[#SUBTITLE_DOCCOVER_NUM]
.\}
.       return
.    \}
.    if '\\$1'COVER' \{\
.       shift
.       nr #SUBTITLE_COVER_NUM 0 1
.       while \\n[#NUM_ARGS]>\\n[#SUBTITLE_COVER_NUM] \{\
.           ds $SUBTITLE_COVER_\\n+[#SUBTITLE_COVER_NUM] \\$\\n[#SUBTITLE_COVER_NUM]
.\}
.       return
.    \}
.       nr #SUBTITLE_NUM 0 1
.       while \\n[#NUM_ARGS]>\\n[#SUBTITLE_NUM] \{\
.          ds $SUBTITLE_\\n+[#SUBTITLE_NUM] \\$\\n[#SUBTITLE_NUM]
.\}
.       ds $SUBTITLE \\$*
.    \}
.END
\#
\#
.MAC CHAPTER END \"If document is a chapter, the chapter number
.    nr #CHAPTER_CALLED 1
.    ds $CHAPTER \\$1
.    if r#CH_NUM \{\
.       if \B'\\*[$CHAPTER]' \{\
.          nr #CH_NUM \\*[$CHAPTER]
.       \}
.    \}
.END
\#
\#
.MAC CHAPTER_TITLE END \" This defines what comes after Chapter #
.    ie \\n[#NUM_ARGS]=0 \{\
.       if \\n[#CHAPTER_TITLE_NUM] \{\
.          nr #ITEM 0 1
.          while \\n[#CHAPTER_TITLE_NUM]>\\n[#ITEM] \{\
.             rm $CHAPTER_TITLE_\\n+[#ITEM]
.\}
.          rr #CHAPTER_TITLE_NUM
.          rm $CHAPTER_TITLE
.       \}
.    \}
.    el \{\
.       rr #CHAPTER_TITLE_NUM
.       nr #CHAPTER_TITLE_NUM 0 1
.       while \\n[#NUM_ARGS]>\\n[#CHAPTER_TITLE_NUM] \{\
.          ds $CHAPTER_TITLE_\\n+[#CHAPTER_TITLE_NUM] \\$\\n[#CHAPTER_TITLE_NUM]
.\}
.       ds $CHAPTER_TITLE \\$*
.    \}
.END
\#
\#
.MAC DRAFT END \"Draft number
.    ie '\\$1'' .ds $DRAFT 
.    el         .ds $DRAFT " \\$1
.END
\#
\#
.MAC REVISION END \"Revision number
.    ds $REVISION \\$1
.END
\#
\#
.MAC DRAFT_WITH_PAGENUMBER END \"Attach draft/revision strings to page number
.    nr #DRAFT_WITH_PAGENUM 1
.END
\#
\#
.MAC AUTHOR END \"Author.  Enclose all args fully in double quotes.
.    if '\\$1'DOC_COVER' \{\
.       shift
.       nr #AUTHOR_DOCCOVER_NUM 0 1
.       while \\n[#NUM_ARGS]>\\n[#AUTHOR_DOCCOVER_NUM] \{\
.           ds $AUTHOR_DOCCOVER_\\n+[#AUTHOR_DOCCOVER_NUM] \\$\\n[#AUTHOR_DOCCOVER_NUM]
.\}
.       return
.    \}
.    if '\\$1'COVER' \{\
.       shift
.       nr #AUTHOR_COVER_NUM 0 1
.           while \\n[#NUM_ARGS]>\\n[#AUTHOR_COVER_NUM] \{\
.       ds $AUTHOR_COVER_\\n+[#AUTHOR_COVER_NUM] \\$\\n[#AUTHOR_COVER_NUM]
.\}
.       return
.    \}
.    nr #AUTHOR_NUM 0 1
.    rm $AUTHORS
.    while \\n[#NUM_ARGS]>\\n[#AUTHOR_NUM] \{\
.       ds $AUTHOR_\\n+[#AUTHOR_NUM] \\$\\n[#AUTHOR_NUM]
.       as $AUTHORS \\*[$AUTHOR_\\n[#AUTHOR_NUM]], \"
.\}
.    substring $AUTHORS 0 -3
.    ds $AUTHOR \\*[$AUTHOR_1]
.END
\#
.ALIAS EDITOR AUTHOR
\#
.MAC COPYRIGHT END \"For use on cover pages only
.   ie \\n[#NUM_ARGS]=1 \{\
.       ds $COPYRIGHT \[co]\\$1
.       rm $COPYRIGHT_DOCCOVER
.       rm $COPYRIGHT_COVER
.    \}
.    el \{\
.       if '\\$1'DOC_COVER' \{\
.          ds $COPYRIGHT_DOCCOVER \[co]\\$2
.       \}
.       if '\\$1'COVER' \{\
.          ds $COPYRIGHT_COVER \[co]\\$2
.       \}
.    \}
.END
\#
\#
.MAC MISC END \"For use on cover pages only; enclose all args in double quotes
.    ie \\n[#NUM_ARGS]=0 \{\
.       if \\n[#MISC_NUM] \{\
.          nr #ITEM 0 1
.          while \\n[#MISC_NUM]>\\n[#ITEM] \{\
.             rm $MISC_\\n+[#ITEM]
.\}
.          rr #MISC_NUM
.          rr #NUM_MISCS
.       \}
.       if \\n[#MISC_DOCCOVER_NUM] \{\
.          nr #ITEM 0 1
.          while \\n[#MISC_DOCCOVER_NUM]>\\n[#ITEM] \{\
.             rm $MISC_DOCCOVER_\\n+[#ITEM]
.\}
.          rr #MISC_DOCCOVER_NUM
.          rr #NUM_MISCS
.       \}
.       if \\n[#MISC_COVER_NUM] \{\
.          nr #ITEM 0 1
.          while \\n[#MISC_COVER_NUM]>\\n[#ITEM] \{\
.             rm $MISC_COVER_\\n+[#ITEM]
.\}
.          rr #MISC_COVER_NUM
.          rr #NUM_MISCS
.       \}
.    \}
.    el \{\
.       if !'\\$1'DOC_COVER' \{\
.         if !'\\$1'COVER' \{ .nr #NEITHER 1 \}
.       \}
.       if !'\\$1'COVER' \{\
.          if !'\\$1'DOC_COVER'\{ .nr #NEITHER 1 \}
.       \}
.       if '\\$1'DOC_COVER' \{\
.          shift
.          nr #MISC_DOCCOVER_NUM 0 1
.          while \\n[#NUM_ARGS]>\\n[#MISC_DOCCOVER_NUM] \{\
.          ds $MISC_DOCCOVER_\\n+[#MISC_DOCCOVER_NUM] \\$\\n[#MISC_DOCCOVER_NUM]
.\}
.          nr #NUM_MISCS_DOCCOVER \\n[#NUM_ARGS]
.       \}
.       if '\\$1'COVER' \{\
.          shift
.          nr #MISC_COVER_NUM 0 1
.          while \\n[#NUM_ARGS]>\\n[#MISC_COVER_NUM] \{\
.          ds $MISC_COVER_\\n+[#MISC_COVER_NUM] \\$\\n[#MISC_COVER_NUM]
.\}
.          nr #NUM_MISCS_COVER \\n[#NUM_ARGS]
.       \}
.       if \\n[#NEITHER]=1 \{\
.          nr #MISC_NUM 0 1
.          while \\n[#NUM_ARGS]>\\n[#MISC_NUM] \{\
.             ds $MISC_\\n+[#MISC_NUM] \\$\\n[#MISC_NUM]
.\}
.          nr #NUM_MISCS \\n[#NUM_ARGS]
.          rr #NEITHER
.       \}
.   \}
.END
\#
\#
.MAC PAGENUMBER END \"Page # that appears on page one.
.    nr #n%_AT_PAGENUM_SET \\n%
.    nr #PAGE_NUM_ADJ \\$1-\\n[#n%_AT_PAGENUM_SET]
.    rr #n%_AT_PAGENUM_SET
.    nr #PAGE_NUM_SET 1
.END
\#
\# ====================================================================
\#
\# +++TYPE OF DOCUMENT+++
\#
\# DOCUMENT TYPE
\# -------------
\# *Argument:
\#   DEFAULT | CHAPTER | NAMED "<whatever> | LETTER
\# *Function:
\#   Creates strings and sets registers for document types.
\# *Notes:
\#   Number registers: DEFAULT=1, CHAPTER=2, NAMED=3, LETTER=4
\#
.MAC DOCTYPE END
.    if '\\$1'DEFAULT' \{\
.       nr #DOC_TYPE 1
.    \}
.    if '\\$1'CHAPTER' \{\
.       nr #DOC_TYPE 2
.    \}
.    if '\\$1'NAMED' \{\
.       ds $DOC_TYPE \\$2
.       nr #DOC_TYPE 3
.    \}
.    if '\\$1'LETTER' \{\
.       nr #DOC_TYPE 4
.       L_MARGIN 1.125i
.       R_MARGIN 1.125i
.       PT_SIZE 12
.       LS 13.5
.       DOCHEADER OFF
.       PARA_INDENT 3m
.       INDENT_FIRST_PARAS
.       PARA_SPACE
.       ds $SUITE \En[#SUITE]
.       HEADER_MARGIN 3P+6p
.       HEADER_GAP 3P
.       FOOTERS
.       FOOTER_RULE OFF
.       FOOTER_LEFT ""
.       FOOTER_CENTER ""
.       FOOTER_RIGHT_SIZE +0
.       FOOTER_RIGHT "\&.../\E*[$SUITE]
.       FOOTER_ON_FIRST_PAGE
.       em ALL_DONE
.    \}
.END
\#
\# +++LETTER MACROS+++
\#
\# First, create a register to hold incrementing numbers to be
\# appended to LETTERHEAD.
\#
.nr #FIELD 0 1
\#
\# DATE
\# ----
\# *Arguments:
\#   <none>
\# *Function:
\#   Stores date (entered on the line after .DATE) in diversion
\#   LETTERHEAD<n>
\#
.MAC DATE END
.    if !'\\n(.z'' \{ .di \}
.    di LETTERHEAD\\n+[#FIELD]
.    ie \\n[#FIELD]=1 \{\
.       nr #DATE_FIRST 1
.       RIGHT
.    \}
.    el \{\
.       LEFT
.    \}
.END
\#
\#
\# TO
\# --
\# *Arguments:
\#   <none>
\# *Function:
\#   Stores addressee address (entered on the line after .TO) in
\#   diversion LETTERHEAD<n>
\#
.MAC TO END
.    if !'\\n(.z'' \{ .di \}
.    di LETTERHEAD\\n+[#FIELD]
.    LEFT
.END
\#
\#
\# FROM
\# ----
\# *Arguments:
\#   <none>
\# *Function:
\#   Stores addresser address (entered on the line after .FROM) in
\#   diversion LETTERHEAD<n>
\#
.MAC FROM END
.    if !'\\n(.z'' \{ .di \}
.    di LETTERHEAD\\n+[#FIELD]
.    LEFT
.END
\#
\#
\# GREETING
\# --------
\# *Arguments:
\#   <none>
\# *Function:
\#   Stores greeting (entered on the line after .GREETING) in
\#   diversion LETTERHEAD<n>
\#
.MAC GREETING END
.    if !'\\n(.z'' \{ .di \}
.    di LETTERHEAD\\n+[#FIELD]
.    LEFT
.END
\#
\#
\# CLOSING
\# -------
\# *Arguments:
\#   <closing string>
\# *Function:
\#   Stores greeting in diversion CLOSING.
\#
.MAC CLOSING END
.    br
.    nr #CLOSING 1
.    di CLOSING
.    LEFT
.END
\#
\#
\# NO SUITE
\# --------
\# *Arguments:
\#   <none>
\# *Function:
\#   Redefines $FOOTER_RIGHT to blank so that a suite number doesn't
\#   appear at the bottom of letter pages.
\#
.MAC NO_SUITE END
.    FOOTER_RIGHT ""
.END
\#
\# ====================================================================
\#
\# +++DEFAULTS+++
\#
\# TYPE-STYLE CONTROL MACROS
\# -------------------------
\# The control macros for family, font, size, quad and color are here
\# grouped together.  Each (e.g. _FAMILY or _FONT) tests for a calling
\# alias before performing the action(s) appropriate to the calling
\# macro.  Defaults for all these guys are set in DEFAULTS, and listed
\# in the "Control Macros" section of the documentation pertinent to
\# the macro whose style is to be changed.
\#
.MAC _FAMILY END
.    if '\\$0'AUTHOR_FAMILY'                  
.    if '\\$0'BIBLIOGRAPHY_FAMILY'            .ds $BIB_FAM \\$1
.    if '\\$0'BIBLIOGRAPHY_STRING_FAMILY'     .ds $BIB_STRING_FAM \\$1
.    if '\\$0'BLOCKQUOTE_FAMILY'              .ds $BQUOTE_FAM \\$1
.    if '\\$0'CITATION_FAMILY'                .ds $BQUOTE_FAM \\$1
.    if '\\$0'CITE_FAMILY'                    .ds $BQUOTE_FAM \\$1
.    if '\\$0'CHAPTER_TITLE_FAMILY'           .ds $CHAPTER_TITLE_FAM \\$1
.    if '\\$0'COVER_AUTHOR_FAMILY'            .ds $COVER_AUTHOR_FAM \\$1
.    if '\\$0'COVER_CHAPTER_TITLE_FAMILY'     .ds $COVER_CHAPTER_TITLE_FAM \\$1
.    if '\\$0'COVER_COPYRIGHT_FAMILY'         .ds $COVER_COPYRIGHT_FAM \\$1
.    if '\\$0'COVER_DOCTYPE_FAMILY'           .ds $COVER_DOCTYPE_FAM \\$1
.    if '\\$0'COVER_FAMILY'                   .ds $COVER_FAM \\$1
.    if '\\$0'COVER_SUBTITLE_FAMILY'          .ds $COVER_SUBTITLE_FAM \\$1
.    if '\\$0'COVER_TITLE_FAMILY'             .ds $COVER_TITLE_FAM \\$1
.    if '\\$0'DOC_COVER_AUTHOR_FAMILY'        .ds $DOC_COVER_AUTHOR_FAM \\$1
.    if '\\$0'DOC_COVER_CHAPTER_TITLE_FAMILY' .ds $DOC_COVER_CHAPTER_TITLE_FAM \\$1
.    if '\\$0'DOC_COVER_COPYRIGHT_FAMILY'     .ds $DOC_COVER_COPYRIGHT_FAM \\$1
.    if '\\$0'DOC_COVER_DOCTYPE_FAMILY'       .ds $DOC_COVER_DOCTYPE_FAM \\$1
.    if '\\$0'DOC_COVER_FAMILY'               .ds $DOC_COVER_FAM \\$1
.    if '\\$0'DOC_COVER_SUBTITLE_FAMILY'      .ds $DOC_COVER_SUBTITLE_FAM \\$1
.    if '\\$0'DOC_COVER_TITLE_FAMILY'         .ds $DOC_COVER_TITLE_FAM \\$1
.    if '\\$0'DOCHEADER_FAMILY'               .ds $DOCHEADER_FAM \\$1
.    if '\\$0'DOCTYPE_FAMILY'                 .ds $DOCTYPE_FAM \\$1
.    if '\\$0'ENDNOTE_FAMILY'                 .ds $EN_FAM \\$1
.    if '\\$0'ENDNOTE_NUMBER_FAMILY'          .ds $EN_NUMBER_FAM \\$1
.    if '\\$0'ENDNOTE_LINENUMBER_FAMILY'      .ds $EN_LN_FAM \\$1
.    if '\\$0'ENDNOTE_STRING_FAMILY'          .ds $EN_STRING_FAM \\$1
.    if '\\$0'ENDNOTE_TITLE_FAMILY'           .ds $EN_TITLE_FAM \\$1
.    if '\\$0'EPIGRAPH_FAMILY'                .ds $EPI_FAM \\$1
.    if '\\$0'FOOTNOTE_FAMILY'                .ds $FN_FAM \\$1
.    if '\\$0'HDRFTR_CENTER_FAMILY'           .ds $HDRFTR_CENTER_FAM \\$1
.    if '\\$0'HDRFTR_FAMILY' \{\
.       ds $HDRFTR_FAM        \\$1
.       ds $HDRFTR_LEFT_FAM   \\$1
.       ds $HDRFTR_CENTER_FAM \\$1
.       ds $HDRFTR_RIGHT_FAM  \\$1
.    \}
.    if '\\$0'HDRFTR_LEFT_FAMILY'             .ds $HDRFTR_LEFT_FAM \\$1
.    if '\\$0'HDRFTR_RIGHT_FAMILY'            .ds $HDRFTR_RIGHT_FAM \\$1
.    if '\\$0'HEAD_FAMILY'                    .ds $HEAD_FAM \\$1
.    if '\\$0'LINENUMBER_FAMILY'              .ds $LN_FAM \\$1
.    if '\\$0'PAGENUM_FAMILY'                 .ds $PAGE_NUM_FAM \\$1
.    if '\\$0'PARAHEAD_FAMILY'                .ds $PH_FAM \\$1
.    if '\\$0'QUOTE_FAMILY'                   .ds $QUOTE_FAM \\$1
.    if '\\$0'SUBHEAD_FAMILY'                 .ds $SH_FAM \\$1
.    if '\\$0'SUBTITLE_FAMILY'                .ds $SUBTITLE_FAM \\$1
.    if '\\$0'TITLE_FAMILY'                   .ds $TITLE_FAM \\$1
.    if '\\$0'TOC_FAMILY'                     .ds $TOC_FAM \\$1
.    if '\\$0'TOC_FAM'                        .ds $TOC_FAM \\$1
.    if '\\$0'TOC_HEADER_FAMILY'              .ds $TOC_HEADER_FAM \\$1
.    if '\\$0'TOC_HEAD_FAMILY'                .ds $TOC_HEAD_FAM \\$1
.    if '\\$0'TOC_PARAHEAD_FAMILY'            .ds $TOC_PH_FAM \\$1
.    if '\\$0'TOC_PN_FAMILY'                  .ds $TOC_PN_FAM \\$1
.    if '\\$0'TOC_SUBHEAD_FAMILY'             .ds $TOC_SH_FAM \\$1
.    if '\\$0'TOC_TITLE_FAMILY'               .ds $TOC_TITLE_FAM \\$1
.END
\#
\#
.MAC _FONT END
.    if '\\$0'AUTHOR_FONT'                  .ds $AUTHOR_FT \\$1
.    if '\\$0'BIBLIOGRAPHY_FONT'            .ds $BIB_FT \\$1
.    if '\\$0'BIBLIOGRAPHY_STRING_FONT'     .ds $BIB_STRING_FT \\$1
.    if '\\$0'BLOCKQUOTE_FONT'              .ds $BQUOTE_FT \\$1
.    if '\\$0'CITATION_FONT'                .ds $BQUOTE_FT \\$1
.    if '\\$0'CITE_FONT'                    .ds $BQUOTE_FT \\$1
.    if '\\$0'CHAPTER_TITLE_FONT'           .ds $CHAPTER_TITLE_FT \\$1
.    if '\\$0'COVER_AUTHOR_FONT'            .ds $COVER_AUTHOR_FT \\$1
.    if '\\$0'COVER_CHAPTER_TITLE_FONT'     .ds $COVER_CHAPTER_TITLE_FT \\$1
.    if '\\$0'COVER_COPYRIGHT_FONT'         .ds $COVER_COPYRIGHT_FT \\$1
.    if '\\$0'COVER_DOCTYPE_FONT'           .ds $COVER_DOCTYPE_FT \\$1
.    if '\\$0'COVER_SUBTITLE_FONT'          .ds $COVER_SUBTITLE_FT \\$1
.    if '\\$0'COVER_TITLE_FONT'             .ds $COVER_TITLE_FT \\$1
.    if '\\$0'DOC_COVER_AUTHOR_FONT'        .ds $DOC_COVER_AUTHOR_FT \\$1
.    if '\\$0'DOC_COVER_CHAPTER_TITLE_FONT' .ds $DOC_COVER_CHAPTER_TITLE_FT \\$1
.    if '\\$0'DOC_COVER_COPYRIGHT_FONT'     .ds $DOC_COVER_COPYRIGHT_FT \\$1
.    if '\\$0'DOC_COVER_DOCTYPE_FONT'       .ds $DOC_COVER_DOCTYPE_FT \\$1
.    if '\\$0'DOC_COVER_SUBTITLE_FONT'      .ds $DOC_COVER_SUBTITLE_FT \\$1
.    if '\\$0'DOC_COVER_TITLE_FONT'         .ds $DOC_COVER_TITLE_FT \\$1
.    if '\\$0'DOCTYPE_FONT'                 .ds $DOCTYPE_FT \\$1
.    if '\\$0'ENDNOTE_FONT'                 .ds $EN_FT \\$1
.    if '\\$0'ENDNOTE_NUMBER_FONT'          .ds $EN_NUMBER_FT \\$1
.    if '\\$0'ENDNOTE_LINENUMBER_FONT'      .ds $EN_LN_FT \\$1
.    if '\\$0'ENDNOTE_STRING_FONT'          .ds $EN_STRING_FT \\$1
.    if '\\$0'ENDNOTE_TITLE_FONT'           .ds $EN_TITLE_FT \\$1
.    if '\\$0'EPIGRAPH_FONT'                .ds $EPI_FT \\$1
.    if '\\$0'FOOTNOTE_FONT'                .ds $FN_FT \\$1
.    if '\\$0'HDRFTR_CENTER_FONT'           .ds $HDRFTR_CENTER_FT \\$1
.    if '\\$0'HDRFTR_LEFT_FONT'             .ds $HDRFTR_LEFT_FT \\$1
.    if '\\$0'HDRFTR_RIGHT_FONT'            .ds $HDRFTR_RIGHT_FT \\$1
.    if '\\$0'HEAD_FONT'                    .ds $HEAD_FT \\$1
.    if '\\$0'LINENUMBER_FONT'              .ds $LN_FT \\$1
.    if '\\$0'PAGENUM_FONT'                 .ds $PAGE_NUM_FT \\$1
.    if '\\$0'PARAHEAD_FONT'                .ds $PH_FT \\$1
.    if '\\$0'QUOTE_FONT'                   .ds $QUOTE_FT \\$1
.    if '\\$0'SUBHEAD_FONT'                 .ds $SH_FT \\$1
.    if '\\$0'SUBTITLE_FONT'                .ds $SUBTITLE_FT \\$1
.    if '\\$0'TITLE_FONT'                   .ds $TITLE_FT \\$1
.    if '\\$0'TOC_HEADER_FONT'              .ds $TOC_HEADER_FT \\$1
.    if '\\$0'TOC_HEAD_FONT'                .ds $TOC_HEAD_FT \\$1
.    if '\\$0'TOC_PARAHEAD_FONT'            .ds $TOC_PH_FT \\$1
.    if '\\$0'TOC_PN_FONT'                  .ds $TOC_PN_FT \\$1
.    if '\\$0'TOC_SUBHEAD_FONT'             .ds $TOC_SH_FT \\$1
.    if '\\$0'TOC_TITLE_FONT'               .ds $TOC_TITLE_FT \\$1
.END
\#
\#
.MAC _SIZE END
.    if '\\$0'AUTHOR_SIZE'                  .ds $AUTHOR_SIZE_CHANGE \\$1
.    if '\\$0'BIBLIOGRAPHY_STRING_SIZE'     .ds $BIB_STRING_SIZE_CHANGE \\$1
.    if '\\$0'BLOCKQUOTE_SIZE'              .ds $BQUOTE_SIZE_CHANGE \\$1
.    if '\\$0'CITATION_SIZE'                .ds $BQUOTE_SIZE_CHANGE \\$1
.    if '\\$0'CITE_SIZE'                    .ds $BQUOTE_SIZE_CHANGE \\$1
.    if '\\$0'CHAPTER_TITLE_SIZE'           .ds $CHAPTER_TITLE_SIZE_CHANGE \\$1
.    if '\\$0'COVER_AUTHOR_SIZE'            .ds $COVER_AUTHOR_SIZE_CHANGE \\$1
.    if '\\$0'COVER_CHAPTER_TITLE_SIZE'     .ds $COVER_CHAPTER_TITLE_SIZE_CHANGE \\$1
.    if '\\$0'COVER_COPYRIGHT_SIZE'         .ds $COVER_COPYRIGHT_SIZE_CHANGE \\$1
.    if '\\$0'COVER_DOCTYPE_SIZE'           .ds $COVER_DOCTYPE_SIZE_CHANGE \\$1
.    if '\\$0'COVER_SUBTITLE_SIZE'          .ds $COVER_SUBTITLE_SIZE_CHANGE \\$1
.    if '\\$0'COVER_TITLE_SIZE'             .ds $COVER_TITLE_SIZE_CHANGE \\$1
.    if '\\$0'DOC_COVER_AUTHOR_SIZE'        .ds $DOC_COVER_AUTHOR_SIZE_CHANGE \\$1
.    if '\\$0'DOC_COVER_CHAPTER_TITLE_SIZE' .ds $DOC_COVER_CHAPTER_TITLE_SIZE_CHANGE \\$1
.    if '\\$0'DOC_COVER_COPYRIGHT_SIZE'     .ds $DOC_COVER_COPYRIGHT_SIZE_CHANGE \\$1
.    if '\\$0'DOC_COVER_DOCTYPE_SIZE'       .ds $DOC_COVER_DOCTYPE_SIZE_CHANGE \\$1
.    if '\\$0'DOC_COVER_SUBTITLE_SIZE'      .ds $DOC_COVER_SUBTITLE_SIZE_CHANGE \\$1
.    if '\\$0'DOC_COVER_TITLE_SIZE'         .ds $DOC_COVER_TITLE_SIZE_CHANGE \\$1
.    if '\\$0'DOCTYPE_SIZE'                 .ds $DOCTYPE_SIZE_CHANGE \\$1
.    if '\\$0'ENDNOTE_NUMBER_SIZE'          .ds $EN_NUMBER_SIZE_CHANGE \\$1
.    if '\\$0'ENDNOTE_LINENUMBER_SIZE'      .ds $EN_LN_SIZE_CHANGE \\$1
.    if '\\$0'ENDNOTE_STRING_SIZE'          .ds $EN_STRING_SIZE_CHANGE \\$1
.    if '\\$0'ENDNOTE_TITLE_SIZE'           .ds $EN_TITLE_SIZE_CHANGE \\$1
.    if '\\$0'EPIGRAPH_SIZE'                .ds $EPI_SIZE_CHANGE \\$1
.    if '\\$0'FOOTNOTE_SIZE'                .ds $FN_SIZE_CHANGE \\$1
.    if '\\$0'HDRFTR_CENTER_SIZE'           .ds $HDRFTR_CENTER_SIZE_CHANGE \\$1
.    if '\\$0'HDRFTR_LEFT_SIZE'             .ds $HDRFTR_LEFT_SIZE_CHANGE \\$1
.    if '\\$0'HDRFTR_RIGHT_SIZE'            .ds $HDRFTR_RIGHT_SIZE_CHANGE \\$1
.    if '\\$0'HDRFTR_SIZE'                  .ds $HDRFTR_SIZE_CHANGE \\$1
.    if '\\$0'HEAD_SIZE'                    .ds $HEAD_SIZE_CHANGE \\$1
.    if '\\$0'LINENUMBER_SIZE'              .ds $LN_SIZE_CHANGE \\$1
.    if '\\$0'PAGENUM_SIZE'                 .ds $PAGE_NUM_SIZE_CHANGE \\$1
.    if '\\$0'PARAHEAD_SIZE'                .ds $PH_SIZE_CHANGE \\$1
.    if '\\$0'QUOTE_SIZE'                   .ds $QUOTE_SIZE_CHANGE \\$1
.    if '\\$0'SUBHEAD_SIZE'                 .ds $SH_SIZE_CHANGE \\$1
.    if '\\$0'SUBTITLE_SIZE'                .ds $SUBTITLE_SIZE_CHANGE \\$1
.    if '\\$0'TITLE_SIZE'                   .ds $TITLE_SIZE_CHANGE \\$1
.    if '\\$0'TOC_HEADER_SIZE'              .ds $TOC_HEADER_SIZE_CHANGE \\$1
.    if '\\$0'TOC_HEAD_SIZE'                .ds $TOC_HEAD_SIZE_CHANGE \\$1
.    if '\\$0'TOC_PARAHEAD_SIZE'            .ds $TOC_PH_SIZE_CHANGE \\$1
.    if '\\$0'TOC_PN_SIZE'                  .ds $TOC_PN_SIZE_CHANGE \\$1
.    if '\\$0'TOC_SUBHEAD_SIZE'             .ds $TOC_SH_SIZE_CHANGE \\$1
.    if '\\$0'TOC_TITLE_SIZE'               .ds $TOC_TITLE_SIZE_CHANGE \\$1
.END
\#
\#
.MAC _COLOR END
.    if \\n[#PRINT_STYLE]=1 \{ .return \}
.    if '\\$0'ATTRIBUTE_COLOR' \{\
.       nr #ATTRIBUTE_COLOR 1
.       ds $ATTRIBUTE_COLOR \\$1
.    \}
.    if '\\$0'AUTHOR_COLOR' \{\
.       nr #AUTHOR_COLOR 1
.       ds $AUTHOR_COLOR \\$1
.    \}
.    if '\\$0'BLOCKQUOTE_COLOR' \{\
.       nr #BQUOTE_COLOR 1
.       ds $BQUOTE_COLOR \\$1
.    \}
.    if '\\$0'CITATION_COLOR' \{\
.       nr #BQUOTE_COLOR 1
.       ds $BQUOTE_COLOR \\$1
.    \}
.    if '\\$0'CITE_COLOR' \{\
.       nr #BQUOTE_COLOR 1
.       ds $BQUOTE_COLOR \\$1
.    \}
.    if '\\$0'CHAPTER_TITLE_COLOR' \{\
.       nr #CHAPTER_TITLE_COLOR 1
.       ds $CHAPTER_TITLE_COLOR \\$1
.    \}
.    if '\\$0'COVER_ATTRIBUTE_COLOR' \{\
.       nr #COVER_ATTRIBUTE_COLOR 1
.       ds $COVER_ATTRIBUTE_COLOR \\$1
.    \}
.    if '\\$0'COVER_AUTHOR_COLOR' \{\
.       nr #COVER_AUTHOR_COLOR 1
.       ds $COVER_AUTHOR_COLOR \\$1
.    \}
.    if '\\$0'COVER_CHAPTER_TITLE_COLOR' \{\
.       nr #COVER_CHAPTER_TITLE_COLOR 1
.       ds $COVER_CHAPTER_TITLE_COLOR \\$1
.    \}
.    if '\\$0'COVER_COLOR' \{\
.       nr #COVER_COLOR 1
.       ds $COVER_COLOR \\$1
.    \}
.    if '\\$0'COVER_COPYRIGHT_COLOR' \{\
.       nr #COVER_COPYRIGHT_COLOR 1
.       ds $COVER_COPYRIGHT_COLOR \\$1
.    \}
.    if '\\$0'COVER_MISC_COLOR' \{\
.       nr #COVER_MISC_COLOR 1
.       ds $COVER_MISC_COLOR \\$1
.    \}
.    if '\\$0'COVER_TITLE_COLOR' \{\
.       nr #COVER_TITLE_COLOR 1
.       ds $COVER_TITLE_COLOR \\$1
.    \}
.    if '\\$0'COVER_SUBTITLE_COLOR' \{\
.       nr #COVER_SUBTITLE_COLOR 1
.       ds $COVER_SUBTITLE_COLOR \\$1
.    \}
.    if '\\$0'COVER_DOCTYPE_COLOR' \{\
.       nr #COVER_DOCTYPE_COLOR 1
.       ds $COVER_DOCTYPE_COLOR \\$1
.    \}
.    if '\\$0'DOC_COVER_ATTRIBUTE_COLOR' \{\
.       nr #DOC_COVER_ATTRIBUTE_COLOR 1
.       ds $DOC_COVER_ATTRIBUTE_COLOR \\$1
.    \}
.    if '\\$0'DOC_COVER_AUTHOR_COLOR' \{\
.       nr #DOC_COVER_AUTHOR_COLOR 1
.       ds $DOC_COVER_AUTHOR_COLOR \\$1
.    \}
.    if '\\$0'DOC_COVER_CHAPTER_TITLE_COLOR' \{\
.       nr #DOC_COVER_CHAPTER_TITLE_COLOR 1
.       ds $DOC_COVER_CHAPTER_TITLE_COLOR \\$1
.    \}
.    if '\\$0'DOC_COVER_COLOR' \{\
.       nr #DOC_COVER_COLOR 1
.       ds $DOC_COVER_COLOR \\$1
.    \}
.    if '\\$0'DOC_COVER_COPYRIGHT_COLOR' \{\
.       nr #DOC_COVER_COPYRIGHT_COLOR 1
.       ds $DOC_COVER_COPYRIGHT_COLOR \\$1
.    \}
.    if '\\$0'DOC_COVER_MISC_COLOR' \{\
.       nr #DOC_COVER_MISC_COLOR 1
.       ds $DOC_COVER_MISC_COLOR \\$1
.    \}
.    if '\\$0'DOC_COVER_TITLE_COLOR' \{\
.       nr #DOC_COVER_TITLE_COLOR 1
.       ds $DOC_COVER_TITLE_COLOR \\$1
.    \}
.    if '\\$0'DOC_COVER_SUBTITLE_COLOR' \{\
.       nr #DOC_COVER_SUBTITLE_COLOR 1
.       ds $DOC_COVER_SUBTITLE_COLOR \\$1
.    \}
.    if '\\$0'DOC_COVER_DOCTYPE_COLOR' \{\
.       nr #DOC_COVER_DOCTYPE_COLOR 1
.       ds $DOC_COVER_DOCTYPE_COLOR \\$1
.    \}
.    if '\\$0'DOCHEADER_COLOR' \{\
.       nr #DOCHEADER_COLOR 1
.       ds $DOCHEADER_COLOR \\$1
.    \}
.    if '\\$0'DOCTYPE_COLOR' \{\
.       nr #DOCTYPE_COLOR 1
.       ds $DOCTYPE_COLOR \\$1
.    \}
.    if '\\$0'EPIGRAPH_COLOR' \{\
.       nr #EPI_COLOR 1
.       ds $EPI_COLOR \\$1
.    \}
.    if '\\$0'FINIS_COLOR' \{\
.       nr #FINIS_COLOR 1
.       ds $FINIS_COLOR \\$1
.    \}
.    if '\\$0'FOOTNOTE_COLOR' \{\
.       nr #FOOTNOTE_COLOR 1
.       ds $FOOTNOTE_COLOR \\$1
.    \}
.    if '\\$0'HDRFTR_CENTER_COLOR' \{\
.       nr #HDRFTR_CENTER_COLOR 1
.       ds $HDRFTR_CENTER_COLOR \\$1
.    \}
.    if '\\$0'HDRFTR_COLOR' \{\
.       nr #HDRFTR_COLOR 1
.       ds $HDRFTR_COLOR \\$1
.    \}
.    if '\\$0'HDRFTR_LEFT_COLOR' \{\
.       nr #HDRFTR_LEFT_COLOR 1
.       ds $HDRFTR_LEFT_COLOR \\$1
.    \}
.    if '\\$0'HDRFTR_RIGHT_COLOR' \{\
.       nr #HDRFTR_RIGHT_COLOR 1
.       ds $HDRFTR_RIGHT_COLOR \\$1
.    \}
.    if '\\$0'HDRFTR_RULE_COLOR' \{\
.       nr #HDRFTR_RULE_COLOR 1
.       ds $HDRFTR_RULE_COLOR \\$1
.    \}
.    if '\\$0'HEAD_COLOR' \{\
.       nr #HEAD_COLOR 1
.       ds $HEAD_COLOR \\$1
.    \}
.    if '\\$0'LINEBREAK_COLOR' \{\
.       nr #LINEBREAK_COLOR 1
.       ds $LINEBREAK_COLOR \\$1
.    \}
.    if '\\$0'LINENUMBER_COLOR' \{\
.       nr #LINENUMBER_COLOR 1
.       ds $LN_COLOR \\$1
.    \}
.    if '\\$0'PAGENUM_COLOR' \{\
.       nr #PAGE_NUM_COLOR 1
.       ds $PAGENUM_COLOR \\$1
.    \}
.    if '\\$0'PARAHEAD_COLOR' \{\
.       nr #PH_COLOR 1
.       ds $PH_COLOR \\$1
.    \}
.    if '\\$0'QUOTE_COLOR' \{\
.       nr #QUOTE_COLOR 1
.       ds $QUOTE_COLOR \\$1
.    \}
.    if '\\$0'SUBHEAD_COLOR' \{\
.       nr #SH_COLOR 1
.       ds $SH_COLOR \\$1
.    \}
.    if '\\$0'SUBTITLE_COLOR' \{\
.       nr #SUBTITLE_COLOR 1
.       ds $SUBTITLE_COLOR \\$1
.    \}
.    if '\\$0'TITLE_COLOR' \{\
.       nr #TITLE_COLOR 1
.       ds $TITLE_COLOR \\$1
.    \}
.END
\#
\#
.MAC _QUAD END
.    if '\\$0'BIBLIOGRAPHY_QUAD' \{\
.       ds $BIB_QUAD \\$1
.       if '\\*[$BIB_QUAD]'R' .ab Fatal error: \\$0 must be set to either L or J
.       if '\\*[$BIB_QUAD]'C' .ab Fatal error: \\$0 must be set to either L or J
.    \}
.    if '\\$0'BIBLIOGRAPHY_STRING_QUAD' .ds $BIB_STRING_QUAD \\$1
.    if '\\$0'BLOCKQUOTE_QUAD'          .ds $BQUOTE_QUAD \\$1
.    if '\\$0'CITATION_QUAD'            .ds $BQUOTE_QUAD \\$1
.    if '\\$0'CITE_QUAD'                .ds $BQUOTE_QUAD \\$1
.    if '\\$0'COVER_COPYRIGHT_QUAD'     .ds $COVER_COPYRIGHT_QUAD \\$1
.    if '\\$0'COVER_MISC_QUAD'          .ds $COVER_MISC_QUAD \\$1
.    if '\\$0'DOC_COVER_COPYRIGHT_QUAD' .ds $DOC_COVER_COPYRIGHT_QUAD \\$1
.    if '\\$0'DOC_COVER_MISC_QUAD'      .ds $DOC_COVER_MISC_QUAD \\$1
.    if '\\$0'DOC_QUAD' \{\
.        ds $DOC_QUAD \\$1
.        QUAD \\*[$DOC_QUAD]
.    \}
.    if '\\$0'ENDNOTE_QUAD' \{\
.       ds $EN_QUAD \\$1
.       if '\\*[$EN_QUAD]'R' .ab Fatal error: \\$0 must be set to either L or J
.       if '\\*[$EN_QUAD]'C' .ab Fatal error: \\$0 must be set to either L or J
.    \}
.    if '\\$0'ENDNOTE_STRING_QUAD'      .ds $EN_STRING_QUAD \\$1
.    if '\\$0'ENDNOTE_TITLE_QUAD'       .ds $EN_TITLE_QUAD \\$1
.    if '\\$0'EPIGRAPH_QUAD'            .ds $EPI_QUAD \\$1
.    if '\\$0'FOOTNOTE_QUAD'            .ds $FN_QUAD \\$1
.    if '\\$0'HEAD_QUAD'                .ds $HEAD_QUAD \\$1
.    if '\\$0'SUBHEAD_QUAD'             .ds $SH_QUAD \\$1
.    if '\\$0'TOC_HEADER_QUAD'          .ds $TOC_HEADER_QUAD \\$1
.END
\#
\#
\# DEFAULTS
\# --------
\# *Arguments:
\#   <none>
\# *Function:
\#   Sets up defaults if no values are entered prior to START.
\# *Notes:
\#   The defaults for $CHAPTER_STRING, $DRAFT_STRING, and
\#   $REVISION_STRING are in the COPYSTYLE macro.
\#
.MAC DEFAULTS END
.    if !d$PAPER \{ .PAPER LETTER \}
.    if !\\n[#DOC_TYPE]   \{ .DOCTYPE DEFAULT \}
.    ie \\n[#PAGENUM_STYLE_SET] \{ .PAGENUM_STYLE \\*[$PAGENUM_STYLE] \}
.    el \{\
.       if !\\n[#COPY_STYLE]=1 \{ .PAGENUM_STYLE DIGIT \}
.    \}
.    if !\\n[#COPY_STYLE] \{ .COPYSTYLE FINAL \}
.    if \\n[#DRAFT_WITH_PAGENUM] \{ .COPYSTYLE \\*[$COPY_STYLE] \}
.    if \\n[#DOC_TYPE]=4 \{\
.       if !\\n[#USER_SET_L_LENGTH] \{\
.          R_MARGIN \\n[#R_MARGIN]u
.          rr #USER_SET_L_LENGTH
.       \}
.       if \\n[#PRINT_STYLE]=1 \{ .PRINTSTYLE TYPEWRITE SINGLESPACE \}
.    \}
.    if \\n[#COPY_STYLE]=1 \{\
.       COPYSTYLE DRAFT
.       PAGENUMBER 1
.    \}
.    if !r#DOC_HEADER \{ .DOCHEADER  \}
.    if !r#HEADERS_ON \{ .HEADERS    \}
.    if !r#PAGINATE   \{ .PAGINATE   \}
.    if \\n[#FOOTERS_ON] \{\
.       HEADERS OFF
.       if \\n[#PAGE_NUM_POS_SET]=0 \{ .PAGENUM_POS TOP CENTER \}
.    \}
.    if !r#HEADER_MARGIN \{ .HEADER_MARGIN 4P+6p \}
.    if !r#HEADER_GAP    \{ .HEADER_GAP    3P    \}
.    if \\n[#FOOTERS_ON] \{\
.       if \\n[#PAGINATE]=0 \{\
.          if !r#T_MARGIN \{ .T_MARGIN 6P \}
.       \}
.    \}
.    if \\n[#HEADERS_ON]=0    \{\
.       if \\n[#FOOTERS_ON]=0 \{\
.          if !r#T_MARGIN \{ .T_MARGIN 6P \}
.       \}
.    \}
.    if !r#T_MARGIN          \{ .T_MARGIN \\n[#HEADER_MARGIN]+\\n[#HEADER_GAP] \}
.    if !r#DOCHEADER_ADVANCE \{ .nr #DOCHEADER_ADVANCE \\n[#T_MARGIN] \}
.    if !r#FOOTER_MARGIN     \{ .FOOTER_MARGIN 3P \}
.    if !r#FOOTER_GAP        \{ .FOOTER_GAP    3P \}
.    if !r#B_MARGIN          \{ .B_MARGIN \\n[#FOOTER_MARGIN]u+\\n[#FOOTER_GAP]u \}
.    if (\\n[#FOOTER_MARGIN]+\\n(.v)>\\n[#B_MARGIN] \{\
.       tm1 "[mom]: Your chosen bottom margin for running text is too close to the footer margin.
.       tm1 "       No footers or bottom-of-page page numbers will be printed.
.       tm1 "       Please reset B_MARGIN or FOOTER_MARGIN to allow enough space.
.       tm1 "       If no footers or bottom-of-page page numbers are required,
.       tm1 "       type in .FOOTER_MARGIN 0 before .START
.    \}
.    if !r#HEADER_RULE_GAP   \{ .HEADER_RULE_GAP 4p \}
.    if !r#FOOTER_RULE_GAP   \{ .FOOTER_RULE_GAP 4p \}
.    if !r#HDRFTR_RULE       \{ .HDRFTR_RULE        \}
.    if !r#PAGE_NUM_SET      \{ .PAGENUMBER 1       \}
.\" Read in number registers and strings for type parameters
.    nr #DOC_L_MARGIN \\n[#L_MARGIN]
.    nr #DOC_L_LENGTH \\n[#L_LENGTH]
.    nr #DOC_R_MARGIN \\n[#PAGE_WIDTH]-(\\n[#DOC_L_MARGIN]+\\n[#L_LENGTH])
.    ds $DOC_FAM      \\*[$FAMILY]
.    nr #DOC_PT_SIZE  \\n[#PT_SIZE]
.    nr #DOC_LEAD     \\n[#LEAD]
.\" #SAVED_DOC_LEAD is set in COLLATE
.    if r#SAVED_DOC_LEAD \{\
.       if !\\n[#DOC_LEAD]=\\n[#SAVED_DOC_LEAD] \{ .nr #RERUN_TRAPS 1 \}
.    \}
.    ie \\n[#ADJ_DOC_LEAD]=1 \{ . \}
.    el \{\
.       if !\\n[#DOC_LEAD_ADJUST_OFF] \{\
.          DOC_LEAD_ADJUST
.       \}
.    \}
.    ds $DOC_QUAD      \\*[$QUAD_VALUE]
.    if '\\*[$FONT]''  \{ .FT R \}
.    if '\\*[$PP_FT]'' \{\
.       ds $PP_FT \\*[$FONT]
.    \}
.    if !'\\*[$PP_FT]'' \{\
.       ds $PP_FT \\*[$FONT]
.    \}
.\" Counters
.    nr #PP 0
.    nr #FN_NUMBER 0 1
.    nr #EN_NUMBER 0 1
.    nr #FN_COUNT_FOR_COLS 0 1
.    nr #DONE_ONCE 0 1
.    RESET_HEAD_NUMBER
.    RESET_SUBHEAD_NUMBER
.    RESET_PARAHEAD_NUMBER
.\" General style defaults for both PRINTSTYLEs
.    nr #PP_STYLE 1
.    PARA_INDENT \\n[#PP_INDENT]u
.    if !d$HDRFTR_FAM           \{ .HDRFTR_FAMILY  \\*[$DOC_FAM] \}
.    if !d$HDRFTR_SIZE_CHANGE   \{ .HDRFTR_SIZE    +0            \}
.    if !d$PAGE_NUM_FAM         \{ .PAGENUM_FAMILY \\*[$DOC_FAM] \}
.    if !d$PAGE_NUM_FT          \{ .PAGENUM_FONT   R             \}
.    if !d$PAGE_NUM_SIZE_CHANGE \{ .PAGENUM_SIZE   +0            \}
.    if !r#PAGE_NUM_POS_SET     \{ .PAGENUM_POS BOTTOM CENTER    \}
.    ie \\n[#PAGE_NUM_HYPHENS_SET] \{\
.       if \\n[#PAGE_NUM_HYPHENS]=0  \{ .PAGENUM_HYPHENS OFF \}
.       if \\n[#PAGE_NUM_HYPHENS]=1  \{ .PAGENUM_HYPHENS     \}
.    \}
.    el \{ .PAGENUM_HYPHENS \}
.    if !d$HEAD_QUAD         \{ .HEAD_QUAD CENTER  \}
.    if !r#HEAD_CAPS         \{ .HEAD_CAPS         \}
.    if !r#HEAD_UNDERLINE    \{ .HEAD_UNDERLINE    \}
.    if !d$SH_QUAD           \{ .SUBHEAD_QUAD LEFT \}
.    if !r#HDRFTR_RIGHT_CAPS \{ .HDRFTR_RIGHT_CAPS \}
.    if \\n[#HDRFTR_RIGHT_CAPS]=0 \{\
.       if !d$HDRFTR_RIGHT_SIZE_CHANGE \{ .HDRFTR_RIGHT_SIZE +0 \}
.    \}
.    if !d$FN_FAM               \{ .FOOTNOTE_FAMILY \\*[$DOC_FAM]      \}
.    if !d$FN_FT                \{ .FOOTNOTE_FONT R                    \}
.    if !d$FN_QUAD              \{ .FOOTNOTE_QUAD \\*[$DOC_QUAD]       \}
.    if !r#FN_RULE              \{ .FOOTNOTE_RULE                      \}
.    if !r#FN_MARKERS           \{ .FOOTNOTE_MARKERS                   \}
.    if \\n[#FN_MARKERS]=1 \{\
.       if !\\n[#FN_MARKER_STYLE] \{ .FOOTNOTE_MARKER_STYLE STAR       \}
.    \}
.    if !\\n[#EN_MARKER_STYLE]  \{ .ENDNOTE_MARKER_STYLE NUMBER        \}
.    if !d$EN_PN_STYLE          \{ .ENDNOTES_PAGENUM_STYLE digit       \}
.    if !d$EN_FAM               \{ .ENDNOTE_FAMILY \\*[$DOC_FAM]       \}
.    if !d$EN_FT                \{ .ENDNOTE_FONT R                     \}
.    if !d$EN_QUAD              \{ .ENDNOTE_QUAD \\*[$DOC_QUAD]        \}
.    if !d$EN_STRING            \{ .ENDNOTE_STRING "Endnotes"          \}
.    if !d$EN_STRING_FAM        \{ .ENDNOTE_STRING_FAMILY \\*[$EN_FAM] \}
.    if !d$EN_STRING_QUAD       \{ .ENDNOTE_STRING_QUAD CENTER         \}
.    if !r#EN_STRING_UNDERLINE  \{ .nr #EN_STRING_UNDERLINE 2          \}
.    if !r#EN_STRING_CAPS       \{ .ENDNOTE_STRING_CAPS                \}
.    if !d$EN_TITLE \{\
.       ie \\n[#DOC_TYPE]=2 \{\
.          ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.             ie '\\*[$CHAPTER]'' \{ .ENDNOTE_TITLE "\\*[$CHAPTER_TITLE]" \}
.             el \{ .ENDNOTE_TITLE "\\*[$CHAPTER_STRING] \\*[$CHAPTER]: \\*[$CHAPTER_TITLE]" \}
.          \}
.             el \{\
.                ie '\\*[$CHAPTER]'' \{ .ENDNOTE_TITLE "\\*[$CHAPTER_STRING]" \}
.                el \{ .ENDNOTE_TITLE "\\*[$CHAPTER_STRING] \\*[$CHAPTER]"    \}
.             \}
.          \}
.       el \{ .ENDNOTE_TITLE "\\*[$TITLE]" \}
.    \}
.    if !d$EN_TITLE_FAM          \{ .ENDNOTE_TITLE_FAMILY \\*[$EN_FAM]      \}
.    if !d$EN_TITLE_QUAD         \{ .ENDNOTE_TITLE_QUAD LEFT                \}
.    if !r#EN_TITLE_UNDERLINE    \{ .nr #EN_TITLE_UNDERLINE 1               \}
.    if !d$EN_NUMBER_FAM         \{ .ENDNOTE_NUMBER_FAMILY \\*[$EN_FAM]     \}
.    if !d$EN_LN_FAM             \{ .ENDNOTE_LINENUMBER_FAMILY \\*[$EN_FAM] \}
.    if !r#EN_NUMBERS_ALIGN_LEFT \{\
.       if !r#EN_NUMBERS_ALIGN_RIGHT \{ .ENDNOTE_NUMBERS_ALIGN_RIGHT 2  \}
.    \}
.    if !d$EN_LN_GAP             \{ .ENDNOTE_LINENUMBER_GAP 1.5n        \}
.    if !r#EN_ALLOWS_HEADERS     \{ .ENDNOTES_ALLOWS_HEADERS            \}
.    if !d$BIB_PN_STYLE          \{ .BIBLIOGRAPHY_PAGENUM_STYLE digit         \}
.    if !d$BIB_FAM               \{ .BIBLIOGRAPHY_FAMILY \\*[$DOC_FAM]        \}
.    if !d$BIB_FT                \{ .BIBLIOGRAPHY_FONT R                      \}
.    if !d$BIB_QUAD              \{ .BIBLIOGRAPHY_QUAD \\*[$DOC_QUAD]         \}
.    if !d$BIB_STRING            \{ .BIBLIOGRAPHY_STRING "Bibliography"       \}
.    if !d$BIB_STRING_FAM        \{ .BIBLIOGRAPHY_STRING_FAMILY \\*[$BIB_FAM] \}
.    if !d$BIB_STRING_QUAD       \{ .BIBLIOGRAPHY_STRING_QUAD CENTER          \}
.    if !r#BIB_STRING_UNDERLINE  \{ .nr #BIB_STRING_UNDERLINE 2               \}
.    if !r#BIB_STRING_CAPS       \{ .BIBLIOGRAPHY_STRING_CAPS                 \}
.    if !d$TOC_HEADER_STRING     \{ .TOC_HEADER_STRING "Contents"  \}
.    if !d$TOC_HEADER_QUAD       \{ .TOC_HEADER_QUAD LEFT          \}
.    if !d$TOC_PN_STYLE          \{ .TOC_PAGENUM_STYLE roman       \}
.    if !r#TOC_PN_PADDING        \{ .TOC_PADDING   3               \}
.    if !r#TOC_TITLE_INDENT      \{ .TOC_TITLE_INDENT    0         \}
.\" String defaults for both PRINTSTYLEs
.    ie \\n[#DOC_TYPE]=1 \{\
.       ie '\\*[$DOC_TITLE]'' \{\
.          if \\n[#USER_DEF_HDRFTR_LEFT]=0  .ds $HDRFTR_LEFT \\*[$AUTHOR_1]
.          if \\n[#USER_DEF_HDRFTR_RIGHT]=0 .ds $HDRFTR_RIGHT \\*[$TITLE]
.       \}
.       el \{\
.          if \\n[#COPY_STYLE]=1 \{ .DRAFT_WITH_PAGENUMBER \}
.          if \\n[#USER_DEF_HDRFTR_LEFT]=0   .ds $HDRFTR_LEFT \\*[$AUTHOR_1]
.          if \\n[#USER_DEF_HDRFTR_CENTER]=0 .ds $HDRFTR_CENTER \\*[$TITLE]
.          if \\n[#USER_DEF_HDRFTR_RIGHT]=0  .ds $HDRFTR_RIGHT \\*[$DOC_TITLE]
.       \}
.    \}
.    el \{\
.       if \\n[#USER_DEF_HDRFTR_LEFT]=0  .ds $HDRFTR_LEFT \\*[$AUTHOR_1]
.       if \\n[#USER_DEF_HDRFTR_RIGHT]=0 .ds $HDRFTR_RIGHT \\*[$TITLE]
.    \}
.    if !d$ATTRIBUTE_STRING .ds $ATTRIBUTE_STRING by
.    if !d$FINIS_STRING      \{ .FINIS_STRING "End"       \}
.    if !r#FINIS_STRING_CAPS \{ .nr #FINIS_STRING_CAPS 1  \}
.\" Covers
.    if !r#DOC_COVERS_OFF           \{ .nr #DOC_COVERS 1           \}
.    if !r#COVERS_OFF               \{ .nr #COVERS 1               \}
.    if !d$COVER_COPYRIGHT_QUAD     \{ .COVER_COPYRIGHT_QUAD R     \}
.    if !d$COVER_MISC_QUAD          \{ .COVER_MISC_QUAD L          \}
.    if !d$DOC_COVER_COPYRIGHT_QUAD \{ .DOC_COVER_COPYRIGHT_QUAD R \}
.    if !d$DOC_COVER_MISC_QUAD      \{ .DOC_COVER_MISC_QUAD L      \}
.    if !r#DOCCOVER_UNDERLINE       \{ .DOC_COVER_UNDERLINE        \}
.    if !r#COVER_UNDERLINE          \{ .COVER_UNDERLINE            \}
.\" Defaults for printstyle TYPEWRITE
.    if \\n[#PRINT_STYLE]=1 \{\
.       if \\n[#UNDERLINE_QUOTES]=1 \{ .UNDERLINE_QUOTES         \}
.       if \\n[#UNDERLINE_QUOTES]=0 \{ .UNDERLINE_QUOTES OFF     \}
.\" +Quotes and blockquotes
.       if !r#Q_OFFSET_VALUE \{\
.          if '\\*[$Q_OFFSET_VALUE]'' \{ .QUOTE_INDENT 2 \}
.       \}
.\" +Epigraphs
.       if !r#EPI_OFFSET_VALUE \{\
.          if '\\*[$EPI_OFFSET_VALUE]'' \{ .EPIGRAPH_INDENT 2 \}
.       \}
.\" +Linebreaks
.       if !d$LINEBREAK_CHAR        \{ .LINEBREAK_CHAR    * 3 2p \}
.\" +Footnotes
.       if !d$FN_SIZE_CHANGE        \{ .FOOTNOTE_SIZE     +0     \}
.       if !r#FN_RULE_LENGTH        \{ .FOOTNOTE_RULE_LENGTH 2i  \}
.\" +Paragraph heads
.       if !r#PH_INDENT    \{ .PARAHEAD_INDENT \\n[#PP_INDENT]u/2u \}
.\" +Endnotes
.       if !r#EN_PP_INDENT \{ .ENDNOTE_PARA_INDENT \\n[#PP_INDENT] \}
.\" +Footnotes
.       if !r#FN_RULE_ADJ           \{ .FOOTNOTE_RULE_ADJ  6p    \}
.\" +Slant stuff
.       if !r#SLANT_MEANS_SLANT \{\
.          ie \\n[#UNDERLINE_SLANT]=1 \{ .UNDERLINE_SLANT \}
.          el \{ .UNDERLINE_SLANT OFF \}
.       \}
.    \}
.\" Defaults for printstyle TYPESET
.    if \\n[#PRINT_STYLE]=2 \{\
.       if !d$DOCHEADER_LEAD_ADJ \{ .DOCHEADER_LEAD +0 \}
.\" +Cover
.       if !d$COVER_LEAD_ADJ \{ .COVER_LEAD +0 \}
.       if !d$COVER_FAM \{ .COVER_FAMILY \\*[$DOC_FAM] \}
.\" (title)
.       if !d$COVER_TITLE_FAM \{\
.          ie !d$COVER_FAM \{ .COVER_TITLE_FAMILY \\*[$DOC_FAM] \}
.          el            \{ .COVER_TITLE_FAMILY \\*[$COVER_FAM] \}
.       \}
.       if !d$COVER_TITLE_FT          \{ .COVER_TITLE_FONT B    \}
.       if !d$COVER_TITLE_SIZE_CHANGE \{ .COVER_TITLE_SIZE +3.5 \}
.\" (chapter title)
.       if !d$COVER_CHAPTER_TITLE_FAM \{\
.          ie !d$COVER_FAM \{ .COVER_CHAPTER_TITLE_FAMILY \\*[$DOC_FAM] \}
.          el            \{ .COVER_CHAPTER_TITLE_FAMILY \\*[$COVER_FAM] \}
.       \}
.       if !d$COVER_CHAPTER_TITLE_FT          \{ .COVER_CHAPTER_TITLE_FONT BI \}
.       if !d$COVER_CHAPTER_TITLE_SIZE_CHANGE \{ .COVER_CHAPTER_TITLE_SIZE +4 \}
.\" (subtitle)
.       if !d$COVER_SUBTITLE_FAM \{\
.          ie !d$COVER_FAM \{ .COVER_SUBTITLE_FAMILY \\*[$DOC_FAM] \}
.          el            \{ .COVER_SUBTITLE_FAMILY \\*[$COVER_FAM] \}
.       \}
.       if !d$COVER_SUBTITLE_FT          \{ .COVER_SUBTITLE_FONT R  \}
.       if !d$COVER_SUBTITLE_SIZE_CHANGE \{ .COVER_SUBTITLE_SIZE +0 \}
.\" (attribution and author[s])
.       if !d$COVER_AUTHOR_FAM \{\
.          ie !d$COVER_FAM \{ .COVER_AUTHOR_FAMILY \\*[$DOC_FAM] \}
.          el      \{ .COVER_AUTHOR_FAMILY \\*[$COVER_FAM] \}
.       \}
.       if !d$COVER_AUTHOR_FT          \{ .COVER_AUTHOR_FONT I  \}
.       if !d$COVER_AUTHOR_SIZE_CHANGE \{ .COVER_AUTHOR_SIZE +0 \}
.\" (doctype if "named")
.       if !d$COVER_DOCTYPE_FAM \{\
.          ie !d$COVER_FAM \{ .COVER_DOCTYPE_FAMILY \\*[$DOC_FAM] \}
.          el            \{ .COVER_DOCTYPE_FAMILY \\*[$COVER_FAM] \}
.       \}
.       if !d$COVER_DOCTYPE_FT          \{ .COVER_DOCTYPE_FONT BI \}
.       if !d$COVER_DOCTYPE_SIZE_CHANGE \{ .COVER_DOCTYPE_SIZE +3 \}
.\" (copyright)
.       if !d$COVER_COPYRIGHT_FAM \{\
.          ie !d$COVER_FAM \{ .COVER_COPYRIGHT_FAMILY \\*[$DOC_FAM] \}
.          el            \{ .COVER_COPYRIGHT_FAMILY \\*[$COVER_FAM] \}
.       \}
.       if !d$COVER_COPYRIGHT_FT          \{ .COVER_COPYRIGHT_FONT R  \}
.       if !d$COVER_COPYRIGHT_SIZE_CHANGE \{ .COVER_COPYRIGHT_SIZE -2 \}
.\" +Doc cover
.       if !d$DOC_COVER_LEAD_ADJ \{ .DOC_COVER_LEAD +0 \}
.       if !d$DOC_COVER_FAM \{ .DOC_COVER_FAMILY \\*[$DOC_FAM] \}
.\" (title)
.       if !d$DOC_COVER_TITLE_FAM \{\
.          ie !d$DOC_COVER_FAM \{ .DOC_COVER_TITLE_FAMILY \\*[$DOC_FAM] \}
.          el            \{ .DOC_COVER_TITLE_FAMILY \\*[$DOC_COVER_FAM] \}
.       \}
.       if !d$DOC_COVER_TITLE_FT          \{ .DOC_COVER_TITLE_FONT B    \}
.       if !d$DOC_COVER_TITLE_SIZE_CHANGE \{ .DOC_COVER_TITLE_SIZE +3.5 \}
.\" (chapter title)
.       if !d$DOC_COVER_CHAPTER_TITLE_FAM \{\
.          ie !d$DOC_COVER_FAM \{ .DOC_COVER_CHAPTER_TITLE_FAMILY \\*[$DOC_FAM] \}
.          el            \{ .DOC_COVER_CHAPTER_TITLE_FAMILY \\*[$DOC_COVER_FAM] \}
.       \}
.       if !d$DOC_COVER_CHAPTER_TITLE_FT          \{ .DOC_COVER_CHAPTER_TITLE_FONT BI \}
.       if !d$DOC_COVER_CHAPTER_TITLE_SIZE_CHANGE \{ .DOC_COVER_CHAPTER_TITLE_SIZE +4 \}
.\" (subtitle)
.       if !d$DOC_COVER_SUBTITLE_FAM \{\
.          ie !d$DOC_COVER_FAM \{ .DOC_COVER_SUBTITLE_FAMILY \\*[$DOC_FAM] \}
.          el            \{ .DOC_COVER_SUBTITLE_FAMILY \\*[$DOC_COVER_FAM] \}
.       \}
.       if !d$DOC_COVER_SUBTITLE_FT          \{ .DOC_COVER_SUBTITLE_FONT R  \}
.       if !d$DOC_COVER_SUBTITLE_SIZE_CHANGE \{ .DOC_COVER_SUBTITLE_SIZE +0 \}
.\" (attribution and author[s])
.       if !d$DOC_COVER_AUTHOR_FAM \{\
.          ie !d$DOC_COVER_FAM \{ .DOC_COVER_AUTHOR_FAMILY \\*[$DOC_FAM] \}
.          el            \{ .DOC_COVER_AUTHOR_FAMILY \\*[$DOC_COVER_FAM] \}
.       \}
.       if !d$DOC_COVER_AUTHOR_FT          \{ .DOC_COVER_AUTHOR_FONT I  \}
.       if !d$DOC_COVER_AUTHOR_SIZE_CHANGE \{ .DOC_COVER_AUTHOR_SIZE +0 \}
.\" (doctype if "named")
.       if !d$DOC_COVER_DOCTYPE_FAM \{\
.          ie !d$DOC_COVER_FAM \{ .DOC_COVER_DOCTYPE_FAMILY \\*[$DOC_FAM] \}
.          el            \{ .DOC_COVER_DOCTYPE_FAMILY \\*[$DOC_COVER_FAM] \}
.       \}
.       if !d$DOC_COVER_DOCTYPE_FT          \{ .DOC_COVER_DOCTYPE_FONT BI \}
.       if !d$DOC_COVER_DOCTYPE_SIZE_CHANGE \{ .DOC_COVER_DOCTYPE_SIZE +3 \}
.\" (copyright)
.       if !d$DOC_COVER_COPYRIGHT_FAM \{\
.          ie !d$DOC_COVER_FAM \{ .DOC_COVER_COPYRIGHT_FAMILY \\*[$DOC_FAM] \}
.          el            \{ .DOC_COVER_COPYRIGHT_FAMILY \\*[$DOC_COVER_FAM] \}
.       \}
.       if !d$DOC_COVER_COPYRIGHT_FT          \{ .DOC_COVER_COPYRIGHT_FONT R  \}
.       if !d$DOC_COVER_COPYRIGHT_SIZE_CHANGE \{ .DOC_COVER_COPYRIGHT_SIZE -2 \}
.\" +Docheader
.       if !d$DOCHEADER_FAM \{ .DOCHEADER_FAMILY \\*[$DOC_FAM] \}
.       if !d$TITLE_FAM \{\
.          ie !d$DOCHEADER_FAM \{ .TITLE_FAMILY \\*[$DOC_FAM]       \}
.          el                  \{ .TITLE_FAMILY \\*[$DOCHEADER_FAM] \}
.       \}
.       if !d$TITLE_FT \{ .TITLE_FONT B \}
.       if !d$TITLE_SIZE_CHANGE \{\
.          ie \\n[#DOC_TYPE]=2 \{ .TITLE_SIZE +4 \}
.          el \{ .TITLE_SIZE +3.5 \}
.       \}
.       if !d$CHAPTER_TITLE_FAM \{\
.          ie !d$DOCHEADER_FAM \{ .CHAPTER_TITLE_FAMILY \\*[$DOC_FAM]       \}
.          el                  \{ .CHAPTER_TITLE_FAMILY \\*[$DOCHEADER_FAM] \}
.       \}
.       if !d$CHAPTER_TITLE_FT          \{ .CHAPTER_TITLE_FONT   BI \}
.       if !d$CHAPTER_TITLE_SIZE_CHANGE \{ .CHAPTER_TITLE_SIZE  +4  \}
.       if !d$SUBTITLE_FAM \{\
.          ie !d$DOCHEADER_FAM \{ .SUBTITLE_FAMILY \\*[$DOC_FAM]       \}
.          el                  \{ .SUBTITLE_FAMILY \\*[$DOCHEADER_FAM] \}
.       \}
.       if !d$SUBTITLE_FT          \{ .SUBTITLE_FONT      R  \}
.       if !d$SUBTITLE_SIZE_CHANGE \{ .SUBTITLE_SIZE     +0  \}
.       if !d$AUTHOR_FAM \{\
.          ie !d$DOCHEADER_FAM \{ .AUTHOR_FAMILY \\*[$DOC_FAM]       \}
.          el                  \{ .AUTHOR_FAMILY \\*[$DOCHEADER_FAM] \}
.       \}
.       if !d$AUTHOR_FT          \{ .AUTHOR_FONT  I \}
.       if !d$AUTHOR_SIZE_CHANGE \{ .AUTHOR_SIZE +0 \}
.       if !d$DOCTYPE_FAM \{\
.          ie !d$DOCHEADER_FAM \{ .DOCTYPE_FAMILY \\*[$DOC_FAM]       \}
.          el                  \{ .DOCTYPE_FAMILY \\*[$DOCHEADER_FAM] \}
.       \}
.       if !d$DOCTYPE_FT           \{ .DOCTYPE_FONT      BI \}
.       if !d$DOCTYPE_SIZE_CHANGE  \{ .DOCTYPE_SIZE      +3 \}
.       if !r#DOCTYPE_UNDERLINE    \{ .DOCTYPE_UNDERLINE    \}
.\" +Headers and footers
.       if !d$HDRFTR_LEFT_FAM      \{ .HDRFTR_LEFT_FAMILY \\*[$DOC_FAM] \}
.       if !d$HDRFTR_LEFT_FT       \{ .HDRFTR_LEFT_FONT R               \}
.       if \\n[#HDRFTR_LEFT_CAPS]  \{\
.          if !d$HDRFTR_LEFT_SIZE_CHANGE \{ .HDRFTR_LEFT_SIZE  -2 \}
.       \}
.       if !d$HDRFTR_LEFT_SIZE_CHANGE \{ .HDRFTR_LEFT_SIZE     -.5           \}
.       if !d$HDRFTR_CENTER_FAM       \{ .HDRFTR_CENTER_FAMILY \\*[$DOC_FAM] \}
.       if !d$HDRFTR_CENTER_FT        \{ .HDRFTR_CENTER_FONT   I             \}
.       if \\n[#HDRFTR_CENTER_CAPS] \{\
.          if !d$HDRFTR_CENTER_SIZE_CHANGE \{ .HDRFTR_CENTER_SIZE -2 \}
.       \}
.       if !d$HDRFTR_CENTER_SIZE_CHANGE \{ .HDRFTR_CENTER_SIZE -.5            \}
.       if !d$HDRFTR_RIGHT_FAM          \{ .HDRFTR_RIGHT_FAMILY \\*[$DOC_FAM] \}
.       if !d$HDRFTR_RIGHT_FT           \{ .HDRFTR_RIGHT_FONT   R             \}
.       if \\n[#HDRFTR_RIGHT_CAPS] \{\
.          if !d$HDRFTR_RIGHT_SIZE_CHANGE \{ .HDRFTR_RIGHT_SIZE -2 \}
.       \}
.       if !d$HDRFTR_RIGHT_SIZE_CHANGE  \{ .HDRFTR_RIGHT_SIZE  -.5              \}
.\" +Heads
.       if !d$HEAD_FAM                  \{ .HEAD_FAMILY        \\*[$DOC_FAM]    \}
.       if !d$HEAD_FT                   \{ .HEAD_FONT          B                \}
.       if !d$HEAD_SIZE_CHANGE          \{ .HEAD_SIZE          +1               \}
.       if !r#HEAD_SPACE                \{ .HEAD_SPACE                          \}
.\" +Subheads
.       if !d$SH_FAM                    \{ .SUBHEAD_FAMILY     \\*[$DOC_FAM]    \}
.       if !d$SH_FT                     \{ .SUBHEAD_FONT       B                \}
.       if !d$SH_SIZE_CHANGE            \{ .SUBHEAD_SIZE       +.5              \}
.\" +Paragraph heads
.       if !d$PH_FAM                    \{ .PARAHEAD_FAMILY    \\*[$DOC_FAM]    \}
.       if !d$PH_FT                     \{ .PARAHEAD_FONT      BI               \}
.       if !d$PH_SIZE_CHANGE            \{ .PARAHEAD_SIZE      -.25             \}
.       if !r#PH_INDENT                 \{ .PARAHEAD_INDENT \\n[#PP_INDENT]u/2u \}
.\" +Quotes
.       if !d$QUOTE_FAM                 \{ .QUOTE_FAMILY       \\*[$DOC_FAM]    \}
.       if !d$QUOTE_FT                  \{ .QUOTE_FONT         I                \}
.       if !d$QUOTE_SIZE_CHANGE         \{ .QUOTE_SIZE         +0               \}
.       if !r#Q_OFFSET_VALUE \{\
.          if '\\*[$Q_OFFSET_VALUE]''   \{ .QUOTE_INDENT 3 \}
.       \}
.\" +Blockquotes
.\"  Note: the leading for quotes and blockquotes is set after .DEFAULTS in START
.       if !d$BQUOTE_FAM                \{ .BLOCKQUOTE_FAMILY  \\*[$DOC_FAM]    \}
.       if !d$BQUOTE_FT                 \{ .BLOCKQUOTE_FONT    R                \}
.       if !d$BQUOTE_SIZE_CHANGE        \{ .BLOCKQUOTE_SIZE    -1               \}
.       if !d$BQUOTE_QUAD               \{ .BLOCKQUOTE_QUAD    LEFT             \}
.\" +Epigraphs
.       if !d$EPI_FAM                   \{ .EPIGRAPH_FAMILY    \\*[$DOC_FAM]    \}
.       if !d$EPI_FT                    \{ .EPIGRAPH_FONT      R                \}
.       if !d$EPI_SIZE_CHANGE           \{ .EPIGRAPH_SIZE      -1.5             \}
.       if !r#EPI_AUTOLEAD              \{ .EPIGRAPH_AUTOLEAD  2                \}
.       if !d$EPI_QUAD                  \{ .EPIGRAPH_QUAD      \\*[$DOC_QUAD]   \}
.       if !r#EPI_OFFSET_VALUE \{\
.          if '\\*[$EPI_OFFSET_VALUE]'' \{ .EPIGRAPH_INDENT 3 \}
.       \}
.\" +Linebreaks
.       if !d$LINEBREAK_CHAR            \{ .LINEBREAK_CHAR * 3 3p               \}
.       if !d$LINEBREAK_COLOR           \{ .LINEBREAK_COLOR black               \}
.\" +Footnotes
.       if !r#FN_RULE_LENGTH            \{ .FOOTNOTE_RULE_LENGTH 4P             \}
.       if !r#FN_RULE_ADJ               \{ .FOOTNOTE_RULE_ADJ  3p               \}
.       if !d$FN_SIZE_CHANGE            \{ .FOOTNOTE_SIZE      -2               \}
.       if !r#FN_AUTOLEAD               \{ .FOOTNOTE_AUTOLEAD  2                \}
.\" +Endnotes
.       if !r#EN_PS                     \{ .ENDNOTE_PT_SIZE (\\n[#DOC_PT_SIZE]u)\}
.       if !d$EN_STRING_FT              \{ .ENDNOTE_STRING_FONT B               \}
.       if !d$EN_STRING_SIZE_CHANGE     \{ .ENDNOTE_STRING_SIZE +1              \}
.       if !d$EN_TITLE_FT               \{ .ENDNOTE_TITLE_FONT  B               \}
.       if !d$EN_TITLE_SIZE_CHANGE      \{ .ENDNOTE_TITLE_SIZE  +0              \}
.       if !d$EN_NUMBER_FT              \{ .ENDNOTE_NUMBER_FONT B               \}
.       if !d$EN_LN_FT                  \{ .ENDNOTE_LINENUMBER_FONT R           \}
.       if !d$EN_NUMBER_SIZE_CHANGE     \{ .ENDNOTE_NUMBER_SIZE +0              \}
.       if !r#EN_PP_INDENT              \{ .ENDNOTE_PARA_INDENT 1.5m            \}
.\" +Bibliography
.       if !r#BIB_LIST                  \{ .BIBLIOGRAPHY_TYPE LIST .                  \}
.       if !r#BIB_PS                    \{ .BIBLIOGRAPHY_PT_SIZE (\\n[#DOC_PT_SIZE]u) \}
.       if !d$BIB_STRING_FT             \{ .BIBLIOGRAPHY_STRING_FONT B                \}
.       if !d$BIB_STRING_SIZE_CHANGE    \{ .BIBLIOGRAPHY_STRING_SIZE +1               \}
.\" +Table of contents
.       if !d$TOC_FAM                   \{ .TOC_FAMILY  \\*[$DOC_FAM]           \}
.       if !r#TOC_PS                    \{ .TOC_PT_SIZE (\\n[#DOC_PT_SIZE]u)    \}
.       if !r#TOC_LEAD                  \{ .TOC_LEAD    \\n[#DOC_LEAD]u ADJUST  \}
.       if !d$TOC_HEADER_FAM            \{ .TOC_HEADER_FAMILY \\*[$TOC_FAM]     \}
.       if !d$TOC_HEADER_SIZE_CHANGE    \{ .TOC_HEADER_SIZE +4                  \}
.       if !d$TOC_HEADER_FT             \{ .TOC_HEADER_FONT  B                  \}
.       if !d$TOC_TITLE_FAM             \{ .TOC_TITLE_FAMILY \\*[$TOC_FAM]      \}
.       if !d$TOC_PN_FAM                \{ .TOC_PN_FAMILY    \\*[$TOC_FAM]      \}
.       if !d$TOC_HEAD_FAM              \{ .TOC_HEAD_FAMILY  \\*[$TOC_FAM]      \}
.       if !d$TOC_SH_FAM                \{ .TOC_SUBHEAD_FAMILY  \\*[$TOC_FAM]   \}
.       if !d$TOC_PH_FAM                \{ .TOC_PARAHEAD_FAMILY \\*[$TOC_FAM]   \}
.       if !d$TOC_TITLE_FT              \{ .TOC_TITLE_FONT    BI                \}
.       if !d$TOC_PN_FT                 \{ .TOC_PN_FONT       R                 \}
.       if !d$TOC_HEAD_FT               \{ .TOC_HEAD_FONT     B                 \}
.       if !d$TOC_SH_FT                 \{ .TOC_SUBHEAD_FONT  R                 \}
.       if !d$TOC_PH_FT                 \{ .TOC_PARAHEAD_FONT I                 \}
.       if !d$TOC_TITLE_SIZE_CHANGE     \{ .TOC_TITLE_SIZE    +.5               \}
.       if !d$TOC_PN_SIZE_CHANGE        \{ .TOC_PN_SIZE       +0                \}
.       if !d$TOC_HEAD_SIZE_CHANGE      \{ .TOC_HEAD_SIZE     +.5               \}
.       if !d$TOC_SH_SIZE_CHANGE        \{ .TOC_SUBHEAD_SIZE  +0                \}
.       if !d$TOC_PH_SIZE_CHANGE        \{ .TOC_PARAHEAD_SIZE +0                \}
.       ps \\n[#TOC_PS]u\\*[$TOC_TITLE_SIZE_CHANGE]
.       if !r#TOC_HEAD_INDENT           \{ .TOC_HEAD_INDENT \w'\0\0.'           \}
.       ps
.       ps \\n[#TOC_PS]u\\*[$TOC_HEAD_SIZE_CHANGE]
.       if !r#TOC_SH_INDENT             \{ .TOC_SUBHEAD_INDENT \\n[#TOC_HEAD_INDENT]+\w'\0\0.'       \}
.       ps
.       ps \\n[#TOC_PS]u\\*[$TOC_SH_SIZE_CHANGE]
.       if !r#TOC_PH_INDENT             \{ .TOC_PARAHEAD_INDENT \\n[#TOC_SH_INDENT]+\w'\0\0.'       \}
.       ps
.    \}
.\" +Refer support
.    if !r#EN_REF \{ .nr #FN_REF 1 \}
.    if '\\*[$REF_FN_INDENT]'' \{\
.       if \\n[#PRINT_STYLE]=1 \{ .INDENT_REFS FOOTNOTE 2m   \}
.       if \\n[#PRINT_STYLE]=2 \{ .INDENT_REFS FOOTNOTE 1.5m \}
.    \}
.    if '\\*[$REF_EN_INDENT]'' \{\
.       if \\n[#PRINT_STYLE]=1 \{ .INDENT_REFS ENDNOTE 2m   \}
.       if \\n[#PRINT_STYLE]=2 \{ .INDENT_REFS ENDNOTE 1.5m \}
.    \}
.    if '\\*[$REF_BIB_INDENT]'' \{\
.       if \\n[#PRINT_STYLE]=1 \{ .INDENT_REFS BIBLIO 2m    \}
.       if \\n[#PRINT_STYLE]=2 \{ .INDENT_REFS BIBLIO 1.5m  :\}
.    \}
.\" Adjust doc leading for PRINTSTYLE TYPESET
.    if \\n[#PRINT_STYLE]=2 \{\
.       ie \\n[#ADJ_DOC_LEAD]=1 \{ .DOC_LEAD_ADJUST \}
.       el \{ . \}
.    \}
.\" This diversion is to get a value for #FN_AUTOLEAD
.    di NULL
.       ev NULL
.       if \\n[#PRINT_STYLE]=1 \{\
.          ps 12
.          ie \\n[#SINGLE_SPACE]=1 \{ .vs \\n[#ORIGINAL_DOC_LEAD]u \}
.          el \{ .vs \\n[#ORIGINAL_DOC_LEAD]u/2u \}
.       \}
.       if \\n[#PRINT_STYLE]=2 \{\
.          PT_SIZE  \\n[#DOC_PT_SIZE]u\\*[$FN_SIZE_CHANGE]
.          AUTOLEAD \\n[#FN_AUTOLEAD]
.       \}
.       nr #FN_LEAD \\n[#LEAD]
.       if \\n[#PRINT_STYLE]=2 \{ .LS \\n[#DOC_LEAD]u \}
.       ev
.    di
.    ie !\\n[#COLLATE] \{\
.\" DOC_LEAD adjusted (or not) here
.       TRAPS
.\" Endnote, bibliography and toc leading
.       nr #OK_PROCESS_LEAD 1
.       nr #RESTORE_DOC_LEAD \\n(.v
.       nr #RESTORE_B_MARGIN \\n[#B_MARGIN]
.       if \\n[#PRINT_STYLE]=1 \{\
.          ie \\n[#SINGLE_SPACE] \{\
.             ENDNOTE_LEAD 12 ADJUST
.             BIBLIOGRAPHY_LEAD 12 ADJUST
.          \}
.          el \{\
.             ie \\n[#EN_SINGLESPACE] \{ .ENDNOTE_LEAD 12 ADJUST \}
.             el \{ .ENDNOTE_LEAD 24 ADJUST \}
.             ie \\n[#BIB_SINGLESPACE] \{ .BIBLIOGRAPHY_LEAD 12 ADJUST \}
.             el \{ .BIBLIOGRAPHY_LEAD 24 ADJUST \}
.          \}
.       \}
.       if \\n[#PRINT_STYLE]=2 \{\
.          ie !d$EN_LEAD \{ .ENDNOTE_LEAD 14 ADJUST \}
.          el \{ .ENDNOTE_LEAD \\*[$EN_LEAD] \\*[$ADJUST_EN_LEAD] \}
.          ie !d$BIB_LEAD \{ .BIBLIOGRAPHY_LEAD 14 ADJUST \}
.          el \{ .BIBLIOGRAPHY_LEAD \\*[$BIB_LEAD] \\*[$ADJUST_BIB_LEAD] \}
.          ie !d$TOC_LEAD \{ .TOC_LEAD \\n[#RESTORE_DOC_LEAD]u \}
.          el \{ .TOC_LEAD \\*[$TOC_LEAD] \\*[$ADJUST_TOC_LEAD] \}
.          rm $ADJUST_EN_LEAD
.          rm $ADJUST_BIB_LEAD
.          rm $ADJUST_TOC_LEAD
.       \}
.       ie !d$BIB_SPACE \{ .BIBLIOGRAPHY_SPACING 1v \}
.       el \{\
.          if \\n[#DEFER_BIB_SPACING]=1 \{\
.             BIBLIOGRAPHY_SPACING \\*[$BIB_SPACE]
.             rr #DEFER_BIB_SPACING
.          \}
.       \}
.       DOC_LEAD \\n[#RESTORE_DOC_LEAD]u
.       nr #B_MARGIN \\n[#RESTORE_B_MARGIN]
.    \}
.    el \{\
.       if \\n[#COLLATE] \{\
.          if !\\n[#PRINT_STYLE]=1 \{\
.             if \\n[#RERUN_TRAPS] \{ .TRAPS \}
.          \}
.       \}
.    \}
.    if \\n[#PRINT_STYLE]=1 \{ .nr #IGNORE 1 \}
.END
\#
\# ====================================================================
\#
\# +++START THE DOCUMENT+++
\#
\# THE START MACRO
\# ---------------
\# *Arguments:
\#   <none>
\# *Function:
\#   Reads in default document style parameters and any parameter
\#   the user has changed before issuing START.
\#   Using the information gathered in the opening macros,
\#   prints appropriate title (or chapter #), subtitle, author
\#   and document type (if appropriate).
\# *Notes:
\#   The .PRINT \& (zero-width character) is required to get the
\#   subsequent .sp request to work as advertised.
\#
\#   The overall document line length, family, and point-size
\#   are stored in #DOC_L_LENGTH, $DOC_FAM, and #DOC_PT_SIZE for
\#   use in the HEADER and FOOTER macros.
\#
\#  First, define some strings for point sizes
\#
\# Doc cover
.ds $DOC_COVER_AUTHOR_PT_SIZE        \\n[#DOC_PT_SIZE]u\\*[$DOC_COVER_AUTHOR_SIZE_CHANGE]
.ds $DOC_COVER_CHAPTER_TITLE_PT_SIZE \\n[#DOC_PT_SIZE]u\\*[$DOC_COVER_CHAPTER_TITLE_SIZE_CHANGE]
.ds $DOC_COVER_COPYRIGHT_PT_SIZE     \\n[#DOC_PT_SIZE]u\\*[$DOC_COVER_COPYRIGHT_SIZE_CHANGE]
.ds $DOC_COVER_DOCTYPE_PT_SIZE       \\n[#DOC_PT_SIZE]u\\*[$DOC_COVER_DOCTYPE_SIZE_CHANGE]
.ds $DOC_COVER_SUBTITLE_PT_SIZE      \\n[#DOC_PT_SIZE]u\\*[$DOC_COVER_SUBTITLE_SIZE_CHANGE]
.ds $DOC_COVER_TITLE_PT_SIZE         \\n[#DOC_PT_SIZE]u\\*[$DOC_COVER_TITLE_SIZE_CHANGE]
\# Cover
.ds $COVER_AUTHOR_PT_SIZE        \\n[#DOC_PT_SIZE]u\\*[$COVER_AUTHOR_SIZE_CHANGE]
.ds $COVER_CHAPTER_TITLE_PT_SIZE \\n[#DOC_PT_SIZE]u\\*[$COVER_CHAPTER_TITLE_SIZE_CHANGE]
.ds $COVER_COPYRIGHT_PT_SIZE     \\n[#DOC_PT_SIZE]u\\*[$COVER_COPYRIGHT_SIZE_CHANGE]
.ds $COVER_DOCTYPE_PT_SIZE       \\n[#DOC_PT_SIZE]u\\*[$COVER_DOCTYPE_SIZE_CHANGE]
.ds $COVER_SUBTITLE_PT_SIZE      \\n[#DOC_PT_SIZE]u\\*[$COVER_SUBTITLE_SIZE_CHANGE]
.ds $COVER_TITLE_PT_SIZE         \\n[#DOC_PT_SIZE]u\\*[$COVER_TITLE_SIZE_CHANGE]
\# Docheader
.ds $AUTHOR_PT_SIZE         \\n[#DOC_PT_SIZE]u\\*[$AUTHOR_SIZE_CHANGE]
.ds $CHAPTER_TITLE_PT_SIZE  \\n[#DOC_PT_SIZE]u\\*[$CHAPTER_TITLE_SIZE_CHANGE]
.ds $COPYRIGHT_PT_SIZE      \\n[#DOC_PT_SIZE]u\\*[$COPYRIGHT_SIZE_CHANGE]
.ds $DOCTYPE_PT_SIZE        \\n[#DOC_PT_SIZE]u\\*[$DOCTYPE_SIZE_CHANGE]
.ds $SUBTITLE_PT_SIZE       \\n[#DOC_PT_SIZE]u\\*[$SUBTITLE_SIZE_CHANGE]
.ds $TITLE_PT_SIZE          \\n[#DOC_PT_SIZE]u\\*[$TITLE_SIZE_CHANGE]
\#
\# Next, some utility macros for various routines to prevent repetition
\#
.    if '\\$1'DOC_COVER' \{\
.       shift
.       nr #AUTHOR_DOCCOVER_NUM 0 1
.       while \\n[#NUM_ARGS]>\\n[#AUTHOR_DOCCOVER_NUM] \{\
.       ds $AUTHOR_DOCCOVER_\\n+[#AUTHOR_DOCCOVER_NUM] \\$\\n[#AUTHOR_DOCCOVER_NUM]
.\}
.       return
.    \}
.    if '\\$1'COVER' \{\
.       shift
.       nr #AUTHOR_COVER_NUM 0 1
.       while \\n[#NUM_ARGS]>\\n[#AUTHOR_COVER_NUM] \{\
.       ds $AUTHOR_COVER_\\n+[#AUTHOR_COVER_NUM] \\$\\n[#AUTHOR_COVER_NUM]
.\}
.       return
.    \}
\#
.MAC PRINT_AUTHORS END
.    ie r#DOING_COVER \{\
.       if \\n[#DOC_COVER]=1 \{\
.          ie !'\\*[$AUTHOR_DOCCOVER_1]'' \{\
.             nr #AUTHORS \\n[#AUTHOR_DOCCOVER_NUM]
.             nr #NEXT_AUTHOR 0 1
.             while \\n[#AUTHORS]>\\n[#NEXT_AUTHOR] \{\
.                ie \\n[#DOC_COVER_AUTHOR_COLOR]=1 \{\
.                   PRINT \m[\\*[$DOC_COVER_AUTHOR_COLOR]]\\*[$AUTHOR_DOCCOVER_\\n+[#NEXT_AUTHOR]]\m[]
.                \}
.                el \{ .PRINT \\*[$AUTHOR_DOCCOVER_\\n+[#NEXT_AUTHOR]] \}
.\}
.          \}
.          el \{\
.             nr #AUTHORS \\n[#AUTHOR_NUM]
.             nr #NEXT_AUTHOR 0 1
.             while \\n[#AUTHORS]>\\n[#NEXT_AUTHOR] \{\
.                ie \\n[#DOC_COVER_AUTHOR_COLOR]=1 \{\
.                   PRINT \m[\\*[$DOC_COVER_AUTHOR_COLOR]]\\*[$AUTHOR_\\n+[#NEXT_AUTHOR]]\m[]
.                \}
.                el \{ .PRINT \\*[$AUTHOR_\\n+[#NEXT_AUTHOR]] \}
.\}
.          \}
.          return
.       \}
.       if \\n[#COVER]=1 \{\
.          ie !'\\*[$AUTHOR_COVER_1]'' \{\
.             nr #AUTHORS \\n[#AUTHOR_COVER_NUM]
.             nr #NEXT_AUTHOR 0 1
.             while \\n[#AUTHORS]>\\n[#NEXT_AUTHOR] \{\
.                ie \\n[#COVER_AUTHOR_COLOR]=1 \{\
.                   PRINT \m[\\*[$COVER_AUTHOR_COLOR]]\\*[$AUTHOR_COVER_\\n+[#NEXT_AUTHOR]]\m[]
.                \}
.                el \{ .PRINT \\*[$AUTHOR_COVER_\\n+[#NEXT_AUTHOR]] \}
.\}
.          \}
.          el \{\
.             nr #AUTHORS \\n[#AUTHOR_NUM]
.             nr #NEXT_AUTHOR 0 1
.             while \\n[#AUTHORS]>\\n[#NEXT_AUTHOR] \{\
.                ie \\n[#COVER_AUTHOR_COLOR]=1 \{\
.                   PRINT \m[\\*[$COVER_AUTHOR_COLOR]]\\*[$AUTHOR_\\n+[#NEXT_AUTHOR]]\m[]
.                \}
.                el \{ .PRINT \\*[$AUTHOR_\\n+[#NEXT_AUTHOR]] \}
.\}
.          \}
.          return
.       \}
.    \}
.    el \{\
.       nr #AUTHORS \\n[#AUTHOR_NUM]
.       nr #NEXT_AUTHOR 0 1
.       while \\n[#AUTHORS]>\\n[#NEXT_AUTHOR] \{\
.          ie \\n[#AUTHOR_COLOR]=1 \{\
.             PRINT \m[\\*[$AUTHOR_COLOR]]\\*[$AUTHOR_\\n+[#NEXT_AUTHOR]]\m[]
.          \}
.          el \{ .PRINT \\*[$AUTHOR_\\n+[#NEXT_AUTHOR]] \}
.\}
.    \}
.END
\#
.MAC DEFAULT_DOCHEADER END
.    if !'\\*[$TITLE_1]'' \{\
.       CENTER
.       FAMILY  \\*[$TITLE_FAM]
.       FT      \\*[$TITLE_FT]
.       PT_SIZE \\*[$TITLE_PT_SIZE]
.       LS      \\n[#DOCHEADER_LEAD]u
.       nr #ARG_NUM 0 1
.       while \\n[#TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.          ie \\n[#TITLE_COLOR]=1 \{\
.             PRINT "\m[\\*[$TITLE_COLOR]]\\*[$TITLE_\\n[#ARG_NUM]]\m[]
.          \}
.          el \{\
.             PRINT "\\*[$TITLE_\\n[#ARG_NUM]]
.          \}
.\}
.    \}
.    if !'\\*[$SUBTITLE_1]'' \{\
.       FAMILY  \\*[$SUBTITLE_FAM]
.       FT      \\*[$SUBTITLE_FT]
.       PT_SIZE \\*[$SUBTITLE_PT_SIZE]
.       nr #ARG_NUM 0 1
.       while \\n[#SUBTITLE_NUM]>=\\n+[#ARG_NUM] \{\
.          ie \\n[#SUBTITLE_COLOR]=1 \{\
.             PRINT "\m[\\*[$SUBTITLE_COLOR]]\\*[$SUBTITLE_\\n[#ARG_NUM]]\m[]
.          \}
.          el \{\
.             PRINT "\\*[$SUBTITLE_\\n[#ARG_NUM]]
.          \}
.\}
.    \}
.    if !'\\*[$AUTHOR_1]'' \{\
.       FAMILY  \\*[$AUTHOR_FAM]
.       FT      \\*[$AUTHOR_FT]
.       PT_SIZE \\*[$AUTHOR_PT_SIZE]
.       ie \\n[#ATTRIBUTE_COLOR]=1 \{\
.          PRINT \&\m[\\*[$ATTRIBUTE_COLOR]]\\*[$ATTRIBUTE_STRING]\m[]
.       \}
.       el \{ .PRINT \&\\*[$ATTRIBUTE_STRING] \}
.       PRINT_AUTHORS
.    \}
.    FAMILY \\*[$DOC_FAM]
.    FT R
.END
\#
\#
.MAC CHAPTER_DOCHEADER END
.    CENTER
.    FAMILY  \\*[$TITLE_FAM]
.    FT      \\*[$TITLE_FT]
.    PT_SIZE \\*[$TITLE_PT_SIZE]
.    LS      \\n[#DOCHEADER_LEAD]u
.\" Chapter title only
.    ie '\\*[$CHAPTER]'' \{\
.       ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.          if \\n[#PRINT_STYLE]=2 \{\
.             FAMILY  \\*[$CHAPTER_TITLE_FAM]
.             FT      \\*[$CHAPTER_TITLE_FT]
.             PT_SIZE \\*[$CHAPTER_TITLE_PT_SIZE]
.             LS      \\n[#DOCHEADER_LEAD]u
.          \}
.          nr #ARG_NUM 0 1
.          while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.             ie \\n[#TITLE_COLOR]=1 \{\
.                PRINT \m[\\*[$TITLE_COLOR]]\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]\m[]
.             \}
.             el \{ .PRINT \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]] \}
.\}
.       \}
.       el \{\
.          ie \\n[#TITLE_COLOR]=1 \{\
.             PRINT \m[\\*[$TITLE_COLOR]]\\*[$CHAPTER_STRING]\m[]
.          \}
.          el \{ .PRINT \\*[$CHAPTER_STRING] \}
.       \}
.    \}
.\" Chapter string, possibly with a chapter title
.    el \{\
.       ie \\n[#TITLE_COLOR]=1 \{\
.          PRINT \m[\\*[$TITLE_COLOR]]\\*[$CHAPTER_STRING] \\*[$CHAPTER]\m[]
.       \}
.       el \{ .PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER] \}
.       if !'\\*[$CHAPTER_TITLE_1]'' \{\
.          if \\n[#PRINT_STYLE]=2 \{\
.             FAMILY  \\*[$CHAPTER_TITLE_FAM]
.             FT      \\*[$CHAPTER_TITLE_FT]
.             PT_SIZE \\*[$CHAPTER_TITLE_PT_SIZE]
.             LS      \\n[#DOCHEADER_LEAD]u
.             ALD \\n[.v]u/4u \"Put a little space before the chapter title
.          \}
.          nr #ARG_NUM 0 1
.          while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.             ie \\n[#CHAPTER_TITLE_COLOR]=1 \{\
.                PRINT \m[\\*[$CHAPTER_TITLE_COLOR]]\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]\m[]
.             \}
.          el \{ .PRINT \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]] \}
.\}
.          RLD \\n[#DOC_LEAD]u \" Just looks better this way
.       \}
.    \}
.    FAMILY \\*[$DOC_FAM]
.    FT R
.END
\#
\#
.MAC NAMED_DOCHEADER END
.    CENTER
.    FAMILY  \\*[$TITLE_FAM]
.    FT      \\*[$TITLE_FT]
.    PT_SIZE \\*[$TITLE_PT_SIZE]
.    LS      \\n[#DOCHEADER_LEAD]u
.    if !'\\*[$TITLE_1]'' \{\
.       nr #ARG_NUM 0 1
.       while \\n[#TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.          ie \\n[#TITLE_COLOR]=1 \{\
.             PRINT "\m[\\*[$TITLE_COLOR]]\\*[$TITLE_\\n[#ARG_NUM]]\m[]
.          \}
.          el \{\
.             PRINT "\\*[$TITLE_\\n[#ARG_NUM]]
.          \}
.\}
.    \}
.    if !'\\*[$SUBTITLE]'' \{\
.       FAMILY  \\*[$SUBTITLE_FAM]
.       FT      \\*[$SUBTITLE_FT]
.       PT_SIZE \\*[$SUBTITLE_PT_SIZE]
.       nr #ARG_NUM 0 1
.       while \\n[#SUBTITLE_NUM]>=\\n+[#ARG_NUM] \{\
.          ie \\n[#SUBTITLE_COLOR]=1 \{\
.             PRINT "\m[\\*[$SUBTITLE_COLOR]]\\*[$SUBTITLE_\\n[#ARG_NUM]]\m[]
.          \}
.          el \{\
.             PRINT "\\*[$SUBTITLE_\\n[#ARG_NUM]]
.          \}
.\}
.    \}
.    if !'\\*[$AUTHOR_1]'' \{\
.       FAMILY  \\*[$AUTHOR_FAM]
.       FT      \\*[$AUTHOR_FT]
.       PT_SIZE \\*[$AUTHOR_PT_SIZE]
.       ie \\n[#ATTRIBUTE_COLOR]=1 \{\
.          PRINT \&\m[\\*[$ATTRIBUTE_COLOR]]\\*[$ATTRIBUTE_STRING]\m[]
.       \}
.       el \{ .PRINT \&\\*[$ATTRIBUTE_STRING] \}
.       PRINT_AUTHORS
.    \}
.    FAMILY  \\*[$DOCTYPE_FAM]
.    FT      \\*[$DOCTYPE_FT]
.    PT_SIZE \\*[$DOCTYPE_PT_SIZE]
.    LS      \\n[#DOCHEADER_LEAD]u
.    ALD     \\n[#DOCHEADER_LEAD]u
.    nr #FROM_DOCTYPE 1
.    if \\n[#DOCTYPE_COLOR]=1 \{\
.       COLOR \\*[$DOCTYPE_COLOR]
.    \}
.    ie \\n[#DOCTYPE_UNDERLINE]=1 \{\
.       UNDERSCORE \\*[$DOCTYPE_UNDERLINE_GAP] "\\*[$DOC_TYPE]"
.     \}
.    el \{\
.       PRINT "\\*[$DOC_TYPE]"
.    \}
.    COLOR black
.    FAMILY \\*[$DOC_FAM]
.    FT R
.    rr #FROM_DOCTYPE
.END
\#
\#
\# COVER PAGE
\# ----------
\# *Arguments:
\#   TITLE | DOCTITLE | CHAPTER | CHAPTER_TITLE | CHAPTER+TITLE | COVERTITLE ...
\#   ... [ SUBTITLE AUTHOR DOCTYPE COPYRIGHT MISC BLANKPAGE ]
\# *Function:
\#   Toggles the number register for each cover page element
\#   passed as an argument.
\# *Notes:
\#   TITLE, DOCTITLE, CHAPTER, CHAPTER_TITLE or CHAPTER+TITLE must
\#   be supplied.  After that, users may enter as many or as few of
\#   the arguments as they like; however, the arguments must appear
\#   in the order given above.  BLANKPAGE, as the final argument,
\#   inserts a blank page after the cover.
\#
\#   If called as DOC_COVER, performs the same operations, but
\#   applies everything to a doc cover.
\#
.MAC COVER END
.    ie '\\$0'DOC_COVER' \{\
.       if '\\$\\n[#NUM_ARGS]'BLANKPAGE' \{ .nr #DOCCOVER_BLANKPAGE 1 \}
.       nr #DOC_COVER 1
.       if '\\$1'TITLE'         \{ .nr #DOC_COVER_TITLE     1 \}
.       if '\\$1'DOCTITLE'      \{ .nr #DOC_COVER_TITLE     2 \}
.       if '\\$1'CHAPTER'       \{ .nr #DOC_COVER_TITLE     3 \}
.       if '\\$1'CHAPTER_TITLE' \{ .nr #DOC_COVER_TITLE     4 \}
.       if '\\$1'CHAPTER+TITLE' \{ .nr #DOC_COVER_TITLE     5 \}
.       if '\\$1'COVERTITLE'    \{ .nr #DOC_COVER_TITLE     6 \}
.       if '\\$2'SUBTITLE'      \{ .nr #DOC_COVER_SUBTITLE  1 \}
.       if '\\$2'AUTHOR'        \{ .nr #DOC_COVER_AUTHOR    1 \}
.       if '\\$2'DOCTYPE'       \{ .nr #DOC_COVER_DOCTYPE   1 \}
.       if '\\$2'COPYRIGHT'     \{ .nr #DOC_COVER_COPYRIGHT 1 \}
.       if '\\$2'MISC'          \{ .nr #DOC_COVER_MISC      1 \}
.       if '\\$3'AUTHOR'        \{ .nr #DOC_COVER_AUTHOR    1 \}
.       if '\\$3'DOCTYPE'       \{ .nr #DOC_COVER_DOCTYPE   1 \}
.       if '\\$3'COPYRIGHT'     \{ .nr #DOC_COVER_COPYRIGHT 1 \}
.       if '\\$3'MISC'          \{ .nr #DOC_COVER_MISC      1 \}
.       if '\\$4'DOCTYPE'       \{ .nr #DOC_COVER_DOCTYPE   1 \}
.       if '\\$4'COPYRIGHT'     \{ .nr #DOC_COVER_COPYRIGHT 1 \}
.       if '\\$4'MISC'          \{ .nr #DOC_COVER_MISC      1 \}
.       if '\\$5'COPYRIGHT'     \{ .nr #DOC_COVER_COPYRIGHT 1 \}
.       if '\\$5'MISC'          \{ .nr #DOC_COVER_MISC      1 \}
.       if '\\$6'MISC'          \{ .nr #DOC_COVER_MISC      1 \}
.    \}
.    el \{\
.       if '\\$\\n[#NUM_ARGS]'BLANKPAGE' \{ .nr #COVER_BLANKPAGE 1 \}
.       nr #COVER 1
.       if '\\$1'TITLE'         \{ .nr #COVER_TITLE     1 \}
.       if '\\$1'DOCTITLE'      \{ .nr #COVER_TITLE     2 \}
.       if '\\$1'CHAPTER'       \{ .nr #COVER_TITLE     3 \}
.       if '\\$1'CHAPTER_TITLE' \{ .nr #COVER_TITLE     4 \}
.       if '\\$1'CHAPTER+TITLE' \{ .nr #COVER_TITLE     5 \}
.       if '\\$1'COVERTITLE'    \{ .nr #COVER_TITLE     6 \}
.       if '\\$2'SUBTITLE'      \{ .nr #COVER_SUBTITLE  1 \}
.       if '\\$2'AUTHOR'        \{ .nr #COVER_AUTHOR    1 \}
.       if '\\$2'DOCTYPE'       \{ .nr #COVER_DOCTYPE   1 \}
.       if '\\$2'COPYRIGHT'     \{ .nr #COVER_COPYRIGHT 1 \}
.       if '\\$2'MISC'          \{ .nr #COVER_MISC      1 \}
.       if '\\$3'AUTHOR'        \{ .nr #COVER_AUTHOR    1 \}
.       if '\\$3'DOCTYPE'       \{ .nr #COVER_DOCTYPE   1 \}
.       if '\\$3'COPYRIGHT'     \{ .nr #COVER_COPYRIGHT 1 \}
.       if '\\$3'MISC'          \{ .nr #COVER_MISC      1 \}
.       if '\\$4'DOCTYPE'       \{ .nr #COVER_DOCTYPE   1 \}
.       if '\\$4'COPYRIGHT'     \{ .nr #COVER_COPYRIGHT 1 \}
.       if '\\$4'MISC'          \{ .nr #COVER_MISC      1 \}
.       if '\\$5'COPYRIGHT'     \{ .nr #COVER_COPYRIGHT 1 \}
.       if '\\$5'MISC'          \{ .nr #COVER_MISC      1 \}
.       if '\\$6'MISC'          \{ .nr #COVER_MISC      1 \}
.    \}
.END
\#
\#
.MAC COVERTITLE END
.    ie '\\$0'DOC_COVERTITLE' \{\ 
.       ie \\n[#NUM_ARGS]=0 \{\
.          if \\n[#DOC_COVER_TITLE_NUM] \{\
.             nr #ITEM 0 1
.             while \\n[#DOC_COVER_TITLE_NUM]>\\n[#ITEM] \{\
.                rm $DOC_COVER_TITLE_\\n+[#ITEM]
.\}
.             rr #DOC_COVER_TITLE_NUM
.             rm $DOC_COVER_TITLE
.          \}
.       \}
.       el \{\
.          nr #DOC_COVER_TITLE_NUM 0 1
.          while \\n[#NUM_ARGS]>\\n[#DOC_COVER_TITLE_NUM] \{\
.             ds $DOC_COVER_TITLE_\\n+[#DOC_COVER_TITLE_NUM] \\$\\n[#DOC_COVER_TITLE_NUM]
.\}
.          ds $DOC_COVER_TITLE \\$*
.       \}
.    \}
.    el \{\
.       ie \\n[#NUM_ARGS]=0 \{\
.          if \\n[#COVER_TITLE_NUM] \{\
.             nr #ITEM 0 1
.             while \\n[#COVER_TITLE_NUM]>\\n[#ITEM] \{\
.                rm $COVER_TITLE_\\n+[#ITEM]
.\}
.             rr #COVER_TITLE_NUM
.             rm $COVER_TITLE
.          \}
.       \}
.       el \{\
.          nr #COVER_TITLE_NUM 0 1
.          while \\n[#NUM_ARGS]>\\n[#COVER_TITLE_NUM] \{\
.             ds $COVER_TITLE_\\n+[#COVER_TITLE_NUM] \\$\\n[#COVER_TITLE_NUM]
.\}
.          ds $COVER_TITLE \\$*
.       \}
.    \}
.END
\#
\#
\# COVER PAGE LEADING
\# ------------------
\# *Arguments:
\#   <+|- amount by which to in/decrease leading of cover/doc cover>
\# *Function:
\#   Stores user supplied lead in/decrease in string $COVER_LEAD_ADJ
\#   or $DOC_COVER_LEAD_ADJ, depending on whether the macro was called
\#   with an alias (DOC_COVER_LEAD).
\# *Notes:
\#   A unit of measure must be supplied.  Decimal fractions OK.
\#   Default is +0, i.e. same as DOC_LEAD.
\#
.MAC COVER_LEAD END
.    ie '\\$0'DOC_COVER_LEAD' \{\
.       ds $DOC_COVER_LEAD_ADJ \\$1
.    \}
.    el \{\
.       ds $COVER_LEAD_ADJ \\$1
.    \}
.END
\#
\#
\# COVER PAGE START POSITION
\# -------------------------
\# *Arguments:
\#   <distance from page top at which to start cover/doc cover>
\# *Function:
\#   Stores user supplied lead in/decrease in #COVER_START_POS
\#   or #DOC_COVER_START_POS, depending on whether the macro was
\#   called by an alias (DOC_COVER_ADVANCE).
\# *Notes:
\#   A unit of measure must be supplied.  Decimal fractions OK.
\#   If user doesn't invoke this macro, the default starting
\#   position for both covers and doc covers is 1/3 of the way
\#   down the page (setup in DO_COVER).
\#
.MAC COVER_ADVANCE END
.    ie '\\$0'DOC_COVER_ADVANCE' \{\
.       nr #DOC_COVER_START_POS (\\$1)
.    \}
.    el \{\
.       nr #COVER_START_POS (\\$1)
.    \}
.END
\#
\#
\# UNDERLINE CONTROL
\# -----------------
\# *Arguments:
\#   [ DOUBLE ] [ <underline weight> [<underline gap>] ] | <none> | <anything>
\# *Function:
\#   Toggles underlining of the element indicated by the calling alias
\#   on or off.  Uses #<element>_UNDERLINE_WEIGHT to set the weight,
\#   and defines string $<element>_UNDERLINE_GAP.
\# *Notes:
\#   Calling aliases COVER_ and DOCCOVER_ only apply if DOCTYPE is
\#   NAMED and the DOCTYPE arg is passed to COVER or DOC_COVER.
\#
.MAC _UNDERLINE END
.    ie '\\$1'' \{\
.       if '\\$0'BIBLIOGRAPHY_STRING_UNDERLINE'  \{ .nr #BIB_STRING_UNDERLINE 1 \}
.       if '\\$0'BIBLIOGRAPHY_STRING_UNDERSCORE' \{ .nr #BIB_STRING_UNDERLINE 1 \}
.       if '\\$0'COVER_UNDERLINE'                \{ .nr #COVER_UNDERLINE      1 \}
.       if '\\$0'DOC_COVER_UNDERLINE'            \{ .nr #DOCCOVER_UNDERLINE   1 \}
.       if '\\$0'DOCTYPE_UNDERLINE'              \{ .nr #DOCTYPE_UNDERLINE    1 \}
.       if '\\$0'HEAD_UNDERLINE'                 \{ .nr #HEAD_UNDERLINE       1 \}
.       if '\\$0'ENDNOTE_STRING_UNDERLINE'       \{ .nr #EN_STRING_UNDERLINE  1 \}
.       if '\\$0'ENDNOTE_STRING_UNDERSCORE'      \{ .nr #EN_STRING_UNDERLINE  1 \}
.       if '\\$0'ENDNOTE_TITLE_UNDERLINE'        \{ .nr #EN_TITLE_UNDERLINE   1 \}
.       if '\\$0'ENDNOTE_TITLE_UNDERSCORE'       \{ .nr #EN_TITLE_UNDERLINE   1 \}
.    \}
.    el \{\
.       ie \\n[#NUM_ARGS]=1 \{\
.          ds $ARG \\$1
.          substring $ARG -1
.          ie \B'\\*[$ARG]' \{\
.             if !\\n[#PRINT_STYLE]=1 \{\
.                if '\\$0'BIBLIOGRAPHY_STRING_UNDERLINE'  \{ .BIBLIOGRAPHY_STRING_UNDERLINE_WEIGHT \\$1 \}
.                if '\\$0'BIBLIOGRAPHY_STRING_UNDERSCORE' \{ .BIBLIOGRAPHY_STRING_UNDERLINE_WEIGHT \\$1 \}
.                if '\\$0'COVER_UNDERLINE'                \{ .COVER_UNDERLINE_WEIGHT               \\$1 \}
.                if '\\$0'DOC_COVER_UNDERLINE'            \{ .DOCCOVER_UNDERLINE_WEIGHT            \\$1 \}
.                if '\\$0'DOCTYPE_UNDERLINE'              \{ .DOCTYPE_UNDERLINE_WEIGHT             \\$1 \}
.                if '\\$0'HEAD_UNDERLINE'                 \{ .HEAD_UNDERLINE_WEIGHT                \\$1 \}
.                if '\\$0'ENDNOTE_STRING_UNDERLINE'       \{ .ENDNOTE_STRING_UNDERLINE_WEIGHT      \\$1 \}
.                if '\\$0'ENDNOTE_STRING_UNDERSCORE'      \{ .ENDNOTE_STRING_UNDERLINE_WEIGHT      \\$1 \}
.                if '\\$0'ENDNOTE_TITLE_UNDERLINE'        \{ .ENDNOTE_TITLE_UNDERLINE_WEIGHT       \\$1 \}
.                if '\\$0'ENDNOTE_TITLE_UNDERSCORE'       \{ .ENDNOTE_TITLE_UNDERLINE_WEIGHT       \\$1 \}
.             \}
.          \}
.          el \{\
.             if '\\$0'BIBLIOGRAPHY_STRING_UNDERLINE' \{\
.                ie '\\$1'DOUBLE' \{ .nr #BIB_STRING_UNDERLINE 2 \}
.                el \{ .nr #BIB_STRING_UNDERLINE 0 \}
.             \}
.             if '\\$0'BIBLIOGRAPHY_STRING_UNDERSCORE' \{\
.                ie '\\$1'DOUBLE' \{ .nr #BIB_STRING_UNDERLINE 2 \}
.                el \{ .nr #BIB_STRING_UNDERLINE 0 \}
.             \}
.             if '\\$0'COVER_UNDERLINE'          \{ .nr #COVER_UNDERLINE     0 \}
.             if '\\$0'DOC_COVER_UNDERLINE'      \{ .nr #DOCCOVER_UNDERLINE  0 \}
.             if '\\$0'DOCTYPE_UNDERLINE'        \{ .nr #DOCTYPE_UNDERLINE   0 \}
.             if '\\$0'HEAD_UNDERLINE'           \{ .nr #HEAD_UNDERLINE      0 \}
.             if '\\$0'ENDNOTE_STRING_UNDERLINE' \{\
.                ie '\\$1'DOUBLE' \{ .nr #EN_STRING_UNDERLINE 2 \}
.                el \{ .nr #EN_STRING_UNDERLINE 0 \}
.             \}
.             if '\\$0'ENDNOTE_STRING_UNDERSCORE' \{\
.                ie '\\$1'DOUBLE' \{ .nr #EN_STRING_UNDERLINE 2 \}
.                el \{ .nr #EN_STRING_UNDERLINE 0 \}
.             \}
.          \}
.       \}
.       el \{\
.          if !\\n[#PRINT_STYLE]=1 \{\
.             if '\\$0'BIBLIOGRAPHY_STRING_UNDERLINE' \{\
.                nr #BIB_STRING_UNDERLINE 1
.                if '\\$1'DOUBLE' \{\
.                   nr #BIB_STRING_UNDERLINE 2
.                   shift
.                \}
.                BIBLIOGRAPHY_STRING_UNDERLINE_WEIGHT \\$1
.                if !'\\$2'' \{\
.                   ds $BIB_STRING_UNDERLINE_GAP \\$2
.                \}
.                if !'\\$3'' \{\
.                   ds $BIB_STRING_RULE_GAP \\$3
.                \}
.             \}
.             if '\\$0'BIBLIOGRAPHY_STRING_UNDERSCORE' \{\ 
.                nr #BIB_STRING_UNDERLINE 1
.                if '\\$1'DOUBLE' \{\
.                   nr #BIB_STRING_UNDERLINE 2
.                   shift
.                \}
.                BIBLIOGRAPHY_STRING_UNDERLINE_WEIGHT \\$1
.                if !'\\$2'' \{\
.                   ds $BIB_STRING_UNDERLINE_GAP \\$2
.                \}
.                if !'\\$3'' \{\
.                   ds $BIB_STRING_RULE_GAP \\$3
.                \}
.             \}
.             if '\\$0'COVER_UNDERLINE' \{\
.                nr #COVER_UNDERLINE 1
.                COVER_UNDERLINE_WEIGHT  \\$1
.                ds $COVER_UNDERLINE_GAP \\$2
.             \}
.             if '\\$0'DOC_COVER_UNDERLINE' \{\
.                nr #DOCCOVER_UNDERLINE 1
.                DOCCOVER_UNDERLINE_WEIGHT  \\$1
.                ds $DOCCOVER_UNDERLINE_GAP \\$2
.             \}
.             if '\\$0'DOCTYPE_UNDERLINE' \{\
.                nr #DOCTYPE_UNDERLINE 1
.                DOCTYPE_UNDERLINE_WEIGHT  \\$1
.                ds $DOCTYPE_UNDERLINE_GAP \\$2
.             \}
.             if '\\$0'HEAD_UNDERLINE' \{\
.                nr #HEAD_UNDERLINE 1
.                HEAD_UNDERLINE_WEIGHT  \\$1
.                ds $HEAD_UNDERLINE_GAP \\$2
.             \}
\# ENDNOTE_STRING_UNDERLINE and ENDNOTE_STRING_UNDERSCORE are identical;
\# the _UNDERSCORE version is left in for backward compatibility.
.             if '\\$0'ENDNOTE_STRING_UNDERLINE' \{\
.                nr #EN_STRING_UNDERLINE 1
.                if '\\$1'DOUBLE' \{\
.                   nr #EN_STRING_UNDERLINE 2
.                   shift
.                \}
.                ENDNOTE_STRING_UNDERLINE_WEIGHT \\$1
.                if !'\\$2'' \{\
.                   ds $EN_STRING_UNDERLINE_GAP \\$2
.                \}
.                if !'\\$3'' \{\
.                   ds $EN_STRING_RULE_GAP \\$3
.                \}
.             \}
.             if '\\$0'ENDNOTE_STRING_UNDERSCORE' \{\ 
.                nr #EN_STRING_UNDERLINE 1
.                if '\\$1'DOUBLE' \{\
.                   nr #EN_STRING_UNDERLINE 2
.                   shift
.                \}
.                ENDNOTE_STRING_UNDERLINE_WEIGHT \\$1
.                if !'\\$2'' \{\
.                   ds $EN_STRING_UNDERLINE_GAP \\$2
.                \}
.                if !'\\$3'' \{\
.                   ds $EN_STRING_RULE_GAP \\$3
.                \}
.             \}
\# ENDNOTE_TITLE_UNDERLINE and ENDNOTE_TITLE_UNDERSCORE are identical;
\# the _UNDERSCORE version is left in for backward compatibility.
.             if '\\$0'ENDNOTE_TITLE_UNDERLINE' \{\
.                nr #ENDNOTE_TITLE_UNDERLINE 1
.                ENDNOTE_TITLE_UNDERLINE_WEIGHT  \\$1
.                ds $EN_TITLE_UNDERLINE_GAP \\$2
.             \}
.             if '\\$0'ENDNOTE_TITLE_UNDERSCORE' \{\
.                nr #ENDNOTE_TITLE_UNDERLINE 1
.                ENDNOTE_TITLE_UNDERLINE_WEIGHT  \\$1
.                ds $EN_TITLE_UNDERLINE_GAP \\$2
.             \}
.          \}
.       \}
.    \}
.END
\#
.ALIAS BIBLIOGRAPHY_STRING_UNDERSCORE _UNDERLINE
.ALIAS BIBLIOGRAPHY_STRING_UNDERLINE  _UNDERLINE
.ALIAS COVER_UNDERLINE                _UNDERLINE
.ALIAS DOC_COVER_UNDERLINE            _UNDERLINE
.ALIAS DOCTYPE_UNDERLINE              _UNDERLINE
.ALIAS HEAD_UNDERLINE                 _UNDERLINE
.ALIAS ENDNOTE_STRING_UNDERLINE       _UNDERLINE
.ALIAS ENDNOTE_STRING_UNDERSCORE      _UNDERLINE
.ALIAS ENDNOTE_TITLE_UNDERLINE        _UNDERLINE
.ALIAS ENDNOTE_TITLE_UNDERSCORE       _UNDERLINE
\#
\#
\# COVERS - WHETHER TO PRINT
\# -------------------------
\# *Arguments:
\#   <none> | <anything>
\# *Function:
\#   Creates or removes registers #COVERS and #COVERS_OFF, checked for
\#   in DEFAULTS (in START) prior to printing
\#
.MAC COVERS END
.    ie '\\$0'DOC_COVERS' \{\
.       ie '\\$1'' \{\
.          rr #DOC_COVERS_OFF
.          nr #DOC_COVERS 1
.       \}
.       el \{\
.          rr #DOC_COVERS
.          nr #DOC_COVERS_OFF 1
.       \}
.    \}
.    el \{\
.       ie '\\$1'' \{\
.          rr #COVERS_OFF
.          nr #COVERS 1
.       \}
.       el \{\
.          rr #COVERS
.          nr #COVERS_OFF 1
.       \}
.    \}
.END
\#
\#
\# COVER_COUNTS_PAGES
\# ------------------
\# *Arguments:
\#   <none> | <anything>
\# *Function:
\#   Creates or removes registers #COVERS_COUNT or #DOCCOVERS_COUNT,
\#   used in END_COVER to determine whether to increment the page
\#   number silently when doc covers or covers are output.
\#
.MAC COVER_COUNTS_PAGES END
.    if '\\$0'DOC_COVER_COUNTS_PAGES' \{\
.       ie '\\$1'' \{ .nr #DOCCOVERS_COUNT 1 \}
.       el \{ .rr #DOCCOVERS_COUNT \}
.       return
.    \}
.    if '\\$0'COVER_COUNTS_PAGES' \{\
.       ie '\\$1'' \{ .nr #COVERS_COUNT 1 \}
.       el \{ .rr #COVERS_COUNT \}
.       return
.    \}
.END
\#
\#
.MAC DO_COVER END
.    nr #DOING_COVER 1
.    ev COVER
.    evc 0
.    TRAP OFF
.    if \\n[#PAGINATE]=1 \{\
.       nr #PAGINATION_WAS_ON 1
.       rr #PAGINATE
.    \}
.    if \\n[#HEADERS_ON]=1 \{\
.       nr #HEADERS_WERE_ON 1
.       HEADERS OFF
.    \}
.    if \\n[#FOOTERS_ON]=1 \{\
.       nr #FOOTERS_WERE_ON 1
.       FOOTERS OFF
.    \}
.    if \\n[#COLUMNS]=1 \{\
.       nr #COLUMNS_WERE_ON 1
.       rr #COLUMNS
.    \}
.\" Doc cover
.    ie '\\$0'DO_DOC_COVER' \{\
.       if !r#DOC_COVER_START_POS \{\
.          nr #DOC_COVER_START_POS \\n[#PAGE_LENGTH]/3
.       \}
.       if \\n[#PRINT_STYLE]=1 \{\
.          ie \\n[#SINGLE_SPACE]=1 \{ .vs \\n[#DOC_LEAD]u*2u \}
.          el \{ .vs \\n[#DOC_LEAD]u \}
.       \}
.       if \\n[#PRINT_STYLE]=2 \{\
.          LS \\n[#DOC_LEAD]u\\*[$DOC_COVER_LEAD_ADJ]
.          nr #DOC_COVER_LEAD \\n[#LEAD]
.       \}
.       PRINT \&
.       sp |\\n[#DOC_COVER_START_POS]u-1v
.       if \\n[#DOC_COVER_COLOR]=1 \{\
.          nf
\m[\\*[$DOC_COVER_COLOR]]
.          EOL
.       \}
.       CENTER
.       FAMILY  \\*[$DOC_COVER_TITLE_FAM]
.       FT      \\*[$DOC_COVER_TITLE_FT]
.       PT_SIZE \\*[$DOC_COVER_TITLE_PT_SIZE]
.       LS      \\n[#DOC_COVER_LEAD]u
.       if \\n[#PRINT_STYLE]=1 \{ .TYPEWRITER \}
.       if \\n[#DOC_COVER_TITLE]=1 \{\
.          ie \\n[#PRINT_STYLE]=1 \{\
.             CAPS
.             nr #ARG_NUM 0 1
.             while \\n[#TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.                UNDERSCORE "\\*[$TITLE_\\n[#ARG_NUM]]"
.\}
.             CAPS OFF
.          \}
.          el \{\
.          nr #ARG_NUM 0 1
.          while \\n[#TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.             ie \\n[#DOC_COVER_TITLE_COLOR]=1 \{\
.                PRINT "\m[\\*[$DOC_COVER_TITLE_COLOR]]\\*[$TITLE_\\n[#ARG_NUM]]\m[]
.             \}
.             el \{\
.                PRINT "\\*[$TITLE_\\n[#ARG_NUM]]
.             \}
.\}
.          \}
.       \}
.       if \\n[#DOC_COVER_TITLE]=2 \{\
.          ie \\n[#PRINT_STYLE]=1 \{\
.             CAPS
.             nr #ARG_NUM 0 1
.             while \\n[#DOCTITLE_NUM]>=\\n+[#ARG_NUM] \{\
.                UNDERSCORE "\\*[$DOC_TITLE_\\n[#ARG_NUM]]"
.\}
.             CAPS OFF
.          \}
.          el \{\
.          nr #ARG_NUM 0 1
.          while \\n[#DOCTITLE_NUM]>=\\n+[#ARG_NUM] \{\
.             ie \\n[#DOC_COVER_TITLE_COLOR]=1 \{\
.                PRINT \m[\\*[$DOC_COVER_TITLE_COLOR]]\\*[$DOC_TITLE_\\n[#ARG_NUM]]\m[]
.             \}
.             el \{ .PRINT \\*[$DOC_TITLE_\\n[#ARG_NUM]] \}
.\}
.          \}
.       \}
.       if \\n[#DOC_COVER_TITLE]=3 \{\
.          ie \\n[#PRINT_STYLE]=1 \{\
.             CAPS
.             PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.             CAPS OFF
.          \}
.          el \{\
.             ie \\n[#DOC_COVER_TITLE_COLOR]=1 \{\
.                PRINT \m[\\*[$DOC_COVER_TITLE_COLOR]]\\*[$CHAPTER_STRING] \\*[$CHAPTER]\m[]
.             \}
.             el \{ .PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER] \}
.          \}
.       \}
.       if \\n[#DOC_COVER_TITLE]=4 \{\
.          ie \\n[#PRINT_STYLE]=1 \{\
.             CAPS
.             nr #ARG_NUM 0 1
.                ie \\n[#SINGLE_SPACE]=0 \{\
.                   vs \\n[#DOC_LEAD]u/2u
.                \}
.                el \{\
.                   vs \\n[#DOC_LEAD]u
.                \}
.                sp
.             while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.                UNDERSCORE "\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]"
.\}
.             CAPS OFF
.             if \\n[#SINGLE_SPACE]=0 \{ .vs \\n[#DOC_LEAD]u \}
.          \}
.          el \{\
.          nr #ARG_NUM 0 1
.          while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.             ie \\n[#DOC_COVER_TITLE_COLOR]=1 \{\
.                PRINT \m[\\*[$DOC_COVER_TITLE_COLOR]]\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]\m[]
.             \}
.             el \{ .PRINT \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]] \}
.\}
.          \}
.       \}
.       if \\n[#DOC_COVER_TITLE]=5 \{\
.          ie \\n[#PRINT_STYLE]=1 \{\
.             CAPS
.             PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.             CAPS OFF
.          \}
.          el \{\
.             ie \\n[#DOC_COVER_TITLE_COLOR]=1 \{\
.                PRINT \m[\\*[$DOC_COVER_TITLE_COLOR]]\\*[$CHAPTER_STRING] \\*[$CHAPTER]\m[]
.             \}
.             el \{ .PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER] \}
.          \}
.          if !'\\*[$CHAPTER_TITLE_1]'' \{\
.             ie \\n[#PRINT_STYLE]=1 \{\
.                ie \\n[#SINGLE_SPACE]=0 \{\
.                   vs \\n[#DOC_LEAD]u/2u
.                \}
.                el \{\
.                   vs \\n[#DOC_LEAD]u
.                \}
.                sp
.                nr #ARG_NUM 0 1
.                while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.                   UNDERSCORE "\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]"
.\}
.                if \\n[#SINGLE_SPACE]=0 \{ .vs \\n[#DOC_LEAD]u \}
.             \}
.             el \{\
.                FAMILY  \\*[$DOC_COVER_CHAPTER_TITLE_FAM]
.                FT      \\*[$DOC_COVER_CHAPTER_TITLE_FT]
.                PT_SIZE \\*[$DOC_COVER_CHAPTER_TITLE_PT_SIZE]
.                nr #ARG_NUM 0 1
.                ALD \\n[.v]u/4u \"Put a little space before the chapter title
.                while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.                   ie \\n[#DOC_COVER_TITLE_COLOR]=1 \{\
.                      PRINT \m[\\*[$DOC_COVER_TITLE_COLOR]]\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]\m[]
.                   \}
.                   el \{ .PRINT \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]] \}
.\}
.             \}
.          \}
.       \}
.       if \\n[#DOC_COVER_TITLE]=6 \{\
.          ie \\n[#PRINT_STYLE]=1 \{\
.             CAPS
.             nr #ARG_NUM 0 1
.             while \\n[#DOC_COVER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.                UNDERSCORE "\\*[$DOC_COVER_TITLE_\\n[#ARG_NUM]]"
.\}
.             CAPS OFF
.          \}
.          el \{\
.             nr #ARG_NUM 0 1
.             while \\n[#DOC_COVER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.             ie \\n[#DOC_COVER_TITLE_COLOR]=1 \{\
.                PRINT \m[\\*[$DOC_COVER_TITLE_COLOR]]\\*[$DOC_COVER_TITLE_\\n[#ARG_NUM]]\m[]
.             \}
.             el \{ .PRINT \\*[$DOC_COVER_TITLE_\\n[#ARG_NUM]] \}
.\}
.          \}
.       \}
.       if !\\n[#DOC_TYPE]=2 \{\
.          if \\n[#DOC_COVER_SUBTITLE]=1 \{\
.             FAMILY  \\*[$DOC_COVER_SUBTITLE_FAM]
.             FT      \\*[$DOC_COVER_SUBTITLE_FT]
.             PT_SIZE \\*[$DOC_COVER_SUBTITLE_PT_SIZE]
.             if \\n[#PRINT_STYLE]=1 \{\
.                TYPEWRITER
.                ie \\n[#SINGLE_SPACE]=0 \{ .vs \\n[#DOC_LEAD]u/2u \}
.                el \{ .vs \\n[#DOC_LEAD]u \}
.                sp
.             \}
.       if \\n[#DOC_COVER]=1 \{\
.          ie !'\\*[$SUBTITLE_DOCCOVER_1]'' \{\
.             nr #SUBTITLES \\n[#SUBTITLE_DOCCOVER_NUM]
.             nr #NEXT_SUBTITLE 0 1
.             while \\n[#SUBTITLES]>\\n[#NEXT_SUBTITLE] \{\
.                ie \\n[#DOC_COVER_SUBTITLE_COLOR]=1 \{\
.                   PRINT \m[\\*[$DOC_COVER_SUBTITLE_COLOR]]\\*[$SUBTITLE_DOCCOVER_\\n+[#NEXT_SUBTITLE]]\m[]
.                \}
.                el \{ .PRINT \\*[$SUBTITLE_DOCCOVER_\\n+[#NEXT_SUBTITLE]] \}
.\}
.          \}
.          el \{\
.             nr #SUBTITLES \\n[#SUBTITLE_NUM]
.             nr #NEXT_SUBTITLE 0 1
.             while \\n[#SUBTITLES]>\\n[#NEXT_SUBTITLE] \{\
.                ie \\n[#DOC_COVER_SUBTITLE_COLOR]=1 \{\
.                   PRINT \m[\\*[$DOC_COVER_SUBTITLE_COLOR]]\\*[$SUBTITLE_\\n+[#NEXT_SUBTITLE]]\m[]
.                \}
.                el \{ .PRINT \\*[$SUBTITLE_\\n+[#NEXT_SUBTITLE]] \}
.\}
.          \}
.       \}
.             if \\n[#PRINT_STYLE]=1 \{\
.                if \\n[#SINGLE_SPACE]=0 \{ .vs \}
.             \}
.          \}
.          if \\n[#PRINT_STYLE]=1 \{\
.             if !r#DOC_COVER_SUBTITLE \{ .sp \}
.          \}
.       \}
.       if \\n[#DOC_COVER_AUTHOR]=1 \{\
.          FAMILY  \\*[$DOC_COVER_AUTHOR_FAM]
.          FT      \\*[$DOC_COVER_AUTHOR_FT]
.          PT_SIZE \\*[$DOC_COVER_AUTHOR_PT_SIZE]
.          if \\n[#PRINT_STYLE]=1 \{\
.             TYPEWRITER
.             ie \\n[#SINGLE_SPACE]=1 \{ .vs \\n[#DOC_LEAD]u \}
.             el \{ .vs \\n[#DOC_LEAD]u/2u \}
.             sp
.          \}
.          ie d$ATTRIBUTE_STRING_DOCCOVER \{\
.             ie \\n[#DOC_COVER_ATTRIBUTE_COLOR]=1 \{\
.                PRINT \&\m[\\*[$DOC_COVER_ATTRIBUTE_COLOR]]\\*[$ATTRIBUTE_STRING_DOCCOVER]\m[]
.             \}
.             el \{ .PRINT \&\\*[$ATTRIBUTE_STRING_DOCCOVER] \}
.          \}
.          el \{\
.             if d$ATTRIBUTE_STRING \{\
.                ie \\n[#DOC_COVER_ATTRIBUTE_COLOR]=1 \{\
.                   PRINT \&\m[\\*[$DOC_COVER_ATTRIBUTE_COLOR]]\\*[$ATTRIBUTE_STRING]\m[]
.                \}
.                el \{ .PRINT \&\\*[$ATTRIBUTE_STRING] \}
.             \}
.          \}
.          PRINT_AUTHORS
.       \}
.       FAMILY  \\*[$DOC_COVER_DOCTYPE_FAM]
.       FT      \\*[$DOC_COVER_DOCTYPE_FT]
.       PT_SIZE \\*[$DOC_COVER_DOCTYPE_PT_SIZE]
.       SP
.       if \\n[#DOC_TYPE]=3 \{\
.          if \\n[#DOC_COVER_DOCTYPE]=1 \{\
.             ie \\n[#PRINT_STYLE]=1 \{\
.                TYPEWRITER
.                vs \\n[#DOC_LEAD]u
.                UNDERSCORE2 "\\*[$DOC_TYPE]"
.             \}
.             el \{\
.                nr #FROM_DOC_COVER 1
.                ie \\n[#DOC_COVER_DOCTYPE_COLOR]=1 \{\
.                   COLOR \\*[$DOC_COVER_DOCTYPE_COLOR]
.                   ie \\n[#DOCCOVER_UNDERLINE]= 1 \{ .UNDERSCORE \\*[$DOCCOVER_UNDERLINE_GAP] "\\*[$DOC_TYPE]" \}
.                   el \{ .PRINT "\\*[$DOC_TYPE]" \}
.                \}
.                el \{\
.                   ie \\n[#DOCCOVER_UNDERLINE]=1 \{ .UNDERSCORE \\*[$DOCCOVER_UNDERLINE_GAP] "\\*[$DOC_TYPE]" \}
.                   el \{ .PRINT "\\*[$DOC_TYPE]" \}
.                \}
.                rr #FROM_DOC_COVER
.             \}
.          \}
.       \}
.       sp |\\n[#VISUAL_B_MARGIN]u+\\n[#DOC_LEAD]u
.       ie \\n[#PRINT_STYLE]=1 \{\
.          TYPEWRITER
.          ie \\n[#SINGLE_SPACE]=1 \{ .vs \\n[#DOC_LEAD]u \}
.          el \{ .vs \\n[#DOC_LEAD]u/2u \}
.       \}
.       el \{\
.          FAMILY  \\*[$DOC_COVER_COPYRIGHT_FAM]
.          FT      \\*[$DOC_COVER_COPYRIGHT_FT]
.          AUTOLEAD 2
.          PT_SIZE \\*[$DOC_COVER_COPYRIGHT_PT_SIZE]
.       \}
.       if \\n[#DOC_COVER_COPYRIGHT]=1 \{\
.          if !'\\*[$COPYRIGHT_DOCCOVER]'' \{\
.             ds $SAVED_COPYRIGHT \\*[$COPYRIGHT]
.             ds $COPYRIGHT \\*[$COPYRIGHT_DOCCOVER]
.          \}
.          QUAD \\*[$DOC_COVER_COPYRIGHT_QUAD]
.          ie \\n[#DOC_COVER_COPYRIGHT_COLOR]=1 \{\
.             PRINT \m[\\*[$DOC_COVER_COPYRIGHT_COLOR]]\\*[$COPYRIGHT]\m[]
.          \}
.          el \{ .PRINT \\*[$COPYRIGHT] \}
.          ds $COPYRIGHT \\*[$SAVED_COPYRIGHT]
.       \}
.       sp |\\n[#VISUAL_B_MARGIN]u+\\n[#DOC_LEAD]u
.       if \\n[#DOC_COVER_MISC]=1 \{\
.          QUAD \\*[$DOC_COVER_MISC_QUAD]
.          ie !'\\*[$MISC_DOCCOVER_1]'' \{\
.             nr #MISCS \\n[#MISC_DOCCOVER_NUM]
.             sp -\\n[#MISCS]+1
.             nr #NEXT_MISC 0 1
.             while \\n[#MISCS]>\\n[#NEXT_MISC] \{\
.                ie \\n[#DOC_COVER_MISC_COLOR]=1 \{\
.                   PRINT \m[\\*[$DOC_COVER_MISC_COLOR]]\\*[$MISC_DOCCOVER_\\n+[#NEXT_MISC]]\m[]
.                   rm $MISC_DOCCOVER_\\n[#NEXT_MISC]
.                   rm $MISC_\\n[#NEXT_MISC]
.                   br
.                \}
.                el \{\
.                   PRINT \\*[$MISC_DOCCOVER_\\n+[#NEXT_MISC]]
.                   rm $MISC_DOCCOVER_\\n[#NEXT_MISC]
.                   rm $MISC_\\n[#NEXT_MISC]
.                   br
.                \}
.\}
.                rm $MISC_\\n+[#NEXT_MISC]
.          \}
.          el \{\
.             nr #MISCS \\n[#MISC_NUM]
.             sp -\\n[#MISCS]+1
.             nr #NEXT_MISC 0 1
.             while \\n[#MISCS]>\\n[#NEXT_MISC] \{\
.                ie \\n[#DOC_COVER_MISC_COLOR]=1 \{\
.                   PRINT \m[\\*[$DOC_COVER_MISC_COLOR]]\\*[$MISC_\\n+[#NEXT_MISC]]\m[]
.                   br
.                \}
.                el \{\
.                   PRINT \\*[$MISC_\\n+[#NEXT_MISC]]
.                   br
.                \}
.\}
.          \}
.       \}
.       if \\n[#DOCCOVERS_COUNT]=1 \{ .nr #PAGE_NUM_ADJ +1 \}
.       nr #DOCCOVER_END 1
.       END_COVER
.    \}
.\" Cover
.    el \{\
.       if !r#COVER_START_POS \{\
.          nr #COVER_START_POS \\n[#PAGE_LENGTH]/3
.       \}
.       if \\n[#PRINT_STYLE]=1 \{\
.          ie \\n[#SINGLE_SPACE]=1 \{ .vs \\n[#DOC_LEAD]u*2u \}
.          el \{ .vs \\n[#DOC_LEAD]u \}
.       \}
.       if \\n[#PRINT_STYLE]=2 \{\
.          LS \\n[#DOC_LEAD]u\\*[$COVER_LEAD_ADJ]
.          nr #COVER_LEAD \\n[#LEAD]
.       \}
.       PRINT \&
.       sp |\\n[#COVER_START_POS]u-1v
.       if \\n[#COVER_COLOR]=1 \{\
.          nf
\m[\\*[$COVER_COLOR]]
.          EOL
.       \}
.       CENTER
.       FAMILY  \\*[$COVER_TITLE_FAM]
.       FT      \\*[$COVER_TITLE_FT]
.       PT_SIZE \\*[$COVER_TITLE_PT_SIZE]
.       LS      \\n[#COVER_LEAD]u
.       if \\n[#PRINT_STYLE]=1 \{ .TYPEWRITER \}
.       if \\n[#COVER_TITLE]=1 \{\
.          ie \\n[#PRINT_STYLE]=1 \{\
.             CAPS
.             nr #ARG_NUM 0 1
.             while \\n[#TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.                UNDERSCORE "\\*[$TITLE_\\n[#ARG_NUM]]"
.\}
.             CAPS OFF
.          \}
.          el \{\
.          nr #ARG_NUM 0 1
.          while \\n[#TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.             ie \\n[#COVER_TITLE_COLOR]=1 \{\
.                PRINT "\m[\\*[$COVER_TITLE_COLOR]]\\*[$TITLE_\\n[#ARG_NUM]]\m[]
.             \}
.             el \{\
.                PRINT "\\*[$TITLE_\\n[#ARG_NUM]]
.             \}
.\}
.          \}
.       \}
.       if \\n[#COVER_TITLE]=2 \{\
.          ie \\n[#PRINT_STYLE]=1 \{\
.             CAPS
.             nr #ARG_NUM 0 1
.             while \\n[#DOCTITLE_NUM]>=\\n+[#ARG_NUM] \{\
.                UNDERSCORE "\\*[$DOC_TITLE_\\n[#ARG_NUM]]"
.\}
.             CAPS OFF
.          \}
.          el \{\
.          nr #ARG_NUM 0 1
.          while \\n[#DOCTITLE_NUM]>=\\n+[#ARG_NUM] \{\
.             ie \\n[#DOC_COVER_TITLE_COLOR]=1 \{\
.                PRINT \m[\\*[$DOC_COVER_TITLE_COLOR]]\\*[$DOC_TITLE_\\n[#ARG_NUM]]\m[]
.             \}
.             el \{ .PRINT \\*[$DOC_TITLE_\\n[#ARG_NUM]] \}
.\}
.          \}
.       \}
.       if \\n[#COVER_TITLE]=3 \{\
.          ie \\n[#PRINT_STYLE]=1 \{\
.             CAPS
.             PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.             CAPS OFF
.          \}
.          el \{\
.             ie \\n[#COVER_TITLE_COLOR]=1 \{\
.                PRINT \m[\\*[$COVER_TITLE_COLOR]]\\*[$CHAPTER_STRING] \\*[$CHAPTER]\m[]
.             \}
.             el \{ .PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER] \}
.          \}
.       \}
.       if \\n[#COVER_TITLE]=4 \{\
.          ie \\n[#PRINT_STYLE]=1 \{\
.                ie \\n[#SINGLE_SPACE]=0 \{\
.                   vs \\n[#DOC_LEAD]u/2u
.                \}
.                el \{\
.                   vs \\n[#DOC_LEAD]u
.                \}
.                sp
.             CAPS
.             nr #ARG_NUM 0 1
.             while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.                UNDERSCORE "\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]"
.\}
.             CAPS OFF
.             if \\n[#SINGLE_SPACE]=0 \{ .vs \\n[#DOC_LEAD]u \}
.          \}
.          el \{\
.          nr #ARG_NUM 0 1
.          while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.             ie \\n[#DOC_COVER_TITLE_COLOR]=1 \{\
.                PRINT \m[\\*[$DOC_COVER_TITLE_COLOR]]\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]\m[]
.             \}
.             el \{ .PRINT \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]] \}
.\}
.          \}
.       \}
.       if \\n[#COVER_TITLE]=5 \{\
.          ie \\n[#PRINT_STYLE]=1 \{\
.             CAPS
.             PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.             CAPS OFF
.          \}
.          el \{\
.             ie \\n[#COVER_TITLE_COLOR]=1 \{\
.                PRINT \m[\\*[$COVER_TITLE_COLOR]]\\*[$CHAPTER_STRING] \\*[$CHAPTER]\m[]
.             \}
.             el \{ .PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER] \}
.          \}
.          if !'\\*[$CHAPTER_TITLE_1]'' \{\
.             ie \\n[#PRINT_STYLE]=1 \{\
.                ie \\n[#SINGLE_SPACE]=0 \{\
.                   vs \\n[#DOC_LEAD]u/2u
.                \}
.                el \{\
.                   vs \\n[#DOC_LEAD]u
.                \}
.                sp
.                nr #ARG_NUM 0 1
.                while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.                   UNDERSCORE "\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]"
.\}
.                if \\n[#SINGLE_SPACE]=0 \{ .vs \\n[#DOC_LEAD]u \}
.             \}
.             el \{\
.                FAMILY  \\*[$COVER_CHAPTER_TITLE_FAM]
.                FT      \\*[$COVER_CHAPTER_TITLE_FT]
.                PT_SIZE \\*[$COVER_CHAPTER_TITLE_PT_SIZE]
.                ALD \\n[.v]u/4u \"Put a little space before the chapter title
.                nr #ARG_NUM 0 1
.                while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.                   ie \\n[#DOC_COVER_TITLE_COLOR]=1 \{\
.                      PRINT \m[\\*[$DOC_COVER_TITLE_COLOR]]\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]\m[]
.                   \}
.                   el \{ .PRINT \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]] \}
.\}
.             \}
.          \}
.       \}
.       if \\n[#COVER_TITLE]=6 \{\
.          ie \\n[#PRINT_STYLE]=1 \{\
.             CAPS
.             nr #ARG_NUM 0 1
.             while \\n[#COVER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.                UNDERSCORE "\\*[$COVER_TITLE_\\n[#ARG_NUM]]"
.\}
.             CAPS OFF
.          \}
.          el \{\
.             nr #ARG_NUM 0 1
.             while \\n[#COVER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.             ie \\n[#COVER_TITLE_COLOR]=1 \{\
.                PRINT \m[\\*[$COVER_TITLE_COLOR]]\\*[$COVER_TITLE_\\n[#ARG_NUM]]\m[]
.             \}
.             el \{ .PRINT \\*[$COVER_TITLE_\\n[#ARG_NUM]] \}
.\}
.          \}
.       \}
.       if !\\n[#DOC_TYPE]=2 \{\
.          if \\n[#COVER_SUBTITLE]=1 \{\
.             FAMILY  \\*[$COVER_SUBTITLE_FAM]
.             FT      \\*[$COVER_SUBTITLE_FT]
.             PT_SIZE \\*[$COVER_SUBTITLE_PT_SIZE]
.             if \\n[#PRINT_STYLE]=1 \{\
.                TYPEWRITER
.                if \\n[#PRINT_STYLE]=1 \{\
.                   TYPEWRITER
.                   ie \\n[#SINGLE_SPACE]=0 \{ .vs \\n[#DOC_LEAD]u/2u \}
.                   el \{ .vs \\n[#DOC_LEAD]u \}
.                   sp
.                \}
.             \}
.       if \\n[#COVER]=1 \{\
.          ie !'\\*[$SUBTITLE_COVER_1]'' \{\
.             nr #SUBTITLES \\n[#SUBTITLE_COVER_NUM]
.             nr #NEXT_SUBTITLE 0 1
.             while \\n[#SUBTITLES]>\\n[#NEXT_SUBTITLE] \{\
.                ie \\n[#COVER_SUBTITLE_COLOR]=1 \{\
.                   PRINT \m[\\*[$COVER_SUBTITLE_COLOR]]\\*[$SUBTITLE_COVER_\\n+[#NEXT_SUBTITLE]]\m[]
.                \}
.                el \{ .PRINT \\*[$SUBTITLE_COVER_\\n+[#NEXT_SUBTITLE]] \}
.\}
.          \}
.          el \{\
.             nr #SUBTITLES \\n[#SUBTITLE_NUM]
.             nr #NEXT_SUBTITLE 0 1
.             while \\n[#SUBTITLES]>\\n[#NEXT_SUBTITLE] \{\
.                ie \\n[#COVER_SUBTITLE_COLOR]=1 \{\
.                   PRINT \m[\\*[$COVER_SUBTITLE_COLOR]]\\*[$SUBTITLE_\\n+[#NEXT_SUBTITLE]]\m[]
.                \}
.                el \{ .PRINT \\*[$SUBTITLE_\\n+[#NEXT_SUBTITLE]] \}
.\}
.          \}
.       \}
.             if \\n[#PRINT_STYLE]=1 \{\
.                if \\n[#SINGLE_SPACE]=0 \{ .vs \}
.             \}
.          \}
.          if \\n[#PRINT_STYLE]=1 \{\
.             if !r#COVER_SUBTITLE \{ .sp \}
.          \}
.       \}
.       if \\n[#COVER_AUTHOR]=1 \{\
.          FAMILY  \\*[$COVER_AUTHOR_FAM]
.          FT      \\*[$COVER_AUTHOR_FT]
.          PT_SIZE \\*[$COVER_AUTHOR_PT_SIZE]
.          if \\n[#PRINT_STYLE]=1 \{\
.             TYPEWRITER
.             ie \\n[#SINGLE_SPACE]=1 \{ .vs \\n[#DOC_LEAD]u \}
.             el \{ .vs \\n[#DOC_LEAD]u/2u \}
.             sp
.          \}
.          ie d$ATTRIBUTE_STRING_COVER \{\
.             ie \\n[#COVER_ATTRIBUTE_COLOR]=1 \{\
.                PRINT \&\m[\\*[$COVER_ATTRIBUTE_COLOR]]\\*[$ATTRIBUTE_STRING_COVER]\m[]
.             \}
.             el \{ .PRINT \&\\*[$ATTRIBUTE_STRING_COVER] \}
.          \}
.          el \{\
.             if d$ATTRIBUTE_STRING \{\