TONS.HST

TONS.HST

The file name is "TONS.HST". It keeps a running total

of the number of kilotons of enemy ships that a race

has "sunk" in ship to ship combat:

The first 11 records (4 bytes each) are the totals

so far. The second 11 records (4 bytes each) are the

amounts for this turn only.

'This code will read the TONS.HST file

dim tont(11,2) as long' (4 bytes each)

f4 = FreeFile

Open gamepath + "TONS.HST" For Binary As #f4

For i = 1 To 11

x1 = (i - 1) * 4 + 1

Get f4, x1, tont(i, 1)

Get f4, x1 + 44, tont(i, 2)

Next i

Close #f4

Host only generates this file, it does nothing else with it.

The TONS.EXE program will convert the TONS.HST to a log file.

( Hook requested by: Eat Flaming Death! BBS )

Content Previous Next