'first array comes from a string builder object
Dim data1() As Byte = sb.ToString.GetBytes("UTF8")
Log("data1 size: "&data1.Length) '992 bytes. OK
Dim raf As RandomAccessFile
raf.Initialize3(data1,False)
raf.CurrentPosition = raf.Size 'set to 992, the first "free" slot
'second array comes from a file
Dim InS As InputStream
InS = File.OpenInput(File.DirAssets,"myfile.png")
Dim data2() As Byte
data2=Bit.InputStreamToBytes(InS)
Log("data2 size: "&data2.Length) '13607 bytes. OK
Dim i As Int
i=raf.WriteBytes(data2,0,data2.Length,raf.CurrentPosition) 'ERROR out of bounds on 992!