serial definition

[Henning Hraban Ramm <hraban@fiee.net>]

Hi ho!

This is a part of Holger Schöner's letter style (see http:// 
wiki.contextgarden.net/Letter_style):

\def\lettersenderkeyone{}
\def\lettersendervalone{}
\def\lettersenderkeytwo{}
\def\lettersendervaltwo{}
% etc.
\def\lettersenderkeynine{}
\def\lettersendervalnine{}

\def\senderone#1#2{\def\lettersenderkeyone{#1}\def\lettersendervalone 
{#2}}
\def\sendertwo#1#2{\def\lettersenderkeytwo{#1}\def\lettersendervaltwo 
{#2}}
% etc.
\def\sendernine#1#2{\def\lettersenderkeynine{#1}\def 
\lettersendervalnine{#2}}

\startsetups sendertablesetup
     \bTABLE
     \setupTABLE[frame=off]
     \setupTABLE[x][1][width=\senderkeywidth, align=left, style= 
{\keystyle\strut}]
     \setupTABLE[x][2][width=\sendervalwidth, align=right, style= 
{\valstyle\strut}]
     \bTR\bTD\doiftextelse{\lettersenderkeyone}     
{\lettersenderkeyone:}{}\eTD\bTD\lettersendervalone\eTD\eTR
     \bTR\bTD\doiftextelse{\lettersenderkeytwo}     
{\lettersenderkeytwo:}{}\eTD\bTD\lettersendervaltwo\eTD\eTR
     % etc.
     \bTR\bTD\doiftextelse{\lettersenderkeynine}     
{\lettersenderkeynine:}{}\eTD\bTD\lettersendervalnine \eTD\eTR
     \eTABLE
\stopsetups

Is there a more programmatical way for such? (Does TeX know something  
like arrays or dicts?)
Sorry, I still can't program in TeX...


Grüßlis vom Hraban!
---
http://www.fiee.net/texnique/
http://contextgarden.net
http://www.cacert.org (I'm an assurer)