IMMEDIATE-MASK
* IMMEDIATE-MASK ( -- bit-mask )

returns the bit-mask to check if a found word is immediate
(use in conjunction with >NAME-FLAGS@ and NAME-FLAGS! )
    " my-word" FIND-NAME IF NAME-FLAGS@ IMMEDIATE-MASK AND 
                       IF ." immediate" THEN ELSE DROP THEN

header ordinary constant