Dim raf1,raf2 As RandomAccessFile
' code would fail if I define bf as: Dim bf() As Byte
Dim bf(2000000) As Byte
Dim i,i1 As Int
Dim lst As List
lst.Initialize
For i=1 To 10000
lst.Add(i+0.54321)
Next
raf.Initialize3(bf,True)
raf1.Initialize(File.DirApp,"test_uncomp.dat",False)
raf2.Initialize(File.DirApp,"test_comp.dat",False)
'case #1
raf1.WriteObject(lst,False,0)
'case #2
raf2.WriteObject(lst,True,0)
'case #3
' Would fail if byte array would be small enough !!!
'or if it would be defined as Dim bf() As Byte
raf.WriteObject(lst,True,0)