Break On

	If Open(1,'c:\temp\envars.bat') = 0

		$raw_line = Trim(SubStr(Lcase(ReadLine(1)),5))

			While @ERROR = 0

				$var_name = ''
				$var_value = ''

				;provide special handling for LDAP path
				If InStr($raw_line,'CompPath')
					For Each $element in Split($raw_line,'CompPath' + Chr(61))
						$var_name = 'CompPath'
						$var_value = $element
					Next
					GoTo SET_VAR
				EndIf

				For Each $element in Split($raw_line,Chr(61))
					Select
						Case $var_name = '' $var_name = $element
						Case $var_value = '' $var_value = $element
					EndSelect
				Next

				:SET_VAR
				? '$$' + $var_name + '=' + $var_value
				Execute('$$' + $var_name + '=' + $var_value)

				$raw_line = Trim(SubStr(Lcase(ReadLine(1)),5))

			Loop

		Close(1)

	EndIf

? '___________________________________________________________________'

@CRLF

? '$$sitecode=' + $sitecode
? '$$oldcompname=' + $oldcompname

Get $

Return