BCX Console Demonstration Program s89.bas

 ' ----------------------------------------------------------------------- 
 ' Sample Snippet for BCX.     Quickly copy one String Array to Another 
 ' by Kevin Diggins 
 ' ----------------------------------------------------------------------- 
 DIM A$[20]
 DIM B$[20]
 DIM C
 
 FOR C = 1 TO 20
   A$[C] = "This Is Line No. " & STR$(C)
 NEXT
 
 StrArrayCopy(B$[0], A$[0], 21 * 2048) 'copy A$ array to B$ array 
 
 FOR C = 1 TO 20
   PRINT B$[C]
 NEXT
 
 SUB StrArrayCopy(Des$, Src$, ByteCount)
   memcpy(Des$, Src$, ByteCount)    'memcpy is a standard "C" function 
 END SUB