rendered paste body Do
C = GetByte(offset)
If C = 255 Then lstWarp.AddItem "End.": Exit Sub
Select Case GetByte(offset) And 240
Case 16:
lstWarp.AddItem "[A80F]=" & Right("00" & Hex(GetByte(offset + 1)), 2)
Case 48:
lstWarp.AddItem "30 " & Right("00" & Hex(GetByte(offset + 1)), 2) & " " & Right("00" & Hex(GetByte(offset + 2)), 2)
offset = offset + 2
Case 64:
lstWarp.AddItem "Scroll x=" & (GetByte(offset + 1) And 15) & " y=" & (GetByte(offset + 1) And 240) / 16
offset = offset + 1
Case 96:
lstWarp.AddItem "Boss " & (C And 15)
Case 128:
lstWarp.AddItem "[A2E0]=" & Right("00" & Hex((C And 15) Or 240), 2)
Case 176:
lstWarp.AddItem "80 " & Right("00" & Hex(GetByte(offset + 1)), 2) & " " & Right("00" & Hex(GetByte(offset + 2)), 2) & " " & Right("00" & Hex(GetByte(offset + 3)), 2)
offset = offset + 3
Case Else:
lstWarp.AddItem Right("00" & Hex(C), 2)
End Select
offset = offset + 1
Loop Until C = 255