2VARIABLE 2SWAP 3
2VARIABLE
* 2VARIABLE ( -- )

CREATE a new variable definition. When executed leave
the >BODY address on stack. In pfe, the data area
of a 2VARIABLE is ERASEd initially.

FORTH/ANS double (dpANS8.6.1.0440) defining primitive