CONSTANTS --------------------------------------------------------------------------- +---------+---+---+---+---+------------+------------+------------+------------+ | LINK | 3 | T | E | N | DOCOL | LIT | 10 | EXIT | +---------+---+---+---+---+------------+------------+------------+------------+ len codeword : CONSTANT WORD ( get the name (the name follows CONSTANT) ) CREATE ( make the dictionary entry ) DOCOL , ( append DOCOL (the codeword field of this word) ) ' LIT , ( append the codeword LIT ) , ( append the value on the top of the stack ) ' EXIT , ( append the codeword EXIT ) ; 31