code:

---

Dim $A[24], $B[24], $C[24], $D[3]

For $i=0 to 23
	$A[$i] = chr($i+65) + 1
	$B[$i] = chr($i+65) + 2
	$C[$i] = chr($i+65) + 3
Next

$D[0] = $A
$D[1] = $B
$D[2] = $C


for $h=0 to 23
	for $i=0 to 2
		? $D[$i][$h]
	next
	?
next
  

---

code:

---

;Building a three dimensional array (2,3,24)
;Define data buckets arrays (2*3)=6 arrays of 24 elements each
Dim $A[24], $B[24], $C[24], $E[24], $F[24], $G[24]

; Define the middle tier arrays (2 arrays of 3 elements each)
Dim $D[3]
$D[0] = $A
$D[1] = $B
$D[2] = $C

Dim $J[3]
$J[0] = $E
$J[1] = $F
$J[2] = $G

; Define the top level array
Dim $K[2]
$K[0] = $D
$K[1] = $J

for $m=0 to 1
   for $i=0 to 2
      for $h=0 to 23
         $K[$m][$i][$h] = "$m,$i,$h"
         ? $K[$m][$i][$h]
      next
      ?
   next
   ?
next

? "Element $K[1][2][20] equals: " + $K[1][2][20]
;Assign a new value to the element $K[1][2][20]
$K[1][2][20] = "Hi There"
? "Element $K[1][2][20] now equals: " + $K[1][2][20]
  

---