version	U12.1.00
uid	file_dlg.u1-1786033023-0
record	FileDialog__state,57
	0,__s
	1,__m
	2,init_dir
	3,init_file
	4,res
	5,dir
	6,file
	7,dlist
	8,flist
	9,okay
	10,cancel
	11,extra_attribs
	12,win
	13,is_open
	14,owning_dialog
	15,child_dialogs
	16,focus
	17,unique_flag
	18,re_process_flag
	19,buffer_win
	20,min_width
	21,min_height
	22,click_count
	23,double_click_delay
	24,repeat_delay
	25,repeat_rate
	26,prev_x
	27,prev_y
	28,prev_time
	29,prev_event
	30,is_blocked_flag
	31,resize_attrib
	32,components
	33,x_spec
	34,y_spec
	35,w_spec
	36,h_spec
	37,x_align
	38,y_align
	39,x
	40,y
	41,w
	42,h
	43,parent_Dialog
	44,attribs
	45,has_focus
	46,is_shaded_flag
	47,cwin
	48,cbwin
	49,accepts_tab_focus_flag
	50,draw_border_flag
	51,no_updates_count
	52,tooltip
	53,parent_Component
	54,keeps_tabs
	55,ticker_rate
	56,next_tick_time
record	FileDialog__methods,102
	0,set_extra_attribs
	1,get_directory
	2,get_result
	3,set_directory
	4,set_file
	5,set_path
	6,set_result
	7,get_std_dir
	8,dialog_event
	9,init_dialog
	10,component_setup
	11,initially
	12,is_shaded
	13,is_unshaded
	14,is_hidden
	15,is_unhidden
	16,block
	17,unblock
	18,get_click_count
	19,get_x_reference
	20,get_y_reference
	21,get_w_reference
	22,get_h_reference
	23,get_cwin_reference
	24,get_visible_reference
	25,show_child
	26,show_modeless
	27,show_modal
	28,get_cbwin_reference
	29,get_win
	30,resize_win
	31,Open
	32,Close
	33,set_min_size
	34,get_buffer_win
	35,set_unique
	36,clear_unique
	37,set_focus
	38,clear_focus
	39,display
	40,end_dialog
	41,show
	42,dispose
	43,process_event
	44,set_double_click_delay
	45,set_repeat_delay
	46,set_repeat_rate
	47,handle_notify
	48,generate_components
	49,generate_all_components
	50,add
	51,set_components
	52,get_components
	53,firstly
	54,final_setup
	55,finally
	56,resize
	57,handle_event
	58,in_region
	59,set_tooltip
	60,set_no_updates
	61,clear_no_updates
	62,redisplay
	63,error
	64,do_shading
	65,accepts_tab_focus
	66,unique_start
	67,unique_end
	68,toggle_is_shaded
	69,set_is_shaded
	70,clear_is_shaded
	71,toggle_draw_border
	72,set_draw_border
	73,clear_draw_border
	74,set_accepts_tab_focus
	75,clear_accepts_tab_focus
	76,attrib
	77,set_attribs
	78,set_attribs_list
	79,got_focus
	80,get_parent_win
	81,get_parent_buffer_win
	82,lost_focus
	83,set_pos
	84,set_size
	85,set_align
	86,set_abs_coords
	87,set_abs_size
	88,get_parent_Dialog
	89,set_parent_Dialog
	90,parse_pos
	91,tick
	92,set_ticker
	93,stop_ticker
	94,retime_ticker
	95,is_ticking
	96,set_fields
	97,_Dialog
	98,Container
	99,Component
	100,Ticker
	101,MetaComponent
impl	local
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/gui.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/gui.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/gui.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/gui.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/gui.u
global	25
	0,000005,FileDialog_set_extra_attribs,2
	1,000005,FileDialog_get_directory,1
	2,000005,FileDialog_get_result,1
	3,000005,FileDialog_set_directory,2
	4,000005,FileDialog_set_file,2
	5,000005,FileDialog_set_path,2
	6,000005,FileDialog_set_result,1
	7,000005,FileDialog_get_std_dir,1
	8,000005,FileDialog_dialog_event,2
	9,000005,FileDialog_init_dialog,1
	10,000005,FileDialog_component_setup,1
	11,000005,FileDialog_initially,1
	12,000011,FileDialog__state,57
	13,000011,FileDialog__methods,102
	14,000001,FileDialog__oprec,0
	15,000001,_Dialog__oprec,0
	16,000001,Container__oprec,0
	17,000001,Component__oprec,0
	18,000001,Ticker__oprec,0
	19,000001,MetaComponent__oprec,0
	20,000005,FileDialog,55
	21,000005,FileDialoginitialize,0
	22,000005,get_directory_list,3
	23,000005,directory_name,1
	24,000005,file_name,1

proc FileDialog_set_extra_attribs
	local	0,001000,self
	local	1,001000,l
	declend
	filen	file_dlg.icn
	line	52
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	53
	colm	18
	synt	any
	field	extra_attribs
	var	1
	line	53
	colm	33
	synt	any
	asgn
	line	53
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	54
	colm	1
	synt	any
	pfail
	end
proc FileDialog_get_directory
	local	0,001000,self
	local	1,000000,directory_name
	declend
	line	59
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	pnull
	pnull
	var	0
	line	60
	colm	34
	synt	any
	field	res
	line	60
	colm	29
	synt	any
	nonnull
	line	60
	colm	28
	synt	any
	invoke	1
	line	60
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	61
	colm	1
	synt	any
	pfail
	end
proc FileDialog_get_result
	local	0,001000,self
	declend
	line	66
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	67
	colm	19
	synt	any
	field	res
	line	67
	colm	14
	synt	any
	nonnull
	line	67
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	68
	colm	1
	synt	any
	pfail
	end
proc FileDialog_set_directory
	local	0,001000,self
	local	1,001000,s
	declend
	line	73
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	74
	colm	18
	synt	any
	field	init_dir
	var	1
	line	74
	colm	28
	synt	any
	asgn
	line	74
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	75
	colm	1
	synt	any
	pfail
	end
proc FileDialog_set_file
	local	0,001000,self
	local	1,001000,s
	declend
	line	80
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	81
	colm	18
	synt	any
	field	init_file
	var	1
	line	81
	colm	29
	synt	any
	asgn
	line	81
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	82
	colm	1
	synt	any
	pfail
	end
proc FileDialog_set_path
	local	0,001000,self
	local	1,001000,s
	local	2,000000,directory_name
	local	3,000000,file_name
	declend
	line	87
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	88
	colm	11
	synt	any
	field	init_dir
	var	2
	var	1
	line	88
	colm	38
	synt	any
	invoke	1
	line	88
	colm	21
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	89
	colm	11
	synt	any
	field	init_file
	var	3
	var	1
	line	89
	colm	34
	synt	any
	invoke	1
	line	89
	colm	22
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	var	1
	line	90
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	91
	colm	1
	synt	any
	pfail
	end
proc FileDialog_set_result
	local	0,001000,self
	declend
	line	96
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	97
	colm	11
	synt	any
	field	res
	pnull
	pnull
	pnull
	var	0
	line	97
	colm	24
	synt	any
	field	__m
	line	97
	colm	28
	synt	any
	field	get_std_dir
	var	0
	line	97
	colm	40
	synt	any
	invoke	1
	pnull
	pnull
	pnull
	var	0
	line	97
	colm	54
	synt	any
	field	file
	line	97
	colm	59
	synt	any
	field	__m
	line	97
	colm	63
	synt	any
	field	get_contents
	pnull
	var	0
	line	97
	colm	81
	synt	any
	field	file
	line	97
	colm	76
	synt	any
	invoke	1
	line	97
	colm	47
	synt	any
	cat
	line	97
	colm	16
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	98
	colm	1
	synt	any
	pfail
	end
proc FileDialog_get_std_dir
	local	0,001000,self
	local	1,000000,s
	con	0,002000,1,1
	con	1,010000,1,057
	declend
	line	103
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	pnull
	pnull
	var	0
	line	104
	colm	17
	synt	any
	field	dir
	line	104
	colm	21
	synt	any
	field	__m
	line	104
	colm	25
	synt	any
	field	get_contents
	pnull
	var	0
	line	104
	colm	43
	synt	any
	field	dir
	line	104
	colm	38
	synt	any
	invoke	1
	line	104
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	105
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	1
	pnull
	int	0
	line	105
	colm	13
	synt	any
	neg
	line	105
	colm	12
	synt	any
	subsc
	str	1
	line	105
	colm	17
	synt	any
	lexne
	unmark
	pnull
	var	1
	dup
	str	1
	line	106
	colm	12
	synt	any
	cat
	asgn
	line	105
	colm	7
	synt	endif
	unmark
lab L2
	mark	L3
	mark	L4
	var	1
	line	108
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	109
	colm	1
	synt	any
	pfail
	end
proc FileDialog_dialog_event
	local	0,001000,self
	local	1,001000,ev
	local	2,000000,value
	local	3,000000,s
	local	4,000000,l1
	local	5,000000,l2
	local	6,000000,get_directory_list
	con	0,002000,1,0
	con	1,002000,1,1
	con	2,010000,2,056,056
	con	3,010000,1,057
	con	4,010000,0
	declend
	line	111
	colm	11
	synt	any
	mark	L1
	line	112
	colm	7
	synt	case
	mark0
	pnull
	pnull
	var	1
	line	112
	colm	15
	synt	any
	field	__m
	line	112
	colm	19
	synt	any
	field	get_component
	var	1
	line	112
	colm	33
	synt	any
	invoke	1
	eret
	mark	L3
	ccase
	pnull
	var	0
	line	113
	colm	14
	synt	any
	field	cancel
	line	113
	colm	21
	synt	any
	eqv
	unmark
	pop
	line	114
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	1
	line	114
	colm	19
	synt	any
	field	__m
	line	114
	colm	23
	synt	any
	field	get_code
	var	1
	line	114
	colm	32
	synt	any
	invoke	1
	int	0
	line	114
	colm	37
	synt	any
	numgt
	unmark
	pnull
	pnull
	var	0
	line	115
	colm	21
	synt	any
	field	__m
	line	115
	colm	25
	synt	any
	field	dispose
	var	0
	line	115
	colm	33
	synt	any
	invoke	1
	line	114
	colm	13
	synt	endif
	goto	L2
lab L3
	mark	L4
	ccase
	pnull
	var	0
	line	118
	colm	14
	synt	any
	field	okay
	line	118
	colm	19
	synt	any
	eqv
	unmark
	pop
	line	119
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	1
	line	119
	colm	19
	synt	any
	field	__m
	line	119
	colm	23
	synt	any
	field	get_code
	var	1
	line	119
	colm	32
	synt	any
	invoke	1
	int	0
	line	119
	colm	37
	synt	any
	numgt
	unmark
	mark	L5
	pnull
	pnull
	var	0
	line	120
	colm	21
	synt	any
	field	__m
	line	120
	colm	25
	synt	any
	field	set_result
	var	0
	line	120
	colm	36
	synt	any
	invoke	1
	unmark
lab L5
	pnull
	pnull
	var	0
	line	121
	colm	21
	synt	any
	field	__m
	line	121
	colm	25
	synt	any
	field	dispose
	var	0
	line	121
	colm	33
	synt	any
	invoke	1
	line	119
	colm	13
	synt	endif
	goto	L2
lab L4
	mark	L6
	ccase
	pnull
	var	0
	line	125
	colm	14
	synt	any
	field	file
	line	125
	colm	19
	synt	any
	eqv
	unmark
	pop
	line	129
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	1
	line	129
	colm	19
	synt	any
	field	__m
	line	129
	colm	23
	synt	any
	field	get_code
	var	1
	line	129
	colm	32
	synt	any
	invoke	1
	int	0
	line	129
	colm	37
	synt	any
	numeq
	unmark
	mark	L7
	pnull
	pnull
	var	0
	line	130
	colm	21
	synt	any
	field	__m
	line	130
	colm	25
	synt	any
	field	set_result
	var	0
	line	130
	colm	36
	synt	any
	invoke	1
	unmark
lab L7
	pnull
	pnull
	var	0
	line	131
	colm	21
	synt	any
	field	__m
	line	131
	colm	25
	synt	any
	field	dispose
	var	0
	line	131
	colm	33
	synt	any
	invoke	1
	line	129
	colm	13
	synt	endif
	goto	L2
lab L6
	mark	L8
	ccase
	pnull
	var	0
	line	135
	colm	14
	synt	any
	field	dlist
	line	135
	colm	20
	synt	any
	eqv
	unmark
	pop
	line	136
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	1
	line	136
	colm	19
	synt	any
	field	__m
	line	136
	colm	23
	synt	any
	field	get_code
	var	1
	line	136
	colm	32
	synt	any
	invoke	1
	int	0
	line	136
	colm	37
	synt	any
	numgt
	unmark
	mark	L9
	pnull
	var	2
	pnull
	pnull
	pnull
	pnull
	var	0
	line	140
	colm	30
	synt	any
	field	dlist
	line	140
	colm	36
	synt	any
	field	__m
	line	140
	colm	40
	synt	any
	field	get_contents
	pnull
	var	0
	line	140
	colm	58
	synt	any
	field	dlist
	line	140
	colm	53
	synt	any
	invoke	1
	pnull
	pnull
	pnull
	pnull
	var	0
	line	140
	colm	72
	synt	any
	field	dlist
	line	140
	colm	78
	synt	any
	field	__m
	line	140
	colm	82
	synt	any
	field	get_selections
	pnull
	var	0
	line	140
	colm	102
	synt	any
	field	dlist
	line	140
	colm	97
	synt	any
	invoke	1
	int	1
	line	140
	colm	110
	synt	any
	subsc
	line	140
	colm	66
	synt	any
	subsc
	line	140
	colm	22
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	3
	pnull
	pnull
	var	0
	line	141
	colm	26
	synt	any
	field	__m
	line	141
	colm	30
	synt	any
	field	get_std_dir
	var	0
	line	141
	colm	42
	synt	any
	invoke	1
	line	141
	colm	18
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	145
	colm	16
	synt	ifelse
	mark	L12
	pnull
	var	2
	pnull
	str	2
	str	3
	line	145
	colm	34
	synt	any
	cat
	line	145
	colm	25
	synt	any
	lexeq
	unmark
	mark	L14
	line	146
	colm	19
	synt	if
	mark0
	pnull
	var	3
	str	3
	line	146
	colm	24
	synt	any
	lexne
	unmark
	mark	L15
	pnull
	pnull
	var	3
	pnull
	int	1
	line	147
	colm	24
	synt	any
	neg
	line	147
	colm	23
	synt	any
	subsc
	str	4
	line	147
	colm	28
	synt	any
	asgn
	unmark
lab L15
lab L16
	line	148
	colm	22
	synt	while
	mark0
	pnull
	pnull
	var	3
	pnull
	int	1
	line	148
	colm	30
	synt	any
	neg
	line	148
	colm	29
	synt	any
	subsc
	str	3
	line	148
	colm	34
	synt	any
	lexne
	unmark
	mark	L16
	pnull
	pnull
	var	3
	pnull
	int	1
	line	148
	colm	47
	synt	any
	neg
	line	148
	colm	46
	synt	any
	subsc
	str	4
	line	148
	colm	51
	synt	any
	asgn
lab L17
	unmark
	goto	L16
lab L18
	line	148
	colm	22
	synt	endwhile
	line	146
	colm	19
	synt	endif
	unmark
lab L14
	pnull
	pnull
	pnull
	var	0
	line	150
	colm	24
	synt	any
	field	dir
	line	150
	colm	28
	synt	any
	field	__m
	line	150
	colm	32
	synt	any
	field	set_contents
	pnull
	var	0
	line	150
	colm	50
	synt	any
	field	dir
	var	3
	line	150
	colm	45
	synt	any
	invoke	2
	goto	L13
lab L12
	pnull
	pnull
	pnull
	var	0
	line	152
	colm	24
	synt	any
	field	dir
	line	152
	colm	28
	synt	any
	field	__m
	line	152
	colm	32
	synt	any
	field	set_contents
	pnull
	var	0
	line	152
	colm	50
	synt	any
	field	dir
	pnull
	var	3
	dup
	var	2
	line	152
	colm	56
	synt	any
	cat
	asgn
	line	152
	colm	45
	synt	any
	invoke	2
lab L13
	line	145
	colm	16
	synt	endifelse
	unmark
lab L11
	mark	L19
	pnull
	var	4
	pnull
	line	156
	colm	22
	synt	any
	llist	0
	line	156
	colm	19
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	var	5
	pnull
	line	157
	colm	22
	synt	any
	llist	0
	line	157
	colm	19
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	var	6
	var	3
	var	4
	var	5
	line	158
	colm	34
	synt	any
	invoke	3
	unmark
lab L21
	mark	L22
	pnull
	pnull
	pnull
	var	0
	line	159
	colm	21
	synt	any
	field	dlist
	line	159
	colm	27
	synt	any
	field	__m
	line	159
	colm	31
	synt	any
	field	set_no_updates
	pnull
	var	0
	line	159
	colm	51
	synt	any
	field	dlist
	line	159
	colm	46
	synt	any
	invoke	1
	unmark
lab L22
	mark	L23
	pnull
	pnull
	pnull
	var	0
	line	160
	colm	21
	synt	any
	field	dlist
	line	160
	colm	27
	synt	any
	field	__m
	line	160
	colm	31
	synt	any
	field	set_contents
	pnull
	var	0
	line	160
	colm	49
	synt	any
	field	dlist
	var	4
	line	160
	colm	44
	synt	any
	invoke	2
	unmark
lab L23
	mark	L24
	pnull
	pnull
	pnull
	var	0
	line	161
	colm	21
	synt	any
	field	dlist
	line	161
	colm	27
	synt	any
	field	__m
	line	161
	colm	31
	synt	any
	field	goto_pos
	pnull
	var	0
	line	161
	colm	45
	synt	any
	field	dlist
	int	1
	int	0
	line	161
	colm	40
	synt	any
	invoke	3
	unmark
lab L24
	mark	L25
	pnull
	pnull
	pnull
	var	0
	line	162
	colm	21
	synt	any
	field	dlist
	line	162
	colm	27
	synt	any
	field	__m
	line	162
	colm	31
	synt	any
	field	clear_selections
	pnull
	var	0
	line	162
	colm	53
	synt	any
	field	dlist
	line	162
	colm	48
	synt	any
	invoke	1
	unmark
lab L25
	mark	L26
	pnull
	pnull
	pnull
	var	0
	line	163
	colm	21
	synt	any
	field	dlist
	line	163
	colm	27
	synt	any
	field	__m
	line	163
	colm	31
	synt	any
	field	clear_no_updates
	pnull
	var	0
	line	163
	colm	53
	synt	any
	field	dlist
	line	163
	colm	48
	synt	any
	invoke	1
	unmark
lab L26
	mark	L27
	pnull
	pnull
	pnull
	var	0
	line	164
	colm	21
	synt	any
	field	flist
	line	164
	colm	27
	synt	any
	field	__m
	line	164
	colm	31
	synt	any
	field	set_no_updates
	pnull
	var	0
	line	164
	colm	51
	synt	any
	field	flist
	line	164
	colm	46
	synt	any
	invoke	1
	unmark
lab L27
	mark	L28
	pnull
	pnull
	pnull
	var	0
	line	165
	colm	21
	synt	any
	field	flist
	line	165
	colm	27
	synt	any
	field	__m
	line	165
	colm	31
	synt	any
	field	set_contents
	pnull
	var	0
	line	165
	colm	49
	synt	any
	field	flist
	var	5
	line	165
	colm	44
	synt	any
	invoke	2
	unmark
lab L28
	mark	L29
	pnull
	pnull
	pnull
	var	0
	line	166
	colm	21
	synt	any
	field	flist
	line	166
	colm	27
	synt	any
	field	__m
	line	166
	colm	31
	synt	any
	field	goto_pos
	pnull
	var	0
	line	166
	colm	45
	synt	any
	field	flist
	int	1
	int	0
	line	166
	colm	40
	synt	any
	invoke	3
	unmark
lab L29
	mark	L30
	pnull
	pnull
	pnull
	var	0
	line	167
	colm	21
	synt	any
	field	flist
	line	167
	colm	27
	synt	any
	field	__m
	line	167
	colm	31
	synt	any
	field	clear_selections
	pnull
	var	0
	line	167
	colm	53
	synt	any
	field	flist
	line	167
	colm	48
	synt	any
	invoke	1
	unmark
lab L30
	mark	L31
	pnull
	pnull
	pnull
	var	0
	line	168
	colm	21
	synt	any
	field	flist
	line	168
	colm	27
	synt	any
	field	__m
	line	168
	colm	31
	synt	any
	field	clear_no_updates
	pnull
	var	0
	line	168
	colm	53
	synt	any
	field	flist
	line	168
	colm	48
	synt	any
	invoke	1
	unmark
lab L31
	pnull
	pnull
	pnull
	var	0
	line	169
	colm	21
	synt	any
	field	file
	line	169
	colm	26
	synt	any
	field	__m
	line	169
	colm	30
	synt	any
	field	set_contents
	pnull
	var	0
	line	169
	colm	48
	synt	any
	field	file
	str	4
	line	169
	colm	43
	synt	any
	invoke	2
	line	136
	colm	13
	synt	endif
	goto	L2
lab L8
	mark	L32
	ccase
	pnull
	var	0
	line	173
	colm	14
	synt	any
	field	flist
	line	173
	colm	20
	synt	any
	eqv
	unmark
	pop
	line	174
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	1
	line	174
	colm	19
	synt	any
	field	__m
	line	174
	colm	23
	synt	any
	field	get_code
	var	1
	line	174
	colm	32
	synt	any
	invoke	1
	int	0
	line	174
	colm	37
	synt	any
	numgt
	unmark
	pnull
	pnull
	pnull
	var	0
	line	178
	colm	21
	synt	any
	field	file
	line	178
	colm	26
	synt	any
	field	__m
	line	178
	colm	30
	synt	any
	field	set_contents
	pnull
	var	0
	line	178
	colm	48
	synt	any
	field	file
	pnull
	pnull
	pnull
	pnull
	var	0
	line	178
	colm	59
	synt	any
	field	flist
	line	178
	colm	65
	synt	any
	field	__m
	line	178
	colm	69
	synt	any
	field	get_contents
	pnull
	var	0
	line	178
	colm	87
	synt	any
	field	flist
	line	178
	colm	82
	synt	any
	invoke	1
	pnull
	pnull
	pnull
	pnull
	var	0
	line	178
	colm	101
	synt	any
	field	flist
	line	178
	colm	107
	synt	any
	field	__m
	line	178
	colm	111
	synt	any
	field	get_selections
	pnull
	var	0
	line	178
	colm	131
	synt	any
	field	flist
	line	178
	colm	126
	synt	any
	invoke	1
	int	1
	line	178
	colm	139
	synt	any
	subsc
	line	178
	colm	95
	synt	any
	subsc
	line	178
	colm	43
	synt	any
	invoke	2
	line	174
	colm	13
	synt	endif
	goto	L2
lab L32
	mark	L33
	ccase
	pnull
	var	0
	line	182
	colm	14
	synt	any
	field	dir
	line	182
	colm	18
	synt	any
	eqv
	unmark
	pop
	line	183
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	1
	line	183
	colm	19
	synt	any
	field	__m
	line	183
	colm	23
	synt	any
	field	get_code
	var	1
	line	183
	colm	32
	synt	any
	invoke	1
	int	0
	line	183
	colm	37
	synt	any
	numeq
	unmark
	mark	L34
	pnull
	var	4
	pnull
	line	187
	colm	22
	synt	any
	llist	0
	line	187
	colm	19
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	pnull
	var	5
	pnull
	line	188
	colm	22
	synt	any
	llist	0
	line	188
	colm	19
	synt	any
	asgn
	unmark
lab L35
	mark	L36
	pnull
	pnull
	pnull
	var	0
	line	189
	colm	21
	synt	any
	field	dir
	line	189
	colm	25
	synt	any
	field	__m
	line	189
	colm	29
	synt	any
	field	set_contents
	pnull
	var	0
	line	189
	colm	47
	synt	any
	field	dir
	pnull
	var	3
	pnull
	pnull
	var	0
	line	189
	colm	60
	synt	any
	field	__m
	line	189
	colm	64
	synt	any
	field	get_std_dir
	var	0
	line	189
	colm	76
	synt	any
	invoke	1
	line	189
	colm	53
	synt	any
	asgn
	line	189
	colm	42
	synt	any
	invoke	2
	unmark
lab L36
	mark	L37
	var	6
	var	3
	var	4
	var	5
	line	190
	colm	34
	synt	any
	invoke	3
	unmark
lab L37
	mark	L38
	pnull
	pnull
	pnull
	var	0
	line	191
	colm	21
	synt	any
	field	dlist
	line	191
	colm	27
	synt	any
	field	__m
	line	191
	colm	31
	synt	any
	field	set_no_updates
	pnull
	var	0
	line	191
	colm	51
	synt	any
	field	dlist
	line	191
	colm	46
	synt	any
	invoke	1
	unmark
lab L38
	mark	L39
	pnull
	pnull
	pnull
	var	0
	line	192
	colm	21
	synt	any
	field	dlist
	line	192
	colm	27
	synt	any
	field	__m
	line	192
	colm	31
	synt	any
	field	set_contents
	pnull
	var	0
	line	192
	colm	49
	synt	any
	field	dlist
	var	4
	line	192
	colm	44
	synt	any
	invoke	2
	unmark
lab L39
	mark	L40
	pnull
	pnull
	pnull
	var	0
	line	193
	colm	21
	synt	any
	field	dlist
	line	193
	colm	27
	synt	any
	field	__m
	line	193
	colm	31
	synt	any
	field	goto_pos
	pnull
	var	0
	line	193
	colm	45
	synt	any
	field	dlist
	int	1
	int	0
	line	193
	colm	40
	synt	any
	invoke	3
	unmark
lab L40
	mark	L41
	pnull
	pnull
	pnull
	var	0
	line	194
	colm	21
	synt	any
	field	dlist
	line	194
	colm	27
	synt	any
	field	__m
	line	194
	colm	31
	synt	any
	field	clear_selections
	pnull
	var	0
	line	194
	colm	53
	synt	any
	field	dlist
	line	194
	colm	48
	synt	any
	invoke	1
	unmark
lab L41
	mark	L42
	pnull
	pnull
	pnull
	var	0
	line	195
	colm	21
	synt	any
	field	dlist
	line	195
	colm	27
	synt	any
	field	__m
	line	195
	colm	31
	synt	any
	field	clear_no_updates
	pnull
	var	0
	line	195
	colm	53
	synt	any
	field	dlist
	line	195
	colm	48
	synt	any
	invoke	1
	unmark
lab L42
	mark	L43
	pnull
	pnull
	pnull
	var	0
	line	196
	colm	21
	synt	any
	field	flist
	line	196
	colm	27
	synt	any
	field	__m
	line	196
	colm	31
	synt	any
	field	set_no_updates
	pnull
	var	0
	line	196
	colm	51
	synt	any
	field	flist
	line	196
	colm	46
	synt	any
	invoke	1
	unmark
lab L43
	mark	L44
	pnull
	pnull
	pnull
	var	0
	line	197
	colm	21
	synt	any
	field	flist
	line	197
	colm	27
	synt	any
	field	__m
	line	197
	colm	31
	synt	any
	field	set_contents
	pnull
	var	0
	line	197
	colm	49
	synt	any
	field	flist
	var	5
	line	197
	colm	44
	synt	any
	invoke	2
	unmark
lab L44
	mark	L45
	pnull
	pnull
	pnull
	var	0
	line	198
	colm	21
	synt	any
	field	flist
	line	198
	colm	27
	synt	any
	field	__m
	line	198
	colm	31
	synt	any
	field	goto_pos
	pnull
	var	0
	line	198
	colm	45
	synt	any
	field	flist
	int	1
	int	0
	line	198
	colm	40
	synt	any
	invoke	3
	unmark
lab L45
	mark	L46
	pnull
	pnull
	pnull
	var	0
	line	199
	colm	21
	synt	any
	field	flist
	line	199
	colm	27
	synt	any
	field	__m
	line	199
	colm	31
	synt	any
	field	clear_selections
	pnull
	var	0
	line	199
	colm	53
	synt	any
	field	flist
	line	199
	colm	48
	synt	any
	invoke	1
	unmark
lab L46
	mark	L47
	pnull
	pnull
	pnull
	var	0
	line	200
	colm	21
	synt	any
	field	flist
	line	200
	colm	27
	synt	any
	field	__m
	line	200
	colm	31
	synt	any
	field	clear_no_updates
	pnull
	var	0
	line	200
	colm	53
	synt	any
	field	flist
	line	200
	colm	48
	synt	any
	invoke	1
	unmark
lab L47
	pnull
	pnull
	pnull
	var	0
	line	201
	colm	21
	synt	any
	field	file
	line	201
	colm	26
	synt	any
	field	__m
	line	201
	colm	30
	synt	any
	field	set_contents
	pnull
	var	0
	line	201
	colm	48
	synt	any
	field	file
	str	4
	line	201
	colm	43
	synt	any
	invoke	2
	line	183
	colm	13
	synt	endif
	goto	L2
lab L33
	efail
lab L2
	line	112
	colm	7
	synt	endcase
	unmark
lab L1
	pnull
	line	205
	colm	1
	synt	any
	pfail
	end
proc FileDialog_init_dialog
	local	0,001000,self
	declend
	line	207
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	208
	colm	12
	synt	any
	field	__m
	line	208
	colm	16
	synt	any
	field	set_focus
	var	0
	pnull
	var	0
	line	208
	colm	36
	synt	any
	field	file
	line	208
	colm	26
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	209
	colm	1
	synt	any
	pfail
	end
proc FileDialog_component_setup
	local	0,001000,self
	local	1,000000,chdir
	local	2,000000,pd
	local	3,000000,open
	local	4,000000,read
	local	5,000000,close
	local	6,000000,l
	local	7,000000,Label
	local	8,000000,TextField
	local	9,000000,l1
	local	10,000000,l2
	local	11,000000,get_directory_list
	local	12,000000,TextList
	local	13,000000,TextButton
	con	0,010000,0
	con	1,010000,3,160,167,144
	con	2,010000,2,160,162
	con	3,010000,1,057
	con	4,002000,1,1
	con	5,010000,12,163,151,172,145,075,065,060,060,054,064,065,060
	con	6,010000,9,162,145,163,151,172,145,075,157,156
	con	7,010000,9,104,151,162,145,143,164,157,162,171
	con	8,002000,2,50
	con	9,010000,1,154
	con	10,010000,1,143
	con	11,002000,3,150
	con	12,010000,8,061,060,060,045,055,062,060,060
	con	13,010000,4,106,151,154,145
	con	14,002000,3,100
	con	15,010000,6,065,060,045,055,067,065
	con	16,010000,8,061,060,060,045,055,062,065,060
	con	17,010000,6,065,060,045,053,062,065
	con	18,010000,4,117,153,141,171
	con	19,010000,3,063,063,045
	con	20,010000,7,061,060,060,045,055,065,060
	con	21,010000,6,103,141,156,143,145,154
	con	22,010000,3,066,066,045
	declend
	line	211
	colm	11
	synt	any
	mark	L1
	line	215
	colm	7
	synt	if
	mark0
	mark	L2
	pnull
	pnull
	var	0
	line	215
	colm	15
	synt	any
	field	init_dir
	line	215
	colm	10
	synt	any
	null
	line	215
	colm	24
	synt	any
	esusp
	goto	L3
lab L2
	pnull
	pnull
	var	0
	line	215
	colm	30
	synt	any
	field	init_dir
	str	0
	line	215
	colm	39
	synt	any
	lexeq
lab L3
	unmark
	mark	L4
	pnull
	pnull
	var	0
	line	216
	colm	14
	synt	any
	field	init_dir
	var	1
	line	216
	colm	30
	synt	any
	invoke	0
	line	216
	colm	23
	synt	any
	asgn
	unmark
lab L4
	line	218
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	218
	colm	18
	synt	any
	field	init_dir
	line	218
	colm	13
	synt	any
	null
	pop
	pnull
	var	2
	var	3
	str	1
	str	2
	line	218
	colm	36
	synt	any
	invoke	2
	line	218
	colm	30
	synt	any
	asgn
	unmark
	mark	L5
	pnull
	pnull
	var	0
	line	219
	colm	17
	synt	any
	field	init_dir
	var	4
	var	2
	line	219
	colm	32
	synt	any
	invoke	1
	line	219
	colm	26
	synt	any
	asgn
	unmark
lab L5
	var	5
	var	2
	line	220
	colm	18
	synt	any
	invoke	1
	line	218
	colm	10
	synt	endif
	line	215
	colm	7
	synt	endif
	unmark
lab L1
	mark	L6
	pnull
	pnull
	pnull
	var	0
	line	224
	colm	12
	synt	any
	field	init_dir
	line	224
	colm	7
	synt	any
	null
	str	3
	line	224
	colm	21
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	pnull
	var	0
	line	225
	colm	12
	synt	any
	field	init_file
	line	225
	colm	7
	synt	any
	null
	str	0
	line	225
	colm	22
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	line	227
	colm	7
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	0
	line	227
	colm	15
	synt	any
	field	init_dir
	pnull
	int	4
	line	227
	colm	25
	synt	any
	neg
	line	227
	colm	24
	synt	any
	subsc
	str	3
	line	227
	colm	28
	synt	any
	lexne
	unmark
	pnull
	pnull
	var	0
	line	227
	colm	44
	synt	any
	field	init_dir
	dup
	str	3
	line	227
	colm	53
	synt	any
	cat
	asgn
	line	227
	colm	7
	synt	endif
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	0
	line	229
	colm	12
	synt	any
	field	__m
	line	229
	colm	16
	synt	any
	field	set_attribs_list
	var	0
	pnull
	pnull
	str	5
	str	6
	line	229
	colm	39
	synt	any
	llist	2
	pnull
	var	0
	line	229
	colm	74
	synt	any
	field	extra_attribs
	line	229
	colm	67
	synt	any
	lconcat
	line	229
	colm	33
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	pnull
	var	6
	var	7
	line	231
	colm	17
	synt	any
	invoke	0
	line	231
	colm	9
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	6
	line	232
	colm	9
	synt	any
	field	__m
	line	232
	colm	13
	synt	any
	field	set_label
	var	6
	str	7
	line	232
	colm	23
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	6
	line	233
	colm	9
	synt	any
	field	__m
	line	233
	colm	13
	synt	any
	field	set_pos
	var	6
	int	8
	int	8
	line	233
	colm	21
	synt	any
	invoke	3
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	6
	line	234
	colm	9
	synt	any
	field	__m
	line	234
	colm	13
	synt	any
	field	set_align
	var	6
	str	9
	str	10
	line	234
	colm	23
	synt	any
	invoke	3
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	0
	line	235
	colm	12
	synt	any
	field	__m
	line	235
	colm	16
	synt	any
	field	add
	var	0
	var	6
	line	235
	colm	20
	synt	any
	invoke	2
	unmark
lab L14
	mark	L15
	pnull
	pnull
	var	0
	line	237
	colm	11
	synt	any
	field	dir
	var	8
	line	237
	colm	26
	synt	any
	invoke	0
	line	237
	colm	15
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	pnull
	pnull
	var	0
	line	238
	colm	12
	synt	any
	field	dir
	line	238
	colm	16
	synt	any
	field	__m
	line	238
	colm	20
	synt	any
	field	set_pos
	pnull
	var	0
	line	238
	colm	33
	synt	any
	field	dir
	int	11
	int	8
	line	238
	colm	28
	synt	any
	invoke	3
	unmark
lab L16
	mark	L17
	pnull
	pnull
	pnull
	var	0
	line	239
	colm	12
	synt	any
	field	dir
	line	239
	colm	16
	synt	any
	field	__m
	line	239
	colm	20
	synt	any
	field	set_size
	pnull
	var	0
	line	239
	colm	34
	synt	any
	field	dir
	str	12
	line	239
	colm	29
	synt	any
	invoke	2
	unmark
lab L17
	mark	L18
	pnull
	pnull
	pnull
	var	0
	line	240
	colm	12
	synt	any
	field	dir
	line	240
	colm	16
	synt	any
	field	__m
	line	240
	colm	20
	synt	any
	field	set_align
	pnull
	var	0
	line	240
	colm	35
	synt	any
	field	dir
	str	9
	str	10
	line	240
	colm	30
	synt	any
	invoke	3
	unmark
lab L18
	mark	L19
	pnull
	pnull
	pnull
	var	0
	line	241
	colm	12
	synt	any
	field	dir
	line	241
	colm	16
	synt	any
	field	__m
	line	241
	colm	20
	synt	any
	field	set_contents
	pnull
	var	0
	line	241
	colm	38
	synt	any
	field	dir
	pnull
	var	0
	line	241
	colm	47
	synt	any
	field	init_dir
	line	241
	colm	33
	synt	any
	invoke	2
	unmark
lab L19
	mark	L20
	pnull
	pnull
	var	0
	line	242
	colm	12
	synt	any
	field	__m
	line	242
	colm	16
	synt	any
	field	add
	var	0
	pnull
	var	0
	line	242
	colm	30
	synt	any
	field	dir
	line	242
	colm	20
	synt	any
	invoke	2
	unmark
lab L20
	mark	L21
	pnull
	var	6
	var	7
	line	244
	colm	17
	synt	any
	invoke	0
	line	244
	colm	9
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	pnull
	pnull
	var	6
	line	245
	colm	9
	synt	any
	field	__m
	line	245
	colm	13
	synt	any
	field	set_label
	var	6
	str	13
	line	245
	colm	23
	synt	any
	invoke	2
	unmark
lab L22
	mark	L23
	pnull
	pnull
	var	6
	line	246
	colm	9
	synt	any
	field	__m
	line	246
	colm	13
	synt	any
	field	set_pos
	var	6
	int	8
	int	14
	line	246
	colm	21
	synt	any
	invoke	3
	unmark
lab L23
	mark	L24
	pnull
	pnull
	var	6
	line	247
	colm	9
	synt	any
	field	__m
	line	247
	colm	13
	synt	any
	field	set_align
	var	6
	str	9
	str	10
	line	247
	colm	23
	synt	any
	invoke	3
	unmark
lab L24
	mark	L25
	pnull
	pnull
	var	0
	line	248
	colm	12
	synt	any
	field	__m
	line	248
	colm	16
	synt	any
	field	add
	var	0
	var	6
	line	248
	colm	20
	synt	any
	invoke	2
	unmark
lab L25
	mark	L26
	pnull
	pnull
	var	0
	line	250
	colm	11
	synt	any
	field	file
	var	8
	line	250
	colm	27
	synt	any
	invoke	0
	line	250
	colm	16
	synt	any
	asgn
	unmark
lab L26
	mark	L27
	pnull
	pnull
	pnull
	var	0
	line	251
	colm	12
	synt	any
	field	file
	line	251
	colm	17
	synt	any
	field	__m
	line	251
	colm	21
	synt	any
	field	set_pos
	pnull
	var	0
	line	251
	colm	34
	synt	any
	field	file
	int	11
	int	14
	line	251
	colm	29
	synt	any
	invoke	3
	unmark
lab L27
	mark	L28
	pnull
	pnull
	pnull
	var	0
	line	252
	colm	12
	synt	any
	field	file
	line	252
	colm	17
	synt	any
	field	__m
	line	252
	colm	21
	synt	any
	field	set_size
	pnull
	var	0
	line	252
	colm	35
	synt	any
	field	file
	str	12
	line	252
	colm	30
	synt	any
	invoke	2
	unmark
lab L28
	mark	L29
	pnull
	pnull
	pnull
	var	0
	line	253
	colm	12
	synt	any
	field	file
	line	253
	colm	17
	synt	any
	field	__m
	line	253
	colm	21
	synt	any
	field	set_align
	pnull
	var	0
	line	253
	colm	36
	synt	any
	field	file
	str	9
	str	10
	line	253
	colm	31
	synt	any
	invoke	3
	unmark
lab L29
	mark	L30
	pnull
	pnull
	pnull
	var	0
	line	254
	colm	12
	synt	any
	field	file
	line	254
	colm	17
	synt	any
	field	__m
	line	254
	colm	21
	synt	any
	field	set_contents
	pnull
	var	0
	line	254
	colm	39
	synt	any
	field	file
	pnull
	var	0
	line	254
	colm	49
	synt	any
	field	init_file
	line	254
	colm	34
	synt	any
	invoke	2
	unmark
lab L30
	mark	L31
	pnull
	pnull
	var	0
	line	255
	colm	12
	synt	any
	field	__m
	line	255
	colm	16
	synt	any
	field	add
	var	0
	pnull
	var	0
	line	255
	colm	30
	synt	any
	field	file
	line	255
	colm	20
	synt	any
	invoke	2
	unmark
lab L31
	mark	L32
	pnull
	var	9
	pnull
	line	257
	colm	13
	synt	any
	llist	0
	line	257
	colm	10
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	pnull
	var	10
	pnull
	line	258
	colm	13
	synt	any
	llist	0
	line	258
	colm	10
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	var	11
	pnull
	var	0
	line	259
	colm	30
	synt	any
	field	init_dir
	var	9
	var	10
	line	259
	colm	25
	synt	any
	invoke	3
	unmark
lab L34
	mark	L35
	pnull
	pnull
	var	0
	line	261
	colm	11
	synt	any
	field	dlist
	var	12
	line	261
	colm	27
	synt	any
	invoke	0
	line	261
	colm	17
	synt	any
	asgn
	unmark
lab L35
	mark	L36
	pnull
	pnull
	pnull
	var	0
	line	262
	colm	12
	synt	any
	field	dlist
	line	262
	colm	18
	synt	any
	field	__m
	line	262
	colm	22
	synt	any
	field	set_select_one
	pnull
	var	0
	line	262
	colm	42
	synt	any
	field	dlist
	line	262
	colm	37
	synt	any
	invoke	1
	unmark
lab L36
	mark	L37
	pnull
	pnull
	pnull
	var	0
	line	263
	colm	12
	synt	any
	field	dlist
	line	263
	colm	18
	synt	any
	field	__m
	line	263
	colm	22
	synt	any
	field	set_pos
	pnull
	var	0
	line	263
	colm	35
	synt	any
	field	dlist
	int	8
	int	11
	line	263
	colm	30
	synt	any
	invoke	3
	unmark
lab L37
	mark	L38
	pnull
	pnull
	pnull
	var	0
	line	264
	colm	12
	synt	any
	field	dlist
	line	264
	colm	18
	synt	any
	field	__m
	line	264
	colm	22
	synt	any
	field	set_size
	pnull
	var	0
	line	264
	colm	36
	synt	any
	field	dlist
	str	15
	str	16
	line	264
	colm	31
	synt	any
	invoke	3
	unmark
lab L38
	mark	L39
	pnull
	pnull
	pnull
	var	0
	line	265
	colm	12
	synt	any
	field	dlist
	line	265
	colm	18
	synt	any
	field	__m
	line	265
	colm	22
	synt	any
	field	set_contents
	pnull
	var	0
	line	265
	colm	40
	synt	any
	field	dlist
	var	9
	line	265
	colm	35
	synt	any
	invoke	2
	unmark
lab L39
	mark	L40
	pnull
	pnull
	var	0
	line	266
	colm	12
	synt	any
	field	__m
	line	266
	colm	16
	synt	any
	field	add
	var	0
	pnull
	var	0
	line	266
	colm	30
	synt	any
	field	dlist
	line	266
	colm	20
	synt	any
	invoke	2
	unmark
lab L40
	mark	L41
	pnull
	pnull
	var	0
	line	268
	colm	11
	synt	any
	field	flist
	var	12
	line	268
	colm	27
	synt	any
	invoke	0
	line	268
	colm	17
	synt	any
	asgn
	unmark
lab L41
	mark	L42
	pnull
	pnull
	pnull
	var	0
	line	269
	colm	12
	synt	any
	field	flist
	line	269
	colm	18
	synt	any
	field	__m
	line	269
	colm	22
	synt	any
	field	set_select_one
	pnull
	var	0
	line	269
	colm	42
	synt	any
	field	flist
	line	269
	colm	37
	synt	any
	invoke	1
	unmark
lab L42
	mark	L43
	pnull
	pnull
	pnull
	var	0
	line	270
	colm	12
	synt	any
	field	flist
	line	270
	colm	18
	synt	any
	field	__m
	line	270
	colm	22
	synt	any
	field	set_pos
	pnull
	var	0
	line	270
	colm	35
	synt	any
	field	flist
	str	17
	int	11
	line	270
	colm	30
	synt	any
	invoke	3
	unmark
lab L43
	mark	L44
	pnull
	pnull
	pnull
	var	0
	line	271
	colm	12
	synt	any
	field	flist
	line	271
	colm	18
	synt	any
	field	__m
	line	271
	colm	22
	synt	any
	field	set_size
	pnull
	var	0
	line	271
	colm	36
	synt	any
	field	flist
	str	15
	str	16
	line	271
	colm	31
	synt	any
	invoke	3
	unmark
lab L44
	mark	L45
	pnull
	pnull
	pnull
	var	0
	line	272
	colm	12
	synt	any
	field	flist
	line	272
	colm	18
	synt	any
	field	__m
	line	272
	colm	22
	synt	any
	field	set_contents
	pnull
	var	0
	line	272
	colm	40
	synt	any
	field	flist
	var	10
	line	272
	colm	35
	synt	any
	invoke	2
	unmark
lab L45
	mark	L46
	pnull
	pnull
	var	0
	line	273
	colm	12
	synt	any
	field	__m
	line	273
	colm	16
	synt	any
	field	add
	var	0
	pnull
	var	0
	line	273
	colm	30
	synt	any
	field	flist
	line	273
	colm	20
	synt	any
	invoke	2
	unmark
lab L46
	mark	L47
	pnull
	pnull
	var	0
	line	275
	colm	11
	synt	any
	field	okay
	var	13
	line	275
	colm	28
	synt	any
	invoke	0
	line	275
	colm	16
	synt	any
	asgn
	unmark
lab L47
	mark	L48
	pnull
	pnull
	pnull
	var	0
	line	276
	colm	12
	synt	any
	field	okay
	line	276
	colm	17
	synt	any
	field	__m
	line	276
	colm	21
	synt	any
	field	set_label
	pnull
	var	0
	line	276
	colm	36
	synt	any
	field	okay
	str	18
	line	276
	colm	31
	synt	any
	invoke	2
	unmark
lab L48
	mark	L49
	pnull
	pnull
	pnull
	var	0
	line	277
	colm	12
	synt	any
	field	okay
	line	277
	colm	17
	synt	any
	field	__m
	line	277
	colm	21
	synt	any
	field	set_pos
	pnull
	var	0
	line	277
	colm	34
	synt	any
	field	okay
	str	19
	str	20
	line	277
	colm	29
	synt	any
	invoke	3
	unmark
lab L49
	mark	L50
	pnull
	pnull
	pnull
	var	0
	line	278
	colm	12
	synt	any
	field	okay
	line	278
	colm	17
	synt	any
	field	__m
	line	278
	colm	21
	synt	any
	field	set_align
	pnull
	var	0
	line	278
	colm	36
	synt	any
	field	okay
	str	10
	str	10
	line	278
	colm	31
	synt	any
	invoke	3
	unmark
lab L50
	mark	L51
	pnull
	pnull
	var	0
	line	279
	colm	12
	synt	any
	field	__m
	line	279
	colm	16
	synt	any
	field	add
	var	0
	pnull
	var	0
	line	279
	colm	30
	synt	any
	field	okay
	line	279
	colm	20
	synt	any
	invoke	2
	unmark
lab L51
	mark	L52
	pnull
	pnull
	var	0
	line	281
	colm	11
	synt	any
	field	cancel
	var	13
	line	281
	colm	30
	synt	any
	invoke	0
	line	281
	colm	18
	synt	any
	asgn
	unmark
lab L52
	mark	L53
	pnull
	pnull
	pnull
	var	0
	line	282
	colm	12
	synt	any
	field	cancel
	line	282
	colm	19
	synt	any
	field	__m
	line	282
	colm	23
	synt	any
	field	set_label
	pnull
	var	0
	line	282
	colm	38
	synt	any
	field	cancel
	str	21
	line	282
	colm	33
	synt	any
	invoke	2
	unmark
lab L53
	mark	L54
	pnull
	pnull
	pnull
	var	0
	line	283
	colm	12
	synt	any
	field	cancel
	line	283
	colm	19
	synt	any
	field	__m
	line	283
	colm	23
	synt	any
	field	set_pos
	pnull
	var	0
	line	283
	colm	36
	synt	any
	field	cancel
	str	22
	str	20
	line	283
	colm	31
	synt	any
	invoke	3
	unmark
lab L54
	mark	L55
	pnull
	pnull
	pnull
	var	0
	line	284
	colm	12
	synt	any
	field	cancel
	line	284
	colm	19
	synt	any
	field	__m
	line	284
	colm	23
	synt	any
	field	set_align
	pnull
	var	0
	line	284
	colm	38
	synt	any
	field	cancel
	str	10
	str	10
	line	284
	colm	33
	synt	any
	invoke	3
	unmark
lab L55
	mark	L56
	pnull
	pnull
	var	0
	line	285
	colm	12
	synt	any
	field	__m
	line	285
	colm	16
	synt	any
	field	add
	var	0
	pnull
	var	0
	line	285
	colm	30
	synt	any
	field	cancel
	line	285
	colm	20
	synt	any
	invoke	2
	unmark
lab L56
	pnull
	line	286
	colm	1
	synt	any
	pfail
	end
proc FileDialog_initially
	local	0,001000,self
	declend
	line	288
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	289
	colm	12
	synt	any
	field	__m
	line	289
	colm	16
	synt	any
	field	_Dialog
	line	289
	colm	24
	synt	any
	field	initially
	var	0
	line	289
	colm	35
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	290
	colm	11
	synt	any
	field	extra_attribs
	pnull
	line	290
	colm	29
	synt	any
	llist	0
	line	290
	colm	26
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	291
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	292
	colm	1
	synt	any
	pfail
	end
proc FileDialog
	local	0,001000,init_dir
	local	1,001000,init_file
	local	2,001000,res
	local	3,001000,dir
	local	4,001000,file
	local	5,001000,dlist
	local	6,001000,flist
	local	7,001000,okay
	local	8,001000,cancel
	local	9,001000,extra_attribs
	local	10,001000,win
	local	11,001000,is_open
	local	12,001000,owning_dialog
	local	13,001000,child_dialogs
	local	14,001000,focus
	local	15,001000,unique_flag
	local	16,001000,re_process_flag
	local	17,001000,buffer_win
	local	18,001000,min_width
	local	19,001000,min_height
	local	20,001000,click_count
	local	21,001000,double_click_delay
	local	22,001000,repeat_delay
	local	23,001000,repeat_rate
	local	24,001000,prev_x
	local	25,001000,prev_y
	local	26,001000,prev_time
	local	27,001000,prev_event
	local	28,001000,is_blocked_flag
	local	29,001000,resize_attrib
	local	30,001000,components
	local	31,001000,x_spec
	local	32,001000,y_spec
	local	33,001000,w_spec
	local	34,001000,h_spec
	local	35,001000,x_align
	local	36,001000,y_align
	local	37,001000,x
	local	38,001000,y
	local	39,001000,w
	local	40,001000,h
	local	41,001000,parent_Dialog
	local	42,001000,attribs
	local	43,001000,has_focus
	local	44,001000,is_shaded_flag
	local	45,001000,cwin
	local	46,001000,cbwin
	local	47,001000,accepts_tab_focus_flag
	local	48,001000,draw_border_flag
	local	49,001000,no_updates_count
	local	50,001000,tooltip
	local	51,001000,parent_Component
	local	52,001000,keeps_tabs
	local	53,001000,ticker_rate
	local	54,001000,next_tick_time
	local	55,000020,self
	local	56,000020,clone
	local	57,000000,FileDialog__oprec
	local	58,000000,FileDialoginitialize
	local	59,000000,_Dialog__oprec
	local	60,000000,_Dialoginitialize
	local	61,000000,Container__oprec
	local	62,000000,Containerinitialize
	local	63,000000,Component__oprec
	local	64,000000,Componentinitialize
	local	65,000000,Ticker__oprec
	local	66,000000,Tickerinitialize
	local	67,000000,MetaComponent__oprec
	local	68,000000,MetaComponentinitialize
	local	69,000000,FileDialog__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	57
	line	8
	colm	6
	synt	any
	null
	unmark
	var	58
	line	8
	colm	50
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	59
	line	9
	colm	6
	synt	any
	null
	unmark
	var	60
	line	9
	colm	44
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	57
	line	10
	colm	20
	synt	any
	field	_Dialog
	var	59
	line	10
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	61
	line	11
	colm	6
	synt	any
	null
	unmark
	var	62
	line	11
	colm	48
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	57
	line	12
	colm	20
	synt	any
	field	Container
	var	61
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	13
	colm	3
	synt	if
	mark0
	pnull
	var	63
	line	13
	colm	6
	synt	any
	null
	unmark
	var	64
	line	13
	colm	48
	synt	any
	invoke	0
	line	13
	colm	3
	synt	endif
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	57
	line	14
	colm	20
	synt	any
	field	Component
	var	63
	line	14
	colm	31
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	15
	colm	3
	synt	if
	mark0
	pnull
	var	65
	line	15
	colm	6
	synt	any
	null
	unmark
	var	66
	line	15
	colm	42
	synt	any
	invoke	0
	line	15
	colm	3
	synt	endif
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	57
	line	16
	colm	20
	synt	any
	field	Ticker
	var	65
	line	16
	colm	28
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	line	17
	colm	3
	synt	if
	mark0
	pnull
	var	67
	line	17
	colm	6
	synt	any
	null
	unmark
	var	68
	line	17
	colm	56
	synt	any
	invoke	0
	line	17
	colm	3
	synt	endif
	unmark
lab L13
	pnull
	pnull
	var	57
	line	18
	colm	20
	synt	any
	field	MetaComponent
	var	67
	line	18
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L14
	pnull
	var	55
	var	69
	line	20
	colm	29
	synt	any
	keywd	null
	var	57
	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
	var	51
	var	52
	var	53
	var	54
	line	20
	colm	28
	synt	any
	invoke	57
	line	20
	colm	8
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	pnull
	var	55
	line	21
	colm	7
	synt	any
	field	__s
	var	55
	line	21
	colm	12
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	mark	L17
	pnull
	pnull
	var	55
	line	22
	colm	7
	synt	any
	field	__m
	line	22
	colm	11
	synt	any
	field	initially
	var	55
	line	22
	colm	21
	synt	any
	invoke	1
	line	22
	colm	28
	synt	any
	esusp
	goto	L18
lab L17
	line	22
	colm	30
	synt	any
	pfail
lab L18
	unmark
lab L16
	mark	L19
	mark	L20
	var	55
	line	23
	colm	3
	synt	any
	pret
lab L20
	synt	any
	pfail
	unmark
lab L19
	pnull
	line	24
	colm	1
	synt	any
	pfail
	end
proc FileDialoginitialize
	local	0,000000,FileDialog__oprec
	local	1,000000,FileDialog__methods
	local	2,000000,FileDialog_set_extra_attribs
	local	3,000000,FileDialog_get_directory
	local	4,000000,FileDialog_get_result
	local	5,000000,FileDialog_set_directory
	local	6,000000,FileDialog_set_file
	local	7,000000,FileDialog_set_path
	local	8,000000,FileDialog_set_result
	local	9,000000,FileDialog_get_std_dir
	local	10,000000,FileDialog_dialog_event
	local	11,000000,FileDialog_init_dialog
	local	12,000000,FileDialog_component_setup
	local	13,000000,FileDialog_initially
	local	14,000000,_Dialog_is_shaded
	local	15,000000,_Dialog_is_unshaded
	local	16,000000,_Dialog_is_hidden
	local	17,000000,_Dialog_is_unhidden
	local	18,000000,_Dialog_block
	local	19,000000,_Dialog_unblock
	local	20,000000,_Dialog_get_click_count
	local	21,000000,_Dialog_get_x_reference
	local	22,000000,_Dialog_get_y_reference
	local	23,000000,_Dialog_get_w_reference
	local	24,000000,_Dialog_get_h_reference
	local	25,000000,_Dialog_get_cwin_reference
	local	26,000000,_Dialog_get_visible_reference
	local	27,000000,_Dialog_show_child
	local	28,000000,_Dialog_show_modeless
	local	29,000000,_Dialog_show_modal
	local	30,000000,_Dialog_get_cbwin_reference
	local	31,000000,_Dialog_get_win
	local	32,000000,_Dialog_resize_win
	local	33,000000,_Dialog_Open
	local	34,000000,_Dialog_Close
	local	35,000000,_Dialog_set_min_size
	local	36,000000,_Dialog_get_buffer_win
	local	37,000000,_Dialog_set_unique
	local	38,000000,_Dialog_clear_unique
	local	39,000000,_Dialog_set_focus
	local	40,000000,_Dialog_clear_focus
	local	41,000000,_Dialog_display
	local	42,000000,_Dialog_end_dialog
	local	43,000000,_Dialog_show
	local	44,000000,_Dialog_dispose
	local	45,000000,_Dialog_process_event
	local	46,000000,_Dialog_set_double_click_delay
	local	47,000000,_Dialog_set_repeat_delay
	local	48,000000,_Dialog_set_repeat_rate
	local	49,000000,_Dialog_handle_notify
	local	50,000000,Container_generate_components
	local	51,000000,Container_generate_all_components
	local	52,000000,Container_add
	local	53,000000,Container_set_components
	local	54,000000,Container_get_components
	local	55,000000,Container_firstly
	local	56,000000,Container_final_setup
	local	57,000000,Container_finally
	local	58,000000,Container_resize
	local	59,000000,Container_handle_event
	local	60,000000,Container_in_region
	local	61,000000,Component_set_tooltip
	local	62,000000,Component_set_no_updates
	local	63,000000,Component_clear_no_updates
	local	64,000000,Component_redisplay
	local	65,000000,Component_error
	local	66,000000,Component_do_shading
	local	67,000000,Component_accepts_tab_focus
	local	68,000000,Component_unique_start
	local	69,000000,Component_unique_end
	local	70,000000,Component_toggle_is_shaded
	local	71,000000,Component_set_is_shaded
	local	72,000000,Component_clear_is_shaded
	local	73,000000,Component_toggle_draw_border
	local	74,000000,Component_set_draw_border
	local	75,000000,Component_clear_draw_border
	local	76,000000,Component_set_accepts_tab_focus
	local	77,000000,Component_clear_accepts_tab_focus
	local	78,000000,Component_attrib
	local	79,000000,Component_set_attribs
	local	80,000000,Component_set_attribs_list
	local	81,000000,Component_got_focus
	local	82,000000,Component_get_parent_win
	local	83,000000,Component_get_parent_buffer_win
	local	84,000000,Component_lost_focus
	local	85,000000,Component_set_pos
	local	86,000000,Component_set_size
	local	87,000000,Component_set_align
	local	88,000000,Component_set_abs_coords
	local	89,000000,Component_set_abs_size
	local	90,000000,Component_get_parent_Dialog
	local	91,000000,Component_set_parent_Dialog
	local	92,000000,Component_parse_pos
	local	93,000000,Ticker_tick
	local	94,000000,Ticker_set_ticker
	local	95,000000,Ticker_stop_ticker
	local	96,000000,Ticker_retime_ticker
	local	97,000000,Ticker_is_ticking
	local	98,000000,MetaComponent_set_fields
	declend
	line	26
	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
	var	51
	var	52
	var	53
	var	54
	var	55
	var	56
	var	57
	var	58
	var	59
	var	60
	var	61
	var	62
	var	63
	var	64
	var	65
	var	66
	var	67
	var	68
	var	69
	var	70
	var	71
	var	72
	var	73
	var	74
	var	75
	var	76
	var	77
	var	78
	var	79
	var	80
	var	81
	var	82
	var	83
	var	84
	var	85
	var	86
	var	87
	var	88
	var	89
	var	90
	var	91
	var	92
	var	93
	var	94
	var	95
	var	96
	var	97
	var	98
	line	27
	colm	51
	synt	any
	invoke	97
	line	27
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	28
	colm	1
	synt	any
	pfail
	end
proc get_directory_list
	local	0,001000,s
	local	1,001000,dir_list
	local	2,001000,file_list
	local	3,000000,fatal_error
	local	4,000000,stop
	local	5,000000,p
	local	6,000000,open
	local	7,000000,write
	local	8,000000,image
	local	9,000000,s2
	local	10,000000,read
	local	11,000000,sr
	local	12,000000,stat
	local	13,000000,put
	local	14,000000,close
	con	0,002000,1,1
	con	1,010000,1,057
	con	2,010000,0
	con	3,010000,31,147,145,164,137,144,151,162,145,143,164,157,162,171,137,154,151,163,164,072,040,143,141,156,047,164,040,157,160,145,156,040
	con	4,010000,31,147,145,164,137,144,151,162,145,143,164,157,162,171,137,154,151,163,164,072,040,143,141,156,047,164,040,163,164,141,164,040
	con	5,010000,1,144
	declend
	filen	file_dlg.icn
	line	296
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	3
	line	297
	colm	4
	synt	any
	null
	var	4
	line	297
	colm	17
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	303
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	303
	colm	8
	synt	any
	size
	int	0
	line	303
	colm	11
	synt	any
	numgt
	pop
	pnull
	pnull
	var	0
	pnull
	int	0
	line	303
	colm	21
	synt	any
	neg
	line	303
	colm	20
	synt	any
	subsc
	str	1
	line	303
	colm	25
	synt	any
	lexeq
	unmark
	pnull
	pnull
	var	0
	pnull
	int	0
	line	303
	colm	40
	synt	any
	neg
	line	303
	colm	39
	synt	any
	subsc
	str	2
	line	303
	colm	44
	synt	any
	asgn
	line	303
	colm	4
	synt	endif
	unmark
lab L2
	mark	L3
	pnull
	var	5
	mark	L4
	var	6
	var	0
	line	306
	colm	13
	synt	any
	invoke	1
	line	306
	colm	17
	synt	any
	esusp
	goto	L5
lab L4
	mark	L6
	var	7
	line	307
	colm	14
	synt	any
	keywd	errout
	str	3
	var	8
	var	0
	line	307
	colm	63
	synt	any
	invoke	1
	line	307
	colm	13
	synt	any
	invoke	3
	unmark
lab L6
	line	308
	colm	8
	synt	any
	pfail
lab L5
	line	306
	colm	6
	synt	any
	asgn
	unmark
lab L3
	mark	L7
	line	310
	colm	4
	synt	if
	mark0
	mark	L8
	pnull
	pnull
	var	0
	pnull
	int	0
	line	310
	colm	14
	synt	any
	neg
	line	310
	colm	13
	synt	any
	subsc
	str	1
	line	310
	colm	18
	synt	any
	lexeq
	unmark
	efail
lab L8
	pnull
	unmark
	pnull
	var	0
	dup
	str	1
	line	310
	colm	33
	synt	any
	cat
	asgn
	line	310
	colm	4
	synt	endif
	unmark
lab L7
	mark	L9
lab L10
	line	311
	colm	4
	synt	while
	mark0
	pnull
	var	9
	var	10
	var	5
	line	311
	colm	20
	synt	any
	invoke	1
	line	311
	colm	13
	synt	any
	asgn
	unmark
	mark	L10
	mark	L13
	pnull
	var	11
	mark	L14
	var	12
	pnull
	var	0
	var	9
	line	312
	colm	19
	synt	any
	cat
	line	312
	colm	17
	synt	any
	invoke	1
	line	312
	colm	25
	synt	any
	esusp
	goto	L15
lab L14
	mark	L16
	var	7
	line	313
	colm	17
	synt	any
	keywd	errout
	str	4
	var	8
	var	9
	line	313
	colm	66
	synt	any
	invoke	1
	line	313
	colm	16
	synt	any
	invoke	3
	unmark
lab L16
	line	314
	colm	11
	synt	any
	pfail
lab L15
	line	312
	colm	10
	synt	any
	asgn
	unmark
lab L13
	line	316
	colm	7
	synt	ifelse
	mark	L17
	pnull
	pnull
	pnull
	var	11
	line	316
	colm	12
	synt	any
	field	mode
	int	0
	line	316
	colm	17
	synt	any
	subsc
	str	5
	line	316
	colm	21
	synt	any
	lexeq
	unmark
	var	13
	var	1
	pnull
	var	9
	str	1
	line	317
	colm	27
	synt	any
	cat
	line	317
	colm	13
	synt	any
	invoke	2
	goto	L18
lab L17
	var	13
	var	2
	var	9
	line	319
	colm	13
	synt	any
	invoke	2
lab L18
	line	316
	colm	7
	synt	endifelse
lab L11
	unmark
	goto	L10
lab L12
	line	311
	colm	4
	synt	endwhile
	unmark
lab L9
	mark	L19
	var	14
	var	5
	line	321
	colm	9
	synt	any
	invoke	1
	unmark
lab L19
	mark	L20
	mark	L21
	pnull
	line	322
	colm	4
	synt	any
	pret
lab L21
	synt	any
	pfail
	unmark
lab L20
	pnull
	line	323
	colm	2
	synt	any
	pfail
	end
proc directory_name
	local	0,001000,s
	local	1,000020,i
	local	2,000000,find
	con	0,010000,1,057
	con	1,002000,1,1
	con	2,010000,0
	declend
	line	328
	colm	12
	synt	any
	mark	L1
	line	330
	colm	4
	synt	every
	mark0
	pnull
	var	1
	var	2
	str	0
	var	0
	line	330
	colm	19
	synt	any
	invoke	2
	line	330
	colm	12
	synt	any
	asgn
	pop
lab L2
	efail
lab L3
	line	330
	colm	4
	synt	endevery
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	var	0
	int	1
	pnull
	pnull
	var	1
	line	331
	colm	15
	synt	any
	nonnull
	int	1
	line	331
	colm	18
	synt	any
	plus
	line	331
	colm	14
	synt	any
	synt	any
	sect
	line	331
	colm	23
	synt	any
	esusp
	goto	L7
lab L6
	str	2
lab L7
	line	331
	colm	4
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	332
	colm	1
	synt	any
	pfail
	end
proc file_name
	local	0,001000,s
	local	1,000020,i
	local	2,000000,find
	con	0,010000,1,057
	con	1,002000,1,1
	con	2,002000,1,0
	declend
	line	337
	colm	12
	synt	any
	mark	L1
	line	339
	colm	4
	synt	every
	mark0
	pnull
	var	1
	var	2
	str	0
	var	0
	line	339
	colm	19
	synt	any
	invoke	2
	line	339
	colm	12
	synt	any
	asgn
	pop
lab L2
	efail
lab L3
	line	339
	colm	4
	synt	endevery
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	var	0
	pnull
	pnull
	var	1
	line	340
	colm	13
	synt	any
	nonnull
	int	1
	line	340
	colm	16
	synt	any
	plus
	int	2
	line	340
	colm	19
	synt	any
	synt	any
	sect
	line	340
	colm	23
	synt	any
	esusp
	goto	L7
lab L6
	var	0
lab L7
	line	340
	colm	4
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	341
	colm	2
	synt	any
	pfail
	end
