\ CREATE / DOES> in FORTH/6000
\ GLM, October 2026

: ARRAY ( n "name" -- ) CREATE CELLS ALLOT DOES> SWAP CELLS + ;

10 ARRAY BOARD

: BOARD! ( v i -- ) BOARD ! ;
: BOARD@ ( i -- v ) BOARD @ ;

: INIT 10 0 DO I I BOARD! LOOP ;
: TOTAL 0 10 0 DO I BOARD@ + LOOP ;

INIT
." board holds 0..9, sum = " TOTAL . CR

5 ARRAY PAIRS
: FILL-PAIRS 5 0 DO I DUP * I PAIRS ! LOOP ;
: SHOW-PAIRS 5 0 DO I PAIRS @ I 2 .R ."  squared is " 4 .R CR LOOP ;

FILL-PAIRS
SHOW-PAIRS