( DTABLE                       create a n-number double table )

( used in the form:       )
(    n DTABLE <name>      )

need d@

: dtable                          ( n --- )   ( compiling)
                                  ( --- n )   ( executing)
  <builds                         ( put <name> into dictionary)
  does>                           ( at execution time)
    swap                          ( swap n and base-addr)
    4 *                           ( offset = 4n)
    +                             ( addr = base-addr + offset)
    d@                            ( fetch value)
;