BLIT MEM src_adr, dst_adr, num_bytes

dim integer bigarray(20)
dim integer n, x, addr, startfill

x = 99
'find the starting address of the target array
addr = PEEK(VARADDR bigarray())

' set the starting point to the 5th array element
startfill = addr + 8*5

' fill 10 array elements starting at element 5
memory set integer startfill, x, 10

'show the results
for n = 0 to 20
print n,bigarray(n)
next n

Output:
0 0
1 0
2 0
3 0
4 0
5 99
6 99
7 99
8 99
9 99
10 99
11 99
12 99
13 99
14 99
15 0
16 0
17 0
18 0
19 0
20 0

MEMORY SET INTEGER address, integervalue ,numberofintegers [,increment]
MEMORY SET FLOAT address, floatingvalue ,numberofloats [,increment]
MEMORY COPY INTEGER sourceaddress, destinationaddress, numberofintegers [,sourceincrement][,destinationincrement]
MEMORY COPY FLOAT sourceaddress, destinationaddress, numberoffloats [,sourceincrement][,destinationincrement]

option explicit
option default none
dim float sourcearray(3,39),destinationarray(39),d2array(39),x=99.99
dim integer n, addr, addr2, addr3


'find the starting address of the source 2 dimensional array
addr = PEEK(VARADDR sourcearray())

'find the starting address of the first desination 1 dimensional array
addr2 = PEEK(VARADDR destinationarray())

'find the starting address of the second desination 1 dimensional array
addr3 = PEEK(VARADDR d2array())

' fill 160 array elements starting at element 0,0
memory set float addr, x,160

'now make some changes to the source array to prove it all works
for n=0 to 39: sourcearray(2,n)=n:next n

'copy the sourcearray(0,all) to destinationarray
memory copy float addr, addr2,40,BOUND(sourcearray(),1)-BOUND(sourcearray(),0)+1,1

'now point to the start of the second dimension in the source array
addr = addr + 8*2

'copy the sourcearray(2,all) to destinationarray2
memory copy float addr, addr3,40,BOUND(sourcearray(),1)-BOUND(sourcearray(),0)+1,1

'show the results
for n = 0 to 39
 print n,sourcearray(0,n),sourcearray(2,n),destinationarray(n),d2array(n)
next n