Sub SaveINI_Click()
EditText1.initialize("EditText1")
Dim x As XMLBuilder
x = x.create("maps")
x = x.element("string_name") _
.attribute("profile", EditText1.Text) _
.element("timestamp") _
.attribute("time", "date") _
.up() _
.element("maps")
Log("EditText1: " & EditText1.Text)
Dim props As Map
props.Initialize
props.Put("indent", "yes")
File.WriteString(File.DirRootExternal, "profile.xml", x.asString2(props))
ToastMessageShow ("Profile Saved", True)
End Sub