BCX Console Demonstration Program s139.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 integers
a[0] = 0
a[1] = 1
a[2] = 2
a[3] = 3
a[4] = 4
a[5] = 5
a[6] = 6
a[7] = 7
a[8] = 8
a[9] = 9
CALL MyNumArray(a, 10)
SUB MyNumArray (b[], nelem)
DIM i AS Integer
FOR i = 0 TO (nelem - 1)
PRINT b[i]
NEXT
END SUB