/3.2
(ODB.1
	Dependencies:	"$AVEXT/dialog.avx\n"
	FirstRootClassName:	"Project"
	Roots:	2
	Version:	32
)

(Project.2
	Name:	"wr_mrsa.apr"
	Creator:	"David Bedford"
	CreationDate:	"Friday, April 07, 2000 11:19:20"
	GUIName:	"Project"
	Win:	3
	CSMgr:	4
	DocExts:	5
	VisGUIWidth:	70
	Doc:	6
	Doc:	10
	Doc:	14
	Doc:	18
	Doc:	22
	Doc:	26
	Doc:	30
	Doc:	34
	Doc:	38
	Doc:	42
	Doc:	46
	Doc:	50
	Doc:	54
	Doc:	58
	Doc:	62
	Doc:	66
	Doc:	70
	Doc:	127
	Doc:	185
	Doc:	189
	Buttons:	193
	Buttons:	194
	Buttons:	195
	Dependencies:	196
	Dependencies:	197
	Scripts:	198
	Prefs:	199
	GUI:	207
	WorkDir:	1169
	WinX:	-1
	WinW:	806
	WinH:	742
	SerialNumber:	"797601100773"
	SelColor:	1170
	GUINames:	1171
	GUINames:	1172
	GUINames:	1173
	GUINames:	1174
	GUINames:	1175
	GUINames:	1176
	GUINames:	1177
	GUINames:	1178
	TocWidthScale:	1.00000000000000
)

(DocWin.3
	Owner:	2
	Open:	1
	X:	5
	Y:	5
	W:	404
	H:	467
)

(CSMgr.4
)

(DocAct.5
	Doc:	2
)

(SEd.6
	Name:	"MRSA.dialog.sedgold.btn.click"
	Creator:	"David Bedford"
	CreationDate:	"Monday, May 08, 2000 05:28:18"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	7
	CSMgr:	8
	DocExts:	9
	Source:	"d = self.getdialog\ncp = d.findbyname(\"aControlPanel1\")\nselbtn = cp.getselected.getname\nif (selbtn = \"rbtn_b\")then\n  thescript = \"MRSA.Make.sedhostedgold.pMz\"\nelseif (selbtn= \"rbtn_c\")then\n  thescript = \"MRSA.Make.sedhostedgold.SilDev\"\nelse\n  'run vanilla sedhostedgold\n  thescript = \"MRSA.Make.sedhostedgold\" \nend\n\n''msgbox.info(\"running:\"++thescript,\"\")\nav.run(thescript,nil)\n"
)

(DocWin.7
	Owner:	6
	X:	351
	Y:	273
	W:	465
	H:	250
)

(CSMgr.8
)

(DocAct.9
	Doc:	6
)

(SEd.10
	Name:	"MRSA.dialog.sedgold.open"
	Creator:	"David Bedford"
	CreationDate:	"Monday, May 08, 2000 05:24:19"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	11
	CSMgr:	12
	DocExts:	13
	Source:	"d = av.finddialog(\"SedGold\")\nd.findbyname(\"rbtn_a\").select"
)

(DocWin.11
	Owner:	10
	X:	413
	Y:	213
	W:	363
	H:	245
)

(CSMgr.12
)

(DocAct.13
	Doc:	10
)

(SEd.14
	Name:	"MRSA.dialog.sedhostedgold.run"
	Creator:	"David Bedford"
	CreationDate:	"Wednesday, May 10, 2000 02:15:12"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	15
	CSMgr:	16
	DocExts:	17
	Source:	"av.finddialog(\"sedgold\").open"
	FontSize:	1
)

(DocWin.15
	Owner:	14
	X:	35
	Y:	35
	W:	363
	H:	245
)

(CSMgr.16
)

(DocAct.17
	Doc:	14
)

(SEd.18
	Name:	"MRSA.dialog.skarn.btn.click"
	Creator:	"David Bedford"
	CreationDate:	"Wednesday, May 10, 2000 01:52:32"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	19
	CSMgr:	20
	DocExts:	21
	Source:	"d = self.getdialog\ncp = d.findbyname(\"aControlPanel1\")\nselbtn = cp.getselected.getname\nif (selbtn = \"rbtn_b\")then\n  thescript = \"MRSA.Make.skarn5km\"\nelseif (selbtn= \"rbtn_c\")then\n  thescript = \"MRSA.Make.skarn5km.age\"\nelse\n  'run vanilla script\n  thescript = \"MRSA.Make.skarn\" \nend\n\n''msgbox.info(\"running:\"++thescript,\"\")\nav.run(thescript,nil)\n"
)

(DocWin.19
	Owner:	18
	X:	423
	Y:	75
	W:	496
	H:	352
)

(CSMgr.20
)

(DocAct.21
	Doc:	18
)

(SEd.22
	Name:	"MRSA.dialog.skarn.open"
	Creator:	"David Bedford"
	CreationDate:	"Wednesday, May 10, 2000 01:53:14"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	23
	CSMgr:	24
	DocExts:	25
	Source:	"self.findbyname(\"rbtn_a\").select"
)

(DocWin.23
	Owner:	22
	X:	311
	Y:	64
	W:	363
	H:	245
)

(CSMgr.24
)

(DocAct.25
	Doc:	22
)

(SEd.26
	Name:	"MRSA.dialog.skarn.run"
	Creator:	"David Bedford"
	CreationDate:	"Wednesday, May 10, 2000 02:13:47"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	27
	CSMgr:	28
	DocExts:	29
	Source:	"av.finddialog(\"Skarns\").open"
)

(DocWin.27
	Owner:	26
	X:	293
	Y:	69
	W:	363
	H:	245
)

(CSMgr.28
)

(DocAct.29
	Doc:	26
)

(SEd.30
	Name:	"MRSA.lithbrowser.run"
	Creator:	"David Bedford"
	CreationDate:	"Saturday, May 13, 2000 04:02:24"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	31
	CSMgr:	32
	DocExts:	33
	Source:	"\n'get project dir\n\nfullnm = av.getproject.getfilename.getfullname\nbasenm = av.getproject.getfilename.getbasename\ndirnm = fullnm.left(fullnm.count - basenm.count)\nfilenm = dirnm + \"lithtree.exe\"\nif (file.exists(filenm.asfilename))then\n  system.execute(filenm)\nend\n\n'_lithclient = ddeclient.make(\"lithtree\",\"treeview|lithlevel\")"
)

(DocWin.31
	Owner:	30
	X:	299
	Y:	66
	W:	634
	H:	307
)

(CSMgr.32
)

(DocAct.33
	Doc:	30
)

(SEd.34
	Name:	"MRSA.Make.AcidBuff"
	Creator:	"David Bedford"
	CreationDate:	"Thursday, May 11, 2000 04:16:07"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	35
	CSMgr:	36
	DocExts:	37
	Source:	"vw = av.getactivedoc\nif (vw.is(View).not)then\n  msgbox.error(\"This script can only be run from a View\",\"ERROR\")\n  return nil\nend\n\nif (vw.getactivethemes.count = 0)then\n  msgbox.error(\"Please select an appropriate theme\", \"Incorrect Theme\")\n  return nil\nend\n\n\n'let user know which layers will be used...\nthmlist = vw.getactivethemes\nif (msgbox.list(thmlist, \"Query will be attempted on the following layers:\", \"Active Layers\") = nil)then\n  return nil\nend\n\n\n\n'loop through active themes\nfor each t in vw.getactivet
hemes\ninthm = t\n\n\nthm = inthm.clone\naftab = thm.getftab\n'***************************\n'check for correct theme type\n\nif (aftab.findfield(\"dataset_id\") = nil)then\n  msgbox.error(\"Theme '\" + t.getname + \"' is not an appropriate theme, skipping.\", \"Incorrect Theme\")\n  continue\nend\n\n'*****\n'Strip away all joins\naftab.unjoinall\n'****************************\n'Do some error checking\nCOAfield = aftab.findfield(\"COA_ID\")\nif (COAfield = nil)then\n  'grab the COA and attach it to the ftab\n  COAIDtable = av.finddoc(\"COAI
D\")\n  if (COAIDtable = nil)then\n    av.run(\"sql.getCOAID\",nil)\n    COAIDtable = av.finddoc(\"COAID\")\n  end\n  COAIDtab = COAIDtable.getvtab\n  ftabspatid = aftab.findfield(\"Spatial_obj_id\")\n  if (ftabspatid = nil)then\n    ftabspatid = aftab.findfield(\"Spatial_ob\")\n  end\n  COAspatid = COAIDtab.findfield(\"Spatial_obj_id\")\n  aftab.join(ftabspatid,COAIDtab,COAspatid)\nend\nCOAfield = aftab.findfield(\"COA_ID\")\n\ntestField = aftab.findfield(\"COA_name\")\nif (testField = nil)then\n  JoinTable = av.finddoc(\"QryAcidBuff\")\n  
if (JoinTable = nil)then\n    av.run(\"sql.fetch\",{\"QryAcidBuff\",\"QryAcidBuff\",\"\"})\n    JoinTable = av.finddoc(\"QryAcidBuff\")\n  end\n  JoinTab = JoinTable.getvtab\n  JoinCOAIDf = JoinTab.findfield(\"COA_ID\")\n  aftab.join(COAfield,JoinTab,JoinCOAIDf) \nend  \n\n'***********************\n'make 2 themes, one for primary, one for secondary carbonates\n\nthmclone = thm.clone\n\n'Symbolize on COA_Name\nfieldname = \"Primary_lith\"\n'***********************\n'check to see that join was sucessful & bail out if not\n'by comparing coun
ts of legends before & after uniquing it\nalegend = thm.getlegend\nprecount = alegend.GetNumClasses\nalegend.setLegendType(#LEGEND_TYPE_UNIQUE)\nalegend.unique(thm,fieldname)\npostcount = alegend.GetNumClasses\nif (precount = postcount)then\n  msgbox.error(\"Query returned no results for\" ++ thm.getname, \"No Query Results\")\n  break\nend\n'********************************\n'show nodata\n'aLegend.DisplayNoDataClass(false)\n's = symbol.make(#SYMBOL_FILL)\n'c = color.getgray\n's.setcolor(c)\n'alegend.setnullsymbol(s)\n'****\n'Re
move outlines of colors\nsymblist = alegend.getsymbols\nc = color.make\nc.settransparent(true)\nfor each s in symblist\n  s.setolcolor(c)\nend\n'****\n'Symbolize on COA_Name\nfieldname = \"second_lith\"\n'***********************\n'check to see that join was sucessful & bail out if not\n'by comparing counts of legends before & after uniquing it\nalegend = thmclone.getlegend\nprecount = alegend.GetNumClasses\nalegend.setLegendType(#LEGEND_TYPE_UNIQUE)\nalegend.unique(thm,fieldname)\npostcount = alegend.GetNumClasses\nif (precoun
t = postcount)then\n  msgbox.error(\"Query returned no results for\" ++ thmclone.getname, \"No Query Results\")\n  break\nend\n'********************************\n'show nodata\n'aLegend.DisplayNoDataClass(false)\n's = symbol.make(#SYMBOL_FILL)\n'c = color.getgray\n's.setcolor(c)\n'alegend.setnullsymbol(s)\n'****\n'Remove outlines of colors\nsymblist = alegend.getsymbols\nc = color.make\nc.settransparent(true)\nfor each s in symblist\n  s.setolcolor(c)\nend\n\nvw.addtheme(thmclone)\nvw.addtheme(thm)\nthm.invalidateLegend\nthmclone.inva
lidateLegend\nthm.setvisible(true)\nthmclone.setvisible(true)\nthm.setname(\"AcidBuff:Primary Carbonates\")\nthmclone.setname(\"AcidBuff:Secondary Carbonates\")\nvw.invalidate\nend 'loop"
	FontSize:	1
)

(DocWin.35
	Owner:	34
	X:	272
	Y:	101
	W:	613
	H:	400
)

(CSMgr.36
)

(DocAct.37
	Doc:	34
)

(SEd.38
	Name:	"MRSA.Make.AgeMap"
	Creator:	"David Bedford"
	CreationDate:	"Wednesday, April 12, 2000 02:30:07"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	39
	CSMgr:	40
	DocExts:	41
	Source:	"vw = av.getactivedoc\nif (vw.is(View).not)then\n  msgbox.error(\"This script can only be run from a View\",\"ERROR\")\n  return nil\nend\n\nif (vw.getactivethemes.count = 0)then\n  msgbox.error(\"Please select an appropriate theme\", \"Incorrect Theme\")\n  return nil\nend\n\n\n'let user know which layers will be used...\nthmlist = vw.getactivethemes\nif (msgbox.list(thmlist, \"Query will be attempted on the following layers:\", \"Active Layers\") = nil)then\n  return nil\nend\n\n\n\n'****************************\n'Ask Which age to General
ize to\nagelist = {\"Minimum Age\",\"Maximum Age\"}\nachoice = msgbox.listasstring(agelist,\"Select the Age to Generalize to\",\"AGE\")\nif (achoice = nil)then\n  return nil\nelse\n  if (achoice = \"Minimum Age\")then\n    agefield = \"min\"\n  else\n    agefield = \"max\"\n  end\nend\n'Ask The level to generalize to\nlevlist = {\"Eon\",\"Era\",\"Period\",\"Subperiod\",\"Epoch\"}\nGenLevel = msgbox.listasstring(levlist,\"Select a Classification Level\",\"Classification\")\nif (genlevel = nil) then return nil end\n'********************************\n\n'l
oop through active themes\nfor each t in vw.getactivethemes\ninthm = t\n\n\nthm = inthm.clone\naftab = thm.getftab\n'***************************\n'check for correct theme type\n\nif (aftab.findfield(\"dataset_id\") = nil)then\n  msgbox.error(\"Theme '\" + t.getname + \"' is not an appropriate theme, skipping.\", \"Incorrect Theme\")\n  continue\nend\n\n'****************************\n'Force the removal of all joins\naftab.unjoinall\n'****************************\n'Do some error checking\nCOAfield = aftab.findfield(\"COA_ID\")\nif (COAfiel
d = nil)then\n  'grab the COA and attach it to the ftab\n  COAIDtable = av.finddoc(\"COAID\")\n  if (COAIDtable = nil)then\n    av.run(\"sql.getCOAID\",nil)\n    COAIDtable = av.finddoc(\"COAID\")\n  end\n  COAIDtab = COAIDtable.getvtab\n  ftabspatid = aftab.findfield(\"Spatial_obj_id\")\n  if (ftabspatid = nil)then\n    ftabspatid = aftab.findfield(\"Spatial_ob\")\n  end\n  COAspatid = COAIDtab.findfield(\"Spatial_obj_id\")\n  aftab.join(ftabspatid,COAIDtab,COAspatid)\nend\nCOAfield = aftab.findfield(\"COA_ID\")\n\n'Force the removal of
 all old docs..\n'patch together the name of table to grab\nsqlname = \"QryGenTo\"+agefield.proper+genlevel\n\nJoinDoc = av.finddoc(sqlname)\nif ((JoinDoc = nil).not)then\n  av.getproject.removedoc(JoinDoc)\nend\n\nJoinField = aftab.findfield(\"min_age\")\nif (JoinField = nil)then\n    wherephrase = \"Where\"++agefield+\"_parent_rank = '\"+genlevel+\"'\" \n    wherephrase = \"\"\n    fieldlist = {\"COA_ID\"}\n    fieldlist.add(\",\")\n    fieldlist.add(agefield+\"_parent_rank\")\n    av.run(\"sql.fetch\",{sqlname,sqlname, wherephrase})\n    Jo
inTable = av.finddoc(sqlname)\n  JoinTab = JoinTable.getvtab\n  JoinCOAIDf = JoinTab.findfield(\"COA_ID\")\n  aftab.join(COAfield,JoinTab,JoinCOAIDf) \nend  \n\n\n'*********************************************************\nfieldname = agefield+\"_parent_age\"\n'***********************\n'check to see that join was sucessful & bail out if not\n'by comparing counts of legends before & after uniquing it\nalegend = thm.getlegend\nprecount = alegend.GetNumClasses\nalegend.setLegendType(#LEGEND_TYPE_UNIQUE)\nalegend.unique(thm,field
name)\npostcount = alegend.GetNumClasses\nif (precount = postcount)then\n  msgbox.error(\"Query returned no results for\" ++ thm.getname, \"No Query Results\")\n  break\nend\n'********************************\n'show nodata\naLegend.DisplayNoDataClass(true)\ns = symbol.make(#SYMBOL_FILL)\nc = color.getgray\ns.setcolor(c)\nalegend.setnullsymbol(s)\n'****\n'Remove outlines of colors\nsymblist = alegend.getsymbols\nc = color.make\nc.settransparent(true)\nfor each s in symblist\n  s.setolcolor(c)\nend\n'****\nvw.addtheme(thm)\nthm.invalid
ateLegend\nthm.setvisible(true)\nthm.getftab.getselection.clearall\nthm.setname(\"Age of Rocks By\" ++ genlevel)\nvw.invalidate\nend 'loop"
	FontSize:	1
)

(DocWin.39
	Owner:	38
	X:	149
	Y:	149
	W:	816
	H:	420
)

(CSMgr.40
)

(DocAct.41
	Doc:	38
)

(SEd.42
	Name:	"MRSA.Make.Lithmap"
	Creator:	"David Bedford"
	CreationDate:	"Saturday, May 13, 2000 04:35:15"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	43
	CSMgr:	44
	DocExts:	45
	Source:	"lithlevel = msgbox.listasstring({\"1\",\"2\",\"3\",\"4\",\"5\"},\"Select a lithology level\"+NL+\"Lower numbers are more generalized lithologies\",\"Lithology Level\")\nif (lithlevel = nil )then return nil end\n\n\nvw = av.getactivedoc\nif (vw.is(View).not)then\n  msgbox.error(\"This script can only be run from a View\",\"ERROR\")\n  return nil\nend\n\nif (vw.getactivethemes.count = 0)then\n  msgbox.error(\"Please select an appropriate theme\", \"Incorrect Theme\")\n  return nil\nend\n\n\n'let user know which layers will be used...\nthmlist = vw.g
etactivethemes\nif (msgbox.list(thmlist, \"Query will be attempted on the following layers:\", \"Active Layers\") = nil)then\n  return nil\nend\n\n\n\n'loop through active themes\nfor each t in vw.getactivethemes\ninthm = t\n\n\nthm = inthm.clone\naftab = thm.getftab\n'***************************\n'check for correct theme type\n\nif (aftab.findfield(\"dataset_id\") = nil)then\n  msgbox.error(\"Theme '\" + t.getname + \"' is not an appropriate theme, skipping.\", \"Incorrect Theme\")\n  continue\nend\n\n'*****\n'Strip away all joins\naftab.unj
oinall\n'****************************\n'****************************\n'Force the removal of all joins\naftab.unjoinall\n'****************************\n'Do some error checking\nCOAfield = aftab.findfield(\"COA_ID\")\nif (COAfield = nil)then\n  'grab the COA and attach it to the ftab\n  COAIDtable = av.finddoc(\"COAID\")\n  if (COAIDtable = nil)then\n    av.run(\"sql.getCOAID\",nil)\n    COAIDtable = av.finddoc(\"COAID\")\n  end\n  COAIDtab = COAIDtable.getvtab\n  ftabspatid = aftab.findfield(\"Spatial_obj_id\")\n  if (ftabspatid = nil
)then\n    ftabspatid = aftab.findfield(\"Spatial_ob\")\n  end\n  COAspatid = COAIDtab.findfield(\"Spatial_obj_id\")\n  aftab.join(ftabspatid,COAIDtab,COAspatid)\nend\nCOAfield = aftab.findfield(\"COA_ID\")\n\n\n'patch together the name of table to grab\nsqlname = \"QryGenToLith\"\n\n'Force the removal of all old docs..\nJoinDoc = av.finddoc(sqlname)\nif ((JoinDoc = nil).not)then\n  av.getproject.removedoc(JoinDoc)\nend\n\n\nJoinField = aftab.findfield(\"lithology\")\nif (JoinField = nil)then\n    wherephrase = \"Where Lith_level = \"++lit
hlevel.asstring\n    av.run(\"sql.fetch\",{sqlname,sqlname, wherephrase})\n    JoinTable = av.finddoc(sqlname)\n  JoinTab = JoinTable.getvtab\n  if (jointab.GetNumRecords = 0)then\n     msgbox.error(\"Query returned no records\",\"Error\")\n     return nil\n   end\n\n  JoinCOAIDf = JoinTab.findfield(\"COA_ID\")\n  aftab.join(COAfield,JoinTab,JoinCOAIDf) \nend  \n\n\n'*********************************************************\nfieldname = \"lithology\"\n'***********************\n'check to see that join was sucessful & bail out if not\n'
by comparing counts of legends before & after uniquing it\nalegend = thm.getlegend\nprecount = alegend.GetNumClasses\nalegend.setLegendType(#LEGEND_TYPE_UNIQUE)\nalegend.unique(thm,fieldname)\npostcount = alegend.GetNumClasses\nif (precount = postcount)then\n  msgbox.error(\"Query returned no results for\" ++ thm.getname, \"No Query Results\")\n  break\nend\n'********************************\n'show nodata\naLegend.DisplayNoDataClass(true)\ns = symbol.make(#SYMBOL_FILL)\nc = color.getgray\ns.setcolor(c)\nalegend.setnullsymbol(s
)\n'****\n'Remove outlines of colors\nsymblist = alegend.getsymbols\nc = color.make\nc.settransparent(true)\nfor each s in symblist\n  s.setolcolor(c)\nend\n'****\nvw.addtheme(thm)\nthm.invalidateLegend\nthm.setvisible(true)\nthm.getftab.getselection.clearall\nthm.setname(\"Lithology (level\"++lithlevel.asstring+\")\")\nvw.invalidate\nend 'loop"
	FontSize:	1
)

(DocWin.43
	Owner:	42
	X:	236
	Y:	67
	W:	701
	H:	556
)

(CSMgr.44
)

(DocAct.45
	Doc:	42
)

(SEd.46
	Name:	"MRSA.Make.sedhostedgold"
	Creator:	"David Bedford"
	CreationDate:	"Monday, May 08, 2000 05:41:23"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	47
	CSMgr:	48
	DocExts:	49
	Source:	"vw = av.getactivedoc\nif (vw.is(View).not)then\n  msgbox.error(\"This script can only be run from a View\",\"ERROR\")\n  return nil\nend\n\nif (vw.getactivethemes.count = 0)then\n  msgbox.error(\"Please select an appropriate theme\", \"Incorrect Theme\")\n  return nil\nend\n\n'let user know which layers will be used...\nthmlist = vw.getactivethemes\nif (msgbox.list(thmlist, \"Query will be attempted on the following layers:\", \"Active Layers\") = nil)then\n  return nil\nend\n\n\n'loop through active themes\nfor each t in vw.getactivethe
mes\ninthm = t\n\n\nthm = inthm.clone\naftab = thm.getftab\n'***************************\n'check for correct theme type\n\nif (aftab.findfield(\"dataset_id\") = nil)then\n  msgbox.error(\"Theme '\" + t.getname + \"' is not an appropriate theme, skipping.\", \"Incorrect Theme\")\n  continue\nend\n\n'*****\n'Strip away all joins\naftab.unjoinall\n'****************************\n'Do some error checking\nCOAfield = aftab.findfield(\"COA_ID\")\nif (COAfield = nil)then\n  'grab the COA and attach it to the ftab\n  COAIDtable = av.finddoc(\"COAID\"
)\n  if (COAIDtable = nil)then\n    av.run(\"sql.getCOAID\",nil)\n    COAIDtable = av.finddoc(\"COAID\")\n  end\n  COAIDtab = COAIDtable.getvtab\n  ftabspatid = aftab.findfield(\"Spatial_obj_id\")\n  if (ftabspatid = nil)then\n    ftabspatid = aftab.findfield(\"Spatial_ob\")\n  end\n  COAspatid = COAIDtab.findfield(\"Spatial_obj_id\")\n  aftab.join(ftabspatid,COAIDtab,COAspatid)\nend\nCOAfield = aftab.findfield(\"COA_ID\")\n\ntestField = aftab.findfield(\"COA_name\")\nif (testField = nil)then\n  JoinTable = av.finddoc(\"QryCarbAndMuds\")\n 
 if (JoinTable = nil)then\n    av.run(\"sql.fetch\",{\"QryCarbAndMuds\",\"QryCarbAndMuds\",\"\"})\n    JoinTable = av.finddoc(\"QryCarbAndMuds\")\n  end\n  JoinTab = JoinTable.getvtab\n  JoinCOAIDf = JoinTab.findfield(\"COA_ID\")\n  aftab.join(COAfield,JoinTab,JoinCOAIDf) \nend  \n\n'***********************\n'Symbolize\nfieldname = \"coa_name\"\n'***********************\n'check to see that join was sucessful & bail out if not\n'by comparing counts of legends before & after uniquing it\nalegend = thm.getlegend\nprecount = alegend.GetNumC
lasses\nalegend.setLegendType(#LEGEND_TYPE_UNIQUE)\nalegend.unique(thm,fieldname)\npostcount = alegend.GetNumClasses\nif (precount = postcount)then\n  msgbox.error(\"Query returned no results for\" ++ thm.getname, \"No Query Results\")\n  break\nend\n'********************************\n'show nodata\naLegend.DisplayNoDataClass(true)\ns = symbol.make(#SYMBOL_FILL)\nc = color.getgray\ns.setcolor(c)\nalegend.setnullsymbol(s)\n'****\n'Remove outlines of colors\nsymblist = alegend.getsymbols\nc = color.make\nc.settransparent(true)\nfor e
ach s in symblist\n  s.setolcolor(c)\nend\n'****\nvw.addtheme(thm)\nthm.invalidateLegend\nthm.setvisible(true)\nthm.setname(\"Sediment Hosted Au Deposits\")\nvw.invalidate\nend 'loop"
	FontSize:	1
)

(DocWin.47
	Owner:	46
	X:	273
	Y:	113
	W:	663
	H:	293
)

(CSMgr.48
)

(DocAct.49
	Doc:	46
)

(SEd.50
	Name:	"MRSA.Make.sedhostedgold.pMz"
	Creator:	"David Bedford"
	CreationDate:	"Monday, May 08, 2000 05:45:44"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	51
	CSMgr:	52
	DocExts:	53
	Source:	"vw = av.getactivedoc\nif (vw.is(View).not)then\n  msgbox.error(\"This script can only be run from a View\",\"ERROR\")\n  return nil\nend\n\nif (vw.getactivethemes.count = 0)then\n  msgbox.error(\"Please select an appropriate theme\", \"Incorrect Theme\")\n  return nil\nend\n\n\n'let user know which layers will be used...\nthmlist = vw.getactivethemes\nif (msgbox.list(thmlist, \"Query will be attempted on the following layers:\", \"Active Layers\") = nil)then\n  return nil\nend\n\n\n\n'loop through active themes\nfor each t in vw.getactivet
hemes\ninthm = t\n\n\nthm = inthm.clone\naftab = thm.getftab\n'***************************\n'check for correct theme type\n\nif (aftab.findfield(\"dataset_id\") = nil)then\n  msgbox.error(\"Theme '\" + t.getname + \"' is not an appropriate theme, skipping.\", \"Incorrect Theme\")\n  continue\nend\n\n'*****\n'Strip away all joins\naftab.unjoinall\n'****************************\n'Do some error checking\nCOAfield = aftab.findfield(\"COA_ID\")\nif (COAfield = nil)then\n  'grab the COA and attach it to the ftab\n  COAIDtable = av.finddoc(\"COAI
D\")\n  if (COAIDtable = nil)then\n    av.run(\"sql.getCOAID\",nil)\n    COAIDtable = av.finddoc(\"COAID\")\n  end\n  COAIDtab = COAIDtable.getvtab\n  ftabspatid = aftab.findfield(\"Spatial_obj_id\")\n  if (ftabspatid = nil)then\n    ftabspatid = aftab.findfield(\"Spatial_ob\")\n  end\n  COAspatid = COAIDtab.findfield(\"Spatial_obj_id\")\n  aftab.join(ftabspatid,COAIDtab,COAspatid)\nend\nCOAfield = aftab.findfield(\"COA_ID\")\n\n'******\n'add a where clause for pre-mesozoic rx\nwherephrase = \"where Min_age > 250\"\n\ntestField = aftab.find
field(\"COA_name\")\nif (testField = nil)then\n  JoinTable = av.finddoc(\"QryCarbAndMudsAgePMZ\")\n  if (JoinTable = nil)then\n    av.run(\"sql.fetch\",{\"QryCarbAndMudsAge\",\"QryCarbAndMudsAgePMZ\",wherephrase})\n    JoinTable = av.finddoc(\"QryCarbAndMudsAgePMZ\")\n  end\n  JoinTab = JoinTable.getvtab\n  JoinCOAIDf = JoinTab.findfield(\"COA_ID\")\n  aftab.join(COAfield,JoinTab,JoinCOAIDf) \nend  \n\n'***********************\n'Symbolize \nfieldname = \"coa_name\"\n'***********************\n'check to see that join was sucessful & bail ou
t if not\n'by comparing counts of legends before & after uniquing it\nalegend = thm.getlegend\nprecount = alegend.GetNumClasses\nalegend.setLegendType(#LEGEND_TYPE_UNIQUE)\nalegend.unique(thm,fieldname)\npostcount = alegend.GetNumClasses\nif (precount = postcount)then\n  msgbox.error(\"Query returned no results for\" ++ thm.getname, \"No Query Results\")\n  break\nend\n'********************************\n'****\n'show nodata\naLegend.DisplayNoDataClass(true)\ns = symbol.make(#SYMBOL_FILL)\nc = color.getgray\ns.setcolor(c)\nalegend
.setnullsymbol(s)\n'****\n'Remove outlines of colors\nsymblist = alegend.getsymbols\nc = color.make\nc.settransparent(true)\nfor each s in symblist\n  s.setolcolor(c)\nend\n'****\nvw.addtheme(thm)\nthm.invalidateLegend\nthm.setvisible(true)\nthm.setname(\"Pre-Mesozoic Sediment Hosted Au Deposits\")\nvw.invalidate\nend 'loop"
	FontSize:	1
)

(DocWin.51
	Owner:	50
	X:	314
	Y:	86
	W:	655
	H:	380
)

(CSMgr.52
)

(DocAct.53
	Doc:	50
)

(SEd.54
	Name:	"MRSA.Make.sedhostedgold.SilDev"
	Creator:	"David Bedford"
	CreationDate:	"Monday, May 08, 2000 06:04:34"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	55
	CSMgr:	56
	DocExts:	57
	Source:	"vw = av.getactivedoc\nif (vw.is(View).not)then\n  msgbox.error(\"This script can only be run from a View\",\"ERROR\")\n  return nil\nend\n\nif (vw.getactivethemes.count = 0)then\n  msgbox.error(\"Please select an appropriate theme\", \"Incorrect Theme\")\n  return nil\nend\n\n\n'let user know which layers will be used...\nthmlist = vw.getactivethemes\nif (msgbox.list(thmlist, \"Query will be attempted on the following layers:\", \"Active Layers\") = nil)then\n  return nil\nend\n\n\n\n'loop through active themes\nfor each t in vw.getactivet
hemes\ninthm = t\n\n\nthm = inthm.clone\naftab = thm.getftab\n'***************************\n'check for correct theme type\n\nif (aftab.findfield(\"dataset_id\") = nil)then\n  msgbox.error(\"Theme '\" + t.getname + \"' is not an appropriate theme, skipping.\", \"Incorrect Theme\")\n  continue\nend\n\n'*****\n'Strip away all joins\naftab.unjoinall\n'****************************\n'Do some error checking\nCOAfield = aftab.findfield(\"COA_ID\")\nif (COAfield = nil)then\n  'grab the COA and attach it to the ftab\n  COAIDtable = av.finddoc(\"COAI
D\")\n  if (COAIDtable = nil)then\n    av.run(\"sql.getCOAID\",nil)\n    COAIDtable = av.finddoc(\"COAID\")\n  end\n  COAIDtab = COAIDtable.getvtab\n  ftabspatid = aftab.findfield(\"Spatial_obj_id\")\n  if (ftabspatid = nil)then\n    ftabspatid = aftab.findfield(\"Spatial_ob\")\n  end\n  COAspatid = COAIDtab.findfield(\"Spatial_obj_id\")\n  aftab.join(ftabspatid,COAIDtab,COAspatid)\nend\nCOAfield = aftab.findfield(\"COA_ID\")\n'******\n'add a where clause for silurian-devonian rx\nwherephrase = \"where Min_age > 360 and Min_age < 440\"\nt
estField = aftab.findfield(\"COA_name\")\nif (testField = nil)then\n  JoinTable = av.finddoc(\"QryCarbAndMudsAgeSilDev\")\n  if (JoinTable = nil)then\n    av.run(\"sql.fetch\",{\"QryCarbAndMudsAge\",\"QryCarbAndMudsAgeSilDev\",wherephrase})\n    JoinTable = av.finddoc(\"QryCarbAndMudsAgeSilDev\")\n  end\n  JoinTab = JoinTable.getvtab\n  JoinCOAIDf = JoinTab.findfield(\"COA_ID\")\n  aftab.join(COAfield,JoinTab,JoinCOAIDf) \nend  \n\n'***********************\n'Symbolize\nfieldname = \"coa_name\"\n'***********************\n'check to see that
 join was sucessful & bail out if not\n'by comparing counts of legends before & after uniquing it\nalegend = thm.getlegend\nprecount = alegend.GetNumClasses\nalegend.setLegendType(#LEGEND_TYPE_UNIQUE)\nalegend.unique(thm,fieldname)\npostcount = alegend.GetNumClasses\nif (precount = postcount)then\n  msgbox.error(\"Query returned no results for\" ++ thm.getname, \"No Query Results\")\n  break\nend\n'********************************\n'show nodata\naLegend.DisplayNoDataClass(true)\ns = symbol.make(#SYMBOL_FILL)\nc = color.getgra
y\ns.setcolor(c)\nalegend.setnullsymbol(s)\n'****\n'Remove outlines of colors\nsymblist = alegend.getsymbols\nc = color.make\nc.settransparent(true)\nfor each s in symblist\n  s.setolcolor(c)\nend\n'****\nvw.addtheme(thm)\nthm.invalidateLegend\nthm.setvisible(true)\nthm.setname(\"Silurian and Devonian Sediment Hosted Au Deposits\")\nvw.invalidate\nend 'loop"
	FontSize:	1
)

(DocWin.55
	Owner:	54
	X:	247
	Y:	116
	W:	534
	H:	300
)

(CSMgr.56
)

(DocAct.57
	Doc:	54
)

(SEd.58
	Name:	"MRSA.Make.skarn"
	Creator:	"David Bedford"
	CreationDate:	"Wednesday, May 10, 2000 05:28:47"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	59
	CSMgr:	60
	DocExts:	61
	Source:	"vw = av.getactivedoc\nif (vw.is(View).not)then\n  msgbox.error(\"This script can only be run from a View\",\"ERROR\")\n  return nil\nend\n\nif (vw.getactivethemes.count = 0)then\n  msgbox.error(\"Please select an appropriate theme\", \"Incorrect Theme\")\n  return nil\nend\n\n\n'let user know which layers will be used...\nthmlist = vw.getactivethemes\nif (msgbox.list(thmlist, \"Query will be attempted on the following layers:\", \"Active Layers\") = nil)then\n  return nil\nend\n\n\n\n'loop through active themes\nfor each t in vw.getactivet
hemes\ninthm = t\n\n\nthm = inthm.clone\naftab = thm.getftab\n'***************************\n'check for correct theme type\n\nif (aftab.findfield(\"dataset_id\") = nil)then\n  msgbox.error(\"Theme '\" + t.getname + \"' is not an appropriate theme, skipping.\", \"Incorrect Theme\")\n  continue\nend\n\n'*****\n'Strip away all joins\naftab.unjoinall\n'****************************\n'Do some error checking\nCOAfield = aftab.findfield(\"COA_ID\")\nif (COAfield = nil)then\n  'grab the COA and attach it to the ftab\n  COAIDtable = av.finddoc(\"COAI
D\")\n  if (COAIDtable = nil)then\n    av.run(\"sql.getCOAID\",nil)\n    COAIDtable = av.finddoc(\"COAID\")\n  end\n  COAIDtab = COAIDtable.getvtab\n  ftabspatid = aftab.findfield(\"Spatial_obj_id\")\n  if (ftabspatid = nil)then\n    ftabspatid = aftab.findfield(\"Spatial_ob\")\n  end\n  COAspatid = COAIDtab.findfield(\"Spatial_obj_id\")\n  aftab.join(ftabspatid,COAIDtab,COAspatid)\nend\nCOAfield = aftab.findfield(\"COA_ID\")\n\nParentField = aftab.findfield(\"Parent_class\")\nif (ParentField = nil)then\n  SkarnTable = av.finddoc(\"QryIntr
usiveCarbonates\")\n  if (SkarnTable = nil)then\n    av.run(\"sql.fetch\",{\"QryIntrusiveCarbonates\",\"QryIntrusiveCarbonates\",\"\"})\n    SkarnTable = av.finddoc(\"QryIntrusiveCarbonates\")\n  end\n  SkarnTab = SkarnTable.getvtab\n  SkarnCOAIDf = SkarnTab.findfield(\"COA_ID\")\n  aftab.join(COAfield,SkarnTab,SkarnCOAIDf) \nend  \n\n'***********************\n'select intrusive rocks\narock = \"Plutonic rock (Phaneritic)\"\naquery = \"[Parent_class] = \" ++ arock.quote\n\n'''msgbox.info(aquery,\"\")\n\naftab.query(aquery,aftab.getselection,#V
TAB_SELTYPE_NEW)\naftab.UpdateSelection\n\n'**********************\n'select all features next to current selection\naftab.SelectByFTab (aftab,#FTAB_RELTYPE_ISWITHINDISTANCEOF, 0, #VTAB_SELTYPE_NEW)\naftab.UpdateSelection\n\n'***********************\n'now only select carbonates from the selection\narock = \"Carbonate\"\naquery = \"[Parent_class] = \" ++ arock.quote\naftab.query(aquery,aftab.getselection,#VTAB_SELTYPE_AND)\naftab.UpdateSelection\n'***********************\n'export selection to new theme\n\nif (thm.CanExportToFtab)
 then\n  def = av.GetProject.MakeFileName(\"skarn\", \"shp\")\n  anFTab = thm.ExportToFtab(def)\n  ' create a theme and add it to the View\n  fthm = FTheme.Make(anFTab)\n  fthm.setname(\"Intruded Carbonates (Skarn)\")\n  fthm.setvisible(true) \nend\n'****************\n'Symbolize\nfieldname = \"lith_class\"\n'***********************\n'check to see that join was sucessful & bail out if not\n'by comparing counts of legends before & after uniquing it\nalegend = fthm.getlegend\nprecount = alegend.GetNumClasses\nalegend.setLegendType(#L
EGEND_TYPE_UNIQUE)\nalegend.unique(fthm,fieldname)\npostcount = alegend.GetNumClasses\nif (precount = postcount)then\n  msgbox.error(\"Query returned no results for\" ++ thm.getname, \"No Query Results\")\n  break\nend\n'********************************\n'show nodata\naLegend.DisplayNoDataClass(true)\ns = symbol.make(#SYMBOL_FILL)\nc = color.getgray\ns.setcolor(c)\nalegend.setnullsymbol(s)\n'****\n'Remove outlines of colors\nsymblist = alegend.getsymbols\nc = color.make\nc.settransparent(true)\nfor each s in symblist\n  s.setolcol
or(c)\nend\n'****\n'****\nvw.addtheme(fthm)\nfthm.invalidateLegend\nfthm.setvisible(true)\nvw.invalidate\nend 'loop"
	FontSize:	1
)

(DocWin.59
	Owner:	58
	X:	189
	Y:	45
	W:	596
	H:	366
)

(CSMgr.60
)

(DocAct.61
	Doc:	58
)

(SEd.62
	Name:	"MRSA.Make.skarn5km"
	Creator:	"David Bedford"
	CreationDate:	"Wednesday, May 10, 2000 02:00:01"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	63
	CSMgr:	64
	DocExts:	65
	Source:	"vw = av.getactivedoc\nif (vw.is(View).not)then\n  msgbox.error(\"This script can only be run from a View\",\"ERROR\")\n  return nil\nend\n\nif (vw.getactivethemes.count = 0)then\n  msgbox.error(\"Please select an appropriate theme\", \"Incorrect Theme\")\n  return nil\nend\n\n\n'let user know which layers will be used...\nthmlist = vw.getactivethemes\nif (msgbox.list(thmlist, \"Query will be attempted on the following layers:\", \"Active Layers\") = nil)then\n  return nil\nend\n\n\n\n'loop through active themes\nfor each t in vw.getactivet
hemes\ninthm = t\n\n\nthm = inthm.clone\naftab = thm.getftab\n'***************************\n'check for correct theme type\n\nif (aftab.findfield(\"dataset_id\") = nil)then\n  msgbox.error(\"Theme '\" + t.getname + \"' is not an appropriate theme, skipping.\", \"Incorrect Theme\")\n  continue\nend\n\n'check for map units...bail if undefined\nif (av.GetActiveDoc.GetDisplay.GetUnits = #UNITS_LINEAR_UNKNOWN) then\n  msgbox.error (\"The View's Map Units need to be defined for this query to work\", \"Set Map Units\") \n  exit\nend\n\n'*****\n'St
rip away all joins\naftab.unjoinall\n'****************************\n'Do some error checking\nCOAfield = aftab.findfield(\"COA_ID\")\nif (COAfield = nil)then\n  'grab the COA and attach it to the ftab\n  COAIDtable = av.finddoc(\"COAID\")\n  if (COAIDtable = nil)then\n    av.run(\"sql.getCOAID\",nil)\n    COAIDtable = av.finddoc(\"COAID\")\n  end\n  COAIDtab = COAIDtable.getvtab\n  ftabspatid = aftab.findfield(\"Spatial_obj_id\")\n  if (ftabspatid = nil)then\n    ftabspatid = aftab.findfield(\"Spatial_ob\")\n  end\n  COAspatid = COAIDta
b.findfield(\"Spatial_obj_id\")\n  aftab.join(ftabspatid,COAIDtab,COAspatid)\nend\nCOAfield = aftab.findfield(\"COA_ID\")\nParentField = aftab.findfield(\"Parent_class\")\nif (ParentField = nil)then\n  SkarnTable = av.finddoc(\"QryIntrusiveCarbonates\")\n  if (SkarnTable = nil)then\n    av.run(\"sql.fetch\",{\"QryIntrusiveCarbonates\",\"QryIntrusiveCarbonates\",\"\"})\n    SkarnTable = av.finddoc(\"Intr-Carb\")\n  end\n  SkarnTab = SkarnTable.getvtab\n  SkarnCOAIDf = SkarnTab.findfield(\"COA_ID\")\n  aftab.join(COAfield,SkarnTab,SkarnCOAID
f) \nend  \n\n'***********************\n'select intrusive rocks\narock = \"Plutonic rock (Phaneritic)\"\naquery = \"[Parent_class] = \" ++ arock.quote\n\n'''msgbox.info(aquery,\"\")\n\naftab.query(aquery,aftab.getselection,#VTAB_SELTYPE_NEW)\naftab.UpdateSelection\n\n'**********************\n'select all features within 5km of current selection\n' 5000 meters in map units is... \ndistance = Units.Convert( 5000, #UNITS_LINEAR_METERS ,av.GetActiveDoc.GetDisplay.GetUnits )\naftab.SelectByFTab (aftab,#FTAB_RELTYPE_ISWITHINDISTANCEOF, 
distance, #VTAB_SELTYPE_NEW)\naftab.UpdateSelection\n\n'***********************\n'now only select carbonates from the selection\narock = \"Carbonate\"\naquery = \"[Parent_class] = \" ++ arock.quote\naftab.query(aquery,aftab.getselection,#VTAB_SELTYPE_AND)\naftab.UpdateSelection\n'***********************\n'export selection to new theme\n\nif (thm.CanExportToFtab) then\n  def = av.GetProject.MakeFileName(\"skarn\", \"shp\")\n  anFTab = thm.ExportToFtab(def)\n  ' create a theme and add it to the View\n  fthm = FTheme.Make(anFTab)\n  f
thm.setname(\"Carbonate Units within 5 Km of Intrusive Rocks (Skarn)\")\n  fthm.setvisible(true) \nend\n'****************\n'Symbolize\nfieldname = \"lith_class\"\n'***********************\n'check to see that join was sucessful & bail out if not\n'by comparing counts of legends before & after uniquing it\nalegend = fthm.getlegend\nprecount = alegend.GetNumClasses\nalegend.setLegendType(#LEGEND_TYPE_UNIQUE)\nalegend.unique(fthm,fieldname)\npostcount = alegend.GetNumClasses\nif (precount = postcount)then\n  msgbox.error(\"Query r
eturned no results for\" ++ fthm.getname, \"No Query Results\")\n  break\nend\n'********************************\n'show nodata\naLegend.DisplayNoDataClass(true)\ns = symbol.make(#SYMBOL_FILL)\nc = color.getgray\ns.setcolor(c)\nalegend.setnullsymbol(s)\n'****\n'Remove outlines of colors\nsymblist = alegend.getsymbols\nc = color.make\nc.settransparent(true)\nfor each s in symblist\n  s.setolcolor(c)\nend\n'****\n'****\nvw.addtheme(fthm)\nfthm.invalidateLegend\nfthm.setvisible(true)\nvw.invalidate\nend 'loop"
	FontSize:	1
)

(DocWin.63
	Owner:	62
	X:	288
	Y:	81
	W:	713
	H:	441
)

(CSMgr.64
)

(DocAct.65
	Doc:	62
)

(SEd.66
	Name:	"MRSA.Make.skarn5km.age"
	Creator:	"David Bedford"
	CreationDate:	"Wednesday, May 10, 2000 01:59:13"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	67
	CSMgr:	68
	DocExts:	69
	Source:	"vw = av.getactivedoc\nif (vw.is(View).not)then\n  msgbox.error(\"This script can only be run from a View\",\"ERROR\")\n  return nil\nend\n\nch = MsgBox.YesNo (\"This query will take SEVERAL minutes to complete.  Do you want to perform this query?\", \"Long Query\", true)\nif ((ch).not)then 'quit\n  return nil\nend\n\n\nif (vw.getactivethemes.count = 0)then\n  msgbox.error(\"Please select an appropriate theme\", \"Incorrect Theme\")\n  return nil\nend\n\n\n'let user know which layers will be used...\nthmlist = vw.getactivethemes\nif (msgbo
x.list(thmlist, \"Query will be attempted on the following layers:\", \"Active Layers\") = nil)then\n  return nil\nend\n\n\n\n'loop through active themes\nfor each t in vw.getactivethemes\ninthm = t\n\n\nthm = inthm.clone\naftab = thm.getftab\n\n'***************************\n'check for correct theme type\n\nif (aftab.findfield(\"dataset_id\") = nil)then\n  msgbox.error(\"Theme '\" + t.getname + \"' is not an appropriate theme, skipping.\", \"Incorrect Theme\")\n  continue\nend\n\n'check for map units...bail if undefined\nif (av.GetActiveDoc.
GetDisplay.GetUnits = #UNITS_LINEAR_UNKNOWN) then\n  msgbox.error (\"Map Units need to be defined for this query to work\", \"Set Map Units\") \n  exit\nend\n\n'*****\n'Strip away all joins\naftab.unjoinall\n'****************************\n'Do some error checking\nCOAfield = aftab.findfield(\"COA_ID\")\nif (COAfield = nil)then\n  'grab the COA and attach it to the ftab\n  COAIDtable = av.finddoc(\"COAID\")\n  if (COAIDtable = nil)then\n    av.run(\"sql.getCOAID\",nil)\n    COAIDtable = av.finddoc(\"COAID\")\n  end\n  COAIDtab = COAIDtabl
e.getvtab\n  ftabspatid = aftab.findfield(\"Spatial_obj_id\")\n  if (ftabspatid = nil)then\n    ftabspatid = aftab.findfield(\"Spatial_ob\")\n  end\n  COAspatid = COAIDtab.findfield(\"Spatial_obj_id\")\n  aftab.join(ftabspatid,COAIDtab,COAspatid)\nend\nCOAfield = aftab.findfield(\"COA_ID\")\nParentField = aftab.findfield(\"Parent_class\")\nif (ParentField = nil)then\n  SkarnTable = av.finddoc(\"QryIntrusiveCarbonatesAge\")\n  if (SkarnTable = nil)then\n    av.run(\"sql.fetch\",{\"QryIntrusiveCarbonatesAge\",\"QryIntrusiveCarbonatesAge\",
\"\"})\n    SkarnTable = av.finddoc(\"QryIntrusiveCarbonatesAge\")\n  end\n  SkarnTab = SkarnTable.getvtab\n  SkarnCOAIDf = SkarnTab.findfield(\"COA_ID\")\n  aftab.join(COAfield,SkarnTab,SkarnCOAIDf) \nend  \n\nthm2 = thm.clone\naftab2 = thm2.getftab\n'***********************\n'select intrusive rocks\narock = \"Plutonic*\"\naquery = \"[Parent_class] = \" ++ arock.quote\naftab.query(aquery,aftab.getselection,#VTAB_SELTYPE_NEW)\naftab.UpdateSelection\n'export selection to new theme\nif (thm.CanExportToFtab) then\n  def = av.GetProject.M
akeFileName(\"pluton\", \"shp\")\n  aFTab = thm.ExportToFtab(def)\n  ' create a theme and add it to the View\n  plutthm = FTheme.Make(aFTab)\n  plutthm.setname(\"pluton\")\n  plutthm.setvisible(true) \n'  vw.AddTheme(plutthm)\n  vw.invalidate\nend\n\nplutftab = plutthm.getftab\n\n'now only select carbonates\narock = \"Carbonate\"\naquery = \"[Parent_class] = \" ++ arock.quote\naftab2.query(aquery,aftab2.getselection,#VTAB_SELTYPE_NEW)\naftab2.UpdateSelection\n'export selection to new theme\nif (thm2.CanExportToFtab) then\n  def = av.Ge
tProject.MakeFileName(\"carb\", \"shp\")\n  aFTab2 = thm2.ExportToFtab(def)\n  ' create a theme and add it to the View\n  carbthm = FTheme.Make(aFTab2)\n  carbthm.setname(\"carb\")\n  carbthm.setvisible(true) \n'  vw.AddTheme(carbthm)\n  vw.invalidate\nend\ncarbftab = carbthm.getftab\n\n\n'get some more fields\nfpminage = plutftab.findfield(\"min_age\")\nfpmaxage = plutftab.findfield(\"max_age\")\nfcminage = carbftab.findfield(\"min_age\")\nfcmaxage = carbftab.findfield(\"max_age\")\ngoodlist = {}\n\nfspatid = carbftab.findfield(\"spatial_o
b\")\n\nplutftab.createindex(fpmaxage)\nplutftab.createindex(plutftab.findfield(\"shape\"))\ncarbftab.createindex(fcminage)\ncarbftab.createindex(carbftab.findfield(\"shape\"))\ncarbftab.getselection.clearall\ncarbftab.updateselection\n'**********************\n'cycle thru all the features in the pluton theme\ncount = plutftab.getnumrecords\nfor each rec in plutftab\n  progress = (rec/count) * 100    \n  doMore = av.SetStatus( progress )\n  plutftab.getselection.clearall\n  plutftab.getselection.set(rec)\n  plutonminage = plutft
ab.returnvalue(fpminage,rec)\n  plutonmaxage = plutftab.returnvalue(fpmaxage,rec)    \n   'carbftab.SelectByFTab (plutftab,#FTAB_RELTYPE_ISWITHINDISTANCEOF, 5000, #VTAB_SELTYPE_NEW)\n  'select all features within 5km of current selection\n  ' 5000 meters in map units is... \n   distance = Units.Convert( 5000, #UNITS_LINEAR_METERS ,av.GetActiveDoc.GetDisplay.GetUnits )\n   carbftab.SelectByFTab (plutftab,#FTAB_RELTYPE_ISWITHINDISTANCEOF, distance, #VTAB_SELTYPE_NEW)\n   carbftab.UpdateSelection\n\n\n  for each r in ca
rbftab.getselection\n    carbminage = carbftab.returnvalue(fcminage,r)\n    carbmaxage = carbftab.returnvalue(fcmaxage,r)\n    if ((carbminage >= plutonmaxage) )then 'or (carbminage >= plutonminage))then\n      'carbonate is older add its ID to the list\n      'msgbox.info(\"carb: \" ++carbminage ++NL++\"plut:\"++plutonmaxage,\"\")\n       spatid = carbftab.returnvalue(fspatid,r)\n       goodlist.add(spatid)\n    end\n  end\nend\n\ngoodlist.removeduplicates\n\n'cycle thru the list of spatial id's and select em\ncarbftab.getsele
ction.clearall\naquery = \"\"\ni = 0\nfor each r in goodlist\n   r.setformat(\"ddddddddddd\")\n   if (i = 1)then\n     aquery = \"([\"+fspatid.getname+\"] = \"++ r.asstring+\")\"\n   else\n     aquery = aquery++\"or ([\"+fspatid.getname+\"] = \"++ r.asstring++\")\"\n   end\n   i = i + 1\nend\n'build an index\ncarbftab.createindex(fspatid)\ncarbftab.query(aquery,carbftab.getselection,#VTAB_SELTYPE_NEW)\ncarbftab.updateselection\n'***********************\n'cycle thru the list of spatial id's and select em\n'carbftab.getselection.clearall\n'for
 each r in goodlist\n'   r.setformat(\"ddddddddddddddddd\")\n'   aquery = \"[\"+fspatid.getname+\"] = \"++ r.asstring\n   'msgbox.info(aquery,\"\")\n'  carbftab.query(aquery,carbftab.getselection,#VTAB_SELTYPE_OR)\n'end\ncarbftab.updateselection\n'***********************\n'export selection to new theme\n\nif (carbthm.CanExportToFtab) then\n  def = av.GetProject.MakeFileName(\"skarn\", \"shp\")\n  anFTab = carbthm.ExportToFtab(def)\n  ' create a theme and add it to the View\n  fthm = FTheme.Make(anFTab)\n  fthm.setname(\"Carbonate Unit
s within 5 Km of younger Intrusive Rocks (Skarn)\")\n  fthm.setvisible(true) \nend\n'****************\n'Symbolize\nfieldname = \"lith_class\"\n'***********************\n'check to see that join was sucessful & bail out if not\n'by comparing counts of legends before & after uniquing it\nalegend = fthm.getlegend\nprecount = alegend.GetNumClasses\nalegend.setLegendType(#LEGEND_TYPE_UNIQUE)\nalegend.unique(fthm,fieldname)\npostcount = alegend.GetNumClasses\nif (precount = postcount)then\n  msgbox.error(\"Query returned no results 
for\" ++ fthm.getname, \"No Query Results\")\n  break\nend\n'********************************\n'show nodata\naLegend.DisplayNoDataClass(true)\ns = symbol.make(#SYMBOL_FILL)\nc = color.getgray\ns.setcolor(c)\nalegend.setnullsymbol(s)\n'****\n'Remove outlines of colors\nsymblist = alegend.getsymbols\nc = color.make\nc.settransparent(true)\nfor each s in symblist\n  s.setolcolor(c)\nend\n'****\n'****\nvw.addtheme(fthm)\nfthm.invalidateLegend\nfthm.setvisible(true)\nvw.invalidate\nend 'loop"
	FontSize:	1
)

(DocWin.67
	Owner:	66
	X:	283
	Y:	160
	W:	673
	H:	312
)

(CSMgr.68
)

(DocAct.69
	Doc:	66
)

(DEd.70
	Name:	"SedGold"
	Creator:	"David Bedford"
	CreationDate:	"Monday, May 08, 2000 04:57:33"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"DialogEditor"
	Win:	71
	CSMgr:	72
	DocExts:	74
	DocExts:	75
	Graphics:	76
	Dpy:	102
	Dialog:	105
	DialogExtent:	126
	Compiled:	1
)

(DocWin.71
	Owner:	70
	X:	181
	Y:	108
	W:	718
	H:	413
)

(CSMgr.72
	Client:	73
)

(CSClient.73
	Client:	74
	ReqName:	"ClientNfy"
)

(PanMgr.74
	Doc:	70
)

(DocAct.75
	Doc:	70
)

(GList.76
	Child:	77
	Child:	80
	Child:	83
	Child:	86
	Child:	90
	Child:	93
	Child:	96
	Child:	99
	Dpy:	102
	FormatNumb:	104
)

(GCtrl.77
	Name:	"aControlPanel1"
	Bounds:	78
	ControlConstraints:	0x55
	Control:	79
	Editable:	1
)

(RectD.78
	Left:	1.35416666666667
	Top:	2.72916666666667
	Right:	5.62500000000000
	Bottom:	0.97916666666667
)

(CPanel.79
	InternalName:	"aControlPanel1"
	UseGraphicNfy:	1
	Tag:	" "
	Constraints:	0x55
	Label:	"Select a Query"
	VisibleBorder:	1
	Listening:	1
)

(GCtrl.80
	Name:	"Rbtn_a"
	Bounds:	81
	ControlConstraints:	0x55
	Control:	82
	Editable:	1
)

(RectD.81
	Left:	1.44791666666667
	Top:	2.43750000000000
	Right:	2.19791666666667
	Bottom:	2.14583333333333
)

(RButn.82
	InternalName:	"Rbtn_a"
	UseGraphicNfy:	1
	Constraints:	0x55
	Listening:	1
	Label:	" "
)

(GCtrl.83
	Name:	"rbtn_c"
	Bounds:	84
	ControlConstraints:	0x55
	Control:	85
	Editable:	1
)

(RectD.84
	Left:	1.43750000000000
	Top:	1.43750000000000
	Right:	2.36458333333333
	Bottom:	1.14583333333333
)

(RButn.85
	InternalName:	"rbtn_c"
	UseGraphicNfy:	1
	Constraints:	0x55
	Listening:	1
	Label:	" "
)

(GCtrl.86
	Name:	"aTextBox6"
	Bounds:	87
	ControlConstraints:	0x55
	Control:	88
	Editable:	1
)

(RectD.87
	Left:	1.62500000000000
	Top:	2.46875000000000
	Right:	5.25000000000000
	Bottom:	2.09375000000000
)

(TextBox.88
	InternalName:	"aTextBox6"
	UseGraphicNfy:	1
	Listening:	1
	ReadOnly:	1
	Text:	"Dirty Carbonates: Units containing (mudstone or shale or argillite) AND containing (any carbonate)."
	Constraints:	0x55
	NextControl:	89
)

(Nil.89
)

(GCtrl.90
	Name:	"aTextBox10"
	Bounds:	91
	ControlConstraints:	0x55
	Control:	92
	Editable:	1
)

(RectD.91
	Left:	1.62500000000000
	Top:	1.50000000000000
	Right:	5.25000000000000
	Bottom:	1.12500000000000
)

(TextBox.92
	InternalName:	"aTextBox10"
	UseGraphicNfy:	1
	Listening:	1
	ReadOnly:	1
	Text:	"Dirty Carbonates (see above) with a Minimum Age that  is younger than Ordovician and older than Carboniferous"
	Constraints:	0x55
	NextControl:	89
)

(GCtrl.93
	Name:	"Rbtn_b"
	Bounds:	94
	ControlConstraints:	0x55
	Control:	95
	Editable:	1
)

(RectD.94
	Left:	1.44791666666667
	Top:	1.93750000000000
	Right:	2.44791666666667
	Bottom:	1.64583333333333
)

(RButn.95
	InternalName:	"Rbtn_b"
	UseGraphicNfy:	1
	Constraints:	0x55
	Listening:	1
	Label:	" "
)

(GCtrl.96
	Name:	"btn_run"
	Bounds:	97
	ControlConstraints:	0x55
	Control:	98
	Editable:	1
)

(RectD.97
	Left:	2.94791666666667
	Top:	0.92708333333333
	Right:	4.08333333333333
	Bottom:	0.62500000000000
)

(LButn.98
	InternalName:	"btn_run"
	UseGraphicNfy:	1
	Label:	"Run Query"
	Click:	"MRSA.dialog.sedgold.btn.click"
)

(GCtrl.99
	Name:	"aTextBox9"
	Bounds:	100
	ControlConstraints:	0x55
	Control:	101
	Editable:	1
)

(RectD.100
	Left:	1.62500000000000
	Top:	1.97916666666667
	Right:	5.25000000000000
	Bottom:	1.60416666666667
)

(TextBox.101
	InternalName:	"aTextBox9"
	UseGraphicNfy:	1
	Listening:	1
	ReadOnly:	1
	Text:	"Dirty Carbonates (see above) that have a Minimum Age that is pre-Mesozoic"
	Constraints:	0x55
	NextControl:	89
)

(PageDpy.102
	Top:	4.04166666666667
	Right:	7.40625000000000
	ReportUnits:	1
	Units:	1
	Scale:	103
	ZoomRight:	7.40625000000000
	ZoomTop:	4.04166666666667
	GridSpacingX:	0.10000000000000
	GridSpacingY:	0.10000000000000
)

(Numb.103
	N:	0.13502109704641
)

(Numb.104
)

(AVDLog.105
	Name:	"SedGold"
	X:	288
	Y:	327
	W:	441
	H:	217
	ConstrainedControlNames:	106
	Constraints:	107
	Server:	108
	ControlPanel:	109
	Title:	"Sediment Hosted Gold Deposits"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Open:	"MRSA.dialog.sedgold.open"
	DefaultButton:	123
)

(AVStr.106
	S:	"btn_run"
)

(Numb.107
	N:	85.00000000000000
)

(Nil.108
)

(CPanel.109
	Child:	110
	Child:	123
	ResBox:	124
	ResBox:	125
	Listening:	1
)

(CPanel.110
	InternalName:	"aControlPanel1"
	Tag:	" "
	Child:	111
	Child:	112
	Child:	113
	Child:	114
	Child:	115
	Child:	116
	Constraints:	0x55
	ResBox:	117
	ResBox:	118
	ResBox:	119
	ResBox:	120
	ResBox:	121
	ResBox:	122
	Label:	"Select a Query"
	VisibleBorder:	1
	Listening:	1
)

(RButn.111
	InternalName:	"Rbtn_a"
	Constraints:	0x55
	Listening:	1
	Label:	" "
)

(RButn.112
	InternalName:	"rbtn_c"
	Constraints:	0x55
	Listening:	1
	Label:	" "
)

(TextBox.113
	InternalName:	"aTextBox6"
	Listening:	1
	ReadOnly:	1
	Text:	"Dirty Carbonates: Units containing (mudstone or shale or argillite) AND containing (any carbonate)."
	Constraints:	0x55
	NextControl:	108
)

(TextBox.114
	InternalName:	"aTextBox10"
	Listening:	1
	ReadOnly:	1
	Text:	"Dirty Carbonates (see above) with a Minimum Age that  is younger than Ordovician and older than Carboniferous"
	Constraints:	0x55
	NextControl:	108
)

(RButn.115
	InternalName:	"Rbtn_b"
	Constraints:	0x55
	Listening:	1
	Label:	" "
)

(TextBox.116
	InternalName:	"aTextBox9"
	Listening:	1
	ReadOnly:	1
	Text:	"Dirty Carbonates (see above) that have a Minimum Age that is pre-Mesozoic"
	Constraints:	0x55
	NextControl:	108
)

(RectD.117
	Left:	9.00000000000000
	Top:	56.00000000000000
	Right:	81.00000000000000
	Bottom:	28.00000000000000
)

(RectD.118
	Left:	8.00000000000000
	Top:	152.00000000000000
	Right:	97.00000000000000
	Bottom:	124.00000000000000
)

(RectD.119
	Left:	26.00000000000000
	Top:	61.00000000000000
	Right:	374.00000000000000
	Bottom:	25.00000000000000
)

(RectD.120
	Left:	26.00000000000000
	Top:	154.00000000000000
	Right:	374.00000000000000
	Bottom:	118.00000000000000
)

(RectD.121
	Left:	9.00000000000000
	Top:	104.00000000000000
	Right:	105.00000000000000
	Bottom:	76.00000000000000
)

(RectD.122
	Left:	26.00000000000000
	Top:	108.00000000000000
	Right:	374.00000000000000
	Bottom:	72.00000000000000
)

(LButn.123
	InternalName:	"btn_run"
	Label:	"Run Query"
	Click:	"MRSA.dialog.sedgold.btn.click"
)

(RectD.124
	Left:	10.00000000000000
	Top:	177.00000000000000
	Right:	420.00000000000000
	Bottom:	9.00000000000000
)

(RectD.125
	Left:	163.00000000000000
	Top:	211.00000000000000
	Right:	272.00000000000000
	Bottom:	182.00000000000000
)

(RectD.126
	Left:	1.25000000000000
	Top:	2.82291666666667
	Right:	5.84375000000000
	Bottom:	0.56250000000000
)

(DEd.127
	Name:	"Skarns"
	Creator:	"David Bedford"
	CreationDate:	"Wednesday, May 10, 2000 01:50:08"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"DialogEditor"
	Win:	128
	CSMgr:	129
	DocExts:	131
	DocExts:	132
	Graphics:	133
	Dpy:	159
	Dialog:	162
	DialogExtent:	184
	Compiled:	1
)

(DocWin.128
	Owner:	127
	X:	242
	Y:	82
	W:	574
	H:	335
)

(CSMgr.129
	Client:	130
)

(CSClient.130
	Client:	131
	ReqName:	"ClientNfy"
)

(PanMgr.131
	Doc:	127
)

(DocAct.132
	Doc:	127
)

(GList.133
	Child:	134
	Child:	137
	Child:	140
	Child:	143
	Child:	146
	Child:	150
	Child:	153
	Child:	156
	Dpy:	159
	FormatNumb:	161
)

(GCtrl.134
	Name:	"aControlPanel1"
	Bounds:	135
	ControlConstraints:	0x55
	Control:	136
	Editable:	1
)

(RectD.135
	Left:	0.70833333333333
	Top:	2.79166666666667
	Right:	4.97916666666667
	Bottom:	1.04166666666667
)

(CPanel.136
	InternalName:	"aControlPanel1"
	UseGraphicNfy:	1
	Tag:	" "
	Constraints:	0x55
	Label:	"Select a Query"
	VisibleBorder:	1
	Listening:	1
)

(GCtrl.137
	Name:	"aLabelButton10"
	Bounds:	138
	ControlConstraints:	0x55
	Control:	139
	Editable:	1
)

(RectD.138
	Left:	2.30208333333333
	Top:	0.98958333333333
	Right:	3.43750000000000
	Bottom:	0.68750000000000
)

(LButn.139
	InternalName:	"aLabelButton10"
	UseGraphicNfy:	1
	Label:	"Run Query"
	Click:	"MRSA.dialog.skarn.btn.click"
)

(GCtrl.140
	Name:	"rbtn_c"
	Bounds:	141
	ControlConstraints:	0x55
	Control:	142
	Editable:	1
)

(RectD.141
	Left:	0.79166666666667
	Top:	1.50000000000000
	Right:	1.71875000000000
	Bottom:	1.20833333333333
)

(RButn.142
	InternalName:	"rbtn_c"
	UseGraphicNfy:	1
	Constraints:	0x55
	Listening:	1
	Label:	" "
)

(GCtrl.143
	Name:	"rbtn_a"
	Bounds:	144
	ControlConstraints:	0x55
	Control:	145
	Editable:	1
)

(RectD.144
	Left:	0.80208333333333
	Top:	2.50000000000000
	Right:	1.55208333333333
	Bottom:	2.20833333333333
)

(RButn.145
	InternalName:	"rbtn_a"
	UseGraphicNfy:	1
	Constraints:	0x55
	Listening:	1
	Label:	" "
)

(GCtrl.146
	Name:	"aTextBox13"
	Bounds:	147
	ControlConstraints:	0x55
	Control:	148
	Editable:	1
)

(RectD.147
	Left:	0.97916666666667
	Top:	2.53125000000000
	Right:	4.60416666666667
	Bottom:	2.15625000000000
)

(TextBox.148
	InternalName:	"aTextBox13"
	UseGraphicNfy:	1
	Listening:	1
	ReadOnly:	1
	Text:	"All units that contain carbonate rocks that are adjacent to an intrusive unit"
	Constraints:	0x55
	NextControl:	149
)

(Nil.149
)

(GCtrl.150
	Name:	"rbtn_b"
	Bounds:	151
	ControlConstraints:	0x55
	Control:	152
	Editable:	1
)

(RectD.151
	Left:	0.80208333333333
	Top:	2.00000000000000
	Right:	1.80208333333333
	Bottom:	1.70833333333333
)

(RButn.152
	InternalName:	"rbtn_b"
	UseGraphicNfy:	1
	Constraints:	0x55
	Listening:	1
	Label:	" "
)

(GCtrl.153
	Name:	"aTextBox9"
	Bounds:	154
	ControlConstraints:	0x55
	Control:	155
	Editable:	1
)

(RectD.154
	Left:	0.97916666666667
	Top:	2.04166666666667
	Right:	4.60416666666667
	Bottom:	1.66666666666667
)

(TextBox.155
	InternalName:	"aTextBox9"
	UseGraphicNfy:	1
	Listening:	1
	ReadOnly:	1
	Text:	"All units that contain carbonate rocks that are within 5 km of an intrusive unit"
	Constraints:	0x55
	NextControl:	149
)

(GCtrl.156
	Name:	"aTextBox12"
	Bounds:	157
	Selected:	0x01
	ControlConstraints:	0x55
	Control:	158
	Editable:	1
)

(RectD.157
	Left:	0.97916666666667
	Top:	1.56250000000000
	Right:	4.60416666666667
	Bottom:	1.18750000000000
)

(TextBox.158
	InternalName:	"aTextBox12"
	UseGraphicNfy:	1
	Listening:	1
	ReadOnly:	1
	Text:	"All units that contain carbonate rocks that are within 5 km of an intrusive unit, AND are older than the intrusive unit"
	Constraints:	0x55
	NextControl:	149
)

(PageDpy.159
	Top:	3.22916666666667
	Right:	5.90625000000000
	ReportUnits:	1
	Units:	1
	Scale:	160
	ZoomRight:	5.90625000000000
	ZoomTop:	3.22916666666667
	GridSpacingX:	0.10000000000000
	GridSpacingY:	0.10000000000000
)

(Numb.160
	N:	0.16931216931217
)

(Numb.161
)

(AVDLog.162
	Name:	"Skarns"
	X:	316
	Y:	321
	W:	448
	H:	231
	ConstrainedControlNames:	163
	Constraints:	164
	Server:	165
	ControlPanel:	166
	Title:	"Skarn Deposits"
	EscapeEnabled:	1
	Resizable:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Open:	"MRSA.dialog.skarn.open"
	DefaultButton:	183
)

(AVStr.163
	S:	"aLabelButton10"
)

(Numb.164
	N:	85.00000000000000
)

(Nil.165
)

(CPanel.166
	Child:	167
	Child:	180
	ResBox:	181
	ResBox:	182
	Listening:	1
)

(CPanel.167
	InternalName:	"aControlPanel1"
	Tag:	" "
	Child:	168
	Child:	169
	Child:	170
	Child:	171
	Child:	172
	Child:	173
	Constraints:	0x55
	ResBox:	174
	ResBox:	175
	ResBox:	176
	ResBox:	177
	ResBox:	178
	ResBox:	179
	Label:	"Select a Query"
	VisibleBorder:	1
	Listening:	1
)

(RButn.168
	InternalName:	"rbtn_c"
	Constraints:	0x55
	Listening:	1
	Label:	" "
)

(RButn.169
	InternalName:	"rbtn_a"
	Constraints:	0x55
	Listening:	1
	Label:	" "
)

(TextBox.170
	InternalName:	"aTextBox13"
	Listening:	1
	ReadOnly:	1
	Text:	"All units that contain carbonate rocks that are adjacent to an intrusive unit"
	Constraints:	0x55
	NextControl:	165
)

(RButn.171
	InternalName:	"rbtn_b"
	Constraints:	0x55
	Listening:	1
	Label:	" "
)

(TextBox.172
	InternalName:	"aTextBox9"
	Listening:	1
	ReadOnly:	1
	Text:	"All units that contain carbonate rocks that are within 5 km of an intrusive unit"
	Constraints:	0x55
	NextControl:	165
)

(TextBox.173
	InternalName:	"aTextBox12"
	Listening:	1
	ReadOnly:	1
	Text:	"All units that contain carbonate rocks that are within 5 km of an intrusive unit, AND are older than the intrusive unit"
	Constraints:	0x55
	NextControl:	165
)

(RectD.174
	Left:	8.00000000000000
	Top:	152.00000000000000
	Right:	97.00000000000000
	Bottom:	124.00000000000000
)

(RectD.175
	Left:	9.00000000000000
	Top:	56.00000000000000
	Right:	81.00000000000000
	Bottom:	28.00000000000000
)

(RectD.176
	Left:	26.00000000000000
	Top:	61.00000000000000
	Right:	374.00000000000000
	Bottom:	25.00000000000000
)

(RectD.177
	Left:	9.00000000000000
	Top:	104.00000000000000
	Right:	105.00000000000000
	Bottom:	76.00000000000000
)

(RectD.178
	Left:	26.00000000000000
	Top:	108.00000000000000
	Right:	374.00000000000000
	Bottom:	72.00000000000000
)

(RectD.179
	Left:	26.00000000000000
	Top:	154.00000000000000
	Right:	374.00000000000000
	Bottom:	118.00000000000000
)

(LButn.180
	InternalName:	"aLabelButton10"
	Label:	"Run Query"
	Click:	"MRSA.dialog.skarn.btn.click"
)

(RectD.181
	Left:	10.00000000000000
	Top:	180.00000000000000
	Right:	420.00000000000000
	Bottom:	12.00000000000000
)

(RectD.182
	Left:	163.00000000000000
	Top:	214.00000000000000
	Right:	272.00000000000000
	Bottom:	185.00000000000000
)

(Nil.183
)

(RectD.184
	Left:	0.60416666666667
	Top:	2.91666666666667
	Right:	5.27083333333333
	Bottom:	0.51041666666667
)

(SEd.185
	Name:	"sql.fetch"
	Creator:	"David Bedford"
	CreationDate:	"Wednesday, April 12, 2000 10:48:55"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	186
	CSMgr:	187
	DocExts:	188
	Source:	"sqltablename = self.get(0)\nif (self.get(1) = nil)then\n  avtablename = sqltablename\nelse\n  avtablename = self.get(1)\nend\n\nif (self.get(2) = nil)then\n  usewhereclause = FALSE\nelse\n  wherephrase = self.get(2)\n  ''''msgbox.info(self.get(2).asstring,\"\")\n  usewhereclause = TRUE\nend\n\n'*************************************************\n'CHANGE THE VALUE HERE TO CHANGE THE ODBC DSN NAME\ntheSQL=SQLCon.Find(\"wr_mrsa\")\n'*************************************************\nif (theSQL = nil) then\n  msgbox.error(\"Can't find O
DBC Connection, please check settings.\" + nl + \"This script requires an ODBC connection called 'wr_mrsa'\", \"ODBC Error\")\n  exit\nend\nif ((theSQL.islogin).not)then\n  theSQL.Login(\"user/password\")\nend\n\nif (usewhereclause)then\n  aquery = \"Select * from\"++sqltablename++wherephrase\nelse\n  aquery = \"Select * from\"++sqltablename\nend\n\n'error check\n'msgbox.info(aquery, \"\")\n\n\ntheVTab = VTab.MakeSQL(theSQL, aquery)\nmyTable = Table.Make(theVtab) \nif (myTable = nil)then\n   'msgbox.info(\"nil\",\"\")\nelse\n  mytable.setname(av
tablename)\n  av.GetProject.AddDoc(mytable) \nend  "
	FontSize:	1
)

(DocWin.186
	Owner:	185
	X:	283
	Y:	44
	W:	703
	H:	431
)

(CSMgr.187
)

(DocAct.188
	Doc:	185
)

(SEd.189
	Name:	"sql.getCOAID"
	Creator:	"David Bedford"
	CreationDate:	"Monday, April 10, 2000 01:38:46"
	Comments:	"U.S. Geological Survey Open-File Report 03-135\nThis software is distributed As-is.  The U.S. Geological Survey is not responsible for the maintaining the software, nor is it responsible for any damage caused by the software.\nOnly minimal error checking is performed"
	GUIName:	"Script"
	Win:	190
	CSMgr:	191
	DocExts:	192
	Source:	"'retrieves the table that links spatial objec id's and coa id's\n'*************************************************\n'CHANGE THE VALUE HERE TO CHANGE THE ODBC DSN NAME\ntheSQL=SQLCon.Find(\"wr_mrsa\")\n'*************************************************\nif (theSQL = nil) then\n  msgbox.error(\"Can't find ODBC Connection, please check settings.\" + nl + \"This script requires an ODBC connection called 'wr_mrsa'\", \"ODBC Error\")\n  exit\nend\n\n \n if ((theSQL.islogin).not)then\n   theSQL.Login(\"user/password\")\n end\n\n\n aquery 
= \"QryGisRockPolyCOAID\"\n astring = \"Select * from\"++aquery \n theVTab = VTab.MakeSQL(theSQL, astring)\n myTable = Table.Make(theVtab) \n if (myTable = nil)then\n    msgbox.info(\"nil\",\"\")\n else\n   mytable.setname(\"COAID\")\n   av.GetProject.AddDoc(mytable) \n end"
	FontSize:	1
)

(DocWin.190
	Owner:	189
	X:	423
	Y:	93
	W:	604
	H:	375
)

(CSMgr.191
)

(DocAct.192
	Doc:	189
)

(LButn.193
	HelpTopic:	"New_button"
	Update:	"Doc.NewUpdate"
	Label:	"&New"
	Click:	"View.New"
)

(LButn.194
	Disabled:	1
	HelpTopic:	"Open_button"
	Update:	"Doc.OpenUpdate"
	Label:	"&Open"
	Click:	"Doc.Open"
)

(LButn.195
	Disabled:	1
	HelpTopic:	"Print_button"
	Update:	"Doc.ActionUpdate"
	Label:	"P&rint"
	Click:	"Doc.Action"
)

(FN.196
	Path:	"$AVEXT/mrsid.avx"
)

(FN.197
	Path:	"$AVEXT/dialog.avx"
)

(NameDict.198
)

(NameDict.199
	Obj:	200
	Obj:	203
	Obj:	204
)

(AVDict.200
	InternalName:	"Dialog Designer"
	Key:	201
	Value:	202
)

(AVStr.201
	S:	"IsVisible"
)

(Bool.202
	Truth:	1
)

(AVDict.203
	InternalName:	"Table of Contents Defaults Dialog"
)

(AVDict.204
	InternalName:	"_Thor_"
	Key:	205
	Value:	206
)

(AVStr.205
	S:	"DLOGS"
)

(NameDict.206
)

(DocGUI.207
	Name:	"View"
	Type:	"View"
	Modified:	1
	Visible:	1
	MenuBar:	208
	ButnBar:	342
	Popups:	383
	ToolBar:	405
	NewScript:	"View.New"
	OpenScript:	"Doc.Open"
	ActionScript:	"Doc.Action"
	NewUpdateScript:	"Doc.NewUpdate"
	OpenUpdateScript:	"Doc.OpenUpdate"
	ActionUpdateScript:	"Doc.ActionUpdate"
	Title:	"Views"
	Icon:	482
)

(MenuBar.208
	Child:	209
	Child:	226
	Child:	246
	Child:	269
	Child:	292
	Child:	310
	Child:	329
	Child:	334
	Child:	338
)

(PMenu.209
	InternalName:	"File"
	Child:	210
	Child:	211
	Child:	212
	Child:	213
	Child:	214
	Child:	215
	Child:	216
	Child:	217
	Child:	218
	Child:	219
	Child:	220
	Child:	221
	Child:	222
	Child:	223
	Child:	224
	Child:	225
	Label:	"&File"
)

(Choice.210
	Help:	"Closes the active component"
	HelpTopic:	"Close"
	Label:	"&Close"
	Click:	"Project.CloseDoc"
	Shortcut:	"Keys.None"
)

(Choice.211
	Help:	"Closes all components"
	HelpTopic:	"Close_All"
	Label:	"Close &All"
	Click:	"Project.CloseAll"
	Shortcut:	"Keys.None"
)

(Space.212
)

(Choice.213
	Help:	"Allows you to specify the current working directory"
	HelpTopic:	"Set_Working_Directory"
	Label:	"Set &Working Directory..."
	Click:	"Project.SetProjectWorkDir"
	Shortcut:	"Keys.None"
)

(Choice.214
	Help:	"Saves the current project"
	HelpTopic:	"Save_Project"
	Label:	"&Save Project"
	Click:	"Project.Save"
	Shortcut:	"Keys.Ctrl+S"
)

(Choice.215
	Help:	"Saves the current project with a new name"
	HelpTopic:	"Save_Project_As"
	Label:	"Save Project As..."
	Click:	"Project.SaveAs"
	Shortcut:	"Keys.None"
)

(Space.216
)

(Choice.217
	Help:	"Displays the Extensions dialog"
	HelpTopic:	"Extensions"
	Label:	"Extensions..."
	Click:	"Appl.GetExtensionWin"
	Shortcut:	"Keys.None"
)

(Space.218
)

(Choice.219
	Help:	"Prints the view"
	HelpTopic:	"Print"
	Label:	"&Print..."
	Click:	"View.Print"
	Shortcut:	"Keys.None"
)

(Choice.220
	Help:	"Edits the printer and the printing options"
	HelpTopic:	"Print_Setup"
	Label:	"P&rint Setup..."
	Click:	"Project.PrintSetup"
	Shortcut:	"Keys.None"
)

(Choice.221
	Disabled:	1
	Help:	"Exports the view"
	HelpTopic:	"Export"
	Update:	"View.HasThemesUpdate"
	Label:	"&Export..."
	Click:	"View.ExportDisp"
	Shortcut:	"Keys.None"
)

(Space.222
)

(Choice.223
	Help:	"Displays the dialog box to delete, edit, and copy data sources"
	HelpTopic:	"Manage_Sources"
	Label:	"&Manage Data Sources..."
	Click:	"View.ManageSources"
	Shortcut:	"Keys.None"
)

(Space.224
)

(Choice.225
	Help:	"Exits ArcView"
	HelpTopic:	"Exit"
	Label:	"E&xit"
	Click:	"Project.Exit"
	Shortcut:	"Keys.None"
)

(PMenu.226
	InternalName:	"Edit"
	Child:	227
	Child:	228
	Child:	229
	Child:	230
	Child:	231
	Child:	232
	Child:	233
	Child:	234
	Child:	235
	Child:	236
	Child:	237
	Child:	238
	Child:	239
	Child:	240
	Child:	241
	Child:	242
	Child:	243
	Child:	244
	Child:	245
	Label:	"&Edit"
)

(Choice.227
	Disabled:	1
	Help:	"Cuts the active themes to the clipboard"
	HelpTopic:	"Cut_Themes"
	Update:	"View.ActiveDeletableThemesUpdate"
	Label:	"Cut T&hemes"
	Click:	"View.CutThemes"
	Shortcut:	"Keys.None"
)

(Choice.228
	Disabled:	1
	Help:	"Copies the active themes to the clipboard"
	HelpTopic:	"Copy_Themes"
	Update:	"View.ActiveThemesUpdate"
	Label:	"Cop&y Themes"
	Click:	"View.CopyThemes"
	Shortcut:	"Keys.None"
)

(Choice.229
	Disabled:	1
	Help:	"Removes the active themes from the view"
	HelpTopic:	"Delete_Themes"
	Update:	"View.ActiveDeletableThemesUpdate"
	Label:	"De&lete Themes"
	Click:	"View.DeleteThemes"
	Shortcut:	"Keys.None"
)

(Space.230
)

(Choice.231
	Disabled:	1
	Help:	"Undo the last edit to graphics on a view"
	HelpTopic:	"Undo_Graphic_Edit_on_a_view"
	Update:	"View.UndoEditUpdate"
	Label:	"&Undo Graphic Edit"
	Click:	"View.UndoEdit"
	Shortcut:	"Keys.Ctrl+Z"
)

(Choice.232
	Disabled:	1
	Invisible:	1
	Help:	"Redo the last edit operation on a theme that was undone"
	HelpTopic:	"Redo_Feature_Edit_on_a_view"
	Update:	"View.RedoEditUpdate"
	Label:	"&Redo Feature Edit"
	Click:	"View.RedoEdit"
	Shortcut:	"Keys.Ctrl+Y"
)

(Space.233
)

(Choice.234
	Disabled:	1
	Help:	"Cuts the selected graphics to the clipboard"
	HelpTopic:	"Cut_Graphics"
	Update:	"View.CutUpdate"
	Label:	"Cu&t Graphics"
	Click:	"View.CutGraphics"
	Shortcut:	"Keys.Ctrl+X"
)

(Choice.235
	Disabled:	1
	Help:	"Copies the selected graphics to the clipboard"
	HelpTopic:	"Copy_Graphics"
	Update:	"View.CopyUpdate"
	Label:	"&Copy Graphics"
	Click:	"View.CopyGraphics"
	Shortcut:	"Keys.Ctrl+C"
)

(Choice.236
	Disabled:	1
	Help:	"Removes the selected graphics from the view"
	HelpTopic:	"Delete_Graphics"
	Update:	"View.DeleteUpdate"
	Label:	"&Delete Graphics"
	Click:	"View.DeleteGraphics"
	Shortcut:	"Keys.Del"
)

(Space.237
)

(Choice.238
	Disabled:	1
	Help:	"Combines the selected polygons"
	HelpTopic:	"Combine_Graphics"
	Update:	"View.CombineUpdate"
	Label:	"Com&bine Graphics"
	Click:	"View.CombineGraphics"
	Shortcut:	"Keys.None"
)

(Choice.239
	Disabled:	1
	Help:	"Unions the selected graphics to create a new graphic"
	HelpTopic:	"Union_Graphics"
	Update:	"View.UnionUpdate"
	Label:	"U&nion Graphics"
	Click:	"View.UnionGraphics"
	Shortcut:	"Keys.None"
)

(Choice.240
	Disabled:	1
	Help:	"Subtracts one selected polygon from the other selected polygon"
	HelpTopic:	"Subtract_Graphics"
	Update:	"View.SubtractUpdate"
	Label:	"&Subtract Graphics"
	Click:	"View.SubtractGraphics"
	Shortcut:	"Keys.None"
)

(Choice.241
	Disabled:	1
	Help:	"Creates a new polygon from the area  of overlap between the selected polygons"
	HelpTopic:	"Intersect_Graphics"
	Update:	"View.IntersectUpdate"
	Label:	"&Intersect Graphics"
	Click:	"View.IntersectGraphics"
	Shortcut:	"Keys.None"
)

(Space.242
)

(Choice.243
	Disabled:	1
	Help:	"Inserts the contents of the clipboard"
	HelpTopic:	"Paste"
	Update:	"View.PasteUpdate"
	Label:	"&Paste"
	Click:	"View.Paste"
	Shortcut:	"Keys.Ctrl+V"
)

(Space.244
)

(Choice.245
	Disabled:	1
	Help:	"Selects all graphics in the view"
	HelpTopic:	"Select_All_Graphics"
	Update:	"View.HasGraphicsUpdate"
	Label:	"Select &All Graphics"
	Click:	"Graphic.SelectAll"
	Shortcut:	"Keys.None"
)

(PMenu.246
	InternalName:	"View"
	Child:	247
	Child:	248
	Child:	249
	Child:	250
	Child:	251
	Child:	252
	Child:	253
	Child:	254
	Child:	255
	Child:	256
	Child:	257
	Child:	258
	Child:	259
	Child:	260
	Child:	261
	Child:	262
	Child:	263
	Child:	264
	Child:	265
	Child:	266
	Child:	267
	Child:	268
	Label:	"&View"
)

(Choice.247
	Help:	"Displays the dialog box to edit properties of the view"
	HelpTopic:	"View_Properties"
	Label:	"&Properties..."
	Click:	"View.Properties"
	Shortcut:	"Keys.None"
)

(Space.248
)

(Choice.249
	Help:	"Inserts themes into the view"
	HelpTopic:	"Add_Theme"
	Label:	"&Add Theme..."
	Click:	"View.Add"
	Shortcut:	"Keys.Ctrl+T"
)

(Choice.250
	Disabled:	1
	Help:	"Displays a dialog box to create a geocoded theme"
	HelpTopic:	"Geocode_Addresses"
	Update:	"View.GeocodeUpdate"
	Label:	"&Geocode Addresses..."
	Click:	"View.Geocode"
	Shortcut:	"Keys.None"
)

(Choice.251
	Help:	"Displays a dialog box to create an XY or dynamic segmentation event-based theme "
	HelpTopic:	"Add_Event_Theme"
	Update:	"View.AddEventUpdate"
	Label:	"Add &Event Theme..."
	Click:	"View.AddEvent"
	Shortcut:	"Keys.None"
)

(Choice.252
	Help:	"Creates a new theme"
	HelpTopic:	"New_Theme"
	Label:	"&New Theme..."
	Click:	"View.NewTheme"
	Shortcut:	"Keys.None"
)

(Choice.253
	Disabled:	1
	Help:	"Makes all themes visible"
	HelpTopic:	"Themes_On_Themes_Off"
	Update:	"View.HasThemesUpdate"
	Label:	"&Themes On"
	Click:	"View.ThemesOn"
	Shortcut:	"Keys.None"
)

(Choice.254
	Disabled:	1
	Help:	"Makes all themes invisible"
	HelpTopic:	"Themes_On_Themes_Off"
	Update:	"View.HasThemesUpdate"
	Label:	"T&hemes Off"
	Click:	"View.ThemesOff"
	Shortcut:	"Keys.None"
)

(Space.255
)

(Choice.256
	Disabled:	1
	Help:	"Create a Layout from the View"
	HelpTopic:	"Layout_menu_choice"
	Update:	"View.HasThemesUpdate"
	Label:	"La&yout..."
	Click:	"View.Layout"
	Shortcut:	"Keys.None"
)

(Space.257
)

(Choice.258
	Help:	"Shows a dialog where you can change the style of the TOC"
	HelpTopic:	"TOC_Defaults"
	Update:	"TocDefs.ShowUpdate"
	Label:	"TOC Style..."
	Click:	"TocDefs.Show"
	Shortcut:	"Keys.None"
)

(Space.259
)

(Choice.260
	Disabled:	1
	Help:	"Zooms to the extent of all themes"
	HelpTopic:	"Zoom_to_Full_Extent"
	Update:	"View.HasDataUpdate"
	Label:	"Full E&xtent"
	Click:	"View.ZoomFullExtent"
	Shortcut:	"Keys.None"
)

(Choice.261
	Disabled:	1
	Help:	"Zooms in on the center of the display"
	HelpTopic:	"Zoom_In"
	Update:	"View.HasDataUpdate"
	Label:	"Zoom &In"
	Click:	"View.ZoomIn"
	Shortcut:	"Keys.None"
)

(Choice.262
	Disabled:	1
	Help:	"Zooms out from the center of the display"
	HelpTopic:	"Zoom_Out"
	Update:	"View.HasDataUpdate"
	Label:	"Zoom &Out"
	Click:	"View.ZoomOut"
	Shortcut:	"Keys.None"
)

(Choice.263
	Disabled:	1
	Help:	"Zooms to the extent of active themes"
	HelpTopic:	"Zoom_to_Active_Theme"
	Update:	"View.ActiveThemesUpdate"
	Label:	"&Zoom To Themes"
	Click:	"View.ZoomToThemes"
	Shortcut:	"Keys.None"
)

(Choice.264
	Disabled:	1
	Help:	"Zooms to the extent of the selected features"
	HelpTopic:	"Zoom_to_Selected"
	Update:	"View.SelectableThemesUpdate"
	Label:	"Zoom To &Selected"
	Click:	"View.ZoomToSelected"
	Shortcut:	"Keys.None"
)

(Choice.265
	Help:	"Goes back to the previous extent you were viewing"
	HelpTopic:	"Zoom_Previous"
	Update:	"View.UndoZoomUpdate"
	Label:	"Zoom Pre&vious"
	Click:	"View.UndoZoom"
	Shortcut:	"Keys.None"
)

(Space.266
)

(Choice.267
	Disabled:	1
	Help:	"Finds features in the active themes using the text you enter"
	HelpTopic:	"Find"
	Update:	"View.TabularThemesUpdate"
	Label:	"&Find..."
	Click:	"View.Find"
	Shortcut:	"Keys.Ctrl+F"
)

(Choice.268
	Disabled:	1
	Help:	"Locates an address in the active, matchable theme"
	HelpTopic:	"Locate_Address"
	Update:	"View.LocateUpdate"
	Label:	"&Locate Address..."
	Click:	"View.Locate"
	Shortcut:	"Keys.None"
)

(PMenu.269
	InternalName:	"Theme"
	Child:	270
	Child:	271
	Child:	272
	Child:	273
	Child:	274
	Child:	275
	Child:	276
	Child:	277
	Child:	278
	Child:	279
	Child:	280
	Child:	281
	Child:	282
	Child:	283
	Child:	284
	Child:	285
	Child:	286
	Child:	287
	Child:	288
	Child:	289
	Child:	290
	Child:	291
	Label:	"&Theme"
)

(Choice.270
	Disabled:	1
	Help:	"Displays the dialog box to edit properties of the active theme"
	HelpTopic:	"Theme_Properties"
	Update:	"View.ActiveThemesUpdate"
	Label:	"&Properties..."
	Click:	"View.ThemeProperties"
	Shortcut:	"Keys.None"
)

(Space.271
)

(Choice.272
	Disabled:	1
	Help:	"Starts or stops editing of shapefile"
	HelpTopic:	"Start_Stop_Editing_in_a_view"
	Update:	"View.ToggleEditingUpdate"
	Label:	"Start &Editing"
	Click:	"View.ToggleEditing"
	Shortcut:	"Keys.None"
)

(Choice.273
	Disabled:	1
	Help:	"Save edits to the source shapefile"
	HelpTopic:	"Save_edits_theme"
	Update:	"View.SaveEditsUpdate"
	Label:	"Save Ed&its"
	Click:	"View.SaveEdits"
	Shortcut:	"Keys.None"
)

(Choice.274
	Disabled:	1
	Help:	"Saves edits to a new shapefile"
	HelpTopic:	"Save_edits_as_theme"
	Update:	"View.SaveEditsUpdate"
	Label:	"Save E&dits As..."
	Click:	"View.SaveEditsAs"
	Shortcut:	"Keys.None"
)

(Choice.275
	Disabled:	1
	Help:	"Converts a theme to a shapefile"
	HelpTopic:	"Convert_to_Shapefile"
	Update:	"View.ExportUpdate"
	Label:	"Convert to &Shapefile..."
	Click:	"View.Export"
	Shortcut:	"Keys.None"
)

(Space.276
)

(Choice.277
	Disabled:	1
	Help:	"Displays the legends of the active themes"
	HelpTopic:	"Edit_Legend"
	Update:	"View.ActiveThemesUpdate"
	Label:	"Edit &Legend..."
	Click:	"View.EditLegendClick"
	Shortcut:	"Keys.None"
)

(Choice.278
	Disabled:	1
	Help:	"Shows or hides the active themes' legends"
	HelpTopic:	"Hide_show_Legend"
	Update:	"View.ActiveThemesUpdate"
	Label:	"&Hide/Show Legend"
	Click:	"View.ToggleLegend"
	Shortcut:	"Keys.None"
)

(Space.279
)

(Choice.280
	Disabled:	1
	Help:	"Displays the Re-match dialog for re-matching addresses"
	HelpTopic:	"Re_match_Addresses"
	Update:	"View.EditMatchUpdate"
	Label:	"&Re-match Addresses..."
	Click:	"View.EditMatch"
	Shortcut:	"Keys.None"
)

(Space.281
)

(Choice.282
	Disabled:	1
	Help:	"Labels features in active, visible themes"
	HelpTopic:	"Auto_label"
	Update:	"View.LabelThemesUpdate"
	Label:	"&Auto-label..."
	Click:	"View.LabelThemes"
	Shortcut:	"Keys.Ctrl+L"
)

(Choice.283
	Disabled:	1
	Help:	"Removes any labels from active themes"
	HelpTopic:	"Remove_Labels"
	Update:	"View.RemoveThemeLabelsUpdate"
	Label:	"Rem&ove Labels"
	Click:	"View.RemoveThemeLabels"
	Shortcut:	"Keys.Ctrl+R"
)

(Choice.284
	Disabled:	1
	Help:	"Removes the overlapping labels from active themes, if they are still green."
	HelpTopic:	"Remove_Overlapping_Labels"
	Update:	"View.RemoveOverlapThemeLabelsUpdate"
	Label:	"Remove Overlappi&ng Labels"
	Click:	"View.RemoveOverlapThemeLabels"
	Shortcut:	"Keys.None"
)

(Choice.285
	Disabled:	1
	Help:	"Converts selected overlapping labels to symbol of selected good label"
	HelpTopic:	"Convert_Overlapping_Labels"
	Update:	"View.ConvertOverlapLabelsUpdate"
	Label:	"&Convert Overlapping Labels"
	Click:	"View.ConvertOverlapLabels"
	Shortcut:	"Keys.Ctrl+O"
)

(Space.286
)

(Choice.287
	Disabled:	1
	Help:	"Opens the tables of the active themes"
	HelpTopic:	"Open_Theme_Table"
	Update:	"View.TabularThemesUpdate"
	Label:	"&Table..."
	Click:	"View.ShowTable"
	Shortcut:	"Keys.None"
)

(Choice.288
	Disabled:	1
	Help:	"Displays the Query Builder to select features with a logical expression"
	HelpTopic:	"Query_Builder"
	Update:	"View.AttributeThemesUpdate"
	Label:	"&Query..."
	Click:	"View.Query"
	Shortcut:	"Keys.Ctrl+Q"
)

(Choice.289
	Disabled:	1
	Help:	"Selects features in the active themes using another theme's features"
	HelpTopic:	"Select_By_Theme"
	Update:	"View.SelectableThemesUpdate"
	Label:	"Select &By Theme..."
	Click:	"View.SelectByTheme"
	Shortcut:	"Keys.None"
)

(Choice.290
	Disabled:	1
	Help:	"Creates buffers around features"
	HelpTopic:	"Create_Buffer_Choice"
	Update:	"WizardBuffer.OpenDialogUpdate"
	Label:	"Create Buffers..."
	Click:	"WizardBuffer.OpenDialog"
	Shortcut:	"Keys.None"
)

(Choice.291
	Disabled:	1
	Help:	"Unselects the selected features of all active themes"
	HelpTopic:	"Clear_Selected_Features"
	Update:	"View.AttributeThemesUpdate"
	Label:	"Clear Selected &Features"
	Click:	"View.ClearSelect"
	Shortcut:	"Keys.None"
)

(PMenu.292
	InternalName:	"Graphics"
	Child:	293
	Child:	294
	Child:	295
	Child:	296
	Child:	297
	Child:	298
	Child:	299
	Child:	300
	Child:	301
	Child:	304
	Child:	305
	Child:	306
	Child:	307
	Child:	308
	Child:	309
	Label:	"&Graphics"
)

(Choice.293
	Disabled:	1
	Help:	"Displays the property editor for the selected graphic"
	HelpTopic:	"Graphic_Properties"
	Update:	"Graphic.HasSelectionUpdate"
	Label:	"&Properties..."
	Click:	"Graphic.Edit"
	Shortcut:	"Keys.None"
)

(Space.294
)

(Choice.295
	Help:	"Shows a dialog where you can set the default values for the label and text tools"
	HelpTopic:	"Default_settings_for_text_and_label_tools"
	Label:	"&Text and Label Defaults..."
	Click:	"Graphic.Label Defaults Show"
	Shortcut:	"Keys.None"
)

(Space.296
)

(Choice.297
	Disabled:	1
	Help:	"Displays a dialog box to adjust size and position of selected graphic"
	HelpTopic:	"Size_and_Position"
	Update:	"Graphic.SingleSelectionUpdate"
	Label:	"&Size and Position..."
	Click:	"Graphic.SizePos"
	Shortcut:	"Keys.None"
)

(Choice.298
	Disabled:	1
	Help:	"Aligns the selected graphics"
	HelpTopic:	"Align"
	Update:	"Graphic.HasSelectionUpdate"
	Label:	"&Align..."
	Click:	"Graphic.Align"
	Shortcut:	"Keys.Ctrl+A"
)

(Space.299
)

(Choice.300
	Disabled:	1
	Help:	"Moves selected graphics in front of other graphics"
	HelpTopic:	"Bring_to_Front_on_a_view"
	Update:	"Graphic.HasSelectionUpdate"
	Label:	"Bring to &Front"
	Click:	"Graphic.ToFront"
	Shortcut:	"Keys.None"
)

(Choice.301
	Disabled:	1
	Help:	"Moves selected graphics behind other graphics"
	HelpTopic:	"Send_to_Back_on_a_view"
	Update:	"Graphic.HasSelectionUpdate"
	Label:	"Send to &Back "
	Click:	"Graphic.ToBack"
	Shortcut:	"Keys.None"
)

(Choice.304
	Disabled:	1
	Help:	"Groups selected graphics"
	HelpTopic:	"Group_on_a_view"
	Update:	"Graphic.GroupUpdate"
	Label:	"&Group"
	Click:	"Graphic.Group"
	Shortcut:	"Keys.Ctrl+G"
)

(Choice.305
	Disabled:	1
	Help:	"Ungroups selected graphics"
	HelpTopic:	"Ungroup_on_a_view"
	Update:	"Graphic.UngroupUpdate"
	Label:	"&Ungroup"
	Click:	"Graphic.Ungroup"
	Shortcut:	"Keys.Ctrl+U"
)

(Space.306
)

(Choice.307
	Disabled:	1
	Help:	"Associates selected graphics with active themes"
	HelpTopic:	"Attach_Graphics"
	Update:	"View.AddGraphicsUpdate"
	Label:	"A&ttach Graphics"
	Click:	"View.AddGraphics"
	Shortcut:	"Keys.None"
)

(Choice.308
	Disabled:	1
	Help:	"Removes association between graphics and active themes"
	HelpTopic:	"Detach_Graphics"
	Update:	"View.ClearGraphicsUpdate"
	Label:	"&Detach Graphics"
	Click:	"View.ClearGraphics"
	Shortcut:	"Keys.None"
)

(Space.309
)

(PMenu.310
	InternalName:	"Window"
	Child:	311
	Child:	312
	Child:	313
	Child:	314
	Child:	315
	Child:	317
	Child:	319
	Child:	320
	Child:	321
	Child:	322
	Child:	323
	Child:	324
	Child:	325
	Child:	326
	Child:	327
	Child:	328
	Label:	"&Window"
)

(Choice.311
	Help:	"Arranges windows as non-overlapping tiles"
	HelpTopic:	"Tile"
	Label:	"&Tile"
	Click:	"Project.Tile"
	Shortcut:	"Keys.None"
)

(Choice.312
	Help:	"Arranges windows"
	HelpTopic:	"Cascade"
	Label:	"&Cascade"
	Click:	"Project.Cascade"
	Shortcut:	"Keys.None"
)

(Choice.313
	Help:	"Arranges iconified windows"
	HelpTopic:	"Arrange_Icons"
	Label:	"&Arrange Icons"
	Click:	"Project.ArrangeIcons"
	Shortcut:	"Keys.None"
)

(Space.314
)

(Choice.315
	Help:	"Shows the symbol window"
	HelpTopic:	"Show_Symbol_Window"
	Label:	"Show Symbol Window..."
	Click:	"Project.ShowHideSymWin"
	Shortcut:	"Keys.Ctrl+P"
)

(Space.317
	ObjectTag:	318
	Update:	"WindowMenuUpdate"
)

(AVStr.318
	S:	"wr_mrsa.apr MRSA.Make.AcidBuff MRSA.Make.AgeMap MRSA.Make.Lithmap MRSA.Make.sedhostedgold MRSA.Make.sedhostedgold.pMz MRSA.Make.sedhostedgold.SilDev MRSA.Make.skarn5km MRSA.Make.skarn5km.age View1"
)

(Choice.319
	Help:	"Activates wr_mrsa.apr"
	Label:	"&1 wr_mrsa.apr"
	Click:	"WindowActivate"
	Shortcut:	"Keys.None"
)

(Choice.320
	Help:	"Activates MRSA.Make.AcidBuff"
	Label:	"&2 MRSA.Make.AcidBuff"
	Click:	"WindowActivate"
	Shortcut:	"Keys.None"
)

(Choice.321
	Help:	"Activates MRSA.Make.AgeMap"
	Label:	"&3 MRSA.Make.AgeMap"
	Click:	"WindowActivate"
	Shortcut:	"Keys.None"
)

(Choice.322
	Help:	"Activates MRSA.Make.Lithmap"
	Label:	"&4 MRSA.Make.Lithmap"
	Click:	"WindowActivate"
	Shortcut:	"Keys.None"
)

(Choice.323
	Help:	"Activates MRSA.Make.sedhostedgold"
	Label:	"&5 MRSA.Make.sedhostedgold"
	Click:	"WindowActivate"
	Shortcut:	"Keys.None"
)

(Choice.324
	Help:	"Activates MRSA.Make.sedhostedgold.pMz"
	Label:	"&6 MRSA.Make.sedhostedgold.pMz"
	Click:	"WindowActivate"
	Shortcut:	"Keys.None"
)

(Choice.325
	Help:	"Activates MRSA.Make.sedhostedgold.SilDev"
	Label:	"&7 MRSA.Make.sedhostedgold.SilDev"
	Click:	"WindowActivate"
	Shortcut:	"Keys.None"
)

(Choice.326
	Help:	"Activates MRSA.Make.skarn5km"
	Label:	"&8 MRSA.Make.skarn5km"
	Click:	"WindowActivate"
	Shortcut:	"Keys.None"
)

(Choice.327
	Help:	"Activates MRSA.Make.skarn5km.age"
	Label:	"&9 MRSA.Make.skarn5km.age"
	Click:	"WindowActivate"
	Shortcut:	"Keys.None"
)

(Choice.328
	Help:	"Activates View1"
	Label:	"&10 View1"
	Click:	"WindowActivate"
	Shortcut:	"Keys.None"
)

(PMenu.329
	InternalName:	"Help"
	Child:	330
	Child:	331
	Child:	332
	Child:	333
	Label:	"&Help"
)

(Choice.330
	Help:	"Displays the dialog for browsing and searching ArcView's help system"
	HelpTopic:	"Help_on_Help_Topics"
	Label:	"Help &Topics..."
	Click:	"Project.HelpTopics"
	Shortcut:	"Keys.None"
)

(Choice.331
	Help:	"Provides instructions for how to obtain help from ArcView"
	HelpTopic:	"Help_on_How_to_Get_Help"
	Label:	"&How to Get Help..."
	Click:	"Project.HelpHelp"
	Shortcut:	"Keys.None"
)

(Space.332
)

(Choice.333
	Help:	"Provides information about ArcView"
	HelpTopic:	"About"
	Label:	"&About ArcView..."
	Click:	"Project.About"
	Shortcut:	"Keys.None"
)

(PMenu.334
	Child:	335
	Child:	336
	Child:	337
	Label:	"Minerals Queries"
)

(Choice.335
	Label:	"Potential Skarns"
	Click:	"MRSA.dialog.skarn.run"
	Shortcut:	"Keys.None"
)

(Choice.336
	Label:	"Sediment-Hosted Gold"
	Click:	"MRSA.dialog.sedhostedgold.run"
	Shortcut:	"Keys.None"
)

(Choice.337
	Label:	"Acid Neutralization Potential"
	Click:	"MRSA.Make.AcidBuff"
	Shortcut:	"Keys.None"
)

(PMenu.338
	Child:	339
	Child:	340
	Child:	341
	Label:	"Generalization Queries"
)

(Choice.339
	Label:	"Generalize to Age"
	Click:	"MRSA.Make.AgeMap"
	Shortcut:	"Keys.None"
)

(Choice.340
	Label:	"Lithology Hierarchy Browser"
	Click:	"MRSA.lithbrowser.run"
	Shortcut:	"Keys.None"
)

(Choice.341
	Label:	"Generalize with Primary Lithology"
	Click:	"MRSA.Make.Lithmap"
	Shortcut:	"Keys.None"
)

(ButnBar.342
	Child:	343
	Child:	345
	Child:	346
	Child:	348
	Child:	349
	Child:	351
	Child:	353
	Child:	355
	Child:	356
	Child:	358
	Child:	360
	Child:	362
	Child:	363
	Child:	365
	Child:	367
	Child:	369
	Child:	371
	Child:	373
	Child:	375
	Child:	376
	Child:	378
	Child:	380
	Child:	381
)

(Butn.343
	Help:	"Save Project//Saves the current project"
	HelpTopic:	"Save_Project"
	Icon:	344
	Click:	"Project.Save"
)

(AVIcon.344
	Name:	"Save"
	Res:	"Icons.Save"

)

(Space.345
)

(Butn.346
	Help:	"Add Theme//Inserts themes into the view"
	HelpTopic:	"Add_Theme"
	Icon:	347
	Click:	"View.Add"
)

(AVIcon.347
	Name:	"AddTheme"
	Res:	"Icons.AddTheme"

)

(Space.348
)

(Butn.349
	Disabled:	1
	Help:	"Theme Properties//Displays the dialog box to edit properties of the active theme"
	HelpTopic:	"Theme_Properties"
	Update:	"View.ActiveThemesUpdate"
	Icon:	350
	Click:	"View.ThemeProperties"
)

(AVIcon.350
	Name:	"Props"
	Res:	"Icons.Props"

)

(Butn.351
	Disabled:	1
	Help:	"Edit Legend//Displays the legends of the active themes"
	HelpTopic:	"Edit_Legend"
	Update:	"View.ActiveThemesUpdate"
	Icon:	352
	Click:	"View.EditLegendClick"
)

(AVIcon.352
	Name:	"Legend"
	Res:	"Icons.Legend"

)

(Butn.353
	Disabled:	1
	Help:	"Open Theme Table//Opens the tables of the active themes"
	HelpTopic:	"Open_Theme_Table"
	Update:	"View.TabularThemesUpdate"
	Icon:	354
	Click:	"View.ShowTable"
)

(AVIcon.354
	Name:	"Table"
	Res:	"Icons.Table"

)

(Space.355
)

(Butn.356
	Disabled:	1
	Help:	"Find//Finds features in the active themes using the text you enter"
	HelpTopic:	"Find"
	Update:	"View.TabularThemesUpdate"
	Icon:	357
	Click:	"View.Find"
)

(AVIcon.357
	Name:	"Find"
	Res:	"Icons.Find"

)

(Butn.358
	Disabled:	1
	Help:	"Locate Address//Locates an address in the active, matchable theme"
	HelpTopic:	"Locate_Address"
	Update:	"View.LocateUpdate"
	Icon:	359
	Click:	"View.Locate"
)

(AVIcon.359
	Name:	"AddMatch"
	Res:	"Icons.AddMatch"

)

(Butn.360
	Disabled:	1
	Help:	"Query Builder//Displays the Query Builder to select features with a logical expression"
	HelpTopic:	"Query_Builder"
	Update:	"View.AttributeThemesUpdate"
	Icon:	361
	Click:	"View.Query"
)

(AVIcon.361
	Name:	"QueryBuilder"
	Res:	"Icons.QueryBuilder"

)

(Space.362
)

(Butn.363
	Disabled:	1
	Help:	"Zoom to Full Extent//Zooms to the extent of all themes"
	HelpTopic:	"Zoom_to_Full_Extent"
	Update:	"View.HasDataUpdate"
	Icon:	364
	Click:	"View.ZoomFullExtent"
)

(AVIcon.364
	Name:	"ZoomView"
	Res:	"Icons.ZoomView"

)

(Butn.365
	Disabled:	1
	Help:	"Zoom to Active Theme(s)//Zooms to the extent of active themes"
	HelpTopic:	"Zoom_to_Active_Theme"
	Update:	"View.ActiveThemesUpdate"
	Icon:	366
	Click:	"View.ZoomToThemes"
)

(AVIcon.366
	Name:	"ZoomTheme"
	Res:	"Icons.ZoomTheme"

)

(Butn.367
	Disabled:	1
	Help:	"Zoom to Selected//Zooms to the extent of the selected features"
	HelpTopic:	"Zoom_to_Selected"
	Update:	"View.SelectableThemesUpdate"
	Icon:	368
	Click:	"View.ZoomToSelected"
)

(AVIcon.368
	Name:	"ZoomToSelected"
	Res:	"Icons.ZoomToSelected"

)

(Butn.369
	Disabled:	1
	Help:	"Zoom In//Zooms in on the center of the display"
	HelpTopic:	"Zoom_In"
	Update:	"View.HasDataUpdate"
	Icon:	370
	Click:	"View.ZoomIn"
)

(AVIcon.370
	Name:	"ZoomIn"
	Res:	"Icons.ZoomIn"

)

(Butn.371
	Disabled:	1
	Help:	"Zoom Out//Zooms out from the center of the display"
	HelpTopic:	"Zoom_Out"
	Update:	"View.HasDataUpdate"
	Icon:	372
	Click:	"View.ZoomOut"
)

(AVIcon.372
	Name:	"ZoomOut"
	Res:	"Icons.ZoomOut"

)

(Butn.373
	Help:	"Zoom to Previous Extent//Goes back to the previous extent you were viewing"
	HelpTopic:	"Zoom_Previous"
	Update:	"View.UndoZoomUpdate"
	Icon:	374
	Click:	"View.UndoZoom"
)

(AVIcon.374
	Name:	"ZoomPrevious"
	Res:	"Icons.ZoomPrevious"

)

(Space.375
)

(Butn.376
	Disabled:	1
	Help:	"Select Features Using Graphic//Selects features in active themes using selected graphics"
	HelpTopic:	"Select_Features_Using_Graphic"
	Update:	"View.SpatialSelectUpdate"
	Icon:	377
	Click:	"View.SpatialSelect"
)

(AVIcon.377
	Name:	"SpatialSelect"
	Res:	"Icons.SpatialSelect"

)

(Butn.378
	Disabled:	1
	Help:	"Clear Selected Features//Unselects the selected features of all active themes"
	HelpTopic:	"Clear_Selected_Features"
	Update:	"View.AttributeThemesUpdate"
	Icon:	379
	Click:	"View.ClearSelect"
)

(AVIcon.379
	Name:	"SelectNone"
	Res:	"Icons.SelectNone"

)

(Space.380
)

(Butn.381
	Help:	"Help//Gets help about the next button, tool, or menu choice you click"
	HelpTopic:	"Help_button"
	Icon:	382
	Click:	"Help.Tool"
)

(AVIcon.382
	Name:	"HelpTool"
	Res:	"Icons.HelpTool"

)

(PopupSet.383
	Child:	384
)

(Popup.384
	Child:	385
	Child:	386
	Child:	387
	Child:	388
	Child:	389
	Child:	390
	Child:	391
	Child:	392
	Child:	393
	Child:	394
	Child:	395
	Child:	396
	Child:	397
	Child:	398
	Child:	399
	Child:	400
	Child:	401
	Child:	402
	Child:	403
	Child:	404
	Label:	"Menu"
)

(Choice.385
	Disabled:	1
	Invisible:	1
	Help:	"Deletes the last entered point on the line or polygon being drawn"
	Update:	"View.DelLastPointUpdate"
	Label:	"Delete Last Point"
	Click:	"View.DeleteLastPoint"
	Shortcut:	"Keys.None"
)

(Choice.386
	Disabled:	1
	Help:	"Undo the last edit to graphics on a view"
	HelpTopic:	"Undo_Graphic_Edit_on_a_view"
	Update:	"View.UndoEditUpdate"
	Label:	"Undo Graphic Edit"
	Click:	"View.UndoEdit"
	Shortcut:	"Keys.None"
)

(Choice.387
	Disabled:	1
	Invisible:	1
	Help:	"Redo the last edit operation on a theme that was undone"
	Update:	"View.RedoEditUpdate"
	Label:	"Redo Feature Edit"
	Click:	"View.RedoEdit"
	Shortcut:	"Keys.None"
)

(Space.388
)

(Choice.389
	Disabled:	1
	Invisible:	1
	Help:	"Turns general snapping on"
	Update:	"View.ToggleGeneralSnapUpdate"
	Label:	"Enable General Snapping"
	Click:	"View.ToggleGeneralSnap"
	Shortcut:	"Keys.None"
)

(Choice.390
	Disabled:	1
	Invisible:	1
	Help:	"Turns interactive snapping on"
	Update:	"View.ToggleInteractiveSnapUpdate"
	Label:	"Enable Interactive Snapping"
	Click:	"View.ToggleInteractiveSnap"
	Shortcut:	"Keys.None"
)

(Choice.391
	Disabled:	1
	Invisible:	1
	Help:	"Turns snap tolerance cursor on"
	Update:	"View.ToggleTolCursorUpdate"
	Label:	"Show Snap Tolerance Cursor"
	Click:	"View.ToggleTolCursor"
	Shortcut:	"Keys.None"
)

(Space.392
)

(Choice.393
	Disabled:	1
	Invisible:	1
	Help:	"Snaps the next entered point to the nearest vertex within the user tolerance"
	Update:	"View.InteractiveSnapUpdate"
	Label:	"Snap to Vertex"
	Click:	"View.SnapToVertex"
	Shortcut:	"Keys.None"
)

(Choice.394
	Disabled:	1
	Invisible:	1
	Help:	"Snaps the next entered point to the nearest line segment"
	Update:	"View.InteractiveSnapUpdate"
	Label:	"Snap to Boundary"
	Click:	"View.SnapToBoundary"
	Shortcut:	"Keys.None"
)

(Choice.395
	Disabled:	1
	Invisible:	1
	Help:	"Snaps the next entered point to the nearest node common to two or more features"
	Update:	"View.InteractiveSnapUpdate"
	Label:	"Snap to Intersection"
	Click:	"View.SnapToIntersection"
	Shortcut:	"Keys.None"
)

(Choice.396
	Disabled:	1
	Invisible:	1
	Help:	"Snaps the next entered point to the nearest endpoint of an existing line"
	Update:	"View.SnapToEndPointUpdate"
	Label:	"Snap to Endpoint"
	Click:	"View.SnapToEndPoint"
	Shortcut:	"Keys.None"
)

(Space.397
)

(Choice.398
	Help:	"Unselects the selected features in all active themes"
	Update:	"View.AttributeThemesUpdate"
	Label:	"Clear Selection"
	Click:	"View.ClearSelect"
	Shortcut:	"Keys.None"
)

(Choice.399
	Help:	"Zooms in at point where you click to bring up popup menu"
	Update:	"View.HasDataUpdate"
	Label:	"Zoom In"
	Click:	"View.PopupZoomIn"
	Shortcut:	"Keys.None"
)

(Choice.400
	Help:	"Zooms out from point where you click to bring up popup menu"
	Update:	"View.HasDataUpdate"
	Label:	"Zoom Out"
	Click:	"View.PopupZoomOut"
	Shortcut:	"Keys.None"
)

(Choice.401
	Help:	"Zooms to the extent of the selected features"
	Update:	"View.SelectableThemesUpdate"
	Label:	"Zoom to Selected"
	Click:	"View.ZoomToSelected"
	Shortcut:	"Keys.None"
)

(Choice.402
	Help:	"Centers display on point where you click to bring up popup"
	Update:	"View.HasDataUpdate"
	Label:	"Pan"
	Click:	"View.PopupPan"
	Shortcut:	"Keys.None"
)

(Space.403
)

(Choice.404
	Disabled:	1
	Help:	"Opens the shape properties window for editing vertex locations"
	Update:	"ShapeWin.PopUp Update"
	Label:	"Shape Properties"
	Click:	"ShapeWin.PopUp Open"
	Shortcut:	"Keys.None"
)

(ToolBar.405
	Child:	406
	Child:	408
	Child:	410
	Child:	412
	Child:	414
	Child:	416
	Child:	418
	Child:	420
	Child:	422
	Child:	424
	Child:	426
	Child:	445
	Child:	458
	Child:	477
)

(Tool.406
	Disabled:	1
	Help:	"Identify//Provides information about a feature"
	HelpTopic:	"Identify_tool"
	Update:	"View.IdentifyUpdate"
	Icon:	407
	Cursor:	"Cursors.ID"
	Apply:	"View.Identify"
)

(AVIcon.407
	Name:	"ID"
	Res:	"Icons.ID"

)

(Tool.408
	Disabled:	1
	Help:	"Pointer//Selects, moves, and resizes graphics"
	HelpTopic:	"Pointer_tool"
	Update:	"View.HasDataUpdate"
	Icon:	409
	Cursor:	"Cursors.Select"
	Apply:	"View.Select"
	Click:	"View.SelectTool"
)

(AVIcon.409
	Name:	"Select"
	Res:	"Icons.Select"

)

(Tool.410
	Disabled:	1
	Help:	"Vertex Edit//Adds, moves, and deletes vertices of features and graphics"
	HelpTopic:	"Vertex_Edit_tool"
	Update:	"View.SelectToEditUpdate"
	Icon:	411
	Cursor:	"Cursors.SelectEdit"
	Apply:	"View.SelectToEdit"
	Click:	"View.SelectToEditTool"
)

(AVIcon.411
	Name:	"SelectEdit"
	Res:	"Icons.SelectEdit"

)

(Tool.412
	Disabled:	1
	Help:	"Select Feature//Selects features in the active themes by pointing or dragging"
	HelpTopic:	"Select_Feature_tool"
	Update:	"View.SelectableThemesUpdate"
	Icon:	413
	Cursor:	"Cursors.Default"
	Apply:	"View.SelectPoint"
)

(AVIcon.413
	Name:	"FeatureSelect"
	Res:	"Icons.FeatureSelect"

)

(Tool.414
	Disabled:	1
	Help:	"Zoom In//Zooms in at a point you click or zooms in on a rectangle you drag"
	HelpTopic:	"Zoom_In_tool"
	Update:	"View.HasDataUpdate"
	Icon:	415
	Cursor:	"Cursors.ZoomIn"
	Apply:	"View.ZoomInTool"
)

(AVIcon.415
	Name:	"ZoomInTool"
	Res:	"Icons.ZoomInTool"

)

(Tool.416
	Disabled:	1
	Help:	"Zoom Out//Zooms out from a point you click or zooms out to include a rectangle you drag"
	HelpTopic:	"Zoom_Out_tool"
	Update:	"View.HasDataUpdate"
	Icon:	417
	Cursor:	"Cursors.ZoomOut"
	Apply:	"View.ZoomOutTool"
)

(AVIcon.417
	Name:	"ZoomOutTool"
	Res:	"Icons.ZoomOutTool"

)

(Tool.418
	Disabled:	1
	Help:	"Pan//Drags the display in the direction you move the cursor"
	HelpTopic:	"Pan_tool"
	Update:	"View.HasDataUpdate"
	Icon:	419
	Cursor:	"Cursors.Pan"
	Apply:	"View.Pan"
)

(AVIcon.419
	Name:	"Pan"
	Res:	"Icons.Pan"

)

(Tool.420
	Disabled:	1
	Help:	"Measure//Measures distance"
	HelpTopic:	"Measure_tool"
	Update:	"View.HasDataUpdate"
	Icon:	421
	Cursor:	"Cursors.Measure"
	Apply:	"View.Measure"
)

(AVIcon.421
	Name:	"Measure"
	Res:	"Icons.Measure"

)

(Tool.422
	Disabled:	1
	Help:	"Hot Link//Follows a hot link in the active themes"
	HelpTopic:	"Hot_Link_tool"
	Update:	"View.HotLinkUpdate"
	Icon:	423
	Cursor:	"Cursors.Media"
	Apply:	"View.HotLink"
)

(AVIcon.423
	Name:	"Media"
	Res:	"Icons.Media"

)

(Tool.424
	Disabled:	1
	Help:	"Area of Interest//Sets the view's Area Of Interest for library-based themes"
	HelpTopic:	"Area_Of_Interest_tool"
	Update:	"View.AOIToolUpdate"
	Icon:	425
	Cursor:	"Cursors.Default"
	Apply:	"View.AOITool"
)

(AVIcon.425
	Name:	"AOI"
	Res:	"Icons.AOI"

)

(ToolMenu.426
	Disabled:	1
	Help:	"Label//Labels a feature in the active theme with data from its table"
	HelpTopic:	"Label_Tool"
	Update:	"View.LabelToolUpdate"
	Icon:	427
	Cursor:	"Cursors.Tag"
	Apply:	"View.LabelTool"
	Child:	428
	Child:	429
	Child:	431
	Child:	433
	Child:	435
	Child:	437
	Child:	439
	Child:	441
	Child:	443
)

(AVIcon.427
	Name:	"Tag"
	Res:	"Icons.Tag"

)

(Tool.428
	Disabled:	1
	Help:	"Label//Labels a feature in the active theme with data from its table"
	HelpTopic:	"Label_Tool"
	Update:	"View.LabelToolUpdate"
	Icon:	427
	Cursor:	"Cursors.Tag"
	Apply:	"View.LabelTool"
)

(Tool.429
	Disabled:	1
	Help:	"Callout Label//Click on a feature and drag in the direction you want the label to appear"
	HelpTopic:	"Label_Tool"
	Update:	"View.CalloutUpdate"
	Icon:	430
	Cursor:	"Cursors.Tag"
	Apply:	"View.CalloutLabelTool"
)

(AVIcon.430
	Name:	"CallOutLabel1"
	Res:	"Icons.CallOutLabel1"

)

(Tool.431
	Disabled:	1
	Help:	"Bullet Leader Label//Click on a feature and drag in the direction you want the label to appear"
	HelpTopic:	"Label_Tool"
	Update:	"View.CalloutUpdate"
	Icon:	432
	Cursor:	"Cursors.Tag"
	Apply:	"View.BulletLeaderLabelTool"
)

(AVIcon.432
	Name:	"CallOutLabel2"
	Res:	"Icons.CallOutLabel2"

)

(Tool.433
	Disabled:	1
	Help:	"Banner Label//Click on a feature you want to label"
	HelpTopic:	"Label_Tool"
	Update:	"View.CalloutUpdate"
	Icon:	434
	Cursor:	"Cursors.Tag"
	Apply:	"View.ShadowBoxLabelTool"
)

(AVIcon.434
	Name:	"CallOutLabel3"
	Res:	"Icons.CallOutLabel3"

)

(Tool.435
	Disabled:	1
	Help:	"U.S. Interstate//Click where you want to place a highway shield"
	HelpTopic:	"Label_Tool"
	Update:	"View.CalloutUpdate"
	Icon:	436
	Cursor:	"Cursors.Tag"
	Apply:	"View.Highway1 Apply"
)

(AVIcon.436
	Name:	"BW US Interstate"
	Res:	"Icons.BW US Interstate"

)

(Tool.437
	Disabled:	1
	Help:	"U.S. Route//Click where you want to place a highway shield"
	HelpTopic:	"Label_Tool"
	Update:	"View.CalloutUpdate"
	Icon:	438
	Cursor:	"Cursors.Tag"
	Apply:	"View.Highway2 Apply"
)

(AVIcon.438
	Name:	"USRoute"
	Res:	"Icons.USRoute"

)

(Tool.439
	Disabled:	1
	Help:	"Generic State Hwy//Click where you want to place a highway shield"
	HelpTopic:	"Label_Tool"
	Update:	"View.CalloutUpdate"
	Icon:	440
	Cursor:	"Cursors.Tag"
	Apply:	"View.Highway3 Apply"
)

(AVIcon.440
	Name:	"GenericStateHighway"
	Res:	"Icons.GenericStateHighway"

)

(Tool.441
	Disabled:	1
	Help:	"Generic Square Hwy//Click where you want to place a highway shield"
	HelpTopic:	"Label_Tool"
	Update:	"View.CalloutUpdate"
	Icon:	442
	Cursor:	"Cursors.Tag"
	Apply:	"View.Highway4 Apply"
)

(AVIcon.442
	Name:	"GenericHighway1"
	Res:	"Icons.GenericHighway1"

)

(Tool.443
	Disabled:	1
	Help:	"Generic Oval Hwy//Click where you want to place a highway shield"
	Update:	"View.CalloutUpdate"
	Icon:	444
	Cursor:	"Cursors.Tag"
	Apply:	"View.Highway5 Apply"
)

(AVIcon.444
	Name:	"GenericHighway2"
	Res:	"Icons.GenericHighway2"

)

(ToolMenu.445
	Help:	"Text//Creates text on the display"
	HelpTopic:	"Text_tool"
	Update:	"View.TextToolUpdate"
	Icon:	446
	Cursor:	"Cursors.Text"
	Apply:	"View.TextTool"
	Click:	"SymWin.DisplayFontPanel"
	Child:	447
	Child:	448
	Child:	450
	Child:	452
	Child:	454
	Child:	456
)

(AVIcon.446
	Name:	"Text"
	Res:	"Icons.Text"

)

(Tool.447
	Help:	"Text//Creates text on the display"
	HelpTopic:	"Text_tool"
	Update:	"View.TextToolUpdate"
	Icon:	446
	Cursor:	"Cursors.Text"
	Apply:	"View.TextTool"
	Click:	"SymWin.DisplayFontPanel"
)

(Tool.448
	Help:	"Callout Text//Click and drag to where you want your text to appear, then enter the text"
	HelpTopic:	"Text_tool"
	Update:	"View.TextToolUpdate"
	Icon:	449
	Cursor:	"Cursors.Bullseye"
	Apply:	"View.CalloutTextTool"
)

(AVIcon.449
	Name:	"CallOutText1"
	Res:	"Icons.CallOutText1"

)

(Tool.450
	Help:	"Bullet Leader Text//Click and drag to where you want your text to appear, then enter the text"
	HelpTopic:	"Text_tool"
	Update:	"View.TextToolUpdate"
	Icon:	451
	Cursor:	"Cursors.Bullseye"
	Apply:	"View.BulletLeaderTextTool"
)

(AVIcon.451
	Name:	"CallOutText2"
	Res:	"Icons.CallOutText2"

)

(Tool.452
	Help:	"Banner Text//Click where you want your label to appear and enter your text"
	HelpTopic:	"Text_tool"
	Update:	"View.TextToolUpdate"
	Icon:	453
	Cursor:	"Cursors.Bullseye"
	Apply:	"View.ShadowBoxTextTool"
)

(AVIcon.453
	Name:	"CallOutText3"
	Res:	"Icons.CallOutText3"

)

(Tool.454
	Help:	"Drop-Shadow Text//Click where you want your text to appear and enter your text"
	HelpTopic:	"Text_tool"
	Update:	"View.TextToolUpdate"
	Icon:	455
	Cursor:	"Cursors.Target"
	Apply:	"View.CreateDropShadowText"
)

(AVIcon.455
	Name:	"DropShadowText"
	Res:	"Icons.DropShadowText"

)

(Tool.456
	Help:	"Spline Text//Adds text that is aligned to a splined baseline"
	HelpTopic:	"Text_tool"
	Update:	"View.TextToolUpdate"
	Icon:	457
	Cursor:	"Cursors.Bullseye"
	Apply:	"View.SplineText"
)

(AVIcon.457
	Name:	"TextAligned"
	Res:	"Icons.TextAligned"

)

(ToolMenu.458
	Help:	"Draw Point//Creates a point on the display"
	HelpTopic:	"Draw_tool"
	Update:	"View.PointToolUpdate"
	Icon:	459
	Cursor:	"Cursors.CrossHair"
	Apply:	"View.PointTool"
	Click:	"SymWin.DisplayMarkerPanel"
	Child:	460
	Child:	461
	Child:	463
	Child:	465
	Child:	467
	Child:	469
	Child:	471
	Child:	473
	Child:	475
)

(AVIcon.459
	Name:	"Point"
	Res:	"Icons.Point"

)

(Tool.460
	Help:	"Draw Point//Creates a point on the display"
	HelpTopic:	"Draw_tool"
	Update:	"View.PointToolUpdate"
	Icon:	459
	Cursor:	"Cursors.CrossHair"
	Apply:	"View.PointTool"
	Click:	"SymWin.DisplayMarkerPanel"
)

(Tool.461
	Help:	"Draw Straight Line//Creates a line on the display"
	HelpTopic:	"Draw_tool"
	Update:	"View.GraphicToolUpdate"
	Icon:	462
	Cursor:	"Cursors.CrossHair"
	Apply:	"View.LineTool"
	Click:	"SymWin.DisplayPenPanel"
)

(AVIcon.462
	Name:	"SelectLine"
	Res:	"Icons.SelectLine"

)

(Tool.463
	Help:	"Draw Line//Creates a line with two or more points on the display"
	HelpTopic:	"Draw_tool"
	Update:	"View.PolyLineToolUpdate"
	Icon:	464
	Cursor:	"Cursors.CrossHair"
	Apply:	"View.PolyLineTool"
	Click:	"SymWin.DisplayPenPanel"
)

(AVIcon.464
	Name:	"Lines"
	Res:	"Icons.Lines"

)

(Tool.465
	Help:	"Draw Rectangle//Creates a rectangle on the display"
	HelpTopic:	"Draw_tool"
	Update:	"View.PolyToolUpdate"
	Icon:	466
	Cursor:	"Cursors.CrossHair"
	Apply:	"View.RectTool"
	Click:	"SymWin.DisplayFillPanel"
)

(AVIcon.466
	Name:	"Rect"
	Res:	"Icons.Rect"

)

(Tool.467
	Help:	"Draw Circle//Creates a circle on the display"
	HelpTopic:	"Draw_tool"
	Update:	"View.PolyToolUpdate"
	Icon:	468
	Cursor:	"Cursors.CrossHair"
	Apply:	"View.CircleTool"
	Click:	"SymWin.DisplayFillPanel"
)

(AVIcon.468
	Name:	"Disk"
	Res:	"Icons.Disk"

)

(Tool.469
	Help:	"Draw Polygon//Creates a polygon on the display"
	HelpTopic:	"Draw_tool"
	Update:	"View.PolyToolUpdate"
	Icon:	470
	Cursor:	"Cursors.CrossHair"
	Apply:	"View.PolyTool"
	Click:	"SymWin.DisplayFillPanel"
)

(AVIcon.470
	Name:	"Poly"
	Res:	"Icons.Poly"

)

(Tool.471
	Disabled:	1
	Help:	"Draw Line to Split Feature//Creates a line to split line features"
	HelpTopic:	"Draw_tool"
	Update:	"View.SplitLineToolUpdate"
	Icon:	472
	Cursor:	"Cursors.CrossHair"
	Apply:	"View.SplitTool"
)

(AVIcon.472
	Name:	"SplitLine"
	Res:	"Icons.SplitLine"

)

(Tool.473
	Disabled:	1
	Help:	"Draw Line to Split Polygon//Creates a line to split polygon features"
	HelpTopic:	"Draw_tool"
	Update:	"View.SplitPolyToolUpdate"
	Icon:	474
	Cursor:	"Cursors.CrossHair"
	Apply:	"View.SplitTool"
)

(AVIcon.474
	Name:	"SplitPoly"
	Res:	"Icons.SplitPoly"

)

(Tool.475
	Disabled:	1
	Help:	"Draw Line to Append Polygon//Appends a new polygon adjacent to other polygons"
	HelpTopic:	"Draw_tool"
	Update:	"View.AutoCompleteUpdate"
	Icon:	476
	Cursor:	"Cursors.CrossHair"
	Apply:	"View.AutoCompleteTool"
)

(AVIcon.476
	Name:	"AutoComplete"
	Res:	"Icons.AutoComplete"

)

(ToolMenu.477
	Disabled:	1
	Invisible:	1
	Help:	"Snap//Sets the general snapping tolerance for the editable theme"
	HelpTopic:	"Snap_tools"
	Update:	"View.SnapToolUpdate"
	Icon:	478
	Cursor:	"Cursors.Default"
	Apply:	"View.SnapTool"
	Child:	479
	Child:	480
)

(AVIcon.478
	Name:	"SnapTool"
	Res:	"Icons.SnapTool"

)

(Tool.479
	Disabled:	1
	Invisible:	1
	Help:	"Snap//Sets the general snapping tolerance for the editable theme"
	HelpTopic:	"Snap_tools"
	Update:	"View.SnapToolUpdate"
	Icon:	478
	Cursor:	"Cursors.Default"
	Apply:	"View.SnapTool"
)

(Tool.480
	Disabled:	1
	Invisible:	1
	Help:	"Snap//Sets the interactive snapping tolerance for the editable theme"
	HelpTopic:	"Snap_tools"
	Update:	"View.InteractiveSnapToolUpdate"
	Icon:	481
	Cursor:	"Cursors.Default"
	Apply:	"View.InteractiveSnapTool"
)

(AVIcon.481
	Name:	"SnapFeatureTool"
	Res:	"Icons.SnapFeatureTool"

)

(AVIcon.482
	Name:	"Icon"
	Res:	"View.Icon"

)

(FN.1169
	Path:	"$HOME"
)

(TClr.1170
	Red:	0xffff
	Green:	0xffff
)

(AVStr.1171
	S:	"View"
)

(AVStr.1172
	S:	"Table"
)

(AVStr.1173
	S:	"Chart"
)

(AVStr.1174
	S:	"Layout"
)

(AVStr.1175
	S:	"Script"
)

(AVStr.1176
	S:	"Project"
)

(AVStr.1177
	S:	"Appl"
)

(AVStr.1178
	S:	"DialogEditor"
)