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