BCX Console Demonstration Program S117.bas

 ' ***************************************************
 '  Demonstrates how to modify arrays that have been
 '  passed to SUBS and FUNCTIONS as parameters
 ' ***************************************************
 
 DIM x![3]
 DIM y![3]
 DIM z![3]
 
 x![0] = 2.1
 x![1] = 3.2
 x![2] = 4.3
 
 y![0] = 3.1
 y![1] = 4.2
 y![2] = 5.3
 
 Multp(&x![0], &y![0], &z![0], 3)
 
 DIM i
 
 FOR i = 0 TO 2
   ? (float)z![i]
 NEXT i
 
 SUB Multp(a![], b![], C![], count)
   LOCAL n
   FOR n = 0 TO count-1
     C[n] = a![n] * b![n]
   NEXT n
 END SUB