69.33 longdiv

<..longdiv.4ht..>
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % longdiv.4ht                           2014-07-12-22:36 %
 % Copyright (C) 2002--2009       Eitan M. Gurari         %
 <.TeX4ht copyright.>
 
 <.longdiv.sty.>
 \Hinput{longdiv}
 \endinput
 -_-_-

<..longdiv.sty..>
 \def\longdiv#1#2{{%
    \def\showdig{\edef\temp{&{\the\scratch}}\temp\cr
                 &{\the\rtot}\cr}%
    \global\rtot=#1\relax
    \count0=\rtot\divide\count0by#2\edef\quotient{\the\count0}%
    \def\temp##1{\ifx##1\temp\else \noexpand\dodig ##1\expandafter\temp\fi}%
    \edef\routine{\expandafter\temp\quotient\temp}%
    \def\dodig##1{\global\multiply\gpten
      by10\relax}\global\gpten=1\relax\routine
    \def\dodig##1{\global\divide\gpten by10\relax
       \scratch =\gpten
       \multiply\scratch  by##1\relax
       \multiply\scratch  by#2\relax
       \global\advance\rtot-\scratch \relax
       \ifnum\scratch>0 \showdig \fi
    }%
    \a:longdiv \long:div{#2}\b:longdiv
 }}
 \catcode‘\#=13
 \catcode‘\@=6
 \def\long:div@1{\halign{#&#\cr
      &\quotient\cr
      @1&\the\rtot\cr
      \routine \cr
 }}
 \catcode‘\#=6
 \catcode‘\@=11
 
 \NewConfigure{longdiv}{2}
 -_-_-