 |
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