Private Sub Form_Load()
Dim i as Long
Dim c as Long
Dim sprArr() as String
Dim tempstr as String
Dim outstr() as String
Dim b(2) as Long
Dim bstr(2) as String
Open App.Path & "\outside.txt" for Input as #2
Open App.Path & "\Earth.smc" for Binary as #1
Open App.Path & "\dump.txt" for Output as #3
Do While Not EOF(2)
ReDim Preserve sprArr(i + 1)
Line Input #2, sprArr(i)
i = i + 1
Loop
Do Until c = 1200
Redim preserve outstr(c + 1)
Get #1, &H0F8B91 + (c * 14) + (c * 4) + 2, b(0)
Get #1, &H0F8B91 + (c * 14) + (c * 4) + 3, b(1)
outstr = "Entry " & CStr(c) & ": " & sprArr(Val("&H10" & ZeroCheckHex(b(1)) & ZeroCheckHex(b(0))) - &H100000)
c = c + 1
Loop
i = 0
For i = 0 to UBound(outstr)
Print #3, outstr(i)
i = i + 1
Next i
End Sub

Private Function ZeroCheckHex(Check as Long) As String
Dim tempstr as String
tempstr = Hex(Check)
If Check <= 15 Then tempstr = tempstr & "0"
ZeroCheckHex = tempstr
End Function