6.1.0750
BASE
 
CORE
 
( -- a-addr )

a-addr is the address of a cell containing the current number-conversion radix {{2...36}}.

Testing:
: GN2 \ ( -- 16 10 )
   BASE @ >R HEX BASE @ DECIMAL BASE @ R> BASE ! ;
T{ GN2 -> 10 A }T