 |
BCX Console Demonstration Program S138.bas
|
' ************************************************************************
' 12/29/2001 -- Thanks to Pat Kelly, BCX can now handle the passing of
' arrays to SUBS and FUNCTIONS by reference. The syntax is demonstrated
' in this example. Works for any type of array. Enjoy!
' ************************************************************************
DIM
a$[
10
]
' Array of 10 strings
a$[
0
]
=
"zero"
a$[
1
]
=
"one"
a$[
2
]
=
"two"
a$[
3
]
=
"three"
a$[
4
]
=
"four"
a$[
5
]
=
"five"
a$[
6
]
=
"six"
a$[
7
]
=
"seven"
a$[
8
]
=
"eight"
a$[
9
]
=
"nine"
CALL
MyStrArray(
a$, 10
)
SUB
MyStrArray(
b$[
]
, nelem)
DIM
i AS
Integer
FOR
i =
0
TO
(
nelem -
1
)
PRINT
b$[
i]
NEXT
END
SUB