61.4 Sectioning

<..sectioning in amsppt.sty..>
 \def\title{\let\savedef@\title
   \def\title##1\endtitle{\let\title\savedef@
     \global\setbox\titlebox@\vtop{\tenpoint\a:title
       \raggedcenter@ \frills@\uppercasetext@{##1}\endgraf\b:title}%
   }%
   \nofrillscheck\title}
 -_-_-

<..config amsppt + vanilla shared..>
 \NewConfigure{title}{2}
 -_-_-

The space above the title is needed to separate it from the ‘typset by AMS-TeX’ that is automatically printed.

<..sectioning in amsppt.styNO..>
 \pend:def\endproclaim{\IgnorePar}
 \append:def\endproclaim{\ShowPar}
 -_-_-

<..sectioning in amsppt.sty..>+
 \def\proclaim#1{\csname o:proclaim:\endcsname
    {\a:proclaim#1\b:proclaim}}
 \def\endproclaim{\revert@envir\endproclaim\c:proclaim \par\rm}
 -_-_-

<..sectioning in amsppt.sty..>+
 \let\:specialhead=\specialhead
 \def\specialhead#1\endspecialhead{\let\specialheadfont:=\specialheadfont@
    \ifx \ams:refs\:UnDef \def\ams:refs{\rm\ams:specialhead}\fi
    \let\specialheadfont@=\empty
    \csname :specialhead\endcsname
    \ams:specialhead{#1}\let\frills@\eat@ \endspecialhead
    \let\specialheadfont@=\specialheadfont: }
 \let\ams:specialhead=\specialhead
 \NewSection\specialhead{}
 \let\:temp=\specialhead  \let\specialhead=\ams:specialhead
 \let\ams:specialhead=\:temp
 -_-_-

<..sectioning in amsppt.sty..>+
 \let\:head=\head
 \def\head#1\endhead{\let\headfont:=\headfont@
    \ifx \ams:refs\:UnDef \def\ams:refs{\rm\ams:head}\fi
    \let\headfont@=\empty
    \csname :head\endcsname
    \ams:head{#1}\let\frills@\eat@ \endhead
    \let\headfont@=\headfont: }
 \let\ams:head=\head
 \NewSection\head{}
 \let\:temp=\head \let\head=\ams:head
 \let\ams:head=\:temp
 -_-_-

<..sectioning in amsppt.sty..>+
 \let\:subhead=\subhead
 \def\subhead#1\endsubhead{\let\subheadfont:=\subheadfont@
    \ifx \ams:refs\:UnDef \def\ams:refs{\rm\ams:subhead}\fi
    \let\subheadfont@=\empty  \csname :subhead\endcsname
    \ams:subhead{#1}\let\frills@=\eat@ \endsubhead
    \let\subheadfont@=\subheadfont: }
 \let\ams:subhead=\subhead
 \NewSection\subhead{}
 \let\:temp=\subhead \let\subhead=\ams:subhead
 \let\ams:subhead=\:temp
 -_-_-

<..sectioning in amsppt.sty..>+
 \let\:subsubhead=\subsubhead
 \def\subsubhead#1\endsubsubhead{\let\subsubheadfont:=\subsubheadfont@
    \ifx \ams:refs\:UnDef \def\ams:refs{\rm\ams:subsubhead}\fi
    \let\subsubheadfont@=\empty  \csname :subsubhead\endcsname
    \ams:subsubhead{#1}\let\frills@=\eat@ \endsubsubhead
    \let\subsubheadfont@=\subsubheadfont: }
 \let\ams:subsubhead=\subsubhead
 \NewSection\subsubhead{}
 \let\:temp=\subsubhead \let\subsubhead=\ams:subsubhead
 \let\ams:subsubhead=\:temp
 -_-_-