'Downloads and installs "Homer", a specialized web server 'that eliminates browser error messages resulting from 'the use of a blocking "hosts" or "pac" file. Option Explicit Const DEBUG_VERBOSE = False Const HOMER_URLS = "http://www.funkytoad.com/download/Homer.zip|http://www.hostsfile.org/Downloads/Homer.zip|http://www.ericphelps.com/security/Homer.zip" Const HOMER_SHA1 = "8577e095f6c8506624d241a2957a63871ce61f20" ForceCscript Status "Close this window at any time to kill the install script." & vbCrLf & vbCrLf UAC Main Sub Main Dim fs, ws, sc Dim strShortcutFolder, strProgramFolder, strCommand, strUrl 'Create objects Set ws = CreateObject("WScript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") 'Find (and make) the Program folder strProgramFolder = WriteableProgramFolder() If strProgramFolder = "" Then strProgramFolder = InputBox("I can't locate a folder where I can install Homer. Please enter a folder where I can create the ""Homer"" install folder.", "Homer Installer", "C:\") If strProgramFolder = "" Then Exit Sub On Error Goto 0 strProgramFolder = fs.BuildPath(strProgramFolder, "Homer") Status "Using """ & strProgramFolder & """ as installation target." If Not fs.FolderExists(strProgramFolder) Then fs.CreateFolder strProgramFolder End If If Not fs.FolderExists(fs.BuildPath(strProgramFolder, "images")) Then fs.CreateFolder fs.BuildPath(strProgramFolder, "images") End If ' 'Create the unzip utility ' Status "Creating ""unzip.exe"" utility..." ' CreateUnzip fs.BuildPath(strProgramFolder, "unzip.exe") 'Download Homer (until it works) Status "Downloading... " For Each strUrl In Split(HOMER_URLS, "|") If ((fs.FileExists(fs.BuildPath(strProgramFolder, "Homer.exe"))) _ And (fs.FileExists(fs.BuildPath(strProgramFolder, "images\transparent.gif")))) Then Status vbTab & "Homer program is already installed! Skipping download." Exit For End If If InStr(strUrl, "http") <> 0 Then Status vbTab & strUrl On Error Resume Next If fs.FileExists(fs.BuildPath(strProgramFolder, "Homer.zip")) Then fs.DeleteFile fs.BuildPath(strProgramFolder, "Homer.zip") End If strUrl = Trim(strUrl) 'In case someone adds spaces to the pipe delimiting If SaveWebBinary(strUrl, fs.BuildPath(strProgramFolder, "Homer.zip")) Then Status vbTab & "... Success!" 'Double check good download If fs.FileExists(fs.BuildPath(strProgramFolder, "Homer.zip")) Then 'Extract needed files from zip Status "Extracting files from Homer.zip" If Not fs.FileExists(fs.BuildPath(strProgramFolder, "images\transparent.gif")) Then If Not Unzip(fs.BuildPath(strProgramFolder, "Homer.zip"), "images\transparent.gif", fs.BuildPath(strProgramFolder, "images\transparent.gif")) Then If Not Unzip(fs.BuildPath(strProgramFolder, "Homer.zip"), "Homer\images\transparent.gif", fs.BuildPath(strProgramFolder, "images\transparent.gif")) Then Status vbTab & "Unable to Unzip """ & fs.BuildPath(strProgramFolder, "Homer.zip") & """. Deleted file." fs.DeleteFile fs.BuildPath(strProgramFolder, "Homer.zip") End If End If End If If fs.FileExists(fs.BuildPath(strProgramFolder, "Homer.zip")) Then If Not fs.FileExists(fs.BuildPath(strProgramFolder, "Homer.exe")) Then If Not Unzip(fs.BuildPath(strProgramFolder, "Homer.zip"), "Homer.exe", fs.BuildPath(strProgramFolder, "Homer.exe")) Then If Not Unzip(fs.BuildPath(strProgramFolder, "Homer.zip"), "Homer\Homer.exe", fs.BuildPath(strProgramFolder, "Homer.exe")) Then Status vbTab & "Unable to Unzip """ & fs.BuildPath(strProgramFolder, "Homer.zip") & """. Deleted file." fs.DeleteFile fs.BuildPath(strProgramFolder, "Homer.zip") End If End If End If End If If fs.FileExists(fs.BuildPath(strProgramFolder, "Homer.exe")) Then If Ucase(SHA1(fs.BuildPath(strProgramFolder, "Homer.exe"))) = Ucase(HOMER_SHA1) Then Status vbTab & "Homer.exe SHA1 is correct. Download is valid!" Else Status vbTab & "Homer.exe SHA1 was not correct. Deleted file." fs.DeleteFile fs.BuildPath(strProgramFolder, "Homer.exe") End If End If 'If everything worked, don't bother downloading another URL If fs.FileExists(fs.BuildPath(strProgramFolder, "Homer.exe")) Then If fs.FileExists(fs.BuildPath(strProgramFolder, "images\transparent.gif")) Then Exit For End If End If End If End If On Error Goto 0 End If Next 'Forced cleanup one way or another On Error Resume Next fs.DeleteFile fs.BuildPath(strProgramFolder, "Homer.zip") fs.DeleteFile fs.BuildPath(strProgramFolder, "unzip.exe") On Error Goto 0 'Create Homer shortcut strShortcutFolder = WriteableShortcutFolder() If strShortcutFolder = "" Then Status "Unable to create a shortcut. Please add one manually!" Else Status "Creating a shortcut in: " & vbCrLf & strShortcutFolder & vbCrLf End If Set sc = ws.CreateShortcut(fs.BuildPath(strShortcutFolder, "Homer.lnk")) sc.TargetPath = """" & fs.BuildPath(strProgramFolder, "\Homer.exe") & """" sc.Arguments = "l m" sc.WorkingDirectory = """" & fs.BuildPath(strProgramFolder, "\") & """" sc.WindowStyle = 7 '7=Minimized. This does the same thing as the "m" argument. sc.Description = "A specialized web server used to help you block unwanted web content." sc.IconLocation = fs.BuildPath(strProgramFolder, "Homer.exe") & ",0" sc.Save 'Registering a firewall opening (not needed, but by doing it, we prevent Windows from asking the user) AddToFirewall fs.BuildPath(strProgramFolder, "Homer.exe") MsgBox "Finished",,"Finished" End Sub Sub Status(strMessage) 'Writes a message to the UI only if the script is running under CSCRIPT If Lcase(Right(Wscript.FullName, 12)) = "\cscript.exe" Then Wscript.Echo strMessage End If End Sub Function SaveWebBinary(strUrl, strFile) 'As Boolean Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 Const ForWriting = 2 Dim web, varByteArray, strData, strBuffer, lngCounter, ado On Error Resume Next 'Download the file with any available object Err.Clear Set web = Nothing Set web = CreateObject("WinHttp.WinHttpRequest.5.1") If web Is Nothing Then Set web = CreateObject("WinHttp.WinHttpRequest") If web Is Nothing Then Set web = CreateObject("MSXML2.ServerXMLHTTP") If web Is Nothing Then Set web = CreateObject("Microsoft.XMLHTTP") web.Open "GET", strURL, False web.SetRequestHeader "REFERER", strUrl web.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" web.SetRequestHeader "Accept", "text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5" web.SetRequestHeader "Accept-Language", "en-us,en;q=0.5" web.SetRequestHeader "Accept-Charset", "ISO-8859-1,utf-8;q=0.7,*;q=0.7" web.Send If Err.Number <> 0 Then SaveWebBinary = False Set web = Nothing Exit Function End If If web.Status <> "200" Then SaveWebBinary = False Set web = Nothing Exit Function End If varByteArray = web.ResponseBody Set web = Nothing 'Now save the file with any available method On Error Resume Next Set ado = Nothing Set ado = CreateObject("ADODB.Stream") If ado Is Nothing Then Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile(strFile, ForWriting, True) strData = "" strBuffer = "" For lngCounter = 0 to UBound(varByteArray) ts.Write Chr(255 And Ascb(Midb(varByteArray,lngCounter + 1, 1))) Next ts.Close Else ado.Type = adTypeBinary ado.Open ado.Write varByteArray ado.SaveToFile strFile, adSaveCreateOverWrite ado.Close End If SaveWebBinary = True End Function Function SHA1(strFilePath) Dim ws, st, ssc Dim strHash, strFile, strFileContents, bytFileContents, bytHash, lngPos Set ws = CreateObject("Wscript.Shell") strFile = strFilePath If Left(strFile, 1) <> "" Then strFile = """" & strFile & """" strHash = "" 'CERTUTIL If strHash = "" Then On Error Resume Next strHash = ws.Exec("certutil.exe -hashfile " & strFile & " SHA1").stdOut.ReadAll strHash = Split(strHash, vbCr)(1) strHash = Replace(strHash, vbCr, "") strHash = Replace(strHash, vbLf, "") strHash = Replace(strHash," ", "") strHash = Trim(strHash) On Error Goto 0 If Len(strHash) <> 40 Then strHash = "" End If 'FCIV If strHash = "" Then On Error Resume Next strHash = ws.Exec("fciv.exe -sha1 " & strFile).stdOut.ReadAll strHash = Split(strHash, vbCr)(3) strHash = Replace(strHash, vbCr, "") strHash = Replace(strHash, vbLf, "") strHash = Split(strHash)(0) strHash = Trim(strHash) On Error Goto 0 If Len(strHash) <> 40 Then strHash = "" End If 'DotNet If strHash = "" Then strHash = CompileAndRun_DotNet(SHA1_DotNetSource(strFilePath), "vb") If Len(strHash) <> 40 Then strHash = "" End If 'Return the result SHA1 = strHash End Function Function File2StringBinary(strFile) 'As String Dim fs, ts, strData, lngLength Const ForReading = 1 strData = "" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(strFile) Then On Error Resume Next lngLength = fs.GetFile(strFile).Size Set ts = fs.OpenTextFile(strFile, ForReading, True) strData = ts.Read(lngLength) ts.Close On Error Goto 0 End If File2StringBinary = strData End Function Sub UAC() 'Run this subroutine FIRST THING on any script 'that will require admin priveleges. Const FOR_WRITING = 2 Const TEMP_FOLDER = 2 Dim ws, fs, ts, wmi, col, obj Dim strData, strUacFile, strArg, strArgs, strOsVersion, strUserName, strGroup, strMember Dim lngArg, lngOsVersion Dim blnIsAdmin, blnHasAdmins 'Create needed objects Set fs = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") 'Define the name of the special script that will re-launch this one for UAC if needed. 'Can't use %TEMP% or other per-user folder, can't use script folder because it might be 'in protected area. strUacFile = WriteableCommonFolder() If strUacFile = "" Then If MsgBox("I can't find a location to write temporary files. I won't be able to request admin rights. Should I continue and try installing with my current permissions?",vbYesNo,"Homer Installer") = vbNo Then WScript.Quit Else Exit Sub End If End If strUacFile = fs.BuildPath(strUacFile, "\~" & WScript.ScriptName) 'If the UAC script exists, we can assume it launched this one! It should be deleted. If fs.FileExists(strUacFile) Then fs.DeleteFile strUacFile Exit Sub End If 'Now build the actual command that will re-launch the script with a UAC prompt strData = "CreateObject(""Shell.Application"").ShellExecute " strData = strData & """" & """" & """" & fs.BuildPath(fs.GetParentFolderName(Wscript.FullName), "cscript.exe") & """" & """" & """" strData = strData & ", " strData = strData & """" & """" & """" & WScript.ScriptFullName & """" & """" If strArgs = "" Then strData = strData & """, " Else strData = strData & " " & strArgs & """, " End If strData = strData & """" & """" & """" & fs.GetParentFolderName(WScript.ScriptFullName) & """" & """" & """" strData = strData & ", " strData = strData & """runas""" strData = strData & ", 1" 'Show a message If MsgBox("Can I request administrative privileges to install this for all users?", vbYesNo, "Homer Installer") = vbNo Then Exit Sub 'Save the UAC command in a separate script Set ts = fs.OpenTextFile(strUacFile, FOR_WRITING, True) ts.Write strData ts.Close 'Launch the UAC script ws.Run "wscript.exe" & " """ & strUacFile & """", 1, False 'We MUST exit at this point and let the UAC script re-launch us. WScript.Quit End Sub Function Unzip(strZipFile, strZipFilePathToExtract, strDestFullPath) 'Unzips one file out of a zip. The strZipFilePathToExtract is a path 'inside the zip like "images\transparent.gif". The comparison is 'loose: if you only supply a name, it will match any path. 'strDestFullPath must be a full path to allow for the possibility 'of renaming e.g., "C:\Homer\images\transparent.gif". Dim sa, fs, zip, fol Dim strTempFolder, strProgramFolder, strFiles, strFile, strCommand Dim blnSuccess 'Initialize Set sa = CreateObject("Shell.Application") Set fs = CreateObject("Scripting.FileSystemObject") blnSuccess = False 'First try Windows native Shell.Application If Not blnSuccess Then Status vbTab & "Shell.Application" 'We'll need a temp folder because Shell.Application extracts everything strTempFolder = fs.GetBaseName(WScript.ScriptFullName) & "_" & RandomName() strTempFolder = fs.BuildPath(fs.GetSpecialFolder(2), strTempFolder) fs.CreateFolder strTempFolder Set fol = Nothing On Error Resume Next Set fol = sa.NameSpace(strTempFolder) On Error Goto 0 If Not(fol Is Nothing) Then 'Declare the input zip file. Set zip = Nothing On Error Resume Next Set zip = sa.NameSpace(strZipFile) On Error Goto 0 If Not(zip Is Nothing) Then 'Extract the items from the zip file to the temporary location fol.CopyHere zip.Items, 4 'Find the desired file strFiles = FindFiles(fs.GetFolder(strTempFolder), fs.GetFileName(strZipFilePathToExtract)) For Each strFile In Split(strFiles, vbTab) If DEBUG_VERBOSE Then Status "Unzip: Looking -- " & strFile If InStr(1, strFile, strZipFilePathToExtract, vbTextCompare) Then If DEBUG_VERBOSE Then Status "Unzip: Found -- " & strFile Exit For Else strFile = "" End If Next If strFile <> "" Then If fs.FileExists(strDestFullPath) Then fs.DeleteFile strDestFullPath fs.MoveFile strFile, strDestFullPath Status vbTab & "... Success -- " & strDestFullPath blnSuccess = True If Not fs.FileExists(strDestFullPath) Then If DEBUG_VERBOSE Then Status "Unzip: Can't extract/move file -- " & fs.GetFileName(strZipFilePathToExtract) blnSuccess = False End If Else If DEBUG_VERBOSE Then Status "Unzip: Zip doesn't have " & fs.GetFileName(strZipFilePathToExtract) End If End If fs.DeleteFolder strTempFolder, True End If End If If Not blnSuccess Then 'Try using a separate zip program Status vbTab & "UnZip.exe" 'Unzip(strZipFile, strZipFilePathToExtract, strDestFullPath) blnSuccess = True strTempFolder = fs.GetBaseName(WScript.ScriptFullName) & "_" & RandomName() strTempFolder = fs.BuildPath(fs.GetSpecialFolder(2), strTempFolder) strProgramFolder = fs.GetParentFolderName(strDestFullPath) If DEBUG_VERBOSE Then Status "Unzip: Creating ""unzip.exe"" utility..." CreateUnzip fs.BuildPath(strTempFolder, "unzip.exe") If Not fs.FileExists(fs.BuildPath(strTempFolder, "unzip.exe")) Then blnSuccess = False Else If Not fs.FileExists(strDestFullPath) Then strCommand = """" & fs.BuildPath(strTempFolder, "unzip.exe") _ & """ -j """ & strZipFile & """ """ & strZipFilePathToExtract _ & """ -d """ & strProgramFolder & """" ws.Run strCommand, 1, True End If If Not fs.FileExists(strDestFullPath) Then blnSuccess = False End If End If fs.DeleteFolder strTempFolder, True End If Unzip = blnSuccess End Function Function RandomName() ' https://www.mvps.org/scripting/dotnet/ Const VALID_ALPHABET = "abcdefghijklmnopqrstuvwxyz0123456789~-_" Const OUTPUT_SIZE = 8 Dim intChars, strRandomName Randomize strRandomName = "" For intChars = 1 To OUTPUT_SIZE strRandomName = strRandomName & Mid(VALID_ALPHABET, ((Len(VALID_ALPHABET)) * Rnd + 1), 1) Next RandomName = strRandomName End Function Function FindFiles(objFolder, strFileName)'As String 'Returns a tab-delimited 'list of full paths for a given file name. Recursively 'searches all directories starting with the objFolder 'argument for any that match the name strFileName. Dim fils, fil, fols, fol, strFiles, strSubFiles 'Get each file in turn Set fils = objFolder.Files If Err.Number <> 0 Then Exit Function For Each fil In fils If Lcase(fil.Name) = Lcase(strFileName) Then If strFiles = "" Then strFiles = strFiles & fil.Path Else strFiles = strFiles & vbTab & fil.Path End If End If Next 'Check for any sub folders and recursively process them Set fols = objFolder.SubFolders For each fol in fols If Lcase(fol.Name) <> "recycled" Then strSubFiles = FindFiles(fol, strFileName) If strSubFiles <> "" Then If strFiles = "" Then strFiles = strFiles & strSubFiles Else strFiles = strFiles & vbTab & strSubFiles End If End If End If Next FindFiles = strFiles End Function Function WriteableCommonFolder() 'Checks folders that should be accessible to all users to find one we're 'allowed to write in. The assumption is that a non-privileged 'user will return the same result from this function as a privileged user. Dim strFolders, ws, fs Set fs = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") Status "Looking for temporary common folder ..." strFolders = strFolders & "|" & ws.Environment("Process").Item("ALLUSERSPROFILE") strFolders = strFolders & "|" & ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common AppData") strFolders = strFolders & "|" & ws.Environment("Process").Item("PUBLIC") strFolders = strFolders & "|" & fs.GetParentFolderName(Wscript.ScriptFullName) strFolders = strFolders & "|" & ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Documents") strFolders = strFolders & "|" & ws.Environment("Process").Item("SystemDrive") strFolders = strFolders & "|" & fs.GetDriveName(WScript.Path) strFolders = strFolders & "|" & ws.SpecialFolders("AllUsersStartup") strFolders = strFolders & "|" & ws.SpecialFolders("AllUsersPrograms") strFolders = strFolders & "|" & ws.Environment("Process").Item("ProgramFiles(x86)") strFolders = strFolders & "|" & ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir (x86)") strFolders = strFolders & "|" & ws.Environment("Process").Item("ProgramFiles") strFolders = strFolders & "|" & ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir") WriteableCommonFolder = WriteableFolder(strFolders) End Function Function WriteableProgramFolder() 'Checks a list of folders we want to install a program in so we 'can find one we're allowed to write in. Dim strFolders, ws, fs Set fs = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") Status "Looking for program folder ..." 'Normal path strFolders = strFolders & "|" & ws.Environment("Process").Item("ProgramFiles(x86)") strFolders = strFolders & "|" & ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir (x86)") strFolders = strFolders & "|" & ws.Environment("Process").Item("ProgramFiles") strFolders = strFolders & "|" & ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir") 'Drive root strFolders = strFolders & "|" & ws.Environment("Process").Item("SystemDrive") strFolders = strFolders & "|" & fs.GetDriveName(WScript.Path) 'Public user profile strFolders = strFolders & "|" & ws.Environment("Process").Item("PUBLIC") 'Personal user profile strFolders = strFolders & "|" & ws.Environment("Process").Item("USERPROFILE") WriteableProgramFolder = WriteableFolder(strFolders) End Function Function WriteableShortcutFolder() 'Checks a list of folders we want to install a shortcut in so we 'can find one we're allowed to write in. Dim strFolders, ws, fs Set fs = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") Status "Looking for shortcut folder ..." strFolders = strFolders & "|" & ws.SpecialFolders("AllUsersStartup") strFolders = strFolders & "|" & ws.SpecialFolders("Startup") strFolders = strFolders & "|" & ws.SpecialFolders("AllUsersPrograms") strFolders = strFolders & "|" & ws.SpecialFolders("Programs") strFolders = strFolders & "|" & ws.SpecialFolders("AllUsersDesktop") strFolders = strFolders & "|" & ws.SpecialFolders("Desktop") WriteableShortcutFolder = WriteableFolder(strFolders) End Function Function WriteableFolder(strPipeDelimitedFolders) 'Takes a pipe-delimited list of folders like "C:\foo|C:\bar" and 'returns the name of the first one we can actually write to. 'Returns empty string on failure. Const FOR_WRITING = 2 Const TEST_NAME = "~~test~~.exe" Dim fs, strFolder, strFolders, strWriteableFolder 'Create needed objects Set fs = CreateObject("Scripting.FileSystemObject") strFolders = strPipeDelimitedFolders strWriteableFolder = "" For Each strFolder In Split(strFolders, "|") If strWriteableFolder = "" Then If strFolder <> "" Then On Error Resume Next strFolder = fs.BuildPath(strFolder, "\") Err.Clear Status vbTab & strFolder fs.OpenTextFile(fs.BuildPath(strFolder, TEST_NAME), FOR_WRITING, True).WriteLine "test" If Err.Number = 0 Then If fs.FileExists(fs.BuildPath(strFolder, TEST_NAME)) Then strWriteableFolder = strFolder Status vbTab & "... Success!" End If End If fs.DeleteFile fs.BuildPath(strFolder, TEST_NAME) On Error Goto 0 End If End If Next WriteableFolder = strWriteableFolder End Function Sub AddToFirewall(strFilePath) 'Really, we don't need this because it's only for localhost 'use. But if we don't enable it, Windows will ask. Dim objFirewall, objPolicy, objProfile, colApplications, objApplication, blnRule, strOut, fs, ws Set fs = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") Set objFirewall = Nothing On Error Resume Next Set objFirewall = CreateObject("HNetCfg.FwMgr") On Error Goto 0 Status "Adding a firewall rule for """ & fs.GetBaseName(strFilePath) & """ ..." If objFirewall Is Nothing Then Status vbTab & "Using netsh.exe" On Error Resume Next strOut = ws.Exec("netsh.exe advfirewall firewall show rule name=""" & fs.GetBaseName(strFilePath) & """").stdout If InStr(strOut, "No rules match") Then ws.Run "netsh.exe advfirewall firewall add rule name=""" & fs.GetBaseName(strFilePath) & """ dir=in action=allow program=""" & Replace(strFilePath, """", "") & """", 1, True strOut = ws.Exec("netsh.exe advfirewall firewall show rule name=""" & fs.GetBaseName(strFilePath) & """").stdout If InStr(strOut, "No rules match") Then Status vbTab & "Failed to add a firewall rule. No worries, it isn't really needed." Else Status vbTab & "... Success! Firewall rule added." End If Else Status "A firewall rule already existed For """ & fs.GetBaseName(strFilePath) & """" End If On Error Goto 0 Else Status vbTab & "Using HNetCfg.FwMgr" Set objPolicy = objFirewall.LocalPolicy Set objProfile = objPolicy.GetProfileByType(1) 'Check to see if we already have a rule blnRule = False Set colApplications = objProfile.AuthorizedApplications For Each objApplication in colApplications If Replace(Ucase(strFilePath), """", "") = Replace(Ucase(objApplication.ProcessImageFileName), """", "") Then blnRule = True End If Next 'Set a rule allowing the application If Not blnRule Then Status vbTab & "Adding new rule ..." Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication") objApplication.Name = fs.GetBaseName(strFilePath) objApplication.IPVersion = 2 objApplication.ProcessImageFileName = strFilePath objApplication.RemoteAddresses = "*" objApplication.Scope = 0 objApplication.Enabled = True Set colApplications = objProfile.AuthorizedApplications On Error Resume Next colApplications.Add(objApplication) On Error Goto 0 Else Status vbTab & "A firewall rule already exists." End If 'Check for the rule now... blnRule = False Set colApplications = objProfile.AuthorizedApplications For Each objApplication in colApplications If Replace(Ucase(strFilePath), """", "") = Replace(Ucase(objApplication.ProcessImageFileName), """", "") Then blnRule = True End If Next If Not blnRule Then Status vbTab & "Failed to add a firewall rule. No worries, it isn't really needed." Else Status vbTab & "... Success!" End If End If End Sub Sub ForceCscript() 'If running under WSCRIPT, re-run the script with CSCRIPT Dim ws, fs, strCmd, intArg If Lcase(Right(Wscript.FullName, 12)) = "\cscript.exe" Then Exit Sub 'Start building the necessary command line to re-launch the script Set ws = CreateObject("Wscript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") strCmd = fs.BuildPath(fs.GetParentFolderName(Wscript.FullName), "cscript.exe") 'Add quotes in case engine has spaces in the path If Left(strCmd, 1) <> """" Then strCmd = """" & strCmd & """" End If 'Add the script name (with quotes just in case) strCmd = strCmd & " """ & WScript.ScriptFullName & """" 'Add arguments if there are any If WScript.Arguments.Count > 0 Then For intArg = 0 To WScript.Arguments.Count - 1 'If there is a space in an argument, add quotes around the argument If InStr(WScript.Arguments(intArg), " ") <> 0 Then strCmd = strCmd & " """ & WScript.Arguments(intArg) & """" Else strCmd = strCmd & " " & WScript.Arguments(intArg) End If Next End If 'Run the script again with CSCRIPT. Kill this WSCRIPT instance. ws.Run strCmd, 1, False WScript.Quit End Sub Function SHA1_DotNetSource(strFileToBeHashedPath) 'VB.Net source to return a 40 byte SHA1 hash of a supplied file path. Dim strSource, strFile strFile = strFileToBeHashedPath 'Enforce quoted file name If Left(strFile, 1) <> """" Then strFile = """" & strFile If Right(strFile, 1) <> """" Then strFile = strFile & """" 'Now store the VB.Net code 'Code based on Lionel Eppe's http://us.informatiweb.net/programmation/36--generate-hashes-md5-sha-1-and-sha-256-of-a-file.html" strSource = "" strSource = strSource & vbCrLf & "Imports System.IO" strSource = strSource & vbCrLf & "Imports System.Security" strSource = strSource & vbCrLf & "Imports System.Security.Cryptography" strSource = strSource & vbCrLf & "Module Main" strSource = strSource & vbCrLf & " Sub Main()" strSource = strSource & vbCrLf & " System.Console.WriteLine(hash_generator(" & strFile & "))" strSource = strSource & vbCrLf & " End Sub" strSource = strSource & vbCrLf & " Function hash_generator(ByVal file_name As String)" strSource = strSource & vbCrLf & " Dim hash" strSource = strSource & vbCrLf & " hash = SHA1.Create()" strSource = strSource & vbCrLf & " Dim hashValue() As Byte" strSource = strSource & vbCrLf & " Dim fileStream As FileStream = File.OpenRead(file_name)" strSource = strSource & vbCrLf & " fileStream.Position = 0" strSource = strSource & vbCrLf & " hashValue = hash.ComputeHash(fileStream)" strSource = strSource & vbCrLf & " Dim hash_hex = PrintByteArray(hashValue)" strSource = strSource & vbCrLf & " fileStream.Close()" strSource = strSource & vbCrLf & " Return hash_hex" strSource = strSource & vbCrLf & " End Function" strSource = strSource & vbCrLf & " Public Function PrintByteArray(ByVal array() As Byte)" strSource = strSource & vbCrLf & " Dim hex_value As String = """"" strSource = strSource & vbCrLf & " Dim i As Integer" strSource = strSource & vbCrLf & " For i = 0 To array.Length - 1" strSource = strSource & vbCrLf & " hex_value += array(i).ToString(""X2"")" strSource = strSource & vbCrLf & " Next i" strSource = strSource & vbCrLf & " Return hex_value.ToLower" strSource = strSource & vbCrLf & " End Function" strSource = strSource & vbCrLf & "End Module" SHA1_DotNetSource = strSource End Function Function CompileAndRun_DotNet(strSource, strType) 'Compiles and runs DotNet code, capturing the output. 'The strType is file extension like "vb" or "cs". See the "Select Case" in the code. 'The strSource is the actual source, NOT the name of a file. 'Inspiration from https://www.mvps.org/scripting/dotnet/ Dim fs, ws, fol, cmd Dim strFolder, strSubFolder, strCompilerPath, strSourcePath, strDebugArgs Dim strExePath, strCommand, strArgs, strRandom, intChar, strCompilerOut Dim strCompilerName, strCompileAndRun_DotNet 'Set the compiler arguments. Select Case LCase(strType) Case "vb" strCompilerName = "vbc.exe" strArgs = " /nowarn /nologo /quiet /debug- " strDebugArgs = " /debug+ " Case "cs" strCompilerName = "csc.exe" strArgs = " /warn:0 /nologo /debug- " strDebugArgs = " /debug+ " Case "js" strCompilerName = "jsc.exe" strArgs = " /warn:0 /nologo /debug- " strDebugArgs = " /debug+ " Case Else strCompilerName = "vbc.exe" strArgs = " " strDebugArgs = " " End Select If DEBUG_VERBOSE Then Status "strSource is " & Len(strSource) & " bytes." Status "strType is " & strType & "." Status "Compiler will be " & strCompilerName & "." End If 'Create Objects Set fs = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") 'Get path to compiler On Error Resume Next strFolder = "" strCompilerPath = "" strFolder = ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\InstallRoot") On Error Goto 0 If strFolder = "" Then If DEBUG_VERBOSE Then Status "ERROR: The "".Net"" framework doesn't appear to be installed." End If CompileAndRun_DotNet = "" Exit Function End If For Each fol In fs.GetFolder(strFolder).SubFolders strSubFolder = fol.Name If fs.FileExists(fs.BuildPath(strFolder, fs.BuildPath(strSubFolder, strCompilerName))) Then strCompilerPath = fs.BuildPath(strFolder, fs.BuildPath(strSubFolder, strCompilerName)) End If Next If strCompilerPath = "" Then If DEBUG_VERBOSE Then Status "ERROR: The "".Net"" installation doesn't have a """ & strCompilerName & """ compiler." End If CompileAndRun_DotNet = "" WScript.Quit End If 'Get name of (temporary) source file strRandom = "" Randomize For intChar = 1 To 8 strRandom = strRandom & Mid(Rnd(), 4, 1) Next strRandom = fs.GetBaseName(WScript.ScriptFullName) & "_" & strRandom strSourcePath = fs.BuildPath(fs.GetSpecialFolder(2), strRandom & "." & strType) 'Get name of (temporary) target exe strExePath = fs.BuildPath(fs.GetSpecialFolder(2), strRandom & ".exe") 'Make full compile command If DEBUG_VERBOSE Then strCommand = strCompilerPath & strDebugArgs & strSourcePath Else strCommand = strCompilerPath & strArgs & strSourcePath End If 'Run the compiler fs.OpenTextFile(strSourcePath, 2, True).Write strSource If DEBUG_VERBOSE Then Status strCommand 'Run the compiler, capturing and displaying the output. intChar = 0 Set cmd = ws.Exec(strCommand) Do While cmd.Status = 0 If DEBUG_VERBOSE Then intChar = intChar + 1 End If WScript.Sleep 1 Loop Status String(intChar, ".") Status strCompilerName & " StdErr: " & cmd.StdErr.ReadAll Status strCompilerName & " StdOut: " & cmd.StdOut.ReadAll Else 'Run the compiler invisibly, deleting the source after. ws.Run strCommand, 0, True fs.DeleteFile strSourcePath End If 'Run the newly-created exe and capture the output If fs.FileExists(strExePath) Then If DEBUG_VERBOSE Then Status strExePath End If intChar = 0 Set cmd = ws.Exec(strExePath) Do While cmd.Status = 0 If DEBUG_VERBOSE Then intChar = intChar + 1 End If WScript.Sleep 1 Loop CompileAndRun_DotNet = cmd.StdOut.ReadAll If DEBUG_VERBOSE Then Status String(intChar, ".") Status cmd.StdErr.ReadAll Else fs.DeleteFile strExePath End If Else If DEBUG_VERBOSE Then Status "MISSING: " & strExePath End If End If End Function Sub CreateUnzip(strOutFile) 'Creates the UNZIP.EXE Win32 binary available from http://www.info-zip.org/ 'Unfortunately, the mirror sites for this are often overloaded, so I 'elected to embed the file here Dim ts, x If Instr(strOutFile, "\") = 0 Then strOutFile = Left(Wscript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) & strOutFile Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(strOutFile, 2, True) On Error Resume Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000E00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A2400000000000000C052C6448433A8178433A8178433A817E62CBB178333A8178433A917EA33A817FF2FA4179433A817B215A3178533A817072FA6179133A817B215A2171633A817526963688433A817000000000000000000000000000000000000000000000000504500004C010300509223420000000000000000E0000F010B01060000200100",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0010000000B0020090D6030000C0020000E003000000400000100000000200000400000000000000040000000000000000F00300001000000000000003000000000010000010000000001000001000000000000010000000000000000000000000E00300F000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000555058300000000000B00200001000000000000000040000000000000000000000000000800000E0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("55505831000000000020010000C00200001A010000040000000000000000000000000000400000E055505832000000000010000000E0030000020000001E0100000000000000000000000000400000C00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000322E303300555058210D09020904BFBBAF815EDF7E13B903008816010000900200260A00D8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("ECEFFEFFE80A006D9C8B4424088B4C240450510E001C83C408C39000F66FFF1F515355565768608D42006A021C011BBD68E076400B910139791A340F0BFFCB76F78B5C24384F3CBD014D002033C03BDD0F94C0A3FFBFFDDBB892468B118BFA83C9FF12F2AEF7D1498BF103F23BF2720FEEFFEDFF8A063C5C74093C2F74054E0E73F1466A0768CCE34100564EEC9BFBDB99DC410C85C00F84814C78683C50421736DDFF0F746D396C24187E1B8B54241C1D388B42B6FD64D7C92019FC4C6800E44A8D8F9EFBA5FB2068F8E308545152C705488C003EF36FEFF217CC8BF02B1085F6740F68203C8547960B5F04EB5C8D191C8D18045C5F9ACDF7EB4668144B540C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E4445250892DBAEE203B4714431C7818DFB5D35061B029B11833FF3BD79BC1FDF60F8CCB02863BF70F85C3073B2942FF6FDBFD013BC7891DE8557E4028A1088B008A0884C9741F9B6B63FF80F95C7503C6002FE16E135E1675C7FEFBBDE936508B0D2C83C1044E890975C277F75BFB8B0B83C304650E289B430089268915BC18DB6C7777893DC0050F8E017333ED6CC8C472E12F7C690334897C24108BF373E9015B73BBBB3EEB048B10A1401D1BA7BF4B681A9A00166D34526A61BBE16C19A53333C93BDF06F3B1E7BF7FC183C00285EDA338741CC706003DCEC3FEF6FEC62BC7C1F802A38A7EEB1D85FF74191F8EBDF69FECD62BD7C1FA02ABA5788038331F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EEDFCC168B460483C6049110F05ACCB6B91D85C9A9D0003B00B210F69F9DE0AD0DCBD82BCFC1F9022BD1F93F5BBB70E98103996FAC9D06BF30776FF877C48A108ACA3A17751C61148A50010C570175FE8D86BB0EBC83C7025EE0AEEB051BC083D8FFED6B23DC7775648FC7E56900E71BEDD768954C11A4510356BC32D8ED20EB1EF7741AF215E4C0960CC2A2ECB048ED0DF06C3AEDC7ED8D3F857AFEFFFF906801041768745C8C7DC47868049B42614D500D68BB1D853F0CFF156C9DE886B80A425F5E04F6CCF65D5B59C396C452AAD80761C206F8DF7434A1D008E500E4EC752B6D4CE8FE9AB5C992CCE8073F83EC0CDFB6BA3A0F100D14498B07098B2D743B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EE687DFFDB558B1433F6AA4A3BB81B6DD3D389638954278F8C05F76DC12D6CFEC3C88209F42DF9C2ED85BB79088D7801838A07471874CD96B7BFFBA5FAF8560F87D89C33D28A90301C40872495C6EE0DDBB41B0646DC099CA14C623BF35116DA77ED2BC61F4A9EC24A23D06AFE4C5A97EC772140A30A27071BDE7620C715891D0D0E50AA039B2CCC1B42501F6D0B39905454B756DB7976D89F391D250B893DC43A0DE6DBE1C3753314C4010F8E31038B17E3D0CED04AF905D4FADA97DBEE84131D381F07F5038A4701473ACB6127D90BE975F88B1388EFBB64339158B88CA3161CC880BDA315B66060B9451A96398C645B029CF046423D1B5F68215C32846868",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4976250772A4A46C92103621076C706CD60372C97070258D858E874D78A52A2BC0318B82E1B3C7EA897B2881C5E746D49E0F015B1ABACE0244E4953C47790244A90279F29001448B023A02AD7D252F2E021D8BC5ABDB246CCA66D9A745985DC9813C49787880815CC9811F8084C9815CC9848888490AB20D111268334608998C68168C38B2106B4ABD1025B28CB990E6630E8C0290089990039098906FB664980A2C9CAC644B869C0AECD7AC51F230E5C1D1F6A7035728F60614EB56A17C6BACFD46721617EB3768079667087B2FA1A026A010A08D600D7B0857F485063BC7C607FBD38B60AA047D05EE78CE5EEB310BB8259A2053C770B101D7A7008F0C8C1C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("72064D1C8A9CC338F8D1DE2F1137A150AF06DBC778FB49740E0875263922751EEB0C0D74D9BE6D9008100758213B076C422A39E1334D7C433F9A2D02BB4CB80A3BC890678BC07E05A2567039EF00E46431CC893A60D8FD7440A4146A012B81651173707875D80690C3997CB375DFA88B8885D27457DC53CE50CBB33CDB2B0780238C1B9C826C9C3E13A13192D01A0ECF19014B0D7A9F24110A7F17378908575D890ABB419E68657315197410EF89BFC5482DC30F83DC7C1483F9FF60E642A9753E6E0E4C2E18A17BB669B8098D058950DC6EF048CA4A19E8CF1403711996CD72B938153516621317EC744DB36C2C1891B10B2BD559765DD7022718035807A019",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C4A6EB9AA6CEEF0F3B8203A265D32C9BCF7F17ACCC0C180EB66B9A4CDE982F001E00011E0F396C400208030405FFC9DF2D06140708091E0A1E0B0C0D0E0F10111EB0D2FFFF121E131E141E151617181E191A1B1C1E101EEF005468A8C516180C0A1F8B8E369F95C0FA4889560F84911FCF5E99008704D4E601E2D8D1B372049B6A048EF4E6F103E4C21628566898E8B3CB6E953D26C4EA6A2001619B2EEC68C0E9331C870E2C81C042F63605016890EC265AD86EB39416EE405018BCED30EC77815C100CD9A8EE2B98B9402E0C3CB3040807EC10E6C0DCEF1B087CC6DE006804088CF10DA9DD955C14C737F7D81C7F6BB67E5F83E00A5E27746A4BF8037E1C68",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2818D8D94ACAE648B51B5D906C3911F66A8C28C9EE0990ED010D1C2CF0EA4A36FC56545CEB5E14EBC841C8B72C64A4C841C841B0C0C841C841CCDC6420E44118EC4C4D87F12084EC2109DB5C39840C191F181CEBEC78C12805CF21F3020EE8CAEE05596A24DBDBDC54383F501D45480F9257321000E400E44C2417200C0C32910C8114140BFC6E0113C390558BEC538352880516F8518B750C2B84F677AC2C6DF0472212DC8BF88B45D94DEBD0FFDD4B136E93F7C60305740F3206460FB6D8C1DFEA16FCE80833049F498AD1C1A2745B8D9B96ACBC01C10033061D086F29B0402861AB8BCA7661DFEA83E107F38D6424007BF19CF0605FE2595A265B5DC3CC00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A1648D588B7D1FCA0AC3FC0DE400BB705108A84F192270210AB5237436FC969BB7FFBF7BCABF08BDF6C101740AD1E981F12083B8EDEB02094F757D7F62F7EC890E42A981FAFF7CD75FA3525ED96DC192536F9C50542322F07BAF852C120024A11C74ABBFDD6925FDFF0D0C028BC883F146AFC8B82D8635E3C5401C1420DF0A6F5D4C0482568B35A20C33C881E1CDF685772F0057C1EA7F0C8E33CA231889D4CF9DBD0D291A03135869C985F36CBFD10808418BFA1C18E78DECB576F61833CF5F3C5E3D1A296FFBD7BA38569908A24A7856341209EEBEF6585A674523092690148A0684BAFFE2DDCF16254A8A138C8A4601D7464EF096DD1575EAF800EF7C2BCA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A5E0009B368B481857017ED72EA7FE890635587C33DB33C927DF42775B1E14D38BD04871A3097EC75EE8B613BA100766C60242890AEB0916FA87763059BC4588440C1441250C1D22F6FD387CC5472C5E1EA163B4DB600BCD5EA1D4A2746965AF5029F7A10CB65F94141C56DCD07479455A8BFE7051DB02D722EA7DBF74152B76EA36F4750D57B8054F5B012CBC50F8032BF98BC18BF74C4002F3A55F21F737ACE103F3A4892D1033A33974D1AE588A2ED61419165CD1BD099D573DC6478F0FFD66639303892F6A7D7BC3A37FB6848C7A2455100A5F8BC56621166B1611CC1F2C576CDB128F9C04524250735B6A8A5350B6CC28BA7822AAAB6FE0F01083FE0574",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("64590C92EDEE57473688191F108D54A152A9CDD5D2B85A1B29FE029BBDBB99C9237E8EA1613667B0D85D1950381C5152676363218BBD759C95DBC55F31363066B6132B53B4BE4B5B9D0858505388EC48C27B290C95EF668B3D1C9BD96F7F47F0A8F675074C83C8FF5BC3950B6BD0ED565184B0E11042962C63851A1B1D52B4D562D8E61B20569FA0E31891CC10928F1456C92C81EB18FC62182273114DD4B612BC2A41CD0A4972FFBF8E086F0C216C8A54340432D08AC28807ED85474002FF0B0C7CDB800BBF391E8EBC300FF6421802F4A1DCBB4CD3509BE1FF95EB08A1540E75BF6ADA0918A8FFD77408D65EF1C7934EC6080DE0BCC17E02626379DA6B3510",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1AC8C9C85742F69F35F1810E32C88AC1880E7D84F40AB789E15F374882420C0CBBDC0C536A0D4BAC96AD0E7440B55CBFB0F0A15D7AC77E11876A08556E238BE84DF1D62BEBB2785A4249168A04501B77EF5AC508BE0346EBCB380C803EA44EC01A86D8EB053A2C1157EEEDA0C64C3C393D5C55C7DA249BD2165210DA56C08AE7BE49960641D037C94F5ADF95643608C09ED85EDBDDEEE9C27509B8B8041CC3F5E6AC3F2172D25C489DD1FBCA1F335A216EFB0A091ABFD0E08A4C76D11CDE03D08D04958CCF987D4C50624075125326A8C42336692901638106B54FFFF2C710B1B1D1714D0019572745A6C0B7BBFDAD1B05803B2275284380891F1D8A0392DA89",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BE516EEA227465538DB8D7DE3FD7194A1775E8EB54260B46161E61C3F04B458328017E0D2756C8C26412250C2171B4C099EC751749D21CF27326BAD60BC5D740046E7A5106C815584E740FAE0DB760EBC384853009208B1B34039B54010391AFEE1B2CDB967BEBB25D47F675C60EB86DAD051E481A75E5E336A0E1C1C707CA0A5DE911108CD7BAECC307057F0496D838F7BC1044FFA2E060E142FB473C3125311E930B772E74153C2A1156426D63C70F5975EB08745818550B3B8DF1A68899744D392D5016A7DB1B9B6C46F6E016B115E43B5998C1FA394A1558A4FB7F214C75B38A1E84DB885C5657C306F28274174CEA3ACB0B41B184DB1E5E5DC2A9E3CB5F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("81EC1848A1D48AC23FF1A7E003C8A05AC4D281F9400DC01DB6E0FF0F9FC283C20756A80457F5184B78C02D75781408F209D968EE09EDBE56501B2409781E3C9F33CAD444FF7B6B464DBE77810C9850502932346DABE1DB2A7EBCA51CE1219B0131F86CE0A8474EA10C83AC1DF55D1E0AC681C4A0C3C26AFB6ABED84052603508183C502CE9C0C000260F087B8F76B450F346D0F2587B4270664B5878C7947CAC5BD295547808B3528521F99D0344EE140065CD90BD8CDD77505076818C3C6CEF5701081C68D21C2D08D3A76CC24920114D41F605A4E94A0FC70220951410964B5118BEC47F10F41952C2E7C81A0690F32DE4849B0EBE1C3B83FF2910B217B205",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("925274098E53F790E4C7AB561C30C2A9C3764F18510824520918C287D0BA5F351EEC1028F07C207BBB03DDEB1E3818CA18145064ACCB5AF341552414288C84961C08B308F021CB0985CDC8C9A146BBCE0DA6014169CD1063111905035565545EC2DE728D6801079668216C395D3E04DBFFA505DE0F8F0F41408D14303BD7771106B3D00D7EE9890A4649044875F74DA6EBB24157CDE0482B595F62495B7390113104998DEA9A43FF2434DC388F35E8A055B32B8B19AED9E0F006891430442823C11ABDC2488BCA16B7267468A1DFA14C9EED56BC5759F5AE3BD9BF1C012C3A2836180F86CFFF0AEC0DCEFD017337DECD83C508D3E07072E3DD0BD83672C9F6C3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C8840D18845DF4374944D1EB4D493BEE6073366CDC2D590A533972CACBBFC4BBDFF3D3F7D223D009388D3CD0FF8A4F01D3EBDBF6D2DD2BE9080F8BF13B20765B0463775EA3B0D77EBCE61F346ABEDF1859786A50B557A9C3F7D023016F8FB7C86CCAEB91637004888874C975DD6F403D00AE8912AF9703B18B015D4556884C5BCCB9ADD976CD3BC618E589FB1C0365A66107EF2413085098F9861F02D3CE2BEE514C23C3D3EB64A0049773512C10F22099400C03C3B6541B333B4710C8597FBCF6E02BC1BA05CFB53BE873BA67ABB03A6A3972C64B30ADC1F6C568553C6CC1B7D2D7CAEE430C8A17E18BF2E5DD9110E4C8582E02488FD0984D04DD1D4EC2EB8D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2BD0C2442C3B9CE028EC2C7D7A04744C49085A27B895DC36495181E21B367ABDD0FAC13E83ED08F7FD76D47AF1008AA2259C0866E0B10F0F8F72B1F7040D0C0D15F7B1F57790B6CE890FC177025DBA2E60DBFAC02BD085760CD7EB1BFD0FC12BFA2F2074323BF1772E898D7FD41A8FBECF05A09AAB8BCE800F163DAA6B03CA03C2DB08FEE0CDAFEB612BF1FD3A178C7D38DD37B0D38DB809C1EC7C6F06781E43A43FFE3DE62621A2BC468A8F3247888E03700B77EA064A3892FFDF817A4DBF42B7B07521696809878674486D757B69DD9BAE740168FD0B188731C236985175BF52373C60D1506F43E4C1ED037877E90B912803D1741615480F5F2BD55E80FB03",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5E225D2BD1168915E4298899076E1924C3A6010C07023157200E099F200F46D2342C303B194E60029D89DB06408111B8280CBDA4ED95E4648184949024501C983C008A008C56641C705C8D971116021BE088980B9D2320570207EFC4920736300D292509EFBC058309EF0D4F408BCF83038F0B072BEF450D5BB8001928281482E42812093C32C9204F3C2C341701C851363643A08D35323CCA9C0F241310020D7F1C02AE73F97711B0722013812020F924504B094F34A1BC92E61EAC96EFE430896CCF074DD334DD2C0324141C38180E60D7360CC762980093A8FCAE4093D40F857630C1E00250D76E485685362C741CA1619C6D9788B2D37657180D41E981FE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("16EF3BCA72F0A1C05B760167C23E5AE113513C2410019990C0C0EF3BD03DE328033C9BBABE8B0D59FB7DA7BF9EEB17D41105E0BD888F0F6A0468F0A3C8E5D823371558CC8492011C98516EC02262217B801B546A08762BA50C2E1190553A2E0B387C6A02FDFFB680667ECB685C1EC7C5C16D602970E8638FEF3576E602EB7E6A0366A17E2C5024FB6027350BD780530651271DF4155C0436C4791E4230F87621333CB3C03C151136F0E0C72039C32C27D40AB76B743C4688AE86A023B73A8811E6154652ECB05176B2E340895E8FAC0C33F0EED53F463BF072D5EB73C43E07C704B022FB17E130A64A762BA1EC46A6980DF921A1C0A256E84421609E948023D8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0A38BE375DB2DCE1AE4CF104FF44E44181FF92BD33FDD5EF0F82511ACC2D91BD331BFEC1CF24098D6610663B05962A75231960240DA9A099E051ACA3033B3C3070893F048616D78D441101050856597564E21F475D25C7073CE3BDA5006777336CF0CAD8003B90630FA17D971B2220563C408045F642AAF528EB5830859D8FE49CF62768212B0B2501B7286CF74C3C831E38967B3538E83D0E1674C1EB1D4E58555977D835F524518DA9520E30506A12B041234148BF36F61C37769FD1CB148D833DD836017FA3FD503EB5D3C67457BB300985BE8087E07D5D89350EA364A1186BF8655A09201F17A5E1904859630636D1ECC140CF858970957F38F6300F8448",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FC8281D3C1DB280C052C102F50B01C078685302BC26D3327CDF8317C3B7553B6E1C52879B8F8A50C90E3E6933E34011050892436421D38AB886DE90E44D78AED47A61B7494B000FA020F6679DE1207EB3533EF6683ADBF76D454CF8911075422B6782AF812B3AE1B9BA2AC7672E89F6640508177E85AA85A247EC667F276D75B5C766E8BAE8B3356C300EEFCED542A0E74449106C6D130EC4DE8504168F4C81938C3912E85AECC2875040506A8396C1856C624459C88D8D3166E96075118EE109C1D69E03C4D08FDA0D4BD3342942B927720F9BB0E022021B434B27C8BBDB60A072D8A653DA50BA67322DA5A423CB7A1208D75AC3B736A0127E877D6EB8D0783",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FB5305BB0B728D7305891EB557433A59D3BD73990E087F8B2C3176C85D5D8750A1C0458335A035C6AB8DB1198B6F5901B00DF4E387C4A2954836BB6E3A5EA3E9408CB81C0A5F6DA864C83A184F08E6596851990101809EA5301FA2835630155E201A1DB385DF0F8D30DCB5E1E6182E742D35B8843E7405B86B64C905D08E2C513CE70C4772D4F97BEF45216887E4C250EA00FAEB5B1BE8B1413C60B025D3DDA96E54010D751BC04E0C6FA338B2FB2E2CAAB974DB33E76E7BB98082757E5051EEFB8FE4465990D187C97639D84DCEDA83F9C347B84074FBBAC32A0B54154065DB913D40ACFAFE26D875AD9086863A623606321FDD61846886391BA716A596FE0F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1F5D3BC21BDB83E346670BCE1AFE7E435A34C33BC175121E0DBB52C45D83395EC1153593195196842E20BB09F31313C38AD85D14FF0E961A998550689447500D60A39757E2FE0BF4D296ADF463B18A152080E10880F90D13B3F6B7ED0F94C2200129FDD1E20BD1892D3ED876E7CC15841D1AC1E2021DFB1BD403C7AA5AA1707842BAF33B2BD82A740E51041C785FF8017D4108F083E85A2948740DDB60EF66534DC908EB2436414DD05BA075DB24F75F0477D03EBB0E256CE07627E1F7ABA06748A302DE2DE40A0E073DD9E93C2A7656473B442EF35E07D457326DED740A091BA860D90935D41DD19E3AC9BE0A2EC82FF04227BFC16D99F7FE50B86766F02F44",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F0052F7E9C28BC2C1E81F03D087F4A9B8C39C5068354437855A7AF481F1B23DC8A244E4F20089262B813724FAAE6089519B5C26F13E8B028F6825CEA009D3578036103C7988CC59A501F69F0A4E5EC33C15767BD833803CE4CF01C50101B12C1FC802CAC1E9D198EE420E611890F420FD4217B0D136C6686AEE3D3CD9CC85ED720A05056D86CB090786E0327284C10987B7F08C9000BCBF4F1C15F4844D4077421CC3501CC82B8BD7323DA672A0F559C0EC00EB2268F75667EC024FF99C4C66D167908DCF825E6687108C6B4818AB01C8C35B069FD65AD7A877410571DA2DA72CC4563A73272146D0D84CD81D20343B503C04B9EB1ED603EC568526C8511FCC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F47A21D12100EEFF46AB0C3551F3A47E451786C557B980CD0A1F6B2762B5F2A90928458928BA017E44B8153CCDE0050529F811BE9EA3703003F28BFE5B7EA17F691FD779084F81CF00E010478BEE2BEFF07A70A9008DE018B50825B76551ACACE2463D6D1E682CBB021239CCE43E78DD9B09A17B608E0CB30190273AC0F734B56BC084474DA0081076848DD0A731BB7DF08E955CD815B852C2CFC885F93A203B2D385255555092513B270D4351C528468D98625687DB0B1C4EB3CD7F17609BA84663645509AE0851B4E0197D550E9503D78EBE57EC15062FC10CA1E996FECD5B122BC82BCF76032514193003DE1D2F297B3E3B3075FB645668B40263F54A36E0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0D3B9C844C6279B20734318CF7410FC230955C20C0F607140747886062AABD75067F37E57ED5EBC44B0856B5833A0046204C6E633E08C874E218C552377412876F7B2FA15FC5EB0B56D4A31068070C02E311E15ADC819D12CE3A6912745BFCB201EB6A1D07F650F4E24903AC54BB41A90784C2A5EA74F12C6B51EBD00BD8BDBBE77AA73CABC8250EB0E21711C7A0F75F82D801DE58950666A15E68EE2A20DF323BC3D81532026C727E27C8AC7B3824BE4847031CE9DCB7803C51AFBE28F2165C0AC9C956C6808800EEC0CA86688517925EF6895BC21C517FDCF5F4DF8109A4CB77F67A81082C811C7D91808B055C2C95837D8260569F05CE511C522F58E2E3C1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0FC7401C1966505CC11183FD24756E27357ED2AD4E747B18017445EE0C3AFD81C0845286AF7AB71B80313C009189354C2CC27CBD95F340F8B310EE2D120088607282844903CD9CF68428DB0BEFCF4059B80F06EA0D7176144C7482C5CE3CACA951755E68F1F4E90145749641EB1B3BB04A5E202B84FA60B3191F1FFFF8BA4B141B805C58459D22D3240CFD516C199302F30CF042240FF652F08A42132B7C6A2F650126DED318EF59E869A010D184E3069D297E803E5C7546A1EB1B3A883D00693B6A217CE477892D23F8E6E837EAD6DDC6062FF802D1412C06A52EE405F6F762803D682F7559F620F8FEE9590060B80983088848FF40F8E2C19A6DF65874E857",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("69CCD0588AE6F4756A8030AED8BEBDB83BD97D30D925007F713DCC0BEE61EE0F8FDF057767BC2AEEFF25EE700BF7AF1553333BC53EDCD81E9DAF59190228C302281063F1889674F7FB688BDC23B1020886CE172AF2D1C32E98186D028F00442AE40058F9C0028D3E9B75384463F90CF85E6562C605394E69FDBF82970EB28D48BF83F938770F34F7BC51F791FC51E40658FBB14A2EE3B4F9733F1AD6E05E2A3BA889C6226061E4966CC92A000F6109C0561A6D5CF8FE561D8D24E80A75084EC68615002462F61AFC921F409A24787746D5FD893D9EA158420C1A00DEDB93F7561BD1B530E910C473EE303819EA03FEEDDC86E0044100D82C45FCB30D408EB474",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F85BBDC6AB66074E6066F36C4734C41179893428FF79121CBB391154A17C9AB8A0B7038CCECE756F508D97ED00C850F8EB3F5A027E388163F1023B027D332CEB2C25200BBC477A952FD831AB59A097420F629F003048CB2D4918403B4A0BD451E41081F51F36DB01A5879359C348548E0F7B34D7C8178BFF81204DD32DBBCA03F54F8B0BADC700ECA41BB00500010A020315A9805CB61F044F358A5801BE70A93AD1169DFFBA75F98D6CAE1CAE0518200B35DC98E80E18085C84B200246109D40F93754953D25610FD620034AEECF6C50F6895F962A15C32F4A6497AC1090F87B970AED4E9AD8688F45B27990648723B51D68385DC51EE201778D000B9306E41",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("838730762F39DDC7A28EF0364FF9EB6D18742A796AC746D98073B05C53F03F70EC9E0998B0329BFAAFA7F8D8ED70B94742C492575CAA603B1B458B26CA324709ECFE44347507B8246CEB16DD37C6B78A3904B81851680C06202410605351130E2B5CA3520239998CC02AF71D040939B7D1B90D4874619433887A35073E80D8DFA1404640890CB2A340CB00FE1175AB53B1CE8591DD210C3BFB7769F9046247BA3DC00BED047B43E35206E69A00E3DB11467108C7A01E495AA782385708972B7AA3071EE1481CC52950184AF6C2040A8C2F124D24FC415C6D0228F1ABAC08172A048E857B0765320F8D1F085F3BC38ECDEA4E3E953E9159E0FB5F00A468CC20F1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("585B20B15070C2544D4378482EB81CEBB02818A9E49281797502E1D045FC91270C7B9E3C1B4CB9000508B766483630A50055551A03B823BCAD78DB14F8DD011CA3032074F1503B8BFE88DCBED5FFEF03F7DF1BFF83E7CEC706EB445474AB0B8473D2BFBF56CE0D207C6457529955B880437DD58540414888E6B09F19ADBBD71BF646C01BE0366CBE1BEC9EB9F826B8F004CFF7ADD9CE47EDE51A55740CBD17BFEB676436C30ABD7D0BE8EBE45F0160250371155178B13A5C80FD844EE00D25555152572900CDB53D40862CF7DEAA5D2EF9C670CB5DB979B8DCF6EC24707A52517651574863D820ECD850605F86A5400620D08BE00468D50409744531FA453C72",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9CC53030762C1B6E8A7D67868CD762B0BDCDB5BB078EE12190091483EE0316344A350EE68C414819006700450D55D91DF88162E73CA10C7084C9192047C04834ABE404563230FC880ED483BF591B4072F0C5EB5B337306F8B0402614D537BF8FE8440C6EB6C6219986C33BC83932DD05B05BC5CD1616EB4FCA7ED484E40B04987467C85042DE6B00A9C0757A4825B7C645520F78FC040F700FF119EE0BA9E419BDE0FA4202740F78247440D108271F332006BEBC4F4B6BB014B9FC464950F533B40C1601D33BC0D34B0CF6ED120F2B15752753578480ADB2864D3BD9008C0B540F4572A15FD1C6F6EF52F79754AE99CBE5C0554758995B5A008A0864E8020403",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C80EB88D6EB4D588045750EB741B3DD5144557CF1C7A8DD252C1EC4702500A3E6645A11146E881E65DC100F16202187A601A24C3729A863AAAE65344A612707FB5FB231BDFB40C74103D4D331A84A4D5C2F6277A4DAB8D56FC58084A6A7AB7821F590C8DF4D85166011C1F0602BD15782B03B15572C4FD51B15A0AB6EE8202358A5784A578F2BB00BFB390F6180556CB519CEEC306AB05E1853D414CAA662B5BF75A3D4265060B0D741D9BEDD8EE63187F48743FC5743ABC756F61BD2B42FB0E72278D57B50E4DA8047417287777A8C5F3B78D4EF212A7DE28D85904CC43BD0E851A91B3EF3CBD04063560070906B9DBEEA9721DF6A5013D570452FBAC40E64B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("05BD0555B89B1EAB8E38D918BAFCDB2BD65F8461E18D7C37C1C2B6E7821980FBD83103D64C13BB4F3E38254872C074717FE5130B5BA207CBEABBFB06ED50F8A8C8F94898DD06772319E185E2009F60804FC8BB2F5576C2014061D385EE2D102D6E3B83C082ADFDAF8000084A3C09A43B45909E84DB3640761814FEE94FE09B90EEFF3681FBC1745980FB0274192E38C6C2EF268B62C1F808663D08D514AA805BA457EB7115A4E8FD7F891A12925780018A4F085168AC5A25C1A0FDB277C4DA20D8D557F54B8205402E10C8FC3778E3A912898D43FE6A4D775F6EF76C2A6F486138062BF5911B4632C8EE069C2850DF0384071828EB6A868407C8C3EB547216EB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("396F258C90A318160818025E75284FA00491AA01DF6D9A6EBB536360FC79033F8F00039D1780BC00010103029050AA96444F77C5BBC32E9D73077D6C10FD04727B842A580F0AC082359082BFF576074D063BE9765E537D1ED0451C750A6707816FED7A285FD5404C307F515357A8935B10B8524C7533012E689C207A3B1B86103C7C5552FFD02EF065D1F90C0F57394E4F9D501C495F0C0510A83E1B42B0C32457569B0247618A3ECB33DB43CC7E0657F88D4602C0E0B721BE22ADE89AA3D03FB08121C3C7874970FAA168B6E0DD48100D6711AD05A789F505230B9563E115CC55D007A2558F2D8108097F7C44140376D49D0BC15194083AA86511B1BA5B94D0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("49C97540FF137840C85102FFDEEB600BF107010C7409C1E0080CCCEB0148CF884D4560FEFB30AA7F88CF1A8BFA8BD1E71527881062852438603848AA29C8E14DAA460218231E2262ED370075708A303741243EFE5378B2C5745705E5C364A30DD502086C0F3A1931555043AEA42F91C090147E3F0BAB8A1180A03738B4176F6FDBEE76060B60E3101390C8850776D8DAE2893DC3E98BFD672FC635CC4731C003F02BD003C8890044C68E175F8918896CB498F1EC516CC05604973A6859B921E01869F4E10DC21436B51C74159F745063AC561F666F6BE56EE8C1785FFC02892804283BFDABBA55347FE7C55095C72C880306E4D17E09DA0ADD1689128BCF8BFB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("084CB110A0A9ABDAB6688F5245350213658AF76A0CF5793FA4970567C725F8C1515553847B934B56981E2283C20C52194CE68A1855EA38440373B7D6CD6E728D70147517959066208F4F87EEA5425619028BF24AAE4C68850291A855844EF216B7DFC07F0CD017D3E20BC2478808A894C09FB0FF1FD1E84983F9087D1788064683E908EDF64207CE0735004649234D758DD04499805D5BD60C6F4DD5F6710C54FBC9350420730E0AFFA5EAC6075EFA044088074746EB1DB8E7166DAA7A5156B627514525AAFD76098A1688171BBE5B36A8DD5BCB5353311EB05FD3502DE351B82F6E0B8DF6135363208B710C400496976AA9B91EBBD3751F161D528D6D5E010F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0FBDDC542DEA5593038A1809ABBFA2CD11E55365C3FCA7D781B6A6B8F2A3309345A7C4E50E2BF80651ABC87FE07B010930FDFE7809751E586F68A4B32ADE7DE40DEC48F605AA16807512684D661EE6B41EB06F0C6417588D50FC1C0810CDC9DED1FF415A683C51423E2916A38139CA1593E9365990027B30FFC71234331BC05041E6D77B032206DDB9CA7E06CF02DF1D62E017353BC27E208B9674BFE277150F03C167A1840B2BC2AC5BB310C3327D069A208078CD024FCFAC80766BF329B97D0268113B978E7D2BC803D0452BC0E6849D5AC9AD36D6D7C354DA809D043166B3114F8F56D5012DDEDB7A188F9E056C222F14A17C43A1280DF902A40D7C17C539",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0B9F0C50BD5FAC6D7C761F38752B81C12636FE8B6C6810173BD88BD3728BD016801302AFCAAFFD2A266D9386B1EAFE918A3F76347303FA2BC22BDA454EA6BA7A616375BFC5C3EE592448082BC30ABF4C9D878A70285ABC5F4216BC462314DF5C3267C439CFC8E0F6574740AB00D3995A06057E42C34CC67F124824082C153B4B1A3910D880C7DA0AC1083BA8750C4760CF663F3A7D2F9E6A4BB884BB03482821A142054100277A0411AC1110E121C77434285446C080FD22FC9AF13B8B5AA1334A5F566BAC10E1B23F45C29B011F4ED63F0D3C88C156B7E68FE0BFF94E81CE466E2BCE81A3491D733BE87826901618F6260393A7E066673B0D0C5561EC899051",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("07B833452B7398628F309403C65EC571EC368011FCCE1F03D12038B08259F6E451260D0087326C1087188985C450ECA3C633A858111D5FDB704B97CC3BDE24C4071AD8C63838F1E20B02954811ADC021A108191D166DAFF6C0358F5F5251F260D7BE03460E4FC33B67618CB5669BCD84305A69562F160BD05D085FBB397E74A96D2310EE2DFC427C04C26C4499E4B213EB15F402F13F5B4330EA90DC4480781302752791D93A0E8CE31E8160E204BE0985D95F5474A32E395E5BC9EB039EA38C9D78C70A1D7235E0EB89133BCE016043ED0F8C195E218BF5A981701D40218816F151AE6F625C87F9040F874DF9FA2300BC29D86F407FD72BD14B3BD3360206D9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("698875F0B9631B3C02D7D7A33B1B0C318A10299D0ED63A2FF41408C702B9218B700B8562D6A99008B8896A6005DA18C1E108D86C2CD68E233047271E5FF813A0321C2BDF03DD53730DB9039D2B9A7C49D8781C2013B7FE52BC03D53BDA727E5885D24A800E547E07880646474A712D1013CE2E20AADAE813B0120AC3AE23F84AC15CA5C93271566AD616C605CF5655E51B2810C119CCA425213058A155984D43B449BF32B3DDE276142B8816824B20E1D0F0DE2FCD45D36148401D237A0F8292325F73AC71D8FFD84C28FE3BF17656B62F06B2E472257FDE2BDD535552C3F20038C05ABB1CACB0AEF5B36DB77831F5A90D46030A8B901016F8319646F7D91BC9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9F046D15025618478D0D48D467E30BC93C0A750B7AE0038D76ED194BE8C1492BC7518083994177F71FFC1180FA0D7523F18D53FF6246836C55A0FD2B88E0EB02DAB7AD196001451341EB1027AD75B7570B882BEB022F414E488F3DEC6F4672BD3BF57652F635A1F5FE2BFD845C498557A957C70103E4B0FC14A6DBF8EE1F248D4900196DC2720391450232CB786EFFCF6D02167E1414C67E0B6F847B6DB6C2CBB12CC90B6F83FF20B5652E0682563D531E432A52FCF08D430250F8302D75C5E48D4FFC06E93723029AE2FF39FE0C745D81FE494D46F8D83E29EEAA730456D4043D56FB42390A5AA47BB65A03E2B705C6551D54CCB2FE7799DB7CC600AE20720A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8A481F80E10F881B921594804B9E614F620ED8FE8D4B048D45FC515708485ACC8A3F08BBF8525649093670573EF8742AC74051CD19F0F72AEB507104764983D62ED9BFDBF85681E7EA37663DA45B9536E8750EDD726752247F9AA26C964485B9CF8D743E0A07F1E40403C177B7F7AEA1C47F9F8D5C2B042BD5FC4F8913D8161C1B38AEF99E8AD40BA3C3C35FA280F9025F0F94A95FAF2F3840A209A132FF003D0A23718A15A240B19B026EFA794C0922805919D871AF04A752015A9CD4C70B5EF56A1F24D0FA2EAA83648D0C2F83E0BBE0168C504428134640F38DB18399D05C82080BB0562D6875F6C34037638DD22F1DFB86A809011AEB0F03FF0A7409C608",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1EEB0BDF413F4761708D4E68880D9C8BA1DD3ED50977C1FE3920890BFC79EA6666ED3C8B24C3DF406D6BF14304C2037857B7FB6F5BF00A04408903EB0B536A0A432A364006A9F65153F4299429357E76F7D941A4566C5F4042890DC2C74674712B0407BA32187C1180F68DD81A2400ABFF96340B1D43E13A6756D93C62DB23B2072C8A264D6A020DA1F5DBFD743FA1D4EC48A30578165706B65778DDDFA1075C05F56822165BF606A10EA545A262260FE04F487076EEE6B8E984ECC15B9FADD6204861D245008774F6AFD9D6383C650CBE9F644D3C0933B4201AC574DA10BAC18542CA610549EFF8415A6161236BC070011D1BF612FE0D713B56707C7C8BBE08",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4742417042AC610989160858A2B5C5474BCD4E8DABA642D6019876E16108B48DC734C234506C0B42A9301E8141CE2D86E02E89B94F752750631035E8A63BA95FA6ADE84E2E0F632BEB279ED4D758FA10799E992457A9736505EB7DC9565E2EB661C1847B55794F4864424E1AAA554E40209BD02632547AD6B9AA847075229DE62AD6E4302AB59989DB8825104D670D02C4E2045FC70B0FCF68383453644987F975120638EC400A592C92CB1ACF6C1BA45FFE18EA88A6657C74283AE6DBF0EF96092610112C8AD880FB0D8826742108CBCBDB46061C0420741771741251865FB0D275DC032522686C8B0018486055195FC52722F6492B4BA671086FEAC0750729",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9D85F6C787BF20DE9B7B740C6119C7476CD7231B15902D1F4C8BDAC59BA0013275586817B5C701634910A72EAEABB19E8A53470450B3781D7840CF75CA483D2EA914A83A55464DC07F8BC6EB11B8BC001A48941CE1B6A03FD00BA0EA9E7EBF91525349AAECA3F861097359118937CE0514A263EB803BD4FE6174A90BC94A0217DF9C04F06004E00B75375D781456ABA4289D77C38005C50E6A50063FEB8238C256402F9A288D03FEEF889F212E3A72508BD68BCEC1EA15C1E9192DF04B85F1C7C1504A89483850DB5CE9B6E5CE18C74021001A10203BCBB67C0B83E11F1F1C0C081536686F6E050F153FD1E2142E10FE56C2EC982C484CB332745E72073DA0BB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A3E4E8D6D87D05B8457F14E855C031DF73E064C11766506274071B295314B47A3756101AA35AA8425C50480435A9E58302605246D4888667B400A8B018026E722F2EB035C090DC87F00F9DDBBB176B5E4B1620078D7001177FA9A3660B6FF053C4679C932758D82E90512147D501A1DEDB0F4B998645A5FC75FDAAAB3F97066B04AD007D408DB8EF142DF5019D7C8C22FAE2490078866AA93588157ABF2781FB23302A1B0CE8A5A0C35056E6892C16F1F33C84E40D2BD8C6C0A281AF88C3194F08E7889B038A0774F87F0B115B574447C6E78605E01F03B87F754C408A511384D275151B7C070D44D78A41123C19D03C851A7AAB1A603C2875D1068FBFDFDA68",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0452132A1232750DA163505095C96211D90CB0462F80B37E3DFB576CF45FDD84938534ED3C1B75099A5E8A46D0DF5BEB1A3C1375140F8CA0B71E113C7885A7001F8A6FC954CF1B2D3A3D0A0BD50E2A7704383DA6A08B0D30A9601E1E64975FD487CB741534002676ECDEC8740C5584857B3F81EE02A170F4333E271991DB7487864E6A4046592BCCC84D202288434CDB758D66588007B84E098A4FB81476D0BD0E468A570616AF6994A8708CD8513B72448B68FF39F75002CD8DB3FD7A62EA8E20115C3018BB038826F4C57D0A53133BF20149E5AD33C6831CD13C0B902E0D411D141646D85E7406C720D412B676A1BC2DC80A041A7405CA0E3C1B8C6264E10A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3CC81C16A566A19B85473B10B99C8E8E3C4066BF8BEF0541905DF11C747AA1D6505700C7820BCB7614C05540A82BF6BF11550045474875F6EB4827221C0E80A90EE7134A3E05711222B511A16B3034F278E67073C70B1FDD68F5C0B7043A0C8845EDA1DFC34C47797586A8C612FF568365A52140FB08761A803D1010A00576A22E7557115F708AE8788AD140CEF4AF2825B0C24A18A8871800018EDE6FB30B7EC18B2D8F3D3C9535387A44A572C52BC7888112CC688F96B627B8312A490D09CB98C49A8D700867405B922152092CDC94990EFF91B1012D7E3DC82BCD03CF03CB511ECCDC2124C07E444529C6302E29C6A5FA00EFF91C272F7CBF02D62DB77803",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5D7A610BF30FD04A30045FB1A111CDB6B54A66D7C30F4CC0DA85DAB86941035102D303C20C09C40ED9090111089F03CD4974531BFE220B5E672C5514A21A10FEB789DC16393AD1D8A00817BF90B8E28BC77F57B929436B43A3E2C3BF04F3AB4C0C1908B7B9000928F9474E372014D2EC09A833E0B20202E8974DB7746809428E40097030B219699E757440782076AA0FABDFB86A5FC31F18A1602C4B10B308180028EE20149C539E1D68204284DB116D3D6408CC40E71E62C58935FF348D4022B8D67D458A20B8AB128F6ACB83C3962B62EBC1F83A7CFE96FC8B08F58CAE03A05A23C78D2C082E3D11918A648A4DCD6D949B8ED9D3EFE21C250874119CED1F72",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7E0A917B6720A4629B8554083EB625EC1E85F6B5EE450423D75AD8F9DE7DD0EB8094191844F696EDFA6EB8F16BF10D55A43BBC025C042F55306C546A5F65BBCE8744D8B79F15382BDEF33BD87D4967CF6E2FC913423E7CC16B5002D45D3356862430C60CD08961A10E63A01865714864265F042F7271F311788E03C0E9D2A06CC00B6D414A808B088D14D104601B1C284E701A64848B24CF6D4C5C2B142A5C2AF452704340E15BD92BEA2BE852A18F052E0243DF3BEE8B82E6A28BCD61CE6A3C50D1AA8F601CB7A7F8DBD5ABD674D5890FD0723297C3AAF7EBC88DB5AE8DBA050E56C52D7A1A1303D03B7EBF1BB90A57EB195E8A8D25888E8B6084FE05464548",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("19E79E30C4890E45D6E67CF0C022A4546C2D1436B2084C99BA2BA01286820288C12505985C921C880F6717C22DFF496E5E0543F2878D5504889054B17788ACB676753F425E487C5904CE18C35FC7D6176B6F7418130A89283E88F535A357893C315F808505CC204FF69EAB605DBCED2C0009830F32C96864744CA1341D8AEF891A3C54385C2474375B69F540265458014209585DC037D2D85C1302452CB606FA7E8515283330D14C4644B18FFA464C414877245D269964B2504D98F878142FF67915A328344D3C9CA71CBD1E748BB136AB2F260DBC133E1CA068054E74E774E9D9646C56D06E4AA1DDBFC8B3BD50613C38DEEB2E2C32F66C29242C2328C07863",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("91EF30294CC615C042188143E215D650E383ABD75A7F401510E5012DE1125F9408267068937FEBFC44481B6F7D3C97458BCE83C6A24DB08B3B7CC44E8BD7246FAD5E20D1EF4EF84E027D486E5557721F11ACC55F64B2423D67395A3242378207027CB83BC6FE4A46817AEC0389B0C1EF02DE78BA76576A7333784C5F3B47D864760D43910817752C9DCD1C33A70C76FC200262C23759CF1D4355085B4023E1861DCEE907E8807848772BF11A10DEE08E4819D83B19FB83EE10F12D102B8AA1104E52CE9570244129191B168B419E760C0CE86407C4844C26AEE0490BF422BA3521BABD95742D2F45E4876F11A2BD938BCF4FCFBE43087D4203361112D710E408",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FEF8162CEB3A7C96889D6C4581FD81F590B1FB3710558058B617183A2533ED9D080898B5F95AF54FF262892D60C0129A71AE04F939FA29590F3B81EC8080BBDDD6A237C23905F2B990DCB808D0A9CB41C37D68592EEAE7BB7AB9701409BC244C1CE14E9EB324171807104780B3CE510016081170B7F75A8F3D22442419A158AA11AF48A94710F0A8E846922004521A41B68E50C4135FDC24F9FE0A15779DC3B9209405DFD77B05AB4B79680B682C916BA428CE1885614C4D49AAB82051236C7E2DA92258288743BED79664093E6F5F426CACD8A130A656155C2B8618A3206D6EBE0B0181642AAF4A2464694872A224570D05690664284B05C3B8F6706905CC1F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("052EC12714393276407E7D4A7D2149D48E2B13CDBFBEF7E70999EC7E466247B68BFB863551ECE71F475EB5285E03C844F6B35EC36FB73A332004AE8B16E50FEA0FB76F650483C50464043DF50F87E804C054DD1A752008DF04F34B27718BC38683C4187E4286C07641917D50E59B950119C0861003C235422371D86ACBB216BBA50DAF8BD4C08E0347CCB70DB1D494A8FD41728A901373B1426F8B19A2BD81FE2238D5DF893D422372F08DBC2AE81AAECF6A01132A1EDDE6850552B22CE28FEA40B3E3B1F72A5ED0891FDF4CCC8DD3B2C9883F2405B07716800A1F27223032152C759E9581786910EB8D3C11C55741E98280B47C9CCA90A1EA86154A4C920C84",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7515971314CB48FD603BF015F6AB8D36D0480B30BD23C391AABB5785C10CD7444A01666F5B118D67E9F13F10730EB5E1A90B36AC3497457D7CDD14C923B046891E027D46D071CECA028327FF025E6A5B70CC870399029D283BCF5820E63630AEEB598D16B50E6D80755001F11D7DA8D5A889761AF103EA42FA788B8E5A11757148468379C881258D0399FD657964390307038D14D7EBA2ED9D20598D80E36BFE3C64A064070728FD20CBB29C077F0B0766AE10E4AF01BDFAF6E5A218D657F809C66B410FF7EFD5425A1361604B819824E05F1126221CCE0D81D68E0392D51852EA9718FC1D385298124C5750426669CE18DBF03020101B74A40773EB09A13FFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("60151D7E2D53176A016A1568C86CA48C8251A5E3519D7B2093C6159C98732C3AD01C40530DDB0177EAAAB6504991DBF70B810FBC4850DA750233F62364C0BEBB750F81FFB876964CC0B19201B0D6854C48CB1A87C60A187CB12A93180B400EF90239142460C922D93D620F183D31897FEC2EE9C3623084A0684170A80106A57C0DDC3F676FC4558BAC24D00870E850A2EEB424D807573B0681EAA3DE5C850004A138539B887DE838A0B9114146488BB889EA8ED62FCD8B01C65C8448DF08FE567B03434A891875EDAB4875278BFF36F7EE8C24EC4D8B9424F006BDC7BC005DC7021EC1E96683C6C41250BC513F2B8B3060F275098322F6370083F91076EF8BBC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("39A2B57D37BA390F737F0FB8808DA48870B05113281664480E6DAB7B0B3EF48B37A32C787623DBDFFE09BAD3E63BC87312A38C482B37781D50C71FA0C0DD04D11172F28D50DB4C1CF4E2066C18F1364479D2BAEDC362A28E03CE89B0D42489EE28B565B048EB1E7C344CB6F71788CB03CF48898C341BE2B9E1DB0C0F7F06A25408F609688B9ABBFD8B07688F038CA5F7D807488D840689B48C23B19A20DC0BCE8424DC6379D3303BDDDB0B1C1C6CD0191DEEAC3B3F118C181435CC3C78EC061D122CDB8D8C6A83CEFFE588F8A0CCC213D797E254F9160F8FBE02C3040FB8C3FF83324D241C40A418E4E4810487BFB659716484B49001EED3B9DF4DC33BD00F8E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("46535A14E90450173E9D8640B7F046E846DE2BD5AE723B68273014764B7FA255E218842BDD026B782DC12BD5D32B102D07702B3E2BCFFFD7F750A8F8433BDA73138E78E01F1F15DD6F072B1272ED1D30EB148A1A15B72B537608647677A2D6BC4AC24FE5899C9DA03E5A223BED0050633C5B325ABC0F94518D7A863BC7480822AA3C890A3812FD7C68A59104358CB474528A4F0B74B3E78C80C320F31D928818511300E4D10F1A9F14FFC8D3E389BCB4D0684B23DF6A0F1B8CC52EBF1C978B060C5AA4B7F7B1893CD9B123D904EBD6802C349A133D4CC25076D04343181E5E80198ABC61E16D3AA1DC2AC375FF94B1156E60C77807C65063EB454C52C005D320",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E0BE73118EADBA413492D21F886FBD9BEE567E2BC21DE88A141011D07409D30DE42A04426266237C070729F07DBA83CB80BEE112E5D3E237E83BC57327DCCD54BF730CC1FD9B89190776FB6CDC2D5904F1D503CB2272E4A9FD17220C34C1BD85C7740833F8D1E8385A17BB0775F8504AE210224414EE2219F94A23D7A708B14F282A4C4E2BD839F9C702F5D88C244823C779DF837178F08ADCC20B0B160F8E70858F3A77E5E355C77B0440890B9D4276A6789780C763B68E5128F5C4B9CD767D24908E44C0F05CD1DB0DB1764710A40760AA55AA49E070309E70F07C4288254FCE03107D21305D5204AA70FC83E84413A2577D96D0C22A2EBCEB5E7DA3A24034",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BF7C8D40A2542AD583747862BB6B218657AB6C0F9F2CFFA86838A34A402938DBBD0ACEF930E4570CACE3B122CAAF4408EC888B1E00B804437D57FE57EE1DDCE8851760DDE4498B14DDE00685056007A27803CC15ED8BBE3A67160CE4F85D1404900B10511A2866B1CB01BDEA8050F6B5040D218C0AD79C8BA8001815BFC99C040C5E060025F88846DEE8E364115C7AFD003406BDD9CAA8481D414E96080EF205BAC4C65118E920A2BC3661878AF615E97B89DCE229E49B0D518B04B250D4EB40ED480D81223376303DB5498E92ECC002731641A9838B753E580313940FCB8066454F03ED80996FD96AC91737CD43D8D1899936893B1450C600B65C7F6C3A60C0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A9D86E5052668A7E2E800D1D1837354E6452450782910EC8A96877BFB4F04154691099BE64C745F7FE0E59B49658C4599349F9E42D45BDF618EB3D4A5B73C17A8B028F24C1E819185CE9F7F6820BB50563D90DEFED159B8002EC77E01F3A28E31F9C5E09783B2C3E60D18870548BF565805E2AAD48C58BEAF552C402CDE80900D88074A528777404C836340EDBBB0416E80C08D178CF32C1233F128EBC7D1FB95B220E11EFE5142D2BC8E6BB501430BEDB4805153C22BE01CA28200041BC2244D0181BBD2076DF7307DAD5BA2715FC830D063CD5D004E28D910A1A447BE02E0E114D65486281B77F4905E3FA08F3A474280609740C0D85B723040D7232695150",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6C5854B3F45F44F05244BBABD67B14A1DCF9148A88C863BB834B842F5183BA64751436E0D097BD5468A8022E08EB229E677A153983DE9323C1A15A725C68A06CC7ABEE4A57053C7461572C7741DB4F008B51180F70B0E210F61D450BFCDA1BD283E23E0A206A30DAE8F99651380928480F53652B6A2A9F78357817D21D75637823689C03FE3C941948D9EB4A60225E1B6146D134D3AC515B59006EAB556158EA9A00BD9E461A5CB005B82A26B57480D4368EEB24FB5E05FDC85914CFC70DF8442B3A106B66A2E57371FCC42E321E2A03C8F603F240EA91890E23F85432636D398F8E40B88934517BC0B4854DFB700E330BFA4F8D7C3B2049663B0D960516C5FB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E25DAE3DA32800189FC5F0D01C5256918B0546633D044446F874185274CC5850FF51C55B1443A83283FF7E3C4212A3332B5752444858AA83D8C8006E57B6F12631572780048001B4CA4D1D0A64A122B530B12B88D0750E83FD0355B95196BD0B3C285294846ECB488C0203529FA82389D95F676F30053C883E803CACC46E4D0B582E0F1CEA892FE730920F4E5BE1148F30301468D7D901D0A4392098020D603A16168BCC0B0C253728CAD37202D201EC59A0C515523E0CC880C13302D09639D007E7EE8686E800D4A130907C17B0508B14B1523F42C93664D32F3CEC4003390CD2D539880E0D856F5AC3C961D03D2B5C1466A93A8DD441321013080EB4D5460B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8D7D5F06F240AC60B6012D2339CADBD2195A1A2C1D02FF1A08120F89616E49741F453A6912563AF8C90CF3403ED9154254241417FE27A865AC145D30C7403A584BC8FF167560157A29E923833F00166F7A2942461150628501F1400F535730D8055CF274415118F7FB2FC9FF82585CA1E4481384C975208206B14D0D235C3830EC00C53B34649BA26D438F568534040581F97FF86FE880841E2FB8D34D6210F7E18BF288C1EE063B102C71A9CA1E720C2B2B82AEB5B8A103C15A290BC1F9DBC019AF0B1BC3268D0489E25B755B04800272F614925EC1BBAB3B57580602C1E203D6D1D1EA30DA25C81DF1C318130492129BDDB9E62B1504112BC65E1E4E306160",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("95BF2B840D9344DFD00A8BFA0CC780D011A452476AA838213C0A3F5B285FA17A0BA37FF313A0796A84A530CC48CA4B80FBE14027B10453553A151BAA6F8BF98C5139A8BE1EF0EC0115FECA547E8A0A5D67D1142FD080C3BD3F75333080E58A57AB2E84354261052D42AF5ED9F71A56E003C7FC6AF6371E0A47702A7549B0880182010E76467427BFF75833D6B030B51A578C0B760F80902675DDB6DDE9D60D4D5B22850138893ADF82C035E80C1321740C3C814630825E50003805FF540CABFF03F18BDE1BBF7535552912040EEB118A033C250739FB11A0BF613C5D74105371D8EDDBB6E53BD7045D678D5A0E2F9A363441862D043BF3B6831FE9DCBFE485ED",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("751A7443BD723C2D75C0E18586094A4EB0F9EB65181C94230C37F8697BB7412A56043EEB0AB8295135FC9B07E9807E012D74346D06BCB75C73F9ED1568F977223E005CD240D557C72CC0BF2D7D6B4B478A163BFA76DE9CFFA8B7254573970F826A583C44B12920D5224E51AF203BE183030C2FC69F9EA34E72848DA315B65253C350750E9610B54A858A08097F567F4150435153DB140DED5B010BBC46BD5A60B3518B30846039E7FBD70EB3BFE2D9FCF88A0B51D26E668A260EEF2740180939FB033BF8752294554B662C8B5ACEBFAA9A2F08E82D0A40B7A05FDC84D27403404FF93F16045F2E09F92AF95B7412FE16A30113D3F685BCB7D480C2ECF5E87520",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("82D6215C44DB3481C9E620368A2AA3370E7F44272A9DBCCEA3F4B65D5F0035A4E93BC6079C0C8C506DB050F3A28840E1E6D904989CB04B6873BF676B5D31443116A199049D51BC2B634068AE0784B9393509115F04AB0C91D43E30751240FFC0706AC6E8428AA3C899285513B858A82951267BB6A88FAA7714E5F35027556CA32CFDAB5515047A01C0D178DBAA772041044C743C0A5CC4D9279509A148082A17FA466F9D1DB62F03D60885D27E170D32B1C0541F42DA706F9E98040345EB2154B6FF4161739B0BEB20641247D0B72BC06BA0115305143BA6F1C8BE6F7E04ACA1BC50AA8555A8529BEFB083440C2E336281531CB2AB27172B8A4160223B6D4EF3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C5A2DA4146519298D996EDC163530C23B6DB4D51C385243BC71B104BB8AD025704192B6514B8EA180742992154AFB2E0600666EB645CA0F0A0E98E1683A110D065E03DD11DBE8E53CBB8FB16EE810318018A15141C8851045C516B4E28C84992C2016D97000C741A04430ECDD622B09907B046C02E5BD2D00C1F44CB31EA433C204F44FA0308311E5AF122628407BCD4505B340CC9083E0770400B0D081CC0DE55C06D28512AC19F743721D8662D9A5228852E15FA6E81F096DC1AFAE0342ABC5CF17F3D7573EE9D8DDDBB82B618CD2C7E64B808D7EB29B804872AD0E7954CA5D8EF0104DC11504505A9987BA029002B64FE211A80B068055FE106562E1EED7E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3C7D1A5E0390CF455568909EC803C8E6AB43F95168C08074AD01BC3FFFA362953C5768E0E20F1927F4751903085908EB1CBD338A0B987E2CB8281D2D1E46094C840343200F2982EE55064242C0810797ECA66DE4D921805A3B4005B34355000F35FC2858163F547E7C26F0076EE96A05C9016CA1040900DECFA267134C893D11C00860A446C7C33CB253663D6917409B9C3C57D2FCFCF409D746D692591129246BDA04B95F2F1C9312068D82DD7FD91F3E83C62081FE1CE172E401130294906F08103D280ED2828A15418B05DB59526C25210D74FBE3A03E62AB25AA6966ED4625683F00712E004005048D0A4492282EE86B43F3D70690B8E32C1A668140E434",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("344C48EDF450B8ECA07B22800FBFA212391D267529AC14C0891BCF0D05C0D96A1B4530E0F02DB9548C6A30A19C6AFBDC802F5539744D2B58DC763B09395383C15072CC0ED15E551193A0F08D06F6452C2652C6E85FD076542D0072D15F24FE5EB47598B5455D3CC838F81D981011356D7552EDD9CE80857707846FE15092A2082E97E385920BFC58524E5378026CDDBF2D903429A0AC5D6677B0A975440DB47C7438E1C0C26B6A2D5095BD47615F69F93DD0017C81065037797864330CA48C7E69A13B504F82D90F3BFB7432ACC42007344AA79242395C655A016A4128277406137042B25C42DE2C9CD2551D8B1CD47E2057B7F9928584BB431F979CB08FAD66",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D790143795A40802A60A80D1EDA047D1C8D8DC1E42B2F787B80F894B01774ED500D6AD806B0C0A9BDE0F982A2CAB9D74A1943CF66F03E792063BC17498490F86C7C4F68013E6A91DD151D210A91D26EB070F9670BEAF0B8EA88627340DFE046ADD756269B19A19EA0C765CC9C08C8F1123C1F12C0D44D9037D31E111A062762F6834522B2817110053004B428C0581C61B368C64EC0B9B4EAA8EA2F8705F11829C25FC98947C067BB14A8404580A96DE23602F8A929C45477891550E70EB48614058484DBB51BAD21B80B0A8095CDB2309CFD8C8DC84AD987C59A2E187FA741DA1646909B8302F7F4443C5AB7A241C032007F6B510CAA830AA61182751D65E8B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("215D6523A9A6CE010D2BE8B5C8EA419D6021BD7D03751A8FE1292BE82412752F60A1B1C0881CC03CCC34E139C24B8B355152008A3442ADF8EB5C8A9145F95318E000F2423A85C4003DDE56B3D608E4180B05DEF96AD0658474E7035137084126C79A072DD140677BB81CEB400E84630C281D02030C070A81E2D9BE17241B8C17FB8FE037390F3A83DCEC1D4DDDD5299C698E9DFC2AF0B69C1256A35217775500D6D621725ACC08426B216BB5C4B31841920ECCC8AC034793CA130BA6977F1D04CC439901EC077443A7625134DC0CC56092412AC6EB0AE7652CA241416A51B33CA9B655C8C02334429C6E367B0B362F3C35C10058D1F40668C689091BFCDF83E0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("43DE0981F436A2180C4F94536880AD0A413DA45702C1C3DACBDDAC53537CB307C10B257B189BC18CA851DCBAAA039D44B03BC28B764E733BFF893C8D4411EA3BC116825F0262527C803850751F8E9DBD52C04F17233448F0DE86833173D2C8A376147884828744FD2BCA0971063B11991E1DF1F1E01B7FC36A16A313415041270D58235C9C33A50C822047B73D196C2CC51241B0B42BC66AC8A6A847CCDB0D30DF24826F6D56D7F4C60FB9E42081013172513B811C61F017EB21EDE00249063D9F2BD78FC1D92F9D03C2F4449A116689AFE8B5FF108A4902884802EB07A99A46F3D6BA435BB905D9069981E27545BCB537EAC1FE0DEDCB8267E102273BFEDCCD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("38C59E39244B2DEC4638C22288F1C8186F9283C520F38500816A72204765F51DD3C9B5D90147F6CCF87C80C350406D230409CAAFDBDCEEFDCF78201D12BC32666868795603902B0DB00B880431009A270A13C54F1F6F9A9BF5AE1CC01666A390410F0B6DD6452F46B2501F29B24C66B62213942F28963723671F2CA3982E302C38A39C87EDB5642DD01E2FA015830B8D7A1631245FA3FA122203C4A0EE28B25130CFA010875C9866D4A8B623DB1BA516755A0B8475500974281A894E468601800CC2C01E120CAA15091AF86C3D455DC0524AA634DBFCEE211469A064928841128A0D650A53DC0003F91F73DA7D4844B725B81F9E884213DA8FA807C100EF8905",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5E17740823461E1744BF41A6E5DB83F911771FC76E9F0DB804B6FCB5067E091F83484F74F7D8181008F605886408742C0B74E546B511F606B3F90B0851E7F7F90575165FCA20BE6F448D7DEFEB0607DF728B0D885B94AB20E227F7FDAD6DBBD9311BC993BF092201C1E1060BCAD77551CD27BFFB877F9003DEEB9C291D010000050C0B8601015F2CDE642A20966359A0B29A82F6C6057BC38A0F018A4C1F1D3E2CB538DF151F880D2E697BDCD113032B04A2662A1367AC4C7272C660680A1082190FA0E041C9C9655C25A36C5F702080F1813D28A3742C30A378BCC832C9C97C363C7E6703B61C42802F828B487C20CB244E8456A388F728DE92EF34A38CBBF9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("001999841F1C1AF1E1E1F01CC31B238D1F0D5872985978702659A0085CB61CC85A0E5CFD501FC8939C161EA35426A34836C9D9652C4CCC2E345BC86629C95E8560A05ABD0763E320A86120B00C891553B6D7A84470EE4D11081810AD574B973C88139C2FF11C6F07004D180A7E578C552C54DD0C03086A02C26C2D62377E0B85CB12E1EE7024750A05B37555D1124B042156566090B30862065647533513318815D2971F56451261E90F872D81FE449C4CD055582AB096628308E0FF0D270187C2ECC61A541485E8866E3315ED80E30036D46DD40F93D92215162BC87ADB25807F57040BDA84D9744FF0724780054F80A10958376AA9A099027E3F741E902B51",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BBA0217D211D85D26A031732B8C822DABFAAB0361430245DF742043201B70A73E3FE240BFDDD237665F6C30274308D7189F5989DECC277268E3904628BCE5F37660A57404EEB410240D6456CDBFD3404A324C74138B3219BE1C577BD385136D8D6D5141210F5082EFB88B76DB1B380080BCF08EFE495BB6B4EA2E2D874FBF67462E7CD5DD85B33CB03504E1B3EE5DF0CEDE4C981FAC15934E50C22D9EBEC02D0B008E2988946875DEB418E110984DB94BAEBA27A2B00257E0C72690D37E9477A74618D570C5F7F8242357C6B1C7E0E50EB3CA878C32094E1D943A0750BA7CE6EB02E8ACB2B3D237314B85BB2513D4A06524142C1B7218B8D0280CF017EE00FF9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C820CD8D7C2F200F83A0FD820285A1642948C81844FC62083C4AE522E71AAB130782035730F641B064EC30760A5511708C981949112C522F2DBC3C04B00A1C3C3A103C7F2AD0E05FA20B187D0B88043E4609116C15BC657E014E39D6F92238602215A121008EBAB5002A3EFFA86DBB0EF8F90AB870521A61E1C64414002451F01008C35FF80D5C30BBCE251856F6C108A388F088ECB539BE549CA22E8C60C575256818149820647616A4597EC5A3FC9B0F06287C540D88D48D80BFE9414714C70080044081F9049F1F2AC46F157CE8B9FF1E3D4BBF082678AB701027151C9B26DAEEF29BF4FA09890D009C2D04057D69100B7A42DC890520737F5A71F3B3A029",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3500064689358E41CDCE0B54A435181DFBDAFF34CAD3E083C208574C891D0BF01D023ED65D891D7EA6A1E4A637E6BEF10C2302EA09C1E989380D31A2678EEA3BCD9A3775269C0D392CD20D7041D17BBE52EB12A3BE52835C6577DE3BDA7EC83D078E9021E447893D3DF83F5638793D8BB026CB23E8D3E8F4BEB3464B21A312A131C580F7F5CEEAEAFD89F5032417D29F6D5E2ACADE2C214C00A38B7237FBA28B062BA4C7D3EFDA0DE8B39925207511435DA0761D1E853D92AF8111A4739B4D85229B74AFED8FC786A2208B0CAD75BE035B18BC363E1A6A5E8BB0101FA196D90EC817025C39F5DDE2A3909688FB04852F25EAFD553CBD4E7975E4B83C4A6C82DA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4346D68A0E610A38FCFF0E8D1C308BFE3BF37356A1D79A04D35B87100880F940CD38D928C5022BC60B66511D4551535ABE167BE7991926EB3C478EFDC10DDE72AAFE408B148B8D0CDD28CEF606BDFA125104A9A03D3B370E75F190D7CCBE4DC3148B8888C6893884332A260E8D14E6EE6D281D75078A19AD13A40F653108DC761595539A2751B08A40D6B910A16B4F91BAD1AD011972B3638F187E0E3D9107096E95DF766F67CC7E7CD9302B85C21C80E4BF89973953A3013DF02B22E215C440A2C35FA155ADE2D53DA897E22B08C3F0EE2A68274470633238921D51D8A8D83149B84DDB81DA543D3BEF920328F6F18B372C0F8E1D1F560423744DE244B7F080",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3A2D610A124259A0F804506A101646E359C235A40807E372626ECA2C71FE4DF2BA329604C48B362C47C8C34023B26221B1CD507012B9F77B8977209BCD6215A10F25B1D8A664020DD654E90DA4226210CC666A568D1F0F173A6820672232BA42031942760FCF94B1F705E400990004A432914D0EA4450370E90A530A9BB81CEB78E22C021EA63A1C7B56EA207C665E2CEB5C29A38823DB6F84EB4E1AF6097B27EB42FE69EB2FB90A66EDD99D6F39221A3D9C14390FF4C5909C4820C9743BF7120EE6E2851D4E14244D0F6D2E509E8FE3C54DA613886F7334393F2109093D612EE489BB1A3DB568B79F6C3BCF7C08427E0F07512337B680FADA0A3AB100917D30",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B993685406BBA8B381CD6C67016B384B5C0501889F91809C298932C52BD4750720C35B0E8F287529BD8F4230E9F60D0BEF5B76D31B222C751C4D475F42D78AB96441171F411BEB1AD8B125295F1FEFA384E662D8191D4ABB4666813A6C2434793896B088F8892852893112205936DDF690B3C0DDB903DF05C19A6996CDB20AC26625C14E74D32C9BA6BAE024C2445EC986E46D000E0001020E03099BB091B30406050624070A75EF3EB208090A0B0E0C060D8BFFEE53F7759866D9031FC3819010022F2141B3000403EFFAD4861A105FFA71532F005DB0FE1D5A667856BAD8D9C26DA20C65BADC060F2CC24BAAA057FC495FE213DC28F727B8E01B56080D608B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("14AD0851DE458CB28A7ECB5152565026CCD6C7420B3D2C099EA5DD2A0BDE3F68240D35274831174C25A1E22CB2773BD45050F706686C35943ABA4325CA3566E660A20D7F160C15B984534211FA01C2335BDB717C0A23985608994A6EDB5122C256340E9CD2B1B637351B0F19B6A940349B91DD945EBA78F9BA746A281427545A523D7BE851875E5926516AFDDEA3A40F66A1B3C23D01CEDA73AF5BBA57B645B751B6F404159A1F52950FB78B243A1148100CE1B7240B3DA031752A689010CD54AA1500775920E29D4138B02F582ABBCA97FC5789392366ADB4579C18F2E31445D5684811E8202000CD5DAB4ED819752F9411B4DBB9BE31F7C028441866660D36",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("664B49610C171E86408E1410BC115DA7E242025F18C56751B004F055F914CBC9060473181020255706045514714B2403180D18935801FAF0508CEEE2F75B1011A31A8D56C53E7B41B114E04A961E5425A9A00409904302D454BD77C60285C225A7B702FE45D790004D9E7C0236C49097FCD80F8FDA0411010C023458944A3D95E020ACA8125A02DE0D09416E03893CB0082B9A84453F1D04EE8B3811BEFF4538011A063A596445AC688BB360E75300075EE3517C2B320730E7F20356CC4D200F6B0153173068C72A1AC19CBBAEABC827AA1F718D42FFA0A900EC10B9E744CE3406B98532807C0ED2D0526CDEBD9213B000EB3A09D8FCEB33294649DF135568E4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("11DE3C8334DB6634BE4C68146003CE0B1036EB531AD7024F17CA802728AE7844800B32A65B401C8AD6252E680187762F03F28916A8012D051D2B72CEB610FF01231AE34BA8456A809E68C93AFDE14DA38053CC511AAA2A4E222E8D8D8B4764888FB9BE02712003FFB5CD4AC97D07BE8CAD12EE44D73669BF82AE85D07EE8C8BFC1BDF599F7FDD1196A201106CCC300E211778102D412B7565A57514E12E278582013246B5DAC025EF1EC421A00F24026E8E8E219E94632BC6418C039B00A38187F0D4123922714B15274305725B9BB7A8B2440D08F0A6AA72884503C0A7CCB8FC830A169F7EFA365A0905518CA675E54369D03E62ACB361EEAB38AB781ECEC38",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8C01EE938AF7B424FC0F0D22BABA3B8B068440FFEC788382347A302BC81F50142A329505BE8C5EB05184C91E74D16F2745A8CF906A76D803D384A8AB4BBA0A1ECA06EFC00762D299463BF7184403132451B810A7E8421D40518F44FD1FE750138A4812A067CF303C1F51E62FD48BF9ECDB8AD8EB05BB948BBE3AEA5415D78396A84DEE8BEAF0F6CD20B31541B90D0406B503A2F85090A3E458BCCCCC98147EA830518CB21F722066A84BD4F0CC4CA05D3A0B6008CD88513073BDF441800A301E95B4525542EB407EE856A6DD01DAC7C2C161F7F1CD50DCF8F2CDCCCCCCE7C1EA03FE1C15E06C1F801A1F730B739DE9169E59A6758A1667A3524A7E0319509658",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1564640299C5E5909A9A7D02FE0D72228B3E6A272FBCC08CEB072CB53053CCA81E4B659556067555F1087AF74D3380E102F647A7921B0BEB34C4041615686DED2E268D80CAC841CF0202DBAE10F537EB2859085D54671BA06B3FA05DD0666E3130D036A48564A2E07700E47816F6053F01B8F2EC4270B27E4454DEB01663FFBD517740A808B840543B3C3B52C920F49624512AC762479E6C9B6FE50C47C9B78EC3147952682C17A1A0CE07934096C4B3AD9041BB5C2A99C61A343C64CA60667BC681F3610ECC800C8D4C8A945C0A5A7F426417D94B9A2E4A24703001CB5608E42C4AA8A755F2B92AB0FFAC810D92D574DED8170AB931EC2A782E7428189BC0E4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2A7C2B911E45A9EC68345B5E65DF045694AC650D8054F29D41E19AEC332070A59F3044205319BF42983019A484F8E556D5013B34540EA802B82CA7B241CEAF247046A188926B74426540504C8641B041A6D8A3FB9503608B0D16151996BAAA4DD5F6C6113C99C600D8E0EF1052F6C280B157B0420805FCB65D61358811371040B34574045833B62D8D360A2025381021B28C2DCD393B081F3A042CCD48333C023D3F017434558F3E33EDB528801502DE151B66BF018A4C1C346F45FF5FF803880840434F75F1C6002C4097168A0E3859A377104680F92C400A75F58576C6B7C1FD037CC8A6512A4B4C65B0F1C640FF29AF195D7443119B8A92CA3A3A1CF447D0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D72025000C407F03B4ED86741406081BC04824DB83C064F4AA1A74B414E18A5DA05D30EF10E18070051AC9FD05BAAD460A3B162116C12DF6D81AC075E5E5D6E11921244620042D371AD2C596AE2E27104322201BC86085E51AC0085B221CF2C921CB04451D02244A1DB28C0C1E01381FB0DBC2D6F61824518F522368E0F359BE61DD2B30F7DF2612EDCB73725C01F0A07743743A08D26C2D9A80251AF1400EEF8E2FD150B55DBF901B5F62BFA0067E6EB6E75BBFB0541B9041BFC046BFD03B39647B3F40E0B0D024DBFCFBB91CBFF021BFE0061ABF001C133D7ADC52EFC6BCBF200D4F10062C80463473CE1003AAF07C8D5C2414FB5649E001E03C8BC2D62C68",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("701186CDE0712536B9B0709706E66F48F7000FB7EEC6E19F044DF82534240285248F34DD5686C10F2604DC0452E6CF3D342702024722E9044569BA479A2840D60458422980EB0CAE0D7C7739172A7B6E3753C1217ADC507B5252B1C195E87833D3E264C5D4DB13D0555CC3970608BAB28C2C230BB10EA823CBC8320D9F04960F6E0E045790996033742A270F2702FB5620403F7F7F34317C64EB440663EB3D70EB361CE1083F62EB2FCA7423DA74157F85EF2C6BC01B3F790673EB0C7BA5643C6CC2BFD9791CC60DDED73D22CB7915D9C8209F0422C318802123939C711B9B1016025C2F202D4A041D2884113E8028184808C087D62DDB26FB7822179B8F3B5D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6D9008262F3A172F90932139041A04C8D96B643F1A4A2F020C727272FC1D0227968A608D1D2C281A9DAC659031C6322AEB18061F2845E64D501A2D01442000507544AB784F0FD89040EC18803531CB3D7C0323D41B0A811ACECBA880BD205D445F8CBDC1A8672C6433F6BE1810080913201010C7C61E391010BB0835BB0D08BFC8F3919100BF04BEF853BE8C3C32F202BAF0BA01B9E8B9FA7501ED851534041C55811D45A3B8A6101B4330429E332C236A885916D5BB403EE5EAC5D50FC08BE908BABBEAE566612C7E0F0F44A482CD91F8EC00C975B749B161B6133FB41CA60ABA4F57664182326D5510B4A846EA55578854F493728BF881C6FC9B77A2DE8868",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("663BFE388403518C7E76498BC68BCB5C0F4C620C8A5D50BB8C08DE028F307CED18059589FE1BB9149C82B9990F4776CFEF738F13030111052681D17475A2FDB7DFA90A7F3D74317748742283E8067413048FB5916B71D827661D3BCE72B80C9964B230091C5000BEB517FB3C3F152DBB0764937C27A13CB86009701B32C944E88C41436E5D572EEC7F4696279028074D33B0CF77691654414D4DA01E43C3269BE4D00C137409F23C4F6E3B534404471124E125934D3C312C55580CE421B7E799768D634D464B59F379F6414C51494DBF006C8365934D32308409F8DB24CFF3EC56533B555483A8EE2A60C86CDFB87C1D7028A0A9140350DF18CB5583FB0A8476",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("75EB6ED6DC6E6E966E7536742D5242651E9E159A9AE654680F74DA2C8D787EFEDE4CEB4AB8AC0643B8583CB89435C8D01729D7864A48665FE16B9EB4161E9706176A1AC098D997986F0567C1A2A58008CF675327B7A85156E41C89FB38043220162E8F83D97D4EA404058447CE7FC03320CF210233E26A1B63642B5A281EC83D9F052AC8E5923FFF28C10225B7FD039F4A4C45451DAD134DABFC430095E27C8A451F2AE8C9317AB8FC2167EC21D0214B77CA02D0D2E954056C025A3E215A50495458ED5F084659448945048D480D3BD12754DBDA9B448A5C28056C02740642E010F805B4208F063D8E11C5BE56881E9BF0D1BB92DFF93DD6D6C80681EA0113B0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8CBDD6011D0CCC5A7491C13685504404380E14004EB2B18D4DD607D59A4535588AC01BEA43E3AAB8E4C7F383E604C9856AB237B849D8208DD82056851D0A01B37F05583E00761E678C97AA4E66CA0EEB0D27108E101158F6C37301881D9C80E390F6DBC5A36C83BE2083C32053DF22736082986CE306CCE96C9C962CF32693CB462E4C3A7D8922870513073C545C7D05B7D8665B600C7A750FBB10A30E1EDCFED86F0FA157994E83AB4B75E68D94287289D886BFC684C102D823BB27BA5193206A42700472203808C23C6A76744BB12066078B682C1756E81510905E4CAADD0F116F542BCF2D03EA0ADF0551DC682C0F83CEF9C69841002B41C950FC1293CCFD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0C83E00CA80B1D0AB8D24E060ED7E8410C729005DF05D6AD845B78AE342B2266075F3B2E9923C6AC241208686A68E416855FF668D430112C24351C422E1CD8680D1415DC45B44B2A494D125509549732EB008BF15E683B962276D4308AF07A02C512B7D775165A657CE14C6CCD040A0B64E795422316E293DD9C964E1C5200E494230104378016B0AF947B09BE4370B7AEBCBB744FC01FD09C00B8488056518C46AC0877431A23709E8F4F609A8F060376CCEEED4D5307E81000EE1A744410843BE4D3F305C007032985899682017C886A7602A2014478CD971B404F18DE7ADC40BFA4166D41F103F8645A697011A9C96C13DDCD510AF6CEAAB8CD21B9A6BC7E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("25364A71AB6766A52D50B875DEB8FC6C5520A450C714C0002D5BBAEF8FC5529608924AAA833A452624E75BA0157D633400BED7BFC06DF00396785644415477E93DAFA85FA008B24C7728741F01BB8FFDDD74110648437542BECC535DD4FEBEC809EB7ABF7FFB0A6C06731E50524F7523BEB81465BEE5B75F9EB05E5244547452064D53567415FBB6B7F04B455974F9A81B48A0063BA314D8DD459410BE980C722E54B8BB2A117DAB3A52509F6CDAEC4AAA04402041289230BCCA2DD0CE0C3A29B1902F89809B691034340656DB8EFC780C6F48BD8C401FCDC3C200AA175F0170393A2E7AFCAF5D9CB502C4DF88F168742FBF9020F18004840B0F504840BC8234",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("556A44CD0D8BB5371D4816B0C56D0C68E0BBFD6DAB2006A60C682F418D5C05BFA053E0F5800D4FFB8B9C0A5AA3E5303103428856ADC6962665C0035D4530963453D874545A74A814B632209C59C68ADBB7450F8E7DFBFC83FA7574013C9C0D14DC506CBF59302EA25C209EA50BD5DC59B86D1661EF05105D086661B6FBF93D704B53AF1B4BFF235940027E6B60184E772A681C24C901588B07C7EB2BB529272F01EFB814653786BDFA8B50DA558DF5D16A8A16575501B06A30C36019285A82683E0E760577704C4443450330006D13ED4D025050F255010F2C5672A36E44E422364FA6213D35FABBF259E1F056E1563681FB1EFEBA402256B7DC43439406F7B9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E4B525E1A80671794818585854CAF76035ACAB3A833A19F96D02B12DD2B5040501C9CDAD0EC4DAB9D462CDC50181976864EE0C5156D45E020B90780F8B0171BB44A96AE6C689D2833D78F3D65C2EB95F0768D0EB4E68F0E858914AB0636A05CB4910C12FB91809482EC023407F2C39402504280DB552508470EB17B0DF3C55CD2D6A6206F45776FD0D56FA52343921C6D5C3BD40297A5357953E9280260A4DD118AB14D512E30C08618238CA1C69408888D9063AE0CF2E7A7525A0408AC81AC9C0E8137C23B63104D2C1340C32AE51DA5E029D1FEB3E2B08807D51D311031F2FCC1D08F210D18952FF50BB5F54A0648FD1E95F8A91A27577B9F8FD7D1FB82000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8B4A5D87728C5C3C8B21EF4B0AA0EB7E1044660448684A3F017FDB38E8B4FD120F874604848D68F21C11CD3D540674CD6108EE22DDF6C401363603FD5FC32452A880B257B10812256B0D02EDB127A8072643228B666C1928101E292B45C832F2581C2AA8042C025C81C8CD2D2FA801ACA68E1563D06F3DBEFF14244597224F424E6AE548A3127433CB0B202BEBC6028E15718D33A2DFBC8AB17A1ECA0C0485F9DD8D0AC7B6C149162FC164693C50A8F810F43C2DF9B6F091B87AE28058F6DA1AD27C400ED95A77F83B80C22D8C953D201246BECE196220C41F3A3E314356BA5821EA25233F2B4A175BB612083425234031396CF94B04452541EB36BC19104BE5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E2382C4222DB230C913E24284355F021DA2437FA96448B329833AA96EFE116047C86AD2654F1E7E12DE18A65B2BD064D304D77D3095027741EFB200F9FBFBFA62871ED44EB760643EB6F4CEB839A41BA682480904C9349F7F3F7EB510653EB4A4BEB4353E0F7D30C36B02ED01D50EB2206F70AF7F349EB1B32EB141CD40E467470C23F65332CD0BB272C2B4E81E2AD533D0659303DE103794D3E53C1DDD80DD75802CA1D601E68452B4E0467666D03464C60DCE9154534DBC9D3284140D6125842A8B9D7F38025EA5452314EA0132243004434064ABF444F278BCB8BD3AE67DBD67ED383E2BB02C1E1050BCAB90602B2C01CDC05703CA3842D07AC04A17C509B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0AA1FA25B8020D0CA744688454DAE66A4399566179015CD9287DC49A03B66A05773D9E6619043B3ECB0336E3E3122524463104854C28F10EC6425AC310FA9E929B6C785464603F78195548107FDF0A0956CBE96A2E2BF0C0033831BAEFF0140901A8DF2D466A036880542A926648BA541320407C6986A4192C78187431C3460B5FAB229C0233201FA4E9609B32CAE6500910A234D53F3F7F1CEB47A963EB4070EB3962EB32A049D32025D2A0D2919143CE3C3C3C6CD93C9E054ACEE2C865FAE490365522D38C3D0422CB4EBA6C48B1802343B01096AF4943FA22024A40CDB34B4120A840442DDB9BB175D0DF7327FB78EE90317E22EB16B008263148CE4C030D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3F31048121196442044222B47112A80FBFFC04020D6B650C09CE45A04224514C2E54E1E30DBD826FA00CAD0026B1A4B8419D2044086854F6D56100A123012780AD3F885F5B740ED1F6A138605BA3120FBF0C0D626A2295EC885D54423CE0D90AA97E1979D668D41B6A807420CFDD04DBE74BC00614FD0B7511F6D05808B3675BC40C1663EB1024086D052C40963F2D45EB2138514E04FA150D1246166909C408AE5F451B500B456C70806E3E0576244C48E75C28EBAF88E708E0F805B64B5531006BC354F72601A5904FB60923686A98BBEE6A47A20EE2B70D2AA31AEB041AC9215B11DF2D28AB5D41030643EB02809924E0D5DB254425C1AD1B501F28144C54",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9A18C42358B9D1A83257721B07176A8AE80EC6FE3C55F4ECBA6CB64BE4BFEA0315A7EB4CEEE15CA301FF02DF0100820806F4E80007281805FDCD56579B0E11B7A6290CB76857FFD09B24829F1717BD1DE2449F8CF6044A250A3A81EB2384575DF6B03384153A46013B140099B093374E013893999009E402025A9009E400030309E40099210432809C9004E80005804CC80405AF0EC804720606747A900964CA340707CE3920384568294BE0DAB71C2296518A560512E1C2D9CD8D0952111002512401C517026DC05225344C2817EA3EC0EB5B365604DFC16903D01E5FFB629A45075310D10022E0DBCD19140252540168B1E76B50CA0903C80E5C0A5619516F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00744091B0501F0CD53B828E74708050803B0103A8C1AEAE40321A6EDC6E80471462A5F9097E38C19B88732CBFE025428260F9249BF78BD1C77C13414A99238B70108B584A97286CCA7843B88B50D8BD2AB62036544B3F8032010B468BF8FD5DBD513DD88BE83AE01FC1EF19C1EED514370101C1ED0B12C70097806EC2E60F0483E55ACCD50730E07B3C72C00502BA3C0E83770977B090B9DEB5C4A6560114688C0A4CD59025F1A2CD82462010F9BE0836E2861981C76C1750BA3BA22D6B517E5768AC325162F6414C8620BEA38805236E34B602D9CE9E323C5634C48CC10EE2526CBE649D5556A8DA511C2C51E99382729958C0797C46414395820111FC1130",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("83A2D46E51AE841FB4BB75140C358017C0E0E04133E9ADBD8E2A51A3182B88667806442B7503D84DE023FC1EB032053499603D8CE141EF061C706DDD4556FFD74F6503A2F6055F0BC0303D847B1320703E4C22012D16415D234053044F07C1B248908FF020337E12447334D6A1501CD1485341B21324678BE0104B271857143ADBEB5C7C0C9FB0AAEA5E4403320940A0EF43CE7D6C8B1D7C0BF8B654F48545A85F743E005023880B9C0D80A42BF8FFD383011814A976640486E01512EBB22A285FB84CDB567912D4DAEABC3A77B1761840228B2D508B42917818D014515EE97C51B98C0AB64FE785714644BC37203DA4D1BA244B6FD8730C4EB028702D87F528",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EDC809B70383C6753213C003359216FB3D902180A63A64BC0BA821A092A81484DA08C890FAD3C637820F15F846201B9D23CAF846C3167551332C0523C1505700F23D5983782A506EA48A82996E348875A1325133BF205E0ADC46912A3C0AB75134AC52D1440F0D3D29006076151077C68B7C00324F37E043B510EE1D98606C38271A10B58A3260A2B79DAA7512344D55D4400CA5B0B0D1269B8AD6D1130CE738EC41DD9108750DED50563236B022EB6F0714FCD60383C5FB820955575653C016CC5835F873546E3048576D536536163A50C120515A310110DE866B3C6824552DB00129A253C15D810E0812D60DEF7266210E00B5005E8087881A3359C3101C81",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("802E56789F1857C9F21905CBD88D47E3A37E907FF08D4DFC81E6F1774381FB19108E82B575294793F001C402B11B5777004380A3470CEC2F800F0BA03A89308A090203108D995C3BC36EE9747392E024045DD1A18754B61A140BEDBCEB05609E260461CD1E46C82196108D188A0540835E88911A833D248614EAB2185ED087EC6CEB1249EC11503E4189ECACAB3ABDD78B2C30B3C1E6368B68D930D84421AAF96C300474321C6F8382593B18304D810E3CF011B814552849E036ECCD4A361939751C0D55C00A13E256FBA2FA665C7028F1A11F60230AD13E8051559B590A2B702720ED77B60D2A56520F74AE0E8957ABA0C416068923C82FD48337601F139905",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00FE2E5CE09110B63F96984AD202BE01352C55852AEE920889011B87E23161BF1801E370245CD5245090C333F6F1287E017F754DC2A0FECF22DD103C81FF80F7CF127F275F537C780B66E7BC0735120416F7F33504CC18041A1CEB55B55E8A375D10B468EB4839742A0683780CEE6FB7DF7CC0E048146681C16C3C77B7996DDB0D5003424754180C13CAD37CCD16081118041AE17178D1240D261160DE09B341E4D0B81342C1EBD0E81E4039DAF870180F60F1CC3BAC0AF83A713735A1C355934492DF12120816014F675BBF9D10748A0A392B45CD78D06F0815833BB50C860511E88301BDA7AA04D50841DB8BBA24D9A0085AA511B01E31A830092046202A05",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("708919A80B7878919D72A7560A09E8004007447E6020747B2C29F3894B2840B7610F785F96032CBEB2A8B86553049C8D43189F1485EB36503715148D4B493C2EB4102AEE5308B86CAF8025E88943435E14D14318593F1A01C325809215B9E4515BE2895790029B57026D9088145E96E81B1E96EBA228380A13D0378B048A07A5ACF450036040BCA855E4561C70FC6FE54E2483EA048D462C52E99D41932A4E55EA1CB26C3F654F75716174465089132083A04E283E028903B0E90BF0428849401CEB300F5031002BB06DB054B104024EFD0255851719CCC1A35231358CB2B3997CAD68799D1E4D50FE925679E8B6091456F820FF78DD1BF00DD3058D5608D2D2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A8020A4EC3019B9B10C9A8044618E8A8C3B049A25591497736808D050434C23C89498CB558808555B02A1852B08C4F20028DB1605628D2203408FDA0D857CB57CAA88362C6562FD8FFC468E4A2C75B7C81911A282E8A4CE00C8A706A1121277EA391A6258A900C527F8C657FD8DB0383CFFF5695D291A2B6A681EF02065951D7B920078DD8F0568E015E48771413D47519477821AA6D841A127F0E3C5CAF506502CCD94709068BA2C36414930B092E6403138F6021A87B1F6006013A4EAD0DD775E2D88C033C233B57882506C440E0089670EF615E8DB420A622A495CC41197AED9622DBC806ACDC041F5284434100BEA41E579E1A1B085A505D1C70BAC7C64C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2C135132C605A6052FF764A1D906A70046640DA21C5D70C3B086CF08BA0C81D64B35458D6A2F6D188CCC80E0D90D2451A3A876B142AA6B97F045463A287D186B0C58D7F525521722038A0327339B17C02FC7059A60CE068BA00A0D013D58257B63844FDC9E43E19686546C0FBB1901F41EE36D8D56893D1D10DA849354752F58AB1C2B14E41E881DCF24EF051BEF9019E0C421C16ABF087AD02F5629B8A3C4B31D90771375306A3A75219DC85DB63902526DD8483511B117E82CE5F4BA403725A9FA0AC71D40F6D602D0B34FC8475C553936B9B251B61CA7F7E23B29F90D5F513D20DAEF7D0D6A0DA161E21C029CCD3EBDF696241146F79C838F1962E3EF3861",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("67B8743C8B5D5815BD3D2336BFDE4008E267515F22E27D1F698DA81AA1474591DD578A0B505EF8EC9D1D7B42A778204E6A2E505521205F1588FD510B0E0F0C4BBF4C1D846DB109FD0E2B4F8224555D87571555BAC1A8E2F7746CBE3C8BC5AC6E4B4EC93ACB3ACBA37438B0110AD933556864383A61CF31F4ED8512D9619E5C381467E09EF97C8DE400E156C40C6267EC88515529A18DDC0E150F918DF8EF9752C220C492EA31B50EFE8457C27B8DA94A87747F83C196BD82754CFD7E8B451EDA7581BC1052DB1731DE9B1017E6C2AD04228640CABB15272118FD875155B7021A12351E2E750F782DE9028818AA0C1F80B2109844434CA8BE2EEB26FB4068EC8B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E2EB84BA051473E816ED8A8045A24D281A4840157359CA06C4204C7058C808B628F62159181818C1A495060DAA06801CF113552FFC3C3A7507C6AB2E46EBACA5E81251042B014ECAA05143C10C560B33BC4F41DDDD27A00E0B8841021A537B21CC02F23C5F8985286B1020C2868C550FDA558317790833C0E40D67470A1A203755208C53A2004640881B0BF7ACCB8524332AC543982D8401556F15C32093704C4F40483B7AB127DE834415C7090078CF12B4CB5C408BB30B064F3DC88838BB1D54751B0D61201A300AA82B2C2C2595BA38C4B236483F8E571B2B8881AFF9866815C39AED50634456C174421CEA971A81C8A9EFAA1369B510D1E10BC8129EC612",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B64A144CDF10C95830501DA8F1EE8E820FB10AE6C5576A41F74B740318E03BF5892DCC22746C09A9CF8C0701CD1B94BB186673820598672E0D9C7DA7EA819D58CBDC29B840DEA2EA04901D8038E077239625D62FBB07751A458606D9F59888007558ECBE8B1D00BB0919EB7B631C50B188119A67F3C52C469C436B164E17918602C16E42FE362EE0D4DF80FD9337538A0D0A1BB680CD716AED1DA41EBBE66ED77A19FB751E2F0F1FBB0B43906984C6DB1CED744628E083FFC50A5C2F5BF722DF2D1C216C7526A1B28AC68860DC119A2D4429565A4F24071A72058FE1EB01430F0D0B28D80094918412026B3EF2DFC546E083F85C0F8734909410418006622608",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9E7AC17CF422E02073E9158556600198B98A9E3B503D77A7B3FA139328A6FCFAA1A09D77AE42B64457550E4F1DB9DB219DDA9E8A0D209629A8C9082F024200AE00D1597C7800E82CF67F9C1CDD236505E98E7BEE3B368493B3459C78184D13D2BD3B8BD007232045EB67065FD1171DC6601A108356648B26937A0F7B7288E0A5EA75457F722F02621445916B35081CD88AF3E7DF55C054F5983EA4212DA4A0BACFE8B628EA284AAED5473808F0B0FF7451E3485695008FACD4C056815B39007AF7C7C20181B3C55287E721BB01B19C6D9740B048FD2F774F40347B4402191B42D1F999949D088B3265AD06380F8CAC0B346B0046C3A8049A32E86F74554C42B9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9203028CC27456BDC05DAD9280E4907980CC104F28E874EC10DF756167A890B1A17C40829305C790024636908C1F2182437C743B8D730157853411350A04A066107504B34F046C39E9E30357516CAFA648B01120E9B94BAD9285948E505C0D79FEAF80E4835F0352913022975F03520AB3F16045D74018200CBB9A705B6EA04E62F1A04A7F4C688FD164B1132280C160B694F14718104B11753D2E0CD902BCC59338A4188C396280DF39526796224B01542093F40A810C5910E408BBEDD904CE0C760C539703790BB651D76C07689E030058040093CD8A62A8000129ECB502F403140090C44B641C1F2FAC64408A3FA8A32FA2489F57564FFE020EB2B298A1AA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B120741E9498B00A954151576DF06F1931FF880431497540065B619638B26F08A30894221AB15D0772259A68C502E61FE0A71CFF25CC6686BCB98A068D7E018801A10A4A14780D65642EB6FD5E094041A30D8A515F101715980466F475EAA1B466432E7B8157282E26C30AA1C03D4326692626C0C077667EEFEB0E680BDC0B3C6F1553DDA3A0FB2BC23D01907EB597B8128A463009515964C911C43462CC9D41D0EC2A3897B8E0080E18FE08B8B851D5E89CF708A5E48514CF642D3A5858B24C61A164180465F8CD12B3AEB5BB1B5E4B494DE677AD4E241E46BC33BE5B572B0C58D692104A7B7E6B4542065B8A03A17708B29394611932B1CD119A7A6D0DC042",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("890CD9228CF05BC6012F9D40AD240058A3A03160A94B409CAA29F0AAB4B7B257F56CFABDD7C279C958841ED650B4577376C2289851D71544AF46C8526D05322034B2A1CA509090836C680423A97753BA648B3D2368848455A4BC38B28CC46A60042E71DEF79D2258495EA328A32120CDA5CB68039025019C0ACC247FF68A038D6BFDB50062134CC2517013148E512BD18F167C6248661C0EAF0C117DC62A1656C21285AC98580FA2974A7CBF6DC8B71C49070F478808B21F02408673855020752D90911E5917741BE953E4AC81F48BC629320B610BE439CD163842F7212AD24902DF9CCF115B4D30D0B5543752AF7A1D82175B1B4A61C35C45B939302E209D4C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B81E5C1651C1C0623BB12817AB87F9A1989AE8AB2C50A70B1F1CD8F712AF44E45BE41AA1B0BA40A0DAEA7801270FB810AE78F0EB6CDD4C8A03752821B549901DFCC6A53D0F7638E62857B9856C019D0154199FF858AA83E860A3A4046028770A788D40079F3FB19DA900062185D223FB5D88FE74258039617220507513F70B0C2B9B6A9D30BE08194A0108480303A43C2E5F119434A94B302A182E1D3E90DE3D532DEB3AA129969262BB327E291CB02C31320E2707CA089CD621F275526EA3CC8964C6A487718811307421414C61389E6E20BC09BA5111CF26C1DFABB933DB065492D87934021126D880BDDB1321891DA32739101E4824EC7E0D3C8C3BCB0F01",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F0D76B220F8E09A803FB80106F5951895C2A3BEB751659822A61249C180564CA67FD3F209B06621D034500680D890E4D00183F2BDA1680030C270103E06855F03C3A867B5390AB8F778A4C28FF00E1D0FBF77D5C751448BB20A318C60428002185775168964428751C3BDE19E38DBCB5CE1D1945022E402816A6C851F40A80533E545B3212A255E230212016F86249BC80702C8AB421156CD555F21E10488C24DE354CA93D0C46831C5055E7F4877C2F95885C1403807D2F21C4E72FCD33BF67BDF6174151C73560A75823FB63A399754155AD1606A3A158902A1A152159F102F562E864AC84312F9463D45B17BD908AB64C0304405135BB5BC9507303093A04",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0A2F0B2843CB741B48448C5201B48E36C22F3A55A78D0A1418CD04FFBFB03E41738BF37450558D68D583FD32773A2928F7BCF895781C6C067D78095AE130CB2B51203C2E7C37DA5DF28A410A750D2E2E460341221C6D5164FE3BB5EFDEAD310646535075B25D85FF13DE262BBEFF356A5F53D87475C82BCB15C1052AAF7C0550DDA8E06F95D04A2300736B5E0EBA0309197E2BB8087E3240C7C6072E2B1CAA63BBB10D45CB8D7BB2C79E16555B60A15A0AD94071A603041B227CC0D129785B15123E0A105B447C6D014D400C5F5F0E20DE6D165E1C5BC38931A08DE0BD7568D71A047E0E29B28A06916B1D1C8886AB6DA60C6FC76A4C92EDB1DFE07FFF8704C6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("47FF5F32FF981BFDF60260BA72039D5D010202017083CC5C00001F2E5B1021EF82006A21320B87AAB9904C3A4803867771003074F510F05645D848750E5D597304EE511906183F702FE419021D088A171356046F8502B02D59CFA0AB8A16733C7401E70817246858E90E8A74251A416854125107E66B165958AC04A05C755583772C687C08911D5231214B15EDE34073632505D389B000CCF6B080BF6AF5A55865B646E06D110B50AD559F554D0F0FBF21041920B800EC2BCA9D2DF21CB216200A0EF9A7AB66012FBF182DAB1B822814285657D46155076D59386157D4570D18C4E8A103D65B05E2648057F86845FEAA5EC0091920AA6A735D2C2F205C9E5CD8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0FC241B1A36B6F69F78DDE7E1C292D5750756A730F9C069F1574D69F0F12078B0FBD4950FF894E18EB118D56185327B69B75CF232A1F17F42F0F5D285005A3E8205F416DD8A66A1C8A56522F1790DD8CA25DE869101CB145C80B101C2F25325DB25D1AF87C6021F842F4FBFF743EBE7439B90965A5A086D2CB3A213553D03F0511F6D383E301E646D0B67FCB8289461CC1E30705200252625195EC5E064BF9428119F0097F7581CE08BA800200E80EF137FA0D4D03C113D65E6BDEB19D01771638D3771121803ED5730D7FFDF26F230145C31D5E4836027216770601BCFE80E9A5D4760DAB1CE0DDDE2D23C32D315181DA42743E05A74946380C71A22654CA1F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("230BC0EFFC864450C1640E0C90837E2B2F9AA5F2B3354E008C040021607BEFFE3AAC3D570F82BA46750C813E6D0D5EB0BF66AC3D950F8790189A73048BD80D826BB2C4388A0FA812662D5987058A11889730BC0062B18849A91E0A5AD039D42F16E5367345F7AA2324A0312810381371500B207728E2753B40F95B352D8A075C4CBAC7FF2CB08B1568EDC9C661485E8256C68621104C09A5863721F6100F0C349580934C0F15018D0199B6381805ECE74B070970EAF73BF71F8ADA590F271037706609323AA9B5E90C6C538B81D40C6D0F84AB7D6A521BD32BE256CA249D480C0198EE6335505AE7D3FF0A75264A9C9C3C772A508D4C51110AAFE51E96255BD7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D176552D0B78692EF1200A192D4F406F1B5232B1F3409063B2B01C57E81495E4E93D4769C6AAE60CEC48246C181F063528E40CD8A7E21176FFD63E4C49D778CF39C3673E204A58174B3862513872245D92A07224146307D8C9300D6E14A82C40A42C65352F050BBC19020AEF14A59120D8D0688D31ED691A24A25038ED752C221A3C3B3178A831D2D12B14BC7F01C4A2F8A6FD84FAA9734F49A7087B840BF081FEE34C46B14CA914A9DD62FBC6802BF8B35C09140C0C07DAC4251C022C8818F50842A2DB4417F076E9733AC3051D45C4E0D6F407753DCCDE44FB4D61764D385C041CBBB502741C40DF36DA851972EF09033715341C7431ADFD5BB88805AB341D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0046EB25407B0A2D55036A2A0AB7101075B1506D1EC51F8ECA262A71D407C6971BB4124073A58020CA6CB43FD7A1009106998036F72B165B18EF681813CB78CC264561A82DE3350C158184A695A0113C46BF00F6D8AB02C7A7873F2C2223C1AE0D37541072597449F67E08D5045BD574428D305A42A968EF7DD83442693E5A802698D064EF1A47345E59CB2C5D01868660A7A3D715AFCE32877D9B105C463F56AA7477F7100214150813892D0C05CFF0DE6EA31004C705E34BB885BF1B45B1BEF3EA0D04085714A894D9DCB9481C3714F138676F568C300074D3CD58484BFF503993029E28524F81A0421D75BA6A92982D040B55F4FE3A3D9402686C8DC44983",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9538238B0D53AE62EEA4E96AFFBE908C06588867BAF73B845088A8F60F9E8B1B9F5F01182C53DE24AAD9E4688D37E4F0540C16A6531A56B453D1ABE2A6069DC6AE9B41EBAA050A0E01EF0557F0DE45EDE9BFF2ABE16C9987AE0C5150FE346B00180F2A2C26D52A1A4EA6B17A08E06CCDD79D51F0A450F7A09D70E80A463A8CC857B2D01BCB3CBD1609821C03B6BD0D8B760C028904573F9C022F6059C01F7AFD6AED4D07B5AA47EB0F50B062E69B2241042ADF14981AD2CC9A3A08441F76C7CA75111424A243CE08518C6A553F19F64614C4BDCB92C0EE02B62C500E2874A5E97216661C12200834DBC79146DB31060C1A9C0207B110B8C67548B541B61A5A10",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("741BAE11CD9E107005890BDD08148212211832BB8F824C45BA43DB5BBA46CC0B0C073D9B15C367546B1B67A10981CB076FD646F583CD08D50A617E4E0A726B22C2814C0A24209ED0A0093A5350B86160CB9E35BD2C51555B061B419224F839D4C2D2F1304F14030028A2C20CD6C9A80018C2D4336802F104D61057A773016CE559A7EC1CB69D9F1D302802D68B2DF4103A0EEBC1231BDA4652B9C1A7BE36D7D4FFD515751C9231C8C6D670510D01DDEB2A10A116243AD2B573736F70F45860542820DBC810100A50740CA885BD5E542F8D1B8A0EEC024508565612E6D2B7E802E08D45101DEC420A862896B70DFF750CE492166EE2430F39C75FFF4DE4567832",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B9853BCBE08020DE0D242FB1447D80ED595921C95B3508E039E76F892F006FC141A1FEE104408F0140C322A02B42E80725F95B51ECD22056B947BC50566A02CC5C47C55326D90DFAFEB8402DA1C4340DC860FC7C2E22B60A3A7C93896064EE348518103BEFB9655F163B5EC3CC00DF9708A004CCD6E326467FC1F68BD98B7DB7F7F5D903CBB77C83E0DB8BDDF3A68A468D3A47FF77E4DADB6F93044949F7D1665B5E5FC537448E80AD502F0CF96C333852E3FF03FF35087979DB6855EB5E0415745916744F79EBA2780F744AE90E04047409B79F59600B1B86A81B78BF5974321CB8FD7B8B480839704985AD793DD168A3B6E461F0C054890A772BF90295D0D5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1A61F8EEA98F31D7587520833D88016C50D82D9117DE442BB934ACE97F97880724A3194E4E745383EE5B7BDAF56D400406742D4E980D80613D05383788F5EB49B10FC88D09AAD47B4B16C27568B23D239B297C7C1F0D843C23CB33841178780315862E2C360C0EEBCB835F785F4723A114B9046BEB0CA17CB9D6F67C0D7C15E25AA29BB74BB500412148D059B458C2E1AFBD8804DA50E93915D4B8DEF602EFB8E8158D344902B50B5FE24B1801DE730539500BF48D0C498AB111B65E038D0BC11374E1B63834F888B388BD7E112DC2A337368C3EF1C51F827A050F8F3598C3EC5870BC59395D0CF8CF50891DC3654763B7E906BA8D7B32345AA1DA307C0EBCCD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CCFC88089E5BFCFB895D08CD99014CF2B9FDB59C087F014309FD00025F472AF8A32A68402712568C3AA1E21BF3593BF359C8C6BFAD9582C2490CB72D3E3B849FCD6C08AE5B0CBB3C5A3A328A865A1FD23384DD681DEF0D0DB83919100EFF9DEE9BBF2D83C30C81FB6C7ED246683C6956D1BDB5117359DC59750558754598FEAD5FB3057F2F578D857884CC9D7D9F2B80A43D0D001450F5F4F4364250D303580803FE2FEC5B30A31347051EC385F6C344A42E853CFF6BE6F4AA445B5F085AAB056647282824535356428737577E331F9757F97477BE476FF61B5077FE742FFF37238E171BECE355BC59E01811538A12BFFFDBB6C021E8EB8E83C70C4381FF70E8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C13323C6DEFCFF397DFC741B1EDEFF3552F0BEFBB65FE359730DEB0F1F08881F22637C85161C6B0D1605A4DD32B9307AC575E8576A4B16769FF050035CAD829513006BC819D026141172C563DBFF6CAE74991FA8347F8D1CBD7C8E73C196DA7B8BE61C068B867E209A03E0FBD6D804EC391C04459C8E11F8091BFB77084057BCA19411FC757BB75BEC56CC893B430FB7918903961954A0466CF830058634DB5BB8CBFF020DA33B090198872BCADDFF96383310D75A0C9A394843F97F1B41ECD1A94032B518265A0EB681F120695A17DE08B3092DAEC2A10997DA4A27FE744E5D0668510CBC3347FEEFA31AA66F7B6C166940BF44090B3CAC1BDEDD84037D2720",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AFBE1D3A8BDE6E7CB218861956DCFF76A5C60C4B13A231B8552493EDB984DDDAFF36294776FC443F07541F5A07E47CBAA86CAC54094FC099C323167A5B91A3250AEA4CAD104BEA0559D9B0D7C85217105857528D606129F843753238BC2D040C6E7FA96FBA2050013BCA9643740B6689110251020F6C6DEB03041714142FCA5011320A86BBE981AABFA823069440BAE4FB74BB24115362489E05F97120D4B9751F06688C1A4EFAB9D01D5AF1B5047F6930577017D80590178F042EA596835F6621A0CB6B73D034C6C256EBEB530A59B110C846ACB1A8120C49071032F2B3B94B171404689414C285611C5745D3C759D045FCF628B57AFF7E1A568D5C1754A199",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6755FF098706DB1191594FB2ECA03C38D2C3490A68416AE1639C9605DA39D1528A06791C1FC002D180AAA3011773C44664C7E9B5A40A45EFB6D4E9BE9B83650CABDF3542B279226A72008A1C308D115DA0D13C303F63407DB7A3C41B262E74546E7BEB341C5E7CF95A01BB16425F743D5039541BEE05C540EB1919E52DC446DE4C33182C75240574D5ED82543C1774862082B13806DFFB8D7701EB858F5B5D1AD06C13DC0C56E208B44040BA0797C8586E4C276E1B147DDB7B30651080BE552186065E054306F923DC50108ED2182F954CA2435935CCF512EE0BD47465BA1B3935F40CB52E660DBB266433DC501D95F9589682463C103E2C4767756C505206EC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2F3F3BA3F0B70B99761710803C383D750FE91F560D2DF263F4ED9CEB47E1CC2D80913801D0F6E4E2D4F1E4E1EF8682C8C7D3FDC4C341E077221204AE78CF1CB4E0163914B41364A184DA1D3CDEF0A124A0B92DECDE1540A4153B351C0F773F06281E3EA26A2AA134BF2C300B0C6B540C70567B814B7BE6F06A6A105E2C4827E86589D477C6C1E8CEBBB942DF74CD561EA7FE20015EAD724D855E2B3AE420560DA78FB3BF5E4D5184095ADDFCF8627F7A161566D6567436D2D677FB4C6701CAEB3A7B26E4083109AD9E83E222040A88BE2ED711F6CAFC1288C49E016BF40F679CC96800231177198D48014D77C35F9A50D0610441EB528BC8AFD8FA123F0EC1F9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9EB6D1F6440380B62EFE5FE10E8065FE00884DFC8845FD78090DFD55BB8B567A628D4D0A053E44C55EE38B4578A2036D842292026B8E05396B630A236AC968F8C96D022A701482377CAA682912C10608FC1D2C505D510FAF9D5D5B80AE9B250706E60803F38981A2B79A6826F1C3A0F7F740763832DD61772FBD536B255465BB7D6BFF99836D0C0403080450FC7ED71DA28CD53618E88B30EBC0D1E816DC18DF59C75703C337259FA35D45A9D6165EFE1D046CA75DEDA0FE61770BB155147F20DB16ED7EE82B6E9F761157D80C7EF97DEEFF757DF857720D564282D88DB55680A2458BCFB7AAEA3665D61349ABCA7C36BE91813031530B3BD773B255684BB5B5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0E8804E14DCDA0E3B756210BA2891A89393B0446D6D0AE264DD805243F81152098DB80C80C5D01B629D91AADB5489EB5FB2C19BC62A59C963B2FA4EAFE943B5327213BF8763D72535038340A7F2C40A58615DE633BF777126CD2BACECDBADBDE03C2EBEAC757B54CAF62755B68D44CCF4C5F5D3372D5AD81973B43741D38C06F9120CD438D72018A19316EF40B6D1840881141E5F35BAB6003725FA253692C7F2FB4AD7DA036FFBE382A788C4E0478B14071E30A8B0E3C01417607045113FC9E79EB594216017A57BAAA3C0AAF2A75D9802706A39DAB40457B8375F156EA2E9A7EEBF0A180B2766A3F5E7507BE850BBF23EB06197D07FAA3196AC9B5C4914E7C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F5360585487EC6DED2112F0351B18086AD51768801A2C5365C9B8905CE8023F130B1989044DC020206AE20DA93D105F24EA52A3EDDB0AA01CC2EAC1C9946DED02D11F0F009F2706F05B8903F5AE040BF0302037D1BAA6422A5D32D4FB4529C0803A6C68E63D048ECA8D7D200FCD41CBDCED3CA09B4B02A1A1955F757D8CDCF6660A03BC39A0668207D0F68292A52A5C029D8A511E1B852AB6A51D21C016D2D1EDED52E10BC239BAC0EB0811D03955096BDFA2A50C8CC665C38D41FF0413000E6287CE2BC23744A5C1052FAE4CD77F0313222C8A013AC274643954C96729485B5E4AC0BEB8465D553C8A30AD1322E052C05FEB7C1C52116A09D848F0591E9415",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B01C062564A5D6C1C30CC31FC32051472220270248F23F60ACDD76A112C97C063BC87D910C38F156BE9C4E182E0E173E47C65929A15C8DAECF26EA568D6818E9085028EBC190EFDC68040E002D437996EFC17E10430C01847B43095C5F393D0C96725870A014D81CB82EA88781DD8F39165587DD3D0822881DA0DDE11688D958833B54090F968A2ECE71FC501359FF1A8A789719352273ED5E68BE0B43BE24941CBC682C10283AC7064B9C5BDE7A8924301BF186FCB456E820D96E3BAA730D5791ED4E3C54C72B7FB8F9501AF64676C303F47E4840E1E5C393E01CF6A3750949E0F981E129C94675296405FC36FE232EF6460D407466764680306886422B9C22",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9E9A18114BB1AA074857164187A0107603F19623FE753766A9080123133E2BF805CD4A75D226B53B42C1EE09FA750E2EA8806EEED24BEDFD8908AF834E0C22CBFF30448A68E983660432062BAD55F70ED88E6457A663747A245744777E4DA159C65B55B731B0F83876F6C18374BEA5068A29010A503329B6F0BE994ABA1D43EB1A15921321FB06CBDA026C1A260BF8463B4CA8428B1D7CB33870427FAE09BD7861CBD05E10A83628C6A2823DA889EB80F633F40754A3A810179C6BFD814A4E0824FE72C52F0A853EF4185B24EF13028EA57685311575221DB0E71568B612AE07D075E08FF53A51F330A6812159209416DA66F7272F574F302DDC9A8925515818",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("493989090F826ED77E10C73A6E4DB58169EB338A16B08BCBC05643BE40E1B8C8896FBA40BA108986400420740D33AB33BF46CD378087598A149AE88A62886C01C35F505AE0C25239575F8F03680DE884811D6EC0C1B5D6130DBFFDAF4670C22EBF1C7F6CF0830D8C751D2BF841F3AA5DADF3CD085A0F8FA1E79A2CFC76A28111A1BFE46A3BDF5E7D2591782228B4710B3A11B08B56F64B0AA1743BF508CC5823C66ACAEB65AB8B764207C3D201C848A1251A654A6FF20AE0F9E2AD84F4B85D09580109B570D14167C65F03AE4A275C86FFDFDA0065237898A78180B6107427AEFD0646F86AADDB870D05FD032CECC1FC04DA30C1C12D83DA8BF08F98C046F850",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3EE975040A700763846721C72B5AA82187D31D312B072C563F514F1774E1520FF94502C901222BDA44668B00CA8B7755F8DB1B717C050D7E3653AB6A0C995BF7FB0570DB9625C80A997EF7FEB9121B2F7557107DF1C2B608D1CE808C41877B1747A155B4AF03F9B330FEA50A440637CE408D51FF69C96DA5BE54E01DB903C28D84C60B6CA8899CC94F808D34620ED10545031A16553B2F9A5B07220C0D7D088DE3A868A2F48D0C76C196551117415D75711C182AF635D1A3B6CE0872472F64E4C9D9C948C0F200C0C884FDE3E4EACE6BC93C473C9021794EC00004AAD57D2A999C757C8B07421435DECCB6EF55450A49D27C688D28F5E2CD415AD27D5E03AEA0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("863A7EA0A4A120EC01B345B6F03583ADAF3D13203F08D91BFF7F087D288378207522A128241A3C07DB7E0E30321A0C78C542753405CF59130361531C262AE3EF3E00A90BC43E40332F5F716A3D24DFFFED80F40355583D7F0BFC7F7D512B058289566B2EB55124248959521FF98267C5D90B87177DCA8508D8588D292F9BF7BE57D5C7464B655D2E14B63543B3364571A10666EF3698BD366C913C6F59998BF995B65BC7F7FF4B16A003D10529DCD1B9B71F75F9991403460420085FE5995BDE6A56047D093C07216A185B7823DBF9592208F9212908410AB4C99A06205917C9DDDEDA1642890F7E5B46186A60C1593ED747CD2B22D801E8051CD8C73634CE27",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7DF9208D44080722D0D62E5A1D7FD6101FDCDCCDB5981445E21C6CE306100B4398937A0E99CC34C0108F80656C0A80ADD9DCC06643EAA7E99E586A224B3B0CE8209AE6699A2EE61E21E21ABB9FA67914E01807A11006EB4590E9CC52CA3454BC5B367EF55B1BC2126641CE0B0530746568DC4A4DEBE1F7BD4145F8ED75E0BF42A500CFD7D56F5FA3455E504DFC04FAF8E8C3F33CF6F2F0C38A034B157D656E7CC95F013960D6585F536042D68B55705ACD6A0959607D9EB570198AC5D857690D5822DA20830394461345008248E4BC47B5415D57527AC4D9AA04C4000294802F11CD0FE0B2756FEB2112DC512B69DC497425F61778EDD9291F75EB2D1DACE303",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A576B30602201D2F4B42BD37C854DDE2C3F7C7282F12F04A633ACB11B4CD9D743AEE6C182EFA2A16143707672E8917296FB1F1B763AFBAFFFEFE7E8D0366F0FF335254174BAD166DA91F509776F48174DE512C84CE1EF76D0BDEB628FF580C07E9C639742FA011C1AD090E2DE628D2004153F156EF0980495E075FE06E8661BBB07585A3431939059103468FDDDC8BDCD102175A175F8A1AD4CB6DC19FBCDAF1F6861E8A5A014263124DBD00B113F3240BCE39EE103DC34B548FEB0B85DD0D66B06B00602175C5CE6D0026022D234DA275901C53E233108FFF4D5F0AD5801F86073C8BD069D280E079F803BBAD8DF8CABA8033E1878D7D46C07C1B77DB16E02B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CA406D1406BA3BE2010B736C82ED05400CEB65A33C3245DCB9CF7FBB80510100998BFBA344124AAEFEFF70227AABF4BED489BA37FC9B38D9897E045A39077D064202EBF64A77E9DD4B488915382E2B04965EE5A3344C5A150DDA45483D9B666B6F062958BE100E812340967FBB720FC7A3305DC0F0F1FFC8177A77044EA32C116BC03C2B8B2548985E73730A2E0D28B804B0355419729967AEB96153C0587401858D90C870F10545F71C393641D4089176F1834FC1ED8DEB2B01C1FF03C6FB7557ADA0AB54C2472894D0464006957A4303110A0EAC57476F836F8B960519206FBD5A0CDD95665410561480601742FFDDDF4FC640050A8B115D03D6EBE8C1E705",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8BDFE782633B6005563B3D5773E606B8D40C30C1F9198D3C8D5C60FBD2C1E6610F833C3183365D145F0075A40CCD73751E78A185768810485948DF536AF4B0B4BC352204F5EB03F6F1C428D505039D4D1C30FF50862AB4F2090FE4D9829C1009764C0D72D636EA5566F1EE7685B61EA11D07FD123783383E32B215DAC17D751F555E79495FF23CCB49505050830C30732BAC446979F0EFDD09A230720DEF8B37DA16B10CECF9C16F6BC1742735C06E7C00C33EAC57A49E2A05A042409FD5A4967AEB3AA80034B30A26B56BDD078D1D6F5BB613063B7C25CF12310CE81444AA7B56A275F0661CA6C7064F925E1F8A60DE0BC879DA527FAD09A2F7E1C23B530531",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5BF835001DF7647303092E7AE46E4ED35B1A1448C520D347110EA57C5057A6364A37FB3F4F0E0423BE61B714F9618A72155B2A02391E31D697C7E00F87D32C0872318872D568EEABDA0C9D11FE4C685D5322C5C805986EDF3610C15DF0A12D742D7643FC489596221A2BA650BEF1A1D8035D534CC9D853B119801EBE560E437A0202490BCB216E32C9D60F4E4151481A94A861466778C9CBDCC2461D4990E13EC146A9202BE4AC1456280B3529E47F0A044428440875247B6B285F4912087709F676085362104E31D21ED579C22346240CE8267431539C86430A289CFA68040AFF73588BFEC1EF04292CFCC50D2397B777F90541EB325789024178133423D1CB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("666F76E004E454E63A309BC114C530B05491003B4027434194DB02A1FE1C57FCFE80E0B62020C4EF0C24090FA5CD04EB3E3C13236A87E0804204680DB033EA2475C2E4CC00B42EA011A3580B30110F5E414667C56E0C17D4D90C07D3EBEE11AF5278558413E868FDFFD1E9D1DBD1EAD1D80BC975F4F7F391FD187D6B2408A3F717D1720E3B196A77DF27770872073B2B76014E4C0FED0DFA20136AFF6850BD687CA2A188F70E6A90B350648925073A44FC81C4578965E8E3012C7020F8CDDC0F1C88C0F10AACD8CF768A700DE50AD4E8303B6AEE10A3D007F7106631CE15BF6A031CA97859BC09233600DB7AC44D94F448A292FA3A02FC904EA34C0E8E010948",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A21DB4AB34F4A1F0A3F0CDE61AE4E5A60605E0E822FA80C2D4C67E04E4B4B4513112848B030935BB6A2CFCE0FEF148378BCCC257C8B0191E326D5433685708F10D9350C3738E68EF938968BC86E12F247CC16C085925C0C3E7F96E6F28A2788C24A279047A7B40E6799E7C7D7E7FC4B74F8EC64C0233C9579CF08A1E46226AB7ADCB07EC02D0891347C54650D442BF9BEC2D3D45BAC10DC8C40913C82DD0D6A3EC9E2B22EABFDD8A0F7C1304787F0E0FBEC38A80DE5E953AF58364780F84C15C610B6AE00E0210070E477B7769C47AE906AD24854951AE8E59B6AD514D4015C002C8D8709B9665DCFCD4C6412C4AC197B7378920743B0403742D08741F48BBB9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0DB794120DCCA64239FC0827327648170804011180037E72C88002FB2A75239266776687CC42036D0F8D5F46BB3157A8C10E278B16BECB6E7C5311D64441D0EBE90AF80067B990C93F1EF81F734B0673C03AF81E37F2F2D60649BB0468741F6C7411ECB097DB77BCE905097DFCA01008A34A3D3B20313E36766766B85D6034E54646C8FD808721CB85137D65C400DC7765D4B6AF6D09DAC3F667CC1995EC2AEB28FC0C2D9C4165C27746354F821B99181657F8670FC1F655D58F38B965C696DF57A17D6C5811CE389417E8AD6B38B54308637270036C10173640B50CB91866F7A1300882ADE05A3EC1FFFABE098D4C38CC54681DDB46E92F211008597B44F44D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1AB9192230FDBA1C5F90010A5D12C7DE967501D454124E8AF0AE897A156C1EE609C4A8E2F64040EBE721C001C8DD5EC035154065A9BDB4FD67897D83E10BB84F8DCD1AF87999C69B05EC3D938F788734FD5EABBE892084379694DC105B13238DF0B3323EC8DB77B13D4B29D45A7DE80974C5487D02B6C8DFB10251401B3A0359882AF018B16D76473EF42007AB12441B3F8C4F77E912B02B8587170F17D1E8E3E1309B3968E651B00CDF7678ECBF0E18A118094C50C0F88FB9370AE71567753ED3943539553B76DBF6F87E03890481F7A3107E2458055DE06D484712503AD074078B9EDB50F10EEB0736255ADAD7D142EAC0028908F893D80E4DDF1D4DB48B40",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4BB8FFB1B48005D3AD291584F6A9FC83C3573B5AE680AC0E5C66F7E2359B1A9059885F10BA1DEDC8883F2D0C8401476C57632116A9CAC2346928663BCB73D000059D068468183E4BA15184E02F37CD8D1429E1B2E2C1E346ECA5CECC2745C1D1F847190A0563721812FE58DBE8A0050308F1262485E673B9E36D3D07F6E4ED6FBF86809610BF5C8A13C645EA30045111FE0CF6CDDC028845EBEB4721083A0955FC17BA241453B11A20B3096634B7C45BC7EC6689BF050706758FA7600F1C19713B0A83875D8A687C740C3A1059CA63742D5E3DCC0540640C0DF6851929D6C099EB250BB7ECC9641B9DF22008EBE007A2DBAFC19719741DE27F19EEB8B5899D73",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("137883D209E0F7DA9F732F1C64F4E4EB060D077B750EE3C38D0437E400A17D091D117A7CA80E9CF74D394526F81A6C8DAD2F0B642BDC687538BAD0B3562FFF94A8DBB32D27081B743F07F099193471AB12F057EAE4723DDB45EC954C0CF2C33011380CD9DE665B8E397D58035DCC46F4E6BAAD62F460AF562B0C02BD6D39BA9502DA738B18803930DD6DA7A074860B400FC601303F3682CD1AADC8FFF4915DFC01740350E726F6C7B3D6A2A15FA32DB60F0AADAE2BE22BEB09680B0A200D526DFB91DC75D82B75DC02F0182486160AD612B92220700FC0F6CC419A1103EA10DCD61164BE5015CBDB1731D4860CC80430896F6E69BB73744105F0413BFF8EF48D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("782AD6DD85FFF7034347BC504312D9731B9F4D328D03513B175936F828281675011548B66CC15802F0F47786BA955DC60474A573D0304AE6596D13D00865D05058D8C424534D85BE98FFDDE008B908447E4BFE4E4AD9344DB3036BB7EEF72F4BEF2A1366C39D444904780EDDA817E88B118AAA02FF0111EB0B2AC42CE2AB1F7C1AB51560F8CA0856F68A682D0403BABC2B18A0787E2157E3041D834980ED01833E15B93AB60D07207FE39E415D6B0F6D8B6F383126C936BF33CA35100FBE0657461C50363C03369F3FC34BE25F5A830008E66A558D630C97DD30D56DE38E51FC1C6610E2A1781D1118BAEF6A03F143C7FA3528B28975080F5C3FDBCF846ADB3B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F30956D2B8280C76D45B375B7472CC30423D8672F14417D40A9E9CD4EA43C148B10FC96A40ACD4F4059FBF40A14321E83A507F70437FF3ABAA891D44AE0F86EF407DEE00F8851801FDE2EF8A1184D2A5BA1083584541FFA62FF86E112087932588EAC6B7655B6EEE52488D345289C1A9DE76FFC1E604AA8D9E3891803BEACB742CE9B8A12D4496253E8BFA3BC7DBBD55A2E05E8A92202008904658A0F4ED401376F541411C55D46EB4860300A09D2B72C17E1C6229BEC776EC50A3EF76DFF0AC0B44118DB62C3BBF300FA5A559A3269A767FBBA5EB554079FF47485C1CFAAC1449A108403DE75A368B2D0D56392C54DAC6DAEB391D0BC24DAB00EB028E36AA46",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5830E5C7A4F8BE3044046D9281DA0DEF84A6252155FE75104B1BE107F40B0925DC6AFD1407E2910BD8FC750FB76AC4B16519492DA4ECC0B664A2B41917040D1AA2D8A01C090365049EED6C2E3305120B0811B0415E78576C5933C0AAB4F4BD374217A3C5DCC35FA9264367A514326E5663F818309E220A1634C00B72F58732888405ECF3E097E27BA9F430F2C6850D20A53753A0DE74E3578D5560B60A3F3BC1771D8CA2B12DC4BC2A41FE9FB12A60D969CB42426C85DAF48A42FF84FB5F5B0D43FACFC5EC3583358D7A5239CE581082561D23FD43CD26FB1D561E56343C1DB892B123FC68C77AB7A58027675CCA8D8D724F68AA5A3911A816FA108A93B7CDDF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("940564889040EB1C1A027410A3F1DE9D205BEBE380A01C813CA382704300BFEB49154E87351A7572194AAA4BC879791BFB80C1208888491F1D6172137A770E0D6BB03920E920B04CDE705DDD4ABE5EC97950A4D3126AFDC2E4C60FCA2E597750A2A02196A00C04E453F6512E4114178379121F7209FB1C038A44AF11AE2980985721C52E5A74BF105BCBF075AAB7E8632E47B6A8203B02575160FB884363032D8031C16E955F8C093245FC3D86E7963070849CECFB57B82B6093FB052F3B4D1073290A7B8A09A2DF3A08590709F0C6000D407E4B14AD1EFC95292BCA6C83918AFD7CE2F83B9881EAE82BBCF42A0D0AD15BA12971FF3430835496F8090A74438B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("530117285BBBD97C0B09644573728A7054E36DB98B13815F5C5A7AA164745F6A1039E6754CDFAB4846562FD3B3D62E7A153FD0EBC78B4CD040A149C310D46DC299CB640BD1D0EBA768BE68972C9C24438C3D8642915938F6E2018E56C542201A0D44BF1305676B1C666CEB168210526C9FF01FFAA04D61BA9CF7C1A914E95953AB291D400E75F1630C7A50835E01908E2BC419F483C18CE8BE2BF5836EB132844D24A98E13A9A1D702FE137402EBCDD455AC9964926DC309FEFDFC50CF4E34C0CF49788F86F8F1B8202258087115A9BA5A4BC4FB056E6023F2E98D5C47EB24751025F66621A95813CF5C8E0811890B742F225A95C5B8BAEB08761D4861154C05",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("03D1565D80B6A03615112BD18562B30013D82600739BDB4651ED8B2335543D8E198A2A51808033603FF00C833A703D901281203F03F25D3D91844A3D933F03F23385373D8D82243D8FC9F3332086113D920A6A89B1C38A37886AB6D381FB3E56CC0A595EEB08FA5111E5E88AD72BA3E3800925025422B3EDE45DFF0EC92403D01504399710A02D13F5FE123FD01E20FD83E9EF56745AA7E001D468AC546BC0506315C875B5C55F732CA24A4C100A4D9A56CD6D8E626AC6B6603DB1AB98C5CAA08C1A1070CF932D360B2529C705A8B4D70860299C0A292846220CFF295144989BDB0FBA12060DBC436B748A38E1C509051BB8F45DE94097538D4E04376A31785B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("536C50D347C0C1BD462132599AB3521A100B0C330049960910342664F90A4124143518730B25D91036D0370B161CC9725943202A24846C13B22B28102CC93621CB2C2D30462E2C13B21C342F1C303221CB8438443C13B21CC94540464421CB842C474848B21CC9324C49504ACB842C13544B584C1CC932215C4D60842C13B24E644FC93221CB68386C392C13B21C703A743B3221CB84783C7CDBA308C93DD7273E4246BA2513843F4626646488408C412664E4C85290429464644246439828EC4846269C29A02A64EC92651FF8A41320E0CD049D81C669195668032DDE9235FE1641300BC7AE02B30213A7704F8BD42ACC81E96F0741061964080C101BEC6490",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1418360E20076490410624282C9041061930341C36171964383CD712401964B0414407484C6C90410650545882904106195C606441061964686C702619649074787CB6B9648B1DFE0D0A8488E4924B2E8C9094924B2EB9989CA0C037B9E4A4A87B2C364BB52A5ED9838C5557C1543CB7E33DB68438C03B72EB6E640B6A0E57CC5D55686810F29C2DF00F570FF00F6C10C65E81C90B3F100C50C8027F8358343BF35E743E546431E4926D0A686C5E647B1DF31D230568190947FC045150FBA1800E0E7B6CC26E480674238913FF70040CEFA119033D880D1012B1B3B1A14F013D0D568C1A6C64B00D6C08598A731B74A9468C5C6E880472B242A9ECF9B0F7AF12",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CC1EB1F67B63D047C5B0791731ED45945D62DC50AA3D51B02D612BFB4198506180AF3D2D034ED96691AA344F252208AC197A0608E05320BFA299E99CC7054BC3078257DDFF5D5BDF8CF115FAFF15563C307C113C397F0D2C30884B13758A2DE016283C3B14C1C516510531F68889BB085AEAB2F1EBE17A2151E0648876E0776CC9491E520153238F2522861D8906CD659125B661B50A0896702D89177B11391096A16791ED0B4447198B0845DCB32D72508C085447A358079A58D9D7EF245047B470998F584B66D1B0D5C443A2C1A453207F532347C2B1B015D67F8BD814812CCD610F0B14167CA621CB1817AF121C8CE61AB2185D12F4CB818D4486504A2451",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("20CB7220281A00F9862CDF441229190F2A03590E64542B5559BE4BB62C425640222D57CA4996032E52C62FBAC0B22D2F533289C35BE06A089469883B096C5AAA1198906039507C4A20D016E77D623DC4A17F42244C805A6022919803A801D4F15BB5680330C18B2823D0C1AF6944A8680F68041F50EE2BAA611DE4AE2C9850E4A0BEE3B10BA002344473EB2DD60A371A370C15B744B9C845FC36D645665946B64F745DF4086BFC628024C1932D5A7CDA68035E738804082F7C7945540D56519172D42BFF059DEB301EDC020F8726AA2F62095A22BDA3BF87F8BFFD2C385DE2742734E38A103AD3741E0FB6489DFCDBDBD6CA7F6F55531C11410D10EBF0404038",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("58E842D152FA538F5353DDB2A0A63CFC9E60CFA9B580BF0083F8668944048C1255806F418AF654809EE548F778025730F896F9189E8354B07C45F4189C36DF2CFF7C8831083ACB742870C93BF17F1604EEF66F58F08D4C710266C7BB80468EAA569CBD62F27EF192D25C34F0A716FB5A7C02A3785A207427188AC06BF1593D92CD7520A3121778F4A30DE662EE12CB10A218C31A64BB15B8EB4C17F0F45F6147C109FAEBD15A4CB852EC8DB982696EA37B20F6E1B977C9781D250612125F412B40FA04FF547F80634119F7C2F43C8B023A00BFBDF501752E0ACC263A6108250AE4741D0B2ADD2F1B3A4102751914116935226A4005CA5BFBBBAE1AEBFF45901B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C0D1E040C30B4301D6ED8E0147024244E94130E0139AAFB5CF02A86658335BD2CA56F5AD79C9C14A02EB8CCC4F88826D13565350005D6B415160674F330705EE22FE420FAB0424EBF32EC9FF905D8B8E97BF0614460FA373F28BD520EF93B105983F3A0AA0DEB0A5F3C0FF3B00010FF8AF2FEB6A8DA424FDC8C849F0C957200F3B592692201B231ACBDB27190E79FFEB0D04FEEB08FD1EAC09CAEB030C0C5F198A112D00E8823664D88803F16062EEEB05C33979903114011183C1E18D9993653427126AC7E96C0CA238586608C628A0D9966C000C088807C0547C1A85574D106B5283A25FA2D103C63BFE97E8521C06F1827801B31412ABE04BF083E2036372",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("29F3A589A2D704700869D7BA1C5E2060893372F40303C8BBE656DE178520681E8D1890079C68854DD73530045C038023D17DDCF652D48807BE8847010502562463CBD60859C6C75CCC96B16486B72B2501023B9BE45902A690234621AE3B90AF473F8CFF6FEC039AA669BAE407DCD4CCC4BC344DF36F8B448EE489448FE4E8E8ECD3344DD3ECF0F0F4F43FDE344DF8F8FCFC8D048D1C03F04DF71DC203F809FFF020032C40F63A007E114508E6909D0BE082CD06F911A3D66186840D0A2B8D792F1984B7677C39FC7F240DFDCAF0D96DE3FC77A06AF7D965393984E791EF8FF92B75DD2FF2A8692C90B80BD80300EB6E85CD0C6D033A6F034E584F56C2B0B7E4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B64B1FA306E4BB5DEE02EF02298C906C4978CB2724AB2D0330431BAFAE455A655B699AAEBB54065C03646C74CD089BA67C84976A971C1C344DD3341818141410D3344DD3100C0C08083B61214D04041FB0056E099BAEB803C8DC6A97B710664B70B5870F83911006B613B70160122379E06748403404B46222DDA19F81E0750AA316F3075CE5A20FA8729A10CD456D167A767BD0381E23B0FD0A1F086A400666A05C202A81A36E9DB577EB26DA80D4A11D38180D68D42346EA1DF2166818A11077D0DFFA60A40CD83FCB6438197416007E5D07470B340728C6EBA03A60EFB35F51EB141560643B16C5FE7E61213937FA81C69651B482EF56173BB42CF1894D7D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("97008FC750ABECDAE0118385184CC09F6BE42B55E8733E5E197405E0B5668D183D09DCA5BB558D48407804F818C3CA16DB7445E556511040C89BEB0E184032EE1A506802AA9E1DC8DC17966A0A4265CAFD6C98BEF211FD5FC3A462F7815D157C80FE56B94330D00C03C3992BC2C02596FA60D1B3349F3CF0FA2C554D03307899750A4AF537E0E24A8939EB0B7D064E7F4FD5ED067E5E013B457EBD25FF84B18A089C4C35690DFB4175E80340A3CC178B67A3D7115912FCC04029A1A0476ACC04A3C48EAF6B273B398E114D63771E16C1F246C067516D41F0520007138C821BD5D9FEED740904027404A807750753D843F421231E78633E593B71F8EF7D886A78",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("50A1657E662505F0053719454C70F733F94A9FCDBA2750BBF6BB02F07BCC2D74E8FBBF7FF2BC994A1ED80719CC23C303C745CD00F74B7843BE3C1766810D9FEF238CF0040389AB89CCEB6DF605153551EF161C64A1E30750D958C4853EDC4D231191AAD9D883440243FA16B3B708336023EBAC4B18E4ECF9D518F961A10D3001FB5744EC8B0C0223C83BC8AD68C2A36CC0D0750F56EF07D833425F4ADB31800DD995AF1DA1457BCF75570794D96DC8DE744F29A73B49EB2B29BD403E3642F63BC774392257673BF98DCBC0677415013BC0153AC68406430AF7D064C0444B419E019311325E29D8477286BCCA988563AB6F328E8C134E04595657095926B9CC02",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0101C253EC750B21467F773C20358CF00C3905093A172A0F2F100EE375400D37162050659C302013E3045892138684145E12D4A7768136713F9F70E87D05925261F34BF846D281F34052F31E435A81CDA0BC3CE87D0FB60162F4232BA32A26024331EE7FB921C0C19B312C688C315752AA9DB0271B688810752892C45A1BD4BAE70BC709B57A250B42040A8D3C0705A0FD339A8959816842B62AFD5166CA663B0854A83D09AFDC0F5372EDE106244F1FD48418960330808A7098ECCC04504F350742F8156D8DD2942A1D2456058559C0810A5F3304B463143BF077DB7BAA33005C6321948AB9A27A9B6C7B05FBC906072050F80E83BD7C1478B15280C9313AC0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("97F813E96A1A33F65FDA378B5D145DF42FD4E1D185C86BC92C8B8960F64D4021D86DCD28047305CBC2A4FAD2CE70F77ED4534C54E240048A9DDDDABE518D312B49745B49034D5BB87E3BB0743E042F8114F974DDEE5FB61C180E75C66BC02C058457EB3C098BF73D23DF80740A316C261F7C09CFF33CCF1C781270086476943B81614778CAAE8C6FF07821EA088B214BFF51F438589F10A9641EFF92629F37886F0681ED8A0A42843580F97DF9FFED617C0A04667F0580C1D9EB0D80F9417C08467F0380F105A001BAF10F0FBEC97689A8561136CEC3387ECDED4B2505395A7E612F7A7F74B15A202DE6D1240C536E8138F846472CF37489622BE1F979722D1D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D13700D00374082BD1A0759AAF6C85FA5657080610CAAE7B438E6DCA7406F3AB3A062370025E994A32DD898309E09BDEE33A7D134EC085760508013C0CA0DCC79B14B757556331077A2C83C0801304B4FE04668103118F2DDA41B13350BC4E8B1DFCF9006AFF8537200CD63DE83BEFA817C4F682557E2159013B6297DB2F205550FF3621371E57028A6704CE9D9100A0EDC6EE592A75B8969C7153C51234F5A1E8C50FC178DA5423FFD05604FBE0AA08141F14AD6EBA5588E141AA384D5AEE2FB820E08B483CCF028A481AFA210AFD880E8A401B88FF77B82C1213C1C607D0A27CCA68C74C46908DCC68CB1AC2CD36B27811086C057208ED5F5B717B662E35D4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EDA3907168E6E442A6A8D96708E1D0B7DEEF16D68D8D20389D055E8A01B5E285863CD13CD0042C2052B646B30BE975ED41173E9067975060000819EBFB8832B7496364FED8535FF6DA6B66044F125B05553FCDBE101A5042E9A1FC5905F7BBA159DF3E6A2C0D7D8C0C35E21D958030344F0E80393B283476236B19EB3BF2A825A87C087A9FD76B682A8246BDD218FFD9EA28AF1336FC64BC807DFC06145EB0A15939C0037A7117107700B1680010237640CFAE0510E1A3737436ED2EA8FB31E944A3C8750D6809508DEA0873668ED2E8C4A6705B2271D5DE0743190CA50CCDD45D4282DC6840F74C58186083037D4901AB1B10C1ED6C2ECB061432A30C284DC1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5D7B0D1CA03E042E7D9B8B4A47A11E8DABA1187E5A00C607883514722B500C78DB958233247207CD14EBE8042EE0104010EFFF6F20FA4A4110D4C6FC2B790CC1EF0F8BCF69C950D941D404026101442EA05A0B548B6C4FFB7FB7D04DFC92E6188B14318D1C318955F48B56FC05B410B456DF08EA89972A4A6F97757EC1A78D3F76BCB580FF036A3F5A8B4B043B4B4D0F20731EFEBFD415C380A3D3EB8D4C0204F7D3215CB84417BA0D220328812194218D9D7BB2D84AE0201E9CB8C40F2106A840293E59049C4D46D1FAE7FF0753088B5B4FA277D715E25A042D948B0852088917AE414D58D17F5D3A96EE1A7CB4F4B4EB2B5F11C1FB0447C037D51A4A4B5E3B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DE76867CF7735B4D15D143383BD611D63BDA7463F2B27515E671BD714083FB12BB7FE41CBECBD3EEF7D62174B94C03B12CB6C0DF269931EB1F28E01E1C583BDF6CB4B71F06444A6DD611D408004E0BAB443B5596494ECE90456B140B5DF4BF74C20D2311ED8B6B5CD104BCADB9E6B6935E31282E370583E1B295088E4E608A1F50B06DEC7E884D0FFEC1880B7325A70F400EDB25EC925F7509196D44AD09E12D61EC18EB292410662555C6D8235D0FBAEA8D84B8091214B73680B406B730FC8F310ABAF3FF08A3A17DEE7818549D0D08BF8B35143D88E06FC1E10F03480CBB1F6B5034016653C91FF61E2C36325B0950080E399BBD5B1D40D3A4886C240FE46F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3FBBFE48430A48108079117509836004FEB6E916718378B769531B700C5A8441D0BD12091043A8E8718CF58B15F30522B6F098C2C828231502B8C54C11AB8D48C0BA205C7CFEAC28AD0D81E02BF52F1C2276A3808B14A9142E5221F4E8BD42AF0D1DDA77A5809D2814633065578D3CDA606BBD822C225E1794F056046C6022ED0446D42814F5207D0EEB0A0CB4F6171475F4EBEB90D06C83DC2D0FD3E80E8CA16737DD8078D83BDF6F7319228B3B23FA12156F2B23FE0BCE83C3143BF2FDEE26180872E70775798BDA3BD82615BB953013052A197559249D735CA073AF7B083F1337EB9CBD439EED260D1B2FEE03C526C2446D33928D6ABF3B1C7414530EE459",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5B9067050DEA8B4310C7BF6DEDB675EF2E891DA5148B16FAC755FC2D31EC47F58B8C90C4659044886A653B6BDF12701155DD5AE38223750E440B020B81ABB62A5091AB7715E55AC51C6BFE23394A344AF40BD774E911974040B715B260484C57CE01D01DAC38666A20645F4DB7DDBFB905D1E147EBF78B2054F9430A2B1EF192E95F6A2EC5FE044E83FE3F7EE6C74B6715C4F73E4A214AC7490B2F6183FF842B00CFE8FEE6DA88943852F3EC235C8844895A804CEF03FE0F7538793921B1256D3592C94F142BAE75C568959E85192936910AC10A982C85B17757716B68027A04D5897904751F59DA360C080808BF94F48B7CF1B6772B37F1897A288951210508",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6E96A5C19D64BF06FE0B7D296C732F95C1960B00881162BFB0DD76C97ECED3EF093B0A8F097CAEEB2F6F17FB80280D8D4EE020297B04B1D1C172B1BCAD16850937A5A2BA68450A0B676DEF724B00FCB2E275F003D12201762B60F81232FC9FD0218D790F45EA7EFC3E751A3B1DEC75124B3BA1125D0C5E8B6F1189A21E9C14E9420408020D6D1B4539285740302757A65B5C89506F6D18301410A8577F1E580C6650889AC83D3335C52F0A68C4CF084530857E0F3E8D3481F33389462E3CF828E82A6A04D368B014103355754D18481BD52F147957F9B7D652A30A7C4E21C5897E55B4D84224056241889589A84AAFA8E2C60631E0DA71C8410846B3A3D5A8C2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4FE043C3371563EBE369C0815AF830826C41B7CAF6894004804A2BD1BA351EFB85C1E7DC0E8B556DC86710800044FB8DFA832C6EDA8D97007047FA773C8D477777777C6948F28388EC0FF48D88FC06C740FCD0623398F0420EEFA2F43EF70663C780E810140556E00D03BF2CF03BCA76C772830C05F82800EE29175F26D1DBCBD616990C088F41649E4442BC77DDF8879EE38A46438AC80B84C07A884E430F066F44317804BA99EAF7D2EEB25A812167D8B40CFCADB6AF1150FF7D0BD76AF41275E2172B51E92FC1EA0FC1F429A984824FFC493B5C2B7AA90E745C39C8A40F8E5F11A21E08DF01AB15A96EC503D9178F452CEC16369DF03F8D76064E59078B5F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("242D2F4B325F4883F91F53C933B2C4F8F101902B4B8CCCC0241721F4904BAF3B244F08528908647F05EDA538102BCE017B6FA2994F568EAA0955C1FF044F4123B16D443117FFFA5FB5D8D6362B1CFBC0CB5B3F08966559A2054B4B594B5969966559595C07FF13904996E5072113CF78CFB646E5B8BA11EB25205C6C489A474F84B9163EB9380CF210999C443216EA2C99428601D9463BA2D696714210143A71CD2D0E3F026D71D00F8D3A51DE66BA35B92959A34B365C33A4B34E977BB512E810EB7617D45082B68A856E850AC3DEFC1B18216BC26692974F4783FECE7406795C72091D0E6B4E06CB434B2076767977716D5D17237785088E037289C36525AC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0575ED7B581A84CC876A4B04FA5C999187C9ED0F61060FE7928665E26139CE9287649D0FE5617958D8B1644EDB89034B188F156180F7B93DF8685B8E08579DF8C2BED448EABBE80BEB1D6820205AD6E9E157F2840C722DD06FAA47F55D4029D588AC66688F2E1928270206A3807653571922B8684B50F15B051E71F64A119B43B4B6C0110D0BF8DDDCEC05BC1CA307EB15ECBE42B45E08BA6B088B29F82D603387678D8E91156A019B19143DE500BDB52DEA7ECA46A0EDB9F10B45F14FC083FD100F9D24D14FC5AFED4A458918489381FDEFE34410848853D744BD01E2B98CF8731B800114B60E82754780FC9AE856D204F026C7B4EBDCE66BAC0B09EB27BD6A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BF14084910DF81FEAB7489C162400C7D5C3022DA33036E323935581BEC752E83C0A30942200F8FB6AE814747891906A59185036BA9515E900DE52162028A78688EC524B683ECFF2C30BE10F5DB2E187C67F03F563FB975398DD0C6A8C44C03DE795002BBA898845C830F46785518E20DECB46303A2D0D863C7863BA715BF17A2FF570D81EB2F83EF0A6DBC2E8F7DB2224F8BE26C710B006B7918DB26E1172F045441205AE60C4251A0C66CE4FAEF073063850A19AC9053A47482B6278A0A068F7BFF17B8BDC969BAF5C5CA3B4376055550AA6E0414720D1B5B2CB4F1375CA8503156BADC41DB1C2BC4E6DC12F272201F08583049D80EF1C866EA6D0705262BC1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0E2BC25E050B048D4715087430204E23E52B482F2F04B057F9E4C8188B0FB611066761A9010921103846AF41A1C7041651E1FABF2DE81C650520B010B16F59814384085D5E9BECB1B9716856B3E09F007E08448BC8B069185F9F0580B64554187A9CEF6029AA0C04F9EF733A8B0FD40B7C17CD3BCB7C1A3965761553BD1A098E2676D59A7508C76630BB1683C741B03772C85D727542054693A77E18D102341CD484417302367ABF5A073BC37C194C5C50BDD64DF6134E264B813B447B760BC252BB72D245363BB6B1460D1C74150A74980C119D76ED291F89B80F76D069E0D66A347B7F32CA050C008E44D436AB3F6D61EBE85B548F0D1D0C43F4C3282CCBF6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2BF783EEDFFEE6770150A863A164110110365C4380C3EA1FA5EFD2E1CE3094D2005656B8B1A30226D218B8008E4CAF88F2835EA6994A4B7CB8D2597EB2B70E6F23BD0E8088F464500C50FCBA988309879B9B11C7419C1DD23957175A690675D642C46B507528E836D1A2086ABB6D397B051CEBF20D170A276EEE89470CC03F1308291E0B06DA03295D8765863D3C0BB620A13429742916E9ED020E885918541908756C7FC3D1B1752BD35321D32950188D8152C48C7A33654968806962F35566D5782DD0095899188C417DD570A70157217CFB851B928817A5730701112946EB09836187A5566AFC165E1B4771000CD4A87740D362AB0A95BC9604736E5A20D8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("701819303B58015E56E80EA2510443463F51D041ABF0734E3B4CF721EB126F4174B60C210F82998EDEC66E0FC3EB059FF303417573BD8D716CD5B617F0F7737E7A16339476CFDD03500240515E015825BB6A25CA4340AD2BB1092BE0E5EC6DAB195498713188107B2BA02B74362C132945687D29BAF07234EFEBAE0803F0EBA71E5873B23716C241D08816522B5E805B6BC90F7B783A302C842320E356C354508A4EAD41A25221C73FC01DBFF00B147C917CC7187612A0142BC88802FB8381126C4FE0EB60736513B43DC29BD2028D8353F07755D0112B4CC406AA0A1CBCED6FED6DF40B75428A22348B033BD0772B216F7D7BD876272B73147E893338066540",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("803CD27C4B85065E4643AA6343C4AA70ED032B756888F9053073A3A82DC831CA75E40218A1F00B5002B80B3E753E8DA7262AB51010565E7CD7C1C902332004011D1B144B71B618C05D1C8E787F9CBDCEF20258A343A314DC2D55A61C4905A184637618F4D2149450331FFB8157B479D9B2BC395D1819416D4645FE8D1D21629BC141209E0840A33A44740018B01DAE1D2D8596634E8D3C8976AFB8145024FC8FC08BF43C0CDA2D52DC57CCD3EB0BA0B9004CCD56D48052D42AB00536BB55148F68E0565F1CA2E85CB25552111485F861F685EDE48D65CC426670380B260D48D11C801A081083AA28D03C41AEBC02E4D162F780C7D67ABF0E4910830495097A41",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3495AA59A1060213ADA2DD7D0A0613C1022ACE567F818E826C35676B0CF6C2827534A045500308575B4F108D9625F989783C7FA1E69FBD3CCFEB05BF8A475F80E18280F955606B6F2D0680CE763881396DB5D64C14C13C441C74AF161BB504C505C70F4AB122DC12564867B362D384062552071009C310310B4978041EF4FA6244EA680370B21571288B6B1B12C157204B82C77ADF8E592EF0618C1A80420E3600E0FDFFC646050AA12381050B87A2B149E2BB4D28043888305F76A2EAD174C594D50BADA805CEB90F689AB5682FBD084A7D2E7C02761F2248E6FE637D52BF044C8F78B7887CFA3883988D8818062482AD9218F30F3580B12789C17CE4EA8895",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A09E497CBB570987D2AE880D7E46506D6DF8A8E0368A4DBD2E2D750BA9C618D4A5C8BA1E52998B431644EF8B0B9415C4165D2F889247A5CF1A7F6FFE7CBA51EC3CD8FFC6D5A0D0E2D8754D2400937784DB0BBCF658EB88C34865C0F558C93E016A58E0F07417576685D32F880CFB893E29C21A2A16AA4E6D0F120A427FB7E50A9E0405804383FB037C9B026202D1C80024BF22181085C634522B608B4E0CBCB890102AB60A777E43A8F840D2775868F841B0831A203B05E72E50C5F7C920D5754CEB1F7F1A3A5B7242D512203F10248C168E08ECD355837472241B0664819169AB088B384D96E02F88D056EBEC55F5A4886DA3C303935E5428D4BEE4442FF640",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C36A77F56C8A4B34D60174147C17BF08D06323FF34B0770C5983F50629E224B0004BBC5F1A950A0EDF7A674751CC20ADCF500B4428E391D89A4434A8CDADD7C446FD25F20A4238D974D16351DE88F849EAED0BD85707E3105640F520DE088B0ABF61417C29B8DE33CB3FF983F1FF61A844DC6ACF33C6E96ECF6FA9066B89250674D301825F156AED9B3B75C4E31D14A51E3B42FC38D85506F11B44F7EF38DC7427FBA6E95AC4E7371215DCE79EB59B06D4EB962DB142FE37069C84CE49FDFC7ADC908DA215F17DEED7D1A5FE5DE98A073C61741A3C72673C777FEB8E0513B901C3EB20C983CE01EB08AAD8D8DCB909120902015A223E182429E32AD3D0F6C6B1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3B0FBE8AF8547F3E6005BEBCBDB52B7445041974360E741C487C6060B691ACFC08A335F4818CFD83C920EBB7148E10EBA269A3BCBD2C40757D0940EB98387324E09B8A60FEA9C90281CE806DE07FFDD682B86E85C875590BC8087E8C605B0AB86562742D2E070BA2B5812BA9B2409700DE625FAE3B80CD401E63F8752EB2054793CAEA83FF168B9D3A6417CEBD163A2DD620A274550B410006DC918068A424CD5351EA1904A7EE1DA80387A162CB7DB6F776B4D1157405987070E158B5D5B62D6A180408021C5A10B38A1E2786154CA66E8DF16F2F3BD5577E5D8B1D9DFB4B3BCD02801D17BBF6419E0A40A05FFA7FD37CECEB3F8B3483EB24056A20C1E70231",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("424590357C0F16101B9DD53CB4FDA6FB026E8BD3F5EFC7FF896E040250B56D650C762E041C60402A88F9963D52C166AB85D0E21F98236D151CD108251299F920B2C45950602C967CE050350538124A9A7D09A9B05653574B60155C717373DF5EB54E9366315671441426809745EB4F1E13A2765FAB1C798CE19035A13A647C095083A556E06F950780643004FDE8044A261C215466C384076042A4283591F446D088C099E1490C088DDC3168F7A7EB110CBFA83DE8DC41141812021F0960402874838034721756810147CE8A90C1622B1040E8D8D3114C8E1CBFF4110B13754657573EE5265B8C016657EB3467B1FC16B21D23EB2253ED57AF9D822C3083E61F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("378B3FAA02EE147E10E3DFC0BB157083AF599214A11D40E8C5F65F1D161C680333B2A1594802831BD3A1599BE47D2020732E02894E066424208B8F17452A78E43BDF97358BED4268041B06C441DCEEC6DA61F1EB13FFFF26118BACA1ADD638678C6661DC61CC75C9DA2157F44DEC1A0D1A8759A50A45615BDB7FA9D8727432F6450D0474403E1C5DB28D6C763BD57F1EDA32240F99AD48D28F41C817B2052B4EB336DCAC9564E4895DE012FEB29DB2EE5D7DDF74B45664E467749C4AB456CD8FB34803E53A66B8CD8C28682094D5FCE0BA80C1884B7187C6F88F071171164D85D2568D4A006020D8EA0D5D96E89AB80DF14944F30C5EC52B139AD0E61E83C2EE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AE848A0F154A74776542C55350B60B6943C50C7763B0E160718B8D20BF521585F871560238226709BB3E0C82EDDE9053B1077513A3525488FADD154681A1ED580518A04DBA54DBF63F895E097E123EAF668141837217CA02115BC90B7E283ADE265674220AA2D152852710CA852E140989800DEEC782859EAA18D86649597091CDF608214007501244D51197B4B88F4E0BFA025E3B61AE0D8557DB512EDDFC83CB323032252D00175198EF86F8C88905B855A17556AF59D0D2224BB95D7A68082033BC556F8402A4A1121DB8BF6B92056BC03C66392D4E098AA3BF00F0BE20451551A4F16BF63C03CAFD75B1C61322A2141BA1B0065BB460212712CCE289D71A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B8633FA32807D9890F28F1E8B5050D47140577847FCB50556A3FBFDD35AC18E9154D88BA0C40575C466F6B77B411396C2BE4A11D19C5CE1AC13F950A2044949091ED3E39B06035B73DD3D23F3DE735099A03547C9A41A487116BB28267DF2616B4B11150912C9E3B45FE911AAF04018B6856148888F7452BA31B664FA046A2569A0356C30E28760A13A405686C25DAC41473D96E2D61B79E155C41465FC2B330EE69C9AA0E4F11940D40EA128D05642BB2E67C07DB1201056C5FEF303A9F03C3EC754E462D43952603C873D9B0C82E2AF3232107832C27C73CB856C06CD918FFC3928CB5389033B8B098343CF709E2B56BB01D3010237A6B6870C4B3EA360B88",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("77C0F635361A718BFB3B82180C07237C16CCC87E023D0027CCB3ED3E15830DAE0C516614A0334877B60EAC07AAA8F90E5D815D09A4CB1AA6C31A7C06A2505391133E4474B357142550E588C34DF7DD8A1E5A8FBB2C614C50CF20837511580756547533C8F7BA2809503C1A524E172BB5A2B5E34E47F5063B6CEB421E571F5720DB4053B098DDD302596A0493DB6AB0597D116A2F0A434B85D203588B590D51CC7489029A894E1A7D1E4023B845848CBF9A7AFB75106AB707CA7E13C87D1A556EB7879CC3097CF6117FF28E0698AF352995690347FF0A159E050669C0E82A0B0B01341BBBC96BC0DF2F203061EBC10ED08C11B43D9C0CEFF401081050AA0E7CA5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F91A13BF183651003FD7E378A4A50C38B862DEB096F0075C70A048AA0D34069D26D15DB37157843FF57C1F817F914ADF80BC4F88D843A259CE9BA6DF01DDD45185F3B55270E8A072B86BD509776451C9BF9EB0A0D7020BE3578741805753849FF6EFB2E93B6D4600607085D3BCE7E2083E907EBD8A582BB1B88F6C303160C85804081FEDC07087E034D2056EFD030B16D2B23A636EFDB6C6CD64528B70B2CFC0830BC2463BFA3F8EB552ACC057E097B54F22A65790DE83CF62D6A5C2605490CEB11BACC620BE402714112454119A009283C43D5AD98918381EB75A854612134468C5239A073016FFB8A562B113B523B34BDBD79D54569A9E806BB7EE8B51231",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("52F4C32586A2113C007BF93A445DAA5876F8305DF0DA87174AD4428D0C409145E40848EF5622FFB64D18059D5050E2C24F062001DF834ADCBA468D8CA981554EBEAC0A136E20140226A40A07F5741784EB660A2A45D4153BE12070BCF808FF0A47AA19CBDD0FAF8E5D45C7028E85FFB0DFB0442148BD978A14A2396867E27415B28F1BBCA0016F1462AB817F412BDCE108B968D2223BD8E289DB524472C5F857AD36776DF429B7297E7A3E2C2BDF0103F85B112B463B5D1472465A8A1E469004757999884A3CC5070C049DEDAD6B402BFAEB42FBFB888025D67B0198772BDE622B17C7723E23EB29AE1805A50DB6BE78079BFBFE80482EFF45A44BA5597F5C44",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BD78A7763CD0AC9A898630026C570A178B2465C72B748A85407D0CEBE7CC8F02670564D66B4111772FBEFD4F8A450CFD09473807740438FC5FC9478D5941B115FF0AFEC3E3B840BE82C008423DA88B4DEAED1BB183F913721D042477181CC0EBDE0E0F3404D5442AA310DB8E28007B47721207CA73B639332508760A3116F515D489AF263D82564F3F080F8386A8C76E364BA50C54E73069579081AA4974CA586B89683995167A16A1F2D8C26AD2E81F593BC5462627935572880AB58D35D524F7ED1D1F585906D96A3BF11DED0555155CA5B02881EC8085272931741DA81419D06F11247DDE660CF7FB3346D46CD10B06FE085E565CE2D23C50A2430545F2F5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4C8E52050F5E97995EAA9368C13D1E5C598A8A8DDE8C01EBE845BDA90C51CB93421C7764235C80B7098B3D41D8BEC5FE381F7439555739CD5945803F492271993BA157C3802E570D8581E8AAE44803C3A2DEB7FD3775C95DFF8446C8A6A87E0B891E174CA2E0954D82B8BDBEBCEEC917E1038656A1481F538BD86CA2FC8BFE481FCFC117548D00FC189FD65443D18E9A704DD288D4E9BA8A1A78F3A108165D1B362F272486865B17C4B035C5485AE426B95F54E5A3E006D429AAE4DA4C1838D939C59E0A4075DFC7B511EDA03232E3893700F046CD1314F7227544231594BEA34080FA22C3D3D2AA314844D00C39BD50E4A8C72716464046C78E8C0BD5EBCE0C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0480798B8CDDDE46401CEB431E0504FBB7E46D4044DAF6831918881E4665E2E5ADB920740909080975CC75034846A53AD63E4A66FFC9CC6BE5A3801FE0442BC60C11EF05270217C88D050666BC1F14D65050384BE10885C057083650044098922C0D0585AA65C65618D4DA4253E978518DE31D34C4B6110403370862D2B7AE8A6818558905D1EBBF4BC506D14BEC0E4388C606AE3580DA5C46B1CF80A736DF86834AA8550A8A3F743AC0BA96A9D1632819E2209C3061061F1B0F4061173437031501F48F86300BB8AF0D0F0E54C781271C10AE136E90B3E286A83749A1C090718B2D4435079D8AB5BCC0A2AEB6124B04D5CCF32DAAEF190421EDEB4674452F8A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("40EFBBEAB901E6AC1B025E912BA8661DE581430C3FB7DB4DBD69841E8BC6EB4040081875F854E9B3F906F22BC62F67D1F8829AABDA8E405703C95BC5A6D3FFD78AEB74324D14DBC8C3231C5575241251577325212F0EFFCE54D569273503AD097EB6569E3CC3EB530A4CA5556A257385B19360FDDB16A2BE60387BFB04F62BC7407A0196B46A55CE68F6EB0B6CC3825ABA56CE3D38A08F0EF5C6846759F689A0932755409CA11CD186C7880BB02C5D518BE50C203E464EF7410406314439021874C7D181885F4589021A6EC17FF5AA8B1F6AFE68A4A136FF354F413059003358EF2E1B6C2F7079FE2E3BF174288D343504708B7687B389EB4803A015BC177CB3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("04F338FDB67DDB2DB37D92F95408EBC3648F0504B743EE43B9AEB2648B1494E0FD0A81790468E060F75ABF45520C395108339B8A51BB4C042BF4322408AE44DF68080B43E76B0C595B58FC37284C93564332305843303074DBE428DE08FACED0F740E422620514A5E672159C0B18313E40F45DB621737B08C1615BFB97ADA9B18F744556558D6B10A80B5D47EE25BA5E410BB633783C25A35BC6BAED9180B3041D560CC208360693AD8131DE8FBC16CE75DB8F550C3B08301AD7D6825CF58FEBA1F71DC99BECD720175C6AFF3F5D16D1D0861094BC3B8B76C96E2FB9411C5003185024E1A1545047E9213901B0542AA8700F120D2168FC3E2715757CE1A1C4E2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("597DFFC5A4A86115F10055087211BBCE9B9BB81CB88B8710740B413D488C5B789BD8B6F11E3B961A261C2AC58262986C231D0308D2700D1681FA5004AAED750BF1F29B406318576AD13014551EAC1317083542B741359B001243BD07D95DC4800F973C7629192A9D9DC1508BF80D835D51D7162886F8594157219BDB0924105560FFE83464B0B1B310570CDC1DE46836733FDCFFB6BCD3161164B0560A0EA927BC86A85D1DAAA7A85FEB5F124D55B18D30D536522E62D16E086AF4AF035D90A09A985E87E50241138A0AB2982C51205ADA24BFF955B7372E797739118808581A8D4D2243A9A0F9AE162908078785A2A013A02284898F67310293FC3A0D292A26",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2380266F53594E16803E14100C00DD3AD3AE05C20BEB50007A653B3E195415AE0BE8423EC83C91049CFB04A0103B0C77080728E9B6A62D752BE01B11140708BA41B1857CDA6DDA0039E871004C37C1056D985E504F19B0787BB7888B29536817CE7D80FF09139581424A971200CDB3AC4C144DBB0AD9AB4E5E53B821D7600434AA6059F000160C5C3A5DA82A50B5A0C9156A542C506D7D890839181013B85A075752B26F58512D40F11E5DF8709074EB6B5775D981BECC4ED682321D3C60AB396A8311AABBBDEF147C42400B99DF8A1E7EA9A8011DA2C3932E6A93A2060F2B14FF970F007004168A07B10AF6E902C32C6AF702D13046E381FED45B7CBD488E40",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C70F96696D483606D0C19BA133C0C756454E7204574A0110A8ABEA439D1746CF2DA09740E398AC1D454B368001497DC85931334D2D131808B4CD8AD35EEB4135E148A03ED4658A23811ECB49D4D0CCB6CD966AD441A964A1BE01D66CD468C287446064C5278D443602F6165634A290F29326602BEF553EC769834D51713C09721F74E16A45690ECC1833019380D76AD87450B68E683B18197EDF19073E801AA8D406A6CA143AD14CF5AC911E328D15A50490C90A60FAF6A3B93F7D068A6A0AEB05C7ABEAAA866482EB600CF0005792E7A256883098FFDBA41E157685FEC6012D41F7DE4E0A8BF9C7625B3830AED446DA08420B0D820C6A76BC708B6FEDC35720",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0430881941FD77DA6A44C5568C49055ED5DFD839115149473BF972F280AA0524004F79763CB0A985057C9B78D63BB08836021670FFB52EA18AFFB76A8A274738C474F22C413C1AED27ECC6826FC1AD86E00E38E045FA46FD74D21AC01CFFF9EB34B8FFCCA5CAF28C3F271FD87162E74210D22B4B090720B6EA073865DAC209801300A3DF28165A0361C995FE017B742A369A43B741B35AB620DDA59B0043260AE42F7421671D6BBAFFB74663FC720638DC770202E638F809D8C6B777770D7E75094975D79BC04BB9FF007244F7ABBD12C5D9EB679F9BF8D8F6855A9C570BDB741F3F51A00AF1B9061A41D5BC054039DBAA09410282140C98541EE193DC929FDF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("076A080EE2DB9311405047EBD2153743452F00742D8BEE490E6BAF502B710F8E430CACB387B949400BA13C701C7F4BDDEA0D809B8D25D030EBCF837580ADB5FD429C8CD8F66072849C1A6030F4F5BF1A32D8AD015F754057B815500D426DA078461550843DC1BA64FB1FEB231CC04C1CC364A347E6EFD89908E5A801437E7285A2D6C069E6431C14911F42C51A9C1CA1D8903260CDA21B34534C22E88A789D7FCD9D6B600975E399A60952578B509B199803199E51B145312E897E87DAFAAC4A3AF77F41D0C4B3BA724804F451A12C05F8DB9741C40272221ECA385DCA741A74C11D4B04E713628A093ADDE2A9BFAD043ACA76AD400CE613EBA59C0C32F6BD31",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("30A59D9626EA32B218080F866E5528756334E27E9C9C5ED488210DDA093830EA5F4DAECFEE5DFC03C02F5C430A2E162F966BAEA8B3E514990C3BEE8B506693825B575A09ED89CE8B3577797148818687B373D679E02A615C427E2494EAFC897DD8359A1879DB33FFE0232D1AF5268C9A4B9A161639AB0C180150D2B4A078D02B51517EAB676DE588183DC626DE535BA34AF1F75958C71274856EAFA03BAD7D385EED70A29AFB94C33B05F00D5CCBD6C06B00DC1B82544379AABAC00C52393DDA11966A483C743E8E878513AA9289FF26A7ACD1EC673874DF8938331F1AAF6B7906F4C42B453D27AC82670D1F569D9F18FED05A10707C437A5FB1C05D114DFF34",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B7F7B7DA82FA26DF140BF646B500F82AC8EBB8C087E2102C173560ED4DF1032A3CEB35B704B7EB323DA70B4BDB757A4B7D8DDE7DB5087A2BC742B25727CA402D57AA62A5FE0CB08364B06FB02C7234FBD1468AACBDA85C81D99276175ADD6E31FD76592B635903536F407489E740F755F7D3233173C08ED86E1554ACAB050180631E9DF81C32007D50382D89AB6A4655BEACDE105BEDD46C1B4E3818D542B0D81E261AC035E8DDBA16D7662B053B547AB5807D50C30FFAE322A21198DF8B515F68E8F5C3198D17740A8B1058280A07E1CBF6EC50AD1507F5016CC5D232A2B5DF15A71F3E45C0DFD983C39BAD6A4AB56BC48906D97BEBE94526DA810201570354",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4E1854D79FEECA4074420E530A00A0C0299FB1A125B0D16C52FC7454859A23A40808057A416E431013FB2D356BDB56A801EAD3050D2B0A176657019C12B52D8C8C3E3E3656978308240F8F7A661042D0AD8127242E30740417D8A8E6100A320F788D3C58B6103D6312081F793902632D5CA12E28081F041C6FA32D75ACE94663BD8B557024A0BF03EBBC48A0500469F0D6BE40343BCB83E93070EB357FC81E0B572A668B047023C74AADA0271066AD95F81075546C33378836955EA02B15ED0835F4721467E2D0888683B5046103002DC32103F1021D1F1565F8B11846A005958A530B09068006A2F0AA108D60FBD01EE51E81EB4D14041688D6015831CE75B4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("820A9796E102052A5A0ADA149B77094E2C5581DE08187627F6FE2D5BCD9C7122417EF8114ACC02CA598D42ABE85AA904135C05AA8D566AAE022F47A23A7D80A1F60447F8DF028150547271BBF5E316E180C5718A11DE8D826FC428698A71018F2B788BEE4F8BF719140D4638D0026D145FE10B830A0AADF5FFBF16B03D5FC110F075EB8D7EFF8A6102842D0A05E5E47428E1B9802B50C175C41B315BAE54B5DD669D104AEB68AADAB5B12F348AC29192A2DF82DBECFF0C16C705513DE06EC19DFB8552811EB28E2D5BE8B1A783011773EC2BEEC40C82566A7B8BE18BCC40E9B40472888CEFF8B3BAE5C8E710B308B48CB320044C176014EC0370B3EFF842C801",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("90B3F8B3A6E9BAC13FEF06DC03D4CC51B0699AC4BCB4ACB3BE114280EF09FFF0109051B0E9031C30B4EF11F2900390B540B5B0EB7EE798B42C90A80BC803F0B402798551EF90B5060B851C90B55B44699AA6EB064C03545C646C0146C1A67487B5EFA6EB4E081FA005A803B8580046C1CCB5EFD40D4510F275573B350AD511237AC566C675463179A17BC1E603330DBC506953A404F6C2BC9EAE72F532A833E5AB6DA3F68BCF7467177662044824B6B600788A40053216DD1008134138342D4502FA33F4C64430050A824D400FA216DD7E6858301204213A7124D442F56A05593515704B75C5A87C02A78AF826104FAA6DB3A7D2AB7809A0C5174C5C0155F85F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("40AE88B9758036D148147E85883F0ACB7D81254E0C840224FB88F720B4528392034CE3644728DA0C17EECB548A00D63A52C13C1A3A3C0DD3B576F06BAD8A135A95496D7318FB6507EF214080380AD445105EC6070D47443B6F6EB6EB73CB2BD4FF6A01D0007493010A0947BE10A376BE7441BD1F138A45FFAAF0BF6B17468B0B4788443105EB293B47E8B6DDAAFB7DFF6305160AEB41B368E52366B4DC6BF00E1B19E977BFD004B5E1928E47E710DA0577D75D74F306A840E4DF062B462CA0038579D71B6207002BBA6A4026B86440FFA71C01628356012D7380AA305217CFE40C57E845C1ADB5A5E0C6B4F1A265FFA168D02CF4ECB889148B5C7DFB11F6C57D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("083905F47A0252002F7C4DFF806A8FC15E23FB41685BA11DED2102CD88DA419E161DAA844670F259EB2BC0C40840EB078079797BC16DE91074260420741830740AC1ED125B61BB3FF0EB4945F0A83DDD43240C0801039A805EBEAD53078E0423CABF6D7C837E40C87F35D1CB742A3B981DAE916B0406334607C866E8A003456E3A47F8154C3CDD3708042E9E862B325DD32A051A0706B9603CDDAE0EACA84A260507CADBD5C78E49BE8062C7E20DCCD3AB3094B8F7D1237637B0E082B6C28FB4813A8F6DDFDE0FF601F6C4CD020BF7A8CE081408EB0A7209C6B6A811060B100C331321942AC4CF1E53B5CD44C53718713EE69B118BC811469DE3C9A2C0164D74",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1256704C8AE064C81B103E4090667720B8AAA20FE64780904DFF40EB09A6081575FC440233A8598E591EA128B51DCBEE5788450BE34240285AF20B48A42C5B5CBA047578577474410C6E45904B001CFF53F17DC110C68D750E813DBB8367966E7F884DEB3F36130016132846D5BDA015A3161B03F875C01A93F015AE61D42D602E1A12E34F1E00D8159F0C8C6A1DEB1914A5CD61D76679089B201E912F9A4C300420CF35D09F93B5904268A836935C764B0D428967AB580B689C54BC06E81657D2A329DCEFD906E68C10687807A3E4146C80D7DD0CA3E806A10B97FFD0D15B700105FFA11586398AF7DE531149031CA15E09B24D01EBF8C68A932A1485C33FB8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0639194214EC2E155B6128AE1C6071B0469B360CE8124CE00964E4582FA800EC58F16C7839E7AC3A7F2B49302C580030D1C08A8DB25D1B3320C51961E0AFF603DB808D5E339B564044A370516117116D2F589984EB562919039672BAD0FC1C250D12C8F0F63BC6982D64B9565656126464904912B3F002CF8DE28D2689AD5886082D203475164C3B59B07D1816C6748E75430F082518D418F633FF5812CC23FE743859A52517DA36246114571A5656298425D057381D12311815461E6208F50306FC0B567B460087222D49FC8C000647610F8CAFA80841F17A66680A76A54DF8AE5EB5FB9293111F0E7D28F502533302B81020E00246046006906B0E6104D062",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("443D4500E7A38047FCC08B684647E680C791114BA9AD684600234C14BA820827596C645600E62C1AFB1D87158ADE4652A390C804012E2C472C190A8008B325E4D917EB0214D60F04B8001E486F43D116AB68564CF098C553752209C753DB0A2615A1890C92B6146C15377D0250293649C16BC1A30849C66A45301870EF0580640425E8FB36B859ADD6BB4D62407D23E86606BD1091538859C050C4BFBF84D85C151113034E04CB9A286D154494EC5B56843D08CF121285126744D0E825553D3CFE735A6D8B2F0C3F8D54C11D4C034EBF7745123E8AC1BEEB25800BED52042E042BE17F50F48788DA817C0A7E1180C98063A9740395880A669604C66C610D9644",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B7B17770EF0B7BC3CC00FF2548D18AB47DD120AA6204C5A482C10012E10B971D40CCE144CF29D43ACE0260B059347C6C1C36682F377C24080424FE389850D8E464E95108801149C1AFA058AD392D5217D51DBD57747A8B534CBC742A06EB4E615356E155E0883E5B8DEB8F689D504B37C1488B3DC24D7475F05555DD55D3D762F50E568A16C4E944E8599CE3DD0A211D561FF8202AB269EBD10E0955AFB5E7A449C0AB4FC3ACC2457D51E9537E97824DB7A17521B18BD0227F8AE8E50C880A147AE9208860098AA5C81A7767DA4AE588907161BE83481D714FA0504ECE16B0035350D13857ADB26B511A53E02C57504A3125BD277B0D46B02A82E5183F7F6B08",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("005D8159AE79809A0ED4B423CE11F11626A1BE8D4E025C74041DC95C9C2F34D8A2958AE149AF75E3C66323D7BF3F36BF402E74C910917EFD2E0CC9A578A96FCE070BF85631BA473634F04768ECE85614B83D3368F942BEB0E4102268DC1168D452174009D040802BF5DAEDC1E807E0385D097C67E1AB0C941FD6641CC8C19E95B968F839BB0C1F88B1C2136BC82F5D1A38A7C783D25E025C27BE5414EA494118B54645467D5F7E42BA91E860EB050A4E6D6108CCA5F3A0FEE2404DD4F58BCF5BEC32A7278A847526F46BFE83EC3A100A539CFDB94D60E9AAABF80C65CF7D1F070C71C8244BEC4E0F8F01D55B48D9764257EC01A9B18E6E0168BCC4C77B102860",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6E36F79DBC0905C0889DCCE97E6E44A98A031C894602187D09FB40E7B4F2DCD944B2C4D91E2CC6B42F645EAC000E5B012F1C918006D9156045A72C9414C0FC57A478D5A6DA7B399DAC957EF09DB0E4859C3594566BACEF00B105C803D9006830DB1291A4B10D0AA8177276DB758B75EB526DA48185C00E20746F6944AAC2B059EC486376FB844FCCB5A06BB1E06617068B4989D8AAB187146748D30BDA00FE105966C746E966CB1C14349B030C0A6C1A3397B0935451B8E287B124E00C0559725B4AB054B6BA5C5F5191AD7EE9C10A468A4E7C460332D23A754D456CAD1017140BFE065CAA401062B5EC383CDDDD02104004218A081E0D082BE8CDF6031BED05",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3850016081077A3125E308828545AB64A855171D39C854BC3B744252902FFA733DA1F466397E0253F85F5446FEB7D659A3F4597B7490E517B5150D54BBD34290455D19192A1B58232753C8DBC0F4D1722C2AC0FE56AC5DB77A32854C047E37EAC82017F44ABBB6270716DD9400045F30BB35DE588291925938832446A8605123A88C416143961732A0B64DF4A88D3C9031BC64111B60D1DB379478663D3D801F668565845C4833D3F4F419B19247BCC25BDA312182615D7512884814932C6E51EB436CB7B9A68E0848BF1BD4822AA95D915BED81EA83BFF46677D01103348B681069FA9A080355546D3768AC88060883FC9C514B5068539B1C57701F1D485D20",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("72074463E5565DE6EB171E85C90E66AE00FD4781C1E60803F0455D01B12182EBCA8A88751B98227172E40A22B015A23D453302F70C7CF224978AF40C7450C0EB602C43C891F4451359BEB701E3420A864DE07364BB65C10C59EB19860820BA004F80660B1466176D281CAA0234B87915405345A986124818020242B1AD68362A68C00A823B705525DA157D08D7B92005319EAB100AD59C50180C5158233005F01E225144C588A253E5A4E01474F91977A5422159146433FBAC6465AB78391BF935DA3024149AC7558AA03CC14CEDBCF0F32422E131B529FCFEC8050AB197CEB09CE1C55AA9FB1C80BDFD183AFFFB2282B82342677E83EE40C4EA041D22CBD5B5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("55AB5FB076511F880B50B56A41979C10C62836F2F680944F9380EBA0115A140A05032C8413709AB0622309078D8C2C8A0D174B8FF06D3CED0747B0609083C364CB9A1081A37CFEB10A5A1E568C5BB8686A25A057AD9BA338F2B685A37F7B1091FAF687AA03287C183A110ADE515B2E155F8515385801AB740D0417BA0EA040B8DDD10316FE730FD9C20105414D0475B18A015FD0EC0E22FF5E23C16801DDA08AB4368D70ADD8202A8DA166E44081BAB90A0F0C164631A9D18A4496689F5038958A6F02181002D555A61A008A4824957AF481BC4C8B1DEF38C8F23F1FF150D38BF83BFD743B3FCD186D1E2B57FF36F2D31B8DD0AC217376BADAFB2818F3FFF6A5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7B5CC31035C506C2B6769F830DE040A8122B0D66F72340ADA39BD1D3C91047C7A2682670A180C0709DAC2FDC512CC056EFEA9EEBA28A981A160308673EF10278C1BE0B3065512CABA98E87C043825721569F0211E491045ABB91D9BD2822323677BD03070F7386B408765CA6D9BE6F52531AD4EF1972C80F9C889200BA81A78BA5707D3300A7F88850BC041B80C3405EA311C52538C6453993C5823D692E69EB12251F66E1F7240BB7403D0F77AF1C0C355BA2A621907FE510BD6E40EA5A7A1420C787200DD65DD27E0FA4E9A5335951B0882F48FF1335F741B0F05AE6A2948837A3C1224B945C971E9A2F1C450AA74F5D5D12C91308680037FC2368A216F8F6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5E751B56C5FB908F565057576789351F816B8B52F2097E6C03F2971FD1C026D8895D14397DC03CA3A89D2628907D1CA96AE08DA1411546A33B7249310550C0147BD430B964C04C1DF8F14E4C0641BE6A2A6D61551D39F4A3004855437C55BEB8566F2462798A39DCC9554B9E8801E04A1504EEEE99E040B7E0749486CE2F4634DFE014538B1D66CFB19D4CD572B174D0305BD9C671D36DD81A5747123189635FE46C211163751463746BE1DE43341C555362571C93442CBCFE19272B98CD1B9722EB1C1C154A04E7774C3F55C4AD56EB10719DC149A0440D0112C1D6615529833A7696ADAA750F7B7709405B95EBAA78F10E79070257D532807B14AD11039BAE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("832F884FF093051E75410AC6165B416B01D15AF76B7CA9DA0905625820730219136E5DBA64027296C020F54242B8BC75A35C743F5FDB743AD8742BC4033670330BE72EC5FE7D7C0646504640EC3B074750470C7BBE46C33050D73205D7BD0AB6B64475C802ECC15F35D304A0186269661B3BACE20BC0C915117652826CD09A1B4C7C190A4C73C52A7532778C69FCD7C4D60C8B3C196A48FE18254B5136050810015D8117EBC161AA280C05FE45F22480C9D518376C0ED9FCF63935FC905656BF5756E4C8E680FC90565657560372F29989FC9075C04C20CD9126FC900134E97D8E518EC3583A0144310098B901560030152553C2A219A895542A5281B036186D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("08F4E4EB0C571FCE17030AB656E40150F60DB08E96E456D2B62340B200127B8A45DC402ED43BFED34202384239DC90B2D3DD64F638DE7460FB55E905D0306048261BAB6A095791DE3724ACA273451E2A18B441A0AD107ABC1CFB5802D10E4248E88CA2159A56FEF632ABA015C4235166AD62C9F1964F34075F1FB7C7630437290D7C7C41EB235BC0800AF2FC6A00E4D085E9443B87C9B7DB4A386A2D49560D0000BA010028010303699AA669070F1F3F7F4DD374A7FF20FFFFFFFFFF4DD334FFFFFF323820466562727561FF7F01FC7279203230303B0A6E6F74653A2020646964FDF6DBFF6E27742066696E642065032D6F662D63077472616C2DCBD7FEBF1A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("72207369676E617475726520051F2020E6BFCD20202E0A4B6572726F72DB966CFB6578706563556421556C3868EEE606F6656164654979196F754CFDD8FBB1282023256C75294947205B25735DBFDD6ECD4C2B496D7029746F3A65656B2062DBB6CDB565333C0667AA6E026789B1FFEDFB7A6970410A310063617574696F6E3A73DCB69D6D686D666D45637F644E66BE2DDB220A23A8636C75642C6DBBB940000828701F617E5BD9DEBA20176382746861B979D26175CEDDB57613E16E7366B347B663B5C3B6B70761FB24659720A6DF6D6DF70E0ACC7070DA0269212042494E41C20C86DB52596D6F64540455B7BDB9F6636FF43A16556E5A4520360BCDBDB7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("626C79299056510500A1B9F6B0432377693CAC014FDF155EAC7208014A2C554E5A4950DDDC7BB000074F5054CF097B464FBBB1C5860715FE76166773F4B4860FAD638C05676509659DB886DD732B541C756DCE733F180C87243F2E4401C1D06E28EE8A3B202D8BDE9FC7F680B1640A0F6D75732673131B9EE3716966792D1C56D177689B057B8569520844C945932DFB9AED610A431320D60E9D6B4CF19765310E11AED00A8D659F051B0AD0DE78B86548AE736C6F77266B6824CC2D833259647E6D17CE5A7C4A70D373771E64ECB225837650775A3A82B98EC66F247208859C60161E135A8749C2280B8611661B67204BE3629D9BB00B9A3F294B66AE9C6E7A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BC858779DE6231614AC0689A665B6B2C036C70747537C760C7122D766E7342536C69F63D100E567F626FB76E2C266C83706F6369F83B86B169AC9D1E1633527D4D65DAB62D194417243E6CA3656BDB6B589D72E576AD65281516C71B5A773D3EEA7844AA736B7329FF7E3F34F72D582026FD7541434C2858588E82C3708C9B5686E09ADB1A302B202A1C87FA9BA4B7CB65B358732C275F27946D056603004B4DB05D386CE170E9417567EA2216B6CDF0F722B76C72D62A283FF4DFBEDD025B5D8D652E672E09225B612D6A5D2A2E6B1F42D71F22B6009F25642E0201DAC2F2A1736A25736280474705696B171B526FFE12737E9BBA87AF662D2DBF676E703F4C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6942D3F60CF1BF3364B32F765C6173BD0A92F262830AA1E1E4B6CD7A05AC1E73CD6DADD1DA20490F130663160E5BC192564874050E0AEE30EB6B6C4F28769C2A2DB96FAC731E7819294861612E6196A10E7B32D1206047C3F4D58565C3287347D7EF6B2722555B165D22B379A23D4763C761C96C641FD2B5C2E1F5864F6A0F7DB142B01C863C3A443E2D2BFCFF2D3132736D6C7643684D74547A4B5537DBB5AF1A942E00092D78A20D15881184C3D2BD40D60AED965B35034A1784D6607FB917A41C8601532D557DF43A81ED63610C586820741235D385869EEC6C7332F9D8DC4B83322882662E299A832003B17EC0754F4E4C592C183EE01ACC3966084D6D13",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7C03ACB55669D44E4732CBB0ECB46AF94CF259755BE9361C682FA6027A266C18216C33465F6745E8756CCB117676A0620D2C31ECB1756F6CFE2DE3476D5BA9D0CB6D21527B61C06F53E925A19420A715812E6C1285E760E47433684BC31BB974B91E5E170C0E6BF2487213C360C8F7D54A7AB87613071CD8F409632D540348A758B01D1A0AE2B5032FC373923D5813704D97AC49FC334362460AB4D69A3B2D2A04026884C33438BFCD25093B1110868265074318463B82676672801C351D825505101855706E2B24AB0217993E74613AF1205820F736094CC24D3E924D6E36489C843B0009DF0A2C9818D66B05320EDFB2D70AED25FC302B2544C7B1C7313697",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("395B6E585DFD25CABF8F41534D5F43524349595249474854E95F37BE0D4C45414E93504B4C302E3978289875DA8414756389210786AD913B7365703EA96FBFED3F5B4E5453445F38530B53454544495234FFDBF65F41545452421C54494D455354414D5055307BEDAD26465F5521150F7E83DD6E775348284E4B742FD0312EB6ACA1F47733B46B7874EC6DFB163B444C4C67453634B15B43A93B3438444F3065142812012CEC746D29339FB15B72B7794558E65E560F095BC081C725532CC70846874BE075735D3C71810963F4204D617A309F99BA874002842E202D690A5B37040F18431153C5A1A3AE95045F1A53840AF63FD7E76067969873D7E268743ADE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("ED1B173A2F2F77002E6947C82EB65AD7DD1E672F072D2D2E1F9F3B8585028F48FB68443C27D4B518FDBD646C2F4C1E6CBC70F3AD5672C2DE636B3C13A2DD75E20FC25CECA40166650565BD77EFC692622F100F2F203B0A668B450880290A998D73913211D2268791213081C3A3B26B5C3447814191057556020B0F196C5D6926F40504660A6416DA5C0D07B9D6615FC463064BA8450C207DA7684F830C202C9B65694C371B32A42C304E3B525706CB78822E40103A5118CDFD2D108136BB22CD1A2CF66A0D6695D42B8616DB0B17B29171067A6E85595F733E0F2B73E032D60C0E7BAB27281F803061C6600C6699EA6C965B516E52472B2C1802A741A820C32B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("128E2471FACC746E3AF89E08FB614D75F0705A21642F0843874681E7E8352398D6004ACCD0EAD03E3614455A5993C04C0AF846CBE2C2F4280FF7750829219E800AC0603282BF093A6A82B05D0E7171752D7488082D76D80F719D124234EC1CCDB57ECEB08A04777272594870893C4C619D8B86A38CD7682B747B333746DB74AF274CABAD3F0B58463D574954484FBD0D7B8557D46A554C82DDE8B04D7450624C4C2A9D27620D384E8F6A6C281868C8FF2CEA646F68B27A02AC6B65536948384ECC824D8950D3B066302FB49675830324839BEA7B3B4C192CA86CCE2CDAD678E74C6A62B36564B17B5FCD2E647233502D34F86AE66BFB29568DB520DC16931927",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("766E68620A3563BB03A20045783D70AFB33A1FC921082E747874D81F934E7CA329DC247E31300C8F1F346A6FAAAD118634C1C4B728AB589238F12134C13B0C0D73A7A0794F6625A181EB6B6FB3CBFB0B081DCDEA79AF63EC328E370C87DABF4F18AA2DE870F2750289048D680B165B068D084516BC156C120BB90D000E99C4BF51D110A312001300140015C16F510BC117F619001A001BF016BC51EE1D001EB52000215FA0E856D42300C8002600276DBD00F100280029602B002C2900FFFF1B6C022F270031003200330034003500360037003800822D8AFE39003A003B003CD63E429595D8F140717DBB176526900008014581007FFB5B44030141018101C1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("060241028102C1F84650FF02010341038103C1FF41048104FFFF37A0FB0541058105C105010641068106C10601074140FFF6FF078107C107010841088108C1470941098109C109AD8ABE107F0A810AC14CFFFFFFFF410B810BC10B010C410C810CC10C010D410D810DC10D010E410E810EC10E010FBAAEEBFE410F810FC10F017D01790175017101EBBAAEEB6D016901650161015D0159AEEBBAAE01550151014D01490145FFFFFFBB01410110811001118111011281120113811301148114011581150116FFFFFFFF8116011781170118811801198119011A811A011B811B011C811C011D811D011E752C6FFC811E011F811F8B20736B70663AC380C3343C32",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5B73737B69E38081B62E3B25752E024C25284159E6EEB1B212CC0E513B9500C9E2D9A28EDA2690DB20370A00606F273CC02510912FEF116A1332AC4107C1D51A30751069BD3B001E9D221AB0106E0083BB43B3092E07361344432668C35AC62B66AEAD75CB88616A066776DD80D2996B19D21F776AB0847860ABE77BED056E9B0F8273CEA850990B520B116CEE3A3BEC2996AB20CDB7222196D5B76C226B642C8EC598B90316696E7550226F58CB26A831B75E141DD0665FF9EB20D15BD6BAA3203C320CA020FB2EB4984F4E442044796520D692C459683F6B0905B6D2753B1BD6216101178377641EB266C38A00212ADFA9D8B65137664F74269618081FDA38",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4B3873E2A3D973A60B6308224C0697CB84E9EEF8D3BD618D175E3E9C0D66EF45ECD723E237D0B260B3311B73303C2A60D924DE658FCF086F361043D020BFB0B2061A0F00DF09D48A94E38309E1E09DB9DA802DB2A9580523D66E29773E9E21DEE68A6A3C72CEA4128DC6DB53636B7399CA54E830756244065661D3C632E7E4B63BF57223D65AE30BFD62718F5C2CB11918604A5AE51EEE5B494B757630DAAC1898235753538A81E1DAD1D6D9A3041F60AB482F9EC17BEDB787720B5549442F4703D34399035C28DC7E470933440B057CD32042CC1C221FBBC3DE819609613984CF6711DCB020142D652B2F1EAFCD623829DD6AE8DB90782F6B9F33443F76FFE8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5268795D145B6E5D6F05415D29E768D7A9064E5D60077D2D762D52588C6B4E55E0B35768850ACFEE2C6723C5AC8909C35F2027534C8A6437FB815822170D7F9C1A63EB8A8F0650415461936E80D1ABAED82E4373D0AD38843B8039F73318B5D290437726758A71606D03250AB826F562F6F514BF4B3B348BA6CA4572E1621028F46D79EC28792F6E078B07B517840F4744050241A064B704CC35D36978B7AD2703CCDA3B66A08E2FFE01ECB43521C073EE31AEBD7A78E0BE28821ED33B2180BD613129634E98590B21422B289DD8E14568346A152F4C3189526DA5596C42C0B05236C775230C42B15365611CBAC2B81F2E33055BD819AF5EAB0A146BE9104F14",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("896E0C1B910DC32D173BDD0ACCA0BD1D1BB376AC60C10CA32B4B199E2AA598AB62D5022E32D056722BE1B790B8990A9276776E7442C48A0597CC1C3680ABB74630386CF6A2756C0776981D0811919C4530E05EB3419F0C7FD817766A10AE29392B5759579B6E204E54AD63755C793730990C165E2DBADA9363AB3A0A45462B556B4805BB0C74753C579B401FB46A2C6D482C88C0B29869249F08ED31426823D4A445CB62BD0763B38E4818EF341B0E0840B884782C4B0A4BE40AE1DE53CC022C15C26C188D638F07CDDEB08AB9B39B64A8190E89308C96BD37C3B514E8B54FE30273B35D4C780A91B610960DC7708F75ACD406F80B852D2D1848F586108FF7C0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("58C648B0434289CB60363B256F18831E9385235BC3B696B21704942FCF65CF99B6277496561E1F6C619320E81B5FC0E039371BAB1473839692D04A6A6F22695290DAEC3BD963C3061603F82E2654031FC2297849C9099251892F274CD00C75C22E28A53A044EE8BB106C3F2D437465A09252D6F82F5E43C2AFCB4368E1401EAC746401D80C6CA04DFA052888AF47E8AF000F2D2050136051273111336A17F2742CC2107A959AA70169EB8FC8EEDA5B33000D20000D0062081C0EFDAEB1DAC05C7B07455B6911005B5B02C30DE4780565FF0B307B2920E93B005A0078009700B507D1B7FA00D400F300AA30014E01B59C2C4B401083111208B22CCBB20709060A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("05CBB22CCB0B040C030D023260B22C0E0187B701DD96250F5D13791B832DCA6D40235933894E12C106517F734D0D948DFDA300C300E34F003F02A66906EC800001020399C86E9A04051063631F00BAEE90A001C9077F0D7919033660091F319D619F87A81C30238FB3BFE1FF060108010C0110011801204A400160018001C05BF6FFFF7B575306060707080809090A0A0B0B0C0C0D0D0E0E1F8B21B4458073D17B216A50062731303006FA26D0C1F74C8B0044A6CFD0767B0054880E4E55EC058B55C30014075CF606160E23464D8B9ABB09044753697A520ECBEE4A995C662D33326536B9B06562072D788AD3C25290AF4421B6DAEB5EEF3D671038BD7A294C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2EDA865C3C40FB382810197EEAD837730925344B3032751308C4C69205103A09064BB6EC3025DC9F00B0C10649036B2761CB92BD0A731480003BDFB258D6BB39AD6129612263AB89D443D91B4B6F4E58465A5D8C221FA50768C164B0A7099B523107324E82071933340049B3548EED22673FDE3A23073634BA5E82671FAF00504BF0318E6A0DDA4742AE4547D5C8A0B56B26000F8948F18885385105A0088D6066010F07B543C335F57A15A377E0019C79750C1C0307173627683F0C172D5605656227B960542AB177319BB0B2942F1F231C423004DE3FEC6F1AEC331A933120221922931CB2B12A612025647375205073215F5D2E48C1B0213F22C00A9611BC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7F3A002F78F0442290010C03983B98DE36529DD2638D22382255934A59CA3FBF73CC5001892CC69C326806C00D1DE656C5E0954D62536569B315E13D476E0525BFB06846273F65ECC724942BC0D872FD4378658896FF88CE62F162638EB1975A51244ECDB53197370168C8236061D312DC2CE0B03D2C75295698B9E702599B34164C21DCA4601D169F0722803014073C10C15C636D3F0A400CA1604B4A275CB094CF3C074258E662BB63E86D738B78BA59C25EF48A99833EAC99AA70731679AE303543253B3BCF2E5BE8E251ED301A699A4180200D2CBF0EC342F2CD4FB600ECACB5C3619E6F960B756E437003C2577087578640D610B26169777A279A04773D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3A4FAFB97633385DE1B4D76EC7633756E1203E6765337C07F155862A7A45DE92DC498DB97B2257BD036BC8D0A4E4659788B60B520E4C646F8639E21399645F2079B6E0A005AF6E89C4098214AF9503FB1518846BAF6A13DAFAC9C8700A5672EA902480756428FC0910927A6D673012614B8A174ECA7041C24BD7272CC026C5A39BD9E7086103523879BF2B7BF55884C577198F641160134D292BCF28F32E0A4B9B01B36A38B807552D21D202242D2A507749AE4189690BAABD1DE6036D3F294A2E480101BF01DC576D20D253504C495411A4962D96318FB49626A949C8E600B54556423142410891663D95DB803252C34E6E1F0D6BBA5AA11E2D26E3DF410D92",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1CF1BE3A4E87C1225E80BD6CBE2984158B72C6110A1A0819C13BF86CE9CD8A9DB9A8DB3CC87BAF1524CC7CB874328846248BE4B62C185950810098C0EC61C84139C2B62CDC409F0B3E27C009BC0421CB45C80E7091283A230090374E980ABB41F875616C86AD045EDD82534A17BAFB7E398528252E7B5868052DC0DAB060DF3F8783E1913D28629F686646206119C9B10AA97761A65D7329C81496B18483947F3635301AF44C1D3BF71602ED45108B5A926206B132769809A4EF5C88257569656B1082BD43FDD4DFD41C36D953702CBB28BC290F9AB521315928B058458C78AC8B356203A948A168203B04C96678FF96B095C4DCF8D04B24E116BF344778CCA0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("37C9589B8409248B0AE28F66EDB46474CD8A800D847720DD0A4D304B60CE4B7483EDD80061915449836631903065476EB50B8459BC669A5AA460B90E5BAEA5E252D2AC8D231FFACB7801FB4B75AEAD4B8017217888439916C2C6BA373A6C3D005EA5B0C152B13D00992905B64D3D4CB24A560AEB064B0AE4E214083C480B0BEA1529E90A4340E641A3AC31570AB6A9925197AF2CD71A960DAC2D651715DF03118387CA25484DD0835BFB532D444F532B032F3272710B032FA44641547B6B6761584331063F002E000BEC0D89EE2F430E003C133711BC00074850EE4D6163C53F40DBF473680EFC5A2D53797394FFF7CF482B43502F4D33544F50532D323000F8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DC6D061F542F51850B41F6B96F18289752495343929F5605664BD0A03BE6569773BCF739381842054B555D7BADB95B7E534B0B1A783383E1681B5FCF58C744A85F84FA0A4C1F3A282F94640C602927756C572817D630C7312913001940AE3233E01D067034296F649B8B25190C7364170BAE04B537381E1642D04424FB2D36346B293BDA20BB29F71AE0A7A48F23313114D16FC910C38876C1627AAD2D947BA4D7F36C27047AAD15B6783E75668AE36348D2AC39C9290CBF12C1E889106EA3751627E7581982869062064D4AF84ECB6002BCDC3FE5D06B20001870964B1297DD61B700BC3152B056531B732143F4881C403354D4D44D1613661669E43AD4A908",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("180C7BD1F626237B66320C740B48D9CC8D72008B3B988AC00FC0257B51EB4E091B786212CB060330E4683A732C59B2653767842E905D1231993A7309444AA2DCFAEE04CC427375E4C40488B57397E39CF688181DB62829924BC1848658BD4B5B7638BE59C13D5360FB2D46C09A81D8066FB1883DDD08D9B63B0AAB41622D6C362312FCAF2FAB24A10E0B4F2810CA2E4B7961733AE30D468EC2BC871A20D9C04816AB59446246CB127BA1728DD0245B4F284F08EC250B07B837991B48745554E11B40B958902AD3A0B38BDA2DB72A43479A2D62F5F3ECD60EC12342BA7829B84B184F830D781B7B49A38C83EE184EC20C95A445C0412DA3858D3F7196CA084201",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9B3EC84C8FA5DC61E701432D12024237B78744CA9682832D3A19871261839EF42C62C322D64E2686D55BD94D314B24C874A0EBD52EB100C931F5A32B4935331D325FECC350A3B430366A22E6058BC47B29356F5D399D18160837897B0D1B84703701AAB512A753126560298196B29145A953B19BC50C5384A725791218EF003224EE5421B227710A3B913D07D5A52D27BE43C55B580BFB018B23E4008B2146340B56B17D374C27722D8F076749E844B20F53041B30C329C1551F202FD765A6274B65799E0F49E60D712C587811DF38365F67C9908C6D646D0F32338097AC0D3F009F0F801940B263EFCD1D81932128BE3078DEDA2501A7581E3A2554920129B7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0A2101AF1E17F26E199D622977737CF625C1900A1F8ED025B52C5CFD3AB307A5183B06641A55C17E10754944AD5EB3F7EAE530B0D130A0D02FE4670457415245202F8C1EF64574D3731341568F25332D1B0027A00B8AD1C01E461BD600EE0D83462900F4F625735513212F51322F4E66059162EB7DF081E145F90F7507F6204985EC223B08094A60AF271765394307AC7410536D4014EA24289023362944BD53498B1FF3C22031C3EA8B84441849195A895F3C83333997904A6F3C42483530487753066B94FEA8F0C546D44B81D74D4435484D588A37693073621C8C422B002E41911026E115C6FE3103CBEA3B93F0B8E86C6501A34428B321558E80E42C1AB1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("408E2258C56D9F53AF60239175B8D4A309B9A2675CA9ECBD2081547A497ED9237AC090258828BCC3B287FB1A6251EDC58141E90D05A363B2B773E92DFE6221E51E71ABCF8B10DC4B83283F7E038D48F4A861768040B0033B442188004F632005A365030CC02225444B3C0E375CD3DE4D540ED496EC8422071F638FB21E2B6B6EF7F4A3AB1392C509EF527896D04661C73156E908C232FFCE2F72D6A2852D5B325D0462B1C3699B815908CEB68A43B9436301274276783109C21E1B157205C24FB0CC5CC26C804C181B46C2A36946BBE46BED1443152B7A5265BE4EB299E1416B3BA70B37ACC8CD0E2C152CE7616133D56F1B42F400674AE29528296712D845D9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("53425141C25ECB4F894ED812DEC1135FF39183B684CD5AB5356D76BC6002D53026DF5420070FAF73A5DE67C07488C56BB2B20B019338C4456CB9E15B76A2FDA30D1F644B6F600E3E4F626AC87BCA600C38008E9D614E13680E2F841336317B1029EFCF2A4A4C98EB0D6DBF31E2CBA2030FBF592207C02C492724C3EAC4C3B1323230E43AED892E5EBCBB33FA787756C2CB253CDA9B90702324573659E974229618C9FBEFE015AC032F9F0C225B484C3C052F59B1ECD0C2A34023DCC28A3D1FEB0590E20820F21D824112D367B2A708814FF52D4EE0632C2C35333B2532752D4B0841013A3017B3650FDC0E4C141936EC7B0D6D7508032E0833D2CD0E0D3FC003",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("023A8020042F632FF1AD0AB42E632100766D73259A5B3057E5630712C7BEB517E2687066E763007A0013706D0074CDDD5A2943C61371641FD4E542BB6D2F66376D760B2720005BA0155A41F90B33786F35A004D8033A34533C8807F72041F8CFF3757431043233340069233A23CDED898EDA6E0323043634632C6FB706B7AA30312C627A707502DACD1085004A6123968B52B4C48F830EDCBAD6BA077913D0036C0F7567829B4A5DAB705F5C4E6F76D50EA215DBD70C4C438FBDFC4E28074E55524943134D4F4EE1BF52C04554820B4354595045278A99AADF0B4F4C0E0BD7415B8389073B433B03BBEBCA4B005F2E2C07FF00384941238370055D0306C25785",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("67FBED030706021004450005354BABFF1FA9508C283850580708003730305750077CCD37EFDA0B0008606860000070707808E79A83702107001A010BAD153D0E9DDBDF6C46D0BD7001050F6E4C93A9D1BA0A4905B99769C26A96899C64470A07E045E5332F43C44EA6554712A83A04AF4765AA92CBA051349D8A867698B208432EE6A7B980D232180053DF2F16BB574631306F69B61B56C0AC50012D27B37AB5BD86876F09430F952B7E0F4272B8C6005AEB08CA546F1F6C2179408A09F03F9943C1A98855D3529B55B003F7AB41243370A84695419FF52078CB9EAF7D3724546A4067496D09B1ACCD8A100D83803D824729CB1308527662048F293840100B77",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("42BC847D03A37410B373F0661B2E68AA9BC3852F20F6DEFBD4BB10548C0D8473632C5513BB87807A43617B646403BA21448D572F2D6E241B502368034E01C95E84279F536128383278D31366D0262CA10FED57A1ECB082529EA2736B514B28C28DEFB259506BB7D41093CB985161410B5F2B48E62064F3D3B504B0047043B72F13E098ECBE44498C943A18C6A10EAB746C5EB261CB4B9A0F9B0EA580F0597AF7DD731F5132E85174533385424CC68750E3BDC69A015C347B730A435C6BF4E0FC0845E2A826B667C2E0D3DD862F39750682C68B673DB230F13646EF561D657A75F838A806CCE7F0A102B4422B69D2500A0BD3CCBDB9DEA141667217734DD7D00A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3B094C7540438E674F89B1D68AD13321535003130B91956C09FBEBC61A5A82A9615B4337641F8302B4C2CC62A76A010C60624DF752AE8C99E0437B7573189445EB66AE007C23131147FDD4A0019A359F6CE092951C4BC34D63054BCCF1B91ADF73337B653F071BF60ADF1749658707CE7C2E2AC0B7500765EFBDF7B168B36E1B074B534CC1816D0900A754F770C0EC83596CACD790EC906B8A2DF4AA0F3953C10597725CB4ADD0D1B1116474264962A2AA666A3B0B4773226F020B90B1240C61531B20350A011920AADEADAA50305C8F049B37A16DBC72F83F2DBAD20B85273849206E7A4B2D7FF7708E916168C272C70B575FD5586C13679462FE6DAC0033E7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B6176334C0B0610F0E004C21CEBD42CC3A8A8A03EB8BA5263CD37377AD9B678E329E30084373332D7653259B31D913759F0F9BB1EC9CCF20139F0FB12C602CDF1360EFB1EC7F0FAF256B1E018B716D590F2F466B48D60A0F17648F3464CB38B05767AB13D9692BB5C19F11764713244D3669570F6433463A2CC9721B631772654B5A76137B13A932D9A4B323628504A4C35C220F61C36B94C114D449E726A30EA65BC27A6931C6E7E116DC828D670C11790BCC6D0373DD13516BDB27089FC1250BE13E2DCFDDA4586B7EE17D0F67D261CB4E771E0F6CFA5AD0255B13F768A69D0E6B0E5CA61361BE822D8BF469666B470FB0D765CB471363263360B312157BAC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("95B9E4B2C72D870B006B6CC9242D7F791BD3B091345F173BC39EE3B00B6A611E0F015A3203960B16A26403F65A9592136E0BC3B252B8B0731B041B61D2320B4BAF64863D441A58DE77D4741D41B2656D138D61BD58E60CF85613FBA4D3B2439513EFEE50702FD9130703CD4618E692580075A061B6846133419BFE131E20805C20FB436FF4BB8D1141035F5F474C4F425E5F48459BAB8DFE41505F53454C458245FB174D19B003F953564352540000FF64AE11B59F894D030FBAE5E7CC92030B5393570353DF36B605604DD654F457ED5468754653932A6D8053AC3F3E65CA94293D3C3BA64C99323A393837E294295336353432C0239A8F5AA3726737372368",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("13B153530D0D4D2CFB810AEF494E470E0B4FB6D5CBDA4D41121152369B3808906359D42D1064664D6570D3EE8C703745C8E2F927376EC00266085E38CE3814725924E0373604CF40F27374643570583457CB21351D217953C8175B285F345FD75A18682A23CB5806859DECB5DCE25F3139F7B55EC1A35140A631B96C08DE2B38817018028219575E4148BE23377376EA1595957A8E2F98AD10461734025A7327A72E02A2181A1645EF0E8C85BD100C9F2F30394FCF2DA1202A2E2B6141A490384580F63C845F303266C158294A91A6B0923A15CE5CB9115C7F4D2D87D226A06026205651AAA18251E8432B2B3A9C481CE65E342F2D1645AF68B63D0E211150D4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1356C32E145A003CE5E0B4B73328613E1B483A6D24F735770D6A64002C204D200879006C0BB9377F2F642F06C74D034149B9AAC92265163B4DAF29D9760B406F0A4B74D45CA661145A3107142953CC65A3707362617AD07E695C8943376990229800A30ADE7BEFBD675F57534B47BDE71EF043F7433F3B26D110ED3323F264FB6B608A99F009FBD8136BE672050ADF0C19F77AAE980924062F07DE7BEFBD433B372F2723E79693F51F6FE9A7ED030BC9E5C9E546A84AA8CFACD3AC801BB9E53EAD420387744CB6D414970F416324500675C685859ABD130F3D647ED04722685FD2426F7841CB2A7DC12F3633322E6482EFDDF292CBF6BBFABB0FBD13032EB19E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A21074C362DAB15245760F6D6409074E6E2FFB2F5C003F2A4734CF9F38CFAA4E2E07E90BAE67D26BD2E445525069E86D28C25655038B2EFF8AA04941002936F655E734BF6527CE360B032D7864A9B6E5D25A69695B085D43BA6D47848934F52B3C0344699A66484C54606824105CB674F55373DB144D8ADE2D0FD4121503A0370F7B12AA48D464400BEA49447B454F460BFC204F3106458C87360046829815BBAB2E058160FB1F5B035DCFAC08D7966B172BDFEA76AA5E074CCB6269BD6E7B8EF22E0B74155D25556387C20B2EE600BA9F81C279CB0B77621B573776A8CE503A94652CAF4991ABDC63B7B9FF5BEC12A0265DAFBE676D0CC255F09676041911B3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A06CDD93405F6EBB2101020303040506AC5150EDA81857B2286953F523E28695642D640764C25E29A4176CB0025771D36D3BD403F838034263AE41BD02176B02D0702A7087CB2777800B2852C3120278DD48E73D2345F8E12240C15C3F55848A91507B4604820310CB4F9C40F4A50F5BEB280923A245DFFA1D106F40D1676169F088CBA6E9B61F9F9003A4B0482358364DD73464740B848C6C12D3344D67038C9098A04DD3344DACBCCCD8E0E89A65D334F0FC10130C248199A6692C384000344DD71D1C2B5403646C80D3344DD394A8BCC8D49ACE7C4DE0F86B14032C348686A6693C446170696D00BC4901D5075008FEE9E0005841425244D940C59B00F40F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D9252B6AEEF31F4441BE8AC89D0750524F8B46AC82F2D7070B464843A9ED9D2043E3B63B03B185181B8D6FBF946407C70A45E4737973EC17646920F2E491726172636E6B11BB490632160B62632D56703AF81AFF031ED07BB879BF020F9DE2E305E1562D63336FE6DA21BA07331A180D8001681F96926280375CD1746DCF73722E2DBD64009483CB33A2F10198077B0A535F2A0E11A60F8A04BC1A918B5770E977A078DB811E28297F45952A371A9546D1E3F43679829D9A8060C418C3C07B506C2F6C496335C40B8922D9293B56942C8028C0EF6C20500C29A7A022D9A4B785058C5D6009ABAFAF289629D884A4734213D755CC9E61532096709C802123CF0C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("ED4E770A0C0C56005C5C02900BB8032F2FD7272441B81081787C3C2C88A42F2A3B7055CC26009A9B2404A060F3C1372BA87B37086C0C8F236220BB3F3A5CCB41881425A6B902D622840A7F52C5624506B3F6CF21552C9B73DF4A400CA0DB22F62F229B390A4CED117E5E4BE35031AC25475CF00C461285C608EFB08A17B23F3A358023D9653320700725EBBD03C6146DD47561299B632F243B04806F46D4CC0AF3367B6409122D3E8A5B4049AA58ED419C20662A996065C96636C15E620294AC7F3EA258D90BF457B211D8C8E449A3821316B6FD540A5D806A11E733072F2070EAFE870C4E542F324B2F585005337B13748A05F36FDA0FAACB2FB346653238AA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0ED4650503438A650567B5F2DF2812ABC81DA8A240961895A37A494E24B7B9EA82113550A21352A896C588C7125295CD9E3B430300C8DF00C0830B342742838CDCFCBA654100282059421C7520CB419663103A610454E5C9E52E5FFC26BF5929333C57EE03D501790064922820480010900164228410219001998101900119901082022A73932110BF00C641BAAB01072E80A2E9950CD86F0701013710361BC8DE023357020300633C110136384153C8ADA2705DB7B803B63BC82FBF0827A4036082798221A6DF07DF9F9F3CA1A5819FE0FC407E80FC2FA8D923A437C1A3DAA3DF81FE07320436C840B52F4185FCDF0DB65FCFA2E4A21A00E5A2E8A25B7EBBFB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7C7EA1FE510503DA5EDA5F5FDA6ADA329EDCFE4AD3D8DEE0F939317EFC2A699AA6DBFBE403C8B89C88A6699AA66C5844301C9AA6E9DCF8292B03D0C4B4A4699AA66998887868589D6C9AAE442B2410EC28DCA669BAD707C40B039C8C8066B0C19A705C2340072C3BDB2CBB1803FC27E8D027172BC76906DB05E6C00B0B1D0490664006968D08644006648E8F90066440069192931C12004B7F0AE0DD8034578C0A74303430610F56DE1E632CD3455350073835308293EF6323313235322B0B6236BB45777F2346AD004C072B7B8226530C934423299B15E2527B072B256E9E930F663049534C5B7564CA66072B1D3164FB15EE226F235356456F0757452B3ECF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B1292DDB326410555149B33042070838DC15A0C80830DB4D45582360B3952BDB63EE5EC9AD2BAF4245070C2B633037BB52B17BF0234445A72B4155E6399992540939E06C6523CB454ED453AF2B4D619FE761BC534EDB0C778D019B2BAF43935743414E07427725100B300747D9CAEE5A2B2B47544D572B957C1EB05753009C48459F6D20CD1434839052490FD86C65572B574C0084487325374C5558183801A45B18337CDB50DD9610CC091C5FAF6C575A60B385FC4146003433372B572BB9A135441F33444F4D776D4296203256AB2B56454E1F48732524344F004030732537434F4C28DBCC957D9E52003845522B2C2BB979C2AF53002C415247775B429630",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("33FF242B4543559630732534AFA7345736C21CE34C2B38385772F3815900145552593CECB50933AF5A07DB2B52E977ACBF1A0C0710360477D1AEC1FDDB03051010081D086C2D57EB64077C0BEFC247420F5C2D936F54075AC1062B0133173C07EDF9E6BB340F4E4C440028484B47001C5AC3061B6CB018070C3F0007F40DC6EAE893509BEC634B0306F9EE8C2C27D00F4B4F5200C0B460CB8641A0CB54547C6F0E76F6EC902C07802CA778AF7C3141065B1A674E6807542BC57BD24831EF4031A78F0F8B7CB7142330075A4848002C8F76B0857724319FDB1017FC300F76EB3C7BE8301FD4305BC430478B9D3C7BB0305FA4309407EFE620767688305F7407FF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("07C8238F3C4900584A004C5A0034738D3CF253001854000C475057F5049E3DF42F07E42F07D42F7AD6939E5FC02FB7B02F17A02FE491C7CEFB8C074300784C00682CBBB35B1F582F7F480F49543C8D0CD6D04E572807144ECE682EB1EF2E5B50542EE3D891C75CC40707074C00B4471E79E44F00A0430084440074460033C51C91601F071B07E491471E4800284D00184E000479ECAC5B8FF42D53E0075A00D0CFB8451E5200BCF7AC2DE7982DB3DBE349F7882D2F67802DD766271F1E0F2F782D74074C41A5AC363A05839DFC030069FF00F01451842CD2F1012002A14260015521E258D12E1BE0016F000A828E9CAC638070F0F19D28AB8E1E540C50445728",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5E943F2C897F032189E23D00A7FF345D73600B1E3B035A78D9344DD397B5D4F31101DD659B66304E6D01333A0359344DD3347796B4D3F2409B66D910012F4D6C0160972C236B011603074DD334CD0418050D06093248D334070C08092F20830D0A1B0B57C01BEC7B3B070F571013C8F79650A703172120830C36350F4143830D36D8503352175307570CF6BD605FF37B6C176DB22C1B050720701C6CB06FC9722F80B38107B041061B821F83848F90419A6691299EA1C106196CA46FA7B79F270761B0CE1FD70B18072084870CE8059319DB9434422BDD679A6E6807093C8B1807109AA65936EC3311BC1298D334DD6B13E307183419A659364D0C1AD4321B9C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9AA6699A1C74786479542CBBA6697A44FC473051FF4554B0EE0F2E971BEC2ADBA6C890037F00502FCCD800BB34BB41034FA85DA1FA2AC7363F0338344DD33434302C282059364DD3181004F835F0A6699AA6E4E0DCD8D49AA6699AD0CCC8C4C0BC699AA6E92FB8B4ACA0989AA61BA490880380786C699AA66964584C484404669AA63C282000080864500015C8A8002A9051015420A302A840460550818C0AA0021914500032FF1B457174C738D001000146696E64C36EB3E74E6578410E0372730F628B82DA476509615003409588C500168A68302143DB657D8928C61C443665547970D40415832B4CAA6580CE1C41880F4313401DABE253638BDB7B144542",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("701C1B53C547512C565A4CB63F7314502C53746448615C6C2F4945F15958714580A26709546FE7A065B19115742E86BDE7A23E0D6480C29E818228550FA282FDED6C4D726370796E410A142F588314F2FC5BEB86518B134C53E643288AE66E0F74696A56047D6DF62B34283E496A291B06C7248EDDBA0FA02B4D49780D5761D1298ABE1E466F72531CB5E62600F83D1B48449780A8C57B4578A270AD45761B9C70EB66AF303660480C70468A31F7CC4409416C2DA950C5EC45287E14DF200C7B149D16026DED047743AB5E7216566C5C6B37BC9D4279743D5769641B731401822EDB7B693854F5EDC1253B65115D605A4E0D23880EE03C098403E1179753C8A5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("84E71C2160E720FB96D0963C8CC5CB5067B0C7DAD80A410B074F454D0943ECB16D5649733E556E686B3A618373EF657052446756735692304C36A364930E43FAD9AC11DBCE678E7F7C2250547BC273FC55733C1C0EEC27164C4349446D458AB124B42130AD4523013BDB1C530F65F8411110F44D7AD33B1345194035491E5615D98E1684DE734E6F790C16047D87FD57568D2E21D921FA0CFD53972DC9D130487E0F57AC6DB308888CF1756C1F9706A91B6141709F467F73686D334C7A9D98E2EF4D7A7B2E616744410D4E82BC811D660117321884A56C7657ED17168E72E12E2E52746CCB7769FB4BF60151E165890F34427809DA47EF51418311415FD09A05",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("41AD6F0B118C59E7C8A05784CFC28C800D268889B8AD41600E44F7440D902D6B64AC8118038206D653C7FBF55E10348A1A30EBB19566D7644F66BED397CD38654F49506F6944B08CD68C245A0AF628B9CD22C06EEC9DA353201A58B3B3143B42380C0B414157E1B2593297AEEEFB37B54FB3C13781004F70377008A8601A43012A1AED04075B478A61340D6C759616114D80762F2C02104D43801DB0096C6D4BCEB36C0B29035015DA18C26D4BD264315A5273C4515B08612B68AD63654C6023A453335301EB0BEC1A4F776E590BA8A6B041274730360B6D99AD02398EB0D167689D653B4F751C05B79FE1350A105A005045074C01875105970392234FE075AC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3BFC000F010B0106760C01137848B3B11904B70F400BB90D9B750304320717C0036567AE1D80890709241007F94B1A8AAB1030370200500ADB0508A7BC011ED9B3A2E22E5BC0C3D75EBA84BDEB980220602E72831D8B88648261FB70AFB96C080302402E26B2772E7714846201500207277CBB5038C091153C391797B703000000000000001200FF000000000000000060BE00C042008DBE0050FDFF5783CDFFEB109090909090908A064688074701DB75078B1E83EEFC11DB72EDB80100000001DB75078B1E83EEFC11DB11C001DB73EF75098B1E83EEFC11DB73E431C983E803720DC1E0088A064683F0FF747489C501DB75078B1E83EEFC11DB11C901DB75",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("078B1E83EEFC11DB11C975204101DB75078B1E83EEFC11DB11C901DB73EF75098B1E83EEFC11DB73E483C10281FD00F3FFFF83D1018D142F83FDFC760F8A02428807474975F7E963FFFFFF908B0283C204890783C70483E90477F101CFE94CFFFFFF5E89F7B9260800008A07472CE83C0177F7803F0A75F28B078A5F0466C1E808C1C01086C429F880EBE801F0890783C70588D8E2D98DBE00B003008B0709C0743C8B5F048D843000D0030001F35083C708FF9650D00300958A074708C074DC89F95748F2AE55FF9654D0030009C07407890383C304EBE1FF965CD003008BAE58D003008DBE00F0FFFFBB0010000050546A045357FFD58D87FF01000080207F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8060287F585054505357FFD558618D4424806A0039C475FA83EC80E95870FDFF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000000000000000000074E0030050E0030000000000000000000000000081E0030064E003000000000000000000000000008EE003006CE00300000000000000000000000000000000000000000098E00300A6E00300B6E00300C6E0030000000000D4E0030000000000E0E00300000000004B45524E454C33322E444C4C0041445641504933322E646C6C005553455233322E646C6C00004C6F61644C69627261727941000047657450726F634164647265737300005669727475616C50726F7465637400004578697450726F63657373000000497356616C696441636C000043686172546F4F656D410000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next ts.Close End Sub