BCX Console Demonstration Program s99.bas

 ' =============================================================== 
 '   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$)