; -----------------------------------------------
Func _Save(ByRef $title)
	Local $i=0
	Local $saveas
	Local $file_name
	Local $overwrite
	Local $temp_namer[20]
; ----------------
	$saveas=FileSaveDialog("Save As", $WorkingDir, "Performance List (*.ini)", "", $name) ; TO DO!!
	If @error Then Return
	If StringInStr($saveas, ".") Then
		$file_name=$saveas
	Else
		$file_name=$saveas & ".ini"
	EndIf
; ----------------
	If FileExists($file_name) Then
		$overwrite=MsgBox(276, "Overwrite?", "Would you like to Overwrite this file?")
		If $overwrite=6 Then
			FileDelete($file_name)
		Else
			Return
		EndIf
	EndIf
; ----------------	
	While $i < $arraypos
		FileWriteLine($file_name, $files[$i])
		$i += 1
	WEnd
; ----------------	
	$temp_namer=StringSplit($file_name, "\")
	$name=$temp_namer[$temp_namer[0]]
; ----------------
	If StringLen($title & " - " & $file_name) > 97 Then
		If StringLen($title & " - " & $temp_namer[1] & "\ . . . \" & $temp_namer[$temp_namer[0] - 2] & "\" & $temp_namer[$temp_namer[0] - 1] & "\" & $temp_namer[$temp_namer[0]]) > 97 Then
			WinSetTitle($title, "", $title & " - " & $temp_namer[1] & "\ . . . \" & $temp_namer[$temp_namer[0] - 1] & "\" & $temp_namer[$temp_namer[0]])
		Else
			WinSetTitle($title, "", $title & " - " & $temp_namer[1] & "\ . . . \" & $temp_namer[$temp_namer[0] - 2] & "\" & $temp_namer[$temp_namer[0] - 1] & "\" & $temp_namer[$temp_namer[0]])
		EndIf
	Else
		WinSetTitle($title, "", $title & " - " & $file_name)
	EndIf
EndFunc
; -----------------------------------------------