version	U12.1.00
uid	dialog.u1-1788085369-0
record	cdl_rec,22
	0,rect
	1,orgcolor
	2,refcolor
	3,mutable
	4,callback
	5,id
	6,r
	7,g
	8,b
	9,h
	10,s
	11,v
	12,rv
	13,gv
	14,bv
	15,hv
	16,sv
	17,vv
	18,fg
	19,fillargs
	20,dialog
	21,nc
impl	error
link	graphics.u
link	vbuttons.u
link	vdialog.u
link	vradio.u
link	vslider.u
link	vidgets.u
global	22
	0,000001,dialog_button,0
	1,000001,dialog_value,0
	2,000005,Dialog,7
	3,000005,AskDialog,2
	4,000005,TextDialog,7
	5,000005,ToggleDialog,6
	6,000005,SelectDialog,6
	7,000005,Notice,-1
	8,000005,SaveDialog,4
	9,000005,OpenDialog,4
	10,000005,dialog_cb,2
	11,000011,cdl_rec,22
	12,000001,cdl_data,0
	13,000005,ColorDialog,5
	14,000005,cdl_slider,7
	15,000005,cdl_init,0
	16,000005,cdl_exit,2
	17,000005,cdl_setval,2
	18,000005,cdl_sethsv,0
	19,000005,cdl_setrgb,0
	20,000005,cdl_setcolor,1
	21,000005,Popup,-1

proc Dialog
	local	0,001000,win
	local	1,001000,captions
	local	2,001000,labels
	local	3,001000,defaults
	local	4,001000,widths
	local	5,001000,buttons
	local	6,001000,index
	local	7,000000,Dialog
	local	8,000000,TextDialog
	declend
	filen	dialog.icn
	line	92
	colm	11
	synt	any
	mark	L1
	pnull
	var	7
	var	8
	line	93
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	7
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	94
	colm	17
	synt	any
	invoke	7
	line	94
	colm	4
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	95
	colm	1
	synt	any
	pfail
	end
proc AskDialog
	local	0,001000,win
	local	1,001000,caption
	local	2,000000,TextDialog
	con	0,010000,4,117,153,141,171
	con	1,010000,2,116,157
	declend
	line	97
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	2
	var	0
	var	1
	pnull
	pnull
	pnull
	pnull
	pnull
	str	0
	str	1
	line	99
	colm	44
	synt	any
	llist	2
	line	99
	colm	21
	synt	any
	invoke	7
	line	99
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	101
	colm	1
	synt	any
	pfail
	end
proc TextDialog
	local	0,001000,win
	local	1,001000,captions
	local	2,001000,labels
	local	3,001000,defaults
	local	4,001000,widths
	local	5,001000,buttons
	local	6,001000,index
	local	7,000020,maxl
	local	8,000020,lead
	local	9,000020,pad
	local	10,000020,default_button
	local	11,000020,i
	local	12,000020,maxw
	local	13,000020,cwidth
	local	14,000020,id
	local	15,000020,label_width
	local	16,000020,button
	local	17,000020,maxb
	local	18,000020,dialog
	local	19,000020,x
	local	20,000020,y
	local	21,000020,button_space
	local	22,000020,default_width
	local	23,000020,box_id
	local	24,000020,temp_win
	local	25,000040,type
	local	26,000000,proc
	local	27,000000,WOpen
	local	28,000000,put
	local	29,000000,TextWidth
	local	30,000000,WAttrib
	local	31,000000,Vdialog
	local	32,000000,VInsert
	local	33,000000,Vmessage
	local	34,000000,VRegister
	local	35,000000,Vtext
	local	36,000000,Vbutton
	local	37,000000,dialog_cb
	local	38,000000,V_OK
	local	39,000000,VFormat
	local	40,000000,dialog_value
	local	41,000000,VOpenDialog
	local	42,000000,WClose
	local	43,000000,dialog_button
	con	0,010000,4,164,171,160,145
	con	1,002000,1,0
	con	2,010000,6,167,151,156,144,157,167
	con	3,010000,13,143,141,156,166,141,163,075,150,151,144,144,145,156
	con	4,010000,3,142,147,075
	con	5,010000,9,160,141,154,145,040,147,162,141,171
	con	6,010000,4,117,153,141,171
	con	7,010000,6,103,141,156,143,145,154
	con	8,002000,1,1
	con	9,010000,4,154,151,163,164
	con	10,002000,2,10
	con	11,010000,0
	con	12,002000,2,15
	con	13,002000,2,50
	con	14,010000,7,154,145,141,144,151,156,147
	con	15,002000,1,2
	con	16,010000,6,146,167,151,144,164,150
	con	17,002000,1,3
	con	18,002000,2,30
	con	19,010000,10,124,145,170,164,104,151,141,154,157,147
	declend
	line	103
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	25
	var	26
	str	0
	int	1
	line	111
	colm	24
	synt	any
	invoke	2
	line	111
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	113
	colm	4
	synt	if
	mark0
	pnull
	var	25
	var	0
	line	113
	colm	11
	synt	any
	invoke	1
	str	2
	line	113
	colm	17
	synt	any
	lexne
	unmark
	mark	L5
	pnull
	var	0
	pnull
	var	1
	pnull
	var	2
	pnull
	var	3
	pnull
	var	4
	pnull
	var	5
	var	6
	line	114
	colm	71
	synt	any
	swap
	line	114
	colm	59
	synt	any
	swap
	line	114
	colm	48
	synt	any
	swap
	line	114
	colm	35
	synt	any
	swap
	line	114
	colm	24
	synt	any
	swap
	line	114
	colm	11
	synt	any
	swap
	unmark
lab L5
	mark	L6
	pnull
	var	0
	line	116
	colm	14
	synt	any
	keywd	window
	line	116
	colm	11
	synt	any
	asgn
	unmark
lab L6
	pnull
	pnull
	var	0
	line	117
	colm	7
	synt	any
	null
	pnull
	var	24
	var	27
	str	3
	pnull
	str	4
	str	5
	line	117
	colm	56
	synt	any
	cat
	line	117
	colm	32
	synt	any
	invoke	2
	line	117
	colm	24
	synt	any
	asgn
	line	117
	colm	12
	synt	any
	asgn
	line	113
	colm	4
	synt	endif
	unmark
lab L4
	mark	L7
	pnull
	pnull
	var	1
	line	120
	colm	4
	synt	any
	null
	pnull
	line	120
	colm	17
	synt	any
	llist	0
	line	120
	colm	14
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	2
	line	121
	colm	4
	synt	any
	null
	pnull
	line	121
	colm	15
	synt	any
	llist	0
	line	121
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	3
	line	122
	colm	4
	synt	any
	null
	pnull
	line	122
	colm	17
	synt	any
	llist	0
	line	122
	colm	14
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	4
	line	123
	colm	4
	synt	any
	null
	pnull
	line	123
	colm	15
	synt	any
	llist	0
	line	123
	colm	12
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	5
	line	124
	colm	4
	synt	any
	null
	pnull
	str	6
	str	7
	line	124
	colm	16
	synt	any
	llist	2
	line	124
	colm	13
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	6
	line	125
	colm	4
	synt	any
	null
	int	8
	line	125
	colm	11
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	line	127
	colm	4
	synt	if
	mark0
	pnull
	var	25
	var	1
	line	127
	colm	11
	synt	any
	invoke	1
	str	9
	line	127
	colm	22
	synt	any
	lexne
	unmark
	pnull
	var	1
	pnull
	var	1
	line	127
	colm	50
	synt	any
	llist	1
	line	127
	colm	47
	synt	any
	asgn
	line	127
	colm	4
	synt	endif
	unmark
lab L13
	mark	L14
	line	128
	colm	4
	synt	if
	mark0
	pnull
	var	25
	var	2
	line	128
	colm	11
	synt	any
	invoke	1
	str	9
	line	128
	colm	20
	synt	any
	lexne
	unmark
	pnull
	var	2
	mark	L15
	pnull
	pnull
	var	2
	line	128
	colm	48
	synt	any
	nonnull
	line	128
	colm	47
	synt	any
	llist	1
	line	128
	colm	57
	synt	any
	esusp
	goto	L16
lab L15
	pnull
	line	128
	colm	59
	synt	any
	llist	0
lab L16
	line	128
	colm	43
	synt	any
	asgn
	line	128
	colm	4
	synt	endif
	unmark
lab L14
	mark	L17
	line	129
	colm	4
	synt	if
	mark0
	pnull
	var	25
	var	3
	line	129
	colm	11
	synt	any
	invoke	1
	str	9
	line	129
	colm	22
	synt	any
	lexne
	unmark
	pnull
	var	3
	mark	L18
	pnull
	pnull
	var	3
	line	129
	colm	52
	synt	any
	nonnull
	line	129
	colm	51
	synt	any
	llist	1
	line	129
	colm	63
	synt	any
	esusp
	goto	L19
lab L18
	pnull
	line	129
	colm	65
	synt	any
	llist	0
lab L19
	line	129
	colm	47
	synt	any
	asgn
	line	129
	colm	4
	synt	endif
	unmark
lab L17
	mark	L20
	line	130
	colm	4
	synt	if
	mark0
	pnull
	var	25
	var	4
	line	130
	colm	11
	synt	any
	invoke	1
	str	9
	line	130
	colm	20
	synt	any
	lexne
	unmark
	pnull
	var	4
	mark	L21
	pnull
	pnull
	var	4
	line	130
	colm	48
	synt	any
	nonnull
	line	130
	colm	47
	synt	any
	llist	1
	line	130
	colm	57
	synt	any
	esusp
	goto	L22
lab L21
	pnull
	var	22
	line	130
	colm	59
	synt	any
	llist	1
lab L22
	line	130
	colm	43
	synt	any
	asgn
	line	130
	colm	4
	synt	endif
	unmark
lab L20
	mark	L23
	line	131
	colm	4
	synt	if
	mark0
	pnull
	var	25
	var	5
	line	131
	colm	11
	synt	any
	invoke	1
	str	9
	line	131
	colm	21
	synt	any
	lexne
	unmark
	pnull
	var	5
	pnull
	var	5
	line	131
	colm	48
	synt	any
	llist	1
	line	131
	colm	45
	synt	any
	asgn
	line	131
	colm	4
	synt	endif
	unmark
lab L23
	mark	L24
	pnull
	var	10
	pnull
	var	5
	var	6
	line	133
	colm	29
	synt	any
	subsc
	line	133
	colm	19
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	pnull
	var	22
	mark	L26
	pnull
	var	4
	pnull
	int	8
	line	134
	colm	28
	synt	any
	neg
	line	134
	colm	27
	synt	any
	subsc
	line	134
	colm	32
	synt	any
	esusp
	goto	L27
lab L26
	int	10
lab L27
	line	134
	colm	18
	synt	any
	asgn
	unmark
lab L25
	mark	L28
	pnull
	var	7
	int	1
	line	136
	colm	9
	synt	any
	asgn
	unmark
lab L28
	mark	L29
	line	137
	colm	4
	synt	every
	mark0
	pnull
	var	7
	dup
	pnull
	mark	L32
	var	2
	line	137
	colm	28
	synt	any
	esusp
	goto	L33
lab L32
	mark	L34
	var	3
	line	137
	colm	39
	synt	any
	esusp
	goto	L35
lab L34
	var	4
lab L35
lab L33
	line	137
	colm	19
	synt	any
	size
	line	137
	colm	15
	synt	any
	numlt
	asgn
	pop
lab L30
	efail
lab L31
	line	137
	colm	4
	synt	endevery
	unmark
lab L29
	mark	L36
lab L37
	line	138
	colm	4
	synt	until
	mark	L38
	pnull
	pnull
	var	2
	line	138
	colm	10
	synt	any
	size
	var	7
	line	138
	colm	18
	synt	any
	numeq
	unmark
	efail
lab L38
	mark	L37
	var	28
	var	2
	mark	L41
	pnull
	var	2
	pnull
	int	8
	line	138
	colm	47
	synt	any
	neg
	line	138
	colm	46
	synt	any
	subsc
	line	138
	colm	51
	synt	any
	esusp
	goto	L42
lab L41
	str	11
lab L42
	line	138
	colm	31
	synt	any
	invoke	2
lab L39
	unmark
	goto	L37
lab L40
	line	138
	colm	4
	synt	enduntil
	unmark
lab L36
	mark	L43
lab L44
	line	139
	colm	4
	synt	until
	mark	L45
	pnull
	pnull
	var	3
	line	139
	colm	10
	synt	any
	size
	var	7
	line	139
	colm	20
	synt	any
	numeq
	unmark
	efail
lab L45
	mark	L44
	var	28
	var	3
	mark	L48
	pnull
	var	3
	pnull
	int	8
	line	139
	colm	53
	synt	any
	neg
	line	139
	colm	52
	synt	any
	subsc
	line	139
	colm	57
	synt	any
	esusp
	goto	L49
lab L48
	str	11
lab L49
	line	139
	colm	33
	synt	any
	invoke	2
lab L46
	unmark
	goto	L44
lab L47
	line	139
	colm	4
	synt	enduntil
	unmark
lab L43
	mark	L50
lab L51
	line	140
	colm	4
	synt	until
	mark	L52
	pnull
	pnull
	var	4
	line	140
	colm	10
	synt	any
	size
	var	7
	line	140
	colm	18
	synt	any
	numeq
	unmark
	efail
lab L52
	mark	L51
	var	28
	var	4
	mark	L55
	pnull
	var	4
	pnull
	int	8
	line	140
	colm	47
	synt	any
	neg
	line	140
	colm	46
	synt	any
	subsc
	line	140
	colm	51
	synt	any
	esusp
	goto	L56
lab L55
	int	10
lab L56
	line	140
	colm	31
	synt	any
	invoke	2
lab L53
	unmark
	goto	L51
lab L54
	line	140
	colm	4
	synt	enduntil
	unmark
lab L50
	mark	L57
	pnull
	var	14
	int	1
	line	142
	colm	7
	synt	any
	asgn
	unmark
lab L57
	mark	L58
	pnull
	var	15
	int	1
	line	144
	colm	16
	synt	any
	asgn
	unmark
lab L58
	mark	L59
	line	145
	colm	4
	synt	every
	mark0
	pnull
	var	15
	dup
	var	29
	var	0
	pnull
	var	2
	line	145
	colm	41
	synt	any
	bang
	line	145
	colm	35
	synt	any
	invoke	2
	line	145
	colm	22
	synt	any
	numlt
	asgn
	pop
lab L60
	efail
lab L61
	line	145
	colm	4
	synt	endevery
	unmark
lab L59
	mark	L62
	line	146
	colm	4
	synt	if
	mark0
	pnull
	var	15
	int	1
	line	146
	colm	19
	synt	any
	numgt
	unmark
	pnull
	var	15
	dup
	int	12
	line	146
	colm	40
	synt	any
	plus
	asgn
	line	146
	colm	4
	synt	endif
	unmark
lab L62
	mark	L63
	pnull
	var	17
	int	1
	line	148
	colm	9
	synt	any
	asgn
	unmark
lab L63
	mark	L64
	line	149
	colm	4
	synt	every
	mark0
	pnull
	var	17
	dup
	var	29
	var	0
	pnull
	var	5
	line	149
	colm	34
	synt	any
	bang
	line	149
	colm	28
	synt	any
	invoke	2
	line	149
	colm	15
	synt	any
	numlt
	asgn
	pop
lab L65
	efail
lab L66
	line	149
	colm	4
	synt	endevery
	unmark
lab L64
	mark	L67
	pnull
	var	17
	dup
	int	10
	line	150
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L67
	mark	L68
	pnull
	var	17
	dup
	int	13
	line	151
	colm	9
	synt	any
	numlt
	asgn
	unmark
lab L68
	mark	L69
	pnull
	var	8
	var	30
	var	0
	str	14
	line	153
	colm	19
	synt	any
	invoke	2
	line	153
	colm	9
	synt	any
	asgn
	unmark
lab L69
	mark	L70
	pnull
	var	9
	pnull
	int	15
	var	8
	line	154
	colm	13
	synt	any
	mult
	line	154
	colm	8
	synt	any
	asgn
	unmark
lab L70
	mark	L71
	pnull
	var	13
	var	30
	var	0
	str	16
	line	155
	colm	21
	synt	any
	invoke	2
	line	155
	colm	11
	synt	any
	asgn
	unmark
lab L71
	mark	L72
	pnull
	var	18
	var	31
	var	0
	var	9
	var	9
	line	157
	colm	21
	synt	any
	invoke	3
	line	157
	colm	11
	synt	any
	asgn
	unmark
lab L72
	mark	L73
	pnull
	var	12
	int	1
	line	159
	colm	9
	synt	any
	asgn
	unmark
lab L73
	mark	L74
	line	160
	colm	4
	synt	every
	mark0
	pnull
	var	12
	dup
	var	29
	var	0
	pnull
	var	1
	line	160
	colm	34
	synt	any
	bang
	line	160
	colm	28
	synt	any
	invoke	2
	line	160
	colm	15
	synt	any
	numlt
	asgn
	pop
lab L75
	efail
lab L76
	line	160
	colm	4
	synt	endevery
	unmark
lab L74
	mark	L77
	pnull
	var	20
	pnull
	var	8
	line	162
	colm	9
	synt	any
	neg
	line	162
	colm	6
	synt	any
	asgn
	unmark
lab L77
	mark	L78
	line	164
	colm	4
	synt	every
	mark0
	var	32
	var	18
	var	33
	var	0
	pnull
	var	1
	line	164
	colm	40
	synt	any
	bang
	line	164
	colm	34
	synt	any
	invoke	2
	int	1
	pnull
	var	20
	dup
	var	8
	line	164
	colm	57
	synt	any
	plus
	asgn
	line	164
	colm	17
	synt	any
	invoke	4
	pop
lab L79
	efail
lab L80
	line	164
	colm	4
	synt	endevery
	unmark
lab L78
	mark	L81
	line	165
	colm	4
	synt	every
	mark0
	pnull
	var	11
	pnull
	int	8
	var	7
	push1
	line	165
	colm	17
	synt	any
	toby
	line	165
	colm	12
	synt	any
	asgn
	pop
	mark0
	mark	L84
	pnull
	var	20
	dup
	var	9
	line	166
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L84
	mark	L85
	line	167
	colm	7
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	2
	var	11
	line	167
	colm	17
	synt	any
	subsc
	line	167
	colm	10
	synt	any
	size
	int	1
	line	167
	colm	21
	synt	any
	numgt
	unmark
	var	32
	var	18
	var	33
	var	0
	pnull
	var	2
	var	11
	line	168
	colm	46
	synt	any
	subsc
	line	168
	colm	34
	synt	any
	invoke	2
	int	1
	var	20
	line	168
	colm	17
	synt	any
	invoke	4
	line	167
	colm	7
	synt	endif
	unmark
lab L85
	mark	L86
	var	34
	var	18
	var	35
	var	0
	str	11
	pnull
	pnull
	var	14
	dup
	int	8
	line	169
	colm	45
	synt	any
	plus
	asgn
	pnull
	var	4
	var	11
	line	170
	colm	16
	synt	any
	subsc
	line	169
	colm	30
	synt	any
	invoke	5
	var	15
	var	20
	line	169
	colm	16
	synt	any
	invoke	4
	unmark
lab L86
	pnull
	var	12
	dup
	pnull
	var	15
	pnull
	pnull
	var	4
	var	11
	line	171
	colm	36
	synt	any
	subsc
	var	13
	line	171
	colm	40
	synt	any
	mult
	line	171
	colm	28
	synt	any
	plus
	line	171
	colm	12
	synt	any
	numlt
	asgn
	unmark
lab L82
	efail
lab L83
	line	165
	colm	4
	synt	endevery
	unmark
lab L81
	mark	L87
	pnull
	var	20
	dup
	pnull
	pnull
	int	17
	var	9
	line	174
	colm	13
	synt	any
	mult
	int	15
	line	174
	colm	20
	synt	any
	div
	line	174
	colm	6
	synt	any
	plus
	asgn
	unmark
lab L87
	mark	L88
	pnull
	var	21
	pnull
	pnull
	var	17
	pnull
	var	5
	line	176
	colm	27
	synt	any
	size
	line	176
	colm	25
	synt	any
	mult
	pnull
	int	12
	pnull
	pnull
	var	5
	line	176
	colm	44
	synt	any
	size
	int	8
	line	176
	colm	53
	synt	any
	minus
	line	176
	colm	41
	synt	any
	mult
	line	176
	colm	36
	synt	any
	plus
	line	176
	colm	17
	synt	any
	asgn
	unmark
lab L88
	mark	L89
	pnull
	var	12
	dup
	var	21
	line	177
	colm	9
	synt	any
	numlt
	asgn
	unmark
lab L89
	mark	L90
	pnull
	var	19
	pnull
	pnull
	var	12
	var	21
	line	179
	colm	16
	synt	any
	minus
	int	15
	line	179
	colm	32
	synt	any
	div
	line	179
	colm	6
	synt	any
	asgn
	unmark
lab L90
	mark	L91
	line	181
	colm	4
	synt	every
	mark0
	pnull
	var	16
	pnull
	var	5
	line	181
	colm	20
	synt	any
	bang
	line	181
	colm	17
	synt	any
	asgn
	pop
	mark0
	mark	L94
	var	32
	var	18
	var	36
	var	0
	var	16
	var	37
	var	38
	pnull
	var	17
	int	18
	line	182
	colm	30
	synt	any
	invoke	7
	var	19
	var	20
	line	182
	colm	14
	synt	any
	invoke	4
	unmark
lab L94
	pnull
	var	19
	dup
	pnull
	var	17
	int	12
	line	184
	colm	18
	synt	any
	plus
	line	184
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L92
	efail
lab L93
	line	181
	colm	4
	synt	endevery
	unmark
lab L91
	mark	L95
	var	39
	var	18
	line	187
	colm	11
	synt	any
	invoke	1
	unmark
lab L95
	mark	L96
	pnull
	var	23
	mark	L97
	pnull
	var	1
	int	8
	line	189
	colm	22
	synt	any
	subsc
	line	189
	colm	26
	synt	any
	esusp
	goto	L98
lab L97
	str	19
lab L98
	line	189
	colm	11
	synt	any
	asgn
	unmark
lab L96
	mark	L99
	pnull
	var	40
	var	41
	var	18
	pnull
	var	23
	var	3
	var	10
	line	190
	colm	31
	synt	any
	invoke	5
	line	190
	colm	17
	synt	any
	asgn
	unmark
lab L99
	mark	L100
	var	42
	pnull
	var	24
	line	192
	colm	11
	synt	any
	nonnull
	line	192
	colm	10
	synt	any
	invoke	1
	unmark
lab L100
	mark	L101
	mark	L102
	var	43
	line	194
	colm	4
	synt	any
	pret
lab L102
	synt	any
	pfail
	unmark
lab L101
	pnull
	line	196
	colm	1
	synt	any
	pfail
	end
proc ToggleDialog
	local	0,001000,win
	local	1,001000,captions
	local	2,001000,labels
	local	3,001000,defaults
	local	4,001000,buttons
	local	5,001000,index
	local	6,000020,maxl
	local	7,000020,lead
	local	8,000020,pad
	local	9,000020,default_button
	local	10,000020,i
	local	11,000020,maxw
	local	12,000020,cwidth
	local	13,000020,id
	local	14,000020,label_width
	local	15,000020,button
	local	16,000020,maxb
	local	17,000020,dialog
	local	18,000020,x
	local	19,000020,y
	local	20,000020,button_space
	local	21,000020,default_width
	local	22,000020,box_id
	local	23,000020,temp_win
	local	24,000040,type
	local	25,000000,proc
	local	26,000000,WOpen
	local	27,000000,put
	local	28,000000,TextWidth
	local	29,000000,WAttrib
	local	30,000000,Vdialog
	local	31,000000,VInsert
	local	32,000000,Vmessage
	local	33,000000,VRegister
	local	34,000000,Vtoggle
	local	35,000000,V_CHECK_NO
	local	36,000000,Vbutton
	local	37,000000,dialog_cb
	local	38,000000,V_OK
	local	39,000000,VFormat
	local	40,000000,dialog_value
	local	41,000000,VOpenDialog
	local	42,000000,WClose
	local	43,000000,dialog_button
	con	0,010000,4,164,171,160,145
	con	1,002000,1,0
	con	2,010000,6,167,151,156,144,157,167
	con	3,010000,13,143,141,156,166,141,163,075,150,151,144,144,145,156
	con	4,010000,3,142,147,075
	con	5,010000,9,160,141,154,145,040,147,162,141,171
	con	6,010000,4,117,153,141,171
	con	7,010000,6,103,141,156,143,145,154
	con	8,002000,1,1
	con	9,010000,4,154,151,163,164
	con	10,010000,0
	con	11,002000,2,30
	con	12,002000,2,10
	con	13,002000,2,50
	con	14,010000,7,154,145,141,144,151,156,147
	con	15,002000,1,2
	con	16,010000,6,146,167,151,144,164,150
	con	17,002000,1,3
	con	18,002000,2,15
	con	19,010000,12,124,157,147,147,154,145,104,151,141,154,157,147
	declend
	line	198
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	24
	var	25
	str	0
	int	1
	line	206
	colm	24
	synt	any
	invoke	2
	line	206
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	208
	colm	4
	synt	if
	mark0
	pnull
	var	24
	var	0
	line	208
	colm	11
	synt	any
	invoke	1
	str	2
	line	208
	colm	17
	synt	any
	lexne
	unmark
	mark	L5
	pnull
	var	0
	pnull
	var	1
	pnull
	var	2
	pnull
	var	3
	pnull
	var	4
	var	5
	line	209
	colm	61
	synt	any
	swap
	line	209
	colm	48
	synt	any
	swap
	line	209
	colm	35
	synt	any
	swap
	line	209
	colm	24
	synt	any
	swap
	line	209
	colm	11
	synt	any
	swap
	unmark
lab L5
	mark	L6
	pnull
	var	0
	line	210
	colm	14
	synt	any
	keywd	window
	line	210
	colm	11
	synt	any
	asgn
	unmark
lab L6
	pnull
	pnull
	var	0
	line	211
	colm	7
	synt	any
	null
	pnull
	var	23
	var	26
	str	3
	pnull
	str	4
	str	5
	line	211
	colm	56
	synt	any
	cat
	line	211
	colm	32
	synt	any
	invoke	2
	line	211
	colm	24
	synt	any
	asgn
	line	211
	colm	12
	synt	any
	asgn
	line	208
	colm	4
	synt	endif
	unmark
lab L4
	mark	L7
	pnull
	pnull
	var	1
	line	214
	colm	4
	synt	any
	null
	pnull
	line	214
	colm	17
	synt	any
	llist	0
	line	214
	colm	14
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	2
	line	215
	colm	4
	synt	any
	null
	pnull
	line	215
	colm	15
	synt	any
	llist	0
	line	215
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	3
	line	216
	colm	4
	synt	any
	null
	pnull
	line	216
	colm	17
	synt	any
	llist	0
	line	216
	colm	14
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	4
	line	217
	colm	4
	synt	any
	null
	pnull
	str	6
	str	7
	line	217
	colm	16
	synt	any
	llist	2
	line	217
	colm	13
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	5
	line	218
	colm	4
	synt	any
	null
	int	8
	line	218
	colm	11
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	line	220
	colm	4
	synt	if
	mark0
	pnull
	var	24
	var	1
	line	220
	colm	11
	synt	any
	invoke	1
	str	9
	line	220
	colm	22
	synt	any
	lexne
	unmark
	pnull
	var	1
	pnull
	var	1
	line	220
	colm	50
	synt	any
	llist	1
	line	220
	colm	47
	synt	any
	asgn
	line	220
	colm	4
	synt	endif
	unmark
lab L12
	mark	L13
	line	221
	colm	4
	synt	if
	mark0
	pnull
	var	24
	var	2
	line	221
	colm	11
	synt	any
	invoke	1
	str	9
	line	221
	colm	20
	synt	any
	lexne
	unmark
	pnull
	var	2
	mark	L14
	pnull
	pnull
	var	2
	line	221
	colm	48
	synt	any
	nonnull
	line	221
	colm	47
	synt	any
	llist	1
	line	221
	colm	57
	synt	any
	esusp
	goto	L15
lab L14
	pnull
	line	221
	colm	59
	synt	any
	llist	0
lab L15
	line	221
	colm	43
	synt	any
	asgn
	line	221
	colm	4
	synt	endif
	unmark
lab L13
	mark	L16
	line	222
	colm	4
	synt	if
	mark0
	pnull
	var	24
	var	3
	line	222
	colm	11
	synt	any
	invoke	1
	str	9
	line	222
	colm	22
	synt	any
	lexne
	unmark
	pnull
	var	3
	mark	L17
	pnull
	pnull
	var	3
	line	222
	colm	52
	synt	any
	nonnull
	line	222
	colm	51
	synt	any
	llist	1
	line	222
	colm	63
	synt	any
	esusp
	goto	L18
lab L17
	pnull
	line	222
	colm	65
	synt	any
	llist	0
lab L18
	line	222
	colm	47
	synt	any
	asgn
	line	222
	colm	4
	synt	endif
	unmark
lab L16
	mark	L19
	line	223
	colm	4
	synt	if
	mark0
	pnull
	var	24
	var	4
	line	223
	colm	11
	synt	any
	invoke	1
	str	9
	line	223
	colm	21
	synt	any
	lexne
	unmark
	pnull
	var	4
	pnull
	var	4
	line	223
	colm	48
	synt	any
	llist	1
	line	223
	colm	45
	synt	any
	asgn
	line	223
	colm	4
	synt	endif
	unmark
lab L19
	mark	L20
	pnull
	var	9
	pnull
	var	4
	var	5
	line	225
	colm	29
	synt	any
	subsc
	line	225
	colm	19
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	var	6
	int	1
	line	227
	colm	9
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	line	228
	colm	4
	synt	every
	mark0
	pnull
	var	6
	dup
	pnull
	mark	L25
	var	2
	line	228
	colm	28
	synt	any
	esusp
	goto	L26
lab L25
	var	3
lab L26
	line	228
	colm	19
	synt	any
	size
	line	228
	colm	15
	synt	any
	numlt
	asgn
	pop
lab L23
	efail
lab L24
	line	228
	colm	4
	synt	endevery
	unmark
lab L22
	mark	L27
	line	229
	colm	4
	synt	every
	mark0
	pnull
	var	6
	dup
	pnull
	var	2
	line	229
	colm	19
	synt	any
	size
	line	229
	colm	15
	synt	any
	numlt
	asgn
	pop
lab L28
	efail
lab L29
	line	229
	colm	4
	synt	endevery
	unmark
lab L27
	mark	L30
lab L31
	line	230
	colm	4
	synt	until
	mark	L32
	pnull
	pnull
	var	2
	line	230
	colm	10
	synt	any
	size
	var	6
	line	230
	colm	18
	synt	any
	numeq
	unmark
	efail
lab L32
	mark	L31
	var	27
	var	2
	mark	L35
	pnull
	var	2
	pnull
	int	8
	line	230
	colm	47
	synt	any
	neg
	line	230
	colm	46
	synt	any
	subsc
	line	230
	colm	51
	synt	any
	esusp
	goto	L36
lab L35
	str	10
lab L36
	line	230
	colm	31
	synt	any
	invoke	2
lab L33
	unmark
	goto	L31
lab L34
	line	230
	colm	4
	synt	enduntil
	unmark
lab L30
	mark	L37
lab L38
	line	231
	colm	4
	synt	until
	mark	L39
	pnull
	pnull
	var	3
	line	231
	colm	10
	synt	any
	size
	var	6
	line	231
	colm	20
	synt	any
	numeq
	unmark
	efail
lab L39
	mark	L38
	var	27
	var	3
	mark	L42
	pnull
	var	3
	pnull
	int	8
	line	231
	colm	53
	synt	any
	neg
	line	231
	colm	52
	synt	any
	subsc
	line	231
	colm	57
	synt	any
	esusp
	goto	L43
lab L42
	line	231
	colm	59
	synt	any
	keywd	null
lab L43
	line	231
	colm	33
	synt	any
	invoke	2
lab L40
	unmark
	goto	L38
lab L41
	line	231
	colm	4
	synt	enduntil
	unmark
lab L37
	mark	L44
	pnull
	var	13
	int	1
	line	233
	colm	7
	synt	any
	asgn
	unmark
lab L44
	mark	L45
	pnull
	var	14
	int	1
	line	235
	colm	16
	synt	any
	asgn
	unmark
lab L45
	mark	L46
	line	236
	colm	4
	synt	every
	mark0
	pnull
	var	14
	dup
	var	28
	var	0
	pnull
	var	2
	line	236
	colm	41
	synt	any
	bang
	line	236
	colm	35
	synt	any
	invoke	2
	line	236
	colm	22
	synt	any
	numlt
	asgn
	pop
lab L47
	efail
lab L48
	line	236
	colm	4
	synt	endevery
	unmark
lab L46
	mark	L49
	line	237
	colm	4
	synt	if
	mark0
	pnull
	var	14
	int	1
	line	237
	colm	19
	synt	any
	numgt
	unmark
	pnull
	var	14
	dup
	int	11
	line	237
	colm	40
	synt	any
	plus
	asgn
	line	237
	colm	4
	synt	endif
	unmark
lab L49
	mark	L50
	pnull
	var	16
	int	1
	line	239
	colm	9
	synt	any
	asgn
	unmark
lab L50
	mark	L51
	line	240
	colm	4
	synt	every
	mark0
	pnull
	var	16
	dup
	var	28
	var	0
	pnull
	var	4
	line	240
	colm	34
	synt	any
	bang
	line	240
	colm	28
	synt	any
	invoke	2
	line	240
	colm	15
	synt	any
	numlt
	asgn
	pop
lab L52
	efail
lab L53
	line	240
	colm	4
	synt	endevery
	unmark
lab L51
	mark	L54
	pnull
	var	16
	dup
	int	12
	line	241
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L54
	mark	L55
	pnull
	var	16
	dup
	int	13
	line	242
	colm	9
	synt	any
	numlt
	asgn
	unmark
lab L55
	mark	L56
	pnull
	var	7
	var	29
	var	0
	str	14
	line	244
	colm	19
	synt	any
	invoke	2
	line	244
	colm	9
	synt	any
	asgn
	unmark
lab L56
	mark	L57
	pnull
	var	8
	pnull
	int	15
	var	7
	line	245
	colm	13
	synt	any
	mult
	line	245
	colm	8
	synt	any
	asgn
	unmark
lab L57
	mark	L58
	pnull
	var	12
	var	29
	var	0
	str	16
	line	246
	colm	21
	synt	any
	invoke	2
	line	246
	colm	11
	synt	any
	asgn
	unmark
lab L58
	mark	L59
	pnull
	var	17
	var	30
	var	0
	var	8
	var	8
	line	248
	colm	21
	synt	any
	invoke	3
	line	248
	colm	11
	synt	any
	asgn
	unmark
lab L59
	mark	L60
	pnull
	var	11
	int	1
	line	250
	colm	9
	synt	any
	asgn
	unmark
lab L60
	mark	L61
	line	251
	colm	4
	synt	every
	mark0
	pnull
	var	11
	dup
	var	28
	var	0
	pnull
	var	1
	line	251
	colm	34
	synt	any
	bang
	line	251
	colm	28
	synt	any
	invoke	2
	line	251
	colm	15
	synt	any
	numlt
	asgn
	pop
lab L62
	efail
lab L63
	line	251
	colm	4
	synt	endevery
	unmark
lab L61
	mark	L64
	pnull
	var	19
	pnull
	var	7
	line	253
	colm	9
	synt	any
	neg
	line	253
	colm	6
	synt	any
	asgn
	unmark
lab L64
	mark	L65
	line	255
	colm	4
	synt	every
	mark0
	var	31
	var	17
	var	32
	var	0
	pnull
	var	1
	line	255
	colm	40
	synt	any
	bang
	line	255
	colm	34
	synt	any
	invoke	2
	int	1
	pnull
	var	19
	dup
	var	7
	line	255
	colm	57
	synt	any
	plus
	asgn
	line	255
	colm	17
	synt	any
	invoke	4
	pop
lab L66
	efail
lab L67
	line	255
	colm	4
	synt	endevery
	unmark
lab L65
	mark	L68
	line	256
	colm	4
	synt	every
	mark0
	pnull
	var	10
	pnull
	int	8
	var	6
	push1
	line	256
	colm	17
	synt	any
	toby
	line	256
	colm	12
	synt	any
	asgn
	pop
	mark0
	mark	L71
	pnull
	var	19
	dup
	var	8
	line	257
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L71
	mark	L72
	var	33
	var	17
	var	34
	var	0
	pnull
	var	2
	var	10
	line	258
	colm	44
	synt	any
	subsc
	pnull
	pnull
	var	13
	dup
	int	8
	line	258
	colm	54
	synt	any
	plus
	asgn
	var	35
	var	14
	line	258
	colm	32
	synt	any
	invoke	6
	int	1
	var	19
	line	258
	colm	16
	synt	any
	invoke	4
	unmark
lab L72
	pnull
	var	11
	dup
	var	14
	line	260
	colm	12
	synt	any
	numlt
	asgn
	unmark
lab L69
	efail
lab L70
	line	256
	colm	4
	synt	endevery
	unmark
lab L68
	mark	L73
	pnull
	var	19
	dup
	pnull
	pnull
	int	17
	var	8
	line	263
	colm	13
	synt	any
	mult
	int	15
	line	263
	colm	20
	synt	any
	div
	line	263
	colm	6
	synt	any
	plus
	asgn
	unmark
lab L73
	mark	L74
	pnull
	var	20
	pnull
	pnull
	var	16
	pnull
	var	4
	line	265
	colm	27
	synt	any
	size
	line	265
	colm	25
	synt	any
	mult
	pnull
	int	18
	pnull
	pnull
	var	4
	line	265
	colm	44
	synt	any
	size
	int	8
	line	265
	colm	53
	synt	any
	minus
	line	265
	colm	41
	synt	any
	mult
	line	265
	colm	36
	synt	any
	plus
	line	265
	colm	17
	synt	any
	asgn
	unmark
lab L74
	mark	L75
	pnull
	var	11
	dup
	var	20
	line	266
	colm	9
	synt	any
	numlt
	asgn
	unmark
lab L75
	mark	L76
	pnull
	var	18
	pnull
	pnull
	var	11
	var	20
	line	268
	colm	16
	synt	any
	minus
	int	15
	line	268
	colm	32
	synt	any
	div
	line	268
	colm	6
	synt	any
	asgn
	unmark
lab L76
	mark	L77
	line	270
	colm	4
	synt	every
	mark0
	pnull
	var	15
	pnull
	var	4
	line	270
	colm	20
	synt	any
	bang
	line	270
	colm	17
	synt	any
	asgn
	pop
	mark0
	mark	L80
	var	31
	var	17
	var	36
	var	0
	var	15
	var	37
	var	38
	pnull
	var	16
	int	11
	line	271
	colm	30
	synt	any
	invoke	7
	var	18
	var	19
	line	271
	colm	14
	synt	any
	invoke	4
	unmark
lab L80
	pnull
	var	18
	dup
	pnull
	var	16
	int	18
	line	273
	colm	18
	synt	any
	plus
	line	273
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L78
	efail
lab L79
	line	270
	colm	4
	synt	endevery
	unmark
lab L77
	mark	L81
	var	39
	var	17
	line	276
	colm	11
	synt	any
	invoke	1
	unmark
lab L81
	mark	L82
	pnull
	var	22
	mark	L83
	pnull
	var	1
	int	8
	line	278
	colm	22
	synt	any
	subsc
	line	278
	colm	26
	synt	any
	esusp
	goto	L84
lab L83
	str	19
lab L84
	line	278
	colm	11
	synt	any
	asgn
	unmark
lab L82
	mark	L85
	pnull
	var	40
	var	41
	var	17
	pnull
	var	22
	var	3
	var	9
	line	279
	colm	31
	synt	any
	invoke	5
	line	279
	colm	17
	synt	any
	asgn
	unmark
lab L85
	mark	L86
	var	42
	pnull
	var	23
	line	281
	colm	11
	synt	any
	nonnull
	line	281
	colm	10
	synt	any
	invoke	1
	unmark
lab L86
	mark	L87
	mark	L88
	var	43
	line	283
	colm	4
	synt	any
	pret
lab L88
	synt	any
	pfail
	unmark
lab L87
	pnull
	line	285
	colm	1
	synt	any
	pfail
	end
proc SelectDialog
	local	0,001000,win
	local	1,001000,captions
	local	2,001000,labels
	local	3,001000,deflt
	local	4,001000,buttons
	local	5,001000,index
	local	6,000020,maxl
	local	7,000020,lead
	local	8,000020,pad
	local	9,000020,default_button
	local	10,000020,i
	local	11,000020,maxw
	local	12,000020,cwidth
	local	13,000020,label_width
	local	14,000020,button
	local	15,000020,maxb
	local	16,000020,dialog
	local	17,000020,x
	local	18,000020,y
	local	19,000020,button_space
	local	20,000020,box_id
	local	21,000020,temp_win
	local	22,000040,type
	local	23,000000,proc
	local	24,000000,WOpen
	local	25,000000,put
	local	26,000000,TextWidth
	local	27,000000,WAttrib
	local	28,000000,Vdialog
	local	29,000000,VInsert
	local	30,000000,Vmessage
	local	31,000000,VRegister
	local	32,000000,Vvert_radio_buttons
	local	33,000000,V_DIAMOND_NO
	local	34,000000,integer
	local	35,000000,Vbutton
	local	36,000000,dialog_cb
	local	37,000000,V_OK
	local	38,000000,VFormat
	local	39,000000,dialog_value
	local	40,000000,VOpenDialog
	local	41,000000,WClose
	local	42,000000,dialog_button
	con	0,010000,4,164,171,160,145
	con	1,002000,1,0
	con	2,010000,6,167,151,156,144,157,167
	con	3,010000,13,143,141,156,166,141,163,075,150,151,144,144,145,156
	con	4,010000,3,142,147,075
	con	5,010000,9,160,141,154,145,040,147,162,141,171
	con	6,010000,4,117,153,141,171
	con	7,010000,6,103,141,156,143,145,154
	con	8,002000,1,1
	con	9,010000,4,154,151,163,164
	con	10,010000,0
	con	11,002000,2,15
	con	12,002000,2,10
	con	13,002000,2,50
	con	14,010000,7,154,145,141,144,151,156,147
	con	15,002000,1,2
	con	16,010000,6,146,167,151,144,164,150
	con	17,004000,0.83
	con	18,004000,1.5
	con	19,002000,2,30
	con	20,010000,12,124,157,147,147,154,145,104,151,141,154,157,147
	declend
	line	287
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	22
	var	23
	str	0
	int	1
	line	298
	colm	24
	synt	any
	invoke	2
	line	298
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	300
	colm	4
	synt	if
	mark0
	pnull
	var	22
	var	0
	line	300
	colm	11
	synt	any
	invoke	1
	str	2
	line	300
	colm	17
	synt	any
	lexne
	unmark
	mark	L5
	pnull
	var	0
	pnull
	var	1
	pnull
	var	2
	pnull
	var	3
	pnull
	var	4
	var	5
	line	301
	colm	57
	synt	any
	swap
	line	301
	colm	45
	synt	any
	swap
	line	301
	colm	35
	synt	any
	swap
	line	301
	colm	24
	synt	any
	swap
	line	301
	colm	11
	synt	any
	swap
	unmark
lab L5
	mark	L6
	pnull
	var	0
	line	302
	colm	14
	synt	any
	keywd	window
	line	302
	colm	11
	synt	any
	asgn
	unmark
lab L6
	pnull
	pnull
	var	0
	line	303
	colm	7
	synt	any
	null
	pnull
	var	21
	var	24
	str	3
	pnull
	str	4
	str	5
	line	303
	colm	56
	synt	any
	cat
	line	303
	colm	32
	synt	any
	invoke	2
	line	303
	colm	24
	synt	any
	asgn
	line	303
	colm	12
	synt	any
	asgn
	line	300
	colm	4
	synt	endif
	unmark
lab L4
	mark	L7
	pnull
	pnull
	var	1
	line	306
	colm	4
	synt	any
	null
	pnull
	line	306
	colm	17
	synt	any
	llist	0
	line	306
	colm	14
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	2
	line	307
	colm	4
	synt	any
	null
	pnull
	line	307
	colm	15
	synt	any
	llist	0
	line	307
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	308
	colm	4
	synt	any
	null
	pnull
	str	6
	str	7
	line	308
	colm	16
	synt	any
	llist	2
	line	308
	colm	13
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	5
	line	309
	colm	4
	synt	any
	null
	int	8
	line	309
	colm	11
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	311
	colm	4
	synt	if
	mark0
	pnull
	var	22
	var	1
	line	311
	colm	11
	synt	any
	invoke	1
	str	9
	line	311
	colm	22
	synt	any
	lexne
	unmark
	pnull
	var	1
	pnull
	var	1
	line	311
	colm	50
	synt	any
	llist	1
	line	311
	colm	47
	synt	any
	asgn
	line	311
	colm	4
	synt	endif
	unmark
lab L11
	mark	L12
	line	312
	colm	4
	synt	if
	mark0
	pnull
	var	22
	var	2
	line	312
	colm	11
	synt	any
	invoke	1
	str	9
	line	312
	colm	20
	synt	any
	lexne
	unmark
	pnull
	var	2
	mark	L13
	pnull
	pnull
	var	2
	line	312
	colm	48
	synt	any
	nonnull
	line	312
	colm	47
	synt	any
	llist	1
	line	312
	colm	57
	synt	any
	esusp
	goto	L14
lab L13
	pnull
	line	312
	colm	59
	synt	any
	llist	0
lab L14
	line	312
	colm	43
	synt	any
	asgn
	line	312
	colm	4
	synt	endif
	unmark
lab L12
	mark	L15
	line	313
	colm	4
	synt	if
	mark0
	pnull
	var	22
	var	4
	line	313
	colm	11
	synt	any
	invoke	1
	str	9
	line	313
	colm	21
	synt	any
	lexne
	unmark
	pnull
	var	4
	pnull
	var	4
	line	313
	colm	48
	synt	any
	llist	1
	line	313
	colm	45
	synt	any
	asgn
	line	313
	colm	4
	synt	endif
	unmark
lab L15
	mark	L16
	pnull
	var	9
	pnull
	var	4
	var	5
	line	315
	colm	29
	synt	any
	subsc
	line	315
	colm	19
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	var	6
	int	1
	line	330
	colm	9
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	line	331
	colm	4
	synt	every
	mark0
	pnull
	var	6
	dup
	pnull
	var	2
	line	331
	colm	19
	synt	any
	size
	line	331
	colm	15
	synt	any
	numlt
	asgn
	pop
lab L19
	efail
lab L20
	line	331
	colm	4
	synt	endevery
	unmark
lab L18
	mark	L21
lab L22
	line	332
	colm	4
	synt	until
	mark	L23
	pnull
	pnull
	var	2
	line	332
	colm	10
	synt	any
	size
	var	6
	line	332
	colm	18
	synt	any
	numeq
	unmark
	efail
lab L23
	mark	L22
	var	25
	var	2
	mark	L26
	pnull
	var	2
	pnull
	int	8
	line	332
	colm	47
	synt	any
	neg
	line	332
	colm	46
	synt	any
	subsc
	line	332
	colm	51
	synt	any
	esusp
	goto	L27
lab L26
	str	10
lab L27
	line	332
	colm	31
	synt	any
	invoke	2
lab L24
	unmark
	goto	L22
lab L25
	line	332
	colm	4
	synt	enduntil
	unmark
lab L21
	mark	L28
	pnull
	var	13
	int	1
	line	334
	colm	16
	synt	any
	asgn
	unmark
lab L28
	mark	L29
	line	335
	colm	4
	synt	every
	mark0
	pnull
	var	13
	dup
	var	26
	var	0
	pnull
	var	2
	line	335
	colm	41
	synt	any
	bang
	line	335
	colm	35
	synt	any
	invoke	2
	line	335
	colm	22
	synt	any
	numlt
	asgn
	pop
lab L30
	efail
lab L31
	line	335
	colm	4
	synt	endevery
	unmark
lab L29
	mark	L32
	line	336
	colm	4
	synt	if
	mark0
	pnull
	var	13
	int	1
	line	336
	colm	19
	synt	any
	numgt
	unmark
	pnull
	var	13
	dup
	int	11
	line	336
	colm	40
	synt	any
	plus
	asgn
	line	336
	colm	4
	synt	endif
	unmark
lab L32
	mark	L33
	pnull
	var	15
	int	1
	line	338
	colm	9
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	line	339
	colm	4
	synt	every
	mark0
	pnull
	var	15
	dup
	var	26
	var	0
	pnull
	var	4
	line	339
	colm	34
	synt	any
	bang
	line	339
	colm	28
	synt	any
	invoke	2
	line	339
	colm	15
	synt	any
	numlt
	asgn
	pop
lab L35
	efail
lab L36
	line	339
	colm	4
	synt	endevery
	unmark
lab L34
	mark	L37
	pnull
	var	15
	dup
	int	12
	line	340
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L37
	mark	L38
	pnull
	var	15
	dup
	int	13
	line	341
	colm	9
	synt	any
	numlt
	asgn
	unmark
lab L38
	mark	L39
	pnull
	var	7
	var	27
	var	0
	str	14
	line	343
	colm	19
	synt	any
	invoke	2
	line	343
	colm	9
	synt	any
	asgn
	unmark
lab L39
	mark	L40
	pnull
	var	8
	pnull
	int	15
	var	7
	line	344
	colm	13
	synt	any
	mult
	line	344
	colm	8
	synt	any
	asgn
	unmark
lab L40
	mark	L41
	pnull
	var	12
	var	27
	var	0
	str	16
	line	345
	colm	21
	synt	any
	invoke	2
	line	345
	colm	11
	synt	any
	asgn
	unmark
lab L41
	mark	L42
	pnull
	var	16
	var	28
	var	0
	var	8
	var	8
	line	347
	colm	21
	synt	any
	invoke	3
	line	347
	colm	11
	synt	any
	asgn
	unmark
lab L42
	mark	L43
	pnull
	var	11
	int	1
	line	349
	colm	9
	synt	any
	asgn
	unmark
lab L43
	mark	L44
	line	350
	colm	4
	synt	every
	mark0
	pnull
	var	11
	dup
	var	26
	var	0
	pnull
	var	1
	line	350
	colm	34
	synt	any
	bang
	line	350
	colm	28
	synt	any
	invoke	2
	line	350
	colm	15
	synt	any
	numlt
	asgn
	pop
lab L45
	efail
lab L46
	line	350
	colm	4
	synt	endevery
	unmark
lab L44
	mark	L47
	pnull
	var	18
	pnull
	var	7
	line	352
	colm	9
	synt	any
	neg
	line	352
	colm	6
	synt	any
	asgn
	unmark
lab L47
	mark	L48
	line	354
	colm	4
	synt	every
	mark0
	var	29
	var	16
	var	30
	var	0
	pnull
	var	1
	line	354
	colm	40
	synt	any
	bang
	line	354
	colm	34
	synt	any
	invoke	2
	int	1
	pnull
	var	18
	dup
	var	7
	line	354
	colm	57
	synt	any
	plus
	asgn
	line	354
	colm	17
	synt	any
	invoke	4
	pop
lab L49
	efail
lab L50
	line	354
	colm	4
	synt	endevery
	unmark
lab L48
	mark	L51
	pnull
	var	18
	dup
	pnull
	int	15
	var	7
	line	355
	colm	12
	synt	any
	mult
	line	355
	colm	6
	synt	any
	plus
	asgn
	unmark
lab L51
	mark	L52
	var	31
	var	16
	var	32
	var	0
	var	2
	pnull
	int	8
	var	33
	line	356
	colm	41
	synt	any
	invoke	5
	int	1
	var	18
	line	356
	colm	13
	synt	any
	invoke	4
	unmark
lab L52
	mark	L53
	pnull
	var	18
	dup
	var	34
	pnull
	pnull
	real	17
	pnull
	var	8
	pnull
	pnull
	var	2
	line	358
	colm	33
	synt	any
	size
	int	8
	line	358
	colm	41
	synt	any
	minus
	line	358
	colm	30
	synt	any
	mult
	line	358
	colm	23
	synt	any
	mult
	pnull
	real	18
	var	8
	line	358
	colm	53
	synt	any
	mult
	line	358
	colm	47
	synt	any
	plus
	line	358
	colm	17
	synt	any
	invoke	1
	line	358
	colm	6
	synt	any
	plus
	asgn
	unmark
lab L53
	mark	L54
	pnull
	var	19
	pnull
	pnull
	var	15
	pnull
	var	4
	line	360
	colm	27
	synt	any
	size
	line	360
	colm	25
	synt	any
	mult
	pnull
	int	11
	pnull
	pnull
	var	4
	line	360
	colm	44
	synt	any
	size
	int	8
	line	360
	colm	53
	synt	any
	minus
	line	360
	colm	41
	synt	any
	mult
	line	360
	colm	36
	synt	any
	plus
	line	360
	colm	17
	synt	any
	asgn
	unmark
lab L54
	mark	L55
	pnull
	var	11
	dup
	var	19
	line	361
	colm	9
	synt	any
	numlt
	asgn
	unmark
lab L55
	mark	L56
	pnull
	var	17
	pnull
	pnull
	var	11
	var	19
	line	363
	colm	16
	synt	any
	minus
	int	15
	line	363
	colm	32
	synt	any
	div
	line	363
	colm	6
	synt	any
	asgn
	unmark
lab L56
	mark	L57
	line	365
	colm	4
	synt	every
	mark0
	pnull
	var	14
	pnull
	var	4
	line	365
	colm	20
	synt	any
	bang
	line	365
	colm	17
	synt	any
	asgn
	pop
	mark0
	mark	L60
	var	29
	var	16
	var	35
	var	0
	var	14
	var	36
	var	37
	pnull
	var	15
	int	19
	line	366
	colm	30
	synt	any
	invoke	7
	var	17
	var	18
	line	366
	colm	14
	synt	any
	invoke	4
	unmark
lab L60
	pnull
	var	17
	dup
	pnull
	var	15
	int	11
	line	368
	colm	18
	synt	any
	plus
	line	368
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L58
	efail
lab L59
	line	365
	colm	4
	synt	endevery
	unmark
lab L57
	mark	L61
	var	38
	var	16
	line	371
	colm	11
	synt	any
	invoke	1
	unmark
lab L61
	mark	L62
	pnull
	var	20
	mark	L63
	pnull
	var	1
	int	8
	line	373
	colm	22
	synt	any
	subsc
	line	373
	colm	26
	synt	any
	esusp
	goto	L64
lab L63
	str	20
lab L64
	line	373
	colm	11
	synt	any
	asgn
	unmark
lab L62
	mark	L65
	pnull
	var	39
	pnull
	var	40
	var	16
	pnull
	var	20
	pnull
	var	3
	line	374
	colm	50
	synt	any
	llist	1
	var	9
	line	374
	colm	31
	synt	any
	invoke	5
	int	8
	line	374
	colm	74
	synt	any
	subsc
	line	374
	colm	17
	synt	any
	asgn
	unmark
lab L65
	mark	L66
	var	41
	pnull
	var	21
	line	376
	colm	11
	synt	any
	nonnull
	line	376
	colm	10
	synt	any
	invoke	1
	unmark
lab L66
	mark	L67
	mark	L68
	var	42
	line	378
	colm	4
	synt	any
	pret
lab L68
	synt	any
	pfail
	unmark
lab L67
	pnull
	line	380
	colm	1
	synt	any
	pfail
	end
proc Notice
	local	0,001000,captions
	local	1,000020,win
	local	2,000020,temp_win
	local	3,000040,type
	local	4,000000,proc
	local	5,000000,get
	local	6,000000,WOpen
	local	7,000000,TextDialog
	local	8,000000,dialog_value
	local	9,000000,WClose
	local	10,000000,dialog_button
	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,13,143,141,156,166,141,163,075,150,151,144,144,145,156
	con	5,010000,3,142,147,075
	con	6,010000,9,160,141,154,145,040,147,162,141,171
	con	7,010000,4,117,153,141,171
	declend
	line	382
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	3
	var	4
	str	0
	int	1
	line	389
	colm	24
	synt	any
	invoke	2
	line	389
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	391
	colm	4
	synt	ifelse
	mark	L5
	pnull
	var	3
	pnull
	var	0
	int	2
	line	391
	colm	20
	synt	any
	subsc
	line	391
	colm	11
	synt	any
	invoke	1
	str	3
	line	391
	colm	25
	synt	any
	lexeq
	unmark
	pnull
	var	1
	var	5
	var	0
	line	392
	colm	17
	synt	any
	invoke	1
	line	392
	colm	11
	synt	any
	asgn
	goto	L6
lab L5
	mark	L7
	pnull
	var	1
	line	394
	colm	14
	synt	any
	keywd	window
	line	394
	colm	11
	synt	any
	asgn
	unmark
lab L7
	pnull
	pnull
	var	1
	line	395
	colm	7
	synt	any
	null
	pnull
	var	2
	var	6
	str	4
	pnull
	str	5
	str	6
	line	395
	colm	56
	synt	any
	cat
	line	395
	colm	32
	synt	any
	invoke	2
	line	395
	colm	24
	synt	any
	asgn
	line	395
	colm	12
	synt	any
	asgn
lab L6
	line	391
	colm	4
	synt	endifelse
	unmark
lab L4
	mark	L8
	var	7
	var	1
	var	0
	pnull
	pnull
	pnull
	str	7
	line	405
	colm	17
	synt	any
	invoke	6
	unmark
lab L8
	mark	L9
	pnull
	var	8
	line	407
	colm	20
	synt	any
	keywd	null
	line	407
	colm	17
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	var	9
	pnull
	var	2
	line	409
	colm	11
	synt	any
	nonnull
	line	409
	colm	10
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	mark	L12
	var	10
	line	411
	colm	4
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	413
	colm	1
	synt	any
	pfail
	end
proc SaveDialog
	local	0,001000,win
	local	1,001000,caption
	local	2,001000,filename
	local	3,001000,len
	local	4,000020,temp_win
	local	5,000040,type
	local	6,000000,proc
	local	7,000000,WOpen
	local	8,000000,TextDialog
	local	9,000000,dialog_value
	local	10,000000,WClose
	local	11,000000,dialog_button
	con	0,010000,4,164,171,160,145
	con	1,002000,1,0
	con	2,010000,6,167,151,156,144,157,167
	con	3,010000,13,143,141,156,166,141,163,075,150,151,144,144,145,156
	con	4,010000,3,142,147,075
	con	5,010000,9,160,141,154,145,040,147,162,141,171
	con	6,010000,5,123,141,166,145,072
	con	7,010000,0
	con	8,002000,2,50
	con	9,010000,3,131,145,163
	con	10,010000,2,116,157
	con	11,010000,6,103,141,156,143,145,154
	con	12,002000,1,1
	declend
	line	415
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	5
	var	6
	str	0
	int	1
	line	422
	colm	24
	synt	any
	invoke	2
	line	422
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	424
	colm	4
	synt	if
	mark0
	pnull
	var	5
	var	0
	line	424
	colm	11
	synt	any
	invoke	1
	str	2
	line	424
	colm	17
	synt	any
	lexne
	unmark
	mark	L5
	pnull
	var	0
	pnull
	var	1
	pnull
	var	2
	var	3
	line	425
	colm	36
	synt	any
	swap
	line	425
	colm	23
	synt	any
	swap
	line	425
	colm	11
	synt	any
	swap
	unmark
lab L5
	mark	L6
	pnull
	var	0
	line	426
	colm	14
	synt	any
	keywd	window
	line	426
	colm	11
	synt	any
	asgn
	unmark
lab L6
	pnull
	pnull
	var	0
	line	427
	colm	7
	synt	any
	null
	pnull
	var	4
	var	7
	str	3
	pnull
	str	4
	str	5
	line	427
	colm	56
	synt	any
	cat
	line	427
	colm	32
	synt	any
	invoke	2
	line	427
	colm	24
	synt	any
	asgn
	line	427
	colm	12
	synt	any
	asgn
	line	424
	colm	4
	synt	endif
	unmark
lab L4
	mark	L7
	pnull
	pnull
	var	1
	line	430
	colm	4
	synt	any
	null
	str	6
	line	430
	colm	13
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	2
	line	431
	colm	4
	synt	any
	null
	str	7
	line	431
	colm	14
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	3
	line	432
	colm	4
	synt	any
	null
	int	8
	line	432
	colm	9
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	var	8
	var	0
	var	1
	pnull
	var	2
	var	3
	pnull
	str	9
	str	10
	str	11
	line	445
	colm	46
	synt	any
	llist	3
	line	445
	colm	14
	synt	any
	invoke	6
	unmark
lab L10
	mark	L11
	pnull
	var	9
	pnull
	var	9
	int	12
	line	447
	colm	32
	synt	any
	subsc
	line	447
	colm	17
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	var	10
	pnull
	var	4
	line	449
	colm	11
	synt	any
	nonnull
	line	449
	colm	10
	synt	any
	invoke	1
	unmark
lab L12
	mark	L13
	mark	L14
	var	11
	line	451
	colm	4
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	453
	colm	1
	synt	any
	pfail
	end
proc OpenDialog
	local	0,001000,win
	local	1,001000,caption
	local	2,001000,filename
	local	3,001000,len
	local	4,000020,temp_win
	local	5,000040,type
	local	6,000000,proc
	local	7,000000,WOpen
	local	8,000000,TextDialog
	local	9,000000,dialog_value
	local	10,000000,WClose
	local	11,000000,dialog_button
	con	0,010000,4,164,171,160,145
	con	1,002000,1,0
	con	2,010000,6,167,151,156,144,157,167
	con	3,010000,13,143,141,156,166,141,163,075,150,151,144,144,145,156
	con	4,010000,3,142,147,075
	con	5,010000,9,160,141,154,145,040,147,162,141,171
	con	6,010000,5,117,160,145,156,072
	con	7,010000,0
	con	8,002000,2,50
	con	9,002000,1,1
	declend
	line	455
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	5
	var	6
	str	0
	int	1
	line	462
	colm	24
	synt	any
	invoke	2
	line	462
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	464
	colm	4
	synt	if
	mark0
	pnull
	var	5
	var	0
	line	464
	colm	11
	synt	any
	invoke	1
	str	2
	line	464
	colm	17
	synt	any
	lexne
	unmark
	mark	L5
	pnull
	var	0
	pnull
	var	1
	pnull
	var	2
	var	3
	line	465
	colm	36
	synt	any
	swap
	line	465
	colm	23
	synt	any
	swap
	line	465
	colm	11
	synt	any
	swap
	unmark
lab L5
	mark	L6
	pnull
	var	0
	line	466
	colm	14
	synt	any
	keywd	window
	line	466
	colm	11
	synt	any
	asgn
	unmark
lab L6
	pnull
	pnull
	var	0
	line	467
	colm	7
	synt	any
	null
	pnull
	var	4
	var	7
	str	3
	pnull
	str	4
	str	5
	line	467
	colm	56
	synt	any
	cat
	line	467
	colm	32
	synt	any
	invoke	2
	line	467
	colm	24
	synt	any
	asgn
	line	467
	colm	12
	synt	any
	asgn
	line	464
	colm	4
	synt	endif
	unmark
lab L4
	mark	L7
	pnull
	pnull
	var	1
	line	470
	colm	4
	synt	any
	null
	str	6
	line	470
	colm	13
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	2
	line	471
	colm	4
	synt	any
	null
	str	7
	line	471
	colm	14
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	3
	line	472
	colm	4
	synt	any
	null
	int	8
	line	472
	colm	9
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	var	8
	var	0
	var	1
	pnull
	var	2
	var	3
	line	483
	colm	14
	synt	any
	invoke	5
	unmark
lab L10
	mark	L11
	pnull
	var	9
	pnull
	var	9
	int	9
	line	485
	colm	32
	synt	any
	subsc
	line	485
	colm	17
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	var	10
	pnull
	var	4
	line	487
	colm	11
	synt	any
	nonnull
	line	487
	colm	10
	synt	any
	invoke	1
	unmark
lab L12
	mark	L13
	mark	L14
	var	11
	line	489
	colm	4
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	491
	colm	1
	synt	any
	pfail
	end
proc dialog_cb
	local	0,001000,vidget
	local	1,001000,s
	local	2,000000,dialog_button
	declend
	line	493
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	0
	line	495
	colm	27
	synt	any
	field	s
	line	495
	colm	18
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	497
	colm	4
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	499
	colm	1
	synt	any
	pfail
	end
proc ColorDialog
	local	0,001000,win
	local	1,001000,captions
	local	2,001000,refcolor
	local	3,001000,callback
	local	4,001000,id
	local	5,000020,x1
	local	6,000020,x2
	local	7,000020,dx
	local	8,000020,y
	local	9,000020,bw
	local	10,000020,lead
	local	11,000020,pad
	local	12,000020,dialog
	local	13,000020,box_id
	local	14,000020,temp_win
	local	15,000040,type
	local	16,000000,proc
	local	17,000000,WOpen
	local	18,000000,cdl_data
	local	19,000000,cdl_rec
	local	20,000000,ColorValue
	local	21,000000,Fg
	local	22,000000,integer
	local	23,000000,tab
	local	24,000000,many
	local	25,000000,move
	local	26,000000,HSV
	local	27,000000,WAttrib
	local	28,000000,Vdialog
	local	29,000000,cdl_init
	local	30,000000,VInsert
	local	31,000000,Vmessage
	local	32,000000,cdl_slider
	local	33,000000,Vpane
	local	34,000000,TextWidth
	local	35,000000,Vbutton
	local	36,000000,cdl_exit
	local	37,000000,V_OK
	local	38,000000,VFormat
	local	39,000000,VOpenDialog
	local	40,000000,dialog_value
	local	41,000000,WClose
	local	42,000000,dialog_button
	con	0,010000,4,164,171,160,145
	con	1,002000,1,0
	con	2,010000,6,167,151,156,144,157,167
	con	3,010000,13,143,141,156,166,141,163,075,150,151,144,144,145,156
	con	4,010000,3,142,147,075
	con	5,010000,9,160,141,154,145,040,147,162,141,171
	con	6,010000,13,123,145,154,145,143,164,040,143,157,154,157,162,072
	con	7,010000,4,154,151,163,164
	con	8,010000,4,147,162,141,171
	con	9,002000,1,1
	con	10,010000,7,154,145,141,144,151,156,147
	con	11,002000,1,2
	con	12,002000,2,15
	con	13,002000,1,5
	con	14,002000,3,300
	con	15,010000,1,162
	con	16,002000,5,65535
	con	17,010000,1,147
	con	18,010000,1,142
	con	19,010000,1,166
	con	20,002000,3,100
	con	21,010000,1,163
	con	22,010000,1,150
	con	23,002000,3,360
	con	24,010000,6,163,165,156,153,145,156
	con	25,002000,3,200
	con	26,002000,1,3
	con	27,010000,6,103,141,156,143,145,154
	con	28,002000,2,10
	con	29,010000,4,117,153,141,171
	con	30,002000,2,30
	con	31,010000,11,103,157,154,157,162,104,151,141,154,157,147
	con	32,010000,1,054
	declend
	line	514
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	15
	var	16
	str	0
	int	1
	line	523
	colm	24
	synt	any
	invoke	2
	line	523
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	525
	colm	4
	synt	if
	mark0
	pnull
	var	15
	var	0
	line	525
	colm	11
	synt	any
	invoke	1
	str	2
	line	525
	colm	17
	synt	any
	lexne
	unmark
	mark	L5
	pnull
	var	0
	pnull
	var	1
	pnull
	var	2
	pnull
	var	3
	var	4
	line	526
	colm	50
	synt	any
	swap
	line	526
	colm	37
	synt	any
	swap
	line	526
	colm	24
	synt	any
	swap
	line	526
	colm	11
	synt	any
	swap
	unmark
lab L5
	mark	L6
	pnull
	var	0
	line	527
	colm	14
	synt	any
	keywd	window
	line	527
	colm	11
	synt	any
	asgn
	unmark
lab L6
	pnull
	pnull
	var	0
	line	528
	colm	7
	synt	any
	null
	pnull
	var	14
	var	17
	str	3
	pnull
	str	4
	str	5
	line	528
	colm	56
	synt	any
	cat
	line	528
	colm	32
	synt	any
	invoke	2
	line	528
	colm	24
	synt	any
	asgn
	line	528
	colm	12
	synt	any
	asgn
	line	525
	colm	4
	synt	endif
	unmark
lab L4
	mark	L7
	pnull
	pnull
	var	1
	line	531
	colm	4
	synt	any
	null
	str	6
	line	531
	colm	14
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	line	532
	colm	4
	synt	if
	mark0
	pnull
	var	15
	var	1
	line	532
	colm	11
	synt	any
	invoke	1
	str	7
	line	532
	colm	22
	synt	any
	lexne
	unmark
	pnull
	var	1
	pnull
	var	1
	line	532
	colm	50
	synt	any
	llist	1
	line	532
	colm	47
	synt	any
	asgn
	line	532
	colm	4
	synt	endif
	unmark
lab L8
	mark	L9
	pnull
	var	18
	var	19
	line	543
	colm	23
	synt	any
	invoke	0
	line	543
	colm	13
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	18
	line	544
	colm	12
	synt	any
	field	callback
	var	3
	line	544
	colm	22
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	18
	line	545
	colm	12
	synt	any
	field	id
	var	4
	line	545
	colm	16
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	18
	line	546
	colm	12
	synt	any
	field	refcolor
	var	2
	line	546
	colm	22
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	18
	line	547
	colm	12
	synt	any
	field	orgcolor
	var	20
	var	0
	mark	L14
	pnull
	var	2
	line	547
	colm	41
	synt	any
	nonnull
	line	547
	colm	51
	synt	any
	esusp
	goto	L15
lab L14
	mark	L16
	var	21
	var	0
	line	547
	colm	55
	synt	any
	invoke	1
	line	547
	colm	61
	synt	any
	esusp
	goto	L17
lab L16
	str	8
lab L17
lab L15
	line	547
	colm	35
	synt	any
	invoke	2
	line	547
	colm	22
	synt	any
	asgn
	unmark
lab L13
	mark	L18
	pnull
	var	18
	line	549
	colm	12
	synt	any
	field	orgcolor
	line	549
	colm	22
	synt	any
	bscan
	mark	L19
	pnull
	pnull
	var	18
	line	550
	colm	15
	synt	any
	field	r
	var	22
	var	23
	var	24
	line	550
	colm	38
	synt	any
	keywd	digits
	line	550
	colm	37
	synt	any
	invoke	1
	line	550
	colm	32
	synt	any
	invoke	1
	line	550
	colm	28
	synt	any
	invoke	1
	line	550
	colm	18
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	var	25
	int	9
	line	551
	colm	11
	synt	any
	invoke	1
	unmark
lab L20
	mark	L21
	pnull
	pnull
	var	18
	line	552
	colm	15
	synt	any
	field	g
	var	22
	var	23
	var	24
	line	552
	colm	38
	synt	any
	keywd	digits
	line	552
	colm	37
	synt	any
	invoke	1
	line	552
	colm	32
	synt	any
	invoke	1
	line	552
	colm	28
	synt	any
	invoke	1
	line	552
	colm	18
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	var	25
	int	9
	line	553
	colm	11
	synt	any
	invoke	1
	unmark
lab L22
	pnull
	pnull
	var	18
	line	554
	colm	15
	synt	any
	field	b
	var	22
	var	23
	var	24
	line	554
	colm	38
	synt	any
	keywd	digits
	line	554
	colm	37
	synt	any
	invoke	1
	line	554
	colm	32
	synt	any
	invoke	1
	line	554
	colm	28
	synt	any
	invoke	1
	line	554
	colm	18
	synt	any
	asgn
	line	549
	colm	22
	synt	any
	escan
	unmark
lab L18
	mark	L23
	var	26
	pnull
	var	18
	line	556
	colm	16
	synt	any
	field	orgcolor
	line	556
	colm	7
	synt	any
	invoke	1
	line	556
	colm	27
	synt	any
	bscan
	mark	L24
	pnull
	pnull
	var	18
	line	557
	colm	15
	synt	any
	field	h
	var	22
	var	23
	var	24
	line	557
	colm	38
	synt	any
	keywd	digits
	line	557
	colm	37
	synt	any
	invoke	1
	line	557
	colm	32
	synt	any
	invoke	1
	line	557
	colm	28
	synt	any
	invoke	1
	line	557
	colm	18
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	var	25
	int	9
	line	558
	colm	11
	synt	any
	invoke	1
	unmark
lab L25
	mark	L26
	pnull
	pnull
	var	18
	line	559
	colm	15
	synt	any
	field	s
	var	22
	var	23
	var	24
	line	559
	colm	38
	synt	any
	keywd	digits
	line	559
	colm	37
	synt	any
	invoke	1
	line	559
	colm	32
	synt	any
	invoke	1
	line	559
	colm	28
	synt	any
	invoke	1
	line	559
	colm	18
	synt	any
	asgn
	unmark
lab L26
	mark	L27
	var	25
	int	9
	line	560
	colm	11
	synt	any
	invoke	1
	unmark
lab L27
	pnull
	pnull
	var	18
	line	561
	colm	15
	synt	any
	field	v
	var	22
	var	23
	var	24
	line	561
	colm	38
	synt	any
	keywd	digits
	line	561
	colm	37
	synt	any
	invoke	1
	line	561
	colm	32
	synt	any
	invoke	1
	line	561
	colm	28
	synt	any
	invoke	1
	line	561
	colm	18
	synt	any
	asgn
	line	556
	colm	27
	synt	any
	escan
	unmark
lab L23
	mark	L28
	pnull
	var	10
	var	27
	var	0
	str	10
	line	564
	colm	19
	synt	any
	invoke	2
	line	564
	colm	9
	synt	any
	asgn
	unmark
lab L28
	mark	L29
	pnull
	var	11
	pnull
	int	11
	var	10
	line	565
	colm	13
	synt	any
	mult
	line	565
	colm	8
	synt	any
	asgn
	unmark
lab L29
	mark	L30
	pnull
	var	8
	pnull
	var	10
	line	567
	colm	9
	synt	any
	neg
	line	567
	colm	6
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	pnull
	var	12
	var	28
	var	0
	var	11
	var	11
	var	29
	line	569
	colm	21
	synt	any
	invoke	4
	line	569
	colm	11
	synt	any
	asgn
	unmark
lab L31
	mark	L32
	line	570
	colm	4
	synt	every
	mark0
	var	30
	var	12
	var	31
	var	0
	pnull
	var	1
	line	570
	colm	40
	synt	any
	bang
	line	570
	colm	34
	synt	any
	invoke	2
	int	1
	pnull
	var	8
	dup
	var	10
	line	570
	colm	57
	synt	any
	plus
	asgn
	line	570
	colm	17
	synt	any
	invoke	4
	pop
lab L33
	efail
lab L34
	line	570
	colm	4
	synt	endevery
	unmark
lab L32
	mark	L35
	pnull
	var	7
	pnull
	int	12
	int	13
	line	572
	colm	13
	synt	any
	plus
	line	572
	colm	7
	synt	any
	asgn
	unmark
lab L35
	mark	L36
	pnull
	var	5
	pnull
	int	1
	var	7
	line	573
	colm	12
	synt	any
	minus
	line	573
	colm	7
	synt	any
	asgn
	unmark
lab L36
	mark	L37
	pnull
	var	6
	pnull
	int	14
	int	13
	line	574
	colm	14
	synt	any
	plus
	line	574
	colm	7
	synt	any
	asgn
	unmark
lab L37
	mark	L38
	pnull
	var	8
	dup
	var	11
	line	575
	colm	6
	synt	any
	plus
	asgn
	unmark
lab L38
	mark	L39
	pnull
	pnull
	var	18
	line	577
	colm	12
	synt	any
	field	dialog
	var	12
	line	577
	colm	20
	synt	any
	asgn
	unmark
lab L39
	mark	L40
	pnull
	pnull
	var	18
	line	578
	colm	12
	synt	any
	field	rv
	var	32
	var	12
	str	15
	pnull
	var	5
	dup
	var	7
	line	578
	colm	46
	synt	any
	plus
	asgn
	var	8
	int	1
	int	16
	pnull
	var	18
	line	578
	colm	75
	synt	any
	field	r
	line	578
	colm	29
	synt	any
	invoke	7
	line	578
	colm	16
	synt	any
	asgn
	unmark
lab L40
	mark	L41
	pnull
	pnull
	var	18
	line	579
	colm	12
	synt	any
	field	gv
	var	32
	var	12
	str	17
	pnull
	var	5
	dup
	var	7
	line	579
	colm	46
	synt	any
	plus
	asgn
	var	8
	int	1
	int	16
	pnull
	var	18
	line	579
	colm	75
	synt	any
	field	g
	line	579
	colm	29
	synt	any
	invoke	7
	line	579
	colm	16
	synt	any
	asgn
	unmark
lab L41
	mark	L42
	pnull
	pnull
	var	18
	line	580
	colm	12
	synt	any
	field	bv
	var	32
	var	12
	str	18
	pnull
	var	5
	dup
	var	7
	line	580
	colm	46
	synt	any
	plus
	asgn
	var	8
	int	1
	int	16
	pnull
	var	18
	line	580
	colm	75
	synt	any
	field	b
	line	580
	colm	29
	synt	any
	invoke	7
	line	580
	colm	16
	synt	any
	asgn
	unmark
lab L42
	mark	L43
	pnull
	pnull
	var	18
	line	581
	colm	12
	synt	any
	field	vv
	var	32
	var	12
	str	19
	pnull
	var	6
	dup
	var	7
	line	581
	colm	46
	synt	any
	minus
	asgn
	var	8
	int	1
	int	20
	pnull
	var	18
	line	581
	colm	73
	synt	any
	field	v
	line	581
	colm	29
	synt	any
	invoke	7
	line	581
	colm	16
	synt	any
	asgn
	unmark
lab L43
	mark	L44
	pnull
	pnull
	var	18
	line	582
	colm	12
	synt	any
	field	sv
	var	32
	var	12
	str	21
	pnull
	var	6
	dup
	var	7
	line	582
	colm	46
	synt	any
	minus
	asgn
	var	8
	int	1
	int	20
	pnull
	var	18
	line	582
	colm	73
	synt	any
	field	s
	line	582
	colm	29
	synt	any
	invoke	7
	line	582
	colm	16
	synt	any
	asgn
	unmark
lab L44
	mark	L45
	pnull
	pnull
	var	18
	line	583
	colm	12
	synt	any
	field	hv
	var	32
	var	12
	str	22
	pnull
	var	6
	dup
	var	7
	line	583
	colm	46
	synt	any
	minus
	asgn
	var	8
	int	1
	int	23
	pnull
	var	18
	line	583
	colm	73
	synt	any
	field	h
	line	583
	colm	29
	synt	any
	invoke	7
	line	583
	colm	16
	synt	any
	asgn
	unmark
lab L45
	mark	L46
	pnull
	var	5
	dup
	pnull
	var	7
	int	13
	line	585
	colm	14
	synt	any
	plus
	line	585
	colm	7
	synt	any
	plus
	asgn
	unmark
lab L46
	mark	L47
	pnull
	var	6
	dup
	pnull
	int	11
	int	13
	line	586
	colm	13
	synt	any
	mult
	line	586
	colm	7
	synt	any
	minus
	asgn
	unmark
lab L47
	mark	L48
	pnull
	pnull
	var	18
	line	587
	colm	12
	synt	any
	field	rect
	var	33
	var	0
	pnull
	pnull
	str	24
	pnull
	var	6
	var	5
	line	588
	colm	10
	synt	any
	minus
	pnull
	pnull
	int	25
	pnull
	int	26
	var	10
	line	588
	colm	24
	synt	any
	mult
	line	588
	colm	20
	synt	any
	minus
	int	13
	line	588
	colm	31
	synt	any
	minus
	line	587
	colm	26
	synt	any
	invoke	6
	line	587
	colm	18
	synt	any
	asgn
	unmark
lab L48
	mark	L49
	var	30
	var	12
	pnull
	var	18
	line	589
	colm	28
	synt	any
	field	rect
	var	5
	var	8
	line	589
	colm	11
	synt	any
	invoke	4
	unmark
lab L49
	mark	L50
	pnull
	var	8
	dup
	pnull
	int	25
	var	11
	line	591
	colm	14
	synt	any
	plus
	line	591
	colm	6
	synt	any
	plus
	asgn
	unmark
lab L50
	mark	L51
	pnull
	var	9
	pnull
	var	34
	var	0
	str	27
	line	592
	colm	19
	synt	any
	invoke	2
	int	28
	line	592
	colm	35
	synt	any
	plus
	line	592
	colm	7
	synt	any
	asgn
	unmark
lab L51
	mark	L52
	var	30
	var	12
	var	35
	var	0
	str	29
	var	36
	var	37
	pnull
	var	9
	int	30
	line	593
	colm	27
	synt	any
	invoke	7
	pnull
	pnull
	pnull
	int	14
	int	11
	line	594
	colm	20
	synt	any
	div
	var	9
	line	594
	colm	24
	synt	any
	minus
	int	28
	line	594
	colm	29
	synt	any
	minus
	var	8
	line	593
	colm	11
	synt	any
	invoke	4
	unmark
lab L52
	mark	L53
	var	30
	var	12
	var	35
	var	0
	str	27
	var	36
	var	37
	pnull
	var	9
	int	30
	line	595
	colm	27
	synt	any
	invoke	7
	pnull
	pnull
	int	14
	int	11
	line	596
	colm	20
	synt	any
	div
	int	28
	line	596
	colm	24
	synt	any
	plus
	var	8
	line	595
	colm	11
	synt	any
	invoke	4
	unmark
lab L53
	mark	L54
	var	38
	var	12
	line	598
	colm	11
	synt	any
	invoke	1
	unmark
lab L54
	mark	L55
	pnull
	var	13
	mark	L56
	pnull
	var	1
	int	9
	line	599
	colm	22
	synt	any
	subsc
	line	599
	colm	26
	synt	any
	esusp
	goto	L57
lab L56
	str	31
lab L57
	line	599
	colm	11
	synt	any
	asgn
	unmark
lab L55
	mark	L58
	var	39
	var	12
	pnull
	var	13
	pnull
	str	29
	line	600
	colm	15
	synt	any
	invoke	5
	unmark
lab L58
	mark	L59
	pnull
	var	40
	pnull
	pnull
	pnull
	pnull
	pnull
	var	18
	line	602
	colm	28
	synt	any
	field	r
	str	32
	line	602
	colm	31
	synt	any
	cat
	pnull
	var	18
	line	602
	colm	49
	synt	any
	field	g
	line	602
	colm	38
	synt	any
	cat
	str	32
	line	602
	colm	52
	synt	any
	cat
	pnull
	var	18
	line	602
	colm	70
	synt	any
	field	b
	line	602
	colm	59
	synt	any
	cat
	line	602
	colm	17
	synt	any
	asgn
	unmark
lab L59
	mark	L60
	var	41
	pnull
	var	14
	line	604
	colm	11
	synt	any
	nonnull
	line	604
	colm	10
	synt	any
	invoke	1
	unmark
lab L60
	mark	L61
	mark	L62
	var	42
	line	606
	colm	4
	synt	any
	pret
lab L62
	synt	any
	pfail
	unmark
lab L61
	pnull
	line	608
	colm	1
	synt	any
	pfail
	end
proc cdl_slider
	local	0,001000,dialog
	local	1,001000,id
	local	2,001000,x
	local	3,001000,y
	local	4,001000,low
	local	5,001000,high
	local	6,001000,init
	local	7,000020,v
	local	8,000000,Vvert_slider
	local	9,000000,cdl_setval
	local	10,000000,VInsert
	con	0,002000,3,200
	con	1,002000,2,15
	declend
	line	610
	colm	11
	synt	any
	mark	L1
	pnull
	var	7
	var	8
	pnull
	var	0
	line	613
	colm	28
	synt	any
	field	win
	var	9
	var	1
	int	0
	int	1
	var	4
	var	5
	var	6
	line	613
	colm	21
	synt	any
	invoke	8
	line	613
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	10
	var	0
	var	7
	var	2
	var	3
	line	615
	colm	11
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	mark	L4
	var	7
	line	616
	colm	4
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	617
	colm	1
	synt	any
	pfail
	end
proc cdl_init
	local	0,000020,r
	local	1,000000,cdl_data
	local	2,000000,Fg
	local	3,000000,NewColor
	local	4,000000,FillRectangle
	local	5,000000,cdl_sethsv
	con	0,002000,1,0
	con	1,002000,1,1
	con	2,002000,1,8
	declend
	line	619
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	pnull
	var	1
	line	622
	colm	17
	synt	any
	field	rect
	line	622
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	623
	colm	12
	synt	any
	field	fg
	var	2
	pnull
	var	0
	line	623
	colm	23
	synt	any
	field	win
	line	623
	colm	21
	synt	any
	invoke	1
	line	623
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	1
	line	624
	colm	12
	synt	any
	field	fillargs
	pnull
	pnull
	var	0
	line	624
	colm	27
	synt	any
	field	win
	pnull
	var	0
	line	624
	colm	34
	synt	any
	field	ux
	pnull
	var	0
	line	624
	colm	40
	synt	any
	field	uy
	pnull
	var	0
	line	624
	colm	46
	synt	any
	field	uw
	pnull
	var	0
	line	624
	colm	52
	synt	any
	field	uh
	line	624
	colm	25
	synt	any
	llist	5
	line	624
	colm	22
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	625
	colm	4
	synt	ifelse
	mark	L5
	pnull
	pnull
	var	1
	line	625
	colm	15
	synt	any
	field	mutable
	var	3
	pnull
	pnull
	var	1
	line	625
	colm	44
	synt	any
	field	rect
	line	625
	colm	49
	synt	any
	field	win
	pnull
	var	1
	line	625
	colm	63
	synt	any
	field	orgcolor
	line	625
	colm	35
	synt	any
	invoke	2
	line	625
	colm	24
	synt	any
	asgn
	unmark
	mark	L7
	var	2
	pnull
	var	0
	line	626
	colm	11
	synt	any
	field	win
	pnull
	var	1
	line	626
	colm	25
	synt	any
	field	mutable
	line	626
	colm	9
	synt	any
	invoke	2
	unmark
lab L7
	var	4
	pnull
	var	1
	line	627
	colm	31
	synt	any
	field	fillargs
	invoke	-1
	goto	L6
lab L5
	pnull
	pnull
	var	1
	line	630
	colm	15
	synt	any
	field	nc
	int	0
	line	630
	colm	19
	synt	any
	asgn
lab L6
	line	625
	colm	4
	synt	endifelse
	unmark
lab L4
	mark	L8
	line	631
	colm	4
	synt	if
	mark0
	var	2
	pnull
	var	0
	line	631
	colm	11
	synt	any
	field	win
	pnull
	pnull
	var	1
	line	631
	colm	26
	synt	any
	field	refcolor
	line	631
	colm	17
	synt	any
	nonnull
	line	631
	colm	9
	synt	any
	invoke	2
	unmark
	mark	L9
	pnull
	pnull
	pnull
	var	1
	line	632
	colm	15
	synt	any
	field	fillargs
	pnull
	int	1
	line	632
	colm	25
	synt	any
	neg
	line	632
	colm	24
	synt	any
	subsc
	dup
	pnull
	pnull
	var	0
	line	632
	colm	34
	synt	any
	field	uh
	int	2
	line	632
	colm	38
	synt	any
	div
	line	632
	colm	29
	synt	any
	minus
	asgn
	unmark
lab L9
	var	4
	pnull
	var	0
	line	633
	colm	22
	synt	any
	field	win
	pnull
	var	0
	line	633
	colm	29
	synt	any
	field	ux
	pnull
	pnull
	var	0
	line	633
	colm	35
	synt	any
	field	uy
	pnull
	var	0
	line	633
	colm	42
	synt	any
	field	uh
	line	633
	colm	39
	synt	any
	plus
	pnull
	var	0
	line	633
	colm	48
	synt	any
	field	uw
	pnull
	pnull
	pnull
	var	0
	line	633
	colm	55
	synt	any
	field	uh
	line	633
	colm	53
	synt	any
	neg
	int	2
	line	633
	colm	59
	synt	any
	div
	line	633
	colm	20
	synt	any
	invoke	5
	line	631
	colm	4
	synt	endif
	unmark
lab L8
	mark	L10
	var	2
	pnull
	var	0
	line	635
	colm	8
	synt	any
	field	win
	pnull
	var	1
	line	635
	colm	22
	synt	any
	field	fg
	line	635
	colm	6
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	5
	line	636
	colm	14
	synt	any
	invoke	0
	unmark
lab L11
	mark	L12
	mark	L13
	pnull
	line	637
	colm	4
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	638
	colm	1
	synt	any
	pfail
	end
proc cdl_exit
	local	0,001000,vidget
	local	1,001000,s
	local	2,000000,dialog_button
	local	3,000000,FreeColor
	local	4,000000,cdl_data
	local	5,000000,EraseArea
	declend
	line	640
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	0
	line	641
	colm	27
	synt	any
	field	s
	line	641
	colm	18
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	3
	pnull
	pnull
	var	4
	line	642
	colm	22
	synt	any
	field	rect
	line	642
	colm	27
	synt	any
	field	win
	pnull
	pnull
	var	4
	line	642
	colm	42
	synt	any
	field	mutable
	line	642
	colm	33
	synt	any
	nonnull
	line	642
	colm	13
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	5
	pnull
	pnull
	var	4
	line	643
	colm	22
	synt	any
	field	rect
	line	643
	colm	27
	synt	any
	field	win
	line	643
	colm	13
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	644
	colm	4
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	645
	colm	1
	synt	any
	pfail
	end
proc cdl_setval
	local	0,001000,v
	local	1,001000,x
	local	2,000040,recurse
	local	3,000000,cdl_data
	local	4,000000,cdl_sethsv
	local	5,000000,cdl_setrgb
	con	0,002000,1,1
	con	1,010000,1,162
	con	2,010000,1,147
	con	3,010000,1,142
	con	4,010000,1,150
	con	5,010000,1,163
	con	6,010000,1,166
	declend
	line	647
	colm	11
	synt	any
	mark	L1
	line	650
	colm	4
	synt	if
	mark0
	pnull
	var	2
	line	650
	colm	7
	synt	any
	null
	unmark
	mark	L2
	pnull
	var	2
	int	0
	line	651
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	652
	colm	7
	synt	case
	mark0
	pnull
	var	0
	line	652
	colm	13
	synt	any
	field	id
	eret
	mark	L5
	ccase
	str	1
	line	653
	colm	13
	synt	any
	eqv
	unmark
	pop
	mark	L6
	pnull
	pnull
	var	3
	line	653
	colm	26
	synt	any
	field	r
	var	1
	line	653
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	var	4
	line	653
	colm	45
	synt	any
	invoke	0
	unmark
lab L7
	pnull
	goto	L4
lab L5
	mark	L8
	ccase
	str	2
	line	654
	colm	13
	synt	any
	eqv
	unmark
	pop
	mark	L9
	pnull
	pnull
	var	3
	line	654
	colm	26
	synt	any
	field	g
	var	1
	line	654
	colm	29
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	var	4
	line	654
	colm	45
	synt	any
	invoke	0
	unmark
lab L10
	pnull
	goto	L4
lab L8
	mark	L11
	ccase
	str	3
	line	655
	colm	13
	synt	any
	eqv
	unmark
	pop
	mark	L12
	pnull
	pnull
	var	3
	line	655
	colm	26
	synt	any
	field	b
	var	1
	line	655
	colm	29
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	var	4
	line	655
	colm	45
	synt	any
	invoke	0
	unmark
lab L13
	pnull
	goto	L4
lab L11
	mark	L14
	ccase
	str	4
	line	656
	colm	13
	synt	any
	eqv
	unmark
	pop
	mark	L15
	pnull
	pnull
	var	3
	line	656
	colm	26
	synt	any
	field	h
	var	1
	line	656
	colm	29
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	var	5
	line	656
	colm	45
	synt	any
	invoke	0
	unmark
lab L16
	pnull
	goto	L4
lab L14
	mark	L17
	ccase
	str	5
	line	657
	colm	13
	synt	any
	eqv
	unmark
	pop
	mark	L18
	pnull
	pnull
	var	3
	line	657
	colm	26
	synt	any
	field	s
	var	1
	line	657
	colm	29
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	var	5
	line	657
	colm	45
	synt	any
	invoke	0
	unmark
lab L19
	pnull
	goto	L4
lab L17
	mark	L20
	ccase
	str	6
	line	658
	colm	13
	synt	any
	eqv
	unmark
	pop
	mark	L21
	pnull
	pnull
	var	3
	line	658
	colm	26
	synt	any
	field	v
	var	1
	line	658
	colm	29
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	var	5
	line	658
	colm	45
	synt	any
	invoke	0
	unmark
lab L22
	pnull
	goto	L4
lab L20
	efail
lab L4
	line	652
	colm	7
	synt	endcase
	unmark
lab L3
	pnull
	var	2
	line	660
	colm	18
	synt	any
	keywd	null
	line	660
	colm	15
	synt	any
	asgn
	line	650
	colm	4
	synt	endif
	unmark
lab L1
	mark	L23
	mark	L24
	pnull
	line	662
	colm	4
	synt	any
	pret
lab L24
	synt	any
	pfail
	unmark
lab L23
	pnull
	line	663
	colm	1
	synt	any
	pfail
	end
proc cdl_sethsv
	local	0,000020,c
	local	1,000000,HSV
	local	2,000000,cdl_data
	local	3,000000,VSetState
	local	4,000000,integer
	local	5,000000,tab
	local	6,000000,many
	local	7,000000,move
	local	8,000000,cdl_setcolor
	con	0,010000,1,054
	con	1,002000,1,1
	declend
	line	665
	colm	11
	synt	any
	mark	L1
	var	1
	pnull
	var	0
	pnull
	pnull
	pnull
	pnull
	pnull
	var	2
	line	668
	colm	21
	synt	any
	field	r
	str	0
	line	668
	colm	24
	synt	any
	cat
	pnull
	var	2
	line	668
	colm	42
	synt	any
	field	g
	line	668
	colm	31
	synt	any
	cat
	str	0
	line	668
	colm	45
	synt	any
	cat
	pnull
	var	2
	line	668
	colm	63
	synt	any
	field	b
	line	668
	colm	52
	synt	any
	cat
	line	668
	colm	10
	synt	any
	asgn
	line	668
	colm	7
	synt	any
	invoke	1
	line	668
	colm	67
	synt	any
	bscan
	mark	L2
	var	3
	pnull
	var	2
	line	669
	colm	25
	synt	any
	field	hv
	pnull
	pnull
	var	2
	line	669
	colm	38
	synt	any
	field	h
	var	4
	var	5
	var	6
	line	669
	colm	61
	synt	any
	keywd	digits
	line	669
	colm	60
	synt	any
	invoke	1
	line	669
	colm	55
	synt	any
	invoke	1
	line	669
	colm	51
	synt	any
	invoke	1
	line	669
	colm	41
	synt	any
	asgn
	line	669
	colm	16
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	7
	int	1
	line	670
	colm	11
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	3
	pnull
	var	2
	line	671
	colm	25
	synt	any
	field	sv
	pnull
	pnull
	var	2
	line	671
	colm	38
	synt	any
	field	s
	var	4
	var	5
	var	6
	line	671
	colm	61
	synt	any
	keywd	digits
	line	671
	colm	60
	synt	any
	invoke	1
	line	671
	colm	55
	synt	any
	invoke	1
	line	671
	colm	51
	synt	any
	invoke	1
	line	671
	colm	41
	synt	any
	asgn
	line	671
	colm	16
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	7
	int	1
	line	672
	colm	11
	synt	any
	invoke	1
	unmark
lab L5
	var	3
	pnull
	var	2
	line	673
	colm	25
	synt	any
	field	vv
	pnull
	pnull
	var	2
	line	673
	colm	38
	synt	any
	field	v
	var	4
	var	5
	var	6
	line	673
	colm	61
	synt	any
	keywd	digits
	line	673
	colm	60
	synt	any
	invoke	1
	line	673
	colm	55
	synt	any
	invoke	1
	line	673
	colm	51
	synt	any
	invoke	1
	line	673
	colm	41
	synt	any
	asgn
	line	673
	colm	16
	synt	any
	invoke	2
	line	668
	colm	67
	synt	any
	escan
	unmark
lab L1
	mark	L6
	var	8
	var	0
	line	675
	colm	16
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	mark	L8
	pnull
	line	676
	colm	4
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	677
	colm	1
	synt	any
	pfail
	end
proc cdl_setrgb
	local	0,000020,c
	local	1,000000,HSVValue
	local	2,000000,cdl_data
	local	3,000000,VSetState
	local	4,000000,integer
	local	5,000000,tab
	local	6,000000,many
	local	7,000000,move
	local	8,000000,cdl_setcolor
	con	0,010000,1,057
	con	1,002000,1,1
	declend
	line	679
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	var	1
	pnull
	pnull
	pnull
	pnull
	pnull
	var	2
	line	682
	colm	27
	synt	any
	field	h
	str	0
	line	682
	colm	30
	synt	any
	cat
	pnull
	var	2
	line	682
	colm	48
	synt	any
	field	s
	line	682
	colm	37
	synt	any
	cat
	str	0
	line	682
	colm	51
	synt	any
	cat
	pnull
	var	2
	line	682
	colm	69
	synt	any
	field	v
	line	682
	colm	58
	synt	any
	cat
	line	682
	colm	18
	synt	any
	invoke	1
	line	682
	colm	7
	synt	any
	asgn
	line	682
	colm	74
	synt	any
	bscan
	mark	L2
	var	3
	pnull
	var	2
	line	683
	colm	25
	synt	any
	field	rv
	pnull
	pnull
	var	2
	line	683
	colm	38
	synt	any
	field	r
	var	4
	var	5
	var	6
	line	683
	colm	61
	synt	any
	keywd	digits
	line	683
	colm	60
	synt	any
	invoke	1
	line	683
	colm	55
	synt	any
	invoke	1
	line	683
	colm	51
	synt	any
	invoke	1
	line	683
	colm	41
	synt	any
	asgn
	line	683
	colm	16
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	7
	int	1
	line	684
	colm	11
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	3
	pnull
	var	2
	line	685
	colm	25
	synt	any
	field	gv
	pnull
	pnull
	var	2
	line	685
	colm	38
	synt	any
	field	g
	var	4
	var	5
	var	6
	line	685
	colm	61
	synt	any
	keywd	digits
	line	685
	colm	60
	synt	any
	invoke	1
	line	685
	colm	55
	synt	any
	invoke	1
	line	685
	colm	51
	synt	any
	invoke	1
	line	685
	colm	41
	synt	any
	asgn
	line	685
	colm	16
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	7
	int	1
	line	686
	colm	11
	synt	any
	invoke	1
	unmark
lab L5
	var	3
	pnull
	var	2
	line	687
	colm	25
	synt	any
	field	bv
	pnull
	pnull
	var	2
	line	687
	colm	38
	synt	any
	field	b
	var	4
	var	5
	var	6
	line	687
	colm	61
	synt	any
	keywd	digits
	line	687
	colm	60
	synt	any
	invoke	1
	line	687
	colm	55
	synt	any
	invoke	1
	line	687
	colm	51
	synt	any
	invoke	1
	line	687
	colm	41
	synt	any
	asgn
	line	687
	colm	16
	synt	any
	invoke	2
	line	682
	colm	74
	synt	any
	escan
	unmark
lab L1
	mark	L6
	var	8
	var	0
	line	689
	colm	16
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	mark	L8
	pnull
	line	690
	colm	4
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	691
	colm	1
	synt	any
	pfail
	end
proc cdl_setcolor
	local	0,001000,c
	local	1,000020,r
	local	2,000020,win
	local	3,000020,x1
	local	4,000020,x2
	local	5,000020,y
	local	6,000020,dy
	local	7,000000,cdl_data
	local	8,000000,Color
	local	9,000000,Fg
	local	10,000000,EraseArea
	local	11,000000,VDraw
	local	12,000000,FillRectangle
	local	13,000000,WAttrib
	local	14,000000,TextWidth
	local	15,000000,DrawString
	local	16,000000,right
	con	0,002000,1,1
	con	1,002000,3,200
	con	2,002000,1,8
	con	3,002000,1,5
	con	4,010000,7,154,145,141,144,151,156,147
	con	5,002000,1,3
	con	6,010000,6,141,163,143,145,156,164
	con	7,010000,6,150,072,040,063,066,060
	con	8,010000,3,162,072,040
	con	9,010000,3,150,072,040
	con	10,010000,3,147,072,040
	con	11,010000,3,163,072,040
	con	12,010000,3,142,072,040
	con	13,010000,3,166,072,040
	declend
	line	693
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	var	7
	line	696
	colm	17
	synt	any
	field	rect
	line	696
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	1
	line	697
	colm	12
	synt	any
	field	win
	line	697
	colm	8
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	698
	colm	4
	synt	ifelse
	mark	L4
	pnull
	pnull
	var	7
	line	698
	colm	16
	synt	any
	field	mutable
	line	698
	colm	7
	synt	any
	nonnull
	unmark
	var	8
	var	2
	pnull
	var	7
	line	699
	colm	26
	synt	any
	field	mutable
	var	0
	line	699
	colm	12
	synt	any
	invoke	3
	goto	L5
lab L4
	mark	L6
	line	701
	colm	7
	synt	if
	mark0
	mark	L7
	pnull
	pnull
	pnull
	var	7
	line	701
	colm	20
	synt	any
	field	nc
	dup
	int	0
	line	701
	colm	24
	synt	any
	plus
	asgn
	int	1
	line	701
	colm	31
	synt	any
	numgt
	line	701
	colm	38
	synt	any
	esusp
	goto	L8
lab L7
	mark	L9
	var	9
	var	2
	var	0
	line	701
	colm	47
	synt	any
	invoke	2
	unmark
	efail
lab L9
	pnull
lab L8
	unmark
	mark	L10
	var	10
	var	2
	line	702
	colm	19
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	var	11
	pnull
	var	7
	line	703
	colm	24
	synt	any
	field	dialog
	line	703
	colm	15
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	line	704
	colm	10
	synt	if
	mark0
	var	9
	pnull
	var	1
	line	704
	colm	17
	synt	any
	field	win
	pnull
	pnull
	var	7
	line	704
	colm	32
	synt	any
	field	refcolor
	line	704
	colm	23
	synt	any
	nonnull
	line	704
	colm	15
	synt	any
	invoke	2
	unmark
	var	12
	pnull
	var	1
	line	705
	colm	28
	synt	any
	field	win
	pnull
	var	1
	line	705
	colm	35
	synt	any
	field	ux
	pnull
	pnull
	var	1
	line	705
	colm	41
	synt	any
	field	uy
	pnull
	var	1
	line	705
	colm	48
	synt	any
	field	uh
	line	705
	colm	45
	synt	any
	plus
	pnull
	var	1
	line	705
	colm	54
	synt	any
	field	uw
	pnull
	pnull
	pnull
	var	1
	line	705
	colm	61
	synt	any
	field	uh
	line	705
	colm	59
	synt	any
	neg
	int	2
	line	705
	colm	65
	synt	any
	div
	line	705
	colm	26
	synt	any
	invoke	5
	line	704
	colm	10
	synt	endif
	unmark
lab L12
	mark	L13
	var	9
	var	2
	var	0
	line	706
	colm	12
	synt	any
	invoke	2
	unmark
lab L13
	pnull
	pnull
	var	7
	line	707
	colm	18
	synt	any
	field	nc
	int	0
	line	707
	colm	22
	synt	any
	asgn
	line	701
	colm	7
	synt	endif
	unmark
lab L6
	mark	L14
	var	12
	pnull
	var	7
	line	709
	colm	31
	synt	any
	field	fillargs
	invoke	-1
	unmark
lab L14
	var	9
	var	2
	pnull
	var	7
	line	710
	colm	23
	synt	any
	field	fg
	line	710
	colm	9
	synt	any
	invoke	2
lab L5
	line	698
	colm	4
	synt	endifelse
	unmark
lab L3
	mark	L15
	pnull
	var	3
	pnull
	pnull
	var	7
	line	713
	colm	18
	synt	any
	field	rect
	line	713
	colm	23
	synt	any
	field	ax
	line	713
	colm	7
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	var	4
	pnull
	var	3
	pnull
	pnull
	var	7
	line	714
	colm	23
	synt	any
	field	rect
	line	714
	colm	28
	synt	any
	field	aw
	line	714
	colm	13
	synt	any
	plus
	line	714
	colm	7
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	var	5
	pnull
	pnull
	pnull
	pnull
	var	7
	line	715
	colm	17
	synt	any
	field	rect
	line	715
	colm	22
	synt	any
	field	ay
	pnull
	pnull
	var	7
	line	715
	colm	36
	synt	any
	field	rect
	line	715
	colm	41
	synt	any
	field	ah
	line	715
	colm	26
	synt	any
	plus
	int	3
	line	715
	colm	45
	synt	any
	plus
	line	715
	colm	6
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	var	6
	var	13
	var	2
	str	4
	line	716
	colm	17
	synt	any
	invoke	2
	line	716
	colm	7
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	var	10
	var	2
	var	3
	var	5
	pnull
	var	4
	var	3
	line	718
	colm	29
	synt	any
	minus
	pnull
	int	5
	var	6
	line	718
	colm	37
	synt	any
	mult
	line	718
	colm	13
	synt	any
	invoke	5
	unmark
lab L19
	mark	L20
	pnull
	var	5
	dup
	var	13
	var	2
	str	6
	line	719
	colm	17
	synt	any
	invoke	2
	line	719
	colm	6
	synt	any
	plus
	asgn
	unmark
lab L20
	mark	L21
	pnull
	var	4
	dup
	var	14
	var	2
	str	7
	line	720
	colm	20
	synt	any
	invoke	2
	line	720
	colm	7
	synt	any
	minus
	asgn
	unmark
lab L21
	mark	L22
	var	15
	var	2
	var	3
	var	5
	pnull
	str	8
	var	16
	pnull
	var	7
	line	722
	colm	50
	synt	any
	field	r
	int	3
	line	722
	colm	41
	synt	any
	invoke	2
	line	722
	colm	33
	synt	any
	cat
	line	722
	colm	14
	synt	any
	invoke	4
	unmark
lab L22
	mark	L23
	var	15
	var	2
	var	4
	var	5
	pnull
	str	9
	var	16
	pnull
	var	7
	line	723
	colm	50
	synt	any
	field	h
	int	5
	line	723
	colm	41
	synt	any
	invoke	2
	line	723
	colm	33
	synt	any
	cat
	line	723
	colm	14
	synt	any
	invoke	4
	unmark
lab L23
	mark	L24
	pnull
	var	5
	dup
	var	6
	line	724
	colm	6
	synt	any
	plus
	asgn
	unmark
lab L24
	mark	L25
	var	15
	var	2
	var	3
	var	5
	pnull
	str	10
	var	16
	pnull
	var	7
	line	725
	colm	50
	synt	any
	field	g
	int	3
	line	725
	colm	41
	synt	any
	invoke	2
	line	725
	colm	33
	synt	any
	cat
	line	725
	colm	14
	synt	any
	invoke	4
	unmark
lab L25
	mark	L26
	var	15
	var	2
	var	4
	var	5
	pnull
	str	11
	var	16
	pnull
	var	7
	line	726
	colm	50
	synt	any
	field	s
	int	5
	line	726
	colm	41
	synt	any
	invoke	2
	line	726
	colm	33
	synt	any
	cat
	line	726
	colm	14
	synt	any
	invoke	4
	unmark
lab L26
	mark	L27
	pnull
	var	5
	dup
	var	6
	line	727
	colm	6
	synt	any
	plus
	asgn
	unmark
lab L27
	mark	L28
	var	15
	var	2
	var	3
	var	5
	pnull
	str	12
	var	16
	pnull
	var	7
	line	728
	colm	50
	synt	any
	field	b
	int	3
	line	728
	colm	41
	synt	any
	invoke	2
	line	728
	colm	33
	synt	any
	cat
	line	728
	colm	14
	synt	any
	invoke	4
	unmark
lab L28
	mark	L29
	var	15
	var	2
	var	4
	var	5
	pnull
	str	13
	var	16
	pnull
	var	7
	line	729
	colm	50
	synt	any
	field	v
	int	5
	line	729
	colm	41
	synt	any
	invoke	2
	line	729
	colm	33
	synt	any
	cat
	line	729
	colm	14
	synt	any
	invoke	4
	unmark
lab L29
	mark	L30
	pnull
	pnull
	var	7
	line	731
	colm	14
	synt	any
	field	callback
	line	731
	colm	5
	synt	any
	nonnull
	pnull
	var	7
	line	731
	colm	33
	synt	any
	field	id
	var	0
	line	731
	colm	24
	synt	any
	invoke	2
	unmark
lab L30
	mark	L31
	mark	L32
	pnull
	line	732
	colm	4
	synt	any
	pret
lab L32
	synt	any
	pfail
	unmark
lab L31
	pnull
	line	733
	colm	1
	synt	any
	pfail
	end
proc Popup
	local	0,001000,args
	local	1,000020,win
	local	2,000020,x
	local	3,000020,y
	local	4,000020,w
	local	5,000020,h
	local	6,000020,xx
	local	7,000020,yy
	local	8,000020,ww
	local	9,000020,hh
	local	10,000020,dx
	local	11,000020,dy
	local	12,000020,s
	local	13,000020,proc
	local	14,000020,retv
	local	15,000020,ampwin
	local	16,000020,save
	local	17,000000,PushWin
	local	18,000000,get
	local	19,000000,integer
	local	20,000000,runerr
	local	21,000000,Event
	local	22,000000,WAttrib
	local	23,000000,ScratchCanvas
	local	24,000000,stop
	local	25,000000,CopyArea
	local	26,000000,Clone
	local	27,000000,DrawRectangle
	local	28,000000,BevelRectangle
	local	29,000000,FillRectangle
	local	30,000000,Clip
	local	31,000000,EraseArea
	local	32,000000,Pending
	con	0,002000,3,101
	con	1,002000,3,250
	con	2,002000,3,150
	con	3,010000,2,144,170
	con	4,010000,2,144,171
	con	5,010000,5,167,151,144,164,150
	con	6,010000,6,150,145,151,147,150,164
	con	7,002000,1,2
	con	8,002000,1,4
	con	9,010000,9,137,137,120,157,160,165,160,137,137
	con	10,010000,34,143,141,156,047,164,040,147,145,164,040,123,143,162,141,164,143,150,103,141,156,166,141,163,040,151,156,040,120,157,160,165,160,050,051
	con	11,010000,22,143,141,156,047,164,040,103,154,157,156,145,040,151,156,040,120,157,160,165,160,050,051
	con	12,010000,11,144,162,141,167,157,160,075,143,157,160,171
	con	13,010000,15,146,151,154,154,163,164,171,154,145,075,163,157,154,151,144
	con	14,010000,15,154,151,156,145,163,164,171,154,145,075,163,157,154,151,144
	con	15,010000,11,154,151,156,145,167,151,144,164,150,075,061
	con	16,010000,3,144,170,075
	con	17,010000,3,144,171,075
	con	18,002000,1,1
	con	19,002000,1,0
	declend
	line	740
	colm	11
	synt	any
	mark	L1
	var	17
	var	0
	line	744
	colm	11
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	18
	var	0
	line	745
	colm	14
	synt	any
	invoke	1
	line	745
	colm	8
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	var	18
	var	0
	line	746
	colm	12
	synt	any
	invoke	1
	line	746
	colm	6
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	var	19
	var	2
	line	746
	colm	40
	synt	any
	invoke	1
	line	746
	colm	44
	synt	any
	esusp
	goto	L6
lab L5
	var	20
	int	0
	pnull
	var	2
	line	746
	colm	58
	synt	any
	nonnull
	line	746
	colm	52
	synt	any
	invoke	2
lab L6
	unmark
lab L4
	mark	L7
	pnull
	var	3
	var	18
	var	0
	line	747
	colm	12
	synt	any
	invoke	1
	line	747
	colm	6
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	mark	L9
	var	19
	var	3
	line	747
	colm	40
	synt	any
	invoke	1
	line	747
	colm	44
	synt	any
	esusp
	goto	L10
lab L9
	var	20
	int	0
	pnull
	var	3
	line	747
	colm	58
	synt	any
	nonnull
	line	747
	colm	52
	synt	any
	invoke	2
lab L10
	unmark
lab L8
	mark	L11
	pnull
	var	4
	mark	L12
	pnull
	var	18
	var	0
	line	748
	colm	13
	synt	any
	invoke	1
	line	748
	colm	9
	synt	any
	nonnull
	line	748
	colm	20
	synt	any
	esusp
	goto	L13
lab L12
	int	1
lab L13
	line	748
	colm	6
	synt	any
	asgn
	unmark
lab L11
	mark	L14
	mark	L15
	var	19
	var	4
	line	748
	colm	40
	synt	any
	invoke	1
	line	748
	colm	44
	synt	any
	esusp
	goto	L16
lab L15
	var	20
	int	0
	var	4
	line	748
	colm	52
	synt	any
	invoke	2
lab L16
	unmark
lab L14
	mark	L17
	pnull
	var	5
	mark	L18
	pnull
	var	18
	var	0
	line	749
	colm	13
	synt	any
	invoke	1
	line	749
	colm	9
	synt	any
	nonnull
	line	749
	colm	20
	synt	any
	esusp
	goto	L19
lab L18
	int	2
lab L19
	line	749
	colm	6
	synt	any
	asgn
	unmark
lab L17
	mark	L20
	mark	L21
	var	19
	var	5
	line	749
	colm	40
	synt	any
	invoke	1
	line	749
	colm	44
	synt	any
	esusp
	goto	L22
lab L21
	var	20
	int	0
	var	5
	line	749
	colm	52
	synt	any
	invoke	2
lab L22
	unmark
lab L20
	mark	L23
	pnull
	var	13
	mark	L24
	pnull
	var	18
	var	0
	line	750
	colm	16
	synt	any
	invoke	1
	line	750
	colm	12
	synt	any
	nonnull
	line	750
	colm	23
	synt	any
	esusp
	goto	L25
lab L24
	var	21
lab L25
	line	750
	colm	9
	synt	any
	asgn
	unmark
lab L23
	mark	L26
	pnull
	var	10
	var	22
	var	1
	str	3
	line	753
	colm	17
	synt	any
	invoke	2
	line	753
	colm	7
	synt	any
	asgn
	unmark
lab L26
	mark	L27
	pnull
	var	11
	var	22
	var	1
	str	4
	line	754
	colm	17
	synt	any
	invoke	2
	line	754
	colm	7
	synt	any
	asgn
	unmark
lab L27
	mark	L28
	pnull
	var	4
	dup
	var	22
	var	1
	str	5
	line	755
	colm	17
	synt	any
	invoke	2
	line	755
	colm	6
	synt	any
	numgt
	asgn
	unmark
lab L28
	mark	L29
	pnull
	var	5
	dup
	var	22
	var	1
	str	6
	line	756
	colm	17
	synt	any
	invoke	2
	line	756
	colm	6
	synt	any
	numgt
	asgn
	unmark
lab L29
	mark	L30
	pnull
	pnull
	var	2
	line	757
	colm	4
	synt	any
	null
	pnull
	pnull
	pnull
	var	22
	var	1
	str	5
	line	757
	colm	18
	synt	any
	invoke	2
	var	4
	line	757
	colm	33
	synt	any
	minus
	int	7
	line	757
	colm	38
	synt	any
	div
	var	10
	line	757
	colm	42
	synt	any
	minus
	line	757
	colm	7
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	pnull
	pnull
	var	3
	line	758
	colm	4
	synt	any
	null
	pnull
	pnull
	pnull
	var	22
	var	1
	str	6
	line	758
	colm	18
	synt	any
	invoke	2
	var	5
	line	758
	colm	34
	synt	any
	minus
	int	7
	line	758
	colm	39
	synt	any
	div
	var	11
	line	758
	colm	43
	synt	any
	minus
	line	758
	colm	7
	synt	any
	asgn
	unmark
lab L31
	mark	L32
	pnull
	var	6
	pnull
	var	2
	int	8
	line	761
	colm	12
	synt	any
	minus
	line	761
	colm	7
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	pnull
	var	7
	pnull
	var	3
	int	8
	line	762
	colm	12
	synt	any
	minus
	line	762
	colm	7
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	pnull
	var	8
	pnull
	pnull
	var	4
	pnull
	int	7
	int	8
	line	763
	colm	16
	synt	any
	mult
	line	763
	colm	12
	synt	any
	plus
	int	8
	line	763
	colm	20
	synt	any
	plus
	line	763
	colm	7
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	pnull
	var	9
	pnull
	pnull
	var	5
	pnull
	int	7
	int	8
	line	764
	colm	16
	synt	any
	mult
	line	764
	colm	12
	synt	any
	plus
	int	8
	line	764
	colm	20
	synt	any
	plus
	line	764
	colm	7
	synt	any
	asgn
	unmark
lab L35
	mark	L36
	pnull
	var	16
	mark	L37
	var	23
	var	8
	var	9
	str	9
	line	767
	colm	25
	synt	any
	invoke	3
	line	767
	colm	47
	synt	any
	esusp
	goto	L38
lab L37
	var	24
	str	10
	line	768
	colm	11
	synt	any
	invoke	1
lab L38
	line	767
	colm	9
	synt	any
	asgn
	unmark
lab L36
	mark	L39
	var	25
	var	1
	var	16
	var	6
	var	7
	var	8
	var	9
	line	769
	colm	12
	synt	any
	invoke	6
	unmark
lab L39
	mark	L40
	pnull
	var	15
	line	772
	colm	14
	synt	any
	keywd	window
	line	772
	colm	11
	synt	any
	asgn
	unmark
lab L40
	mark	L41
	pnull
	line	773
	colm	4
	synt	any
	keywd	window
	mark	L42
	var	26
	var	1
	line	773
	colm	20
	synt	any
	invoke	1
	line	773
	colm	26
	synt	any
	esusp
	goto	L43
lab L42
	var	24
	str	11
	line	773
	colm	32
	synt	any
	invoke	1
lab L43
	line	773
	colm	12
	synt	any
	asgn
	unmark
lab L41
	mark	L44
	var	22
	str	12
	str	13
	str	14
	str	15
	pnull
	str	16
	pnull
	var	10
	var	2
	line	775
	colm	20
	synt	any
	plus
	line	775
	colm	13
	synt	any
	cat
	pnull
	str	17
	pnull
	var	11
	var	3
	line	775
	colm	39
	synt	any
	plus
	line	775
	colm	32
	synt	any
	cat
	line	774
	colm	11
	synt	any
	invoke	6
	unmark
lab L44
	mark	L45
	var	27
	pnull
	int	8
	line	776
	colm	18
	synt	any
	neg
	pnull
	int	8
	line	776
	colm	22
	synt	any
	neg
	pnull
	pnull
	var	8
	int	8
	line	776
	colm	28
	synt	any
	minus
	int	18
	line	776
	colm	30
	synt	any
	minus
	pnull
	pnull
	var	9
	int	8
	line	776
	colm	36
	synt	any
	minus
	int	18
	line	776
	colm	38
	synt	any
	minus
	line	776
	colm	17
	synt	any
	invoke	4
	unmark
lab L45
	mark	L46
	var	28
	pnull
	pnull
	int	8
	line	777
	colm	19
	synt	any
	neg
	int	18
	line	777
	colm	22
	synt	any
	plus
	pnull
	pnull
	int	8
	line	777
	colm	27
	synt	any
	neg
	int	18
	line	777
	colm	30
	synt	any
	plus
	pnull
	pnull
	var	8
	int	8
	line	778
	colm	10
	synt	any
	minus
	int	7
	line	778
	colm	14
	synt	any
	minus
	pnull
	pnull
	var	9
	int	8
	line	778
	colm	22
	synt	any
	minus
	int	7
	line	778
	colm	26
	synt	any
	minus
	int	8
	line	777
	colm	18
	synt	any
	invoke	5
	unmark
lab L46
	mark	L47
	var	29
	pnull
	pnull
	int	8
	line	779
	colm	18
	synt	any
	neg
	int	8
	line	779
	colm	21
	synt	any
	plus
	pnull
	var	5
	int	8
	line	779
	colm	28
	synt	any
	plus
	pnull
	var	8
	int	8
	line	780
	colm	10
	synt	any
	minus
	int	8
	line	779
	colm	17
	synt	any
	invoke	4
	unmark
lab L47
	mark	L48
	var	29
	pnull
	var	4
	int	8
	line	781
	colm	20
	synt	any
	plus
	pnull
	pnull
	int	8
	line	781
	colm	25
	synt	any
	neg
	int	8
	line	781
	colm	28
	synt	any
	plus
	int	8
	pnull
	var	9
	int	8
	line	782
	colm	13
	synt	any
	minus
	line	781
	colm	17
	synt	any
	invoke	4
	unmark
lab L48
	mark	L49
	var	30
	int	19
	int	19
	var	4
	var	5
	line	783
	colm	8
	synt	any
	invoke	4
	unmark
lab L49
	mark	L50
	var	31
	line	784
	colm	13
	synt	any
	invoke	0
	unmark
lab L50
	mark	L51
lab L52
	line	787
	colm	4
	synt	while
	mark0
	pnull
	pnull
	var	32
	var	1
	line	787
	colm	18
	synt	any
	invoke	1
	line	787
	colm	10
	synt	any
	size
	int	19
	line	787
	colm	24
	synt	any
	numgt
	unmark
	mark	L52
	var	21
	var	1
	line	788
	colm	12
	synt	any
	invoke	1
lab L53
	unmark
	goto	L52
lab L54
	line	787
	colm	4
	synt	endwhile
	unmark
lab L51
	mark	L55
	pnull
	var	14
	mark	L56
	var	13
	var	0
	invoke	-1
	line	791
	colm	26
	synt	any
	esusp
	goto	L57
lab L56
	var	0
lab L57
	line	791
	colm	9
	synt	any
	asgn
	unmark
lab L55
	mark	L58
	var	30
	pnull
	int	8
	line	794
	colm	9
	synt	any
	neg
	pnull
	int	8
	line	794
	colm	13
	synt	any
	neg
	var	8
	var	9
	line	794
	colm	8
	synt	any
	invoke	4
	unmark
lab L58
	mark	L59
	var	25
	var	16
	line	795
	colm	19
	synt	any
	keywd	window
	int	19
	int	19
	var	8
	var	9
	pnull
	int	8
	line	795
	colm	42
	synt	any
	neg
	pnull
	int	8
	line	795
	colm	46
	synt	any
	neg
	line	795
	colm	12
	synt	any
	invoke	8
	unmark
lab L59
	mark	L60
	var	31
	var	16
	line	796
	colm	13
	synt	any
	invoke	1
	unmark
lab L60
	mark	L61
	pnull
	line	797
	colm	4
	synt	any
	keywd	window
	var	15
	line	797
	colm	12
	synt	any
	asgn
	unmark
lab L61
	mark	L62
	mark	L63
	pnull
	var	0
	var	14
	line	798
	colm	16
	synt	any
	neqv
	line	798
	colm	4
	synt	any
	pret
lab L63
	synt	any
	pfail
	unmark
lab L62
	pnull
	line	799
	colm	1
	synt	any
	pfail
	end
