version	U12.1.00
uid	vlist.u1-1784908828-0
impl	error
link	graphics.u
link	vidgets.u
link	vscroll.u
link	vcoupler.u
global	16
	0,000005,Vlist,-1
	1,000005,storage_Vlist,4
	2,000005,set_items_Vlist,3
	3,000005,get_items_Vlist,1
	4,000005,set_value_Vlist,2
	5,000005,get_value_Vlist,1
	6,000005,coupler_Vlist,2
	7,000005,drawlist_Vlist,3
	8,000005,Vframe_Vlist,-1
	9,000005,outline_listframe,0
	10,000005,resize_listframe,5
	11,000005,Vpane_Vlist,-1
	12,000005,draw_Vpane_Vlist,1
	13,000005,event_Vlist,4
	14,000005,vlist_selection,2
	15,000005,outline_listpane,1

proc Vlist
	local	0,001000,params
	local	1,000020,frame
	local	2,000020,x
	local	3,000020,y
	local	4,000020,win
	local	5,000020,cb
	local	6,000020,id
	local	7,000020,dl
	local	8,000020,c
	local	9,000020,w
	local	10,000020,h
	local	11,000020,mode
	local	12,000020,self
	local	13,000020,ins
	local	14,000020,fh
	local	15,000020,viewport
	local	16,000020,cv
	local	17,000020,sb
	local	18,000020,line
	local	19,000020,window_sz
	local	20,000020,datalist
	local	21,000040,type
	local	22,000000,proc
	local	23,000000,Vinsert_check
	local	24,000000,pop
	local	25,000000,_Vbomb
	local	26,000000,Vframe_Vlist
	local	27,000000,storage_Vlist
	local	28,000000,Vpane_Vlist
	local	29,000000,VInsert
	local	30,000000,WAttrib
	local	31,000000,integer
	local	32,000000,Vcoupler
	local	33,000000,VAddClient
	local	34,000000,coupler_Vlist
	local	35,000000,Vvert_scrollbar
	local	36,000000,VFormat
	local	37,000000,put
	con	0,010000,4,164,171,160,145
	con	1,002000,1,0
	con	2,002000,1,1
	con	3,010000,6,167,151,156,144,157,167
	con	4,010000,40,151,155,160,162,157,160,145,162,040,167,151,156,144,157,167,040,160,141,162,141,155,145,164,145,162,040,147,151,166,145,156,040,164,157,040,126,154,151,163,164
	con	5,010000,9,160,162,157,143,145,144,165,162,145
	con	6,010000,4,156,165,154,154
	con	7,010000,42,151,155,160,162,157,160,145,162,040,143,141,154,154,142,141,143,153,040,160,141,162,141,155,145,164,145,162,040,147,151,166,145,156,040,164,157,040,126,154,151,163,164
	con	8,010000,4,154,151,163,164
	con	9,010000,38,151,155,160,162,157,160,145,162,040,154,151,163,164,040,160,141,162,141,155,145,164,145,162,040,147,151,166,145,156,040,164,157,040,126,154,151,163,164
	con	10,010000,7,151,156,164,145,147,145,162
	con	11,010000,44,151,155,160,162,157,160,145,162,040,163,143,162,157,154,154,155,157,144,145,040,160,141,162,141,155,145,164,145,162,040,147,151,166,145,156,040,164,157,040,126,154,151,163,164
	con	12,002000,1,2
	con	13,010000,47,151,155,160,162,157,160,145,162,040,167,151,144,164,150,040,141,156,144,040,150,145,151,147,150,164,040,166,141,154,165,145,163,040,147,151,166,145,156,040,164,157,040,126,154,151,163,164
	con	14,010000,1,162
	con	15,010000,1,167
	con	16,010000,1,141
	con	17,010000,38,151,155,160,162,157,160,145,162,040,155,157,144,145,040,160,141,162,141,155,145,164,145,162,040,147,151,166,145,156,040,164,157,040,126,154,151,163,164
	con	18,010000,5,167,162,151,164,145
	con	19,010000,4,155,157,144,145
	con	20,010000,6,163,165,156,153,145,156
	con	21,002000,2,15
	con	22,010000,7,146,150,145,151,147,150,164
	con	23,002000,1,4
	con	24,010000,1,116
	con	25,010000,8,144,141,164,141,154,151,163,164
	con	26,010000,8,164,157,160,137,154,151,156,145
	con	27,010000,9,163,145,154,145,143,164,151,157,156
	con	28,010000,10,143,157,156,164,151,156,165,157,165,163
	declend
	filen	vlist.icn
	line	148
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	21
	var	22
	str	0
	int	1
	line	165
	colm	24
	synt	any
	invoke	2
	line	165
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	169
	colm	4
	synt	if
	mark0
	pnull
	var	13
	var	23
	var	0
	line	169
	colm	27
	synt	any
	invoke	1
	line	169
	colm	11
	synt	any
	asgn
	unmark
	mark	L5
	pnull
	var	1
	var	24
	var	0
	line	170
	colm	19
	synt	any
	invoke	1
	line	170
	colm	13
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	2
	var	24
	var	0
	line	170
	colm	37
	synt	any
	invoke	1
	line	170
	colm	31
	synt	any
	asgn
	unmark
lab L6
	pnull
	var	3
	var	24
	var	0
	line	170
	colm	54
	synt	any
	invoke	1
	line	170
	colm	48
	synt	any
	asgn
	line	169
	colm	4
	synt	endif
	unmark
lab L4
	mark	L7
	line	175
	colm	4
	synt	ifelse
	mark	L8
	pnull
	var	21
	pnull
	var	0
	int	2
	line	175
	colm	18
	synt	any
	subsc
	line	175
	colm	11
	synt	any
	invoke	1
	str	3
	line	175
	colm	23
	synt	any
	lexeq
	unmark
	pnull
	var	4
	var	24
	var	0
	line	175
	colm	50
	synt	any
	invoke	1
	line	175
	colm	44
	synt	any
	asgn
	goto	L9
lab L8
	var	25
	str	4
	line	176
	colm	15
	synt	any
	invoke	1
lab L9
	line	175
	colm	4
	synt	endifelse
	unmark
lab L7
	mark	L10
	line	177
	colm	4
	synt	ifelse
	mark	L11
	pnull
	var	21
	pnull
	var	0
	int	2
	line	177
	colm	18
	synt	any
	subsc
	line	177
	colm	11
	synt	any
	invoke	1
	mark	L13
	str	5
	line	177
	colm	39
	synt	any
	esusp
	goto	L14
lab L13
	str	6
lab L14
	line	177
	colm	23
	synt	any
	lexeq
	unmark
	pnull
	var	5
	var	24
	var	0
	line	177
	colm	63
	synt	any
	invoke	1
	line	177
	colm	57
	synt	any
	asgn
	goto	L12
lab L11
	var	25
	str	7
	line	178
	colm	15
	synt	any
	invoke	1
lab L12
	line	177
	colm	4
	synt	endifelse
	unmark
lab L10
	mark	L15
	pnull
	var	6
	var	24
	var	0
	line	179
	colm	13
	synt	any
	invoke	1
	line	179
	colm	7
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	line	180
	colm	4
	synt	ifelse
	mark	L17
	pnull
	var	21
	pnull
	var	0
	int	2
	line	180
	colm	18
	synt	any
	subsc
	line	180
	colm	11
	synt	any
	invoke	1
	mark	L19
	str	8
	line	180
	colm	34
	synt	any
	esusp
	goto	L20
lab L19
	str	6
lab L20
	line	180
	colm	23
	synt	any
	lexeq
	unmark
	pnull
	var	7
	var	24
	var	0
	line	180
	colm	58
	synt	any
	invoke	1
	line	180
	colm	52
	synt	any
	asgn
	goto	L18
lab L17
	var	25
	str	9
	line	181
	colm	15
	synt	any
	invoke	1
lab L18
	line	180
	colm	4
	synt	endifelse
	unmark
lab L16
	mark	L21
	line	182
	colm	4
	synt	ifelse
	mark	L22
	pnull
	var	21
	pnull
	var	0
	int	2
	line	182
	colm	18
	synt	any
	subsc
	line	182
	colm	11
	synt	any
	invoke	1
	mark	L24
	str	10
	line	182
	colm	37
	synt	any
	esusp
	goto	L25
lab L24
	str	6
lab L25
	line	182
	colm	23
	synt	any
	lexeq
	unmark
	pnull
	var	8
	var	24
	var	0
	line	182
	colm	60
	synt	any
	invoke	1
	line	182
	colm	54
	synt	any
	asgn
	goto	L23
lab L22
	var	25
	str	11
	line	183
	colm	15
	synt	any
	invoke	1
lab L23
	line	182
	colm	4
	synt	endifelse
	unmark
lab L21
	mark	L26
	line	185
	colm	4
	synt	ifelse
	mark	L27
	pnull
	pnull
	var	0
	int	2
	line	185
	colm	14
	synt	any
	subsc
	line	185
	colm	7
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	0
	int	12
	line	185
	colm	27
	synt	any
	subsc
	line	185
	colm	20
	synt	any
	nonnull
	unmark
	mark	L29
	pnull
	var	9
	var	24
	var	0
	line	186
	colm	15
	synt	any
	invoke	1
	line	186
	colm	9
	synt	any
	asgn
	unmark
lab L29
	pnull
	var	10
	var	24
	var	0
	line	186
	colm	33
	synt	any
	invoke	1
	line	186
	colm	27
	synt	any
	asgn
	goto	L28
lab L27
	var	25
	str	13
	line	188
	colm	15
	synt	any
	invoke	1
lab L28
	line	185
	colm	4
	synt	endifelse
	unmark
lab L26
	mark	L30
	line	190
	colm	4
	synt	case
	mark0
	pnull
	pnull
	var	0
	int	2
	line	190
	colm	16
	synt	any
	subsc
	line	190
	colm	9
	synt	any
	nonnull
	eret
	mark	L32
	ccase
	mark	L33
	str	14
	line	191
	colm	11
	synt	any
	esusp
	goto	L34
lab L33
	mark	L35
	str	15
	line	191
	colm	17
	synt	any
	esusp
	goto	L36
lab L35
	str	16
lab L36
lab L34
	line	191
	colm	23
	synt	any
	eqv
	unmark
	pop
	pnull
	var	11
	var	24
	var	0
	line	192
	colm	21
	synt	any
	invoke	1
	line	192
	colm	15
	synt	any
	asgn
	goto	L31
lab L32
	pop
	var	25
	str	17
	line	194
	colm	16
	synt	any
	invoke	1
lab L31
	line	190
	colm	4
	synt	endcase
	unmark
lab L30
	mark	L37
	pnull
	pnull
	var	11
	line	197
	colm	4
	synt	any
	null
	str	15
	line	197
	colm	10
	synt	any
	asgn
	unmark
lab L37
	mark	L38
	pnull
	pnull
	var	7
	line	198
	colm	4
	synt	any
	null
	pnull
	line	198
	colm	11
	synt	any
	llist	0
	line	198
	colm	8
	synt	any
	asgn
	unmark
lab L38
	mark	L39
	pnull
	var	12
	var	26
	var	4
	line	203
	colm	24
	synt	any
	invoke	1
	line	203
	colm	9
	synt	any
	asgn
	unmark
lab L39
	mark	L40
	pnull
	pnull
	var	12
	line	204
	colm	8
	synt	any
	field	id
	var	6
	line	204
	colm	12
	synt	any
	asgn
	unmark
lab L40
	mark	L41
	var	27
	var	6
	str	18
	str	19
	var	11
	line	206
	colm	17
	synt	any
	invoke	4
	unmark
lab L41
	mark	L42
	pnull
	var	15
	var	28
	var	4
	var	5
	var	6
	str	20
	pnull
	pnull
	var	9
	int	21
	line	208
	colm	53
	synt	any
	minus
	int	12
	line	208
	colm	58
	synt	any
	minus
	var	10
	line	208
	colm	27
	synt	any
	invoke	6
	line	208
	colm	13
	synt	any
	asgn
	unmark
lab L42
	mark	L43
	var	29
	var	12
	var	15
	int	1
	int	1
	line	209
	colm	11
	synt	any
	invoke	4
	unmark
lab L43
	mark	L44
	pnull
	var	14
	var	30
	pnull
	var	15
	line	211
	colm	26
	synt	any
	field	win
	str	22
	line	211
	colm	17
	synt	any
	invoke	2
	line	211
	colm	7
	synt	any
	asgn
	unmark
lab L44
	mark	L45
	pnull
	var	19
	pnull
	var	31
	pnull
	pnull
	var	10
	int	23
	line	212
	colm	28
	synt	any
	minus
	var	14
	line	212
	colm	33
	synt	any
	div
	line	212
	colm	24
	synt	any
	invoke	1
	int	2
	line	212
	colm	39
	synt	any
	minus
	line	212
	colm	14
	synt	any
	asgn
	unmark
lab L45
	mark	L46
	pnull
	var	16
	var	32
	line	214
	colm	18
	synt	any
	invoke	0
	line	214
	colm	7
	synt	any
	asgn
	unmark
lab L46
	mark	L47
	var	33
	var	16
	var	34
	var	15
	line	215
	colm	14
	synt	any
	invoke	3
	unmark
lab L47
	mark	L48
	pnull
	var	17
	var	35
	var	4
	var	16
	var	6
	var	10
	int	21
	pnull
	var	7
	line	218
	colm	14
	synt	any
	size
	int	2
	int	2
	var	19
	var	8
	line	217
	colm	25
	synt	any
	invoke	10
	line	217
	colm	7
	synt	any
	asgn
	unmark
lab L48
	mark	L49
	var	29
	var	12
	var	17
	pnull
	var	9
	int	21
	line	220
	colm	24
	synt	any
	minus
	int	1
	line	220
	colm	11
	synt	any
	invoke	4
	unmark
lab L49
	mark	L50
	var	36
	var	12
	line	221
	colm	11
	synt	any
	invoke	1
	unmark
lab L50
	mark	L51
	pnull
	var	20
	pnull
	line	223
	colm	16
	synt	any
	llist	0
	line	223
	colm	13
	synt	any
	asgn
	unmark
lab L51
	mark	L52
	line	224
	colm	4
	synt	every
	mark0
	pnull
	var	18
	pnull
	var	7
	line	224
	colm	18
	synt	any
	bang
	line	224
	colm	15
	synt	any
	asgn
	pop
	mark0
	var	37
	var	20
	pnull
	str	24
	var	18
	line	224
	colm	43
	synt	any
	cat
	line	224
	colm	28
	synt	any
	invoke	2
	unmark
lab L53
	efail
lab L54
	line	224
	colm	4
	synt	endevery
	unmark
lab L52
	mark	L55
	var	27
	var	6
	str	18
	str	25
	var	20
	line	226
	colm	17
	synt	any
	invoke	4
	unmark
lab L55
	mark	L56
	var	27
	var	6
	str	18
	str	26
	int	2
	line	227
	colm	17
	synt	any
	invoke	4
	unmark
lab L56
	mark	L57
	var	27
	var	6
	str	18
	str	27
	line	228
	colm	44
	synt	any
	keywd	null
	line	228
	colm	17
	synt	any
	invoke	4
	unmark
lab L57
	mark	L58
	var	27
	var	6
	str	18
	str	28
	var	8
	line	229
	colm	17
	synt	any
	invoke	4
	unmark
lab L58
	mark	L59
	line	231
	colm	4
	synt	if
	mark0
	pnull
	var	13
	line	231
	colm	7
	synt	any
	nonnull
	unmark
	var	29
	var	1
	var	12
	var	2
	var	3
	line	231
	colm	24
	synt	any
	invoke	4
	line	231
	colm	4
	synt	endif
	unmark
lab L59
	mark	L60
	mark	L61
	var	12
	line	232
	colm	4
	synt	any
	pret
lab L61
	synt	any
	pfail
	unmark
lab L60
	pnull
	line	234
	colm	1
	synt	any
	pfail
	end
proc storage_Vlist
	local	0,001000,id
	local	1,001000,op
	local	2,001000,var
	local	3,001000,val
	local	4,000020,k
	local	5,000040,var_table
	local	6,000000,table
	con	0,010000,1,100
	con	1,010000,4,162,145,141,144
	con	2,010000,5,167,162,151,164,145
	declend
	line	282
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	5
	var	6
	line	286
	colm	27
	synt	any
	invoke	0
	line	286
	colm	19
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	4
	pnull
	pnull
	var	0
	str	0
	line	288
	colm	12
	synt	any
	cat
	var	2
	line	288
	colm	19
	synt	any
	cat
	line	288
	colm	6
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	290
	colm	4
	synt	case
	mark0
	var	1
	eret
	mark	L7
	ccase
	str	1
	line	291
	colm	14
	synt	any
	eqv
	unmark
	pop
	mark	L8
	pnull
	var	5
	var	4
	line	291
	colm	32
	synt	any
	subsc
	line	291
	colm	16
	synt	any
	pret
lab L8
	synt	any
	pfail
	goto	L6
lab L7
	mark	L9
	ccase
	str	2
	line	292
	colm	15
	synt	any
	eqv
	unmark
	pop
	pnull
	pnull
	var	5
	var	4
	line	292
	colm	26
	synt	any
	subsc
	var	3
	line	292
	colm	30
	synt	any
	asgn
	goto	L6
lab L9
	efail
lab L6
	line	290
	colm	4
	synt	endcase
	unmark
lab L5
	mark	L10
	mark	L11
	pnull
	line	295
	colm	4
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	297
	colm	1
	synt	any
	pfail
	end
proc set_items_Vlist
	local	0,001000,self
	local	1,001000,slist
	local	2,001000,nodraw
	local	3,000020,dl
	local	4,000020,tl
	local	5,000020,lv
	local	6,000020,sb
	local	7,000020,cv
	local	8,000020,c
	local	9,000020,s
	local	10,000020,window_sz
	local	11,000000,put
	local	12,000000,string
	local	13,000000,_Vbomb
	local	14,000000,storage_Vlist
	local	15,000000,VRemove
	local	16,000000,Vcoupler
	local	17,000000,VAddClient
	local	18,000000,coupler_Vlist
	local	19,000000,integer
	local	20,000000,WAttrib
	local	21,000000,Vvert_scrollbar
	local	22,000000,VInsert
	local	23,000000,VFormat
	local	24,000000,VDraw
	con	0,002000,1,1
	con	1,010000,1,116
	con	2,010000,42,154,151,163,164,040,145,156,164,162,171,040,146,157,162,040,126,123,145,164,111,164,145,155,163,050,051,040,151,163,040,156,157,164,040,141,040,163,164,162,151,156,147
	con	3,010000,5,167,162,151,164,145
	con	4,010000,8,144,141,164,141,154,151,163,164
	con	5,010000,8,164,157,160,137,154,151,156,145
	con	6,010000,9,163,145,154,145,143,164,151,157,156
	con	7,002000,1,0
	con	8,002000,1,2
	con	9,010000,4,162,145,141,144
	con	10,010000,10,143,157,156,164,151,156,165,157,165,163
	con	11,010000,7,146,150,145,151,147,150,164
	con	12,002000,2,15
	declend
	line	313
	colm	11
	synt	any
	mark	L1
	pnull
	var	4
	int	0
	line	317
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	pnull
	line	318
	colm	10
	synt	any
	llist	0
	line	318
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	319
	colm	4
	synt	every
	mark0
	pnull
	var	9
	pnull
	var	1
	line	319
	colm	15
	synt	any
	bang
	line	319
	colm	12
	synt	any
	asgn
	pop
	mark0
	mark	L6
	var	11
	var	3
	pnull
	str	1
	var	12
	var	9
	line	320
	colm	28
	synt	any
	invoke	1
	line	320
	colm	19
	synt	any
	cat
	line	320
	colm	10
	synt	any
	invoke	2
	line	320
	colm	33
	synt	any
	esusp
	goto	L7
lab L6
	var	13
	str	2
	line	321
	colm	16
	synt	any
	invoke	1
lab L7
	unmark
lab L4
	efail
lab L5
	line	319
	colm	4
	synt	endevery
	unmark
lab L3
	mark	L8
	pnull
	var	5
	pnull
	pnull
	var	0
	line	324
	colm	14
	synt	any
	field	lookup
	int	0
	line	324
	colm	21
	synt	any
	subsc
	line	324
	colm	7
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	var	14
	pnull
	var	5
	line	325
	colm	20
	synt	any
	field	id
	str	3
	str	4
	var	3
	line	325
	colm	17
	synt	any
	invoke	4
	unmark
lab L9
	mark	L10
	var	14
	pnull
	var	5
	line	326
	colm	20
	synt	any
	field	id
	str	3
	str	5
	var	4
	line	326
	colm	17
	synt	any
	invoke	4
	unmark
lab L10
	mark	L11
	var	14
	pnull
	var	5
	line	327
	colm	20
	synt	any
	field	id
	str	3
	str	6
	int	7
	line	327
	colm	17
	synt	any
	invoke	4
	unmark
lab L11
	mark	L12
	line	330
	colm	4
	synt	if
	mark0
	pnull
	var	2
	line	330
	colm	7
	synt	any
	null
	unmark
	mark	L13
	pnull
	var	6
	pnull
	pnull
	var	0
	line	333
	colm	14
	synt	any
	field	lookup
	int	8
	line	333
	colm	21
	synt	any
	subsc
	line	333
	colm	7
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	var	15
	var	0
	var	6
	line	334
	colm	11
	synt	any
	invoke	2
	unmark
lab L14
	mark	L15
	pnull
	var	7
	var	16
	line	335
	colm	18
	synt	any
	invoke	0
	line	335
	colm	7
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	var	8
	var	14
	pnull
	var	5
	line	336
	colm	25
	synt	any
	field	id
	str	9
	str	10
	line	336
	colm	22
	synt	any
	invoke	3
	line	336
	colm	6
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	var	17
	var	7
	var	18
	var	5
	line	337
	colm	14
	synt	any
	invoke	3
	unmark
lab L17
	mark	L18
	pnull
	var	10
	pnull
	var	19
	pnull
	pnull
	var	5
	line	338
	colm	27
	synt	any
	field	uh
	var	20
	pnull
	var	5
	line	338
	colm	43
	synt	any
	field	win
	str	11
	line	338
	colm	40
	synt	any
	invoke	2
	line	338
	colm	31
	synt	any
	div
	line	338
	colm	24
	synt	any
	invoke	1
	int	0
	line	338
	colm	61
	synt	any
	minus
	line	338
	colm	14
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	var	6
	var	21
	pnull
	var	0
	line	339
	colm	30
	synt	any
	field	win
	var	7
	pnull
	var	0
	line	339
	colm	44
	synt	any
	field	id
	pnull
	var	0
	line	339
	colm	53
	synt	any
	field	ah
	int	12
	pnull
	var	3
	line	340
	colm	26
	synt	any
	size
	int	0
	int	0
	var	10
	var	8
	line	339
	colm	25
	synt	any
	invoke	10
	line	339
	colm	7
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	var	22
	var	0
	var	6
	pnull
	pnull
	var	0
	line	341
	colm	26
	synt	any
	field	aw
	int	12
	line	341
	colm	30
	synt	any
	minus
	int	7
	line	341
	colm	11
	synt	any
	invoke	4
	unmark
lab L20
	mark	L21
	var	23
	var	0
	line	342
	colm	11
	synt	any
	invoke	1
	unmark
lab L21
	var	24
	var	0
	line	344
	colm	12
	synt	any
	invoke	1
	line	330
	colm	4
	synt	endif
	unmark
lab L12
	mark	L22
	mark	L23
	pnull
	line	346
	colm	4
	synt	any
	pret
lab L23
	synt	any
	pfail
	unmark
lab L22
	pnull
	line	347
	colm	1
	synt	any
	pfail
	end
proc get_items_Vlist
	local	0,001000,self
	local	1,000020,lv
	local	2,000020,dl
	local	3,000020,items
	local	4,000000,storage_Vlist
	local	5,000000,put
	con	0,002000,1,1
	con	1,010000,4,162,145,141,144
	con	2,010000,8,144,141,164,141,154,151,163,164
	con	3,002000,1,2
	con	4,002000,1,0
	declend
	line	364
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	pnull
	var	0
	line	367
	colm	14
	synt	any
	field	lookup
	int	0
	line	367
	colm	21
	synt	any
	subsc
	line	367
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	4
	pnull
	var	1
	line	368
	colm	26
	synt	any
	field	id
	str	1
	str	2
	line	368
	colm	23
	synt	any
	invoke	3
	line	368
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	line	369
	colm	13
	synt	any
	llist	0
	line	369
	colm	10
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	370
	colm	4
	synt	every
	mark0
	var	5
	var	3
	pnull
	pnull
	var	2
	line	370
	colm	22
	synt	any
	bang
	int	3
	int	4
	line	370
	colm	28
	synt	any
	synt	any
	sect
	line	370
	colm	13
	synt	any
	invoke	2
	pop
lab L5
	efail
lab L6
	line	370
	colm	4
	synt	endevery
	unmark
lab L4
	mark	L7
	mark	L8
	var	3
	line	371
	colm	4
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	372
	colm	1
	synt	any
	pfail
	end
proc set_value_Vlist
	local	0,001000,self
	local	1,001000,state
	local	2,000020,c
	local	3,000020,i
	local	4,000020,lv
	local	5,000020,sb
	local	6,000020,dl
	local	7,000020,tl
	local	8,000020,mode
	local	9,000020,window_sz
	local	10,000020,iset
	local	11,000020,val
	local	12,000000,storage_Vlist
	local	13,000000,integer
	local	14,000000,WAttrib
	local	15,000000,type
	local	16,000000,_Vbomb
	local	17,000000,VSetState
	local	18,000000,list
	local	19,000000,set
	local	20,000000,insert
	local	21,000000,member
	local	22,000000,put
	local	23,000000,drawlist_Vlist
	local	24,000000,sort
	con	0,002000,1,1
	con	1,002000,1,2
	con	2,010000,4,162,145,141,144
	con	3,010000,8,144,141,164,141,154,151,163,164
	con	4,010000,4,155,157,144,145
	con	5,010000,7,146,150,145,151,147,150,164
	con	6,010000,4,154,151,163,164
	con	7,010000,42,156,157,156,055,151,156,164,145,147,145,162,040,166,141,154,165,145,040,151,156,040,126,123,145,164,123,164,141,164,145,050,051,040,157,146,040,141,040,154,151,163,164
	con	8,010000,5,167,162,151,164,145
	con	9,010000,8,164,157,160,137,154,151,156,145
	con	10,010000,1,162
	con	11,010000,49,126,123,145,164,123,164,141,164,145,050,051,040,143,141,156,156,157,164,040,163,145,154,145,143,164,040,154,151,156,145,163,040,157,146,040,162,145,141,144,055,157,156,154,171,040,154,151,163,164
	con	12,010000,1,141
	con	13,010000,53,126,123,145,164,123,164,141,164,145,050,051,040,143,141,156,156,157,164,040,163,145,154,145,143,164,040,155,165,154,164,151,160,154,145,040,154,151,156,145,163,040,157,146,040,164,150,151,163,040,154,151,163,164
	con	14,010000,1,123
	con	15,002000,1,0
	con	16,010000,1,116
	con	17,010000,1,167
	con	18,010000,9,163,145,154,145,143,164,151,157,156
	declend
	line	389
	colm	11
	synt	any
	mark	L1
	pnull
	var	4
	pnull
	pnull
	var	0
	line	397
	colm	14
	synt	any
	field	lookup
	int	0
	line	397
	colm	21
	synt	any
	subsc
	line	397
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	5
	pnull
	pnull
	var	0
	line	398
	colm	14
	synt	any
	field	lookup
	int	1
	line	398
	colm	21
	synt	any
	subsc
	line	398
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	6
	var	12
	pnull
	var	4
	line	399
	colm	26
	synt	any
	field	id
	str	2
	str	3
	line	399
	colm	23
	synt	any
	invoke	3
	line	399
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	8
	var	12
	pnull
	var	4
	line	400
	colm	28
	synt	any
	field	id
	str	2
	str	4
	line	400
	colm	25
	synt	any
	invoke	3
	line	400
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	9
	pnull
	var	13
	pnull
	pnull
	var	4
	line	401
	colm	27
	synt	any
	field	uh
	var	14
	pnull
	var	4
	line	401
	colm	43
	synt	any
	field	win
	str	5
	line	401
	colm	40
	synt	any
	invoke	2
	line	401
	colm	31
	synt	any
	div
	line	401
	colm	24
	synt	any
	invoke	1
	int	0
	line	401
	colm	61
	synt	any
	minus
	line	401
	colm	14
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	line	403
	colm	4
	synt	if
	mark0
	pnull
	var	15
	var	1
	line	403
	colm	11
	synt	any
	invoke	1
	str	6
	line	403
	colm	19
	synt	any
	lexne
	unmark
	pnull
	var	1
	pnull
	var	1
	line	404
	colm	16
	synt	any
	llist	1
	line	404
	colm	13
	synt	any
	asgn
	line	403
	colm	4
	synt	endif
	unmark
lab L6
	mark	L7
	pnull
	var	7
	mark	L8
	pnull
	var	1
	int	0
	line	405
	colm	15
	synt	any
	subsc
	line	405
	colm	19
	synt	any
	esusp
	goto	L9
lab L8
	line	405
	colm	21
	synt	any
	keywd	null
lab L9
	line	405
	colm	7
	synt	any
	asgn
	unmark
lab L7
	mark	L10
	pnull
	pnull
	var	7
	line	406
	colm	4
	synt	any
	null
	int	0
	line	406
	colm	8
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	7
	mark	L12
	var	13
	var	7
	line	407
	colm	17
	synt	any
	invoke	1
	line	407
	colm	22
	synt	any
	esusp
	goto	L13
lab L12
	var	16
	str	7
	line	407
	colm	30
	synt	any
	invoke	1
lab L13
	line	407
	colm	7
	synt	any
	asgn
	unmark
lab L11
	mark	L14
	pnull
	var	7
	dup
	pnull
	pnull
	var	6
	line	408
	colm	11
	synt	any
	size
	var	9
	line	408
	colm	15
	synt	any
	minus
	line	408
	colm	7
	synt	any
	numgt
	asgn
	unmark
lab L14
	mark	L15
	pnull
	var	7
	dup
	int	0
	line	409
	colm	7
	synt	any
	numlt
	asgn
	unmark
lab L15
	mark	L16
	var	12
	pnull
	var	4
	line	410
	colm	20
	synt	any
	field	id
	str	8
	str	9
	var	7
	line	410
	colm	17
	synt	any
	invoke	4
	unmark
lab L16
	mark	L17
	var	17
	var	5
	var	7
	line	411
	colm	13
	synt	any
	invoke	2
	unmark
lab L17
	mark	L18
	line	413
	colm	4
	synt	ifelse
	mark	L19
	pnull
	pnull
	var	1
	line	413
	colm	7
	synt	any
	size
	int	0
	line	413
	colm	14
	synt	any
	numgt
	pop
	pnull
	var	8
	str	10
	line	413
	colm	25
	synt	any
	eqv
	unmark
	var	16
	str	11
	line	414
	colm	13
	synt	any
	invoke	1
	goto	L20
lab L19
	line	415
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	415
	colm	12
	synt	any
	size
	int	1
	line	415
	colm	19
	synt	any
	numgt
	pop
	pnull
	var	8
	str	12
	line	415
	colm	30
	synt	any
	neqv
	unmark
	var	16
	str	13
	line	416
	colm	13
	synt	any
	invoke	1
	line	415
	colm	9
	synt	endif
lab L20
	line	413
	colm	4
	synt	endifelse
	unmark
lab L18
	mark	L21
	pnull
	var	11
	var	18
	line	418
	colm	15
	synt	any
	invoke	0
	line	418
	colm	8
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	pnull
	var	10
	var	19
	line	419
	colm	15
	synt	any
	invoke	0
	line	419
	colm	9
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	line	420
	colm	4
	synt	every
	mark0
	pnull
	var	3
	pnull
	var	1
	pnull
	int	1
	pnull
	var	1
	line	420
	colm	26
	synt	any
	size
	push1
	line	420
	colm	23
	synt	any
	toby
	line	420
	colm	20
	synt	any
	subsc
	line	420
	colm	12
	synt	any
	asgn
	pop
	mark0
	mark	L26
	var	20
	var	10
	var	13
	var	3
	line	421
	colm	27
	synt	any
	invoke	1
	line	421
	colm	13
	synt	any
	invoke	2
	line	421
	colm	32
	synt	any
	esusp
	goto	L27
lab L26
	var	16
	str	7
	line	422
	colm	16
	synt	any
	invoke	1
lab L27
	unmark
lab L24
	efail
lab L25
	line	420
	colm	4
	synt	endevery
	unmark
lab L23
	mark	L28
	line	424
	colm	4
	synt	every
	mark0
	pnull
	var	3
	pnull
	int	0
	pnull
	var	6
	line	424
	colm	20
	synt	any
	size
	push1
	line	424
	colm	17
	synt	any
	toby
	line	424
	colm	12
	synt	any
	asgn
	pop
	mark0
	mark	L31
	line	425
	colm	7
	synt	ifelse
	mark	L32
	var	21
	var	10
	var	3
	line	425
	colm	16
	synt	any
	invoke	2
	unmark
	mark	L34
	pnull
	var	2
	str	14
	line	426
	colm	12
	synt	any
	asgn
	unmark
lab L34
	var	22
	var	11
	pnull
	pnull
	var	6
	var	3
	line	427
	colm	21
	synt	any
	subsc
	int	1
	int	15
	line	427
	colm	26
	synt	any
	synt	any
	sect
	line	427
	colm	13
	synt	any
	invoke	2
	goto	L33
lab L32
	pnull
	var	2
	str	16
	line	430
	colm	12
	synt	any
	asgn
lab L33
	line	425
	colm	7
	synt	endifelse
	unmark
lab L31
	pnull
	pnull
	pnull
	var	6
	var	3
	line	431
	colm	9
	synt	any
	subsc
	int	0
	line	431
	colm	12
	synt	any
	subsc
	dup
	var	2
	line	431
	colm	16
	synt	any
	lexne
	asgn
	unmark
lab L29
	efail
lab L30
	line	424
	colm	4
	synt	endevery
	unmark
lab L28
	mark	L35
	var	23
	var	4
	var	6
	var	7
	line	434
	colm	18
	synt	any
	invoke	3
	unmark
lab L35
	mark	L36
	line	436
	colm	4
	synt	case
	mark0
	var	8
	eret
	mark	L38
	ccase
	str	17
	line	437
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L39
	var	12
	pnull
	var	4
	line	438
	colm	26
	synt	any
	field	id
	str	8
	str	18
	mark	L40
	pnull
	var	10
	line	438
	colm	53
	synt	any
	bang
	line	438
	colm	59
	synt	any
	esusp
	goto	L41
lab L40
	int	15
lab L41
	line	438
	colm	23
	synt	any
	invoke	4
	unmark
lab L39
	pnull
	pnull
	var	4
	line	439
	colm	14
	synt	any
	field	callback
	line	439
	colm	11
	synt	any
	nonnull
	var	0
	mark	L42
	pnull
	var	11
	int	0
	line	439
	colm	34
	synt	any
	subsc
	line	439
	colm	38
	synt	any
	esusp
	goto	L43
lab L42
	line	439
	colm	40
	synt	any
	keywd	null
lab L43
	mark	L44
	pnull
	var	10
	line	439
	colm	47
	synt	any
	bang
	line	439
	colm	53
	synt	any
	esusp
	goto	L45
lab L44
	int	15
lab L45
	line	439
	colm	24
	synt	any
	invoke	3
	goto	L37
lab L38
	mark	L46
	ccase
	str	12
	line	441
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	pnull
	var	4
	line	442
	colm	14
	synt	any
	field	callback
	line	442
	colm	11
	synt	any
	nonnull
	var	0
	var	11
	var	24
	var	10
	line	442
	colm	40
	synt	any
	invoke	1
	line	442
	colm	24
	synt	any
	invoke	3
	goto	L37
lab L46
	efail
lab L37
	line	436
	colm	4
	synt	endcase
	unmark
lab L36
	mark	L47
	mark	L48
	pnull
	line	446
	colm	4
	synt	any
	pret
lab L48
	synt	any
	pfail
	unmark
lab L47
	pnull
	line	447
	colm	1
	synt	any
	pfail
	end
proc get_value_Vlist
	local	0,001000,self
	local	1,000020,i
	local	2,000020,lv
	local	3,000020,dl
	local	4,000020,tl
	local	5,000020,state
	local	6,000000,storage_Vlist
	local	7,000000,put
	con	0,002000,1,1
	con	1,010000,4,162,145,141,144
	con	2,010000,8,144,141,164,141,154,151,163,164
	con	3,010000,8,164,157,160,137,154,151,156,145
	con	4,010000,1,123
	declend
	line	466
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	pnull
	var	0
	line	473
	colm	14
	synt	any
	field	lookup
	int	0
	line	473
	colm	21
	synt	any
	subsc
	line	473
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	var	6
	pnull
	var	2
	line	474
	colm	26
	synt	any
	field	id
	str	1
	str	2
	line	474
	colm	23
	synt	any
	invoke	3
	line	474
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	4
	var	6
	pnull
	var	2
	line	475
	colm	26
	synt	any
	field	id
	str	1
	str	3
	line	475
	colm	23
	synt	any
	invoke	3
	line	475
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	5
	pnull
	var	4
	line	476
	colm	13
	synt	any
	llist	1
	line	476
	colm	10
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	477
	colm	4
	synt	every
	mark0
	pnull
	var	1
	pnull
	int	0
	pnull
	var	3
	line	477
	colm	20
	synt	any
	size
	push1
	line	477
	colm	17
	synt	any
	toby
	line	477
	colm	12
	synt	any
	asgn
	pop
	mark0
	line	478
	colm	7
	synt	if
	mark0
	pnull
	var	3
	var	1
	line	478
	colm	12
	synt	any
	subsc
	line	478
	colm	16
	synt	any
	bscan
	pnull
	str	4
	line	478
	colm	18
	synt	any
	tabmat
	line	478
	colm	16
	synt	any
	escan
	unmark
	var	7
	var	5
	var	1
	line	479
	colm	13
	synt	any
	invoke	2
	line	478
	colm	7
	synt	endif
	unmark
lab L6
	efail
lab L7
	line	477
	colm	4
	synt	endevery
	unmark
lab L5
	mark	L8
	mark	L9
	var	5
	line	480
	colm	4
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	481
	colm	1
	synt	any
	pfail
	end
proc coupler_Vlist
	local	0,001000,self
	local	1,001000,val
	local	2,000020,tl
	local	3,000020,dl
	local	4,000020,sl
	local	5,000020,dh
	local	6,000020,fh
	local	7,000020,fw
	local	8,000000,storage_Vlist
	local	9,000000,WAttrib
	local	10,000000,drawlist_Vlist
	con	0,010000,4,162,145,141,144
	con	1,010000,8,164,157,160,137,154,151,156,145
	con	2,010000,8,144,141,164,141,154,151,163,164
	con	3,010000,7,146,150,145,151,147,150,164
	con	4,010000,6,146,167,151,144,164,150
	con	5,010000,5,167,162,151,164,145
	declend
	line	502
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	8
	pnull
	var	0
	line	505
	colm	28
	synt	any
	field	id
	str	0
	str	1
	line	505
	colm	23
	synt	any
	invoke	3
	line	505
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	506
	colm	4
	synt	if
	mark0
	pnull
	var	2
	var	1
	line	506
	colm	10
	synt	any
	eqv
	unmark
	line	506
	colm	23
	synt	any
	pfail
	line	506
	colm	4
	synt	endif
	unmark
lab L2
	mark	L3
	pnull
	var	3
	var	8
	pnull
	var	0
	line	508
	colm	28
	synt	any
	field	id
	str	0
	str	2
	line	508
	colm	23
	synt	any
	invoke	3
	line	508
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	6
	var	9
	pnull
	var	0
	line	509
	colm	22
	synt	any
	field	win
	str	3
	line	509
	colm	17
	synt	any
	invoke	2
	line	509
	colm	7
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	7
	var	9
	pnull
	var	0
	line	510
	colm	22
	synt	any
	field	win
	str	4
	line	510
	colm	17
	synt	any
	invoke	2
	line	510
	colm	7
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	2
	var	1
	line	512
	colm	7
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	var	8
	pnull
	var	0
	line	513
	colm	22
	synt	any
	field	id
	str	5
	str	1
	var	2
	line	513
	colm	17
	synt	any
	invoke	4
	unmark
lab L7
	mark	L8
	var	10
	var	0
	var	3
	var	2
	line	515
	colm	18
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	mark	L10
	pnull
	line	517
	colm	4
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	519
	colm	1
	synt	any
	pfail
	end
proc drawlist_Vlist
	local	0,001000,pane
	local	1,001000,dl
	local	2,001000,tl
	local	3,000020,win
	local	4,000020,x
	local	5,000020,y
	local	6,000020,w
	local	7,000020,h
	local	8,000020,fh
	local	9,000020,fw
	local	10,000020,ds
	local	11,000020,z
	local	12,000020,col
	local	13,000020,rev
	local	14,000020,non
	local	15,000020,mode
	local	16,000020,margin
	local	17,000000,WAttrib
	local	18,000000,Clone
	local	19,000000,storage_Vlist
	local	20,000000,EraseArea
	local	21,000000,DrawGroove
	local	22,000000,integer
	local	23,000000,GotoXY
	local	24,000000,WWrites
	local	25,000000,left
	con	0,010000,7,146,150,145,151,147,150,164
	con	1,010000,6,146,167,151,144,164,150
	con	2,010000,7,144,145,163,143,145,156,164
	con	3,010000,10,162,145,166,145,162,163,145,075,157,156
	con	4,010000,6,143,154,151,160,170,075
	con	5,010000,6,143,154,151,160,171,075
	con	6,010000,6,143,154,151,160,167,075
	con	7,010000,6,143,154,151,160,150,075
	con	8,010000,11,162,145,166,145,162,163,145,075,157,146,146
	con	9,010000,4,162,145,141,144
	con	10,010000,4,155,157,144,145
	con	11,010000,1,162
	con	12,002000,1,4
	con	13,010000,1,167
	con	14,002000,1,8
	con	15,002000,1,1
	con	16,002000,1,2
	con	17,010000,1,141
	con	18,002000,2,12
	con	19,010000,1,123
	con	20,002000,1,0
	declend
	line	535
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	pnull
	var	0
	line	546
	colm	15
	synt	any
	field	win
	line	546
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	4
	pnull
	var	0
	line	547
	colm	13
	synt	any
	field	ux
	line	547
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	5
	pnull
	var	0
	line	548
	colm	13
	synt	any
	field	uy
	line	548
	colm	6
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	6
	pnull
	var	0
	line	549
	colm	13
	synt	any
	field	uw
	line	549
	colm	6
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	7
	pnull
	var	0
	line	550
	colm	13
	synt	any
	field	uh
	line	550
	colm	6
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	8
	var	17
	var	3
	str	0
	line	552
	colm	17
	synt	any
	invoke	2
	line	552
	colm	7
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	9
	var	17
	var	3
	str	1
	line	553
	colm	17
	synt	any
	invoke	2
	line	553
	colm	7
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	10
	var	17
	var	3
	str	2
	line	554
	colm	17
	synt	any
	invoke	2
	line	554
	colm	7
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	13
	var	18
	var	3
	str	3
	pnull
	str	4
	var	4
	line	556
	colm	44
	synt	any
	cat
	pnull
	str	5
	var	5
	line	556
	colm	57
	synt	any
	cat
	pnull
	str	6
	var	6
	line	557
	colm	45
	synt	any
	cat
	pnull
	str	7
	var	7
	line	557
	colm	58
	synt	any
	cat
	line	556
	colm	16
	synt	any
	invoke	6
	line	556
	colm	8
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	14
	var	18
	var	13
	str	8
	line	558
	colm	16
	synt	any
	invoke	2
	line	558
	colm	8
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	560
	colm	4
	synt	case
	mark0
	var	19
	pnull
	var	0
	line	560
	colm	27
	synt	any
	field	id
	str	9
	str	10
	line	560
	colm	22
	synt	any
	invoke	3
	eret
	mark	L13
	ccase
	str	11
	line	561
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L14
	pnull
	var	16
	int	12
	line	562
	colm	17
	synt	any
	asgn
	unmark
lab L14
	var	20
	var	14
	var	4
	var	5
	var	16
	var	7
	line	563
	colm	19
	synt	any
	invoke	5
	goto	L12
lab L13
	mark	L15
	ccase
	str	13
	line	565
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L16
	pnull
	var	16
	int	14
	line	566
	colm	17
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	var	20
	var	14
	var	4
	var	5
	var	16
	var	7
	line	567
	colm	19
	synt	any
	invoke	5
	unmark
lab L17
	var	21
	var	14
	pnull
	var	4
	int	12
	line	568
	colm	28
	synt	any
	plus
	pnull
	var	5
	int	15
	line	568
	colm	35
	synt	any
	plus
	pnull
	var	4
	int	12
	line	568
	colm	42
	synt	any
	plus
	pnull
	pnull
	var	5
	var	7
	line	568
	colm	49
	synt	any
	plus
	int	16
	line	568
	colm	53
	synt	any
	minus
	line	568
	colm	20
	synt	any
	invoke	5
	goto	L12
lab L15
	mark	L18
	ccase
	str	17
	line	570
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L19
	pnull
	var	16
	int	18
	line	571
	colm	17
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	var	20
	var	14
	var	4
	var	5
	var	16
	var	7
	line	572
	colm	19
	synt	any
	invoke	5
	unmark
lab L20
	mark	L21
	var	21
	var	14
	pnull
	var	4
	int	12
	line	573
	colm	28
	synt	any
	plus
	pnull
	var	5
	int	15
	line	573
	colm	35
	synt	any
	plus
	pnull
	var	4
	int	12
	line	573
	colm	42
	synt	any
	plus
	pnull
	pnull
	var	5
	var	7
	line	573
	colm	49
	synt	any
	plus
	int	16
	line	573
	colm	53
	synt	any
	minus
	line	573
	colm	20
	synt	any
	invoke	5
	unmark
lab L21
	var	21
	var	14
	pnull
	var	4
	int	14
	line	574
	colm	28
	synt	any
	plus
	pnull
	var	5
	int	15
	line	574
	colm	35
	synt	any
	plus
	pnull
	var	4
	int	14
	line	574
	colm	42
	synt	any
	plus
	pnull
	pnull
	var	5
	var	7
	line	574
	colm	49
	synt	any
	plus
	int	16
	line	574
	colm	53
	synt	any
	minus
	line	574
	colm	20
	synt	any
	invoke	5
	goto	L12
lab L18
	efail
lab L12
	line	560
	colm	4
	synt	endcase
	unmark
lab L11
	mark	L22
	pnull
	var	11
	var	2
	line	578
	colm	6
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	pnull
	var	7
	dup
	pnull
	var	5
	var	8
	line	579
	colm	13
	synt	any
	minus
	line	579
	colm	6
	synt	any
	plus
	asgn
	unmark
lab L23
	mark	L24
	pnull
	var	5
	dup
	var	10
	line	580
	colm	6
	synt	any
	minus
	asgn
	unmark
lab L24
	mark	L25
	pnull
	var	12
	var	22
	pnull
	pnull
	var	6
	int	16
	line	581
	colm	22
	synt	any
	minus
	var	9
	line	581
	colm	27
	synt	any
	div
	line	581
	colm	18
	synt	any
	invoke	1
	line	581
	colm	8
	synt	any
	asgn
	unmark
lab L25
	mark	L26
lab L27
	line	583
	colm	4
	synt	while
	mark0
	pnull
	var	5
	var	7
	line	583
	colm	14
	synt	any
	numlt
	pop
	pnull
	var	11
	pnull
	var	1
	line	583
	colm	27
	synt	any
	size
	line	583
	colm	24
	synt	any
	numle
	unmark
	mark	L27
	mark	L30
	var	23
	var	3
	pnull
	var	4
	var	16
	line	585
	colm	21
	synt	any
	plus
	pnull
	var	5
	var	8
	line	585
	colm	33
	synt	any
	plus
	line	585
	colm	13
	synt	any
	invoke	3
	unmark
lab L30
	mark	L31
	line	586
	colm	7
	synt	ifelse
	mark	L32
	pnull
	pnull
	pnull
	var	1
	var	11
	line	586
	colm	12
	synt	any
	subsc
	int	15
	line	586
	colm	15
	synt	any
	subsc
	str	19
	line	586
	colm	19
	synt	any
	lexeq
	unmark
	var	24
	var	13
	var	25
	pnull
	pnull
	var	1
	var	11
	line	587
	colm	30
	synt	any
	subsc
	int	16
	int	20
	line	587
	colm	35
	synt	any
	synt	any
	sect
	var	12
	line	587
	colm	27
	synt	any
	invoke	2
	line	587
	colm	17
	synt	any
	invoke	2
	goto	L33
lab L32
	var	24
	var	14
	var	25
	pnull
	pnull
	var	1
	var	11
	line	589
	colm	30
	synt	any
	subsc
	int	16
	int	20
	line	589
	colm	35
	synt	any
	synt	any
	sect
	var	12
	line	589
	colm	27
	synt	any
	invoke	2
	line	589
	colm	17
	synt	any
	invoke	2
lab L33
	line	586
	colm	7
	synt	endifelse
	unmark
lab L31
	mark	L34
	pnull
	var	5
	dup
	var	8
	line	591
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L34
	pnull
	var	11
	dup
	int	15
	line	592
	colm	9
	synt	any
	plus
	asgn
lab L28
	unmark
	goto	L27
lab L29
	line	583
	colm	4
	synt	endwhile
	unmark
lab L26
	mark	L35
	var	20
	var	14
	pnull
	var	4
	var	16
	line	595
	colm	21
	synt	any
	plus
	pnull
	var	5
	var	10
	line	595
	colm	33
	synt	any
	plus
	line	595
	colm	13
	synt	any
	invoke	3
	unmark
lab L35
	mark	L36
	mark	L37
	pnull
	line	596
	colm	4
	synt	any
	pret
lab L37
	synt	any
	pfail
	unmark
lab L36
	pnull
	line	598
	colm	1
	synt	any
	pfail
	end
proc Vframe_Vlist
	local	0,001000,params
	local	1,000020,self
	local	2,000020,procs
	local	3,000020,spec_procs
	local	4,000020,frame
	local	5,000020,x
	local	6,000020,y
	local	7,000020,ins
	local	8,000000,Vstd
	local	9,000000,event_Vframe
	local	10,000000,draw_Vframe
	local	11,000000,outline_listframe
	local	12,000000,resize_listframe
	local	13,000000,inrange_Vpane
	local	14,000000,init_Vframe
	local	15,000000,couplerset_Vpane
	local	16,000000,insert_Vframe
	local	17,000000,remove_Vframe
	local	18,000000,lookup_Vframe
	local	19,000000,set_abs_Vframe
	local	20,000000,set_value_Vlist
	local	21,000000,Vstd_dialog
	local	22,000000,format_Vframe
	local	23,000000,Vinsert_check
	local	24,000000,pop
	local	25,000000,Vframe_rec
	local	26,000000,Vwin_check
	local	27,000000,numeric
	local	28,000000,_Vbomb
	local	29,000000,Vget_uid
	local	30,000000,Vstd_pos
	local	31,000000,VInsert
	con	0,002000,1,1
	con	1,002000,1,6
	con	2,002000,1,0
	con	3,010000,8,126,146,162,141,155,145,050,051
	con	4,010000,32,151,156,166,141,154,151,144,040,141,167,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,146,162,141,155,145,050,051
	con	5,010000,32,151,156,166,141,154,151,144,040,141,150,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,146,162,141,155,145,050,051
	declend
	line	631
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	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
	line	634
	colm	17
	synt	any
	invoke	12
	line	634
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	var	21
	pnull
	pnull
	var	22
	line	638
	colm	29
	synt	any
	invoke	3
	line	638
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	640
	colm	4
	synt	if
	mark0
	pnull
	var	7
	var	23
	var	0
	line	640
	colm	27
	synt	any
	invoke	1
	line	640
	colm	11
	synt	any
	asgn
	unmark
	mark	L4
	pnull
	var	4
	var	24
	var	0
	line	641
	colm	19
	synt	any
	invoke	1
	line	641
	colm	13
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	5
	var	24
	var	0
	line	641
	colm	37
	synt	any
	invoke	1
	line	641
	colm	31
	synt	any
	asgn
	unmark
lab L5
	pnull
	var	6
	var	24
	var	0
	line	641
	colm	54
	synt	any
	invoke	1
	line	641
	colm	48
	synt	any
	asgn
	line	640
	colm	4
	synt	endif
	unmark
lab L3
	mark	L6
	pnull
	var	1
	var	25
	pnull
	var	0
	int	0
	mark	L7
	int	1
	line	643
	colm	35
	synt	any
	esusp
	goto	L8
lab L7
	int	2
lab L8
	line	643
	colm	33
	synt	any
	synt	any
	sect
	invoke	-1
	line	643
	colm	9
	synt	any
	asgn
	unmark
lab L6
	mark	L9
	var	26
	pnull
	var	1
	line	644
	colm	19
	synt	any
	field	win
	str	3
	line	644
	colm	14
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	line	645
	colm	4
	synt	if
	mark0
	pushn1
	pnull
	pnull
	var	1
	line	645
	colm	13
	synt	any
	field	aw
	line	645
	colm	8
	synt	any
	nonnull
	mark	L11
	var	27
	pnull
	var	1
	line	645
	colm	34
	synt	any
	field	aw
	line	645
	colm	29
	synt	any
	invoke	1
	unmark
	efail
lab L11
	pnull
	line	645
	colm	7
	synt	any
	invoke	2
	unmark
	var	28
	str	4
	line	646
	colm	13
	synt	any
	invoke	1
	line	645
	colm	4
	synt	endif
	unmark
lab L10
	mark	L12
	line	647
	colm	4
	synt	if
	mark0
	pushn1
	pnull
	pnull
	var	1
	line	647
	colm	13
	synt	any
	field	ah
	line	647
	colm	8
	synt	any
	nonnull
	mark	L13
	var	27
	pnull
	var	1
	line	647
	colm	34
	synt	any
	field	ah
	line	647
	colm	29
	synt	any
	invoke	1
	unmark
	efail
lab L13
	pnull
	line	647
	colm	7
	synt	any
	invoke	2
	unmark
	var	28
	str	5
	line	648
	colm	13
	synt	any
	invoke	1
	line	647
	colm	4
	synt	endif
	unmark
lab L12
	mark	L14
	pnull
	pnull
	var	1
	line	650
	colm	8
	synt	any
	field	uid
	var	29
	line	650
	colm	24
	synt	any
	invoke	0
	line	650
	colm	13
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	pnull
	var	1
	line	651
	colm	8
	synt	any
	field	V
	var	2
	line	651
	colm	11
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	pnull
	var	1
	line	652
	colm	8
	synt	any
	field	F
	var	3
	line	652
	colm	11
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	pnull
	var	1
	line	653
	colm	8
	synt	any
	field	P
	var	30
	line	653
	colm	22
	synt	any
	invoke	0
	line	653
	colm	11
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	pnull
	var	1
	line	654
	colm	8
	synt	any
	field	V
	line	654
	colm	10
	synt	any
	field	init
	var	1
	line	654
	colm	15
	synt	any
	invoke	1
	unmark
lab L18
	mark	L19
	line	655
	colm	4
	synt	if
	mark0
	pnull
	var	7
	line	655
	colm	7
	synt	any
	nonnull
	unmark
	var	31
	var	4
	var	1
	var	5
	var	6
	line	655
	colm	24
	synt	any
	invoke	4
	line	655
	colm	4
	synt	endif
	unmark
lab L19
	mark	L20
	mark	L21
	var	1
	line	656
	colm	4
	synt	any
	pret
lab L21
	synt	any
	pfail
	unmark
lab L20
	pnull
	line	657
	colm	1
	synt	any
	pfail
	end
proc outline_listframe
	declend
	line	669
	colm	11
	synt	any
	line	670
	colm	1
	synt	any
	pfail
	end
proc resize_listframe
	local	0,001000,s
	local	1,001000,x
	local	2,001000,y
	local	3,001000,w
	local	4,001000,h
	local	5,000000,resize_Vidget
	local	6,000000,VResize
	con	0,002000,1,1
	con	1,002000,2,15
	con	2,002000,1,2
	declend
	line	680
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	681
	colm	4
	synt	any
	null
	pnull
	var	0
	line	681
	colm	11
	synt	any
	field	ax
	line	681
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	682
	colm	4
	synt	any
	null
	pnull
	var	0
	line	682
	colm	11
	synt	any
	field	ay
	line	682
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	3
	line	683
	colm	4
	synt	any
	null
	pnull
	var	0
	line	683
	colm	11
	synt	any
	field	aw
	line	683
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	4
	line	684
	colm	4
	synt	any
	null
	pnull
	var	0
	line	684
	colm	11
	synt	any
	field	ah
	line	684
	colm	7
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	var	5
	var	0
	var	1
	var	2
	var	3
	var	4
	line	685
	colm	17
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	6
	pnull
	pnull
	var	0
	line	686
	colm	13
	synt	any
	field	draw
	int	0
	line	686
	colm	18
	synt	any
	subsc
	var	1
	var	2
	pnull
	pnull
	var	3
	int	1
	line	686
	colm	31
	synt	any
	minus
	int	2
	line	686
	colm	36
	synt	any
	minus
	var	4
	line	686
	colm	11
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	6
	pnull
	pnull
	var	0
	line	687
	colm	13
	synt	any
	field	draw
	int	2
	line	687
	colm	18
	synt	any
	subsc
	pnull
	pnull
	var	1
	var	3
	line	687
	colm	25
	synt	any
	plus
	int	1
	line	687
	colm	29
	synt	any
	minus
	var	2
	int	1
	var	4
	line	687
	colm	11
	synt	any
	invoke	5
	unmark
lab L7
	pnull
	line	688
	colm	1
	synt	any
	pfail
	end
proc Vpane_Vlist
	local	0,001000,params
	local	1,000020,self
	local	2,000020,frame
	local	3,000020,x
	local	4,000020,y
	local	5,000020,ins
	local	6,000040,procs
	local	7,000000,Vstd
	local	8,000000,event_Vlist
	local	9,000000,draw_Vpane_Vlist
	local	10,000000,outline_listpane
	local	11,000000,resize_Vpane
	local	12,000000,inrange_Vpane
	local	13,000000,init_Vpane
	local	14,000000,couplerset_Vpane
	local	15,000000,Vinsert_check
	local	16,000000,pop
	local	17,000000,Vpane_rec
	local	18,000000,Vwin_check
	local	19,000000,numeric
	local	20,000000,_Vbomb
	local	21,000000,integer
	local	22,000000,Vget_uid
	local	23,000000,Vstd_pos
	local	24,000000,VInsert
	con	0,002000,1,1
	con	1,002000,1,7
	con	2,002000,1,0
	con	3,010000,7,126,160,141,156,145,050,051
	con	4,010000,31,151,156,166,141,154,151,144,040,141,167,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,160,141,156,145,050,051
	con	5,010000,31,151,156,166,141,154,151,144,040,141,150,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,160,141,156,145,050,051
	con	6,010000,9,151,156,166,151,163,151,142,154,145
	con	7,010000,7,147,162,157,157,166,145,144
	declend
	line	719
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	line	723
	colm	25
	synt	any
	invoke	7
	line	723
	colm	18
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	727
	colm	4
	synt	if
	mark0
	pnull
	var	5
	var	15
	var	0
	line	727
	colm	27
	synt	any
	invoke	1
	line	727
	colm	11
	synt	any
	asgn
	unmark
	mark	L5
	pnull
	var	2
	var	16
	var	0
	line	728
	colm	19
	synt	any
	invoke	1
	line	728
	colm	13
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	3
	var	16
	var	0
	line	728
	colm	37
	synt	any
	invoke	1
	line	728
	colm	31
	synt	any
	asgn
	unmark
lab L6
	pnull
	var	4
	var	16
	var	0
	line	728
	colm	54
	synt	any
	invoke	1
	line	728
	colm	48
	synt	any
	asgn
	line	727
	colm	4
	synt	endif
	unmark
lab L4
	mark	L7
	pnull
	var	1
	var	17
	pnull
	var	0
	int	0
	mark	L8
	int	1
	line	730
	colm	34
	synt	any
	esusp
	goto	L9
lab L8
	int	2
lab L9
	line	730
	colm	32
	synt	any
	synt	any
	sect
	invoke	-1
	line	730
	colm	9
	synt	any
	asgn
	unmark
lab L7
	mark	L10
	var	18
	pnull
	var	1
	line	731
	colm	19
	synt	any
	field	win
	str	3
	line	731
	colm	14
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	line	732
	colm	4
	synt	if
	mark0
	pushn1
	pnull
	pnull
	var	1
	line	732
	colm	13
	synt	any
	field	aw
	line	732
	colm	8
	synt	any
	nonnull
	mark	L12
	var	19
	pnull
	var	1
	line	732
	colm	34
	synt	any
	field	aw
	line	732
	colm	29
	synt	any
	invoke	1
	unmark
	efail
lab L12
	pnull
	line	732
	colm	7
	synt	any
	invoke	2
	unmark
	var	20
	str	4
	line	733
	colm	13
	synt	any
	invoke	1
	line	732
	colm	4
	synt	endif
	unmark
lab L11
	mark	L13
	line	734
	colm	4
	synt	if
	mark0
	pushn1
	pnull
	pnull
	var	1
	line	734
	colm	13
	synt	any
	field	ah
	line	734
	colm	8
	synt	any
	nonnull
	mark	L14
	var	19
	pnull
	var	1
	line	734
	colm	34
	synt	any
	field	ah
	line	734
	colm	29
	synt	any
	invoke	1
	unmark
	efail
lab L14
	pnull
	line	734
	colm	7
	synt	any
	invoke	2
	unmark
	var	20
	str	5
	line	735
	colm	13
	synt	any
	invoke	1
	line	734
	colm	4
	synt	endif
	unmark
lab L13
	mark	L15
	pnull
	pnull
	pnull
	var	1
	line	737
	colm	9
	synt	any
	field	style
	line	737
	colm	4
	synt	any
	null
	str	6
	line	737
	colm	16
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	line	738
	colm	4
	synt	if
	mark0
	var	21
	pnull
	var	1
	line	738
	colm	19
	synt	any
	field	style
	line	738
	colm	14
	synt	any
	invoke	1
	unmark
	line	739
	colm	7
	synt	ifelse
	mark	L17
	pnull
	pnull
	var	1
	line	739
	colm	14
	synt	any
	field	style
	int	2
	line	739
	colm	21
	synt	any
	numgt
	unmark
	pnull
	pnull
	var	1
	line	740
	colm	14
	synt	any
	field	style
	str	7
	line	740
	colm	21
	synt	any
	asgn
	goto	L18
lab L17
	pnull
	pnull
	var	1
	line	742
	colm	14
	synt	any
	field	style
	str	6
	line	742
	colm	21
	synt	any
	asgn
lab L18
	line	739
	colm	7
	synt	endifelse
	line	738
	colm	4
	synt	endif
	unmark
lab L16
	mark	L19
	pnull
	pnull
	var	1
	line	744
	colm	8
	synt	any
	field	uid
	var	22
	line	744
	colm	24
	synt	any
	invoke	0
	line	744
	colm	13
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	pnull
	var	1
	line	745
	colm	8
	synt	any
	field	V
	var	6
	line	745
	colm	11
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	pnull
	var	1
	line	746
	colm	8
	synt	any
	field	P
	var	23
	line	746
	colm	22
	synt	any
	invoke	0
	line	746
	colm	11
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	line	748
	colm	4
	synt	if
	mark0
	pnull
	var	5
	line	748
	colm	7
	synt	any
	nonnull
	unmark
	var	24
	var	2
	var	1
	var	3
	var	4
	line	748
	colm	24
	synt	any
	invoke	4
	line	748
	colm	4
	synt	endif
	unmark
lab L22
	mark	L23
	mark	L24
	var	1
	line	749
	colm	4
	synt	any
	pret
lab L24
	synt	any
	pfail
	unmark
lab L23
	pnull
	line	751
	colm	1
	synt	any
	pfail
	end
proc draw_Vpane_Vlist
	local	0,001000,self
	local	1,000020,dl
	local	2,000020,tl
	local	3,000000,storage_Vlist
	local	4,000000,drawlist_Vlist
	con	0,010000,4,162,145,141,144
	con	1,010000,8,144,141,164,141,154,151,163,164
	con	2,010000,8,164,157,160,137,154,151,156,145
	declend
	line	769
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	772
	colm	8
	synt	any
	field	V
	line	772
	colm	10
	synt	any
	field	outline
	var	0
	line	772
	colm	18
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	3
	pnull
	var	0
	line	774
	colm	28
	synt	any
	field	id
	str	0
	str	1
	line	774
	colm	23
	synt	any
	invoke	3
	line	774
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	var	3
	pnull
	var	0
	line	775
	colm	28
	synt	any
	field	id
	str	0
	str	2
	line	775
	colm	23
	synt	any
	invoke	3
	line	775
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	var	4
	var	0
	var	1
	var	2
	line	776
	colm	18
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	line	778
	colm	4
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	780
	colm	1
	synt	any
	pfail
	end
proc event_Vlist
	local	0,001000,self
	local	1,001000,e
	local	2,001000,x
	local	3,001000,y
	local	4,000020,cb
	local	5,000020,dl
	local	6,000020,tl
	local	7,000020,sl
	local	8,000020,selectmode
	local	9,000020,selected
	local	10,000020,cb_data
	local	11,000020,cb_items
	local	12,000020,i
	local	13,000020,mode
	local	14,000000,storage_Vlist
	local	15,000000,vlist_selection
	local	16,000000,drawlist_Vlist
	local	17,000000,Event
	local	18,000000,find
	local	19,000000,type
	local	20,000000,put
	con	0,010000,4,162,145,141,144
	con	1,010000,4,155,157,144,145
	con	2,010000,1,162
	con	3,010000,8,144,141,164,141,154,151,163,164
	con	4,010000,8,164,157,160,137,154,151,156,145
	con	5,010000,9,163,145,154,145,143,164,151,157,156
	con	6,010000,1,167
	con	7,002000,1,0
	con	8,002000,1,1
	con	9,010000,1,116
	con	10,010000,1,123
	con	11,010000,5,167,162,151,164,145
	con	12,010000,7,143,157,165,160,154,145,162
	con	13,010000,9,160,162,157,143,145,144,165,162,145
	con	14,002000,1,2
	declend
	line	808
	colm	11
	synt	any
	mark	L1
	line	811
	colm	4
	synt	if
	mark0
	pnull
	var	1
	line	811
	colm	14
	synt	any
	keywd	lpress
	line	811
	colm	9
	synt	any
	neqv
	unmark
	line	812
	colm	7
	synt	any
	pfail
	line	811
	colm	4
	synt	endif
	unmark
lab L1
	mark	L2
	pnull
	var	13
	var	14
	pnull
	var	0
	line	814
	colm	30
	synt	any
	field	id
	str	0
	str	1
	line	814
	colm	25
	synt	any
	invoke	3
	line	814
	colm	9
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	815
	colm	4
	synt	if
	mark0
	pnull
	var	13
	str	2
	line	815
	colm	12
	synt	any
	eqv
	unmark
	line	816
	colm	7
	synt	any
	pfail
	line	815
	colm	4
	synt	endif
	unmark
lab L3
	mark	L4
	pnull
	var	4
	pnull
	var	0
	line	818
	colm	14
	synt	any
	field	callback
	line	818
	colm	7
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	3
	line	819
	colm	4
	synt	any
	null
	line	819
	colm	10
	synt	any
	keywd	y
	line	819
	colm	7
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	5
	var	14
	pnull
	var	0
	line	820
	colm	28
	synt	any
	field	id
	str	0
	str	3
	line	820
	colm	23
	synt	any
	invoke	3
	line	820
	colm	7
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	6
	var	14
	pnull
	var	0
	line	821
	colm	28
	synt	any
	field	id
	str	0
	str	4
	line	821
	colm	23
	synt	any
	invoke	3
	line	821
	colm	7
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	7
	var	14
	pnull
	var	0
	line	822
	colm	28
	synt	any
	field	id
	str	0
	str	5
	line	822
	colm	23
	synt	any
	invoke	3
	line	822
	colm	7
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	9
	var	15
	var	0
	var	3
	line	829
	colm	31
	synt	any
	invoke	2
	line	829
	colm	13
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	line	833
	colm	4
	synt	if
	mark0
	pnull
	var	13
	str	6
	line	833
	colm	12
	synt	any
	eqv
	unmark
	mark	L11
	pnull
	pnull
	var	7
	line	835
	colm	7
	synt	any
	null
	int	7
	line	835
	colm	11
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	line	836
	colm	7
	synt	ifelse
	mark	L13
	pnull
	var	7
	var	9
	line	836
	colm	13
	synt	any
	numeq
	unmark
	mark	L15
	pnull
	pnull
	pnull
	var	5
	var	9
	line	837
	colm	12
	synt	any
	subsc
	int	8
	line	837
	colm	22
	synt	any
	subsc
	str	9
	line	837
	colm	26
	synt	any
	asgn
	unmark
lab L15
	pnull
	var	7
	line	838
	colm	16
	synt	any
	keywd	null
	line	838
	colm	13
	synt	any
	asgn
	goto	L14
lab L13
	mark	L16
	pnull
	pnull
	pnull
	var	5
	var	9
	line	841
	colm	12
	synt	any
	subsc
	int	8
	line	841
	colm	22
	synt	any
	subsc
	str	10
	line	841
	colm	26
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	pnull
	pnull
	var	5
	var	7
	line	842
	colm	12
	synt	any
	subsc
	int	8
	line	842
	colm	16
	synt	any
	subsc
	str	9
	line	842
	colm	20
	synt	any
	asgn
	unmark
lab L17
	pnull
	var	7
	var	9
	line	843
	colm	13
	synt	any
	asgn
lab L14
	line	836
	colm	7
	synt	endifelse
	unmark
lab L12
	mark	L18
	var	16
	var	0
	var	5
	var	6
	line	845
	colm	21
	synt	any
	invoke	3
	unmark
lab L18
	mark	L19
lab L20
	line	847
	colm	7
	synt	while
	mark0
	pnull
	pnull
	var	1
	var	17
	pnull
	var	0
	line	847
	colm	29
	synt	any
	field	win
	line	847
	colm	24
	synt	any
	invoke	1
	line	847
	colm	16
	synt	any
	asgn
	line	847
	colm	41
	synt	any
	keywd	lrelease
	line	847
	colm	36
	synt	any
	neqv
	unmark
	mark	L20
	mark	L23
	line	849
	colm	10
	synt	if
	mark0
	pnull
	var	1
	line	849
	colm	20
	synt	any
	keywd	ldrag
	line	849
	colm	15
	synt	any
	neqv
	unmark
	unmark
	goto	L21
	line	849
	colm	10
	synt	endif
	unmark
lab L23
	mark	L24
	pnull
	var	9
	var	15
	var	0
	line	852
	colm	44
	synt	any
	keywd	y
	line	852
	colm	37
	synt	any
	invoke	2
	line	852
	colm	19
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	pnull
	pnull
	var	7
	line	854
	colm	10
	synt	any
	null
	int	7
	line	854
	colm	14
	synt	any
	asgn
	unmark
lab L25
	line	855
	colm	10
	synt	ifelse
	mark	L26
	pnull
	var	7
	var	9
	line	855
	colm	16
	synt	any
	numeq
	unmark
	goto	L21
	goto	L27
lab L26
	mark	L28
	pnull
	pnull
	pnull
	var	5
	var	9
	line	858
	colm	15
	synt	any
	subsc
	int	8
	line	858
	colm	25
	synt	any
	subsc
	str	10
	line	858
	colm	29
	synt	any
	asgn
	unmark
lab L28
	mark	L29
	pnull
	pnull
	pnull
	var	5
	var	7
	line	859
	colm	15
	synt	any
	subsc
	int	8
	line	859
	colm	19
	synt	any
	subsc
	str	9
	line	859
	colm	23
	synt	any
	asgn
	unmark
lab L29
	mark	L30
	pnull
	var	7
	var	9
	line	860
	colm	16
	synt	any
	asgn
	unmark
lab L30
	var	16
	var	0
	var	5
	var	6
	line	861
	colm	27
	synt	any
	invoke	3
lab L27
	line	855
	colm	10
	synt	endifelse
lab L21
	unmark
	goto	L20
lab L22
	line	847
	colm	7
	synt	endwhile
	unmark
lab L19
	mark	L31
	var	14
	pnull
	var	0
	line	866
	colm	28
	synt	any
	field	id
	str	11
	str	5
	var	7
	line	866
	colm	23
	synt	any
	invoke	4
	unmark
lab L31
	mark	L32
	line	868
	colm	10
	synt	if
	mark0
	var	18
	str	12
	var	19
	pnull
	var	4
	line	868
	colm	34
	synt	any
	nonnull
	line	868
	colm	33
	synt	any
	invoke	1
	line	868
	colm	17
	synt	any
	invoke	2
	unmark
	mark	L33
	line	869
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	0
	line	869
	colm	21
	synt	any
	field	callback
	line	869
	colm	30
	synt	any
	field	locked
	line	869
	colm	16
	synt	any
	nonnull
	unmark
	line	869
	colm	43
	synt	any
	pfail
	line	869
	colm	13
	synt	endif
	unmark
lab L33
	mark	L34
	mark	L35
	pnull
	pnull
	var	4
	line	870
	colm	22
	synt	any
	field	V
	line	870
	colm	24
	synt	any
	field	set
	var	4
	var	0
	line	870
	colm	28
	synt	any
	invoke	2
	line	870
	colm	39
	synt	any
	esusp
	goto	L36
lab L35
	line	870
	colm	41
	synt	any
	keywd	null
lab L36
	line	870
	colm	13
	synt	any
	pret
lab L34
	synt	any
	pfail
	line	868
	colm	10
	synt	endif
	unmark
lab L32
	mark	L37
	line	873
	colm	10
	synt	if
	mark0
	pnull
	var	19
	pnull
	var	4
	line	873
	colm	18
	synt	any
	nonnull
	line	873
	colm	17
	synt	any
	invoke	1
	str	13
	line	873
	colm	23
	synt	any
	lexeq
	unmark
	line	874
	colm	13
	synt	ifelse
	mark	L38
	pnull
	pnull
	pnull
	var	5
	var	9
	line	874
	colm	18
	synt	any
	subsc
	int	8
	line	874
	colm	28
	synt	any
	subsc
	str	10
	line	874
	colm	32
	synt	any
	lexeq
	unmark
	mark	L40
	mark	L41
	var	4
	var	0
	pnull
	pnull
	var	5
	var	9
	line	875
	colm	34
	synt	any
	subsc
	int	14
	int	7
	line	875
	colm	46
	synt	any
	synt	any
	sect
	var	9
	line	875
	colm	25
	synt	any
	invoke	3
	line	875
	colm	61
	synt	any
	esusp
	goto	L42
lab L41
	line	875
	colm	63
	synt	any
	keywd	null
lab L42
	line	875
	colm	16
	synt	any
	pret
lab L40
	synt	any
	pfail
	goto	L39
lab L38
	mark	L43
	mark	L44
	var	4
	var	0
	line	877
	colm	32
	synt	any
	keywd	null
	int	7
	line	877
	colm	25
	synt	any
	invoke	3
	line	877
	colm	42
	synt	any
	esusp
	goto	L45
lab L44
	line	877
	colm	44
	synt	any
	keywd	null
lab L45
	line	877
	colm	16
	synt	any
	pret
lab L43
	synt	any
	pfail
lab L39
	line	874
	colm	13
	synt	endifelse
	line	873
	colm	10
	synt	endif
	unmark
lab L37
	mark	L46
	pnull
	line	880
	colm	10
	synt	any
	pret
lab L46
	synt	any
	pfail
	line	833
	colm	4
	synt	endif
	unmark
lab L10
	mark	L47
	line	885
	colm	4
	synt	ifelse
	mark	L48
	pnull
	pnull
	pnull
	var	5
	var	9
	line	885
	colm	9
	synt	any
	subsc
	int	8
	line	885
	colm	19
	synt	any
	subsc
	str	10
	line	885
	colm	23
	synt	any
	lexeq
	unmark
	pnull
	var	8
	str	9
	line	886
	colm	18
	synt	any
	asgn
	goto	L49
lab L48
	pnull
	var	8
	str	10
	line	888
	colm	18
	synt	any
	asgn
lab L49
	line	885
	colm	4
	synt	endifelse
	unmark
lab L47
	mark	L50
	pnull
	pnull
	pnull
	var	5
	var	9
	line	889
	colm	6
	synt	any
	subsc
	int	8
	line	889
	colm	16
	synt	any
	subsc
	var	8
	line	889
	colm	20
	synt	any
	asgn
	unmark
lab L50
	mark	L51
	var	16
	var	0
	var	5
	var	6
	line	890
	colm	18
	synt	any
	invoke	3
	unmark
lab L51
	mark	L52
lab L53
	line	892
	colm	4
	synt	while
	mark0
	pnull
	pnull
	var	1
	var	17
	pnull
	var	0
	line	892
	colm	26
	synt	any
	field	win
	line	892
	colm	21
	synt	any
	invoke	1
	line	892
	colm	13
	synt	any
	asgn
	line	892
	colm	38
	synt	any
	keywd	lrelease
	line	892
	colm	33
	synt	any
	neqv
	unmark
	mark	L53
	line	893
	colm	7
	synt	if
	mark0
	pnull
	var	1
	line	893
	colm	16
	synt	any
	keywd	ldrag
	line	893
	colm	12
	synt	any
	eqv
	unmark
	mark	L56
	pnull
	pnull
	pnull
	var	5
	var	15
	var	0
	line	894
	colm	35
	synt	any
	keywd	y
	line	894
	colm	28
	synt	any
	invoke	2
	line	894
	colm	12
	synt	any
	subsc
	int	8
	line	894
	colm	39
	synt	any
	subsc
	var	8
	line	894
	colm	43
	synt	any
	asgn
	unmark
lab L56
	var	16
	var	0
	var	5
	var	6
	line	895
	colm	24
	synt	any
	invoke	3
	line	893
	colm	7
	synt	endif
lab L54
	unmark
	goto	L53
lab L55
	line	892
	colm	4
	synt	endwhile
	unmark
lab L52
	mark	L57
	line	898
	colm	4
	synt	if
	mark0
	var	18
	str	12
	var	19
	pnull
	var	4
	line	898
	colm	28
	synt	any
	nonnull
	line	898
	colm	27
	synt	any
	invoke	1
	line	898
	colm	11
	synt	any
	invoke	2
	unmark
	mark	L58
	line	899
	colm	7
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	0
	line	899
	colm	15
	synt	any
	field	callback
	line	899
	colm	24
	synt	any
	field	locked
	line	899
	colm	10
	synt	any
	nonnull
	unmark
	line	899
	colm	37
	synt	any
	pfail
	line	899
	colm	7
	synt	endif
	unmark
lab L58
	mark	L59
	mark	L60
	pnull
	pnull
	var	4
	line	900
	colm	16
	synt	any
	field	V
	line	900
	colm	18
	synt	any
	field	set
	var	4
	var	0
	line	900
	colm	22
	synt	any
	invoke	2
	line	900
	colm	33
	synt	any
	esusp
	goto	L61
lab L60
	line	900
	colm	35
	synt	any
	keywd	null
lab L61
	line	900
	colm	7
	synt	any
	pret
lab L59
	synt	any
	pfail
	line	898
	colm	4
	synt	endif
	unmark
lab L57
	mark	L62
	line	903
	colm	4
	synt	if
	mark0
	pnull
	var	19
	pnull
	var	4
	line	903
	colm	12
	synt	any
	nonnull
	line	903
	colm	11
	synt	any
	invoke	1
	str	13
	line	903
	colm	17
	synt	any
	lexeq
	unmark
	mark	L63
	pnull
	var	10
	pnull
	line	904
	colm	18
	synt	any
	llist	0
	line	904
	colm	15
	synt	any
	asgn
	unmark
lab L63
	mark	L64
	pnull
	var	11
	pnull
	line	905
	colm	19
	synt	any
	llist	0
	line	905
	colm	16
	synt	any
	asgn
	unmark
lab L64
	mark	L65
	line	906
	colm	7
	synt	every
	mark0
	pnull
	var	12
	pnull
	int	8
	pnull
	var	5
	line	906
	colm	23
	synt	any
	size
	push1
	line	906
	colm	20
	synt	any
	toby
	line	906
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	907
	colm	10
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	5
	var	12
	line	907
	colm	15
	synt	any
	subsc
	int	8
	line	907
	colm	18
	synt	any
	subsc
	str	10
	line	907
	colm	22
	synt	any
	lexeq
	unmark
	mark	L68
	var	20
	var	10
	pnull
	pnull
	var	5
	var	12
	line	908
	colm	28
	synt	any
	subsc
	int	14
	int	7
	line	908
	colm	33
	synt	any
	synt	any
	sect
	line	908
	colm	16
	synt	any
	invoke	2
	unmark
lab L68
	var	20
	var	11
	var	12
	line	909
	colm	16
	synt	any
	invoke	2
	line	907
	colm	10
	synt	endif
	unmark
lab L66
	efail
lab L67
	line	906
	colm	7
	synt	endevery
	unmark
lab L65
	mark	L69
	mark	L70
	var	4
	var	0
	var	10
	var	11
	line	911
	colm	16
	synt	any
	invoke	3
	line	911
	colm	42
	synt	any
	esusp
	goto	L71
lab L70
	line	911
	colm	44
	synt	any
	keywd	null
lab L71
	line	911
	colm	7
	synt	any
	pret
lab L69
	synt	any
	pfail
	line	903
	colm	4
	synt	endif
	unmark
lab L62
	mark	L72
	mark	L73
	pnull
	line	914
	colm	4
	synt	any
	pret
lab L73
	synt	any
	pfail
	unmark
lab L72
	pnull
	line	915
	colm	1
	synt	any
	pfail
	end
proc vlist_selection
	local	0,001000,self
	local	1,001000,y
	local	2,000020,fh
	local	3,000020,tl
	local	4,000020,dl
	local	5,000020,window_sz
	local	6,000020,selected
	local	7,000000,WAttrib
	local	8,000000,storage_Vlist
	local	9,000000,integer
	con	0,010000,7,146,150,145,151,147,150,164
	con	1,010000,4,162,145,141,144
	con	2,010000,8,164,157,160,137,154,151,156,145
	con	3,010000,8,144,141,164,141,154,151,163,164
	con	4,002000,1,1
	con	5,002000,1,2
	declend
	line	933
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	7
	pnull
	var	0
	line	936
	colm	22
	synt	any
	field	win
	str	0
	line	936
	colm	17
	synt	any
	invoke	2
	line	936
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	var	8
	pnull
	var	0
	line	937
	colm	28
	synt	any
	field	id
	str	1
	str	2
	line	937
	colm	23
	synt	any
	invoke	3
	line	937
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	4
	var	8
	pnull
	var	0
	line	938
	colm	28
	synt	any
	field	id
	str	1
	str	3
	line	938
	colm	23
	synt	any
	invoke	3
	line	938
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	5
	pnull
	var	9
	pnull
	pnull
	var	0
	line	939
	colm	29
	synt	any
	field	uh
	var	2
	line	939
	colm	33
	synt	any
	div
	line	939
	colm	24
	synt	any
	invoke	1
	int	4
	line	939
	colm	39
	synt	any
	minus
	line	939
	colm	14
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	6
	pnull
	pnull
	var	3
	int	4
	line	941
	colm	19
	synt	any
	minus
	var	9
	pnull
	pnull
	pnull
	pnull
	var	1
	pnull
	var	0
	line	941
	colm	42
	synt	any
	field	uy
	line	941
	colm	36
	synt	any
	minus
	var	2
	line	941
	colm	46
	synt	any
	plus
	int	5
	line	941
	colm	51
	synt	any
	minus
	var	2
	line	941
	colm	56
	synt	any
	div
	line	941
	colm	32
	synt	any
	invoke	1
	line	941
	colm	23
	synt	any
	plus
	line	941
	colm	13
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	6
	dup
	pnull
	var	3
	var	5
	line	942
	colm	20
	synt	any
	plus
	line	942
	colm	13
	synt	any
	numgt
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	6
	dup
	pnull
	var	4
	line	943
	colm	17
	synt	any
	size
	line	943
	colm	13
	synt	any
	numgt
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	6
	dup
	int	4
	line	944
	colm	13
	synt	any
	numlt
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	6
	dup
	var	3
	line	945
	colm	13
	synt	any
	numlt
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	var	6
	line	946
	colm	4
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	947
	colm	1
	synt	any
	pfail
	end
proc outline_listpane
	local	0,001000,self
	local	1,000000,BevelRectangle
	con	0,002000,1,2
	declend
	line	961
	colm	11
	synt	any
	mark	L1
	var	1
	pnull
	var	0
	line	963
	colm	23
	synt	any
	field	win
	pnull
	var	0
	line	963
	colm	33
	synt	any
	field	ax
	pnull
	var	0
	line	963
	colm	42
	synt	any
	field	ay
	pnull
	var	0
	line	963
	colm	51
	synt	any
	field	aw
	pnull
	var	0
	line	963
	colm	60
	synt	any
	field	ah
	pnull
	int	0
	line	963
	colm	65
	synt	any
	neg
	line	963
	colm	18
	synt	any
	invoke	6
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	964
	colm	4
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	966
	colm	1
	synt	any
	pfail
	end
