procedure sysinfo()

string	host		{prompt="Host system name"}
string	user		{prompt="User name/id"}
string	path		{prompt="Current working directory"}
string	version		{prompt="IRAF version running on host"}

begin
        string	cline
	struct	line
	int	ll

	path > "tmpssnf.path"

	list = "tmpssnf.path"
	while ( fscan(list,line) != EOF ) { cline = line }
	cparse (cline, delim="!")

	host	= cparse.field1
	user	= envget("userid")
	path	= cparse.field2
	version	= envget("version")

        list = ""
        delete("tmpssnf.path", yes, verify=no)

end