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