\ -----------------------------------------------------------------------
\ 8-2.FORTH -------------------------------------------------------------
\ -----------------------------------------------------------------------
\ Code from Starting Forth Chapter 8
\ ANSized by Benjamin Hoyt in 1997

( problem 8-2 )
: .BASE   BASE @  DUP DECIMAL .  BASE ! ;