path: root/macros/hptex/macroshc.tex

% THIS IS FILE MACROSHC
%
%        *** Source file for hard copy of HP TEX Macro Package ***
%                     Copyright 1984 Hewlett-Packard Co.
%
%\lpdef{1,1in,1.34in,P}
%\vsize52pc
%\hsize39pc
\def\evenheading{\vbox{\hbox to \hsize{\eightrm Page \folio\hfil\HPTEX}
               \nointerlineskip\vskip2pt
               \hbox{\vrule width \hsize height .4pt}}}
\def\oddheading{\vbox{\hbox to \hsize{\eightrm The \HPTEX\
               Macros\hfil Page \folio}
               \nointerlineskip\vskip2pt
               \hbox{\vrule width \hsize height .4pt}}}
\def\noheading{\hfil}
\headline{\ifnum\pageno=1\noheading
          \else\ifodd\pageno\oddheading
                \else\evenheading\fi\fi}
\centerfooting{}

\def\\{\char '134}
\def\lftbr{\char '173}
\def\rtbr{\char '175}

\null
\vskip.5in
\centerline{\twelvebf THE \HPTEX\ MACROS}\footnote{}{\eightrm\copyright 1984
                                                     Hewlett-Packard Co.}
\vskip1in

\start{verbatim}
\tentt

\% This is the HP TeX text format version A.00.00 as of Feb. 14, 1984.
\% It is compatible with the plain TeX format that's described in The TeXbook.
\%
\% NOTE 1, NOTE 2, etc. refer to notes in the file HPTEXDOC
\%

\\input PLAIN.TEXT                                                     \% NOTE 1

\\message{\lftbr}Preloading the HP TeX codes,{\rtbr}

\% SPECIAL CATCODES
\%
\\catcode`@=11                                                         \% NOTE 2

\% HPTEX
\%
\\def\\HPTEX{\lftbr}HP\\nobreak\\ \\TeX{\rtbr}
\\let\\HpTeX=\\HPTEX
\\def\\fmtname{\lftbr}HP TeX{\rtbr}\\def\\fmtversion{\lftbr}A.00.00{\rtbr}

\% LEADERS
\%
\\def\\dotfil{\lftbr}\\tenrm\\leaders\\hbox to8\\p@{\lftbr}\\hss.\\hss{\rtbr}\\h

\% CONSTANT VALUES
\%
\\chardef\\zer@=0
\\chardef\\f@ur=4
\\skipdef\\skip@ii=2
\\maxdepth=2pt

\\message{\lftbr}fonts,{\rtbr}

\% FONTS                                                               \% NOTE 4
\%
\\let\\fontcheck=1                                                      \% NOTE
\\def\\fontdef#1=#2 {\lftbr}\\def#1{\lftbr}\\font@{\lftbr}#1{\rtbr}{\lftbr}#2{\r
\\def\\font@#1#2{\lftbr}{\lftbr}\\let\\fontcheck=0\\ifx0\\fontcheck\\egroup\\glo
    \\else{\rtbr}\\string#1 \\fi{\rtbr}\%--The space after \\string#1 is necessa

\% ROMAN TEXT
\%
\\fontdef\\twentyfourrm={\lftbr}amr10 scaled \\magstep5{\rtbr}
\\fontdef\\eighteenrm={\lftbr}amr10 scaled \\magstep3{\rtbr}
\\fontdef\\fourteenrm={\lftbr}amr10 scaled \\magstep2{\rtbr}
\\font\\twelverm=amr10 scaled \\magstep1
\%\\font\\tenrm=amr10
\\font\\ninerm=amr9
\\font\\eightrm=amr8
\%\\font\\sevenrm=amr7
\\font\\sixrm=amr6
\%\\font\\fiverm=amr5

\% MATH ITALIC
\%
\\fontdef\\twentyfouri={\lftbr}ammi10 scaled \\magstep5{\rtbr}
\\fontdef\\eighteeni={\lftbr}ammi10 scaled \\magstep3{\rtbr}
\\fontdef\\fourteeni={\lftbr}ammi10 scaled \\magstep2{\rtbr}
\\fontdef\\twelvei={\lftbr}ammi10 scaled \\magstep1{\rtbr}
\%\\font\\teni=ammi10
\\fontdef\\ninei={\lftbr}ammi9{\rtbr}
\\fontdef\\eighti={\lftbr}ammi8{\rtbr}
\%\\font\\seveni=ammi7
\\fontdef\\sixi={\lftbr}ammi6{\rtbr}
\%\\font\\fivei=ammi5

\% MATH SYMBOLS
\%
\\fontdef\\twentyfoursy={\lftbr}amsy10 scaled \\magstep5{\rtbr}
\\fontdef\\eighteensy={\lftbr}amsy10 scaled \\magstep3{\rtbr}
\\fontdef\\fourteensy={\lftbr}amsy10 scaled \\magstep2{\rtbr}
\\fontdef\\twelvesy={\lftbr}amsy10 scaled \\magstep1{\rtbr}
\%\\font\\tensy=amsy10
\\fontdef\\ninesy={\lftbr}amsy9{\rtbr}
\\fontdef\\eightsy={\lftbr}amsy8{\rtbr}
\%\\font\\sevensy=amsy7
\\fontdef\\sixsy={\lftbr}amsy6{\rtbr}
\%\\font\\fivesy=amsy5

\% BOLD MATH SYMBOLS
\%
\\fontdef\\tenbfsy={\lftbr}ambsy10{\rtbr}

\% MATH EXTENSION
\%
\%\\font\\tenex=amex10

\% SANS SERIF
\%
\\fontdef\\fourteenss={\lftbr}amss10 scaled \\magstep2{\rtbr}
\\fontdef\\twelvess={\lftbr}amss10 scaled \\magstep1{\rtbr}
\\font\\tenss=amss10
\\font\\eightss=amssq8

\% SANS SERIF ITALIC
\%
\\font\\tenitss=amssi10
\\font\\eightitss=amssqi8

\% BOLDFACE EXTENDED
\%
\\fontdef\\twentyfourbf={\lftbr}ambx10 scaled \\magstep5{\rtbr}
\\fontdef\\eighteenbf={\lftbr}ambx10 scaled \\magstep3{\rtbr}
\\fontdef\\fourteenbf={\lftbr}ambx10 scaled \\magstep2{\rtbr}
\\font\\twelvebf=ambx10 scaled \\magstep1
\%\\font\\tenbf=ambx10
\\font\\ninebf=ambx9
\\font\\eightbf=ambx8
\%\\font\\sevenbf=ambx7
\\font\\sixbf=ambx6
\%\\font\\fivebf=ambx5

\% TYPEWRITER
\%
\\fontdef\\twentyfourtt={\lftbr}amtt10 scaled \\magstep5{\rtbr}
\\fontdef\\eighteentt={\lftbr}amtt10 scaled \\magstep3{\rtbr}
\\fontdef\\fourteentt={\lftbr}amtt10 scaled \\magstep2{\rtbr}
\\fontdef\\twelvett={\lftbr}amtt10 scaled \\magstep1{\rtbr}
\%\\font\\tentt=amtt10
\\font\\ninett=amtt9
\\font\\eighttt=amtt8

\% SLANTED TYPEWRITER
\%
\\font\\tensltt=amsltt10

\% SLANTED ROMAN
\%
\\fontdef\\twentyfoursl={\lftbr}amsl10 scaled \\magstep5{\rtbr}
\\fontdef\\eighteensl={\lftbr}amsl10 scaled \\magstep3{\rtbr}
\\fontdef\\fourteensl={\lftbr}amsl10 scaled \\magstep2{\rtbr}
\\fontdef\\twelvesl={\lftbr}amsl10 scaled \\magstep1{\rtbr}
\%\\font\\tensl=amsl10
\\font\\ninesl=amsl9
\\font\\eightsl=amsl8

\% TEXT ITALIC
\%
\\fontdef\\twentyfourit={\lftbr}amti10 scaled \\magstep5{\rtbr}
\\fontdef\\eighteenit={\lftbr}amti10 scaled \\magstep3{\rtbr}
\\fontdef\\fourteenit={\lftbr}amti10 scaled \\magstep2{\rtbr}
\\fontdef\\twelveit={\lftbr}amti10 scaled \\magstep1{\rtbr}
\%\\font\\tenit=amti10
\\font\\nineit=amti9
\\font\\eightit=amti8
\\fontdef\\sevenit={\lftbr}amti7{\rtbr}

\% UNSLANTED TEXT ITALIC
\%
\\font\\tenuit=amu10

\% CAPS AND SMALL CAPS
\%
\\font\\tencsc=amcsc10

\% SANS SERIF BOLD EXTENDED
\%
\\font\\tenbfss=amssbx10

\% BOLD EXTENDED SLANTED
\%
\\font\\tenslbf=ambxsl10

\% DUNHILL STYLE
\%
\\font\\tendh=amdunh10

\% FOR TITLES
\%
\\font\\titlefont=amr7 scaled \\magstep4

\% BIG FONT
\%
\\font\\bigfont=amssbx10 scaled \\magstep2

\\message{\lftbr}macros,{\rtbr}

\% MACROS TO SET FSTYLE                                                \% NOTE 7
\%
\\def\\rm{\lftbr}\\fam\\z@\\def\\fstyle{\lftbr}rm{\rtbr}\\setfont{\rtbr}
\\def\\it{\lftbr}\\fam\\itfam\\def\\fstyle{\lftbr}it{\rtbr}\\setfont{\rtbr}
\\def\\bf{\lftbr}\\fam\\bffam\\def\\fstyle{\lftbr}bf{\rtbr}\\setfont\\ifmmode{\l
                                      \\textfont2=\\tenbfsy\\fi{\rtbr}
\\def\\sl{\lftbr}\\fam\\slfam\\def\\fstyle{\lftbr}sl{\rtbr}\\setfont{\rtbr}
\\def\\sa{\lftbr}\\def\\fstyle{\lftbr}ss{\rtbr}\\setfont{\rtbr}
\\def\\tt{\lftbr}\\fam\\ttfam\\def\\fstyle{\lftbr}tt{\rtbr}\\setfont{\rtbr}

\\newfam\\ssfam

\vfil\goodbreak
\% MACROS TO SET FSIZE                                                 \% NOTE 8
\%
\\def\\fivepoint{\lftbr}\\def\\fsize{\lftbr}five{\rtbr}\\setfont\\let\\sfont=\\f
               \\baselineskip7pt\%
               \\setbox\\strutbox=\\hbox{\lftbr}\\vrule height4.5pt depth1.5pt w
               \\textfont0=\\fiverm \\scriptfont0=\\fiverm\%
                                \\scriptscriptfont0=\\fiverm\%
                            \\textfont1=\\fivei \\scriptfont1=\\fivei\%
                                \\scriptscriptfont1=\\fivei\%
                            \\textfont2=\\fivesy \\scriptfont2=\\fivesy\%
                                \\scriptscriptfont2=\\fivesy{\rtbr}
\vfil\goodbreak

\\def\\sixpoint{\lftbr}\\def\\fsize{\lftbr}six{\rtbr}\\setfont\\let\\sfont=\\fiv
               \\baselineskip8pt\%
               \\setbox\\strutbox=\\hbox{\lftbr}\\vrule height5pt depth2pt width
               \\textfont0=\\sixrm \\scriptfont0=\\fiverm\%
                              \\scriptscriptfont0=\\fiverm\%
               \\scriptfont1=\\fivei \\scriptscriptfont1=\\fivei\%
               \\scriptfont2=\\fivesy \\scriptscriptfont2=\\fivesy\%
               \\def\\changes{\lftbr}{\lftbr}\\sixi\\sixsy{\rtbr}\%
                            \\textfont1=\\sixi \\textfont2=\\sixsy{\rtbr}\%
                            \\ifmmode\\changes\\else\\everymath{\lftbr}\\changes
                                     \\everydisplay{\lftbr}\\changes{\rtbr}\\fi{
\vfil\goodbreak

\\def\\sevenpoint{\lftbr}\\def\\fsize{\lftbr}seven{\rtbr}\\setfont\\let\\sfont=\
                  \\baselineskip9pt\%
                  \\setbox\\strutbox=\\hbox{\lftbr}\\vrule height6pt depth2pt wi
                  \\textfont0=\\sevenrm \\scriptfont0=\\sixrm\%
                             \\scriptscriptfont0=\\fiverm\%
                  \\textfont1=\\seveni \\scriptscriptfont1=\\fivei\%
                  \\textfont2=\\sevensy \\scriptscriptfont2=\\fivesy\%
                  \\def\\changes{\lftbr}{\lftbr}\\sixi\\sixsy{\rtbr}\%
                          \\scriptfont1=\\sixi\%
                          \\scriptfont2=\\sixsy{\rtbr}\%
               \\ifmmode\\changes\\else\\everymath{\lftbr}\\changes{\rtbr}\%
                                               \\everydisplay{\lftbr}\\changes{\
\vfil\goodbreak

\\def\\eightpoint{\lftbr}\\def\\fsize{\lftbr}eight{\rtbr}\\setfont\\let\\sfont=\
                  \\baselineskip9pt\%
                  \\setbox\\strutbox=\\hbox{\lftbr}\\vrule height7pt depth2pt wi
                  \\textfont0=\\eightrm \\scriptfont0=\\sixrm\%
                              \\scriptscriptfont0=\\fiverm\%
                  \\scriptscriptfont1=\\fivei\%
                  \\scriptscriptfont2=\\fivesy\%
                  \\def\\changes{\lftbr}{\lftbr}\\eighti\\sixi\\eightsy\\sixsy{\
                            \\textfont1=\\eighti \\scriptfont1=\\sixi\%
                            \\textfont2=\\eightsy \\scriptfont2=\\sixsy{\rtbr}\%
               \\ifmmode\\changes\\else\\everymath{\lftbr}\\changes{\rtbr}\%
                                   \\everydisplay{\lftbr}\\changes{\rtbr}\\fi{\r
\vfil\goodbreak

\\def\\ninepoint{\lftbr}\\def\\fsize{\lftbr}nine{\rtbr}\\setfont\\let\\sfont=\\s
                  \\baselineskip11pt\%
                  \\setbox\\strutbox=\\hbox{\lftbr}\\vrule height8pt depth3pt wi
                  \\textfont0=\\ninerm \\scriptfont0=\\sevenrm\%
                               \\scriptscriptfont0\\fiverm\%
                  \\scriptfont1=\\seveni \\scriptscriptfont1\\fivei\%
                  \\scriptfont2=\\sevensy \\scriptscriptfont2\\fivesy\%
               \\def\\changes{\lftbr}{\lftbr}\\ninei\\ninesy{\rtbr}\%
                          \\textfont1=\\ninei\%
                          \\textfont2=\\ninesy{\rtbr}\%
                          \\ifmmode\\changes\\else\\everymath{\lftbr}\\changes{\
                                    \\everydisplay{\lftbr}\\changes{\rtbr}\\fi{\
\vfil\goodbreak

\\def\\tenpoint{\lftbr}\\def\\fsize{\lftbr}ten{\rtbr}\\setfont\\let\\sfont=\\sev
                \\baselineskip12pt\%
                \\setbox\\strutbox=\\hbox{\lftbr}\\vrule height8.5pt depth3.5pt
                \\textfont0=\\tenrm \\scriptfont0=\\sevenrm\%
                           \\scriptscriptfont0\\fiverm\%
                \\textfont1=\\teni \\scriptfont1=\\seveni\%
                             \\scriptscriptfont1\\fivei\%
                \\textfont2=\\tensy \\scriptfont2=\\sevensy\%
                             \\scriptscriptfont2\\fivesy{\rtbr}
\vfil\goodbreak

\\def\\twelvepoint{\lftbr}\\def\\fsize{\lftbr}twelve{\rtbr}\\setfont\\let\\sfont
                  \\baselineskip14pt\%
                  \\setbox\\strutbox=\\hbox{\lftbr}\\vrule height10pt depth4pt w
                  \\textfont0=\\twelverm \\scriptfont0=\\ninerm\%
                             \\scriptscriptfont0=\\sevenrm\%
                  \\scriptscriptfont1=\\seveni\%
                  \\scriptscriptfont2=\\sevensy\%
                  \\def\\changes{\lftbr}{\lftbr}\\twelvei\\ninei\\twelvesy\\nine
                           \\textfont1=\\twelvei \\scriptfont1=\\ninei\%
                           \\textfont2=\\twelvesy \\scriptfont2=\\ninesy{\rtbr}\
               \\ifmmode\\changes\\else\\everymath{\lftbr}\\changes{\rtbr}\%
                                     \\everydisplay{\lftbr}\\changes{\rtbr}\\fi{
\vfil\goodbreak

\\def\\fourteenpoint{\lftbr}\\def\\fsize{\lftbr}fourteen{\rtbr}\\setfont\\let\\s
     \\baselineskip16pt\%
     \\setbox\\strutbox=\\hbox{\lftbr}\\vrule height12pt depth4pt width0pt{\rtbr
     \\scriptfont0=\\tenrm \\scriptscriptfont0=\\sevenrm\%
     \\scriptfont1=\\teni \\scriptscriptfont1=\\seveni\%
     \\scriptfont2=\\tensy \\scriptscriptfont2=\\sevensy\%
     \\def\\changes{\lftbr}{\lftbr}\\fourteeni\\fourteenrm\\fourteensy{\rtbr}\%
                \\textfont0=\\fourteenrm\%
                \\textfont1=\\fourteeni\%
                \\textfont2=\\fourteensy{\rtbr}\%
     \\ifmmode\\changes\\else\\everymath{\lftbr}\\changes{\rtbr}\\everydisplay{\
\vfil\goodbreak

\\def\\eighteenpoint{\lftbr}\\def\\fsize{\lftbr}eighteen{\rtbr}\\setfont\\let\\s
      \\baselineskip18pt\%
      \\setbox\\strutbox=\\hbox{\lftbr}\\vrule height15pt depth3pt width0pt{\rtb
      \\scriptfont0=\\twelverm \\scriptscriptfont0=\\tenrm\%
      \\scriptscriptfont1=\\teni\%
      \\scriptscriptfont2=\\tensy\%
      \\def\\changes{\lftbr}{\lftbr}\\eighteenrm\\eighteeni\\twelvei\\eighteensy
                 \\textfont0=\\eighteenrm\%
                 \\textfont1=\\eighteeni \\scriptfont1=\\twelvei\%
                 \\textfont2=\\eighteensy \\scriptfont2=\\twelvesy{\rtbr}\%
      \\ifmmode\\changes\\else\\everymath{\lftbr}\\changes{\rtbr}\%
                            \\everydisplay{\lftbr}\\changes{\rtbr}\\fi{\rtbr}
\vfil\goodbreak

\\def\\twentyfourpoint{\lftbr}\\def\\fsize{\lftbr}twentyfour{\rtbr}\\setfont\\le
      \\baselineskip24pt\%
      \\setbox\\strutbox=\\hbox{\lftbr}\\vrule height21.5pt depth2.5pt width0pt{
      \\def\\changes{\lftbr}{\lftbr}\\twentyfourrm\\eighteenrm\\fourteenrm\\twen
                    \\eighteeni\\fourteeni\\twentyfoursy\\eighteensy\\fourteensy
                \\textfont0=\\twentyfourrm \\scriptfont0=\\eighteenrm \%
                  \\scriptscriptfont0=\\fourteenrm\%
                \\textfont1=\\twentyfouri \\scriptfont1=\\eighteeni\%
                  \\scriptscriptfont1=\\fourteeni\%
                \\textfont2=\\twentyfoursy \\scriptfont2=\\eighteensy\%
                  \\scriptscriptfont2=\\fourteensy{\rtbr}\%
       \\ifmmode\\changes\\else\\everymath{\lftbr}\\changes{\rtbr}\\everydisplay

\vfil\goodbreak
\% MACROS TO SET CURRENT FONT USING FSTYLE AND FSIZE
\%
\\newif\\ifnofont@
\\def\\tryfont#1{\lftbr}\\expandafter\\ifx\\csname#1\\endcsname\\relax\\nofont@t
    \\else\\nofont@false\\csname#1\\endcsname\\fi{\rtbr}
\\def\\setfont{\lftbr}\\tryfont{\lftbr}\\ffam\\fsize\\fstyle{\rtbr}\%
    \\ifnofont@\\tryfont{\lftbr}\\ffam\\fsize rm{\rtbr}\%
    \\ifnofont@\\tryfont{\lftbr}\\ffam tenrm{\rtbr}\%
    \\ifnofont@\\tenrm\\fi\\fi\\expandafter
    \\fonterr\\csname\\ffam\\fsize\\fstyle\\endcsname{\lftbr}\\the\\font{\rtbr}\
\\def\\fonterr#1#2{\lftbr}\\immediate\\write\\m@ne{\lftbr}! font #1is undefined,
    I'm using #2instead.{\rtbr}\\xdef#1{\lftbr}#2{\rtbr}{\rtbr}

\% DEFAULTS                                                            \% NOTE 1
\%
\\fam\\z@\\tenrm\\def\\ffam{\lftbr}{\rtbr}\\def\\fstyle{\lftbr}rm{\rtbr}\\def\\f

\% LINE MACROS                                                         \% NOTE 1
\%
\\def\\lline#1{\lftbr}\\hbox to\\hsize{\lftbr}\\hskip\\leftskip#1\\hskip\\rights
\\def\\leftline#1{\lftbr}\\lline{\lftbr}#1\\hss{\rtbr}{\rtbr}
\\def\\rightline#1{\lftbr}\\lline{\lftbr}\\hss#1{\rtbr}{\rtbr}
\\def\\centerline#1{\lftbr}\\lline{\lftbr}\\hss#1\\hss{\rtbr}{\rtbr}

\% MORE MACROS
\%
\\def\\narrow#1{\lftbr}\\advance\\leftskip#1\\advance\\rightskip#1{\rtbr}
\\def\\narrower{\lftbr}\\narrow\\parindent{\rtbr}
\\def\\narrow@{\lftbr}\\narrow\\inset{\rtbr}
\\def\\inc#1{\lftbr}\\advance#1\\@ne{\rtbr}
\\def\\dec#1{\lftbr}\\advance#1\\m@ne{\rtbr}
\\def\\ignore#1{\lftbr}\\relax{\rtbr}
\\def\\okbreak{\lftbr}\\par\\penalty-200{\rtbr}
\\def\\need{\lftbr}\\afterassignment\\need@\\dimen@{\rtbr}
\\def\\need@{\lftbr}\\vskip\\dimen@ minus\\dimen@\\okbreak\\vskip-\\dimen@ minus
\goodbreak
\\def\\for#1=#2to#3do#4{\lftbr}#1=#2\\ifnum#2>#3\\else\\let\\next@=\\fnext@
    \\def\\fcount@{\lftbr}#1{\rtbr}\\def\\fexit@{\lftbr}#3{\rtbr}\\def\\floop@{\
\goodbreak
\\def\\fnext@{\lftbr}\\floop@\\ifnum\\fcount@<\\fexit@\\inc\\fcount@
    \\else\\let\\next@=\\relax\\fi\\next@{\rtbr}
\goodbreak
\\def\\super#1{\lftbr}\\/\\raise.4em\\hbox{\lftbr}\\sfont#1{\rtbr}\\thinspace{\r
\\def\\sub#1{\lftbr}\\lower.25em\\hbox{\lftbr}\\sfont#1{\rtbr}\\thinspace{\rtbr}
\\def\\lbreak{\lftbr}\\hfill\\break{\rtbr}
\goodbreak
\\def\\uline#1{\lftbr}\\setbox0=\\hbox{\lftbr}#1{\rtbr}\\dimen@=-\\dp0\\advance\
    \\ifvmode\\indent\\fi\\hbox to \\wd0{\lftbr}\\lower.27em
    \\vbox{\lftbr}\\box0\\vskip\\dimen@\\hrule height.04em{\rtbr}{\rtbr}{\rtbr}
\goodbreak

\% START AND FINISH GROUP STRUCTURE                                    \% NOTE 1
\%
\\def\\start#1{\lftbr}\\errfalse\\ifinvalid@{\lftbr}#1{\rtbr}\\else\\begingroup
    \\def\\blockname@{\lftbr}#1{\rtbr}\\csname BEGIN#1\\endcsname\\fi\\Error{\rt
\\def\\finish#1{\lftbr}\\errfalse\\ifinvalid@{\lftbr}#1{\rtbr}\\else\\matchup@{\
\\def\\ifinvalid@#1{\lftbr}\\expandafter\\ifx\\csname BEGIN#1\\endcsname\\relax
    \\errset{\lftbr}I don't understand {\lftbr}#1{\rtbr}, it may be misspelled{\
\\def\\matchup@#1{\lftbr}\\def\\test@{\lftbr}#1{\rtbr}\%
    \\expandafter\\ifx\\csname blockname@\\endcsname\\relax
            \\errset{\lftbr}Extra \\string\\finish{\lftbr}\\test@{\rtbr} ignored
    \\else\\ifx\\test@\\blockname@\\done
    \\else\\errset{\lftbr}Missing \\string\\finish{\lftbr}\\blockname@{\rtbr} in
    \\done\\matchup@{\lftbr}#1{\rtbr}\\fi\\fi{\rtbr}
\\def\\done{\lftbr}\\csname END\\blockname@\\endcsname\\endgroup{\rtbr}

\% GENERAL ERROR HANDLING                                              \% NOTE 2
\%
\\def\\errfalse{\lftbr}\\global\\let\\iferr=\\iffalse{\rtbr}
\\def\\errtrue{\lftbr}\\global\\let\\iferr=\\iftrue{\rtbr}
\\def\\errset#1{\lftbr}\\iferr\\immediate\\write0{\lftbr}! \\error{\rtbr}\\else\
\\def\\Error{\lftbr}\\iferr\\errmessage{\lftbr}\\error{\rtbr}\\fi{\rtbr}

\% DATE AND TIME MACROS
\%
\\newcount\\cntA@\\newcount\\cntB@\\newcount\\cntC@
\\def\\mon{\lftbr}\\ifcase\\month\\relax\\or January\\or February\\or March\\or
    April\\or May\\or June\\or July\\or August\\or September\\or October\\or
    November\\or December\\fi{\rtbr}
\\def\\date{\lftbr}\\mon\\nobreak\\ \\number\\day, \\number\\year{\rtbr}
\goodbreak
\\def\\hour{\lftbr}{\lftbr}\\cntA@=\\time \\cntB@=\\cntA@
    \\divide\\cntA@60 \\cntC@=\\cntA@ \\multiply\\cntC@60
    \\advance\\cntB@-\\cntC@\\ifnum\\cntA@>11
    \\advance\\cntA@-12 \\def\\time@{\lftbr}PM{\rtbr}\\else\\def\\time@{\lftbr}A
    \\ifnum\\cntA@=0 \\cntA@=12 \\fi\\number\\cntA@
    :\\ifnum\\cntB@<10 0\\fi\\number\\cntB@\\nobreak\\ \\time@{\rtbr}{\rtbr}

\% INDENTSTYLE
\%
\\newdimen\\indentsize\\indentsize=20pt
\\newif\\ifindent\\indenttrue                                            \% NOTE
\\def\\indentstyle{\lftbr}\\parindent\\indentsize
    \\ifindent\\else\\indenttrue\\advance\\parskip-5\\p@\\fi{\rtbr}
\\def\\noindentstyle{\lftbr}\\parindent\\z@
    \\ifindent\\indentfalse\\advance\\parskip5\\p@\\fi{\rtbr}
\\def\\indentspace{\lftbr}\\afterassignment\\indent@\\indentsize{\rtbr}
\\def\\indent@{\lftbr}\\ifindent\\parindent\\indentsize\\fi{\rtbr}
\\newdimen\\inset
\\inset.5in
\\def\\BEGINindent{\lftbr}\\advance\\leftskip \\inset{\rtbr}
\\let\\ENDindent=\\par

\% RAGGED MARGIN AND JUSTIFIED MARGIN MACROS
\%
\\def\\fixmargin@{\lftbr}\\dimen@=\\rightskip\\rightskip=\\dimen@{\rtbr}
\\def\\justify{\lftbr}\\fixmargin@\\spaceskip\\z@\\xspaceskip\\z@{\rtbr}
\\def\\raggedright{\lftbr}\\fixmargin@\\advance\\rightskip\\z@ plus2em
    \\ifx\\fstyle\\tt@\\else\\spaceskip.3333em\\xspaceskip.5em\\fi{\rtbr}
\\def\\tt@{\lftbr}tt{\rtbr}

\% ITEM AND SUBITEM MACROS
\%
\\newcount\\icount@\\newcount\\scount@
\\newcount\\idigit@\\newcount\\sdigit@
\\def\\itemset@#1#2#3{\lftbr}\\dimen@=\\hsize \\advance\\dimen@-#2\\inset
    \\parshape=\\@ne#1\\inset\\dimen@\\noindent
    \\hbox to\\z@{\lftbr}\\hss#3\\enspace{\rtbr}\\ignorespaces{\rtbr}
\\def\\itemlist#1{\lftbr}\\medskip\\resetsubitems\\itemset@\\@ne\\tw@{\lftbr}#1{
\\def\\subitem#1{\lftbr}\\smallskip\\itemset@\\tw@\\f@ur{\lftbr}#1{\rtbr}{\rtbr}
\\def\\itempar{\lftbr}\\smallskip\\itemset@\\@ne\\tw@\\empty{\rtbr}
\\def\\subitempar{\lftbr}\\subitem\\empty{\rtbr}
\\def\\enditems{\lftbr}\\bigskip\\resetitems{\rtbr}

\% ITEMTAG AND SUBITEMTAG MACROS                                      \% NOTE 41
\%
\\def\\square{\lftbr}\\hbox{\lftbr}\\hskip.5pt\\vrule height.4em width.4em depth
\\def\\dott{\lftbr}$\\bullet${\rtbr}
\\def\\emdash{\lftbr}---{\rtbr}
\\def\\itemn@#1{\lftbr}\\number#1\\global\\inc#1{\rtbr}
\\def\\itemr@#1{\lftbr}\\romannumeral#1\\global\\inc#1{\rtbr}
\\def\\itemR@#1{\lftbr}\\uppercase\\expandafter{\lftbr}\\romannumeral#1{\rtbr}\\
\goodbreak
\\def\\iteml@#1#2{\lftbr}{\lftbr}\\loop\\char#1\\ifnum#2>\\@ne\\dec#2\\repeat{\r
   \\ifnum#1>122 \\global#1=97 \\global\\inc#2\\fi \\ifnum#1=91 \\global#1=65
   \\global\\inc#2\\fi{\rtbr}
   \\def\\item@ #1,#2,#3{\lftbr}\\def\\itemtag{\lftbr}#3{\rtbr}\%
   \\def\\resetitems{\lftbr}\\global\\icount@=#1\\global\\idigit@=#2{\rtbr}\\res
\\outer\\def\\numbereditems{\lftbr}\\item@ 1,0,{\lftbr}\\itemn@\\icount@{\rtbr}{
\\outer\\def\\lettereditems{\lftbr}\\item@ 97,1,{\lftbr}\\iteml@\\icount@\\idigi
\\outer\\def\\Lettereditems{\lftbr}\\item@ 65,1,{\lftbr}\\iteml@\\icount@\\idigi
\\outer\\def\\romanitems{\lftbr}\\item@ 1,0,{\lftbr}\\itemr@\\icount@{\rtbr}{\rt
\\outer\\def\\Romanitems{\lftbr}\\item@ 1,0,{\lftbr}\\itemR@\\icount@{\rtbr}{\rt
\\outer\\def\\squareditems{\lftbr}\\let\\itemtag=\\square\\let\\resetitems=\\rel
\\outer\\def\\dotteditems{\lftbr}\\let\\itemtag=\\dott\\let\\resetitems=\\relax{
\\outer\\def\\dasheditems{\lftbr}\\let\\itemtag=\\emdash\\let\\resetitems=\\rela
\\def\\itm{\lftbr}\\itemlist{\lftbr}\\tenrm\\itemtag\\ifx\\relax\\resetitems\\el

\\def\\subitem@ #1,#2,#3{\lftbr}\\def\\subitemtag{\lftbr}#3{\rtbr}\%
    \\def\\resetsubitems{\lftbr}\\global\\scount@=#1\\global\\sdigit@=#2{\rtbr}\
\\outer\\def\\numberedsubitems{\lftbr}\\subitem@ 1,0,{\lftbr}\\itemn@\\scount@{\
\\outer\\def\\letteredsubitems{\lftbr}\\subitem@ 97,1,{\lftbr}\\iteml@\\scount@\
\\outer\\def\\Letteredsubitems{\lftbr}\\subitem@ 65,1,{\lftbr}\\iteml@\\scount@\
\\outer\\def\\romansubitems{\lftbr}\\subitem@ 1,0,{\lftbr}\\itemr@\\scount@{\rtb
\\outer\\def\\Romansubitems{\lftbr}\\subitem@ 1,0,{\lftbr}\\itemR@\\scount@{\rtb
\\outer\\def\\squaredsubitems{\lftbr}\\let\\subitemtag=\\square\\let\\resetsubit
\\outer\\def\\dottedsubitems{\lftbr}\\let\\subitemtag=\\dott\\let\\resetsubitems
\\outer\\def\\dashedsubitems{\lftbr}\\let\\subitemtag=\\emdash\\let\\resetsubite
\\def\\sitm{\lftbr}\\subitem{\lftbr}\\tenrm\\subitemtag\\ifx\\relax\\resetsubite
                                                                      \% NOTE 49
\\numbereditems\\letteredsubitems                                       \% NOTE

\% NOTE AND WARNING MACROS
\%
\\def\\BEGINnote{\lftbr}\\bigskip\\narrow@\\narrow@\\nobreak{\rtbr}
\\let\\ENDnote=\\bigskip
\\def\\BEGINwarning{\lftbr}\\bigskip\\nobreak\\narrow@\\narrow@\\marginrule.0266
    \\nobreak\\medskip\\nobreak{\rtbr}
\\def\\ENDwarning{\lftbr}\\nobreak\\medskip\\nobreak\\marginrule.02667in \\bigsk
\\def\\marginrule#1 {\lftbr}\\nointerlineskip\\vbox to#1{\lftbr}\\vss
    \\lline{\lftbr}\\leaders\\hrule height#1\\hss{\rtbr}{\rtbr}{\rtbr}


\% VERBATIM MODE                                                       \% NOTE 5
\%
\\newskip\\blanksize@
\\bgroup\\catcode`\\*=3 \\catcode`\\$=13 \\catcode`\\#=13
    \\catcode`\\^=13 \\catcode`\\_=13 \\catcode`\\|=13 \\catcode`\\~=13
\goodbreak
\\gdef\\BEGINverbatim{\lftbr}\\parskip=0pt plus1pt
    \\catcode`\\$=13 \\def${\lftbr}\\indent\\hbox to \\the\\fontdimen\\tw@\\the\
                         {\lftbr}\\hss\\$\\hss{\rtbr}{\rtbr}
    \\catcode`\\&=12
    \\catcode`\\#=13 \\def#{\lftbr}\\indent\\hbox to \\the\\fontdimen\\tw@\\the\
                           {\lftbr}\\hss*\\#*\\hss{\rtbr}{\rtbr}
    \\catcode`\\^=13 \\def^{\lftbr}\\indent\\hbox to \\the\\fontdimen\\tw@\\the\
                           {\lftbr}\\hss*\\mathchar"327D*\\hss{\rtbr}{\rtbr}
    \\catcode`\\_=13 \\def_{\lftbr}\\indent\\hbox to \\the\\fontdimen\\tw@\\the\
                           {\lftbr}\\hss\\_\\hss{\rtbr}{\rtbr}
    \\catcode`\\\%=12
    \\catcode`\\|=13 \\def|{\lftbr}\\indent\\hbox to \\the\\fontdimen\\tw@\\the\
                          {\lftbr}\\hss*\\mathchar"326A*\\hss{\rtbr}{\rtbr}
    \\catcode`\\~=13 \\def~{\lftbr}\\indent\\hbox to \\the\\fontdimen\\tw@\\the\
                          {\lftbr}\\hss*\\mathchar"3218*\\hss{\rtbr}{\rtbr}
    \\parindent\\z@\\lumplines\\lumpspaces{\rtbr}
\\egroup

\% LUMPLINE AND LUMPSPACE MACROS                                       \% NOTE 5
\%
{\lftbr}\\catcode`\\^^M=13 \\gdef\\lumplines{\lftbr}\\catcode`\\^^M=13 \\let^^M=
\\def\\lumpline@{\lftbr}\\par\\skip@=\\z@\\let\\munch@=\\lumpB@\\futurelet\\lump
\\def\\lumpA@{\lftbr}\\ifx\\lumpline@\\lump@\\advance\\skip@\\baselineskip
    \\else\\let\\munch@=\\relax\\vskip\\skip@\\fi\\munch@{\rtbr}
\\def\\lumpB@#1{\lftbr}\\futurelet\\lump@\\lumpA@{\rtbr}
{\lftbr}\\catcode`\\ =13 \\gdef\\lumpspaces{\lftbr}\\catcode`\\ =13\\relax\\let
\goodbreak
\\def\\lumpspace@{\lftbr}\\blanksize@=\\the\\fontdimen\\tw@\\the\\font
    \\skip@=\\z@\\let\\munch@=\\lumpb@\\futurelet\\lump@\\lumpa@{\rtbr}
\goodbreak
\\def\\lumpa@{\lftbr}\\advance\\skip@\\blanksize@\\ifx\\lumpspace@\\lump@
    \\else\\let\\munch@=\\relax\\hskip\\skip@\\fi\\munch@{\rtbr}
\\def\\lumpb@#1{\lftbr}\\futurelet\\lump@\\lumpa@{\rtbr}
\\let\\munch@=\\relax

\% PAGE CONTROL MACROS                                                 \% NOTE 5
\%
\\def\\newpage{\lftbr}\\balance\\ifold@\\null\\vfill\\eject\\fi{\rtbr}
\\def\\evenpage{\lftbr}\\newpage\\ifodd\\pageno\\null\\vfill\\eject\\fi{\rtbr}
\\def\\oddpage{\lftbr}\\newpage\\ifodd\\pageno\\else\\null\\vfill\\eject\\fi{\rt

\% HEADING AND FOOTING MACROS                                         \% NOTE 57
\%
\\newtoks\\leftheading \\newtoks\\leftfooting
\\newtoks\\rightheading \\newtoks\\rightfooting
\\newtoks\\centerheading \\newtoks\\centerfooting
\\newtoks\\insideheading \\newtoks\\insidefooting
\\newtoks\\outsideheading \\newtoks\\outsidefooting
\\newtoks\\headline \\newtoks\\footline
\goodbreak
\\def\\buildline{\lftbr}\\let\\lft=\\zer@\\let\\rght=\\@ne
    \\ifdim\\wd3=\\z@\\else\\ifodd\\pageno\\let\\lft=\\thr@@\\else\\let\\rght=\\
    \\ifdim\\wd4=\\z@\\else\\ifodd\\pageno\\let\\rght=\\f@ur\\else\\let\\lft=\\f
    \\triplehead\\lft\\tw@\\rght{\rtbr}
\goodbreak
\\def\\triplehead#1#2#3{\lftbr}\\skip@=1em\\skip@ii=1em
    \\dimen@=\\wd#1\\advance\\dimen@-\\wd#3\%
    \\ifdim\\dimen@>\\z@\\advance\\skip@ii\\dimen@ minus\\dimen@
    \\else\\advance\\skip@-\\dimen@ minus-\\dimen@\\fi
    {\lftbr}\\box#1\\hskip\\skip@\\hfil\\box#2\\hfil\\hskip\\skip@ii\\box#3{\rtb
\goodbreak
\\def\\loadbox#1#2{\lftbr}\\setbox#1=\\hbox{\lftbr}\\the#2{\rtbr}{\rtbr}
\\newcount\\headcount\\newcount\\footcount
\\def\\suspendheading#1{\lftbr}\\global\\headcount=#1{\rtbr}
\\def\\suspendfooting#1{\lftbr}\\global\\footcount=#1{\rtbr}
\\def\\noheading{\lftbr}\\suspendheading\\m@ne{\rtbr}
\\def\\nofooting{\lftbr}\\suspendfooting\\m@ne{\rtbr}
\\def\\resumeheading{\lftbr}\\suspendheading\\zer@{\rtbr}
\\def\\resumefooting{\lftbr}\\suspendfooting\\zer@{\rtbr}
\goodbreak
\\headline{\lftbr}\\ifnum\\headcount=\\z@\\loadbox\\tw@\\centerheading
        \\loadbox\\zer@\\leftheading\\loadbox\\@ne\\rightheading
        \\loadbox\\thr@@\\insideheading\\loadbox\\f@ur\\outsideheading\\buildlin
    \\else\\hfil\\ifnum\\headcount>\\z@\\global\\dec\\headcount\\fi\\fi{\rtbr}
\goodbreak
\\footline{\lftbr}\\ifnum\\footcount=\\z@\\loadbox\\tw@\\centerfooting
        \\loadbox\\zer@\\leftfooting\\loadbox\\@ne\\rightfooting
        \\loadbox\\thr@@\\insidefooting\\loadbox\\f@ur\\outsidefooting\\buildlin
    \\else\\hfil\\ifnum\\footcount>\\z@\\global\\dec\\footcount\\fi\\fi{\rtbr}
\goodbreak
\\resumeheading
\\resumefooting
\% footline is normally a centered page number in font \\tenrm
\\centerfooting{\lftbr}\\tenrm\\folio{\rtbr}

\% BOX MACROS
\%
\\newdimen\\boxline
\\newdimen\\boxspace
\\boxline .01332in
\\boxspace 5pt
\\newdimen\\depthbox@
\\def\\boxit#1{\lftbr}\\hbox{\lftbr}\\vrule width\\boxline
                  \\vbox{\lftbr}\\hrule height\\boxline\\kern\\boxspace
                       \\hbox{\lftbr}\\kern\\boxspace
                            \\vbox{\lftbr}\\halign{\lftbr}\\hfil##\\hfil\\cr\\st
                        \\kern\\boxspace{\rtbr}\%
                  \\kern\\boxspace\\hrule height\\boxline{\rtbr}\%
              \\vrule width\\boxline{\rtbr}{\rtbr}
\\def\\centerbox#1{\lftbr}\\vskip\\abovedisplayskip
    \\centerline{\lftbr}\\boxit{\lftbr}#1{\rtbr}{\rtbr}\%
    \\vskip\\belowdisplayskip{\rtbr}
\\def\\textbox#1{\lftbr}\\depthbox@=\\dp\\strutbox\\advance\\depthbox@ by .4\\p@
        \\ifvmode\\indent\\fi\\setbox\\z@\\hbox{\lftbr}\\vrule
        \\vbox{\lftbr}\\hrule\\hbox{\lftbr}\\kern\\p@#1\\strut\\kern\\p@{\rtbr}\
        \\vrule{\rtbr}\\lower\\depthbox@\\box\\z@{\rtbr}

\% HP2680A and HP2688A COPY CONTROL MACROS                            \% NOTE 66
\%
\\newcount\\oldcopy\\newcount\\copycnt
\\def\\copy@{\lftbr}\\globalspecial{\lftbr}HP2688A,HP2680A COPIES \\number\\copy
\\def\\selectcopycount{\lftbr}\\afterassignment\\copy@\\copycnt{\rtbr}
\\def\\copieson{\lftbr}\\global\\count\\copycnt=\\oldcopy\\copy@{\rtbr}
\\def\\copiesoff{\lftbr}\\global\\count\\copycnt=1 \\copy@{\rtbr}
\\def\\copies{\lftbr}\\afterassignment\\copieson\\global\\oldcopy{\rtbr}
\\copycnt=1
\\oldcopy=2

\% HP2680A and HP2688A LOGICAL PAGE CONTROL (LPC) MACROS               \% NOTE 6
\%
\\def\\lplist#1{\lftbr}\\globalspecial{\lftbr}HP2688A,HP2680A ILP #1{\rtbr}{\rtb
\\def\\lpdef#1{\lftbr}\\globalspecial{\lftbr}HP2688A,HP2680A LP #1{\rtbr}{\rtbr}
\\newif\\ifempty@\\empty@true
\\newcount\\lpcount@\\newcount\\nextlp@
\\def\\selectlpcounter#1{\lftbr}\\lpcount@#1 \\setlpcount@{\lftbr}\\the\\lpcount
\\def\\setlpcount@#1{\lftbr}\\globalspecial{\lftbr}HP2688A,HP2680A ELP #1{\rtbr}
\\def\\lpageto{\lftbr}\\eject\\afterassignment\\lpeject@\\nextlp@{\rtbr}
\\def\\ppageto{\lftbr}\\eject\\afterassignment\\lpage@\\nextlp@{\rtbr}
\\def\\lpeject@{\lftbr}\\nextlp@=-\\nextlp@\\lpage@{\rtbr}
\\def\\lpresume{\lftbr}\\eject\\nextlp@=\\z@\\lpage@{\rtbr}
\\def\\lpreset{\lftbr}\\eject\\nextlp@=33 \\lpage@ \\nextlp@=\\z@{\rtbr}
\\def\\lpexit{\lftbr}\\eject\\nextlp@=34 \\lpage@ \\nextlp@=\\z@{\rtbr}
\\def\\lpage@{\lftbr}\\ifempty@\\count\\lpcount@=\\nextlp@\\global\\empty@false\
\\everyjob{\lftbr}\\message{\lftbr}Using HP TeX  Version \\fmtversion{\rtbr}\\se

\% TABLE MACROS                                                        \% NOTE 6
\%
\\newcount\\maxcol@
\\newbox\\topstrutbox \\def\\topstrut{\lftbr}\\unhcopy\\topstrutbox{\rtbr}
\\setbox\\topstrutbox=\\hbox{\lftbr}\\vrule height11pt depth0pt width0pt{\rtbr}
\\newbox\\botstrutbox \\def\\botstrut{\lftbr}\\unhcopy\\botstrutbox{\rtbr}
\\setbox\\botstrutbox=\\hbox{\lftbr}\\vrule height0pt depth4pt width0pt{\rtbr}
\\newdimen\\tableline \\tableline.01332in
\\newskip\\tablespace \\tablespace5pt
\\def\\paragraph#1{\lftbr}\\vbox{\lftbr}\\hrule height\\z@ width\\hsize depth\\z
\\def\\tbar{\lftbr}\\ifvmode\\hrule\\else\\vrule width\\hsize depth\\z@\\fi heig
\\def\\uptoks@{\lftbr}\\inc\\cntA@\\inc\\cntB@
    \\ifnum\\cntA@<\\count19 \\ifnum\\cntB@<\\count19 \\else\\err@\\fi\\else\\er
\\def\\err@{\lftbr}\\errmessage{\lftbr}Columns too wide for tabular format{\rtbr
\\def\\bump@{\lftbr}\\ifnum\\cntC@<\\maxcol@\\inc\\cntC@\\uptoks@\\fi{\rtbr}
\\def\\tableformat#1{\lftbr}\\tablelet\\just@\\just@\\relax\\parse@#1~\\done@~{\
\\def\\tablerow#1{\lftbr}\\tablelet\\bbar@\\wbar@\\endrow@\\parse@#1~\\done@~{\r
\\def\\tablebar#1{\lftbr}{\lftbr}\\let\\topstrut\\relax\\let\\botstrut\\relax\\t
    \\tablerow{\lftbr}#1{\rtbr}{\rtbr}{\rtbr}
\\def\\tablelet#1#2#3{\lftbr}\\let\\b@#1\\let\\w@#2\\let\\f@#3\\cntA@\\count15 \
    \\cntC@\\z@\\let\\parse@=\\parseline@\\ifhmode\\par\\else\\nointerlineskip\\
                                                                     \% NOTE 74
\\def\\just@#1{\lftbr}\\let\\b@\\tform@\\let\\w@\\tform@\\maxcol@\\z@\\let\\tabl
                                                                     \% NOTE 75
\\def\\tform@#1{\lftbr}\\tform@@#1~{\rtbr}
\\def\\tform@@#1#2~{\lftbr}\\uptoks@\\toks\\cntA@{\lftbr}#1{\rtbr}\\dimen\\cntB@
\\def\\bbar@#1{\lftbr}\\beginrow@{\lftbr}#1{\rtbr}\\vrule width\\tableline\\vrul
\\def\\wbar@#1{\lftbr}\\beginrow@{\lftbr}#1{\rtbr}\\kern\\tableline\\vrule width
\\def\\beginrow@#1{\lftbr}\\let\\b@\\vbar@\\let\\w@\\ibar@\\setbox\\z@=\\hbox\\b
    \\parindent\\z@\\leftskip\\tablespace\\rightskip\\tablespace\\let\\span=\\sp
\\def\\endrow@{\lftbr}\\kern-\\dimen\\cntB@\\egroup\\tablejust@{\lftbr}\\unhbox\
\\def\\vbar@#1{\lftbr}\\futurelet\\lookahead@\\cs@#1~\\vrule width\\tableline{\r
\\def\\ibar@#1{\lftbr}\\futurelet\\lookahead@\\cs@#1~\\kern\\tableline{\rtbr}
\\def\\cs@#1~{\lftbr}\\ifx\\span@\\lookahead@#1~\\else\\span@\\@ne#1~\\fi\\lower
                                                                      \% NOTE 84
\\def\\parseline@#1~{\lftbr}\\ifx\\done@#1\\let\\parse@\\f@\\else\\let\\p@ss\\pa
                     \\p@ss#1|\\done@|\\fi\\parse@{\rtbr}
\\def\\parsecol@#1|{\lftbr}\\def\\parsemode@{\lftbr}\\ifx\\done@\\lookahead@\\w@
    \\let\\p@ss\\lastp@ss\\else\\b@{\lftbr}#1{\rtbr}\\fi\\p@ss{\rtbr}\%
    \\futurelet\\lookahead@\\parsemode@{\rtbr}
\\def\\lastp@ss#1|{\lftbr}{\rtbr}
\\def\\span@#1#2~{\lftbr}\\bump@\\hsize\\dimen\\cntB@\\edef\\x@{\lftbr}\\the\\to
    \\for\\count@=2to#1do\%
        {\lftbr}\\bump@\\advance\\hsize\\dimen\\cntB@\\advance\\hsize\\tableline
    \\setbox\\z@=\\x@{\lftbr}\\topstrut#2\\botstrut{\rtbr}{\rtbr}

\% SECTION AND HEADING MACROS                                          \% NOTE 8
\%
\\newcount\\basehead\\basehead=\\count10
\\advance\\count10by4 \% This allocates 4 counters for head counters
\\newcount\\hdlevel
\\def\\setlevelno#1{\lftbr}\\hdlevel=0 \\cntA@=\\basehead\\sethead@0#1.-1.\\head
\\def\\sethead@#1.{\lftbr}\\ifnum-1=#1 \\let\\next@=\\relax\\else\\let\\next@=\\
                                                                      \% NOTE 90
    \\ifnum\\hdlevel<4 \\inc\\hdlevel\\inc\\cntA@\\count\\cntA@=#1\\fi\\fi\\next
\goodbreak
\\def\\head#1{\lftbr}\\ifnum#1>\\hdlevel\\uplevel@{\lftbr}#1{\rtbr}\\else
    \\hdlevel=#1\\cntA@=#1\\advance\\cntA@\\basehead\\fi
    \\inc{\lftbr}\\count\\cntA@{\rtbr}\\head@{\rtbr}
\goodbreak
\\def\\uplevel@#1{\lftbr}\\inc\\hdlevel\\cntA@=\\hdlevel
    \\advance\\cntA@\\basehead\\count\\cntA@=0
    \\ifnum\\hdlevel=#1 \\else\\uplevel@{\lftbr}#1{\rtbr}\\fi{\rtbr}
\goodbreak
\\def\\head@{\lftbr}{\lftbr}\\inc\\basehead\\xdef\\levelno{\lftbr}\\the\\count\\
    \\for\\cntB@=\\tw@ to\\hdlevel do{\lftbr}\\inc\\basehead
        \\xdef\\levelno{\lftbr}\\levelno.\\the\\count\\basehead{\rtbr}{\rtbr}{\r
\goodbreak
\\setlevelno{\lftbr}0{\rtbr}
\\newtoks\\firstlevelhead   \\def\\headA@{\lftbr}\\head\\@ne\\the\\firstlevelhea
\\newtoks\\secondlevelhead  \\def\\headB@{\lftbr}\\head\\tw@\\the\\secondlevelhe
\\newtoks\\thirdlevelhead   \\def\\headC@{\lftbr}\\head\\thr@@\\the\\thirdlevelh
\\newtoks\\fourthlevelhead  \\def\\headD@{\lftbr}\\head\\f@ur\\the\\fourthlevelh
\\def\\level#1#2{\lftbr}\\def\\title{\lftbr}#2{\rtbr}\%
    \\ifcase#1\\relax\\or\\headA@\\or\\headB@\\or\\headC@\\or\\headD@\\fi{\rtbr}
\\firstlevelhead{\lftbr}\\vfill\\eject\\vbox to1.5in{\lftbr}{\rtbr}\\centerline{
    \\vskip1.0in\\ctswrite{\lftbr}\\vrule height20pt width0pt\\tenbf\\title{\rtb
\\secondlevelhead{\lftbr}\\need.75in\\bigskip\\leftline{\lftbr}\\twelvebf\\level
    \\medskip\\ctswrite{\lftbr}\\hskip15pt\\tenrm\\title{\rtbr}{\rtbr}
\\thirdlevelhead{\lftbr}\\need.6in\\medskip\\leftline{\lftbr}\\tenbf\\levelno\\e
    \\ctswrite{\lftbr}\\hskip30pt\\tenrm\\title{\rtbr}{\rtbr}
\\fourthlevelhead{\lftbr}\\need.5in\\leftline{\lftbr}\\tenrm\\levelno\\enspace\\
     \\ctswrite{\lftbr}\\hskip45pt\\tenrm\\title{\rtbr}{\rtbr}

\% CONTENTS FILE MACROS
\%
\\newwrite\\cnts@
\\newif\\ifnocts@\\nocts@true
\\newtoks\\topofcontents
\\newtoks\\botofcontents
\\let\\content@=\\let\%                                                  \% NOTE
\\def\\ctswrite#1{\lftbr}\\ifnocts@\\openout\\cnts@=\\jobname*[*]. \\nocts@false
    {\lftbr}\\def\\_{\lftbr}\\kern.06em \\vbox{\lftbr}\\hrule width.3em{\rtbr}{\
    \\edef\\a@{\lftbr}\\write\\cnts@{\lftbr}\\content@{\lftbr}#1{\rtbr}{\lftbr}\
{\lftbr}\\catcode`\\@=12 \\gdef\\content@ #1#2{\lftbr}\\need.5in\\lline{\lftbr}#
\\def\\contents{\lftbr}\\ifnocts@\\else\\closeout\\cnts@\\null\\supereject
    \\begingroup\\pageno\\m@ne\\null\\the\\topofcontents\\input\\jobname*.
    \\the\\botofcontents\\eject\\endgroup\\nocts@true\\fi{\rtbr}
\\topofcontents{\lftbr}\\noheading\\vskip1in plus1fil
    \\centerline{\lftbr}\\fourteenbf Table of Contents{\rtbr}\\vskip1in plus1fil
\\botofcontents{\lftbr}\\vfil{\rtbr}

\% FOOTNOTES AND INSERTIONS
\%
\\def\\vfootnote#1{\lftbr}\\insert\\footins\\bgroup
    \\interlinepenalty\\interfootnotelinepenalty
    \\splittopskip\\ht\\strutbox \% top baseline for broken footnotes
    \\splitmaxdepth\\dp\\strutbox \\floatingpenalty\\@MM
    \\realhsize\\leftskip\\z@skip \\rightskip\\z@skip
    \\baselineskip1\\baselineskip
    \\textindent{\lftbr}#1{\rtbr}\\footstrut\\futurelet\\next\\fo@t{\rtbr}
\\newcount\\notenumber
\\def\\resetnotes{\lftbr}\\global\\notenumber=0 {\rtbr}
\\def\\note{\lftbr}\\global\\inc\\notenumber\\footnote{\lftbr}$^{\lftbr}\\the\\n
\\def\\midinsert{\lftbr}\\@midtrue\\p@gefalse\\@ins{\rtbr}
\\def\\@ins{\lftbr}\\par\\begingroup\\setbox\\z@\\vbox\\bgroup\\realhsize\\divid
                                                                     \% NOTE 102
\goodbreak
\\def\\endinsert{\lftbr}\\egroup\\count@-100 \% finish the \\vbox
  \\ifp@ge\\else\\dimen@\\ht\\z@\\advance\\dimen@\\dp\\z@
    \\advance\\dimen@12\\p@\\multiply\\dimen@-\\nocol@
    \\advance\\dimen@-\\pagetotal\\advance\\dimen@\\pagegoal
    \\ifdim\\dimen@<\\z@\\@midfalse\\else\\count@100 \\fi\\fi
  \goodbreak
  \\if@mid \\balance@
      \\global\\setbox\\contrb@\\vbox{\lftbr}\\unvbox\\contrb@\\bigskip\\box\\z@
    \\else\\insert\\topins{\lftbr}\\penalty\\count@ \% floating insertion
      \\splittopskip\\z@skip\\splitmaxdepth\\maxdimen\\floatingpenalty\\z@
      \\ifp@ge \\divide\\vsize\\nocol@ \\dimen@\\dp\\z@
      \\vbox to\\vsize{\lftbr}\\unvbox\\z@\\kern-\\dimen@{\rtbr}\% depth is zero
      \\else \\box\\z@\\nobreak\\bigskip\\fi{\rtbr}\\fi\\endgroup{\rtbr}
\goodbreak

\% COLUMN MACROS                                                     \% NOTE 104
\%
\\def\\BEGINtwocolumns{\lftbr}\\multicol@\\tw@{\rtbr}
\\def\\BEGINthreecolumns{\lftbr}\\multicol@\\thr@@{\rtbr}
\\def\\ENDtwocolumns{\lftbr}\\balance@\\goal@\\divide\\endgroup\\newtotal@\\begi
\\let\\ENDthreecolumns=\\ENDtwocolumns
\\def\\balance{\lftbr}\\balance@\\newtotal@{\rtbr}
\\def\\balance@{\lftbr}\\par{\lftbr}\\let\\ifreal@=\\iffalse\\eject{\rtbr}{\rtbr
\\def\\newtotal@{\lftbr}{\lftbr}\\each@{\lftbr}\\the\\toks\\count@{\rtbr}
    \\ifold@\\insert\\hacker@{\lftbr}{\rtbr}\\prevtotal@\\pagetotal-\\dimen@\\fi
\\def\\multicol@#1{\lftbr}\\ifnum\\nocol@>\\@ne\\errset{\lftbr}You can't have co
        within columns. \\string\\start{\lftbr}\\blockname@{\rtbr} ignored{\rtbr
    \\else\\balance@\\nocol@=#1\\goal@\\multiply\\advance\\hsize\\columnspace
    \\divide\\hsize#1\\advance\\hsize-\\columnspace
    \\multiply\\vsize#1\\brokenpenalty\\z@
    \\each@{\lftbr}\\multiply\\count\\count@\\nocol@\\multiply\\skip\\count@\\no
    \\newtotal@\\global\\dimen@=\\baselineskip\\baselineskip\\dimen@ plus\\dimen

\\message{\lftbr}output routines{\rtbr}

\% OUTPUT ROUTINES                                                    \% NOTE 10
\%
\\newbox\\contrb@ \\newbox\\out@
\\newdimen\\columnspace
\\columnspace=.5in
\\let\\ifreal@=\\iftrue
\\newcount\\nocol@ \\nocol@=1
\\newinsert\\hacker@
\\def\\ifold@{\lftbr}\\ifvoid\\contrb@\\else{\rtbr}
\\def\\ifcol@{\lftbr}\\ifnum\\nocol@=\\@ne\\setbox\\out@=\\box\\@cclv \\else{\rt
\\def\\setboxA@{\lftbr}\\inc\\cntA@\\setbox\\cntA@{\rtbr}
\\def\\boxA@{\lftbr}\\inc\\cntA@\\box\\cntA@{\rtbr}
\\def\\each@#1{\lftbr}\\for\\count@=\\count19 to254 do{\lftbr}#1{\rtbr}{\rtbr}
\\def\\unglue@#1{\lftbr}\\setbox#1=\\vbox{\lftbr}\\unvbox#1{\rtbr}{\rtbr}
\\def\\realhsize{\lftbr}\\advance\\hsize\\columnspace\\multiply\\hsize\\nocol@
    \\advance\\hsize-\\columnspace{\rtbr}
\\output{\lftbr}\\hpoutput{\rtbr}

\goodbreak
\\def\\hpoutput{\lftbr}\\splittopskip=\\topskip
    \\setbox\\hacker@=\\box\\voidb@x
    \\ifvoid\\contrb@\\dimen@=\\ht\\@cclv
    \\else\\prevtotal@\\advance\\dimen@\\ht\\@cclv\\fi
    \\ifreal@\\realoutput@\\else\\fakeoutput@\\fi
    \\each@{\lftbr}\\global\\toks\\count@\\ifvoid\\count@{\lftbr}{\rtbr}\\else{\

\\def\\realoutput@{\lftbr}\\ifcol@\\splitcol@\\split@\\setheight@\\setout@
    \\unvbox\\@cclv \\penalty\\outputpenalty\\fi
    \\setbox\\@cclv=\\pagestuff@{\lftbr}{\rtbr}\\each@{\lftbr}\\divide\\skip\\co
    \\realhsize\\divide\\vsize\\nocol@\\leftskip\\z@\\rightskip\\z@
    \\plainoutput\\global\\empty@true
    \\global\\count\\lpcount@=\\nextlp@\\ifnum\\nextlp@>32 \\global\\nextlp@\\z@

\\def\\fakeoutput@{\lftbr}\\unglue@{\lftbr}\\@cclv{\rtbr}\\global\\let\\ifreal@=
    \\ifcol@\\dimen@=\\baselineskip
         \\dimen@=\\ifnum\\nocol@>2 2\\dimen@ \\else 1.1667\\dimen@ \\fi
         \\advance\\dimen@\\ht\\@cclv\\splitcol@{\lftbr}\\box\\@cclv{\rtbr}\\set
     \\dimen@=\\dp\\out@\\global\\setbox\\contrb@=\\pagestuff@{\lftbr}\\vskip-\\

\\def\\makeheadline{\lftbr}\\vbox to\\z@{\lftbr}\\vskip-22.5\\p@
  \\lline{\lftbr}\\vbox to8.5\\p@{\lftbr}{\rtbr}\\the\\headline{\rtbr}\\vss{\rtb
\\def\\makefootline{\lftbr}\\baselineskip24\\p@\\lline{\lftbr}\\the\\footline{\r

\\def\\pagecontents{\lftbr}\\ifvoid\\topins\\else\\unvbox\\topins\\fi
  \\unvbox\\@cclv \% open up \\box255
  \\ifvoid\\footins\\else \% footnote info is present
    \\vskip\\skip\\footins
    \\footnoterule
    \\unvbox\\footins\\fi
  \\ifr@ggedbottom\\vfil\\fi{\rtbr}

\\def\\splitcol@#1{\lftbr}\\divide\\dimen@\\nocol@\\cntA@=\\count14
    \\for\\count@=\\tw@ to\\nocol@ do{\lftbr}\\setboxA@=\\split@{\rtbr}\\setboxA
\\def\\split@{\lftbr}\\ifvoid\\@cclv\\vbox{\lftbr}\\lline\\hfil\\vfil{\rtbr}\\el
\\def\\setheight@{\lftbr}\\ifold@\\setmax@\\fi{\rtbr}
\\def\\pagestuff@#1{\lftbr}\\vbox{\lftbr}\\ifold@\\unvbox\\contrb@\\medskip\\fi\
\\def\\setout@{\lftbr}\\cntA@=\\count14 \\setbox\\out@=\\vbox{\lftbr}\\hbox
    {\lftbr}\\for\\count@=\\tw@ to\\nocol@ do{\lftbr}\\boxA@\\hskip\\columnspace
\\def\\setmax@{\lftbr}\\dimen@=\\z@ \\cntA@=\\count14
    \\for\\count@=\\@ne to\\nocol@ do{\lftbr}\\inc\\cntA@\\unglue@{\lftbr}\\cntA
    \\ifdim\\ht\\cntA@>\\dimen@ \\dimen@=\\ht\\cntA@\\fi{\rtbr}\%
    \\for\\count@=\\@ne to\\nocol@ do{\lftbr}\\setbox\\cntA@
        =\\vbox to\\dimen@{\lftbr}\\unvbox\\cntA@\\ifr@ggedbottom\\vss\\fi{\rtbr
\\def\\prevtotal@{\lftbr}\\dimen@=\\medskipamount
    \\advance\\dimen@\\ht\\contrb@\\multiply\\dimen@-\\nocol@{\rtbr}
\\def\\goal@#1{\lftbr}\\ifdim\\pagegoal=\\maxdimen\\else
    \\dimen@=\\pagegoal#1\\dimen@\\nocol@\\pagegoal\\dimen@\\fi{\rtbr}


\\catcode`@=12                                                       \% NOTE 112
\finish{verbatim}
\bye