; ( -- ) (C: cchar -- ) ; Compiler ; create named entry in the dictionary, XT is the data field VE_CODE: .dw $ff04 .db "code" .dw VE_HEAD .set VE_HEAD = VE_CODE XT_CODE: .dw DO_COLON PFA_CODE: .dw XT_DOCREATE .dw XT_REVEAL .dw XT_DP .dw XT_ICELLPLUS .dw XT_COMMA .dw XT_EXIT