\newcount\chapcount
\newcount\seccount
\newcount\thmcount
+\newcount\tmpcount
\chapcount=0
\seccount=0
\thmcount=0
\def\currentid{??}
+\def\currentchap{??}
+
+\def\appendices{\chapcount=99}
\def\rawchapter#1{\vfill\supereject
\leftline{\chapfont #1}
\seccount=0
\thmcount=0
\footcnt=0
-\edef\currentid{\the\chapcount}
+% Chapter name
+ \ifnum\chapcount>99
+ \tmpcount=\chapcount
+ \advance\tmpcount by -100
+ \edef\currentchap{\ifcase\tmpcount A\or B\or C\or D\or E\or ZZZ\fi}
+ \else
+ \edef\currentchap{\the\chapcount}
+ \fi
+\edef\currentid{\currentchap}
\rawchapter{\currentid. #1}
\writetoc{chap}{#1}
}
\def\section#1{\bigskip
\advance\seccount by 1
\thmcount=0
-\edef\currentid{\the\chapcount.\the\seccount}
+\edef\currentid{\currentchap.\the\seccount}
\leftline{\secfont\currentid. #1}
\nobreak
\medskip
}
\def\para{\advance\thmcount by 1
-\edef\currentid{\the\chapcount.\the\seccount.\the\thmcount}
+\edef\currentid{\currentchap.\the\seccount.\the\thmcount}
\noindent {\bo \currentid.\enspace}}
\def\proclaim#1{\para {\bo #1.\enspace}}
\def\writetoc#1#2{
\toctrue
- \toks0={\the\count0}
+ \toks0={\the\pageno}
\edef\tocaux{\write\toc{\noexpand\expandafter\noexpand\string\noexpand\csname toc#1\noexpand\endcsname{\currentid}{#2}{\the\toks0}}}
\tocaux
\tocfalse