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