Added some tests at Boriel's suggestion

array.bas

@@ -1,5 +1,11 @@
 DIM global(5) AS UByte => { 47h, 4Ch, 4Fh, 42h, 41h, 4Ch }
 
+CLS
+PRINT "@global = "; @global
+PRINT "@global(0) = "; @global(0)
+PRINT "@global DATA PTR = "; PEEK(UInteger, @global + 2 )
+PRINT
+
 subroutine()
 STOP