Nefungujici makro na redefinici kapitalek...

[Matous Jan Fialka]

Ahoj vsem vespolek,

napsal jsem si nasledujici makra, ale nefunguji a netusim proc...
Mohl by mi nekdo prosim poradit? Makra maji zpusobit, ze se vsechny
kapitalky v textu zobrazi cervene...

% --- cut test.tex ---
% nejprve zaktivnim anglicke kapitalky (u ceskych jsem to zatim nezkousel)
\newcount\cnt\cnt=`\A
\loop
   \catcode\cnt=13 \ifnum\cnt<`\Z \advance\cnt1
\repeat

% nadefinuji, co se stane pred a po kapitalce
\def\pred{\color{red}}
\def\po{\color{black}}

% nadefinuji jednotlive kapitalky
\cnt=`\A
\loop
   \def\char\cnt{\pred\char\cnt\po} \ifnum\cnt<`\Z \advance\cnt1
\repeat

Ahoj Svete!

\bye
% --- cut test.tex ---

TeX zkolabuje s hlaskou, ze A neni definovano :(

Dekuji predem za radu, placam se v tom uz nekolik hodin...

PS: hledat na google jsem uz zkusil a nic :(

Krasny vecer preje,

--
Matou\v{s} Jan Fialka aka Variable computing Prague
---------------------------------------------------
Private E-Mail:         matous_jan.fialka at seznam.cz
Home Page:     http://burdazd.sh.cvut.cz/~socrates/
Linux User Number: 308523 Peace, TeX and GNU/Linux!
---------------------------------------------------