; ( -- ) Dictionary ; R( -- ) ; create a complete dictionary header. VE_CREATE: .dw $ff06 .db "create" .dw VE_HEAD .set VE_HEAD = VE_CREATE XT_CREATE: .dw DO_COLON PFA_CREATE: .dw XT_DOCREATE .dw XT_COMPILE .dw PFA_DOCONSTANT .dw XT_EXIT