( Array Words)

( !ArmForth32 has ARRAY and ARRAY[] words defined)

10 ARRAY fred   ( defines array fred - 10 items long)
: initfred 10 0 DO I I fred ! LOOP ;  ( initialies with sequence 0 to 9)
: seefred 10 0 DO I fred ? LOOP ;

( no range checks are performed within ARRAY)

( Rob definition of 1D array follows)
: robarray <BUILDS 4 * ALLOT DOES> SWAP 4 * + ;
10 robarray jim
( above equiv init and see words OK)
