\ ****** new version *********

: ARRAY ( cellCount -- )

\ Compile-time behavior

CREATE CELLS ALLOT      ( cellCount -- )      \ Creates and initializes the instance

        \ Run-time behavior

DOES>                   ( index addr )

SWAP CELLS +            ( index addr -- addr1 )     \ Calculates address to return 

;