Sub Process_Globals
Dim r As RandomAccessFile
Dim buff(1024) As Byte
End Sub
Sub AppStart (Args() As String)
r.Initialize2("d:/olddbfiles","S_RESO.dat",True,True) ' Values are little endian
r.ReadBytes(buff,0,1000,0)
Dim recLen As Int = r.ReadShort(0xc)
Log("Record length = " & recLen & " bytes")
For pos = 1 To 20 ' first 20 records
r.ReadBytes(buff,0,recLen,4+(recLen*pos))
Dim descLen As Byte = buff(30) ' length of description
Log(BytesToString(buff,0x1f,descLen,"US-ASCII"))
Next
r.Close
End Sub