Add runtime test arrcheck2 for array testing

This one checks the array element position is correctly
computed (chained multiplication).

Author: boriel

tests/runtime/arrcheck2.bas

@@ -0,0 +1,24 @@
+
+DIM a(7, 19, 11) as UInteger
+DIM p = @a(0, 0, 0)
+DIM i as Uinteger
+DIM j as UInteger
+DIM k as UInteger
+DIM m as UInteger
+
+FOR i = 0 TO 7
+ FOR j = 0 TO 19
+  FOR k = 0 TO 11
+ LET m = i * j * k
+ LET a(i, j, k) = m
+ PRINT AT 0, 0; i; " "; j; " "; k; " "
+ IF PEEK(UInteger, p) <> m THEN
+    PRINT INK 2; FLASH 1; " ERROR "
+    STOP
+ END IF
+ LET p = p + 2
+  NEXT k
+ NEXT j
+NEXT i
+
+PRINT INK 4; FLASH 1; " OK "