>NAME >MOVE< >NUMBER
>NAME
* >NAME ( cfa -- nfa )

converts a pointer to the code-field (CFA) to point
then to the corresponding name-field (NFA) 
 implementation-specific simulation:
   : >NAME  >LINK L>NAME ;

FORTH/FORTH header ordinary primitive