CONTROL
* CONTROL ( [word] -- val )

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

forth_usual compiling primitive