Sub Activity_Create(FirstTime As Boolean)
Dim In As InputStream
Dim compress As CompressedStreams
In = File.OpenInput(File.DirAssets, "carga0004")
In = compress.WrapInputStream(In, "gzip")
Dim reader As TextReader
reader.Initialize(In)
Dim line As String
line = reader.ReadAll
Log(line.Length)
End Sub