version	U12.1.00
uid	viface.u1-1788085595-0
impl	error
link	vidgets.u
global	28
	0,000005,VDraw,2
	1,000005,VErase,1
	2,000005,VOutline,1
	3,000005,VResize,5
	4,000005,VRemove,3
	5,000005,VInsert,6
	6,000005,VEvent,4
	7,000005,VRegister,6
	8,000005,VUnregister,2
	9,000005,VOpenDialog,5
	10,000005,VFormat,1
	11,000005,VAddClient,3
	12,000005,VToggle,1
	13,000005,VUnSet,1
	14,000005,VLock,1
	15,000005,VUnLock,1
	16,000005,VSetState,3
	17,000005,SetVidget,3
	18,000005,VSet,3
	19,000005,VGetState,1
	20,000005,VSetItems,3
	21,000005,VGetItems,1
	22,000005,GetEvents,4
	23,000005,ProcessEvent,4
	24,000005,vecho,2
	25,000005,VEcho,2
	26,000005,vsetfont,1
	27,000005,VSetFont,1

proc VDraw
	local	0,001000,vid
	local	1,001000,code
	local	2,000040,type
	local	3,000000,proc
	local	4,000000,Vrecset
	local	5,000000,_Vbomb
	con	0,010000,4,164,171,160,145
	con	1,002000,1,0
	con	2,010000,35,151,156,166,141,154,151,144,040,166,151,144,147,145,164,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,104,162,141,167,050,051
	declend
	filen	viface.icn
	line	55
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	2
	var	3
	str	0
	int	1
	line	58
	colm	24
	synt	any
	invoke	2
	line	58
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	59
	colm	4
	synt	if
	mark0
	mark	L5
	pnull
	var	2
	var	0
	line	59
	colm	16
	synt	any
	invoke	1
	pnull
	var	4
	line	59
	colm	25
	synt	any
	bang
	line	59
	colm	22
	synt	any
	lexeq
	unmark
	efail
lab L5
	pnull
	unmark
	var	5
	str	2
	line	60
	colm	13
	synt	any
	invoke	1
	line	59
	colm	4
	synt	endif
	unmark
lab L4
	mark	L6
	pnull
	pnull
	var	0
	line	62
	colm	7
	synt	any
	field	V
	line	62
	colm	9
	synt	any
	field	draw
	var	0
	var	1
	line	62
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	pnull
	line	63
	colm	1
	synt	any
	pfail
	end
proc VErase
	local	0,001000,vid
	local	1,000040,type
	local	2,000000,proc
	local	3,000000,Vrecset
	local	4,000000,_Vbomb
	local	5,000000,erase_Vline
	local	6,000000,EraseArea
	con	0,010000,4,164,171,160,145
	con	1,002000,1,0
	con	2,010000,36,151,156,166,141,154,151,144,040,166,151,144,147,145,164,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,105,162,141,163,145,050,051
	con	3,010000,9,126,154,151,156,145,137,162,145,143
	declend
	line	65
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	1
	var	2
	str	0
	int	1
	line	68
	colm	24
	synt	any
	invoke	2
	line	68
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	69
	colm	4
	synt	if
	mark0
	mark	L5
	pnull
	var	1
	var	0
	line	69
	colm	16
	synt	any
	invoke	1
	pnull
	var	3
	line	69
	colm	25
	synt	any
	bang
	line	69
	colm	22
	synt	any
	lexeq
	unmark
	efail
lab L5
	pnull
	unmark
	var	4
	str	2
	line	70
	colm	13
	synt	any
	invoke	1
	line	69
	colm	4
	synt	endif
	unmark
lab L4
	mark	L6
	line	71
	colm	4
	synt	ifelse
	mark	L7
	pnull
	var	1
	var	0
	line	71
	colm	11
	synt	any
	invoke	1
	str	3
	line	71
	colm	17
	synt	any
	lexeq
	unmark
	var	5
	var	0
	line	72
	colm	18
	synt	any
	invoke	1
	goto	L8
lab L7
	var	6
	pnull
	var	0
	line	74
	colm	20
	synt	any
	field	win
	pnull
	var	0
	line	74
	colm	29
	synt	any
	field	ax
	pnull
	var	0
	line	74
	colm	37
	synt	any
	field	ay
	pnull
	var	0
	line	74
	colm	45
	synt	any
	field	aw
	pnull
	var	0
	line	74
	colm	53
	synt	any
	field	ah
	line	74
	colm	16
	synt	any
	invoke	5
lab L8
	line	71
	colm	4
	synt	endifelse
	unmark
lab L6
	pnull
	line	75
	colm	1
	synt	any
	pfail
	end
proc VOutline
	local	0,001000,vid
	local	1,000040,type
	local	2,000000,proc
	local	3,000000,Vrecset
	local	4,000000,_Vbomb
	con	0,010000,4,164,171,160,145
	con	1,002000,1,0
	con	2,010000,38,151,156,166,141,154,151,144,040,166,151,144,147,145,164,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,117,165,164,154,151,156,145,050,051
	declend
	line	77
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	1
	var	2
	str	0
	int	1
	line	80
	colm	24
	synt	any
	invoke	2
	line	80
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	81
	colm	4
	synt	if
	mark0
	mark	L5
	pnull
	var	1
	var	0
	line	81
	colm	16
	synt	any
	invoke	1
	pnull
	var	3
	line	81
	colm	25
	synt	any
	bang
	line	81
	colm	22
	synt	any
	lexeq
	unmark
	efail
lab L5
	pnull
	unmark
	var	4
	str	2
	line	82
	colm	13
	synt	any
	invoke	1
	line	81
	colm	4
	synt	endif
	unmark
lab L4
	mark	L6
	pnull
	pnull
	var	0
	line	84
	colm	7
	synt	any
	field	V
	line	84
	colm	9
	synt	any
	field	outline
	var	0
	line	84
	colm	17
	synt	any
	invoke	1
	unmark
lab L6
	pnull
	line	85
	colm	1
	synt	any
	pfail
	end
proc VResize
	local	0,001000,vid
	local	1,001000,x
	local	2,001000,y
	local	3,001000,w
	local	4,001000,h
	local	5,000040,type
	local	6,000000,proc
	local	7,000000,Vrecset
	local	8,000000,_Vbomb
	con	0,010000,4,164,171,160,145
	con	1,002000,1,0
	con	2,010000,37,151,156,166,141,154,151,144,040,166,151,144,147,145,164,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,122,145,163,151,172,145,050,051
	con	3,010000,9,126,154,151,156,145,137,162,145,143
	declend
	line	87
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	5
	var	6
	str	0
	int	1
	line	90
	colm	24
	synt	any
	invoke	2
	line	90
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	91
	colm	4
	synt	if
	mark0
	mark	L5
	pnull
	var	5
	var	0
	line	91
	colm	16
	synt	any
	invoke	1
	pnull
	var	7
	line	91
	colm	25
	synt	any
	bang
	line	91
	colm	22
	synt	any
	lexeq
	unmark
	efail
lab L5
	pnull
	unmark
	var	8
	str	2
	line	92
	colm	13
	synt	any
	invoke	1
	line	91
	colm	4
	synt	endif
	unmark
lab L4
	mark	L6
	line	93
	colm	4
	synt	ifelse
	mark	L7
	pnull
	var	5
	var	0
	line	93
	colm	11
	synt	any
	invoke	1
	str	3
	line	93
	colm	17
	synt	any
	lexeq
	unmark
	mark	L9
	pnull
	pnull
	var	0
	line	94
	colm	10
	synt	any
	field	ax1
	pnull
	var	1
	line	94
	colm	18
	synt	any
	nonnull
	line	94
	colm	15
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	0
	line	95
	colm	10
	synt	any
	field	ay1
	pnull
	var	2
	line	95
	colm	18
	synt	any
	nonnull
	line	95
	colm	15
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	0
	line	96
	colm	10
	synt	any
	field	ax2
	pnull
	pnull
	var	0
	line	96
	colm	21
	synt	any
	field	ax1
	pnull
	var	3
	line	96
	colm	28
	synt	any
	nonnull
	line	96
	colm	26
	synt	any
	plus
	line	96
	colm	15
	synt	any
	asgn
	unmark
lab L11
	pnull
	pnull
	var	0
	line	97
	colm	10
	synt	any
	field	ay2
	pnull
	pnull
	var	0
	line	97
	colm	21
	synt	any
	field	ay1
	pnull
	var	4
	line	97
	colm	28
	synt	any
	nonnull
	line	97
	colm	26
	synt	any
	plus
	line	97
	colm	15
	synt	any
	asgn
	goto	L8
lab L7
	mark	L12
	pnull
	pnull
	var	0
	line	100
	colm	10
	synt	any
	field	ax
	pnull
	var	1
	line	100
	colm	17
	synt	any
	nonnull
	line	100
	colm	14
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	0
	line	101
	colm	10
	synt	any
	field	ay
	pnull
	var	2
	line	101
	colm	17
	synt	any
	nonnull
	line	101
	colm	14
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	0
	line	102
	colm	10
	synt	any
	field	aw
	pnull
	var	3
	line	102
	colm	17
	synt	any
	nonnull
	line	102
	colm	14
	synt	any
	asgn
	unmark
lab L14
	pnull
	pnull
	var	0
	line	103
	colm	10
	synt	any
	field	ah
	pnull
	var	4
	line	103
	colm	17
	synt	any
	nonnull
	line	103
	colm	14
	synt	any
	asgn
lab L8
	line	93
	colm	4
	synt	endifelse
	unmark
lab L6
	mark	L15
	pnull
	pnull
	var	0
	line	105
	colm	7
	synt	any
	field	V
	line	105
	colm	9
	synt	any
	field	resize
	var	0
	line	105
	colm	16
	synt	any
	invoke	1
	unmark
lab L15
	pnull
	line	106
	colm	1
	synt	any
	pfail
	end
proc VRemove
	local	0,001000,frame
	local	1,001000,vid
	local	2,001000,erase
	local	3,000000,type
	local	4,000000,find
	local	5,000000,_Vbomb
	local	6,000000,Vrecset
	con	0,010000,5,146,162,141,155,145
	con	1,010000,36,151,156,166,141,154,151,144,040,146,162,141,155,145,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,122,145,155,157,166,145,050,051
	con	2,010000,37,151,156,166,141,154,151,144,040,166,151,144,147,145,164,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,122,145,155,157,166,145,050,051
	declend
	line	108
	colm	11
	synt	any
	mark	L1
	line	109
	colm	4
	synt	ifelse
	mark	L2
	mark	L4
	var	3
	var	0
	line	109
	colm	16
	synt	any
	invoke	1
	line	109
	colm	24
	synt	any
	bscan
	var	4
	str	0
	line	109
	colm	30
	synt	any
	invoke	1
	line	109
	colm	24
	synt	any
	escan
	unmark
	efail
lab L4
	pnull
	unmark
	var	5
	str	1
	line	110
	colm	13
	synt	any
	invoke	1
	goto	L3
lab L2
	line	111
	colm	9
	synt	if
	mark0
	mark	L5
	pnull
	var	3
	var	1
	line	111
	colm	21
	synt	any
	invoke	1
	pnull
	var	6
	line	111
	colm	30
	synt	any
	bang
	line	111
	colm	27
	synt	any
	lexeq
	unmark
	efail
lab L5
	pnull
	unmark
	var	5
	str	2
	line	112
	colm	13
	synt	any
	invoke	1
	line	111
	colm	9
	synt	endif
lab L3
	line	109
	colm	4
	synt	endifelse
	unmark
lab L1
	mark	L6
	pnull
	pnull
	var	0
	line	114
	colm	9
	synt	any
	field	V
	line	114
	colm	11
	synt	any
	field	remove
	var	0
	var	1
	var	2
	line	114
	colm	18
	synt	any
	invoke	3
	unmark
lab L6
	pnull
	line	115
	colm	1
	synt	any
	pfail
	end
proc VInsert
	local	0,001000,frame
	local	1,001000,vid
	local	2,001000,x
	local	3,001000,y
	local	4,001000,w
	local	5,001000,h
	local	6,000040,image
	local	7,000000,proc
	local	8,000000,type
	local	9,000000,find
	local	10,000000,_Vbomb
	local	11,000000,Vrecset
	local	12,000000,numeric
	con	0,010000,5,151,155,141,147,145
	con	1,002000,1,0
	con	2,010000,5,146,162,141,155,145
	con	3,010000,36,151,156,166,141,154,151,144,040,146,162,141,155,145,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,111,156,163,145,162,164,050,051
	con	4,010000,39,151,156,166,141,154,151,144,040,166,151,144,147,145,164,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,111,156,163,145,162,164,050,051,072,040
	con	5,010000,36,156,157,156,055,156,165,155,145,162,151,143,040,170,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,111,156,163,145,162,164,050,051
	con	6,010000,36,156,157,156,055,156,165,155,145,162,151,143,040,171,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,111,156,163,145,162,164,050,051
	con	7,010000,36,156,157,156,055,156,165,155,145,162,151,143,040,167,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,111,156,163,145,162,164,050,051
	declend
	line	117
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	6
	var	7
	str	0
	int	1
	line	120
	colm	25
	synt	any
	invoke	2
	line	120
	colm	18
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	122
	colm	4
	synt	ifelse
	mark	L5
	mark	L7
	var	8
	var	0
	line	122
	colm	16
	synt	any
	invoke	1
	line	122
	colm	24
	synt	any
	bscan
	var	9
	str	2
	line	122
	colm	30
	synt	any
	invoke	1
	line	122
	colm	24
	synt	any
	escan
	unmark
	efail
lab L7
	pnull
	unmark
	var	10
	str	3
	line	123
	colm	13
	synt	any
	invoke	1
	goto	L6
lab L5
	line	124
	colm	9
	synt	ifelse
	mark	L8
	mark	L10
	pnull
	var	8
	var	1
	line	124
	colm	21
	synt	any
	invoke	1
	pnull
	var	11
	line	124
	colm	30
	synt	any
	bang
	line	124
	colm	27
	synt	any
	lexeq
	unmark
	efail
lab L10
	pnull
	unmark
	var	10
	pnull
	str	4
	var	6
	var	1
	line	125
	colm	64
	synt	any
	invoke	1
	line	125
	colm	56
	synt	any
	cat
	line	125
	colm	13
	synt	any
	invoke	1
	goto	L9
lab L8
	line	126
	colm	9
	synt	ifelse
	mark	L11
	pushn1
	pnull
	var	2
	line	126
	colm	13
	synt	any
	nonnull
	mark	L13
	var	12
	var	2
	line	126
	colm	28
	synt	any
	invoke	1
	unmark
	efail
lab L13
	pnull
	line	126
	colm	12
	synt	any
	invoke	2
	unmark
	var	10
	str	5
	line	127
	colm	13
	synt	any
	invoke	1
	goto	L12
lab L11
	line	128
	colm	9
	synt	ifelse
	mark	L14
	pushn1
	pnull
	var	3
	line	128
	colm	13
	synt	any
	nonnull
	mark	L16
	var	12
	var	3
	line	128
	colm	28
	synt	any
	invoke	1
	unmark
	efail
lab L16
	pnull
	line	128
	colm	12
	synt	any
	invoke	2
	unmark
	var	10
	str	6
	line	129
	colm	13
	synt	any
	invoke	1
	goto	L15
lab L14
	line	130
	colm	9
	synt	ifelse
	mark	L17
	pushn1
	pnull
	var	4
	line	130
	colm	13
	synt	any
	nonnull
	mark	L19
	var	12
	var	4
	line	130
	colm	28
	synt	any
	invoke	1
	unmark
	efail
lab L19
	pnull
	line	130
	colm	12
	synt	any
	invoke	2
	unmark
	var	10
	str	7
	line	131
	colm	13
	synt	any
	invoke	1
	goto	L18
lab L17
	line	132
	colm	9
	synt	if
	mark0
	pushn1
	pnull
	var	5
	line	132
	colm	13
	synt	any
	nonnull
	mark	L20
	var	12
	var	5
	line	132
	colm	28
	synt	any
	invoke	1
	unmark
	efail
lab L20
	pnull
	line	132
	colm	12
	synt	any
	invoke	2
	unmark
	var	10
	str	6
	line	133
	colm	13
	synt	any
	invoke	1
	line	132
	colm	9
	synt	endif
lab L18
	line	130
	colm	9
	synt	endifelse
lab L15
	line	128
	colm	9
	synt	endifelse
lab L12
	line	126
	colm	9
	synt	endifelse
lab L9
	line	124
	colm	9
	synt	endifelse
lab L6
	line	122
	colm	4
	synt	endifelse
	unmark
lab L4
	mark	L21
	pnull
	pnull
	var	0
	line	134
	colm	9
	synt	any
	field	V
	line	134
	colm	11
	synt	any
	field	insert
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	line	134
	colm	18
	synt	any
	invoke	6
	unmark
lab L21
	pnull
	line	135
	colm	1
	synt	any
	pfail
	end
proc VEvent
	local	0,001000,vid
	local	1,001000,e
	local	2,001000,x
	local	3,001000,y
	local	4,000000,type
	local	5,000000,Vrecset
	local	6,000000,_Vbomb
	con	0,010000,36,151,156,166,141,154,151,144,040,166,151,144,147,145,164,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,105,166,145,156,164,050,051
	declend
	line	137
	colm	11
	synt	any
	mark	L1
	line	138
	colm	4
	synt	if
	mark0
	mark	L2
	pnull
	var	4
	var	0
	line	138
	colm	16
	synt	any
	invoke	1
	pnull
	var	5
	line	138
	colm	25
	synt	any
	bang
	line	138
	colm	22
	synt	any
	lexeq
	unmark
	efail
lab L2
	pnull
	unmark
	var	6
	str	0
	line	139
	colm	13
	synt	any
	invoke	1
	line	138
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	mark	L4
	pnull
	pnull
	var	0
	line	141
	colm	14
	synt	any
	field	V
	line	141
	colm	16
	synt	any
	field	event
	var	0
	var	1
	var	2
	var	3
	line	141
	colm	22
	synt	any
	invoke	4
	line	141
	colm	4
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	142
	colm	1
	synt	any
	pfail
	end
proc VRegister
	local	0,001000,dialog
	local	1,001000,vid
	local	2,001000,x
	local	3,001000,y
	local	4,001000,w
	local	5,001000,h
	local	6,000000,type
	local	7,000000,find
	local	8,000000,_Vbomb
	local	9,000000,Vrecset
	local	10,000000,numeric
	con	0,010000,12,144,151,141,154,157,147,137,146,162,141,155,145
	con	1,010000,39,151,156,166,141,154,151,144,040,144,151,141,154,157,147,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,122,145,147,151,163,164,145,162,050,051
	con	2,010000,39,151,156,166,141,154,151,144,040,166,151,144,147,145,164,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,122,145,147,151,163,164,145,162,050,051
	con	3,010000,38,116,157,156,055,156,165,155,145,162,151,143,040,170,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,122,145,147,151,163,164,145,162,050,051
	con	4,010000,38,116,157,156,055,156,165,155,145,162,151,143,040,171,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,122,145,147,151,163,164,145,162,050,051
	con	5,010000,38,116,157,156,055,156,165,155,145,162,151,143,040,167,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,122,145,147,151,163,164,145,162,050,051
	declend
	line	151
	colm	11
	synt	any
	mark	L1
	line	152
	colm	4
	synt	ifelse
	mark	L2
	mark	L4
	var	6
	var	0
	line	152
	colm	16
	synt	any
	invoke	1
	line	152
	colm	25
	synt	any
	bscan
	var	7
	str	0
	line	152
	colm	31
	synt	any
	invoke	1
	line	152
	colm	25
	synt	any
	escan
	unmark
	efail
lab L4
	pnull
	unmark
	var	8
	str	1
	line	153
	colm	13
	synt	any
	invoke	1
	goto	L3
lab L2
	line	154
	colm	9
	synt	ifelse
	mark	L5
	mark	L7
	pnull
	var	6
	var	1
	line	154
	colm	21
	synt	any
	invoke	1
	pnull
	var	9
	line	154
	colm	30
	synt	any
	bang
	line	154
	colm	27
	synt	any
	lexeq
	unmark
	efail
lab L7
	pnull
	unmark
	var	8
	str	2
	line	155
	colm	13
	synt	any
	invoke	1
	goto	L6
lab L5
	line	156
	colm	9
	synt	ifelse
	mark	L8
	pushn1
	pnull
	var	2
	line	156
	colm	13
	synt	any
	nonnull
	mark	L10
	var	10
	var	2
	line	156
	colm	28
	synt	any
	invoke	1
	unmark
	efail
lab L10
	pnull
	line	156
	colm	12
	synt	any
	invoke	2
	unmark
	var	8
	str	3
	line	157
	colm	13
	synt	any
	invoke	1
	goto	L9
lab L8
	line	158
	colm	9
	synt	ifelse
	mark	L11
	pushn1
	pnull
	var	3
	line	158
	colm	13
	synt	any
	nonnull
	mark	L13
	var	10
	var	3
	line	158
	colm	28
	synt	any
	invoke	1
	unmark
	efail
lab L13
	pnull
	line	158
	colm	12
	synt	any
	invoke	2
	unmark
	var	8
	str	4
	line	159
	colm	13
	synt	any
	invoke	1
	goto	L12
lab L11
	line	160
	colm	9
	synt	ifelse
	mark	L14
	pushn1
	pnull
	var	4
	line	160
	colm	13
	synt	any
	nonnull
	mark	L16
	var	10
	var	4
	line	160
	colm	28
	synt	any
	invoke	1
	unmark
	efail
lab L16
	pnull
	line	160
	colm	12
	synt	any
	invoke	2
	unmark
	var	8
	str	5
	line	161
	colm	13
	synt	any
	invoke	1
	goto	L15
lab L14
	line	162
	colm	9
	synt	if
	mark0
	pushn1
	pnull
	var	5
	line	162
	colm	13
	synt	any
	nonnull
	mark	L17
	var	10
	var	5
	line	162
	colm	28
	synt	any
	invoke	1
	unmark
	efail
lab L17
	pnull
	line	162
	colm	12
	synt	any
	invoke	2
	unmark
	var	8
	str	4
	line	163
	colm	13
	synt	any
	invoke	1
	line	162
	colm	9
	synt	endif
lab L15
	line	160
	colm	9
	synt	endifelse
lab L12
	line	158
	colm	9
	synt	endifelse
lab L9
	line	156
	colm	9
	synt	endifelse
lab L6
	line	154
	colm	9
	synt	endifelse
lab L3
	line	152
	colm	4
	synt	endifelse
	unmark
lab L1
	mark	L18
	pnull
	pnull
	var	0
	line	165
	colm	10
	synt	any
	field	F
	line	165
	colm	12
	synt	any
	field	register
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	line	165
	colm	21
	synt	any
	invoke	6
	unmark
lab L18
	pnull
	line	166
	colm	1
	synt	any
	pfail
	end
proc VUnregister
	local	0,001000,dialog
	local	1,001000,vid
	local	2,000000,type
	local	3,000000,find
	local	4,000000,_Vbomb
	local	5,000000,Vrecset
	con	0,010000,12,144,151,141,154,157,147,137,146,162,141,155,145
	con	1,010000,41,151,156,166,141,154,151,144,040,144,151,141,154,157,147,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,125,156,162,145,147,151,163,164,145,162,050,051
	con	2,010000,41,151,156,166,141,154,151,144,040,166,151,144,147,145,164,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,125,156,162,145,147,151,163,164,145,162,050,051
	declend
	line	168
	colm	11
	synt	any
	mark	L1
	line	169
	colm	4
	synt	ifelse
	mark	L2
	mark	L4
	var	2
	var	0
	line	169
	colm	16
	synt	any
	invoke	1
	line	169
	colm	25
	synt	any
	bscan
	var	3
	str	0
	line	169
	colm	31
	synt	any
	invoke	1
	line	169
	colm	25
	synt	any
	escan
	unmark
	efail
lab L4
	pnull
	unmark
	var	4
	str	1
	line	170
	colm	13
	synt	any
	invoke	1
	goto	L3
lab L2
	line	171
	colm	9
	synt	if
	mark0
	mark	L5
	pnull
	var	2
	var	1
	line	171
	colm	21
	synt	any
	invoke	1
	pnull
	var	5
	line	171
	colm	30
	synt	any
	bang
	line	171
	colm	27
	synt	any
	lexeq
	unmark
	efail
lab L5
	pnull
	unmark
	var	4
	str	2
	line	172
	colm	13
	synt	any
	invoke	1
	line	171
	colm	9
	synt	endif
lab L3
	line	169
	colm	4
	synt	endifelse
	unmark
lab L1
	mark	L6
	pnull
	pnull
	var	0
	line	174
	colm	10
	synt	any
	field	F
	line	174
	colm	12
	synt	any
	field	unregister
	var	0
	var	1
	line	174
	colm	23
	synt	any
	invoke	2
	unmark
lab L6
	pnull
	line	175
	colm	1
	synt	any
	pfail
	end
proc VOpenDialog
	local	0,001000,dialog
	local	1,001000,x
	local	2,001000,y
	local	3,001000,data
	local	4,001000,default_string
	local	5,000000,type
	local	6,000000,find
	local	7,000000,_Vbomb
	local	8,000000,numeric
	con	0,010000,12,144,151,141,154,157,147,137,146,162,141,155,145
	con	1,010000,41,151,156,166,141,154,151,144,040,144,151,141,154,157,147,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,117,160,145,156,104,151,141,154,157,147,050,051
	con	2,010000,48,151,156,166,141,154,151,144,040,170,040,157,162,040,171,040,160,141,162,141,155,145,164,145,162,040,160,141,163,163,145,144,040,164,157,040,126,117,160,145,156,104,151,141,154,157,147,050,051
	declend
	line	191
	colm	11
	synt	any
	mark	L1
	line	192
	colm	4
	synt	if
	mark0
	mark	L2
	var	5
	var	0
	line	192
	colm	16
	synt	any
	invoke	1
	line	192
	colm	25
	synt	any
	bscan
	var	6
	str	0
	line	192
	colm	31
	synt	any
	invoke	1
	line	192
	colm	25
	synt	any
	escan
	unmark
	efail
lab L2
	pnull
	unmark
	var	7
	str	1
	line	193
	colm	13
	synt	any
	invoke	1
	line	192
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	line	194
	colm	4
	synt	if
	mark0
	pnull
	var	1
	line	194
	colm	7
	synt	any
	nonnull
	pop
	mark	L4
	var	8
	var	1
	line	194
	colm	24
	synt	any
	invoke	1
	pop
	var	8
	var	2
	line	194
	colm	37
	synt	any
	invoke	1
	unmark
	efail
lab L4
	pnull
	unmark
	var	7
	str	2
	line	195
	colm	13
	synt	any
	invoke	1
	line	194
	colm	4
	synt	endif
	unmark
lab L3
	mark	L5
	pnull
	pnull
	var	3
	line	196
	colm	4
	synt	any
	null
	pnull
	line	196
	colm	13
	synt	any
	llist	0
	line	196
	colm	10
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	mark	L8
	pnull
	pnull
	pnull
	var	0
	line	197
	colm	19
	synt	any
	field	F
	line	197
	colm	21
	synt	any
	field	open_dialog
	var	0
	var	1
	var	2
	var	3
	var	4
	line	197
	colm	33
	synt	any
	invoke	5
	line	197
	colm	11
	synt	any
	nonnull
	line	197
	colm	71
	synt	any
	esusp
	goto	L9
lab L8
	var	3
lab L9
	line	197
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	198
	colm	1
	synt	any
	pfail
	end
proc VFormat
	local	0,001000,frame
	local	1,000000,type
	local	2,000000,find
	local	3,000000,_Vbomb
	con	0,010000,5,146,162,141,155,145
	con	1,010000,36,151,156,166,141,154,151,144,040,146,162,141,155,145,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,106,157,162,155,141,164,050,051
	con	2,010000,1,106
	declend
	line	206
	colm	11
	synt	any
	mark	L1
	line	207
	colm	4
	synt	if
	mark0
	mark	L2
	var	1
	var	0
	line	207
	colm	16
	synt	any
	invoke	1
	line	207
	colm	24
	synt	any
	bscan
	var	2
	str	0
	line	207
	colm	30
	synt	any
	invoke	1
	line	207
	colm	24
	synt	any
	escan
	unmark
	efail
lab L2
	pnull
	unmark
	var	3
	str	1
	line	208
	colm	13
	synt	any
	invoke	1
	line	207
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	pnull
	var	0
	str	2
	line	210
	colm	9
	synt	any
	subsc
	line	210
	colm	14
	synt	any
	field	format
	var	0
	line	210
	colm	21
	synt	any
	invoke	1
	unmark
lab L3
	pnull
	line	211
	colm	1
	synt	any
	pfail
	end
proc VAddClient
	local	0,001000,coupler
	local	1,001000,client
	local	2,001000,caller
	local	3,000000,type
	local	4,000000,find
	local	5,000000,_Vbomb
	con	0,010000,7,143,157,165,160,154,145,162
	con	1,010000,41,151,156,166,141,154,151,144,040,143,157,165,160,154,145,162,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,101,144,144,103,154,151,145,156,164,050,051
	declend
	line	217
	colm	11
	synt	any
	mark	L1
	line	218
	colm	4
	synt	if
	mark0
	mark	L2
	var	3
	var	0
	line	218
	colm	16
	synt	any
	invoke	1
	line	218
	colm	26
	synt	any
	bscan
	var	4
	str	0
	line	218
	colm	32
	synt	any
	invoke	1
	line	218
	colm	26
	synt	any
	escan
	unmark
	efail
lab L2
	pnull
	unmark
	var	5
	str	1
	line	219
	colm	13
	synt	any
	invoke	1
	line	218
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	pnull
	var	0
	line	221
	colm	11
	synt	any
	field	V
	line	221
	colm	13
	synt	any
	field	add_client
	var	0
	var	1
	var	2
	line	221
	colm	24
	synt	any
	invoke	3
	unmark
lab L3
	pnull
	line	222
	colm	1
	synt	any
	pfail
	end
proc VToggle
	local	0,001000,coupler
	local	1,000000,type
	local	2,000000,find
	local	3,000000,_Vbomb
	con	0,010000,7,143,157,165,160,154,145,162
	con	1,010000,38,151,156,166,141,154,151,144,040,143,157,165,160,154,145,162,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,124,157,147,147,154,145,050,051
	declend
	line	224
	colm	11
	synt	any
	mark	L1
	line	225
	colm	4
	synt	if
	mark0
	mark	L2
	var	1
	var	0
	line	225
	colm	16
	synt	any
	invoke	1
	line	225
	colm	26
	synt	any
	bscan
	var	2
	str	0
	line	225
	colm	32
	synt	any
	invoke	1
	line	225
	colm	26
	synt	any
	escan
	unmark
	efail
lab L2
	pnull
	unmark
	var	3
	str	1
	line	226
	colm	13
	synt	any
	invoke	1
	line	225
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	pnull
	var	0
	line	228
	colm	11
	synt	any
	field	V
	line	228
	colm	13
	synt	any
	field	toggle
	var	0
	line	228
	colm	20
	synt	any
	invoke	1
	unmark
lab L3
	pnull
	line	229
	colm	1
	synt	any
	pfail
	end
proc VUnSet
	local	0,001000,coupler
	local	1,000000,type
	local	2,000000,find
	local	3,000000,_Vbomb
	con	0,010000,7,143,157,165,160,154,145,162
	con	1,010000,37,151,156,166,141,154,151,144,040,143,157,165,160,154,145,162,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,125,156,123,145,164,050,051
	declend
	line	231
	colm	11
	synt	any
	mark	L1
	line	232
	colm	4
	synt	if
	mark0
	mark	L2
	var	1
	var	0
	line	232
	colm	16
	synt	any
	invoke	1
	line	232
	colm	26
	synt	any
	bscan
	var	2
	str	0
	line	232
	colm	32
	synt	any
	invoke	1
	line	232
	colm	26
	synt	any
	escan
	unmark
	efail
lab L2
	pnull
	unmark
	var	3
	str	1
	line	233
	colm	13
	synt	any
	invoke	1
	line	232
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	pnull
	var	0
	line	235
	colm	11
	synt	any
	field	V
	line	235
	colm	13
	synt	any
	field	unset
	var	0
	line	235
	colm	19
	synt	any
	invoke	1
	unmark
lab L3
	pnull
	line	236
	colm	1
	synt	any
	pfail
	end
proc VLock
	local	0,001000,coupler
	local	1,000000,type
	local	2,000000,find
	local	3,000000,_Vbomb
	con	0,010000,7,143,157,165,160,154,145,162
	con	1,010000,36,151,156,166,141,154,151,144,040,143,157,165,160,154,145,162,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,114,157,143,153,050,051
	con	2,002000,1,1
	declend
	line	238
	colm	11
	synt	any
	mark	L1
	line	239
	colm	4
	synt	if
	mark0
	mark	L2
	var	1
	var	0
	line	239
	colm	16
	synt	any
	invoke	1
	line	239
	colm	26
	synt	any
	bscan
	var	2
	str	0
	line	239
	colm	32
	synt	any
	invoke	1
	line	239
	colm	26
	synt	any
	escan
	unmark
	efail
lab L2
	pnull
	unmark
	var	3
	str	1
	line	240
	colm	13
	synt	any
	invoke	1
	line	239
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	pnull
	var	0
	line	242
	colm	11
	synt	any
	field	locked
	int	2
	line	242
	colm	19
	synt	any
	asgn
	unmark
lab L3
	pnull
	line	243
	colm	1
	synt	any
	pfail
	end
proc VUnLock
	local	0,001000,coupler
	local	1,000000,type
	local	2,000000,find
	local	3,000000,_Vbomb
	con	0,010000,7,143,157,165,160,154,145,162
	con	1,010000,38,151,156,166,141,154,151,144,040,143,157,165,160,154,145,162,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,125,156,114,157,143,153,050,051
	declend
	line	245
	colm	11
	synt	any
	mark	L1
	line	246
	colm	4
	synt	if
	mark0
	mark	L2
	var	1
	var	0
	line	246
	colm	16
	synt	any
	invoke	1
	line	246
	colm	26
	synt	any
	bscan
	var	2
	str	0
	line	246
	colm	32
	synt	any
	invoke	1
	line	246
	colm	26
	synt	any
	escan
	unmark
	efail
lab L2
	pnull
	unmark
	var	3
	str	1
	line	247
	colm	13
	synt	any
	invoke	1
	line	246
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	pnull
	var	0
	line	249
	colm	11
	synt	any
	field	locked
	line	249
	colm	22
	synt	any
	keywd	null
	line	249
	colm	19
	synt	any
	asgn
	unmark
lab L3
	pnull
	line	250
	colm	1
	synt	any
	pfail
	end
proc VSetState
	local	0,001000,vid
	local	1,001000,val
	local	2,001000,code
	local	3,000000,type
	local	4,000000,find
	local	5,000000,Vrecset
	local	6,000000,_Vbomb
	con	0,010000,7,143,157,165,160,154,145,162
	con	1,010000,39,151,156,166,141,154,151,144,040,166,151,144,147,145,164,040,160,141,162,141,155,145,164,145,162,040,164,157,040,126,123,145,164,123,164,141,164,145,050,051
	declend
	line	255
	colm	11
	synt	any
	mark	L1
	line	256
	colm	4
	synt	ifelse
	mark	L2
	var	3
	var	0
	line	256
	colm	11
	synt	any
	invoke	1
	line	256
	colm	17
	synt	any
	bscan
	var	4
	str	0
	line	256
	colm	23
	synt	any
	invoke	1
	line	256
	colm	17
	synt	any
	escan
	unmark
	mark	L4
	pnull
	pnull
	pnull
	pnull
	var	0
	line	257
	colm	17
	synt	any
	nonnull
	line	257
	colm	22
	synt	any
	field	V
	line	257
	colm	24
	synt	any
	field	set
	line	257
	colm	15
	synt	any
	nonnull
	var	0
	pnull
	var	1
	var	2
	line	257
	colm	29
	synt	any
	invoke	4
	line	257
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	258
	colm	9
	synt	ifelse
	mark	L5
	pnull
	var	3
	var	0
	line	258
	colm	16
	synt	any
	invoke	1
	pnull
	var	5
	line	258
	colm	25
	synt	any
	bang
	line	258
	colm	22
	synt	any
	lexeq
	unmark
	mark	L7
	pnull
	pnull
	pnull
	pnull
	var	0
	line	259
	colm	17
	synt	any
	nonnull
	line	259
	colm	22
	synt	any
	field	V
	line	259
	colm	24
	synt	any
	field	set_value
	line	259
	colm	15
	synt	any
	nonnull
	var	0
	var	1
	var	2
	line	259
	colm	35
	synt	any
	invoke	3
	line	259
	colm	7
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L6
lab L5
	var	6
	str	1
	line	261
	colm	13
	synt	any
	invoke	1
lab L6
	line	258
	colm	9
	synt	endifelse
lab L3
	line	256
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	262
	colm	1
	synt	any
	pfail
	end
proc SetVidget
	local	0,001000,vid
	local	1,001000,val
	local	2,001000,code
	local	3,000000,SetVidget
	local	4,000000,VSetState
	declend
	line	264
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	var	4
	line	265
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	4
	var	0
	var	1
	var	2
	line	266
	colm	20
	synt	any
	invoke	3
	line	266
	colm	4
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	267
	colm	1
	synt	any
	pfail
	end
proc VSet
	local	0,001000,vid
	local	1,001000,val
	local	2,001000,code
	local	3,000000,VSet
	local	4,000000,VSetState
	declend
	line	269
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	var	4
	line	270
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	4
	var	0
	var	1
	var	2
	line	271
	colm	20
	synt	any
	invoke	3
	line	271
	colm	4
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	272
	colm	1
	synt	any
	pfail
	end
proc VGetState
	local	0,001000,vid
	local	1,000000,type
	local	2,000000,find
	local	3,000000,set_value_Vlist
	local	4,000000,get_value_Vlist
	local	5,000000,event_Vtoggle
	con	0,010000,6,163,143,162,157,154,154
	con	1,010000,5,163,154,151,144,145
	con	2,010000,5,162,141,144,151,157
	con	3,010000,4,164,145,170,164
	con	4,010000,11,126,142,165,164,164,157,156,137,162,145,143
	declend
	line	277
	colm	11
	synt	any
	mark	L1
	line	278
	colm	4
	synt	ifelse
	mark	L2
	var	1
	var	0
	line	278
	colm	11
	synt	any
	invoke	1
	line	278
	colm	17
	synt	any
	bscan
	var	2
	mark	L4
	str	0
	line	278
	colm	33
	synt	any
	esusp
	goto	L5
lab L4
	mark	L6
	str	1
	line	278
	colm	43
	synt	any
	esusp
	goto	L7
lab L6
	mark	L8
	str	2
	line	278
	colm	53
	synt	any
	esusp
	goto	L9
lab L8
	str	3
lab L9
lab L7
lab L5
	line	278
	colm	23
	synt	any
	invoke	1
	line	278
	colm	17
	synt	any
	escan
	unmark
	mark	L10
	pnull
	pnull
	pnull
	var	0
	line	279
	colm	19
	synt	any
	field	callback
	line	279
	colm	15
	synt	any
	nonnull
	line	279
	colm	29
	synt	any
	field	value
	line	279
	colm	7
	synt	any
	pret
lab L10
	synt	any
	pfail
	goto	L3
lab L2
	line	280
	colm	9
	synt	ifelse
	mark	L11
	pnull
	pnull
	pnull
	var	0
	line	280
	colm	15
	synt	any
	field	V
	line	280
	colm	17
	synt	any
	field	set_value
	var	3
	line	280
	colm	28
	synt	any
	eqv
	unmark
	mark	L13
	var	4
	var	0
	line	281
	colm	29
	synt	any
	invoke	1
	line	281
	colm	7
	synt	any
	pret
lab L13
	synt	any
	pfail
	goto	L12
lab L11
	line	282
	colm	9
	synt	ifelse
	mark	L14
	pnull
	var	1
	var	0
	line	282
	colm	16
	synt	any
	invoke	1
	str	4
	line	282
	colm	22
	synt	any
	lexeq
	pop
	pnull
	pnull
	pnull
	var	0
	line	283
	colm	11
	synt	any
	field	V
	line	283
	colm	13
	synt	any
	field	event
	var	5
	line	283
	colm	20
	synt	any
	eqv
	unmark
	mark	L16
	pnull
	pnull
	pnull
	var	0
	line	283
	colm	55
	synt	any
	field	callback
	line	283
	colm	51
	synt	any
	nonnull
	line	283
	colm	65
	synt	any
	field	value
	line	283
	colm	44
	synt	any
	pret
lab L16
	synt	any
	pfail
	goto	L15
lab L14
	line	285
	colm	7
	synt	any
	pfail
lab L15
	line	282
	colm	9
	synt	endifelse
lab L12
	line	280
	colm	9
	synt	endifelse
lab L3
	line	278
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	286
	colm	1
	synt	any
	pfail
	end
proc VSetItems
	local	0,001000,vid
	local	1,001000,val
	local	2,001000,flag
	local	3,000000,set_value_Vlist
	local	4,000000,set_items_Vlist
	local	5,000000,type
	local	6,000000,Vmenu_set_items
	con	0,010000,10,126,146,162,141,155,145,137,162,145,143
	con	1,010000,4,154,151,163,164
	con	2,002000,1,1
	con	3,010000,14,126,155,145,156,165,137,151,164,145,155,137,162,145,143
	declend
	line	291
	colm	11
	synt	any
	mark	L1
	line	292
	colm	4
	synt	ifelse
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	292
	colm	10
	synt	any
	field	V
	line	292
	colm	12
	synt	any
	field	set_value
	var	3
	line	292
	colm	23
	synt	any
	eqv
	unmark
	mark	L4
	var	4
	var	0
	var	1
	var	2
	line	293
	colm	29
	synt	any
	invoke	3
	line	293
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	294
	colm	9
	synt	ifelse
	mark	L5
	pnull
	var	5
	var	0
	line	294
	colm	16
	synt	any
	invoke	1
	str	0
	line	294
	colm	22
	synt	any
	lexeq
	pop
	pnull
	var	5
	pnull
	var	0
	line	294
	colm	48
	synt	any
	field	lookup
	line	294
	colm	44
	synt	any
	invoke	1
	str	1
	line	294
	colm	57
	synt	any
	lexeq
	pop
	pnull
	var	5
	pnull
	pnull
	var	0
	line	295
	colm	18
	synt	any
	field	lookup
	int	2
	line	295
	colm	25
	synt	any
	subsc
	line	295
	colm	14
	synt	any
	invoke	1
	str	3
	line	295
	colm	30
	synt	any
	lexeq
	unmark
	mark	L7
	var	6
	var	0
	var	1
	line	296
	colm	29
	synt	any
	invoke	2
	line	296
	colm	7
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L6
lab L5
	line	298
	colm	7
	synt	any
	pfail
lab L6
	line	294
	colm	9
	synt	endifelse
lab L3
	line	292
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	299
	colm	1
	synt	any
	pfail
	end
proc VGetItems
	local	0,001000,vid
	local	1,000000,set_value_Vlist
	local	2,000000,get_items_Vlist
	local	3,000000,type
	local	4,000000,Vmenu_get_items
	con	0,010000,10,126,146,162,141,155,145,137,162,145,143
	con	1,010000,4,154,151,163,164
	con	2,002000,1,1
	con	3,010000,14,126,155,145,156,165,137,151,164,145,155,137,162,145,143
	declend
	line	304
	colm	11
	synt	any
	mark	L1
	line	305
	colm	4
	synt	ifelse
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	305
	colm	10
	synt	any
	field	V
	line	305
	colm	12
	synt	any
	field	set_value
	var	1
	line	305
	colm	23
	synt	any
	eqv
	unmark
	mark	L4
	var	2
	var	0
	line	306
	colm	29
	synt	any
	invoke	1
	line	306
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	307
	colm	9
	synt	ifelse
	mark	L5
	pnull
	var	3
	var	0
	line	307
	colm	16
	synt	any
	invoke	1
	str	0
	line	307
	colm	22
	synt	any
	lexeq
	pop
	pnull
	var	3
	pnull
	var	0
	line	307
	colm	48
	synt	any
	field	lookup
	line	307
	colm	44
	synt	any
	invoke	1
	str	1
	line	307
	colm	57
	synt	any
	lexeq
	pop
	pnull
	var	3
	pnull
	pnull
	var	0
	line	308
	colm	18
	synt	any
	field	lookup
	int	2
	line	308
	colm	25
	synt	any
	subsc
	line	308
	colm	14
	synt	any
	invoke	1
	str	3
	line	308
	colm	30
	synt	any
	lexeq
	unmark
	mark	L7
	var	4
	var	0
	line	309
	colm	29
	synt	any
	invoke	1
	line	309
	colm	7
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L6
lab L5
	line	311
	colm	7
	synt	any
	pfail
lab L6
	line	307
	colm	9
	synt	endifelse
lab L3
	line	305
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	312
	colm	1
	synt	any
	pfail
	end
proc GetEvents
	local	0,001000,vidget
	local	1,001000,missed
	local	2,001000,all
	local	3,001000,resize
	local	4,000000,ProcessEvent
	declend
	line	319
	colm	11
	synt	any
	mark	L1
lab L2
	line	320
	colm	4
	synt	repeat
	mark	L2
	var	4
	var	0
	var	1
	var	2
	var	3
	line	320
	colm	23
	synt	any
	invoke	4
lab L3
	unmark
	goto	L2
lab L4
	line	320
	colm	4
	synt	endrepeat
	unmark
lab L1
	pnull
	line	321
	colm	1
	synt	any
	pfail
	end
proc ProcessEvent
	local	0,001000,vidget
	local	1,001000,missed
	local	2,001000,all
	local	3,001000,resize
	local	4,000020,event
	local	5,000020,lrv
	local	6,000000,type
	local	7,000000,find
	local	8,000000,_Vbomb
	local	9,000000,Event
	local	10,000000,VEvent
	con	0,010000,5,146,162,141,155,145
	con	1,010000,40,151,156,166,141,154,151,144,040,146,162,141,155,145,040,141,162,147,165,155,145,156,164,040,164,157,040,120,162,157,143,145,163,163,105,166,145,156,164,050,051
	declend
	line	323
	colm	11
	synt	any
	mark	L1
	var	6
	var	0
	line	326
	colm	8
	synt	any
	invoke	1
	line	326
	colm	17
	synt	any
	bscan
	line	327
	colm	7
	synt	if
	mark0
	mark	L2
	var	7
	str	0
	line	327
	colm	18
	synt	any
	invoke	1
	unmark
	efail
lab L2
	pnull
	unmark
	var	8
	str	1
	line	328
	colm	18
	synt	any
	invoke	1
	line	327
	colm	7
	synt	endif
	line	326
	colm	17
	synt	any
	escan
	unmark
lab L1
	mark	L3
	pnull
	var	4
	var	9
	pnull
	var	0
	line	331
	colm	25
	synt	any
	field	win
	line	331
	colm	18
	synt	any
	invoke	1
	line	331
	colm	10
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	333
	colm	4
	synt	if
	mark0
	pnull
	var	4
	line	333
	colm	17
	synt	any
	keywd	resize
	line	333
	colm	13
	synt	any
	eqv
	unmark
	mark	L5
	pnull
	var	3
	line	334
	colm	8
	synt	any
	nonnull
	var	0
	var	4
	line	334
	colm	32
	synt	any
	keywd	x
	line	334
	colm	36
	synt	any
	keywd	y
	line	334
	colm	16
	synt	any
	invoke	4
	unmark
lab L5
	var	10
	var	0
	var	4
	line	335
	colm	29
	synt	any
	keywd	x
	line	335
	colm	33
	synt	any
	keywd	y
	line	335
	colm	13
	synt	any
	invoke	4
	line	333
	colm	4
	synt	endif
	unmark
lab L4
	mark	L6
	mark	L7
	pnull
	pnull
	var	5
	pnull
	pnull
	var	0
	line	338
	colm	20
	synt	any
	field	V
	line	338
	colm	22
	synt	any
	field	lookup
	var	0
	line	338
	colm	37
	synt	any
	keywd	x
	line	338
	colm	40
	synt	any
	keywd	y
	line	338
	colm	29
	synt	any
	invoke	3
	line	338
	colm	11
	synt	any
	asgn
	line	338
	colm	5
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	5
	line	338
	colm	50
	synt	any
	field	V
	line	338
	colm	52
	synt	any
	field	event
	var	5
	var	4
	line	338
	colm	69
	synt	any
	keywd	x
	line	338
	colm	72
	synt	any
	keywd	y
	line	338
	colm	58
	synt	any
	invoke	4
	line	338
	colm	77
	synt	any
	esusp
	goto	L8
lab L7
	pnull
	var	1
	line	339
	colm	8
	synt	any
	nonnull
	var	4
	line	339
	colm	24
	synt	any
	keywd	x
	line	339
	colm	28
	synt	any
	keywd	y
	line	339
	colm	16
	synt	any
	invoke	3
lab L8
	unmark
lab L6
	mark	L9
	pnull
	var	2
	line	341
	colm	5
	synt	any
	nonnull
	var	4
	line	341
	colm	18
	synt	any
	keywd	x
	line	341
	colm	22
	synt	any
	keywd	y
	line	341
	colm	10
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	mark	L11
	var	4
	line	343
	colm	4
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	345
	colm	1
	synt	any
	pfail
	end
proc vecho
	local	0,001000,v
	local	1,001000,x
	local	2,000000,vecho
	local	3,000000,VEcho
	declend
	line	355
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	line	356
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	3
	var	0
	var	1
	line	357
	colm	16
	synt	any
	invoke	2
	line	357
	colm	4
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	358
	colm	1
	synt	any
	pfail
	end
proc VEcho
	local	0,001000,v
	local	1,001000,x
	local	2,000040,image
	local	3,000000,proc
	local	4,000000,writes
	local	5,000000,type
	local	6,000000,write
	con	0,010000,5,151,155,141,147,145
	con	1,002000,1,0
	con	2,010000,13,143,141,154,154,142,141,143,153,072,040,151,144,075
	con	3,010000,8,054,040,166,141,154,165,145,075
	con	4,010000,4,154,151,163,164
	con	5,010000,1,133
	con	6,002000,1,1
	con	7,010000,1,054
	con	8,002000,1,2
	con	9,010000,1,135
	declend
	line	360
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	2
	var	3
	str	0
	int	1
	line	363
	colm	25
	synt	any
	invoke	2
	line	363
	colm	18
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	var	4
	str	2
	pnull
	var	0
	line	365
	colm	29
	synt	any
	field	id
	str	3
	line	365
	colm	10
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	line	366
	colm	4
	synt	ifelse
	mark	L6
	pnull
	var	5
	var	1
	line	366
	colm	11
	synt	any
	invoke	1
	str	4
	line	366
	colm	15
	synt	any
	lexeq
	unmark
	mark	L8
	var	4
	str	5
	line	367
	colm	13
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	4
	var	2
	pnull
	var	1
	int	6
	line	368
	colm	21
	synt	any
	subsc
	line	368
	colm	19
	synt	any
	invoke	1
	line	368
	colm	13
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	line	369
	colm	7
	synt	every
	mark0
	var	4
	str	7
	var	2
	pnull
	var	1
	pnull
	int	8
	pnull
	var	1
	line	369
	colm	38
	synt	any
	size
	push1
	line	369
	colm	35
	synt	any
	toby
	line	369
	colm	32
	synt	any
	subsc
	line	369
	colm	30
	synt	any
	invoke	1
	line	369
	colm	19
	synt	any
	invoke	2
	pop
lab L11
	efail
lab L12
	line	369
	colm	7
	synt	endevery
	unmark
lab L10
	var	4
	str	9
	line	370
	colm	13
	synt	any
	invoke	1
	goto	L7
lab L6
	var	4
	var	2
	var	1
	line	373
	colm	19
	synt	any
	invoke	1
	line	373
	colm	13
	synt	any
	invoke	1
lab L7
	line	366
	colm	4
	synt	endifelse
	unmark
lab L5
	mark	L13
	var	6
	line	374
	colm	9
	synt	any
	invoke	0
	unmark
lab L13
	mark	L14
	mark	L15
	pnull
	line	375
	colm	4
	synt	any
	pret
lab L15
	synt	any
	pfail
	unmark
lab L14
	pnull
	line	376
	colm	1
	synt	any
	pfail
	end
proc vsetfont
	local	0,001000,win
	local	1,000000,vsetfont
	local	2,000000,VSetFont
	declend
	line	385
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	line	386
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	2
	var	0
	line	387
	colm	19
	synt	any
	invoke	1
	line	387
	colm	4
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	388
	colm	1
	synt	any
	pfail
	end
proc VSetFont
	local	0,001000,win
	local	1,000020,spec
	local	2,000020,maybe
	local	3,000000,WAttrib
	local	4,000000,Font
	con	0,010000,6,146,167,151,144,164,150
	con	1,002000,1,7
	con	2,010000,28,154,165,143,151,144,141,163,141,156,163,164,171,160,145,167,162,151,164,145,162,055,142,157,154,144,055,061,062
	con	3,010000,54,055,052,055,154,165,143,151,144,141,164,171,160,145,167,162,151,164,145,162,055,142,157,154,144,055,162,055,052,055,052,055,061,062,055,052,055,052,055,052,055,052,055,067,060,055,151,163,157,070,070,065,071,055,061
	con	4,010000,53,055,052,055,154,165,143,151,144,141,164,171,160,145,167,162,151,164,145,162,055,142,157,154,144,055,162,055,052,055,052,055,052,055,052,055,052,055,052,055,052,055,067,060,055,151,163,157,070,070,065,071,055,061
	con	5,010000,36,055,052,055,052,055,162,055,052,055,163,141,156,163,055,052,055,052,055,052,055,052,055,155,055,067,060,055,151,163,157,070,070,065,071,055,061
	con	6,010000,33,055,052,055,052,055,162,055,052,055,052,055,052,055,052,055,052,055,052,055,155,055,067,060,055,151,163,157,070,070,065,071,055,061
	con	7,010000,33,055,052,055,052,055,162,055,052,055,052,055,052,055,052,055,052,055,052,055,143,055,067,060,055,151,163,157,070,070,065,071,055,061
	declend
	line	390
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	393
	colm	4
	synt	any
	null
	line	393
	colm	12
	synt	any
	keywd	window
	line	393
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	394
	colm	4
	synt	if
	mark0
	pnull
	var	3
	var	0
	str	0
	line	394
	colm	14
	synt	any
	invoke	2
	int	1
	line	394
	colm	30
	synt	any
	numeq
	unmark
	mark	L3
	var	0
	line	395
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	394
	colm	4
	synt	endif
	unmark
lab L2
	mark	L4
	line	397
	colm	4
	synt	every
	mark0
	pnull
	var	1
	mark	L7
	str	2
	line	400
	colm	41
	synt	any
	esusp
	goto	L8
lab L7
	mark	L9
	str	3
	line	401
	colm	67
	synt	any
	esusp
	goto	L10
lab L9
	mark	L11
	str	4
	line	402
	colm	66
	synt	any
	esusp
	goto	L12
lab L11
	mark	L13
	str	5
	line	403
	colm	49
	synt	any
	esusp
	goto	L14
lab L13
	mark	L15
	str	6
	line	404
	colm	46
	synt	any
	esusp
	goto	L16
lab L15
	str	7
lab L16
lab L14
lab L12
lab L10
lab L8
	line	397
	colm	15
	synt	any
	asgn
	pop
	mark0
	mark	L17
	mark	L18
	var	4
	var	0
	var	1
	line	411
	colm	14
	synt	any
	invoke	2
	line	411
	colm	26
	synt	any
	esusp
	goto	L19
lab L18
	unmark
	unmark
	goto	L5
lab L19
	unmark
lab L17
	mark	L20
	pnull
	pnull
	var	2
	line	412
	colm	10
	synt	any
	null
	var	1
	line	412
	colm	17
	synt	any
	asgn
	unmark
lab L20
	line	413
	colm	10
	synt	if
	mark0
	pnull
	var	3
	var	0
	str	0
	line	413
	colm	20
	synt	any
	invoke	2
	int	1
	line	413
	colm	36
	synt	any
	numeq
	unmark
	mark	L21
	var	0
	line	414
	colm	13
	synt	any
	pret
lab L21
	synt	any
	pfail
	line	413
	colm	10
	synt	endif
	unmark
lab L5
	efail
lab L6
	line	397
	colm	4
	synt	endevery
	unmark
lab L4
	mark	L22
	var	4
	var	0
	pnull
	var	2
	line	419
	colm	14
	synt	any
	nonnull
	line	419
	colm	8
	synt	any
	invoke	2
	unmark
lab L22
	mark	L23
	mark	L24
	var	0
	line	420
	colm	4
	synt	any
	pret
lab L24
	synt	any
	pfail
	unmark
lab L23
	pnull
	line	421
	colm	1
	synt	any
	pfail
	end
