!Workspace
!Version 1000
!Charset WindowsLatin1
Open Table "105G09_contour_l" As _105G09_contour_l Interactive
Open Table "105G09_road_l" As _105G09_road_l Interactive
Open Table "105G09_water_b_a" As _105G09_water_b_a Interactive
Open Table "105G09_water_c_l" As _105G09_water_c_l Interactive
Open Table "claim_outline_2011" As claim_outline_2011 Interactive
Open Table "String_Trenchs" As String_Trenchs Interactive
Open Table "grid_500m" As grid_500m Interactive
Select Trench "Trench" , Date "Date" , Easting "Easting" , Northing "Northing" , Elevaion "Elevaion"  from String_Trenchs  into Query1 noselect  order by 1  
Map From grid_500m,GroupLayer("Sample Number"),GroupLayer("Geochemistry"),String_Trenchs,claim_outline_2011,GroupLayer("Topo",_105G09_road_l,_105G09_contour_l,_105G09_water_c_l,_105G09_water_b_a )
  Position (0.0520833,0.0520833) Units "in"
  Width 7.03125 Units "in" Height 3.42708 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys Earth Projection 8, 74, "m", -129, 0, 0.9996, 500000, 0
  Center (425505.7828,6827612.008)
  Zoom 2.95 Units "km"
  Preserve Zoom Display Position
  Distance Units "km" Area Units "sq km" XY Units "m"
Set Map
  Layer 1
    Display Graphic
    Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
    Label Line Arrow Position Above Font ("Arial",0,9,0) Pen (1,2,0) 
      With Coord
      Parallel On Auto Off Overlap Off Duplicates Off Offset 2
      Visibility On
  Layer 2
    Display Global
    Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (2,2,16711680) Font ("Arial",0,9,0)
    Label Line Arrow Position Above Font ("Arial",257,6,0,16777215) Pen (1,2,0) 
      With Trench
      Parallel On Auto On Overlap On Duplicates Off Offset 2
      Visibility On
   Object 2  Position Above Left 
   Object 3  Position Below 
   Object 4  Position Below 
   Object 23  Position Below Right 
   Object 18  Position Left Offset 8 
   Object 10  Position Below 
   Object 13  Position Above Right 
   Object 28  Position Above Left 
   Object 21  Position Above Right 
  Layer 3
    Display Global
    Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (2,2,8421504) Font ("Arial",0,9,0)
    Label Line Arrow Position Right Font ("Arial",0,9,0) Pen (1,2,0) 
      With claim_outline_2011
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 4
    Display Graphic
    Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
    Label Line Arrow Position Above Font ("Arial",0,9,0) Pen (1,2,0) 
      With ENTITYNAME
      Parallel On Auto Off Overlap Off Duplicates Off Offset 2
      Visibility On
  Layer 5
    Display Global
    Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,10516480) Font ("Arial",0,9,0)
    Label Line Arrow Position Above Font ("Arial",0,9,0) Pen (1,2,0) 
      With ENTITYNAME
      Parallel On Auto Off Overlap Off Duplicates Off Offset 2
      Visibility On
  Layer 6
    Display Global
    Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,65535) Font ("Arial",0,9,0)
    Label Line Arrow Position Above Font ("Arial",0,9,0) Pen (1,2,0) 
      With ENTITYNAME
      Parallel On Auto Off Overlap Off Duplicates Off Offset 2
      Visibility On
  Layer 7
    Display Global
    Global Pen (1,2,65535) Brush (2,65535,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
    Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0) 
      With ENTITYNAME
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  GroupLayer 1
    Display Off Title "Sample Number"
  GroupLayer 2
    Display Off Title "Geochemistry"
  GroupLayer 3
    Display On Title "Topo"
Set Map Layer 1 Editable
Layout
  Position (0.0520833,0.0520833) Units "in"
  Width 8.39583 Units "in" Height 4.35417 Units "in" 
  Dim uniqueStringName As String
  uniqueStringName = "Set " + SessionInfo(1)
  Set CoordSys Layout Units "in"
  Create Frame (0.3861,0.3389) (23.6146,17.6618)
    Pen (1,2,0) 
    Brush (2,16777215,16777215)
    Title "grid_500m,...,_105G09_water_b_a Map"
    FillFrame On
  Create Rect (19.3389,15.1181) (23.3222,17.2306)
    Pen (17,2,0) 
    Brush (2,16777215,16777215)
  Create Line (19.341,15.6014) (23.3208,15.6014)
    Pen (1,2,0) 
  Create Line (19.341,17.0458) (23.3208,17.0458)
    Pen (1,2,0) 
  Create Text
    "FIGURE X"
    (21.0236,15.6403) (21.6785,15.7986)
    Font ("Arial",0,10,0)

  Create Text
    "TRENCH LOCATIONS"
    (20.2715,16.0417) (22.4035,16.2882)
    Font ("Arial",1,15,0)
    Justify Center

  Create Text
    "FILE: ...2011"
    (19.4326,17.0701) (20.0743,17.1986)
    Font ("Arial",0,8,0)

  Create Text
    "DATE: OCT 2011"
    (21.9403,17.0708) (22.8153,17.1993)
    Font ("Arial",0,8,0)

  Create Line (21.8854,17.0465) (21.8854,17.225)
    Pen (1,2,0) 
  Create Text
    "STRING PROPERTY"
    (20.4882,16.4403) (22.2097,16.6472)
    Font ("Arial",0,13,0)

  Create Text
    "UTM ZONE 9, NAD 83, 105G/09"
    (20.4479,16.9042) (22.066,17.0326)
    Font ("Arial",0,8,0)
    Justify Center

  Create Line (19.3438,16.6819) (23.3181,16.6819)
    Pen (1,2,0) 
  Create Text
    "ARCHER, CATHRO & ASSOCIATES (1981) LIMITED"
    (19.5007,15.7799) (23.1771,15.9563)
    Font ("Arial",0,11,0)
    Justify Center

  Create Text
    "0"
    (20.3014,16.6917) (20.3549,16.8049)
    Font ("Arial",0,7,0)

  Create Text
    "250 m"
    (22.1229,16.6972) (22.391,16.8104)
    Font ("Arial",0,7,0)

  Create Text
    "WOLVERINE MINERALS CORP."
    (19.9958,15.1417) (22.6924,15.3549)
    Font ("Arial",1,13,0)

  Create Text
    "STRATEGIC METALS LTD."
    (20.2076,15.3604) (22.4792,15.5736)
    Font ("Arial",1,13,0)

  Create Rect (20.3069,16.8174) (20.7049,16.8972)
    Pen (1,2,0) 
    Brush (1,65535,16777215)
  Create Rect (20.7049,16.8174) (21.1035,16.8972)
    Pen (1,2,0) 
    Brush (2,0,16777215)
  Create Rect (21.4972,16.8174) (21.8889,16.8986)
    Pen (1,2,0) 
    Brush (2,0,16777215)
  Create Rect (21.1035,16.8174) (21.5,16.8972)
    Pen (1,2,0) 
    Brush (1,65535,16777215)
  Create Rect (21.8889,16.8188) (22.2868,16.8979)
    Pen (1,2,0) 
    Brush (1,65535,16777215)
  Set Layout Ruler On Pagebreaks On Frame Contents On
  Zoom 51.287 Center (7.75657,9.10774) Extents To Fit
  Set Window FrontWindow() Autoscroll On Enhanced On Smooth Text Antialias Image High Vector Antialias
  Run Command uniqueStringName
  Undim uniqueStringName
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow
Set Digitizer
  (500918,7220487) (16316,6606) Label "Pt 1",
  (504844,7220531) (21069,6703) Label "Pt 2",
  (502836,7222190) (18506,8636) Label "Pt 3"
  CoordSys Earth Projection 8, 33, "m", -135, 0, 0.9996, 500000, 0
  Units "m"
  Width 1000 Height 1000
  Resolution 500, 500
  Button 1, 0
  Mode Off
