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