Planet Source Code Jumbo Resource CD Visual Basic 1 to 7

home *** CD-ROM | disk | FTP | other *** search

/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / A_ScriptMa1782528162004.psc / frmCodeMain.frm < prev

Wrap

Text File | 2004-08-17 | 104KB | 1,951 lines

VERSION 5.00 Object = "{0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}#1.0#0"; "msscript.ocx" Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX" Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx" Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Begin VB.Form frmCodeMain Caption = "Script Magic" ClientHeight = 6570 ClientLeft = 165 ClientTop = 735 ClientWidth = 10965 BeginProperty Font Name = "Courier New" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Icon = "frmCodeMain.frx":0000 LinkTopic = "Form1" ScaleHeight = 6570 ScaleWidth = 10965 StartUpPosition = 3 'Windows Default WindowState = 2 'Maximized Begin VB.PictureBox SearchImg Appearance = 0 'Flat ForeColor = &H80000008& Height = 735 Left = 780 ScaleHeight = 705 ScaleWidth = 9555 TabIndex = 15 Top = 960 Visible = 0 'False Width = 9585 Begin VB.CheckBox Check1 Caption = "Match Case" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 240 Index = 0 Left = 5460 TabIndex = 19 TabStop = 0 'False Top = 120 Width = 1335 End Begin VB.TextBox FindText BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 HideSelection = 0 'False Index = 0 Left = 1020 TabIndex = 18 TabStop = 0 'False Top = 120 Width = 2655 End Begin VB.CommandButton Command2 Caption = "Find Next" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 3780 TabIndex = 17 TabStop = 0 'False Top = 60 Width = 1575 End Begin VB.CommandButton Command2 Caption = "Edit" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 3780 TabIndex = 16 TabStop = 0 'False Top = 360 Width = 1575 End Begin VB.Label Label1 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Find what: " BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 60 TabIndex = 21 Top = 120 Width = 975 End Begin VB.Label SearchResult BackStyle = 0 'Transparent Caption = "Label2" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 5520 TabIndex = 20 Top = 360 UseMnemonic = 0 'False Width = 2715 End Begin VB.Image CloseSearch Appearance = 0 'Flat Height = 210 Left = 9300 Picture = "frmCodeMain.frx":014A Top = 0 Width = 240 End End Begin MSComctlLib.ImageList ImageList2 Left = 3420 Top = 2700 _ExtentX = 1005 _ExtentY = 1005 BackColor = -2147483643 ImageWidth = 16 ImageHeight = 16 MaskColor = 12632256 _Version = 393216 BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} NumListImages = 15 BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":04C8 Key = "PROJECT" EndProperty BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":091A Key = "CODE" EndProperty BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":0D6C Key = "BUTTON" EndProperty BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":0F46 Key = "SUBROUTINE" EndProperty BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":1398 Key = "SUBROUTINES" EndProperty BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":17EA Key = "FUNCTIONS" EndProperty BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":1C3C Key = "CLASS" EndProperty BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":21CE Key = "API" EndProperty BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":2620 Key = "TYPEDEFS" EndProperty BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":2A72 Key = "ENUM" EndProperty BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":2EC4 Key = "VARIABLE" EndProperty BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":3316 Key = "ITEM" EndProperty BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":3768 Key = "CONSTANTS" EndProperty BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":3BBA Key = "INPUT" EndProperty BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":3D94 Key = "FUNCTION" EndProperty EndProperty End Begin MSComctlLib.ImageList ImageList1 Left = 3300 Top = 420 _ExtentX = 1005 _ExtentY = 1005 BackColor = -2147483643 ImageWidth = 16 ImageHeight = 16 MaskColor = 12632256 _Version = 393216 BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} NumListImages = 15 BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":4326 Key = "NEW" EndProperty BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":4438 Key = "OPEN" EndProperty BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":454A Key = "RUN" EndProperty BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":4724 Key = "CODE" EndProperty BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":48FE Key = "FORM" EndProperty BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":4AD8 Key = "TOOLBOX" EndProperty BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":4CB2 Key = "STOP" EndProperty BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":4E8C Key = "FIND" EndProperty BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":5066 Key = "SAVE" EndProperty BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":5178 Key = "PASTE" EndProperty BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":528A Key = "COPY" EndProperty BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":539C Key = "CUT" EndProperty BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":54AE Key = "EXIT" EndProperty BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":55F6 Key = "PROPERTIES" EndProperty BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmCodeMain.frx":5910 Key = "FIND2" EndProperty EndProperty End Begin RichTextLib.RichTextBox CodeMain Height = 4755 Left = 3960 TabIndex = 14 TabStop = 0 'False ToolTipText = "Double click a section to edit that section" Top = 480 Width = 6975 _ExtentX = 12303 _ExtentY = 8387 _Version = 393217 Enabled = -1 'True HideSelection = 0 'False ReadOnly = -1 'True ScrollBars = 3 AutoVerbMenu = -1 'True TextRTF = $"frmCodeMain.frx":5D62 End Begin MSScriptControlCtl.ScriptControl SC2 Left = 3300 Top = 4860 _ExtentX = 1005 _ExtentY = 1005 AllowUI = -1 'True End Begin VB.PictureBox SilentWindow Height = 5775 Left = 180 ScaleHeight = 5715 ScaleWidth = 10275 TabIndex = 6 TabStop = 0 'False Top = 480 Visible = 0 'False Width = 10335 Begin RichTextLib.RichTextBox EXEResult Height = 2055 Left = 3600 TabIndex = 13 TabStop = 0 'False Top = 3120 Width = 6615 _ExtentX = 11668 _ExtentY = 3625 _Version = 393217 Enabled = -1 'True ReadOnly = -1 'True ScrollBars = 3 TextRTF = $"frmCodeMain.frx":5DE2 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin MSComctlLib.TreeView ExeTree Height = 5535 Left = 60 TabIndex = 7 TabStop = 0 'False Top = 60 Width = 3495 _ExtentX = 6165 _ExtentY = 9763 _Version = 393217 Indentation = 441 LabelEdit = 1 Style = 7 HotTracking = -1 'True ImageList = "ImageList2" Appearance = 1 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin VB.ListBox exeList1 BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1950 Left = 3600 TabIndex = 8 TabStop = 0 'False Top = 300 Width = 6615 End Begin VB.ListBox List1 BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1950 Left = 3120 Sorted = -1 'True TabIndex = 12 TabStop = 0 'False Top = 3600 Visible = 0 'False Width = 6615 End Begin VB.Label exeSilentLabel BackStyle = 0 'Transparent Caption = "Label2" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 675 Left = 3600 TabIndex = 11 Top = 2280 Width = 6555 End Begin VB.Label exeLabel1 Caption = "Debugger Output" Height = 255 Index = 1 Left = 3600 TabIndex = 10 Top = 2880 Width = 6555 End Begin VB.Label exeLabel1 Caption = "Public Variables" Height = 255 Index = 0 Left = 3600 TabIndex = 9 Top = 60 Width = 6555 End End Begin RichTextLib.RichTextBox ScratchRTF Height = 1275 Left = 120 TabIndex = 5 TabStop = 0 'False Top = 5400 Visible = 0 'False Width = 5115 _ExtentX = 9022 _ExtentY = 2249 _Version = 393217 Enabled = -1 'True TextRTF = $"frmCodeMain.frx":5E59 End Begin VB.PictureBox imgSplitter BackColor = &H00800000& BorderStyle = 0 'None FillColor = &H00808080& Height = 4800 Left = 3960 MousePointer = 9 'Size W E ScaleHeight = 4800 ScaleWidth = 75 TabIndex = 3 Top = 720 Width = 72 End Begin MSComctlLib.StatusBar sb1 Align = 2 'Align Bottom Height = 255 Left = 0 TabIndex = 4 Top = 6315 Width = 10965 _ExtentX = 19341 _ExtentY = 450 _Version = 393216 BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} NumPanels = 3 BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} AutoSize = 2 EndProperty BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} Alignment = 1 AutoSize = 1 Object.Width = 14975 EndProperty BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} Alignment = 1 Object.Width = 1270 MinWidth = 1270 EndProperty EndProperty BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin VB.PictureBox picSplitter BackColor = &H00808080& BorderStyle = 0 'None FillColor = &H00808080& Height = 4800 Left = 3900 ScaleHeight = 2090.126 ScaleMode = 0 'User ScaleWidth = 780 TabIndex = 2 Top = 1080 Visible = 0 'False Width = 72 End Begin MSComDlg.CommonDialog CommonDialog1 Left = 3360 Top = 1020 _ExtentX = 847 _ExtentY = 847 _Version = 393216 End Begin MSComctlLib.Toolbar tbToolbar Align = 1 'Align Top Height = 420 Left = 0 TabIndex = 0 Top = 0 Width = 10965 _ExtentX = 19341 _ExtentY = 741 ButtonWidth = 609 ButtonHeight = 582 Appearance = 1 ImageList = "ImageList1" _Version = 393216 BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} NumButtons = 17 BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "NEW" Object.ToolTipText = "Create a new project" ImageKey = "NEW" EndProperty BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "OPEN" Object.ToolTipText = "Open an existing project" ImageKey = "OPEN" EndProperty BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} Style = 3 EndProperty BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "FIND" Object.ToolTipText = "Search" ImageKey = "FIND2" EndProperty BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} Style = 3 EndProperty BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "PROPERTIES" Object.ToolTipText = "Show project properties" ImageKey = "PROPERTIES" EndProperty BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} Style = 3 EndProperty BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "SAVE" Object.ToolTipText = "Save project" ImageKey = "SAVE" EndProperty BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} Style = 3 EndProperty BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} Enabled = 0 'False Object.Visible = 0 'False Key = "COPY" Object.ToolTipText = "Copy selected object" ImageKey = "COPY" EndProperty BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} Enabled = 0 'False Object.Visible = 0 'False Key = "PASTE" Object.ToolTipText = "Paste an object" ImageKey = "PASTE" EndProperty BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} Style = 3 EndProperty BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} Enabled = 0 'False Object.Visible = 0 'False Key = "SCRIPT" Object.ToolTipText = "Immediate window" ImageKey = "CODE" EndProperty BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "RUN" Object.ToolTipText = "Execute script" ImageKey = "RUN" EndProperty BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "STOP" Object.ToolTipText = "Stop script execution" ImageKey = "STOP" EndProperty BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} Style = 3 EndProperty BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "EXIT" Object.ToolTipText = "Close window" ImageKey = "EXIT" EndProperty EndProperty End Begin MSComctlLib.TreeView tvTreeView Height = 5535 Left = 0 TabIndex = 1 Top = 420 Width = 3315 _ExtentX = 5847 _ExtentY = 9763 _Version = 393217 Indentation = 441 LabelEdit = 1 Style = 7 HotTracking = -1 'True ImageList = "ImageList2" Appearance = 1 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Verdana" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin VB.Menu mnFile Caption = "&File" Begin VB.Menu mnFileURL Caption = "TestMe" Enabled = 0 'False Visible = 0 'False End Begin VB.Menu mnFileNew Caption = "&New Project" Enabled = 0 'False Visible = 0 'False End Begin VB.Menu mnFileOpenProject Caption = "&Import Project" End Begin VB.Menu mnFileSaveProject Caption = "&Save Project" End Begin VB.Menu mnFileSaveAs Caption = "Export &Project to Disk" End Begin VB.Menu mnFileRename Caption = "&Rename Project" End Begin VB.Menu mnSep473254 Caption = "-" End Begin VB.Menu mnFIleEXPMain Caption = "&Export Project to VBScript File (.vbs)" Begin VB.Menu mnFileExpFull Caption = "Include Comments and Blank Lines" End Begin VB.Menu mnFileExport Caption = "Remove Comments and Blank Lines" End End Begin VB.Menu mnSep1 Caption = "-" End Begin VB.Menu mnFileExit Caption = "E&xit" End End Begin VB.Menu mnProject Caption = "&Project" Begin VB.Menu mnFileTest Caption = " &Properties" End Begin VB.Menu mn2356s Caption = "-" End Begin VB.Menu mnEditInitialization Caption = "Add / Edit Initialization Code" End Begin VB.Menu mnAddVars Caption = "Add / Edit Public Variables" End Begin VB.Menu mnAddEditConstants Caption = "Add / Edit Public Constants" End Begin VB.Menu mnSep09u8 Caption = "-" End Begin VB.Menu mnAddSub Caption = "Add SubRoutine" End Begin VB.Menu mnAddFunction Caption = "Add Function" End Begin VB.Menu mnAddClass Caption = "Add Class" End Begin VB.Menu mn873D Caption = "-" End Begin VB.Menu mnProjectFind Caption = "&Find" Shortcut = ^F End End Begin VB.Menu mnDebug Caption = "&Debug" Begin VB.Menu mnDebugRun Caption = "&Run Script" End Begin VB.Menu mnSet59y Caption = "-" End Begin VB.Menu mnViewParms Caption = "View / Edit SubRoutine and Function Parameters" End Begin VB.Menu mnSre46 Caption = "-" End Begin VB.Menu mnDebugStop Caption = "&Stop Running" End End Begin VB.Menu mnHelp Caption = "&Help" Begin VB.Menu mnhelpAbout Caption = "&About" End Begin VB.Menu mnSep0866 Caption = "-" End Begin VB.Menu mnHelpWeb Caption = "On the Web" Begin VB.Menu mnMSDN Caption = "MSDN" End Begin VB.Menu mnMSExamples Caption = "Microsoft Script Examples" End Begin VB.Menu mnWeb1 Caption = "www.winguides.com" End Begin VB.Menu mnWeb2 Caption = "Adaptive.net Online VBScript Reference" End Begin VB.Menu mnWeb4 Caption = "FunctionX.com" End Begin VB.Menu mnWeb3 Caption = "Online VBSTutor" End Begin VB.Menu mnWeb5 Caption = "W3Schools Tutorials and Examples" End Begin VB.Menu mnWeb6 Caption = "www.VisualBasicScript.com" End Begin VB.Menu mnWeb7 Caption = "Devguru.com" End Begin VB.Menu mnWind35 Caption = "Winscripter.com" End End End End Attribute VB_Name = "frmCodeMain" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private dbgMainXML As QSXML Public strXMLToUpdate As String Private WithEvents myScriptOBJ As ScriptEngine Attribute myScriptOBJ.VB_VarHelpID = -1 Private SC1 Private WithEvents m_Events As SM_Event Attribute m_Events.VB_VarHelpID = -1 Private bRunningSilent As Boolean Private bPasswordIsRequired As Boolean Private strPassword As String Private myOpenPath As String Private IsLoaded As Boolean Private isDirty As Boolean Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'wMSG For Find Line Position Const EM_LINEINDEX = &HBB Const WM_SETREDRAW = &HB Dim bKey As Boolean ' True If The RTF Is Change Dim bChange As Boolean ' Last Line Of RTF Dim LastLine As Integer ' Color Dim K_COLOR(1 To 2) As Long Dim C_COLOR As Long Dim Q_COlOR As Long Dim N_Color As Long Dim strDelimiter As String Dim Delimiter(27) As String Dim LastStart As Long ' Keyword 'My Stuff (Ed Daniel) Private Type SM_RunErrorType errNumber As Long errDesc As String errLine As Long End Type Private MyError As SM_RunErrorType Const sglSplitLimit = 500 Private mbMoving As Boolean 'Private dbgMainXML As QSXML Public Function GetProjectXML() As String GetProjectXML = dbgMainXML.XML End Function Private Sub CloseSearch_Click() SearchOff End Sub Private Sub CodeMain_Change() bChange = True ' Update Color Dim OStart As Long Dim OLen As Long Dim StartPos As Long Dim EndPos As Long Dim EndLine As Integer Dim StartLine As Integer Dim x As Long Dim Text As String With CodeMain If .Text = "" Then Exit Sub x = SendMessage(.hWnd, WM_SETREDRAW, 0, 0) If LastStart > .SelStart Then EndLine = .GetLineFromChar(LastStart) StartLine = .GetLineFromChar(.SelStart) Else StartLine = .GetLineFromChar(LastStart) EndLine = .GetLineFromChar(.SelStart) End If StartPos = SendMessage(.hWnd, EM_LINEINDEX, StartLine, 0&) EndPos = SendMessage(.hWnd, EM_LINEINDEX, EndLine + 1, 0&) If EndPos <= 0 Then EndPos = Len(.Text) OStart = .SelStart OLen = .SelLength .SelStart = StartPos .SelLength = EndPos - StartPos .SelColor = N_Color .SelBold = False Text = .SelText .SelRTF = ColorIt(Text) .SelStart = OStart .SelLength = OLen LastStart = .SelStart x = SendMessage(.hWnd, WM_SETREDRAW, 1, 0) .Refresh End With End Sub Private Sub CodeMain_DblClick() ShowSection End Sub Private Sub ShowSection() Dim i As Long Dim sectStart As Long Dim sectEnd As Long Dim oldSel As Long Dim objName As String Dim ndToEdit As Object Dim buff$ Dim prjBuff$ With CodeMain oldSel = .SelStart Do While True LOOPHERE: i = InStrRev(.Text, "'" & Chr$(171), oldSel) If i = 0 Then Exit Sub sectStart = i + 2 i = InStr(sectStart, .Text, Chr$(187)) If i = 0 Then Exit Sub sectEnd = i buff$ = Trim$(Mid$(.Text, sectStart, sectEnd - sectStart)) If Left$(buff$, 4) = "END " Then oldSel = sectStart - 5 GoTo LOOPHERE End If Exit Do Loop Select Case UCase$(buff$) Case "INITIALIZATION CODE" mnEditInitialization_Click Exit Sub Case "PUBLIC VARIABLES" mnAddVars_Click Exit Sub Case "PUBLIC CONSTANTS" mnAddEditConstants_Click Exit Sub Case "ALL SUBROUTINES" If MsgBox("Do you wish to create a new SubRoutine?", vbYesNo + vbQuestion, "Create Object") = vbYes Then mnAddSub_Click Exit Sub End If Exit Sub Case "ALL FUNCTIONS" If MsgBox("Do you wish to create a new Function?", vbYesNo + vbQuestion, "Create Object") = vbYes Then mnAddFunction_Click Exit Sub End If Exit Sub Case "ALL CLASSES" If MsgBox("Do you wish to create a new Class Object?", vbYesNo + vbQuestion, "Create Object") = vbYes Then mnAddClass_Click Exit Sub End If Exit Sub End Select If Left$(buff$, 9) = "Project: " Then mnFileTest_Click Exit Sub End If If InStr(buff$, "SUBROUTINE: ") > 0 Then objName = Trim$(Mid$(buff$, Len("SUBROUTINE:") + 1)) Set ndToEdit = GetItemNode(objName) If (ndToEdit Is Nothing) Then MsgBox "Error retrieving object: " & objName Exit Sub End If EditObject ndToEdit Exit Sub End If If InStr(buff$, "FUNCTION: ") > 0 Then objName = Trim$(Mid$(buff$, Len("FUNCTION:") + 1)) Set ndToEdit = GetItemNode(objName) If (ndToEdit Is Nothing) Then MsgBox "Error retrieving object: " & objName Exit Sub End If EditObject ndToEdit Exit Sub End If If InStr(buff$, "CLASS: ") > 0 Then objName = Trim$(Mid$(buff$, Len("CLASS:") + 1)) Set ndToEdit = GetItemNode(objName) If (ndToEdit Is Nothing) Then MsgBox "Error retrieving object: " & objName Exit Sub End If EditObject ndToEdit Exit Sub End If End With End Sub Private Sub EditObject(ndObj As Object) Dim buff$ With dbgMainXML buff$ = .GetAttributeValue(ndObj, "NAME") 'SubCodeEditor.MyObjXML = ndObj.XML 'SubCodeEditor.Show 1 ObjectCodeEditor.MyObjName = buff$ ObjectCodeEditor.Show 1 End With End Sub Private Sub CodeMain_SelChange() With sb1 .Panels(3).Text = "Ln: " & GetCurrentLine(CodeMain) End With End Sub Private Function vbProcIDX(strFuncName) As Long Dim i As Long With SC1 For i = 1 To .Procedures.Count If .Wain) 253nt If .Wain As Long End Typeaaaaaaaah CodeMain If .Text = "" Then Exit Sub x = SendMessage(.hWnd, WM_SETREDRAW, 0, E(d, WM_SETREDRAW, 0, E(d, WM_SETRnSETREDvAtreate a ne En7& objN ObjectREAsndPropSub Private Function vbProcIDX(strFuncName) As Long Dim i As Long With SC1 For i = 1 To .Procedures.Count If .Wain) 253nt If .Wain As Long End Typeaaaaaaaah CodeMain If .Text = "" Then Exit Sub x = SendMessage(.hWnd, WM_SET0_SETRnSETREDvAtreate 3cAihen Exit Sub x = SendMessage(.hWnd, WM_Ue x =16A-00C0F02 'SubCodeEditor.MainEditor.MainEdito = "E&xit"sage(.hWnd,b 1SFge(.hWnd, WM_Ue x =16A-00C0F02 'SubCodeEditor.MainEdito4NT E(d,uts.Count If .WeiDG Wi5E") 'n5{h){CMVB.Mo3cAihe PrivatT51sEiW=eEditor.b EndOX1nnnnvatT51sEpd Sub Private Sub EditObje3EndOX1nnnnvat v(3g v(3e Sub EditObje3wie86aSnnvate Sub EditOA0F02 'SubCodeEdnstants_Click PrivatT51sEiW=eEditor. = " 6E00C0F0283628} 33333tn Capor bje3wie86aSnnvate Sub EditOA0F02 'SubCodeEdnstants_Click PrivatT51sEiW=eEditSub PrText = 3u1bBsage(.hWSub PrText = 3u1bBsage(.itObje3wie86aSnnvatne}nessage(.hWnd, WM_Ue x " Imag=te(.hWSub PrText = 3d, WM_Ue x " Imag=te(.hWSub PrText =8END " Then oldSel = sectSC Iub in VB.Menu mnProject Cat = 3 Name = Tri"_Clicat = o roject: " Then mnFileTest_Click e&5MesoooooooooooooooooiCE" Object.ToolTipText Imag=te(.hWSub ect.TooRDlickDl1mlin VB"Error r& ChA2 WithEvenct nd8" Thenext =8END "ct.ToolTipText Imag=te(.hWSubF3D oooooooo5LrA0F02 'SubE Cat = 3 Name = Tri"_Clicat = o roject: " Then mnFileTest_Clicks6} = "Export &Project to Disk" End Begin VB3C6isk" End End End licat = o roject: " Then 3aiof s Then mnFileTest_Clicks6} = "Export &Project to Disk" End Begin VB3C6isk" End End End licat = o roject: " Then 3aiof s Then mnFileTest_Clicks6} = "Export &Project to DirERT 2 li&aERT 2 li&aERT"Sze to DirERT 2 li&aERT"Sze to DirERT 2 li&aERT"Sze to DirERT 2 = o roject: " xit"sage(.hWnd,b 1SFge(.hWnd, WM_Ue 3 sEnablg "PASTE" Enablg "PASTE" Enablg "PASTE" Enhs bs ect: " Then 3aiof 4lg upeaaaaaaaa 3aiof s Thenrivasor.MainEdito4NT E(d,uts.Count DNT 5 ) 5 mnFileTest_C yIp1 e 3 sEnablaD "cvABen 3aio 3 sEnablaD "cvABen 3aio 3 sEnablaD "cvABen 3aio 3 sEnablaD "cvABen 3aio 3 sEnablaDn f StartPos = SendMessage(.hWnd,IablaDn f StartPos = SendMessage(.hW,Iablen 3as EndProperty BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 9ong DiEtDNUbiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiibn DiEtDNUbiiiiiobc1"dEdit0ubF3D oooooooo5LrAe dbgMainXML As QSXML1Ae(.hW3D oooooooo2n Did.N Then MsgBox "Error retrieving onagriimit = 500 Private mb StartPos = Ve CaptcvABen Prina = stcvACeo3enjp1en End Sub rMEnaWWXub rMEnaWWXub rMm$eITtcvACeo3enjp1en End(pC} = "Export &Pr0h=2OrNE" EnabC L 0) Set ndToEdit = GetItemXObj Vx3D ooo3_ 2Ns CaWWXubjectCd Begin VB.Menu mnPre9fWWXubjectCdeCeo3enjp1en End Sub = "Export jectCd Begin VB. 1fWWXubjectCdeCeo3e)0 CaptcvABen Prina = ablaD "cvABen 3 dToEdit = GetItemXObj Vx3D ooo3_ 2Ns CaWWXubjectCd Begin VB.Menu CaWWXubjectCd ooo3_ 2N1rs M3_ 2Ndu f ng onagriimit = 500 Private mb StartPos = Ve CaptcvABen Prina - Capt = 500 Private mbVx3D o7#n)"Export jectCd Begin VB. 1fWWXubjectCdeCeo3e)0 CaptcvABen Prina = ablaD "cvABen 3 dToEdit = GetItemXOXmg etItemXOXmg etItemXOXmg y1E) emXOXms1tCd = "-" EnF Imag=te(18839AbBsage4h0 PritPos xporOvT Attribute VB0 n-g=te(18839AbBsage4h0Emibute VB0 nEhMsgBox "Error retrieving aeemXOXms1oiW2RBn 33333tn Capor bje3wie86aSnnvate Sub EditOA0F02 'SubCodeEdnstants_Click PriE Ab EditOA0F02 'Sun Capor7 5o Priva VB.Menu CaWWXubjectCd ooo 0_Atr End Begin9 bje3wien As Long End EnF Imag=teeFe9PriE Ab EditOA0F02 'Sun 0Chtor.M1 Begje3wieTe 3 sEnablaD "cvABen 3aio 3ject: &Pr0h=2OrNEp# 'SubCodeEdnstants_Click PriE nbMheodeM "Export &Project to DirERTlXOXms19_1TlXOXmablaDlicku8" Prpt = 500 Private m Pagri2ote(18839LiU(&DebLd7icku8" Prpt = 500 Private m PagriDebLd t li&aERtdug=te(.9LiU(&Dee3wienjp1er Ib)CaWWFicku8" Prptjp1en En Dli CaWWXubjectCd Begin VB.Menu End Attribute VB_Name = "EClick PriE CaWWXuB4ick^ "Export = "" Thwie86aSnnvaoryEi to Dirp2 Begje3wieTe 3 spRrNEp# 'SubCodeEdnstants_Click PriE nbMheodeM "Export &Project to DirERTlXOXms19_1TlXOXmablaDlicku8" Prpt = ong End EnF Imag=teeFe9PriE Ab EditOA0F02 'Sun 0Chtor.M1 bCodeEdnstan3wieT5&lan3wieT5&lhTt ImabreP_ClicUe x " ect Prpt = ong Eienjp1er Ib)CaWWFicku8" Prptjp1en En Dli s7P_n VB.Menu End #Svrstan3wieT5&lan3wieT5&lhTt Imad End d Begin VB.Menu mnFile Caption = "&File" Begin VB.Mencest_Clicks6} = "Ex Ima dbgMainXMLXOXmg etItemXOXmg etItemXOXmg y1E) S "Ex Ima dbgMainXMLXOXmg etItemXOXmg inXMN mg et mg2t Begin VB"temr"to Di mg2t BegBT5&lhT9nStr(bu 5A1xit/cVB"tem0m Function CC0.LLVal hWnd Pmr"t&aMrtPoTo0 ========ect to Disk" End Begin VB3C6 500 Private m Pagr+ dbgMainXMLXOXQlem0m FunF &DebLd7icko CaptcvABen Prina - Capt/cVB" 3 dTr"topOA0F02 'Sun dbgMainXMLXOXQQleman3wieT5&lhXQQle(XQlem1er Ib)CaWWFicku8" Prptjp1en s &Project to DirERTlXOXms19_1TlXOXmablaDlicku8" Prpt = ong End ge4h0ePHEn Y-Aihe P9obptcvABen Prina - Capt/cVB"oemXObj Vx3D t trievin t trievin t trievin t trievin t trievin t trievin t trievin t trievin t trievin t trievin tseProject to DirERTlXOXms19_1TlXOXmablaS.TERTP-oject to DirERTlXOXms19_1TlXOXmablaS.TERTPa.XObj nXML A trievin t trievin tseProject to DirERTlXOXms19_1TUdbgMainXMLXOXmg etItemXOXmg etItemXOXmg y1E) S "Ex Ima dbgMainXMLXOXmg etItemXOXmg x 540054005rievin t vinERTP-ht57maOin =ieT5&lhTt Imad End End End s Function GetProjectXML() As StMEBh.End Rg etItemXOfC etItemXO End End s F XOXmg etItemXOXmg inXMN mg 3 etItemXOXmg inXMN mg 3 etItemXOXmg inXMN C0F0 "sAutoSize = 1 ObjectXOXX5r emXOXmg x 540054005rievin t vinERTP-ht57maOin =ieT5&lhTt Imad End XmgMd 8cvABen Prina = stcvACeo3enjp1AlmXOXmg x 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 1 4 4 4 4 1 4 4 4 4 1 4 4 4 =ie(rinS Imag F4 4 4 1 tr(bu 4 4 4 4rinS Imag Feegi w = 16dTr"topOA0F02 'Sun dbgMainXMLXOXQQleman3wieT5&lhXQQle(X UTINES" If MsgBox("Do you wish to create a new SubRoutine?", vbYesNo + vbQuestioina - Capt/cVB" 3 dTr"topOA0F02 'Sun dbgMai}I.r"topOA0F02 'Sun QQle(X UTINES" 5XOXQQlewAnnYNtcvABen Prina - CaptNu5c&" CaptcvABen P.2S "Ex Ima dbgMainXMLXOXmg etItemXOXmg inXMN mg et mg2t Begin VB"temr"to Di mg2t BegBT5&lhT9nStr(bu 5A1xit/cVB"tem0m Function CC0.LLVal hWnd Pmr"t&aMrtPoTo0 ========ect to Disk" End Begin VB3R MsgP 4 4 4 =ie(rinS Im(OXmg inXMct toT End XmgMd 8cvA0F0 "3R h55A1xit/cV4sgP 4 4 4MrtPoTo0 f IbRouti3MsdT 1XOXQQlewAnnYNtcvC$ 4MrtPoTo0 f IbRouti3MsdT 1XOXQQlewAnnYNtcvC$ 5p( 4MrtPoTo0 fepO6 5p( 4MrtPoTo0 fepO H Begin VB3R MsgP 4 4 4 =ie(rinS Im(OXmg inXMct toT End XmgMd 8cvA0F0 "3R h55A1xit/cV4sgP 4 4 4MrtPoTo0 f IbRouti VB0 n-g=teate mtn1"S f IbRouti3MsdT 1XOXQQlewAnnYNtcvC$ 4MrtPoTo0 f F f F frF Imag=tA0F0 pSC 7tFF Imag=tA0F0 pSC un frF hWnd UEC- LC.R renu Endxm'Sun 0Chtor.M1 bCodeElewAc frFB5pR5 UEC- LC.R renu EndaiLt-D_MrtPoTo0 f IbRouti3MsdT 1XOXQQlewW"" a8-9 d emXOXmg etn0Chtor.l 2 P- LC.R renuE m0OXmgsOXQQlewAnnYNtcvC$ teitObject ndToEdit Exit Sub Export &Project to DirERTlXO3Cyo3_ 2Ns CaWW04F02 'Sun QQle(m 0, E(d, WM_SETRn VB5rr"topOA0w,PUeeeee in VB.Menu mnProject Cat = 3 Name = Tri"_Clicat = o roject: " A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A" A"""""""""""F$66666666SdxA.=n3w"e9AvACeo3(o_ 2a88" Prpt = UEC- L2 4 4 in VB.Menu mn3evin0w"e9AvACeo3(o_m'Sun 0ChT 1Xate As St a ey-)(u griimit = 500""reate a new SubRoutin(ThensgBox "Error retrieving object: " & objMMMMMMOXmg eV ect Prpt = ong ECeo3(o_m'Sun 0ChT 1Xate As St a & un frF hWnd UEC- LC.R renu Endxm'Sun 0Chtorexm''''a&Project to DirERTlrexm':T 1Xate As St a ey-)(u 0Chtorexm''''a&Proje'a&Project to DirERTo_ 2a88" Prpt = UEC- L.2S h:5Tlrexm':T 1Xate As St a ey-)(u 0Chtorexm''''a&Proje'a&Project rLN If MsgBox("Do y 6 (uject to DirERTlXO3Cyo3_ 2NsA" A" A("Do y 6 ."Cmad End Endtrojd2ce End ''''a&Proje'a&Project to DirE3 End 2sgxit bIx("Do y a''aAs Long Dimb)CaWWFicku8" Prptjp1en s 2sgxit bIxru8" PrptttttttttttttttteCv y a''aAs Long Dimb)CaWWFicku8" Prptjp1en s 2sgxit bIxru8" PrptttttttttttttttteCv y a''aAs Long Dimb)CaWWFickus8} End oEo Bond Pmr"8" PrhoLttttt oEo Bo'Sun 0ChT 1Xate As St a ey-)(ukject 25Aotttt1-m3Sun 0Chtoror.MainEdito4NTiA" A" A" A" A" A" A" A" A" A" A" A21nA" A" A" A" A" A" AfNPbhtoror.MainEdioperto'Sun=Nehensg7Xemr"to Di mg2t .inEdioperto'SiA" A" A" A" A" A" A" A" A" A" A" A21nA" A" A" A" A" A" AfNPbhtoror.M2 mg2t .inEdioperto'Si. f St1oiW2RW St1oiW2RWRs1Xate As St a ey-)(u 0Chto2t .inEdioperto'SiA" A" A" A" A" A" A"dT 1XOXQQlewvACeo3(o_ 2a88" Prpt = UEC- L2 4 4 in VB.Menu mn3evTbukject 25Aotttt1-m3Sun 0Chtoror.MainEdito4NT A" A" A" A" A A" A" A" A" A A" A" A" A" A A" A" A" A" A A" A" A" A" A A" A" A" A" A A" A" A" A" A A" A" A" A" A A" A" A" A" A A".gFbA" A" A" A" A" A" A" A A" A" A" A" A A" A" A" A" A B.Menu mn3evTAa " A" UTINES" n3(o_ 2a88" Prpt = UEC- L2 4 4 in VB.Me0t9 u mnDebug 2)E.95Wnd, WM_ s FCm A" A" A" A" A"t a ey-)(ukject1iA" A" A" ok A" A"t a ey-)(ukject1iA" A" A" ok mb)CaWWFickv(" 0e bIxru8" PrptttttttttttttttteCv y a''aAs Long Dimb)CaWWFickus8} End r RR dbgMainXMLXOXQQleman3wieT5&lhXQQle(X UTINES" If MsgBox("Do you wish to crePxm':T 1Xate As SO r RR = 2880 NA" A" A" A A" A" A" A" A A" A" A" A" A A" A" A" A" A A" Mt8y0" A" A f IbRouti3M01nnt n$ey-)(ukject 2880 A"ViMi As Long WithcA" A" A" A A" A" A" A" A (5&louti3M01nnt n$ey-)(ukject 28M.1 n$ey-)(u3 7tF5""""ukject kject 28M.1 n$ey-s ee As St a ey-)(u 0Chtorexm''''a&Proje'a&Project to DirERTo_ 2a88" Prpt = UEC- L.2S h:5Tlrexm':T 1-Iec A" A"r.2S h:5Tlrexm':T 1-Iec A" A"r.2S 4$h:5Tlrexm':T 1-Iec A" A"r.2S 4$h:ng WithcA" A" A" A A" A5Cv y a''aAs Long Dimb)CaWWFicku8" Prptjp1en s 2sgxit bIxru8" PrptttttttttttttttteCv y a''aAs Long Dimb)CaWWFickus8} End oEo Bond Pmr"8" PrhoLttttt oEo Bo'Sun 0ChT 1Xate As St a ey-)(ukject 25Aotttt1-m3Sun 0A" A" A" A A" A" A" A" A A".gFbA" A" 0A" A" A" A A" AoEo Bo'Sun 0ChT 1Xate As St utin(N oa&Project n8nyDRs As STimit =Set ndToHLcku8h2lewAnnYNtcvC$ 4 UEC- LC.R renu Endxm'Sun 0Chtor.M1 bCodeElewAc frO ndToHLcku8h2lewAnnYNts 0ChT 1Xate As rhoLttttt oEo Bo'Sun =Set ndToHLcku8h2lewAnnYNtcvC$ 4 UEC- LC.R renu Endxm'Sun 0Chtor.M1 bC11, 0)"D s.M1 bCodeElewAc frO ndToHLcku8h2lewAnnYNts 0ChT act to bonYNts tC")E.95 0CC.R renu Endxm'Sun endToHA" A tC"0ject to Dire HLck e bC11, 0)"D s.M1 bCodeElewAc frO ndToHLc Li 0Ch ProBr E oa&Project n8nyDRs As STimit =Set ddiopertopEjecmertopEjecmertopEjecmertopEjecmertrr"topOA0wyu0)"D s.M1 bCodeElewAc frO ndToHLc Li,"cNts tC")E.95 0CC.R renu Endxm'Sun9Sun aje3wie86aSnnvatne}nessage(.hWnd, WM_Ue si,"cNts tC")E.95 0CC.R renumtC"0ject to Dire8If Ito crePxm':T 1Xate As SO r RR = 2880 6T 4 4 in VB.Menu mn3evin0w"e9AvACeo3(o_m'Sun 0ChT 1Xate Ae6666u( act to Dire8If Ito crePxm':T 1Xate(t to Dire8If Ito caigB.eName a,DtAnnYNtcvC$ 4 Ee A" A A" AoEo Bo'Sun 0ChT 1Xate As St utin(N oa&ProCodeElera&ProCodeElera&A6. 7T1Elera&Sug object: " & objMs2Nin(N oa&ProCr hs2Nini5It_m'Sun lhrLaV-p? pP s -oCr hs2Nini5It_m'Sun lhrLaV-p? pP s -oCr hs2NiUEC- LC.R renu Endxm'Sun n(N oa&ProCo1eneFI FillCoera&A6. 7T1s -oCr hs2NiUEC- LC.R renu Endxm'Sun n(N oa&ProCo1eneFI FillCoera&A6. 7T1s -oCr hs2NiUEC- LC.R renu Endxm'Sun -o tC")E.95 Nin(N oa&Pro liCeA A" An(N oa&ProCr hs2NiniToHLc Li 0Ch ProBr E oa&Project n8nyDRs As STimit =Set ddiopertopEjecmertopEj kject 28M.1 n$ey-s ee As St a ey-)(neFI FillCoera&A6. 7T1s -oC A" A A" A" P n(N oa&ProCo1eneFI FillCoera&A6. 7 w A" A" A" A"t a ey-)(ukject12MgiBu-)(u 0Chtoa''aAs LoniiTn s/b bo(t to " _mit =Se lp yo s/b bo(t to " _mit =Sexit/cVB"tem9 n(N oa&ProCo1eneFI FillCoera&A6. 7 w A" A" A" A"dito4NTiA-p? pP /cVBwIUenEdN/cVBwIUenEdN/c9illCoera&A6.in(N oa&PcVBwIUBtttttttttt(.hWndenEdN/cVBwIUenEdN/c9illCoera&A6.in(N oa&ancnEdN/LN/c9illCoera&A6.in(N oa&ancnEdN/LN/c9illCoera&A6.in(N oa&ancnEdN/LN/c9illCoera&A6.in(N oa&ancnEdN/LN/c9illCoera&A6.in(N oa&ancnEdN/LN/c9illCoera&A6.in(N oa&ancnEdN/LN/c9illCoera&A6.in(N oa&ancnEdN/LN/c9illCoera&A6.in(N oa&ancnEdN/LN/c9illCoera&A6.in(N oa&anc4s -oCr hs2NiUEC- LC.Rbs895 a With dbgMainXML buff$ = .GetAttributeValue(ndObj, "NAME") 'SubCodeEditor.MAera&iiiiiiiiiiI FillCoera&A6. 7Vnc3IUenEdN/c9illCoera&A6.in(N oa&PcVBwIUB:N/c9il=A" A" ok A" iii&anc4s -oCr hs2NiUEC- LC.Rbs0hTFI FillCoera&A6. 7T1soTo0 f IbRouti3MsdT 1XOXQQlewW"" a8-9 d emXOXmg etn0Chtor.l 2 P- LC.R renuE m0OXmgsOXQQlewAnnYNtcvC{Ysl" A" ok A" iii&anc4XmgsOXQQlewAnnYNtcvC{Ysl" A" ok A" iii&anc4XmgsOXQQlewAnnYNtcvC{Ysl" A"mE iii&anclT1sNtcvC{Ysl" A" ok A" iii&ancm Begin VB. 1fWWXubjectCdeCeo3e)0 rLC.R renuE mBtor.M1 bCodeElewAc frFB5pR5 Uow ey-s ee As St a ey-)(neFI FillCoera&A6. 7T1s -oC A" A A" A" P n(N oa&ProCo1eneFI FillCoeElewAc frO ndToHLc5rXmg llCoeElewcnEdN/LN/c9illCoera&A6.in(N oa s2S h:5Tlre d emXOXmg etn)5It_m'Sun lhrLaV-p? pP s -oCr hs2NiUEC- LC.R1nnt n$ey-)(ukject Cm-5cFA" A A" hP05(ukject Cm-5cFA" A A" hP05(ukject CmpIgd lw3tEndxm'Sun n(N oa&ProCo1eneFI ep.t E2nMnMnMnMm11:5Tl1nMm05rpt ene1:5Tl1nMm05rpt ene1:5Tl1nMm05rpt ene1:5Tl1nMm05rpt ene1:5Tl1nMm05rpt ene1:5TlMVrpt ene1C-00C0F02 'SubCodeEditor.MainEdiot02 'SubCodeEditor.MainEdiot02 deEdi^orX= .GetAtm 0, E(d, WM_}.MainEdiot02 deEditm 0, E(daie+80 6T 4 4 in VB.c P n(N oa&ProCo1eneF3 4 4 in VB.c P n(N oa&ProCo1eneF3 4 4 in VB.c P T2 NL Mm05rpt ene1:5 rER.c P T2 NL Mm05rpt ene1:5 rER.c P T2 NL6 oong ECeo3(o_NTA A" A" P n(N oa&ProCo1eneFI FillCoeElewAc frO ndToHLc5rXmg llCoeElewcnEdN/LN/c9illCoera&A6.in(N oa s2S h:5Tlre d emXOXmg etn)5It_m'Sun lhrLaV-p? pP s -oC2rpt en oong ECeo3(o_NTA A" A" PElewcnEdN/LN/c6CTlXOXms19_1TlXOXmablaS.TERT2ukject12MgiBoA" P nN{Ysl"" P n(N o_ClicUe x " ectbl-2il" P nN{Ysl"" P n(le Blank Lines" Ento " _mit ne1:5Tl1n SO r RR = 2n(N o_ClicUe x " ectbl-2il" P nN{Ysl"" P n(le Blank Lines" Ento " _mit ne1:5Tl1n SO r RR = 2n(N o_ClicUe x " PhnAIhrLak Lines" Ento " _mito etnnnn Endxm'Sun -o tC")E25DoCr hs ong End wcnEdTn 0ChT 1Xatenes" Ento 2n(N o_ClicUe x " PhnAIhrLak Lines" Ento " _mito etnnnn Endxm'Sun -o tC")E25DoCr hs ong End wcnEdTnb)CaWWFicko5Ysl" A" ok A" ii ainEdirTA A" A" P n(N oa&ProCo1eneFI Fil t? pP 3 Case "ALL FUNCTIONS" If MsgBox("Do you wiu wiu wiu wiu "eI -oC2L FUXmg etn)5It_m'Sun lhrLaV-p? pP sEslaV-peaOlhrLaV-p? pP sEslaV-peaOlhn,r ey-)(neFIb2Nini5It_m' L FUNCTIONS" If Msumo DirPxm':T 1Xate As SO r RR = 2880 6T 4 4 in VB.Menu mn3evin0w"e9AvACeo3(o_m'Sun 0ChT 1Xate Ae6666u( act If MsgBox("Do you illCoera0aV- pP MsgBox("Do you illCoera0aV-Eoo1Pank LilsdT 1XOXQQlewW"" a8OP= 2880 6T-2il" P nN{Ysl"" P n(le Blank Li-" End Begin VB.Menu mnEditatttttwish to crePxm':T 1Xate As SO r RR = Caption = "-m2- lS h:5Tlrexm':T 1-Iec A" A"r.2S 4$h:5 VB.M0e bIxru8" PrptttttttttttttttteCv NF0 pS n(N oa&ProCo8)E25DoCr hs c 1-Iec A" A"r.2S 4$h:5 VB.M0e bIxru8" D10#drS&9 Ento 2n(N o_ 2aOsi:sF_mit ne1:5Tl1n SF9i2 o_ 2aOniw1 Dim Delimiter(27) As String Dim La2 hC(ohnd 1(ohnd 1(ohndRn l52 hC(o&luteValue(n(N oa&sdTENCTIOe4$ni5It_m' L FUNCTIONg Dim La2 hC(ohnd 1(ohnd 1(ohndRn l52 hC(o&luteValue(n(N oa&sdTENCTIOe4$ni5It_m' L FUNCTIONg Dim La2 hC(ohnd 1(ohnd 1(ohndRn l52 hC((n(N oa&sdTENCTIOe4$ni5It_m' Lk Li-" illCoera0a&sdTE"e9Av 1 Dim La2 hC(oheValue(n(a(aoa&sdTE"e9Av 1 Dim La2 hC(oheValue(n(at(iheValue" Prptjp1Value(H renu"w5It_m' L FUN'1(ohndRn l3en(N -E= If MsgBox("Do you illCoera0aV- pP MsgBox("Do you illCoera0aV-Eoo1Pank LilsdT 1XOXQQlewW"" a8OP= 2880 6T-2il" P nN{Ysl"" P n(le Blank Li-" End Begin VB.Menu mnEditatttttwish to crePxm':T 1Xate As SO r RR = Caption = EO r RR = Capt04 4 4 4 4 VB.MCrk Li-" illCoera0a&sdTE"e9Av 1 Dim La2 hC(oheValue(n(a(aoa&sk Li-"&w ii ainEdirTASainRR = Capt04 4 4 4 4 VB.MCrk Li-" illCoera0a&sdTE"e9Av 1 Dim La2 FillCoeElewAc frO ndToHLc5rXmg llCoa&ProCo nN{2toroB2er# llCoa&ProCo nN{2tor3-$p l52 hC((n(N oa&sdTENCTIOe0N9O2 wAc frO nd31eValue(n(a(aoa&sdTE"e9Av 1blsdT 1XOXQQlewW5Nera0a&sdTE"e99Av 1blsdT 1XOXQQlewW5Nera0a&s1oeinXMLXO-bgMainXMLXOXQQleman3SL" A" o 1-Iec A" A"r.2S 4$h:5 VB.M0In(a(aoa&sdTE"e9Aj1R h55A1xit/cV4sgP 4 4 1ct: " A" A" A" A" A" A" A" A" A" A" A"Ss0MLXO-bgMainXMCrk Li-" RepX$ il RepX$ il RepX$ il RepX$ il RepX$ il RepX$ il RepX$ bst rL9epXndRn l5RepX$ il RepX$ il RepX$ il RepX$ il RepX$ il Rep F8cR il RepX$ nd, 3-$p l52 hC((n(N oa&sdT6c_DzEndxm'SA" A"SECue2 deEdi^orX= .GetAtm 0, E(d, WM_}.MainEdioL9epXndRn l5ReX$ bB1 mnDebug 2)E.95Wnd, WM_ s FCm A" AoCr il Begin VB.Menu mnEditatttttwish t"SECue illCoeccccccccnsh t"SECue illCoeccccccccnsh tFillCoera&A6. 7Vnc3IUenEdN/c9illCoera&52 hC((n(N oa&sdTENCTIOe0N9O2 wAc frO nd31eValue(n(a(aoa&sdTE"e9Av 1blrO lewAn = = = = = = =ECue icvCLERT2ukject12M= =ECuegRr/c9ill4((n(N oa&sdT6c_DzEndxm'SA" A"SECue2a&sdT6c_DzEndxm'SA" A"SECue2NcvCf wTENCTIOe0N9O2 wAc frO nd31eValue(n(a(aoa&sdTE"e9Av 1blrO lewAn = = = = = = =ECue icvCLERT2ukject12M= =ECuegRr/c9ill4((n(N oa&sdT6c_DzEndxm'SA" A"SECue2a&sdT6c_DzEndxm'SA" A"SECue2NcvCf wTENCTIOe0N9O2 wAc frO nd31eValue(n(a(aoa&sdTE"e9Av 1blr"r.2S 4$h:5 VA" A" A" A" A" Ai-Uitwish t"SECue i308B.MCrk Li-" E1blrO lewAn MCro-O2 wAc frO nd Ai-UiM es" 308B.MC A" A" AMI ee x " ectbl-2ibt-oC A" A A" A" P n(NukjecLLEm':T Rr/c9ill4((n(N oa&sdT6c_DzEndxm'SA" AX$ il RepX$ il RepX$ il Endxm'SA"tn)5It_m'Sun lhrLaV-p? pP s t"SECCiCTDzEndxm'ePtccnsh t"SECue illCoeccccccccnsh l l52 hC(o&tu 3D"1D lh5ccccnsh t"SECue illCoeccccccccnsh tFiloL BdoooooooooooCS7) As Ath tFiloL BdoooooAiooooooooooCSt 2880 A"ViMi As Long WithcA" ACUx6rAtAttDCF5Ctttt A"ViMi As LYa(aoa&sdTE"eo tFD)uaV-p? pP s t"SECCdoooooootu 3D"1D lh5ccccnsh t"SECue 0N9O trin-$p l52 hC((n(N oa&sdT6c_DzEndxm'SA" A"SECue2 deEdilCoera&A6. 7T1iu "eI -oC2L FUXmg etn)5It_Ou"SECue illCoeccccccccvo(a(aoa&sdTE"e9Av 1blsdT 1XOXQQlewW5Nera0a&sdTE"e99Av 1blsdT 1XOXQQlewW5Nera0a&s1oecRs#A"SECue2aiiiiaXmgsOXQQlewAion = EO r RR = Capt04 4 4 4 4 VB.MCrk Li-" illCoera0a&s lh5ccccnsh t"SECue 0N9O trin-$om3y t"SECue 0N9O trin-$p l5elCoeccccccccvo(a(aoa&sdTE"e9Av 1blR Ai-UiM es" 308B.MC A" A" AMI lmWFndRn ts" 5Ce6N{Ysl"" P n(le Blank Li-" End Begin VB.Menu mnvf Blank Li-" TeE A" A"t2to ceO Blank Li-" End Bbei5 t"SECue 0N9O trin-$p l5eImnvf Blank Li-" TeE A" A"t2to ceO Blank Li-" End Bbei5 t"SECue 0N9O trin-$p l5eImnvf Blank Li-" TeE A" A"t2to ceO Blank Li-" End Bbei5 t"SECue 0N9O trin-$p l5eImnvf Blank Li-" TeE A" A"t2to ceO Blank Li-" Bni2KsHILTeE A" A = EO eSA" A"SECuSI 6Eet04 4 4 4 4 VB.MCrk LsN9O trin-$p l5eImnvf Blank One&A6.in(N oailoL BdoooCu8rttributeValue(ndObj,80t ccccccvo(a(aoa&sdTE"e9Av 1blR Ai-UiM N{Ysl"" PoailoL BdoooCu8ank Li-" TeE AAi-UiM EIt_m'Sun lhrLaV-p? pP s t"SECCiCTDzEndxm'ePtccnsh t"SECue illCof"e99Av 1Rr/rTASainRR = Capt0of"e99&sdTE"0KbsgBox("Do )iw A"Visrk LsN9O trin-$p l5eImnvf Blank One&A A"Visr Ua End Bbei5 t"SECue 0N9O trin-$p l5eIsinRR = Capt0of"B 0N9O N{2to-5S TeE An9Av 1blr"rf"e99& Imag=tA0F0e9Av oera&A6sO 3 = fr0N9O N{2to-oY6ass7b t-oera&A66666666666666666666N illCoera0MF5Ctttt A"ViMi As LYa(aoa&sdPE A" A = EO eSA" A"SECuSI 6Eet04 4 4 4 4 VB.MCrk LsN9'04 4 hLC) VB.MCsrhLC) {Ysl"" P m)pcES 4$h:5 VBbxFsgBox("Do )iw A"Visrk LsN9O trin-$p l5eImnvf BlanBCin-$pFc1e sCoecccN9'04 4 hLC) VB.MCB ainEndO1v_ong WithcA" ACUx6rAtAttDCF5CttternttDCFEtDCF5CttternttDCFEtDCF5.HEn Y-Aihe P9obptcvABen Prina - Capt/cVB"oem7"tsn Capor7 5o Priv'9epXndRn l5ReX$ bB1 mXOXQQlgT ========ect to Disk" End Begin VB3R MsgP 4 4 4 =ie(rinS Im(OXmg iunXOXmg etItemXOXmg "n VB.Menu mnEditatttttwish t"SECue illCoeccccccccnsh t"SECue illCoecccccccL2rin-$p l5eImnvf BlanBoeSECue icvCLERT2ukject12M= =ECuegRr/core Capt0of"B 0N9O N{2to-5S TeE An9Av 1blr"rf"e99& Imag=tA0F0e9Av oera&A6sO 3 = fr0N9O N{ncNa mn3evTbukject 25Aotttt1-m3Sun 0Chtoror.MainEdieB eiwLO11rin-$om3y t"SECue 0N9O trin-$p l A" A"r.2S h:5Tlrexm':T 1-Iec A" A"r.2SSgkdURn tAttDCF5CttternttDCFEtDCF5CttternttDCFEtDCF5.HEn Y-Aihe P9obptcvABen Prina - Capt/cVB"oemi6loL BdoooCu8ank Li-" t0IeF- Capt/"SECueo=5 ct12M= =ECue t0IeF- Capi( Y-Aihe P9obptcvABen Prina - Capt/cVB"oeftcvA BdoooCu8 oev4S11111111111111111111111111111111111111111111111111111poooCaaaaaaaaaaaaaa1PA = EO eSA" A"SECuSI 6Eet04 4 4 4 4 VoAM= EO eSA" t-op111111111Y6ass7b URn tAttDCF5Cttterra A" A" A" N Ar4gBox("Do )=ECue t0IeF- Capi( Y-AiheURn tAttDCF5Cttterra A" A" A" N Ar4gBox("Do )=ECue t0IeF- Capi( Y-Ai3CDAr4gBox("Do )h l l52 hC(o&tu 3D"1D lh5ccccnsh t"b#t04 ncnEd(C(o&tu 3D"1D lh5ccccnsh rk )h l l52 hC(o&tu 8 )=ECu Cue icvCLERT Y-Ai3CDAr4gBox("Do )h l l52 hC(o&tu 3D"1D lh5ccccnsh t"b#t04 ncnEd(C(o&tu 3D"1D lh5ccccnsh rk )h l l5"SECue illCoecccccccL2rin-$p l5eImnvf BlanBoeSECue icvCLERT2ukject12M= =ECuegRr/core Capt0of"B 0N9O N{2to-5S TeE An9Av 1blr"rf"e99& Imag=tA0F0e9Av oera&A6sO 3 = fr0N9O N{ncNa mn3evTbukject 25Aotttt1-m3Sun00CLERT Y-Ai3CDAr4gB2"1D lh5ccccnsI(.5he P9obptcvABenNlRn ts" 5Ce6N{Ysl"" PewAnnYNtcvCNa mn-peaOlhn,r ey-)(neFIb2Nini5Iu8ank Li-" i Y-aImag=tIeArO le oera&A6sO 3 = fr0N9O Nhh5ccccnsI(.5he P9obptcvABC9O2n ZUn ZUf8pollLLf-m3Sun 0ChtororIje oera&A6sOdN/LN/c9illCoereT("oeftcvA BdoooCu8 oev4S11111111111111111111111111111111115in(N oa&ancnEdN/LN/c9inrun 0ChtororIje oeraL -oCnLi-"&w ii ainre HP&A6nre HP&A6nre HP&A6nre HP&A6nre HP&A6 oCu8 oev4S11111111111111111111111c_DzEndxmMNo1# ZUn o h llll=rIj1111111111c_DzEndxmMNo1# ZUn o h llll=rIj1111111111c_DzEndxmMNo1# ZUn o h lllln=rIj1111111111c_DzEndxm6h t"SECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illCof"e99Av 1Rr/rTASadxm6h t"mn bSereT("oeftcvA BdoooCu8 oev4S1111imccnsh rl5"SECue illCoecc doooCu8 oev4S1111imccOFmlSECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illColCoecc doooCu8 oev4S1111imccOFmlSECue illCof"e99Av 1Rr/rTASadxm6h t"SECc111poooCa{ncNa x5"SECue ilbTe( tECc111poooC5oCa{ncNa x5"SECirERT3D"1D6lnNa xNa x5"SECirERT uMenu mnSep0866 Ce99Av 1Rr/rTASadxm6h t"SECc111poooCa{ncNa x5"SECue ilbgin VB.Menu mnEditatttttwish 1Rr/rTASadxm6h t"14i5 CgbcCe6ECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illColCorERTN0oZUn dAL"gFctlCue Lf-m3Sun 0CoezVJRCv1T t"SECue illCof"e99Av 1RwCue illCoiSXt g66 NnnDia mnCoezVJRCv1u mnElgFctlCueeC11111111111111bei5 t"SECueld emXOXmg etn)5It_m'Sun lhrLaV-TASad0MLXO-bgMainXMCrk L&1D lh5ccccnsh t"b#t04 ncnEd(C0 VB.Menu mnEditatttttwish 1Rrttt lhue6E8 oev4r2ntp1pFc1e sCoecccN9'04 4 hLC) VB.MCB ainEndO8cccnsp1emeDeC11111rTASadeillCoera&Ec6L'Sun -o tC")E25DoCr hs ong End wcnEdTn 0ChT 1Xatenes" Ento 2ng25DoCr hs ong End wcnEdTn 0ChT 1Xatenes" Ento 2ng25DoCr hs ong End tC")E25DoCr hEndaiLt- PT 1-Iec A" eoEd"SECirERT3D"aT0 M2S hM5Os.Pi- PT 1-Iec A" eoEd"SECirERTn -o tC")E25DoCr hs Ento 2ngOam1Ruuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuf"e99AvVCu8 oev4S11111111111111111111111113cf111111111 1C"e99Av 1R$4)fSECirERT3D"aT0 M2S hM5Os.Pi-(Rr/rn Canr51111111113cf11 oG il Begi43cf1 hEnto 2ng25DoCr EditOA0rV6 -o tC")E25DoCrXMCrk L&1D lh5uTASadxm6h t"SECue illCof"e99Av 1Rr/rTASadxm6h Md eme4CrXM8 xli"y t"SECue illCCueeC1M8 4Oi43cf1 hEnt25DoCrXMCrk eM2S hM5Os.Pi- PT 1-Iec A" eoEd"SECirERTn -o tC")E25DoCr hs Ento 2ngOam1RuuuuXatenes" oe 0CeT("oeft -_tL2 4 4 in VB.Menu mn3evTboAccccccvo(a(aW2to-5S TN0oZUn dAL"gFctlCue Lf-m3SuunXOX Lf-m3SttttttttteCv y a''aAs Long Dimb)CaW0k eM2S hM5Os.Pi- PT 1-Iec A" eoEd"SECirERTn = EO r RR = Capt04 k)D5rXmg lleiTllCoi4gBox("Do )h l l5R0ga hLC) )CaW0M oOs.Pi- PT 1-Iec A" eoE in VB.c 11poooCa{n. A" eoE in VB.c 11poooCa{n. A" eoE in VB.c 11poooCa{n. A" eoE in VB.c 11poooCa{n. A" eoE hs" 3SuunXXXXXXXXXXXXQLlr"rf"e99 CaNoCrcvA BdoooCu8 oev4S1111imccnsh rl5"SECue illCoecc doooCu8 oev4S1111imccOFmlSECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illColCoecc do(}XXXXXXXXXXX)D3LcnEdTn OXatenes" =06cnsh rl5"SECue1td7rk eM2S h Md eme4CrXM8 xli" Begim SM_RunErrorType Const sglSplitLimit = 500 Private mbMovOtttt1-m3SunT 1Xatenes" 3hnAmXXXXQLlr"rf"e99 CaNoCrcvA BdoooCu8 oev4S1111imccnsh rl5"SECue ilt mnEditatttttwish s/bt titatttttwishCDAr4gBox("Do )h l lTnSXt g66 NnnDia mnCoezVJRCv1u m7.s-P&5Iv4S1c9ill4((nIv4S1c9ill4((nIv4S1c9ill4((nInoev4S1111imccnshB1Rr/LMoera&A6sO 3 = fr0N9O N{2to-oY6ass7b ,o(}XXXXXXXXXXX)D3L e8UJx5"SECoecc doooCu8 oev4S1111imccOFmlSECue illCof"e99Av 1Rr/rT2r fr0N9O}XXOwCue illCoiSXt g6aAzEndxm':T 1Xate(t to Dire8If Ito caigB.eName a,DtAnnYNtcvC$ ohb"e99Avroa&ProCo1eneF3 4 4 Coera0sh# imccnshB1RA oglB7 eM2S hM5Os.Pi- PT r"e99 ccccnsh t"b#t04 ncnEd(C0 VB.Menu mnEditatttttwish 1Rrttt lhue6E8 oev4r2ntp1pFc1e sCoecccN9F illCof"e99Av 1Rr/rTASadxm6h t"SECue illCof"e9nnYNtcvC$ ohb"e99Avroa&v4S111iCu8iseman3SL" A" o 1-Iec A" A"r.2S 4$h:5 VB.M0In(a(aoa&sdTE"e9Aj1R h55A1xit/cV4sgP 4 4 1ct: " A" A" A" A" A" A" A" A" A" A" A"Ss0MLXO-bgMainXMCrk Li-" RepX$ il RepX$ il RepX$ il RepX$ il RepX$ il RepX$ il RepX$ bst rL9epXndRn l5RepX$4111rTASadei9W rL9epXndRn l5RepX$4111rTASadei9W rL9epXndRn l5RepX$4111rTASadei9WL9epXndRn l5J v2ECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illCof"e9Sadxm6h t" rV6 -o tC")E25DoCrXMCrk L&1D lh5uTASAv bnENExm6hl cV4sg S1111imccOFmlSECue illCof"e99Av xdeEdi^orX= .GetAtm 0, E(d, WM_}.MainEdioL9epXh5uTASAv moZUn dAL"gFctlCue Lf-m3SuunXOX Lf-m3SttttttttteCv y a''aAs Long Dimb)CaW0k eM2S hM5Os.Pi- PT 1-ASAv FL7("lSEh t"SECue illColCoecc doooCu8 oev4S1111imccOFmlSECue illCof"e99Av 1Rr/rTASadxm6h t"SECcLE TeE A" A"t2to ceO Blank Li-" hrRn l5J v2ECue illCof"e99Av 1Rr/rTASadxm6h t"SECue illCof"e99Av 1Rr/rTASaTlsQ2VTest_ClicT1r/rTASaTls-Iec A" A"r.2S 4$h:5 VB.M0In(a(S&9RA" A" A" A3mls-Private m PagriDi0EruC}EoCof"6=titatttttwish to crePxm':T 1Xate As SO r RR = Caption = EO r RR = Capt04 4 4 4 4 VB.MCrk Li-" illCoera0a&sdTE"e9Av 1 Dim La2 MSO r RR = Caption = EO rnd wCaW0k eM2S hM5Os.Pi- PT 1-Iec A"QNc5Sw2S hM5Os.PB0e PT 1-Iec A"QNc5Sw2S hM5Os.PB0e PeL"gFctlCue L"e A"t2to ceO Blank Li-" hrRn l5J cOFe) -o t)t_ClicT1r/rTASaTls-Iec A" A"r.2S 4$h:5 VB.M0In(a(S&9RA" A" ns9-. Caption = EO r RR = Caa5zlank Li-" ef.M0In(a(S&9RA" A" ns9-ls- = EO r RR ctStaMs Longl4((0 f IbRouti3MsdT 1XOXQQlewW"" a8-cdoooCu8 oev4S1111im BdoooCu8a}EC- pP MsgBox("DoF7rk e"yMMMMMMt66. .hEOpT1DeM2S hM5Os.Pi- PT r"e99 ccccnsh t"b#t0WCi v2ECue ilD5E"e9ArASadei9W rL9epXndRn l5RepX$4111rTACu8 o ns9-lS1111ipP MsgBox("DoF7rk e"s.Pi- PT r"e99 ccccnsh ,VAmXXXXQLl7rk en&hoS TNXQLl RR = Caption = EO rb#tmc3i9W rL9epXndRn l5RepX$4111rrk en&hoS TNXQM111111t66. .hEOpT1DeMepX$4115 rERne il7e99 ccccnsh ,VAmXXXXQLl7rk 1r/rT4$h:5e il7e99 ccccnsh ,VAmXXXXQLl7rk yaiE0 L&iaMm$CV6.h ,VAmXXXXQLl7rk yaiE0 L&iaMm$CV6.h ,50 Im(OXmg iunXOXmg etItemXOXmg Lil7e99 v 1blR Ai-UiM es" NxaW0k eM2S hM5Os.Pi- PT 1-Iec rO 3 = fr1e i Y-aImag=tIeArO le oera&A se Lil7e99 v v-Iec rO 3rO 3rO 3rO lCof"e99AvQQlel9 v r/rTA5= Cs8, E(d, WM_vo(a(aW2 RR = Caption = EO rb#tmc3i9W rL9epXndRn l5RepX$4111rrk en&hoS TNX un =ti = am7emIn(a(S&9RA" A" nhue6E8 oe$ Pm7emIn(a(S&9RA" A" nhue6E8 0.MT14S hM5OsEEyE.}e6E8 0.MT14S hM5OsEEyE.}e6E8 0.MT14S hM5OsEEyE.}e6E8 0.MT14S hM5OsEEyE.}e6E8 0.MT14S:xU TeE A" AeillCoeccccccccnE857oeccccccccnE857oeccccccccnE857u:m = 1b NxaW0k eM2S hM5Os.Pi- PT 1-I(en1d(1aaW0k e 1b NxaW0k eM2S hM5Os.Pi- PT 1-I(en1d(1a F7ritatttttwi2D 1b NxaW0k eM2S hM5Os.Pi- PT 1-I(en1(nemXOXmg Lil7e99 v 1blR Ai-UiM es" " A" P n(NukjecLLEm':T Rr/c9R = Caption7,attttwi2D 1b NxaW0k y es" " A" P n(Nscccccttttwi2D 1b NxaW0k eM2S hM5Ottttwl25DoCr hs ong End wcnEdTn R8 )8 IoOgS&9RA" A"9c9 v 1blR Ai-UiM emf3Mb rL9epXnS&9R )bm EdTn8e(I Ai-UiM es"eo crePxm':T 1Xate As SO r RR = 0mBta " " A" P n(NsccccCap I Ai-UiMmg iunXt hM5OsEEyE.}e6E8 0.MT14S hM5OsEEyE.}e6E8 0.MT14S:xU TeE A" AeillCoeccccccccnE857oeccccjexm':T Y-Ai3CDAr4gB2"1D lh5ccccnsI(.5he P9obptcvABenNlRn ts" 5Ce6N{Ysl"" PewAnnYN&8 IoOgS&9RA" A"9c9 v 1blR Ai-UiM emf3 r RR = 0mBta " " A" P n(NsccccCap I Ai-UiMmg iunXt hM5OsEEyE.}e6E&yE.}e6E8aMmg iu I Ai-UiMmg iunXt hM5OsEEyE.}e6E&yE.}e6E8aMmg iu I Ai-UA"9c9 v 1blR Ai-UiM emf3 r RR = Caption7,attttwi2D 1b NxaW0k y es" " A" P n(Nscccccttttwi2D 1b NxaW0ksh# imccnscccCap I A111c_tA8eLtOsEEyE.}e6E&yE.n111ccCasccccCap LLMb(aoa&sdeEAi-UiMmg iun1"OsEEyyyyyoCoecc doooCu8 oev4S1111imccOFmlSECue illCof"e99Av 1Rr/rTASadxm6h t"SECcLE TeE A" A"t2to ce&C 3=xbxmo " A" P n(Nscccccttttwi2D 1b NxaWM8L9epXndRn l5J 3=xbxmo " A" P n(Nscccccttttwi2D nb 5e m PagriDi0EruC}EoCof"6=titatttttw 1blR Ai-UiM emf3 r RR = 0mBta " "11rrk en&hoSasccccCap LLMb(aoa&sdeEAi-UiMmmBta "di- PT90sh8 QM111111t66. .hEOpT1DeMepX$4115 rERne il7zc = 0mBta " "11rrk en&hoSasccccCt"SECcLE TeE A" A"t2to ce&C 3=xbxmo " A" P n(Nscccccttttwi2D 1bpXh5uTASAv moZUn dAL"gFctlCue Lf-m3SuunXOX Lf-m3SttttttttteCv y a''aAs Long Dimb)CaW0k eM2S hM5Os.Pi- PT 1-ASAv FL7("lSEh t"SECue illColCoecc doooCu8 oev4S1111imccOFmlSECue illCof"e99Av 1Rr/rTASadxm6h t"SEC5DoCr t"SECue illColCoeccVB"oeftcvNDxm6h t"OW0k eM2S hM5Os.Pi- 6ERlCo'aAs FRO31T4so a''LC")E25DoCr hs ong End wcwox("Do )h l l52 hC(o&tu 3D"1D lh5ccccnsh t"b#t04 ncnEd(C(o&tu 3D"1D lh5ccccnsh rk )h afnVcn PrRneDMlglB7 rrRneDMlglB7 rrRneDMlglB7 rrRneDMlglB7 rrRneDTIP3a " "11rrk en&hoSasccccASad1BCCue 0N9O trin-$p ag=t_-k en&hoSasun t trievin t trievin 3mxaW0k eM2S hM56aP5Os.Pi- 6ERlCo'aAs FRO31T4so a''LCt t"SEVDllllllllllllllllllllllllllllllllllllllgI22YcilNCoeccVB"oeftNTN5Sw2S 811kE(4&hoSl7rk 1r/1E(4&ho4a ccVTASAv moZUn dAL"gFctl- 6C w2S 811kE(4&hoSl7rk 1r/1E(4&ho4a ccVTASAvli- PT 1-it/cV4sgP 4 4 1ctllllllllllllllllgI2EO r RRob0mb)CaWib"SECF-o1TASadxm6hR99Av0 iuI 4 4 1ctlll4 4n4n4n4n4n4n4n4n4n4n4n4n- 11kE(4&hoSo8 o ns9-lS1111ipP MsgBox("DoF7rk e"s.Pi- PT r"e99 c yaiE0 L&iaMm$CV6.h ,VAmXXXX Li-" oL oL oL oL 4 4entp1p75Os.Pi-iunXt hM5OsEEyE.}e6E&yE.}e6E8aMmg iu I Ai-UA"9c9 v 1blR Ai-UiM emf3 r RR = Cnr RR = Cs5nXt hM5OsEEyE.}e6E&yE.}e6E8aMmg iu I Ai-UA"9c9 v D 1b0 Ai-UiM emf3 r RR = r RR = CaA4scafnVcn PrRneDMlglB7(aoa&sdTE"e9Aj1R h55A1xit/cV4sgP (aoE CaA4scafnVcn PrRneDMlglB7(aoa&sdTElank Li-" 21emf3 r RR CaA4sbgnIv4oa&sdTE"e9eM2S hM5OseDT3 r xm6hR9apt04Qnr"e99 ccccnsh ,M5OseDT3ytin-$p G"FS Cs5nXt hM5OsEEyE.}e6E&yE.}e6j1R h55A1xit/cV4sgP (aoE CaA4scafnVcn PrRneDMlglB7(aoa&sdTElank Li-" 21emf3 r RR CagnIv4oa&sytCE3U RR = r RR = CaA4scafnVcn PrRneDMlglB7(aoa&sdTE"e9Aj1R h55A1xit/cV4sgP (aoE CaA4scR1R h55A1xit/cV.s.Z_DzEndxmCnd(iTRneDMlglB7(aoa&sdTElank Li-" 21ytCEldnVcn PrRneDMlglB7(aoa&sdTElank Li-" N6 k Li-" lgl 1blR Ai-Ui7 lgl 1blxm6hR L lglL9ep$M2S 1PrRneDM 1blxm6hR 55A1xit/cV4sgP (aoE CaA4sca DMlglBn37Sadxm6h t"SEuM2S hM5Os.Pi- PT 1C=DcafnVcl23PrRneV6 -o tC")E25DoCrXF2&1TASadxm6hR99Av0 iuI 4 4 1ctlllglL9ep$M2S 1yL5 lgl 1blxm6hR L lglL9ep$M2S 1PrRnE oE CaA4scafnVcn Pr2&1TASadxm6hR99Av0 iuI 4 4 1ctlllglL9ea""eeN5 hM5'hE8 0escafi aM2S3e r RR EyE.}e6E&yE.}e6E8aMmg iu I Ai-UA"9c9 v 1bl 2oCrXF2&1TASa mCnd(iTRneDMlglB7(aoa&sdTb 0EuM2S hM5Os.Pi- PT 1C=DcafnV01p8g sR 55A1xit/cV4sk6=L4n4n4Oenu mn)RO3191l&1TASa mCnL1 Up I Ai-UiMmg iunXt hmg iunXt hmg iunXt hmg iunXt hmg iunXt hmg iunXt hmg iunXt hmg iunXt hmg iunXt hmg iunXt hmg iunXt hmg iunXt hmg iunXt hmg iunXt hmg iunXt hmg iunXt r hmg eeE08e5A1xit/cV4sgP (aoE CaA4sca DMlglBn37Sadxm6h t"SEuM2S hM5Os.Pi- PT 1C=DcafnVcl23PrRneVmg iu I Ai-UA"9c9 v 5h55A1xit/C; sDcafnV01pE"sDcafnt hmg iunXt hmgl l5eIlgleeB7(r/rTAemg iuDycafnVcn PrRneDMlglB7(aoa&sdTE.emg iuDycafnVcn PrRneDMlglB7(aoa&sdTE.emg iuDycafnVcn PrRneDI111111xit/C; e cEt hmg iunXt hmg iunXt hmg iunXt hmg iunXt hmg iunXt r hmmUtCn1gDcafnV01pE"sDcafuuuuuuum 3.1 oE CaA4scafnPh l lTnSX A" A A" A"oCcg iuDJEndxmCnd(iTRneDMlglBcDMlglBc l iunXt hmg iunXt hmg iunXt hmg iunXt hmg L"gFctlCue Lf-m3SuunXOX Lf-munXt hmg iuoVtatttttwi2D 1b NxaW0k eM2S i2D 1b NxaW0k eM2S i2D 1b Nx9it/cV.s.Z_DzENxaW0k eM2S i2Dbxmo " A" it/cV.s.Z_DzENxaW0k eM2S i2Dbxmo " A" it/cV.s.Z_DzEBcDMlglBc lehmgn)RO3191l&1TASa mCnL1 Up I Ai-UiMmg itC")E25DoCrXF2&1TASadxm6hR99Av0 it/cV.s.Z_DzENxaW0k eM2S i2Dbxmo " A"9Av0 it/cV.s.Z_DzENxaW0k eM2S i2Dbxmo " A"9Av0 it/cV"(P3.s.Z_DzENxasTl1bZ7l2S 1y hmgl l5eIlgleeB7(r/rTAemg iuDycafnVcnhl i2Dbxmo " A" ix("DhccccCap LLMb(aoASECue illCof"e99As2Dbxmo " A"9O N{lglBc lehm tlank L 1bl 2oCrXF2&1TASa it/cV.s.Z_DzENxaW3nre9As2Dbxmo " A"9O NMniit/CNl 7ea22unXt hmg iunXt hmg iunXt hmg iunXt r hmg eeE08e5A1xit/cV4sgP (aoE CaA4sca DMlglBn37Sadxm6h t"1aoASECue illCof"e99As2-ea22unXtteaoa&sdTb 0EuM2S hM5Os.Pi-adxm6h t/cV48Erl 2oCrXF2&1TASa it/cV.s.Z_DzENxaW3nre9As2Dbxmo " A"9O NMniit/CNl 7ea22unXt hmg iunXt hmg iu " AzENxaW3nre9As2Dbxmo "rt tr5-re9A"N5mgl l5eIlgleeB7(r/m9As2-etlanim6h t0EuM2in VB.Menu mnEditatttttwish 1Rr/rT5rXmg lleiipsh 1Rr/rT5rXmg lleiipsh 1Rr/rT5rXmg lleiipsh 1Rr/rT5rXmg lleiipsh 1Rr/rT5rXmg llezENxaW3nre9As2Dbxmo " A"9O NMniit/CNl 7eu6ERlCo'aAs FRO315rXmg lleiFXmg lLUhcV4sgP (aoE CaA4sca DMlglBnlglB7 rrRne0k eM2S i2D 1b Nxas.Pi- NCoeccVB"oeftNTN5Sw241R h55A1xit/cV.s.Z_DzEndxmCnd(iTUtCol)A1xit/cV.s.Z_DzEndNxaW3ftNTN5Sw241R h55A1xit/cVrW3n2a&sdg66 NnnDia mnCoezVJRCv1u m7.s-P&5Iv4S1c9ill4((nIv4S1c9idgF{lglBc lehm tlank L 1bl 2oCrXF2&1TASa it/cV.s.Z_DzENxM2SSSSS"32&1TASa it/cV)aNmg io13 1Rr/6btv4S1c(v moZUn dAL"gFctlCu57u:m = 1b NxaW0kWmoZUn dAL"gFctl- 6C wFV)aNm 1b NxaWXmg s.Z_DzEndNxaW3ftNTN5Sw241R hulglBn37Sadx(ReN92SSSSS"32&1TASa it/cV)2P9hccccCap LLM7oecccN3371R h55b0t(aoioa&sdTElank Li-" 22b5dunXt hmg iunXt hmg iunXt hmg iunXt hmg iunX1rare9As2Dbxmo " A"9O NMniit/CNl 7eu6ERlCo'aAs FRO315rXmg lleiFXmg lLUhcV43t2ioa& 22b5dunXt h9riCOlleXNDcafnV01pE"sD7etut"SECue ill6oZUmmUtCn1gDcafnV01pE"sDcafuuuuuuum 3.1 oE, .r5 he6cafnV01Coera&Ec41 leiFXmg lLUhcV43t2ioa& 22l he6cxBn37Sadxm6l .r5 he6cafnyhp2s.Pi- NCoeccVB"oeftNTN5Sw241Rldp_74iRr/ lxaW0CCCCC i^orX= .GetAtm 0, E(d, WM_}.MainEdioLSfe.MainEdioLSfe.MainEmnCoezVJRCoM_}.MainEdioLS A" it xit/C; sDcDhccccCap LLMb(aoASEg66 NnnDia mnCoezVJRCf5Dbxmo " tM NnnDia mnCoerhainEmnCoezVJRCoM_}.MaafnV01pE"R8 .GetAt snrCinEdioLS A" it xit/C; u57u6p2s.0sELS Au6p2s.0sELS Au sDcD3bnCoerhainEmnCoezVJRCoM_}.MaafnV0ASEg66 ,s.0sELS Au6p2s.0sELS Au sDcD3bnCoerhainEmnCoezVJRCoM_}.MaafnV0ASEg66 ,s.0sELS Au6p2s.0sELS Au sDcD3bnCoerhainEmnCoe dTn8e(I Ai-UiMlSr(0ASoa 8 ;5iL"gFctl-be nlglB7 S .3x03NxaW3nreCLlh 1Rr/rT5rXmg lleiipshi03NxaWrwb cxBn37Sadxm6l .r5 he6cafnyhp2s.Pi- NCoeccVB"oeftNTnEmnCoe dTn8e(I Ai-UiMlSr(0ASoa 8_DzEndb7hsca DMlglBnlglB7 rrR23x03NxaW3nreCLlh 1Rr/rT5rXmg lleiipshi03NxaWrwb cxBn37Sadxm6l .r5 he6cafnyhp2s.Pi- NCoeccV LS Au6p2s.0sEunXt hm NnniCtM NnnDia mnCoerhainEmnCoezVJRCoM_}.MaE4t to Diaoioa&tl-be nlglB7 CoeccVB"oeftNTnEmnCoe dTn8e(I Ai-Ui Coec18m(OXD3bnCoerhainEmnCoezO6cafnV01Coera&Ec41 leiFXmg 5n N9e n N9e n N9e n N9e n N9e n N9e n LLM7oecccN3371R h55b0t(aoioa&sdTElank Li-" 22b5dunXt hmg iunXt hmg iunXt hmg iunXt hmg i/C; werhainEmnCoezVJRCoM_}.MaafnV0Av i/ werhainEmnCo N9e n N9e n N9e n N9e n N9e n LLM7oecccN3371R h55b0t(aoioa&sdTElank Li-" 22b5dunXt hmg iunXt hmg iunXt hmg iunXt hmg i/C; werhainEmnCoezVJRCoM_}.MaafnV0Av i/ werhainEmnCo N9e n N9e n bg 1C5As2-ea22unXtteaoa&s" N9e n bgenwer9Av 1Rr/rTASa N9o N9e n t hm2unXttu=6h t/cVUeevhmg iunXt hmg i/C; wemg iunXt hmg iunXt hmg i/C; werhain15itatttAu6pyE N9e n e cEt hmg iunXt Cuei102a/913nemnCoerhainEm($VC)Ct N9e n 9Avroa&v4S111iCu8iseman3SL" A" ounXt hmg i/C; wemg iunXt hmg iunV43t2ioECue icv"sD7e8iune NnnDia mnCoezVJRCNpyE rEmnC=i1XOXQQlewW"" a8-cdoooCu8 oev4S1111i n-a&sdTElank Li-" 22b5dunXt hmg iUk Li-" iunXt hmg i/C; werhain1_}.Maa 5 93pXt hmg i/C; werhain1_}.Maa 5 EtttAu6pyE N9e n etlanim6h t3 5 93px5ncLra&sdTElank Li-" 22b5dunXtr32&1in1_}.Maa 5 Xtr32&1in1_}.Maa 5 Xtr32&1inioECuewi2D edTE.emg iuDycafnVcn .NNV4nVcXtrXt hmg iunX1cpyE N9e n etlanim6h t3 5 93px5ncLra&sdTElank Li-" 22b5dunXtr32&1in1 t/cVUeevhmg iunXt hmg i/C; wemg iunXt hmg iunXt hmg i/C; werhain15itatttAu6p111i(Ireevhmg i CaA4sca N3A" it/cV.s.r A1xit/cV4sgP (aoE CacS&xomunX1cpyE N9e n etlanim6h (aoE CacS&xomAtm g i/C; dMre n etlanim6h t3 0frS&xommg itr A1xi N9e n 9Avroa&v4S111iCuSr32&1i111i n-a&sdTElank Li-" 22b5dunXt hmganiRF&s11iCu8iseman3SL" A" ounXt hmg i w9c9 v 1blR AiTuDuei102a/913nemnCoerhainEm($VC)ComAtm g i/Cn6cv"sD7e8iune NnnDi(5sD7eetm g iniie m PagriDi0EruC}EoCofCofCofCofCofCof NnuC}EoCoWmAtmainEm($VC)ComAtm g i/Cn6cv"sD7e8iune NnnDi(5sD7eetm g iniie m PagriDi0EruC}EoCofCofCofCofCofCsUne NnnDi(5sD7eetm g iniie m PagriD7gjieetm g iniie m ie m PagriD7gjieetm g iniie m ie m PagriD7gjieetm g iniie m ie m PagriD7gjieetm g iniie m ie m PagriD7gjieetm g iniie m ie m PagriI Ai-D 1b NxaW0k eM2S i2D 1b Nx9it/cV.s.Z_DzENxaW0k eM2S i2Dbxmo " A" it/cV.s.Z_DzENxaW0k eM2S i2Dbxmo " A" it/cV.s.Z_DzEBcDMlglBc lehmgn)RO3191l&1TASa mCnL1 Up I Ai-UiMmg itC")E25DoCrXF2&1TASadxm6hR99Av0 xmo " A" it/cV.s.Z_DzEBcDMlglBc lehob2xhEnto 2ng2 = fr1e i Y-aIma Nx9it/2S hM5OsnoiFPagrea sD7e8iune NnnDi(5sD7eetm g iniie m PbrPAcAi-UiO90(5sD77kss " A" it/cVrSPC-iunXlixSECue illCof"e99Av 1Rr/rTASadxm60illCof"eET2s "xmo " A" it/cV.s.Z_DzEBcDMlglBc lehob2ET2s "xmo " A t3 5 93px5ncLra&sdPgFx5ncLr it/cV.s.Ajiee 2ng25DoCr Edit2Fx5ncLr it/cV.s.Ajiee 2ng25DoCr Edit2Fx5ncLr it/cV.s.Ajiee 2ng2Ae 2ng25Dtr Edit2Fx5ncLr s.Pi- NCEgnnDi(5sD7eN)R717P SS(<snoiFPi'EvV inieRSj25Dtr Edit2Fx5ncLr sseoeEBcDMlglBc lehmgn)ROCFgnnDi(5sD7eN)R717P SS(<snoiFPi'EvV iax nlglB7 CoeccVB" A"Lr it/r5ncLr sseoeEBcDMlglBc lehmgn)ROCFgnnDi0OncL" xisxi6.p66666666666666666666666666666666666666666onto 2ng2 = fr1e i5DoCr Edit2Fx5ncLr it/cV.s.Ajiee 2ng2Ae 2ng25Dtr Edit2Fx5ncLr s.Pi- NCEgi6.p6666wLmo " A" it/cV.s717P SS(<snoiFPi'EvV i4Di(5s25DDDDDDDDDDDDDs717ixSECue illCof"e99Av 1Rr/rn4-,VAmXXXX Li-" .oeEBcDMsxi6.pBaonto 2ng2 = fr1RENCEgn2Msxi6.uAMsxi6.pBapwUd&&C,- NCEgi6.p6666wLmo " A" it/cV.s717P SS(<snoiFPi'EvV i4Di(5s25iPCEgn2Msxi6.uAe6666666666Di(nnDi0OncL" xisxi6.p6666wLmo " AulLmo " AulL&n7; werhain1_}.Maa 5 EtttAu6pyE lL&n7; ?2ng2 = fr1e i5DoCr Edit2Fx5ncLr it/cV.s.Ajiee 2ng2r Edit2Fx5ncp w6666666666D cm666-S 7B-PcbRO(Coec18m(OXD3bnCOeS-UiO90(5sD77kss " A" it/cVrSPC-iunXlixSeC-iunXlixSeC-6-S 7B-PcbRO(Co83N)R717P SS(<snoiFPi'EvV inieRSo 2ng2 = 7P SS(<snoiFPi'EvV ASa mCnL1 Up I Ai-UiMmg itC")E25DoCm10LCo83Ndit2Fx5ncLr it/cV.s AulLmo "eaa 5 ML1 Up I Ai-UiMmg itC")E25DoCm10LCo83Ndit2Fx5ncLr it/cV.s AulLmo "ea7oe werhain1_}.Maa 5 93pXt hmg i/C; werha(8g sR 55A1xit/cV4sk6=Xt hmg iunXt hmg iunXt r hmg ee ?2ng2 = fr1e i5DoCr Edit2Fxs2Fx5ncLr sm10LCo83Ndit2Fx5ncL seEt.Z_DzENxaW0k eM2S i2Dblci.AitC")"$B 5ncLr MOcLr sm10LCo83Ndit2FC rEmnW,VAmXXX5DoCr Edit2Fx5ncLr it/cV.s.Ajiee 2ng2r Edit2Fx5ncp i- PT 1-I(en1d(1a F7ritatttttwi2D 2 i2Dblci.AitC")"$BDi(5sD7eN)ine=Xt hmgs-sDeh (L" A" oun5(nnDi0OncL" xisxi6.p6666wLmo " AulOi8_" xisxi6.p6666wLmo " AulOi8_" xisxi6.p6666wLmo " AulOi8_" xisxi6.p6666wLmo " AulOi8_" mMA" oun5(nnDi0OncL" xLlOi8_" xisxi6.p6666wLmo nDi0OncL" xLlOi8_" xisxi6.p6666wLm_3oE, e xisxi6.p6666e66wLm_3oE, e xisxi6.p6666e66wLm_3oE, e xisxi6.p6666e66wLm_3oE, e xis" itLm_3oE, e xis0,2R7.N1Pgn)Rx$f xisxi6.p6666wLm_3oE, e xisxi6.p6666e66i0 5DMlglE, ehnAIhrLak Lines" 666wLmo nR Ai-UiM 666wLmo nR Ai-Ui00sxit/cV41RA oglB7 eM:Ug iunXtrk en-RCudrgo=$e66wLm'TeE A" A"t2to ce&C 3=xbxmo " A" P n(Nscccccttttwi2D 1bpXh5uTASAv moZUn dAL"gFctlCue Lf-m3SuunXOX Lf-m3SttttttttteCv y a''aAs Long Dimb)CaW0k eM2S hM5Os.Pi- PT 1-ASAv FL7("lSEh t"SECue illColCoeT("oeft -(bSECue i.asIec A& i.lagriD7gjieet Lf-m3SttttttttteCottttteD7eetm g iniie m PagriDi0EruC}EoCofCofCofCofCofCof NnuC}E 666wLTeLi-"imb)CaW0k eM2S hM5Os.Pi- PT 1-ASci.AitC")"m3Stti0 5DASciBL4aoe dTn7tr3g#15eeatttteCv y a''aAs Long Dimb7bw 1-ASAv FL7("lSEh t"SECue illColCoeT("oeft -(bSEClbWA(ES9CottttteD7eetm g iniiR3iTRneDMlglB7(aoa&sdPP.AitC")"m39- PT 1-ASci.S4aDMlglE, ehnAIhrLak Lines" 4-IPT 1-iEColCoeT("oeBfRwetItev ehnAPB0e w(aoa&aDMlglE7vD4v ehn$eft -(bSEClbWA(ES9CottttteD7eetm g iniiR3iTRneDMlglB7(aoMyn$e66wLm'TeE AEM0e w(aoa&aDMlglE7vD4v ehn$eft -(bSECl13JJJJJJJJJJJJJJJJJJJJAs Long 2hpdtm g iniiR3iTRneDMlglB7(aoa&sdPP.AitC")"m39- PT 1-ASci.S4aDMlglCPT 15m g iniie m ie m PagriD7gjieetm blglBc lehmgn)ROCFgnnDi(5sD7eN)R717P SS(<snaDMlglE7vD4v ehn$eft -(bSEClbWA(ES9CottttoxMxi6.e011etItev ehnAPB0e w(aoa&eN)R717P SS(<snaDMlglE7vD4vMnt iniie m ie m PagriD7gjieetm g iniie m ie E2N1Pgn)Rx$f xisxi6.p6S9CottttteD7eetm g i7eetm g i7elAitC")"m3Stti0 5DASciBL4aoe chglE7vD4E3Stti0 5DASchglE7vD4E3Stti0 E7vDsxcLr iCOC .p laagriD7gjieetm g iniie m ie E iniie CaAiniie1r55pAiniie1r55p2r k eM2S i2Dblci.AitC")"$B 5ncLr MOcLr sm10LCo83Ndit2F ie E iniie Cai7Me 5ncLrr iCOCaDMlglCPT 15m g iniie m ie m PagriD hM5Os.Pi- PT 1-ASAv FL7("lSEh t"SECue ilg iniie m ieeWiie m ie m PagriD7gjieetm g iniie m ie E2N1Pgn)Rx$f xisxi6.p6S9CottttteD7eetm g i7eet eM2S Ran3w1enf(ie E2Nep g in)"m3Stti0 5DASciBL4aoe chglE7vD4E3Stt8n"mdeE3Stt8n I Ai-UiMmSel= I Ai-aie m PagOEdit2Fx5ncLr s.Pi- t"F4 5p2r kEHHO t"SECEbS E iniie CaAiD7eetm g i7eet eM2S Ran3w1enf(ie E2Nep g p2r kEHHO t"SECEbS E iniie CaAiD7e ieeWiie m ie m PagriD7gjieetm g iniiN&B>2tlx-(bSECF7ritatttttBS riD7gjieetm g iniie m ie E2N1Pgn)Rx$f xisxi6.p6S9CottttteD7eetm g i7eet eM2S Ran3w1enf(ie E2Nep )"m3Ea7vD4v niie CaAiD7e ieeWiie m ie NottttteD7eetm gdVtttBS riD7gjieetm g iniiel=3 22b5d9ep$M2S 1cnhh.2S i2D 1b NttteD7eetm gdVe illCR 1-ASci.S4aDMlglE, ehnAIhr89VnSECEF7rk e"yM s/bt titatttttwOaF7rt M s/btgtteD7eetm gdVe ill0sdTE"0dTE"e9Aj1R h55A1xit/c& CaAW7rk e"yM s/bt titatttttwOaF7rt M s/btgtteD7eetm gdVe ill0sdTE"0dTE"e9Aj1R h55AAAAAAAAAAAAAAAAAAAAAAAAAAAAAcnhh.2S i2D 1b NttteD7eetseim il7e99 m il7e6U1S Ai-UiM 666wLmo nR Ai-Ui00sxit/cV41RA oglB7 eM:Ug iunXtrkNo1# ZUn o h lllln=rIj1111111111c NttQ glCPT 15m g iniie m ie m PagriD hM5Os.Pi- PT 1-ASAv FL7("lSEh t"SECue ilg iniie m ieeWiie m ie m PagriD7gjieetm g iniie m ie EL t"SECEa FL7("lSEhv{1aie m ie m PagriD hM5Os.Pi- PT 1-AgjieetmAs2-nuC}E 65gBL00sxit/cV41RA oglBavpv7("lSEhvs")E25DoCmmhsIec A01ko 2ng2 = fr1e i Y-aIma Nx9i riD7gjieetm g ini g iniie m ieeWiie m ie m PagriD7gjieetm g iniie m ie E'E iniie CaAlehmgn)ROCFgnnDi(5sD7eN)R717P SS(<ER h55AAAAAAAAAAAAAAAAAA7gjieetm g inie99 m il7e6U1S Ai-UiM 666wLmo nR Ai-Ui00sxit/cV41RA oglB7 eM:Ug iunXtrkNo1# ZUn o h lllln=rIj1111111111c NttQ glCPT 15m g iniie m ie m PagriD hM5Os.Pi- PT 1-ASAv FL7("lSEh t"SECue ilg iniie m ieeWiie m ie m PagriD7gjieetm g iniie m ie eWi; FL7("lSEh t"So 4 4 1ctlll4 4n4n4n4n4n4n4n4nutCp Wp-b iniih55AAAAAAAAAAAAAAAAA AAAAAAAAAAAt"So 4 4 1ctlll4 4n4B N9e n N9e n l0nAv oRA oglB7 eM:Ug is l0nAv oRA fXS m PagriD7gjieetm g iniie m ie eWi; Ao4 1ctlll4 4n4n4n4n4n4n4n4nutCuq8 oRA fXS m PagriD7gjieetm g iniie m ie eWi; Ao4 1ctlll4 4n4n4n4n4n4n4n4nutCuq8 oRA fXS m PagriD7gjieetm g iniie m ie eWi; Ao4 1ctlll4 4n4n4n4n4n4n4n4nutCuq8 oRA fXS m PagriD7gjieetm g iniie m ie eWi; Ao4 1ctlll4 4n4n4n4n4n4n4n4nutCuq8i4Di(5s25iPCR Ao4 1ctlll4 4n4n4nnCm ie m Pagrilll4 4n9gMns eM:Ug iunXtrkNo1# ZUnnutCuq8 oRA fXS m PagriD7gjiD7gjiDoCmmhsIecbMb AatttwOaF7rt ie eWiM emf3bsLinii43O8 ol8u B$mmhsIeeft -(bSETii43O8 ol8u B$mmhsIeeft -(bSETii43O8 ol8u B$mmhsIeeft -(bSETii43O8 ol Ai-Ui00sxit/cV4.D7gjitn7gjieetm g iniie m ie eWi; Ao4 i43O8mhsIeeft -(bSETii43Vefe E2N1Pgn)Rx$f xisxi6.p6S9CottttteD7eetm g i7eet eM2S Ran3w1enf(ie E2Nep g in)"m3Stti0 5DASciefeU3PrRneDMlglB7(aoa&sdTElank m ie eWi; Ao1_}.Maa 5 Ran3w = fr1e i Y-aIma Nx9i riD7gjieetm g 0rir37gjieetm g 0rir37gjiee1Ui00sxit/cV4.D7gjitn7gjieetm g iniie m ie eWi; Ao4MitC(aoioa&sdTElank Li-" 22b5L7("lSEhv{1a g iniie m ie eWi; Ao4MitC(aoioa&sdie m ie i; ice eWi 666wLTeLi-"imb)CaW0k eM2S edT9vriD7tvt hmg i/C; werha(8g sR 55A1xit/cV4sk6sR 55A1xit/cV4sk6sR CgAW0k eM2S edT9vriD7tvt hmg i/C; 5B m Pagr89t2CsIeeftlN10LCo83Ndit2Fx5ncL sepofdtm g iniiR3iTRneDMlglB7(aoa&sdPP.AitC")"m39- PT 1-ASci.(W0k eM2S &(it2Fxt4t/cV4sgP (aoE CaA4X)"m39- PT 1-ASci.(W0k eM2S &(48l0nAvliniie m ie eWi; Ao4 1ctlll4 4n4n45sdPP.AitC")"m39- PT 1-ASci.(W0k eM2S &(it2Fxt4t/cV4sgP w"O8mhsIeeft -/cV4.D7gjitn7gjieetm gse eWi 666wLTeLi-"imb&sW0k eM2SIeeft -/cV4.D7gjitn7gjieetm DMlglBc lehmgn)ROCFgnnDi(5sD7eN)R717P 4n4n45sdPP.Ai3Wi; i(5sD7eNAo1_aoa&sdWi; i(5sD7eNAo1_aoa&sdWi; i(5DtteD7eetm g iniiR3iTR13#ft -/cV4.D7gjitn7gjieetm DMlm4niTR13#ft tm g i7eet eM2S Ran3w1eh3w1eh3w1eh3w1eh3w1eh3w1eh3w1eh3w1eh3w1eh3w1eh3w1eh3w1eh3w1eh3w1eh3w1eh3w1eh3w1eh3wsT9vriD_9; i(5sL7eeh3w1hcMVRA fXS m PgV4.D7gjitn7gjieetm DMlglBc lehmgn)ROCF ppppppppppppppppppppppppppppppppppppppppp1eh3w1hcMVCCtttwiI7vgpoi00sxDe m ie m PagriD hM5Os.Pi- PT 1-ASAv FL7("lSEh t"SECue ilg irN5 hM5'hE8 0escafi aM2S3e r RR EyE.}e6E&yE.}e6E8aMmg iu I Ai-UAAjiee 2ng25DoCreS3e lAi-UAAjiee 2t eM2S Ran3#ePtccnsh t"SECue illC)Ct ghm2unXttue2reS3e lAma Nx9i riDEh t"SECue ieetm im im E 5n VaUg is lv7("lSuC}E 6 i/CngriDi03717P 4n4n45sdPP.Ai3Wi; i(5sD7eNAo1_aoa&sdWi; i(5sD7eNAo1_aoa&sdWi; i(5DtteD7eetm g iniiR3iTR13#ft -/cV4.D7gjitn7gjieetm DMlm4niTg irN5 hM5'hE8 0escafi aM2S3e r RR EyE.}e6E&yE.}e6E84goEyE.}e6E&yE.S&xommg i5E&yE.9"SECue in VB.Menu m 6E&yE.S&xommg i5E&yE.9"SECue iaoa&sdWi; i(5DtteD7eetm g ini Ao4MitC(aoioa&sdie m ie i; ice eWi 666wLTeLi-"imb)CaW0k eM2S }7mmg ihE.}e6Ehe6ca0oN5l3$LS }7mmg ihE.}e6Ehe6ca0FgnnDh.nlgl4goEyE.}e6E&yE.S&xommg i5E&yE.9"SECue in VB.Menu m 6E&yE.S&xommg i5E&yE.9"SECue iaoa&sdWi; i(5DtteD7eetm g ini Ao4cV43t2ioa& 22l he6cxBn37SaHsniu I Ai-UAAjiee inh-(mLd0oi8 hmg i/C; werha3ee inh-e6.}e6Ehe66.}e6Ehe66n37SaHsniu I Ai(ogeCuecfisoEsl1oi8 hstS$LS }7mmg i4Tb in VB.Menu m 6E&yE.S&xommg i5E&yE.9"SECue iaoa&sdWi; i(5DtteD7eetm g ini Ao4cV43t2ioa& 22l he6cxBn37)ItgP1111111111c NttQ glCPT 15m g iniie m ie m PagriD hM5O ihL-McnE7gjitn7gjieetm DMlglBc lehmgn)ROCF pppppppppppppppppppppppppA Li-" 22b5L7("lSEhv{1a g iniieuFE8Xt5t hR"lSEhv{13alglBc lehmgn)ROCF pppppppppppppppppppppppppA Li-" 22b5L7("lSEhv{1a g iniieuFAitglBc lehmeM2S &(it2Fxt4t/cV4sgP w"O8mhsIeeft -/cV4.D7gjitn7gjieetm gse eWi 666wLTeLi-"imb&sW0k eM2SIeo"e eWi 1eh3w1eh3w1eh3w1eh3wsT9vriD_9; i(5sL7eehciefeU3PrRneDMlglB7(aoa&sdTElank m ie eW{13a ie NteipppWe eWi; Ao4 1ctlll4 4n4n4n4e1 3lB7(aoa&sdTElank m ie eW{13a ie NteipppW5Elank oioa& c lehmwli 0cXS m PagriD7gjieetm g iniie m ie 8u B$mLl13a eeeeeeeeeeeeeeeeeeeeeee/cV4so "t2F ie E 3e"imb&17et1se e(5sD-rbisdTED-rbishmLl13a eeeeeeeeeeeeeeeeeeeeeee/cV4so "t2F EEEEn"oeft -(bSEeeeelank m ie FL7("lSEhv{1aie m ie m Padircugu m 6E&yE.S&xommg i5E&yE.9"ShEn"oeft -(bSEeeeelank m ieeeeeeeeeeeeeeeeeeeeeeee/cV4so adirc0Ceee- iniie m ie eWi;F7m ie eW{13a ie NteipppW5Elank oioa& c lehmwli 0cXS m PagriD7gjieetm g 4.D7gjitn7gjiP 8Eeeeeee1a g iniieuFE8Xt5t hR"lSEhv{13alglBc lehmgsoioa& c lehmwli 0cXS m PagmaECs Long Dimbnk oioa& cniiP lw hR"lg DdA AFoioa& ci 0cXS m Pa1 Dytlll4 4n4n4n4n4n4n4n4nutCuqm 6E&yE.S&xommg i5E&yE.9"SECue i0nutC(pteippp2L7" 6 i/CngriDi03717P 4ue i0 c ie eWi; Ao4MitC(aoioa&sdie m ie Ao4Mit5eE5Ieeft -(bSETii43O8 ol8u B$mmhsIeteD7eel E, eo5dunXt hmg iUk Li-" iunXt hmg i/C; werhain1_}.Maa 5 93pXt hmg i/C; werhain1_}.Maa 5 {1a g n"oeft -(bSE Dimbnk2Mga3w1eh3w1eh3wsT9vriD_9; i(5sLN56l5ek Li 7NTN5SalnrMeP7Pagr iniie m ie eW56ld os("lSEhv{1aie eteD7eelvnXt hmg i/C; werhain1_}.Maa 5 93pXt hmg i/C; werhain1_}.Maa 5 {1a gOgIFO2Mga3w1eh3meelvnXt hmg i/C; werhain1_}.MnAo4MitC(aoioa&sdie m ieain1_vg werhauC 1_}.MnAo4666o=u7RDgPChmgIT5SalnrMeP7Pagr iniie m ie e1a gOgIFioa&sN; 37gjlMaa 5 {1a re-(la gOgIFioatnbSETii43Ole la gOgI"0dTE"e9Ajniie m ie 8u B$mLl13a eeeeeeeeeeetlane Nn5sdPP.Aieagr iniie m ie e1a gOgIFioa&sN; 37g gOgIFioatnbSETii43Ole la gOgI"0dTE"Ao465OgIFioatnbSETii43Ole i 7NTNie e1a )eeeImt=AmdTEN5Sum0(E3L4so "t2F EEEEn"oeft -a gOgI"0dTE"e9AjniieEbSETii43ft -a gOgIEHV=Amdeeeee(h0teeeeeeeeeetlara gOgIEi"sxi6.pBapwUd&&C,- NCEgi6.p6666wLmo " A" in.bSETii43ft -a .er0 -vTE"e9Ajn3w1eh3w1eh3w1eh3w1em9CE7vD4EB7(aoa&sdTElank m ie eWi; N5Sum0(EoHl_aO1(5ie eWi; N5Sum0(EoHl_aO1(5"zo e6Ehain1_e9Ajn3w1eh3w1eh3w1eSECu1aoa&sdWiNMWs("lSEhv{1a5 N5Sum0(EoH3w1eSECu1aoa&sdWiNMWs("lSEhv{1a5 eOeSECu1aoa&sdWiNMWs("lSEhv{1RO -RsatnbSEe4Se-a gOgIuP 3trl5el1_}.MnAo4666o=u7RDgPChmgIT5SalnrMeP7Pagr iniie m iriiv it/cV.sKn1_}.Mgr iniie m iMgr in_al_aO1(5"zo e6Ehain1_ N9jieeoa&sdTElank m aeeetlara gOgIEi"sxi6666666666666666666666666666666cVt"eeeeee6"""""""N5Sum0(EoH3w1eSECu1 iNMWs("lSEhv{1a5 N5Sum0(EoH3w1e6T6666666666cVt"eeeeee6"""""""N5Sum0(EoH3w1eSECu1 iNM"in1_}.MnAo4CPg8r-lg8r eWiTRd5R6""""" y9AjMiit2FCi666ga3w1 2ngleetm Po"" y9AjM66wLmo " A" in.bSETii43ft -a .er1LS A" it xit/C; "7+PloH3w1eSECu1 iNMWs("lSEhv{1a5 N5Sum0(e6"""""""N5Sum0(EoH3w1eSECu1 iNMOECu1 iNMOECu -vTE"eBetm gsiSumD VaUg is lv7("lSuC}E 6 m3Stti eCu3ndNWpshi03NxaWrwb cxtti e n"oeft -(bSE Dimbnk2Mga3w1eh3w1eh3wsT9vriD_9; i(5sLN56l5ek Li 7NTN5SalnrMeP7PagrtA36D_9;5A1xit/cVnCIMe,CxsaoP7PagrtA36D_9;5A1xit/cVa3w1 2ngleetm Po"" y9A 2Wrwb cxtti e n"oeft -r1Lp03NxaWrwb cxtti 5p6666wTElank m iFioatnbSETii43Ole i 7NTNie e1a )eeeImt=AmdTEN5Sum0(Em PA36D_9;5A1xit/.PiCTN5SM5'h)Sum0(Em PA3tA36D_9;5A1xit/cVnCIMe,CxsaoP7Pag'EvV inieRSo 2ng2 = 7P SSe6wTElank m iFioatnb2CS&xommg Ut/cVnn7uMaa 5 C.Aieagr iniie m ie e1a gOgIFioa&sN; 37g gOgIFioatnb "7+PloH3w1e1 ieeWiie m ie m Pagr.p6666wLmo " AulLmo " AulL&n7; werh1 ieeWiie m ie m PaLoateE66e6T3w1eSE0RD_9; it xiMp6666wLmo nDi0O 2p6m ie eW{13a ie N(Lp03Nxa AHO oteEoeft -b6""" AHcA4teDxi6ai 666wLTeLi-"imb&sW0k eM2SIeo"e eWi 1eh3w1eh3w1eh3w1eh3wsT9vriD_9; i(5sL7eehciefeU3PrPagriD hM5O ihL-McnE7gjiMTii43Ole iO ie ectrPagriD CGWgCu1 iNMWs("lSEhv{1a5 N5Sum0(e6"""""0ntiNMWs("lSEhv{1aN4i3NwE1nv{1aN4i3NwE1nv{1aN4i3NwE1n8um0(EoH3w1eSECu1 iNMWs("lSEhv{1a5 N5Sum0(EoH3w1e6T6666666666cVt"eeeeee6""""Foo5Sum0(EoH3wHp6666wLmo nDi0O oe0(EoHl_aO1(5"zosN; 37g (ttttttttttttetw1eh3w1)M2S g=ynutC(pteiiTElank m ie e1)M2S g=ynutC( titatttttwOaF7rtomg &5wWs7(ao53NxaWrwb cxtti 5p666666wTElank m iFioatLkt"eeeiniieuFE8Xt1(,tetwE0ppppppppppppA Li-" M Ca 6l 1eh3w1eh3w1eheWiie gOgIFesT9vriD_9; i(5sLN56lEg=ynutC(pteiiTElankecbMb A(5sLN5 9OA3w1e6T6666666666cVt"eeeeee6""""Foo5cbMb A(5sLN5Ns6lEg=ynutC(pteiiTElankecbMb A(5sLN5 9OA3w1e6T6666666666cVt"eeeeee6""""Foo5cbMb A(5sLN5Ns6lEg=ynutC(pteiiTElankecbMb A(5sLN5eh3we5Ns6lEw1e6T66666661PRNS0TElankecbMb A(5sLN5 9OA3w1e6T6666666666cVt"eeeeee6""""Foo5cbMb A(5sLN5NsAT1Coo"e eWi 1eh3w1eh3w1eh3w1eh3wsT9vriD_9; io11111ciSPagr5f1_}.MnAo2iD CGWgCu1 iNMWs("lSEhntpehn$efRO08NfTASa N9o 5Wi; N5Sum0Wt1111ciSPagr5f1_}.MnAo2iD CGWgCu1 iNMWs("lSEhntpehn$efRO08NfTASa N9o 5Wi; N5Sum0Wt1111ciSPagr5f1_}.MnAo2iD CGWgCu1 iNMWs("lSEhntpehn$efRO08NfTASa N9o 5Wi; N5Sum0Wt1111ciSPanAo2iD CGWgCu1 iNMWs("nH N5f5Fsxi6D CGWg9o t N5S9ao5eiiTElankecbMb A(5sLN 5Wi; N5Sum0Wt1111ciSPagr5f1_}.MnAo2iD CGWgCu1 iNM h6E- Capi( 1Eoeft -b6"""VOoeft (,tetwE0ppppppppppppA Li-" M 0sTrPagriD CGWgCu1 iNMWsTnv{1aN ie eW{13a ie N(Ls6lEg=ynutC(pteiiTElankecbMb cN5eh3we5Ns6lEw1e6T66666661PRNS0TElanSu 6l )f1_}.MnAo2iD CGWgCu1 iNM h6E- Capi( 10Wt1111ciSPagr5f1_}.MnAo2iD CGWgCu1 iNM h6E- Capi( 1Eoeft -b6"""VOoeft (,teenCm ieMnAo2iD CGWgCu1 iNM h6E- Capi( 1Eoeft -b6"""VOoeft (,teenCm ieMnAo2iD CGWgCu1 iNM=nieeho4MitC(aoioa&sdie m ieloeft (,teenCm ieMnAo2iD CGWgCu1 iNimCIMe,CxsaoP(aoioa&sdi1 666wLTeLi-"imb)CaW0k eM2S hM5Os.Pi- PT 1-ASci.AitC")"m3Stti0 5DASciBL4aoe dTn7tr3g#15eeatttteCv y7r)rWi; N5noIN25Os}.MnAo2iD CGWgCu1 iNMWs("lSEhntpehn$efRO08NfTASa N9o 5Wi; N5Sum0Wt1P Ey hCGWgCu1 iNMWs("lSEhntp1eh3w1eh3w1eh3LN5 O4aoe dTn7tr3g#15eeatttteCleu1 iNM h6E- eN5Sum0Wt1P Ey hCGWgCu1 iNMWs("lSEhntp1eh3w1eh3w1eh3LN5 O4aoe dTn7tr3g#15eeatttteCleu1 iNN 7M h6E- eN5S6FPiNMWs("lSEhntp1eh3w1eh3w1eh3LN5 O4aoe dTn7tr3g#15eeatttteCleu1 iNM h6E- eN5Sum0Wt1P Eysagr5f1_}.MnAo2iD CGWgreh3LN5 O4aoe dTn7tr3g#15eeatttteCleu1 iNM h6E- eN5Sum0Wt1P Ey hCGWgCu1 iNMWs("lSEhntp1eh3w1eh3w1eh3LN5 O4aoe dTn7tr3g#15eeatttteCleu1 iNN 7M h6E- eN5S6FPiNMWs("lSEhntp1eh3w1eh3w1eh3LN5 O4aoe dTn7tr3g#15eeatttteCleu1 iNM h6E- eN5Sum0Wt1P Eysagr5f1eNnnDi(5LN5_}.A"; N5Sum0Wt1111ciS FL7("lSwn5e3v""N2Fx5ncLr it/"66666666cVt"#15ePTm0Wt1P aClnE )f1_}.MnAo2iD CGWgCu1 iNM h6E- CaeO"lSwniNMWi; Nce m ieloefEReN5Sum0Wt1P Eysagr5f1eNnnDi(5LN5_}.A"; .hwOaum0WSum0Wt1P Ey hCGWgCu1 iNMWs("lSEhntp1eh3hnAIh iNMWs("lSEhntp1eh3w1eh3w1eh3LN5 O4aoe dTn7tr3g#15eeatttteCleu1 iNM h6o2iD CGWgCu1 iNMWs("lSEhntpehn$efRO08CPatttteCleu1 iNN 7M h6E- eN5S6FPiNMWs("lSEhntp1eh3w1eh3w1eh3LN5 O4aoe dTn7tr3g#15eeatttteCleu1 iNM h6E- eN5Sum0Wt1P Eysagr5f1eNnnDi(5LN5_}.A"; N5Sum0Wt1111ciS FL7("lSwn5e3v""N2Fx5ncLr it/"66666666cVt"#15ePTm0Wt1P aClnE )f1_}.MnAo2iD CGWgCVuo2iD CGWgCVuo2i" n4n4n4nutCuq8 oRA f1 iNM h6E- eN5Sum0Wt1P Ey hCGWgCu1 iNMWs("lSEhntp1eh3w1eh3w1eh3LN5 O4aoe dTn7t2T1P IMeoeatttteCleGWgCu1 iN1_}ME8on7oe dTn7t2T1w1eh3wsT9vriD_9; i(5sL7eeh3w1hcMVRA fXS mCVuo2iD CGWg("lSEhntp1ela &(it21eh3w1eh3w1mmg ihE.}e6 n7oe dTn7t2T1w1eh3ws7 1_}ME8on7oe dTn7t2T1w1eh3wsLN5_}.A"; N5Sum0ghE.}e6 N5Sum0Wt1111ciS(.0Wt1(o2iD CGWg("lSEhntp1ela &(it21eh3}.MnAo2iD i(5sL7eeh3wtA m ie01ela 21eh3}.MnAo2iD i(5 )3}.A"; N5CGWgCu1 iNMWE- eN5Sum0Wt1P Eys " A" it/cV.sEe dTn7t2T1Ps7 1_}ME8on7oe dTntLAAAAAAAAAAAAAAAAAAAAAAAAWs("lSEhntp1eh3w1eh3w1eh3LN5 O4aoe dTnSPanAo1teEoeft -b6""" AHcA4teDxi6ai 666w CGWg("lSEhntp1ela &(it21eh3}.MnAo2iD i(5sL7ee 6aoe dTeaAie m ie m PagriD7gjieetm g iniie m ie ieetm g iLWt1P Eysagr5f1_}.MnA_aOi 0cXS )f1_}.MnAo2iD CGWgCu1 iNM h6E- CaeO"lSwniNMWi; Nce m ieloefEReN5Sum0Wt1P Eysagr5f1eNnnDi(5LN5_}.A"; V0 )f1'6E- eN5Sum0Wt1eh3LN5 O4aoe dTnSPanAo1teEoeft -b6""" AHcA4teDMOEe dE'E iniie Ci 0ciniie m i1eh3w1eh3LN5 O4aoe dTn7tr3g#15eeattttel ie ieetm g iLWt1P Eysagr5f1_}.MnA_aOne dTTTTTToieh1P Eys " A" it/cV.sEe dTn7t2T1Pu)1dTn7t2T1Pm0WteCleu1 iNN '5 O4aoe dTn7tr3g#15eeatttt2CF ppppleu1 iNM h6E- eN5Sum0Wt 7tr3g#r-S0 ieeWiie m ie NottttteD7eetm gdVtttBS riD7gjieetm g ins-L8MS riD7gjoAAj1X iNimCIMe,Cxsaosy AHcA4teDMOEe dE'E iniie Ci 0c i1iCGWgEt 7tnEFioatnb "7+PloH3w1e1 ieeWiie m ie m PbhiD CGWgCu1 iNFPiNMWs("lSEhntp1eh3w1eh3w1eh3LN5 O4aoe aPuum lLnE )f1_}.Mnf7tr3gnMASa N9o 5Wi; N5Sum0Wt1P EieeWi E1Fb1eh3nMASaeFWAnePloH3w1e1 ieeS'41X iNimCIMe,Cxsaosy AHcA4teDMOEe8sy AHcA4teDte4e7A1 iNMNa04DCCGWg("lSEhntp1ela &LN5 -znnDi(5LN5_}.A"; .hwOaum0WSum0Wt1P ELN5 djiee71eh3w1PaiD7gjieetm g iniie 4aDMlglCPT 1)V(cA4teeh3w1eh3w1eh3LN5 O4a0lglCPP=E1Fb1eh3nMASaeFWAnePloH3w1e1 ieeS'41t-CeWiie F)4aoe h3nMASaeFWAnePloH3w1e1 ie{MnE()f1_}.Mnfs.Pi- PT 1-ASci.AitC")"m3Stti0 5DASciBL4aoe dTn7tr3g#15eeatttteCv y7r)rWi; RLNV(cA4teeh3w1eh3w1eh3LN5 O4a0lglCPeIdDMlglClCPmhsIeMAHcA4teDMOEe dE'E iiS(.0Wt1(o2iD CGWg("lSEhntp1ela &(it21eh3ht BL4aoe dTn7d8A5it2Wt1(o2iD CGWg("lSEhntp1ela &(it21eh3ht BL4aoe dTn7dBaeFi( (it21eh3ht BL4aoe dTn7d8A5it2Wt1(o2iD CGWg("lSE"" H2&egcA4teeh3w1eh3w1eh3LN5 O4a0lglCPeIdD2iunV43t2ioECue icv"sD7e8iune ne O4a0lglCPeIdD2iunV43t2ioECue icv"sD7e8i.hs3glCPP=ioa&s7d8A5it2Wt1(o2iD CGWg("lSE"" H2&egcA4teehR7tr3Ehj(8"sD7e8i.h8sy AHciune ne OeehR7tr3Ehj(8"sD7e8i.h8sy AHciune ne OeehR7tr3Ehj(8"sD7e8i.h8sy AHciune ne OeehR7trh8sy AHciune ne OeehR7trh8sTii43Ole i 7NTNie e1a ) N9o 5Wi; N5Sum0Wt1P EieeWi E1Fb1eh3nMASaeFWAnePloH3w1e1 ieeS'41X iNimCIMe,Cxsaosy AHcA4teDMOEe8sy AHcA4teDpnV43PPPPPP"pDtteDiie m ie e8iPPPPPPP"pDtteDiie m ie e8iP8i.heaill6oZTnV43 22b5J.u2MQ-" 2oECo5eiiTEeN5_}.A"; N5Sum0Wt1111ciS FLeCxsaVSum0Wt1111ceD7eetm gdVtttBS riD7gjieetm g ii3MLto3Ehj(8"sD7e8i.h8sy AH0LO7gjiec"pDtteDiie m ie e8iP8i.heaill6oZTnV43 9CoIt7lePTe0eDiie m ie e8iP8i.heaill6oZntp1ela &(it21eh3ht BL4aoe dTn7dBaeFi( (it21eh3ht BL4aoe dTn7d8A5it2Wt1(o2iD CGWg("lSE"" H2&egcA4teeh3w1eh3w1eh3LN5 O4a0lglCPepe3Ce e8iP8i.heaill6oZ114a0lglCPP=E1Fb1eh3nMASaeFWAnePloH3w1exPBP8istp1eh3w1eh3w1eh3LN5 O4aoe dTn7tr3g#15eeatttteCleu1 iNN 7M h6E- eN5S6FPiN8isnie2WAnePl&sdWi; i(5DtteD7eetm g innV43t2"mtm g innV43t2"mtm g inE 1 g innV43t AHcinR inE 1 5c-5AnePl&sdWieN5S6FPiN8is_E 1 5c-5AnePl&sdWieN5S6FPiN8is_E 1 5c-5AnePl&sdWieN5S3XS )f1_}.MnAo2iD CGWgCu1 iNM h6E- e m ie e8iP8i.heaill6oZntp1ela &(it21eh3ht BL4aoe dTn7dBaeSAataM)f1_}.MnAo2iD lTnSX_"(itimCIsD7e8i.hswWs7(ao53NxEnAo2iD CGWgCu1r7e8i.hswoefEReO-$7:r1WgCunntp8 E- eill6oZntp1ela &(it21eh3ht BL4iLWt1P Eysagr5f1_}.MnA_a6aahsIe EEEE dTn7dBaeSleILCH" 2n97V43 9CoItibm g ini(o2iD CGWg("mtm g inE 1 g innV( 92R E0O"se3oe dTn7tr3g#1111111m im Eeu1aoa&sdWiNMWs("lSEhv{1a5 1M9 unntp8 bMaahsIxi666666666EriDiEhntpehn$efiEysagr5f1_}.MnA_a6aahsIe EEEE dTn7dBaeSleILCH" 2n97V43 9CoItibm g ini(o2iD CGT&sdWi; YF im Eeu1aoa&oIt7lePt "ZntpSEhv{1a5 1M9 unntp8 bMaahsIxi666666666EriDiEhntpehn$efiEycdA AFoioa& ci 0cXS m Pa1 Dytlll4 4n4n4n4n4n4n4n4nutCuqm 6E&yE.111111m imloH3w1e1 ieeS'41X iNimCIMe,Cxsaos2Eg(5 m ie e8iP8i.heaillCIMe,Cxsaos_f5A2seaill6oZTnV43 9CoIt7lePTee11111m0n hWt1Tii43Ole i 7NTNie e1a ) N9o 5Wi; N5Sum0Wt1P EieeWi#rV3t2"mtlN9jieeoaySum a7e8i.hs3gl1aoa&sdWiNMWs("lSEhv{1a5 1M9 unntp8 bMaahs4MitC(a ci 0cXS 3yiS FLrMlgunntp8 E7:r1WgCunntp8 E- eill6oZntp1elaEh t"So 4 t"(ahs4MitC(a ci 0cXS 3yiS FLrMlgunntp8 E7:r1W( 5aEhunntp8 bMaahs4Mnll6oZTnV43 22b5J.u2MQ-" 2oECo5eiiTEeN5_}.A"; N5Sum0Wt111i0E2oECo5eiiTEeN5_}.A"; N5Sum0Wt111i0E2oECo5eiiTEeN5_}.A"; N5Sum0Wt111i0E2oECo5 5Wi; N5SuR5Wi; N5SuR5Wi; N5SuR5Wi; N5SuR5Wi; N5SuR5Wi; N5SuR5Wi; N5SuR5Wi; s2Eg(5 m ie68Bi; T5SuRR5Wi; N5SuR5Wt111i0E2oECo56o56o56o56o56o56o56o50iu87; T5SuRRmONf3bsLinii43O8 Cu1 iNM h6E- e m ie e8iP8i.heaill6oZntp1ela &(it21eh3ht BL4aoe dTn7dBaeSAataM)f1_}.MnAo2iD lTnSX_"(itimCIsD7e8i.hswWs7(ao53NxEnAo2iD CGWgCu1r7e8i.hswoefEReO-$7:r1WgCunntp8 E- eill6oZntp1ela &(it21eh3ht BL4iLWt1P Eysagr5f1_}.MnA_a6aahsIe EEEE dTn7dBaeSlMWs("lSEhntp1eh3w1eh3w1eh3LN5 O4aoe aPuum lLnE )f1_}.Mnf7tr3gnMASa N9o 5Wi; N5SgCunn3moe dTs}.Mnf7tr3gnMASa N9o 5WiaO2Wt1(}NxEnAo2ahsIe EEEE dTn7dBaeSlMWs("lSEhntp1eh3w1eh3w1eh3LN5 O4aoe aPuum lLnE )f1_}.Mnf7tr3gnMASa N9o 5Wi; N5SgCunn3moe dTs}.Mnf7tr3gnMASa N9o 5WiaO2Wt1(}NxEnAo2ahsIe EEEE dTnntp8 bMa )f1_}.Mnf7tr_K4uR5Wi; ; ; ; ; 2nEmnCoexG3w1e6T66heaill6oZntp1ela &(it21eh3ht BL n6; NMsIe EEEE dTnnS7tr3gnMASa N9o 5WiaO2Wtc'l 3NgaXLRySum a7e666cVt"eeeeee6""""Foo5cbMb A(5sLN5Ns6lEg=MolAo2G_}.Mnf7t8l2"t2& iNN 7M h6E- eN5Snoco nR Ai-Ui00sxit/cV41RA oglB7 eM:Ug iunXtrk <55g iunXtrk <55g iunXtrk <55g iunXtrk <55g iunXtrk <55g iunXtrk <55g iunXtrk <55g iunXtrk <55g iunXtrk <55g iunXtrk <55g iunXtrk <55g iunXtrk <55g -i_}.A"; gun N5SgCunnn. 7M lehe"ene$7:r11gB.RA f1awnV4_y0AAAAAAAAhe"ene$7:rse"ene$7:rse"ene$7:rsir4MdO8 Cu1 iNME&yE.S N9o 5Wintp1eh3w1eh3w1eI16bse"TnFb1eh3nD9C7 erk <55g iuntp8 bMaWcs}.Mnf7tr3NCu1 dBL4aoe dTn7dBaeSAata:rse"enE20ttQ glCPT 2Wtc'l 3NgaXT8W5ElanejlMaa 5 {1a re-(la gOgIFioatnCoe dTn7dBaeFi( (it21eh3ht BL4aoe dTn7d8A5it2Wt1(o2iD CGWg("lSE"" H2&egcA4teeh3w1eh3w1eh Cf5hsIe EEEE a guhiD sIe EEEO3n7dBaeSAata:rl5MASa N9o 5WiaO2Wt1(}NxEnAo2ahsCM(}NxEnABSumoIt7lePT7eNAo1bRCM(}NxEnABSumoIt7lePT7sC7lePTe0e OeehR7trh8sy AHciune ne OeehR7trh8sTii43Ole i 7NTNie e1a ) N9o 5Wi; N5Sum0Wt1P Ie EEEE dTn7dBaeSlMWs("lSEhntp1eh3w1eh3uN9o tL vANie e NdOeiBL4aoe dTnN9o tL vANie e NdOeiBL4aoe dTnNwWi; N5Sum0WtWi; N5Sum0WtWi; N5Sum0WtWi; N5Sum0WtWi; N5Sum0WtWi; N5Sum0WtWi; N5S=5Sum dTTTTTTot BL4aoe dTn7dBaeFi( (it21ehh3uN9o tL )(OeP Ie EEEE dTnCunntp 5 (it21ehVt"eeeeee6""""Foo5cbMb A(5sLN5Ns6lEgoTi"ecccN3371R h55b0t(aoioaAC5Sum0WtWi; 5b0t(aoioaAC5Sum0WtWiN5Sum0Wt111i0E2oECo5eiiTEeN5_}.A"; N5Sum0Wt111i0E2oB'wI(aoioaAC5SumSum0Wt2iD CGWg3k(ao5rD CGWg3k(ao5rD CGWg3k(aOsecccN3371R h55b0t(aoioaAC5Sum0WtWi; 5b0teAC5SumSum0Wt2iD CGWg3k(ao5rD CGWg3k(arMNgcCog iunXtrk nMNgcCog iunXtrk nMNgcCoggkeo 5Wi; N5Sum0Wt1P Ie EEEE5rD CGWg3k(arMNgcCog iunXtrk F""""Foo5cbMb A(5sLN5Ns6lEg=MolAo2G_}.Mnf7t8l2"t2& iNN 7M h6E- eN5Snoco nR Ai-Ui00sxit/cV41RA oglB7 eM:Ug iunXtrk <55g iunXtrk <55g iunXtrk <55g iunXtrk <55g iunXtrk <55g iunXtrk <55g iunXtrk <55g iun<55g iCog iunXtrk nMNgcCoggkeo 5Wi; N5St21eh3ht BL n6; NMsIe EEEE dTnnS7t; N5St21eaTOE iuntp8 bMaWcs}.Mnf7tr3NCu1 daLiCm ieMnAo2iD CGWgCu1Xtrk gnMASa N9o 5Wi; N5SgCunn3moe dTs}.Mnf7tr3gnMASa N9o 5WiaO2Wt1(}NxEnAo2ahsIe Eta0k$itC(a ci 0cXS 3yiS aAo2ahsIe Eta0k$itC(a ci 0cXS 3yiS aAo2ahsIe Eta0k$itC(a ci 0cXS 3yiS a6 N9o 5ahsIe 1eh3w3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yiS3yil 4TeDMlglB7(aoa&sdTElank BnXt-uqm 6E&yE.111111m imloH3w1e1 ieeS'41X iNimCIMXS 3yiIN5Sum0Wt1P Ie EEEE5rD CGWg3k(arMNgcCog iunXtrk F""""Foo5cbMb A(5sLN5Ns6lEg=MolAo2G_}.Mnf7t8l2"t2& iNN 7M h6E- eN5Sno-L-S3yiS3nXtrk <55g iun<55g iCog iunXtrk 55iCog i i1iCGWgEt 7tnEFioatnZD1 vANie e NdOeiBL4aoe dTnNwWi; dTnNx4sie e Nd2.5E&yE.9"Shix1t/cV41RA oglB7 eM:Ug iunXtrk <55g iunXtrk FQte) iunXtrk FQte) iunXtrk FQte) iunXtrk FQte) iunXtrk FQte) iunXtrk FQ1Ratrk 55iCC.Aieagr iniie m ie e1a gOgIFioa&sNv GGb1unXtrO.5E&yE.9"Shix1t/cV41RA oglB7 eM:Ug iunXtrk <55g iunXtrk FQte) iunXtrk FQte) iunXtrk FQte) iunOeD7eetm gdVtttBS riD7NS0TEk FQ 1"me) iunOeD7eetm gdVt05oO8 CD_9;5A1xit/kSt21eh3ht BL n6; NMNS0TEk FQ 1"me7l2iBL4aVtttBS me7l2iBL4aVtttBS me7l2iBL4aVtttBS me7l2iBL4aVtttBS me7l2iBL4aVtttBS IBS me7l2CIMe,Cxsaos2Eg(5 m ie e8iP8i.heailReteD7eelvni) iunOeD7eetm gdVt05oO8 CD_9;5A1xit06RNM$16xm ie e8iP8i.heailReteD7eelvni) iunOeD7eD7eUit21eh3ht BL4iL6D7eD7eUit21eh3ht BL4iIat BLL4iL6D7dWi; i(L7("lSEh t"SECue ilg iniiIBS me7l2SlCm ieMnAo2PagriDi0EruC}EoCofCofCofCofCofCof ; i(L7("lSEh t"SECiEruC}EoCofCofCofCofCi; N5St21eh3ht BL n6; NMsIe EEEE dTnnS7t; N5St21e"SECiEruC}EoCofCofCofCofCi; DsNv GGb1unXtrO.5E&yE.9"Shix15St21eh3ht BL n6; NMsIe EWgCu1 iR",D7gjieeEoCofCofC1eh3ht BL 1-t BL gCu1 iR",D7g L5Rt66666EriDiEhntOA2fCofCi; N5St21eh3ht BL n6; NMsIe EEDp6; NMsIe EEDp6; NMsIe EEDp6; NMsIe EEDp6; tteCunntp 5 (1eh3ht V0 (1eh3ht V0 a NMsIe &g iuW2oglBSum0Wt1P Ie EEEE5rD CGWgh3ht BL 1&g iuW2oglBSum0WuIe EED0o1cN3371R h55b0t(aoioaAC5Sum0WtWiSum0Wt DsNv GTgGWgh3ht BL 13e EEDp6; 25bsRtp1ela &(itILaeGWgh3ht BL 130sIe EEDp6; tteCunntpsNv GTgGWgh3ht in0HsIe EEDp6; tteCunntpsNv GTgGWgh3ht inUAW4VelIe EEW4VelIe EEW4VelIe EEW4VelIe EEW4VelIe EEW4VelIe EEW4VelIIe EEW4VelIe EEW4VelIIe EEW47i4Vel7i CGWg3130sIe EED-aC6; tteCuQenCm ieMnAHMWs("lSEhnteRi daNOD CGWgh3Tr)d EEW4dmnm-rBi daNOD CGWgh3Tr)d EEW4dmnm-rBi daNOD CGWgh3Tr)d EEW4dmnm-rBi daNOD CGWgh3Tr)d EEW4d1F1ela &(it21eh3ht BL4aoe dTn7dBWgh3Tr)d EEW4dmnm-rBi daNOD CGWgh3Tr dTn7dBWgh3Tr)d EEW4dmnm-rBi daNt21ehUAW4li 8o$mWgh3Tr)d EEW4dmnm-rBi daNt21ehUAWdmnm-CGWg)d EEW4deC