Sub SaveValues
Dim su As StringUtils
Dim table As List
Try
table.Initialize
table.AddAll(Array As String("ExtDir",ExtPegDir))
table.AddAll(Array As String("CatFile",PegSet))
table.AddAll(Array As String("BGDir",ExtBGDir))
table.AddAll(Array As String("BGFile",CurrentBG))
table.AddAll(Array As String("Side",LeftOrRight))
su.SaveCSV(File.DirRootExternal&"/Android/data/encoded.b4a/files", "encoded.csv", ",", table)
Catch
Log("SaveValues - "&LastException.Message)
End Try
End Sub