\nopagenumbers
\baselineskip=17pt
\font\namef=pplb at 24.48pt
\font\classf=cmssq8
\font\statf=cmr17
\font\descf=cmr12
\font\normf=cmr10

\newtoks\name
\newtoks\class

\newtoks\str \newtoks\exc
\newtoks\dex
\newtoks\int
\newtoks\wis
\newtoks\chr
\newtoks\con

\newtoks\strinfo
\newtoks\dexinfo
\newtoks\intinfo
\newtoks\wisinfo
\newtoks\chrinfo
\newtoks\coninfo

\newtoks\items
\newtoks\nonweps

\def\mkname#1{\centerline{\namef {{#1}}}}
\def\mkclass#1{\line{\classf\leaders\hrule\hss{#1}\leaders\hrule\hss}}
\def\mktable{{\baselineskip=25pt
  \halign{\hskip.5cm\statf ##\hfil\hskip.3cm
        &\statf\hfil ##&\statf ##\hfil\hskip1cm&\descf ##\hfil\cr
    STR&\the\str&\the\exc&\the\strinfo\cr
    DEX&\the\dex&&\the\dexinfo\cr
    INT&\the\int&&\the\intinfo\cr
    WIS&\the\wis&&\the\wisinfo\cr
    CHR&\the\chr&&\the\chrinfo\cr
    CON&\the\con&&\the\coninfo\cr
  }}}
\def\mkline{\line{\statf HP\hss AC\hss GP\hss level\hss XP\hss\hss}}
\def\mkprof{\vtop{\descf\the\nonweps}}
\def\mkitem{\vtop{\descf\the\items}}

\def\nonwep#1{\nonweps=\expandafter{\the\nonweps\hbox{#1}}}
\def\eitm#1{\items=\expandafter{\the\items\hbox{#1}}}

\def\make{\mkname{\the\name}\mkclass{\the\class}\vskip1cm\mktable\vskip1cm
  \mkline\vskip1cm\line{\hskip1.5cm\mkprof\hss\mkitem\hskip1.5cm}}

