version	U12.1.00
uid	addressdb.u1-1786033044-0
record	addressbook__address,7
	0,name
	1,address
	2,email
	3,phone
	4,company
	5,misc
	6,category
record	addressbook__Category__state,4
	0,__s
	1,__m
	2,sType
	3,struct
record	addressbook__Category__methods,28
	0,initially
	1,addElement
	2,remove
	3,gen
	4,toString
	5,fromString
	6,fromIStruct
	7,toIStruct
	8,clone
	9,to_string
	10,equals
	11,hash_code
	12,get_class_name
	13,get_id
	14,get_class
	15,is_instance
	16,Type
	17,instanceOf
	18,className
	19,invoke
	20,getField
	21,setField
	22,hasField
	23,fieldNames
	24,genMethods
	25,hasMethod
	26,database__Struct
	27,lang__Object
record	addressbook__ALines__state,4
	0,__s
	1,__m
	2,sType
	3,struct
record	addressbook__ALines__methods,28
	0,addElement
	1,remove
	2,initially
	3,gen
	4,toString
	5,fromString
	6,fromIStruct
	7,toIStruct
	8,clone
	9,to_string
	10,equals
	11,hash_code
	12,get_class_name
	13,get_id
	14,get_class
	15,is_instance
	16,Type
	17,instanceOf
	18,className
	19,invoke
	20,getField
	21,setField
	22,hasField
	23,fieldNames
	24,genMethods
	25,hasMethod
	26,database__Struct
	27,lang__Object
record	addressbook__MLines__state,4
	0,__s
	1,__m
	2,sType
	3,struct
record	addressbook__MLines__methods,28
	0,addElement
	1,remove
	2,initially
	3,gen
	4,toString
	5,fromString
	6,fromIStruct
	7,toIStruct
	8,clone
	9,to_string
	10,equals
	11,hash_code
	12,get_class_name
	13,get_id
	14,get_class
	15,is_instance
	16,Type
	17,instanceOf
	18,className
	19,invoke
	20,getField
	21,setField
	22,hasField
	23,fieldNames
	24,genMethods
	25,hasMethod
	26,database__Struct
	27,lang__Object
record	addressbook__Address__state,3
	0,__s
	1,__m
	2,aRec
record	addressbook__Address__methods,25
	0,toRecord
	1,toIRecord
	2,fromRecord
	3,fromIRecord
	4,toString
	5,initially
	6,clone
	7,to_string
	8,equals
	9,hash_code
	10,get_class_name
	11,get_id
	12,get_class
	13,is_instance
	14,Type
	15,instanceOf
	16,className
	17,invoke
	18,getField
	19,setField
	20,hasField
	21,fieldNames
	22,genMethods
	23,hasMethod
	24,lang__Object
record	addressbook__AddressView__state,3
	0,__s
	1,__m
	2,aList
record	addressbook__AddressView__methods,24
	0,load
	1,addRecord
	2,addIRecord
	3,gen
	4,initially
	5,clone
	6,to_string
	7,equals
	8,hash_code
	9,get_class_name
	10,get_id
	11,get_class
	12,is_instance
	13,Type
	14,instanceOf
	15,className
	16,invoke
	17,getField
	18,setField
	19,hasField
	20,fieldNames
	21,genMethods
	22,hasMethod
	23,lang__Object
record	addressbook__AddressDB__state,6
	0,__s
	1,__m
	2,db
	3,tablName
	4,criteria
	5,order
record	addressbook__AddressDB__methods,28
	0,loadView
	1,storeAddress
	2,reload
	3,performSearch
	4,setCondition
	5,setCatCondition
	6,isValid
	7,remove
	8,initially
	9,clone
	10,to_string
	11,equals
	12,hash_code
	13,get_class_name
	14,get_id
	15,get_class
	16,is_instance
	17,Type
	18,instanceOf
	19,className
	20,invoke
	21,getField
	22,setField
	23,hasField
	24,fieldNames
	25,genMethods
	26,hasMethod
	27,lang__Object
impl	local
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/struct.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/object.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/classcoding.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/basicclasscoding.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/method.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/class.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/langprocs.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/object.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/decode.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/encode.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/fcn_util.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/selectiveclasscoding.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/predicat.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/runnable.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/process.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/struct.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/db_util.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/database.u
link	struct.u
global	60
	0,000011,addressbook__address,7
	1,000005,addressbook__Category_initially,2
	2,000011,addressbook__Category__state,4
	3,000011,addressbook__Category__methods,28
	4,000001,addressbook__Category__oprec,0
	5,000001,database__Struct__oprec,0
	6,000001,lang__Object__oprec,0
	7,000005,addressbook__Category,1
	8,000005,addressbook__Categoryinitialize,0
	9,000005,addressbook__ALines_addElement,2
	10,000005,addressbook__ALines_remove,2
	11,000005,addressbook__ALines_initially,2
	12,000011,addressbook__ALines__state,4
	13,000011,addressbook__ALines__methods,28
	14,000001,addressbook__ALines__oprec,0
	15,000005,addressbook__ALines,1
	16,000005,addressbook__ALinesinitialize,0
	17,000005,addressbook__MLines_addElement,2
	18,000005,addressbook__MLines_remove,2
	19,000005,addressbook__MLines_initially,2
	20,000011,addressbook__MLines__state,4
	21,000011,addressbook__MLines__methods,28
	22,000001,addressbook__MLines__oprec,0
	23,000005,addressbook__MLines,1
	24,000005,addressbook__MLinesinitialize,0
	25,000005,addressbook__Address_toRecord,1
	26,000005,addressbook__Address_toIRecord,1
	27,000005,addressbook__Address_fromRecord,2
	28,000005,addressbook__Address_fromIRecord,2
	29,000005,addressbook__Address_toString,1
	30,000005,addressbook__Address_initially,1
	31,000011,addressbook__Address__state,3
	32,000011,addressbook__Address__methods,25
	33,000001,addressbook__Address__oprec,0
	34,000005,addressbook__Address,0
	35,000005,addressbook__Addressinitialize,0
	36,000005,addressbook__AddressView_load,2
	37,000005,addressbook__AddressView_addRecord,2
	38,000005,addressbook__AddressView_addIRecord,2
	39,000005,addressbook__AddressView_gen,1
	40,000005,addressbook__AddressView_initially,2
	41,000011,addressbook__AddressView__state,3
	42,000011,addressbook__AddressView__methods,24
	43,000001,addressbook__AddressView__oprec,0
	44,000005,addressbook__AddressView,1
	45,000005,addressbook__AddressViewinitialize,0
	46,000005,addressbook__AddressDB_loadView,3
	47,000005,addressbook__AddressDB_storeAddress,2
	48,000005,addressbook__AddressDB_reload,1
	49,000005,addressbook__AddressDB_performSearch,2
	50,000005,addressbook__AddressDB_setCondition,5
	51,000005,addressbook__AddressDB_setCatCondition,4
	52,000005,addressbook__AddressDB_isValid,2
	53,000005,addressbook__AddressDB_remove,2
	54,000005,addressbook__AddressDB_initially,5
	55,000011,addressbook__AddressDB__state,6
	56,000011,addressbook__AddressDB__methods,28
	57,000001,addressbook__AddressDB__oprec,0
	58,000005,addressbook__AddressDB,4
	59,000005,addressbook__AddressDBinitialize,0

proc addressbook__Category_initially
	local	0,001000,self
	local	1,001000,s
	local	2,000000,set
	declend
	filen	addressdb.icn
	line	46
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	47
	colm	8
	synt	any
	field	database__Struct
	line	47
	colm	25
	synt	any
	field	initially
	var	2
	line	47
	colm	35
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	48
	colm	8
	synt	any
	field	fromString
	var	1
	line	48
	colm	19
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	49
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	50
	colm	1
	synt	any
	pfail
	end
proc addressbook__Category
	local	0,001000,s
	local	1,000020,self
	local	2,000020,clone
	local	3,000000,addressbook__Category__oprec
	local	4,000000,addressbook__Categoryinitialize
	local	5,000000,database__Struct__oprec
	local	6,000000,database__Structinitialize
	local	7,000000,lang__Object__oprec
	local	8,000000,lang__Objectinitialize
	local	9,000000,addressbook__Category__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	3
	line	8
	colm	6
	synt	any
	null
	unmark
	var	4
	line	8
	colm	72
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	5
	line	9
	colm	6
	synt	any
	null
	unmark
	var	6
	line	9
	colm	62
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	3
	line	10
	colm	31
	synt	any
	field	database__Struct
	var	5
	line	10
	colm	49
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	7
	line	11
	colm	6
	synt	any
	null
	unmark
	var	8
	line	11
	colm	54
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	3
	line	12
	colm	31
	synt	any
	field	lang__Object
	var	7
	line	12
	colm	45
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	1
	var	9
	line	14
	colm	40
	synt	any
	keywd	null
	var	3
	line	14
	colm	39
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	1
	line	15
	colm	7
	synt	any
	field	__s
	var	1
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	1
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	1
	var	0
	line	16
	colm	21
	synt	any
	invoke	2
	line	16
	colm	30
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	32
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	1
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc addressbook__Categoryinitialize
	local	0,000000,addressbook__Category__oprec
	local	1,000000,addressbook__Category__methods
	local	2,000000,addressbook__Category_initially
	local	3,000000,database__Struct_addElement
	local	4,000000,database__Struct_remove
	local	5,000000,database__Struct_gen
	local	6,000000,database__Struct_toString
	local	7,000000,database__Struct_fromString
	local	8,000000,database__Struct_fromIStruct
	local	9,000000,database__Struct_toIStruct
	local	10,000000,lang__Object_clone
	local	11,000000,lang__Object_to_string
	local	12,000000,lang__Object_equals
	local	13,000000,lang__Object_hash_code
	local	14,000000,lang__Object_get_class_name
	local	15,000000,lang__Object_get_id
	local	16,000000,lang__Object_get_class
	local	17,000000,lang__Object_is_instance
	local	18,000000,lang__Object_Type
	local	19,000000,lang__Object_instanceOf
	local	20,000000,lang__Object_className
	local	21,000000,lang__Object_invoke
	local	22,000000,lang__Object_getField
	local	23,000000,lang__Object_setField
	local	24,000000,lang__Object_hasField
	local	25,000000,lang__Object_fieldNames
	local	26,000000,lang__Object_genMethods
	local	27,000000,lang__Object_hasMethod
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	var	23
	var	24
	var	25
	var	26
	var	27
	line	21
	colm	73
	synt	any
	invoke	26
	line	21
	colm	40
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc addressbook__ALines_addElement
	local	0,001000,self
	local	1,001000,e
	local	2,000000,put
	declend
	filen	addressdb.icn
	line	61
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	2
	pnull
	var	0
	line	62
	colm	24
	synt	any
	field	struct
	var	1
	line	62
	colm	19
	synt	any
	invoke	2
	line	62
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	63
	colm	1
	synt	any
	pfail
	end
proc addressbook__ALines_remove
	local	0,001000,self
	local	1,001000,e
	declend
	line	69
	colm	11
	synt	any
	line	71
	colm	1
	synt	any
	pfail
	end
proc addressbook__ALines_initially
	local	0,001000,self
	local	1,001000,s
	local	2,000000,list
	declend
	line	78
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	79
	colm	8
	synt	any
	field	database__Struct
	line	79
	colm	25
	synt	any
	field	initially
	var	2
	line	79
	colm	35
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	80
	colm	8
	synt	any
	field	fromString
	var	1
	line	80
	colm	19
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	81
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	82
	colm	1
	synt	any
	pfail
	end
proc addressbook__ALines
	local	0,001000,s
	local	1,000020,self
	local	2,000020,clone
	local	3,000000,addressbook__ALines__oprec
	local	4,000000,addressbook__ALinesinitialize
	local	5,000000,database__Struct__oprec
	local	6,000000,database__Structinitialize
	local	7,000000,lang__Object__oprec
	local	8,000000,lang__Objectinitialize
	local	9,000000,addressbook__ALines__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	3
	line	8
	colm	6
	synt	any
	null
	unmark
	var	4
	line	8
	colm	68
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	5
	line	9
	colm	6
	synt	any
	null
	unmark
	var	6
	line	9
	colm	62
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	3
	line	10
	colm	29
	synt	any
	field	database__Struct
	var	5
	line	10
	colm	47
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	7
	line	11
	colm	6
	synt	any
	null
	unmark
	var	8
	line	11
	colm	54
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	3
	line	12
	colm	29
	synt	any
	field	lang__Object
	var	7
	line	12
	colm	43
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	1
	var	9
	line	14
	colm	38
	synt	any
	keywd	null
	var	3
	line	14
	colm	37
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	1
	line	15
	colm	7
	synt	any
	field	__s
	var	1
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	1
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	1
	var	0
	line	16
	colm	21
	synt	any
	invoke	2
	line	16
	colm	30
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	32
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	1
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc addressbook__ALinesinitialize
	local	0,000000,addressbook__ALines__oprec
	local	1,000000,addressbook__ALines__methods
	local	2,000000,addressbook__ALines_addElement
	local	3,000000,addressbook__ALines_remove
	local	4,000000,addressbook__ALines_initially
	local	5,000000,database__Struct_gen
	local	6,000000,database__Struct_toString
	local	7,000000,database__Struct_fromString
	local	8,000000,database__Struct_fromIStruct
	local	9,000000,database__Struct_toIStruct
	local	10,000000,lang__Object_clone
	local	11,000000,lang__Object_to_string
	local	12,000000,lang__Object_equals
	local	13,000000,lang__Object_hash_code
	local	14,000000,lang__Object_get_class_name
	local	15,000000,lang__Object_get_id
	local	16,000000,lang__Object_get_class
	local	17,000000,lang__Object_is_instance
	local	18,000000,lang__Object_Type
	local	19,000000,lang__Object_instanceOf
	local	20,000000,lang__Object_className
	local	21,000000,lang__Object_invoke
	local	22,000000,lang__Object_getField
	local	23,000000,lang__Object_setField
	local	24,000000,lang__Object_hasField
	local	25,000000,lang__Object_fieldNames
	local	26,000000,lang__Object_genMethods
	local	27,000000,lang__Object_hasMethod
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	var	23
	var	24
	var	25
	var	26
	var	27
	line	21
	colm	69
	synt	any
	invoke	26
	line	21
	colm	38
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc addressbook__MLines_addElement
	local	0,001000,self
	local	1,001000,e
	local	2,000000,put
	declend
	filen	addressdb.icn
	line	93
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	2
	pnull
	var	0
	line	94
	colm	24
	synt	any
	field	struct
	var	1
	line	94
	colm	19
	synt	any
	invoke	2
	line	94
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	95
	colm	1
	synt	any
	pfail
	end
proc addressbook__MLines_remove
	local	0,001000,self
	local	1,001000,e
	declend
	line	101
	colm	11
	synt	any
	line	103
	colm	1
	synt	any
	pfail
	end
proc addressbook__MLines_initially
	local	0,001000,self
	local	1,001000,s
	local	2,000000,list
	declend
	line	110
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	111
	colm	8
	synt	any
	field	database__Struct
	line	111
	colm	25
	synt	any
	field	initially
	var	2
	line	111
	colm	35
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	112
	colm	8
	synt	any
	field	fromString
	var	1
	line	112
	colm	19
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	113
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	114
	colm	1
	synt	any
	pfail
	end
proc addressbook__MLines
	local	0,001000,s
	local	1,000020,self
	local	2,000020,clone
	local	3,000000,addressbook__MLines__oprec
	local	4,000000,addressbook__MLinesinitialize
	local	5,000000,database__Struct__oprec
	local	6,000000,database__Structinitialize
	local	7,000000,lang__Object__oprec
	local	8,000000,lang__Objectinitialize
	local	9,000000,addressbook__MLines__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	3
	line	8
	colm	6
	synt	any
	null
	unmark
	var	4
	line	8
	colm	68
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	5
	line	9
	colm	6
	synt	any
	null
	unmark
	var	6
	line	9
	colm	62
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	3
	line	10
	colm	29
	synt	any
	field	database__Struct
	var	5
	line	10
	colm	47
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	7
	line	11
	colm	6
	synt	any
	null
	unmark
	var	8
	line	11
	colm	54
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	3
	line	12
	colm	29
	synt	any
	field	lang__Object
	var	7
	line	12
	colm	43
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	1
	var	9
	line	14
	colm	38
	synt	any
	keywd	null
	var	3
	line	14
	colm	37
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	1
	line	15
	colm	7
	synt	any
	field	__s
	var	1
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	1
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	1
	var	0
	line	16
	colm	21
	synt	any
	invoke	2
	line	16
	colm	30
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	32
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	1
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc addressbook__MLinesinitialize
	local	0,000000,addressbook__MLines__oprec
	local	1,000000,addressbook__MLines__methods
	local	2,000000,addressbook__MLines_addElement
	local	3,000000,addressbook__MLines_remove
	local	4,000000,addressbook__MLines_initially
	local	5,000000,database__Struct_gen
	local	6,000000,database__Struct_toString
	local	7,000000,database__Struct_fromString
	local	8,000000,database__Struct_fromIStruct
	local	9,000000,database__Struct_toIStruct
	local	10,000000,lang__Object_clone
	local	11,000000,lang__Object_to_string
	local	12,000000,lang__Object_equals
	local	13,000000,lang__Object_hash_code
	local	14,000000,lang__Object_get_class_name
	local	15,000000,lang__Object_get_id
	local	16,000000,lang__Object_get_class
	local	17,000000,lang__Object_is_instance
	local	18,000000,lang__Object_Type
	local	19,000000,lang__Object_instanceOf
	local	20,000000,lang__Object_className
	local	21,000000,lang__Object_invoke
	local	22,000000,lang__Object_getField
	local	23,000000,lang__Object_setField
	local	24,000000,lang__Object_hasField
	local	25,000000,lang__Object_fieldNames
	local	26,000000,lang__Object_genMethods
	local	27,000000,lang__Object_hasMethod
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	var	23
	var	24
	var	25
	var	26
	var	27
	line	21
	colm	69
	synt	any
	invoke	26
	line	21
	colm	38
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc addressbook__Address_toRecord
	local	0,001000,self
	local	1,000000,a
	local	2,000000,addressbook__address
	declend
	filen	addressdb.icn
	line	126
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	line	127
	colm	32
	synt	any
	invoke	0
	line	127
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	128
	colm	8
	synt	any
	field	name
	pnull
	pnull
	var	0
	line	128
	colm	21
	synt	any
	field	aRec
	line	128
	colm	26
	synt	any
	field	name
	line	128
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	1
	line	129
	colm	8
	synt	any
	field	address
	pnull
	pnull
	pnull
	var	0
	line	129
	colm	24
	synt	any
	field	aRec
	line	129
	colm	29
	synt	any
	field	address
	line	129
	colm	37
	synt	any
	field	toString
	line	129
	colm	46
	synt	any
	invoke	0
	line	129
	colm	17
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	1
	line	130
	colm	8
	synt	any
	field	email
	pnull
	pnull
	var	0
	line	130
	colm	22
	synt	any
	field	aRec
	line	130
	colm	27
	synt	any
	field	email
	line	130
	colm	15
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	1
	line	131
	colm	8
	synt	any
	field	phone
	pnull
	pnull
	var	0
	line	131
	colm	22
	synt	any
	field	aRec
	line	131
	colm	27
	synt	any
	field	phone
	line	131
	colm	15
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	1
	line	132
	colm	8
	synt	any
	field	company
	pnull
	pnull
	var	0
	line	132
	colm	24
	synt	any
	field	aRec
	line	132
	colm	29
	synt	any
	field	company
	line	132
	colm	17
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	1
	line	133
	colm	8
	synt	any
	field	misc
	pnull
	pnull
	pnull
	var	0
	line	133
	colm	21
	synt	any
	field	aRec
	line	133
	colm	26
	synt	any
	field	misc
	line	133
	colm	31
	synt	any
	field	toString
	line	133
	colm	40
	synt	any
	invoke	0
	line	133
	colm	14
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	1
	line	134
	colm	8
	synt	any
	field	category
	pnull
	pnull
	pnull
	var	0
	line	134
	colm	25
	synt	any
	field	aRec
	line	134
	colm	30
	synt	any
	field	category
	line	134
	colm	39
	synt	any
	field	toString
	line	134
	colm	48
	synt	any
	invoke	0
	line	134
	colm	18
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	mark	L10
	var	1
	line	135
	colm	7
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	136
	colm	1
	synt	any
	pfail
	end
proc addressbook__Address_toIRecord
	local	0,001000,self
	local	1,000000,a
	local	2,000000,addressbook__address
	declend
	line	143
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	line	144
	colm	32
	synt	any
	invoke	0
	line	144
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	145
	colm	8
	synt	any
	field	name
	pnull
	pnull
	var	0
	line	145
	colm	21
	synt	any
	field	aRec
	line	145
	colm	26
	synt	any
	field	name
	line	145
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	1
	line	146
	colm	8
	synt	any
	field	address
	pnull
	pnull
	pnull
	var	0
	line	146
	colm	24
	synt	any
	field	aRec
	line	146
	colm	29
	synt	any
	field	address
	line	146
	colm	37
	synt	any
	field	toIStruct
	line	146
	colm	47
	synt	any
	invoke	0
	line	146
	colm	17
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	1
	line	147
	colm	8
	synt	any
	field	email
	pnull
	pnull
	var	0
	line	147
	colm	22
	synt	any
	field	aRec
	line	147
	colm	27
	synt	any
	field	email
	line	147
	colm	15
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	1
	line	148
	colm	8
	synt	any
	field	phone
	pnull
	pnull
	var	0
	line	148
	colm	22
	synt	any
	field	aRec
	line	148
	colm	27
	synt	any
	field	phone
	line	148
	colm	15
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	1
	line	149
	colm	8
	synt	any
	field	company
	pnull
	pnull
	var	0
	line	149
	colm	24
	synt	any
	field	aRec
	line	149
	colm	29
	synt	any
	field	company
	line	149
	colm	17
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	1
	line	150
	colm	8
	synt	any
	field	misc
	pnull
	pnull
	pnull
	var	0
	line	150
	colm	21
	synt	any
	field	aRec
	line	150
	colm	26
	synt	any
	field	misc
	line	150
	colm	31
	synt	any
	field	toIStruct
	line	150
	colm	41
	synt	any
	invoke	0
	line	150
	colm	14
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	1
	line	151
	colm	8
	synt	any
	field	category
	pnull
	pnull
	pnull
	var	0
	line	151
	colm	25
	synt	any
	field	aRec
	line	151
	colm	30
	synt	any
	field	category
	line	151
	colm	39
	synt	any
	field	toIStruct
	line	151
	colm	49
	synt	any
	invoke	0
	line	151
	colm	18
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	mark	L10
	var	1
	line	152
	colm	7
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	153
	colm	1
	synt	any
	pfail
	end
proc addressbook__Address_fromRecord
	local	0,001000,self
	local	1,001000,rec
	local	2,000000,addressbook__ALines
	local	3,000000,addressbook__MLines
	local	4,000000,addressbook__Category
	declend
	line	160
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	161
	colm	11
	synt	any
	field	aRec
	line	161
	colm	16
	synt	any
	field	name
	pnull
	var	1
	line	161
	colm	26
	synt	any
	field	name
	line	161
	colm	21
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	162
	colm	11
	synt	any
	field	aRec
	line	162
	colm	16
	synt	any
	field	address
	var	2
	pnull
	var	1
	line	162
	colm	49
	synt	any
	field	address
	line	162
	colm	45
	synt	any
	invoke	1
	line	162
	colm	24
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	163
	colm	11
	synt	any
	field	aRec
	line	163
	colm	16
	synt	any
	field	email
	pnull
	var	1
	line	163
	colm	27
	synt	any
	field	email
	line	163
	colm	22
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	pnull
	var	0
	line	164
	colm	11
	synt	any
	field	aRec
	line	164
	colm	16
	synt	any
	field	phone
	pnull
	var	1
	line	164
	colm	27
	synt	any
	field	phone
	line	164
	colm	22
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	pnull
	var	0
	line	165
	colm	11
	synt	any
	field	aRec
	line	165
	colm	16
	synt	any
	field	company
	pnull
	var	1
	line	165
	colm	29
	synt	any
	field	company
	line	165
	colm	24
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	pnull
	var	0
	line	166
	colm	11
	synt	any
	field	aRec
	line	166
	colm	16
	synt	any
	field	misc
	var	3
	pnull
	var	1
	line	166
	colm	46
	synt	any
	field	misc
	line	166
	colm	42
	synt	any
	invoke	1
	line	166
	colm	21
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	pnull
	var	0
	line	167
	colm	11
	synt	any
	field	aRec
	line	167
	colm	16
	synt	any
	field	category
	var	4
	pnull
	var	1
	line	167
	colm	52
	synt	any
	field	category
	line	167
	colm	48
	synt	any
	invoke	1
	line	167
	colm	25
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	mark	L9
	var	0
	line	168
	colm	7
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	169
	colm	1
	synt	any
	pfail
	end
proc addressbook__Address_fromIRecord
	local	0,001000,self
	local	1,001000,rec
	local	2,000000,addressbook__ALines
	local	3,000000,addressbook__MLines
	local	4,000000,addressbook__Category
	declend
	line	176
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	177
	colm	11
	synt	any
	field	aRec
	line	177
	colm	16
	synt	any
	field	name
	pnull
	var	1
	line	177
	colm	26
	synt	any
	field	name
	line	177
	colm	21
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	178
	colm	11
	synt	any
	field	aRec
	line	178
	colm	16
	synt	any
	field	address
	var	2
	line	178
	colm	45
	synt	any
	invoke	0
	line	178
	colm	24
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	179
	colm	11
	synt	any
	field	aRec
	line	179
	colm	16
	synt	any
	field	address
	line	179
	colm	24
	synt	any
	field	fromIStruct
	pnull
	var	1
	line	179
	colm	40
	synt	any
	field	address
	line	179
	colm	36
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	pnull
	pnull
	var	0
	line	180
	colm	11
	synt	any
	field	aRec
	line	180
	colm	16
	synt	any
	field	email
	pnull
	var	1
	line	180
	colm	27
	synt	any
	field	email
	line	180
	colm	22
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	pnull
	var	0
	line	181
	colm	11
	synt	any
	field	aRec
	line	181
	colm	16
	synt	any
	field	phone
	pnull
	var	1
	line	181
	colm	27
	synt	any
	field	phone
	line	181
	colm	22
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	pnull
	var	0
	line	182
	colm	11
	synt	any
	field	aRec
	line	182
	colm	16
	synt	any
	field	company
	pnull
	var	1
	line	182
	colm	29
	synt	any
	field	company
	line	182
	colm	24
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	pnull
	var	0
	line	183
	colm	11
	synt	any
	field	aRec
	line	183
	colm	16
	synt	any
	field	misc
	var	3
	line	183
	colm	42
	synt	any
	invoke	0
	line	183
	colm	21
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	pnull
	var	0
	line	184
	colm	11
	synt	any
	field	aRec
	line	184
	colm	16
	synt	any
	field	misc
	line	184
	colm	21
	synt	any
	field	fromIStruct
	pnull
	var	1
	line	184
	colm	37
	synt	any
	field	misc
	line	184
	colm	33
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	pnull
	pnull
	pnull
	var	0
	line	185
	colm	11
	synt	any
	field	aRec
	line	185
	colm	16
	synt	any
	field	category
	var	4
	line	185
	colm	48
	synt	any
	invoke	0
	line	185
	colm	25
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	pnull
	var	0
	line	186
	colm	11
	synt	any
	field	aRec
	line	186
	colm	16
	synt	any
	field	category
	line	186
	colm	25
	synt	any
	field	fromIStruct
	pnull
	var	1
	line	186
	colm	41
	synt	any
	field	category
	line	186
	colm	37
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	mark	L12
	var	0
	line	187
	colm	7
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	188
	colm	1
	synt	any
	pfail
	end
proc addressbook__Address_toString
	local	0,001000,self
	local	1,000000,s
	con	0,010000,0
	con	1,010000,10,116,141,155,145,072,040,040,040,040,040
	con	2,010000,1,012
	con	3,010000,6,101,144,144,162,072,012
	con	4,010000,1,011
	con	5,010000,10,105,155,141,151,154,072,040,040,040,040
	con	6,010000,10,120,150,157,156,145,072,040,040,040,040
	con	7,010000,11,113,145,171,167,157,162,144,163,072,040,040
	con	8,010000,6,115,151,163,143,072,012
	con	9,010000,10,103,141,164,145,147,157,162,171,072,040
	con	10,010000,1,040
	declend
	line	194
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	str	0
	line	195
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	dup
	pnull
	pnull
	str	1
	pnull
	pnull
	var	0
	line	196
	colm	32
	synt	any
	field	aRec
	line	196
	colm	37
	synt	any
	field	name
	line	196
	colm	26
	synt	any
	cat
	str	2
	line	196
	colm	42
	synt	any
	cat
	line	196
	colm	9
	synt	any
	cat
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	1
	dup
	pnull
	str	3
	pnull
	pnull
	pnull
	var	0
	line	197
	colm	29
	synt	any
	field	aRec
	line	197
	colm	34
	synt	any
	field	address
	line	197
	colm	42
	synt	any
	field	toString
	str	4
	str	2
	line	197
	colm	51
	synt	any
	invoke	2
	line	197
	colm	23
	synt	any
	cat
	line	197
	colm	9
	synt	any
	cat
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	1
	dup
	pnull
	pnull
	str	5
	pnull
	pnull
	var	0
	line	198
	colm	32
	synt	any
	field	aRec
	line	198
	colm	37
	synt	any
	field	email
	line	198
	colm	26
	synt	any
	cat
	str	2
	line	198
	colm	43
	synt	any
	cat
	line	198
	colm	9
	synt	any
	cat
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	dup
	pnull
	pnull
	str	6
	pnull
	pnull
	var	0
	line	199
	colm	32
	synt	any
	field	aRec
	line	199
	colm	37
	synt	any
	field	phone
	line	199
	colm	26
	synt	any
	cat
	str	2
	line	199
	colm	43
	synt	any
	cat
	line	199
	colm	9
	synt	any
	cat
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	1
	dup
	pnull
	pnull
	str	7
	pnull
	pnull
	var	0
	line	200
	colm	33
	synt	any
	field	aRec
	line	200
	colm	38
	synt	any
	field	company
	line	200
	colm	27
	synt	any
	cat
	str	2
	line	200
	colm	46
	synt	any
	cat
	line	200
	colm	9
	synt	any
	cat
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	1
	dup
	pnull
	str	8
	pnull
	pnull
	pnull
	var	0
	line	201
	colm	29
	synt	any
	field	aRec
	line	201
	colm	34
	synt	any
	field	misc
	line	201
	colm	39
	synt	any
	field	toString
	str	4
	str	2
	line	201
	colm	48
	synt	any
	invoke	2
	line	201
	colm	23
	synt	any
	cat
	line	201
	colm	9
	synt	any
	cat
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	1
	dup
	pnull
	str	9
	pnull
	pnull
	pnull
	var	0
	line	202
	colm	32
	synt	any
	field	aRec
	line	202
	colm	37
	synt	any
	field	category
	line	202
	colm	46
	synt	any
	field	toString
	str	0
	str	10
	line	202
	colm	55
	synt	any
	invoke	2
	line	202
	colm	26
	synt	any
	cat
	line	202
	colm	9
	synt	any
	cat
	asgn
	unmark
lab L8
	mark	L9
	mark	L10
	var	1
	line	203
	colm	7
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	204
	colm	1
	synt	any
	pfail
	end
proc addressbook__Address_initially
	local	0,001000,self
	local	1,000000,addressbook__address
	declend
	line	206
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	207
	colm	8
	synt	any
	field	aRec
	var	1
	line	207
	colm	35
	synt	any
	invoke	0
	line	207
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	208
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	209
	colm	1
	synt	any
	pfail
	end
proc addressbook__Address
	local	0,000020,self
	local	1,000020,clone
	local	2,000000,addressbook__Address__oprec
	local	3,000000,addressbook__Addressinitialize
	local	4,000000,lang__Object__oprec
	local	5,000000,lang__Objectinitialize
	local	6,000000,addressbook__Address__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	2
	line	8
	colm	6
	synt	any
	null
	unmark
	var	3
	line	8
	colm	70
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	4
	line	9
	colm	6
	synt	any
	null
	unmark
	var	5
	line	9
	colm	54
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	pnull
	pnull
	var	2
	line	10
	colm	30
	synt	any
	field	lang__Object
	var	4
	line	10
	colm	44
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L6
	pnull
	var	0
	var	6
	line	12
	colm	39
	synt	any
	keywd	null
	var	2
	line	12
	colm	38
	synt	any
	invoke	2
	line	12
	colm	8
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	0
	line	13
	colm	7
	synt	any
	field	__s
	var	0
	line	13
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	mark	L9
	pnull
	pnull
	var	0
	line	14
	colm	7
	synt	any
	field	__m
	line	14
	colm	11
	synt	any
	field	initially
	var	0
	pnull
	line	14
	colm	21
	synt	any
	invoke	2
	line	14
	colm	29
	synt	any
	esusp
	goto	L10
lab L9
	line	14
	colm	31
	synt	any
	pfail
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	var	0
	line	15
	colm	3
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	16
	colm	1
	synt	any
	pfail
	end
proc addressbook__Addressinitialize
	local	0,000000,addressbook__Address__oprec
	local	1,000000,addressbook__Address__methods
	local	2,000000,addressbook__Address_toRecord
	local	3,000000,addressbook__Address_toIRecord
	local	4,000000,addressbook__Address_fromRecord
	local	5,000000,addressbook__Address_fromIRecord
	local	6,000000,addressbook__Address_toString
	local	7,000000,addressbook__Address_initially
	local	8,000000,lang__Object_clone
	local	9,000000,lang__Object_to_string
	local	10,000000,lang__Object_equals
	local	11,000000,lang__Object_hash_code
	local	12,000000,lang__Object_get_class_name
	local	13,000000,lang__Object_get_id
	local	14,000000,lang__Object_get_class
	local	15,000000,lang__Object_is_instance
	local	16,000000,lang__Object_Type
	local	17,000000,lang__Object_instanceOf
	local	18,000000,lang__Object_className
	local	19,000000,lang__Object_invoke
	local	20,000000,lang__Object_getField
	local	21,000000,lang__Object_setField
	local	22,000000,lang__Object_hasField
	local	23,000000,lang__Object_fieldNames
	local	24,000000,lang__Object_genMethods
	local	25,000000,lang__Object_hasMethod
	declend
	line	18
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	var	23
	var	24
	var	25
	line	19
	colm	71
	synt	any
	invoke	24
	line	19
	colm	39
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	20
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressView_load
	local	0,001000,self
	local	1,001000,recs
	local	2,000000,r
	declend
	filen	addressdb.icn
	line	220
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	221
	colm	11
	synt	any
	field	aList
	pnull
	line	221
	colm	19
	synt	any
	llist	0
	line	221
	colm	17
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	222
	colm	7
	synt	every
	mark0
	pnull
	var	2
	pnull
	pnull
	var	1
	line	222
	colm	19
	synt	any
	nonnull
	line	222
	colm	18
	synt	any
	bang
	line	222
	colm	15
	synt	any
	asgn
	pop
	mark0
	pnull
	var	0
	line	223
	colm	14
	synt	any
	field	addRecord
	var	2
	line	223
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	efail
lab L4
	line	222
	colm	7
	synt	endevery
	unmark
lab L2
	pnull
	line	225
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressView_addRecord
	local	0,001000,self
	local	1,001000,rec
	local	2,000000,a
	local	3,000000,addressbook__Address
	local	4,000000,put
	declend
	line	231
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	line	232
	colm	32
	synt	any
	invoke	0
	line	232
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	233
	colm	8
	synt	any
	field	fromRecord
	var	1
	line	233
	colm	19
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	4
	pnull
	var	0
	line	234
	colm	17
	synt	any
	field	aList
	var	2
	line	234
	colm	12
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	235
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressView_addIRecord
	local	0,001000,self
	local	1,001000,rec
	local	2,000000,a
	local	3,000000,addressbook__Address
	local	4,000000,put
	declend
	line	241
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	line	242
	colm	32
	synt	any
	invoke	0
	line	242
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	243
	colm	8
	synt	any
	field	fromIRecord
	var	1
	line	243
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	4
	pnull
	var	0
	line	244
	colm	17
	synt	any
	field	aList
	var	2
	line	244
	colm	12
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	245
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressView_gen
	local	0,001000,self
	declend
	line	250
	colm	11
	synt	any
	mark	L1
	line	251
	colm	7
	synt	suspend
	mark0
	pnull
	pnull
	var	0
	line	251
	colm	20
	synt	any
	field	aList
	line	251
	colm	15
	synt	any
	bang
	line	251
	colm	7
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	251
	colm	7
	synt	endsuspend
	unmark
lab L1
	pnull
	line	252
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressView_initially
	local	0,001000,self
	local	1,001000,recs
	declend
	line	259
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	260
	colm	8
	synt	any
	field	aList
	pnull
	line	260
	colm	16
	synt	any
	llist	0
	line	260
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	261
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	262
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressView
	local	0,001000,recs
	local	1,000020,self
	local	2,000020,clone
	local	3,000000,addressbook__AddressView__oprec
	local	4,000000,addressbook__AddressViewinitialize
	local	5,000000,lang__Object__oprec
	local	6,000000,lang__Objectinitialize
	local	7,000000,addressbook__AddressView__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	3
	line	8
	colm	6
	synt	any
	null
	unmark
	var	4
	line	8
	colm	78
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	5
	line	9
	colm	6
	synt	any
	null
	unmark
	var	6
	line	9
	colm	54
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	pnull
	pnull
	var	3
	line	10
	colm	34
	synt	any
	field	lang__Object
	var	5
	line	10
	colm	48
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L6
	pnull
	var	1
	var	7
	line	12
	colm	43
	synt	any
	keywd	null
	var	3
	line	12
	colm	42
	synt	any
	invoke	2
	line	12
	colm	8
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	1
	line	13
	colm	7
	synt	any
	field	__s
	var	1
	line	13
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	mark	L9
	pnull
	pnull
	var	1
	line	14
	colm	7
	synt	any
	field	__m
	line	14
	colm	11
	synt	any
	field	initially
	var	1
	var	0
	line	14
	colm	21
	synt	any
	invoke	2
	line	14
	colm	33
	synt	any
	esusp
	goto	L10
lab L9
	line	14
	colm	35
	synt	any
	pfail
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	var	1
	line	15
	colm	3
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	16
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressViewinitialize
	local	0,000000,addressbook__AddressView__oprec
	local	1,000000,addressbook__AddressView__methods
	local	2,000000,addressbook__AddressView_load
	local	3,000000,addressbook__AddressView_addRecord
	local	4,000000,addressbook__AddressView_addIRecord
	local	5,000000,addressbook__AddressView_gen
	local	6,000000,addressbook__AddressView_initially
	local	7,000000,lang__Object_clone
	local	8,000000,lang__Object_to_string
	local	9,000000,lang__Object_equals
	local	10,000000,lang__Object_hash_code
	local	11,000000,lang__Object_get_class_name
	local	12,000000,lang__Object_get_id
	local	13,000000,lang__Object_get_class
	local	14,000000,lang__Object_is_instance
	local	15,000000,lang__Object_Type
	local	16,000000,lang__Object_instanceOf
	local	17,000000,lang__Object_className
	local	18,000000,lang__Object_invoke
	local	19,000000,lang__Object_getField
	local	20,000000,lang__Object_setField
	local	21,000000,lang__Object_hasField
	local	22,000000,lang__Object_fieldNames
	local	23,000000,lang__Object_genMethods
	local	24,000000,lang__Object_hasMethod
	declend
	line	18
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	var	23
	var	24
	line	19
	colm	79
	synt	any
	invoke	23
	line	19
	colm	43
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	20
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressDB_loadView
	local	0,001000,self
	local	1,001000,criteria
	local	2,001000,order
	local	3,000000,aView
	local	4,000000,addressbook__AddressView
	local	5,000000,cnt
	local	6,000000,row
	con	0,010000,4,156,141,155,145
	con	1,010000,1,052
	con	2,002000,1,0
	con	3,002000,1,1
	declend
	filen	addressdb.icn
	line	327
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	2
	line	329
	colm	1
	synt	any
	null
	str	0
	line	329
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	329
	colm	11
	synt	any
	field	criteria
	var	1
	line	329
	colm	21
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	330
	colm	11
	synt	any
	field	order
	var	2
	line	330
	colm	18
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	332
	colm	11
	synt	any
	field	db
	line	332
	colm	14
	synt	any
	field	select
	str	1
	var	1
	var	2
	line	332
	colm	21
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	pnull
	var	3
	var	4
	line	333
	colm	40
	synt	any
	invoke	0
	line	333
	colm	13
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	5
	int	2
	line	334
	colm	11
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	335
	colm	7
	synt	every
	mark0
	pnull
	var	6
	pnull
	pnull
	var	0
	line	335
	colm	24
	synt	any
	field	db
	line	335
	colm	27
	synt	any
	field	fetch
	line	335
	colm	33
	synt	any
	invoke	0
	line	335
	colm	17
	synt	any
	asgn
	pop
	mark0
	mark	L10
	pnull
	var	5
	dup
	int	3
	line	336
	colm	14
	synt	any
	plus
	asgn
	unmark
lab L10
	pnull
	var	3
	line	337
	colm	15
	synt	any
	field	addRecord
	var	6
	line	337
	colm	25
	synt	any
	invoke	1
	unmark
lab L8
	efail
lab L9
	line	335
	colm	7
	synt	endevery
	unmark
lab L7
	mark	L11
	mark	L12
	var	3
	line	339
	colm	7
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	340
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressDB_storeAddress
	local	0,001000,self
	local	1,001000,addr
	local	2,000000,a
	local	3,000000,write
	con	0,010000,24,123,164,157,162,145,040,157,146,040,141,144,144,162,145,163,163,040,146,141,151,154,145,144,041
	declend
	line	346
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	1
	line	347
	colm	16
	synt	any
	field	toRecord
	line	347
	colm	25
	synt	any
	invoke	0
	line	347
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	pnull
	var	0
	line	348
	colm	11
	synt	any
	field	db
	line	348
	colm	14
	synt	any
	field	insert
	pnull
	var	1
	line	348
	colm	26
	synt	any
	field	toRecord
	line	348
	colm	35
	synt	any
	invoke	0
	line	348
	colm	21
	synt	any
	invoke	1
	line	348
	colm	38
	synt	any
	esusp
	goto	L4
lab L3
	var	3
	line	348
	colm	45
	synt	any
	keywd	errout
	str	0
	line	348
	colm	44
	synt	any
	invoke	2
lab L4
	unmark
lab L2
	pnull
	line	349
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressDB_reload
	local	0,001000,self
	declend
	line	355
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	356
	colm	18
	synt	any
	field	loadView
	pnull
	var	0
	line	356
	colm	32
	synt	any
	field	criteria
	pnull
	var	0
	line	356
	colm	46
	synt	any
	field	order
	line	356
	colm	27
	synt	any
	invoke	2
	line	356
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	357
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressDB_performSearch
	local	0,001000,self
	local	1,001000,addr
	local	2,000000,a
	local	3,000000,wc
	con	0,010000,0
	con	1,010000,4,156,141,155,145
	con	2,010000,5,151,154,151,153,145
	con	3,010000,5,160,150,157,156,145
	con	4,010000,7,143,157,155,160,141,156,171
	con	5,010000,5,145,155,141,151,154
	con	6,002000,1,0
	declend
	line	366
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	1
	line	367
	colm	16
	synt	any
	field	toIRecord
	line	367
	colm	26
	synt	any
	invoke	0
	line	367
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	str	0
	line	370
	colm	10
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	0
	line	371
	colm	17
	synt	any
	field	setCondition
	var	3
	str	1
	str	2
	pnull
	var	2
	line	371
	colm	50
	synt	any
	field	name
	line	371
	colm	30
	synt	any
	invoke	4
	line	371
	colm	10
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	pnull
	var	0
	line	372
	colm	17
	synt	any
	field	setCondition
	var	3
	str	3
	str	2
	pnull
	var	2
	line	372
	colm	51
	synt	any
	field	phone
	line	372
	colm	30
	synt	any
	invoke	4
	line	372
	colm	10
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	3
	pnull
	var	0
	line	373
	colm	17
	synt	any
	field	setCondition
	var	3
	str	4
	str	2
	pnull
	var	2
	line	373
	colm	53
	synt	any
	field	company
	line	373
	colm	30
	synt	any
	invoke	4
	line	373
	colm	10
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	3
	pnull
	var	0
	line	374
	colm	17
	synt	any
	field	setCondition
	var	3
	str	5
	str	2
	pnull
	var	2
	line	374
	colm	51
	synt	any
	field	email
	line	374
	colm	30
	synt	any
	invoke	4
	line	374
	colm	10
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	3
	pnull
	var	0
	line	375
	colm	17
	synt	any
	field	setCatCondition
	var	3
	pnull
	var	2
	line	375
	colm	38
	synt	any
	field	category
	line	375
	colm	33
	synt	any
	invoke	2
	line	375
	colm	10
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	line	377
	colm	7
	synt	ifelse
	mark	L9
	pnull
	pnull
	var	3
	line	377
	colm	10
	synt	any
	size
	int	6
	line	377
	colm	14
	synt	any
	numgt
	unmark
	mark	L11
	pnull
	var	0
	line	378
	colm	21
	synt	any
	field	loadView
	var	3
	line	378
	colm	30
	synt	any
	invoke	1
	line	378
	colm	10
	synt	any
	pret
lab L11
	synt	any
	pfail
	goto	L10
lab L9
	mark	L12
	pnull
	var	0
	line	381
	colm	21
	synt	any
	field	loadView
	line	381
	colm	30
	synt	any
	invoke	0
	line	381
	colm	10
	synt	any
	pret
lab L12
	synt	any
	pfail
lab L10
	line	377
	colm	7
	synt	endifelse
	unmark
lab L8
	pnull
	line	383
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressDB_setCondition
	local	0,001000,self
	local	1,001000,wc
	local	2,001000,id
	local	3,001000,test
	local	4,001000,value
	local	5,000000,database__DButils
	con	0,010000,1,045
	declend
	line	395
	colm	11
	synt	any
	mark	L1
	line	396
	colm	7
	synt	if
	mark0
	pnull
	var	0
	line	396
	colm	14
	synt	any
	field	isValid
	var	4
	line	396
	colm	22
	synt	any
	invoke	1
	unmark
	mark	L2
	pnull
	var	5
	line	397
	colm	34
	synt	any
	invoke	0
	line	397
	colm	36
	synt	any
	field	addCondition
	var	1
	var	2
	var	3
	pnull
	pnull
	str	0
	var	4
	line	397
	colm	64
	synt	any
	cat
	str	0
	line	397
	colm	71
	synt	any
	cat
	line	397
	colm	49
	synt	any
	invoke	4
	line	397
	colm	10
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	396
	colm	7
	synt	endif
	unmark
lab L1
	pnull
	line	399
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressDB_setCatCondition
	local	0,001000,self
	local	1,001000,wc
	local	2,001000,cats
	local	3,001000,terminator
	local	4,000000,put
	local	5,000000,cList
	local	6,000000,database__DButils
	con	0,010000,1,012
	con	1,002000,1,0
	con	2,010000,1,045
	con	3,010000,8,143,141,164,145,147,157,162,171
	con	4,010000,4,154,151,153,145
	declend
	line	410
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	3
	line	412
	colm	1
	synt	any
	null
	str	0
	line	412
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	411
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	2
	line	411
	colm	10
	synt	any
	size
	int	1
	line	411
	colm	16
	synt	any
	numgt
	unmark
	mark	L3
	line	412
	colm	10
	synt	every
	mark0
	var	4
	pnull
	var	5
	pnull
	line	412
	colm	31
	synt	any
	llist	0
	line	412
	colm	28
	synt	any
	asgn
	pnull
	pnull
	pnull
	str	2
	pnull
	var	2
	line	412
	colm	40
	synt	any
	bang
	line	412
	colm	37
	synt	any
	cat
	var	3
	line	412
	colm	46
	synt	any
	cat
	str	2
	line	412
	colm	58
	synt	any
	cat
	line	412
	colm	21
	synt	any
	invoke	2
	pop
lab L4
	efail
lab L5
	line	412
	colm	10
	synt	endevery
	unmark
lab L3
	mark	L6
	pnull
	var	6
	line	413
	colm	34
	synt	any
	invoke	0
	line	413
	colm	36
	synt	any
	field	addCondition
	var	1
	str	3
	str	4
	var	5
	line	413
	colm	49
	synt	any
	invoke	4
	line	413
	colm	10
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	411
	colm	7
	synt	endif
	unmark
lab L2
	pnull
	line	415
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressDB_isValid
	local	0,001000,self
	local	1,001000,s
	local	2,000000,trim
	con	0,020000,2,011,040
	con	1,002000,1,0
	declend
	line	424
	colm	11
	synt	any
	mark	L1
	line	425
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	2
	pnull
	var	1
	line	425
	colm	16
	synt	any
	nonnull
	cset	0
	line	425
	colm	15
	synt	any
	invoke	2
	line	425
	colm	10
	synt	any
	size
	int	1
	line	425
	colm	26
	synt	any
	numgt
	unmark
	mark	L2
	var	1
	line	425
	colm	35
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	425
	colm	7
	synt	endif
	unmark
lab L1
	pnull
	line	426
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressDB_remove
	local	0,001000,self
	local	1,001000,addr
	con	0,010000,6,156,141,155,145,075,047
	con	1,010000,1,047
	declend
	line	433
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	434
	colm	18
	synt	any
	field	db
	line	434
	colm	21
	synt	any
	field	delete
	pnull
	pnull
	str	0
	pnull
	pnull
	var	1
	line	434
	colm	43
	synt	any
	field	toRecord
	line	434
	colm	52
	synt	any
	invoke	0
	line	434
	colm	54
	synt	any
	field	name
	line	434
	colm	37
	synt	any
	cat
	str	1
	line	434
	colm	59
	synt	any
	cat
	line	434
	colm	28
	synt	any
	invoke	1
	line	434
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	435
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressDB_initially
	local	0,001000,self
	local	1,001000,user
	local	2,001000,passwd
	local	3,001000,dsn
	local	4,001000,tabl
	local	5,000000,database__Database
	con	0,010000,11,141,144,144,162,145,163,163,142,157,157,153
	declend
	line	446
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	4
	line	448
	colm	1
	synt	any
	null
	str	0
	line	448
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	3
	line	447
	colm	4
	synt	any
	null
	var	1
	line	447
	colm	9
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	448
	colm	8
	synt	any
	field	tablName
	var	4
	line	448
	colm	17
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	449
	colm	8
	synt	any
	field	db
	var	5
	var	3
	var	4
	line	449
	colm	31
	synt	any
	invoke	2
	line	449
	colm	11
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	450
	colm	8
	synt	any
	field	db
	line	450
	colm	11
	synt	any
	field	open
	var	1
	var	2
	line	450
	colm	16
	synt	any
	invoke	2
	line	450
	colm	29
	synt	any
	esusp
	goto	L7
lab L6
	line	450
	colm	30
	synt	any
	pfail
lab L7
	unmark
lab L5
	mark	L8
	mark	L9
	pnull
	line	451
	colm	7
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	452
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressDB
	local	0,001000,user
	local	1,001000,passwd
	local	2,001000,dsn
	local	3,001000,tabl
	local	4,000020,self
	local	5,000020,clone
	local	6,000000,addressbook__AddressDB__oprec
	local	7,000000,addressbook__AddressDBinitialize
	local	8,000000,lang__Object__oprec
	local	9,000000,lang__Objectinitialize
	local	10,000000,addressbook__AddressDB__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	line	8
	colm	74
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	54
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	pnull
	pnull
	var	6
	line	10
	colm	32
	synt	any
	field	lang__Object
	var	8
	line	10
	colm	46
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L6
	pnull
	var	4
	var	10
	line	12
	colm	41
	synt	any
	keywd	null
	var	6
	line	12
	colm	40
	synt	any
	invoke	2
	line	12
	colm	8
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	4
	line	13
	colm	7
	synt	any
	field	__s
	var	4
	line	13
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	mark	L9
	pnull
	pnull
	var	4
	line	14
	colm	7
	synt	any
	field	__m
	line	14
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	14
	colm	21
	synt	any
	invoke	5
	line	14
	colm	49
	synt	any
	esusp
	goto	L10
lab L9
	line	14
	colm	51
	synt	any
	pfail
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	var	4
	line	15
	colm	3
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	16
	colm	1
	synt	any
	pfail
	end
proc addressbook__AddressDBinitialize
	local	0,000000,addressbook__AddressDB__oprec
	local	1,000000,addressbook__AddressDB__methods
	local	2,000000,addressbook__AddressDB_loadView
	local	3,000000,addressbook__AddressDB_storeAddress
	local	4,000000,addressbook__AddressDB_reload
	local	5,000000,addressbook__AddressDB_performSearch
	local	6,000000,addressbook__AddressDB_setCondition
	local	7,000000,addressbook__AddressDB_setCatCondition
	local	8,000000,addressbook__AddressDB_isValid
	local	9,000000,addressbook__AddressDB_remove
	local	10,000000,addressbook__AddressDB_initially
	local	11,000000,lang__Object_clone
	local	12,000000,lang__Object_to_string
	local	13,000000,lang__Object_equals
	local	14,000000,lang__Object_hash_code
	local	15,000000,lang__Object_get_class_name
	local	16,000000,lang__Object_get_id
	local	17,000000,lang__Object_get_class
	local	18,000000,lang__Object_is_instance
	local	19,000000,lang__Object_Type
	local	20,000000,lang__Object_instanceOf
	local	21,000000,lang__Object_className
	local	22,000000,lang__Object_invoke
	local	23,000000,lang__Object_getField
	local	24,000000,lang__Object_setField
	local	25,000000,lang__Object_hasField
	local	26,000000,lang__Object_fieldNames
	local	27,000000,lang__Object_genMethods
	local	28,000000,lang__Object_hasMethod
	declend
	line	18
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	var	23
	var	24
	var	25
	var	26
	var	27
	var	28
	line	19
	colm	75
	synt	any
	invoke	27
	line	19
	colm	41
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	20
	colm	1
	synt	any
	pfail
	end
