version	U12.1.00
uid	popclient.u1-1788539952-0
record	mail__PopClient__state,11
	0,__s
	1,__m
	2,username
	3,password
	4,server
	5,port
	6,connection
	7,sbuff
	8,timeout
	9,listeners
	10,reason
record	mail__PopClient__methods,53
	0,dele
	1,set_username
	2,set_password
	3,open_connection
	4,login
	5,close_connection
	6,rset
	7,retr
	8,list
	9,uidl
	10,read_multi_lines
	11,send_command
	12,stat
	13,read_response
	14,set_one
	15,initially
	16,error_and_close
	17,set_timeout
	18,open
	19,close
	20,set_server
	21,set_port
	22,send
	23,strerror
	24,recv
	25,write_str
	26,write_line
	27,read_line
	28,read_str
	29,genlisteners
	30,fire
	31,connect
	32,disconnect_fromlist
	33,disconnect_all
	34,disconnect
	35,error
	36,get_reason
	37,test_flag
	38,as_attrib
	39,int_val
	40,int_vals
	41,numeric_val
	42,numeric_vals
	43,cset_val
	44,string_val
	45,string_vals
	46,attrib
	47,set_fields
	48,field_error
	49,net__NetClient
	50,util__Connectable
	51,util__Error
	52,util__SetFields
impl	local
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/netclient.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/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/netclient.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/url.u
global	25
	0,000005,mail__PopClient_dele,2
	1,000005,mail__PopClient_set_username,2
	2,000005,mail__PopClient_set_password,2
	3,000005,mail__PopClient_open_connection,1
	4,000005,mail__PopClient_login,1
	5,000005,mail__PopClient_close_connection,1
	6,000005,mail__PopClient_rset,1
	7,000005,mail__PopClient_retr,2
	8,000005,mail__PopClient_list,2
	9,000005,mail__PopClient_uidl,2
	10,000005,mail__PopClient_read_multi_lines,1
	11,000005,mail__PopClient_send_command,2
	12,000005,mail__PopClient_stat,1
	13,000005,mail__PopClient_read_response,1
	14,000005,mail__PopClient_set_one,3
	15,000005,mail__PopClient_initially,-2
	16,000011,mail__PopClient__state,11
	17,000011,mail__PopClient__methods,53
	18,000001,mail__PopClient__oprec,0
	19,000001,net__NetClient__oprec,0
	20,000001,util__Connectable__oprec,0
	21,000001,util__Error__oprec,0
	22,000001,util__SetFields__oprec,0
	23,000005,mail__PopClient,-1
	24,000005,mail__PopClientinitialize,0

proc mail__PopClient_dele
	local	0,001000,self
	local	1,001000,n
	con	0,010000,5,104,105,114,105,040
	declend
	filen	popclient.icn
	line	14
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	15
	colm	11
	synt	any
	field	send_command
	pnull
	str	0
	var	1
	line	15
	colm	32
	synt	any
	cat
	line	15
	colm	24
	synt	any
	invoke	1
	line	15
	colm	36
	synt	any
	esusp
	goto	L3
lab L2
	line	15
	colm	37
	synt	any
	pfail
lab L3
	unmark
lab L1
	pnull
	line	16
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_set_username
	local	0,001000,self
	local	1,001000,s
	declend
	line	21
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	22
	colm	11
	synt	any
	field	username
	var	1
	line	22
	colm	20
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	23
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_set_password
	local	0,001000,self
	local	1,001000,s
	declend
	line	28
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	29
	colm	11
	synt	any
	field	password
	var	1
	line	29
	colm	20
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	30
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_open_connection
	local	0,001000,self
	local	1,000020,s
	declend
	line	35
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	37
	colm	11
	synt	any
	field	open
	line	37
	colm	16
	synt	any
	invoke	0
	line	37
	colm	18
	synt	any
	esusp
	goto	L3
lab L2
	line	37
	colm	19
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	mark	L5
	pnull
	var	0
	line	38
	colm	11
	synt	any
	field	read_response
	line	38
	colm	25
	synt	any
	invoke	0
	line	38
	colm	27
	synt	any
	esusp
	goto	L6
lab L5
	line	38
	colm	28
	synt	any
	pfail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	pnull
	var	0
	line	39
	colm	18
	synt	any
	field	connection
	line	39
	colm	7
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	40
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_login
	local	0,001000,self
	con	0,010000,5,125,123,105,122,040
	con	1,010000,5,120,101,123,123,040
	declend
	line	45
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	46
	colm	11
	synt	any
	field	send_command
	pnull
	str	0
	pnull
	var	0
	line	46
	colm	38
	synt	any
	field	username
	line	46
	colm	32
	synt	any
	cat
	line	46
	colm	24
	synt	any
	invoke	1
	line	46
	colm	48
	synt	any
	esusp
	goto	L3
lab L2
	line	46
	colm	49
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	mark	L5
	pnull
	var	0
	line	47
	colm	11
	synt	any
	field	send_command
	pnull
	str	1
	pnull
	var	0
	line	47
	colm	38
	synt	any
	field	password
	line	47
	colm	32
	synt	any
	cat
	line	47
	colm	24
	synt	any
	invoke	1
	line	47
	colm	48
	synt	any
	esusp
	goto	L6
lab L5
	line	47
	colm	49
	synt	any
	pfail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	pnull
	line	48
	colm	7
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	49
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_close_connection
	local	0,001000,self
	con	0,010000,4,121,125,111,124
	declend
	line	54
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	55
	colm	11
	synt	any
	field	send_command
	str	0
	line	55
	colm	24
	synt	any
	invoke	1
	line	55
	colm	32
	synt	any
	esusp
	goto	L3
lab L2
	line	55
	colm	33
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	mark	L5
	pnull
	var	0
	line	56
	colm	11
	synt	any
	field	close
	line	56
	colm	17
	synt	any
	invoke	0
	line	56
	colm	19
	synt	any
	esusp
	goto	L6
lab L5
	line	56
	colm	20
	synt	any
	pfail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	pnull
	line	57
	colm	7
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	58
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_rset
	local	0,001000,self
	con	0,010000,4,122,123,105,124
	declend
	line	63
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	64
	colm	11
	synt	any
	field	send_command
	str	0
	line	64
	colm	24
	synt	any
	invoke	1
	line	64
	colm	32
	synt	any
	esusp
	goto	L3
lab L2
	line	64
	colm	33
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	mark	L5
	pnull
	line	65
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	66
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_retr
	local	0,001000,self
	local	1,001000,n
	local	2,000020,l
	local	3,000020,m
	local	4,000020,s
	local	5,000000,mail__Message
	con	0,010000,5,122,105,124,122,040
	con	1,010000,0
	con	2,010000,2,015,012
	declend
	line	71
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	73
	colm	11
	synt	any
	field	send_command
	pnull
	str	0
	var	1
	line	73
	colm	32
	synt	any
	cat
	line	73
	colm	24
	synt	any
	invoke	1
	line	73
	colm	36
	synt	any
	esusp
	goto	L3
lab L2
	line	73
	colm	37
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	pnull
	var	2
	mark	L5
	pnull
	var	0
	line	74
	colm	16
	synt	any
	field	read_multi_lines
	line	74
	colm	33
	synt	any
	invoke	0
	line	74
	colm	35
	synt	any
	esusp
	goto	L6
lab L5
	line	74
	colm	36
	synt	any
	pfail
lab L6
	line	74
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L7
	pnull
	var	4
	str	1
	line	76
	colm	9
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	line	77
	colm	7
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	pnull
	var	2
	line	77
	colm	20
	synt	any
	bang
	str	2
	line	77
	colm	23
	synt	any
	cat
	line	77
	colm	15
	synt	any
	cat
	asgn
	pop
lab L9
	efail
lab L10
	line	77
	colm	7
	synt	endevery
	unmark
lab L8
	mark	L11
	pnull
	var	3
	var	5
	line	79
	colm	25
	synt	any
	invoke	0
	line	79
	colm	9
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	mark	L13
	pnull
	var	3
	line	80
	colm	8
	synt	any
	field	parse
	var	4
	line	80
	colm	14
	synt	any
	invoke	1
	line	80
	colm	18
	synt	any
	esusp
	goto	L14
lab L13
	mark	L15
	pnull
	var	0
	line	80
	colm	31
	synt	any
	field	error
	var	3
	line	80
	colm	37
	synt	any
	invoke	1
	line	80
	colm	20
	synt	any
	pret
lab L15
	synt	any
	pfail
lab L14
	unmark
lab L12
	mark	L16
	mark	L17
	var	3
	line	82
	colm	7
	synt	any
	pret
lab L17
	synt	any
	pfail
	unmark
lab L16
	pnull
	line	83
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_list
	local	0,001000,self
	local	1,001000,n
	local	2,000020,l
	local	3,000020,r
	local	4,000020,num
	local	5,000020,size
	local	6,000020,s
	local	7,000000,table
	local	8,000000,integer
	local	9,000000,tab
	local	10,000000,many
	local	11,000000,insert
	con	0,010000,4,114,111,123,124
	con	1,010000,10,102,141,144,040,154,151,163,164,072,040
	con	2,010000,1,040
	con	3,010000,5,114,111,123,124,040
	declend
	line	91
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	var	7
	line	94
	colm	19
	synt	any
	invoke	0
	line	94
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	96
	colm	7
	synt	ifelse
	mark	L3
	pnull
	var	1
	line	96
	colm	10
	synt	any
	null
	unmark
	mark	L5
	mark	L6
	pnull
	var	0
	line	97
	colm	14
	synt	any
	field	send_command
	str	0
	line	97
	colm	27
	synt	any
	invoke	1
	line	97
	colm	35
	synt	any
	esusp
	goto	L7
lab L6
	line	97
	colm	36
	synt	any
	pfail
lab L7
	unmark
lab L5
	mark	L8
	pnull
	var	2
	mark	L9
	pnull
	var	0
	line	98
	colm	19
	synt	any
	field	read_multi_lines
	line	98
	colm	36
	synt	any
	invoke	0
	line	98
	colm	38
	synt	any
	esusp
	goto	L10
lab L9
	line	98
	colm	39
	synt	any
	pfail
lab L10
	line	98
	colm	12
	synt	any
	asgn
	unmark
lab L8
	line	99
	colm	10
	synt	every
	mark0
	pnull
	var	6
	pnull
	var	2
	line	99
	colm	21
	synt	any
	bang
	line	99
	colm	18
	synt	any
	asgn
	pop
	mark0
	mark	L13
	var	6
	line	100
	colm	15
	synt	any
	bscan
	mark	L14
	pnull
	var	4
	mark	L15
	var	8
	var	9
	var	10
	line	101
	colm	46
	synt	any
	keywd	digits
	line	101
	colm	45
	synt	any
	invoke	1
	line	101
	colm	38
	synt	any
	invoke	1
	line	101
	colm	32
	synt	any
	invoke	1
	line	101
	colm	57
	synt	any
	esusp
	goto	L16
lab L15
	mark	L17
	pnull
	var	0
	line	101
	colm	70
	synt	any
	field	error
	pnull
	str	1
	var	6
	line	101
	colm	89
	synt	any
	cat
	line	101
	colm	76
	synt	any
	invoke	1
	line	101
	colm	59
	synt	any
	pret
lab L17
	synt	any
	pfail
lab L16
	line	101
	colm	20
	synt	any
	asgn
	unmark
lab L14
	mark	L18
	pnull
	str	2
	line	102
	colm	16
	synt	any
	tabmat
	unmark
lab L18
	pnull
	var	5
	mark	L19
	var	8
	var	9
	var	10
	line	103
	colm	47
	synt	any
	keywd	digits
	line	103
	colm	46
	synt	any
	invoke	1
	line	103
	colm	39
	synt	any
	invoke	1
	line	103
	colm	33
	synt	any
	invoke	1
	line	103
	colm	58
	synt	any
	esusp
	goto	L20
lab L19
	mark	L21
	pnull
	var	0
	line	103
	colm	71
	synt	any
	field	error
	pnull
	str	1
	var	6
	line	103
	colm	90
	synt	any
	cat
	line	103
	colm	77
	synt	any
	invoke	1
	line	103
	colm	60
	synt	any
	pret
lab L21
	synt	any
	pfail
lab L20
	line	103
	colm	21
	synt	any
	asgn
	line	100
	colm	15
	synt	any
	escan
	unmark
lab L13
	var	11
	var	3
	var	4
	var	5
	line	105
	colm	21
	synt	any
	invoke	3
	unmark
lab L11
	efail
lab L12
	line	99
	colm	10
	synt	endevery
	goto	L4
lab L3
	mark	L22
	pnull
	var	6
	mark	L23
	pnull
	var	0
	line	109
	colm	19
	synt	any
	field	send_command
	pnull
	str	3
	var	1
	line	109
	colm	40
	synt	any
	cat
	line	109
	colm	32
	synt	any
	invoke	1
	line	109
	colm	44
	synt	any
	esusp
	goto	L24
lab L23
	line	109
	colm	45
	synt	any
	pfail
lab L24
	line	109
	colm	12
	synt	any
	asgn
	unmark
lab L22
	mark	L25
	var	6
	line	110
	colm	12
	synt	any
	bscan
	mark	L26
	pnull
	var	4
	mark	L27
	var	8
	var	9
	var	10
	line	111
	colm	43
	synt	any
	keywd	digits
	line	111
	colm	42
	synt	any
	invoke	1
	line	111
	colm	35
	synt	any
	invoke	1
	line	111
	colm	29
	synt	any
	invoke	1
	line	111
	colm	54
	synt	any
	esusp
	goto	L28
lab L27
	mark	L29
	pnull
	var	0
	line	111
	colm	67
	synt	any
	field	error
	pnull
	str	1
	var	6
	line	111
	colm	86
	synt	any
	cat
	line	111
	colm	73
	synt	any
	invoke	1
	line	111
	colm	56
	synt	any
	pret
lab L29
	synt	any
	pfail
lab L28
	line	111
	colm	17
	synt	any
	asgn
	unmark
lab L26
	mark	L30
	pnull
	str	2
	line	112
	colm	13
	synt	any
	tabmat
	unmark
lab L30
	pnull
	var	5
	mark	L31
	var	8
	var	9
	var	10
	line	113
	colm	44
	synt	any
	keywd	digits
	line	113
	colm	43
	synt	any
	invoke	1
	line	113
	colm	36
	synt	any
	invoke	1
	line	113
	colm	30
	synt	any
	invoke	1
	line	113
	colm	55
	synt	any
	esusp
	goto	L32
lab L31
	mark	L33
	pnull
	var	0
	line	113
	colm	68
	synt	any
	field	error
	pnull
	str	1
	var	6
	line	113
	colm	87
	synt	any
	cat
	line	113
	colm	74
	synt	any
	invoke	1
	line	113
	colm	57
	synt	any
	pret
lab L33
	synt	any
	pfail
lab L32
	line	113
	colm	18
	synt	any
	asgn
	line	110
	colm	12
	synt	any
	escan
	unmark
lab L25
	var	11
	var	3
	var	4
	var	5
	line	115
	colm	18
	synt	any
	invoke	3
lab L4
	line	96
	colm	7
	synt	endifelse
	unmark
lab L2
	mark	L34
	mark	L35
	var	3
	line	118
	colm	7
	synt	any
	pret
lab L35
	synt	any
	pfail
	unmark
lab L34
	pnull
	line	119
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_uidl
	local	0,001000,self
	local	1,001000,n
	local	2,000020,l
	local	3,000020,r
	local	4,000020,num
	local	5,000020,id
	local	6,000020,s
	local	7,000000,table
	local	8,000000,integer
	local	9,000000,tab
	local	10,000000,many
	local	11,000000,insert
	con	0,010000,4,125,111,104,114
	con	1,010000,10,102,141,144,040,154,151,163,164,072,040
	con	2,010000,1,040
	con	3,002000,1,0
	con	4,010000,5,125,111,104,114,040
	declend
	line	127
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	var	7
	line	130
	colm	19
	synt	any
	invoke	0
	line	130
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	132
	colm	7
	synt	ifelse
	mark	L3
	pnull
	var	1
	line	132
	colm	10
	synt	any
	null
	unmark
	mark	L5
	mark	L6
	pnull
	var	0
	line	133
	colm	14
	synt	any
	field	send_command
	str	0
	line	133
	colm	27
	synt	any
	invoke	1
	line	133
	colm	35
	synt	any
	esusp
	goto	L7
lab L6
	line	133
	colm	36
	synt	any
	pfail
lab L7
	unmark
lab L5
	mark	L8
	pnull
	var	2
	mark	L9
	pnull
	var	0
	line	134
	colm	19
	synt	any
	field	read_multi_lines
	line	134
	colm	36
	synt	any
	invoke	0
	line	134
	colm	38
	synt	any
	esusp
	goto	L10
lab L9
	line	134
	colm	39
	synt	any
	pfail
lab L10
	line	134
	colm	12
	synt	any
	asgn
	unmark
lab L8
	line	135
	colm	10
	synt	every
	mark0
	pnull
	var	6
	pnull
	var	2
	line	135
	colm	21
	synt	any
	bang
	line	135
	colm	18
	synt	any
	asgn
	pop
	mark0
	mark	L13
	var	6
	line	136
	colm	15
	synt	any
	bscan
	mark	L14
	pnull
	var	4
	mark	L15
	var	8
	var	9
	var	10
	line	137
	colm	46
	synt	any
	keywd	digits
	line	137
	colm	45
	synt	any
	invoke	1
	line	137
	colm	38
	synt	any
	invoke	1
	line	137
	colm	32
	synt	any
	invoke	1
	line	137
	colm	57
	synt	any
	esusp
	goto	L16
lab L15
	mark	L17
	pnull
	var	0
	line	137
	colm	70
	synt	any
	field	error
	pnull
	str	1
	var	6
	line	137
	colm	89
	synt	any
	cat
	line	137
	colm	76
	synt	any
	invoke	1
	line	137
	colm	59
	synt	any
	pret
lab L17
	synt	any
	pfail
lab L16
	line	137
	colm	20
	synt	any
	asgn
	unmark
lab L14
	mark	L18
	pnull
	str	2
	line	138
	colm	16
	synt	any
	tabmat
	unmark
lab L18
	pnull
	var	5
	var	9
	int	3
	line	139
	colm	27
	synt	any
	invoke	1
	line	139
	colm	19
	synt	any
	asgn
	line	136
	colm	15
	synt	any
	escan
	unmark
lab L13
	var	11
	var	3
	var	4
	var	5
	line	141
	colm	21
	synt	any
	invoke	3
	unmark
lab L11
	efail
lab L12
	line	135
	colm	10
	synt	endevery
	goto	L4
lab L3
	mark	L19
	pnull
	var	6
	mark	L20
	pnull
	var	0
	line	145
	colm	19
	synt	any
	field	send_command
	pnull
	str	4
	var	1
	line	145
	colm	40
	synt	any
	cat
	line	145
	colm	32
	synt	any
	invoke	1
	line	145
	colm	44
	synt	any
	esusp
	goto	L21
lab L20
	line	145
	colm	45
	synt	any
	pfail
lab L21
	line	145
	colm	12
	synt	any
	asgn
	unmark
lab L19
	mark	L22
	var	6
	line	146
	colm	12
	synt	any
	bscan
	mark	L23
	pnull
	var	4
	mark	L24
	var	8
	var	9
	var	10
	line	147
	colm	43
	synt	any
	keywd	digits
	line	147
	colm	42
	synt	any
	invoke	1
	line	147
	colm	35
	synt	any
	invoke	1
	line	147
	colm	29
	synt	any
	invoke	1
	line	147
	colm	54
	synt	any
	esusp
	goto	L25
lab L24
	mark	L26
	pnull
	var	0
	line	147
	colm	67
	synt	any
	field	error
	pnull
	str	1
	var	6
	line	147
	colm	86
	synt	any
	cat
	line	147
	colm	73
	synt	any
	invoke	1
	line	147
	colm	56
	synt	any
	pret
lab L26
	synt	any
	pfail
lab L25
	line	147
	colm	17
	synt	any
	asgn
	unmark
lab L23
	mark	L27
	pnull
	str	2
	line	148
	colm	13
	synt	any
	tabmat
	unmark
lab L27
	pnull
	var	5
	var	9
	int	3
	line	149
	colm	24
	synt	any
	invoke	1
	line	149
	colm	16
	synt	any
	asgn
	line	146
	colm	12
	synt	any
	escan
	unmark
lab L22
	var	11
	var	3
	var	4
	var	5
	line	151
	colm	18
	synt	any
	invoke	3
lab L4
	line	132
	colm	7
	synt	endifelse
	unmark
lab L2
	mark	L28
	mark	L29
	var	3
	line	154
	colm	7
	synt	any
	pret
lab L29
	synt	any
	pfail
	unmark
lab L28
	pnull
	line	155
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_read_multi_lines
	local	0,001000,self
	local	1,000020,l
	local	2,000020,s
	local	3,000000,put
	con	0,002000,1,1
	con	1,002000,1,3
	con	2,010000,2,056,056
	con	3,010000,1,056
	declend
	line	160
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	line	162
	colm	12
	synt	any
	llist	0
	line	162
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	163
	colm	7
	synt	repeat
	mark	L3
	mark	L6
	pnull
	var	2
	mark	L7
	pnull
	var	0
	line	164
	colm	19
	synt	any
	field	read_line
	line	164
	colm	29
	synt	any
	invoke	0
	line	164
	colm	31
	synt	any
	esusp
	goto	L8
lab L7
	line	164
	colm	32
	synt	any
	pfail
lab L8
	line	164
	colm	12
	synt	any
	asgn
	unmark
lab L6
	mark	L9
	line	165
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	2
	int	0
	int	1
	line	165
	colm	16
	synt	any
	synt	any
	sect
	str	2
	line	165
	colm	20
	synt	any
	lexeq
	unmark
	pnull
	pnull
	var	2
	int	0
	int	1
	line	166
	colm	16
	synt	any
	synt	any
	sect
	str	3
	line	166
	colm	20
	synt	any
	asgn
	line	165
	colm	10
	synt	endif
	unmark
lab L9
	mark	L10
	line	167
	colm	10
	synt	if
	mark0
	pnull
	var	2
	str	3
	line	167
	colm	15
	synt	any
	lexeq
	unmark
	unmark
	unmark
	pnull
	goto	L5
	line	167
	colm	10
	synt	endif
	unmark
lab L10
	var	3
	var	1
	var	2
	line	169
	colm	15
	synt	any
	invoke	2
lab L4
	unmark
	goto	L3
lab L5
	line	163
	colm	7
	synt	endrepeat
	unmark
lab L2
	mark	L11
	mark	L12
	var	1
	line	171
	colm	7
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	172
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_send_command
	local	0,001000,self
	local	1,001000,msg
	declend
	line	177
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	178
	colm	11
	synt	any
	field	write_line
	var	1
	line	178
	colm	22
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	0
	line	179
	colm	18
	synt	any
	field	read_response
	line	179
	colm	32
	synt	any
	invoke	0
	line	179
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	180
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_stat
	local	0,001000,self
	local	1,000020,s
	local	2,000020,num_messages
	local	3,000020,total_size
	local	4,000000,integer
	local	5,000000,tab
	local	6,000000,many
	con	0,010000,4,123,124,101,124
	con	1,010000,18,102,141,144,040,163,164,141,164,040,154,151,163,164,151,156,147,072,040
	con	2,010000,1,040
	declend
	line	186
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	189
	colm	16
	synt	any
	field	send_command
	str	0
	line	189
	colm	29
	synt	any
	invoke	1
	line	189
	colm	37
	synt	any
	esusp
	goto	L3
lab L2
	line	189
	colm	38
	synt	any
	pfail
lab L3
	line	189
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	var	1
	line	190
	colm	9
	synt	any
	bscan
	mark	L5
	pnull
	var	2
	mark	L6
	var	4
	var	5
	var	6
	line	191
	colm	49
	synt	any
	keywd	digits
	line	191
	colm	48
	synt	any
	invoke	1
	line	191
	colm	41
	synt	any
	invoke	1
	line	191
	colm	35
	synt	any
	invoke	1
	line	191
	colm	60
	synt	any
	esusp
	goto	L7
lab L6
	mark	L8
	pnull
	var	0
	line	191
	colm	73
	synt	any
	field	error
	pnull
	str	1
	var	1
	line	191
	colm	100
	synt	any
	cat
	line	191
	colm	79
	synt	any
	invoke	1
	line	191
	colm	62
	synt	any
	pret
lab L8
	synt	any
	pfail
lab L7
	line	191
	colm	23
	synt	any
	asgn
	unmark
lab L5
	mark	L9
	pnull
	str	2
	line	192
	colm	10
	synt	any
	tabmat
	unmark
lab L9
	pnull
	var	3
	mark	L10
	var	4
	var	5
	var	6
	line	193
	colm	47
	synt	any
	keywd	digits
	line	193
	colm	46
	synt	any
	invoke	1
	line	193
	colm	39
	synt	any
	invoke	1
	line	193
	colm	33
	synt	any
	invoke	1
	line	193
	colm	58
	synt	any
	esusp
	goto	L11
lab L10
	mark	L12
	pnull
	var	0
	line	193
	colm	71
	synt	any
	field	error
	pnull
	str	1
	var	1
	line	193
	colm	98
	synt	any
	cat
	line	193
	colm	77
	synt	any
	invoke	1
	line	193
	colm	60
	synt	any
	pret
lab L12
	synt	any
	pfail
lab L11
	line	193
	colm	21
	synt	any
	asgn
	line	190
	colm	9
	synt	any
	escan
	unmark
lab L4
	mark	L13
	mark	L14
	pnull
	var	2
	var	3
	line	196
	colm	14
	synt	any
	llist	2
	line	196
	colm	7
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	197
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_read_response
	local	0,001000,self
	local	1,000020,s
	local	2,000000,tab
	con	0,010000,26,125,156,145,170,160,145,143,164,145,144,040,105,117,106,040,146,162,157,155,040,163,145,162,166,145,162
	con	1,010000,3,053,117,113
	con	2,010000,1,040
	con	3,002000,1,0
	con	4,010000,4,055,105,122,122
	con	5,010000,14,107,157,164,040,141,156,040,145,162,162,157,162,072,040
	con	6,010000,30,107,157,164,040,141,156,040,165,156,162,145,143,157,147,156,151,172,145,144,040,162,145,163,160,157,156,163,145,072,040
	declend
	line	202
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	205
	colm	16
	synt	any
	field	read_line
	line	205
	colm	26
	synt	any
	invoke	0
	line	205
	colm	28
	synt	any
	esusp
	goto	L3
lab L2
	mark	L4
	pnull
	var	0
	line	205
	colm	40
	synt	any
	field	error_and_close
	str	0
	line	205
	colm	56
	synt	any
	invoke	1
	line	205
	colm	29
	synt	any
	pret
lab L4
	synt	any
	pfail
lab L3
	line	205
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L5
	var	1
	line	207
	colm	9
	synt	any
	bscan
	mark	L6
	line	208
	colm	10
	synt	if
	mark0
	pnull
	str	1
	line	208
	colm	13
	synt	any
	tabmat
	unmark
	mark	L7
	pnull
	str	2
	line	209
	colm	13
	synt	any
	tabmat
	unmark
lab L7
	mark	L8
	var	2
	int	3
	line	210
	colm	25
	synt	any
	invoke	1
	line	210
	colm	13
	synt	any
	pret
lab L8
	synt	any
	pfail
	line	208
	colm	10
	synt	endif
	unmark
lab L6
	line	213
	colm	10
	synt	if
	mark0
	pnull
	str	4
	line	213
	colm	13
	synt	any
	tabmat
	unmark
	mark	L9
	pnull
	str	2
	line	214
	colm	13
	synt	any
	tabmat
	unmark
lab L9
	mark	L10
	pnull
	var	0
	line	215
	colm	24
	synt	any
	field	error_and_close
	pnull
	str	5
	var	2
	int	3
	line	215
	colm	62
	synt	any
	invoke	1
	line	215
	colm	57
	synt	any
	cat
	line	215
	colm	40
	synt	any
	invoke	1
	line	215
	colm	13
	synt	any
	pret
lab L10
	synt	any
	pfail
	line	213
	colm	10
	synt	endif
	line	207
	colm	9
	synt	any
	escan
	unmark
lab L5
	mark	L11
	mark	L12
	pnull
	var	0
	line	219
	colm	18
	synt	any
	field	error_and_close
	pnull
	str	6
	var	1
	line	219
	colm	67
	synt	any
	cat
	line	219
	colm	34
	synt	any
	invoke	1
	line	219
	colm	7
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	220
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_set_one
	local	0,001000,self
	local	1,001000,attr
	local	2,001000,val
	con	0,010000,8,165,163,145,162,156,141,155,145
	con	1,010000,8,160,141,163,163,167,157,162,144
	declend
	line	222
	colm	11
	synt	any
	mark	L1
	line	223
	colm	7
	synt	case
	mark0
	var	1
	eret
	mark	L3
	ccase
	str	0
	line	224
	colm	20
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	line	224
	colm	26
	synt	any
	field	set_username
	pnull
	var	0
	line	224
	colm	44
	synt	any
	field	string_val
	var	1
	var	2
	line	224
	colm	55
	synt	any
	invoke	2
	line	224
	colm	39
	synt	any
	invoke	1
	goto	L2
lab L3
	mark	L4
	ccase
	str	1
	line	225
	colm	20
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	line	225
	colm	26
	synt	any
	field	set_password
	pnull
	var	0
	line	225
	colm	44
	synt	any
	field	string_val
	var	1
	var	2
	line	225
	colm	55
	synt	any
	invoke	2
	line	225
	colm	39
	synt	any
	invoke	1
	goto	L2
lab L4
	pop
	pnull
	pnull
	var	0
	line	226
	colm	23
	synt	any
	field	net__NetClient
	line	226
	colm	38
	synt	any
	field	set_one
	var	1
	var	2
	line	226
	colm	46
	synt	any
	invoke	2
lab L2
	line	223
	colm	7
	synt	endcase
	unmark
lab L1
	pnull
	line	228
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient_initially
	local	0,001000,self
	local	1,001000,a
	con	0,002000,3,110
	con	1,010000,9,154,157,143,141,154,150,157,163,164
	declend
	line	230
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	231
	colm	11
	synt	any
	field	net__NetClient
	line	231
	colm	26
	synt	any
	field	initially
	line	231
	colm	36
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	232
	colm	11
	synt	any
	field	port
	int	0
	line	232
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	233
	colm	11
	synt	any
	field	server
	str	1
	line	233
	colm	18
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	0
	line	234
	colm	11
	synt	any
	field	set_fields
	var	1
	line	234
	colm	22
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	line	235
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	236
	colm	1
	synt	any
	pfail
	end
proc mail__PopClient
	local	0,001000,a
	local	1,000020,self
	local	2,000020,clone
	local	3,000000,mail__PopClient__oprec
	local	4,000000,mail__PopClientinitialize
	local	5,000000,net__NetClient__oprec
	local	6,000000,net__NetClientinitialize
	local	7,000000,util__Connectable__oprec
	local	8,000000,util__Connectableinitialize
	local	9,000000,util__Error__oprec
	local	10,000000,util__Errorinitialize
	local	11,000000,util__SetFields__oprec
	local	12,000000,util__SetFieldsinitialize
	local	13,000000,mail__PopClient__state
	local	14,000000,push
	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	3
	line	8
	colm	6
	synt	any
	null
	unmark
	var	4
	line	8
	colm	60
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	5
	line	9
	colm	6
	synt	any
	null
	unmark
	var	6
	line	9
	colm	58
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	3
	line	10
	colm	25
	synt	any
	field	net__NetClient
	var	5
	line	10
	colm	41
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	7
	line	11
	colm	6
	synt	any
	null
	unmark
	var	8
	line	11
	colm	64
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	3
	line	12
	colm	25
	synt	any
	field	util__Connectable
	var	7
	line	12
	colm	44
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	13
	colm	3
	synt	if
	mark0
	pnull
	var	9
	line	13
	colm	6
	synt	any
	null
	unmark
	var	10
	line	13
	colm	52
	synt	any
	invoke	0
	line	13
	colm	3
	synt	endif
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	3
	line	14
	colm	25
	synt	any
	field	util__Error
	var	9
	line	14
	colm	38
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	15
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	15
	colm	6
	synt	any
	null
	unmark
	var	12
	line	15
	colm	60
	synt	any
	invoke	0
	line	15
	colm	3
	synt	endif
	unmark
lab L11
	pnull
	pnull
	var	3
	line	16
	colm	25
	synt	any
	field	util__SetFields
	var	11
	line	16
	colm	42
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L12
	pnull
	var	1
	var	13
	line	18
	colm	34
	synt	any
	keywd	null
	var	3
	line	18
	colm	33
	synt	any
	invoke	2
	line	18
	colm	8
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	1
	line	19
	colm	7
	synt	any
	field	__s
	var	1
	line	19
	colm	12
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	mark	L15
	pnull
	pnull
	var	1
	line	20
	colm	7
	synt	any
	field	__m
	line	20
	colm	11
	synt	any
	field	initially
	var	14
	var	0
	var	1
	line	20
	colm	27
	synt	any
	invoke	2
	invoke	-1
	line	20
	colm	37
	synt	any
	esusp
	goto	L16
lab L15
	line	20
	colm	39
	synt	any
	pfail
lab L16
	unmark
lab L14
	mark	L17
	mark	L18
	var	1
	line	21
	colm	3
	synt	any
	pret
lab L18
	synt	any
	pfail
	unmark
lab L17
	pnull
	line	22
	colm	1
	synt	any
	pfail
	end
proc mail__PopClientinitialize
	local	0,000000,mail__PopClient__oprec
	local	1,000000,mail__PopClient__methods
	local	2,000000,mail__PopClient_dele
	local	3,000000,mail__PopClient_set_username
	local	4,000000,mail__PopClient_set_password
	local	5,000000,mail__PopClient_open_connection
	local	6,000000,mail__PopClient_login
	local	7,000000,mail__PopClient_close_connection
	local	8,000000,mail__PopClient_rset
	local	9,000000,mail__PopClient_retr
	local	10,000000,mail__PopClient_list
	local	11,000000,mail__PopClient_uidl
	local	12,000000,mail__PopClient_read_multi_lines
	local	13,000000,mail__PopClient_send_command
	local	14,000000,mail__PopClient_stat
	local	15,000000,mail__PopClient_read_response
	local	16,000000,mail__PopClient_set_one
	local	17,000000,mail__PopClient_initially
	local	18,000000,net__NetClient_error_and_close
	local	19,000000,net__NetClient_set_timeout
	local	20,000000,net__NetClient_open
	local	21,000000,net__NetClient_close
	local	22,000000,net__NetClient_set_server
	local	23,000000,net__NetClient_set_port
	local	24,000000,net__NetClient_send
	local	25,000000,net__NetClient_strerror
	local	26,000000,net__NetClient_recv
	local	27,000000,net__NetClient_write_str
	local	28,000000,net__NetClient_write_line
	local	29,000000,net__NetClient_read_line
	local	30,000000,net__NetClient_read_str
	local	31,000000,util__Connectable_genlisteners
	local	32,000000,util__Connectable_fire
	local	33,000000,util__Connectable_connect
	local	34,000000,util__Connectable_disconnect_fromlist
	local	35,000000,util__Connectable_disconnect_all
	local	36,000000,util__Connectable_disconnect
	local	37,000000,util__Error_error
	local	38,000000,util__Error_get_reason
	local	39,000000,util__SetFields_test_flag
	local	40,000000,util__SetFields_as_attrib
	local	41,000000,util__SetFields_int_val
	local	42,000000,util__SetFields_int_vals
	local	43,000000,util__SetFields_numeric_val
	local	44,000000,util__SetFields_numeric_vals
	local	45,000000,util__SetFields_cset_val
	local	46,000000,util__SetFields_string_val
	local	47,000000,util__SetFields_string_vals
	local	48,000000,util__SetFields_attrib
	local	49,000000,util__SetFields_set_fields
	local	50,000000,util__SetFields_field_error
	declend
	line	24
	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
	var	37
	var	38
	var	39
	var	40
	var	41
	var	42
	var	43
	var	44
	var	45
	var	46
	var	47
	var	48
	var	49
	var	50
	line	25
	colm	61
	synt	any
	invoke	49
	line	25
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	26
	colm	1
	synt	any
	pfail
	end
