Dim BC As ByteConverter
Dim levelRAF As RandomAccessFile
levelRAF.Initialize(File.DirRootExternal, "level.level", False)
Dim B() As Byte = BC.StringToBytes("Test","UTF-8")
Log(B.Length)
levelRAF.WriteBytes(B,0,4,0)
levelRAF.Flush
levelRAF.Close
Log("Here...")
Dim signature As String
If File.Exists(File.DirRootExternal, "level.level") Then
levelRAF.Initialize(File.DirRootExternal, "level.level", False)
signature = levelRAF.readObject(levelRAF.CurrentPosition)
Log("Signature: " & signature)
Else
Log("No File")
End If