version	U12.1.00
uid	xoptions.u1-1786033001-0
impl	error
global	4
	0,000005,xoptions,-4
	1,000005,process_option_string,3
	2,000005,process_command_option,7
	3,000005,convert_to_list,2

proc xoptions
	local	0,001000,arg
	local	1,001000,optstring
	local	2,001000,errproc
	local	3,001000,finishoption
	local	4,000020,opttable
	local	5,000020,option
	local	6,000020,flags
	local	7,000020,maptable
	local	8,000020,tmpt
	local	9,000000,string
	local	10,000000,stop
	local	11,000000,table
	local	12,000000,process_option_string
	local	13,000000,process_command_option
	con	0,002000,1,0
	con	1,010000,2,055,055
	con	2,010000,7,041,072,053,056,044,050,074
	con	3,002000,1,1
	con	4,002000,1,2
	declend
	filen	xoptions.icn
	line	315
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	334
	colm	5
	synt	any
	null
	var	9
	pnull
	line	334
	colm	26
	synt	any
	keywd	letters
	line	334
	colm	38
	synt	any
	keywd	digits
	line	334
	colm	35
	synt	any
	unions
	line	334
	colm	25
	synt	any
	invoke	1
	line	334
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	338
	colm	5
	synt	any
	null
	var	10
	line	338
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	3
	line	343
	colm	5
	synt	any
	size
	int	0
	line	343
	colm	19
	synt	any
	numeq
	pop
	pnull
	var	3
	pnull
	str	1
	line	343
	colm	41
	synt	any
	llist	1
	line	343
	colm	38
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	5
	var	11
	line	344
	colm	20
	synt	any
	invoke	0
	line	344
	colm	12
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	6
	str	2
	line	349
	colm	11
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	8
	var	12
	var	1
	var	6
	line	353
	colm	34
	synt	any
	invoke	2
	line	353
	colm	10
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	4
	pnull
	var	8
	int	3
	line	359
	colm	21
	synt	any
	subsc
	line	359
	colm	14
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	7
	pnull
	var	8
	int	4
	line	360
	colm	21
	synt	any
	subsc
	line	360
	colm	14
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	mark	L10
	var	13
	var	0
	var	5
	var	4
	var	7
	var	3
	var	2
	line	364
	colm	34
	synt	any
	invoke	6
	line	364
	colm	5
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	365
	colm	1
	synt	any
	pfail
	end
proc process_option_string
	local	0,001000,optstring
	local	1,001000,flags
	local	2,001000,nosuboption
	local	3,000020,optname
	local	4,000020,opttable
	local	5,000020,opttype
	local	6,000020,optcs
	local	7,000020,minusoptcs
	local	8,000020,suboption
	local	9,000020,maptable
	local	10,000020,tkey
	local	11,000020,str
	local	12,000020,i
	local	13,000020,cannotshorten
	local	14,000020,skey
	local	15,000020,prefixset
	local	16,000000,string
	local	17,000000,table
	local	18,000000,move
	local	19,000000,tab
	local	20,000000,many
	local	21,000000,member
	local	22,000000,any
	local	23,000000,upto
	local	24,000000,process_option_string
	local	25,000000,key
	local	26,000000,match
	local	27,000000,set
	local	28,000000,insert
	local	29,000000,delete
	con	0,020000,1,137
	con	1,020000,1,055
	con	2,002000,1,1
	con	3,010000,1,040
	con	4,020000,1,040
	con	5,010000,1,055
	con	6,010000,1,075
	con	7,010000,1,041
	con	8,010000,1,050
	con	9,010000,1,051
	con	10,020000,1,050
	con	11,010000,1,052
	con	12,010000,1,074
	con	13,002000,1,2
	declend
	line	371
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	411
	colm	5
	synt	any
	null
	var	16
	pnull
	line	411
	colm	26
	synt	any
	keywd	letters
	line	411
	colm	38
	synt	any
	keywd	digits
	line	411
	colm	35
	synt	any
	unions
	line	411
	colm	25
	synt	any
	invoke	1
	line	411
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	4
	var	17
	line	413
	colm	22
	synt	any
	invoke	0
	line	413
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	6
	pnull
	pnull
	line	417
	colm	14
	synt	any
	keywd	letters
	line	417
	colm	26
	synt	any
	keywd	digits
	line	417
	colm	23
	synt	any
	unions
	cset	0
	line	417
	colm	34
	synt	any
	unions
	line	417
	colm	11
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	7
	pnull
	var	6
	cset	1
	line	418
	colm	25
	synt	any
	unions
	line	418
	colm	16
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	9
	var	17
	line	436
	colm	22
	synt	any
	invoke	0
	line	436
	colm	14
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	13
	var	17
	line	437
	colm	27
	synt	any
	invoke	0
	line	437
	colm	19
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	var	0
	line	442
	colm	15
	synt	any
	bscan
lab L8
	line	443
	colm	9
	synt	while
	mark0
	pnull
	var	3
	var	18
	int	2
	line	443
	colm	30
	synt	any
	invoke	1
	line	443
	colm	23
	synt	any
	asgn
	unmark
	mark	L8
	mark	L11
	line	449
	colm	13
	synt	if
	mark0
	pnull
	var	3
	str	3
	line	449
	colm	24
	synt	any
	lexeq
	unmark
	mark	L12
	var	19
	var	20
	cset	4
	line	450
	colm	25
	synt	any
	invoke	1
	line	450
	colm	20
	synt	any
	invoke	1
	unmark
lab L12
	unmark
	goto	L9
	line	449
	colm	13
	synt	endif
	unmark
lab L11
	mark	L13
	line	458
	colm	13
	synt	ifelse
	mark	L14
	pnull
	var	3
	str	5
	line	458
	colm	24
	synt	any
	lexeq
	unmark
	mark	L16
	pnull
	var	3
	mark	L17
	var	18
	int	2
	line	459
	colm	32
	synt	any
	invoke	1
	line	459
	colm	36
	synt	any
	esusp
	goto	L18
lab L17
	unmark
	unmark
	unmark
	pnull
	goto	L10
lab L18
	line	459
	colm	25
	synt	any
	asgn
	unmark
lab L16
	line	464
	colm	17
	synt	ifelse
	mark	L19
	var	21
	var	6
	var	3
	line	464
	colm	26
	synt	any
	invoke	2
	unmark
	mark	L21
	pnull
	var	3
	dup
	var	19
	var	20
	var	6
	line	465
	colm	42
	synt	any
	invoke	1
	line	465
	colm	37
	synt	any
	invoke	1
	line	465
	colm	29
	synt	any
	cat
	asgn
	unmark
lab L21
	pnull
	pnull
	var	9
	var	3
	line	466
	colm	29
	synt	any
	subsc
	var	3
	line	466
	colm	39
	synt	any
	asgn
	goto	L20
lab L19
	line	472
	colm	24
	synt	ifelse
	mark	L22
	pnull
	var	3
	str	5
	line	472
	colm	35
	synt	any
	lexeq
	unmark
	mark	L24
	pnull
	var	3
	dup
	var	19
	var	20
	var	7
	line	473
	colm	42
	synt	any
	invoke	1
	line	473
	colm	37
	synt	any
	invoke	1
	line	473
	colm	29
	synt	any
	cat
	asgn
	unmark
lab L24
	pnull
	pnull
	var	9
	var	3
	line	474
	colm	29
	synt	any
	subsc
	var	3
	line	474
	colm	39
	synt	any
	asgn
	goto	L23
lab L22
	pnull
	pnull
	var	9
	var	3
	line	476
	colm	29
	synt	any
	subsc
	var	3
	line	476
	colm	39
	synt	any
	asgn
lab L23
	line	472
	colm	24
	synt	endifelse
lab L20
	line	464
	colm	17
	synt	endifelse
	goto	L15
lab L14
	line	481
	colm	20
	synt	ifelse
	mark	L25
	pnull
	var	3
	str	6
	line	481
	colm	31
	synt	any
	lexeq
	unmark
	mark	L27
	pnull
	var	3
	mark	L28
	var	18
	int	2
	line	482
	colm	32
	synt	any
	invoke	1
	line	482
	colm	36
	synt	any
	esusp
	goto	L29
lab L28
	unmark
	unmark
	unmark
	pnull
	goto	L10
lab L29
	line	482
	colm	25
	synt	any
	asgn
	unmark
lab L27
	line	487
	colm	17
	synt	ifelse
	mark	L30
	var	21
	var	7
	var	3
	line	487
	colm	26
	synt	any
	invoke	2
	unmark
	mark	L32
	pnull
	var	3
	dup
	var	19
	var	20
	var	7
	line	488
	colm	42
	synt	any
	invoke	1
	line	488
	colm	37
	synt	any
	invoke	1
	line	488
	colm	29
	synt	any
	cat
	asgn
	unmark
lab L32
	mark	L33
	pnull
	pnull
	var	9
	var	3
	line	489
	colm	29
	synt	any
	subsc
	var	3
	line	489
	colm	39
	synt	any
	asgn
	unmark
lab L33
	pnull
	pnull
	var	9
	pnull
	str	5
	var	3
	line	490
	colm	34
	synt	any
	cat
	line	490
	colm	29
	synt	any
	subsc
	var	3
	line	490
	colm	46
	synt	any
	asgn
	goto	L31
lab L30
	mark	L34
	pnull
	pnull
	var	9
	var	3
	line	492
	colm	29
	synt	any
	subsc
	var	3
	line	492
	colm	39
	synt	any
	asgn
	unmark
lab L34
	pnull
	pnull
	var	9
	pnull
	str	5
	var	3
	line	493
	colm	34
	synt	any
	cat
	line	493
	colm	29
	synt	any
	subsc
	var	3
	line	493
	colm	46
	synt	any
	asgn
lab L31
	line	487
	colm	17
	synt	endifelse
	goto	L26
lab L25
	pnull
	pnull
	var	9
	var	3
	line	496
	colm	25
	synt	any
	subsc
	var	3
	line	496
	colm	35
	synt	any
	asgn
lab L26
	line	481
	colm	20
	synt	endifelse
lab L15
	line	458
	colm	13
	synt	endifelse
	unmark
lab L13
	mark	L35
	pnull
	var	5
	mark	L36
	var	19
	var	22
	var	1
	line	502
	colm	31
	synt	any
	invoke	1
	line	502
	colm	27
	synt	any
	invoke	1
	line	502
	colm	40
	synt	any
	esusp
	goto	L37
lab L36
	str	7
lab L37
	line	502
	colm	21
	synt	any
	asgn
	unmark
lab L35
	mark	L38
	line	506
	colm	13
	synt	if
	mark0
	pnull
	var	2
	line	506
	colm	16
	synt	any
	null
	unmark
	line	507
	colm	17
	synt	if
	mark0
	pnull
	var	5
	str	8
	line	507
	colm	28
	synt	any
	lexeq
	unmark
	mark	L39
	pnull
	var	8
	var	19
	var	23
	str	9
	line	508
	colm	42
	synt	any
	invoke	1
	line	508
	colm	37
	synt	any
	invoke	1
	line	508
	colm	31
	synt	any
	asgn
	unmark
lab L39
	mark	L40
	var	18
	int	2
	line	509
	colm	25
	synt	any
	invoke	1
	unmark
lab L40
	pnull
	var	5
	var	24
	var	8
	pnull
	var	1
	cset	10
	line	510
	colm	71
	synt	any
	diff
	int	2
	line	510
	colm	53
	synt	any
	invoke	3
	line	510
	colm	29
	synt	any
	asgn
	line	507
	colm	17
	synt	endif
	line	506
	colm	13
	synt	endif
	unmark
lab L38
	mark	L41
	line	518
	colm	13
	synt	if
	mark0
	pnull
	str	11
	line	518
	colm	16
	synt	any
	tabmat
	unmark
	line	519
	colm	17
	synt	if
	mark0
	pnull
	var	5
	str	12
	line	519
	colm	28
	synt	any
	lexne
	unmark
	pnull
	var	5
	pnull
	var	5
	line	520
	colm	32
	synt	any
	llist	1
	line	520
	colm	29
	synt	any
	asgn
	line	519
	colm	17
	synt	endif
	line	518
	colm	13
	synt	endif
	unmark
lab L41
	pnull
	pnull
	var	4
	var	3
	line	529
	colm	21
	synt	any
	subsc
	var	5
	line	529
	colm	31
	synt	any
	asgn
lab L9
	unmark
	goto	L8
lab L10
	line	443
	colm	9
	synt	endwhile
	line	442
	colm	15
	synt	any
	escan
	unmark
lab L7
	mark	L42
	line	539
	colm	5
	synt	every
	mark0
	pnull
	var	10
	var	25
	var	9
	line	539
	colm	22
	synt	any
	invoke	1
	line	539
	colm	16
	synt	any
	asgn
	pop
	mark0
	line	540
	colm	9
	synt	if
	mark0
	var	26
	var	10
	pnull
	var	14
	var	25
	var	9
	line	540
	colm	35
	synt	any
	invoke	1
	line	540
	colm	29
	synt	any
	asgn
	line	540
	colm	17
	synt	any
	invoke	2
	pop
	pnull
	var	10
	var	14
	line	540
	colm	54
	synt	any
	lexne
	unmark
	pnull
	pnull
	var	13
	var	10
	line	541
	colm	26
	synt	any
	subsc
	int	2
	line	541
	colm	33
	synt	any
	asgn
	line	540
	colm	9
	synt	endif
	unmark
lab L43
	efail
lab L44
	line	539
	colm	5
	synt	endevery
	unmark
lab L42
	mark	L45
	line	549
	colm	5
	synt	every
	mark0
	pnull
	var	10
	var	25
	var	9
	line	549
	colm	22
	synt	any
	invoke	1
	line	549
	colm	16
	synt	any
	asgn
	pop
	mark0
	mark	L48
	pnull
	var	11
	pnull
	var	9
	var	10
	line	550
	colm	24
	synt	any
	subsc
	line	550
	colm	13
	synt	any
	asgn
	unmark
lab L48
	line	551
	colm	9
	synt	every
	mark0
	pnull
	var	12
	pnull
	pnull
	var	11
	line	551
	colm	20
	synt	any
	size
	int	13
	pnull
	int	2
	line	551
	colm	33
	synt	any
	neg
	line	551
	colm	25
	synt	any
	toby
	line	551
	colm	17
	synt	any
	asgn
	pop
	mark0
	mark	L51
	pnull
	pnull
	var	13
	var	11
	line	552
	colm	28
	synt	any
	subsc
	line	552
	colm	14
	synt	any
	null
	pop
	pnull
	pnull
	pnull
	var	9
	pnull
	var	11
	int	2
	var	12
	line	552
	colm	51
	synt	any
	synt	any
	sect
	line	552
	colm	45
	synt	any
	subsc
	line	552
	colm	36
	synt	any
	null
	var	11
	line	552
	colm	56
	synt	any
	asgn
	line	552
	colm	64
	synt	any
	esusp
	goto	L52
lab L51
	unmark
	unmark
	pnull
	goto	L50
lab L52
	unmark
lab L49
	efail
lab L50
	line	551
	colm	9
	synt	endevery
	unmark
lab L46
	efail
lab L47
	line	549
	colm	5
	synt	endevery
	unmark
lab L45
	mark	L53
	pnull
	var	15
	var	17
	line	560
	colm	23
	synt	any
	invoke	0
	line	560
	colm	15
	synt	any
	asgn
	unmark
lab L53
	mark	L54
	line	561
	colm	5
	synt	every
	mark0
	pnull
	var	10
	var	25
	var	9
	line	561
	colm	22
	synt	any
	invoke	1
	line	561
	colm	16
	synt	any
	asgn
	pop
	mark0
	mark	L57
	pnull
	pnull
	var	15
	var	10
	line	565
	colm	18
	synt	any
	subsc
	var	27
	pnull
	pnull
	var	9
	var	10
	line	565
	colm	41
	synt	any
	subsc
	line	565
	colm	32
	synt	any
	llist	1
	line	565
	colm	31
	synt	any
	invoke	1
	line	565
	colm	25
	synt	any
	asgn
	unmark
lab L57
	line	573
	colm	9
	synt	if
	mark0
	var	26
	var	10
	pnull
	var	11
	var	25
	var	9
	line	573
	colm	34
	synt	any
	invoke	1
	line	573
	colm	28
	synt	any
	asgn
	line	573
	colm	17
	synt	any
	invoke	2
	pop
	pnull
	pnull
	var	9
	var	10
	line	574
	colm	25
	synt	any
	subsc
	pnull
	var	9
	var	11
	line	574
	colm	44
	synt	any
	subsc
	line	574
	colm	32
	synt	any
	lexne
	pop
	pnull
	pnull
	var	9
	var	10
	line	575
	colm	25
	synt	any
	subsc
	var	10
	line	575
	colm	32
	synt	any
	lexne
	pop
	pnull
	pnull
	var	10
	line	575
	colm	43
	synt	any
	size
	pnull
	pnull
	var	9
	var	10
	line	575
	colm	61
	synt	any
	subsc
	line	575
	colm	52
	synt	any
	size
	line	575
	colm	49
	synt	any
	numle
	unmark
	var	28
	pnull
	var	15
	var	10
	line	576
	colm	29
	synt	any
	subsc
	pnull
	var	9
	var	11
	line	576
	colm	45
	synt	any
	subsc
	line	576
	colm	19
	synt	any
	invoke	2
	line	573
	colm	9
	synt	endif
	unmark
lab L55
	efail
lab L56
	line	561
	colm	5
	synt	endevery
	unmark
lab L54
	mark	L58
	line	583
	colm	5
	synt	every
	mark0
	pnull
	var	10
	var	25
	var	15
	line	583
	colm	22
	synt	any
	invoke	1
	line	583
	colm	16
	synt	any
	asgn
	pop
	mark0
	line	584
	colm	9
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	15
	var	10
	line	584
	colm	22
	synt	any
	subsc
	line	584
	colm	12
	synt	any
	size
	int	2
	line	584
	colm	29
	synt	any
	numgt
	unmark
	var	29
	var	9
	var	10
	line	585
	colm	19
	synt	any
	invoke	2
	line	584
	colm	9
	synt	endif
	unmark
lab L59
	efail
lab L60
	line	583
	colm	5
	synt	endevery
	unmark
lab L58
	mark	L61
	mark	L62
	pnull
	var	4
	var	9
	line	588
	colm	12
	synt	any
	llist	2
	line	588
	colm	5
	synt	any
	pret
lab L62
	synt	any
	pfail
	unmark
lab L61
	pnull
	line	589
	colm	1
	synt	any
	pfail
	end
proc process_command_option
	local	0,001000,args
	local	1,001000,option
	local	2,001000,opttable
	local	3,001000,maptable
	local	4,001000,finishoption
	local	5,001000,errproc
	local	6,001000,nosuboption
	local	7,000020,f
	local	8,000020,fList
	local	9,000020,fn
	local	10,000020,optname
	local	11,000020,opttype
	local	12,000020,p
	local	13,000020,x
	local	14,000020,suboptionsep
	local	15,000020,tmpopt
	local	16,000020,mulopt
	local	17,000020,argstack
	local	18,000020,currentarg
	local	19,000020,tmpx
	local	20,000020,tmpstr
	local	21,000020,tmplst
	local	22,000000,get
	local	23,000000,pos
	local	24,000000,tab
	local	25,000000,find
	local	26,000000,move
	local	27,000000,type
	local	28,000000,process_command_option
	local	29,000000,convert_to_list
	local	30,000000,table
	local	31,000000,stop
	local	32,000000,any
	local	33,000000,trim
	local	34,000000,integer
	local	35,000000,real
	local	36,000000,match
	local	37,000000,push
	local	38,000000,put
	local	39,000000,sort
	local	40,000000,open
	local	41,000000,read
	local	42,000000,close
	local	43,000000,pop
	local	44,000000,pull
	con	0,010000,1,054
	con	1,002000,1,0
	con	2,010000,1,055
	con	3,002000,1,1
	con	4,010000,1,075
	con	5,010000,4,154,151,163,164
	con	6,002000,1,2
	con	7,010000,103,124,150,151,163,040,145,162,162,157,162,040,163,150,157,165,154,144,040,116,105,126,105,122,040,157,143,143,165,162,041,041,041,041,041,041,041,012,012,120,162,157,143,145,163,163,151,156,147,040,157,146,040,163,165,142,055,157,160,164,151,157,156,163,040,150,141,163,040,147,151,166,145,156,040,162,151,163,145,040,164,157,040,141,040,143,162,151,164,151,143,141,154,040,145,162,162,157,162,041,041,041,041,012
	con	8,020000,3,072,053,056
	con	9,010000,0
	con	10,020000,1,040
	con	11,010000,24,116,157,040,160,141,162,141,155,145,164,145,162,040,146,157,154,154,157,167,151,156,147,040,055
	con	12,010000,1,072
	con	13,010000,1,053
	con	14,010000,24,040,156,145,145,144,163,040,156,165,155,145,162,151,143,040,160,141,162,141,155,145,164,145,162
	con	15,010000,1,056
	con	16,010000,1,044
	con	17,010000,1,074
	con	18,010000,22,125,156,162,145,143,157,147,156,151,172,145,144,040,157,160,164,151,157,156,072,040,055
	con	19,010000,28,012,124,150,151,163,040,151,163,040,145,151,164,150,145,162,040,156,157,164,040,141,040,166,141,154,151,144,040
	con	20,010000,6,157,160,164,151,157,156
	con	21,010000,10,163,165,142,055,157,160,164,151,157,156
	con	22,010000,39,040,157,162,040,156,157,164,040,141,040,166,141,154,151,144,040,163,150,157,162,164,040,146,157,162,155,040,156,141,155,145,040,157,146,040,164,150,145,040
	con	23,010000,8,012,012,126,141,154,151,144,040
	con	24,010000,8,163,040,141,162,145,040,072,012
	con	25,010000,4,040,040,040,040
	con	26,010000,1,012
	con	27,010000,1,100
	con	28,010000,11,103,141,156,047,164,040,157,160,145,156,040
	declend
	line	595
	colm	11
	synt	any
	mark	L1
	pnull
	var	14
	str	0
	line	623
	colm	18
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	17
	pnull
	line	624
	colm	17
	synt	any
	llist	0
	line	624
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	18
	var	0
	line	625
	colm	16
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	8
	pnull
	line	626
	colm	14
	synt	any
	llist	0
	line	626
	colm	11
	synt	any
	asgn
	unmark
lab L4
	mark	L5
lab L6
	line	627
	colm	5
	synt	while
	mark0
	pnull
	var	13
	pnull
	var	22
	var	18
	line	627
	colm	20
	synt	any
	invoke	1
	line	627
	colm	16
	synt	any
	nonnull
	line	627
	colm	13
	synt	any
	asgn
	unmark
	mark	L6
	var	13
	line	628
	colm	11
	synt	any
	bscan
	line	635
	colm	13
	synt	ifelse
	mark	L9
	pnull
	pnull
	var	4
	line	635
	colm	17
	synt	any
	bang
	line	635
	colm	16
	synt	any
	tabmat
	pop
	var	23
	int	1
	line	635
	colm	36
	synt	any
	invoke	1
	unmark
	mark	L11
	pnull
	var	8
	dup
	var	18
	line	636
	colm	23
	synt	any
	lconcat
	asgn
	unmark
lab L11
	pnull
	var	18
	pnull
	line	637
	colm	31
	synt	any
	llist	0
	line	637
	colm	28
	synt	any
	asgn
	goto	L10
lab L9
	line	642
	colm	20
	synt	ifelse
	mark	L12
	pnull
	str	2
	line	642
	colm	23
	synt	any
	tabmat
	pop
	mark	L14
	var	23
	int	1
	line	642
	colm	37
	synt	any
	invoke	1
	unmark
	efail
lab L14
	pnull
	unmark
	pnull
	var	19
	var	24
	int	1
	line	643
	colm	29
	synt	any
	invoke	1
	line	643
	colm	23
	synt	any
	asgn
	line	643
	colm	34
	synt	any
	bscan
lab L15
	line	643
	colm	36
	synt	until
	mark	L16
	var	23
	int	1
	line	643
	colm	45
	synt	any
	invoke	1
	unmark
	efail
lab L16
	mark	L15
	line	648
	colm	21
	synt	ifelse
	mark	L19
	pnull
	var	11
	pnull
	pnull
	var	2
	pnull
	var	10
	mark	L21
	mark	L23
	pushn1
	var	23
	int	3
	line	648
	colm	63
	synt	any
	invoke	1
	var	24
	mark	L25
	var	25
	str	4
	line	648
	colm	75
	synt	any
	invoke	1
	line	648
	colm	81
	synt	any
	esusp
	goto	L26
lab L25
	int	1
lab L26
	line	648
	colm	70
	synt	any
	invoke	1
	line	648
	colm	59
	synt	any
	invoke	2
	line	648
	colm	87
	synt	any
	esusp
	goto	L24
lab L23
	pnull
	var	3
	var	10
	line	648
	colm	97
	synt	any
	subsc
lab L24
	line	648
	colm	108
	synt	any
	esusp
	goto	L22
lab L21
	mark	L27
	var	26
	int	3
	line	649
	colm	69
	synt	any
	invoke	1
	line	649
	colm	73
	synt	any
	esusp
	goto	L28
lab L27
	pnull
	var	3
	var	10
	line	649
	colm	83
	synt	any
	subsc
lab L28
lab L22
	line	648
	colm	54
	synt	any
	asgn
	line	648
	colm	44
	synt	any
	subsc
	line	648
	colm	35
	synt	any
	nonnull
	line	648
	colm	32
	synt	any
	asgn
	unmark
	mark	L29
	pnull
	str	4
	line	658
	colm	25
	synt	any
	tabmat
	unmark
lab L29
	mark	L30
	line	659
	colm	25
	synt	ifelse
	mark	L31
	pnull
	var	27
	var	11
	line	659
	colm	32
	synt	any
	invoke	1
	str	5
	line	659
	colm	42
	synt	any
	lexeq
	pop
	pnull
	pnull
	var	11
	line	659
	colm	56
	synt	any
	size
	int	3
	line	659
	colm	65
	synt	any
	numeq
	unmark
	mark	L33
	pnull
	pnull
	pnull
	var	1
	var	10
	line	660
	colm	36
	synt	any
	subsc
	line	660
	colm	29
	synt	any
	null
	pnull
	line	660
	colm	49
	synt	any
	llist	0
	line	660
	colm	46
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	pnull
	var	16
	int	3
	line	661
	colm	36
	synt	any
	asgn
	unmark
lab L34
	pnull
	var	11
	pnull
	var	11
	int	3
	line	662
	colm	47
	synt	any
	subsc
	line	662
	colm	37
	synt	any
	asgn
	goto	L32
lab L31
	pnull
	var	16
	line	664
	colm	39
	synt	any
	keywd	null
	line	664
	colm	36
	synt	any
	asgn
lab L32
	line	659
	colm	25
	synt	endifelse
	unmark
lab L30
	mark	L35
	pnull
	var	15
	line	671
	colm	29
	synt	ifelse
	mark	L36
	pnull
	var	27
	var	11
	line	671
	colm	36
	synt	any
	invoke	1
	str	5
	line	671
	colm	46
	synt	any
	lexeq
	unmark
	line	676
	colm	33
	synt	ifelse
	mark	L38
	pnull
	pnull
	var	11
	line	676
	colm	36
	synt	any
	size
	int	6
	line	676
	colm	45
	synt	any
	numeq
	unmark
	var	28
	var	29
	var	22
	var	18
	line	677
	colm	79
	synt	any
	invoke	1
	var	14
	line	677
	colm	75
	synt	any
	invoke	2
	var	30
	line	677
	colm	113
	synt	any
	invoke	0
	pnull
	var	11
	int	3
	line	677
	colm	124
	synt	any
	subsc
	pnull
	var	11
	int	6
	line	677
	colm	136
	synt	any
	subsc
	var	4
	var	5
	int	3
	line	677
	colm	59
	synt	any
	invoke	7
	goto	L39
lab L38
	var	31
	str	7
	line	683
	colm	41
	synt	any
	invoke	1
lab L39
	line	676
	colm	33
	synt	endifelse
	goto	L37
lab L36
	line	690
	colm	36
	synt	ifelse
	mark	L40
	var	32
	cset	8
	var	11
	line	690
	colm	42
	synt	any
	invoke	2
	unmark
	mark	L42
	pnull
	var	12
	mark	L43
	pnull
	str	9
	var	33
	mark	L45
	var	24
	int	1
	line	695
	colm	53
	synt	any
	invoke	1
	line	695
	colm	57
	synt	any
	esusp
	goto	L46
lab L45
	var	22
	var	18
	line	695
	colm	62
	synt	any
	invoke	1
lab L46
	cset	10
	int	1
	line	695
	colm	49
	synt	any
	invoke	3
	line	695
	colm	41
	synt	any
	lexne
	line	695
	colm	84
	synt	any
	esusp
	goto	L44
lab L43
	mark	L47
	var	5
	pnull
	str	11
	var	10
	line	696
	colm	79
	synt	any
	cat
	line	696
	colm	51
	synt	any
	invoke	1
	line	696
	colm	37
	synt	any
	pret
lab L47
	synt	any
	pfail
lab L44
	line	695
	colm	35
	synt	any
	asgn
	unmark
lab L42
	line	703
	colm	33
	synt	case
	mark0
	pnull
	var	11
	int	3
	line	703
	colm	45
	synt	any
	subsc
	eret
	mark	L49
	ccase
	str	12
	line	704
	colm	41
	synt	any
	eqv
	unmark
	pop
	var	33
	var	12
	cset	10
	int	1
	line	705
	colm	45
	synt	any
	invoke	3
	goto	L48
lab L49
	mark	L50
	ccase
	str	13
	line	707
	colm	41
	synt	any
	eqv
	unmark
	pop
	mark	L51
	var	34
	var	12
	line	708
	colm	48
	synt	any
	invoke	1
	line	708
	colm	52
	synt	any
	esusp
	goto	L52
lab L51
	mark	L53
	var	5
	pnull
	pnull
	str	2
	var	10
	line	709
	colm	64
	synt	any
	cat
	str	14
	line	709
	colm	75
	synt	any
	cat
	line	709
	colm	59
	synt	any
	invoke	1
	line	709
	colm	45
	synt	any
	pret
lab L53
	synt	any
	pfail
lab L52
	goto	L48
lab L50
	mark	L54
	ccase
	str	15
	line	712
	colm	41
	synt	any
	eqv
	unmark
	pop
	mark	L55
	var	35
	var	12
	line	713
	colm	45
	synt	any
	invoke	1
	line	713
	colm	49
	synt	any
	esusp
	goto	L56
lab L55
	mark	L57
	var	5
	pnull
	pnull
	str	2
	var	10
	line	714
	colm	64
	synt	any
	cat
	str	14
	line	714
	colm	75
	synt	any
	cat
	line	714
	colm	59
	synt	any
	invoke	1
	line	714
	colm	45
	synt	any
	pret
lab L57
	synt	any
	pfail
lab L56
	goto	L48
lab L54
	efail
lab L48
	line	703
	colm	33
	synt	endcase
	goto	L41
lab L40
	line	723
	colm	36
	synt	ifelse
	mark	L58
	pnull
	pnull
	var	11
	int	3
	line	723
	colm	46
	synt	any
	subsc
	str	16
	line	723
	colm	50
	synt	any
	lexeq
	unmark
	mark	L60
	pnull
	var	12
	pnull
	str	9
	var	33
	mark	L61
	var	24
	int	1
	line	731
	colm	53
	synt	any
	invoke	1
	line	731
	colm	57
	synt	any
	esusp
	goto	L62
lab L61
	var	22
	var	0
	line	731
	colm	62
	synt	any
	invoke	1
lab L62
	cset	10
	int	1
	line	731
	colm	49
	synt	any
	invoke	3
	line	731
	colm	41
	synt	any
	lexne
	line	731
	colm	35
	synt	any
	asgn
	unmark
lab L60
	mark	L63
	line	732
	colm	33
	synt	if
	mark0
	var	36
	str	2
	var	12
	line	732
	colm	41
	synt	any
	invoke	2
	unmark
	mark	L64
	var	37
	var	0
	var	12
	line	733
	colm	41
	synt	any
	invoke	2
	unmark
lab L64
	pnull
	var	12
	int	3
	line	734
	colm	39
	synt	any
	asgn
	line	732
	colm	33
	synt	endif
	unmark
lab L63
	var	12
	goto	L59
lab L58
	line	741
	colm	36
	synt	ifelse
	mark	L65
	pnull
	pnull
	var	11
	int	3
	line	741
	colm	46
	synt	any
	subsc
	str	17
	line	741
	colm	50
	synt	any
	lexeq
	unmark
	mark	L67
	pnull
	var	21
	pnull
	line	742
	colm	43
	synt	any
	llist	0
	line	742
	colm	40
	synt	any
	asgn
	unmark
lab L67
	mark	L68
lab L69
	line	743
	colm	33
	synt	while
	mark0
	pnull
	var	12
	var	22
	var	18
	line	743
	colm	47
	synt	any
	invoke	1
	line	743
	colm	41
	synt	any
	asgn
	unmark
	mark	L69
	line	744
	colm	37
	synt	ifelse
	mark	L72
	pnull
	var	12
	pnull
	var	4
	line	744
	colm	45
	synt	any
	bang
	line	744
	colm	42
	synt	any
	lexeq
	unmark
	mark	L74
	var	37
	var	18
	var	12
	line	745
	colm	45
	synt	any
	invoke	2
	unmark
lab L74
	unmark
	pnull
	goto	L71
	goto	L73
lab L72
	var	38
	var	21
	var	12
	line	748
	colm	44
	synt	any
	invoke	2
lab L73
	line	744
	colm	37
	synt	endifelse
lab L70
	unmark
	goto	L69
lab L71
	line	743
	colm	33
	synt	endwhile
	unmark
lab L68
	var	21
	goto	L66
lab L65
	int	3
lab L66
	line	741
	colm	36
	synt	endifelse
lab L59
	line	723
	colm	36
	synt	endifelse
lab L41
	line	690
	colm	36
	synt	endifelse
lab L37
	line	671
	colm	29
	synt	endifelse
	line	666
	colm	32
	synt	any
	asgn
	unmark
lab L35
	mark	L75
	line	765
	colm	25
	synt	ifelse
	mark	L76
	pnull
	var	16
	line	765
	colm	28
	synt	any
	nonnull
	unmark
	var	38
	pnull
	var	1
	var	10
	line	766
	colm	39
	synt	any
	subsc
	var	33
	var	15
	cset	10
	int	1
	line	766
	colm	54
	synt	any
	invoke	3
	line	766
	colm	32
	synt	any
	invoke	2
	goto	L77
lab L76
	pnull
	pnull
	var	1
	var	10
	line	772
	colm	35
	synt	any
	subsc
	var	15
	line	772
	colm	45
	synt	any
	asgn
lab L77
	line	765
	colm	25
	synt	endifelse
	unmark
lab L75
	var	24
	int	1
	line	774
	colm	28
	synt	any
	invoke	1
	goto	L20
lab L19
	mark	L78
	pnull
	var	20
	pnull
	pnull
	str	18
	var	19
	line	782
	colm	60
	synt	any
	cat
	str	19
	line	782
	colm	68
	synt	any
	cat
	line	782
	colm	32
	synt	any
	asgn
	unmark
lab L78
	mark	L79
	pnull
	var	20
	dup
	mark	L80
	pnull
	var	6
	line	783
	colm	38
	synt	any
	null
	pop
	str	20
	line	783
	colm	63
	synt	any
	esusp
	goto	L81
lab L80
	str	21
lab L81
	line	783
	colm	32
	synt	any
	cat
	asgn
	unmark
lab L79
	mark	L82
	pnull
	var	20
	dup
	str	22
	line	784
	colm	32
	synt	any
	cat
	asgn
	unmark
lab L82
	mark	L83
	pnull
	var	20
	dup
	mark	L84
	pnull
	var	6
	line	785
	colm	38
	synt	any
	null
	pop
	str	20
	line	785
	colm	63
	synt	any
	esusp
	goto	L85
lab L84
	str	21
lab L85
	line	785
	colm	32
	synt	any
	cat
	asgn
	unmark
lab L83
	mark	L86
	pnull
	var	20
	dup
	str	23
	line	786
	colm	32
	synt	any
	cat
	asgn
	unmark
lab L86
	mark	L87
	pnull
	var	20
	dup
	mark	L88
	pnull
	var	6
	line	787
	colm	38
	synt	any
	null
	pop
	str	20
	line	787
	colm	63
	synt	any
	esusp
	goto	L89
lab L88
	str	21
lab L89
	line	787
	colm	32
	synt	any
	cat
	asgn
	unmark
lab L87
	mark	L90
	pnull
	var	20
	dup
	str	24
	line	788
	colm	32
	synt	any
	cat
	asgn
	unmark
lab L90
	mark	L91
	pnull
	var	21
	var	39
	var	2
	line	789
	colm	39
	synt	any
	invoke	1
	line	789
	colm	32
	synt	any
	asgn
	unmark
lab L91
	mark	L92
	line	790
	colm	25
	synt	every
	mark0
	pnull
	var	20
	dup
	pnull
	pnull
	str	25
	pnull
	pnull
	var	21
	pnull
	int	3
	pnull
	var	21
	line	790
	colm	65
	synt	any
	size
	push1
	line	790
	colm	62
	synt	any
	toby
	line	790
	colm	59
	synt	any
	subsc
	int	3
	line	790
	colm	73
	synt	any
	subsc
	line	790
	colm	50
	synt	any
	cat
	str	26
	line	790
	colm	77
	synt	any
	cat
	line	790
	colm	38
	synt	any
	cat
	asgn
	pop
lab L93
	efail
lab L94
	line	790
	colm	25
	synt	endevery
	unmark
lab L92
	mark	L95
	var	5
	var	20
	line	791
	colm	39
	synt	any
	invoke	1
	line	791
	colm	25
	synt	any
	pret
lab L95
	synt	any
	pfail
lab L20
	line	648
	colm	21
	synt	endifelse
lab L17
	unmark
	goto	L15
lab L18
	line	643
	colm	36
	synt	enduntil
	line	643
	colm	34
	synt	any
	escan
	goto	L13
lab L12
	line	800
	colm	20
	synt	ifelse
	mark	L96
	pnull
	str	27
	line	800
	colm	23
	synt	any
	tabmat
	pop
	mark	L98
	var	23
	int	1
	line	800
	colm	37
	synt	any
	invoke	1
	unmark
	efail
lab L98
	pnull
	unmark
	mark	L99
	var	37
	var	17
	var	18
	line	801
	colm	21
	synt	any
	invoke	2
	unmark
lab L99
	mark	L100
	pnull
	var	7
	mark	L101
	var	40
	pnull
	var	9
	var	24
	int	1
	line	802
	colm	36
	synt	any
	invoke	1
	line	802
	colm	30
	synt	any
	asgn
	line	802
	colm	26
	synt	any
	invoke	1
	line	802
	colm	41
	synt	any
	esusp
	goto	L102
lab L101
	mark	L103
	var	5
	pnull
	str	28
	var	9
	line	803
	colm	51
	synt	any
	cat
	line	803
	colm	36
	synt	any
	invoke	1
	line	803
	colm	22
	synt	any
	pret
lab L103
	synt	any
	pfail
lab L102
	line	802
	colm	19
	synt	any
	asgn
	unmark
lab L100
	mark	L104
	pnull
	var	18
	pnull
	line	804
	colm	31
	synt	any
	llist	0
	line	804
	colm	28
	synt	any
	asgn
	unmark
lab L104
	mark	L105
lab L106
	line	805
	colm	17
	synt	while
	mark0
	var	38
	var	18
	var	41
	var	7
	line	805
	colm	43
	synt	any
	invoke	1
	line	805
	colm	26
	synt	any
	invoke	2
lab L107
	unmark
	goto	L106
lab L108
	line	805
	colm	17
	synt	endwhile
	unmark
lab L105
	mark	L109
	var	42
	var	7
	line	806
	colm	22
	synt	any
	invoke	1
	unmark
lab L109
	mark	L110
	pnull
	var	1
	var	28
	var	18
	var	1
	var	2
	var	3
	var	4
	var	5
	int	3
	line	807
	colm	49
	synt	any
	invoke	7
	line	807
	colm	24
	synt	any
	asgn
	unmark
lab L110
	mark	L111
	pnull
	var	8
	dup
	var	18
	line	808
	colm	23
	synt	any
	lconcat
	asgn
	unmark
lab L111
	pnull
	var	18
	var	43
	var	17
	line	809
	colm	34
	synt	any
	invoke	1
	line	809
	colm	28
	synt	any
	asgn
	goto	L97
lab L96
	var	38
	var	8
	var	13
	line	815
	colm	20
	synt	any
	invoke	2
lab L97
	line	800
	colm	20
	synt	endifelse
lab L13
	line	642
	colm	20
	synt	endifelse
lab L10
	line	635
	colm	13
	synt	endifelse
	line	628
	colm	11
	synt	any
	escan
lab L7
	unmark
	goto	L6
lab L8
	line	627
	colm	5
	synt	endwhile
	unmark
lab L5
	mark	L112
lab L113
	line	823
	colm	5
	synt	while
	mark0
	var	43
	var	0
	line	823
	colm	14
	synt	any
	invoke	1
lab L114
	unmark
	goto	L113
lab L115
	line	823
	colm	5
	synt	endwhile
	unmark
lab L112
	mark	L116
lab L117
	line	828
	colm	5
	synt	while
	mark0
	var	37
	var	0
	var	44
	var	8
	line	828
	colm	26
	synt	any
	invoke	1
	line	828
	colm	15
	synt	any
	invoke	2
lab L118
	unmark
	goto	L117
lab L119
	line	828
	colm	5
	synt	endwhile
	unmark
lab L116
	mark	L120
	mark	L121
	var	1
	line	829
	colm	5
	synt	any
	pret
lab L121
	synt	any
	pfail
	unmark
lab L120
	pnull
	line	830
	colm	1
	synt	any
	pfail
	end
proc convert_to_list
	local	0,001000,str
	local	1,001000,suboptionsep
	local	2,000020,lst
	local	3,000020,element
	local	4,000000,pos
	local	5,000000,tab
	local	6,000000,find
	local	7,000000,put
	local	8,000000,move
	con	0,002000,1,0
	con	1,010000,1,055
	con	2,002000,1,1
	declend
	line	840
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	line	844
	colm	12
	synt	any
	llist	0
	line	844
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	0
	line	845
	colm	9
	synt	any
	bscan
lab L3
	line	846
	colm	9
	synt	until
	mark	L4
	var	4
	int	0
	line	846
	colm	18
	synt	any
	invoke	1
	unmark
	efail
lab L4
	mark	L3
	line	847
	colm	13
	synt	ifelse
	mark	L7
	pnull
	var	3
	var	5
	var	6
	var	1
	line	847
	colm	35
	synt	any
	invoke	1
	line	847
	colm	30
	synt	any
	invoke	1
	line	847
	colm	24
	synt	any
	asgn
	unmark
	mark	L9
	var	7
	var	2
	pnull
	str	1
	var	3
	line	848
	colm	30
	synt	any
	cat
	line	848
	colm	20
	synt	any
	invoke	2
	unmark
lab L9
	var	8
	int	2
	line	849
	colm	21
	synt	any
	invoke	1
	goto	L8
lab L7
	var	7
	var	2
	pnull
	var	3
	pnull
	str	1
	var	5
	int	0
	line	855
	colm	47
	synt	any
	invoke	1
	line	855
	colm	41
	synt	any
	cat
	line	855
	colm	34
	synt	any
	asgn
	line	855
	colm	20
	synt	any
	invoke	2
lab L8
	line	847
	colm	13
	synt	endifelse
lab L5
	unmark
	goto	L3
lab L6
	line	846
	colm	9
	synt	enduntil
	line	845
	colm	9
	synt	any
	escan
	unmark
lab L2
	mark	L10
	mark	L11
	var	2
	line	859
	colm	5
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	860
	colm	1
	synt	any
	pfail
	end
