<?xl version="0.1" encoding="UTF-8"?>


<Define> ^port 9102 </Define>
<Define> ^id -1 </Define>
<Define> ^err ^'(-1 -1 -1 -1 -1 -1) </Define>
<While> (Not (= 0 (GetElement err 5))) <Sequence>
	<NewEnvironment><CurrentEnvironment/>
	</NewEnvironment>
	<set> ^port (+ port 1) </set>
	<set> ^err
	<ErrHandler>
	<set> ^id <OpenInterpreter>
		accept	^Env0

		<Port> ^port </Port>
		<MaxConnection> 10 </MaxConnection>
		<Permission>
			<list>root user</list>
			<Allow>domain localhost</Allow>
			<Deny>all</Deny>
		</Permission>
	</OpenInterpreter></set>
	</ErrHandler></set>
</Sequence></While>

<Save option="xl" oflag="trunc:creat" mode="0644" multiroot="on"
	format.mode="xml">
	(+ gv-initdir "gbview.ap")
	<quote>
		(
		<port> ($ port) </port>
		<pid> ($ gv-selfpid) </pid>
		)
	</quote>
</Save>

<Load option="exec"> (+ gv-initdir "gbview.param") </Load>


