* DECIMAL ( -- ) set the BASE to 10 simulate: : DECIMAL 10 BASE ! ;
DECIMAL
( -- )
BASE
simulate: : DECIMAL 10 BASE ! ;
core ordinary primitive