DECIMAL
* DECIMAL ( -- )

set the BASE to 10
 simulate:
   : DECIMAL 10 BASE ! ;

FORTH/ANS core (dpANS.6.1.1170) ordinary primitive