;___________________________________________________________________________________________________________________________________________________________

; THESE FUNCTIONS HELP ME TO WORK WITH PARAMETERS

;___________________________________________________________________________________________________________________________________________________________


Func Parameter($parameter_to_check) ; 		FOR USE WITH IF, e.g. 		If Parameter("/?") then help()

	Local $i
	Local $bool=False

	For $i = 1 To $CmdLine[0]

		If $CmdLine[$i]=$parameter_to_check Then $bool=True

	Next

	return $bool

EndFunc ;  Func IfParameter()

;___________________________________________________________________________________________________________________________________________________________


Func get_parameters()	; especially for debugging

	Local $i
	Local $text

	For $i=1 to $CmdLine[0]
			$text=$text & " " & $CmdLine[$i]
		Next

	MsgBox(0, "", "Number of parameters: " & $CmdLine[0] & @CRLF & $text)
	Exit 0

EndFunc

;___________________________________________________________________________________________________________________________________________________________