version	U12.1.00
uid	vmenu.u1-1788085600-0
record	Vmenu_item_rec,14
	0,win
	1,s
	2,callback
	3,id
	4,aw
	5,ah
	6,menu
	7,ax
	8,ay
	9,uid
	10,P
	11,D
	12,V
	13,style
record	Vmenu_frame_rec,15
	0,win
	1,callback
	2,aw
	3,ah
	4,id
	5,temp
	6,drawn
	7,lookup
	8,draw
	9,ax
	10,ay
	11,uid
	12,P
	13,F
	14,V
record	Vpull_down_button_rec,17
	0,win
	1,callback
	2,id
	3,sz
	4,pd
	5,data
	6,s
	7,style
	8,aw
	9,ah
	10,ax
	11,ay
	12,abx
	13,uid
	14,P
	15,D
	16,V
impl	error
link	vstyle.u
global	38
	0,000011,Vmenu_item_rec,14
	1,000005,Vmenu_item,-1
	2,000005,init_Vmenu_item,1
	3,000005,draw_Vmenu_item,1
	4,000005,draw_on_entry,1
	5,000005,draw_off_entry,1
	6,000005,couplerset_Vmenu_item,1
	7,000005,event_Vmenu_item,3
	8,000005,Vmenu_bar_item,-1
	9,000005,resize_Vmenu_bar_item,5
	10,000005,event_Vmenu_bar_item,2
	11,000011,Vmenu_frame_rec,15
	12,000005,Vmenu_frame,-1
	13,000005,outline_menu_pane,1
	14,000005,format_Vmenu_frame,2
	15,000005,show_Vmenu_frame,1
	16,000005,hide_Vmenu_frame,1
	17,000005,pick_Vmenu_frame,3
	18,000005,insert_Vmenu_frame,4
	19,000005,Vsub_menu,-2
	20,000005,Vmenu_bar,-1
	21,000011,Vpull_down_button_rec,17
	22,000005,Vpull_down_button,-1
	23,000005,draw_Vpull_down_button,1
	24,000005,draw_Vpull_down_button_arrow,1
	25,000005,draw_Vpull_down_button_off,1
	26,000005,draw_Vpull_down_button_on,1
	27,000005,resize_Vpull_down_button,5
	28,000005,couplerset_Vpull_down_button,3
	29,000005,event_Vpull_down_button,2
	30,000005,set_value_Vpull_down_button,2
	31,000005,init_Vpull_down_button,1
	32,000005,Vmenu_set_items,2
	33,000005,Vmenu_set_submenu,3
	34,000005,Vmenu_get_items,1
	35,000005,Vmenu_get_submenu,1
	36,000005,Vpull_down_pick_menu,-1
	37,000005,Vpull_down,3

proc Vmenu_item
	local	0,001000,params
	local	1,000020,self
	local	2,000040,procs
	local	3,000000,Vstd
	local	4,000000,event_Vmenu_item
	local	5,000000,draw_Vmenu_item
	local	6,000000,outline_menu_pane
	local	7,000000,resize_Vidget
	local	8,000000,inrange_Vpane
	local	9,000000,init_Vmenu_item
	local	10,000000,couplerset_Vmenu_item
	local	11,000000,Vmenu_item_rec
	local	12,000000,Vget_uid
	local	13,000000,type
	local	14,000000,Vstd_draw
	local	15,000000,draw_off_entry
	local	16,000000,draw_on_entry
	local	17,000000,Vstd_pos
	con	0,010000,15,126,155,145,156,165,137,146,162,141,155,145,137,162,145,143
	con	1,010000,2,040,076
	con	2,002000,1,1
	declend
	filen	vmenu.icn
	line	50
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	54
	colm	25
	synt	any
	invoke	7
	line	54
	colm	18
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	1
	var	11
	var	0
	invoke	-1
	line	57
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	1
	line	58
	colm	8
	synt	any
	field	uid
	var	12
	line	58
	colm	24
	synt	any
	invoke	0
	line	58
	colm	13
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	line	59
	colm	4
	synt	if
	mark0
	pnull
	var	13
	pnull
	pnull
	var	1
	line	59
	colm	17
	synt	any
	field	callback
	line	59
	colm	12
	synt	any
	nonnull
	line	59
	colm	11
	synt	any
	invoke	1
	str	0
	line	59
	colm	28
	synt	any
	lexeq
	unmark
	mark	L7
	pnull
	pnull
	var	1
	line	60
	colm	11
	synt	any
	field	menu
	pnull
	var	1
	line	60
	colm	24
	synt	any
	field	callback
	line	60
	colm	17
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	1
	line	61
	colm	11
	synt	any
	field	callback
	pnull
	pnull
	var	1
	line	61
	colm	28
	synt	any
	field	menu
	line	61
	colm	33
	synt	any
	field	callback
	line	61
	colm	21
	synt	any
	asgn
	unmark
lab L8
	pnull
	pnull
	var	1
	line	62
	colm	11
	synt	any
	field	s
	dup
	str	1
	line	62
	colm	14
	synt	any
	cat
	asgn
	line	59
	colm	4
	synt	endif
	unmark
lab L6
	mark	L9
	pnull
	pnull
	var	1
	line	66
	colm	8
	synt	any
	field	D
	var	14
	var	15
	var	16
	line	66
	colm	23
	synt	any
	invoke	2
	line	66
	colm	11
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	1
	line	67
	colm	8
	synt	any
	field	P
	var	17
	line	67
	colm	22
	synt	any
	invoke	0
	line	67
	colm	11
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	pnull
	var	1
	line	68
	colm	8
	synt	any
	field	D
	line	68
	colm	10
	synt	any
	field	outline
	int	2
	line	68
	colm	19
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	1
	line	69
	colm	8
	synt	any
	field	V
	var	2
	line	69
	colm	11
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	1
	line	70
	colm	8
	synt	any
	field	V
	line	70
	colm	10
	synt	any
	field	init
	var	1
	line	70
	colm	15
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	mark	L15
	var	1
	line	72
	colm	4
	synt	any
	pret
lab L15
	synt	any
	pfail
	unmark
lab L14
	pnull
	line	73
	colm	1
	synt	any
	pfail
	end
proc init_Vmenu_item
	local	0,001000,self
	local	1,000020,TW
	local	2,000020,FH
	local	3,000020,ascent
	local	4,000020,descent
	local	5,000020,basey
	local	6,000000,TextWidth
	local	7,000000,WAttrib
	con	0,010000,0
	con	1,010000,6,141,163,143,145,156,164
	con	2,010000,7,144,145,163,143,145,156,164
	con	3,002000,1,5
	con	4,002000,1,2
	con	5,002000,1,0
	con	6,002000,1,1
	con	7,002000,2,10
	con	8,002000,1,8
	declend
	line	79
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	82
	colm	9
	synt	any
	field	s
	line	82
	colm	4
	synt	any
	null
	str	0
	line	82
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	6
	pnull
	var	0
	line	83
	colm	24
	synt	any
	field	win
	pnull
	var	0
	line	83
	colm	34
	synt	any
	field	s
	line	83
	colm	19
	synt	any
	invoke	2
	line	83
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	var	7
	pnull
	var	0
	line	84
	colm	26
	synt	any
	field	win
	str	1
	line	84
	colm	21
	synt	any
	invoke	2
	line	84
	colm	11
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	var	7
	pnull
	var	0
	line	85
	colm	27
	synt	any
	field	win
	str	2
	line	85
	colm	22
	synt	any
	invoke	2
	line	85
	colm	12
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	2
	pnull
	var	3
	var	4
	line	86
	colm	17
	synt	any
	plus
	line	86
	colm	7
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	pnull
	var	0
	line	87
	colm	9
	synt	any
	field	aw
	line	87
	colm	4
	synt	any
	null
	pnull
	var	1
	int	3
	line	87
	colm	19
	synt	any
	plus
	line	87
	colm	13
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	pnull
	var	0
	line	88
	colm	9
	synt	any
	field	ah
	line	88
	colm	4
	synt	any
	null
	pnull
	var	2
	int	4
	line	88
	colm	19
	synt	any
	plus
	line	88
	colm	13
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	0
	line	90
	colm	8
	synt	any
	field	aw
	mark	L9
	pnull
	int	5
	pnull
	var	0
	line	90
	colm	23
	synt	any
	field	aw
	line	90
	colm	17
	synt	any
	numlt
	line	90
	colm	27
	synt	any
	esusp
	goto	L10
lab L9
	int	6
lab L10
	line	90
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L11
	pnull
	pnull
	var	0
	line	91
	colm	8
	synt	any
	field	ah
	mark	L12
	pnull
	int	5
	pnull
	var	0
	line	91
	colm	23
	synt	any
	field	ah
	line	91
	colm	17
	synt	any
	numlt
	line	91
	colm	27
	synt	any
	esusp
	goto	L13
lab L12
	int	6
lab L13
	line	91
	colm	12
	synt	any
	asgn
	unmark
lab L11
	mark	L14
	pnull
	pnull
	pnull
	var	0
	line	93
	colm	8
	synt	any
	field	D
	line	93
	colm	10
	synt	any
	field	basex
	pnull
	pnull
	pnull
	pnull
	var	0
	line	93
	colm	25
	synt	any
	field	aw
	var	1
	line	93
	colm	29
	synt	any
	minus
	int	6
	line	93
	colm	34
	synt	any
	plus
	int	4
	line	93
	colm	39
	synt	any
	div
	line	93
	colm	17
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	var	5
	pnull
	int	6
	var	3
	line	94
	colm	15
	synt	any
	plus
	line	94
	colm	10
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	line	95
	colm	4
	synt	if
	mark0
	pnull
	var	2
	int	7
	line	95
	colm	10
	synt	any
	numle
	unmark
	pnull
	var	5
	int	8
	line	95
	colm	27
	synt	any
	asgn
	line	95
	colm	4
	synt	endif
	unmark
lab L16
	mark	L17
	pnull
	pnull
	pnull
	var	0
	line	96
	colm	8
	synt	any
	field	D
	line	96
	colm	10
	synt	any
	field	basey
	var	5
	line	96
	colm	17
	synt	any
	asgn
	unmark
lab L17
	pnull
	line	98
	colm	1
	synt	any
	pfail
	end
proc draw_Vmenu_item
	local	0,001000,s
	declend
	line	100
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	101
	colm	5
	synt	any
	field	D
	line	101
	colm	7
	synt	any
	field	draw_off
	var	0
	line	101
	colm	16
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	102
	colm	1
	synt	any
	pfail
	end
proc draw_on_entry
	local	0,001000,s
	local	1,000000,GotoXY
	local	2,000000,writes
	local	3,000000,BevelRectangle
	declend
	line	104
	colm	11
	synt	any
	mark	L1
	var	1
	pnull
	var	0
	line	105
	colm	12
	synt	any
	field	win
	pnull
	pnull
	var	0
	line	105
	colm	19
	synt	any
	field	ax
	pnull
	pnull
	var	0
	line	105
	colm	24
	synt	any
	field	D
	line	105
	colm	26
	synt	any
	field	basex
	line	105
	colm	22
	synt	any
	plus
	pnull
	pnull
	var	0
	line	105
	colm	35
	synt	any
	field	ay
	pnull
	pnull
	var	0
	line	105
	colm	40
	synt	any
	field	D
	line	105
	colm	42
	synt	any
	field	basey
	line	105
	colm	38
	synt	any
	plus
	line	105
	colm	10
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	var	2
	pnull
	var	0
	line	106
	colm	12
	synt	any
	field	win
	pnull
	var	0
	line	106
	colm	19
	synt	any
	field	s
	line	106
	colm	10
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	3
	pnull
	var	0
	line	107
	colm	20
	synt	any
	field	win
	pnull
	var	0
	line	107
	colm	27
	synt	any
	field	ax
	pnull
	var	0
	line	107
	colm	33
	synt	any
	field	ay
	pnull
	var	0
	line	107
	colm	39
	synt	any
	field	aw
	pnull
	var	0
	line	107
	colm	45
	synt	any
	field	ah
	line	107
	colm	18
	synt	any
	invoke	5
	unmark
lab L3
	pnull
	line	108
	colm	1
	synt	any
	pfail
	end
proc draw_off_entry
	local	0,001000,s
	local	1,000000,EraseArea
	local	2,000000,GotoXY
	local	3,000000,writes
	declend
	line	110
	colm	11
	synt	any
	mark	L1
	var	1
	pnull
	var	0
	line	111
	colm	15
	synt	any
	field	win
	pnull
	var	0
	line	111
	colm	22
	synt	any
	field	ax
	pnull
	var	0
	line	111
	colm	28
	synt	any
	field	ay
	pnull
	var	0
	line	111
	colm	34
	synt	any
	field	aw
	pnull
	var	0
	line	111
	colm	40
	synt	any
	field	ah
	line	111
	colm	13
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	var	2
	pnull
	var	0
	line	112
	colm	12
	synt	any
	field	win
	pnull
	pnull
	var	0
	line	112
	colm	19
	synt	any
	field	ax
	pnull
	pnull
	var	0
	line	112
	colm	24
	synt	any
	field	D
	line	112
	colm	26
	synt	any
	field	basex
	line	112
	colm	22
	synt	any
	plus
	pnull
	pnull
	var	0
	line	112
	colm	35
	synt	any
	field	ay
	pnull
	pnull
	var	0
	line	112
	colm	40
	synt	any
	field	D
	line	112
	colm	42
	synt	any
	field	basey
	line	112
	colm	38
	synt	any
	plus
	line	112
	colm	10
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	var	3
	pnull
	var	0
	line	113
	colm	12
	synt	any
	field	win
	pnull
	var	0
	line	113
	colm	19
	synt	any
	field	s
	line	113
	colm	10
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	114
	colm	1
	synt	any
	pfail
	end
proc couplerset_Vmenu_item
	local	0,001000,s
	declend
	line	116
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	117
	colm	5
	synt	any
	field	V
	line	117
	colm	7
	synt	any
	field	draw
	var	0
	line	117
	colm	12
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	118
	colm	1
	synt	any
	pfail
	end
proc event_Vmenu_item
	local	0,001000,self
	local	1,001000,e
	local	2,001000,sub
	local	3,000020,rv
	local	4,000000,show_Vmenu_frame
	local	5,000000,V_FAIL
	local	6,000000,V_DRAGGING
	local	7,000000,push
	local	8,000000,Event
	local	9,000000,hide_Vmenu_frame
	con	0,002000,1,4
	con	1,002000,1,1
	con	2,010000,1,023
	declend
	line	130
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	133
	colm	8
	synt	any
	field	D
	line	133
	colm	10
	synt	any
	field	draw_on
	var	0
	line	133
	colm	18
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	pnull
	var	0
	line	134
	colm	10
	synt	any
	field	menu
	line	134
	colm	5
	synt	any
	nonnull
	line	134
	colm	16
	synt	any
	field	V
	line	134
	colm	18
	synt	any
	field	resize
	pnull
	var	0
	line	134
	colm	30
	synt	any
	field	menu
	pnull
	pnull
	pnull
	var	0
	line	134
	colm	41
	synt	any
	field	ax
	pnull
	var	0
	line	134
	colm	49
	synt	any
	field	aw
	line	134
	colm	44
	synt	any
	plus
	int	0
	line	134
	colm	52
	synt	any
	minus
	pnull
	var	0
	line	134
	colm	60
	synt	any
	field	ay
	line	134
	colm	25
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	var	4
	pnull
	pnull
	var	0
	line	135
	colm	26
	synt	any
	field	menu
	line	135
	colm	21
	synt	any
	nonnull
	line	135
	colm	20
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	var	3
	var	5
	line	136
	colm	7
	synt	any
	asgn
	unmark
lab L4
	mark	L5
lab L6
	line	137
	colm	4
	synt	repeat
	mark	L6
	mark	L9
	line	138
	colm	7
	synt	ifelse
	mark	L10
	pushn1
	pnull
	pnull
	var	0
	line	138
	colm	16
	synt	any
	field	menu
	line	138
	colm	11
	synt	any
	nonnull
	pnull
	line	139
	colm	11
	synt	any
	keywd	x
	pnull
	pnull
	var	0
	line	139
	colm	21
	synt	any
	field	ax
	pnull
	var	0
	line	139
	colm	29
	synt	any
	field	aw
	line	139
	colm	24
	synt	any
	plus
	line	139
	colm	14
	synt	any
	numge
	pop
	pnull
	pnull
	pnull
	var	0
	line	139
	colm	41
	synt	any
	field	ay
	line	139
	colm	48
	synt	any
	keywd	y
	line	139
	colm	45
	synt	any
	numle
	pnull
	pnull
	var	0
	line	139
	colm	58
	synt	any
	field	ay
	pnull
	var	0
	line	139
	colm	66
	synt	any
	field	ah
	line	139
	colm	61
	synt	any
	plus
	line	139
	colm	51
	synt	any
	numle
	line	138
	colm	10
	synt	any
	invoke	2
	unmark
	mark	L12
	pnull
	var	3
	mark	L13
	pnull
	pnull
	pnull
	var	0
	line	140
	colm	20
	synt	any
	field	menu
	line	140
	colm	25
	synt	any
	field	F
	line	140
	colm	27
	synt	any
	field	pick
	pnull
	var	0
	line	140
	colm	37
	synt	any
	field	menu
	var	1
	int	1
	line	140
	colm	32
	synt	any
	invoke	3
	line	140
	colm	50
	synt	any
	esusp
	goto	L14
lab L13
	line	140
	colm	52
	synt	any
	keywd	null
lab L14
	line	140
	colm	13
	synt	any
	asgn
	unmark
lab L12
	line	141
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	141
	colm	13
	synt	any
	nonnull
	var	6
	line	141
	colm	17
	synt	any
	neqv
	pop
	pnull
	pnull
	var	3
	line	141
	colm	35
	synt	any
	nonnull
	var	5
	line	141
	colm	39
	synt	any
	neqv
	unmark
	pnull
	var	3
	var	7
	pnull
	var	3
	line	142
	colm	26
	synt	any
	nonnull
	pnull
	var	0
	line	142
	colm	35
	synt	any
	field	uid
	line	142
	colm	25
	synt	any
	invoke	2
	line	142
	colm	16
	synt	any
	asgn
	line	141
	colm	10
	synt	endif
	goto	L11
lab L10
	line	145
	colm	12
	synt	ifelse
	mark	L15
	pushn1
	pnull
	pnull
	var	0
	line	145
	colm	21
	synt	any
	field	menu
	line	145
	colm	16
	synt	any
	nonnull
	pnull
	var	1
	mark	L17
	line	145
	colm	35
	synt	any
	keywd	lrelease
	line	145
	colm	44
	synt	any
	esusp
	goto	L18
lab L17
	mark	L19
	line	145
	colm	45
	synt	any
	keywd	mrelease
	line	145
	colm	54
	synt	any
	esusp
	goto	L20
lab L19
	line	145
	colm	55
	synt	any
	keywd	rrelease
lab L20
lab L18
	line	145
	colm	30
	synt	any
	eqv
	line	145
	colm	15
	synt	any
	invoke	2
	unmark
	pnull
	var	3
	line	145
	colm	78
	synt	any
	keywd	null
	line	145
	colm	75
	synt	any
	asgn
	goto	L16
lab L15
	line	146
	colm	12
	synt	ifelse
	mark	L21
	pnull
	var	1
	mark	L23
	line	146
	colm	22
	synt	any
	keywd	lrelease
	line	146
	colm	31
	synt	any
	esusp
	goto	L24
lab L23
	mark	L25
	line	146
	colm	32
	synt	any
	keywd	mrelease
	line	146
	colm	41
	synt	any
	esusp
	goto	L26
lab L25
	line	146
	colm	42
	synt	any
	keywd	rrelease
lab L26
lab L24
	line	146
	colm	17
	synt	any
	eqv
	unmark
	pnull
	var	3
	pnull
	pnull
	var	0
	line	146
	colm	70
	synt	any
	field	uid
	line	146
	colm	65
	synt	any
	llist	1
	line	146
	colm	61
	synt	any
	asgn
	goto	L22
lab L21
	line	147
	colm	12
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	147
	colm	19
	synt	any
	field	V
	line	147
	colm	21
	synt	any
	field	inrange
	var	0
	line	147
	colm	36
	synt	any
	keywd	x
	line	147
	colm	40
	synt	any
	keywd	y
	line	147
	colm	29
	synt	any
	invoke	3
	unmark
	pnull
	var	3
	var	6
	line	147
	colm	52
	synt	any
	asgn
	line	147
	colm	12
	synt	endif
lab L22
	line	146
	colm	12
	synt	endifelse
lab L16
	line	145
	colm	12
	synt	endifelse
lab L11
	line	138
	colm	7
	synt	endifelse
	unmark
lab L9
	line	148
	colm	7
	synt	ifelse
	mark	L27
	pnull
	pnull
	var	3
	line	148
	colm	10
	synt	any
	nonnull
	var	6
	line	148
	colm	14
	synt	any
	eqv
	unmark
	mark	L29
	pnull
	var	1
	var	8
	pnull
	var	0
	line	149
	colm	25
	synt	any
	field	win
	line	149
	colm	20
	synt	any
	invoke	1
	line	149
	colm	12
	synt	any
	asgn
	unmark
lab L29
	mark	L30
	line	150
	colm	10
	synt	if
	mark0
	pnull
	var	1
	str	2
	line	150
	colm	15
	synt	any
	eqv
	unmark
lab L31
	line	151
	colm	13
	synt	until
	mark	L32
	pnull
	var	8
	pnull
	var	0
	line	151
	colm	29
	synt	any
	field	win
	line	151
	colm	24
	synt	any
	invoke	1
	mark	L35
	line	151
	colm	40
	synt	any
	keywd	lpress
	line	151
	colm	47
	synt	any
	esusp
	goto	L36
lab L35
	mark	L37
	line	151
	colm	48
	synt	any
	keywd	mpress
	line	151
	colm	55
	synt	any
	esusp
	goto	L38
lab L37
	line	151
	colm	56
	synt	any
	keywd	rpress
lab L38
lab L36
	line	151
	colm	35
	synt	any
	eqv
	unmark
	efail
lab L32
	mark	L31
	pnull
lab L33
	unmark
	goto	L31
lab L34
	line	151
	colm	13
	synt	enduntil
	line	150
	colm	10
	synt	endif
	unmark
lab L30
	pnull
	var	3
	var	5
	line	152
	colm	13
	synt	any
	asgn
	goto	L28
lab L27
	unmark
	pnull
	goto	L8
lab L28
	line	148
	colm	7
	synt	endifelse
lab L7
	unmark
	goto	L6
lab L8
	line	137
	colm	4
	synt	endrepeat
	unmark
lab L5
	mark	L39
	var	9
	pnull
	pnull
	var	0
	line	156
	colm	26
	synt	any
	field	menu
	line	156
	colm	21
	synt	any
	nonnull
	line	156
	colm	20
	synt	any
	invoke	1
	unmark
lab L39
	mark	L40
	pnull
	pnull
	var	0
	line	157
	colm	8
	synt	any
	field	D
	line	157
	colm	10
	synt	any
	field	draw_off
	var	0
	line	157
	colm	19
	synt	any
	invoke	1
	unmark
lab L40
	mark	L41
	line	158
	colm	4
	synt	if
	mark0
	pnull
	var	3
	var	5
	line	158
	colm	10
	synt	any
	eqv
	unmark
	line	158
	colm	26
	synt	any
	pfail
	line	158
	colm	4
	synt	endif
	unmark
lab L41
	mark	L42
	mark	L43
	var	3
	line	159
	colm	4
	synt	any
	pret
lab L43
	synt	any
	pfail
	unmark
lab L42
	pnull
	line	160
	colm	1
	synt	any
	pfail
	end
proc Vmenu_bar_item
	local	0,001000,params
	local	1,000020,self
	local	2,000040,procs
	local	3,000000,Vstd
	local	4,000000,event_Vmenu_bar_item
	local	5,000000,draw_Vmenu_item
	local	6,000000,outline_menu_pane
	local	7,000000,resize_Vmenu_bar_item
	local	8,000000,inrange_Vpane
	local	9,000000,null_proc
	local	10,000000,couplerset_Vmenu_item
	local	11,000000,Vmenu_item_rec
	local	12,000000,Vget_uid
	local	13,000000,type
	local	14,000000,_Vbomb
	local	15,000000,Vset_style
	local	16,000000,V_RECT
	local	17,000000,Vstd_pos
	con	0,010000,15,126,155,145,156,165,137,146,162,141,155,145,137,162,145,143
	con	1,010000,49,126,155,145,156,165,137,142,141,162,137,151,164,145,155,040,155,165,163,164,040,142,145,040,143,162,145,141,164,145,144,040,167,151,164,150,040,141,040,126,155,145,156,165,137,146,162,141,155,145
	declend
	line	166
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	170
	colm	25
	synt	any
	invoke	7
	line	170
	colm	18
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	1
	var	11
	var	0
	invoke	-1
	line	173
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	1
	line	174
	colm	8
	synt	any
	field	uid
	var	12
	line	174
	colm	24
	synt	any
	invoke	0
	line	174
	colm	13
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	line	175
	colm	4
	synt	if
	mark0
	pnull
	var	13
	pnull
	pnull
	var	1
	line	175
	colm	17
	synt	any
	field	menu
	line	175
	colm	12
	synt	any
	nonnull
	line	175
	colm	11
	synt	any
	invoke	1
	str	0
	line	175
	colm	24
	synt	any
	lexne
	unmark
	var	14
	str	1
	line	176
	colm	13
	synt	any
	invoke	1
	line	175
	colm	4
	synt	endif
	unmark
lab L6
	mark	L7
	var	15
	var	1
	var	16
	line	179
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	1
	line	180
	colm	8
	synt	any
	field	P
	var	17
	line	180
	colm	22
	synt	any
	invoke	0
	line	180
	colm	11
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	1
	line	181
	colm	8
	synt	any
	field	V
	var	2
	line	181
	colm	11
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	1
	line	182
	colm	8
	synt	any
	field	callback
	pnull
	pnull
	pnull
	var	1
	line	182
	colm	27
	synt	any
	field	menu
	line	182
	colm	22
	synt	any
	nonnull
	line	182
	colm	33
	synt	any
	field	callback
	line	182
	colm	18
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	1
	line	183
	colm	8
	synt	any
	field	D
	line	183
	colm	10
	synt	any
	field	init
	var	1
	line	183
	colm	15
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	mark	L13
	var	1
	line	185
	colm	4
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	186
	colm	1
	synt	any
	pfail
	end
proc resize_Vmenu_bar_item
	local	0,001000,self
	local	1,001000,x
	local	2,001000,y
	local	3,001000,w
	local	4,001000,h
	local	5,000000,resize_Vidget
	declend
	line	192
	colm	11
	synt	any
	mark	L1
	var	5
	var	0
	var	1
	var	2
	var	3
	var	4
	line	194
	colm	17
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	pnull
	var	0
	line	195
	colm	10
	synt	any
	field	menu
	line	195
	colm	5
	synt	any
	nonnull
	line	195
	colm	16
	synt	any
	field	V
	line	195
	colm	18
	synt	any
	field	resize
	pnull
	var	0
	line	195
	colm	30
	synt	any
	field	menu
	pnull
	var	0
	line	195
	colm	41
	synt	any
	field	ax
	pnull
	pnull
	var	0
	line	195
	colm	50
	synt	any
	field	ay
	pnull
	var	0
	line	195
	colm	58
	synt	any
	field	ah
	line	195
	colm	53
	synt	any
	plus
	line	195
	colm	25
	synt	any
	invoke	3
	unmark
lab L2
	pnull
	line	196
	colm	1
	synt	any
	pfail
	end
proc event_Vmenu_bar_item
	local	0,001000,self
	local	1,001000,e
	local	2,000020,rv
	local	3,000020,callback
	local	4,000020,i
	local	5,000020,t
	local	6,000020,labels
	local	7,000000,show_Vmenu_frame
	local	8,000000,V_DRAGGING
	local	9,000000,Event
	local	10,000000,hide_Vmenu_frame
	local	11,000000,V_FAIL
	local	12,000000,put
	con	0,002000,1,1
	con	1,002000,1,2
	declend
	line	206
	colm	11
	synt	any
	mark	L1
	line	209
	colm	4
	synt	if
	mark0
	pnull
	var	1
	line	209
	colm	14
	synt	any
	keywd	lpress
	line	209
	colm	9
	synt	any
	neqv
	pop
	pnull
	var	1
	line	209
	colm	31
	synt	any
	keywd	mpress
	line	209
	colm	26
	synt	any
	neqv
	pop
	pnull
	var	1
	line	209
	colm	48
	synt	any
	keywd	rpress
	line	209
	colm	43
	synt	any
	neqv
	unmark
	line	210
	colm	7
	synt	any
	pfail
	line	209
	colm	4
	synt	endif
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	211
	colm	8
	synt	any
	field	D
	line	211
	colm	10
	synt	any
	field	draw_on
	var	0
	line	211
	colm	18
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	7
	pnull
	pnull
	var	0
	line	212
	colm	26
	synt	any
	field	menu
	line	212
	colm	21
	synt	any
	nonnull
	line	212
	colm	20
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
lab L5
	line	213
	colm	4
	synt	repeat
	mark	L5
	mark	L8
	line	214
	colm	7
	synt	ifelse
	mark	L9
	pnull
	var	1
	mark	L11
	line	214
	colm	17
	synt	any
	keywd	lrelease
	line	214
	colm	26
	synt	any
	esusp
	goto	L12
lab L11
	mark	L13
	line	214
	colm	27
	synt	any
	keywd	mrelease
	line	214
	colm	36
	synt	any
	esusp
	goto	L14
lab L13
	line	214
	colm	37
	synt	any
	keywd	rrelease
lab L14
lab L12
	line	214
	colm	12
	synt	any
	eqv
	unmark
	pnull
	var	2
	line	214
	colm	59
	synt	any
	keywd	null
	line	214
	colm	56
	synt	any
	asgn
	goto	L10
lab L9
	line	215
	colm	12
	synt	ifelse
	mark	L15
	pnull
	pnull
	var	0
	line	215
	colm	19
	synt	any
	field	V
	line	215
	colm	21
	synt	any
	field	inrange
	var	0
	line	215
	colm	36
	synt	any
	keywd	x
	line	215
	colm	40
	synt	any
	keywd	y
	line	215
	colm	29
	synt	any
	invoke	3
	unmark
	pnull
	var	2
	var	8
	line	215
	colm	52
	synt	any
	asgn
	goto	L16
lab L15
	line	216
	colm	12
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	0
	line	216
	colm	20
	synt	any
	field	ax
	line	216
	colm	27
	synt	any
	keywd	x
	line	216
	colm	24
	synt	any
	numle
	pnull
	pnull
	var	0
	line	216
	colm	37
	synt	any
	field	ax
	pnull
	var	0
	line	216
	colm	45
	synt	any
	field	aw
	line	216
	colm	40
	synt	any
	plus
	line	216
	colm	30
	synt	any
	numle
	pop
	pnull
	line	216
	colm	53
	synt	any
	keywd	y
	pnull
	pnull
	var	0
	line	216
	colm	63
	synt	any
	field	ay
	pnull
	var	0
	line	216
	colm	71
	synt	any
	field	ah
	line	216
	colm	66
	synt	any
	plus
	line	216
	colm	56
	synt	any
	numge
	unmark
	pnull
	var	2
	pnull
	pnull
	pnull
	pnull
	var	0
	line	217
	colm	22
	synt	any
	field	menu
	line	217
	colm	17
	synt	any
	nonnull
	line	217
	colm	28
	synt	any
	field	F
	line	217
	colm	30
	synt	any
	field	pick
	pnull
	var	0
	line	217
	colm	40
	synt	any
	field	menu
	var	1
	line	217
	colm	35
	synt	any
	invoke	2
	line	217
	colm	13
	synt	any
	asgn
	line	216
	colm	12
	synt	endif
lab L16
	line	215
	colm	12
	synt	endifelse
lab L10
	line	214
	colm	7
	synt	endifelse
	unmark
lab L8
	line	218
	colm	7
	synt	ifelse
	mark	L17
	pnull
	pnull
	var	2
	line	218
	colm	10
	synt	any
	nonnull
	var	8
	line	218
	colm	14
	synt	any
	eqv
	unmark
	mark	L19
	pnull
	var	1
	var	9
	pnull
	var	0
	line	219
	colm	25
	synt	any
	field	win
	line	219
	colm	20
	synt	any
	invoke	1
	line	219
	colm	12
	synt	any
	asgn
	unmark
lab L19
	pnull
	var	2
	line	220
	colm	16
	synt	any
	keywd	null
	line	220
	colm	13
	synt	any
	asgn
	goto	L18
lab L17
	unmark
	pnull
	goto	L7
lab L18
	line	218
	colm	7
	synt	endifelse
lab L6
	unmark
	goto	L5
lab L7
	line	213
	colm	4
	synt	endrepeat
	unmark
lab L4
	mark	L20
	var	10
	pnull
	pnull
	var	0
	line	224
	colm	26
	synt	any
	field	menu
	line	224
	colm	21
	synt	any
	nonnull
	line	224
	colm	20
	synt	any
	invoke	1
	unmark
lab L20
	mark	L21
	pnull
	pnull
	var	0
	line	225
	colm	8
	synt	any
	field	D
	line	225
	colm	10
	synt	any
	field	draw_off
	var	0
	line	225
	colm	19
	synt	any
	invoke	1
	unmark
lab L21
	mark	L22
	line	226
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	2
	line	226
	colm	7
	synt	any
	nonnull
	var	11
	line	226
	colm	11
	synt	any
	eqv
	unmark
	mark	L23
	line	227
	colm	14
	synt	any
	keywd	null
	line	227
	colm	7
	synt	any
	pret
lab L23
	synt	any
	pfail
	line	226
	colm	4
	synt	endif
	unmark
lab L22
	mark	L24
	line	228
	colm	4
	synt	if
	mark0
	pnull
	var	2
	line	228
	colm	7
	synt	any
	nonnull
	unmark
	mark	L25
	pnull
	var	3
	pnull
	var	0
	line	229
	colm	23
	synt	any
	field	callback
	line	229
	colm	16
	synt	any
	asgn
	unmark
lab L25
	mark	L26
	pnull
	var	6
	pnull
	line	230
	colm	17
	synt	any
	llist	0
	line	230
	colm	14
	synt	any
	asgn
	unmark
lab L26
	mark	L27
	line	231
	colm	7
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	2
	line	231
	colm	18
	synt	any
	bang
	line	231
	colm	15
	synt	any
	asgn
	pop
	mark0
	mark	L30
	pnull
	var	5
	pnull
	var	3
	var	4
	line	232
	colm	23
	synt	any
	subsc
	line	232
	colm	12
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	pnull
	var	3
	pnull
	var	5
	int	0
	line	233
	colm	23
	synt	any
	subsc
	line	233
	colm	19
	synt	any
	asgn
	unmark
lab L31
	var	12
	var	6
	pnull
	var	5
	int	1
	line	234
	colm	23
	synt	any
	subsc
	line	234
	colm	13
	synt	any
	invoke	2
	unmark
lab L28
	efail
lab L29
	line	231
	colm	7
	synt	endevery
	unmark
lab L27
	mark	L32
	mark	L33
	pnull
	var	3
	line	236
	colm	15
	synt	any
	nonnull
	var	0
	var	6
	line	236
	colm	25
	synt	any
	invoke	2
	line	236
	colm	40
	synt	any
	esusp
	goto	L34
lab L33
	var	6
lab L34
	line	236
	colm	7
	synt	any
	pret
lab L32
	synt	any
	pfail
	line	228
	colm	4
	synt	endif
	unmark
lab L24
	mark	L35
	mark	L36
	line	238
	colm	11
	synt	any
	keywd	null
	line	238
	colm	4
	synt	any
	pret
lab L36
	synt	any
	pfail
	unmark
lab L35
	pnull
	line	239
	colm	1
	synt	any
	pfail
	end
proc Vmenu_frame
	local	0,001000,params
	local	1,000020,self
	local	2,000040,procs
	local	3,000000,Vstd
	local	4,000000,event_Vframe
	local	5,000000,draw_Vframe
	local	6,000000,outline_menu_pane
	local	7,000000,resize_Vframe
	local	8,000000,inrange_Vpane
	local	9,000000,null_proc
	local	10,000000,couplerset_Vpane
	local	11,000000,insert_Vmenu_frame
	local	12,000000,lookup_Vframe
	local	13,000000,set_abs_Vframe
	local	14,000000,Vmenu_frame_rec
	local	15,000000,Vget_uid
	local	16,000000,Vstd_draw
	local	17,000000,pick_Vmenu_frame
	local	18,000000,format_Vmenu_frame
	local	19,000000,Vstd_pos
	local	20,000000,init_Vframe
	local	21,000000,table
	local	22,000000,open
	con	0,010000,5,166,155,145,156,165
	con	1,010000,1,147
	con	2,010000,13,143,141,156,166,141,163,075,150,151,144,144,145,156
	declend
	line	249
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	9
	var	12
	var	13
	line	254
	colm	20
	synt	any
	invoke	11
	line	254
	colm	13
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	1
	var	14
	var	0
	invoke	-1
	line	260
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	1
	line	263
	colm	8
	synt	any
	field	uid
	var	15
	line	263
	colm	24
	synt	any
	invoke	0
	line	263
	colm	13
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	1
	line	264
	colm	8
	synt	any
	field	V
	var	2
	line	264
	colm	11
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	1
	line	265
	colm	8
	synt	any
	field	F
	var	16
	line	265
	colm	23
	synt	any
	invoke	0
	line	265
	colm	11
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	pnull
	var	1
	line	266
	colm	8
	synt	any
	field	F
	line	266
	colm	10
	synt	any
	field	pick
	var	17
	line	266
	colm	16
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	pnull
	var	1
	line	267
	colm	8
	synt	any
	field	F
	line	267
	colm	10
	synt	any
	field	format
	var	18
	line	267
	colm	18
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	1
	line	269
	colm	8
	synt	any
	field	P
	var	19
	line	269
	colm	22
	synt	any
	invoke	0
	line	269
	colm	11
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	var	20
	var	1
	line	270
	colm	15
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	1
	line	271
	colm	8
	synt	any
	field	callback
	var	21
	line	271
	colm	26
	synt	any
	invoke	0
	line	271
	colm	18
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	1
	line	272
	colm	8
	synt	any
	field	temp
	var	22
	str	0
	str	1
	str	2
	line	272
	colm	21
	synt	any
	invoke	3
	line	272
	colm	14
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	mark	L15
	var	1
	line	274
	colm	4
	synt	any
	pret
lab L15
	synt	any
	pfail
	unmark
lab L14
	pnull
	line	275
	colm	1
	synt	any
	pfail
	end
proc outline_menu_pane
	local	0,001000,self
	local	1,000000,BevelRectangle
	declend
	line	280
	colm	11
	synt	any
	mark	L1
	var	1
	pnull
	var	0
	line	281
	colm	23
	synt	any
	field	win
	pnull
	var	0
	line	281
	colm	33
	synt	any
	field	ax
	pnull
	var	0
	line	281
	colm	42
	synt	any
	field	ay
	pnull
	var	0
	line	281
	colm	51
	synt	any
	field	aw
	pnull
	var	0
	line	281
	colm	60
	synt	any
	field	ah
	line	281
	colm	18
	synt	any
	invoke	5
	unmark
lab L1
	pnull
	line	282
	colm	1
	synt	any
	pfail
	end
proc format_Vmenu_frame
	local	0,001000,self
	local	1,001000,width
	local	2,000020,maxwidth
	local	3,000020,child
	local	4,000000,Vmin_frame_width
	local	5,000000,Vmin_frame_height
	con	0,002000,1,4
	con	1,002000,1,0
	con	2,002000,1,2
	declend
	line	288
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	mark	L2
	pnull
	var	1
	line	291
	colm	16
	synt	any
	nonnull
	line	291
	colm	23
	synt	any
	esusp
	goto	L3
lab L2
	pnull
	var	4
	var	0
	line	291
	colm	41
	synt	any
	invoke	1
	int	0
	line	291
	colm	48
	synt	any
	plus
lab L3
	line	291
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	line	292
	colm	4
	synt	every
	mark0
	pnull
	var	3
	pnull
	pnull
	var	0
	line	292
	colm	24
	synt	any
	field	lookup
	line	292
	colm	19
	synt	any
	bang
	line	292
	colm	16
	synt	any
	asgn
	pop
	mark0
	pnull
	pnull
	pnull
	var	3
	line	293
	colm	12
	synt	any
	field	P
	line	293
	colm	14
	synt	any
	field	w
	pnull
	var	2
	int	0
	line	293
	colm	29
	synt	any
	minus
	line	293
	colm	17
	synt	any
	asgn
	unmark
lab L5
	efail
lab L6
	line	292
	colm	4
	synt	endevery
	unmark
lab L4
	mark	L7
	pnull
	pnull
	var	0
	line	295
	colm	8
	synt	any
	field	V
	line	295
	colm	10
	synt	any
	field	resize
	var	0
	int	1
	int	1
	var	2
	pnull
	var	5
	var	0
	line	295
	colm	57
	synt	any
	invoke	1
	int	2
	line	295
	colm	64
	synt	any
	plus
	line	295
	colm	17
	synt	any
	invoke	5
	unmark
lab L7
	pnull
	line	296
	colm	1
	synt	any
	pfail
	end
proc show_Vmenu_frame
	local	0,001000,self
	local	1,000000,WAttrib
	local	2,000000,CopyArea
	local	3,000000,draw_Vframe
	con	0,010000,6,167,151,144,164,150,075
	con	1,002000,2,10
	con	2,010000,7,150,145,151,147,150,164,075
	con	3,002000,1,5
	con	4,002000,1,0
	con	5,002000,1,1
	declend
	line	302
	colm	11
	synt	any
	mark	L1
	var	1
	pnull
	var	0
	line	304
	colm	16
	synt	any
	field	temp
	pnull
	str	0
	pnull
	pnull
	var	0
	line	304
	colm	38
	synt	any
	field	aw
	int	1
	line	304
	colm	41
	synt	any
	plus
	line	304
	colm	31
	synt	any
	cat
	pnull
	str	2
	pnull
	pnull
	var	0
	line	304
	colm	63
	synt	any
	field	ah
	int	1
	line	304
	colm	66
	synt	any
	plus
	line	304
	colm	56
	synt	any
	cat
	line	304
	colm	11
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	var	2
	pnull
	var	0
	line	305
	colm	17
	synt	any
	field	win
	pnull
	var	0
	line	305
	colm	27
	synt	any
	field	temp
	pnull
	var	0
	line	305
	colm	38
	synt	any
	field	ax
	pnull
	var	0
	line	305
	colm	47
	synt	any
	field	ay
	pnull
	pnull
	var	0
	line	305
	colm	56
	synt	any
	field	aw
	int	3
	line	305
	colm	59
	synt	any
	plus
	pnull
	pnull
	var	0
	line	305
	colm	67
	synt	any
	field	ah
	int	3
	line	305
	colm	70
	synt	any
	plus
	int	4
	int	4
	line	305
	colm	12
	synt	any
	invoke	8
	unmark
lab L2
	mark	L3
	var	3
	var	0
	line	306
	colm	15
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	307
	colm	8
	synt	any
	field	drawn
	int	5
	line	307
	colm	15
	synt	any
	asgn
	unmark
lab L4
	pnull
	line	308
	colm	1
	synt	any
	pfail
	end
proc hide_Vmenu_frame
	local	0,001000,self
	local	1,000000,CopyArea
	con	0,002000,1,0
	con	1,002000,1,5
	declend
	line	314
	colm	11
	synt	any
	mark	L1
	var	1
	pnull
	var	0
	line	316
	colm	17
	synt	any
	field	temp
	pnull
	var	0
	line	316
	colm	28
	synt	any
	field	win
	int	0
	int	0
	pnull
	pnull
	var	0
	line	316
	colm	44
	synt	any
	field	aw
	int	1
	line	316
	colm	47
	synt	any
	plus
	pnull
	pnull
	var	0
	line	316
	colm	55
	synt	any
	field	ah
	int	1
	line	316
	colm	58
	synt	any
	plus
	pnull
	var	0
	line	316
	colm	66
	synt	any
	field	ax
	pnull
	var	0
	line	316
	colm	75
	synt	any
	field	ay
	line	316
	colm	12
	synt	any
	invoke	8
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	317
	colm	8
	synt	any
	field	drawn
	line	317
	colm	18
	synt	any
	keywd	null
	line	317
	colm	15
	synt	any
	asgn
	unmark
lab L2
	pnull
	line	318
	colm	1
	synt	any
	pfail
	end
proc pick_Vmenu_frame
	local	0,001000,self
	local	1,001000,e
	local	2,001000,sub
	local	3,000020,focus
	local	4,000020,rv
	local	5,000000,show_Vmenu_frame
	local	6,000000,V_DRAGGING
	local	7,000000,Event
	con	0,002000,1,1
	con	1,010000,1,023
	declend
	line	324
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	327
	colm	4
	synt	any
	null
	pnull
	int	0
	line	327
	colm	10
	synt	any
	neg
	line	327
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	328
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	328
	colm	12
	synt	any
	field	drawn
	line	328
	colm	7
	synt	any
	null
	unmark
	var	5
	var	0
	line	329
	colm	23
	synt	any
	invoke	1
	line	328
	colm	4
	synt	endif
	unmark
lab L2
	mark	L3
	pnull
	var	4
	var	6
	line	330
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
lab L5
	line	331
	colm	4
	synt	repeat
	mark	L5
	mark	L8
	pnull
	var	3
	mark	L9
	pnull
	pnull
	var	0
	line	332
	colm	20
	synt	any
	field	V
	line	332
	colm	22
	synt	any
	field	lookup
	var	0
	line	332
	colm	36
	synt	any
	keywd	x
	line	332
	colm	40
	synt	any
	keywd	y
	line	332
	colm	29
	synt	any
	invoke	3
	line	332
	colm	44
	synt	any
	esusp
	goto	L10
lab L9
	line	332
	colm	46
	synt	any
	keywd	null
lab L10
	line	332
	colm	13
	synt	any
	asgn
	unmark
lab L8
	mark	L11
	line	333
	colm	7
	synt	ifelse
	mark	L12
	pnull
	var	1
	mark	L14
	line	333
	colm	18
	synt	any
	keywd	lrelease
	line	333
	colm	27
	synt	any
	esusp
	goto	L15
lab L14
	mark	L16
	line	333
	colm	28
	synt	any
	keywd	mrelease
	line	333
	colm	37
	synt	any
	esusp
	goto	L17
lab L16
	line	333
	colm	38
	synt	any
	keywd	rrelease
lab L17
lab L15
	line	333
	colm	13
	synt	any
	eqv
	pop
	pnull
	var	3
	line	333
	colm	51
	synt	any
	null
	unmark
	line	333
	colm	64
	synt	any
	pfail
	goto	L13
lab L12
	line	334
	colm	12
	synt	ifelse
	mark	L18
	mark	L20
	pushn1
	pnull
	var	2
	line	334
	colm	16
	synt	any
	null
	pnull
	line	334
	colm	22
	synt	any
	keywd	y
	pnull
	var	0
	line	334
	colm	31
	synt	any
	field	ay
	line	334
	colm	25
	synt	any
	numlt
	line	334
	colm	15
	synt	any
	invoke	2
	line	334
	colm	36
	synt	any
	esusp
	goto	L21
lab L20
	pushn1
	pnull
	var	2
	line	334
	colm	39
	synt	any
	nonnull
	pnull
	line	334
	colm	45
	synt	any
	keywd	x
	pnull
	var	0
	line	334
	colm	54
	synt	any
	field	ax
	line	334
	colm	48
	synt	any
	numlt
	line	334
	colm	38
	synt	any
	invoke	2
lab L21
	unmark
	mark	L22
	var	6
	line	334
	colm	64
	synt	any
	pret
lab L22
	synt	any
	pfail
	goto	L19
lab L18
	line	335
	colm	12
	synt	ifelse
	mark	L23
	pnull
	var	4
	pnull
	pnull
	pnull
	var	3
	line	335
	colm	22
	synt	any
	nonnull
	line	335
	colm	29
	synt	any
	field	V
	line	335
	colm	31
	synt	any
	field	event
	var	3
	var	1
	var	2
	line	335
	colm	37
	synt	any
	invoke	3
	line	335
	colm	18
	synt	any
	asgn
	unmark
	mark	L25
	var	4
	line	335
	colm	58
	synt	any
	pret
lab L25
	synt	any
	pfail
	goto	L24
lab L23
	line	336
	colm	12
	synt	if
	mark0
	pnull
	var	1
	str	1
	line	336
	colm	18
	synt	any
	eqv
	pop
	pnull
	var	3
	line	336
	colm	30
	synt	any
	null
	unmark
lab L26
	line	337
	colm	10
	synt	until
	mark	L27
	pnull
	var	7
	pnull
	var	0
	line	337
	colm	26
	synt	any
	field	win
	line	337
	colm	21
	synt	any
	invoke	1
	mark	L30
	line	337
	colm	37
	synt	any
	keywd	lpress
	line	337
	colm	44
	synt	any
	esusp
	goto	L31
lab L30
	mark	L32
	line	337
	colm	45
	synt	any
	keywd	mpress
	line	337
	colm	52
	synt	any
	esusp
	goto	L33
lab L32
	line	337
	colm	53
	synt	any
	keywd	rpress
lab L33
lab L31
	line	337
	colm	32
	synt	any
	eqv
	unmark
	efail
lab L27
	mark	L26
	pnull
lab L28
	unmark
	goto	L26
lab L29
	line	337
	colm	10
	synt	enduntil
	line	336
	colm	12
	synt	endif
lab L24
	line	335
	colm	12
	synt	endifelse
lab L19
	line	334
	colm	12
	synt	endifelse
lab L13
	line	333
	colm	7
	synt	endifelse
	unmark
lab L11
	pnull
	var	1
	var	7
	pnull
	var	0
	line	338
	colm	22
	synt	any
	field	win
	line	338
	colm	17
	synt	any
	invoke	1
	line	338
	colm	9
	synt	any
	asgn
lab L6
	unmark
	goto	L5
lab L7
	line	331
	colm	4
	synt	endrepeat
	unmark
lab L4
	pnull
	line	340
	colm	1
	synt	any
	pfail
	end
proc insert_Vmenu_frame
	local	0,001000,self
	local	1,001000,vid
	local	2,001000,x
	local	3,001000,y
	local	4,000020,s
	local	5,000000,insert_Vframe
	local	6,000000,type
	con	0,010000,5,164,141,142,154,145
	con	1,002000,1,1
	con	2,002000,1,2
	declend
	line	347
	colm	11
	synt	any
	mark	L1
	var	5
	var	0
	var	1
	var	2
	var	3
	line	350
	colm	17
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	4
	mark	L3
	pushn1
	pnull
	var	6
	pnull
	var	1
	line	351
	colm	18
	synt	any
	field	callback
	line	351
	colm	14
	synt	any
	invoke	1
	str	0
	line	351
	colm	29
	synt	any
	lexeq
	pnull
	pnull
	var	1
	line	351
	colm	44
	synt	any
	field	s
	int	1
	pnull
	int	2
	line	351
	colm	49
	synt	any
	neg
	line	351
	colm	48
	synt	any
	synt	any
	sect
	line	351
	colm	9
	synt	any
	invoke	2
	line	351
	colm	54
	synt	any
	esusp
	goto	L4
lab L3
	pnull
	var	1
	line	351
	colm	59
	synt	any
	field	s
lab L4
	line	351
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	pnull
	pnull
	pnull
	var	0
	line	352
	colm	8
	synt	any
	field	callback
	pnull
	pnull
	var	1
	line	352
	colm	22
	synt	any
	field	uid
	line	352
	colm	18
	synt	any
	nonnull
	line	352
	colm	17
	synt	any
	subsc
	pnull
	pnull
	var	1
	line	352
	colm	35
	synt	any
	field	callback
	var	4
	line	352
	colm	31
	synt	any
	llist	2
	line	352
	colm	28
	synt	any
	asgn
	unmark
lab L5
	pnull
	line	353
	colm	1
	synt	any
	pfail
	end
proc Vsub_menu
	local	0,001000,w
	local	1,001000,p
	local	2,000020,frame
	local	3,000020,id
	local	4,000020,name
	local	5,000020,callback
	local	6,000020,ypos
	local	7,000020,item
	local	8,000000,Vwin_check
	local	9,000000,Vmenu_frame
	local	10,000000,pop
	local	11,000000,type
	local	12,000000,numeric
	local	13,000000,_Vbomb
	local	14,000000,image
	local	15,000000,tab
	local	16,000000,Vmenu_item
	local	17,000000,VInsert
	local	18,000000,VFormat
	con	0,010000,11,126,163,165,142,137,155,145,156,165,050,051
	con	1,002000,1,1
	con	2,002000,1,0
	con	3,010000,6,163,164,162,151,156,147
	con	4,010000,35,151,156,166,141,154,151,144,040,154,141,142,145,154,040,160,141,163,163,145,144,040,164,157,040,126,163,165,142,137,155,145,156,165,050,051
	con	5,010000,8,146,165,156,143,164,151,157,156
	con	6,010000,13,111,143,157,156,040,146,165,156,143,164,151,157,156
	con	7,010000,45,050,051,040,156,157,164,040,141,154,154,157,167,145,144,040,141,163,040,143,141,154,154,142,141,143,153,040,146,162,157,155,040,163,165,142,137,155,145,156,165,040,151,164,145,155
	con	8,002000,1,2
	declend
	line	359
	colm	11
	synt	any
	mark	L1
	var	8
	var	0
	str	0
	line	362
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	9
	var	0
	line	364
	colm	24
	synt	any
	invoke	1
	line	364
	colm	10
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	int	1
	line	365
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	6
	int	2
	line	366
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L5
lab L6
	line	367
	colm	4
	synt	while
	mark0
	pnull
	pnull
	var	4
	var	10
	var	1
	line	367
	colm	23
	synt	any
	invoke	1
	line	367
	colm	17
	synt	any
	asgn
	line	367
	colm	10
	synt	any
	nonnull
	unmark
	mark	L6
	mark	L9
	pnull
	var	5
	mark	L10
	var	10
	var	1
	line	368
	colm	22
	synt	any
	invoke	1
	line	368
	colm	26
	synt	any
	esusp
	goto	L11
lab L10
	line	368
	colm	28
	synt	any
	keywd	null
lab L11
	line	368
	colm	16
	synt	any
	asgn
	unmark
lab L9
	mark	L12
	line	369
	colm	7
	synt	if
	mark0
	pnull
	var	11
	pnull
	var	4
	line	369
	colm	15
	synt	any
	nonnull
	line	369
	colm	14
	synt	any
	invoke	1
	str	3
	line	369
	colm	22
	synt	any
	lexne
	pop
	mark	L13
	var	12
	var	4
	line	369
	colm	48
	synt	any
	invoke	1
	unmark
	efail
lab L13
	pnull
	unmark
	var	13
	str	4
	line	370
	colm	16
	synt	any
	invoke	1
	line	369
	colm	7
	synt	endif
	unmark
lab L12
	mark	L14
	var	14
	var	5
	line	371
	colm	12
	synt	any
	invoke	1
	line	371
	colm	23
	synt	any
	bscan
	line	371
	colm	27
	synt	if
	mark0
	pnull
	str	5
	line	371
	colm	30
	synt	any
	tabmat
	unmark
	var	13
	pnull
	pnull
	str	6
	var	15
	int	2
	line	372
	colm	39
	synt	any
	invoke	1
	line	372
	colm	33
	synt	any
	cat
	str	7
	line	372
	colm	43
	synt	any
	cat
	line	372
	colm	16
	synt	any
	invoke	1
	line	371
	colm	27
	synt	endif
	line	371
	colm	23
	synt	any
	escan
	unmark
lab L14
	mark	L15
	pnull
	var	7
	var	16
	var	0
	var	4
	var	5
	var	3
	line	375
	colm	25
	synt	any
	invoke	4
	line	375
	colm	12
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	var	17
	var	2
	var	7
	int	8
	var	6
	line	376
	colm	14
	synt	any
	invoke	4
	unmark
lab L16
	mark	L17
	pnull
	var	3
	dup
	int	1
	line	377
	colm	10
	synt	any
	plus
	asgn
	unmark
lab L17
	pnull
	var	6
	dup
	pnull
	var	7
	line	378
	colm	20
	synt	any
	field	ah
	line	378
	colm	12
	synt	any
	plus
	asgn
lab L7
	unmark
	goto	L6
lab L8
	line	367
	colm	4
	synt	endwhile
	unmark
lab L5
	mark	L18
	var	18
	var	2
	line	380
	colm	11
	synt	any
	invoke	1
	unmark
lab L18
	mark	L19
	mark	L20
	var	2
	line	381
	colm	4
	synt	any
	pret
lab L20
	synt	any
	pfail
	unmark
lab L19
	pnull
	line	382
	colm	1
	synt	any
	pfail
	end
proc Vmenu_bar
	local	0,001000,p
	local	1,000020,parent
	local	2,000020,x
	local	3,000020,y
	local	4,000020,ins
	local	5,000020,frame
	local	6,000020,id
	local	7,000020,name
	local	8,000020,submenu
	local	9,000020,xpos
	local	10,000020,item
	local	11,000020,win
	local	12,000000,Vinsert_check
	local	13,000000,pop
	local	14,000000,Vwin_check
	local	15,000000,Vframe
	local	16,000000,type
	local	17,000000,numeric
	local	18,000000,_Vbomb
	local	19,000000,Vmenu_bar_item
	local	20,000000,VInsert
	local	21,000000,VFormat
	local	22,000000,null_proc
	con	0,010000,11,126,155,145,156,165,137,142,141,162,050,051
	con	1,002000,1,0
	con	2,010000,6,163,164,162,151,156,147
	con	3,010000,35,151,156,166,141,154,151,144,040,154,141,142,145,154,040,160,141,163,163,145,144,040,164,157,040,126,155,145,156,165,137,142,141,162,050,051
	con	4,010000,15,126,155,145,156,165,137,146,162,141,155,145,137,162,145,143
	con	5,010000,37,151,156,166,141,154,151,144,040,155,145,156,165,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,155,145,156,165,137,142,141,162,050,051
	con	6,002000,1,1
	declend
	line	384
	colm	11
	synt	any
	mark	L1
	line	387
	colm	4
	synt	if
	mark0
	pnull
	var	4
	var	12
	var	0
	line	387
	colm	27
	synt	any
	invoke	1
	line	387
	colm	11
	synt	any
	asgn
	unmark
	mark	L2
	pnull
	var	1
	var	13
	var	0
	line	388
	colm	20
	synt	any
	invoke	1
	line	388
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	var	13
	var	0
	line	388
	colm	33
	synt	any
	invoke	1
	line	388
	colm	27
	synt	any
	asgn
	unmark
lab L3
	pnull
	var	3
	var	13
	var	0
	line	388
	colm	45
	synt	any
	invoke	1
	line	388
	colm	39
	synt	any
	asgn
	line	387
	colm	4
	synt	endif
	unmark
lab L1
	mark	L4
	pnull
	var	11
	var	13
	var	0
	line	390
	colm	14
	synt	any
	invoke	1
	line	390
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	var	14
	var	11
	str	0
	line	391
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	pnull
	var	5
	var	15
	var	11
	line	393
	colm	19
	synt	any
	invoke	1
	line	393
	colm	10
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	9
	pnull
	var	6
	int	1
	line	394
	colm	15
	synt	any
	asgn
	line	394
	colm	9
	synt	any
	asgn
	unmark
lab L7
	mark	L8
lab L9
	line	395
	colm	4
	synt	while
	mark0
	pnull
	var	7
	var	13
	var	0
	line	395
	colm	21
	synt	any
	invoke	1
	line	395
	colm	15
	synt	any
	asgn
	unmark
	mark	L9
	mark	L12
	pnull
	var	8
	mark	L13
	var	13
	var	0
	line	396
	colm	21
	synt	any
	invoke	1
	line	396
	colm	25
	synt	any
	esusp
	goto	L14
lab L13
	line	396
	colm	27
	synt	any
	keywd	null
lab L14
	line	396
	colm	15
	synt	any
	asgn
	unmark
lab L12
	mark	L15
	line	397
	colm	7
	synt	if
	mark0
	pnull
	var	16
	pnull
	var	7
	line	397
	colm	15
	synt	any
	nonnull
	line	397
	colm	14
	synt	any
	invoke	1
	str	2
	line	397
	colm	22
	synt	any
	lexne
	pop
	mark	L16
	var	17
	var	7
	line	397
	colm	48
	synt	any
	invoke	1
	unmark
	efail
lab L16
	pnull
	unmark
	var	18
	str	3
	line	398
	colm	16
	synt	any
	invoke	1
	line	397
	colm	7
	synt	endif
	unmark
lab L15
	mark	L17
	line	399
	colm	7
	synt	if
	mark0
	pnull
	var	16
	pnull
	var	8
	line	399
	colm	15
	synt	any
	nonnull
	line	399
	colm	14
	synt	any
	invoke	1
	str	4
	line	399
	colm	25
	synt	any
	lexne
	unmark
	var	18
	str	5
	line	400
	colm	16
	synt	any
	invoke	1
	line	399
	colm	7
	synt	endif
	unmark
lab L17
	mark	L18
	pnull
	var	10
	var	19
	var	11
	var	7
	pnull
	var	6
	pnull
	pnull
	var	8
	line	401
	colm	29
	synt	any
	invoke	7
	line	401
	colm	12
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	var	20
	var	5
	var	10
	var	9
	int	1
	line	402
	colm	14
	synt	any
	invoke	4
	unmark
lab L19
	mark	L20
	pnull
	var	6
	dup
	int	6
	line	403
	colm	10
	synt	any
	plus
	asgn
	unmark
lab L20
	pnull
	var	9
	dup
	pnull
	var	10
	line	404
	colm	20
	synt	any
	field	aw
	line	404
	colm	12
	synt	any
	plus
	asgn
lab L10
	unmark
	goto	L9
lab L11
	line	395
	colm	4
	synt	endwhile
	unmark
lab L8
	mark	L21
	var	21
	var	5
	line	406
	colm	11
	synt	any
	invoke	1
	unmark
lab L21
	mark	L22
	pnull
	pnull
	pnull
	var	5
	line	407
	colm	9
	synt	any
	field	V
	line	407
	colm	11
	synt	any
	field	outline
	var	22
	line	407
	colm	20
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	line	409
	colm	4
	synt	if
	mark0
	pnull
	var	4
	line	409
	colm	7
	synt	any
	nonnull
	unmark
	var	20
	var	1
	var	5
	var	2
	var	3
	line	409
	colm	24
	synt	any
	invoke	4
	line	409
	colm	4
	synt	endif
	unmark
lab L23
	mark	L24
	mark	L25
	var	5
	line	411
	colm	4
	synt	any
	pret
lab L25
	synt	any
	pfail
	unmark
lab L24
	pnull
	line	412
	colm	1
	synt	any
	pfail
	end
proc Vpull_down_button
	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_Vpull_down_button
	local	9,000000,draw_Vpull_down_button
	local	10,000000,outline_menu_pane
	local	11,000000,resize_Vpull_down_button
	local	12,000000,inrange_Vpane
	local	13,000000,init_Vpull_down_button
	local	14,000000,couplerset_Vpull_down_button
	local	15,000000,set_value_Vpull_down_button
	local	16,000000,Vinsert_check
	local	17,000000,pop
	local	18,000000,Vpull_down_button_rec
	local	19,000000,Vget_uid
	local	20,000000,type
	local	21,000000,_Vbomb
	local	22,000000,Vset_style
	local	23,000000,V_RECT
	local	24,000000,Vstd_pos
	local	25,000000,VInsert
	con	0,010000,15,126,155,145,156,165,137,146,162,141,155,145,137,162,145,143
	con	1,010000,51,126,160,165,154,154,137,144,157,167,156,137,142,165,164,164,157,156,040,155,165,163,164,040,142,145,040,143,162,145,141,164,145,144,040,167,151,164,150,040,141,040,126,160,165,154,154,137,144,157,167,156
	declend
	line	421
	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
	pnull
	pnull
	pnull
	pnull
	var	15
	line	426
	colm	25
	synt	any
	invoke	12
	line	426
	colm	18
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	430
	colm	4
	synt	if
	mark0
	pnull
	var	5
	var	16
	var	0
	line	430
	colm	27
	synt	any
	invoke	1
	line	430
	colm	11
	synt	any
	asgn
	unmark
	mark	L5
	pnull
	var	2
	var	17
	var	0
	line	431
	colm	19
	synt	any
	invoke	1
	line	431
	colm	13
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	3
	var	17
	var	0
	line	431
	colm	37
	synt	any
	invoke	1
	line	431
	colm	31
	synt	any
	asgn
	unmark
lab L6
	pnull
	var	4
	var	17
	var	0
	line	431
	colm	54
	synt	any
	invoke	1
	line	431
	colm	48
	synt	any
	asgn
	line	430
	colm	4
	synt	endif
	unmark
lab L4
	mark	L7
	pnull
	var	1
	var	18
	var	0
	invoke	-1
	line	433
	colm	9
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	1
	line	434
	colm	8
	synt	any
	field	uid
	var	19
	line	434
	colm	24
	synt	any
	invoke	0
	line	434
	colm	13
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	435
	colm	4
	synt	if
	mark0
	pnull
	var	20
	pnull
	var	1
	line	435
	colm	16
	synt	any
	field	pd
	line	435
	colm	11
	synt	any
	invoke	1
	str	0
	line	435
	colm	21
	synt	any
	lexne
	unmark
	var	21
	str	1
	line	436
	colm	13
	synt	any
	invoke	1
	line	435
	colm	4
	synt	endif
	unmark
lab L9
	mark	L10
	var	22
	var	1
	var	23
	line	437
	colm	14
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	1
	line	438
	colm	8
	synt	any
	field	V
	var	6
	line	438
	colm	11
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	1
	line	439
	colm	8
	synt	any
	field	P
	var	24
	line	439
	colm	22
	synt	any
	invoke	0
	line	439
	colm	11
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	1
	line	440
	colm	8
	synt	any
	field	V
	line	440
	colm	10
	synt	any
	field	init
	var	1
	line	440
	colm	15
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	line	441
	colm	4
	synt	if
	mark0
	pnull
	var	5
	line	441
	colm	7
	synt	any
	nonnull
	unmark
	var	25
	var	2
	var	1
	var	3
	var	4
	line	441
	colm	24
	synt	any
	invoke	4
	line	441
	colm	4
	synt	endif
	unmark
lab L14
	mark	L15
	mark	L16
	var	1
	line	442
	colm	4
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	443
	colm	1
	synt	any
	pfail
	end
proc draw_Vpull_down_button
	local	0,001000,self
	local	1,000000,draw_Vpull_down_button_off
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	445
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	447
	colm	8
	synt	any
	field	s
	pnull
	pnull
	var	0
	line	447
	colm	18
	synt	any
	field	data
	int	0
	mark	L2
	pnull
	var	0
	line	447
	colm	30
	synt	any
	field	sz
	line	447
	colm	33
	synt	any
	esusp
	goto	L3
lab L2
	int	1
lab L3
	line	447
	colm	25
	synt	any
	synt	any
	sect
	line	447
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	pnull
	pnull
	var	0
	line	448
	colm	8
	synt	any
	field	D
	line	448
	colm	10
	synt	any
	field	draw_off
	var	0
	line	448
	colm	19
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	var	0
	line	449
	colm	30
	synt	any
	invoke	1
	unmark
lab L5
	pnull
	line	450
	colm	1
	synt	any
	pfail
	end
proc draw_Vpull_down_button_arrow
	local	0,001000,self
	local	1,000020,x
	local	2,000020,y
	local	3,000020,sz
	local	4,000000,FillPolygon
	con	0,004000,0.1
	con	1,004000,0.2
	con	2,004000,0.9
	con	3,004000,0.5
	declend
	line	452
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	pnull
	var	0
	line	455
	colm	13
	synt	any
	field	ax
	pnull
	var	0
	line	455
	colm	21
	synt	any
	field	abx
	line	455
	colm	16
	synt	any
	plus
	line	455
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	line	455
	colm	36
	synt	any
	field	ay
	line	455
	colm	29
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	0
	line	455
	colm	51
	synt	any
	field	ah
	line	455
	colm	44
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	var	4
	pnull
	var	0
	line	457
	colm	20
	synt	any
	field	win
	pnull
	var	1
	pnull
	real	0
	var	3
	line	457
	colm	31
	synt	any
	mult
	line	457
	colm	27
	synt	any
	plus
	pnull
	var	2
	pnull
	real	1
	var	3
	line	457
	colm	41
	synt	any
	mult
	line	457
	colm	37
	synt	any
	plus
	pnull
	var	1
	pnull
	real	2
	var	3
	line	457
	colm	51
	synt	any
	mult
	line	457
	colm	47
	synt	any
	plus
	pnull
	var	2
	pnull
	real	1
	var	3
	line	457
	colm	61
	synt	any
	mult
	line	457
	colm	57
	synt	any
	plus
	pnull
	var	1
	pnull
	real	3
	var	3
	line	458
	colm	22
	synt	any
	mult
	line	458
	colm	18
	synt	any
	plus
	pnull
	var	2
	pnull
	real	2
	var	3
	line	458
	colm	32
	synt	any
	mult
	line	458
	colm	28
	synt	any
	plus
	pnull
	var	1
	pnull
	real	0
	var	3
	line	458
	colm	42
	synt	any
	mult
	line	458
	colm	38
	synt	any
	plus
	pnull
	var	2
	pnull
	real	1
	var	3
	line	458
	colm	52
	synt	any
	mult
	line	458
	colm	48
	synt	any
	plus
	line	457
	colm	15
	synt	any
	invoke	9
	unmark
lab L4
	pnull
	line	459
	colm	1
	synt	any
	pfail
	end
proc draw_Vpull_down_button_off
	local	0,001000,self
	local	1,000020,x
	local	2,000020,y
	local	3,000000,EraseArea
	local	4,000000,DrawRectangle
	local	5,000000,draw_Vpull_down_button_arrow
	con	0,002000,1,1
	declend
	line	461
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	var	0
	line	464
	colm	13
	synt	any
	field	ax
	line	464
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	line	464
	colm	27
	synt	any
	field	ay
	line	464
	colm	20
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	3
	pnull
	var	0
	line	465
	colm	18
	synt	any
	field	win
	pnull
	pnull
	var	1
	pnull
	var	0
	line	465
	colm	30
	synt	any
	field	abx
	line	465
	colm	25
	synt	any
	plus
	int	0
	line	465
	colm	34
	synt	any
	plus
	pnull
	var	2
	int	0
	line	465
	colm	39
	synt	any
	plus
	pnull
	pnull
	pnull
	var	0
	line	465
	colm	47
	synt	any
	field	aw
	pnull
	var	0
	line	465
	colm	55
	synt	any
	field	abx
	line	465
	colm	50
	synt	any
	minus
	int	0
	line	465
	colm	59
	synt	any
	minus
	pnull
	pnull
	var	0
	line	465
	colm	67
	synt	any
	field	ah
	int	0
	line	465
	colm	70
	synt	any
	minus
	line	465
	colm	13
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	pnull
	var	0
	line	466
	colm	22
	synt	any
	field	win
	pnull
	var	1
	pnull
	var	0
	line	466
	colm	34
	synt	any
	field	abx
	line	466
	colm	29
	synt	any
	plus
	var	2
	pnull
	pnull
	var	0
	line	466
	colm	47
	synt	any
	field	aw
	pnull
	var	0
	line	466
	colm	55
	synt	any
	field	abx
	line	466
	colm	50
	synt	any
	minus
	pnull
	var	0
	line	466
	colm	65
	synt	any
	field	ah
	line	466
	colm	17
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	5
	var	0
	line	467
	colm	32
	synt	any
	invoke	1
	unmark
lab L5
	pnull
	line	468
	colm	1
	synt	any
	pfail
	end
proc draw_Vpull_down_button_on
	local	0,001000,self
	local	1,000000,FillRectangle
	local	2,000000,WAttrib
	local	3,000000,draw_Vpull_down_button_arrow
	con	0,002000,1,1
	con	1,010000,10,162,145,166,145,162,163,145,075,157,156
	con	2,010000,11,162,145,166,145,162,163,145,075,157,146,146
	declend
	line	470
	colm	11
	synt	any
	mark	L1
	var	1
	pnull
	var	0
	line	472
	colm	22
	synt	any
	field	win
	pnull
	pnull
	pnull
	var	0
	line	472
	colm	32
	synt	any
	field	ax
	pnull
	var	0
	line	472
	colm	40
	synt	any
	field	abx
	line	472
	colm	35
	synt	any
	plus
	int	0
	line	472
	colm	44
	synt	any
	plus
	pnull
	pnull
	var	0
	line	472
	colm	52
	synt	any
	field	ay
	int	0
	line	472
	colm	55
	synt	any
	plus
	pnull
	pnull
	var	0
	line	472
	colm	63
	synt	any
	field	aw
	pnull
	var	0
	line	472
	colm	71
	synt	any
	field	abx
	line	472
	colm	66
	synt	any
	minus
	pnull
	var	0
	line	472
	colm	81
	synt	any
	field	ah
	line	472
	colm	17
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	var	2
	pnull
	var	0
	line	473
	colm	16
	synt	any
	field	win
	str	1
	line	473
	colm	11
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	3
	var	0
	line	474
	colm	32
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	2
	pnull
	var	0
	line	475
	colm	16
	synt	any
	field	win
	str	2
	line	475
	colm	11
	synt	any
	invoke	2
	unmark
lab L4
	pnull
	line	476
	colm	1
	synt	any
	pfail
	end
proc resize_Vpull_down_button
	local	0,001000,self
	local	1,001000,x
	local	2,001000,y
	local	3,001000,w
	local	4,001000,h
	local	5,000000,resize_Vidget
	declend
	line	478
	colm	11
	synt	any
	mark	L1
	var	5
	var	0
	var	1
	var	2
	var	3
	var	4
	line	480
	colm	17
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	481
	colm	8
	synt	any
	field	pd
	line	481
	colm	11
	synt	any
	field	F
	line	481
	colm	13
	synt	any
	field	format
	pnull
	var	0
	line	481
	colm	25
	synt	any
	field	pd
	pnull
	var	0
	line	481
	colm	34
	synt	any
	field	aw
	line	481
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	482
	colm	8
	synt	any
	field	pd
	line	482
	colm	11
	synt	any
	field	V
	line	482
	colm	13
	synt	any
	field	resize
	pnull
	var	0
	line	482
	colm	25
	synt	any
	field	pd
	pnull
	var	0
	line	482
	colm	34
	synt	any
	field	ax
	pnull
	pnull
	var	0
	line	482
	colm	43
	synt	any
	field	ay
	pnull
	var	0
	line	482
	colm	51
	synt	any
	field	ah
	line	482
	colm	46
	synt	any
	plus
	line	482
	colm	20
	synt	any
	invoke	3
	unmark
lab L3
	pnull
	line	483
	colm	1
	synt	any
	pfail
	end
proc couplerset_Vpull_down_button
	local	0,001000,self
	local	1,001000,name
	local	2,001000,value
	declend
	line	485
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	487
	colm	8
	synt	any
	field	D
	line	487
	colm	10
	synt	any
	field	draw_off
	var	0
	line	487
	colm	19
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	488
	colm	1
	synt	any
	pfail
	end
proc event_Vpull_down_button
	local	0,001000,self
	local	1,001000,e
	local	2,000020,rv
	local	3,000000,draw_Vpull_down_button_on
	local	4,000000,show_Vmenu_frame
	local	5,000000,V_DRAGGING
	local	6,000000,Event
	local	7,000000,V_FAIL
	local	8,000000,draw_Vpull_down_button_off
	local	9,000000,hide_Vmenu_frame
	con	0,002000,1,1
	con	1,002000,1,2
	declend
	line	491
	colm	11
	synt	any
	mark	L1
	line	494
	colm	4
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	0
	line	494
	colm	12
	synt	any
	field	callback
	line	494
	colm	21
	synt	any
	field	locked
	line	494
	colm	7
	synt	any
	nonnull
	unmark
	line	494
	colm	34
	synt	any
	pfail
	line	494
	colm	4
	synt	endif
	unmark
lab L1
	mark	L2
	var	3
	var	0
	line	495
	colm	29
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	4
	pnull
	pnull
	var	0
	line	496
	colm	26
	synt	any
	field	pd
	line	496
	colm	21
	synt	any
	nonnull
	line	496
	colm	20
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	var	2
	var	5
	line	497
	colm	7
	synt	any
	asgn
	unmark
lab L4
	mark	L5
lab L6
	line	498
	colm	4
	synt	repeat
	mark	L6
	mark	L9
	line	499
	colm	7
	synt	ifelse
	mark	L10
	pnull
	pnull
	var	1
	line	499
	colm	10
	synt	any
	nonnull
	mark	L12
	line	499
	colm	18
	synt	any
	keywd	lrelease
	line	499
	colm	27
	synt	any
	esusp
	goto	L13
lab L12
	mark	L14
	line	499
	colm	28
	synt	any
	keywd	mrelease
	line	499
	colm	37
	synt	any
	esusp
	goto	L15
lab L14
	line	499
	colm	38
	synt	any
	keywd	rrelease
lab L15
lab L13
	line	499
	colm	13
	synt	any
	eqv
	unmark
	pnull
	var	2
	line	499
	colm	60
	synt	any
	keywd	null
	line	499
	colm	57
	synt	any
	asgn
	goto	L11
lab L10
	line	500
	colm	12
	synt	ifelse
	mark	L16
	pnull
	pnull
	var	0
	line	500
	colm	19
	synt	any
	field	V
	line	500
	colm	21
	synt	any
	field	inrange
	var	0
	line	500
	colm	36
	synt	any
	keywd	x
	line	500
	colm	40
	synt	any
	keywd	y
	line	500
	colm	29
	synt	any
	invoke	3
	unmark
	pnull
	var	2
	var	5
	line	500
	colm	52
	synt	any
	asgn
	goto	L17
lab L16
	line	501
	colm	12
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	0
	line	501
	colm	20
	synt	any
	field	ax
	line	501
	colm	27
	synt	any
	keywd	x
	line	501
	colm	24
	synt	any
	numle
	pnull
	pnull
	var	0
	line	501
	colm	37
	synt	any
	field	ax
	pnull
	var	0
	line	501
	colm	45
	synt	any
	field	aw
	line	501
	colm	40
	synt	any
	plus
	line	501
	colm	30
	synt	any
	numle
	pop
	pnull
	line	501
	colm	53
	synt	any
	keywd	y
	pnull
	pnull
	var	0
	line	501
	colm	63
	synt	any
	field	ay
	pnull
	var	0
	line	501
	colm	71
	synt	any
	field	ah
	line	501
	colm	66
	synt	any
	plus
	line	501
	colm	56
	synt	any
	numge
	unmark
	pnull
	var	2
	pnull
	pnull
	pnull
	pnull
	var	0
	line	502
	colm	22
	synt	any
	field	pd
	line	502
	colm	17
	synt	any
	nonnull
	line	502
	colm	26
	synt	any
	field	F
	line	502
	colm	28
	synt	any
	field	pick
	pnull
	var	0
	line	502
	colm	38
	synt	any
	field	pd
	var	1
	line	502
	colm	33
	synt	any
	invoke	2
	line	502
	colm	13
	synt	any
	asgn
	line	501
	colm	12
	synt	endif
lab L17
	line	500
	colm	12
	synt	endifelse
lab L11
	line	499
	colm	7
	synt	endifelse
	unmark
lab L9
	line	503
	colm	7
	synt	ifelse
	mark	L18
	pnull
	pnull
	var	2
	line	503
	colm	10
	synt	any
	nonnull
	var	5
	line	503
	colm	14
	synt	any
	eqv
	unmark
	mark	L20
	pnull
	var	1
	var	6
	pnull
	var	0
	line	504
	colm	25
	synt	any
	field	win
	line	504
	colm	20
	synt	any
	invoke	1
	line	504
	colm	12
	synt	any
	asgn
	unmark
lab L20
	pnull
	var	2
	line	505
	colm	16
	synt	any
	keywd	null
	line	505
	colm	13
	synt	any
	asgn
	goto	L19
lab L18
	unmark
	pnull
	goto	L8
lab L19
	line	503
	colm	7
	synt	endifelse
lab L7
	unmark
	goto	L6
lab L8
	line	498
	colm	4
	synt	endrepeat
	unmark
lab L5
	mark	L21
	line	509
	colm	4
	synt	if
	mark0
	pnull
	var	2
	var	7
	line	509
	colm	10
	synt	any
	eqv
	unmark
	pnull
	var	2
	line	509
	colm	32
	synt	any
	keywd	null
	line	509
	colm	29
	synt	any
	asgn
	line	509
	colm	4
	synt	endif
	unmark
lab L21
	mark	L22
	var	8
	var	0
	line	510
	colm	30
	synt	any
	invoke	1
	unmark
lab L22
	mark	L23
	var	9
	pnull
	pnull
	var	0
	line	511
	colm	26
	synt	any
	field	pd
	line	511
	colm	21
	synt	any
	nonnull
	line	511
	colm	20
	synt	any
	invoke	1
	unmark
lab L23
	mark	L24
	line	512
	colm	4
	synt	if
	mark0
	pnull
	var	2
	line	512
	colm	7
	synt	any
	nonnull
	unmark
	mark	L25
	pnull
	pnull
	var	0
	line	513
	colm	11
	synt	any
	field	data
	pnull
	pnull
	pnull
	pnull
	var	0
	line	513
	colm	24
	synt	any
	field	pd
	line	513
	colm	27
	synt	any
	field	callback
	pnull
	var	2
	int	0
	line	513
	colm	39
	synt	any
	subsc
	line	513
	colm	36
	synt	any
	subsc
	int	1
	line	513
	colm	43
	synt	any
	subsc
	line	513
	colm	17
	synt	any
	asgn
	unmark
lab L25
	mark	L26
	pnull
	pnull
	var	0
	line	514
	colm	11
	synt	any
	field	V
	line	514
	colm	13
	synt	any
	field	draw
	var	0
	line	514
	colm	18
	synt	any
	invoke	1
	unmark
lab L26
	mark	L27
	pnull
	pnull
	pnull
	var	0
	line	515
	colm	11
	synt	any
	field	callback
	line	515
	colm	20
	synt	any
	field	V
	line	515
	colm	22
	synt	any
	field	set
	pnull
	var	0
	line	515
	colm	31
	synt	any
	field	callback
	var	0
	pnull
	var	0
	line	515
	colm	52
	synt	any
	field	data
	line	515
	colm	26
	synt	any
	invoke	3
	unmark
lab L27
	mark	L28
	pnull
	var	0
	line	516
	colm	18
	synt	any
	field	data
	line	516
	colm	7
	synt	any
	pret
lab L28
	synt	any
	pfail
	line	512
	colm	4
	synt	endif
	unmark
lab L24
	pnull
	line	518
	colm	1
	synt	any
	pfail
	end
proc set_value_Vpull_down_button
	local	0,001000,self
	local	1,001000,value
	con	0,010000,0
	declend
	line	520
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	522
	colm	8
	synt	any
	field	data
	mark	L2
	pnull
	var	1
	line	522
	colm	17
	synt	any
	nonnull
	line	522
	colm	24
	synt	any
	esusp
	goto	L3
lab L2
	str	0
lab L3
	line	522
	colm	14
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	523
	colm	1
	synt	any
	pfail
	end
proc init_Vpull_down_button
	local	0,001000,self
	local	1,000020,p
	local	2,000000,WAttrib
	local	3,000000,Vcoupler
	local	4,000000,add_clients_Vinit
	con	0,010000,0
	con	1,002000,2,24
	con	2,010000,6,146,167,151,144,164,150
	con	3,002000,1,8
	con	4,010000,7,146,150,145,151,147,150,164
	con	5,002000,1,4
	declend
	line	525
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	528
	colm	9
	synt	any
	field	data
	line	528
	colm	4
	synt	any
	null
	str	0
	line	528
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	529
	colm	8
	synt	any
	field	s
	pnull
	var	0
	line	529
	colm	18
	synt	any
	field	data
	line	529
	colm	11
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	530
	colm	9
	synt	any
	field	sz
	line	530
	colm	4
	synt	any
	null
	int	1
	line	530
	colm	13
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	531
	colm	8
	synt	any
	field	aw
	pnull
	pnull
	var	2
	pnull
	var	0
	line	531
	colm	27
	synt	any
	field	win
	str	2
	line	531
	colm	22
	synt	any
	invoke	2
	pnull
	var	0
	line	531
	colm	47
	synt	any
	field	sz
	line	531
	colm	42
	synt	any
	mult
	int	3
	line	531
	colm	51
	synt	any
	plus
	line	531
	colm	12
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	0
	line	532
	colm	8
	synt	any
	field	ah
	var	2
	pnull
	var	0
	line	532
	colm	27
	synt	any
	field	win
	str	4
	line	532
	colm	22
	synt	any
	invoke	2
	line	532
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	0
	line	534
	colm	8
	synt	any
	field	abx
	pnull
	var	0
	line	534
	colm	20
	synt	any
	field	aw
	line	534
	colm	13
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	0
	line	536
	colm	8
	synt	any
	field	aw
	dup
	var	2
	pnull
	var	0
	line	536
	colm	28
	synt	any
	field	win
	str	4
	line	536
	colm	23
	synt	any
	invoke	2
	line	536
	colm	12
	synt	any
	plus
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	1
	pnull
	pnull
	var	0
	line	538
	colm	14
	synt	any
	field	callback
	line	538
	colm	9
	synt	any
	nonnull
	line	538
	colm	6
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	0
	line	539
	colm	8
	synt	any
	field	callback
	var	3
	line	539
	colm	29
	synt	any
	invoke	0
	line	539
	colm	18
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	var	4
	pnull
	var	0
	line	540
	colm	26
	synt	any
	field	callback
	var	1
	var	0
	line	540
	colm	21
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	0
	line	542
	colm	8
	synt	any
	field	D
	line	542
	colm	10
	synt	any
	field	init
	var	0
	line	542
	colm	15
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	pnull
	pnull
	pnull
	var	0
	line	543
	colm	8
	synt	any
	field	D
	line	543
	colm	10
	synt	any
	field	basex
	int	5
	line	543
	colm	17
	synt	any
	asgn
	unmark
lab L12
	pnull
	line	544
	colm	1
	synt	any
	pfail
	end
proc Vmenu_set_items
	local	0,001000,self
	local	1,001000,data
	local	2,000020,cb
	local	3,000020,item
	local	4,000000,Vmenu_set_submenu
	local	5,000000,VResize
	con	0,002000,1,1
	declend
	line	554
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	pnull
	pnull
	pnull
	pnull
	var	0
	line	557
	colm	16
	synt	any
	field	lookup
	int	0
	line	557
	colm	23
	synt	any
	subsc
	line	557
	colm	26
	synt	any
	field	callback
	line	557
	colm	11
	synt	any
	bang
	line	557
	colm	10
	synt	any
	bang
	line	557
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	pnull
	pnull
	var	0
	line	558
	colm	16
	synt	any
	field	lookup
	int	0
	line	558
	colm	23
	synt	any
	subsc
	line	558
	colm	9
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	3
	line	559
	colm	8
	synt	any
	field	menu
	var	4
	pnull
	var	0
	line	559
	colm	39
	synt	any
	field	win
	var	1
	var	2
	line	559
	colm	34
	synt	any
	invoke	3
	line	559
	colm	14
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	3
	line	560
	colm	8
	synt	any
	field	callback
	pnull
	pnull
	var	3
	line	560
	colm	25
	synt	any
	field	menu
	line	560
	colm	30
	synt	any
	field	callback
	line	560
	colm	18
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	var	5
	var	0
	line	561
	colm	11
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	line	562
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	563
	colm	1
	synt	any
	pfail
	end
proc Vmenu_set_submenu
	local	0,001000,win
	local	1,001000,data
	local	2,001000,cbk
	local	3,000020,a
	local	4,000020,c
	local	5,000020,e
	local	6,000020,i
	local	7,000020,lbl
	local	8,000000,type
	local	9,000000,_Vbomb
	local	10,000000,copy
	local	11,000000,put
	local	12,000000,string
	local	13,000000,get
	local	14,000000,Vmenu_set_submenu
	local	15,000000,Vsub_menu
	con	0,010000,4,154,151,163,164
	con	1,002000,1,0
	con	2,010000,42,145,155,160,164,171,040,157,162,040,151,156,166,141,154,151,144,040,155,145,156,165,040,154,151,163,164,040,146,157,162,040,126,123,145,164,111,164,145,155,163,050,051
	con	3,010000,39,151,156,166,141,154,151,144,040,155,145,156,165,040,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
	con	4,002000,1,1
	declend
	line	565
	colm	11
	synt	any
	mark	L1
	line	568
	colm	4
	synt	if
	mark0
	mark	L2
	pnull
	var	8
	var	1
	line	568
	colm	11
	synt	any
	invoke	1
	str	0
	line	568
	colm	18
	synt	any
	lexne
	line	568
	colm	29
	synt	any
	esusp
	goto	L3
lab L2
	pnull
	pnull
	var	1
	line	568
	colm	31
	synt	any
	size
	int	1
	line	568
	colm	37
	synt	any
	numeq
lab L3
	unmark
	var	9
	str	2
	line	569
	colm	13
	synt	any
	invoke	1
	line	568
	colm	4
	synt	endif
	unmark
lab L1
	mark	L4
	pnull
	var	1
	var	10
	var	1
	line	570
	colm	16
	synt	any
	invoke	1
	line	570
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	3
	pnull
	var	0
	line	572
	colm	9
	synt	any
	llist	1
	line	572
	colm	6
	synt	any
	asgn
	unmark
lab L5
	mark	L6
lab L7
	line	573
	colm	4
	synt	while
	mark0
	pnull
	pnull
	var	1
	line	573
	colm	10
	synt	any
	size
	int	1
	line	573
	colm	16
	synt	any
	numgt
	unmark
	mark	L7
	mark	L10
	mark	L11
	var	11
	var	3
	var	12
	var	13
	var	1
	line	574
	colm	24
	synt	any
	invoke	1
	line	574
	colm	20
	synt	any
	invoke	1
	line	574
	colm	10
	synt	any
	invoke	2
	line	574
	colm	33
	synt	any
	esusp
	goto	L12
lab L11
	var	9
	str	3
	line	575
	colm	16
	synt	any
	invoke	1
lab L12
	unmark
lab L10
	line	576
	colm	7
	synt	ifelse
	mark	L13
	pnull
	var	8
	pnull
	var	1
	int	4
	line	576
	colm	19
	synt	any
	subsc
	line	576
	colm	14
	synt	any
	invoke	1
	str	0
	line	576
	colm	24
	synt	any
	lexeq
	unmark
	var	11
	var	3
	var	14
	var	0
	var	13
	var	1
	line	577
	colm	43
	synt	any
	invoke	1
	var	2
	line	577
	colm	34
	synt	any
	invoke	3
	line	577
	colm	13
	synt	any
	invoke	2
	goto	L14
lab L13
	var	11
	var	3
	var	2
	line	579
	colm	13
	synt	any
	invoke	2
lab L14
	line	576
	colm	7
	synt	endifelse
lab L8
	unmark
	goto	L7
lab L9
	line	573
	colm	4
	synt	endwhile
	unmark
lab L6
	mark	L15
	mark	L16
	var	15
	var	3
	invoke	-1
	line	581
	colm	4
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	582
	colm	1
	synt	any
	pfail
	end
proc Vmenu_get_items
	local	0,001000,self
	local	1,000000,Vmenu_get_submenu
	con	0,002000,1,2
	declend
	line	588
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	1
	var	0
	line	589
	colm	28
	synt	any
	invoke	1
	int	0
	line	589
	colm	34
	synt	any
	subsc
	line	589
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	590
	colm	1
	synt	any
	pfail
	end
proc Vmenu_get_submenu
	local	0,001000,frame
	local	1,000020,l
	local	2,000020,r
	local	3,000000,list
	local	4,000000,put
	local	5,000000,Vmenu_get_submenu
	con	0,002000,1,1
	con	1,002000,1,2
	declend
	line	592
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	3
	line	595
	colm	13
	synt	any
	invoke	0
	line	595
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	596
	colm	4
	synt	every
	mark0
	pnull
	var	2
	pnull
	pnull
	var	0
	line	596
	colm	21
	synt	any
	field	lookup
	line	596
	colm	15
	synt	any
	bang
	line	596
	colm	12
	synt	any
	asgn
	pop
	mark0
	line	597
	colm	7
	synt	ifelse
	mark	L5
	pnull
	pnull
	var	2
	line	597
	colm	12
	synt	any
	field	menu
	line	597
	colm	10
	synt	any
	null
	unmark
	var	4
	var	1
	pnull
	var	2
	line	598
	colm	18
	synt	any
	field	s
	line	598
	colm	13
	synt	any
	invoke	2
	goto	L6
lab L5
	mark	L7
	var	4
	var	1
	pnull
	pnull
	var	2
	line	600
	colm	18
	synt	any
	field	s
	int	0
	pnull
	int	1
	line	600
	colm	23
	synt	any
	neg
	line	600
	colm	22
	synt	any
	synt	any
	sect
	line	600
	colm	13
	synt	any
	invoke	2
	unmark
lab L7
	var	4
	var	1
	var	5
	pnull
	pnull
	var	2
	line	601
	colm	37
	synt	any
	field	menu
	line	601
	colm	35
	synt	any
	nonnull
	line	601
	colm	34
	synt	any
	invoke	1
	line	601
	colm	13
	synt	any
	invoke	2
lab L6
	line	597
	colm	7
	synt	endifelse
	unmark
lab L3
	efail
lab L4
	line	596
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L8
	mark	L9
	var	1
	line	604
	colm	4
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	605
	colm	1
	synt	any
	pfail
	end
proc Vpull_down_pick_menu
	local	0,001000,params
	local	1,000020,frame
	local	2,000020,x
	local	3,000020,y
	local	4,000020,ins
	local	5,000020,pd
	local	6,000020,self
	local	7,000000,Vinsert_check
	local	8,000000,pop
	local	9,000000,put
	local	10,000000,Vwin_check
	local	11,000000,Vpull_down
	local	12,000000,Vpull_down_button
	local	13,000000,VInsert
	con	0,002000,1,1
	con	1,010000,22,126,160,165,154,154,137,144,157,167,156,137,160,151,143,153,137,155,145,156,165,050,051
	con	2,002000,1,3
	con	3,002000,1,6
	declend
	line	623
	colm	11
	synt	any
	mark	L1
	line	626
	colm	4
	synt	if
	mark0
	pnull
	var	4
	var	7
	var	0
	line	626
	colm	27
	synt	any
	invoke	1
	line	626
	colm	11
	synt	any
	asgn
	unmark
	mark	L2
	pnull
	var	1
	var	8
	var	0
	line	627
	colm	19
	synt	any
	invoke	1
	line	627
	colm	13
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	var	8
	var	0
	line	627
	colm	37
	synt	any
	invoke	1
	line	627
	colm	31
	synt	any
	asgn
	unmark
lab L3
	pnull
	var	3
	var	8
	var	0
	line	627
	colm	54
	synt	any
	invoke	1
	line	627
	colm	48
	synt	any
	asgn
	line	626
	colm	4
	synt	endif
	unmark
lab L1
	mark	L4
	var	9
	var	0
	line	629
	colm	7
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	9
	var	0
	line	629
	colm	20
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	9
	var	0
	line	629
	colm	33
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	9
	var	0
	line	629
	colm	46
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	10
	pnull
	var	0
	int	0
	line	630
	colm	21
	synt	any
	subsc
	str	1
	line	630
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	pnull
	var	5
	var	11
	pnull
	pnull
	var	0
	int	0
	int	2
	line	631
	colm	32
	synt	any
	synt	any
	sect
	pnull
	mark	L10
	pnull
	pnull
	var	0
	int	3
	line	631
	colm	48
	synt	any
	subsc
	line	631
	colm	41
	synt	any
	nonnull
	line	631
	colm	52
	synt	any
	esusp
	goto	L11
lab L10
	line	631
	colm	54
	synt	any
	keywd	null
lab L11
	line	631
	colm	40
	synt	any
	llist	1
	line	631
	colm	36
	synt	any
	lconcat
	invoke	-1
	line	631
	colm	7
	synt	any
	asgn
	unmark
lab L9
	mark	L12
	pnull
	var	6
	var	12
	pnull
	pnull
	pnull
	pnull
	var	0
	int	0
	line	632
	colm	40
	synt	any
	subsc
	line	632
	colm	33
	synt	any
	llist	1
	pnull
	var	0
	int	2
	int	3
	line	632
	colm	57
	synt	any
	synt	any
	sect
	line	632
	colm	45
	synt	any
	lconcat
	pnull
	var	5
	line	632
	colm	65
	synt	any
	llist	1
	line	632
	colm	61
	synt	any
	lconcat
	invoke	-1
	line	632
	colm	9
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	line	634
	colm	4
	synt	if
	mark0
	pnull
	var	4
	line	634
	colm	7
	synt	any
	nonnull
	unmark
	var	13
	var	1
	var	6
	var	2
	var	3
	line	634
	colm	24
	synt	any
	invoke	4
	line	634
	colm	4
	synt	endif
	unmark
lab L13
	mark	L14
	mark	L15
	var	6
	line	635
	colm	4
	synt	any
	pret
lab L15
	synt	any
	pfail
	unmark
lab L14
	pnull
	line	636
	colm	1
	synt	any
	pfail
	end
proc Vpull_down
	local	0,001000,win
	local	1,001000,s
	local	2,001000,centered
	local	3,000020,cv
	local	4,000020,frame
	local	5,000020,id
	local	6,000020,name
	local	7,000020,style
	local	8,000020,ypos
	local	9,000020,max
	local	10,000020,i
	local	11,000020,TW
	local	12,000020,FH
	local	13,000020,item
	local	14,000020,string_list
	local	15,000000,Vwin_check
	local	16,000000,type
	local	17,000000,_Vbomb
	local	18,000000,Vmenu_frame
	local	19,000000,TextWidth
	local	20,000000,copy
	local	21,000000,pop
	local	22,000000,Vmenu_item
	local	23,000000,VInsert
	local	24,000000,VFormat
	con	0,010000,12,126,160,165,154,154,137,144,157,167,156,050,051
	con	1,010000,4,154,151,163,164
	con	2,010000,54,144,141,164,141,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,160,165,154,154,137,144,157,167,156,040,155,165,163,164,040,142,145,040,141,040,154,151,163,164,040,157,146,040,163,164,162,151,156,147,163
	con	3,002000,1,1
	con	4,002000,1,0
	con	5,002000,1,6
	con	6,010000,0
	declend
	line	650
	colm	11
	synt	any
	mark	L1
	var	15
	var	0
	str	0
	line	654
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	mark	L2
	line	655
	colm	4
	synt	if
	mark0
	pnull
	var	16
	var	1
	line	655
	colm	11
	synt	any
	invoke	1
	str	1
	line	655
	colm	15
	synt	any
	lexne
	unmark
	var	17
	str	2
	line	656
	colm	13
	synt	any
	invoke	1
	line	655
	colm	4
	synt	endif
	unmark
lab L2
	mark	L3
	pnull
	var	4
	var	18
	var	0
	line	657
	colm	24
	synt	any
	invoke	1
	line	657
	colm	10
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	8
	pnull
	var	5
	int	3
	line	658
	colm	15
	synt	any
	asgn
	line	658
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	659
	colm	4
	synt	if
	mark0
	pnull
	var	2
	line	659
	colm	7
	synt	any
	nonnull
	unmark
	mark	L6
	pnull
	var	9
	int	4
	line	660
	colm	11
	synt	any
	asgn
	unmark
lab L6
	line	661
	colm	7
	synt	every
	mark0
	pnull
	var	10
	pnull
	var	1
	line	661
	colm	18
	synt	any
	bang
	line	661
	colm	15
	synt	any
	asgn
	pop
	mark0
	pnull
	var	9
	dup
	pnull
	var	19
	var	0
	var	10
	line	661
	colm	42
	synt	any
	invoke	2
	int	5
	line	661
	colm	51
	synt	any
	plus
	line	661
	colm	28
	synt	any
	numlt
	asgn
	unmark
lab L7
	efail
lab L8
	line	661
	colm	7
	synt	endevery
	line	659
	colm	4
	synt	endif
	unmark
lab L5
	mark	L9
	pnull
	var	14
	var	20
	var	1
	line	663
	colm	23
	synt	any
	invoke	1
	line	663
	colm	16
	synt	any
	asgn
	unmark
lab L9
	mark	L10
lab L11
	line	664
	colm	4
	synt	while
	mark0
	pnull
	var	6
	var	21
	var	14
	line	664
	colm	21
	synt	any
	invoke	1
	line	664
	colm	15
	synt	any
	asgn
	unmark
	mark	L11
	mark	L14
	pnull
	var	6
	mark	L15
	pnull
	var	6
	line	665
	colm	15
	synt	any
	nonnull
	line	665
	colm	21
	synt	any
	esusp
	goto	L16
lab L15
	str	6
lab L16
	line	665
	colm	12
	synt	any
	asgn
	unmark
lab L14
	mark	L17
	pnull
	var	13
	var	22
	var	0
	var	6
	pnull
	var	6
	var	9
	line	666
	colm	25
	synt	any
	invoke	5
	line	666
	colm	12
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	var	23
	var	4
	var	13
	int	3
	var	8
	line	667
	colm	14
	synt	any
	invoke	4
	unmark
lab L18
	mark	L19
	pnull
	var	5
	dup
	int	3
	line	668
	colm	10
	synt	any
	plus
	asgn
	unmark
lab L19
	pnull
	var	8
	dup
	pnull
	var	13
	line	669
	colm	20
	synt	any
	field	ah
	line	669
	colm	12
	synt	any
	plus
	asgn
lab L12
	unmark
	goto	L11
lab L13
	line	664
	colm	4
	synt	endwhile
	unmark
lab L10
	mark	L20
	var	24
	var	4
	line	671
	colm	11
	synt	any
	invoke	1
	unmark
lab L20
	mark	L21
	mark	L22
	var	4
	line	672
	colm	4
	synt	any
	pret
lab L22
	synt	any
	pfail
	unmark
lab L21
	pnull
	line	673
	colm	1
	synt	any
	pfail
	end
