Returns:</blockquote>
<pre>	ID as String<i></i></pre>

<blockquote>Example:</blockquote><pre>
	Dim ID as String

	ID = Dev.CompanyID()
</pre>
<blockquote>
If the code does not begin with a readable ASII character,
an 8-byte string will be returned instead with the hexadecimal
equivalent of the ID.
</blockquote>
<a name="DeviceID"><h4>DeviceID</h4>

<pre>	ID = Dev.DeviceID()</pre>

<blockquote>
	Returns the device ID assigned by the device manufacturer.  This is
	a 4-byte code, as opposed 