Dim MOL As Map
Type LOL(Sort As Int, Fname As String, SWL As CustomListView)
MOL.Initialize
Dim Lol As LOL
Lol.Initialize
Lol.Fname = "SwipeList.swl"
Lol.Sort = 1
Lol.SWL = SwipeList
MOL.Put("SwipeList", Lol)
MOL.Put("ActiveZXZX", Lol)
Dim Lol2 As LOL
Lol2.Fname = "Trash.swl"
Lol2.Sort = 2
Lol2.SWL = Trash
MOL.Put("Trash", Lol2)
Dim Lol3 As LOL
Lol3.Fname = "Trash.swl"
Lol3.Sort = 2
Lol3.SWL = Trash
MOL.Put("Archive", Lol3)
Dim R As RandomAccessFile
File.Delete(File.DirInternal, "MOLZXZX")
R.Initialize(File.DirInternal, "MOLZXZX", False)
R.WriteB4XObject(MOL, 0)