CONTROL CONTEXT? CONVERT
CONTROL
* CONTROL ( [word] -- val )

see ASCII, but returns char - '@' 
 simulate:
   : CONTROL  [COMPILE] [CHAR]  [CHAR] @ -  
              STATE @ IF [COMPILE] LITERAL THEN ;

FORTH/BASE forth_usual compiling primitive