78.11 Tables: bTABLE

<..context core-ntb..>
 \def\begintbl
   {\doglobal\newcounter\colTBL
    \doglobal\newcounter\rowTBL
    \doglobal\decrement\rowTBL
    \tabskip\zeropoint
    \TeXhalign\bgroup
    \registerparoptions
    \ignorespaces\ifnum\rowTBL=0 \a:bTABLE\else\d:bTABLE\fi
                 \c:bTABLE\e:bTABLE##\f:bTABLE\unskip&&
    \ignorespaces\e:bTABLE##\f:bTABLE\unskip\cr}
 \def\endtbl
   {\o:noalign:{\d:bTABLE\b:bTABLE}\egroup}
 \NewConfigure{bTABLE}{6}
 -_-_-

<..context core-ntb..>+
 \def\begintblrow
   {\o:noalign:
      {\doglobal\increment\rowTBL
       \doglobal\newcounter\colTBL}%
    \nexttblcol}
 \def\endtblrow{\crcr
    \o:noalign:
      {\nointerlineskip
       \allowbreak
       \bgroup % protect local vars
         \@@tblsplitafter
       \egroup
 }}
 \def\spanTBL#1#2%
   {\scratchcounter\gettblcol{#1}{#2}\relax
    \ifnum\scratchcounter>\zerocount
      \advance\scratchcounter \minusone
 %     \dorecurse\scratchcounter{\appendtoks\spantblcol\to\tbltoks}%
      \dorecurse\scratchcounter{\appendtoks\skiptblcol\to\tbltoks}%
                                \appendtoks\nexttblcol\to\tbltoks
    \fi}
 -_-_-

<..context core-ntb..>+
 \let\o:settbltxt:\settbltxt
 \def\settbltxt{%
    \edef\:tempc{\maximumrow}\HAdvance\:tempc by -1
    \expandafter\edef\csname bTBL\:tempc,\currentcol
         \endcsname{{\csname\@@tbl\c!ny\endcsname}{\csname\@@tbl\c!nx\endcsname}}%
    \o:settbltxt:
 }
 -_-_-