; PrinList



Func PrintList($List)
	If IsArray($List) Then

		Local $txt = ""
		For $i = 0 to UBound($List) -1
			$txt = $txt & "," & $List[$i]

		Next
		Local $out = StringMid($txt,2)

		Global $Result = "[" & $out & "]"
		ConsoleWrite($Result)
		Return $Result
	Else
		MsgBox(0, "List Error", "Variable is not an array or a list")
	EndIf

EndFunc   ;==>PrintList