!Workspace
!Version 780
!Charset WindowsCyrillic
Open Table "Zgva" As Zgva Interactive
Open Table "Kavkasia_Hipso" As Kavkasia_Hipso Interactive
Open Table "Legenda" As Legenda Interactive
Open Table "Legendis_Charcho" As Legendis_Charcho Interactive
Open Table "Mdinareebi" As Mdinareebi Interactive
Open Table "Qalaqebi" As Qalaqebi Interactive
Open Table "Sazgvrebi" As Sazgvrebi Interactive
Open Table "Tbebi" As Tbebi Interactive
Open Table "Nagavsayrelebi" As Nagavsayrelebi Interactive
Map From Nagavsayrelebi,Legenda,Legendis_Charcho,Qalaqebi,Tbebi,Mdinareebi,
  Sazgvrebi,Kavkasia_Hipso,Zgva 
  Position (0.0520833,0.0520833) Units "in"
  Width 5.29167 Units "in" Height 3.14583 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys Earth Projection 1, 1001
  Center (42.82223979,41.84904137)
  Zoom 739.9353047 Units "km"
  Preserve Zoom Display Zoom
  Distance Units "km" Area Units "sq km" XY Units "degree"
shade 1 with Raodenoba ranges apply all use all Symbol (41,16711680,6,"MapInfo Cartographic",0,0) 
  0: 100 Symbol (41,16711680,6,"MapInfo Cartographic",0,0) ,
  100: 500 Symbol (41,16711680,9,"MapInfo Cartographic",0,0) ,
  500: 1000 Symbol (41,16711680,12,"MapInfo Cartographic",0,0) ,
  1000: 10000 Symbol (41,16711680,14,"MapInfo Cartographic",0,0) ,
  10000: 150000 Symbol (41,16719904,36,"MapInfo Cartographic",0,0) 
  default Symbol (41,16777215,4,"MapInfo Cartographic",0,0) 
  # use 0 round 1000 inflect off Symbol (35,16777215,4) at 2 by 0 color 1 # 
Set Map
  Layer 1
    Display Value
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial Cyr",0,9,0)
    Selectable Off
  Layer 2
    Display Graphic
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial Cyr",0,9,0)
    Label Line Arrow Position Right Font ("Arial Cyr",0,9,0) Pen (1,2,0) 
      With mdenareoba
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 3
    Display Graphic
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial Cyr",0,9,0)
    Label Line Arrow Position Right Font ("Arial Cyr",0,9,0) Pen (1,2,0) 
      With ID
      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 Cyr",0,9,0)
    Selectable Off
    Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0) 
      With ID
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 5
    Display Graphic
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial Cyr",0,9,0)
    Label Line Arrow Position Right Font ("Arial Cyr",0,9,0) Pen (1,2,0) 
      With ID
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 6
    Display Graphic
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial Cyr",0,9,0)
    Selectable Off
    Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0) 
      With ID
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 7
    Display Graphic
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial Cyr",0,9,0)
    Selectable Off
    Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0) 
      With ID
      Parallel On Auto Off Overlap Off Duplicates Off Offset 2
      Visibility On
  Layer 8
    Display Graphic
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial Cyr",0,9,0)
    Selectable Off
    Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0) 
      With Nazvanie
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 9
    Display Graphic
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial Cyr",0,9,0)
    Selectable Off
    Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0) 
      With Hight
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 10
    Display Graphic
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial Cyr",0,9,0)
    Selectable Off
    Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0) 
      With ID
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
Set Map Layer 5 Editable
set legend 
  layer 1 
    display on 
    shades off 
    symbols on 
    lines off 
    count off 
    title "narCenis moculoba m.kub." Font ("AcadNusx",0,9,0)
    subtitle auto Font ("Arial",0,8,0)
    ascending off 
    ranges Font ("Arial",0,8,0)
      auto display off ,
      "0 - 100" display on ,
      "100 - 500" display on ,
      "500 - 1 000" display on ,
      "1 000 - 10 000" display on ,
      "10 000 - 150 000" display on  
Set Window FrontWindow() Printer
 Name "Send To OneNote 2007" Orientation Portrait Copies 1
 Papersize 9
Create Cartographic Legend
  Position (7.5625,0.21875) Units "in"
  Width 2.80208 Units "in" Height 5 Units "in" 
  Window Title "Legend of Nagavsayrelebi,Legenda,...,Zgva Map"
  Portrait
  Style Size Large
  Frame From Layer 1
    Border Pen (0,1,0) 
Set Window FrontWindow() Printer
 Name "Send To OneNote 2007" Orientation Portrait Copies 1
 Papersize 9
Layout
  Position (-0.0416667,-0.3125) Units "in"
  Width 0 Units "in" Height 0 Units "in" 
  Dim uniqueStringName As String
  uniqueStringName = "Set " + SessionInfo(1)
  Set CoordSys Layout Units "in"
  Create Frame (0.1778,0.1361) (16.3333,11.6153)
    Pen (1,2,0) 
    Brush (2,16777215,16777215)
    Title "Nagavsayrelebi,Legenda,...,Zgva Map"
    FillFrame On
  Create Frame (1.2292,8.6917) (5.0104,10.8354)
    Pen (1,1,0) 
    Brush (2,16777215,16777215)
    Title "Legend of Nagavsayrelebi,Legenda,...,Zgva Map"
    FillFrame Off
  Set Layout Ruler On Pagebreaks On Frame Contents Active
  Zoom 53.4505 Center (-0.40747,-0.360536) Extents To Fit
  Set Window FrontWindow() Autoscroll On
  Run Command uniqueStringName
  Undim uniqueStringName
Set Window FrontWindow() Printer
 Name "Send To OneNote 2007" Orientation Portrait Copies 1
 Papersize 9
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow
