Sorry your browser is not supported!

//CREATES OPENS AND FILL ARRAY
//then sends it to a memblock and then to file

if file exist("test.dat") = 1 then delete file "test.dat"
open to write 1,"test.dat"
dim list(0) as string

for i = 1 to 100
       array insert at top list(0)
       list() = str$(rnd(999))
NEXT
print array count(list(0))

//retrieves array from the memblock stored into file

make memblock from array 1,list(0)
write memblock 1,1
close file 1 : delete memblock 1
undim list(0)

dim list(0) as string

open to read 1,"test.dat"
read memblock 1,1
make array from memblock list(0),1
close file 1 : delete memblock 1

print array count(list())

do
       
LOOP

f$ = "test.dat"

dim list(0) as string
for i = 1 to 10
       array insert at bottom list(0)
       list() = str$(rnd(999))
NEXT
make memblock from array 1,list(0) 

if file exist(f$) = 1 then delete file f$
open to write 1,f$
make file from memblock 1,1
close file 1 : delete memblock 1 : undim list(0)

print "-----------"
open to read 1,f$
make memblock from file 1,1

dim list(0) as string
make array from memblock list(0),1
close file 1 : delete memblock 1

if array count(list(0)) > 0
for i = 1 to 10
       print list(i)
NEXT
else
print "WHY IT DOESN'T WORK??????"
endif

do
       
LOOP

f$ = "test.dat"

if file exist(f$) = 1 then delete file f$
open to write 1,f$
dim save(0) as integer
for i = 1 to 10
       array insert at bottom save(0)
       save(0) = rnd(9999999)
NEXT
make memblock from array 1,save(0)
make file from memblock 1,1
close file 1 : delete memblock 1 : undim save(0)

dim save(10) as integer
open to read 1,f$
make memblock from file 1,1
make array from memblock save(0),1
close file 1 : delete memblock 1

for i = 1 to array count(save(0))
print save(i)       
NEXT
do
       
LOOP

arrSize as integer
dim save() as integer

f$ = "test.dat"

if file exist(f$)
   delete file f$
endif

for i = 0 to 19
       array insert at bottom save()
       save() = i
next

arrSize = array count(save())

open to write 1, f$
make memblock from array 1, save()
write file 1, arrsize
make file from memblock 1, 1
close file 1

delete memblock 1
empty array save()

arrSize as integer
dim save() as integer

f$ = "test.dat"

open to read 1, f$
read file 1, arrSize
make memblock from file 1, 1
dim save(arrSize)
make array from memblock save(), 1
close file 1
delete memblock 1

for i=0 to arrSize
   print save(i)
next i

wait key