\startmodule[gridlist]

\unprotect

\def\????ze{@@@@ze} % ZEichen

\newcount\zeichencolumn

\def\setupzeichen
  {\dodoubleempty\dosetupzeichen}

\def\dosetupzeichen[#1][#2]%
  {\ifsecondargument
     \dodosetupzeichen[#1][#2]
   \else
     \dodosetupzeichen[\v!line][#1]
   \fi}

\def\dodosetupzeichen[#1][#2]%
  {\def\docommand##1%
    {\getparameters[\????ze##1][#2]}
   \processcommalist[#1]\docommand}

\def\zeichenparameter#1%
  {\csname
     \ifcsname\????ze\number\zeichencolumn#1\endcsname
       \????ze\number\zeichencolumn
     \else
       \????ze\v!line
     \fi
   #1\endcsname}

\definehspace[myindent][10pt]

\def\startunisym%
  {\bgroup%
   \setbox\scratchbox\hbox\bgroup}

\def\stopunisym%
  {\egroup%
   \raise.3ex\hbox{\box\scratchbox}
   \egroup}

\def\zeichen%
  {\ignorespaces\permitspacesbetweengroups
   \doquadruplegroupempty\dozeichen}

\def\dozeichen#1#2#3#4%
  {\begingroup
   \zeichenparameter\c!before
   \zeichencolumn\zerocount
   \hbox\!!to\zeichenparameter\c!textwidth
     {\zeichenzelle{#1}%
      \zeichenzelle{#2}%
      \hfill
      \zeichenzelle{#3}}%
   \zeichenparameter\c!after
   \endgroup}


\def\zeichenzelle#1%
  {\advance\zeichencolumn\plusone
   \hbox
     {\vtop
        {\hsize\zeichenparameter\c!width
         \zeichenparameter\c!before
         \begstrut
           \dostartattributes{\????ze\number\zeichencolumn}\c!style\c!color
           \zeichenparameter\c!left
             #1
           \zeichenparameter\c!right
           \dostopattributes
         \endstrut
         \zeichenparameter\c!after}}}

\setupzeichen
  [\c!textwidth=63.8833mm,%
   \c!before=\noindenting\synchronizegrid,%
   \c!after=\synchronizegrid,%
  ]

\setupzeichen
  [1,2,3,4]
  [\c!before=,
   \c!after=,
   \c!left=,
   \c!right=]

\setupzeichen
  [1]
  [\c!width=6.5mm,
   \c!left=\startunisym,
   \c!right=\stopunisym,
   \c!align=right,
   \c!before=\raggedright,
   \c!after=,   
   \c!style={\switchtobodyfont[6.8pt]\tt\bf}]

\setupzeichen
  [2]
  [\c!width=7.5mm,
   \c!left=$,
   \c!right=$,
   \c!before=\raggedcenter,
   \c!style={\switchtobodyfont[9.6pt]}]

\setupzeichen
  [3]
  [\c!width=49.883mm,
   \c!style={\switchtobodyfont[8.4pt]},
   \c!before=\hangindent10pt\hangafter1\raggedright]

\protect 
\stopmodule
\endinput
