We have the source code and permission to do this.
As the code dates back to 1998 I use Visual Studio 2006.
I have written many programs in Visual basic, and have the following one to read the airbase value in the "targets.dat" file.
The file has a four byte header containing the number of tatgets, and a 32 byte data block containing the data for each target.
Expand|Select|Wrap|Line Numbers
- Private Sub Command1_Click()
- List1.Clear
- Dim nt As Long
- Dim a4() As Long
- Open App.Path & "\targets.dat" For Binary Access Read As 1
- 'read and display the number of targets
- Get #1, 1, nt
- Label2 = nt
- ReDim a4(nt)
- k = 29 'first airfield value location
- n = 0
- While n <= nt - 1
- Get #1, k, a4(n)
- List1.AddItem a4(n)
- k = k + 32 'a block is 32 bytes
- n = n + 1
- Wend
- Close 1
- 'check the number read
- Label1 = List1.ListCount
- End Sub
Thanks