' =============================================================== 
'   BCX sample showing off multi-dimensional user-defined types 
' =============================================================== 

TYPE QWERTY
  DIM a
  DIM b!
  DIM c$[80] AS CHAR
  DIM q AS RECT
END TYPE

GLOBAL MyType[10,10,10] AS QWERTY

MyType[2, 3, 4].a  = 1
MyType[2, 3, 4].b! = 2.345
MyType[2, 3, 4].c$ = "hello world from a poly-dimensional udt!"

PRINT        MyType[2, 3, 4].a
PRINT        MyType[2, 3, 4].b!
PRINT UCASE$(MyType[2, 3, 4].c$)

Result:

 1
 2.345
HELLO WORLD FROM A POLY-DIMENSIONAL UDT!