version	U12.1.00
uid	getmail.u1-1786032983-0
record	message_record,31
	0,sender
	1,dayofweek
	2,month
	3,day
	4,time
	5,year
	6,_return_path
	7,_received
	8,_date
	9,_message_id
	10,_x_sender
	11,_x_mailer
	12,_mime_version
	13,_content_type
	14,_to
	15,_from
	16,_subject
	17,_status
	18,_x_status
	19,_path
	20,_xref
	21,_references
	22,_errors_to
	23,_x_lines
	24,_x_vm_attributes
	25,_reply_to
	26,_newsgroups
	27,_content_length
	28,other
	29,message_text
	30,all
impl	error
global	7
	0,000011,message_record,31
	1,000005,getmail,1
	2,000005,is_From_line,1
	3,000005,match_time,0
	4,000005,match_year,0
	5,000005,mfield_to_rfield_name,1
	6,000005,process_header_field,2

proc getmail
	local	0,001000,folder_name
	local	1,000020,folder
	local	2,000020,line
	local	3,000020,message
	local	4,000020,ws
	local	5,000020,item_tag
	local	6,000020,first_item_value
	local	7,000020,tag_field
	local	8,000020,time
	local	9,000020,message_text
	local	10,000020,unfolded_line
	local	11,000000,type
	local	12,000000,open
	local	13,000000,stop
	local	14,000000,read
	local	15,000000,message_record
	local	16,000000,put
	local	17,000000,tab
	local	18,000000,many
	local	19,000000,match_time
	local	20,000000,match_year
	local	21,000000,is_From_line
	local	22,000000,any
	local	23,000000,process_header_field
	local	24,000000,close
	con	0,020000,2,040,011
	con	1,010000,4,146,151,154,145
	con	2,010000,1,162
	con	3,010000,15,103,157,165,154,144,040,156,157,164,040,157,160,145,156,040
	con	4,010000,4,106,162,157,155
	con	5,010000,35,111,156,166,141,154,151,144,040,146,151,162,163,164,040,155,145,163,163,141,147,145,040,150,145,141,144,145,162,040,154,151,156,145,072,012
	con	6,010000,0
	con	7,002000,1,1
	con	8,010000,1,134
	con	9,010000,1,012
	declend
	filen	getmail.icn
	line	179
	colm	11
	synt	any
	mark	L1
	pnull
	var	4
	cset	0
	line	184
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	186
	colm	5
	synt	ifelse
	mark	L3
	pnull
	var	11
	var	0
	line	186
	colm	12
	synt	any
	invoke	1
	str	1
	line	186
	colm	26
	synt	any
	lexeq
	unmark
	pnull
	var	1
	var	0
	line	187
	colm	16
	synt	any
	asgn
	goto	L4
lab L3
	pnull
	var	1
	mark	L5
	var	12
	var	0
	str	2
	line	189
	colm	23
	synt	any
	invoke	2
	line	189
	colm	42
	synt	any
	esusp
	goto	L6
lab L5
	var	13
	str	3
	var	0
	line	190
	colm	17
	synt	any
	invoke	2
lab L6
	line	189
	colm	16
	synt	any
	asgn
lab L4
	line	186
	colm	5
	synt	endifelse
	unmark
lab L2
	mark	L7
	pnull
	var	2
	mark	L8
	var	14
	var	1
	line	191
	colm	17
	synt	any
	invoke	1
	line	191
	colm	26
	synt	any
	esusp
	goto	L9
lab L8
	line	191
	colm	28
	synt	any
	keywd	null
lab L9
	line	191
	colm	10
	synt	any
	asgn
	unmark
lab L7
	mark	L10
lab L11
	line	194
	colm	5
	synt	until
	mark	L12
	pnull
	var	2
	line	194
	colm	11
	synt	any
	null
	unmark
	efail
lab L12
	mark	L11
	mark	L15
	pnull
	var	3
	var	15
	line	196
	colm	38
	synt	any
	invoke	0
	line	196
	colm	21
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	line	197
	colm	13
	synt	every
	mark0
	pnull
	pnull
	var	3
	line	197
	colm	19
	synt	any
	bang
	line	197
	colm	31
	synt	any
	keywd	null
	line	197
	colm	28
	synt	any
	asgn
	pop
lab L17
	efail
lab L18
	line	197
	colm	13
	synt	endevery
	unmark
lab L16
	mark	L19
	pnull
	pnull
	var	3
	line	200
	colm	28
	synt	any
	field	all
	pnull
	line	200
	colm	36
	synt	any
	llist	0
	line	200
	colm	33
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	var	16
	pnull
	var	3
	line	201
	colm	32
	synt	any
	field	all
	var	2
	line	201
	colm	24
	synt	any
	invoke	2
	unmark
lab L20
	mark	L21
	var	2
	line	202
	colm	26
	synt	any
	bscan
	mark	L22
	pnull
	str	4
	line	203
	colm	25
	synt	any
	tabmat
	pop
	var	17
	var	18
	var	4
	line	203
	colm	43
	synt	any
	invoke	1
	line	203
	colm	38
	synt	any
	invoke	1
	pop
	pnull
	pnull
	var	3
	line	204
	colm	32
	synt	any
	field	sender
	var	17
	var	18
	pnull
	var	4
	line	204
	colm	52
	synt	any
	compl
	line	204
	colm	51
	synt	any
	invoke	1
	line	204
	colm	46
	synt	any
	invoke	1
	line	204
	colm	40
	synt	any
	rasgn
	pop
	var	17
	var	18
	var	4
	line	204
	colm	68
	synt	any
	invoke	1
	line	204
	colm	63
	synt	any
	invoke	1
	pop
	pnull
	pnull
	var	3
	line	205
	colm	32
	synt	any
	field	dayofweek
	var	17
	var	18
	line	205
	colm	55
	synt	any
	keywd	letters
	line	205
	colm	54
	synt	any
	invoke	1
	line	205
	colm	49
	synt	any
	invoke	1
	line	205
	colm	43
	synt	any
	rasgn
	pop
	var	17
	var	18
	var	4
	line	205
	colm	76
	synt	any
	invoke	1
	line	205
	colm	71
	synt	any
	invoke	1
	pop
	pnull
	pnull
	var	3
	line	206
	colm	32
	synt	any
	field	month
	var	17
	var	18
	line	206
	colm	51
	synt	any
	keywd	letters
	line	206
	colm	50
	synt	any
	invoke	1
	line	206
	colm	45
	synt	any
	invoke	1
	line	206
	colm	39
	synt	any
	rasgn
	pop
	var	17
	var	18
	var	4
	line	206
	colm	72
	synt	any
	invoke	1
	line	206
	colm	67
	synt	any
	invoke	1
	pop
	pnull
	pnull
	var	3
	line	207
	colm	32
	synt	any
	field	day
	var	17
	var	18
	line	207
	colm	49
	synt	any
	keywd	digits
	line	207
	colm	48
	synt	any
	invoke	1
	line	207
	colm	43
	synt	any
	invoke	1
	line	207
	colm	37
	synt	any
	rasgn
	pop
	var	17
	var	18
	var	4
	line	207
	colm	69
	synt	any
	invoke	1
	line	207
	colm	64
	synt	any
	invoke	1
	pop
	pnull
	pnull
	var	3
	line	208
	colm	32
	synt	any
	field	time
	var	19
	line	208
	colm	51
	synt	any
	invoke	0
	line	208
	colm	38
	synt	any
	rasgn
	pop
	var	17
	var	18
	var	4
	line	208
	colm	64
	synt	any
	invoke	1
	line	208
	colm	59
	synt	any
	invoke	1
	pop
	pnull
	pnull
	var	3
	line	209
	colm	32
	synt	any
	field	year
	var	20
	line	209
	colm	51
	synt	any
	invoke	0
	line	209
	colm	38
	synt	any
	rasgn
	line	210
	colm	23
	synt	any
	esusp
	goto	L23
lab L22
	var	13
	str	5
	var	2
	line	211
	colm	25
	synt	any
	invoke	2
lab L23
	line	202
	colm	26
	synt	any
	escan
	unmark
lab L21
	mark	L24
	pnull
	var	2
	mark	L25
	var	14
	var	1
	line	212
	colm	33
	synt	any
	invoke	1
	line	212
	colm	42
	synt	any
	esusp
	goto	L26
lab L25
	line	212
	colm	44
	synt	any
	keywd	null
lab L26
	line	212
	colm	26
	synt	any
	asgn
	unmark
lab L24
	mark	L27
lab L28
	line	215
	colm	17
	synt	until
	mark	L29
	mark	L32
	pnull
	var	2
	line	215
	colm	23
	synt	any
	null
	line	215
	colm	29
	synt	any
	esusp
	goto	L33
lab L32
	mark	L34
	pnull
	var	2
	str	6
	line	215
	colm	36
	synt	any
	lexeq
	line	215
	colm	42
	synt	any
	esusp
	goto	L35
lab L34
	var	21
	var	2
	line	215
	colm	56
	synt	any
	invoke	1
lab L35
lab L33
	unmark
	efail
lab L29
	mark	L28
	mark	L36
	var	16
	pnull
	var	3
	line	218
	colm	40
	synt	any
	field	all
	var	2
	line	218
	colm	32
	synt	any
	invoke	2
	unmark
lab L36
	mark	L37
	line	220
	colm	29
	synt	if
	mark0
	pnull
	pnull
	var	2
	pnull
	int	7
	line	220
	colm	37
	synt	any
	neg
	line	220
	colm	36
	synt	any
	subsc
	str	8
	line	220
	colm	41
	synt	any
	lexeq
	unmark
	pnull
	pnull
	var	2
	pnull
	int	7
	line	221
	colm	38
	synt	any
	neg
	line	221
	colm	37
	synt	any
	subsc
	str	9
	line	221
	colm	42
	synt	any
	asgn
	line	220
	colm	29
	synt	endif
	unmark
lab L37
	mark	L38
	pnull
	var	10
	var	2
	line	222
	colm	43
	synt	any
	asgn
	unmark
lab L38
	mark	L39
	pnull
	var	2
	mark	L40
	var	14
	var	1
	line	223
	colm	41
	synt	any
	invoke	1
	line	223
	colm	50
	synt	any
	esusp
	goto	L41
lab L40
	line	223
	colm	52
	synt	any
	keywd	null
lab L41
	line	223
	colm	34
	synt	any
	asgn
	unmark
lab L39
	mark	L42
lab L43
	line	227
	colm	25
	synt	until
	mark	L44
	mark	L47
	pnull
	var	2
	line	227
	colm	31
	synt	any
	null
	line	227
	colm	37
	synt	any
	esusp
	goto	L48
lab L47
	mark	L49
	mark	L51
	var	22
	var	4
	var	2
	line	227
	colm	46
	synt	any
	invoke	2
	unmark
	efail
lab L51
	pnull
	line	227
	colm	57
	synt	any
	esusp
	goto	L50
lab L49
	mark	L52
	pnull
	var	2
	str	6
	line	227
	colm	64
	synt	any
	lexeq
	line	227
	colm	70
	synt	any
	esusp
	goto	L53
lab L52
	var	21
	var	2
	line	227
	colm	84
	synt	any
	invoke	1
lab L53
lab L50
lab L48
	unmark
	efail
lab L44
	mark	L43
	mark	L54
	var	16
	pnull
	var	3
	line	229
	colm	44
	synt	any
	field	all
	var	2
	line	229
	colm	36
	synt	any
	invoke	2
	unmark
lab L54
	mark	L55
	line	231
	colm	33
	synt	if
	mark0
	pnull
	pnull
	var	2
	pnull
	int	7
	line	231
	colm	41
	synt	any
	neg
	line	231
	colm	40
	synt	any
	subsc
	str	8
	line	231
	colm	45
	synt	any
	lexeq
	unmark
	pnull
	pnull
	var	2
	pnull
	int	7
	line	232
	colm	42
	synt	any
	neg
	line	232
	colm	41
	synt	any
	subsc
	str	9
	line	232
	colm	46
	synt	any
	asgn
	line	231
	colm	33
	synt	endif
	unmark
lab L55
	mark	L56
	line	233
	colm	33
	synt	if
	mark0
	pnull
	pnull
	var	10
	pnull
	int	7
	line	233
	colm	50
	synt	any
	neg
	line	233
	colm	49
	synt	any
	subsc
	str	9
	line	233
	colm	55
	synt	any
	lexeq
	unmark
	pnull
	pnull
	var	2
	int	7
	line	234
	colm	41
	synt	any
	subsc
	str	6
	line	234
	colm	45
	synt	any
	asgn
	line	233
	colm	33
	synt	endif
	unmark
lab L56
	mark	L57
	pnull
	var	10
	dup
	var	2
	line	235
	colm	47
	synt	any
	cat
	asgn
	unmark
lab L57
	pnull
	var	2
	mark	L58
	var	14
	var	1
	line	236
	colm	45
	synt	any
	invoke	1
	line	236
	colm	54
	synt	any
	esusp
	goto	L59
lab L58
	line	236
	colm	56
	synt	any
	keywd	null
lab L59
	line	236
	colm	38
	synt	any
	asgn
lab L45
	unmark
	goto	L43
lab L46
	line	227
	colm	25
	synt	enduntil
	unmark
lab L42
	var	23
	var	3
	var	10
	line	240
	colm	45
	synt	any
	invoke	2
lab L30
	unmark
	goto	L28
lab L31
	line	215
	colm	17
	synt	enduntil
	unmark
lab L27
	mark	L60
	line	246
	colm	13
	synt	if
	mark0
	pnull
	var	2
	str	6
	line	246
	colm	21
	synt	any
	lexeq
	unmark
	mark	L61
	var	16
	pnull
	var	3
	line	249
	colm	36
	synt	any
	field	all
	var	2
	line	249
	colm	28
	synt	any
	invoke	2
	unmark
lab L61
	mark	L62
	pnull
	var	2
	mark	L63
	var	14
	var	1
	line	250
	colm	37
	synt	any
	invoke	1
	line	250
	colm	46
	synt	any
	esusp
	goto	L64
lab L63
	line	250
	colm	48
	synt	any
	keywd	null
lab L64
	line	250
	colm	30
	synt	any
	asgn
	unmark
lab L62
lab L65
	line	253
	colm	21
	synt	until
	mark	L66
	mark	L69
	pnull
	var	2
	line	253
	colm	27
	synt	any
	null
	line	253
	colm	33
	synt	any
	esusp
	goto	L70
lab L69
	var	21
	var	2
	line	253
	colm	47
	synt	any
	invoke	1
lab L70
	unmark
	efail
lab L66
	mark	L65
	mark	L71
	var	16
	pnull
	var	3
	line	255
	colm	40
	synt	any
	field	all
	var	2
	line	255
	colm	32
	synt	any
	invoke	2
	unmark
lab L71
	mark	L72
	pnull
	pnull
	pnull
	var	3
	line	256
	colm	37
	synt	any
	field	message_text
	line	256
	colm	29
	synt	any
	null
	pnull
	line	256
	colm	54
	synt	any
	llist	0
	line	256
	colm	51
	synt	any
	asgn
	unmark
lab L72
	mark	L73
	var	16
	pnull
	var	3
	line	257
	colm	40
	synt	any
	field	message_text
	var	2
	line	257
	colm	32
	synt	any
	invoke	2
	unmark
lab L73
	pnull
	var	2
	mark	L74
	var	14
	var	1
	line	258
	colm	41
	synt	any
	invoke	1
	line	258
	colm	50
	synt	any
	esusp
	goto	L75
lab L74
	line	258
	colm	52
	synt	any
	keywd	null
lab L75
	line	258
	colm	34
	synt	any
	asgn
lab L67
	unmark
	goto	L65
lab L68
	line	253
	colm	21
	synt	enduntil
	line	246
	colm	13
	synt	endif
	unmark
lab L60
	line	267
	colm	12
	synt	suspend
	mark0
	var	3
	line	267
	colm	12
	synt	any
	psusp
	pop
lab L76
	efail
lab L77
	line	267
	colm	12
	synt	endsuspend
lab L13
	unmark
	goto	L11
lab L14
	line	194
	colm	5
	synt	enduntil
	unmark
lab L10
	mark	L78
	line	272
	colm	5
	synt	if
	mark0
	pnull
	var	1
	line	272
	colm	20
	synt	any
	keywd	input
	line	272
	colm	15
	synt	any
	neqv
	unmark
	var	24
	var	1
	line	273
	colm	14
	synt	any
	invoke	1
	line	272
	colm	5
	synt	endif
	unmark
lab L78
	pnull
	line	275
	colm	1
	synt	any
	pfail
	end
proc is_From_line
	local	0,001000,line
	con	0,010000,5,106,162,157,155,040
	declend
	line	281
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	0
	line	283
	colm	17
	synt	any
	bscan
	pnull
	str	0
	line	283
	colm	19
	synt	any
	tabmat
	line	283
	colm	17
	synt	any
	escan
	line	283
	colm	5
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	285
	colm	1
	synt	any
	pfail
	end
proc match_time
	local	0,000000,tab
	local	1,000000,any
	con	0,010000,1,072
	declend
	line	291
	colm	11
	synt	any
	mark	L1
	line	293
	colm	5
	synt	suspend
	mark0
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	var	0
	var	1
	line	293
	colm	21
	synt	any
	keywd	digits
	line	293
	colm	20
	synt	any
	invoke	1
	line	293
	colm	16
	synt	any
	invoke	1
	var	0
	var	1
	line	293
	colm	42
	synt	any
	keywd	digits
	line	293
	colm	41
	synt	any
	invoke	1
	line	293
	colm	37
	synt	any
	invoke	1
	line	293
	colm	31
	synt	any
	cat
	pnull
	str	0
	line	293
	colm	55
	synt	any
	tabmat
	line	293
	colm	52
	synt	any
	cat
	var	0
	var	1
	line	294
	colm	21
	synt	any
	keywd	digits
	line	294
	colm	20
	synt	any
	invoke	1
	line	294
	colm	16
	synt	any
	invoke	1
	line	293
	colm	60
	synt	any
	cat
	var	0
	var	1
	line	294
	colm	42
	synt	any
	keywd	digits
	line	294
	colm	41
	synt	any
	invoke	1
	line	294
	colm	37
	synt	any
	invoke	1
	line	294
	colm	31
	synt	any
	cat
	pnull
	str	0
	line	294
	colm	55
	synt	any
	tabmat
	line	294
	colm	52
	synt	any
	cat
	var	0
	var	1
	line	295
	colm	21
	synt	any
	keywd	digits
	line	295
	colm	20
	synt	any
	invoke	1
	line	295
	colm	16
	synt	any
	invoke	1
	line	294
	colm	60
	synt	any
	cat
	var	0
	var	1
	line	295
	colm	42
	synt	any
	keywd	digits
	line	295
	colm	41
	synt	any
	invoke	1
	line	295
	colm	37
	synt	any
	invoke	1
	line	295
	colm	31
	synt	any
	cat
	line	293
	colm	5
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	293
	colm	5
	synt	endsuspend
	unmark
lab L1
	pnull
	line	297
	colm	1
	synt	any
	pfail
	end
proc match_year
	local	0,000000,tab
	local	1,000000,any
	declend
	line	303
	colm	11
	synt	any
	mark	L1
	line	305
	colm	5
	synt	suspend
	mark0
	pnull
	pnull
	pnull
	var	0
	var	1
	line	305
	colm	21
	synt	any
	keywd	digits
	line	305
	colm	20
	synt	any
	invoke	1
	line	305
	colm	16
	synt	any
	invoke	1
	var	0
	var	1
	line	305
	colm	42
	synt	any
	keywd	digits
	line	305
	colm	41
	synt	any
	invoke	1
	line	305
	colm	37
	synt	any
	invoke	1
	line	305
	colm	31
	synt	any
	cat
	var	0
	var	1
	line	306
	colm	21
	synt	any
	keywd	digits
	line	306
	colm	20
	synt	any
	invoke	1
	line	306
	colm	16
	synt	any
	invoke	1
	line	305
	colm	52
	synt	any
	cat
	var	0
	var	1
	line	306
	colm	42
	synt	any
	keywd	digits
	line	306
	colm	41
	synt	any
	invoke	1
	line	306
	colm	37
	synt	any
	invoke	1
	line	306
	colm	31
	synt	any
	cat
	line	305
	colm	5
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	305
	colm	5
	synt	endsuspend
	unmark
lab L1
	pnull
	line	308
	colm	1
	synt	any
	pfail
	end
proc mfield_to_rfield_name
	local	0,001000,mfield_name
	local	1,000040,mapfrom
	local	2,000040,mapto
	local	3,000000,map
	con	0,010000,1,055
	con	1,010000,1,137
	declend
	line	314
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	1
	pnull
	line	319
	colm	20
	synt	any
	keywd	ucase
	str	0
	line	319
	colm	27
	synt	any
	cat
	line	319
	colm	17
	synt	any
	asgn
	unmark
lab L4
	pnull
	var	2
	pnull
	line	320
	colm	18
	synt	any
	keywd	lcase
	str	1
	line	320
	colm	25
	synt	any
	cat
	line	320
	colm	15
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L5
	mark	L6
	pnull
	str	1
	var	3
	var	0
	var	1
	var	2
	line	323
	colm	22
	synt	any
	invoke	3
	line	323
	colm	16
	synt	any
	cat
	line	323
	colm	5
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	325
	colm	1
	synt	any
	pfail
	end
proc process_header_field
	local	0,001000,message
	local	1,001000,field
	local	2,000020,record_field_name
	local	3,000020,header_field_name
	local	4,000020,field_body
	local	5,000040,field_chars
	local	6,000040,ws
	local	7,000000,cset
	local	8,000000,string
	local	9,000000,tab
	local	10,000000,many
	local	11,000000,stop
	local	12,000000,mfield_to_rfield_name
	local	13,000000,put
	con	0,002000,2,34
	con	1,002000,1,1
	con	2,020000,1,072
	con	3,020000,2,040,011
	con	4,010000,1,072
	con	5,010000,0
	con	6,002000,1,0
	con	7,010000,22,111,156,166,141,154,151,144,040,150,145,141,144,145,162,040,146,151,145,154,144,072,012
	con	8,010000,9,137,162,145,143,145,151,166,145,144
	declend
	line	331
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	5
	pnull
	var	7
	pnull
	var	8
	line	338
	colm	36
	synt	any
	keywd	ascii
	line	338
	colm	35
	synt	any
	invoke	1
	int	0
	pnull
	int	1
	line	338
	colm	47
	synt	any
	neg
	line	338
	colm	46
	synt	any
	synt	any
	sect
	line	338
	colm	28
	synt	any
	invoke	1
	cset	2
	line	338
	colm	52
	synt	any
	diff
	line	338
	colm	21
	synt	any
	asgn
	unmark
lab L4
	pnull
	var	6
	cset	3
	line	339
	colm	12
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L5
	var	1
	line	342
	colm	11
	synt	any
	bscan
	mark	L6
	pnull
	var	3
	var	9
	var	10
	var	5
	line	343
	colm	38
	synt	any
	invoke	1
	line	343
	colm	33
	synt	any
	invoke	1
	line	343
	colm	27
	synt	any
	rasgn
	pop
	pnull
	str	4
	line	343
	colm	55
	synt	any
	tabmat
	pop
	mark	L8
	var	9
	var	10
	var	6
	line	344
	colm	18
	synt	any
	invoke	1
	line	344
	colm	13
	synt	any
	invoke	1
	line	344
	colm	24
	synt	any
	esusp
	goto	L9
lab L8
	str	5
lab L9
	pop
	pnull
	var	4
	var	9
	int	6
	line	345
	colm	26
	synt	any
	invoke	1
	line	345
	colm	20
	synt	any
	rasgn
	line	346
	colm	7
	synt	any
	esusp
	goto	L7
lab L6
	var	11
	str	7
	var	1
	line	347
	colm	9
	synt	any
	invoke	2
lab L7
	line	342
	colm	11
	synt	any
	escan
	unmark
lab L5
	mark	L10
	pnull
	var	2
	var	12
	var	3
	line	348
	colm	47
	synt	any
	invoke	1
	line	348
	colm	23
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	351
	colm	5
	synt	ifelse
	mark	L12
	pnull
	var	0
	var	2
	line	351
	colm	15
	synt	any
	subsc
	unmark
	line	354
	colm	9
	synt	ifelse
	mark	L14
	pnull
	var	2
	str	8
	line	354
	colm	30
	synt	any
	lexeq
	unmark
	mark	L16
	pnull
	pnull
	pnull
	var	0
	line	356
	colm	21
	synt	any
	field	_received
	line	356
	colm	13
	synt	any
	null
	pnull
	line	356
	colm	35
	synt	any
	llist	0
	line	356
	colm	32
	synt	any
	asgn
	unmark
lab L16
	var	13
	pnull
	var	0
	line	357
	colm	24
	synt	any
	field	_received
	var	1
	line	357
	colm	16
	synt	any
	invoke	2
	goto	L15
lab L14
	line	363
	colm	13
	synt	ifelse
	mark	L17
	pnull
	pnull
	var	0
	var	2
	line	363
	colm	24
	synt	any
	subsc
	line	363
	colm	16
	synt	any
	null
	unmark
	pnull
	pnull
	var	0
	var	2
	line	365
	colm	24
	synt	any
	subsc
	var	4
	line	365
	colm	44
	synt	any
	asgn
	goto	L18
lab L17
	mark	L19
	pnull
	pnull
	pnull
	var	0
	line	370
	colm	25
	synt	any
	field	other
	line	370
	colm	17
	synt	any
	null
	pnull
	line	370
	colm	35
	synt	any
	llist	0
	line	370
	colm	32
	synt	any
	asgn
	unmark
lab L19
	var	13
	pnull
	var	0
	line	371
	colm	28
	synt	any
	field	other
	var	1
	line	371
	colm	20
	synt	any
	invoke	2
lab L18
	line	363
	colm	13
	synt	endifelse
lab L15
	line	354
	colm	9
	synt	endifelse
	goto	L13
lab L12
	mark	L20
	pnull
	pnull
	pnull
	var	0
	line	378
	colm	25
	synt	any
	field	other
	line	378
	colm	17
	synt	any
	null
	pnull
	line	378
	colm	35
	synt	any
	llist	0
	line	378
	colm	32
	synt	any
	asgn
	unmark
lab L20
	var	13
	pnull
	var	0
	line	379
	colm	28
	synt	any
	field	other
	var	1
	line	379
	colm	20
	synt	any
	invoke	2
lab L13
	line	351
	colm	5
	synt	endifelse
	unmark
lab L11
	pnull
	line	382
	colm	1
	synt	any
	pfail
	end
