.;+ WHERE.CMD	- Returns info about current node
.;
.; Call:	@WHERE
.;
.; Returns:	A string displaying your node name, ti: device, and current
.;		UIC.  If accounting is active, also displays username,
.;		login UIC, and system id.
.;
.; 11-Mar-85	G Altobello
.;

	.enable substitution
	.disable display

	.parse <accoun> "," name sid junks
	.if name <> "" .sets name name[15.:15.]+". "+name[1:14.]
	.testdevice ti:
	.parse <exstri> "," tidev junks
	.testdevice sy:
	.parse <exstri> "," sydev junks

;"'name'" on '<netnod>'::'tidev''<loguic>' as "'sid'", UIC='sydev''<uic>'

	.exit

