version	U12.1.00
uid	hostname.u1-1786291376-0
impl	error
global	1
	0,000005,hostname,0

proc hostname
	local	0,000020,fname
	local	1,000020,get_name
	local	2,000040,h_name
	local	3,000000,find
	local	4,000000,stop
	local	5,000000,close
	local	6,000000,open
	con	0,010000,4,125,116,111,130
	con	1,010000,5,160,151,160,145,163
	con	2,010000,32,150,157,163,164,156,141,155,145,072,040,040,167,157,162,153,163,040,157,156,154,171,040,165,156,144,145,162,040,125,116,111,130
	con	3,010000,17,057,165,163,162,057,142,151,156,057,150,157,163,164,156,141,155,145
	con	4,010000,11,057,142,151,156,057,165,165,156,141,155,145
	con	5,010000,10,057,142,151,156,057,165,156,141,155,145
	con	6,010000,15,057,165,163,162,057,142,151,156,057,165,165,156,141,155,145
	con	7,010000,18,057,165,163,162,057,142,151,156,057,165,165,156,141,155,145,040,055,154
	con	8,010000,13,057,142,151,156,057,165,156,141,155,145,040,055,156
	con	9,010000,2,160,162
	con	10,010000,52,150,157,163,164,156,141,155,145,072,040,040,143,141,156,047,164,040,146,151,156,144,040,150,157,163,164,156,141,155,145,057,165,165,156,141,155,145,057,165,156,141,155,145,040,143,157,155,155,141,156,144,163
	declend
	filen	hostname.icn
	line	31
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	mark	L5
	pushn1
	var	3
	str	0
	line	36
	colm	22
	synt	any
	keywd	features
	line	36
	colm	14
	synt	any
	invoke	2
	var	3
	str	1
	line	36
	colm	47
	synt	any
	keywd	features
	line	36
	colm	38
	synt	any
	invoke	2
	line	36
	colm	9
	synt	any
	invoke	2
	line	36
	colm	59
	synt	any
	esusp
	goto	L6
lab L5
	var	4
	str	2
	line	37
	colm	17
	synt	any
	invoke	1
lab L6
	unmark
lab L4
	mark	L7
	var	5
	var	6
	pnull
	var	0
	mark	L8
	str	3
	line	38
	colm	48
	synt	any
	esusp
	goto	L9
lab L8
	mark	L10
	str	4
	line	38
	colm	62
	synt	any
	esusp
	goto	L11
lab L10
	str	5
lab L11
lab L9
	line	38
	colm	26
	synt	any
	rasgn
	line	38
	colm	19
	synt	any
	invoke	1
	line	38
	colm	14
	synt	any
	invoke	1
	unmark
lab L7
	mark	L12
	pnull
	var	0
	mark	L13
	line	40
	colm	13
	synt	case
	mark0
	pnull
	var	0
	line	40
	colm	18
	synt	any
	nonnull
	eret
	mark	L16
	ccase
	str	3
	line	41
	colm	37
	synt	any
	eqv
	unmark
	pop
	str	3
	goto	L15
lab L16
	mark	L17
	ccase
	str	6
	line	42
	colm	37
	synt	any
	eqv
	unmark
	pop
	str	7
	goto	L15
lab L17
	mark	L18
	ccase
	str	5
	line	43
	colm	37
	synt	any
	eqv
	unmark
	pop
	str	8
	goto	L15
lab L18
	efail
lab L15
	line	40
	colm	13
	synt	endcase
	line	44
	colm	15
	synt	any
	esusp
	goto	L14
lab L13
	str	7
lab L14
	line	39
	colm	15
	synt	any
	asgn
	unmark
lab L12
	mark	L19
	pnull
	var	1
	mark	L20
	var	6
	var	0
	str	9
	line	46
	colm	25
	synt	any
	invoke	2
	line	46
	colm	39
	synt	any
	esusp
	goto	L21
lab L20
	var	4
	str	10
	line	47
	colm	17
	synt	any
	invoke	1
lab L21
	line	46
	colm	18
	synt	any
	asgn
	unmark
lab L19
	mark	L22
	pnull
	var	2
	pnull
	var	1
	line	48
	colm	19
	synt	any
	bang
	line	48
	colm	16
	synt	any
	asgn
	unmark
lab L22
	var	5
	var	1
	line	49
	colm	14
	synt	any
	invoke	1
	unmark
lab L2
	einit	L1
lab L3
	mark	L23
	mark	L24
	var	2
	line	52
	colm	5
	synt	any
	pret
lab L24
	synt	any
	pfail
	unmark
lab L23
	pnull
	line	54
	colm	1
	synt	any
	pfail
	end
