%<formlett.sty> can self-generate an 8-page document, plus two
%demonstration examples. This new version, apart from supporting
%7 parameter-input methods, position previewing and parameter
%naming mechanism, supports mailing labels as well.
%
%<formlett.sty> is catered for all wishes (I hope) for sending 
%form letters. Even for those who want to test the letter parameters
%before their use, there are ways to do it as is indicated in the
%document.
%
%
%----- style file below -----
%
%   MAKE FORM LETTER for multiple receivers
%                    via LaTeX or plain TeX
%
%   written by  Zhuhan JIANG
%               University of New England, 
%               Australia NSW 2351.                    
%               Email: zhuhan@neumann.une.edu.au
% 
% 
%   FILENAME:   formlett.sty  (for LaTeX) formlett.tex (for TeX)
%   VERSION:    2.0  November 1993  
%   COPYRIGHT:  GNU convention preferred.
%
%   HOW TO GET THE DOCUMENT (8 pages)
%     1. TEX FORMLETT.STY
%     2. Then type at the TeX prompt '*' :
%        \let\endinput\empty\input FORMLETT.STY
%
%    Alternatively
%     1. Save this file as FILENAME.TEX
%     2. Remove the (last) command \endinput in FILENAME.TEX
%     3. TEX FILENAME
%
%
%   EXAMPLE1.TEX and EXAMPLE2.TEX  
%        may be created from the above as well.
%
%
%   NEW COMMANDS
%     \paras \blockparas \addressparas \PAGENO \NOPAGENUMBERS
%     \paradefaults \loaddefaultparas \paranames \showparas 
%     \preview \previewtrue \previewfalse \existfile 
%     \localparastrue \localparasfalse  \nodefaultstrue \nodefaultsfalse
%     \beginpilemode \endpilemode \delimiters \defaultmarks \blockmarks 
%     \beginblockmode \endblockmode \beginlinemode \endlinemode
%     \beginrawblockmode \endrawblockmode \beginrawlinemode \endrawlinemode
%     \beginletter \endletter \moreletter \inputletter \inputfile
%     \boxmore \figbox \addressbox \ADDRESSBOX \fillzeros
%     \beginlist \endlist \beginrawlist \endrawlist \printfile
%     \begincomment \endcomment \begincolumns \endcolumns
%     \beginlabels \endlables \smooth \initlabels \labelsquit 
%     \firstread \beginfile \endfile
%
%   NOTE
%     You only need to know a SMALL portion of the above commands 
%     in order to use the style file: easy to use is our key purpose!
%
%       
%   VERSION HISTORY:    
%      1.0  8/93  
%      1.2  10/93   major rewriting, only basic mode still 
%                   compatible with 1.0;
%                   support for raw text list added
%      1.3          fixed a minor bug of 1.2;
%                   support for commenting out letters added
%      2.0  11/93   compatible with 1.2, 1.3;
%                   labels utility added; support for fixed number 
%                   of parameter lines added
%       
%
%
%   %SIMPLE EXAMPLE in Plain TeX:
%
%       \input formlett
%       \beginletter \pageno=1 
%         \paras--\paras[2]--\paras[3]\par
%         \paras[1][2] -- \paras[2][2] --  \paras[4][4] -- \paras[][2]
%         \vfill\eject
%       \endletter
%       \preview
%       \moreletter % first letter
%           1-ONE;;;1-FOUR+%
%           2-ONE;2-TWO;2-THREE;++;;;4-FOUR!
% 
%       \moreletter % second letter
%           1-one;1-two;1-three;1-four 
%           +2-one;;2-three; ++ ;;;4-four!
%       \end
%
%
%   %TYPICAL EXAMPLE in LaTeX
%       
%         \documentstyle[formlett]{article}
%         \textwidth=3.2in
%         \begin{document}
%       
%         \beginletter
%         \paranames             % optional
%           \tt<<FULL NAME>>;%
%           \tt<<ADDRESS-etc>>;%
%          +\tt<<GIVEN NAME>>;%
%           \tt<<MISSING ITEM>>;%
%           \tt<<PHONE NUMBER>>!  
%         \loaddefaultparas      % optional
%       
%         \NOPAGENUMBERS\parindent=0pt
%         \noindent{\it\paras[1]}\par
%         \blockparas[2]\par\bigskip
%       
%         Dear \paras[1][2],\par\medskip 
%         We have been looking for 
%         \paras[2][2] for quite a while 
%         without any luck, could you help 
%         us out? If so, please ring 
%         \paras[3][2]. \par\medskip 
%         Cheers!\hfill Michael\vfill\eject
%         \endletter
%         \preview \showparas 
%       
%         \paradefaults       % optional
%           To whom this may concern
%          +Sir or Madam;something;%
%           061-225-9905!
%       
%       
%         %\beginlabels   % optional
%             % uncomment the above line and its matching 
%             % \endlabels later on, if you want to get the 
%             % mailing labels. 
%             % So one LaTeX run to get all the letters, and 
%             % an EXTRA run to produce all the labels by 
%             % activating \beginlabels
%       
%       
%         \blockmarks
%         \beginblockmode
%       
%         Mrs L Stenson
%         \#1-20 Sunset Street
%         Hillside, Norway
%         ------                           separate groups
%         Louise
%         a Bible
%         220-8888
%         =========                        separate cluster
%       
%         ......                           force entry next line
%       
%         Above empty line active
%       
%         \endblockmode                 comment ignored
%       
%         \defaultmarks
%         \moreletter
%            S Wales,;%
%            \addressbox[2in][1em]{%
%            University of Manchester Institute 
%            of Science and Technology, This is 
%            a long address line: it will be 
%            wrapped up automatically.}%
%          +;a \TeX\ package \gstr\ manual and 
%            many more (\cstr)!
%       
%         \beginlinemode
%           Z Jiang
%           UNE, Arimdale
%       
%           T Ribbons
%           UMIST, Manchester
%         \endlinemode
%       
%         \beginpilemode
%       
%           C Anderson;42nd Street;USA+Christine;your service invoice!
%
%           D Holmes;Flat \#2, Finneybank Rd;London+David;the tax receipt;%
%              071-902 7799!
%
%         \endpilemode
%
%         %\endlabels  
%             % uncomment the above line and if its matching 
%             % \beginlabels is set previously for labels
%
%
%         \begincomment{}  % this is only a tip
%           % Comment out the letters that you already sent
%
%             \moreletter parameters for letter one!
%             \moreletter letter two!
%              
%         \endcomment
%
%         \end{document} 
%       
%       
%%%%%   To run the above examples, remove the first '%' character in each line
%       
%       
%       
%
%BEGINMACROS
%
%
\ifx\ENDINPUT\undefined\else\message{skipped}\endinput\fi
%
\message{2.0 <12/11/93>}%
%
{\catcode`\@=11\relax \def\temp@macro{\space\space\space\space}%
\wlog{\temp@macro FORMLETT version 2.0 Nov 1993 By Z Jiang}% 
\wlog{\temp@macro University of New England, Australia}%
\wlog{\temp@macro Email: zhuhan@neumann.une.edu.au}}%
%
%  SAVE @'s STATUS
%
\xdef\EntryADDnuM{\the\catcode`\@}\catcode`\@=11\relax
\gdef\MAX@CHR@CODE{255}% maximum charcode for saving catcode
%                      % change it to 127 for TeX 2
%                      % may change it to 0 if no raw mode is to be used
%  IS LATEX ?
%
\newif\ifISLATEX
\ifx\pageno\undefined@\global\ISLATEXtrue\else\global\ISLATEXfalse\fi
%
% a private \l@@p
\def\l@@p#1\repe@t{\def\b@dy{#1}\iter@te}%
\def\iter@te{\b@dy\let\n@xt=\iter@te \else\let\n@xt=\relax\fi \n@xt}%
\let\repe@t=\fi %
%
%  NEW MEASURES etc
%
\def\new@measures{%
  \def\temp@@macro##1##2##3{\expandafter\ifx\csname ##3temp##2##1\endcsname
     \relax\edef\next{\noexpand\csname new##1\noexpand\endcsname
                      \csname ##3temp##2##1\endcsname}%
     \else\let\next\relax\fi\next}%
  \def\temp@macro##1{%
     \temp@@macro{##1}{@}{}\temp@@macro{##1}{@@}{}\temp@@macro{##1}{@@@}{}}%
  \temp@macro{count}\temp@macro{toks}\temp@macro{box}\temp@macro{read}%
  \temp@@macro{if}{@}{if}\temp@@macro{if}{@@}{if}\temp@@macro{if}{@@@}{if}%
  \def\temp@@macro##1{\expandafter\ifx\csname temp##1dim\endcsname
     \relax\edef\next{\noexpand\csname newdimen\noexpand\endcsname
                      \csname temp##1dim\endcsname}%
     \else\let\next\relax\fi\next}%
  \temp@@macro{@}\temp@@macro{@@}\temp@@macro{@@@}%
}%
\let\temp@@@macro=\wlog\def\wlog#1{}\new@measures 
%
%
%%% GENERAL STACK
%
\def\make@STKcount{\csname newcount\endcsname
  \STKcount\global\STKcount=0\relax}%
\ifx\STKcount\undefined@
  \def\next{\make@STKcount}\else\def\next{}\fi
\next % ensures stack pointer not flushed if this piece of code 
      % is loaded again
%
\long\def\push#1{\global\advance\STKcount1\relax
\expandafter\gdef\csname STK\the\STKcount\string~\endcsname{#1}}%
%
\def\popnil{\expandafter\let\expandafter\temp@macro
  \csname STK\the\STKcount\string~\endcsname
  \ifnum\STKcount>0\global\expandafter\let
    \csname STK\the\STKcount\string~\endcsname=\undefined@
    \global\advance\STKcount-1%
  \else 
    \def\temp@macro{}\global\STKcount=0%
  \fi\relax % \temp@macro for pop
}% 
%
\def\pop{\popnil\temp@macro}%
%
%
%% GET PARAMETERS
%
\long\def\get@nepara[#1][#2]{{\def\next@{#2}%
\ifx\next@\empty\push{#1}\else\push{#2}\fi}\ag@in}%
%
\long\def\get@para\left@#1\right@{%
\def\check@{%
 \ifx[\next@ \def\full@####1{\get@nepara[#1]####1}%
 \else \def\full@{\get@nepara[#1][#1]}\fi
 \full@}%
\futurelet\next@\check@}%
%
\long\def\do@nepara\left@#1\right@#2\p@r@end{%
\gdef\p@r@data{#2}\global\advance\p@r@count1\get@para\left@#1\right@}%
%
\def\ag@in{\ifx\p@r@data\empty \def\next@{\relax
\getp@r@s\run@CMD}\else
\def\next@{\expandafter\do@nepara\p@r@data\p@r@end}\fi
\next@}%
%
\def\run@CMD{\csname STK\the\STKcount\string~\endcsname}%
%
\newcount\p@r@count
\long\def\st@ckparas#1\p@r@end{%
\global\p@r@count=0\gdef\p@r@data{#1}\ag@in}%
%
%
% PARAMETER ASSIGNMENT
%
%% \newcount\temp@count
\newtoks\p@r@one \newtoks\p@r@two \newtoks\p@r@three
\newtoks\p@r@four \newtoks\p@r@five \newtoks\p@r@six
\newtoks\p@r@seven \newtoks\p@r@eight \newtoks\p@r@nine
\def\getp@r@s{\temp@count=\p@r@count
{\loop
 \ifnum\temp@count>0%
 \expandafter\let\expandafter
 \temp@macro\csname STK\the\STKcount\string~\endcsname
 \ifcase\temp@count
 \or \global\p@r@one=\expandafter{\temp@macro}%
 \or \global\p@r@two=\expandafter{\temp@macro}%
 \or \global\p@r@three=\expandafter{\temp@macro}%
 \or \global\p@r@four=\expandafter{\temp@macro}%
 \or \global\p@r@five=\expandafter{\temp@macro}%
 \or \global\p@r@six=\expandafter{\temp@macro}%
 \or \global\p@r@seven=\expandafter{\temp@macro}%
 \or \global\p@r@eight=\expandafter{\temp@macro}%
 \or \global\p@r@nine=\expandafter{\temp@macro}%
 \else \errmessage{Parameter capacity exceeded.}% 
     % this should never happen:  TeX's max para no. is 9
 \fi
 \global\expandafter\let
 \csname STK\the\STKcount\string~\endcsname=\undefined@%
 \global\advance\STKcount-1%
 \global\advance\temp@count-1\relax
 \fi
 \ifnum\temp@count>0%
\repeat}}%
%
\def\clrp@r@s{%GLOBALLY clear
\global\p@r@one={}\global\p@r@two={}\global\p@r@three={}%
\global\p@r@four={}\global\p@r@five={}\global\p@r@six={}%
\global\p@r@seven={}\global\p@r@eight={}\global\p@r@nine={}}%
% The above is the minimum for setting default parametrisation
%
%
%  EXIST FILE ?
%
% \temp@iftrue if the file #1 exist when tested via \existfile{#1}%
% \newread\temp@read 
\def\existfile#1{\temp@iftrue
\openin\temp@read=#1\relax
\ifeof\temp@read \temp@iffalse \fi \closein\temp@read}%
%
%  RAW CHARACTERS
%
\def\raw@chars[#1][#2][#3][#4][#5]{% 
   % #1=11, #2=\`=12, #3=^^I=10, #4=char32=10, #5=^^M=5
   % all chars of catcode 11 or 12 are NOT changed
  \temp@count=-1\relax %
  \l@@p \advance\temp@count1\relax %
     \temp@@count=\the\catcode\temp@count \relax
     \ifnum\temp@@count=11 \else
        \ifnum\temp@@count=12 \else
        \catcode\temp@count=11\relax \fi\fi
  \ifnum\temp@count<\MAX@CHR@CODE\repe@t %
  \catcode`\%=#1\catcode`\^=#1\catcode`\_=#1%
  \catcode`\&=#1\catcode`\$=#1\catcode`\#=#1%
  \catcode`\{=#1\catcode`\}=#1\catcode`\@=#1%
  \catcode`\~=#1\catcode`\\=#1%
  \catcode`\`=#2\catcode`\^^I=#3\catcode`\ =#4%
  \catcode`\^^M=#5\relax %
}%
%
\chardef\temp@char=`\`\catcode`\`=13\relax
\def\rm@ligature{\def`{\null\string`}}%
\catcode\temp@char=12\relax
%
\catcode`\^^I=13\relax\def\set@tab{\def^^I{\ \ \ \ }}\catcode`\^^I=10\relax%
\catcode`\^^M=13\relax\def\set@cr{\def^^M{\par}}\catcode`\^^M=5\relax%
\catcode`\ =13\relax\def\set@space{\def {\ }}\catcode`\ =10\relax%
%
% TEST EMPTY LINE 
%
\catcode`\ =13\relax% space active
%
% Delete leading spaces (catcode=13)
% Throw the rest to \temp@macro
\long\def\del@truespaces#1#2\s@fetymark{\temp@iffalse%
\def\temp@macro{#1}\def\one@space{ }\def\temp@@macro{}%
\ifx\temp@macro\one@space%  front spaces not allowed
\def\temp@macro{#2}%
\ifx\temp@macro\empty\temp@iftrue%
\else\def\temp@@macro{\del@truespaces#2\s@fetymark}\fi%
\fi%
\temp@@macro}%  
%
\catcode`\ =10\relax%
%
% \temp@iftrue if empty line, 
% \temp@macro holds nonspace part (space catcode=13 or normal)
\long\def\is@emptyline#1{\def\one@space{ }%
  \def\temp@macro{#1}\def\temp@@macro{}\temp@iftrue
  \ifx\temp@macro\empty
  \else \ifx\temp@macro\one@space 
        \else \def\temp@@macro{\del@truespaces#1\s@fetymark}%
        \fi
  \fi
\temp@@macro}%
%
%  TEST STRING
%
%% \newif\iftemp@if \newtoks\temp@toks
% return \iftemp@iftrue if yes, 
%        \first@half,\second@half are global
\long\def\test@str#1#2{%
  \long\def\strip@endmark##1\s@fetymarkI#1\s@fetymark{%
    \gdef\second@half{##1}}%
  \long\def\strip@markI##1\s@fetymarkI\s@fetymark{%
    \gdef\first@half{##1}}%
  \long\def\p@rse##1#1##2\s@fetymark{%
    \gdef\first@half{##1}%
    \gdef\second@half{##2}%
    \ifx\second@half\empty 
       \strip@markI##1\s@fetymark \temp@iffalse
    \else
       \strip@endmark##2\s@fetymark \temp@iftrue
    \fi}%
  \temp@toks={#2\s@fetymarkI#1\s@fetymark}%
  \expandafter\p@rse\the\temp@toks }%
%
% #1 supposed to a toks register
\long\def\test@tokstr#1#2{% #1 =toks
   \temp@toks={#2}%
   \edef\temp@macro{\noexpand\test@str{#1}{\the\temp@toks}}%
   \temp@macro }%
%
%  MAKE ESCAPE CHAR
%
% \esc@=the character '\' of catcode 11
\newtoks\name@endtoks \newtoks\true@endtoks 
\catcode`\*=0\relax *catcode`*\=11*relax
*gdef*esc@{\}%*name@endtoks={\endrawlist}%
*catcode`*\=0*relax \catcode`\*=12\relax
%
%
% TWO DIMENSIONAL ARRAY / LETTER PARAMETER STACKS
%
\def\stack@num@twodim[#1]{\temp@count=-1%
  \expandafter\ifx\csname #1*0\string~\endcsname\undefined@
    \temp@count=0\fi
  \expandafter\ifx\csname #1*0\string~\endcsname\relax
     \temp@count=0\fi \relax
  \ifnum\temp@count<0
     \temp@count=\csname #1*0\string~\endcsname \relax 
  \else  \expandafter\gdef
     \csname #1*0\string~\endcsname{0}%
  \fi }%
%
%
\newcount\R@Wcount \R@Wcount=0
\newcount\R@Dcount \R@Dcount=0
\newif\ifload@defaults \load@defaultsfalse % i.e. to LET stack (not DEF)
%
\long\def\rowpush#1{%
\ifload@defaults     % for default para stack
  \ifnum\R@Dcount>0\else \global\R@Dcount=1 \fi
  \stack@num@twodim[DEF\the\R@Dcount]%
  \advance\temp@count1\relax
  \expandafter\gdef
  \csname DEF\the\R@Dcount*\the\temp@count\string~\endcsname{#1}%
  \expandafter\xdef\csname DEF\the\R@Dcount*0\string~\endcsname
  {\the\temp@count}%
\else
  \ifnum\R@Wcount>0\else \global\R@Wcount=1 \fi
  \stack@num@twodim[LET\the\R@Wcount]%
  \advance\temp@count1\relax
  \expandafter\gdef
  \csname LET\the\R@Wcount*\the\temp@count\string~\endcsname{#1}%
  \expandafter\xdef\csname LET\the\R@Wcount*0\string~\endcsname
  {\the\temp@count}%
\fi
}%
%
\def\clr@row{%
\ifload@defaults     % for default para stack
  \stack@num@twodim[DEF\the\R@Dcount]%
  {\loop \ifnum\temp@count>0\relax
    \global\expandafter\let
    \csname DEF\the\R@Dcount*\the\temp@count\string~\endcsname=\undefined@%
    \advance\temp@count-1\relax \fi
  \ifnum\temp@count>0 \repeat}%
  \global\expandafter\let
  \csname DEF\the\R@Dcount*0\string~\endcsname=\undefined@
\else
  \stack@num@twodim[LET\the\R@Wcount]%
  {\loop \ifnum\temp@count>0\relax
    \global\expandafter\let
    \csname LET\the\R@Wcount*\the\temp@count\string~\endcsname=\undefined@%
    \advance\temp@count-1\relax \fi
  \ifnum\temp@count>0 \repeat}%
  \global\expandafter\let
  \csname LET\the\R@Wcount*0\string~\endcsname=\undefined@
\fi
}%
%
\def\clr@allrows{%
\ifload@defaults
% for default para stack
   {\loop \ifnum\R@Dcount>0\relax {\clr@row}% 
    \global\advance\R@Dcount-1\relax \fi
    \ifnum\R@Dcount>0 \repeat}%
  \global\R@Dcount=0\relax
\else
  {\loop \ifnum\R@Wcount>0\relax {\clr@row}% 
   \global\advance\R@Wcount-1\relax \fi
   \ifnum\R@Wcount>0 \repeat}%
  \global\R@Wcount=0\relax
\fi
}%
%
%  LOAD DEFAULT
%  update paras in LET array with defaults in DEF array
%
% \newtoks\temp@toks
\newif\ifnodefaults  \nodefaultsfalse
\def\sub@loop{% \sub@loop is always called via {\sub@loop}
  \loop  % inner loop: reverse order
  \temp@@count=0 % flag -> not counter: 0=no need for updating
  \expandafter\ifx\csname LET\the\temp@@@count*\the\temp@count
  \string~\endcsname\undefined@ \temp@@count=1\fi
  \expandafter\ifx\csname LET\the\temp@@@count*\the\temp@count
  \string~\endcsname\relax \temp@@count=1\fi\relax
  %
  \expandafter\ifx\csname LET\the\temp@@@count*\the\temp@count
  \string~\endcsname\trivi@l \temp@@count=1\fi\relax
  %
   \ifnum\temp@@count>0
   \expandafter\let\expandafter\temp@macro
     \csname DEF\the\temp@@@count*\the\temp@count\string~\endcsname
   \temp@toks=\expandafter{\temp@macro}%
   \expandafter\xdef
    \csname LET\the\temp@@@count*\the\temp@count\string~\endcsname
    {\the\temp@toks}%
   \fi
  \advance\temp@count-1\relax
  \ifnum\temp@count>0 
  \repeat}% for speed
%
% above macro not to stand alone
% it is removed from \loaddefaultparas for better speed
%
\def\loaddefaultparas{%
\ifnodefaults\else % active only if \nodefaultsfalse
  \def\trivi@l{\b@group\relax\e@group}% == empty parameter
  \temp@count=\R@Wcount
  {\loop % legalise LET array's extension
    \advance\temp@count1\relax
    \ifnum\temp@count>\R@Dcount\else
    \expandafter\xdef
    \csname LET\the\temp@count*0\string~\endcsname{0}\fi
    \ifnum\temp@count<\R@Dcount \repeat}%
  \ifnum\R@Wcount<\R@Dcount \global\R@Wcount=\R@Dcount \fi
%
  \temp@@@count=1 % row counter
  {\loop 
    \stack@num@twodim[DEF\the\temp@@@count]%
    \temp@@count=\temp@count\relax
    \stack@num@twodim[LET\the\temp@@@count]%
    \ifnum\temp@count<\temp@@count \temp@count=\temp@@count\relax \fi
  % update LET array's counter
    \expandafter\xdef
      \csname LET\the\temp@@@count*0\string~\endcsname{\the\temp@count}%
  % now \temp@count is current max row width  
    {\sub@loop}%   update a row
    \advance\temp@@@count 1\relax
    \ifnum\temp@@@count>\R@Wcount\temp@@count=0\else\temp@@count=1\fi
    \relax
  \ifnum\temp@@count>0 \repeat}%
\fi  % of \ifnodefaults
}%
%
%  HOUSE KEEPING
%
\newif\ifshowp@r@ \showp@r@true % default mode
\def\show@paras{\showp@r@true\lettercontents}%
\def\showparas{\show@paras}%
%
\def\b@group{\iflocalparas\bgroup\fi}%
\def\e@group{\iflocalparas\egroup\fi}%
%
\long\def\lettercontents{}%
%
\def\inputletter#1{\save@catcodes[OLD][0][\MAX@CHR@CODE][/13/]\beginletter
  \save@catcodes[TMP][0][\MAX@CHR@CODE][]\get@catcodes[OLD]\existfile{#1}%
  \iftemp@if \input#1%
  \else \immediate\write16{Letter File <#1> not found.}\fi 
  \get@catcodes[TMP]\endletter}%
%
\def\inputfile#1{\relax\existfile{#1}\iftemp@if
  \input#1 \else \immediate\write16{File <#1> not found.}\fi 
  \relax}%
%
\def\preview{\preview@}%
%
%
%  PAGE NUMBER
%  for both TeX and LaTeX
%
\ifISLATEX
  \let\PAGENO=\c@page \def\NOPAGENUMBERS{\pagestyle{empty}}\else
  \let\PAGENO=\pageno \let\NOPAGENUMBERS=\nopagenumbers \fi
%
%
%  SINGLE PARAMETER
%
\def\paras{\push{%
  \edef\next@@{\noexpand\rowcolp@r@s[\the\p@r@two][\the\p@r@one]}%
  \popnil\clrp@r@s\next@@}\st@ckparas\left@1\right@\left@1\right@\p@r@end}%
%
% NOTE:
%  1. default parameters are enclosed between \left@ and \right@,
%     and is supplied after \st@ckparas. All defaults (may be empty) must
%     be supplied.
%  2. \rowcolp@r@s is the name of the macro that  doesn't take defaults
%  3. \the\p@r@one, .., \the\p@r@nine represent #1,.., #9 .
%  4. \paras is the new macro that behaves like \rowcolp@r@s but now
%     takes defaults
%  5. change accordingly if one wants to implement defaults to other
%     existing macros.
%  6. limitation: '[' and ']' are now not allowed as macro parameters.
%
%
\def\rowcolp@r@s[#1][#2]{%
  \ifpreview {\leavevmode
  \boxmore[1pt]{\boxmore[3pt]{\hbox
  {\font\tiny@rm=cmr5\tiny@rm ~#1 -- #2~}}}}\relax
  \else \csname LET#1*#2\string~\endcsname \fi}%
%
%  ADDRESS BOXES
%
% \newbox\temp@box\newdimen\temp@dim
\long\def\fig@box[#1]#2{%#1=width of box
  \setbox\temp@box=\vbox{\hsize #1\noindent\strut #2\strut}% 
  \temp@dim=\ht\temp@box
  \advance\temp@dim\dp\temp@box\advance\temp@dim-2ex
  \dp\temp@box=\temp@dim\ht\temp@box=2ex\box\temp@box}%
%
\long\def\figbox{\push{%
  \edef\next@@{\noexpand\fig@box[\the\p@r@one]}%
  \popnil\next@@}\st@ckparas\left@8truecm\right@\p@r@end}%
%
\long\def\box@more[#1]#2{\vbox{\hrule\hbox{\vrule\kern#1\vbox
  {\kern#1\hbox{#2}\kern#1}\kern#1\vrule}\hrule}}%
%
\long\def\boxmore{\push{%
  \edef\next@@{\noexpand\box@more[\the\p@r@one]}%
  \popnil\next@@}\st@ckparas\left@3pt\right@\p@r@end}%
%
\long\def\address@box[#1][#2]#3{%
  \noindent\hskip#2\figbox[#1]{\hskip-#2\relax #3}}%
%
\long\def\addressbox{\push{%
  \edef\next@@{\noexpand\address@box%
  [\the\p@r@one][\the\p@r@two]}%
  \popnil\next@@}\st@ckparas\left@8truecm\right@\left@1.5em\right@\p@r@end}%
%
\long\def\ADDRESSBOX#1#2#3{% intended for \blockparas
  \noindent\hskip#2\figbox[#1]{\hskip-#2\relax #3}}%
%
%
% BLOCKPARAS and ADDRESSPARAS
%
\newcount\blockC@Lcount \newcount\blockT@Pcount
\long\def\block@paras[#1][#2][#3][#4]{% #2-th group, from #1 to end, 
    % each para is surrounded by #3 from left and #4 from right
    % If #4=\relax, an extra {} is applied to the \paras so that
    % #3 may be a macro acting on the \paras
  \def\next@one{#2}\def\next@two{#1}\def\next@three{#3}\def\next@four{#4}%
  \ifx\next@one\empty\def\next@one{1}\fi
  \ifx\next@two\empty\def\next@two{1}\fi
  \ifpreview {\leavevmode % three line border box
    \boxmore[1pt]{\boxmore[1pt]{\boxmore[3pt]{\hbox
    {\font\tiny@rm=cmr5\tiny@rm \font\small@tt=cmtt8%
    ~\next@one ~-- \next@two~(+):~ 
    \small@tt\meaning\next@three 
    ~<<paras>> \meaning\next@four}}}}}\relax
  \else 
    \blockC@Lcount=-1%
    \expandafter\ifx\csname LET\next@one*0\string~\endcsname\undefined@
        \blockC@Lcount=0\fi
    \expandafter\ifx\csname LET\next@one*0\string~\endcsname\relax
  \blockC@Lcount=0\fi \relax
  \ifnum\blockC@Lcount<0
     \blockC@Lcount=\csname LET\next@one*0\string~\endcsname\relax \fi
  \blockT@Pcount=\next@two
  \advance\blockT@Pcount by-1\relax
  \l@@p   % not to be grouped
     \advance\blockT@Pcount1\relax 
     \ifnum\blockT@Pcount>\blockC@Lcount\else
      \def\temp@macro{\relax}% some overhead, but safer
      \ifx\next@four\temp@macro % add {} to \paras, so that a macro can act
                          % on the whole \paras
      \next@three{\csname LET\next@one*\the\blockT@Pcount\string~\endcsname}%
      \else
      \next@three\csname LET\next@one*\the\blockT@Pcount
         \string~\endcsname\next@four
      \fi
   \fi
  \ifnum\blockT@Pcount<\blockC@Lcount\repe@t
\fi}%
%
%
\def\blockparas{\push{%
  \edef\next@@{\noexpand\block@paras[\the\p@r@one][\the\p@r@two]%
  [\the\p@r@three][\the\p@r@four]}%
  \popnil\clrp@r@s\next@@}\st@ckparas\left@1\right@\left@1\right@%
  \left@\noindent\right@\left@\par\right@\p@r@end}%
%
%
\long\def\address@paras[#1][#2][#3][#4]{%
  \block@paras[#1][#2][\par\noindent\ADDRESSBOX{#3}{#4}][\relax]\par}%
%
\def\addressparas{\push{%
  \edef\next@@{\noexpand\address@paras[\the\p@r@one][\the\p@r@two]%
  [\the\p@r@three][\the\p@r@four]}%
  \popnil\clrp@r@s\next@@}\st@ckparas\left@1\right@\left@1\right@%
  \left@8truecm\right@\left@1.5em\right@\p@r@end}%
%
%
% MAIN PROCESSING MACRO
%
\newif\ifconti@one \newif\ifconti@two
\newif\ifl@stline \newif\ifl@stLINE
\newif\ifpreview  \previewfalse
\newif\iflocalparas \localparastrue
%
\newtoks\name@paratoks  \name@paratoks={;}%
\newtoks\name@grouptoks  \name@grouptoks={+}%
\newtoks\name@clustertoks \name@clustertoks={!}%
%
%
\long\def\delimiters#1#2#3{%  LONG MACRO
%
%%%% MAIN GET: get a group of parameters from a cluster
%
\long\def\refillst@ck##1#3{\def\d@t@one{##1#3}%
  {\loop\conti@onefalse
  \ifx\d@t@one\undefined@ \else \@ddoneline\conti@onetrue\fi 
  \ifconti@one\repeat}}%
%
\long\def\testl@stline##1#2##2#3##3\s@fetymark{%
  \def\next{##2}\ifx\next\empty
  \l@stlinetrue \else \l@stlinefalse \fi
  \def\next{##3}\def\nextsample{#2#3}%
  \ifx\next\nextsample\l@stlinefalse\fi}%
%
\long\def\l@stline##1#3{{\sub@fill{##1}}\let\d@t@one=\undefined@}%
\long\def\onem@reline##1#2##2#3{{\sub@fill{##1}}\def\d@t@one{##2#3}}%
%                                                     
\long\def\@ddoneline{\temp@toks=\expandafter{\d@t@one}%
  \expandafter\testl@stline\the\temp@toks#2#3\s@fetymark
  \ifl@stline \expandafter\l@stline\the\temp@toks 
  \else \expandafter\onem@reline\the\temp@toks \fi}%
%
%%%% SUB GET : get parameters from a group
%
\long\def\sub@fill##1{%
  \ifload@defaults \global\advance\R@Dcount by 1\else
  \global\advance\R@Wcount by 1\fi\relax
  \clr@row\def\d@t@two{\relax##1#3}%  %%care: extra \relax added
  {\loop\conti@twofalse
  \ifx\d@t@two\undefined@ \else \@ddoneLINE\conti@twotrue\fi 
  \ifconti@two\repeat}}%
%
\long\def\moreletter##1#3{\showp@r@false
  \clr@allrows\refillst@ck##1#3\lettercontents\clr@allrows\showp@r@true}%
%
\def\endletter{\relax}%
\long\def\true@letter##1\endletter{\long\def
  \lettercontents{\begingroup\catcode`\^^M=5\relax
  \def\pstr{#1}\def\gstr{#2}\def\cstr{#3}\relax##1\relax\endgroup}}%
\let\beginletter\true@letter
%
\long\def\testl@stLINE##1#1##2#3##3\s@fetymark{%
  \def\next{##2}\ifx\next\empty%
  \l@stLINEtrue \else \l@stLINEfalse \fi%
  \def\next{##3}\def\nextsample{#1#3}%
  \ifx\next\nextsample\l@stLINEfalse\fi}%
%
\long\def\l@stLINE##1#3{%
  \rowpush{\b@group##1\e@group}\let\d@t@two=\undefined@}%
  \long\def\onem@reLINE##1#1##2#3{%
  \rowpush{\b@group##1\e@group}\def\d@t@two{\relax##2#3}}%%care
%
\long\def\@ddoneLINE{\temp@toks=\expandafter{\d@t@two}%
  \expandafter\testl@stLINE\the\temp@toks#1#3\s@fetymark%
  \ifl@stLINE\expandafter\l@stLINE\the\temp@toks %
  \else \expandafter\onem@reLINE\the\temp@toks \fi}%
%
\def\para@names{\ifshowp@r@
  \def\next@@{{\load@defaultsfalse\clr@allrows}\refillst@ck}\else
  \long\def\next@@####1#3{\relax}\fi \next@@}%
%
\long\def\para@defaults##1#3{\load@defaultstrue
  \clr@allrows\refillst@ck##1#3\load@defaultsfalse}%
%  
\def\preview@{{\previewtrue\moreletter #3}}%
%
\long\def\out@letter##1#3{\showp@r@false\clr@allrows
   \refillst@ck##1#3\lettercontents\clr@allrows\showp@r@true
   \pile@letters}%
%
\name@paratoks={#1}\name@grouptoks={#2}\name@clustertoks={#3}%
%
}%    END OF LONG MACRO
%
\long\def\paranames#1!{\ifshowp@r@ 
   \begingroup\delimiters{;}{+}{!}\para@names#1!\endgroup\fi}%
\long\def\paradefaults#1!{%
   \begingroup\delimiters{;}{+}{!}\para@defaults#1!\endgroup}%
%
\def\defaultmarks{\delimiters{;}{+}{!}}%
\def\blockmarks{\delimiters{....}{----}{====}}%
%
%                  
%  TEST MACRO
%
% test if a token is a macro
% \newif\iftemp@if 
\def\sub@ismacro#1#2#3#4#5#6#7\s@fetymark{%  check only 'm,c,:'
   \if#1m\else\temp@iffalse\fi  %   \if#2a\else\temp@iffalse\fi
   \if#3c\else\temp@iffalse\fi  %   \if#4r\else\temp@iffalse\fi 
   \if#6:\else\temp@iffalse\fi }%   \if#5o\else\temp@iffalse\fi
%
\def\ismacro#1#2\s@fetymark{%\expandafter\ismacro\meaning\token\s@fetymark
   \temp@iftrue
   \if#1\esc@\else
     \sub@ismacro#1#2\s@fetymark
   \fi }%
%
\long\def\del@token#1{}%
\def\del@space#1 {}%
%
%  PILEMODE: the basic mode
%
\def\pile@letters{%
\def\check@{%
  \def\buffer@{\out@letter}%
  \def\one@space{ }%
  \expandafter\ismacro\meaning\next@\s@fetymark %
  \ifx\next@\undefined@\temp@iftrue \fi %
  \iftemp@if %
       \ifx\par\next@ \def\buffer@{\expandafter\pile@letters\del@token}%
            \else \ifx\endpilemode\next@\def\buffer@{}\fi % 
       \fi %
  \else %
       \if\one@space\next@%
            \def\buffer@{\expandafter\pile@letters\del@space}%
       \fi %
  \fi\buffer@}%
\futurelet\next@\check@}%
%
\def\beginpilemode{\showp@r@false
  \def\preview{}\def\showparas{}\pile@letters}%
\def\endpilemode{%
  \def\preview{\preview@}\def\showparas{\show@paras}\showp@r@true}%
%
%
%  LINEMODE: cr separate paras, empty line eject letter
%
\catcode`\^^M=13\relax%
%
% remove empty or space only lines, then control to \line@chkline
\long\def\line@curbfront#1^^M{%
  \is@emptyline{#1}%
  \iftemp@if \def\buffer@{\line@curbfront}%
  \else \def\buffer@{\line@chkline#1^^M}% control to \line@chkline
  \fi \buffer@ }%
%
% \newtoks\temp@@toks
% \name@endtoks and \true\end@toks must be given on entry
\long\def\line@chkline#1^^M{%
  \test@tokstr{\the\name@endtoks}{#1}%
  \iftemp@if %
     \temp@toks=\expandafter{\first@half}%
     \expandafter\is@emptyline\expandafter{\the\temp@toks}%
     \iftemp@if\else%
        \expandafter\rowpush\expandafter{\expandafter%
           \b@group\the\temp@toks\e@group}%
     \fi%
     \temp@toks=\expandafter{\second@half}%
     \expandafter\is@emptyline\expandafter{\the\temp@toks}%
     \iftemp@if \temp@toks={}\fi%
     \iftemp@if\else %
       {\is@rawmode9/1/13/13/1/13/32/1/13/96/1/13/0/0/0/%
        \iftemp@if \message{<!>}\let\ =\space %
        \wlog{(Verbatim: \second@half)}\fi}\fi%
     \ifnum\R@Wcount=0\temp@@toks={}\else%
       \temp@@toks={\showp@r@false\lettercontents\clr@allrows\showp@r@true}%
     \fi%
     \edef\buffer@{\the\temp@@toks\the\true@endtoks\the\temp@toks}%
  \else %
     \temp@toks=\expandafter{\first@half}%
     \expandafter\is@emptyline\expandafter{\the\temp@toks}%
     \iftemp@if%
       \temp@@toks={\showp@r@false\lettercontents\clr@allrows\showp@r@true}%
       \edef\buffer@{\the\temp@@toks\noexpand\line@curbfront}%
     \else%
        \expandafter\rowpush\expandafter{\expandafter%
           \b@group\the\temp@toks\e@group}%
        \let\buffer@=\line@chkline%
     \fi%
  \fi  \buffer@%
}%
%
\catcode`\^^M=5\relax%  
%
% NORMAL LINEMODE HANDLER
%
\def\beginlinemode{%
  \true@endtoks={\endlinemode}%
  \name@endtoks={\endlinemode}\showp@r@false\catcode`\^^M=13\relax  %
  \def\preview{}\def\showparas{}\clr@allrows\line@curbfront }%
%
\def\endlinemode{\catcode`\^^M=5\relax%\defaultmarks
  \def\preview{\preview@}\def\showparas{\show@paras}\showp@r@true }%
%
% RAW TEXT LINEMODE HANDLER
%
\def\endrawlinemode{\get@catcodes[RAW]\showp@r@true}%
\def\beginrawlinemode#{\begin@rawlinemode}%
\def\begin@rawlinemode#1{\save@catcodes[RAW][0][\MAX@CHR@CODE][]%
  \def\temp@macro{#1}%     #1=token to end the list
  \ifx\temp@macro\empty
     \temp@toks=\expandafter{\esc@}%
     \name@endtoks=\expandafter{\the\temp@toks endrawlinemode}%
  \else \name@endtoks={#1}%
  \fi
  \true@endtoks={\endlinemode\endrawlinemode}%
  \rm@ligature\set@space\set@tab\raw@chars[11][13][13][13][13]%
  \showp@r@false\clr@allrows\line@curbfront }%
%
%
%  BLOCKMODE: cr separate paras
%
%   line containing '+' (\name@grouptoks) separates groups
%   line containing '!' (\name@clustertoks) separates clusters
%
\catcode`\^^M=13\relax%
%
% remove empty or space only lines, then control to \block@chkline
\long\def\block@curbfront#1^^M{%
  \is@emptyline{#1}%
  \iftemp@if \let\buffer@=\block@curbfront %
  \else \test@tokstr{\the\name@endtoks}{#1}%
    \iftemp@if \def\buffer@{\block@chkline#1^^M}%
    \else \test@tokstr{\the\name@clustertoks}{#1}%
       \iftemp@if \let\buffer@=\block@curbfront%
       \else \test@tokstr{\the\name@grouptoks}{#1}%
         \iftemp@if \def\buffer@{\block@chkline#1^^M}%
         \else \test@tokstr{\the\name@paratoks}{#1}%
           \iftemp@if \let\buffer@=\block@chkline%
           \else \def\buffer@{\block@chkline#1^^M}% control to \block@chkline
           \fi %
         \fi %
      \fi%
    \fi %
  \fi \buffer@ }%
%
% \name@endtoks and \true\end@toks must be given on entry
\long\def\block@chkline#1^^M{%
  \test@tokstr{\the\name@endtoks}{#1}%
  \iftemp@if %
     \ifnum\R@Wcount=0%
        \temp@toks={\clr@allrows\showp@r@true}%
     \else%
        \temp@toks={\showp@r@false\lettercontents\clr@allrows\showp@r@true}%
     \fi%
     \edef\buffer@{\the\temp@toks\the\true@endtoks}%
  \else %
     \test@tokstr{\the\name@clustertoks}{#1}%
     \iftemp@if%
        \def\buffer@{\showp@r@false\lettercontents\clr@allrows%
             \showp@r@true\block@curbfront}%
     \else%
        \test@tokstr{\the\name@grouptoks}{#1}%
        \iftemp@if%
           \ifnum\R@Wcount<1\global\R@Wcount=1\relax\fi %
           \global\advance\R@Wcount1\relax%
        \else%
           \rowpush{\b@group\relax#1\e@group}%
        \fi%
        \let\buffer@=\block@chkline %
     \fi%
  \fi \buffer@%
}%
%
\catcode`\^^M=5\relax%  
%
% NORMAL BLOCKMODE HANDLER
%
\def\beginblockmode{%
  \true@endtoks={\endblockmode}%
  \name@endtoks={\endblockmode}\showp@r@false\catcode`\^^M=13\relax  %
  \def\preview{}\def\showparas{}\clr@allrows\block@curbfront }%
%
\def\endblockmode{\catcode`\^^M=5\relax%\defaultmarks
  \def\preview{\preview@}\def\showparas{\show@paras}\showp@r@true }%
%
% RAW TEXT BLOCKMODE HANDLER
%
\def\endrawblockmode{\get@catcodes[RAW]\showp@r@true}%
\def\beginrawblockmode#{\begin@rawblockmode}%
\def\begin@rawblockmode#1{\save@catcodes[RAW][0][\MAX@CHR@CODE][]%
  \def\temp@macro{#1}%     #1=token to end the list
  \ifx\temp@macro\empty
     \temp@toks=\expandafter{\esc@}%
     \name@endtoks=\expandafter{\the\temp@toks endrawblockmode}%
  \else \name@endtoks={#1}%
  \fi
  \true@endtoks={\endblockmode\endrawblockmode}%
  \rm@ligature\set@space\set@tab\raw@chars[11][13][13][13][13]%
  \showp@r@false \clr@allrows\block@curbfront }%
%
%
%  DATAMODE:  every <m> lines eject a letter (raw tex mode)
%
\catcode`\^^M=13\relax %
\newcount\data@count %
%
% \name@endtoks and \true\end@toks must be given on entry
\long\def\data@chkline#1^^M{\test@tokstr{\the\name@endtoks}{#1}%
  \iftemp@if % \first@half is raw text
     \temp@toks=\expandafter{\first@half}%
     \temp@@toks=\expandafter{\second@half}%
     \edef\temp@macro{\the\temp@toks\the\temp@@toks}%
     \temp@toks=\expandafter{\temp@macro}%
     \expandafter\is@emptyline\expandafter{\the\temp@toks}%
     \iftemp@if \else\message{<!>}\let\ =\space %
       \wlog{(Ignored: \first@half<->\second@half)}\fi %
     \ifnum\R@Wcount=0\temp@@toks={}\else%
       \ifnum\R@Wcount=\total@data@num\else \message{<!>}%
          \wlog{(Number of data lines at odds)}\fi %
       \temp@@toks={\showp@r@false\lettercontents\clr@allrows\showp@r@true}%
     \fi%
     \edef\buffer@{\the\temp@@toks\the\true@endtoks}%
  \else %
     \temp@toks=\expandafter{\first@half}\advance\data@count1 %
     \expandafter\rowpush\expandafter{\expandafter%
           \b@group\the\temp@toks\e@group}%
     \ifnum\data@count<\total@data@num %
        \let\buffer@=\data@chkline%
     \else \data@count=0 %
       \temp@@toks={\showp@r@false\lettercontents\clr@allrows\showp@r@true}%
       \edef\buffer@{\the\temp@@toks\noexpand\data@chkline}%
     \fi%
  \fi \buffer@ }%
%
\def\begindatamode{\push{%
  \edef\next@@{\noexpand\begin@datamode[\the\p@r@one]}%
  \popnil\next@@}\st@ckparas\left@\right@\p@r@end}%
%
\def\begin@datamode[#1]#{\begin@@datamode[#1]}%
\def\begin@@datamode[#1]#2{\save@catcodes[RAW][0][\MAX@CHR@CODE][]%
%    #1=token to end the list,  #2=number of lines for each block
  \edef\total@data@num{#2}\def\temp@macro{#1}% 
  \ifx\total@data@num\empty \def\total@data@num{1}\fi %
  \ifnum\total@data@num<1 \def\total@data@num{1}\fi %
  \ifx\temp@macro\empty %
     \temp@toks=\expandafter{\esc@}%
     \name@endtoks=\expandafter{\the\temp@toks enddatamode}%
  \else \name@endtoks={#1}\fi %
  \true@endtoks={\endlinemode\endrawlinemode}%
  \rm@ligature\set@space\set@tab\raw@chars[11][13][13][13][13]%
  \showp@r@false\clr@allrows\data@count=0 %
  \def\temp@macro##1^^M{%
     \test@tokstr{\the\name@endtoks}{##1}%
     \iftemp@if\else \temp@toks={##1}%
       \expandafter\is@emptyline\expandafter{\the\temp@toks}%
       \iftemp@if\else \message{<!>}\let\ =\space %
          \wlog{(Ignored: ##1)}\fi %
     \fi %
     \test@tokstr{\the\name@endtoks}{##1}%
     \iftemp@if \temp@toks=\expandafter{\first@half}%
        \temp@@toks=\expandafter{\second@half}%
        \edef\temp@@macro{\noexpand\data@chkline %
           \the\temp@toks\the\name@endtoks\the\temp@@toks\noexpand^^M}%
     \else\def\temp@@macro{\data@chkline}\fi\temp@@macro }%
  \temp@macro }%
%
\catcode`\^^M=5\relax%  
%
%
%  BASIC SETUP
%
\new@measures
\defaultmarks      % set up the default delimiters
%
%
%  RAW TEXT LISTING and MORE ON MACRO PARAMETER DEFAULTING
%
%
%  FLUSH ZEROS  \fillzeros[<WIDTH>]<NUMBER>
%
%% \newcount\temp@count \newcount\temp@@count 
\def\fillzeros[#1]#2{\temp@@count=#2\relax 
  \ifnum\temp@@count<0\temp@@count=-\temp@@count\fi
  \temp@count=1\relax
  {\loop\ifnum\temp@@count<10\else
    \global\divide\temp@@count by 10\global\advance\temp@count by 1\fi
    \ifnum\temp@@count=10\relax\global\temp@@count=11\relax\fi
    \ifnum\temp@@count>10\repeat}%
  \ifnum#2<0\advance\temp@count1\relax-\fi
  {\loop\ifnum\temp@count<#1\relax0\advance\temp@count1\fi
  \ifnum\temp@count<#1\repeat}%
  \temp@@count=#2\relax\ifnum\temp@@count<0\temp@@count=-\temp@@count\fi
  \the\temp@@count}%
%
%
% BEGINLIST--ENDLIST:    activate  <space> and <linebreak>
%
\catcode`\^^M=13% 
\newcount\linecount\global\linecount=1%
{\obeyspaces\gdef {\ }}%
%
%
%
%  \name@endtoks: token to end the list
%  \true@endtoks: tokens to be executed at the end
%  \name@endtoks and \true@endtoks must be defined on entry
%  \no@emptylinefalse: the first or the last line empty
%
\newif\ifno@emptyline         % iftemp@if
\newif\ifprint@file \global\print@filefalse  %
\def\begin@list[#1][#2][#3][#4][#5][#6]{%
  \global\linecount=#1\catcode`\^^M=13\no@emptylinetrue %
  \ifprint@file \def^^M{\put@linenumber}\else\def^^M{\par}\fi %
  \def\put@linenumber{\par\noindent\hbox to #5{}%
       \rlap{\hskip-1em\hskip#6%
       \ifnum#3>0\relax\hbox to0em{\hss#4\fillzeros[#3]\linecount~~}\fi}%
       \global\advance\linecount#2\relax}%
  \def\out@aline{%
    \ifno@emptyline %
       \expandafter\is@emptyline\expandafter{\first@half}%
       \ifprint@file \temp@@iffalse \else\temp@@iftrue \fi %
    \else \temp@iffalse \temp@@iftrue %
    \fi \no@emptylinefalse%
    \iftemp@if \else %
       \iftemp@@if \put@linenumber \fi % 
       \first@half \par %    extra \par is absorbed, put here for last line
    \fi }%
  \def\readyt@quit{\no@emptylinetrue%
    {\is@rawmode9/1/13/13/1/13/32/1/13/96/1/13/0/0/0/%
      \iftemp@if \expandafter\is@emptyline\expandafter{\second@half}%
       \iftemp@if\else\message{<!>}\let\ =\space %
        \wlog{(Verbatim: \second@half)}\fi\fi}%
    \temp@toks=\expandafter{\first@half}%
    \temp@@toks=\expandafter{\second@half}%
    \edef\first@half{\the\temp@toks\the\temp@@toks}\out@aline %
    \edef\temp@macro{\the\true@endtoks}%
    \temp@macro  %   \second@half removed
    }%
  \def\moret@get{\out@aline\get@phys@line}%
  \long\def\get@phys@line##1^^M{%
    \test@tokstr{\the\name@endtoks}{##1}%
    \iftemp@if \let\temp@macro=\readyt@quit
    \else \let\temp@macro=\moret@get %
    \fi %
    \temp@macro }%
  \catcode`\ =13\relax\get@phys@line%
}%
%
%
\def\endlist{\catcode`\^^M=13%
\catcode`\ =10\let^^M=\par\catcode`\^^M=5}%
\def\beginlist[#1][#2][#3][#4][#5][#6]{%
  \name@endtoks={\endlist}\true@endtoks={\endlist}%
  \begin@list[#1][#2][#3][#4][#5][#6]}%
%
\catcode`\^^M=5\relax%
%
%
%  BEGINRAWLIST -- ENDRAWLIST     \beginrawlist [...]{endtoken}  
%  defaults for [..] supported, last {..} compulsory ({} allowed though)
%
%  \beginrawlist [<INICOUNT>][<STEP>][<DIGITS>][<FONT>]%
%                [<TEXTSHIFT>][<MARKINGSHIFT>]{<ENDMARK>}
%       <INICOUNT>=\linecount: starts with where it is left   
%       <ENDMARK>= empty: \endrawlist ends the rawlist, otherwise 
%                         <ENDMARK> ends it
%       <DIGITS>=0: no line numbering
%   Use \leftskip and \rightskip to control the wrapped positions
%
\def\endrawlist{\endgroup}%
\def\begin@@rawlist[#1][#2][#3][#4][#5][#6]#7{\begingroup
  \def\temp@macro{#7}%     #7=token to end the list
  \ifx\temp@macro\empty
     \name@endtoks=\expandafter{\esc@ endrawlist}%
  \else \name@endtoks={#7}%
  \fi 
  \true@endtoks={\endlist\endrawlist}%
  \rm@ligature\set@tab\set@cr\set@space
  \raw@chars[11][13][13][13][13]%
  \begin@list[#1][#2][#3][#4][#5][#6]}%
%
\def\begin@rawlist[#1][#2][#3][#4][#5][#6]#{%
      \begin@@rawlist[#1][#2][#3][#4][#5][#6]}%
%
\def\beginrawlist{\push{%
  \edef\next@@{\noexpand\begin@rawlist
      [\the\p@r@one][\the\p@r@two][\the\p@r@three][\the\p@r@four]%
      [\the\p@r@five][\the\p@r@six]}%
  \popnil\clrp@r@s\next@@}%  end of push
  \font\tiny@rm=cmr5%
  \edef\temp@macro{%
      \noexpand\left@\the\linecount\noexpand\right@
      \noexpand\left@1\noexpand\right@
      \noexpand\left@0\noexpand\right@
      \noexpand\left@\noexpand\tiny@rm\noexpand\right@
      \noexpand\left@0pt\noexpand\right@ 
      \noexpand\left@0pt\noexpand\right@}%
  \expandafter\st@ckparas\temp@macro\p@r@end}%
%
%
%
% PRINTFILE verbatim   \printfile [...]{filename}
% [...] same as \beginrawlist
%
\catcode`\^^M=13\relax %
\def\print@@file[#1][#2][#3][#4][#5][#6]#7{%
   \temp@toks={\bgroup\print@filetrue %
                \beginrawlist[#1][#2][#3][#4][#5][#6]{}}%
   \existfile{#7}%
   \iftemp@if %
      \edef\temp@macro##1{\the\temp@toks %
        \noexpand\input##1\leavevmode %
        \setbox\temp@box=\lastbox\esc@ endrawlist^^M%
        \global\advance\linecount-1\relax\egroup\vskip-\baselineskip}%
   \else \def\temp@macro##1{\message{(File #7 not found)}}%
   \fi %
   \temp@macro{#7}}%
\catcode`\^^M=5\relax %
%
\def\print@file[#1][#2][#3][#4][#5][#6]#{%
      \print@@file[#1][#2][#3][#4][#5][#6]}%
%
\def\printfile{\push{%
  \edef\next@@{\noexpand\print@file
      [\the\p@r@one][\the\p@r@two][\the\p@r@three][\the\p@r@four]%
      [\the\p@r@five][\the\p@r@six]}%
  \popnil\clrp@r@s\next@@}%  end of push
  \font\tiny@rm=cmr5%
  \edef\temp@macro{%
      \noexpand\left@\the\linecount\noexpand\right@
      \noexpand\left@1\noexpand\right@
      \noexpand\left@6\noexpand\right@
      \noexpand\left@\noexpand\tiny@rm\noexpand\right@
      \noexpand\left@0pt\noexpand\right@ 
      \noexpand\left@-10pt\noexpand\right@}%
  \expandafter\st@ckparas\temp@macro\p@r@end}%
%
%
% COMMENT OUT TEXT 
%  \begincomment{password} <text> \endcomment or password
%
\catcode`\^^M=13% 
\def\begin@@comment{\let\par\relax %
  \catcode`\^^M=13\message{< Skip}%
  \temp@count=0\temp@@count=0\relax%
  \long\def\get@phys@line##1^^M{%
    \ifnum\temp@@count<500\advance\temp@@count1\else %
    \message{\the\temp@count}\temp@@count=1\fi\relax %
    \global\advance\temp@count1\relax %
    \test@tokstr{\the\name@endtoks}{##1}%
    \iftemp@if  %
      \def\temp@macro{\message{\the\temp@count\space lines}%
       \expandafter\is@emptyline\expandafter{\second@half}%
        \iftemp@if\message{>}\else %
           \message{<!> >}%
           \wlog{(Ignored: \second@half)}%
        \fi \the\true@endtoks }%
    \else \let\temp@macro=\get@phys@line %
    \fi \temp@macro }%
  \catcode`\ =13\relax\get@phys@line}%
%
\def\end@comment{\catcode`\^^M=13\catcode`\ =10\def^^M{\par}\catcode`\^^M=5}%
\catcode`\^^M=5\relax% 
%  
\def\endcomment{\endgroup}%  \read@buffline\temp@macro
\def\begin@comment#1{\begingroup\nullfont
  \tolerance=10000 \hbadness=10000 \vbadness=10000 
  \hfuzz=\maxdimen \vfuzz=\maxdimen
  \def\temp@macro{#1}%     #1=token to end the list
  \ifx\temp@macro\empty
     \name@endtoks=\expandafter{\esc@ endcomment}%
  \else \name@endtoks={#1}%
  \fi \true@endtoks={\end@comment\endcomment}%
  \rm@ligature\set@tab\set@cr\set@space\def\ { }%
  \raw@chars[11][11][11][13][13]\begin@@comment}%
%
\def\begincomment#{\begin@comment}% essentially an \outer macro
%
% SAVE CATCODES
%
\def\toks@of@catcodes#1#2[#3]{{% #3=/13/221/233/ must be increasing,or empty
% return: global \temp@toks=0/0/0/
%           or    /startnum/totalnum/catcode/ ... /0/0/0/
  \def\get@triplet/##1/##2\ZZ{\temp@@@count=##1\relax
     \def\temp@macro{##2}\ifx\temp@macro\empty\else\def\temp@macro{/##2}\fi}%
  \def\temp@macro{#3}\def\temp@@macro{}\temp@count=#1\relax
  \loop \temp@@count=#2\relax \temp@@@count=\temp@@count\relax
     \ifx\temp@macro\empty \temp@iffalse\else 
       \expandafter\get@triplet\temp@macro\ZZ % \ZZ is not defined
       \ifnum\temp@@@count>#2 \else 
       \temp@@count=\temp@@@count \advance\temp@@count-1\relax \fi\fi
     \edef\temp@@@macro{\noexpand\str@@catcodes
         {\the\temp@count}{\the\temp@@count}}\temp@@@macro 
     \temp@@toks=\expandafter{\temp@@macro}%
     \edef\temp@@macro{\the\temp@@toks\the\temp@toks}%
     \ifnum\temp@@@count>\temp@@count \temp@count\temp@@@count 
        \else\temp@count\temp@@count \fi \advance\temp@count1\relax 
     \ifnum\temp@count>#2 \temp@iffalse \else \temp@iftrue\fi
  \iftemp@if \repeat \global\temp@toks=\expandafter{\temp@@macro0/0/0/}}}%
%
\def\str@@catcodes#1#2{\ifnum#1>#2 \global\temp@toks={}\else
 {\temp@@@count#1\relax \global\temp@toks={}% result in \temp@toks
 \loop \temp@count=0\temp@@count=\the\catcode\temp@@@count\relax
   \l@@p \advance\temp@count1\advance\temp@@@count1\relax
     \ifnum\temp@@@count>#2\relax\temp@iffalse\else\temp@iftrue\fi
     \iftemp@if\ifnum\the\catcode\temp@@@count=\temp@@count
        \else\temp@iffalse\fi\fi
   \iftemp@if\repe@t   
   \temp@@count=\temp@@@count \advance\temp@@count-\temp@count\relax
   \edef\temp@macro{\the\temp@toks
      \the\temp@@count/\the\temp@count/\the\catcode\temp@@count/}%
   \global\temp@toks=\expandafter{\temp@macro}%
   \ifnum\temp@@@count>#2\relax\temp@iffalse\else\temp@iftrue\fi
   \iftemp@if \repeat }\fi}%
%
\def\act@catcodes#1/#2/#3/{% activate catcodes, must be ended by /0/0/0/
  \temp@count=#2\relax 
  \ifnum\temp@count>0 \let\temp@macro\act@catcodes\temp@@iftrue
  \else \let\temp@macro\relax\temp@@iffalse\fi
  \temp@count=0 \temp@@count=#1\relax
  \iftemp@@if\else\temp@count=#2\relax\fi
  \l@@p 
    \iftemp@@if
      \temp@@@count=\the\catcode\temp@@count \relax
      \ifnum\temp@@@count=#3\relax\else
        \catcode\the\temp@@count=#3\relax\fi
      \advance\temp@count1 \advance\temp@@count1\relax
    \fi
  \ifnum\temp@count<#2 \repe@t \temp@macro}%
%
%
\def\is@rawmode#1/#2/#3/{% chk if catcode is 11 or 12, 
                         % exceptions must be ended by /0/0/0/
  \temp@iftrue\temp@count=#2\relax 
  \ifnum\temp@count>0 \let\temp@macro\act@catcodes\temp@@iftrue
  \else \let\temp@macro\relax\temp@@iffalse\fi
  \temp@count=0 \temp@@count=#1\relax
  \iftemp@@if\else\temp@count=#2\relax\fi
  \l@@p 
    \iftemp@@if
      \temp@@@count=\the\catcode\temp@@count \relax
      \ifnum\temp@@@count=#3\relax\else
       \ifnum\temp@@@count=11\relax\else
        \ifnum\temp@@@count=12\relax\else
      \temp@iffalse \fi\fi\fi
      \advance\temp@count1 \advance\temp@@count1\relax
    \fi
  \ifnum\temp@count<#2 \repe@t\temp@macro}%
%
%
% #1=name, #2=1st char, #3=last char, #4=exceptions
\def\save@catcodes[#1][#2][#3][#4]{\toks@of@catcodes{#2}{#3}[#4]%
  \expandafter\xdef\csname CAT@#1@CODES\endcsname{\the\temp@toks}}%
%
\def\get@catcodes[#1]{%
  \expandafter\let\expandafter\temp@macro\csname CAT@#1@CODES\endcsname
  \expandafter\act@catcodes\temp@macro}%
%
% SAVE STATUS
%
\def\save@status{\edef\temp@macro{% status to \temp@macro
  \noexpand\pagegoal=\the\pagegoal
  \noexpand\hsize=\the\hsize
  \noexpand\vsize=\the\vsize
  \noexpand\hyphenpenalty=\the\hyphenpenalty
  \noexpand\overfullrule=\the\overfullrule
  \noexpand\pretolerance=\the\pretolerance
  \noexpand\tolerance=\the\tolerance
  \noexpand\hbadness=\the\hbadness 
  \noexpand\vbadness=\the\vbadness 
  \noexpand\hfuzz=\the\hfuzz 
  \noexpand\vfuzz=\the\vfuzz 
  \noexpand\spaceskip=\the\spaceskip 
  \noexpand\xspaceskip=\the\xspaceskip 
  \noexpand\looseness=\the\looseness
  \noexpand\parfillskip=\the\parfillskip }}%
%
%
% MULTI-COLUMNS
%
\newif\ifwarn@me \newbox\partial@page 
\newtoks \old@output@toks
%\newtoks\new@footline  
%  replacing \footline for a TeX bug if footline is lost
%
% makeshift remedy for LaTeX
% One must define \makefootline etc for realistic export to general LaTeX
\ifx\makeheadline\undefined@ \let\makeheadline\relax\fi
\ifx\makefootline\undefined@ \def\makefootline{}\fi
\ifx\advancepageno\undefined@\def\advancepageno{\global\advance\count0 1}\fi
%
\def\make@headline{{\hsize=\page@width \makeheadline}}%
\def\make@footline{{\hsize=\page@width \makefootline}}%
\def\simple@pageout#1{\shipout\vbox{\make@headline
   \vbox to\page@height{#1}\make@footline}\advancepageno}%
%
\def\page@sofar[#1]{\unvbox\partial@page \temp@count=0 %
   \loop\ifnum\temp@count<#1 \wd\temp@count=\hsize\advance\temp@count1 \repeat
   \temp@count=1 \hbox to\page@width{\box0 %
      \loop\ifnum\temp@count<#1 \hfil\box\temp@count 
      \advance\temp@count by1 \repeat}\temp@count=0 %
   \ifx\topins\undefined@\else\ifvoid\topins\else\temp@count=1 \fi\fi
   \ifx\footins\undefined@\else\ifvoid\footins\else\temp@count=1 \fi\fi
   \ifwarn@me \ifnum\temp@count=1 \message{<!>}%
       \wlog{Insertions (e.g. footnotes) may be pushed to later pages.
       Try manual pagebreak to overcome possible overfull vbox due to
       insertions. I pray for you.}\global\warn@mefalse \fi\fi}%
%
\def\columns@out[#1]{\splittopskip=\topskip\splitmaxdepth=\maxdepth
   \temp@dim=\page@height \advance\temp@dim by -\ht\partial@page
    \temp@count=0 \loop\ifnum\temp@count<#1 
     \ifdim\temp@dim>0pt
        \setbox\temp@count=\vsplit255 to\temp@dim
     \else \setbox\temp@count=\vbox{}\fi
     \advance\temp@count by1 \repeat 
    \simple@pageout{\page@sofar[#1]}\unvbox255\penalty\outputpenalty}%
%
\def\balance@columns[#1]{\setbox\temp@box=\vbox{\unvbox255}%
%%  For  materials more than one page but less than two pages
    \temp@@dim=\ht\partial@page \temp@dim=\ht\temp@box
    \divide\temp@dim by \column@num
    \advance\temp@dim by \temp@@dim \advance\temp@dim by \dp\temp@box
    \ifdim\temp@dim>\page@height \message{(!)}%
       \temp@@@dim=\temp@@dim \advance\temp@@@dim by -\page@height
       \advance\temp@@@dim by \baselineskip
       \ifdim\temp@@@dim>0pt \message{<!>}%
        \wlog{Space left in previous page too narrow.}\else
       {\vbadness=10000 \vfuzz=\maxdimen
        \predisplaypenalty 0 \postdisplaypenalty 0 %
        \splittopskip=\topskip \splitmaxdepth=\maxdepth
        \temp@dim=\page@height \advance\temp@dim by -\temp@@dim
        \advance\temp@dim by \maxdepth
        \temp@count=0 \loop \ifnum\temp@count<#1 %
              \setbox\temp@count=\vsplit\temp@box to\temp@dim
              \advance\temp@count by1 \repeat
              \global\setbox\temp@box\box\temp@box
       \simple@pageout{\page@sofar[#1]}}\fi\fi
% push the rest into the next page
  \temp@dim=\ht\temp@box \advance\temp@dim by\topskip
  \advance\temp@dim by -\baselineskip
  \divide\temp@dim by #1 \splittopskip=\topskip
   {\vbadness=10000 \vfuzz=\maxdimen \splitmaxdepth=\maxdepth
    \loop \setbox\temp@@box=\copy\temp@box
          \temp@count=1 \l@@p \ifnum\temp@count<#1 %
          \setbox\temp@count=\vsplit\temp@@box to\temp@dim
          \advance\temp@count by1 \repe@t
    \ifdim\ht\temp@@box>\temp@dim \advance\temp@dim by1pt \repeat
    \temp@count=1 \temp@@count=0
    \loop \ifnum\temp@count<#1 %
      \setbox\temp@@count=\vbox to\temp@dim{\unvbox\temp@count}%
      \advance\temp@count by1 \advance\temp@@count by1 \repeat
    \temp@count=#1 \advance\temp@count by-1 %
    \setbox\temp@count=\vbox to \temp@dim{\unvbox\temp@@box}\page@sofar[#1]}%
    \global\setbox\temp@box=\null\global\setbox\temp@@box=\null}%
%
\def\begincolumns{\push{%
  \edef\next@@{\noexpand\begin@columns[\the\p@r@one][\the\p@r@two]}%
  \popnil\clrp@r@s\next@@}\st@ckparas\left@2\right@\left@10pt\right@\p@r@end}%
%
\def\begin@columns[#1][#2]{% #1 will be expanded via \edef
  \save@status \old@output@toks=\expandafter{\the\output}%
  \let\old@entry@status\temp@macro %\begingroup 
  \edef\column@num{#1}\warn@metrue 
  \temp@@count=0 \temp@count=\column@num \relax
  \ifnum\temp@count>9 \temp@@count=1 \fi
  \ifnum\temp@count<1 \temp@@count=1 \fi
  \ifnum\temp@@count>0 %
  \errhelp{I think a format other than 1-9 columns in a page is crazy.
           But if you do have such devious wishes, I can only keep my
           fingers crossed for you.}%
  \errmessage{Column number \column@num\space is too ambitious!}\fi
  \ifISLATEX\edef\page@width{\the\textwidth}\edef\page@height{\the\textheight}%
  \else \edef\page@width{\the\hsize}\edef\page@height{\the\vsize}\fi
  \tolerance=10000 \hbadness=10000 \vbadness=10000 
  \hfuzz=\maxdimen \vfuzz=\maxdimen \overfullrule=0pt 
  \message{(\column@num\space cols|#2)}%
  \output={\global\setbox\partial@page=\vbox{\unvbox255\bigskip}}\eject
  \output={\columns@out[\column@num]}%
  \divide\hsize by \column@num \temp@dim=#2
  \ifnum \temp@dim<0 \message{Intercolumn skip [#2] insensible, reset to 0pt.}%
  \else \advance\hsize by -#2 \fi\multiply\vsize by \column@num 
  \advance\vsize by 1pc}%
%
\def\endcolumns{%
  \hbox{}\output={\balance@columns[\column@num]}\eject%\endgroup
  \old@entry@status \output=\expandafter{\the\old@output@toks}%
  \global\setbox\partial@page=\null}%  \pagegoal=\vsize
%
% SMOOTH PASSAGES FOR MULTICOLUMNS
%
\def\smooth{\spaceskip=0.3em  plus .8em minus .1em
 \xspaceskip=0.6pt plus 1em minus .2em
 \pretolerance=10 \tolerance=10000 \looseness=-10000   
 \parfillskip=0pt plus10fill\relax}%
%
% MAKE LABELS
%    \beginlabels[#1][#2][#3][#4][#5][#6]
%      defaults: #1=15pt #2=\sl #3=1 #4=1 #5=2.6in #6=2em
%    \endlabels 
%
\def\begin@labels[#1][#2][#3][#4][#5][#6]{%
  \ifISLATEX \temp@dim=\textwidth \else\temp@dim=\hsize\fi
  \temp@@dim=#1 \advance\temp@@dim #5 \def\label@size{#5}%
  \advance\temp@@dim\temp@@dim \advance\temp@@dim10pt 
  \ifdim\temp@@dim<\temp@dim \temp@count=2 
  \else \temp@count=1 \temp@dim=0pt \fi\relax
  \edef\temp@macro{\noexpand\begincolumns[\the\temp@count][10pt]}%
  \temp@macro %\nullfont
  \long\def\peudo@letter##1\endletter{%
    \def\lettercontents{\begingroup \hbadness=10000 \vbadness=10000 
     \hfuzz=\maxdimen \vfuzz=\maxdimen \overfullrule=0pt
     \vbox{#2 \par\vskip\baselineskip
      \vskip#1\addressparas[#3][#4][#5][#6]\vskip#1
      \hbox{\font\tiny@rm=cmr5 \tiny@rm
      \leaders\hbox to .8em{\hss.\hss}\hskip\label@size}\par}%
      \endgroup}}%
  \let\beginletter\peudo@letter\beginletter\endletter}%
%
\def\beginlabels{\push{%
  \edef\next@@{\noexpand\begin@labels[\the\p@r@one][\the\p@r@two]%
  [\the\p@r@three][\the\p@r@four][\the\p@r@five][\the\p@r@six]}%
  \popnil\clrp@r@s\next@@}\st@ckparas
     \left@ 20pt\right@  \left@ \tt\raggedright\right@
     \left@ 1\right@  \left@ 1\right@
     \left@ 2.6in\right@  \left@ 2em\right@ \p@r@end}%
%
\def\endlabels{\endcolumns\let\beginletter\true@letter}%
%
%
% LABELS: make labels via a 2nd read of file
%
\long\def\firstread#1{% nil if read after \labelsquit
  \ifx\ENDINPUT\undefined\def\temp@macro{#1}\else\def\temp@macro{}\fi
  \temp@macro}%
%
\def\initlabels{\push{%
  \edef\next@@{\noexpand\init@labels[\the\p@r@one]}%
  \popnil\clrp@r@s\next@@}\st@ckparas\left@\right@\p@r@end}%
%
\long\def\init@labels[#1]#{\init@@labels[#1]}%
\long\def\init@@labels[#1]#2#{\init@@@labels[#1]#2}%
\long\def\init@@@labels[#1]#2#3{\def\labels@initiated{}\let\next\relax
  \ifISLATEX \ifx\ENDINPUT\undefined@ \def\temp@macro{#2}%
     \ifx\temp@macro\empty\temp@toks={article}\else\temp@toks={#2}\fi
     \edef\temp@@macro{\noexpand\documentstyle
         [#1]{\the\temp@toks}#3 \noexpand\begin{document}}%
     \else\def\temp@@macro{}\fi
  \else \def\temp@@macro{}\message{<!>}%
     \wlog{(\string\inilabels\space ignored for plain TeX)}\fi
  \temp@@macro}%
%
\def\labelsquit{\push{%
  \edef\next@@{\noexpand\labels@quit[\the\p@r@one][\the\p@r@two]%
  [\the\p@r@three][\the\p@r@four][\the\p@r@five][\the\p@r@six]}%
  \popnil\clrp@r@s\next@@}\st@ckparas
     \left@ 20pt\right@  \left@ \tt\raggedright\right@
     \left@ 1\right@  \left@ 1\right@
     \left@ 2.6in\right@  \left@ 2em\right@ \p@r@end}%
%
\def\labels@quit[#1][#2][#3][#4][#5][#6]#{%
  \labels@@quit[#1][#2][#3][#4][#5][#6]}%
\def\labels@@quit[#1][#2][#3][#4][#5][#6]#7{% 
  \ifISLATEX \else\def\labels@initiated{}\fi
  \ifx\labels@initiated\undefined
    \message{<!>}\wlog{(\string\initlabels\space must be activated first)}%
    \let\next\relax
  \else \def\temp@macro{#7}%
    \ifx\temp@macro\empty\def\temp@macro{\jobname}\fi
    \ifx\ENDINPUT\undefined 
       \temp@toks={[#1][#2][#3][#4][#5][#6]}%
       \message{(Re-read \jobname.tex)}%
       \edef\next{\noexpand\beginlabels
         \the\temp@toks\noexpand\input \temp@macro}%
    \else \def\next{\endlabels\end{document}}\fi 
    \let\ENDINPUT\relax 
  \fi \next}%
%
%
%  WRITE FILE
%
\catcode`\^^M=13\relax %
%
% \temp@read, \name@endtoks and \true\end@toks must be given on entry
\long\def\file@chkline#1^^M{\test@tokstr{\the\name@endtoks}{#1}%
  \iftemp@if \temp@toks=\expandafter{\first@half}%
     \expandafter\is@emptyline\expandafter{\the\temp@toks}%
     \iftemp@if\else \expandafter %
       \immediate\write\expandafter\temp@read\expandafter{\first@half}\fi %
     \immediate\closeout\temp@read \temp@toks=\expandafter{\second@half}%
     \expandafter\is@emptyline\expandafter{\the\temp@toks}%
     \iftemp@if \else\message{<!>}\wlog{(Ignored: \the\temp@toks)}\fi %
     \edef\buffer@{\the\true@endtoks}%
  \else \expandafter\immediate\expandafter %
     \write\expandafter\temp@read\expandafter{\first@half}%
     \let\buffer@\file@chkline %
  \fi \buffer@ }%
%
\def\beginfile{\push{%
  \edef\next@@{\noexpand\begin@file[\the\p@r@one]}%
  \popnil\next@@}\st@ckparas\left@\right@\p@r@end}%
%
\def\begin@file[#1]#{\begin@@file[#1]}%
\def\begin@@file[#1]#2{\save@catcodes[RAW][0][\MAX@CHR@CODE][]%
%    #1=token to end the list,  #2=filename
  \edef\temp@macro{#2}%
  \ifx\temp@macro\empty \def\temp@macro{scr@tch@.tex}\fi %
  \wlog{(File <\temp@macro> written)}%
  \immediate\openout\temp@read=\temp@macro  \def\temp@macro{#1}% 
  \ifx\temp@macro\empty \temp@toks=\expandafter{\esc@}%
     \name@endtoks=\expandafter{\the\temp@toks endfile}%
  \else \name@endtoks={#1}\fi\true@endtoks={\endlinemode\endrawlinemode}%
  \rm@ligature\set@space\set@tab\raw@chars[11][11][11][13][13]\let\ =\space %
  \def\temp@macro##1^^M{%
     \test@tokstr{\the\name@endtoks}{##1}%
     \iftemp@if\else \temp@toks={##1}%
       \expandafter\is@emptyline\expandafter{\the\temp@toks}%
       \iftemp@if\else \expandafter\immediate\expandafter %
         \write\expandafter\temp@read\expandafter{\the\temp@toks}\fi %
     \fi %
     \test@tokstr{\the\name@endtoks}{##1}%
     \iftemp@if \temp@toks=\expandafter{\first@half}%
        \temp@@toks=\expandafter{\second@half}%
        \edef\temp@@macro{\noexpand\file@chkline %
           \the\temp@toks\the\name@endtoks\the\temp@@toks\noexpand^^M}%
     \else\def\temp@@macro{\file@chkline}\fi\temp@@macro }%
  \temp@macro }%
%
\catcode`\^^M=5\relax%  
%
%
% FONTS 
%
%\font\BOLD=cmbx10 at 24.88pt     \font\hbold=cmbx10 at 20.74pt
%\font\lbold=cmbx10 at 17.28pt    \font\bbold=cmbx10 at 14.4pt
%\font\bold=cmbx10 at 12pt        \font\sbold=cmbx8
%\font\tbold=cmbx5                \font\ssan=cmss8
%\font\SAN=cmss10 at 24.88pt      \font\hsan=cmss10 at 20.74pt
%\font\lsan=cmss10 at 17.28pt     \font\bsan=cmss10 at 14.4pt
%\font\san=cmss10 at 12pt         \font\nsan=cmss10
%\font\ROMAN=cmr10 at 24.88pt     \font\hroman=cmr10 at 20.74pt
%\font\lroman=cmr10 at 17.28pt    \font\broman=cmr10 at 14.4pt
%\font\roman=cmr10 at 12pt        \font\sroman=cmr8
%\font\troman=cmr5                \font\stt=cmtt8
%
%
% LEAVE MACROS
%
\let\wlog\temp@@@macro\let\temp@@@macro\undefined@
%
\catcode`\@=\EntryADDnuM\relax
\endinput
%
%ENDMACROS








%DOCUMENT



%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%
%
% EXTRA MACROS AND FONTS
%
%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%


% FONTS
\font\hbold=cmbx10 at 17.28pt
\font\lbold=cmbx10 at 14.4pt
\font\bbold=cmbx10 at 12pt
\font\small=cmr8
\font\tiny=cmr5
\font\stt=cmtt9
\catcode`\@=11\relax
%
%
%
% OTHER MACROS
%
\catcode`\~=11\relax \def\t{{\tt ~}}
\catcode`\~=\active\relax
\catcode`\!=0\relax !catcode`!\=11!relax
!def!esc{\}!def!escs{\! }
!catcode`!\=0!relax \catcode`\!=12\relax
\def\rqs{\rq\ }
\def\LaTeX{{\rm L\kern-.36em\raise.3ex\hbox{\font\sc=cmcsc10\sc a}\kern-.15em
    T\kern-.1667em\lower.7ex\hbox{E}\kern-.125emX}}

% makeshift macro
\catcode`\^^M=13\relax%
\def\setraw{\bgroup\rm@ligature\set@space\set@tab%
\set@cr\stt\raw@chars[11][13][13][13][13]\def^^M{\strut\par}\setraw@@}%
\edef\temp@macro{%
   \noexpand\long\noexpand\def\noexpand\setraw@@\noexpand##1^^M##2%
     \esc@  unsetraw{##1##2\noexpand\egroup}}\temp@macro %
\catcode`\^^M=5\relax%

 
\font\ninerm=cmr9  \font\eightrm=cmr8 
\font\ninei=cmmi9  \font\eighti=cmmi8 
\font\ninesy=cmsy9 \font\eightsy=cmsy8 
\font\ninebf=cmbx9 \font\eightbf=cmbx8 
\font\ninett=cmtt9 \font\eighttt=cmtt8 
\font\nineit=cmti9 \font\eightit=cmti8 
\font\ninesl=cmsl9 \font\eightsl=cmsl8 

\font\sixrm=cmr6
\font\sixi=cmmi6
\font\sixsy=cmsy6
\font\sixbf=cmbx6
        
\skewchar\ninei='177  \skewchar\eighti='177  \skewchar\sixi='177
\skewchar\ninesy='60  \skewchar\eightsy='60  \skewchar\sixsy='60
\hyphenchar\ninett=-1 \hyphenchar\eighttt=-1 \hyphenchar\tentt=-1

\font\tentex=cmtex10
\font\inchhigh=cminch
\font\titlefont=cmssdc10 at 40pt   % titles in chapter openings 
\font\eightss=cmssq8               % quotations in chapter closings 
\font\eightssi=cmssqi8             % ditto, slanted 
\font\tenu=cmu10                   % unslanted te~t italic 
\font\manual=manfnt                % METAFONT logo and special symbols 
\font\magnifiedfiverm=cmr5 at 10pt % to demonstrate magnification

\newskip\ttglue
\def\eightpoint{\def\rm{\fam0\eightrm}% switch to 8-point type
  \textfont0=\eightrm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
  \textfont1=\eighti  \scriptfont1=\sixi  \scriptscriptfont1=\fivei
  \textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
  \textfont3=\tenex   \scriptfont3=\tenex \scriptscriptfont3=\tenex
  \textfont\itfam=\eightit  \def\it{\fam\itfam\eightit}%
  \textfont\slfam=\eightsl  \def\sl{\fam\slfam\eightsl}%
  \textfont\ttfam=\eighttt  \def\tt{\fam\ttfam\eighttt}%
  \textfont\bffam=\eightbf  \scriptfont\bffam=\sixbf
   \scriptscriptfont\bffam=\fivebf  \def\bf{\fam\bffam\eightbf}%,
  \tt \ttglue=.5em plus.25em minus.15em
  \normalbaselineskip=9pt
  \setbox\strutbox=\hbox{\vrule height7pt depth2pt width0pt}%
  \let\sc=\sixrm  \let\big=\eightbig  \normalbaselines\rm}


%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%
%
% END OF EXTRA MACROS AND FONTS
%
%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%




\catcode`\@=11\relax
\PAGENO=1
\voffset=-0.3in


\ifx\pageno\undefined
\errmessage{Please run TeX if you want this article on how to use
<formlett.sty> to be processed as well!}
\fi


\parindent=0pt
\hsize=469.75499pt  % the default
\vsize=9.6in %8.83in

\def\makefootline{\baselineskip=24pt \line{\the\footline}}
\footline={\lower5pt
\hbox to \hsize
 {{\rm Jiang Z ~~~{\sl Formlett: ~for letters to multiple receivers} 
\hss \folio}}}

\leftline{\hbold FORMLETT: ~~~for Letters to Multiple Receivers}
\bigskip


{\advance\leftskip by13mm \overfullrule=0pt
\advance\rightskip by 20mm %28mm
\sl
\noindent Zhuhan JIANG\par
\noindent Department of Mathematics Statistics and Computing Science,
 University of New England, Armidale N.S.W. 2351, Australia. 
{\sl ~~Email}:~zhuhan@neumann.une.edu.au\par
\medskip 
\rm\smooth
\noindent (Completed on 12 November 1993)\par
\medskip

\noindent 
In this article, the author explains how to use a form-letter 
style {\tt formlett.sty}, designed for both \TeX\ and \LaTeX 
\ users. {\tt formlett.sty} supports different parameter input 
methods, parameter naming and defaulting mechanism, as well as 
facilities for previewing parameter positions and printing 
labels. It is written for the purpose of being powerful, robust 
and above all easy to use.\par } 


\begincolumns

{\lbold Introduction}

\smallskip

In this modern world of ours, we often need to send a set of form 
letters, personalised or non-personalised, to many receivers at 
the same time. Or perhaps we would like to have a collection of 
business letters or information brochures which we would like to 
call upon {\sl instantly} whenever we need them.  

\medskip

Our purpose here is therefore to describe a comprehensive 
implementation of such a macro system, handling form letters 
under \TeX\ or \LaTeX. The main objective is to provide an easy 
way to output many form letters with  their own parameters, with 
or without the use of multiple files. There will be a coherent 
and simple format for putting parameters inside a form letter, 
with a number of helping facilities for such as naming parameters 
and previewing their positions. A minimum support for printing 
mailing labels is also provided.


\medskip 

The concept of macros [1] for form letters is not new: there 
already exist macros in this connection such as {\tt merge}, {\tt 
textmerg} and {\tt address} to name a few, see [2,3] for further 
details. Our stress here is therefore laid on the ease to use, 
along with the power and the robustness of the macros. 

\bigskip
{\lbold Format}

\smallskip 

In this section, we always assume that the file {\tt formlett.sty} 
or {\tt formlett.tex} of version {\tt 2.0} has 
already been input. Certain version of {\tt formlett.sty} can be 
obtained via anonymous ftp from CTAN sites at
{\tt macros /latex /contrib /misc}.

\medskip 

Essentially, each form letter, or letter format or letter 
template, will be included between {\tt \string\beginletter} and 
{\tt \string\endletter}. Letter parameters that will be specified 
later on for each particular letter can be given by {\tt 
\string\paras[<m>][<n>]}, representing the {\tt <m>}-th parameter 
of the {\tt<n>}-the parameter group, at the positions you want 
them to be. Let a cluster denote a complete collection of 
parameters that may be specified for a form letter. Then we can 
specify letter parameters group by group for a cluster such that 
inside each group the parameters are given {\sl sequentially} and 
a termination of one group should not affect the 
resynchronisation for the next group. For instance we can keep 
the address of a receiver as a single group, as it often contains 
different number of (parameter) lines. 


\medskip 
We often want to treat a particular group of letter 
parameters somewhat uniformly. This can be achieved by one of the 
following commands 

\setraw  
  \blockparas[<m>][<n>][<pre>][<post>]
  \addressparas[<m>][<n>][<width>][<indent>]
\unsetraw

They represent parameters in the {\tt<n>}-th group, from the {\tt 
<m>}-th to the last parameter of that group. For {\tt 
\string\blockparas}, tokens {\tt <pre>} and {\tt <post>} are 
those to be added in front and behind respectively each of the 
legitimate parameters mentioned above. If {\tt <post>} is 
{\tt\string\relax}, it will then not be appended at the end. 
Instead, each chosen parameter will be put into a {\tt $\{\}$}-
pair before preceded by the token {\tt <pre>}. The reason for 
this exception is that while {\tt <pre> and <post>} are meant to 
be the front and end macros for each selected parameter, in the 
case of {\tt <post>} being {\tt \string\relax}, we may regard 
{\tt<pre>} as {\sl acting upon} each chosen parameter. 


\medskip 
The command {\tt \string\addressparas}, however, uses 
{\tt \string\blockparas} indirectly and will put the chosen 
parameters into a box of width {\tt<width>}. If any selected 
parameter is longer than {\tt<width>}, then the line will be 
wrapped around, with all wrapped potions being indented by an 
{\tt<indent>}. This may be used to deal with very long address 
lines. Incidentally, we may use {\tt \string\figbox} or {\tt 
\string\addressbox} or {\tt \string\ADDRESSBOX} to control the 
width of a single parameter. The general format reads 


\setraw
  \figbox[<width]{<materials>}
  \addressbox[<width>][<indent>]{<materials>}
  \ADDRESSBOX{<width>}{<indent>}{<materials>}
\unsetraw

where the meaning of the macro parameters are self-explanatory. 


\medskip

For the macro parameters, we have for convenience provided the 
following defaults for those in the squared brackets

\setraw
  <m>=1
  <n>=1
  <pre>=\noindent
  <post>=\par  
  <width>= 8truecm
  <indent>= 1.5em           
\unsetraw

This way, for instance, {\tt\string\paras[1][1]} is equivalent 
to any of the following commands

\setraw
  \paras, \paras[1], \paras[][1], 
  \paras[1][], \paras[][] 
\unsetraw

and the following three commands are also the same

\setraw
  \addressbox{one address line}
  \addressbox[8truecm]{one address line}
  \addressbox[][1.5em]{one address line}
\unsetraw


\medskip

Incidentally this is the reason why we used the second parameter 
{\tt<n>} to represent the group number: the defaults can often be 
dropped off more frequently. By default, all letter parameters 
specified will be put into a group environment before putting 
them into the form letter, unless {\tt \string\localparasfalse} 
is issued beforehand. 

\medskip 
To output a new letter entity, i.e a complete letter, 
we may use 


\setraw
  \moreletter 
    para-1-1;para-1-2;para-1-3; ...
   +para-2-1;para-2-2;...
   +   ...
   +para-n-1;para-n-2; ... ;para-n-m !  
\unsetraw


where \lq{\tt ;}\rqs separate parameters inside a same group, 
\lq{\tt +}\rqs separates groups, \lq{\tt !}\rqs ends a cluster of 
parameters, and \lq{\tt ...}\rqs represent further letter 
parameters. These three tokens are nothing special: we may change 
them  to for instance \lq{\tt ....}\rq, \lq{\tt ----}\rqs and 
\lq{\tt ====}\rqs respectively by {\tt \string\blockmarks}, and 
change them back to \lq{\tt ; + !}\rqs by {\tt 
\string\defaultmarks}.  For more general case, use 

\setraw
  \delimiters{<A>}{<B>}{<C>}
\unsetraw

where {\tt <A>}, {\tt <B>} and {\tt <C>} are the new toks 
replacing \lq{\tt ; + !}\rqs respectively. If we have to use 
these three special characters or tokens inside our {\sl letter 
parameters}, then use {\tt \string\pstr}, {\tt\string\gstr} and 
{\tt\string\cstr} respectively instead.  

\medskip

For the case of many clusters, we may enclose them, separated by 
any white spaces or empty lines, between {\tt 
\string\beginpilemode} and {\tt \string\endpilemode} so that we 
don't have to put {\tt \string\moreletter} in front of each 
cluster of parameters. 


\medskip
We may also enter letter parameters line by line. In other words, 
we may essentially replace \lq{\tt;}\rqs in the {\tt 
\string\moreletter} format by a normal line break. In this case, 
we shall put  clusters of parameters between {\tt 
\string\beginblockmode} and {\tt \string\endblockmode}.  Thus the 
following commands 


\setraw
  \beginblockmode
     <para-1-1> 
     <para-1-2> 
       +       letter one

     <para-2-2>  
       !  

     <addr-1-1>  
     <addr-1-2>  
       !       letter two 
  \endblockmode       
\unsetraw


will produce the required form letter for each cluster of 
parameters. The general rules are as follows: 

{\parindent=1.5em
\item{$\bullet$} If a line contains {\tt \string\endblockmode} or {\tt !} 
or {\tt +}, then everything else on that line is ignored and that 
line serves as an end/cluster/group marking line in the given
priority order.  

\item{$\bullet$} Leading and trailing empty lines before or after 
a complete cluster will be ignored, unless \lq{\tt ;}\rqs is 
there to force the next (empty) line as a starting parameter.  
\par }

Obviously {\tt \string\blockmarks} provides a more sensible 
delimiters for the {\tt blockmode}, under which we could have

\setraw
  \blockmarks\beginblockmode
    .......    force next empty line active

   <para-1-2>
   ------- -  mark end of 1st group

   <para-2-2>
   <para-2-3>
   ========   end of cluster

   <other clusters>
  \endblockmode
\unsetraw

\medskip 
A simpler and perhaps more often encountered scenario is 
to use names and addresses only. In this case, there will be 
essentially only {\sl one} group of parameters for each cluster. 
Thus we may use empty lines to delimit the clusters, and use line 
by line mode for the individual parameters. This way, each 
block of consecutive nonempty lines in 

\setraw
  \beginlinemode
    <name-1>
    <address-1-1>
    <address-1-2>

    <name-2>
    <1st part of addr-2-1>  % 
    <continued part of line addr-2-1>
        
    <name-3>      % letter three
  \endlinemode      
\unsetraw


will output a new complete letter, corresponding to the specified 
letter parameters. 


\medskip
{\smooth
Ideally, the name--address entries will be produced by a database 
utility. Since they often contain special characters such as \lq 
{\tt \#}\rqs and \lq{\tt \$}\rqs explicitly, we may wish to 
change such characters in the parameters to the normal printable 
ones. For this purpose, we could use correspondingly the pair 
{\tt \string\beginrawblockmode$\{$<token>$\}$} with {\tt 
\string\endrawblockmode} or the pair {\tt 
\string\beginrawlinemode$\{$<token>$\}$} with {\tt 
\string\endrawlinemode}. If {\tt <token>} is not empty, then we 
use {\tt <token>} in place of {\tt \string\endrawblockmode} or 
{\tt \string\endrawlinemode}. In other words, {\tt <token>} is 
the password to leave the raw text mode.  Since database utility 
will in general produce a {\sl fixed} number of {\tt <m>} lines 
for each cluster of parameters, we may use {\tt 
\string\begindatamode[<token>]$\{$<m>$\}$} and {\tt 
\string\enddatamode} (or {\tt<token>}) in place of {\tt 
\string\beginrawlinemode} and {\tt\string\endrawlinemode} so that 
each {\tt<m>} raw text lines, including the empty ones, will eject 
a form letter. 
}


\medskip

It is often desirable that a letter form or format and the actual 
parameters be kept in different files: it will help in archiving 
and retrieving form letters. Furthermore, if a letter is quite 
long such that the \TeX\ can't hold it in the memory, then we 
{\sl have to} keep the letter content in a separate file. 
Essentially we need to save everything between 
{\tt\string\beginletter} and {\tt \string\endletter} into a 
separate file, say, {\tt letter.let}, then later on use 
{\tt\string\inputletter$\{$letter.let$\}$} to load in the letter 
format. Should one prefer to keep everything inside a {\sl single} 
file, however, he may use {\tt\string\beginfile [{\it 
password}]$\{${\it file.ext}$\}$} and {\tt\string\endfile} (or 
{\it password}) to create files such as {\tt letter.let} 
mentioned above as a temporary scratch file. We note that {\tt 
letter.let} will not contain {\tt\string\beginletter} and 
{\tt\string\endletter} as {\tt \string\inputletter} will add them 
properly for us. Also the extension {\tt .let} is preferred in 
this connection as it can indicate that this type of format file 
should not quite be regarded as the normal \TeX\ files.  

\medskip 

Likewise, it is also desirable to have a separate address or 
general letter parameter file. For the address file, we remark 
that we have to keep the pairing {\tt \string\beginlinemode} with 
{\tt \string\endlinemode} or {\tt\string\beginblockmode} with 
{\tt \string\endblockmode} inside the address file, if we are to 
use any of them for some content of that file. Moreover, an 
extension {\tt .adr} is recommended for such files. Thus for a 
letter format or template saved in {\tt letter.let}, we may 
choose {\tt letter.adr} as the name for the related address file.  

\medskip
After a letter format is completed for sometime, one may have 
difficulty in recalling what those parameters should refer to 
when using the form letter again. For this purpose, we provide 
a simple mechanism with {\tt\string\paranames} and {\tt 
\string\showparas}. To be more precise, if one puts {\tt 
\string\paranames\ name-1-1; ...; <etc>!} at the very beginning of 
the letter format, then one can use {\tt\string\showparas} 
outside to output a letter with its parameters replaced by their 
names. 

\medskip

An alternative way, or rather a way of highlighting the positions 
of the letter parameters is to use {\tt\string\preview}. Under 
{\tt\string\preview}, or {\tt \string\previewtrue}, all 
parameters given by {\tt\string\paras[<m>][<n>]} will be boxed 
with double borderlines, similar to {\tt \previewtrue 
\paras[3][2]}, the number {\tt<n>-<m>} inside (corresponding to 
{\tt 2-3} in the shown box) denotes the {\tt<m>}-th parameter of 
the {\tt <n>}-th group. However, the parameters given by 
{\tt\string\blockparas} or {\tt\string\addressparas} will be 
boxed with triple borderlines. Moreover, the macro parameters 
{\tt<pre>} and {\tt <post>} will also be displayed explicitly. 
Since {\tt\string\addressparas} is essentially a special way of 
using {\tt\string\blockparas}, it is highlighted via that for the 
{\tt\string\blockparas}. In particular, 
{\tt\string\blockparas[3][6][\string\x][\string\y]} for instance 
will display under {\tt \string\preview} the following box 

\smallskip
{\previewtrue  \blockparas[3][6][\x][\y]}


\medskip 

Sometimes we may want to have each given {\sl empty} letter 
parameter automatically replaced by a particular {\sl default} 
parameter. This can be easily done by using {\tt 
\string\loaddefaultparas} inside your letter format, i.e. 
essentially between {\tt \string\beginletter} and {\tt 
\string\endletter}, before any calling of the letter parameters 
via {\tt \string\paras} etc.  Of course, the effect of {\tt 
\string\loaddefaultparas} is nil unless a command {\tt 
\string\paradefaults} is issued inside or (better still) outside 
the letter format. We note that {\tt \string\paradefaults} takes 
the macro parameters in the exact way as {\tt \string\paranames} 
does. One note of caution: {\tt \string\paradefaults} and {\tt 
\string\paranames} always use the default delimiters \lq{\tt ; + 
!}\rqs no matter how you changed them via {\tt 
\string\delimiters}. This is to avoid unnecessary complications. 

\medskip

We note that printing labels is no more than designing a special 
letter template. The mechanism provided in {\tt formlett} however 
is to pick a subblock of parameters as the address. Basically all 
the form letter output inside {\tt\string\beginlabels} and 
{\tt\string\endlabels} will produce labels instead, taking the 
first parameter group as the address by default (see Appendix for 
more details). Incidentally, labels can be printed in single or 
double columns depending upon the choice of label width. 

\medskip

To conclude this section, we remark that if you want to put {\tt 
\string\input\ {\sl filename} } into a letter parameter, make 
sure that there is a {\sl nontrivial} space following the {\sl 
filename}. To be on the safe side, always use {\tt 
\string\inputfile $\{$\sl filename.ext$\}$} instead. Also {\tt 
<!>}, when output to screen, is an invitation to read the log 
file for a warning message. 

\bigskip
{\lbold Example}


\smallskip

The following is an example. If you are running plain \TeX, add 
{\tt\string\input\ formlett} at the top. But if you are running 
\LaTeX, then just add at the top the line 

\linecount=1\relax
\stt\beginrawlist[][][4][][][3.3in]{}
  \documentstyle[formlett]{article} 
  \begin{document}
\endrawlist
\rm



The line numbering on the right hand side is for reference only, 
as in the other occurrences later on. The example reads as 
follows. 

\medskip

\stt\beginrawlist[][][4][][][3.3in]{}
  \beginletter
  \paranames             % optional
    \tt<<FULL NAME>>;%
    \tt<<ADDRESS-etc>>;%
   +\tt<<GIVEN NAME>>;%
    \tt<<MISSING ITEM>>;%
    \tt<<PHONE NUMBER>>!  
  \loaddefaultparas      % optional

  \NOPAGENUMBERS\parindent=0pt
  \noindent{\it\paras[1]}\par
  \blockparas[2]\par\bigskip

  Dear \paras[1][2],\par\medskip 
  We have been looking for 
  \paras[2][2] for quite a while 
  without any luck, could you help 
  us out? If so, please ring 
  \paras[3][2]. \par\medskip 
  Cheers!\hfill Michael\vfill\eject
  \endletter
  \preview \showparas 
\endrawlist
\rm


\medskip

%%%%%%%%%%%%
% letter top
%%%%%%%%%%%%

  \beginletter
\sl
\hsize=3.1in\relax
\medskip
  \paranames             % optional
    \tt<<FULL NAME>>;%
    \tt<<ADDRESS-etc>>;%
   +\tt<<GIVEN NAME>>;%
    \tt<<MISSING ITEM>>;%
    \tt<<PHONE NUMBER>>!  
  \loaddefaultparas      % optional

  \NOPAGENUMBERS\parindent=0pt\overfullrule=0pt
  \noindent{\it\paras[1]}\par
  \blockparas[2]\par\medskip

  Dear \paras[1][2],

  \smallskip 
  We have been looking for 
  \paras[2][2] for quite a while 
  without any luck, could you help 
  us out? If so, please ring 
  \paras[3][2]. \par\medskip 
  Cheers!\hfill Michael\par %\vfill\eject
\medskip
  \endletter

%%%%%%%%%%%%
% letter end
%%%%%%%%%%%%


The above is a typical letter format or form letter. Command 
{\tt\string\preview} in the last line gives

{\preview}

and, the name of the parameters are displayed via
{\tt\string\showparas} as follows

\showparas


\medskip

In other words, we can have a good understanding about what a 
letter format does {\sl without} reading its source code, which 
will be very handy for archiving and retrieving letter templates. 
To provide defaults for letter parameters and output new letters 
via {\tt blockmode}, we may add \par 

\medskip
\stt\beginrawlist[][][4][][][3.3in]{}
  \paradefaults       % optional
    To whom this may concern
   +Sir or Madam;something;%
    061-225-9905!
 
  \blockmarks
  \beginrawblockmode{}

  Mrs L Stenson
  #1-20 Sunset Street
  Hillside, Norway
  ------
  Louise
  a Bible
  220-8888
  =========

  ......

  Above empty line active

  \endrawblockmode
\endrawlist
\rm

%%%%%%%%%%%%
% 1st letter top
%%%%%%%%%%%%
\paradefaults       % optional
 To whom this may concern
+Sir or Madam;something;%
 061-225-9905!
 
%%%%%%%%%%%%
% 1st letter end
%%%%%%%%%%%%

\medskip 
We note the parameters contain special characters \#.  That is 
the reason why we used {\tt\string\beginrawblockmode}. Now 
suppose we have to wrap a very long address line, we could use 
{\tt \string\addressbox} to control an {\sl individual} 
parameter. The following is a typical case 

\medskip
\stt\beginrawlist[][][4][][][3.3in]{}
  \defaultmarks
  \moreletter
     S Wales,;%
     \addressbox[2in][1em]{%
     University of Manchester Institute 
     of Science and Technology, This is 
     a long address line: it will be 
     wrapped up automatically.}%
   +;a \TeX\ package \gstr\ manual and 
     many more (\cstr)!   
\endrawlist
\rm

\medskip
which is manifested in the following output

%%%%%%%%%%%%
% 2nd letter top
%%%%%%%%%%%%
\defaultmarks
\moreletter
 S Wales,;%
 \addressbox[2in][1em]{%
 University of Manchester Institute 
 of Science and Technology, This is 
 a long address line: it will be 
 wrapped up automatically.}%
+;a \TeX\ package \gstr\ manual and 
 many more (\cstr)!   
%%%%%%%%%%%%
% 2nd letter end
%%%%%%%%%%%%


\medskip 

Please note that the default parameters have been used there. In 
the case of putting {\sl only} name and address into a form 
letter, we may typically use {\tt linemode} via e.g. 

\medskip
\stt\beginrawlist[][][4][][][3.3in]{}
  \beginlinemode
    Z Jiang
    UNE, Arimdale

    T Ribbons
    UMIST, Manchester
  \endlinemode
  \end{document}   
\endrawlist
\rm

\medskip

If one saves lines 4-22 to file {\tt myletter.let}, lines 25-63 
or simply lines 57-63 to file {\tt myletter.adr}, then we can for 
instance produce via \LaTeX\ the form letter for multiple 
receivers by 

\setraw
  \documentstyle[formlett]{article}
  \begin{document}
  \inputletter{myletter.let}
  \showparas \preview 
  \paradefaults To whom it may concern!
  \inputfile{myletter.adr}
  \beginlabels % 1st parameter group as address
  \inputfile{myletter.adr} % for labels 
  \endlabels
  \end{document}  
\unsetraw

{\smooth

If one puts commands {\tt\string\beginlables} and 
{\tt\string\endlabels} at e.g. immediately after line 2 and 63 
respectively, then one gets all the posting labels instead. If 
one puts commands {\tt\string\beginfile$\{$scratch.adr$\}$} and 
{\tt\string\endfile} there respectively, then by adding after 
{\tt\string\endfile} the commands 

\setraw
  \inputfile{scratch.adr}
  \beginlabels \inputfile{scratch.adr} \endlabels 
\unsetraw

one gets both form letters and the labels. If one insists on not 
writing out auxiliary scratch files, then use {\tt \string\input
\ formlett.sty \string\initlabels\ [{\it styles}]$\{${\tt 
article}$\}\{${\it preamble}$\}$} to replace {\tt 
\string\documentstyle\ [formlett, {\it styles}]$\{$article$\}$ 
{\it preamble} \string\begin$\{$document$\}$}, which will be 
valid for \LaTeX\  but ignored for \TeX\ , and will enable one to 
use {\tt \string\labelsquit} at the end to read in the current 
document again with all the letters there converted into the 
corresponding labels. If you only want to execute certain 
commands the first time round (i.e. before {\tt 
\string\labelsquit} re-reads the file again), use {\tt 
\string\firstread$\{${\it commands}$\}$} for this purpose. 

} 


\bigskip
{\lbold Macros}


\smallskip

One of the main technical features of this set of macros is the 
extensive use of arrays, both one dimensional and two 
dimensional. The one dimensional array {\tt STK} that we use is 
essentially an user-defined stack, while the two dimensional 
arrays {\tt LET} and {\tt DEF} are more like structure or record 
in other programming languages. First let us make clear that an 
array (or stack) of name, say {\tt ABC}, will contain elements 
{\tt \string\ABC\it m\tt\t} for one dimensional and {\tt 
\string\ABC\it m\tt*\it n\tt\t} for two dimensional case, where 
$m$ and $n$ are some non-negative integers representing row and 
column numbers respectively. The first element, if necessary, 
will be used to denote the length of that raw. Thus, {\tt 
\string\ABC1*0\t} for instance will denote the number of elements 
in the first raw of a two dimensional array {\tt ABC}. 


\medskip 

Let us now look at how a mechanism of defaulting {\sl macro} 
parameters is formulated. For this purpose, we first define a 
stack {\tt STK} and its stack pointer {\tt \string\STKcount} by 

\setraw
  \def\make@STKcount{\csname newcount\endcsname
    \STKcount\global\STKcount=0\relax}
  \ifx\STKcount\undefined@\def\next{%
    \make@STKcount}\else\def\next{}\fi\next 
  \long\def\push#1{\global
    \advance\STKcount1\relax
    \expandafter\gdef\csname STK\the
    \STKcount\string~\endcsname{#1}}
  \def\popnil{\expandafter\let
    \expandafter\temp@macro\csname 
     STK\the\STKcount\string~\endcsname
    \ifnum\STKcount>0\global\expandafter
      \let\csname STK\the\STKcount
      \string~\endcsname=\undefined@
      \global\advance\STKcount-1%
    \else 
      \def\temp@macro{}\global\STKcount=0%
    \fi\relax } 
  \def\pop{\popnil\temp@macro} 
\unsetraw


The first four lines of code will ensure that the stack pointer 
will not be flushed if this useful subset of macros is loaded 
again by for instance another style file in the middle of a \TeX
\ document. With the above code, we can stack away anything by 
{\tt\string\push$\{anything\}$} and later use {\tt \string\pop} 
to recall them or {\tt \string\popnil} to remove one element from 
the stack. 


\medskip 
So, how can we make defaults for certain empty macro 
parameters? The simplest case is perhaps 


\setraw
  \long\def\get@nepara[#1][#2]{{%
    \def\next@{#2}%
    \ifx\next@\empty\push{#1}\else
    \push{#2}\fi}\ag@in}
  \long\def\get@para\left@#1\right@{%
    \def\check@{%
    \ifx[\next@ 
    \def\full@####1{\get@nepara[#1]####1}%
    \else 
    \def\full@{\get@nepara[#1][#1]}\fi
    \full@}%
  \futurelet\next@\check@}  
\unsetraw



Basically, {\tt\string\get@onepara[<A>][<B>]} will push the 
default {\tt <A>} to the stack {\tt STK} unless {\tt <B>} is 
nonempty. And {\tt\string \get@para\string \left@<A>\string 
\right@} will look at the next token to be read, if it is 
character \lq{\tt[}\rq, then reads in a macro parameter in the 
form of {\tt [<B>]} and then push {\tt <B>} to the stack {\tt 
STK}, otherwise push the default {\tt <A>} to that stack. For the 
more general case, we need to define 


\setraw
  \long\def\do@nepara
    \left@#1\right@#2\p@r@end{%
    \gdef\p@r@data{#2}\global\advance
    \p@r@count1\get@para\left@#1\right@}
  \def\ag@in{\ifx\p@r@data\empty 
    \def\next@{\relax\getp@r@s\run@CMD}%
    \else\def\next@{\expandafter\do@nepara
         \p@r@data\p@r@end}%
    \fi\next@}
  \def\run@CMD{\csname STK\the\STKcount
    \string~\endcsname}
  \newcount\p@r@count
  \long\def\st@ckparas#1\p@r@end{%
    \global\p@r@count=0%
    \gdef\p@r@data{#1}\ag@in} 
\unsetraw


so that {\tt\string\st@ckparas \string\left@<A>\string\right@ 
...\penalty -20 \string\left@<B>\string\right@ ... 
\string\p@r@end} will look for parameters enclosed in {\tt []} 
one by one, exhausting all the defaults paired by 
{\tt\string\left@} and {\tt \string\right@}. If future tokens 
inside {\tt []} are not found, or empty, the default tokens 
inside the corresponding pair {\tt\string\left@ \string\right@} 
will be used. The new or default tokens will be pushed to the 
general-purpose stack {\tt STK} for a later use, while {\tt 
\string\p@r@count} records the total number of the default macro 
parameters. We note that on exit of {\tt \string\st@ckparas}, the 
control is passed to {\tt\string\runCMD}. 

\medskip
Once all macro parameters are pushed to the stack, we may 
transfer them to separate toks {\tt \string\p@r@one} to {\tt 
\string\p@r@nine} (an easier-to-use format) defined by

\setraw
  \newtoks\p@r@one\newtoks\p@r@two 
  \newtoks\p@r@three\newtoks\p@r@four
  \newtoks\p@r@five \newtoks\p@r@six
  \newtoks\p@r@seven\newtoks\p@r@eight
  \newtoks\p@r@nine
  \def\clrp@r@s{\global\p@r@one={}%
   \global\p@r@two={}\global\p@r@three={}%
   \global\p@r@four={}\global\p@r@five={}%
   \global\p@r@six={}\global\p@r@seven={}%
   \global\p@r@eight={}\global\p@r@nine={}}
\unsetraw

where {\tt\string\clrp@r@s} clears all the parameter toks. We can 
then retrieve parameters from the stack {\tt STK} to the 
parameter toks via {\tt\string \getp@r@s} with the following code 


\setraw
  \newcount\temp@count
  \def\getp@r@s{\temp@count=\p@r@count
  {\loop
   \ifnum\temp@count>0
   \expandafter\let\expandafter
   \t@macro\csname STK\the\STKcount
     \string~\endcsname
   \ifcase\temp@count
   \or\global\p@r@one=\expandafter{\t@macro}%
   \or\global\p@r@two=\expandafter{\t@macro}%
   \or\global\p@r@three=\expandafter{\t@macro}%
   \or\global\p@r@four=\expandafter{\t@macro}%
   \or\global\p@r@five=\expandafter{\t@macro}%
   \or\global\p@r@six=\expandafter{\t@macro}%
   \or\global\p@r@seven=\expandafter{\t@macro}%  
   \or\global\p@r@eight=\expandafter{\t@macro}%
   \or\global\p@r@nine=\expandafter{\t@macro}%
   \else
    \errmessage
    {Parameter capacity exceeded.}% 
   \fi \global\expandafter\let
   \csname STK\the\STKcount
   \string~\endcsname=\undefined@%
   \global\advance\STKcount-1%
   \global\advance\temp@count-1\relax
   \fi
   \ifnum\temp@count>0\repeat}}
\unsetraw



\medskip 
We are now ready to use the above mechanism to default 
macro parameters for some already defined macros. Suppose we have 
already defined a macro {\tt \string\crudemac[<A>][<B>]} which 
takes two macro parameters {\tt <A>} and {\tt<B>}, and we want to 
define a new macro {\tt \string\smartmac} which behaves like {\tt 
\string\crudemac} but will default the macro parameters {\tt <A>} 
and {\tt <B>} to for instance 9 and 88 respectively. For this 
purpose, we may define {\tt \string\smartmac} via 



\setraw
  \def\smartmac{\push{%
   \edef\next@@{\noexpand
   \crudemac[\the\p@r@one][\the\p@r@two]}%
   \popnil\clrp@r@s\next@@}\st@ckparas
   \left@9\right@\left@88\right@\p@r@end} 
\unsetraw

This way, all the followings

\setraw
  \crudemac[9][88], \smartmac[9][88],
  \smartmac, \smartmac[], \smartmac[][], 
  \smartmac[9], \smartmac[9][], \smartmac[][88] 
\unsetraw

are the same under the assumption that we shall not use 
characters \lq{\tt[}\rqs and \lq{\tt]}\rqs for the macro 
parameters themselves, and that {\tt\string\crudemac} will not 
change any {\tt \string\catcode} inside. The reason for this 
latter condition lies in the fact that when {\tt\string\smartmac} 
looks at the next character, the character is in a sense already 
read. If {\tt \string\crudemac} changes the {\tt\string\catcode} 
of that particular character, then the one that is already read 
via {\tt\string\futurelet} will have a misleading 
{\tt\string\catcode}. If one has to change {\tt \string\catcode} 
inside but wants to avoid this possible misbehavior, always put 
full number of empty brackets \lq{\tt[]}\rqs for the defaults, or 
put a {\tt\string\relax} immediately afterwards. Better still,
make the last parameter to appear in a mandatory \lq$\{\}$\rqs form
rather than the \lq{\tt []}\rqs form via the {\tt \#$\{$} mechanism 
[1], so that those square brackets can be dropped off.


\medskip


For example, we as a by-product also defined a 100\% 
verbatim mode by

{\stt
\ \ \string\begin@@rawlist[$A$][$B$][$C$][$D$][$E$][$F$]$G$ }\par
\setraw
   <general text>
  \endrawlist
\unsetraw


where, for the line numbering of the raw text, {\tt $A$}, ..., 
{\tt $G$} represent respectively the initial value, increment 
step, number of digits, font, horizontal position of text, 
horizontal shift of numbering, and the password to leave raw text 
mode. Incidentally, {\tt \string\linecount} records the current 
line numbering count. Our purpose is to define {\tt 
\string\beginrawlist} so that its format is 

{\stt 
\ \ \string\beginrawlist[$A$][$B$][$C$][$D$][$E$][$F$]$\{G\}$}\par

in which $A$ to $F$ are {\sl optional} while $\{G\}$ is mandatory 
even though $G$ can be empty --- implying {\tt 
\string\endrawlist} is the password to leave the raw-text mode. 
For this purpose, we first define 

\setraw
\def\begin@rawlist[#1][#2][#3][#4][#5][#6]#{%
    \begin@@rawlist[#1][#2][#3][#4][#5][#6]}%
\unsetraw

to make \lq$\{\}$\rqs pair compulsory for {\tt \#7}, then we 
provide the defaults for {\tt $A$} to {$F$} as 
{\tt\string\linecount}, {\tt 1}, {\tt 0}, {\tt \string\tiny}, 
{\tt 0pt} and {\tt 0pt} respectively via 

\setraw
\def\beginrawlist{\push{%
 \edef\next@@{\noexpand\begin@rawlist
 [\the\p@r@one][\the\p@r@two][\the\p@r@three]%
 [\the\p@r@four][\the\p@r@five][\the\p@r@six]}%
 \popnil\clrp@r@s\next@@}%  end of push
 \font\tiny@rm=cmr5%
 \edef\temp@macro{%
  \noexpand\left@\the\linecount\noexpand\right@
  \noexpand\left@1\noexpand\right@
  \noexpand\left@0\noexpand\right@
  \noexpand\left@\noexpand\tiny@rm
           \noexpand\right@
  \noexpand\left@0pt\noexpand\right@ 
  \noexpand\left@0pt\noexpand\right@}%
  \expandafter\st@ckparas\temp@macro\p@r@end}%
\unsetraw

\medskip

{\smooth
\relax Likewise, we could also similarly define {\tt \string\printfile 
[...]}$\{${\it filename.ext}$\}$ so that \lq{\tt [...]}\rqs takes 
a same defaulting scheme. }


\medskip
There are several tiny but very useful macros in {\tt formlett} 
which are used again and again. One of such macros is for testing
if one string contains another string. The following {\tt 
\string\test@str} tests if string {\tt\#1} is contained in string 
{\tt\#2}


\setraw
  \newif\iftemp@if \newtoks\temp@toks
  % return \temp@iftrue if yes, 
  %  \first@half,\second@half are global
  \long\def\test@str#1#2{%
    \long\def\strip@endmark##1\s@fetymarkI
      #1\s@fetymark{\gdef\second@half{##1}}%
    \long\def\strip@markI##1\s@fetymarkI
      \s@fetymark{\gdef\first@half{##1}}%
    \long\def\p@rse##1#1##2\s@fetymark{%
      \gdef\first@half{##1}%
      \gdef\second@half{##2}%
      \ifx\second@half\empty 
       \strip@markI##1\s@fetymark\temp@iffalse
      \else
       \strip@endmark##2\s@fetymark\temp@iftrue
      \fi}%
    \temp@toks={#2\s@fetymarkI#1\s@fetymark}%
    \expandafter\p@rse\the\temp@toks }%
\unsetraw


The {\tt\string\first@half} will contain the tokens upto but 
excluding the substring {\tt\#1}, while the {\tt 
\string\second@half} will contain the tokens after the {\sl 
first} appearance of {\tt\#1}. Should {\tt\#2} not contain string 
{\tt\#1} at all, then {\tt \string\first@half} is the whole 
string {\tt\#2} whereas {\tt \string\second@half} is empty.

\medskip

The small macros such as the above one and the stack utilities, 
though built for the main purpose of {\tt formlett}, provide also 
a good \lq infrastructure\rqs for other house-keepings. One of 
the sidekicks of this type is our macro for commenting out blocks 
of text inside a \TeX\ file. Basically, {\tt 
\string\begincomment$\{$\it password$\}$} will set {\sl all} 
characters of code {\tt0} to {\tt \string\MAX@CHR@CODE} 
(={\tt255} by default) to catcode 11 or 12, and look for the {\it 
password}, or {\tt \string\endcomment} in the absence of a 
password, to quit the comment mode. In comparison to a very 
compact macro {\tt comment.sty} (currently at version 3.0)  
written by Victor Eijkhout, quitting comment mode via a password 
here seems more flexible. 




\medskip
As for the other macros in {\tt formlett}, it is difficult to 
explain them without printing out all of them. So instead, we 
shall explain simply one of the strategies in parsing the letter 
parameters. Suppose $W$ is a list of parameters separated by 
\lq{\tt+}\rqs and ended by \lq{\tt!}\rq, i.e. $W$ is like 
{\tt<A>+<B>+...+<S>!}. Then it will be easy to parse all the 
parameters one by one (to a stack for instance) if we can know 
whether there is precisely one parameter left over. To detect it, 
we use 



\setraw
  \newif\ifl@stline
  \long\def\testl@stline
    #1+#2!#3\s@fetymark{%
   \def\next{#2}\ifx\next\empty
   \l@stlinetrue\else\l@stlinefalse\fi
   \def\next{#3}\def\nextsample{+!}%
   \ifx\next\nextsample\l@stlinefalse\fi}
\unsetraw



{\smooth Then the command 
{\tt \string\testl@stline} {\tt $W$+!\string\s@fetymark } 
will set {\tt \string\l@stlinetrue} if 
there is only one parameter left in $W$, and will set {\tt 
\string\l@stlinefalse} if otherwise. }

 

\medskip 

Finally, for those wizard users who want to do everything their 
own way, we just note that if for instance the 3rd letter 
parameter of the 2nd group of a cluster is given as {\tt<A>}, 
then {\tt \string\LET2*3\t} will contain {\tt \string\b@group 
\string\relax {\tt<A>}\string\e@group} right after a cluster is 
read in. {\tt \string\DEF2*3\string~}, on the other hand, 
contains the corresponding default parameter in the same fashion. 
So if anyone wants 
to manipulate furthermore letter parameters inside a letter 
template, he or she will now at least know where to look at. 

%\penalty -50
\bigskip
{\lbold References}

\smallskip
{\parindent=2em
\item{[1].} Knuth D E, {\sl The \TeX book}, Reading, Mass., 
Addison-Wesley, 1992. \par 
\item{[2].} Piff M, Text merges in \TeX\ and \LaTeX, {\sl TUGboad},  
13(4):518, 1993. \par 
\item{[3].} Damrau J and Wester M, Form letters with 3-across 
labels capacity, {\sl TUGboat}, 13(4):510, 1991. 
\par 
}
   

\penalty -50\bigskip

{\lbold Appendix}



\smallskip


In the followings, we give a brief summary of the new commands 
given by {\tt formlett} version 2.0. 

\medskip

Let $m$ and $n$ be numbers, $p$, $q$ and $r$ be dimensions, $A$, 
$B$, $P$, $G$, $C$ and $T$ be tokens, and $X$ be a box. 
Furthermore, we shall denote by $R$ a full set of letter 
parameters ended by \lq{\tt !}\rq, with \lq{\tt;}\rqs separating 
parameters inside a same group and \lq{\tt+}\rqs separating 
different parameter groups. We moreover denote $R$ by $F$, when 
\lq{\tt ; + !}\rqs there can be replaced by \lq$P$ $G$ $C$\rqs 
respectively if {\tt \string\delimiters$\{P\}\{G\}\{C\}$} is 
issued. In the commands tabulated below, the macro parameters 
contained in squared brackets support default. In particular, the 
defaults are $m$={\tt 1}, $n$={\tt 1}, $p$={\tt 8truecm}, 
$q$={\tt 1.5em}, $r$={\tt 3pt}, $A$={\tt\string\noindent}, 
$B$={\tt\string\par}, {\tt\string\previewfalse}, 
{\tt\string\localparastrue} and {\tt\string\nodefaultsfalse}. 



\newdimen\tempdimone
\newdimen\tempdimtwo
\tempdimone=\hsize
\advance\tempdimone by-0.2pt
\tempdimtwo=\hsize
\advance\tempdimtwo by-1.8in
\def\hruler{\hrule width \tempdimone}
\long\def\entry#1#2{%
\par\hbox to \tempdimone{\noindent
       \vrule~\figbox[1.7in]{#1}~\hss
       \vrule~\figbox[\tempdimtwo]{\raggedright#2}~\vrule}%
       \par}

\long\def\longentry#1#2#3{%
\par\hbox to \tempdimone{\noindent
       \vrule~\figbox[3in]{#1}~\hss~\vrule}\par
        {\kern-8pt \advance\tempdimtwo0.10in
         \vrule width1.7in height0pt \vrule width\tempdimtwo height 0.4pt \par
         \kern-3pt}
        \entry{#2}{#3}}

\long\def\Longentry#1#2#3{%
\par\hbox to \tempdimone{\noindent
       \vrule~\figbox[3in]{#1}~\hss~\vrule}\par
       {\advance\tempdimtwo0.08in\kern-1pt
        \vrule~\hfill\vrule width \tempdimtwo height 0.4pt \vrule\par
        \kern-2.5pt}%
        \entry{#2}{#3}}



\bigskip \penalty-100   
{\eightpoint
\nointerlineskip\parskip=0pt

\hruler
\entry{{\tt\string\paras[$m$][$n$]}}%
  {$m^{th}$ parameter of $n^{th}$ group }%

\entry{{\tt\string\blockparas[$m$][$n$][$A$][$B$]}}%
  {$m^{th}$ to the last parameter of $n^{th}$ group, each 
preceded by $A$ and followed by $B$, wrapped by $\{$\penalty
1000$\}$ if 
$B$={\tt\string\relax}}

\entry{{\tt\string\addressparas[$m$][$n$][$p$][$q$]}}%
  {$m^{th}$ to the last parameter of $n^{th}$ group, each put 
into a box of width $p$ with indent $q$ for wrapped portions}


\entry{{\tt\string\loaddefaultparas}}%
  {fill empty parameters with defaults}

%\hruler \penalty-1000
\hruler


\entry{{\tt\string\moreletter\ $F$}}%
  {use parameters $F$ to output a new letter}


\entry{{\tt\string\paranames\ $R$}}%
  {use $R$ as parameter names}

\entry{{\tt\string\paradefaults\ $R$}}%
  {use $R$ as default parameters}

\hruler


\entry{{\tt\string\delimiters$\{P\}\{G\}\{C\}$}}%
  {use $P$, $G$, $C$ as delimiters}


\entry{{\tt\string\defaultmarks}}%
  {use \lq{\tt ; + !}\rqs as delimiters}


\entry{{\tt\string\blockmarks}}%
  {use \lq{\tt ....}\rq, \lq{\tt ----}\rq, \lq{\tt ====}\rqs as delimiters}

%\hruler \penalty -1000
\hruler

\entry{{\tt\string\preview}}%
  {highlight parameter positions}

\entry{{\tt\string\showparas}}%
  {display parameter names, if any}

\entry{{\tt\string\inputletter$\{file.ext\}$}}%
  {input letter content}

\entry{{\tt\string\inputfile$\{file.ext\}$}}%
  {input $file.ext$}

%\hruler \penalty -1000
\hruler


\entry{%
$\left\{\matrix{ \hbox{\tt\string\beginletter}\cr 
\hbox{\tt\string\endletter~~}\cr}\right.$ }%
  {delimiters for letter content (template)}

\entry{%
$\left\{\matrix{ \hbox{\tt\string\beginpilemode}\cr 
\hbox{\tt\string\endpilemode~~}\cr}\right.$ }%
  {normal letter parameters cluster-wise}


\entry{%
$\left\{\matrix{ \hbox{\tt\string\beginblockmode}\cr 
\hbox{\tt\string\endblockmode~~}\cr}\right.$ }%
  {for line-by-line blocks of parameters, empty lines active 
within each cluster}


\entry{%
$\left\{\matrix{ \hbox{\tt\string\beginlinemode}\cr 
\hbox{\tt\string\endlinemode~~}\cr}\right.$ }%
  {for line-by-line parameters, empty lines delimit clusters}

\hruler \penalty-1000
\hruler

\entry{%
$\left\{\matrix{ \hbox{\tt\string\beginrawblockmode$\{T\}$}\cr 
\hbox{\tt\string\endrawblockmode\ \ \ \ \ }\cr}\right.$ }%
  {raw text mode; nonempty $T$ replaces {\tt\string\endrawblockmode}
   to mark end}


\entry{%
$\left\{\matrix{ \hbox{\tt\string\beginrawlinemode$\{T\}$}\cr 
\hbox{\tt\string\endrawlinemode\ \ \ \ \ \ }\cr}\right.$ }%
  {raw text parameters and active spaces etc}

\entry{%
$\left\{\matrix{ \hbox{\tt\string\begindatamode[$T$]$\{m\}$}\cr 
\hbox{\tt\string\enddatamode\ \ \ \ \ \ \ \ }\cr}\right.$ }%
  {$m$ raw text lines for one form letter}

\hruler

\entry{%
$\left\{\matrix{ \hbox{\tt\string\begincolumns[$a$][$b$]}\cr 
\hbox{\tt\string\endcolumns\ \ \ \ \ \ \ }\cr}\right.$ }%
  {$a$-columns separted by distance $b$}


\entry{%
$\left\{\matrix{ \hbox{\tt\string\begincomment$\{T\}$}\cr 
\hbox{\tt\string\endcomment\ \ \ \ \ }\cr}\right.$\par
 \ \ \ {\tiny }}%
  {comment out lines, nonempty $T$ replaces {\tt 
\string\endcomment} to mark last {\sl full line} for comment}


\entry{%
$\left\{\matrix{ \hbox{\tt\string\beginfile[$T$]$\{{\it 
file.ext}\}$}\cr 
\hbox{\tt\string\endfile\ \ \ \ \ \ \ \ \ \ \ \ \ }\cr}\right.$\par
 \ \ \ {\tiny }}%
  {write text verbatim to file {\it file.ext} (empty implies {\tt 
scr@tch@.tex}), nonempty $T$ replaces {\tt 
\string\endfile} to mark last full line}



\hruler


\entry{{\tt\string\PAGENO=1}}%
  {page number reset to 1}


\entry{{\tt\string\NOPAGENUMBERS}}%
  {no page numbers}


\entry{{\tt\string\figbox[$p$]$\{text\}$}}%
  {$text$ into box of width $p$}


\entry{{\tt\string\boxmore[$r$]$\{X\}$}}%
  {add borderline to box $X$ at a distance $r$}


\entry{{\tt\string\addressbox[$p$][$q$]$\{text\}$}}%
  {$text$ into box of width $p$, with wrapped options indented 
by $q$}

\hruler


\entry{{\tt\string\previewfalse}}%
  {given parameters instead of highlighted boxes will be shown}


\entry{{\tt\string\localparastrue}}%
  {letter parameters put into $\{\}$ before displayed}


\entry{{\tt\string\nodefaultsfalse}}%
  {take defaults for empty letter parameters}

\hruler

\entry{{\tt\string\previewtrue}}{{\it cf.} above}


\entry{{\tt\string\localparasfalse}}{}


\entry{{\tt\string\nodefaultstrue}}{}

\hruler


\Longentry{%
$\left\{\matrix{ \hbox{\tt\string\beginrawlist
       [$a$][$b$][$c$][$d$][$e$][$f$]$\{g\}$}\cr
 \hbox{\tt\string\endrawlist\hskip3.4cm}\cr}\right.$ }%
 {\strut\par{\sl defaults:}\everypar={\hbox{\ \ \ }}\par\par
  $a$={\tt\string\linecount},\par
  $b$={\tt1}, $c$={\tt0},\par 
  $d$={\tt\string\tiny@rm}, \par
  $e$={\tt0pt},  $f$={\tt0pt}, \par
  $g$={\tt\string\endrawlist}}%
{verbatim listing, line count from $a$, step $b$, digits $c$,
font $d$, text position $e$, numbering shift $f$, end mark $g$} 

\hruler \vskip0.5pt
\Longentry{%
$\matrix{\hbox{\tt \string\printfile
       [$a$][$b$][$c$][$d$][$e$][$f$]$\{$\it file.ext$\}$}\cr 
 \hbox{}\cr}$}%
  {\strut\par{\sl defaults:} ~~$c$={\tt6} {\it etc}}% 
      {verbatim listing of {\it file.ext}}

\hruler




\Longentry{%
$\left\{\matrix{ \hbox{\tt\string\beginlabels
       [$a$][$b$][$c$][$d$][$e$][$f$]}\cr
 \hbox{\tt\string\endlabels\hskip3cm}\cr}\right.$ }%
 {\strut\par{\sl defaults:}\everypar={\hbox{\ \ \ }}\par\par
  $a$={\tt 20pt}, \par $b$={\tt\string\tt\string\raggedright}, 
 \par $c$={\tt1}, $d$={\tt1}, \par
  $e$={\tt2.6in},  $f$={\tt2em}}%
 {form letters become labels: address taken from $c^{th}$ to 
last parameter of $d^{th}$ group, with width $e$, indent 
$f$, borderspace $a$ and font toks $b$}

\hruler


\entry{{\tt\string\firstread$\{T\}$}}%
  {toks $T$ will not be read if the file is re-read via {\tt 
   \string\labelsquit}}


\entry{{\tt\string\initlabels[$a$]$\{b\}\{c\}$}}%
  {initiation for {\tt\string\labelsquit},with styles $a$, 
   documentstyle $b$ and preamble $c$}



\hruler \vskip0.5pt
\Longentry{%
$\matrix{\hbox{\tt \string\labelsquit
       [$a$][$b$][$c$][$d$][$e$][$f$]$\{$\it file.ext$\}$}\cr 
 \hbox{}\cr}$}%
 {\strut\par{\sl defaults:}\everypar={\hbox{\ \ \ }}\par\par
  see that for {\tt\string\beginlabels}}
  {quit after converting letters to labels by reading the current 
   document or {\it file.ext}}

\hruler

}

\footline={\lower5pt
\hbox to \hsize
 {{\rm Jiang Z ~~~{\sl Formlett: ~for letters to multiple receivers} 
  \hss {\sl $\bullet$End of Document$\bullet$}
\hss \folio}}}


\endcolumns
\vfill\eject



%%%%%%%%%%%%%%%%%%
% MAKE EXAMPLE1.TEX EXAMPLE2.TEX
%%%%%%%%%%%%%%%%%%



\message{Can I create <example1.tex> and <example2.tex> ? (y/n) }%
\read-1 to \reply \def\nono{n }\def\Nono{N }\def\noNo{no }\def\NoNo{NO }%
\def\next{\end{document}}%
\ifx\reply\nono\else\ifx\reply\Nono\else\ifx\reply\noNo\else
\ifx\reply\NoNo\else\let\next\relax
\message{(=== YES ===)}\fi\fi\fi\fi \next




\beginfile[EndOfExample1]{example1.tex}

% Example1: EXAMPLE for using scratch files
%           under plain TeX or LaTeX
%

\input formlett
%
%%%%  MAKE scr@tch@.let
%
\beginfile{scr@tch@.let}  

% letter content
\boxmore[10pt]{\hbox{\vbox{%  BOX FOR BORDERLINE

\parindent=0pt
\blockparas

\bigskip\bigskip

Dear \paras,

\bigskip

This part is typically the letter content. Since we are using a
scratch file for our main body of our letter, the letter can be
arbitrarily long, in comparsion to using {\tt \string\beginletter}
and {\tt \string\endletter} mechanism. Using a scratch file enables
us to keep everything inside one single file so that it won't be mixed
up with other letters.

\medskip

The idea of scratch file can also be applied to creating the address
file, so that the address file can be read for the form letters in the
first time and for mailing labels in the second time. These features are
the purpose of this particular example.

\medskip
Thanks for using {\tt formlett.sty}.

}}}  % END OF BOX FOR BORDERLINE
\vfill\eject

\endfile


%
%%%%  MAKE scr@tch@.adr
%
\beginfile{scr@tch@.adr}
% address file
\beginlinemode
\tt<name>
address line one
address line two 
etc

\tt<NAME>
ADDRESS LINE ONE
ADDRESS LINE TWO 
ETC

\endlinemode
\endfile


%
%%%  MAIN PROCESSING BODY
%

\hsize=5in
\initlabels{}{} 
       % Above line is put here for being
       % able to run this file under either TeX or LaTeX.
       % It may be deleted for TeX. It may also be replaced
       % under LaTeX by  \documentstyle{article} \begin{article}
       % for instance

\inputletter{scr@tch@.let}
\inputfile{scr@tch@.adr}  % for form letters
\beginlabels
\inputfile{scr@tch@.adr}  % for labels
\endlabels

\end{document}

EndOfExample1
% above is password






\beginfile{example2.tex}%

% Example2: EXAMPLE for self-read
%           under plain TeX or LaTeX
%


\input formlett
\hsize=3.2in  % for plain TeX
\initlabels[]{}{\textwidth=3.2in}  % for LaTeX

% MY LOGO
%
\catcode`\@=11\relax
\def\UNE{{\vbadness=10000 \hbadness=10000 \hfuzz=\maxdimen 
  \vfuzz=\maxdimen  \font\tiny=cmr5 \font\small=cmr7 
  \def\today{\number\day\space\ifcase\month\or January\or February\or
      March\or April\or May\or June\or July\or August\or September\or 
      October\or November\or December\fi\space\number\year}%
  \def\make@temp@box{\csname newbox\endcsname \temp@box\relax}%
  \ifx\temp@box\undefined \def\next{\make@temp@box}\else\def\next{}\fi\next 
  \font\HUGE=cmss10 at  24.87999pt \noindent
  \setbox\temp@box=\hbox{\vbox to 0pt{\hbox{\HUGE 
          U\hskip6pt N\hskip6pt E}}}%
  \def\buffdim{65pt}%\wd\temp@box  61.588pt
  \rlap{\copy\temp@box}%
  \rlap{\hskip.4pt\copy\temp@box}%
  \rlap{\hskip.8pt\copy\temp@box}%
  \rlap{\hskip1.2pt\copy\temp@box}%
  \rlap{\hskip1.6pt\copy\temp@box}%
  \rlap{\hskip2pt\copy\temp@box}%
  \rlap{\hskip2.4pt\copy\temp@box}%
  \rlap{\hskip2.8pt\copy\temp@box}%
  \rlap{\hskip6pt\copy\temp@box}%
  \rlap{\lower23pt \hbox to \buffdim{\tiny \hskip3pt The University Of}}%
  \rlap{\lower25pt \hbox{\hskip2pt
         \hbox to \buffdim{\vrule width \buffdim depth .2pt}}}%
  \rlap{\lower32pt \hbox to \buffdim{\small \hskip3pt NEW ENGLAND}}%
  \setbox\temp@box=\hbox{\vbox{\let\noindent=\hfill
    \font\small=cmss8 \baselineskip=8pt %plus 0.5pt minus 0.5pt 
    \small \parskip=0pt 
    \noindent Department of Mathematics, Statistics\par
    \noindent ~~~~and Computing Science\par
    \noindent University of New England\par
    \noindent Armidale NSW 2351, Australia\par
    \medskip
    \noindent Email: ~zhuhan@neumann.une.edu.au\par
    \noindent Tel: ~(INT-) 61- 67- 73 3154 \par
    \noindent Fax: ~(INT-) 61- 67- 73 3312 \par
    \medskip\bigskip
    \noindent \tt\today}}%
   \rlap{\lower3.0cm \hbox{\box\temp@box}}%
}\par}\catcode`\@=12\relax
%


\beginletter
\paranames             % optional
  \tt<<FULL NAME>>;%
  \tt<<ADDRESS-etc>>;%
 +\tt<<GIVEN NAME>>;%
  \tt<<MISSING ITEM>>;%
  \tt<<PHONE NUMBER>>!  
\loaddefaultparas      % optional

\NOPAGENUMBERS\parindent=0pt\overfullrule=0pt
\UNE \par\bigskip\bigskip\bigskip
\noindent{\it\paras[1]}\par
\blockparas[2]\par\bigskip

Dear \paras[1][2],\par\medskip 
We have been looking for 
\paras[2][2] for quite a while 
without any luck, could you help 
us out? If so, please ring 
\paras[3][2]. \par\medskip 
Cheers!\hfill Zhuhan\vfill\eject
\endletter
\preview \showparas 
\eject  % \eject here is purely for better labels


\paradefaults       % optional
  To whom this may concern
 +Sir or Madam;something;%
  061-225-9905!


\blockmarks
\beginblockmode

Mrs L Stenson
\#1-20 Sunset Street
Hillside, Norway
------                           separate groups
Louise
a Bible
220-8888
=========                        separate cluster

......                           force entry next line

Above empty line active

\endblockmode                 comment ignored

\defaultmarks
\moreletter
   S Wales,;%
   \addressbox[2in][1em]{University of Manchester Institute 
   of Science and Technology, This is 
   a long address line: it will be 
   wrapped up automatically.}
 +;a \TeX\ package \gstr\ manual and 
   many more (\cstr)!

\beginlinemode
  S Pan
  UNE, Arimdale

  T Ribbons
  UMIST, Manchester
\endlinemode

\beginpilemode

  C Anderson;42nd Street;USA+Christine;your service invoice!

  D Holmes;Flat \#2, Finneybank Rd;London+David;the tax receipt;%
     071-902 7799!

\endpilemode

\begindatamode{3} % strictly 3 lines for one letter
data-#1
data-#2
data-#3
data-#4
data-#5
\enddatamode

\ifISLATEX \firstread{\global\textwidth=6in}
\else \firstread{\hsize=6in}\fi  % make labels double columns

\labelsquit{}
\end{document}  % redundant
\endfile



\message{Now go and TeX or LaTeX <example1.tex> and <example2.tex>}%


\end{document} 
%
%
%
%ENDDOCUMENT