![]() |
BCX Console Demonstration Program S80.bas |
GLOBAL
hAS
QWERTY h.a=
3
(
)
SUB
TestSub(
)
TYPE
ZzzDIM
xDIM
yDIM
zDIM
pAS
RECTEND
TYPE
LOCAL
cbAS
Zzz ?"----"
cb.x=
1
: ? cb.x cb.y=
2
: ? cb.y cb.z=
3
: ? cb.z ?"----"
END
SUB
TYPE
QWERTYDIM
aDIM
bDIM
c$DIM
qAS
RECTEND
TYPE