version	U12.1.00
uid	gedcom.u1-1786350138-0
record	gedcom,4
	0,tree
	1,id
	2,fam
	3,ind
record	gednode,9
	0,level
	1,id
	2,tag
	3,data
	4,lnum
	5,parent
	6,ref
	7,sub
	8,hcode
impl	error
global	18
	0,000011,gedcom,4
	1,000011,gednode,9
	2,000005,gedload,1
	3,000005,gedscan,1
	4,000005,gedwalk,1
	5,000005,gedsub,-2
	6,000005,gedval,-1
	7,000005,gedref,-1
	8,000005,gedfnf,1
	9,000005,gedlnf,1
	10,000005,gednmf,2
	11,000005,geddate,1
	12,000005,gedyear,1
	13,000005,gedhi,1
	14,000005,gedh3a,1
	15,000005,gedfind,2
	16,000005,gedmatch,2
	17,000005,gedlcw,2

proc gedload
	local	0,001000,f
	local	1,000020,line
	local	2,000020,lnum
	local	3,000020,r
	local	4,000020,curr
	local	5,000020,root
	local	6,000020,id
	local	7,000020,fam
	local	8,000020,ind
	local	9,000020,hset
	local	10,000020,h1
	local	11,000020,h2
	local	12,000020,c
	local	13,000000,gednode
	local	14,000000,table
	local	15,000000,read
	local	16,000000,gedscan
	local	17,000000,write
	local	18,000000,put
	local	19,000000,gedwalk
	local	20,000000,set
	local	21,000000,gedhi
	local	22,000000,member
	local	23,000000,insert
	local	24,000000,gedcom
	con	0,002000,1,0
	con	1,002000,1,1
	con	2,010000,4,122,117,117,124
	con	3,010000,0
	con	4,010000,10,105,122,122,054,040,154,151,156,145,040
	con	5,010000,2,072,040
	con	6,010000,4,103,117,116,103
	con	7,010000,4,103,117,116,124
	con	8,010000,1,012
	con	9,010000,3,106,101,115
	con	10,010000,4,111,116,104,111
	con	11,010000,35,061,062,063,064,065,066,067,070,071,101,102,103,104,105,106,107,110,111,112,113,114,115,116,117,120,121,122,123,124,125,126,127,130,131,132
	declend
	filen	gedcom.icn
	line	92
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	int	0
	line	97
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	5
	pnull
	var	4
	var	13
	pnull
	int	1
	line	98
	colm	28
	synt	any
	neg
	pnull
	str	2
	str	3
	var	2
	pnull
	pnull
	pnull
	line	98
	colm	56
	synt	any
	llist	0
	line	98
	colm	27
	synt	any
	invoke	8
	line	98
	colm	17
	synt	any
	asgn
	line	98
	colm	9
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	6
	var	14
	line	99
	colm	15
	synt	any
	invoke	0
	line	99
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	7
	pnull
	line	100
	colm	11
	synt	any
	llist	0
	line	100
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	8
	pnull
	line	101
	colm	11
	synt	any
	llist	0
	line	101
	colm	8
	synt	any
	asgn
	unmark
lab L5
	mark	L6
lab L7
	line	103
	colm	4
	synt	while
	mark0
	pnull
	var	1
	var	15
	var	0
	line	103
	colm	22
	synt	any
	invoke	1
	line	103
	colm	15
	synt	any
	asgn
	unmark
	mark	L7
	mark	L10
	pnull
	var	2
	dup
	int	1
	line	104
	colm	12
	synt	any
	plus
	asgn
	unmark
lab L10
	mark	L11
	line	105
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	105
	colm	10
	synt	any
	size
	int	0
	line	105
	colm	16
	synt	any
	numeq
	unmark
	unmark
	goto	L8
	line	105
	colm	7
	synt	endif
	unmark
lab L11
	mark	L12
	line	108
	colm	7
	synt	if
	mark0
	mark	L13
	pnull
	var	3
	var	16
	var	1
	line	108
	colm	27
	synt	any
	invoke	1
	line	108
	colm	17
	synt	any
	asgn
	unmark
	efail
lab L13
	pnull
	unmark
	mark	L14
	var	17
	line	109
	colm	16
	synt	any
	keywd	errout
	str	4
	var	2
	str	5
	var	1
	line	109
	colm	15
	synt	any
	invoke	5
	unmark
lab L14
	unmark
	goto	L8
	line	108
	colm	7
	synt	endif
	unmark
lab L12
	mark	L15
	pnull
	pnull
	var	3
	line	112
	colm	8
	synt	any
	field	lnum
	var	2
	line	112
	colm	14
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	pnull
	var	3
	line	113
	colm	8
	synt	any
	field	sub
	pnull
	line	113
	colm	16
	synt	any
	llist	0
	line	113
	colm	13
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	line	115
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	115
	colm	11
	synt	any
	field	tag
	str	6
	line	115
	colm	16
	synt	any
	lexeq
	unmark
	mark	L18
	pnull
	pnull
	var	4
	line	116
	colm	14
	synt	any
	field	data
	dup
	pnull
	var	3
	line	116
	colm	26
	synt	any
	field	data
	line	116
	colm	20
	synt	any
	cat
	asgn
	unmark
lab L18
	unmark
	goto	L8
	line	115
	colm	7
	synt	endif
	unmark
lab L17
	mark	L19
	line	119
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	119
	colm	11
	synt	any
	field	tag
	str	7
	line	119
	colm	16
	synt	any
	lexeq
	unmark
	mark	L20
	pnull
	pnull
	var	4
	line	120
	colm	14
	synt	any
	field	data
	dup
	pnull
	str	8
	pnull
	var	3
	line	120
	colm	34
	synt	any
	field	data
	line	120
	colm	30
	synt	any
	cat
	line	120
	colm	20
	synt	any
	cat
	asgn
	unmark
lab L20
	unmark
	goto	L8
	line	119
	colm	7
	synt	endif
	unmark
lab L19
	mark	L21
lab L22
	line	124
	colm	7
	synt	while
	mark0
	pnull
	pnull
	var	4
	line	124
	colm	17
	synt	any
	field	level
	pnull
	var	3
	line	124
	colm	28
	synt	any
	field	level
	line	124
	colm	24
	synt	any
	numge
	unmark
	mark	L22
	pnull
	var	4
	pnull
	var	4
	line	125
	colm	22
	synt	any
	field	parent
	line	125
	colm	15
	synt	any
	asgn
lab L23
	unmark
	goto	L22
lab L24
	line	124
	colm	7
	synt	endwhile
	unmark
lab L21
	mark	L25
	var	18
	pnull
	var	4
	line	126
	colm	15
	synt	any
	field	sub
	var	3
	line	126
	colm	10
	synt	any
	invoke	2
	unmark
lab L25
	mark	L26
	pnull
	pnull
	var	3
	line	127
	colm	8
	synt	any
	field	parent
	var	4
	line	127
	colm	16
	synt	any
	asgn
	unmark
lab L26
	mark	L27
	pnull
	var	4
	var	3
	line	128
	colm	12
	synt	any
	asgn
	unmark
lab L27
	mark	L28
	pnull
	pnull
	var	6
	pnull
	pnull
	var	3
	line	130
	colm	12
	synt	any
	field	id
	line	130
	colm	10
	synt	any
	nonnull
	line	130
	colm	9
	synt	any
	subsc
	var	3
	line	130
	colm	17
	synt	any
	asgn
	unmark
lab L28
	line	131
	colm	7
	synt	case
	mark0
	pnull
	var	3
	line	131
	colm	13
	synt	any
	field	tag
	eret
	mark	L30
	ccase
	str	9
	line	132
	colm	15
	synt	any
	eqv
	unmark
	pop
	var	18
	var	7
	var	3
	line	132
	colm	21
	synt	any
	invoke	2
	goto	L29
lab L30
	mark	L31
	ccase
	str	10
	line	133
	colm	16
	synt	any
	eqv
	unmark
	pop
	var	18
	var	8
	var	3
	line	133
	colm	22
	synt	any
	invoke	2
	goto	L29
lab L31
	efail
lab L29
	line	131
	colm	7
	synt	endcase
lab L8
	unmark
	goto	L7
lab L9
	line	103
	colm	4
	synt	endwhile
	unmark
lab L6
	mark	L32
	line	137
	colm	4
	synt	every
	mark0
	pnull
	var	3
	var	19
	var	5
	line	137
	colm	22
	synt	any
	invoke	1
	line	137
	colm	12
	synt	any
	asgn
	pop
	mark0
	pnull
	pnull
	var	3
	line	138
	colm	8
	synt	any
	field	ref
	pnull
	var	6
	pnull
	var	3
	line	138
	colm	20
	synt	any
	field	data
	line	138
	colm	18
	synt	any
	subsc
	line	138
	colm	13
	synt	any
	asgn
	unmark
lab L33
	efail
lab L34
	line	137
	colm	4
	synt	endevery
	unmark
lab L32
	mark	L35
	pnull
	var	9
	var	20
	line	140
	colm	15
	synt	any
	invoke	0
	line	140
	colm	9
	synt	any
	asgn
	unmark
lab L35
	mark	L36
	line	141
	colm	4
	synt	every
	mark0
	pnull
	var	3
	pnull
	var	8
	line	141
	colm	15
	synt	any
	bang
	line	141
	colm	12
	synt	any
	asgn
	pop
	mark0
	mark	L39
	pnull
	var	10
	pnull
	var	11
	var	21
	var	3
	line	142
	colm	24
	synt	any
	invoke	1
	line	142
	colm	16
	synt	any
	asgn
	line	142
	colm	10
	synt	any
	asgn
	unmark
lab L39
	mark	L40
	line	143
	colm	7
	synt	every
	mark0
	pnull
	var	12
	pnull
	str	11
	line	143
	colm	18
	synt	any
	bang
	line	143
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	144
	colm	10
	synt	ifelse
	mark	L43
	var	22
	var	9
	var	11
	line	144
	colm	19
	synt	any
	invoke	2
	unmark
	pnull
	var	11
	pnull
	var	10
	var	12
	line	145
	colm	22
	synt	any
	cat
	line	145
	colm	16
	synt	any
	asgn
	goto	L44
lab L43
	unmark
	unmark
	pnull
	goto	L42
lab L44
	line	144
	colm	10
	synt	endifelse
	unmark
lab L41
	efail
lab L42
	line	143
	colm	7
	synt	endevery
	unmark
lab L40
	var	23
	var	9
	pnull
	pnull
	var	3
	line	148
	colm	21
	synt	any
	field	hcode
	var	11
	line	148
	colm	28
	synt	any
	asgn
	line	148
	colm	13
	synt	any
	invoke	2
	unmark
lab L37
	efail
lab L38
	line	141
	colm	4
	synt	endevery
	unmark
lab L36
	mark	L45
	mark	L46
	var	24
	var	5
	var	6
	var	7
	var	8
	line	151
	colm	17
	synt	any
	invoke	4
	line	151
	colm	4
	synt	any
	pret
lab L46
	synt	any
	pfail
	unmark
lab L45
	pnull
	line	152
	colm	1
	synt	any
	pfail
	end
proc gedscan
	local	0,001000,s
	local	1,000020,level
	local	2,000020,id
	local	3,000020,tag
	local	4,000020,data
	local	5,000040,alnum
	local	6,000000,tab
	local	7,000000,many
	local	8,000000,upto
	local	9,000000,gednode
	con	0,020000,1,137
	con	1,020000,4,040,011,012,015
	con	2,010000,1,100
	con	3,020000,1,100
	con	4,002000,1,1
	con	5,002000,1,0
	declend
	line	158
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	5
	pnull
	pnull
	line	161
	colm	21
	synt	any
	keywd	letters
	line	161
	colm	33
	synt	any
	keywd	digits
	line	161
	colm	30
	synt	any
	unions
	cset	0
	line	161
	colm	41
	synt	any
	unions
	line	161
	colm	18
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	var	0
	line	163
	colm	6
	synt	any
	bscan
	mark	L5
	var	6
	var	7
	cset	1
	line	164
	colm	15
	synt	any
	invoke	1
	line	164
	colm	10
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	pnull
	var	1
	mark	L7
	var	6
	var	7
	line	165
	colm	25
	synt	any
	keywd	digits
	line	165
	colm	24
	synt	any
	invoke	1
	line	165
	colm	19
	synt	any
	invoke	1
	line	165
	colm	35
	synt	any
	esusp
	goto	L8
lab L7
	line	165
	colm	37
	synt	any
	pfail
lab L8
	line	165
	colm	13
	synt	any
	asgn
	unmark
lab L6
	mark	L9
	var	6
	var	7
	cset	1
	line	166
	colm	15
	synt	any
	invoke	1
	line	166
	colm	10
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	line	167
	colm	7
	synt	if
	mark0
	pnull
	var	2
	pnull
	pnull
	str	2
	line	167
	colm	17
	synt	any
	tabmat
	var	6
	pnull
	var	8
	cset	3
	line	167
	colm	33
	synt	any
	invoke	1
	int	4
	line	167
	colm	39
	synt	any
	plus
	line	167
	colm	28
	synt	any
	invoke	1
	line	167
	colm	22
	synt	any
	cat
	line	167
	colm	13
	synt	any
	asgn
	unmark
	var	6
	var	7
	cset	1
	line	168
	colm	18
	synt	any
	invoke	1
	line	168
	colm	13
	synt	any
	invoke	1
	line	167
	colm	7
	synt	endif
	unmark
lab L10
	mark	L11
	pnull
	var	3
	mark	L12
	var	6
	var	7
	var	5
	line	169
	colm	22
	synt	any
	invoke	1
	line	169
	colm	17
	synt	any
	invoke	1
	line	169
	colm	31
	synt	any
	esusp
	goto	L13
lab L12
	line	169
	colm	33
	synt	any
	pfail
lab L13
	line	169
	colm	11
	synt	any
	asgn
	unmark
lab L11
	mark	L14
	var	6
	var	7
	cset	1
	line	170
	colm	15
	synt	any
	invoke	1
	line	170
	colm	10
	synt	any
	invoke	1
	unmark
lab L14
	mark	L15
	pnull
	var	4
	var	6
	int	5
	line	171
	colm	18
	synt	any
	invoke	1
	line	171
	colm	12
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	var	9
	var	1
	var	2
	var	3
	var	4
	line	172
	colm	21
	synt	any
	invoke	4
	line	172
	colm	7
	synt	any
	pret
lab L16
	synt	any
	pfail
	line	163
	colm	6
	synt	any
	escan
	unmark
lab L4
	pnull
	line	174
	colm	1
	synt	any
	pfail
	end
proc gedwalk
	local	0,001000,r
	local	1,000000,gedwalk
	declend
	line	180
	colm	11
	synt	any
	mark	L1
	line	181
	colm	4
	synt	suspend
	mark0
	mark	L4
	var	0
	line	181
	colm	14
	synt	any
	esusp
	goto	L5
lab L4
	var	1
	pnull
	pnull
	var	0
	line	181
	colm	26
	synt	any
	field	sub
	line	181
	colm	24
	synt	any
	bang
	line	181
	colm	23
	synt	any
	invoke	1
lab L5
	line	181
	colm	4
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	181
	colm	4
	synt	endsuspend
	unmark
lab L1
	mark	L6
	line	182
	colm	4
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	183
	colm	1
	synt	any
	pfail
	end
proc gedsub
	local	0,001000,r
	local	1,001000,f
	local	2,000020,tag
	local	3,000020,x
	local	4,000000,get
	local	5,000000,gedsub
	local	6,000000,push
	con	0,002000,1,0
	declend
	line	191
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	mark	L2
	var	4
	var	1
	line	194
	colm	14
	synt	any
	invoke	1
	line	194
	colm	18
	synt	any
	esusp
	goto	L3
lab L2
	line	194
	colm	20
	synt	any
	pfail
lab L3
	line	194
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	line	195
	colm	4
	synt	every
	mark0
	pnull
	var	3
	pnull
	pnull
	var	0
	line	195
	colm	17
	synt	any
	field	sub
	line	195
	colm	15
	synt	any
	bang
	line	195
	colm	12
	synt	any
	asgn
	pop
	mark0
	line	196
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	196
	colm	11
	synt	any
	field	tag
	var	2
	line	196
	colm	16
	synt	any
	lexeq
	unmark
	line	197
	colm	10
	synt	ifelse
	mark	L7
	pnull
	pnull
	var	1
	line	197
	colm	13
	synt	any
	size
	int	0
	line	197
	colm	16
	synt	any
	numgt
	unmark
	line	198
	colm	13
	synt	suspend
	mark0
	var	5
	var	6
	var	1
	var	3
	line	198
	colm	34
	synt	any
	invoke	2
	invoke	-1
	line	198
	colm	13
	synt	any
	psusp
	pop
lab L9
	efail
lab L10
	line	198
	colm	13
	synt	endsuspend
	goto	L8
lab L7
	line	200
	colm	13
	synt	suspend
	mark0
	var	3
	line	200
	colm	13
	synt	any
	psusp
	pop
lab L11
	efail
lab L12
	line	200
	colm	13
	synt	endsuspend
lab L8
	line	197
	colm	10
	synt	endifelse
	line	196
	colm	7
	synt	endif
	unmark
lab L5
	efail
lab L6
	line	195
	colm	4
	synt	endevery
	unmark
lab L4
	pnull
	line	202
	colm	1
	synt	any
	pfail
	end
proc gedval
	local	0,001000,a
	local	1,000000,gedsub
	declend
	line	204
	colm	11
	synt	any
	mark	L1
	line	205
	colm	4
	synt	suspend
	mark0
	pnull
	var	1
	var	0
	invoke	-1
	line	205
	colm	24
	synt	any
	field	data
	line	205
	colm	4
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	205
	colm	4
	synt	endsuspend
	unmark
lab L1
	pnull
	line	206
	colm	1
	synt	any
	pfail
	end
proc gedref
	local	0,001000,a
	local	1,000000,gedsub
	declend
	line	208
	colm	11
	synt	any
	mark	L1
	line	209
	colm	4
	synt	suspend
	mark0
	pnull
	pnull
	var	1
	var	0
	invoke	-1
	line	209
	colm	25
	synt	any
	field	ref
	line	209
	colm	12
	synt	any
	nonnull
	line	209
	colm	4
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	209
	colm	4
	synt	endsuspend
	unmark
lab L1
	pnull
	line	210
	colm	1
	synt	any
	pfail
	end
proc gedfnf
	local	0,001000,r
	local	1,000000,gednmf
	con	0,010000,7,120,040,106,040,114,040,123
	declend
	line	216
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	0
	str	0
	line	217
	colm	17
	synt	any
	invoke	2
	line	217
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	218
	colm	1
	synt	any
	pfail
	end
proc gedlnf
	local	0,001000,r
	local	1,000020,s
	local	2,000000,gednmf
	local	3,000000,tab
	con	0,010000,8,114,054,040,120,040,106,040,123
	con	1,010000,2,054,040
	con	2,002000,1,0
	declend
	line	224
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	var	0
	str	0
	line	226
	colm	15
	synt	any
	invoke	2
	line	226
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	1
	line	227
	colm	6
	synt	any
	bscan
	mark	L3
	pnull
	str	1
	line	228
	colm	7
	synt	any
	tabmat
	unmark
lab L3
	mark	L4
	var	3
	int	2
	line	229
	colm	17
	synt	any
	invoke	1
	line	229
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	227
	colm	6
	synt	any
	escan
	unmark
lab L2
	pnull
	line	231
	colm	1
	synt	any
	pfail
	end
proc gednmf
	local	0,001000,r
	local	1,001000,f
	local	2,000020,c
	local	3,000020,s
	local	4,000020,prefix
	local	5,000020,first
	local	6,000020,last
	local	7,000020,suffix
	local	8,000000,gedval
	local	9,000000,trim
	local	10,000000,tab
	local	11,000000,upto
	local	12,000000,any
	con	0,010000,4,124,111,124,114
	con	1,010000,4,116,120,106,130
	con	2,010000,4,116,101,115,105
	con	3,020000,1,057
	con	4,002000,1,0
	con	5,010000,1,057
	con	6,010000,4,116,123,106,130
	con	7,010000,0
	con	8,020000,5,120,106,114,123,040
	con	9,010000,1,120
	con	10,010000,1,106
	con	11,010000,1,114
	con	12,010000,1,123
	con	13,010000,1,040
	con	14,002000,1,1
	declend
	line	241
	colm	11
	synt	any
	mark	L1
	pnull
	var	4
	mark	L2
	var	8
	var	0
	mark	L4
	str	0
	line	244
	colm	31
	synt	any
	esusp
	goto	L5
lab L4
	str	1
lab L5
	line	244
	colm	20
	synt	any
	invoke	2
	line	244
	colm	41
	synt	any
	esusp
	goto	L3
lab L2
	var	8
	var	0
	str	2
	str	1
	line	244
	colm	49
	synt	any
	invoke	3
lab L3
	line	244
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L6
	pnull
	var	3
	mark	L7
	var	8
	var	0
	str	2
	line	245
	colm	15
	synt	any
	invoke	2
	line	245
	colm	27
	synt	any
	esusp
	goto	L8
lab L7
	line	245
	colm	29
	synt	any
	pfail
lab L8
	line	245
	colm	6
	synt	any
	asgn
	unmark
lab L6
	mark	L9
	var	3
	line	246
	colm	6
	synt	any
	bscan
	mark	L10
	pnull
	var	5
	var	9
	var	10
	mark	L11
	var	11
	cset	3
	line	247
	colm	29
	synt	any
	invoke	1
	line	247
	colm	35
	synt	any
	esusp
	goto	L12
lab L11
	int	4
lab L12
	line	247
	colm	24
	synt	any
	invoke	1
	line	247
	colm	20
	synt	any
	invoke	1
	line	247
	colm	13
	synt	any
	asgn
	unmark
lab L10
	mark	L13
	pnull
	str	5
	line	248
	colm	7
	synt	any
	tabmat
	unmark
lab L13
	mark	L14
	pnull
	var	6
	var	9
	var	10
	mark	L15
	var	11
	cset	3
	line	249
	colm	28
	synt	any
	invoke	1
	line	249
	colm	34
	synt	any
	esusp
	goto	L16
lab L15
	int	4
lab L16
	line	249
	colm	23
	synt	any
	invoke	1
	line	249
	colm	19
	synt	any
	invoke	1
	line	249
	colm	12
	synt	any
	asgn
	unmark
lab L14
	mark	L17
	pnull
	str	5
	line	250
	colm	7
	synt	any
	tabmat
	unmark
lab L17
	pnull
	var	7
	mark	L18
	var	8
	var	0
	str	6
	line	251
	colm	23
	synt	any
	invoke	2
	line	251
	colm	35
	synt	any
	esusp
	goto	L19
lab L18
	pnull
	str	7
	var	10
	int	4
	line	251
	colm	48
	synt	any
	invoke	1
	line	251
	colm	41
	synt	any
	lexne
lab L19
	line	251
	colm	14
	synt	any
	asgn
	line	246
	colm	6
	synt	any
	escan
	unmark
lab L9
	mark	L20
	pnull
	var	3
	str	7
	line	253
	colm	6
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	var	1
	line	254
	colm	6
	synt	any
	bscan
	mark	L22
lab L23
	line	255
	colm	7
	synt	while
	mark0
	pnull
	var	3
	dup
	var	10
	var	11
	cset	8
	line	255
	colm	28
	synt	any
	invoke	1
	line	255
	colm	23
	synt	any
	invoke	1
	line	255
	colm	15
	synt	any
	cat
	asgn
	unmark
	mark	L23
lab L26
	line	256
	colm	10
	synt	while
	mark0
	pnull
	var	2
	var	10
	var	12
	cset	8
	line	256
	colm	28
	synt	any
	invoke	1
	line	256
	colm	24
	synt	any
	invoke	1
	line	256
	colm	18
	synt	any
	asgn
	unmark
	mark	L26
	pnull
	var	3
	dup
	line	257
	colm	20
	synt	case
	mark0
	var	2
	eret
	mark	L30
	ccase
	str	9
	line	258
	colm	19
	synt	any
	eqv
	unmark
	pop
	pnull
	var	4
	line	258
	colm	21
	synt	any
	nonnull
	goto	L29
lab L30
	mark	L31
	ccase
	str	10
	line	259
	colm	19
	synt	any
	eqv
	unmark
	pop
	pnull
	var	5
	line	259
	colm	21
	synt	any
	nonnull
	goto	L29
lab L31
	mark	L32
	ccase
	str	11
	line	260
	colm	19
	synt	any
	eqv
	unmark
	pop
	pnull
	var	6
	line	260
	colm	21
	synt	any
	nonnull
	goto	L29
lab L32
	mark	L33
	ccase
	str	12
	line	261
	colm	19
	synt	any
	eqv
	unmark
	pop
	pnull
	var	7
	line	261
	colm	21
	synt	any
	nonnull
	goto	L29
lab L33
	mark	L34
	ccase
	str	13
	line	262
	colm	19
	synt	any
	eqv
	unmark
	pop
	pnull
	pnull
	var	3
	pnull
	int	14
	line	262
	colm	23
	synt	any
	neg
	line	262
	colm	22
	synt	any
	subsc
	str	13
	line	262
	colm	27
	synt	any
	lexne
	goto	L29
lab L34
	efail
lab L29
	line	257
	colm	20
	synt	endcase
	line	257
	colm	15
	synt	any
	cat
	asgn
lab L27
	unmark
	goto	L26
lab L28
	line	256
	colm	10
	synt	endwhile
lab L24
	unmark
	goto	L23
lab L25
	line	255
	colm	7
	synt	endwhile
	unmark
lab L22
	pnull
	var	3
	dup
	var	10
	int	4
	line	266
	colm	17
	synt	any
	invoke	1
	line	266
	colm	9
	synt	any
	cat
	asgn
	line	254
	colm	6
	synt	any
	escan
	unmark
lab L21
	mark	L35
	mark	L36
	var	9
	var	3
	line	268
	colm	15
	synt	any
	invoke	1
	line	268
	colm	4
	synt	any
	pret
lab L36
	synt	any
	pfail
	unmark
lab L35
	pnull
	line	269
	colm	1
	synt	any
	pfail
	end
proc geddate
	local	0,001000,r
	local	1,000020,s
	local	2,000020,t
	local	3,000020,w
	local	4,000040,ftab
	local	5,000000,table
	local	6,000000,trim
	local	7,000000,gedval
	local	8,000000,pos
	local	9,000000,tab
	local	10,000000,many
	local	11,000000,upto
	local	12,000000,right
	con	0,010000,3,112,101,116
	con	1,010000,3,112,141,156
	con	2,010000,3,106,105,102
	con	3,010000,3,106,145,142
	con	4,010000,3,115,101,122
	con	5,010000,3,115,141,162
	con	6,010000,3,101,120,122
	con	7,010000,3,101,160,162
	con	8,010000,3,115,101,131
	con	9,010000,3,115,141,171
	con	10,010000,3,112,125,116
	con	11,010000,3,112,165,156
	con	12,010000,3,112,125,114
	con	13,010000,3,112,165,154
	con	14,010000,3,101,125,107
	con	15,010000,3,101,165,147
	con	16,010000,3,123,105,120
	con	17,010000,3,123,145,160
	con	18,010000,3,117,103,124
	con	19,010000,3,117,143,164
	con	20,010000,3,116,117,126
	con	21,010000,3,116,157,166
	con	22,010000,3,104,105,103
	con	23,010000,3,104,145,143
	con	24,010000,3,101,102,124
	con	25,010000,3,141,142,164
	con	26,010000,3,102,105,106
	con	27,010000,3,142,145,146
	con	28,010000,3,101,106,124
	con	29,010000,3,141,146,164
	con	30,010000,3,103,101,114
	con	31,010000,3,143,141,154
	con	32,010000,3,105,123,124
	con	33,010000,3,145,163,164
	con	34,010000,4,104,101,124,105
	con	35,020000,4,040,011,012,015
	con	36,010000,0
	con	37,002000,1,0
	con	38,010000,1,040
	con	39,002000,2,13
	con	40,002000,1,2
	con	41,002000,2,12
	declend
	line	275
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	4
	var	5
	line	279
	colm	20
	synt	any
	invoke	0
	line	279
	colm	12
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	4
	str	0
	line	280
	colm	11
	synt	any
	subsc
	str	1
	line	280
	colm	19
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	4
	str	2
	line	280
	colm	34
	synt	any
	subsc
	str	3
	line	280
	colm	42
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	4
	str	4
	line	280
	colm	56
	synt	any
	subsc
	str	5
	line	280
	colm	64
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	4
	str	6
	line	281
	colm	11
	synt	any
	subsc
	str	7
	line	281
	colm	19
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	str	8
	line	281
	colm	34
	synt	any
	subsc
	str	9
	line	281
	colm	42
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	4
	str	10
	line	281
	colm	56
	synt	any
	subsc
	str	11
	line	281
	colm	64
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	4
	str	12
	line	282
	colm	11
	synt	any
	subsc
	str	13
	line	282
	colm	19
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	4
	str	14
	line	282
	colm	34
	synt	any
	subsc
	str	15
	line	282
	colm	42
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	4
	str	16
	line	282
	colm	56
	synt	any
	subsc
	str	17
	line	282
	colm	64
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	4
	str	18
	line	283
	colm	11
	synt	any
	subsc
	str	19
	line	283
	colm	19
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	pnull
	var	4
	str	20
	line	283
	colm	34
	synt	any
	subsc
	str	21
	line	283
	colm	42
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	pnull
	var	4
	str	22
	line	283
	colm	56
	synt	any
	subsc
	str	23
	line	283
	colm	64
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	pnull
	var	4
	str	24
	line	284
	colm	11
	synt	any
	subsc
	str	25
	line	284
	colm	19
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	pnull
	var	4
	str	26
	line	284
	colm	34
	synt	any
	subsc
	str	27
	line	284
	colm	42
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	pnull
	var	4
	str	28
	line	284
	colm	56
	synt	any
	subsc
	str	29
	line	284
	colm	64
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	pnull
	var	4
	str	30
	line	285
	colm	11
	synt	any
	subsc
	str	31
	line	285
	colm	19
	synt	any
	asgn
	unmark
lab L20
	pnull
	pnull
	var	4
	str	32
	line	285
	colm	34
	synt	any
	subsc
	str	33
	line	285
	colm	42
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L21
	pnull
	var	1
	mark	L22
	var	6
	var	7
	var	0
	str	34
	line	288
	colm	20
	synt	any
	invoke	2
	cset	35
	line	288
	colm	13
	synt	any
	invoke	2
	line	288
	colm	44
	synt	any
	esusp
	goto	L23
lab L22
	line	288
	colm	46
	synt	any
	pfail
lab L23
	line	288
	colm	6
	synt	any
	asgn
	unmark
lab L21
	mark	L24
	pnull
	var	2
	str	36
	line	289
	colm	6
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	var	1
	line	291
	colm	6
	synt	any
	bscan
lab L26
	line	291
	colm	8
	synt	while
	mark0
	mark	L29
	var	8
	int	37
	line	291
	colm	21
	synt	any
	invoke	1
	unmark
	efail
lab L29
	pnull
	unmark
	mark	L26
	mark	L30
	var	9
	var	10
	cset	35
	line	292
	colm	15
	synt	any
	invoke	1
	line	292
	colm	10
	synt	any
	invoke	1
	unmark
lab L30
	mark	L31
	pnull
	var	3
	var	9
	mark	L32
	var	11
	cset	35
	line	293
	colm	20
	synt	any
	invoke	1
	line	293
	colm	32
	synt	any
	esusp
	goto	L33
lab L32
	int	37
lab L33
	line	293
	colm	15
	synt	any
	invoke	1
	line	293
	colm	9
	synt	any
	asgn
	unmark
lab L31
	pnull
	var	2
	dup
	pnull
	str	38
	mark	L34
	pnull
	pnull
	var	4
	var	3
	line	294
	colm	27
	synt	any
	subsc
	line	294
	colm	22
	synt	any
	nonnull
	line	294
	colm	31
	synt	any
	esusp
	goto	L35
lab L34
	var	3
lab L35
	line	294
	colm	18
	synt	any
	cat
	line	294
	colm	9
	synt	any
	cat
	asgn
lab L27
	unmark
	goto	L26
lab L28
	line	291
	colm	8
	synt	endwhile
	line	291
	colm	6
	synt	any
	escan
	unmark
lab L25
	mark	L36
	line	297
	colm	4
	synt	ifelse
	mark	L37
	pnull
	pnull
	var	2
	line	297
	colm	7
	synt	any
	size
	int	39
	line	297
	colm	10
	synt	any
	numgt
	unmark
	mark	L39
	pnull
	var	2
	int	40
	int	37
	line	298
	colm	17
	synt	any
	synt	any
	sect
	line	298
	colm	7
	synt	any
	pret
lab L39
	synt	any
	pfail
	goto	L38
lab L37
	mark	L40
	var	12
	var	2
	int	41
	line	300
	colm	19
	synt	any
	invoke	2
	line	300
	colm	7
	synt	any
	pret
lab L40
	synt	any
	pfail
lab L38
	line	297
	colm	4
	synt	endifelse
	unmark
lab L36
	pnull
	line	301
	colm	1
	synt	any
	pfail
	end
proc gedyear
	local	0,001000,r
	local	1,000020,d
	local	2,000020,y
	local	3,000000,gedval
	local	4,000000,tab
	local	5,000000,upto
	local	6,000000,many
	con	0,010000,4,104,101,124,105
	con	1,002000,1,1
	con	2,002000,4,1000
	declend
	line	307
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	var	3
	var	0
	str	0
	line	310
	colm	15
	synt	any
	invoke	2
	line	310
	colm	27
	synt	any
	esusp
	goto	L3
lab L2
	line	310
	colm	29
	synt	any
	pfail
lab L3
	line	310
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	var	1
	line	311
	colm	6
	synt	any
	bscan
lab L5
	line	311
	colm	8
	synt	while
	mark0
	var	4
	var	5
	line	311
	colm	23
	synt	any
	keywd	digits
	line	311
	colm	22
	synt	any
	invoke	1
	line	311
	colm	17
	synt	any
	invoke	1
	unmark
	mark	L5
	line	312
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	2
	int	1
	line	312
	colm	19
	synt	any
	limit
	var	4
	var	6
	line	312
	colm	25
	synt	any
	keywd	digits
	line	312
	colm	24
	synt	any
	invoke	1
	line	312
	colm	19
	synt	any
	invoke	1
	lsusp
	line	312
	colm	13
	synt	any
	asgn
	int	2
	line	312
	colm	40
	synt	any
	numge
	unmark
	mark	L8
	var	2
	line	313
	colm	10
	synt	any
	pret
lab L8
	synt	any
	pfail
	line	312
	colm	7
	synt	endif
lab L6
	unmark
	goto	L5
lab L7
	line	311
	colm	8
	synt	endwhile
	line	311
	colm	6
	synt	any
	escan
	unmark
lab L4
	pnull
	line	314
	colm	1
	synt	any
	pfail
	end
proc gedhi
	local	0,001000,r
	local	1,000020,s
	local	2,000020,name
	local	3,000020,bdate
	local	4,000020,bd
	local	5,000040,lc
	local	6,000040,uc
	local	7,000000,string
	local	8,000000,gedval
	local	9,000000,tab
	local	10,000000,upto
	local	11,000000,any
	local	12,000000,geddate
	local	13,000000,gedsub
	local	14,000000,many
	local	15,000000,pos
	local	16,000000,gedh3a
	local	17,000000,map
	con	0,010000,0
	con	1,010000,4,116,101,115,105
	con	2,020000,1,042
	con	3,002000,1,1
	con	4,010000,1,050
	con	5,020000,1,051
	con	6,020000,2,040,011
	con	7,010000,1,130
	con	8,020000,1,057
	con	9,010000,4,102,111,122,124
	con	10,002000,1,2
	con	11,002000,1,0
	con	12,010000,2,060,060
	con	13,010000,2,071,071
	declend
	line	323
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	6
	var	7
	line	327
	colm	20
	synt	any
	keywd	ucase
	line	327
	colm	19
	synt	any
	invoke	1
	line	327
	colm	10
	synt	any
	asgn
	unmark
lab L4
	pnull
	var	5
	var	7
	line	328
	colm	20
	synt	any
	keywd	lcase
	line	328
	colm	19
	synt	any
	invoke	1
	line	328
	colm	10
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L5
	pnull
	var	1
	str	0
	line	331
	colm	6
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	2
	mark	L7
	var	8
	var	0
	str	1
	line	332
	colm	18
	synt	any
	invoke	2
	line	332
	colm	30
	synt	any
	esusp
	goto	L8
lab L7
	str	0
lab L8
	line	332
	colm	9
	synt	any
	asgn
	unmark
lab L6
	mark	L9
	var	2
	line	333
	colm	9
	synt	any
	bscan
	mark	L10
	mark	L11
	var	9
	pnull
	var	10
	cset	2
	line	335
	colm	15
	synt	any
	invoke	1
	int	3
	line	335
	colm	21
	synt	any
	plus
	line	335
	colm	10
	synt	any
	invoke	1
	line	335
	colm	26
	synt	any
	esusp
	goto	L12
lab L11
	pnull
	str	4
	line	335
	colm	29
	synt	any
	tabmat
	pop
	var	9
	pnull
	var	10
	cset	5
	line	335
	colm	44
	synt	any
	invoke	1
	int	3
	line	335
	colm	50
	synt	any
	plus
	line	335
	colm	39
	synt	any
	invoke	1
lab L12
	unmark
lab L10
	mark	L13
	var	9
	var	11
	cset	6
	line	336
	colm	14
	synt	any
	invoke	1
	line	336
	colm	10
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	pnull
	var	1
	dup
	mark	L15
	var	9
	var	11
	line	337
	colm	22
	synt	any
	keywd	letters
	line	337
	colm	21
	synt	any
	invoke	1
	line	337
	colm	17
	synt	any
	invoke	1
	line	337
	colm	33
	synt	any
	esusp
	goto	L16
lab L15
	str	7
lab L16
	line	337
	colm	9
	synt	any
	cat
	asgn
	unmark
lab L14
	mark	L17
	var	9
	pnull
	var	10
	cset	8
	line	338
	colm	15
	synt	any
	invoke	1
	int	3
	line	338
	colm	21
	synt	any
	plus
	line	338
	colm	10
	synt	any
	invoke	1
	unmark
lab L17
	mark	L18
	var	9
	var	11
	cset	6
	line	339
	colm	14
	synt	any
	invoke	1
	line	339
	colm	10
	synt	any
	invoke	1
	unmark
lab L18
	pnull
	var	1
	dup
	mark	L19
	var	9
	var	11
	line	340
	colm	22
	synt	any
	keywd	letters
	line	340
	colm	21
	synt	any
	invoke	1
	line	340
	colm	17
	synt	any
	invoke	1
	line	340
	colm	33
	synt	any
	esusp
	goto	L20
lab L19
	str	7
lab L20
	line	340
	colm	9
	synt	any
	cat
	asgn
	line	333
	colm	9
	synt	any
	escan
	unmark
lab L9
	mark	L21
	pnull
	var	3
	mark	L22
	var	12
	var	13
	var	0
	str	9
	line	343
	colm	27
	synt	any
	invoke	2
	line	343
	colm	20
	synt	any
	invoke	1
	line	343
	colm	40
	synt	any
	esusp
	goto	L23
lab L22
	str	0
lab L23
	line	343
	colm	10
	synt	any
	asgn
	unmark
lab L21
	mark	L24
	pnull
	var	4
	mark	L25
	pnull
	var	3
	pnull
	int	10
	line	344
	colm	16
	synt	any
	neg
	int	11
	line	344
	colm	18
	synt	any
	synt	any
	sect
	line	344
	colm	22
	synt	any
	esusp
	goto	L26
lab L25
	str	12
lab L26
	line	344
	colm	7
	synt	any
	asgn
	unmark
lab L24
	mark	L27
	line	345
	colm	4
	synt	if
	mark0
	mark	L28
	var	4
	line	345
	colm	15
	synt	any
	bscan
	var	9
	var	14
	line	345
	colm	27
	synt	any
	keywd	digits
	line	345
	colm	26
	synt	any
	invoke	1
	line	345
	colm	21
	synt	any
	invoke	1
	pop
	var	15
	int	11
	line	345
	colm	42
	synt	any
	invoke	1
	line	345
	colm	15
	synt	any
	escan
	unmark
	efail
lab L28
	pnull
	unmark
	pnull
	var	4
	str	13
	line	346
	colm	10
	synt	any
	asgn
	line	345
	colm	4
	synt	endif
	unmark
lab L27
	mark	L29
	pnull
	var	1
	dup
	pnull
	var	4
	var	16
	pnull
	var	2
	var	3
	line	347
	colm	29
	synt	any
	cat
	line	347
	colm	23
	synt	any
	invoke	1
	line	347
	colm	14
	synt	any
	cat
	line	347
	colm	6
	synt	any
	cat
	asgn
	unmark
lab L29
	mark	L30
	mark	L31
	var	17
	var	1
	var	5
	var	6
	line	348
	colm	14
	synt	any
	invoke	3
	line	348
	colm	4
	synt	any
	pret
lab L31
	synt	any
	pfail
	unmark
lab L30
	pnull
	line	349
	colm	1
	synt	any
	pfail
	end
proc gedh3a
	local	0,001000,s
	local	1,000020,n
	local	2,000020,d1
	local	3,000020,d2
	local	4,000020,d3
	local	5,000020,c
	local	6,000000,map
	local	7,000000,upto
	local	8,000000,ord
	local	9,000000,char
	con	0,002000,1,0
	con	1,020000,5,040,011,014,015,012
	con	2,002000,2,37
	con	3,002000,2,32
	con	4,002000,2,97
	con	5,002000,3,676
	con	6,002000,2,26
	declend
	line	355
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	int	0
	line	358
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	359
	colm	4
	synt	every
	mark0
	pnull
	var	5
	pnull
	var	6
	var	0
	line	359
	colm	19
	synt	any
	invoke	1
	line	359
	colm	15
	synt	any
	bang
	line	359
	colm	12
	synt	any
	asgn
	pop
	mark0
	line	360
	colm	7
	synt	if
	mark0
	mark	L5
	var	7
	cset	1
	var	5
	line	360
	colm	18
	synt	any
	invoke	2
	unmark
	efail
lab L5
	pnull
	unmark
	pnull
	var	1
	pnull
	pnull
	pnull
	int	2
	var	1
	line	361
	colm	18
	synt	any
	mult
	var	8
	var	5
	line	361
	colm	27
	synt	any
	invoke	1
	line	361
	colm	22
	synt	any
	plus
	int	3
	line	361
	colm	31
	synt	any
	minus
	line	361
	colm	12
	synt	any
	asgn
	line	360
	colm	7
	synt	endif
	unmark
lab L3
	efail
lab L4
	line	359
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L6
	pnull
	var	2
	pnull
	int	4
	pnull
	pnull
	var	1
	int	5
	line	362
	colm	18
	synt	any
	div
	int	6
	line	362
	colm	25
	synt	any
	mod
	line	362
	colm	13
	synt	any
	plus
	line	362
	colm	7
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	3
	pnull
	int	4
	pnull
	pnull
	var	1
	int	6
	line	363
	colm	18
	synt	any
	div
	int	6
	line	363
	colm	24
	synt	any
	mod
	line	363
	colm	13
	synt	any
	plus
	line	363
	colm	7
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	4
	pnull
	int	4
	pnull
	var	1
	int	6
	line	364
	colm	17
	synt	any
	mod
	line	364
	colm	13
	synt	any
	plus
	line	364
	colm	7
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	mark	L10
	pnull
	pnull
	var	9
	var	2
	line	365
	colm	15
	synt	any
	invoke	1
	var	9
	var	3
	line	365
	colm	27
	synt	any
	invoke	1
	line	365
	colm	20
	synt	any
	cat
	var	9
	var	4
	line	365
	colm	39
	synt	any
	invoke	1
	line	365
	colm	32
	synt	any
	cat
	line	365
	colm	4
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	366
	colm	1
	synt	any
	pfail
	end
proc gedfind
	local	0,001000,g
	local	1,001000,s
	local	2,000020,r
	local	3,000000,gedmatch
	declend
	line	377
	colm	11
	synt	any
	mark	L1
	line	380
	colm	4
	synt	every
	mark0
	pnull
	var	2
	pnull
	pnull
	var	0
	line	380
	colm	17
	synt	any
	field	ind
	line	380
	colm	15
	synt	any
	bang
	line	380
	colm	12
	synt	any
	asgn
	pop
	mark0
	line	381
	colm	7
	synt	if
	mark0
	var	3
	var	2
	var	1
	line	381
	colm	18
	synt	any
	invoke	2
	unmark
	line	382
	colm	10
	synt	suspend
	mark0
	var	2
	line	382
	colm	10
	synt	any
	psusp
	pop
lab L4
	efail
lab L5
	line	382
	colm	10
	synt	endsuspend
	line	381
	colm	7
	synt	endif
	unmark
lab L2
	efail
lab L3
	line	380
	colm	4
	synt	endevery
	unmark
lab L1
	pnull
	line	383
	colm	1
	synt	any
	pfail
	end
proc gedmatch
	local	0,001000,r
	local	1,001000,s
	local	2,000020,w
	local	3,000000,gedlcw
	local	4,000000,gedval
	local	5,000000,gedyear
	local	6,000000,gedsub
	con	0,010000,4,116,101,115,105
	con	1,010000,4,102,111,122,124
	declend
	line	391
	colm	11
	synt	any
	mark	L1
	line	394
	colm	4
	synt	every
	mark0
	pnull
	var	2
	var	3
	var	1
	line	394
	colm	21
	synt	any
	invoke	1
	line	394
	colm	12
	synt	any
	asgn
	pop
	mark0
	mark	L4
	pnull
	var	2
	mark	L6
	var	3
	var	4
	var	0
	str	0
	line	395
	colm	27
	synt	any
	invoke	2
	line	395
	colm	20
	synt	any
	invoke	1
	line	395
	colm	40
	synt	any
	esusp
	goto	L7
lab L6
	var	5
	var	6
	var	0
	str	1
	line	395
	colm	56
	synt	any
	invoke	2
	line	395
	colm	49
	synt	any
	invoke	1
lab L7
	line	395
	colm	10
	synt	any
	lexeq
	line	395
	colm	71
	synt	any
	esusp
	goto	L5
lab L4
	line	395
	colm	73
	synt	any
	pfail
lab L5
	unmark
lab L2
	efail
lab L3
	line	394
	colm	4
	synt	endevery
	unmark
lab L1
	mark	L8
	mark	L9
	var	0
	line	396
	colm	4
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	397
	colm	1
	synt	any
	pfail
	end
proc gedlcw
	local	0,001000,s
	local	1,001000,c
	local	2,000000,map
	local	3,000000,tab
	local	4,000000,many
	local	5,000000,pos
	local	6,000000,upto
	con	0,020000,7,057,040,011,015,012,013,014
	con	1,002000,1,0
	con	2,002000,1,1
	declend
	line	405
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	406
	colm	4
	synt	any
	null
	cset	0
	line	406
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	2
	var	0
	line	407
	colm	7
	synt	any
	invoke	1
	line	407
	colm	11
	synt	any
	bscan
	mark	L3
	var	3
	var	4
	var	1
	line	408
	colm	15
	synt	any
	invoke	1
	line	408
	colm	10
	synt	any
	invoke	1
	unmark
lab L3
lab L4
	line	409
	colm	7
	synt	while
	mark0
	mark	L7
	var	5
	int	1
	line	409
	colm	20
	synt	any
	invoke	1
	unmark
	efail
lab L7
	pnull
	unmark
	mark	L4
	mark	L8
	line	410
	colm	10
	synt	suspend
	mark0
	int	2
	line	410
	colm	21
	synt	any
	limit
	var	3
	mark	L11
	var	6
	var	1
	line	410
	colm	26
	synt	any
	invoke	1
	line	410
	colm	30
	synt	any
	esusp
	goto	L12
lab L11
	int	1
lab L12
	line	410
	colm	21
	synt	any
	invoke	1
	lsusp
	line	410
	colm	10
	synt	any
	psusp
	pop
lab L9
	efail
lab L10
	line	410
	colm	10
	synt	endsuspend
	unmark
lab L8
	var	3
	var	4
	var	1
	line	411
	colm	18
	synt	any
	invoke	1
	line	411
	colm	13
	synt	any
	invoke	1
lab L5
	unmark
	goto	L4
lab L6
	line	409
	colm	7
	synt	endwhile
	line	407
	colm	11
	synt	any
	escan
	unmark
lab L2
	mark	L13
	line	414
	colm	4
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	415
	colm	1
	synt	any
	pfail
	end
