BCX Console Demonstration Program S89.bas

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