RosettaCodeData/Task/Literals-Integer/Forth/literals-integer-1.fth

HEX
FEEDFACE
2 BASE !
1011001
DECIMAL
1234
: mask  var @ [ base @ hex ] 3fff and [ base ! ] var ! ;