18.6.2.0895
CHAR
 
XCHAR EXT
 
( "<spaces>name" -- xchar )

Skip leading space delimiters. Parse name delimited by a space. Put the value of its first xchar onto the stack.

See:
6.1.0895 CHAR

Rationale:
The behavior of the extended version of CHAR is fully backward compatible with 6.1.0895 CHAR.
Implementation:
: CHAR ( "name" -- xchar ) BL WORD COUNT DROP XC@+ NIP ;