control:forth_usual — compiling primitive
FORTH
CONTROL ( [word] -- val )();p4:"control";
CONTROL ( [word] -- val )(
)
see ASCII, but returns char - '@'
simulate: : CONTROL [COMPILE] [CHAR] [CHAR] @ - STATE @ IF [COMPILE] LITERAL THEN ;