!Workspace
!Version  700
!Charset WindowsLatin1
Open Table "Mapinfo\Tectonic Assemblages cropped.TAB" As Tectonic_Assemblages_cropped Interactive
Map From Tectonic_Assemblages_cropped 
  Position (0.0520833,0.0520833) Units "in"
  Width 8.29167 Units "in" Height 3.85417 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys NonEarth Units "ft"
  Center (760.3389225,-795.1767369)
  Zoom 1435 Units "ft"
  Preserve Zoom Display Zoom
  Distance Units "ft" Area Units "sq ft" XY Units "ft"
  Distance Type Cartesian
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)
    Selectable Off
    Zoom (25, 10000) Units "ft" 
  contrast 50 
  brightness 50 
  alpha 255 
    transparency off 
  color 0 
    grayscale off 
Layout
  Position (0.0520833,0.0520833) Units "in"
  Width 8.29167 Units "in" Height 3.83333 Units "in" 
  Dim uniqueStringName As String
  uniqueStringName = "Set " + SessionInfo(1)
  Set CoordSys Layout Units "in"
  Create Frame (0.45,0.2549) (8.3021,8.6076)
    Pen (2,1,0) 
    Brush (1,16777215,16777215)
    Title "Tectonic_Assemblages_cropped Map"
    FillFrame On
  Create Rect (7.516,7.9083) (7.8493,8.1792)
    Pen (1,1,0) 
    Brush (2,16777215,16777215)
  Create Rect (0.4792,0.3097) (8.2708,10.8097)
    Pen (2,2,0) 
    Brush (1,16777215,16777215)
  Create Rect (6.1931,7.9236) (8.1514,8.4187)
    Pen (1,1,0) 
    Brush (2,16777215,16777215)
  Create Rect (4.191,8.5806) (8.2042,10.7479)
    Pen (23,2,0) 
    Brush (2,16777215,16777215)
  Create Line (4.1819,8.9757) (8.2042,8.9757)
    Pen (1,2,0) 
  Create Line (4.2035,10.5229) (8.2139,10.5229)
    Pen (1,2,0) 
  Create Text
    "TECTONIC SETTING"
    (4.8764,9.559) (7.5813,9.884)
    Font ("Arial",1,20,0)
    Justify Center

  Create Text
    "FILE: ...2011/String/.../String-F03-Tectonic.wor"
    (4.2438,10.5722) (6.2306,10.6854)
    Font ("Arial",0,7,0)

  Create Text
    "DATE: APRIL 2012"
    (6.8958,10.5583) (7.859,10.6868)
    Font ("Arial",0,8,0)

  Create Line (6.7938,10.5257) (6.7938,10.7396)
    Pen (1,2,0) 
  Create Text
    "STRING PROPERTY"
    (5.2368,9.9583) (7.2201,10.1965)
    Font ("Arial",0,15,0)

  Create Text
    "FIGURE 3\n"
    (5.875,9.0174) (6.5819,9.2007)
    Font ("Arial",1,11,0)
    Justify Center

  Create Text
    "ARCHER, CATHRO & ASSOCIATES (1981) LIMITED"
    (4.5514,9.2417) (7.9063,9.4069)
    Font ("Arial",1,10,0)
    Justify Center

  Create Rect (6.0785,3.5694) (7.0167,4.0076)
    Pen (1,2,0) 
    Brush (2,16777215,16777215)
  Create Text
    "STRING \nPROPERTY"
    (6.1257,3.6007) (6.966,3.9674)
    Font ("Arial",1,11,0)
    Justify Center

  Create Line (5.4576,4.0097) (6.0792,3.8104)
    Pen (2,2,0) 
  Create Text
    "After Nelson and Colpron, 2007"
    (0.5417,10.6118) (2.3083,10.7549)
    Font ("Arial",2,9,0)

  Create Rect (5.6903,10.4264) (5.9424,10.4917)
    Pen (1,2,0) 
    Brush (2,0,16777215)
  Create Rect (5.9403,10.4264) (6.1951,10.4917)
    Pen (1,2,0) 
    Brush (2,16777215,16777215)
  Create Rect (6.1931,10.4264) (6.4451,10.4917)
    Pen (1,2,0) 
    Brush (2,0,16777215)
  Create Text
    "0"
    (5.6306,10.2604) (5.6924,10.3889)
    Font ("Arial",0,8,0)

  Create Text
    "300 km"
    (6.391,10.2396) (6.759,10.3681)
    Font ("Arial",0,8,0)

  Create Point (5.3319,4.0431)
    Symbol (35,16776960,25) 
  Create Text
    "WOLVERINE MINERALS CORP."
    (5.0826,8.5875) (7.3743,8.7708)
    Font ("Arial",1,11,0)

  Create Text
    "STRATEGIC METALS LTD."
    (5.2681,8.7868) (7.1896,8.9701)
    Font ("Arial",1,11,0)

  Create Region  1
  4
(5.3563,4.0417)
(5.4653,3.9653)
(5.4813,4.0375)
(5.3563,4.0417)
    Pen (1,2,0) 
    Brush (2,0,16777215)
    Center (5.416,4.0049)
  Set Layout Ruler On Pagebreaks On Frame Contents Active
  Zoom 81.5034 Center (4.81888,5.68182) Extents To Fit
  Set Window FrontWindow() Autoscroll On
  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
