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