pTeX: test for "Improper alphabetic or KANJI constant" error

ptex-improper.tex

%#!eptex -ini or ptex -ini
\scrollmode

\let\dump\relax
\input plain

% 11
\showthe\catcode`A

% 13
\def~{A}
\showthe\catcode`~

% 13
\let~=A
\showthe\catcode`~

% 13
\chardef~=`A
\showthe\catcode`~

% 4
\showthe\catcode`&

% 11
\def\p{&}\relax
\showthe\catcode`\p

% 11
\let\p=&\relax
\showthe\catcode`\p

% 11
\chardef\p=`&
\showthe\catcode`\p

% ! Improper alphabetic or KANJI constant.
\def\ppp{A}\relax
\the\catcode`\ppp
\ppp

% ! Improper alphabetic or KANJI constant.
\let\ppp=A\relax
\the\catcode`\ppp
\ppp

% ! Improper alphabetic or KANJI constant.
\chardef\ppp=`A
\the\catcode`\ppp
\ppp

\ifx\kcatcode\undefined \expandafter\end \fi

% 16
\showthe\kcatcode`西

% 18or15
\showthe\kcatcode`q

% 18or15
\def\q{西}
\showthe\kcatcode`\q

% 18or15
\let\q=西\relax
\showthe\kcatcode`\q

% 18or15
\chardef\q=`西\relax
\showthe\kcatcode`\q

% ! Improper alphabetic or KANJI constant.
\def\aaa{西}
\the\kcatcode`\aaa

% ! Bad character code (950). !?
\let\ccc=西\relax
\the\kcatcode`\ccc
\ccc

% ! Bad character code (943). !?
\let\bbb=西\relax
\the\kcatcode`\bbb
\bbb

% ! Bad character code (29183/ptex -ini) (32028/eptex -ini) (32043/eptex -ini -etex). !?
\let\ddd=西\relax
\the\kcatcode`\ddd
\ddd

\end