( CTABLE                                   create a byte table )

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

: ctable                          ( n --- )     ( compiling)
                                  ( n --- b )   ( executing)
  <builds                         ( put <name> into dictionary)
  does>                           ( at executing time)
    +                             ( addr = base-addr + n)
    c@                            ( fetch byte at addr )
;