Public Sub LoadTSA(FileID As Long, IsJyotyu As Boolean)
  Dim TSANum As Integer, Progress As Integer, CurLoadM As Integer
  Dim CurLoad As Integer, CurLoadT As Integer

  TSANum = (ntrFiles(FileID).End - ntrFiles(FileID).Start) / 8
  If IsJyotyu Then ReDim JyotyuTSA(TSANum - 1) Else ReDim LevelTSA(TSANum - 1)

  For Progress = 0 To TSANum - 1
    If IsJyotyu Then
      CurLoad = 64
      JyotyuTSA(Progress).TL = ntrFiles(FileID).Contents(((Progress) * 8))
      JyotyuTSA(Progress).TR = ntrFiles(FileID).Contents(((Progress) * 8) + 2)
      JyotyuTSA(Progress).BL = ntrFiles(FileID).Contents(((Progress) * 8) + 4)
      JyotyuTSA(Progress).BR = ntrFiles(FileID).Contents(((Progress) * 8) + 6)
      JyotyuTSA(Progress).TLo = ntrFiles(FileID).Contents(((Progress) * 8) + 1)
      JyotyuTSA(Progress).TRo = ntrFiles(FileID).Contents(((Progress) * 8) + 3)
      JyotyuTSA(Progress).BLo = ntrFiles(FileID).Contents(((Progress) * 8) + 5)
      JyotyuTSA(Progress).BRo = ntrFiles(FileID).Contents(((Progress) * 8) + 7)
      'If JyotyuTSA(Progress).TL > 127 Then JyotyuTSA(Progress).TL = -256 + JyotyuTSA(Progress).TL
      'If JyotyuTSA(Progress).TR > 127 Then JyotyuTSA(Progress).TR = -256 + JyotyuTSA(Progress).TR
      'If JyotyuTSA(Progress).BL > 127 Then JyotyuTSA(Progress).BL = -256 + JyotyuTSA(Progress).BL
      'If JyotyuTSA(Progress).BR > 127 Then JyotyuTSA(Progress).BR = -256 + JyotyuTSA(Progress).BR
      If BitIsSet(JyotyuTSA(Progress).TLo, 5) Then Inc JyotyuTSA(Progress).TL, CurLoad
      If BitIsSet(JyotyuTSA(Progress).TRo, 5) Then Inc JyotyuTSA(Progress).TR, CurLoad
      If BitIsSet(JyotyuTSA(Progress).BLo, 5) Then Inc JyotyuTSA(Progress).BL, CurLoad
      If BitIsSet(JyotyuTSA(Progress).BRo, 5) Then Inc JyotyuTSA(Progress).BR, CurLoad
      If JyotyuTSA(Progress).TL > 255 Then Dec JyotyuTSA(Progress).TL, 256
      If JyotyuTSA(Progress).TR > 255 Then Dec JyotyuTSA(Progress).TR, 256
      If JyotyuTSA(Progress).BL > 255 Then Dec JyotyuTSA(Progress).BL, 256
      If JyotyuTSA(Progress).BR > 255 Then Dec JyotyuTSA(Progress).BR, 256
    Else
      CurLoadM = CurLoad
      CurLoad = 64
      LevelTSA(Progress).TL = ntrFiles(FileID).Contents(((Progress) * 8))
      LevelTSA(Progress).TR = ntrFiles(FileID).Contents(((Progress) * 8) + 2)
      LevelTSA(Progress).BL = ntrFiles(FileID).Contents(((Progress) * 8) + 4)
      LevelTSA(Progress).BR = ntrFiles(FileID).Contents(((Progress) * 8) + 6)
      LevelTSA(Progress).TLo = ntrFiles(FileID).Contents(((Progress) * 8) + 1)
      LevelTSA(Progress).TRo = ntrFiles(FileID).Contents(((Progress) * 8) + 3)
      LevelTSA(Progress).BLo = ntrFiles(FileID).Contents(((Progress) * 8) + 5)
      LevelTSA(Progress).BRo = ntrFiles(FileID).Contents(((Progress) * 8) + 7)
      'comment the next 4 lines to disable signed tilenums
      'If LevelTSA(Progress).TL > 127 And Not BitIsSet(LevelTSA(Progress).TLo, 0) Then LevelTSA(Progress).TL = -256 + LevelTSA(Progress).TL
      'If LevelTSA(Progress).TR > 127 And Not BitIsSet(LevelTSA(Progress).TRo, 0) Then LevelTSA(Progress).TR = -256 + LevelTSA(Progress).TR
      'If LevelTSA(Progress).BL > 127 And Not BitIsSet(LevelTSA(Progress).BLo, 0) Then LevelTSA(Progress).BL = -256 + LevelTSA(Progress).BL
      'If LevelTSA(Progress).BR > 127 And Not BitIsSet(LevelTSA(Progress).BRo, 0) Then LevelTSA(Progress).BR = -256 + LevelTSA(Progress).BR
      'If LevelTSA(Progress).TL > 127 Then LevelTSA(Progress).TL = -256 + LevelTSA(Progress).TL
      'If LevelTSA(Progress).TR > 127 Then LevelTSA(Progress).TR = -256 + LevelTSA(Progress).TR
      'If LevelTSA(Progress).BL > 127 Then LevelTSA(Progress).BL = -256 + LevelTSA(Progress).BL
      'If LevelTSA(Progress).BR > 127 Then LevelTSA(Progress).BR = -256 + LevelTSA(Progress).BR
      If BitIsSet(LevelTSA(Progress).TLo, 5) Then Inc LevelTSA(Progress).TL, CurLoad
      If BitIsSet(LevelTSA(Progress).TRo, 5) Then Inc LevelTSA(Progress).TR, CurLoad
      If BitIsSet(LevelTSA(Progress).BLo, 5) Then Inc LevelTSA(Progress).BL, CurLoad
      If BitIsSet(LevelTSA(Progress).BRo, 5) Then Inc LevelTSA(Progress).BR, CurLoad
      If LevelTSA(Progress).TL > 255 And Not BitIsSet(LevelTSA(Progress).TLo, 0) Then Dec LevelTSA(Progress).TL, 256
      If LevelTSA(Progress).TR > 255 And Not BitIsSet(LevelTSA(Progress).TRo, 0) Then Dec LevelTSA(Progress).TR, 256
      If LevelTSA(Progress).BL > 255 And Not BitIsSet(LevelTSA(Progress).BLo, 0) Then Dec LevelTSA(Progress).BL, 256
      If LevelTSA(Progress).BR > 255 And Not BitIsSet(LevelTSA(Progress).BRo, 0) Then Dec LevelTSA(Progress).BR, 256
      If BitIsSet(LevelTSA(Progress).TLo, 1) Then Inc LevelTSA(Progress).TL, 256
      If BitIsSet(LevelTSA(Progress).TRo, 1) Then Inc LevelTSA(Progress).TR, 256
      If BitIsSet(LevelTSA(Progress).BLo, 1) Then Inc LevelTSA(Progress).BL, 256
      If BitIsSet(LevelTSA(Progress).BRo, 1) Then Inc LevelTSA(Progress).BR, 256
    End If
    Inc CurLoadT
    If CurLoadT = 16 Then CurLoadT = 0: Inc CurLoad, 64
  Next Progress
End Sub