* DOES> ( -- pfa ) does twist the last CREATE word to carry the (DOES>) runtime. That way, using the word will execute the code-piece following DOES> where the pfa of the word is already on stack. (note: FIG option will leave pfa+cell since does-rt is stored in pfa)
DOES>
( -- pfa )
CREATE
(DOES>)
FORTH/ANS core compiling primitive