!Workspace !Version 600 !Charset WindowsLatin1 Open Table "Tvolc" As Tvolc Interactive Open Table "MzPz" As MzPz Interactive Open Table "pCmet" As pCmet Interactive Open Table "pCplut" As pCplut Interactive Open Table "Q" As Q Interactive Open Table "QrQbQi" As QrQbQi Interactive Open Table "QT" As QT Interactive Open Table "Tplut" As Tplut Interactive Open Table "Tsed" As Tsed Interactive Open Table "H2O" As H2O Interactive Map From H2O,Tsed,Tplut,QT,QrQbQi,Q, pCplut,pCmet,MzPz,Tvolc Position (0.458333,3.325) Units "in" Width 5.3 Units "in" Height 3.58333 Units "in" Set Window FrontWindow() ScrollBars Off Autoscroll On Set Map CoordSys Earth Projection 1, 0 Center (-107.550028,42.999718) Zoom 447.0816602 Units "mi" Preserve Zoom Display Zoom Distance Units "mi" Area Units "sq mi" XY Units "degree" Set Map Layer 1 Display Graphic Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0) With NAME Parallel On Auto Off Overlap Off Duplicates On Offset 2 Visibility On Layer 2 Display Graphic Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0) With NAME Parallel On Auto Off Overlap Off Duplicates On Offset 2 Visibility On Layer 3 Display Graphic Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0) With NAME Parallel On Auto Off Overlap Off Duplicates On Offset 2 Visibility On Layer 4 Display Graphic Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0) With NAME Parallel On Auto Off Overlap Off Duplicates On Offset 2 Visibility On Layer 5 Display Graphic Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0) With NAME Parallel On Auto Off Overlap Off Duplicates On Offset 2 Visibility On Layer 6 Display Graphic Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0) With NAME Parallel On Auto Off Overlap Off Duplicates On Offset 2 Visibility On Layer 7 Display Graphic Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0) With NAME Parallel On Auto Off Overlap Off Duplicates On Offset 2 Visibility On Layer 8 Display Graphic Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0) With NAME Parallel On Auto Off Overlap Off Duplicates On Offset 2 Visibility On Layer 9 Display Graphic Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0) With NAME Parallel On Auto Off Overlap Off Duplicates On Offset 2 Visibility On Layer 10 Display Graphic Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0) With NAME Parallel On Auto Off Overlap Off Duplicates On Offset 2 Visibility On Set Window FrontWindow() Printer Name "HP LaserJet 1200 Series PS" Orientation Portrait Copies 1 Papersize 1 Create Cartographic Legend Position (7.63333,0.2) Units "in" Width 2.76667 Units "in" Height 5 Units "in" Window Title "Legend of H2O,Tsed,Tplut,QT,QrQbQi,...,Tvolc Map" Portrait Default Frame Title "# Explanation" Font ("Arial",0,10,0) Default Frame Style "%" Font ("Arial",0,8,0) Frame From Layer 6 Border Pen (0,1,0) Title "Q Explanation" Font ("Arial",0,10,0) Using Column object Style Font ("Arial",0,8,0) Text "Quaternary unconsolidated" Region Pen (1,2,0) Brush (2,16777168,16777215) Frame From Layer 5 Border Pen (0,1,0) Title "QrQbQi Explanation" Font ("Arial",0,10,0) Using Column object Style Font ("Arial",0,8,0) Text "Quaternary igneous rocks" Region Pen (1,2,0) Brush (2,16765136,16777215) Frame From Layer 4 Border Pen (0,1,0) Title "QT Explanation" Font ("Arial",0,10,0) Using Column object Style Font ("Arial",0,8,0) Text "Quaternary and Tertiary rocks, undivided" Region Pen (1,2,0) Brush (2,16767152,16777215) Frame From Layer 2 Border Pen (0,1,0) Title "Tsed Explanation" Font ("Arial",0,10,0) Using Column object Style Font ("Arial",0,8,0) Text "Tertiary sedimentary rocks" Region Pen (1,2,0) Brush (2,16777104,16777215) Frame From Layer 10 Border Pen (0,1,0) Title "Tvolc Explanation" Font ("Arial",0,10,0) Using Column object Style Font ("Arial",0,8,0) Text "Tertiary volcanic rocks" Region Pen (1,2,0) Brush (2,16756832,16777215) Frame From Layer 3 Border Pen (0,1,0) Title "Tplut Explanation" Font ("Arial",0,10,0) Using Column object Style Font ("Arial",0,8,0) Text "Tertiary plutonic rocks" Region Pen (1,2,0) Brush (2,16711680,16777215) Frame From Layer 9 Border Pen (0,1,0) Title "MzPz Explanation" Font ("Arial",0,10,0) Using Column object Style Font ("Arial",0,8,0) Text "Mesozoic and Paleozoic sedimentary rocks" Region Pen (1,2,0) Brush (2,11599792,16777215) Frame From Layer 7 Border Pen (0,1,0) Title "pCplut Explanation" Font ("Arial",0,10,0) Using Column object Style Font ("Arial",0,8,0) Text "Precambrian plutonic rocks" Region Pen (1,2,0) Brush (2,16752895,16777215) Frame From Layer 8 Border Pen (0,1,0) Title "pCmet Explanation" Font ("Arial",0,10,0) Using Column object Style Font ("Arial",0,8,0) Text "Precambrian metamorphic rocks" Region Pen (1,2,0) Brush (2,15257855,16777215) Frame From Layer 1 Border Pen (0,1,0) Title "H2O Explanation" Font ("Arial",0,10,0) Using Column object Style Font ("Arial",0,8,0) Text "water bodies" Region Pen (1,2,0) Brush (2,65535,16777215) Set Window FrontWindow() Printer Name "HP LaserJet 1200 Series PS" Orientation Portrait Copies 1 Papersize 1 Layout Position (0.641667,0.741667) Units "in" Width 5.3 Units "in" Height 3.58333 Units "in" Set CoordSys Layout Units "in" Create Frame (-0.6993,0.6035) (8.7438,6.9854) Pen (1,2,0) Brush (2,16777215,16777215) Title "H2O,Tsed,Tplut,QT,QrQbQi,...,Tvolc Map" FillFrame On Create Frame (8.0035,1.4667) (10.725,5.1403) Pen (1,2,0) Brush (2,16777215,16777215) Title "Legend of H2O,Tsed,Tplut,QT,QrQbQi,...,Tvolc Map" FillFrame Off Create Text "SIMPLIFIED GEOLOGIC MAP OF WYOMING" (0.975,7.3299) (6.1215,7.6181) Font ("Arial",0,18,0) Create Text "A.B. Wilson" (7.9757,6.7799) (8.6326,6.9215) Font ("Arial",0,9,0) Create Text "2/4/02" (0.2951,6.8) (0.6451,6.9417) Font ("Arial",0,9,0) Create Text "scale 1:3,000,000" (8.8854,5.2403) (9.8806,5.3819) Font ("Arial",0,9,0) Set Layout Ruler On Pagebreaks On Frame Contents Active Zoom 83.3333 Center (2.92,1.935) Extents To Fit Set Window FrontWindow() Autoscroll On Set CoordSys Earth Set Window FrontWindow() Printer Name "HP LaserJet 1200 Series PS" Orientation Landscape Copies 1 Papersize 1 Margins Left 0.165 Right 0.18 Top 0.165 Bottom 0.18 Units "in" Dim WorkspaceMaximizedWindow As Integer WorkspaceMaximizedWindow = Frontwindow() Set Window WorkspaceMaximizedWindow Max Undim WorkspaceMaximizedWindow