\newcount\tempdiv  \newcount\divres  \newcount\temppts

\newcount\statpts

\newcount\basestr  \newcount\str
\newcount\basedex  \newcount\dex
\newcount\basecon  \newcount\con
\newcount\basebody \newcount\body
\newcount\baseint  \newcount\int
\newcount\baseego  \newcount\ego
\newcount\basepre  \newcount\pre
\newcount\basecom  \newcount\com
\newcount\basepd   \newcount\pd
\newcount\baseed   \newcount\ed
\newcount\basespd  \newcount\spd
\newcount\baserec  \newcount\rec
\newcount\baseend  \newcount\ennd
\newcount\basestun \newcount\stun

% idivide divides two integers rounding up (0%5=0, 1%5=1 .. 5%5=1, 6%5=2, ...)
\def\idivide#1#2{\divres=0 \tempdiv=#1 \idiv{#2}}
\def\idiv#1{\ifnum\tempdiv>0 \advance\tempdiv by -#1 \advance\divres by 1\idiv{#1}
             \else \the\divres \fi}

\tracingall