[CHAR] [ANS] [THEN] [COMPILE]
[CHAR]
* [CHAR] ( [word] -- char )

in compile-mode, get the (ascii-)value of the first charachter
in the following word and compile it as a literal so that it
will pop up on execution again. See >CHAR and forth-83 ASCII

core compiling primitive