version	U12.1.00
uid	netclient.u1-1786033032-0
record	net__NetClient__state,9
	0,__s
	1,__m
	2,server
	3,port
	4,connection
	5,sbuff
	6,timeout
	7,listeners
	8,reason
record	net__NetClient__methods,38
	0,error_and_close
	1,set_timeout
	2,open
	3,close
	4,set_server
	5,set_port
	6,send
	7,strerror
	8,recv
	9,write_str
	10,write_line
	11,read_line
	12,read_str
	13,set_one
	14,initially
	15,genlisteners
	16,fire
	17,connect
	18,disconnect_fromlist
	19,disconnect_all
	20,disconnect
	21,error
	22,get_reason
	23,test_flag
	24,as_attrib
	25,int_val
	26,int_vals
	27,numeric_val
	28,numeric_vals
	29,cset_val
	30,string_val
	31,string_vals
	32,attrib
	33,set_fields
	34,field_error
	35,util__Connectable
	36,util__Error
	37,util__SetFields
impl	local
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/connectable.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/error.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/setfields.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/error.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/format.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/stringbuff.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/cltable.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/comparator.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/md5.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/notification.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/listener.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/connectable.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/setfields.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/timezone.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/time.u
link	posix.u
link	posix.u
invocable	posix_rusage
invocable	posix_message
invocable	posix_lock
invocable	posix_servent
invocable	posix_hostent
invocable	posix_timeval
invocable	posix_group
invocable	posix_passwd
invocable	posix_stat
global	23
	0,000005,net__NetClient_error_and_close,2
	1,000005,net__NetClient_set_timeout,2
	2,000005,net__NetClient_open,1
	3,000005,net__NetClient_close,1
	4,000005,net__NetClient_set_server,2
	5,000005,net__NetClient_set_port,2
	6,000005,net__NetClient_send,2
	7,000005,net__NetClient_strerror,1
	8,000005,net__NetClient_recv,2
	9,000005,net__NetClient_write_str,2
	10,000005,net__NetClient_write_line,2
	11,000005,net__NetClient_read_line,1
	12,000005,net__NetClient_read_str,2
	13,000005,net__NetClient_set_one,3
	14,000005,net__NetClient_initially,1
	15,000011,net__NetClient__state,9
	16,000011,net__NetClient__methods,38
	17,000001,net__NetClient__oprec,0
	18,000001,util__Connectable__oprec,0
	19,000001,util__Error__oprec,0
	20,000001,util__SetFields__oprec,0
	21,000005,net__NetClient,0
	22,000005,net__NetClientinitialize,0

proc net__NetClient_error_and_close
	local	0,001000,self
	local	1,001000,a
	declend
	filen	netclient.icn
	line	20
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	21
	colm	11
	synt	any
	field	error
	var	1
	line	21
	colm	17
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	22
	colm	11
	synt	any
	field	close
	line	22
	colm	17
	synt	any
	invoke	0
	unmark
lab L2
	pnull
	line	23
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_set_timeout
	local	0,001000,self
	local	1,001000,timeout
	declend
	line	29
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	30
	colm	18
	synt	any
	field	timeout
	var	1
	line	30
	colm	27
	synt	any
	asgn
	line	30
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	31
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_open
	local	0,001000,self
	local	1,000020,s
	local	2,000020,t
	local	3,000000,open
	con	0,010000,1,072
	con	1,010000,10,103,157,156,156,145,143,164,151,156,147
	con	2,010000,14,103,157,156,156,145,143,164,151,156,147,040,164,157,040
	con	3,010000,1,156
	con	4,002000,1,0
	con	5,010000,24,124,151,155,145,144,040,157,165,164,040,143,157,156,156,145,143,164,151,156,147,040,164,157,040
	con	6,010000,20,103,157,165,154,144,156,047,164,040,143,157,156,156,145,143,164,040,164,157,040
	con	7,010000,0
	con	8,010000,9,103,157,156,156,145,143,164,145,144
	declend
	line	36
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	39
	colm	11
	synt	any
	field	close
	line	39
	colm	17
	synt	any
	invoke	0
	line	39
	colm	19
	synt	any
	esusp
	goto	L3
lab L2
	line	39
	colm	20
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	pnull
	var	1
	pnull
	pnull
	pnull
	var	0
	line	40
	colm	16
	synt	any
	field	server
	str	0
	line	40
	colm	23
	synt	any
	cat
	pnull
	var	0
	line	40
	colm	34
	synt	any
	field	port
	line	40
	colm	28
	synt	any
	cat
	line	40
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	0
	line	41
	colm	11
	synt	any
	field	fire
	str	1
	pnull
	str	2
	var	1
	line	41
	colm	46
	synt	any
	cat
	line	41
	colm	16
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	line	43
	colm	7
	synt	if
	mark0
	mark	L7
	pnull
	pnull
	var	0
	line	43
	colm	18
	synt	any
	field	connection
	var	3
	var	1
	str	3
	pnull
	var	0
	line	43
	colm	47
	synt	any
	field	timeout
	line	43
	colm	35
	synt	any
	invoke	3
	line	43
	colm	29
	synt	any
	asgn
	unmark
	efail
lab L7
	pnull
	unmark
	line	44
	colm	10
	synt	ifelse
	mark	L8
	pnull
	line	44
	colm	13
	synt	any
	keywd	errno
	int	4
	line	44
	colm	20
	synt	any
	numeq
	unmark
	mark	L10
	pnull
	var	0
	line	45
	colm	24
	synt	any
	field	error
	pnull
	str	5
	var	1
	line	45
	colm	57
	synt	any
	cat
	line	45
	colm	30
	synt	any
	invoke	1
	line	45
	colm	13
	synt	any
	pret
lab L10
	synt	any
	pfail
	goto	L9
lab L8
	mark	L11
	pnull
	var	0
	line	47
	colm	24
	synt	any
	field	error
	pnull
	str	6
	var	1
	line	47
	colm	53
	synt	any
	cat
	line	47
	colm	30
	synt	any
	invoke	1
	line	47
	colm	13
	synt	any
	pret
lab L11
	synt	any
	pfail
lab L9
	line	44
	colm	10
	synt	endifelse
	line	43
	colm	7
	synt	endif
	unmark
lab L6
	mark	L12
	pnull
	pnull
	var	0
	line	50
	colm	11
	synt	any
	field	sbuff
	str	7
	line	50
	colm	17
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	var	0
	line	51
	colm	11
	synt	any
	field	fire
	str	8
	line	51
	colm	16
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	mark	L15
	pnull
	var	0
	line	52
	colm	18
	synt	any
	field	connection
	line	52
	colm	7
	synt	any
	pret
lab L15
	synt	any
	pfail
	unmark
lab L14
	pnull
	line	53
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_close
	local	0,001000,self
	local	1,000000,close
	con	0,010000,26,106,141,151,154,145,144,040,164,157,040,143,154,157,163,145,040,143,157,156,156,145,143,164,151,157,156
	con	1,010000,6,103,154,157,163,145,144
	declend
	line	58
	colm	11
	synt	any
	mark	L1
	line	59
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	59
	colm	15
	synt	any
	field	connection
	line	59
	colm	10
	synt	any
	nonnull
	unmark
	mark	L2
	mark	L3
	var	1
	pnull
	var	0
	line	60
	colm	22
	synt	any
	field	connection
	line	60
	colm	17
	synt	any
	invoke	1
	line	60
	colm	34
	synt	any
	esusp
	goto	L4
lab L3
	mark	L5
	pnull
	var	0
	line	60
	colm	46
	synt	any
	field	error
	str	0
	line	60
	colm	52
	synt	any
	invoke	1
	line	60
	colm	35
	synt	any
	pret
lab L5
	synt	any
	pfail
lab L4
	unmark
lab L2
	mark	L6
	pnull
	var	0
	line	61
	colm	14
	synt	any
	field	fire
	str	1
	line	61
	colm	19
	synt	any
	invoke	1
	unmark
lab L6
	pnull
	pnull
	var	0
	line	62
	colm	14
	synt	any
	field	connection
	line	62
	colm	27
	synt	any
	keywd	null
	line	62
	colm	25
	synt	any
	asgn
	line	59
	colm	7
	synt	endif
	unmark
lab L1
	mark	L7
	mark	L8
	pnull
	line	64
	colm	7
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	65
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_set_server
	local	0,001000,self
	local	1,001000,s
	declend
	line	70
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	71
	colm	11
	synt	any
	field	server
	var	1
	line	71
	colm	18
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	72
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_set_port
	local	0,001000,self
	local	1,001000,n
	declend
	line	77
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	78
	colm	11
	synt	any
	field	port
	var	1
	line	78
	colm	16
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	79
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_send
	local	0,001000,self
	local	1,001000,s
	local	2,000020,i
	local	3,000020,t
	local	4,000000,syswrite
	local	5,000000,fcntl
	local	6,000000,util__milliseconds
	local	7,000000,util__sleep
	con	0,002000,1,0
	con	1,010000,1,106
	con	2,010000,1,144
	con	3,002000,1,1
	con	4,002000,2,11
	con	5,010000,16,106,141,151,154,145,144,040,164,157,040,167,162,151,164,145,072
	con	6,010000,14,123,145,156,144,040,164,151,155,145,144,040,157,165,164
	con	7,002000,2,50
	declend
	line	83
	colm	11
	synt	any
	mark	L1
	line	86
	colm	7
	synt	if
	mark0
	mark	L2
	pnull
	pnull
	var	0
	line	86
	colm	15
	synt	any
	field	timeout
	line	86
	colm	10
	synt	any
	null
	line	86
	colm	23
	synt	any
	esusp
	goto	L3
lab L2
	pnull
	pnull
	var	0
	line	86
	colm	29
	synt	any
	field	timeout
	int	0
	line	86
	colm	37
	synt	any
	numeq
lab L3
	unmark
	mark	L4
	var	4
	pnull
	var	0
	line	87
	colm	30
	synt	any
	field	connection
	var	1
	line	87
	colm	25
	synt	any
	invoke	2
	line	87
	colm	10
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	86
	colm	7
	synt	endif
	unmark
lab L1
	mark	L5
	var	5
	pnull
	var	0
	line	89
	colm	19
	synt	any
	field	connection
	str	1
	str	2
	line	89
	colm	14
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	pnull
	var	3
	var	6
	line	90
	colm	30
	synt	any
	invoke	0
	line	90
	colm	9
	synt	any
	asgn
	unmark
lab L6
	mark	L7
lab L8
	line	91
	colm	7
	synt	while
	mark0
	pnull
	pnull
	var	1
	line	91
	colm	13
	synt	any
	size
	int	0
	line	91
	colm	16
	synt	any
	numgt
	unmark
	mark	L8
	line	92
	colm	10
	synt	ifelse
	mark	L11
	pnull
	var	2
	var	4
	pnull
	var	0
	line	92
	colm	31
	synt	any
	field	connection
	var	1
	line	92
	colm	26
	synt	any
	invoke	2
	line	92
	colm	15
	synt	any
	asgn
	unmark
	mark	L13
	pnull
	var	1
	pnull
	var	1
	pnull
	var	2
	int	3
	line	93
	colm	21
	synt	any
	plus
	int	0
	line	93
	colm	24
	synt	any
	synt	any
	sect
	line	93
	colm	15
	synt	any
	asgn
	unmark
lab L13
	pnull
	var	3
	var	6
	line	94
	colm	36
	synt	any
	invoke	0
	line	94
	colm	15
	synt	any
	asgn
	goto	L12
lab L11
	mark	L14
	line	96
	colm	13
	synt	if
	mark0
	pnull
	line	96
	colm	16
	synt	any
	keywd	errno
	int	4
	line	96
	colm	23
	synt	any
	numne
	unmark
	mark	L15
	pnull
	var	0
	line	97
	colm	27
	synt	any
	field	error
	pnull
	str	5
	pnull
	var	0
	line	97
	colm	58
	synt	any
	field	strerror
	line	97
	colm	67
	synt	any
	invoke	0
	line	97
	colm	52
	synt	any
	cat
	line	97
	colm	33
	synt	any
	invoke	1
	line	97
	colm	16
	synt	any
	pret
lab L15
	synt	any
	pfail
	line	96
	colm	13
	synt	endif
	unmark
lab L14
	mark	L16
	line	98
	colm	13
	synt	if
	mark0
	pnull
	pnull
	var	6
	line	98
	colm	34
	synt	any
	invoke	0
	var	3
	line	98
	colm	36
	synt	any
	minus
	pnull
	var	0
	line	98
	colm	43
	synt	any
	field	timeout
	line	98
	colm	38
	synt	any
	numgt
	unmark
	mark	L17
	pnull
	var	0
	line	99
	colm	27
	synt	any
	field	error
	str	6
	line	99
	colm	33
	synt	any
	invoke	1
	line	99
	colm	16
	synt	any
	pret
lab L17
	synt	any
	pfail
	line	98
	colm	13
	synt	endif
	unmark
lab L16
	var	7
	int	7
	line	100
	colm	24
	synt	any
	invoke	1
lab L12
	line	92
	colm	10
	synt	endifelse
lab L9
	unmark
	goto	L8
lab L10
	line	91
	colm	7
	synt	endwhile
	unmark
lab L7
	mark	L18
	mark	L19
	pnull
	line	103
	colm	7
	synt	any
	pret
lab L19
	synt	any
	pfail
	unmark
lab L18
	pnull
	line	104
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_strerror
	local	0,001000,self
	local	1,000000,sys_errstr
	con	0,010000,7,046,145,162,162,156,157,075
	declend
	line	109
	colm	11
	synt	any
	mark	L1
	mark	L2
	mark	L3
	var	1
	line	110
	colm	25
	synt	any
	keywd	errno
	line	110
	colm	24
	synt	any
	invoke	1
	line	110
	colm	33
	synt	any
	esusp
	goto	L4
lab L3
	pnull
	str	0
	line	110
	colm	49
	synt	any
	keywd	errno
	line	110
	colm	46
	synt	any
	cat
lab L4
	line	110
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	111
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_recv
	local	0,001000,self
	local	1,001000,len
	local	2,000020,l
	local	3,000000,select
	local	4,000000,sysread
	con	0,002000,1,0
	con	1,010000,17,106,141,151,154,145,144,040,164,157,040,163,145,154,145,143,164,072
	con	2,010000,26,106,141,151,154,145,144,040,164,157,040,163,145,154,145,143,164,040,050,164,151,155,145,157,165,164,051
	con	3,010000,15,105,117,106,040,145,156,143,157,165,156,164,145,162,145,144
	declend
	line	115
	colm	11
	synt	any
	mark	L1
	line	118
	colm	7
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	0
	line	118
	colm	15
	synt	any
	field	timeout
	line	118
	colm	10
	synt	any
	nonnull
	int	0
	line	118
	colm	23
	synt	any
	numgt
	unmark
	mark	L2
	pnull
	var	2
	mark	L3
	var	3
	pnull
	var	0
	line	119
	colm	28
	synt	any
	field	connection
	pnull
	var	0
	line	119
	colm	44
	synt	any
	field	timeout
	line	119
	colm	23
	synt	any
	invoke	2
	line	119
	colm	53
	synt	any
	esusp
	goto	L4
lab L3
	mark	L5
	pnull
	var	0
	line	119
	colm	65
	synt	any
	field	error
	pnull
	str	1
	pnull
	var	0
	line	119
	colm	97
	synt	any
	field	strerror
	line	119
	colm	106
	synt	any
	invoke	0
	line	119
	colm	91
	synt	any
	cat
	line	119
	colm	71
	synt	any
	invoke	1
	line	119
	colm	54
	synt	any
	pret
lab L5
	synt	any
	pfail
lab L4
	line	119
	colm	12
	synt	any
	asgn
	unmark
lab L2
	line	120
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	2
	line	120
	colm	13
	synt	any
	size
	int	0
	line	120
	colm	16
	synt	any
	numeq
	unmark
	mark	L6
	pnull
	var	0
	line	121
	colm	24
	synt	any
	field	error
	str	2
	line	121
	colm	30
	synt	any
	invoke	1
	line	121
	colm	13
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	120
	colm	10
	synt	endif
	line	118
	colm	7
	synt	endif
	unmark
lab L1
	mark	L7
	mark	L8
	mark	L9
	var	4
	pnull
	var	0
	line	123
	colm	26
	synt	any
	field	connection
	var	1
	line	123
	colm	21
	synt	any
	invoke	2
	line	123
	colm	42
	synt	any
	esusp
	goto	L10
lab L9
	pnull
	var	0
	line	123
	colm	47
	synt	any
	field	error
	str	3
	line	123
	colm	53
	synt	any
	invoke	1
lab L10
	line	123
	colm	7
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	124
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_write_str
	local	0,001000,self
	local	1,001000,s
	con	0,010000,14,123,145,156,144,151,156,147,040,163,164,162,151,156,147
	declend
	line	129
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	130
	colm	11
	synt	any
	field	fire
	str	0
	var	1
	line	130
	colm	16
	synt	any
	invoke	2
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	0
	line	131
	colm	18
	synt	any
	field	send
	var	1
	line	131
	colm	23
	synt	any
	invoke	1
	line	131
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	132
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_write_line
	local	0,001000,self
	local	1,001000,s
	con	0,010000,0
	con	1,010000,12,123,145,156,144,151,156,147,040,154,151,156,145
	con	2,010000,2,015,012
	declend
	line	137
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	138
	colm	7
	synt	any
	null
	str	0
	line	138
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	139
	colm	11
	synt	any
	field	fire
	str	1
	var	1
	line	139
	colm	16
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	0
	line	140
	colm	18
	synt	any
	field	send
	pnull
	var	1
	str	2
	line	140
	colm	25
	synt	any
	cat
	line	140
	colm	23
	synt	any
	invoke	1
	line	140
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	141
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_read_line
	local	0,001000,self
	local	1,000020,line
	local	2,000000,tab
	local	3,000000,find
	local	4,000000,move
	con	0,010000,2,015,012
	con	1,002000,1,2
	con	2,002000,1,0
	con	3,010000,9,122,145,141,144,040,154,151,156,145
	con	4,002000,4,1024
	declend
	line	146
	colm	11
	synt	any
	mark	L1
lab L2
	line	149
	colm	7
	synt	repeat
	mark	L2
	mark	L5
	pnull
	var	0
	line	153
	colm	14
	synt	any
	field	sbuff
	line	153
	colm	20
	synt	any
	bscan
	line	154
	colm	13
	synt	if
	mark0
	pnull
	var	1
	var	2
	var	3
	str	0
	line	154
	colm	36
	synt	any
	invoke	1
	line	154
	colm	29
	synt	any
	invoke	1
	line	154
	colm	21
	synt	any
	asgn
	unmark
	mark	L6
	var	4
	int	1
	line	155
	colm	22
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	0
	line	156
	colm	20
	synt	any
	field	sbuff
	var	2
	int	2
	line	156
	colm	31
	synt	any
	invoke	1
	line	156
	colm	26
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	0
	line	157
	colm	20
	synt	any
	field	fire
	str	3
	var	1
	line	157
	colm	25
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	1
	line	158
	colm	16
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	154
	colm	13
	synt	endif
	line	153
	colm	20
	synt	any
	escan
	unmark
lab L5
	pnull
	pnull
	var	0
	line	161
	colm	14
	synt	any
	field	sbuff
	dup
	mark	L10
	pnull
	var	0
	line	161
	colm	28
	synt	any
	field	recv
	int	4
	line	161
	colm	33
	synt	any
	invoke	1
	line	161
	colm	39
	synt	any
	esusp
	goto	L11
lab L10
	line	161
	colm	40
	synt	any
	pfail
lab L11
	line	161
	colm	20
	synt	any
	cat
	asgn
lab L3
	unmark
	goto	L2
lab L4
	line	149
	colm	7
	synt	endrepeat
	unmark
lab L1
	pnull
	line	163
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_read_str
	local	0,001000,self
	local	1,001000,len
	local	2,000020,t
	local	3,000000,move
	local	4,000000,tab
	con	0,002000,1,0
	con	1,010000,11,122,145,141,144,040,163,164,162,151,156,147
	declend
	line	168
	colm	11
	synt	any
	mark	L1
	line	173
	colm	7
	synt	ifelse
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	173
	colm	15
	synt	any
	field	sbuff
	line	173
	colm	10
	synt	any
	size
	int	0
	line	173
	colm	21
	synt	any
	numgt
	unmark
	pnull
	var	0
	line	174
	colm	14
	synt	any
	field	sbuff
	line	174
	colm	20
	synt	any
	bscan
	mark	L4
	pnull
	var	2
	mark	L5
	var	3
	var	1
	line	175
	colm	24
	synt	any
	invoke	1
	line	175
	colm	30
	synt	any
	esusp
	goto	L6
lab L5
	var	4
	int	0
	line	175
	colm	37
	synt	any
	invoke	1
lab L6
	line	175
	colm	15
	synt	any
	asgn
	unmark
lab L4
	pnull
	pnull
	var	0
	line	176
	colm	17
	synt	any
	field	sbuff
	var	4
	int	0
	line	176
	colm	28
	synt	any
	invoke	1
	line	176
	colm	23
	synt	any
	asgn
	line	174
	colm	20
	synt	any
	escan
	goto	L3
lab L2
	pnull
	var	2
	mark	L7
	pnull
	var	0
	line	179
	colm	19
	synt	any
	field	recv
	var	1
	line	179
	colm	24
	synt	any
	invoke	1
	line	179
	colm	29
	synt	any
	esusp
	goto	L8
lab L7
	line	179
	colm	30
	synt	any
	pfail
lab L8
	line	179
	colm	12
	synt	any
	asgn
lab L3
	line	173
	colm	7
	synt	endifelse
	unmark
lab L1
	mark	L9
	pnull
	var	0
	line	181
	colm	11
	synt	any
	field	fire
	str	1
	var	2
	line	181
	colm	16
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	mark	L11
	var	2
	line	182
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	183
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_set_one
	local	0,001000,self
	local	1,001000,attr
	local	2,001000,val
	con	0,010000,7,164,151,155,145,157,165,164
	con	1,010000,6,163,145,162,166,145,162
	con	2,010000,4,160,157,162,164
	con	3,010000,18,125,156,153,156,157,167,156,040,141,164,164,162,151,142,165,164,145,040
	declend
	line	185
	colm	11
	synt	any
	mark	L1
	line	186
	colm	7
	synt	case
	mark0
	var	1
	eret
	mark	L3
	ccase
	str	0
	line	187
	colm	19
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	line	187
	colm	25
	synt	any
	field	set_timeout
	pnull
	var	0
	line	187
	colm	42
	synt	any
	field	int_val
	var	1
	var	2
	line	187
	colm	50
	synt	any
	invoke	2
	line	187
	colm	37
	synt	any
	invoke	1
	goto	L2
lab L3
	mark	L4
	ccase
	str	1
	line	188
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	line	188
	colm	24
	synt	any
	field	set_server
	pnull
	var	0
	line	188
	colm	40
	synt	any
	field	string_val
	var	1
	var	2
	line	188
	colm	51
	synt	any
	invoke	2
	line	188
	colm	35
	synt	any
	invoke	1
	goto	L2
lab L4
	mark	L5
	ccase
	str	2
	line	189
	colm	16
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	line	189
	colm	22
	synt	any
	field	set_port
	pnull
	var	0
	line	189
	colm	36
	synt	any
	field	int_val
	var	1
	var	2
	line	189
	colm	44
	synt	any
	invoke	2
	line	189
	colm	31
	synt	any
	invoke	1
	goto	L2
lab L5
	pop
	pnull
	var	0
	line	190
	colm	24
	synt	any
	field	field_error
	pnull
	str	3
	var	1
	line	190
	colm	57
	synt	any
	cat
	line	190
	colm	36
	synt	any
	invoke	1
lab L2
	line	186
	colm	7
	synt	endcase
	unmark
lab L1
	pnull
	line	192
	colm	1
	synt	any
	pfail
	end
proc net__NetClient_initially
	local	0,001000,self
	con	0,010000,0
	declend
	line	194
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	195
	colm	11
	synt	any
	field	util__Connectable
	line	195
	colm	29
	synt	any
	field	initially
	line	195
	colm	39
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	196
	colm	11
	synt	any
	field	sbuff
	str	0
	line	196
	colm	17
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	197
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	198
	colm	1
	synt	any
	pfail
	end
proc net__NetClient
	local	0,000020,self
	local	1,000020,clone
	local	2,000000,net__NetClient__oprec
	local	3,000000,net__NetClientinitialize
	local	4,000000,util__Connectable__oprec
	local	5,000000,util__Connectableinitialize
	local	6,000000,util__Error__oprec
	local	7,000000,util__Errorinitialize
	local	8,000000,util__SetFields__oprec
	local	9,000000,util__SetFieldsinitialize
	local	10,000000,net__NetClient__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	2
	line	8
	colm	6
	synt	any
	null
	unmark
	var	3
	line	8
	colm	58
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	4
	line	9
	colm	6
	synt	any
	null
	unmark
	var	5
	line	9
	colm	64
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	2
	line	10
	colm	24
	synt	any
	field	util__Connectable
	var	4
	line	10
	colm	43
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	6
	line	11
	colm	6
	synt	any
	null
	unmark
	var	7
	line	11
	colm	52
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	2
	line	12
	colm	24
	synt	any
	field	util__Error
	var	6
	line	12
	colm	37
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	13
	colm	3
	synt	if
	mark0
	pnull
	var	8
	line	13
	colm	6
	synt	any
	null
	unmark
	var	9
	line	13
	colm	60
	synt	any
	invoke	0
	line	13
	colm	3
	synt	endif
	unmark
lab L9
	pnull
	pnull
	var	2
	line	14
	colm	24
	synt	any
	field	util__SetFields
	var	8
	line	14
	colm	41
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L10
	pnull
	var	0
	var	10
	line	16
	colm	33
	synt	any
	keywd	null
	var	2
	line	16
	colm	32
	synt	any
	invoke	2
	line	16
	colm	8
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	0
	line	17
	colm	7
	synt	any
	field	__s
	var	0
	line	17
	colm	12
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	mark	L13
	pnull
	pnull
	var	0
	line	18
	colm	7
	synt	any
	field	__m
	line	18
	colm	11
	synt	any
	field	initially
	var	0
	pnull
	line	18
	colm	21
	synt	any
	invoke	2
	line	18
	colm	29
	synt	any
	esusp
	goto	L14
lab L13
	line	18
	colm	31
	synt	any
	pfail
lab L14
	unmark
lab L12
	mark	L15
	mark	L16
	var	0
	line	19
	colm	3
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	20
	colm	1
	synt	any
	pfail
	end
proc net__NetClientinitialize
	local	0,000000,net__NetClient__oprec
	local	1,000000,net__NetClient__methods
	local	2,000000,net__NetClient_error_and_close
	local	3,000000,net__NetClient_set_timeout
	local	4,000000,net__NetClient_open
	local	5,000000,net__NetClient_close
	local	6,000000,net__NetClient_set_server
	local	7,000000,net__NetClient_set_port
	local	8,000000,net__NetClient_send
	local	9,000000,net__NetClient_strerror
	local	10,000000,net__NetClient_recv
	local	11,000000,net__NetClient_write_str
	local	12,000000,net__NetClient_write_line
	local	13,000000,net__NetClient_read_line
	local	14,000000,net__NetClient_read_str
	local	15,000000,net__NetClient_set_one
	local	16,000000,net__NetClient_initially
	local	17,000000,util__Connectable_genlisteners
	local	18,000000,util__Connectable_fire
	local	19,000000,util__Connectable_connect
	local	20,000000,util__Connectable_disconnect_fromlist
	local	21,000000,util__Connectable_disconnect_all
	local	22,000000,util__Connectable_disconnect
	local	23,000000,util__Error_error
	local	24,000000,util__Error_get_reason
	local	25,000000,util__SetFields_test_flag
	local	26,000000,util__SetFields_as_attrib
	local	27,000000,util__SetFields_int_val
	local	28,000000,util__SetFields_int_vals
	local	29,000000,util__SetFields_numeric_val
	local	30,000000,util__SetFields_numeric_vals
	local	31,000000,util__SetFields_cset_val
	local	32,000000,util__SetFields_string_val
	local	33,000000,util__SetFields_string_vals
	local	34,000000,util__SetFields_attrib
	local	35,000000,util__SetFields_set_fields
	local	36,000000,util__SetFields_field_error
	declend
	line	22
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	var	23
	var	24
	var	25
	var	26
	var	27
	var	28
	var	29
	var	30
	var	31
	var	32
	var	33
	var	34
	var	35
	var	36
	line	23
	colm	59
	synt	any
	invoke	35
	line	23
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	24
	colm	1
	synt	any
	pfail
	end
