'Creates an MP3 from plain text. ' 'If a TXT file is dropped on the script, an MP3 file will 'be created with the same base name and in the same folder. 'If a folder is dropped on the script, any text in the 'Windows clipboard will be made into an MP3 in that folder. 'If a JPG file was dropped on the script in the previous 5 'minutes, it will be used as cover art only once. 'If no JPG file was dropped on the script, the most recent JPG 'picture (if any) in the destination folder will be used as 'cover art for any MP3 created in that folder. 'If this script is run from an administrative command prompt, 'it will toggle right-click options for folders, TXT, and JPG. ' 'The voice used (e.g., "Microsoft Anna") is specified in a CFG 'file named "StoryReader.cfg" (named for compatibility with my 'other scripts). That file contains two lines like... 'object=Sapi.SpVoice 'voice=0 '...where the voice is the index to one of your installed voices. 'If the CFG file doesn't exist, we'll use the first voice we find. 'Although you can manually create the CFG file, it can be created 'for you by running "VoiceChooser.hta" from: 'http://ericphelps.com/scripting/samples/StoryReader/StoryReader.zip ' 'As written, this script might create two additional programs: ' # In order to create an MP3, a command-line MP3 encoder is ' needed. If "ffmpeg.exe" and "lame.exe" are not available ' in the path, then "lame.exe" will be created in the script's ' folder (ffmepg is better, but lame is smaller). ' Get "ffmpeg.exe" from https://ffmpeg.org/ ' Get "lame.exe" from http://lame.sourceforge.net/ ' # In order to read the Windows clipboard, we will try to ' use 32-bit "AutoItX3.dll" if it's installed on the system. If ' it isn't, we'll try to install 32-bit AutoItX. However, ' AutoItX can only be installed as an administrator, and since ' nobody runs as administrator (right?), then we'll fall back ' to using Internet Explorer. The trouble with IE is that the ' clipboard feature could be removed. It's also annoying because ' it asks if you want to allow access to the clipboard every time. ' Get the AutoItX version 3 DLL from: ' https://www.autoitscript.com/site/autoit/downloads/ ' Get the AutoItX version 1.51 DLL from: ' https://www.autoitscript.com/files/AutoIt/AutoItX.zip ' 'Additional customization and settings are available by editing 'the "Const" declarations in the script (starting at the 55th line). ' 'Released to Public Domain by Eric Phelps 2015 'May be used, distributed, and modified with no restrictions. 'http://www.ericphelps.com Option Explicit '############################################################# '#################### User editing area ###################### Const PROMPT_TITLE = True 'Ask the user to confirm a guess on the title (Default is first line or text file name) Const PROMPT_AUTHOR = True 'Ask the user to confirm a guess on the author (Default is text after first "by") Const DEF_AUTHOR = "Unknown" 'Last ditch value to use as an author name Const DEF_OVERWRITE = False 'Overwrite an existing file without asking (unless overridden on command line) Const DIR_RIGHT_CLICK_TEXT = "Create MP3 from Clipboard" 'Right-click folder option text. Const JPG_RIGHT_CLICK_TEXT = "Use JPG as next MP3 cover art" 'Right-click picture option text. Const TXT_RIGHT_CLICK_TEXT = "Create MP3 from plain text" 'Right-click plain text option text. Const ADD_AUTHOR_TITLE = True 'If the story doesn't start with the title or author, add them to the narration Const PADDING_SECONDS = 5 'Number of quiet seconds added to the end (only works if your voice supports SSML) Const VERBOSE = False 'Set to true only if you want an annoying amount of status messages 'These next two don't seem to apply to audio at first glance, but they affect timimg and pronunciation. Const DEF_UNWRAP = False 'Default unwrap action for single newlines (unless overridden on command line) Const DEF_UNHYPHEN = True 'Default end-of-line hyphen removal action (unless overridden on command line) 'For the two commands below, the "--highpass 200" and "-filter highpass=200" settings are only needed 'if you listen on your car radio while driving (it removes bass that isn't apparent on earbuds). Removing 'those highpass settings improves audio quality, but leaving the highpass settings in improves treble 'that lets the audio "punch through" background road noise. Or for old people with lousy hearing :P Const LAME_COMMAND = " -h -m m -b 16 --highpass 200 INPUT_WAV OUTPUT_MP3" Const FFMPEG_COMMAND = " -i INPUT_WAV -ar 16000 -ab 16000 -filter highpass=200 OUTPUT_MP3" Const WAV_TYPE = 0 'Sets specs of the *intermediate* WAV file. 0=Auto based on detected MP3 encoder. 'Here's a few suggestions you can use for WAV_TYPE: 'GSM_610 22KHz = 67 'GSM_610 44KHz = 68 <<< Used for "WAV_TYPE = 0" if you are using FFMPEG as your MP3 encoder 'ADPCM 22KHz Mono = 61 'ADPCM 44KHz Mono = 63 'CCITT ALaw 22KHz Mono= 45 'CCITT ALaw 44KHz Mono= 47 '16kHz 16Bit Mono = 18 '24kHz 16Bit Mono = 26 '32kHz 16Bit Mono = 30 '44kHz 16Bit Mono = 34 <<< Used for "WAV_TYPE = 0" if you are using LAME as your MP3 encoder ' 'NOTE: The GSM codec makes very small files, but not all transcoders can use GSM (but FFMPEG can!) ' The ADPCM and CCITT codecs make medium-size files. ' The remaining two 16Bit codecs make huge files, but they work with all transcoders (like LAME). ' If your intermediate WAV file gets too big (like you try to convert a novel that hasn't been ' broken into separate chapters), it will "blow up". Stick with GSM and FFMPEG if you can. ' See the SAFT function in this code for values of all WAV audio types. ' '############# No user editing below this point ############### '############################################################## Const DEF_SPEECH_OBJ = "Sapi.SpVoice" 'What speech engine to use by default Const DEF_SPEECH_INDEX = 0 'Which voice to use (0=the first voice) by default Const DIC_AUTHOR = "Author" 'Keyname in the dictionary Const DIC_TITLE = "Title" 'Keyname in the dictionary Const DIC_PICTURE = "Picture" 'Keyname in the dictionary (path to JPG file) Const DIC_FILE = "File" 'Keyname in the dictionary (path and name *but not extension* of file) Const DIC_TEXT = "Text" 'Keyname in the dictionary (text to be converted) Force32Bit ForceCscript Main Sub Main() Dim strMp3Command, strPath, dicValues, ws, fs, strTagBody, lngWavType Set ws = CreateObject("Wscript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") lngWavType = 0 'Make sure we have an MP3 converter available. FFMPEG is the first choice. strMp3Command = "" If strMp3Command = "" Then strPath = FindProgram("ffmpeg.exe", "infile") If strPath <> "" Then strMp3Command = strPath & FFMPEG_COMMAND lngWavType = 68 End If End If If strMp3Command = "" Then strPath = FindProgram("lame.exe", "infile") If strPath <> "" Then strMp3Command = strPath & LAME_COMMAND lngWavType = 34 End If End If If strMp3Command = "" Then 'At this point, we don't have FFMPEG -or- LAME, so try to create LAME in the temp folder CreateLame fs.BuildPath(fs.GetSpecialFolder(2), "lame.exe") 'Test again to see if LAME is there strPath = FindProgram("lame.exe", "infile") If strPath <> "" Then strMp3Command = strPath & LAME_COMMAND lngWavType = 34 End If End If 'Although we don't need it now, take advantage of the fact that 'we might be running as an administrator to create the AutoItX file AutoItObject 'If we can't locate FFMPEG or LAME, just fail :( If strMp3Command = "" Then MsgBox "The ""lame.exe"" and ""ffmpeg.exe"" programs don't exist. " & vbCrLf _ & "Please download a ""Windows Build"" of FFMPEG from http://ffmpeg.org" Exit Sub End If 'Get the input values we need If True Then Set dicValues = Nothing 'Initialize to nothing Else Set dicValues = CreateObject("Scripting.Dictionary") 'This line only needed during development End If On Error Resume Next 'If GetText() fails, it won't return anything Set dicValues = GetText() 'On Error Goto 0 If dicValues Is Nothing Then '"Nothing" is okay only if a JPG file was specified, in which case a new INI file will exist If fs.FileExists(FileNameInTempDir(fs.GetBaseName(WScript.ScriptName) & ".ini")) Then If Abs(DateDiff("s", Now(), fs.GetFile(FileNameInTempDir(fs.GetBaseName(WScript.ScriptName) & ".ini")).DateLastModified)) > 10 Then 'At this point, there's an INI file, but it's "old" (not something the script just made) ReadMe "" Exit Sub Else 'At this point, a new INI file exists, so we're done! Exit Sub End If Else 'At this point, there's no INI file, so show some help. ReadMe "" Exit Sub End If End If 'Set the WAV file type if it was specified; otherwise it's already set based on the encoder type. If WAV_TYPE <> 0 Then lngWavType = WAV_TYPE End If 'Convert text to WAV CreateWAV dicValues(DIC_TEXT), lngWavType, dicValues(DIC_FILE) & ".wav" 'Convert WAV to MP3 strMp3Command = Replace(strMp3Command, "INPUT_WAV", """" & dicValues(DIC_FILE) & ".wav""") strMp3Command = Replace(strMp3Command, "OUTPUT_MP3", """" & dicValues(DIC_FILE) & ".mp3""") ws.Run strMp3Command, 1, True fs.DeleteFile dicValues(DIC_FILE) & ".wav" 'Add author name to MP3 Status "Adding author name: " & dicValues(DIC_AUTHOR) strTagBody = Tag_T("TPE1", dicValues(DIC_AUTHOR)) AddTag strTagBody, dicValues(DIC_FILE) & ".mp3" strTagBody = Tag_T("TOPE", dicValues(DIC_AUTHOR)) AddTag strTagBody, dicValues(DIC_FILE) & ".mp3" strTagBody = Tag_T("TEXT", dicValues(DIC_AUTHOR)) AddTag strTagBody, dicValues(DIC_FILE) & ".mp3" strTagBody = Tag_T("TOLY", dicValues(DIC_AUTHOR)) AddTag strTagBody, dicValues(DIC_FILE) & ".mp3" 'Add Title to MP3 Status "Adding title: " & dicValues(DIC_TITLE) strTagBody = Tag_T("TIT2", dicValues(DIC_TITLE)) AddTag strTagBody, dicValues(DIC_FILE) & ".mp3" strTagBody = Tag_T("TOAL", dicValues(DIC_TITLE)) AddTag strTagBody, dicValues(DIC_FILE) & ".mp3" 'Add cover art to MP3 Status "Adding cover art: " & dicValues(DIC_PICTURE) strTagBody = Tag_APIC("APIC", 0, "Cover Photo", dicValues(DIC_PICTURE)) AddTag strTagBody, dicValues(DIC_FILE) & ".mp3" strTagBody = Tag_APIC("APIC", 3, "Other Photo", dicValues(DIC_PICTURE)) AddTag strTagBody, dicValues(DIC_FILE) & ".mp3" End Sub Function ToAscii(strUnicode) Dim lngPointer, strOut, lngLength, blnUnicode strOut = "" blnUnicode = False 'If it's a big file, sample the text to see if converting it is worth it If Len(strUnicode) < 100000 Then blnUnicode = True Else lngLength = 1000 If Len(strUnicode) < lngLength Then lngLength = Len(strUnicode) For lngPointer = 1 To lngLength If Eval(Chr(Asc(Mid(strUnicode, lngPointer, 1))) <> Mid(strUnicode, lngPointer, 1)) Then blnUnicode = True End If Next End If 'If the input is unicode, process it. Otherwise do nothing If blnUnicode Then For lngPointer = 1 To Len(strUnicode) strOut = strOut & Chr(Asc(Mid(strUnicode, lngPointer, 1))) Next Else strOut = strUnicode End If ToAscii = strOut End Function Sub CreateWAV(strTextIn, lngWavType, strFileOut) Dim tts, sfs, dicVoiceData, fs, lngVoiceIndex, strVoiceObject Set fs = CreateObject("Scripting.FileSystemObject") Set sfs = CreateObject("Sapi.SpFileStream") Set tts = CreateObject("Sapi.SpVoice") lngVoiceIndex = DEF_SPEECH_INDEX strVoiceObject = DEF_SPEECH_OBJ If fs.FileExists(FileNameInThisDir("StoryReader.cfg")) Then Set dicVoiceData = CreateObject("Scripting.Dictionary") 'This line only needed during development Set dicVoiceData = FileToDictionary(FileNameInThisDir("StoryReader.cfg")) lngVoiceIndex = dicVoiceData("voice") strVoiceObject = dicVoiceData("object") End If Set tts = Nothing Set tts = CreateObject(strVoiceObject) If tts Is Nothing Then MsgBox "You don't have a voice engine! Please hop on the internet, download, and install a SAPI 5 engine." WScript.Quit 1 End If If tts.GetVoices.Count < 1 Then MsgBox "You don't have a voice! Please hop on the internet, download, and install a SAPI 5 voice." WScript.Quit 1 End If On Error Resume Next Err.Clear Set tts.Voice = tts.GetVoices.Item(lngVoiceIndex) If Err.Number <> 0 Then MsgBox "The voice that was specified (#" & lngVoiceIndex & ") isn't available." WScript.Quit 1 End If On Error Goto 0 tts.Volume = 100 sfs.Format.Type = lngWavType Status "Creating WAV file " & SAFT(lngWavType) & " using " & tts.GetVoices.Item(lngVoiceIndex).GetDescription sfs.Open strFileOut, 3, False Set tts.AudioOutputStream = sfs tts.Speak strTextIn sfs.Close Set sfs = Nothing Set tts = Nothing End Sub Function FileNameLikeMine(strFileExtension) 'As String 'Returns a file name the same as the script name except 'for the file extension. Dim fs 'As Object Dim strExtension 'As String Set fs = CreateObject("Scripting.FileSystemObject") strExtension = strFileExtension If Len(strExtension) < 1 Then strExtension = "txt" If strExtension = "." Then strExtension = "txt" If Left(strExtension,1) = "." Then strExtension = Mid(strExtension, 2) FileNameLikeMine = Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & strExtension End Function Function FileNameInThisDir(strFileName) 'Returns a complete path and file name to a file in the 'script directory. Does not check to see if the file exists. Dim fs Set fs = CreateObject("Scripting.FileSystemObject") FileNameInThisDir = fs.GetAbsolutePathName(fs.BuildPath(fs.GetParentFolderName(Wscript.ScriptFullName), strFileName)) End Function Function SimplifyText(strText) 'Replaces unusual characters or escapes with plain ascii Dim lngLength, strGood, strBad, strContent strContent = strText lngLength = Len(strContent) strGood = "..." : For Each strBad In Split("… …") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = """" : For Each strBad In Split("“ ” “ ” “ ”") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "--" : For Each strBad In Split("– – – — — —") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "ss" : For Each strBad In Split("ß ß ß") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "'" : For Each strBad In Split("’ ‘ ` ´ ‘ ’ ’ ‘ `") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "A" : For Each strBad In Split("Ä Ä Å Å À À Á Á Â Â Ã Ã") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "C" : For Each strBad In Split("Ç Ç") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "E" : For Each strBad In Split("Ë Ë È È É É Ê Ê") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "I" : For Each strBad In Split("Í Í Î Î Ï Ï Ì Ì") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "N" : For Each strBad In Split("Ñ Ñ") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "O" : For Each strBad In Split("Ø Ø Ó Ó Ô Ô Õ Õ Ö Ö Ò Ò") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "U" : For Each strBad In Split("Ü Ü Û Û Ú Ú Ù Ù") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "Y" : For Each strBad In Split("Ý Ý Ý") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "a" : For Each strBad In Split("å å å ä ä ä ã ã ã â â â á á á à à à") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "c" : For Each strBad In Split("ç ç ç") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "e" : For Each strBad In Split("ë ë ë ê ê ê é é é è è è") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "i" : For Each strBad In Split("ï ï ï î î î í í í ì ì ì") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "n" : For Each strBad In Split("ñ ñ ñ") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "o" : For Each strBad In Split("ø ø ø ö ö ö õ õ õ ô ô ô ó ó ó ò ò ò") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "u" : For Each strBad In Split("ü ü ü û û û ú ú ú ù ù ù") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "y" : For Each strBad In Split("ÿ ÿ ÿ ý ý ý") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "z" : For Each strBad In Split("ž ž") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = ">" : For Each strBad In Split(">") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next strGood = "<" : For Each strBad In Split("<") : strContent = Replace(strContent, strBad, strGood, 1, -1, vbTextCompare) : Next SimplifyText = strContent End Function Function RemoveHighBytes(strBadText) Dim lngLength, lngCount, blnBad, strText, strOut, strBuffer, strChar strText = strBadText 'Process bad text strOut = "" strBuffer = "" For lngCount = 1 To Len(strText) strChar = Mid(strText, lngCount, 1) If Asc(strChar) > 127 Then strBuffer = strBuffer & " " Else strBuffer = strBuffer & strChar End If If lngCount Mod 1000 = 0 Then strOut = strOut & strBuffer strBuffer = "" End If Next strOut = strOut & strBuffer RemoveHighBytes = strOut End Function Function FileModTimestamp(strFilename) 'Returns a high-precision last-modified timestamp like 20140331211026.649060-420 Dim wmi, fil, fils, ts Set wmi = GetObject("winmgmts:\\.\root\CIMV2") Set fils = wmi.ExecQuery("Select * from CIM_DataFile where Name = '" & Replace(strFilename, "\", "\\") & "'", "WQL", 48) For Each fil in fils ts = fil.LastModified Next FileModTimestamp = ts End Function Function String2File(strData, strFileName) 'Writes a string to a file. Returns True if success. Dim fs 'As Scripting.FileSystemObject Dim ts 'As Scripting.TextStream Dim lngChar, strBlock, intChar, dtTimeStamp, lngTries Const ForWriting = 2 Set fs = CreateObject("Scripting.FileSystemObject") On Error Resume Next If fs.FileExists(strFileName) Then dtTimeStamp = FileModTimestamp(strFilename) Else dtTimeStamp = "0" End If Err.Clear Set ts = Nothing For lngTries = 1 To 10 Set ts = fs.OpenTextFile(strFileName, ForWriting, True) If Not ts Is Nothing Then Exit For WScript.Sleep 500 Next If ts Is Nothing Then WScript.Echo "FATAL ERROR: File """ & strFile & """ can't be opened for writing. The error is:" & vbCrLf & Err.Description WScript.Quit End If Err.Clear For lngTries = 1 To 10 ts.Write strData If Err.Number = 0 Then Exit For Err.Clear WScript.Sleep 500 Next If Err.Number <> 0 Then 'Must have hit one of the "problem characters" between 128 and 159 For lngChar = 1 To Len(strData) Step 100 Err.Clear ts.Write Mid(strData, lngChar, 100) If Err.Number <> 0 Then 'This block of 100 must have the problem. Write them one-at-a-time Status "String2File: " & "hit a problem about " & lngChar & " bytes in" strBlock = Mid(strData, lngChar, 100) For intChar = 1 To Len(strBlock) ts.Write Chr(255 And AscW(Mid(strBlock, intChar))) Next End If Next End If ts.Close WScript.Sleep 500 'Wait for file system to settle If fs.FileExists(strFileName) Then If dtTimeStamp = FileModTimestamp(strFilename) Then Status "String2File: " & "timestamp wasn't changed after write" String2File = False Else If VERBOSE Then Status "String2File: " & "timestamp was updated after write" String2File = True End If Else Status "String2File: " & "file doesn't exist after write" String2File = False End If End Function Function File2String(strFile) Const TristateTrue = -1 'Opens the file as Unicode. Const TristateFalse = 0 'Opens the file as ASCII. Dim fs, ts, strText, lngUnicode, lngAscii, intCount, lngLength Const ForReading = 1 Set fs = CreateObject("Scripting.FileSystemObject") 'Make sure file exists If Not fs.FileExists(strFile) Then File2String = "" Exit Function End If 'Make sure file is not empty If fs.GetFile(strFile).Size = 0 Then File2String = "" Exit Function End If 'Read file as ascii and count spaces Set ts = fs.OpenTextFile(strFile, ForReading, True, TristateFalse) strText = ts.ReadAll ts.Close lngAscii = 0 lngLength = 100 If Len(strText) < lngLength Then lngLength = Len(strText) For intCount = 1 To lngLength If Mid(strText, intCount, 1) = " " Then lngAscii = lngAscii + 1 Next 'Read file as unicode and count spaces Set ts = fs.OpenTextFile(strFile, ForReading, True, TristateTrue) strText = ts.ReadAll ts.Close lngUnicode = 0 lngLength = 100 If Len(strText) < lngLength Then lngLength = Len(strText) For intCount = 1 To lngLength If Mid(strText, intCount, 1) = " " Then lngUnicode = lngUnicode + 1 Next 'Whichever way of reading generated the most spaces... Read it that way If lngAscii >= lngUnicode Then Set ts = fs.OpenTextFile(strFile, ForReading, True, TristateFalse) strText = ts.ReadAll ts.Close Else Set ts = fs.OpenTextFile(strFile, ForReading, True, TristateTrue) strText = ts.ReadAll ts.Close strText = ToAscii(strText) End If File2String = strText End Function Function FileNameInTempDir(strFileName) 'Returns the full path and file name to a file in the user's temporary directory Dim fs Const TemporaryFolder = 2 Set fs = CreateObject("Scripting.FileSystemObject") FileNameInTempDir = fs.GetAbsolutePathName(fs.BuildPath(fs.GetSpecialFolder(TemporaryFolder), strFileName)) End Function Function MostRecent(strFolderPath, strFileExtension) 'Returns the full path of the most recent file Dim fs, fol, fils, fil, strMostRecent Set fs = CreateObject("Scripting.FileSystemObject") Set fol = fs.GetFolder(strFolderPath) Set fils = fol.Files strMostRecent = "" For Each fil In fils If Lcase(fs.GetExtensionName(fil.Name)) = LCase(strFileExtension) Then If strMostRecent = "" Then strMostRecent = fil.Path End If If fil.DateLastModified > fs.GetFile(strMostRecent).DateLastModified Then strMostRecent = fil.Path End If End If Next MostRecent = strMostRecent End Function Function GetClipboard() Dim ie, ai, doc, pw, cd, blnError, strClip 'Although we try to create an AutoIt object, it only works 'if we're running as admin -or- if the user already has 'AutoIt installed on the system. Otherwise, we silently 'fail back to using Internet Explorer. Set ai = Nothing On Error Resume Next Set ai = AutoItObject() On Error Goto 0 If ai Is Nothing Then blnError = False Set ie = Nothing On Error Resume Next Set ie = CreateObject("InternetExplorer.Application") If Err.Number <> 0 Then blnError = True ie.Navigate("about:blank") If Err.Number <> 0 Then blnError = True Set doc = ie.Document If Err.Number <> 0 Then blnError = True Set pw = doc.ParentWindow If Err.Number <> 0 Then blnError = True Set cd = pw.ClipboardData If Err.Number <> 0 Then blnError = True strClip = "" strClip = cd.GetData("text") ie.Quit On Error Goto 0 If ("" = strClip) and blnError Then ReadMe "Unable to use AutoIt or Internet Explorer to access the clipboard. Please manually install and register a 32-bit version of the AutoItX DLL file." End If Else strClip = ai.ClipGet Set ai = Nothing End If GetClipboard = strClip End Function Sub ToggleRightClick() Dim ws, strJPG, strTXT On Error Resume Next Set ws = CreateObject("Wscript.Shell") 'Find the location of JPG settings strJPG = "" strJPG = ws.RegRead("HKEY_CLASSES_ROOT\.jpg\") 'Find the location of TXT settings strTXT = "" strTXT = ws.RegRead("HKEY_CLASSES_ROOT\.txt\") 'Will we write or clear values? If RightClickEnabled() Then 'Clear Directory values ws.RegDelete "HKEY_CLASSES_ROOT\Directory\shell\" & DIR_RIGHT_CLICK_TEXT & "\command\" ws.RegDelete "HKEY_CLASSES_ROOT\Directory\shell\" & DIR_RIGHT_CLICK_TEXT & "\" 'Clear JPG values If strJPG <> "" Then ws.RegDelete "HKEY_CLASSES_ROOT\" & strJPG & "\shell\" & JPG_RIGHT_CLICK_TEXT & "\command\" ws.RegDelete "HKEY_CLASSES_ROOT\" & strJPG & "\shell\" & JPG_RIGHT_CLICK_TEXT & "\" End If 'Clear TXT values If strTXT <> "" Then ws.RegDelete "HKEY_CLASSES_ROOT\" & strTXT & "\shell\" & TXT_RIGHT_CLICK_TEXT & "\command\" ws.RegDelete "HKEY_CLASSES_ROOT\" & strTXT & "\shell\" & TXT_RIGHT_CLICK_TEXT & "\" End If Else 'Write Directory value ws.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\" & DIR_RIGHT_CLICK_TEXT & "\command\", "wscript.exe """ & WScript.ScriptFullName & """ ""%1""", "REG_EXPAND_SZ" 'Write JPG value If strJPG <> "" Then ws.RegWrite "HKEY_CLASSES_ROOT\" & strJPG & "\shell\" & JPG_RIGHT_CLICK_TEXT & "\command\", "wscript.exe """ & WScript.ScriptFullName & """ ""%1""", "REG_EXPAND_SZ" End If 'Write TXT value If strTXT <> "" Then ws.RegWrite "HKEY_CLASSES_ROOT\" & strTXT & "\shell\" & TXT_RIGHT_CLICK_TEXT & "\command\", "wscript.exe """ & WScript.ScriptFullName & """ ""%1""", "REG_EXPAND_SZ" End If End If On Error Goto 0 End Sub Function RightClickStatus() If RightClickEnabled() Then RightClickStatus = "ENABLED" Else RightClickStatus = "DISABLED" End If End Function Function RightClickEnabled() Dim ws, strValue Set ws = CreateObject("Wscript.Shell") strValue = "" On Error Resume Next strValue = ws.RegRead("HKEY_CLASSES_ROOT\Directory\shell\" & DIR_RIGHT_CLICK_TEXT & "\command\") On Error Goto 0 RightClickEnabled = Eval("" <> strValue) End Function Sub Status(strMessage) If Lcase(Right(Wscript.FullName, 12)) = "\cscript.exe" Then Wscript.Echo strMessage End If End Sub Function CommandExists(strCommand, strProof) 'Returns true if a command line utility will run. 'Enter the command and some text that appears in the command output. Dim strData, app, ws, intMaxCount, intCount On Error Resume Next Set ws = CreateObject("Wscript.Shell") strData = "" intMaxCount = 10 intCount = 0 Err.Clear Set app = ws.Exec(strCommand) If Err.Number = 0 Then Do While app.Status = 0 WScript.Sleep 100 intCount = intCount + 1 'Keep track of how many times we've waited. If intCount > intMaxCount Then Exit Do 'Don't get stuck waiting for user input. Loop strData = app.StdOut.ReadAll strData = strData & app.StdErr.ReadAll End If If strData = "" Then CommandExists = False Else If InStr(strData, strProof) = 0 Then CommandExists = False Else CommandExists = True End If End If End Function Function FindFileInPath(strFileName) 'Returns the first full path where the file was found in the %PATH%. 'Returns an empty string if the file isn't found. Dim fs, ws, env, arrFolders, strFindFileInPath, intFolder Set fs = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") Set env = ws.Environment("PROCESS") arrFolders = Split(env.Item("PATH"), ";") strFindFileInPath = "" 'Walk the folders backwards so we'll return the earliest one in the list For intFolder = UBound(arrFolders) To 0 Step -1 If fs.FileExists(fs.BuildPath(arrFolders(intFolder), strFileName)) Then strFindFileInPath = fs.BuildPath(arrFolders(intFolder), strFileName) End If Next FindFileInPath = strFindFileInPath End Function Function MuiCache(strDescription) 'Use the REGEDIT program because the scripting host can't do it. 'Returns a tab-delimited list of file paths matching a description. 'Registry entries are like: '"H:\\Eric\\Program Files\\Utils\\ffmpeg.exe"="ffmpeg.exe" '"H:\\Eric\\Downloads\\UTILS\\dehtml.exe"="dehtml: remove HTML constructs from documents" Dim ws, fs Dim strCommand, strRegText, strLine, strKeys, strFile Const REG_PATH = "HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\Shell\MuiCache" 'HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\MuiCache On Error Resume Next Set fs = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") 'Delete the temp file if it exists strFile = fs.GetAbsolutePathName(fs.BuildPath(fs.GetSpecialFolder(2), "~reg.txt")) If fs.FileExists(strFile) Then fs.DeleteFile strFile strCommand = "regedit.exe /E """ & strFile & """ """ & REG_PATH & """" ws.Run strCommand, 1, True strRegText = "" strRegText = fs.OpenTextFile(strFile, 1, False, -1).ReadAll 'Delete the temp file now that we are done with it. If fs.FileExists(strFile) Then fs.DeleteFile strFile 'Ignore empty results If Instr(strRegText, """=""") = 0 Then MuiCache = "" Exit Function End If 'Normalize text strRegText = Replace(strRegText, """", "") strRegText = Replace(strRegText, "\\", "\") strRegText = Replace(strRegText, vbCr, vbLf) strRegText = Replace(strRegText, vbLf & vbLf, vbLf) 'Process all desired lines strKeys = "" For Each strLine In Split(strRegText, vbLf) If Ubound(Split(strLine, "=")) = 1 Then If Lcase(Split(strLine, "=")(1)) = Lcase(strDescription) Then If fs.FileExists(Split(strLine, "=")(0)) Then If strKeys <> "" Then strKeys = strKeys & vbTab End If strKeys = strKeys & Split(strLine, "=")(0) End If End If End If Next MuiCache = strKeys End Function Function RegistryApplications(strExeName) 'Tries to use the registry to find the path of a program. 'Returns the path on success or empty string on failure. Dim strAppPath, fs, ws, lngEnd Set fs = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") strAppPath = "" On Error Resume Next 'Try to find the entry strAppPath = ws.RegRead("HKEY_CLASSES_ROOT\Applications\" & strExeName & "\shell\open\command\") On Error Goto 0 If strAppPath <> "" Then lngEnd = InStr(1, strAppPath, ".exe", vbTextCompare) If lngEnd <> 0 Then strAppPath = Left(strAppPath, lngEnd + 3) End If strAppPath = Replace(strAppPath, """", "") strAppPath = ws.ExpandEnvironmentStrings(strAppPath) 'Make sure the file really exists If strAppPath <> "" Then If Not fs.FileExists(strAppPath) Then strAppPath = "" End If End If End If RegistryApplications = strAppPath End Function Function FindProgram(strCommand, strProof) 'Look for an executable in all the normal places. Return the full path if we find it. Dim strFindProgram, strPath, fs Set fs = CreateObject("Scripting.FileSystemObject") strFindProgram = "" 'Current directory If strFindProgram = "" Then strPath = fs.GetAbsolutePathName(".\" & strCommand) If fs.FileExists(strPath) Then If CommandExists(strPath, strProof) Then strFindProgram = strPath End If End If End If 'Script directory If strFindProgram = "" Then strPath = fs.BuildPath(fs.GetBaseName(WScript.ScriptFullName), strCommand) If fs.FileExists(strPath) Then If CommandExists(strPath, strProof) Then strFindProgram = strPath End If End If End If 'Path If strFindProgram = "" Then strPath = FindFileInPath(strCommand) If strPath <> "" Then If CommandExists(strPath, strProof) Then strFindProgram = strPath End If End If End If 'Registry "Applications" section If strFindProgram = "" Then strPath = RegistryApplications(strCommand) If strPath <> "" Then If CommandExists(strPath, strProof) Then strFindProgram = strPath End If End If End If 'MUI Cache If strFindProgram = "" Then For Each strPath In Split(MuiCache(strCommand), vbTab) If CommandExists(strPath, strProof) Then strFindProgram = strPath End If Next End If 'Temp directory If strFindProgram = "" Then strPath = fs.BuildPath(fs.GetSpecialFolder(2), strCommand) If fs.FileExists(strPath) Then If CommandExists(strPath, strProof) Then strFindProgram = strPath End If End If End If 'Go with whatever we found FindProgram = strFindProgram End Function 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 Sub Force32Bit() 'If script is running on 64 bit, re-run the script with a 32-bit engine Dim fs, strExe32Path, strCmd, intArg Set fs = CreateObject("Scripting.FileSystemObject") 'If this is a dual 32/64-bit OS, then the SysWOW folder script executable will exist strExe32Path = fs.BuildPath(fs.GetSpecialFolder(0), "SysWOW64\" & fs.GetFileName(WScript.FullName)) If fs.FileExists(strExe32Path) Then 'So the SysWOW script file exists! But are we already running it? If Lcase(WScript.FullName) <> Lcase(strExe32Path) Then 'Since the executable paths don't match, we must not be running 32-bit. strCmd = strExe32Path '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 the 32-bit engine. Kill this 64-bit script. CreateObject("Wscript.Shell").Run strCmd, 1, False WScript.Quit End If End If End Sub Sub ReadMe(strErrorMessage) 'Uses Notepad to display the comments at the beginning of the script Dim ws, fs, ts, strScript, strLine, strReadMe Set ws = CreateObject("Wscript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile(WScript.ScriptFullName, 1, True) If strErrorMessage <> "" Then strReadMe = "Error: " & strErrorMessage & vbCrLf & String(60, "-") & vbCrLf Else strReadMe = "" End If Do Until ts.AtEndOfStream strLine = ts.ReadLine If Trim(strLine) = "" Then strReadMe = strReadMe & vbCrLf ElseIf strLine = "'" Then strReadMe = strReadMe & vbCrLf ElseIf Left(strLine, 1) = "'" Then strReadMe = strReadMe & vbCrLf & Mid(strLine, 2) Else Exit Do End If Loop ts.Close Set ts = fs.OpenTextFile(fs.BuildPath(fs.GetSpecialFolder(2), "ReadMe.txt"), 2, True) ts.Write strReadMe ts.Close ws.Run fs.BuildPath(fs.GetSpecialFolder(2), "ReadMe.txt"), 1, False End Sub Function GetText() 'Handles all user interaction and returns a dictionary 'of text for the title, author, picture path, and content Dim fs, dic Dim strTitle, strAuthor, strID, strContent, strFile, strLine, strChar, intCount, strCover Dim strAutoIt, strLAME, strFFMPEG Dim blnUnwrap, blnUnHyphen, blnOverWrite, intIndent, intVerbose, strGood, strBad, lngLength Set fs = CreateObject("Scripting.FileSystemObject") 'Verify we have minimum inputs If WScript.Arguments.Count = 0 Then ToggleRightClick If IsRegistered("AutoItX3.Control") Or IsRegistered("AutoItX.Control") Then strAutoIt = "AutoIt is installed and registered." Else If fs.FileExists(fs.BuildPath(fs.GetSpecialFolder(1), "AutoItX.dll")) Then strAutoIt = "AutoIt is installed but not registered." Else strAutoIt = "AutoIt is not registered (and may not be installed)." End If End If If FindProgram("ffmpeg.exe", "infile") <> "" Then strFFMPEG = "FFMPEG is installed and available." Else strFFMPEG = "FFMPEG is not available." If FindProgram("lame.exe", "infile") <> "" Then strLAME = "LAME is installed and available." Else strLAME = "LAME is not available." End If End If MsgBox "[Drop a plain text file on this script -or- copy some text and drop a destination folder] -and- " _ & vbCrLf & "[Answer questions -or- edit ""Const"" values in the script -or- use command line arguments]:" & vbCrLf _ & vbCrLf & "/file:""C:\path\file.txt"" (location of plain text)" _ & vbCrLf & "/title:""Book Title"" (title of book DEFAULT=Based on text file name)" _ & vbCrLf & "/author:""Author Name"" (book author DEFAULT=Byline in book beginning)" _ & vbCrLf & "/unwrap:True|False (replace single newline with space DEFAULT=" & DEF_UNWRAP & ")" _ & vbCrLf & "/unhyphen:True|False (remove hyphen-newline DEFAULT=" & DEF_UNHYPHEN & ")" _ & vbCrLf & "/overwrite:True|False (overwrite without asking DEFAULT=" & DEF_OVERWRITE & ")" _ & vbCrLf & vbCrLf & "If desired, cover art may be placed in the destination folder " _ & "or dropped on the script before creating the MP3." _ & vbCrLf & "If you run the script with no arguments from an Admin command prompt, " _ & vbCrLf & "it will toggle (enable/disable) folder, JPG, and TXT right-click options. " _ & vbCrLf & vbCrLf & "Current right-click status is " & RightClickStatus() & "." _ & vbCrLf & strAutoIt & vbCrLf & strFFMPEG & vbCrLf & strLAME _ & "", vbOkOnly, fs.GetBaseName(WScript.ScriptName) Exit Function End If 'If there's a named file name argument, use it. If WScript.Arguments.Named.Item("file") <> "" Then strFile = WScript.Arguments.Named.Item("file") If VERBOSE Then Status "Source file: " & strFile Else 'If no arguments, prompt for a source. If WScript.Arguments.Unnamed.Count = 0 Then strFile = InputBox("File Path", fs.GetBaseName(WScript.ScriptName), fs.GetAbsolutePathName(".")) Else 'The argument must be a file or a folder. Get it and we'll figure out which later. strFile = WScript.Arguments.Unnamed.Item(0) If VERBOSE Then Status "Unnamed argument: " & strFile End If End If 'Time to figure out whether we have a file or folder. 'First add quotes if they're needed. If fs.FileExists("""" & strFile & """") Then strFile = """" & strFile & """" End If If fs.FolderExists("""" & strFile & """") Then strFile = """" & strFile & """" End If 'If a folder is passed instead of a file or named arguments, assume the 'source is the clipboard and the destinatition is the folder If fs.FolderExists(strFile) Then Status "Destination folder: " & strFile 'If we were passed a folder, it means we're going to work with the clipboard. 'Get the book title so we can generate a file name based on the title. strContent = GetClipboard() Status "Clipboard content length: " & Len(strContent) strContent = ToAscii(strContent) strContent = SimplifyText(strContent) strContent = RemoveHighBytes(strContent) 'Start by assuming the title is the first line in the story strTitle = Left(strContent, 128) strTitle = Replace(strTitle, vbCr, vbLf) For Each strLine In Split(strTitle, vbLf) If Trim(strLine) <> "" Then strTitle = strLine If PROMPT_TITLE Then strTitle = InputBox("Text Title", fs.GetBaseName(WScript.ScriptName), strTitle) If PROMPT_TITLE Then If strTitle = "" Then 'The user hit "Cancel" on the title input dialog: Quit Exit Function End If End If End If Exit For End If Next If Left(strContent, 128) = strTitle Then 'We somehow have only blank lines at the beginning of the file, so the user never got asked about the title: Quit. MsgBox "The text seems to be mostly empty, sorry." Exit Function End If 'Generate a fake input file name based on the title so we have something to name the output file strFile = strTitle For Each strChar In Split("/ \ * ? : < > | """) strFile = Replace(strFile, strChar, "") Next strFile = fs.BuildPath(WScript.Arguments(0), strFile & ".txt") Else 'If we weren't passed a folder, then there better be a file! If Not fs.FileExists(strFile) Then MsgBox "Sorry, but " & strFile & " isn't a valid folder or file name.", vbOkOnly, fs.GetBaseName(WScript.ScriptName) Exit Function End If Status "Confirmed file: " & strFile 'If we were passed a JPG file, write its path in an INI file and exit. If ((Lcase(fs.GetExtensionName(strFile)) = "jpg") Or (Lcase(fs.GetExtensionName(strFile)) = "jpeg")) Then Status "Confirmed JPG file." String2File strFile, FileNameInTempDir(fs.GetBaseName(WScript.ScriptName) & ".ini") Exit Function End If 'Read the text content (not user-supplied, but I need it to guess at the author) strContent = File2String(strFile) strContent = SimplifyText(strContent) strContent = RemoveHighBytes(strContent) 'Title If WScript.Arguments.Named.Item("title") <> "" Then strTitle = WScript.Arguments.Named.Item("title") Else If WScript.Arguments.Named.Item("file") <> "" Then strTitle = fs.GetBaseName(WScript.Arguments.Named.Item("file")) Else strTitle = fs.GetBaseName(WScript.Arguments.Unnamed.Item(0)) End If If PROMPT_TITLE Then strTitle = InputBox("Book Title", fs.GetBaseName(WScript.ScriptName), strTitle) End If End If strTitle = Trim(strTitle) If strTitle = "" Then 'The user hit "Cancel" on the title input dialog: Quit Exit Function End If End If 'Author If WScript.Arguments.Named.Item("author") <> "" Then strAuthor = WScript.Arguments.Named.Item("author") Else 'Try to read the document looking for a "by" line on a title page strAuthor = Left(strContent, 128) strAuthor = Replace(strAuthor, vbCr, vbLf) If InStr(1, strAuthor, vbLf & "by ", vbTextCompare) Then 'We found the word "by" at the beginning of a line -- very good! strAuthor = Mid(strAuthor, InStr(1, strAuthor, vbLf & "by ", vbTextCompare) + 4, 64) If InStr(strAuthor, vbLf) Then strAuthor = Left(strAuthor, InStr(strAuthor, vbLf) - 1) End If Elseif InStr(1, strAuthor, "by ", vbTextCompare) Then 'We found the word "by" in the middle of a line -- not so good. strAuthor = Mid(strAuthor, InStr(1, strAuthor, "by ", vbTextCompare) + 3, 64) If InStr(strAuthor, vbLf) Then strAuthor = Left(strAuthor, InStr(strAuthor, vbLf) - 1) End If Else 'We found nothing -- horrible! Just fill in the author name with a default value. strAuthor = DEF_AUTHOR End If strAuthor = Trim(strAuthor) If PROMPT_AUTHOR Then strAuthor = InputBox("Author", fs.GetBaseName(WScript.ScriptName), strAuthor) End If End If If strAuthor = "" Then strAuthor = DEF_AUTHOR End If 'UnWrap If Trim(Replace(Lcase(WScript.Arguments.Named.Item("unwrap")), """", "")) <> "" Then blnUnwrap = Cbool(Eval(WScript.Arguments.Named.Item("unwrap"))) Else blnUnwrap = DEF_UNWRAP End If 'UnHyphen If Trim(Replace(Lcase(WScript.Arguments.Named.Item("unhyphen")), """", "")) <> "" Then blnUnHyphen = Cbool(Eval(WScript.Arguments.Named.Item("unhyphen"))) Else blnUnHyphen = DEF_UNHYPHEN End If 'Overwrite If Trim(Replace(Lcase(WScript.Arguments.Named.Item("overwrite")), """", "")) <> "" Then blnOverwrite = Cbool(Eval(WScript.Arguments.Named.Item("overwrite"))) Else blnOverwrite = DEF_OVERWRITE End If 'Retrieve the cover art location if we have it. strCover = "" If fs.FileExists(FileNameInTempDir(fs.GetBaseName(WScript.ScriptName) & ".ini")) Then If VERBOSE Then Status "INI file exists." 'Only consider the cover art if it was specified in the last 5 minutes If Abs(DateDiff("s", Now(), fs.GetFile(FileNameInTempDir(fs.GetBaseName(WScript.ScriptName) & ".ini")).DateLastModified)) > 300 Then 'Ignore old setting If VERBOSE Then Status "INI file is too old." strCover = "" Else 'New file. Use the value for cover art. strCover = File2String(FileNameInTempDir(fs.GetBaseName(WScript.ScriptName) & ".ini")) 'Be sure the file still exists! If fs.FileExists(strCover) Then Status "Cover art specified by INI file: " & strCover Else If VERBOSE Then Status "Specified cover art doesn't exist." strCover = "" End If End If 'Delete the INI file regardless once we've used it fs.DeleteFile FileNameInTempDir(fs.GetBaseName(WScript.ScriptName) & ".ini") Else If VERBOSE Then Status "Cover picture not specified by auto-generated INI file." 'Maybe there's a JPG in the destination folder we can use? If strCover = "" Then strCover = MostRecent(fs.GetParentFolderName(strFile), "jpg") End If If strCover = "" Then strCover = MostRecent(fs.GetParentFolderName(strFile), "jpeg") End If If strCover = "" Then Status "No cover art in destination folder." Else Status "Using " & strCover & " as cover art." End If End If 'Convert newlines to a standard linefeed strContent = Replace(strContent, vbCrLf, Chr(127)) strContent = Replace(strContent, vbCr, Chr(127)) strContent = Replace(strContent, vbLf, Chr(127)) strContent = Replace(strContent, Chr(127), vbLf) 'Remove hyphens If blnUnHyphen Then If InStr(strContent, "-" & vbLf) <> 0 Then strContent = Replace(strContent, "-" & vbLf, "") End If End If 'Unwrap 'Remove trailing spaces If InStr(strContent, " " & vbLf) <> 0 Then strContent = Replace(strContent, " " & vbLf, vbLf) End If If blnUnwrap Then 'Preserve multiple newlines (to be restored as paragraphs) If InStr(strContent, vbLf & vbLf) <> 0 Then For intCount = 10 To 2 Step -1 strContent = Replace(strContent, String(intCount, vbLf), Chr(127)) Next End If 'Now unwrap by replacing the single newlines with spaces strContent = Replace(strContent, vbLf, " ") Else 'Remove multiple newlines even if we won't unwrap If InStr(strContent, vbLf & vbLf) <> 0 Then For intCount = 10 To 1 Step -1 strContent = Replace(strContent, String(intCount, vbLf), Chr(127)) Next Else strContent = Replace(strContent, vbLf, Chr(127)) End If End If 'Restore escaped newlines strContent = Replace(strContent, Chr(127), vbLf) 'Remove multiple spaces Do While InStr(strContent, " ") <> 0 strContent = Replace(strContent, " ", " ") Loop 'Remove trailing spaces Do While InStr(strContent, vbLf & " ") strContent = Replace(strContent, vbLf & " ", vbLf) Loop Do While InStr(strContent, vbLf & vbTab) strContent = Replace(strContent, vbLf & vbTab, vbLf) Loop 'Add back my CRLF strContent = Replace(strContent, vbLf, Chr(127)) strContent = Replace(strContent, Chr(127), vbCrLf) 'Fix common text-to-speech problems strContent = Replace(strContent, " Mr. ", " mister ") strContent = Replace(strContent, "...", ".") strContent = Replace(strContent, "--", ", ") 'Add title and author if they don't exist If ADD_AUTHOR_TITLE Then 'Very conservative: Don't add title and author unless neither exists If InStr(1, Left(strContent, 128), strTitle, vbTextCompare) = 0 Then If InStr(1, Left(strContent, 128), strAuthor, vbTextCompare) = 0 Then strContent = strTitle & "." & vbCrLf & vbCrLf & "by " & strAuthor & "." & vbCrLf & vbCrLf & strContent End If End If End If 'Add padding to the end If PADDING_SECONDS <> 0 Then strContent = "" & vbCrLf & "" & vbCrLf & strContent _ & vbCrLf & "" & vbCrLf & "" End If 'Return the value Set dic = CreateObject("Scripting.Dictionary") dic.Add DIC_AUTHOR, strAuthor dic.Add DIC_PICTURE, strCover dic.Add DIC_TITLE, strTitle dic.Add DIC_TEXT, strContent dic.Add DIC_FILE, fs.BuildPath(fs.GetParentFolderName(strFile), fs.GetBaseName(strFile)) Set GetText = dic End Function Function AutoItObject() 'As Object Dim fs, obj Set fs = CreateObject("Scripting.FileSystemObject") Set obj = Nothing On Error Resume Next If IsRegistered("AutoItX3.Control") Then 'AutoIt3 is registered. Just use it. Set obj = CreateObject("AutoItX3.Control") Else If Not IsRegistered("AutoItX.Control") Then 'No version of AutoIt is registered. We need to be an admin to fix that. If ((IsAdmin(UserName())) Or (CanAskForAdmin())) Then CreateAutoItX fs.BuildPath(fs.GetSpecialFolder(1), "AutoItX.dll") RegisterServer fs.BuildPath(fs.GetSpecialFolder(1), "AutoItX.dll") End If End If Set obj = CreateObject("AutoItX.Control") End If Set AutoItObject = obj On Error Goto 0 End Function Function CanAskForAdmin() Dim fs, dic, blnCanAsk blnCanAsk = False 'The default. If False Then Set dic = CreateObject("Scripting.Dictionary") 'Only needed during development End If Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(FileNameLikeMine("ini")) Then Set dic = FileToDictionary(FileNameLikeMine("ini")) If dic.Exists("CanAskForAdmin") Then If Lcase(dic.Item("CanAskForAdmin")) = "true" Then blnCanAsk = True End If End If Else Set dic = CreateObject("Scripting.Dictionary") If MsgBox("Can I request Admin priveleges to install ""autoitx.dll"" (used for copy/paste)? Answering yes will stop you from being asked to access the clipboard every time.", vbYesNo, "Admin Priveleges Request") = vbYes Then dic.Add "CanAskForAdmin", "True" blnCanAsk = True Else dic.Add "CanAskForAdmin", "False" End If DictionaryToFile dic, FileNameLikeMine("ini") End If CanAskForAdmin = blnCanAsk End Function Function UserName() Dim objWMI, colComputers, objComputer, strUser, ws, env On Error Resume Next strUser = "" Err.Clear Set objWMI = GetObject("winmgmts:\\.\root\CIMV2") Set colComputers = objWMI.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", 48) If Err.Number <> 0 Then 'WMI Failure. Try environment Set ws = CreateObject("Wscript.Shell") Set env = ws.Environment("Process") strUser = env.Item("USERNAME") Else For Each objComputer In colComputers strUser = objComputer.UserName Next If Instr(strUser, "\") Then strUser = Mid(strUser, Instr(strUser, "\") + 1) End If End If Set objWMI = Nothing UserName = strUser End Function Function IsAdmin(strUserName) Dim objWMI, colUsers, objUser, strGroup, strUser, blnIsAdmin, blnHasAdmins On Error Resume Next Err.Clear Set objWMI = GetObject("winmgmts:\\.\root\CIMV2") Set colUsers = objWMI.ExecQuery("SELECT * FROM Win32_GroupUser", "WQL", 48) If Err.Number <> 0 Then 'Assume WMI failure means Win9X, implying user is an Administrator IsAdmin = True Else blnIsAdmin = False blnHasAdmins = False For Each objUser In colUsers strGroup = objUser.GroupComponent strGroup = Split(strGroup, "=") If strGroup(UBound(strGroup)) = """Administrators""" Then blnHasAdmins = True strUser = objUser.PartComponent strUser = Split(strUser, "=") If strUser(UBound(strUser)) = """" & strUserName & """" Then blnIsAdmin = True End If End If Next End If If blnHasAdmins = False Then 'If there are no members of the Administrators group, assume everybody is an admin IsAdmin = True Else IsAdmin = blnIsAdmin End If End Function Sub RegisterServer(strPath) Dim fs, wsh Const SystemFolder = 1 Const WshNormalFocus = 1 Set ws = CreateObject("Wscript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") Select Case Lcase(Right(strPath, 4)) Case ".exe" ws.Run strPath & " /RegServer", WshNormalFocus, True Case ".wsc" ws.Run "regsvr32.exe /i:""" & strPath & """ """ & fs.GetSpecialFolder(SystemFolder) & "\scrobj.dll""", WshNormalFocus, True Case Else ws.Run "regsvr32.exe /s """ & strPath & """", WshNormalFocus, True 'wsh.Run "rundll32.exe """ & strPath & """ DllRegisterServer", WshNormalFocus, True End Select End Sub Function IsRegistered(strObjectName) 'Returns True if object can be created Dim obj On Error Resume Next Set obj = Nothing Set obj = CreateObject(strObjectName) If obj Is Nothing Then IsRegistered = False Else IsRegistered = True Set obj = Nothing End If On Error Goto 0 End Function Function MimeType(strFileName) 'Returns the mime type of a file if it's specified in the registry. 'If no registry entry, returns "application/octet-stream" Dim ws, fs, strExt, strMime Set fs = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("Wscript.Shell") strExt = fs.GetExtensionName(strFileName) strMime = "application/octet-stream" On Error Resume Next strMime = ws.RegRead("HKEY_CLASSES_ROOT\." & strExt & "\Content Type") On Error Goto 0 MimeType = strMime End Function Function SAFT(lngSpeechAudioFormatType) 'Returns a text description of the format type 'Values from SpeechLib.SpeechAudioFormatType Dim strSAFT, lngSAFT 'Preserve input variable lngSAFT = lngSpeechAudioFormatType 'Stop bad input If Not IsNumeric(lngSAFT) Then SAFT = "Unknown" Exit Function End If If lngSAFT < 4 Or lngSAFT > 68 Then SAFT = "Unknown" Exit Function End If If lngSAFT = 4 Then strSAFT = "8kHz 8 Bit Mono" If lngSAFT = 5 Then strSAFT = "8kHz 8 Bit Stereo" If lngSAFT = 6 Then strSAFT = "8kHz 16 Bit Mono" If lngSAFT = 7 Then strSAFT = "8kHz 16 Bit Stereo" If lngSAFT = 8 Then strSAFT = "11kHz 8 Bit Mono" If lngSAFT = 9 Then strSAFT = "11kHz 8 Bit Stereo" If lngSAFT = 10 Then strSAFT = "11kHz 16 Bit Mono" If lngSAFT = 11 Then strSAFT = "11kHz 16 Bit Stereo" If lngSAFT = 12 Then strSAFT = "12kHz 8 Bit Mono" If lngSAFT = 13 Then strSAFT = "12kHz 8 Bit Stereo" If lngSAFT = 14 Then strSAFT = "12kHz 16 Bit Mono" If lngSAFT = 15 Then strSAFT = "12kHz 16 Bit Stereo" If lngSAFT = 16 Then strSAFT = "16kHz 8 Bit Mono" If lngSAFT = 17 Then strSAFT = "16kHz 8 Bit Stereo" If lngSAFT = 18 Then strSAFT = "16kHz 16 Bit Mono" If lngSAFT = 19 Then strSAFT = "16kHz 16 Bit Stereo" If lngSAFT = 20 Then strSAFT = "22kHz 8 Bit Mono" If lngSAFT = 21 Then strSAFT = "22kHz 8 Bit Stereo" If lngSAFT = 22 Then strSAFT = "22kHz 16 Bit Mono" If lngSAFT = 23 Then strSAFT = "22kHz 16 Bit Stereo" If lngSAFT = 24 Then strSAFT = "24kHz 8 Bit Mono" If lngSAFT = 25 Then strSAFT = "24kHz 8 Bit Stereo" If lngSAFT = 26 Then strSAFT = "24kHz 16 Bit Mono" If lngSAFT = 27 Then strSAFT = "24kHz 16 Bit Stereo" If lngSAFT = 28 Then strSAFT = "32kHz 8 Bit Mono" If lngSAFT = 29 Then strSAFT = "32kHz 8 Bit Stereo" If lngSAFT = 30 Then strSAFT = "32kHz 16 Bit Mono" If lngSAFT = 31 Then strSAFT = "32kHz 16 Bit Stereo" If lngSAFT = 32 Then strSAFT = "44kHz 8 Bit Mono" If lngSAFT = 33 Then strSAFT = "44kHz 8 Bit Stereo" If lngSAFT = 34 Then strSAFT = "44kHz 16 Bit Mono" If lngSAFT = 35 Then strSAFT = "44kHz 16 Bit Stereo" If lngSAFT = 36 Then strSAFT = "48kHz 8 Bit Mono" If lngSAFT = 37 Then strSAFT = "48kHz 8 Bit Stereo" If lngSAFT = 38 Then strSAFT = "48kHz 16 Bit Mono" If lngSAFT = 39 Then strSAFT = "48kHz 16 Bit Stereo" If lngSAFT = 40 Then strSAFT = "TrueSpeech 8kHz 1 Bit Mono" If lngSAFT = 41 Then strSAFT = "CCITT ALaw 8kHz Mono" If lngSAFT = 42 Then strSAFT = "CCITT ALaw 8kHz Stereo" If lngSAFT = 43 Then strSAFT = "CCITT ALaw 11kHz Mono" If lngSAFT = 44 Then strSAFT = "CCITT ALaw 11kHz Stereo" If lngSAFT = 45 Then strSAFT = "CCITT ALaw 22kHz Mono" If lngSAFT = 46 Then strSAFT = "CCITT ALaw 22kHz Stereo" If lngSAFT = 47 Then strSAFT = "CCITT ALaw 44kHz Mono" If lngSAFT = 48 Then strSAFT = "CCITT ALaw 44kHz Stereo" If lngSAFT = 49 Then strSAFT = "CCITT uLaw 8kHz Mono" If lngSAFT = 50 Then strSAFT = "CCITT uLaw 8kHz Stereo" If lngSAFT = 51 Then strSAFT = "CCITT uLaw 11kHz Mono" If lngSAFT = 52 Then strSAFT = "CCITT uLaw 11kHz Stereo" If lngSAFT = 53 Then strSAFT = "CCITT uLaw 22kHz Mono" If lngSAFT = 54 Then strSAFT = "CCITT uLaw 22kHz Stereo" If lngSAFT = 55 Then strSAFT = "CCITT uLaw 44kHz Mono" If lngSAFT = 56 Then strSAFT = "CCITT uLaw 44kHz Stereo" If lngSAFT = 57 Then strSAFT = "ADPCM 8kHz Mono" If lngSAFT = 58 Then strSAFT = "ADPCM 8kHz Stereo" If lngSAFT = 59 Then strSAFT = "ADPCM 11kHz Mono" If lngSAFT = 60 Then strSAFT = "ADPCM 11kHz Stereo" If lngSAFT = 61 Then strSAFT = "ADPCM 22kHz Mono" If lngSAFT = 62 Then strSAFT = "ADPCM 22kHz Stereo" If lngSAFT = 63 Then strSAFT = "ADPCM 44kHz Mono" If lngSAFT = 64 Then strSAFT = "ADPCM 44kHz Stereo" If lngSAFT = 65 Then strSAFT = "GSM 8kHz Mono" If lngSAFT = 66 Then strSAFT = "GSM 11kHz Mono" If lngSAFT = 67 Then strSAFT = "GSM 22kHz Mono" If lngSAFT = 68 Then strSAFT = "GSM 44kHz Mono" SAFT = strSAFT End Function Function Tag_APIC(strTagID, intPictureType, strDescription, strBinaryFileName) 'Creates a "picture" tag. Returns the actual binary data for the tag. 'TagID Size Flags 00 Mime 00 PictureTypeNumber Description 00 Binary data 'Picture type is decimal 0-20 from http://id3.org/id3v2.3.0#Attached_picture 'Most common picture type is 3 for "front cover" or 1 'for a 32x32 PNG icon. Only JPG or PNG pictures are supported. Dim lngTag, strFileContents, strTagBody, strMime strFileContents = File2StringBinary(strBinaryFileName) 'Mime Type (for either jpg, jpeg, or png files) strMime = MimeType(strBinaryFileName) 'Make the APIC tag strTagBody = "" 'The tag ID strTagBody = strTagBody & strTagID 'Size of this tag (length of arguments + 4) lngTag = Len(strFileContents) + Len(strMime) + Len(strDescription) + 4 strTagBody = strTagBody & Chr("&H" & Mid(Right("00000000" & Hex(lngTag), 8), 1, 2)) strTagBody = strTagBody & Chr("&H" & Mid(Right("00000000" & Hex(lngTag), 8), 3, 2)) strTagBody = strTagBody & Chr("&H" & Mid(Right("00000000" & Hex(lngTag), 8), 5, 2)) strTagBody = strTagBody & Chr("&H" & Mid(Right("00000000" & Hex(lngTag), 8), 7, 2)) 'Flags strTagBody = strTagBody & Chr(0) & Chr(0) 'Mime type strTagBody = strTagBody & Chr(0) & strMime & Chr(0) 'Picture type strTagBody = strTagBody & Chr(intPictureType) 'Description text encoding strTagBody = strTagBody & strDescription & Chr(0) 'Add the actual picture strTagBody = strTagBody & strFileContents 'Return value Tag_APIC = strTagBody End Function Function File2StringBinary(strFile) 'As String Dim fs, ts, strData, lngLength, lngTries Const ForReading = 1 strData = "" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(strFile) Then On Error Resume Next lngLength = 0 For lngTries = 1 To 10 lngLength = fs.GetFile(strFile).Size If lngLength <> 0 Then Exit For WScript.Sleep 500 Next If lngLength = 0 Then WScript.Echo "FATAL ERROR: File """ & strFile & """ seems to be zero length." WScript.Quit End If Set ts = Nothing For lngTries = 1 To 10 Set ts = fs.OpenTextFile(strFile, ForReading, True) If Not ts Is Nothing Then Exit For WScript.Sleep 500 Next If ts Is Nothing Then WScript.Echo "FATAL ERROR: File """ & strFile & """ can't be opened for reading. The error is:" & vbCrLf & Err.Description WScript.Quit End If strData = ts.Read(lngLength) ts.Close If Len(strData) = 0 Then WScript.Echo "FATAL ERROR: File """ & strFile & """ seems to be empty." WScript.Quit End If On Error Goto 0 End If File2StringBinary = strData End Function Function FileToDictionary(strFile) 'Reads an ini-style file and returns a dictionary Dim fs 'As Scripting.FileSystemObject Dim ts 'As Scripting.TextStream Dim strLine, dic, colNames, strName Const ForReading = 1 Set dic = CreateObject("Scripting.Dictionary") Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(strFile) Then Set ts = fs.OpenTextFile(strFile, ForReading, True) Do Until ts.AtEndOfStream strLine = ts.ReadLine If ((InStr(strLine, "=") > 1) And (InStr(strLine, "=") < (Len(strLine)))) Then If dic.Exists(Split(strLine, "=")(0)) Then dic(Split(strLine, "=")(0)) = Split(strLine, "=")(1) Else dic.Add Split(strLine, "=")(0), Split(strLine, "=")(1) End If End If Loop ts.Close End If Set FileToDictionary = dic End Function Sub DictionaryToFile(dic, strFile) 'Creates an ini-style file from a dictionary Dim fs 'As Scripting.FileSystemObject Dim ts 'As Scripting.TextStream Dim colNames, strName Const ForWriting = 2 Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile(strFile, ForWriting, True) colNames = dic.Keys For Each strName In colNames ts.WriteLine strName & "=" & dic(strName) Next ts.Close End Sub Function Tag_T(strTagID, strValue) 'Creates a text tag. Returns the actual binary data for the tag. 'TagID Size Flags 00 Text Dim strTagBody, lngTag 'Start building the tag with the ID strTagBody = strTagID 'Size of this tag (length of arguments + 1) lngTag = 1 + Len(strValue) strTagBody = strTagBody & Chr("&H" & Mid(Right("00000000" & Hex(lngTag), 8), 1, 2)) strTagBody = strTagBody & Chr("&H" & Mid(Right("00000000" & Hex(lngTag), 8), 3, 2)) strTagBody = strTagBody & Chr("&H" & Mid(Right("00000000" & Hex(lngTag), 8), 5, 2)) strTagBody = strTagBody & Chr("&H" & Mid(Right("00000000" & Hex(lngTag), 8), 7, 2)) 'Flags strTagBody = strTagBody & Chr(0) & Chr(0) 'Encoding strTagBody = strTagBody & Chr(0) 'Data strTagBody = strTagBody & strValue 'Done Tag_T = strTagBody End Function Function AddTag(strTagBody, strMP3FileName) 'Adds a pre-built tag to an MP3 file. Returns True on success. 'Can add to existing ID3 header or will create new ID3 header Dim lngLength, strHeader, varNum, strMP3FileContents, fs Set fs = CreateObject("Scripting.FileSystemObject") If VERBOSE Then Status "AddTag: " & strMP3FileName If Not fs.FileExists(strMP3FileName) Then Status "AddTag: " & "file doesn't exist" AddTag = False Exit Function End If If Len(strTagBody) < 10 Then Status "AddTag: " & "tag body is too small to be valid" AddTag = False Exit Function End If If VERBOSE Then Status "AddTag: " & "tag length to be added is " & Len(strTagBody) & " bytes" strMP3FileContents = File2StringBinary(strMP3FileName) If VERBOSE Then Status "AddTag: " & "file length is " & Len(strMP3FileContents) & " bytes" 'Make the header strHeader = "" 'Add ID3 identifier strHeader = strHeader & "ID3" 'Version 3 strHeader = strHeader & Chr(3) & Chr(0) 'Flags strHeader = strHeader & Chr(0) 'Header length is old size plus new data lngLength = RemoveID3Header(strMP3FileName) If VERBOSE Then Status "AddTag: " & "old header+tags length was " & lngLength & " bytes" lngLength = lngLength + Len(strTagBody) If VERBOSE Then Status "AddTag: " & "new header+tags length will be " & lngLength & " bytes" 'Re-read the file since we just stripped the header strMP3FileContents = File2StringBinary(strMP3FileName) If VERBOSE Then Status "AddTag: " & "new file length (with tags removed) is " & Len(strMP3FileContents) & " bytes" 'Total length of ID3 tags in SynchSafe bytes For Each varNum In Split(SyncSafe(lngLength)) strHeader = strHeader & Chr(varNum) Next 'Write the changed file If VERBOSE Then Status "AddTag: File to be written will be " & Len(strHeader & strTagBody & strMP3FileContents) & " bytes." If VERBOSE Then Status "AddTag: " & "Writing..." AddTag = String2File(strHeader & strTagBody & strMP3FileContents, strMP3FileName) End Function Function RemoveID3Header(strMP3FileName) 'Removes the header. On success returns size value the old header specified or zero on fail Dim fs, strMP3FileContents, strSyncSafe, intCount, lngHeader If VERBOSE Then Status "RemoveID3Header: " & strMP3FileName Set fs = CreateObject("Scripting.FileSystemObject") If Not fs.FileExists(strMP3FileName) Then Status "RemoveID3Header: " & "file doesn't exist" RemoveID3Header = 0 Exit Function End If strMP3FileContents = File2StringBinary(strMP3FileName) If VERBOSE Then Status "RemoveID3Header: " & "read " & Len(strMP3FileContents) & " bytes" If "ID3" <> Left(strMP3FileContents, 3) Then Status "RemoveID3Header: " & "no ID3 header" RemoveID3Header = 0 Exit Function End If strSyncSafe = Mid(strMP3FileContents, 7, 4) lngHeader = 0 For intCount = 1 To 4 lngHeader = lngHeader * 128 lngHeader = lngHeader + Asc(Mid(strSyncSafe, intCount, 1)) Next If VERBOSE Then Status "RemoveID3Header: " & "old header size " & lngHeader strMP3FileContents = Mid(strMP3FileContents, 11) If VERBOSE Then Status "RemoveID3Header: " & "new length without 11-byte header " & Len(strMP3FileContents) & " bytes" If String2File(strMP3FileContents, strMP3FileName) Then If VERBOSE Then Status "RemoveID3Header: " & "file saved without 11-byte header" If VERBOSE Then Status "RemoveID3Header: " & "length saved to disk is " & Len(File2StringBinary(strMP3FileName)) & " bytes" RemoveID3Header = lngHeader Else Status "RemoveID3Header: " & "error while saving file without 11-byte header" RemoveID3Header = 0 End If End Function Function UnSyncSafe(lng1, lng2, lng3, lng4) 'Takes four SyncSafe byte values (where lng1 is 'MSB, lng4 is LSB) and returns the actual value Dim lngOut lngOut = 0 lngOut = (lngOut * 128) + lng1 lngOut = (lngOut * 128) + lng2 lngOut = (lngOut * 128) + lng3 lngOut = (lngOut * 128) + lng4 UnSyncSafe = lngOut End Function Function SyncSafe(lngNumber) 'Returns space delimited byte values MSB first Dim lngTemp Dim lng1, lng2, lng3, lng4 'Where lng1 is MSB, lng4 is LSB lngTemp = lngNumber lng4 = (lngTemp Mod 128) lngTemp = lngTemp \ 128 lng3 = (lngTemp Mod 128) lngTemp = lngTemp \ 128 lng2 = (lngTemp Mod 128) lngTemp = lngTemp \ 128 lng1 = (lngTemp Mod 128) SyncSafe = lng1 & " " & lng2 & " " & lng3 & " " & lng4 End Function Sub CreateAutoItX(strOutFile) Dim ts, x If Instr(strOutFile, "\") = 0 Then strOutFile = Left(Wscript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) & strOutFile On Error Resume Next Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(strOutFile, 2, True) For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000F00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000002AE0964B6E81F8186E81F8186E81F818019EF2186881F818ED9DF6186381F8186E81F8186D81F818389EEB186781F8180C9EEB186581F8186E81F9180B81F81868A2F3186681F818A987FE186F81F81891A1FC186F81F818526963686E81F81800000000000000000000000000000000504500004C0103002AC7003E00000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000E0000E210B010600004000000030000000700100B0B801000080010000C001000000001000100000000200000400000000000000040000000000000000F0010000100000000000000200000000001000001000000000100000100000000000001000000020E40100A4000000C4E201005C01000000C00100C422000000000000000000000000000000000000C4E401000C0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000555058300000000000700100001000000000000000040000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000000000000000000800000E055505831000000000040000000800100003C000000040000000000000000000000000000400000E02E727372630000000030000000C001000026000000400000000000000000000000000000400000C000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000312E323300555058210C0902099AD6D31D924DCF1AE49B0100A238000000A4000026010090",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DEFEFFFF6A00FF7424086A656800007AE8E8010008D4C20400837C1201755D36BBF7EE1361F8B91823217040077BB7DBDCEE0D04FF151C60F07B88134026096DADFBCD9838C233C0C7050CC00B00A3EE9E3CD608BC0EB4F401A4A204A8EB1B7FD8BFC93AAA6D00750AB9817E6A0158C2D66D3FD90C000F99F7D81BC003C3760C8DADB9EF1D0C031CBF29C331F627EC642D9DC30EAEC35356578B616FBFFBFF108BDF8BF766833F007426561724C1668B36590FFE5C74FFED9BBB0C052F74063A75028BD80738008BF075DA8BC3F6AE19FE2BC75F5E5BD1F80FD2456A3CBB0EFCADFBFDDD803C42DB85C059740F828BC80F012CBFEBB6FFF0EB0233F685F67447",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6BCE17101526478D7E048BAC9563BBCF090B0D0601215F0FB6FDEE7E85DB5F751327148B060556FF9ED8136BED6BED7409B83E29BE7D7AD96DB7C2BF558BECFF7510837D1F060C751E00BBBBDBDE1C02BBEB080D0809033F5D23568BF132B9FF6DF8F6F644B47407DD42E6598BC65EB876E1DD9F1B03B58D4E240706ACC7061762181BECF06C4B160411C701AD9AD73D36582ABA8803CF5EF98BE83EF6235B57CC24069C83C6041C043D833E7B36201830B98521A45FBEC87610DC627A8D5F3ACB705618E48D77447D12A438D22DBC34750F85041AFACFEB0FC4B6015B8901548FAE5F4DDF4168236F4CE4FA25CAFC579243088D6A0296044B387B086F45148E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("25A3DB2F24B4EF4395CE8BF80F3786943BC7937CF885FF03DD8B107383C148C760DD04E945A607B81A100F1790470592801BE3178C61841A5B05C41A27E13C0203F9F604156F46F80CC30721DA2CC38D410421CFD8FDF7D91BC923C89D04351E0517DE2B644B1BD9229A51BCF738CF6B29204613FDC1C67E7D27511261C3066E29C68CBFC30469BDCE2362401872C0CEF802207F068B5D9E0179D90B0497158B605A7AECA1C700A48BC20DFA90DECE466270A0086F51C210326DCF4E301C1A751802143EC8D9D2673A1E9C2C181F28D2C0DC3224202D2858E49A7B7927842400C76EBEE74F678C801D95E9150858F878BC57CE032975BBF68453C6C82DB50571",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BB29D603D6C3058C50926B61086F5DD9B8606308C37C2DE1D70E0C7F0B9A06D75AF658C9070C7E632CCF07637B85C80C35C125C70F372C3958BF06C251048D4864287B63BDA63FCEF9F184C6C34056CE520674B7FFFFFFEC1B8B4D1085C97507B803400080EB228B45088901508BEF5104A7CD39C3EB13540F2D69080D06DECB9571AEB57E6935F7B70B7D8378547516817808C0A3730D7470B7080C0746750404C377513D0C360668E807E419566B307B8C0ADC16151AFD4CC63B270B0D073F69D8847F7A3B1D63388946042DFCAFD9850D7F0E88E3B98273B90275BEB1BE03DB237D3A2591897D1AB807523BFE0F10EBCC7DDFCF1FDBD8F709F7852593D88B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("400403A630B3C94E245C0CD06AB81B01C381ECF32AF149C746705CD71AEE9C908935A8E00FB8841DFF8F56D815648206261D8733DB395D10746F9E70AD12747DB6D0482C83C4B0B9C7DA0C530058C0BF9433EC1833B3BBBDCF8548FF0053502147CC0FFDEC63DF89BD05502BC48D45DC09C883BD58DB666BD0160266084C0573C545FFEFFEFFF083F801764E834E74FF03C033C9A95680750BD16E74D1E04183F920ECD6FDDD7CEE0A8B46748D0485041A507E76184BFF9FEC6DCC7C7833FF8F8B4E788904B9473B7E7476EBE142E3F6EB06895E0D5E744DDD5BC92B05ABEB97391F044F144AF61EFE9A094D8B41143B08032627279B34B2FB10214B0C4770BF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6103141E1D55581802160E170C33044DF0379C0D592E9C1E53BE0C17ECFE5674DB70F60A8EFE38EF837FC6740D766EFF33121034394704756A29E8FD3181CFFE6C2A783BC67512550AC3B8F9F6C2A5EEE9093B0C743B2E5774363366171A6D0EC403EB610DF71736CE39BCFF462C3683C00324FC3DD74D7E7F4B6C8BC4568D8D61EB3044CA093BF22DB231BD51478B7180350D5F0783830259291E7AE1F7F457561A9259E3F05956BFF45B985AC733DE8BEEDB070662E62E746D12B304502019BC022D5EDB08EBE86F482D3F35D8757F0C1957501A52E3EB05BD34EB76060D8EF98BFB4C8DA5E0636460C1BCCBC97B4A101326BD6103200AAF63DD6DA1105826",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0C6AFF0A18292870494F63DF3C901014400B3550DEF404C38B543404A4025BB75BBB66A31C66524141403A276666B767B75BD427000C42421B75E4162100D391BE58169CDCA90AD573B658FC4131CDB159C383C7779D91789DC4185BCF20E126F10E0EFD17DDBF767FC7C33983EC0C8365F80039F96AB742DB0F4E2F2C59310F84AAA923E1851E0E711D5C8E895DF4659BFAB7E583440C598945FC538B1D38B8FF055CB7B7D320FC8906068B0E772145EAB6EE5B745ACA5614F44051B31BC70CCE2044800D8B4780C48DB7A58F1875146C890CC1E00203EF96D8BE377E62560796073E0B8B4F04B57DFCF6893488FF24EB07C745F87B8B06EB34B740B7933D72",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BC0ED74C04F4102348C89A9B0884077FE90E6E563945147425EB694B1885768D74AF7D591B5B5FE087070C2E7D500FB745DC4D04037FD60850DE0C6B8D65FCB9E6F8E0CC010C445DE85050237C277CDF8806E8200D30E7446874ED26875151EB5144749B1E7D750E3CDB27C0EB9708A90D329008027E182ED13E385CA3893DCD8B3585D6B0E50EBAD61E1505A9C193DEDA81E67B1181CE00980D7D8D9D44ACAF06E1573D54AD2DEBA82678103AF825EC76E0ECEB6A561D50E811EBE04EDEC1608FEB48214CC8FB803C1EDDB24BB42E6E4601AB0C8BF7436081FC075792802437000C1C7DCEF00D89595BF4C60E9814A385C3ED4856ECE0348EF1E041877F7D14",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7C900B102615AD00C76064A4FDBC0E03289D5A18F5A940DF1EDB3B575E047E257F2D4B37068B3C98185BA383FFFED5840357523AD0FEF643593B227CE55F5D836633C0251A7C5AA9C1A783206E3F6BAC7C06CFB80410A2563CC3917065FCE90D10CEB1974CADE17D058B0F5C261B80386BE5036F0A84C9008FFCEF94CE96ECB7F60FD7278A3BFB0F8CAF19176F64373D653BC35E08746D2D2BF0123F9B8380BD7B75531F0C7420C10876BA148B1EA22C420FECF4DF136C857C40EB1953C84A136CB8F9113E7C3C290F988B06E979680C76E66E1956F9680D06195D269ABDECF4EB176A073F891E419EB47078D1153E575B79B8096D838716B78060570CBE193A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("469AB6643536141060B21168E1EE06724781FE197072E4515F9B61C9EDEB04FD0DE0F493848AF0B96EB000E8B92C0C3C5E7CFBBF63BB3BEBE6298A2F3C097C113C0A7E083C0D740B095D197A2075053770C08B6FFF0EA76A7CCE0E8A018441738B5DEB58866F2A270F85812F347C51C074EC085BB3D78C744EE110B4B0BDADDB0F438B11274F501B0B5033FC1BCD790961FC8D530281C100E215FA0DDD7E3BD173163916730DE38A0840880B431A876F171372F62BEBB4681534731D7E09FF54750E68033BEB3F802302CFBE9BDD54EB325014D975238B3E57DA3BF87658B66D1A733AC75104BA5B9A0EEE75D139202A04019D0CA36EF61050330B74316342DB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("08BF2C920CC34A2DCEE24200578996BCB6F1F603A55083AE11DC39F5750ABEA3D0FE20BC11CB893E803FD21B8FB5CD25619B19F55825256F76B0EFAC08163C1203C0DCB5B646F8DBEB6E6A25FB4A3459357C8B0B4B0F3F692BC1071F7F3D4019A1124D57D4A60364C39A0F6E040DC912AE294BB6B6C6FB52391E74B04FDD517583A47E6AE1112DEB0EC75305500F680262D8C3123D8436842C0C7659C5087C0D0EA69B0C19ACC14A25DDF952083830D11147507C85F1C952232DB80608FF71086D2B9C98AD3F2C1F3981D73BFB6E57C05029761AB42C412DB43B361C0841178814168D07107BD69DD368C70D185701198903C3CA8225D8404880DCC0DCF6EB27",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8F6D1B1715803E830B8BCFDF46EBF0E261DB724FC8F8525DF14144095E5B1E6153AA49E5131CB2CDCF0C4212D7A501E39DF0FCFFD9785A28BCC4397B357DFC7EA23404EC0306B6DC30FA5C2456930A0DA4197CC7384DD26BC191349DAC15636BC71AC3497CB63E98F08B222C8D0D5540B1EC6DED52ABD1EFBAD5D83A4C9A58350AC67409A1F7FAB51C8DD1C3972482FE11033E2A4B9BF8FB161CB7289971F400AFF7E456D38201ADE9E06C57E1B1B9E560ABE15E043F7DE96D6EB7A05508FF355421359737127F636CD60ED880F7DB1BDB57430A90B96D231BDB2A90494623DB87CC17E074777B086AB70A30C65C57BF59CD18B8033B70E864321C377B432960",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B0C11E182A5708EB0724BD6CC8B698285F873F1D0F0DF689AE1229857E151C331FBAD2108EABDC5753552D21193307D6F4437326D4596AB62598C3CB1CDC88F20CD871455DDD9E87F0502D30033D360103198B2C83EF45F0D0F0C76274164C57FF3E199B6EAE1B46DDDCF60B49B902EDC42E56B8C5178A9A54402ED9CAA0014EECEC6083FD5C0D9E1842162407C35D08BF4016D66D6C5C2F8DAE7D6B39C87476BE3F5854F814AFBDE173512FB67D3068190022115D380E7319141B7C4950840F87B556022B68212602ED363B08A7290206A2011BE96F5FCCC5F82DE9CF847A14751CED6C1C606407881420360659E2F4750DD30189A568B36F56F70C2DF4D841",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2E38640D4FC724BE395063D81914BC928D729892B484019CDF2320C034B96F014E34174BCC45E5186C98B113AFE8A41E5058EB963E8B742F3AE03989AD51D910EC0D32A14EB613A0537668311F9DA974E79ECFB923CC0FA33782271218EC1B040DEB41970C5146B7717868C417B274F6E803D8D98B5CE8370A330739240D32241F298D00B6470309CB7EA87E169CE43667FA670D0801BCE82DB712870FFDFB6A335DEC81F0CA0F7C44A3196887D4C58C11AEA5F071EBD8C4FBE32668061ACBEB161E98680731D98CB3D40A312FF8DE6464FEC61F8DA5D095E9F6C1CB00256F66DF6C6CB0A064C4319A000EA011232E2C8CA218216ED515F3740AA104A61B6339",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7EFB517F1C566ED11AB60A7BEEFCD31C29C3E061487EE30C2801C7EFB60896203F058B551C89114CE4020DEDDE87AD890E581CDE6165B02E4856491040CC8200360C341650703178D74516ADA4CF998EC0681F010F3D3602625B825295E56E60EC2C302DFD0B60106C563A079A2B0A107A8C14F2F4BA87EFD7693217FAFC60C94C37EB3B32273C5331776C35EBC82B9C1F9CF51189B530FC7B1F0439483D7CC94F142033E1E81ACC40DF12CFB8B5341563EC4A29C3719F5DE6FB8F45FA60DF601B857511187597C5680F3DE91637DDF902522E2943432D330DDD9545FA83E804FD0829F6367E09745F484876025D2F2B7B8505AF2D099D8D8D1E0903B3E0569D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("41838D534C62530348924ED8F76B05E21B448D264CA80171A96F95C56C28992BC261D1FF0C4BAF2591752653352B0C0523C7BC70DD86B76605790BF47E36E18BC338D17D8ADDE8F88D348B841D55CF0C59FF12DF703C7EE101C1E1E3D1592BCAD2E008B1855BA30655337CCC3A578EF659ACEEFC6A035B0C158914EB12AB81C7176C9EAF5E62C82D30F5102E7C62FB36D34798DFC58D196750860679DA026A0C181481349A8D40EC08E212C9632D5EB0D6251CFF362F6D6CA0F8F605293BE47540A16BAAD80D2AC8800D0D307010F6549FEFCC0978D0664F74319E3DD5B3087C1356800D841179843CAC687B707B88EE55210E4C956D4E56AD8568926358EA52",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF7FF73F307C203C397E183C4003467E0C3C607E103C667F0C83E857C3764BDD2C3730C3326856657088D7A849460C121D64860E19FA70907CE5BD876977766AA7F8AC071E0051032D8754082AAC187D98AA6D0F9109033B15EDA230E461FC0810AE17DB30B54FF04D53003B1638D82BB93E75373BFC64B3F4163D3523A753F8EFBB197BE6102C291C0D389D1B6CC21EE0742A0D755B7685580D390043C1BA4D601343752FBC417C27AA6EC9494400F0180E9AE41856FE0B21C32678722CD31D6B6A283CD49168A9C7360A9441FD695219AAF77368D007B9A0A3F3DB576DBAEF961A6B105780DC87100D18895E1494DF365391020C0F048D461C5085E6BB6D6B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D7083450054C8BABDA0AF46F13683BFBC6466C0166027C36E8DD066F9E806C7416391F3701F8F62BB64020191E0877F859EBEA44874407549364F0C0F6D62F7508C01CC30324B453DDD83F1A33553BDF750A98E93BD051437C47B28B73103BC7830A376E1F3BFC1689388B061474633F0874F658CF820F8E1ED78C0D565375B752BB0CF0D983A835037525178031E883C34C27E89E750F375ADD8A577A64C87F53560896EA3357EF1AE48B3F8A0EDC12A62F0B078814101AE2115DE481420D43B210CB970E08110104084D5D3BD81A6A798BA411685004DFB46CE53B5104070808DD400C3B410CD9128645677CE31B2E187E1FAD55574E4B742538218B52CDD5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B7470AC374068B0F40BE618421E15F1047DBA8D895E80E43C292BE7D4615ED08F1864E178B6F084D3BEB3762FBADF0FD75EB39C260385E6C74200978F45FD81A7C600A106D8B4678FF34B8FFD560DB444F36F259D55FA85D97997A04588B5C24E0AA20F04006C348568CA3D361E636C31252184A42180D38E1D560C7D0F538EBC3738E0FB1E3B3204C74260956040E415FF776D1813B66751312BE362564AF2108631A26B4B3595C6B1B72DD75A31411607B0A6A8929FAE188B223FD47436A10020CBC8CD94B9CAB7C752468BD40951453F1FC37A3269E5D0C62DE10146F7BE8A8EF50FBE88456073D1B1A83D835C0708C9033A16F3CB42B863273F87DECA5A5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2B502BF7DB057438833B013E461CBA1798D5B255EC52C575A5EF0A600BC71415037C53EB3231810C64371820B5B2A3B6A80834467AFFBBFC694283B384273EF0EBEB53E190A6536EC3FB6A98B0B0636977B906395039B4189C92418E943BC3301E536BB6113693813F8D122A1C0B124B2A0C61D0923F41F42B96BAAA4F14E1076D21CD0C38D0C1C5806157591286306D6018111E56B908EC229DE7188467B36722F40C5227518947237D8971D0837469FF708C045F10BC39705DDB0D6E05BE48711447511A0610869DB5BB5207185251B0204854D8108EE46D37305E3688E4BEC0319138A7014B284289825BBBFAFD6A24E86FC1301021451016EA127488145E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("57892CF0C3556355895071F8F06ECF6070833839697433DC662353586E0C5044361BE924F27CBCBC128A2C0EFB82B52B20D7E61A6DC903F0FE1FD935C5E68339FC0F8D5D8A7861728B214684C9F280F92E05B3602361F0110FAF50C824C4511253E006526427EC821C00FE3A60847C0C9A23F25979962A519ED9D2E4C305E125D46E61105F2CBB0C53282BF807F86A256733FC754DF2330F43DE4AFD0C9E5905FBFE77590D00DE6683A4450E0022D524F496325E72F8814E3E867E19FCC640D55093D03C406050B571A2805E6123012E6C0A6296B774031F02C3B86F602FF50365E7F420488300D6149E06B0830FAF7B4D891FCC1A6F381853A87004EB541235",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("28D0EA8DC1054A8D6FEA33C91D94C13BCB89E8BDC24132E82E50D11342950A508B99B5761DB42FDC571A66D02E2F5D5FA823075A261C0E0CEBB68B8BB7B66D1D0319564BFE04893771028681BB05B8027CA79A7BCC4E2EC308FFF20C65C0F0F405101104F393B5B11D3225ADEBFF3311BF0B0B38270858A91E4EC825E56470ED56FD0A14E0D8FD742A9747188201B634747F04040D546E1A100104D65603F1A2271650204DAA8357BD8043128243700A5AC9A2948B41FC801C41203F53B80ED859610D8F266D9F78ADE0071B3946CDDFB0C5F2A5C328098B544ED10A35C3CDB5270C61CA065628251C0DC5E0B63703F9DDEC9668089971F7F83F470CEFE2041B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0CAE8508FC0F8EA20B0A7F700BBA4D182BC8E40CA7DAC542ACF01EFF309A6F74F5028118594E5B78741C76C1BA7AFBA5E37047148D0C18AF180439701A288E592BF12B8EBF7BD730B78F0A4E83EB917DCFEB138B4FD696DB16395535047681A05CABD65AF7890411181995468B1AD7BA5CC0E5BC2836A18BB66D2994FF95835304E7C1C1066D3BA2C07032ED28E12A55AAEC386614396900410474031A821DBCE40D5EFD081C8D601BAB07C1C2D3C0A881511E2CDD992D1AA1068A36F6C302DDBA16A84A14FC472888376AB214B423FB2B6217D557EF186D2067EB159D280417E98B2505ED51E97128E462D5FA509B6A835DEB1307A615291B5FBF9B5003EC21",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("04BB6E57A81FA50B23C4068D4050660538ABE3B90A9507AE7659083624DE11098CA023F22B88C1EA80E1184C36355363ED425318AC6BD81B0921E4AB3D80269B15C9EAE0294E96113CE2989B9DC4410710E22A2558A65CB0A1282C5783492E36080786678A8C1F9C0DD4E4EA29FDDD8854035F52632D5BC054A4463585DF66201834349100E106AA04DFC38C4EC8513374D30393664CBAD5F8BFA29CB080B4299D0ACD512419D348A149341E39ED7DF70305271D7A893E510051910CA0D0E156D489177DB1B03BC72F0E5E34E812D1DA2BA3930969E141CAD51C174D8B8F807C6DD6D1EF8705894EB130E7D50AEFE41C95D88BA71E68CB52C976524E6618AFD1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3EEE7B076A038AB90EAFE3D8F46A42C00A8C8B03480F6D27D8B70C9DF47C305DDAFEF0560FB7702C9B896C742F288744042314151A70EEAD0C0F568D5804CA8CD651AE6C632B4050AF33373B4DB7A594393A8975CD996268E816A2F81CFC6514F276035A31D945F4FE3DDC4D8E590E1C54895DEC46384DB795C00AEC2D30373CF3DD74FFB75003CE0A2A0956B87B1872610C108944317A67CA2DF8AE108B09894C300DF88BA702A7C95E91C7C2C6786433CB47186722F04C5E5F203EC223C1F10C48781870AB554F4278016CD1180383A1C9777A4F75F35F5E26A05F62FB700FAFC8AC03F92F107070012B7DB6BDB545C8FF584E75F54E5D29458DA561D15638",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1B2CA6B0F8A42157C957C7D4462711934C40599A4902262CEF08080B37C208491B3D0DC09D301110A43833C4B0162E43028D197BF85495BBCCAF8C1010547C6BF27BC8E469C0E803C552D98DDBB012440AD30D44B2B54DE98908834814801C017236B10E20254785FCEB02B610FA08470E0C16F8A908D849B7454759428EC09A260C32094BAE42AE06031002E97EA346763C04BC2F10F611EF6C6AA92F402816207E9CC0C30D5E3A94C410741C47B3C9586440488007347B67FCBF390B91953D6ABF1038D1364836807C8B84FE581421B0EF2F0B46505954108B4E30AB76557248460FC96876821896DF62C56686801B0EBAB3E1623484586504C9BE162CE703",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B03DC01A862DEC7C0DB48C79569C9DE40FDD780680DA0825BB6CA4D388A90E98A17B35CFDE59A9133630C237B04B14031B919C93039829101C3716EA831048762FF1679B30B9C07F77EB17BC39856BD015DEB8F81505762058082F52B356846D15147ADD396AC81518B46DC0C0045717795CA3CD8A0D257FEAF43F019B5C70ED3F750A59F87F11C04B18E71410315D46103630FFFE9D234C668E31863C1084FC27C29A38CC60A8B7148A47B6EC0D3D8A9C18B2171B21122BAA2F63D9599288816980A55D40213A751561838DB5364156F20C6C1470C0C680067C9B90F266CAC5DF744D3C80DD6F1F34C238768C2E745EA43F8434806F56A34E3C594050827792",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DF6A427F60948D8D1F86053B71343175AEB1D960C7056056B5648CF38CD38F4999CEEF596C3F99386420CF51DA2DD6575DAE8BB40C290CCDA8567E88379B81BEEB31434BC401B1795C6A3219EDA1470DBC821833598326A4E8CFA4EF093D5A13E5588BC12B20E3646400ECB231FCEC101C81B5CF54AD9081861644C3BE390A7B58B639D74B58485E720A358B0CC018415AC6CBF3C02CB64220C031128165CCDA642EDAD081B0F3C405A3BEECD75A905CBAC0B39559B4AB4508D4143CD914EEA68A884108097872A09AA4F82E2610AC780FA418C281A52F713ABA273A5EB156AC575E080CF5F84133DB598B355137E3234E3A6408D6F58066131699ACD7180212",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0454E68224B26048255772081099F9E070C9E04F9B6CAC5592DEBB6439E26F98A5EC0D16D214B037B22EED5310E5846402E4A0081048BF16A4FE87F057C306B6AF225DA40CD3F402DCAA00754D0C01FAFF9DB98D49072322541C06C1E010994BCD36E0F77DF817070AD7078A91C214FEF1A85BC0041D5BF03EC707B1201714331281D70BFA33F683BD680AA04219A35064284B7A2800271FAF626A8EB82447FB0076DFEC56D8C708E4910E5BAA79025020DC176ECC9A582958B516F6530474ABB11FDB1083C204E8389BB84C909F10EDD809505EA71E474F59A4A62617F24DE948AC5291E9545F09B6565AA9BB545F8C6151011470C63C2618F27401C3B9103C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6EDA1588805B2F807E30246A1461C342C762A0A851187914C63C4D26DA98119CEA22EE3CBDB50D98141A8A048D0584C088DFDD00BDCC0F8498FB57BBF8060FBEC083E8B74B40FB21746C4848032E745D0433740698A297521D74112F445683F8BB443A0C215E04EB4C423844633FCDFCF0516A7D613FBC6D00ADFDFE077B2E897DFCFF49CC8EEB2024C23C37EBBF834E0457D6DC6D410A0502EB040195855B88D886714E5F5BD883F45C01BDC0C07FB62170BDCCBDEA07802EF372D9DB5E062B14F8F4CF4FD01D355F5955565721F1D13EF6631D980FBFD853543B0BF6468D5B6373EDD932B93E11A23A11F28C35671BBA011512120FF28C5C0210108B6C24F7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FE62FF1885ED741A0FB6DB69153ADA5066850299B2F74D75E9696360588209646060055BE142E3843C8A69FE0B002D78B274610A87FE50240A906681E13157C50F0B9425FFD57417DA27CA04F6C4506E490408041634B28C0101029BDF56FCDBA8130AA820740683F0EC041001D30CF2340801021061A9C1CC025456BB2D53E5EDAD454A062E742E04237429E5E5E5E528742422741F25741A277415C1B5E5E524741026740B2141D5F902CE0E9D050328AB8C725066CE34805900C2A01032014961118A42B4670E409043E2605E92802C71801E23EF63F4AA336ED833FFD0F16A20DC3FDBD0DFF181BB803C182075064004EBF42DB1F68C917EF8538B27012A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BB600E334F42EFDDBE0E80D952BB02734C3F2C609B5DB033710C83C30475E67FEB4781FB4474587CE183FF437515AAB5F5DE15E928582E3EE680BF217DDDB3066A1D34BD0E9C7219EDBEC58E1E8B3C103F0A0F87D26DFF24A542A9D80F3EF113DB6549C5E313B70C087A4430CFBEA73612384721849E86F91656F0221FDC956D55CDF65B84C3447B0B9D539A937C97435322478458339EE51B40DF8720382065920169111120194B6091162244403D205D73F30040215B5BEB402C65E7F24140D4001F4140BA679980B180215C79F205695CDE28E68488EE91B9A2357F2BEB6A21120A85594C3DB15BA01803D63D8A0AA10FBC37B3288D9D0975C030B558CDD6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9C24220D0350321C6103FA8A43014320DE8B7416540CAC258728344D779BAC003DA703C91F41692E4DD36184EC3E0B2E5D4189A657797723F15B598FAC53FE0F53FD1484E556D6FC14FBBD82EDD755FC3BEBA35325D93358EFC808F8EA5D5E0172801C6060D4A260BDE3F5AC021AB5D49210C602C975964BDF178A0C308A4B84C9FC44E9A6C01A2E193AC88D6ADB7EEB200B880C1F47FF2C0A28312EC185B797E180241D5FF62F5E23442C5ED5313336A270B688043768187F960BE93968DB78881E885E967FB36D5E0E0D6C057212C60601EB0D70C1B6D06F0A7204C64601337E03742918E1B68D3E2526575688DBCBD56D110D204DD72BFB2C22986D530D01",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C8BAAEDB327680793439121DFF71C0A045DD7B207C3FC3BBC5F627F4BD25F033ED3BF581552F5119DB5D77E41328731C3BFEEE3A331B97E1282441096A09284ECECE0C20061C186884DA6BEAB7F055E948580B2864D94FF9ECCF7DC3C29C10D8BB24895C24201820A82D15A88436BA446350040E6DC10157DC5E1A56A00CA00C547468671455465500D216DBBA23CF8C500AD30F02120C2D5BD96C1E184BDE1650C2CE3E54556598F8DEEB6E55730C725B0302B3AA125682CCD56788030011C4C2A08B5CB7B996C3A1605695131E036D10675DC77B1DCC210DF8AFB0D90D648B7B5CC60B23D18B3490982DB48F90C02C7E56291234B7AB2F893012322C02137C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A82A0FAF1BBD00C4BEDF591047C1750B1BEC1BEC6414395C60775178B89DA801A4FF4DF8835AD5ACDBCC5219301543D648B621C023C14EC54393B9870D0A3FEB073632A8A8D91B46436E0AE97973BC1236D14312C7C40E2CEA9DD17DA10E2F03DC70C6022C1709833DB00537880D7262EFFBD0618207E3BF6580803DFBC1DBEFAFA021B8741C40C04895487536EEB9017C1456294F9C250AFB82EFDD43924E1CEB1DBF1B57A15049A206575F235C4C43DBD3DB88113F08DB389B9C6363DF58A39350AFBEE2B8AB30B057F626D3A83356A9056E161103ACDB451DEC9492595E4C83254560524DC4A0036200AE09B6F85E00DA4EAC34295AB58A4579D8A8B360B4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8BF67FDAACC63E55E4B746D419B0C0525C605F6434401CC360E6CA064ECC7ADB69814C746D0E57B025976CAD5FFF6C856A831C740AD62051B687B588D0F6274E56400515301B1053200BCCDA488798C8D3783949CC002D02D4909B130CD820DDCAF2D7571CBC60293B9557C2BB1D76C638A57BBC361A60B10BEC8C348932619001333050F2613804981D9625182142420C4858215507C1650F48384DA4522D011B31836F0618788D4EC02B46320D13A0AE17912B45F4E15165211CD865313C5DC908B5A6844C4084A328277024B30411907874A650B9906F65D32CA0843A38C60AD6B000B353BFBF0F2940DB391D1474573807A875668F00E70FC605F8ACEB10",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("07F2EFADB1EFAC587307A308EB2F2BC821F2D9370117B0427F1488C17D0DD519A4078913A48A195533450AE3F870055F6457BBD007A047441670519F6653BFA6CC57688A0E879F43A913C091BFA68E5314016A16EB2625182470320B4855EA04B670F3FF1F1EB0B09118A402AC13CC00F6AF3090398285D27447977F03D0884EAE83FA04722DF7D9CDF7FFFF83E10374082BD18807474975FA8BC8C1E00803C10610CA5DF716DB83E205E95106F3AB3A06234A9245A0333E5F6D6554385CECDC57565223E15FE2CD1838D103C65176083BF80F82780C70AE83B8F7C703BA144B515962A9DF46087229F3A54C959349FB52ED77C7BA1C83E98DB4E00303C81783",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("35DB658548901E8D88070CDBA0E9BA9013A003CCF06F8A8C9ADBDEA28A30884701050256089E646CD959C6C75CCC8D4900B32C63C92B250102025F7736C9A690234621473F8CE9BA6E20066F035C0754BF699AA64C443C342C8B448EE489A6699AE6448FE4E8E8ECEC9AA6699AF0F0F4F4F8F8E19BBB69FCFC8D04D70003F003F809344DF70EFFF003909CB0D85BB8146B5E5FCC909D0B820B361BF911A30DDB8719120A2B8D7431677CB6970CC239FC7F240DFDE3FC8ED028C7774B1005654AC0272787E04B8FF92B4A35DDCE9D182C9B4A280348707CDDADB06D033A6F034E584F56B61282BD80971FA33620DFEDEE02EF02298C9027654BC25B24AB2D0385",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("39DA78AE455A235B9AA6E9BA7FC403CCD4DCE49A86AE69ECF42207971C1C699AA6691818141410A6699AA6100C0C0808BAC3489A04041F05209684A6E90328384C8BB708B325B8B5870F834A08035B13B7450774409F513D5A8D63BFEF5B96721481E90B2D04850117732DEADB85EC848BC40C8BE18B0850A9CB05B450395B2344D7B023E8A20499F2350BD7C5FF48DDDA7432A9C80B8A0E3A0F75524647AA7FA1BA771D8AA138D175458A4E01BDE9D41591093B0006E80275E3FFC9D004F0C8E6E52BF3A774278BFB56BAFB4EFC8B57FC251038F5D01610C1EA100DE84287A502B816695F83DFFEBBD6E0347DC48B168B0F38CA75E7631838EE75DF0553B7E0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("061181422C81E2053BFFA1E76E34CD485EDF3C08EB6A8DA424FFFE5578434F8B57F7C103AA0F8A0141FF7FB600CE3B0E75F18B01BAFFFEFE7E03D083F02E7589E0FF33C268A900DE817412EF77975741FC262384E4741AA95F73B5FA1DB906C502EBCD8D79FF4758B7BCBC04FEEB08FDEB03FC600C5F837DAB3C198A11BC6488174762EE602DB6F0EB0589170304676E695DB89BEC8B116BE12F3484F60CF7C2596DEC8D6912076AC738FE2DD9C2D96608C6D3000C082F055FB088077E572E7A5653F0E16DEA8BD98B79F7C679A67507460796DE6A756FEB21B3467303F86BCFBAD5291F75EB2D1D5183E3097A375BC90D201D2F4B75F3F3F5DAA4B65B5E59C9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("913A387BCF6CB18A11D43A6C62B3561AA34B2A88E7900F39DB63AFEA061683C693419A66DE2C1E0C5C0085DB75C639EB18C8E45B2A72E9090EFF0061D253DF6D6B1045550A0489075F750E8561BBF8B07585A3EFDF38E46410DE144005497391F001E332244A8D71C91341352BE7904926D909FEFDFC47067045AA01F61DABBFC47AA27E0F0FB6076A72501CE39F781BE0EB0ECF78A08A0441F72FB0BD6308C70347EBD21537F9FE2D8BB016EFEDEE7405062B75040F1D439C3DACF40C6A65400BA13C70FB2D57B504E92E9B8D5C46D030D1AAB4FDEBCF83FD42C32B90243EAC5C695B4EB7598ED8C449842F532DE326052E34E11F31F74AF2AE852FB436F103",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CB8BFE46F3A62817C93A47122F6C4119745E49F7D152E88206D65B32C057DEF068B44CD951C1698A71010605D71AC44F471971C9CAB765F838D074154906060A0ABE02DC0A495B5FD810F0AED6F037678D7EFF8A61026728100AEF0AEFFE38E075C48A410331188A66FF8F1074DFEBB1B8B6BB6B2F348AC2E9FAF28D8C0C4BB1EA6DD9C705B56D481336010BB4F976770C53EE51EBC20FB754EB5250CE0EFFD2BF81C1B9B6D1F6445601805EAE8065FE00884DFC05DAB6E28845FDBF090DFD7DAFDA0680FCCB4D0A052BCBAEC6A2515801FB51A81CBE41B553C0F37D0A23450C967B24042FDCE9F3FA45ABD3C869E38CF7E1B6F0BB1DDA058BD81DF764070309",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("03C1DD62DFD35B1A7FB40D56E18D42FF9E8D8D290007B8682713533AFD6580FF182504BB138A0A4238D974D1BFF1B305B7511275ED0BD85EC3C1E3105641C3486F088B0ABF56C1BECBE07F5CC82F51F1FFD0CF33C683C204F3DBC8610BD3EE250674D37828B8D001BB81E62DC4C30B6C58CD5B8D8B4269D8743677D3BDA175EF38DC6E8FE7C1E81012153D6B374DDC06D4EB962DB142FE359C93CE3706FDFC8B6A73FC54576F650053F0649F071505E07C50648925E7A236A86FDD8965E8A139D443D42CEC16753E64E45E4D8B2823C1FCAAB4B5638DB177EB1D1B18F89E19B877537454F9CEAB0258A343BE6E79A9F50275241C490554E0311B102025503377",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C4A3DA3052DF9B04395D18D9B6D06B192A0E458D532C519309B64120B681400BD036D6D218373C1FE02663A20A2D50C08D5E71A15642E91A4475DCA81424CAF3EC8835AAB5A6A38B18D499B115B850A33BF34649E0B9646D569B1C55528B98B9D61114D7A0ED5ACE42A9B88D65CCB0260D310634A4320C55BB0BDCE18C4C369654C45D2012DD63BD8BE55DC3D741040632B8677DBC8C310F89548902B81FC3EAB770C03E0660FE4018647637C1F0824E8D19208B582F34E256EB700C641C2E3B276F9BFE56C634768B0CB389D18948177CB304EF6B2C44E2682A2DB37DE7CE97F853CAFF54B33CC3648F05FA8C788F5D0850648BBA81790468B715BD5C548B51",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("520C39C5059B2DD85DBB8A51BBBEC0EB0A08EE4B6FB16D614B0243E56B0C591104BE07F8375643323058433030FA08FAFC10DB548A81D9F740E4500B38B0C082F640656BAE0E51923E2173FB97EDDF7B08C1618D0C76B18F744556558D6B10A8B937BA5B0B5D5E410B4E33783C25FCBA6D032452F4B3041D560C53369F6C05B708369FDE8F8B048FE23BD76D550C3B08301A8B348FEBA16BBC63C76CEB1CC9EB155CE43FD421C4265D169455D9ED060FCE293B1C500318502464373822E37660E00000663750157003700480A6699A080C101C287EA1F86F14CE0F2C15BF55D3118B0CC7569CDCC05B407EC80FA3AE5D55943102E57269BAAB03225D25EF262E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D33D6CC941F813056103F9A5699A4B3904A7B6CFEFE6D234CD2C1B64ADF62D3F4D73699A72A5D82E0B15459A4BD33475B4EB2F40825C9AA66991A4BFCD300BD3344DD31F33506DC0D25C9A4BFA312AB53237B0A5699AE6332B3A6AACDEA6B934CD34105CA835111B9C35C7805D3470D0010BC0E9DE239B000630EB070851614D730714F605F7E4C9A67B71B40780AC01A4029E3C79F2A0039804900688056490C14E7437604C90410619402818BD40186404E85B7208D3344DD3030C1014182473699A4B3077F4F8FC7800D991354D04101C45C00F169209F94605E002122FBA9BA11AD00552A503A901AA080B3C97BA69BA5303444256616C186F72FB17ECFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("636552656D6F7665004E6F0823656C657409A6BEFFBD434C53492F545950454C493562B7BF593752D128039E0B030125BD00A92725A7577030AABBFADF033810592FB62865D11196A5F81E0DEA08DBDDF861E803F80136043F64C042D7E752004500473D72A9ED004900E754E100594D006F3FD62E04877500EDDA00484B4559F6D96FFF5F43555252454E54074F4E4649471344594E03EC7F1BF641544123F252464F524D414E434517F9836D2755531853234C4F43414C5FC95EC87E4348494E455B276FCF8EFDED4C41530E535F524F4F541343438B44446BDD2067075055034CB223FFFF3C39554352556E5265676973746572547970FCF97FF3654C6962",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F6C6561757433322E646C6C2E746C62990458026F0F04ED511909076F6E0BD9B25F6BDCCC984F6E0357FF61ED517573DDCD426C6F636B496EF6BFDDB570DF5765536807646F776E50726976693C5552AAEC67656B0B699AA67B75A803ACB8BCC0A6699AA6C8D0D4DCE09AA6699AE8ECF0F4F8FC344DD35C760004080C10D3344DD3141820242C4DD3344D343C444C5458344DD3345C68707884D3344DD38C98A0ACB44DD3344DBCC4CCD4DCE49A4BD334ECF4FC770814699AA669202C38404C4D679AA6545C646B7777C84CD33477777700351B492E01B1120834CD2083032E28230D4DD30CD21B70717273344DD3347475767778D2344DD3797A7B242D344D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D30C2522212720D3344DD309262C5B5C4DD3344D919003131460345DD334616263EF6465D3344DD3666768696A48D3344D6B6D6E6F5D3662906E57020465058E2F4867F7078B0A971EDB5BE5414C54544B53500445A3BDFB353AAC447503455410444F574E58AE46EB4F66126A673535BEAD5D4303419DE031D3344DD30332333435364DF7354D3738392330033132F6B6CE5B634F4D45C453034FE49BDBCA54694605075047444EB0B7C0F35550522F48189B6B5FA9C0180B19501889B5ADB55A7FFA903B570B6DDB058B2B07164F4C004FD1EFF6636F0B4E554D084354524C422D414B5B36EB9C81412C07BD5325270C32D82D16443007313232C820833334",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("35C820830C36373882190E32394D555A0B27F9ECD401CF0B535542444F0365F792544956974150C6786F0831B37B0BF70623BC67AB120720530A7678B3D946110B150F373260DF1B0B28521352A6CA320C41C3D7684AE0F1DF186C5F54726179576EA327852C65A38F0FA6ECEC850078AA03200128E40190492048001042069089841086400664810110400664408202AACC4D8610BF0085410FAC2B2E3BA82204FA20059319B751501805F3A1884206460154208C02A84019055081310AA002E44554420038ABD48108020800DBDC9005510707055015204088A64C424C0111168800290A0A641C40546111C0E4FF7FD93460014765744D6F64756C6548616E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("646C6541BF7D6F074669034E616D134D0E7469427974EDF6EDFF65546F5769646543686172146C737472216E5709DE92B561131D2814467265B7AD03089C7216790C53695FF6EEFF7A656F665265736F7572631C4C6F61640D46696EF6DBB324814C615C4572726F722AD8CF1E6C4745784176636D70690A67EDDF7C70796E4973444243534C652B7D48DFC6766F097044651F6F7950500863416464ED59C26E937373526E536869AECD666F22617468EF580E09BAED60B753E16570416976126548665E6BDE1A185320696E6757071440F09FC01B476C6F62616C556E1DB0C31CC00D4C0B416C8B6D6DCC195C43FA9A6EA5A1D6765F1612546872D4496413CE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B0C2ACFB627567420D6BDE313FD6BE1D5E0C6D095465726D7A8936B0F66C484F7043559BC8BA806038570FE0CE266141D14152436A2FC2B7EE4A25565773696F6E7F34166CF6B77928656D496E666F298710DCB6FDB61572EB6564AB633D6DBE0A4872C215496E76A1618C24433C69686C532E7334F7DC745F2C100F2D1A3647C3295274497729734C94BD2B5B7620456815A17D178C23B8446973616275504BAD4DC2FE4329200ECDF76CE134005367994B653287D9DBBA0E43BA730D0C12608777780D09105E0E9B61403E456E756D533960757668EDB0650F510A72365D6EB8D84B30220E9E6A750141A1D4AC4328925B8C64DCAC1175708B2584592DD832",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BBB3D9660122D5DAB461C256B874436F544F6B4D7A2261AA1E219B6C11410F47D66A6DF60EE9AB901763B66D9A8521E4F8FFA302A105D9B6E5CB061501FFA207020269F15B2B75A718F1464A8898753DB60D0BA857AC6F7714426235995A9B0CAA014E6F7755287C9A10B94963A8B3388B349B0615D00A56681D9A59B569102A64358E0D560322736C54694EDAD02A742350A3B4096167E68635C6AD6F1D5D237982B5910E6578CF650C2918C9BEF63BA61447241B64EF14845673746F6BC11A85C65B0C0A356958DB15616B74D06CB5D136B735C7728F0D6D5C1A5B63BC395F6576EF45B1746D64B15B37D870627B7264970D0DC9DEC2446961F010426DC2A3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B55C7D52EDB1EC464A066C3C47A560252C2C21871D124E78A24E0647164174484130BB456368FE6AA38176D201E450321274B7C3DE706773296A796264D58FCE7102F44F46A365FA43B01DA5537B8A566B0A8D8D050AAD1FC35D7579B2D73773137A1C745B873CCD86E952AF47FCAC74FF6327349B47DE00000D1405090F050A0D09FFFFFFFF06090507111015190FF01801124355F031018D065D1B2027136122062611B308FFFFFFFF0B0B28820D1B0627112C0A4C0E8C19111A3A324E2E6410C9732E6E2A270F2F0CFFFFFFFF1222492870F03F011A0C0E0E1D4B9034282E4D8B121B1C3394273D550609AC07F2FFFFFF2007F09C01F066019B0F1532414E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F017012D208A4910160A08060605EDFFBFFD070907070B3913390C0D2D3F2AB9E40B10AA44F0FE001CC1FFFFFFF08401060B07213E340E2A06412A1107432B8923F042014AF09B60FFBFBD210C24B13B4B7A187E8BAD42231C11130E1703FFFF8F3D161320012A131D131E114A251156070A100E200E2407890BEDFFFF111C0620112813740E93230D08092006510916680024F0E5DBF6134308162421023C070F366E3B0715FBFFDF8D1713811A1F154C1558186D1857061D3F17070D071F072FFCFF7F060A1D4612D91C1E15C50CAC0852089C0F0E220F421A2321FD4FF677012220222C0E73040017F01A013D400D0E06EE17B6AD52E911E8237235410810",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("06FE70E1F6DB163B15161A0A0F1E4F050E0F0D067B7B43DB0A1C2504180B0A09107E29060E6A7B7BBB9D2A260624081E180C0E081808D81F735D14150504100C061A062C0C6D5BB036144504AB080007BE6DFFD7E0092D0E1C3A1009AF180F059329261A07E4EEDDC19E4A0604660B1B07161D2A327FC3F027F0A9031B2914B11A6F01051C130785FF2FB412B760182056122941691A09F0F900A9F614D9B30C2F380400080C1835852D6C4000425D5EBADB48BA380B0C0C280414A80270F3A2EC6103F04C5CC700B61B5D41044C9A002A0A3E5BFB410898E0000E210B130C564004C7360A0113E451B67C6FB25510090B0204337B64370B070CA001B262011E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3D1BD8D934100706B07E165962B307A40C755D8C2FE4AF8CE0C822329001006C06AFB0DD2AA7C8011E2E74FB82ED5CD807CE5490EB04230305BA0B20952E2D40C2BE2037FB540F2B5A272C6FB1EE40022E26D8F9CB00807B9F92EE276AC02E4352716A0790AE3B50A0022776727366331CCC7263131B7724260A04907891A092A6696E27F20790089CF8F3F69B421B607712B19601E99901000000000000002400FF0000000000000000000000000000807C2408010F858601000060BE008001108DBE0090FEFF5783CDFFEB0D9090908A064688074701DB75078B1E83EEFC11DB72EDB80100000001DB75078B1E83EEFC11DB11C001DB73EF75098B1E83EEFC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("11DB73E431C983E803720DC1E0088A064683F0FF747489C501DB75078B1E83EEFC11DB11C901DB75078B1E83EEFC11DB11C975204101DB75078B1E83EEFC11DB11C901DB73EF75098B1E83EEFC11DB73E483C10281FD00F3FFFF83D1018D142F83FDFC760F8A02428807474975F7E963FFFFFF908B0283C204890783C70483E90477F101CFE94CFFFFFF5E89F7B95F0200008A07472CE83C0177F7803F0175F28B078A5F0466C1E808C1C01086C429F880EBE801F0890783C70589D8E2D98DBE009001008B0709C074458B5F048D8430C4D2010001F35083C708FF9650D30100958A074708C074DC89F979070FB707475047B95748F2AE55FF9654D3010009C0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7407890383C304EBD86131C0C20C0083C7048D5EFC31C08A074709C074223CEF771101C38B0386C4C1C01086C401F08903EBE2240FC1E010668B0783C702EBE261E99E97FEFF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",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("000000000000000000000000020002003001008030000080420100807000008006000000B000008010000000F000008000000000000000000000000000000100650000004800008000000000000000000000000000000100090800006000000058C101006B02000000000000000000000000000000000000000000000000010001000000880000800000000000000000000000000000010009080000A0000000C8C30100FC1A000000000000000000000000000000000000000000000000010007000000C80000800000000000000000000000000000010009080000E0000000C8DE01002E000000000000000000000000000000000000000000000000000100",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0100000008010080000000000000000000000000000001000908000020010000FCDE0100C80300000000000000000000080052004500470049005300540052005900070054005900500045004C0049004200000028650100484B43520D0A7B0D0A094175746F4974582E436F6E74726F6C2E31203D20732027436F6E74726F6C20436C617373270D0A097B0D0A0909434C534944203D207320277B35353544414541332D353539342D313144332D384246432D3030383043373536394344437D270D0A097D0D0A094175746F4974582E436F6E74726F6C203D20732027436F6E74726F6C20436C617373270D0A097B0D0A0909434C534944203D207320277B35",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("353544414541332D353539342D313144332D384246432D3030383043373536394344437D270D0A0909437572566572203D207320274175746F4974582E436F6E74726F6C2E31270D0A097D0D0A094E6F52656D6F766520434C5349440D0A097B0D0A0909466F72636552656D6F7665207B35353544414541332D353539342D313144332D384246432D3030383043373536394344437D203D20732027436F6E74726F6C20436C617373270D0A09097B0D0A09090950726F674944203D207320274175746F4974582E436F6E74726F6C2E31270D0A09090956657273696F6E496E646570656E64656E7450726F674944203D207320274175746F4974582E436F6E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("74726F6C270D0A090909466F72636552656D6F7665202750726F6772616D6D61626C65270D0A090909496E70726F635365727665723332203D20732027254D4F44554C4525270D0A0909097B0D0A0909090976616C20546872656164696E674D6F64656C203D2073202741706172746D656E74270D0A0909097D0D0A09090927547970654C696227203D207320277B31353243304643302D353542462D313144332D384246432D3030383043373536394344437D270D0A09097D0D0A097D0D0A7D0D0A00986701004D53465402000100000000000904000000000000410000000100000000000000020000000000000000000000000000004500000075020000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000FFFFFFFF0C0000002000000080000000010000000100000000000000640000004C010000C8000000FFFFFFFF0F0000004C0300000C000000FFFFFFFF0F000000580300001C000000FFFFFFFF0F0000003C03000010000000FFFFFFFF0F0000001402000080000000FFFFFFFF0F00000094020000A8000000FFFFFFFF0F0000007403000000020000FFFFFFFF0F000000740500000C060000FFFFFFFF0F000000800B0000B4030000FFFFFFFF0F000000340F000010000000FFFFFFFF0F000000FFFFFFFF00000000FFFFFFFF0F000000440F000010000000FFFFFFFF0F000000540F000018000000FFFFFFFF0F000000FFFFFFFF00000000FFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0F000000FFFFFFFF00000000FFFFFFFF0F000000252200006C0F000000000000FFFFFFFF03000000000000000000000000000000000000000000000000000000480000000200000018000000000000001C0000000000000000000000FFFFFFFF0100000004000000000000000000000000000000FFFFFFFF342201006C0F000000120000E00E000003000000000000002A0000000000000000000000000000000000000090000000401100002C000000000000002C0000000000000000000000FFFFFFFF0100C40004000000010000000200070000000000FFFFFFFFFFFFFFFFFFFFFFFF78000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("48000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFF60000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF30000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9000000018000000C00F2C15BF55D3118BFC0080C7569CDCFEFFFFFFFFFFFFFF63BA77DE7C51D111A2DA0000F8773CE9FFFFFFFFFFFFFFFF64BA77DE7C51D111A2DA0000F8773CE9FFFFFFFFFFFFFFFFA3AE5D559455D3118BFC0080C7569CDC00000000FFFFFFFF3004020000000000C00000000000004602000000FFFFFFFF0004020000000000C00000000000004601000000FFFFFFFFCE0F2C15BF55D3118BFC0080C7569CDC64000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFF6400000001000000FFFFFFFFFFFFFFFF0000010300000000780000006000000000000000020000002D007374646F6C65322E746C6257575794000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF80040000FFFFFFFF18000000FFFFFFFFC0000000FFFFFFFFFFFFFFFF540300007C0200006C000000FFFFFFFFFFFFFFFF04030000FFFFFFFFA4020000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF50010000FFFFFFFFDC000000F4000000D404000040050000FFFFFFFFE405000028050000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF74050000FFFFFFFFFFFFFFFFAC050000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF30020000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFFFFFFFFFFF002000068040000FFFFFFFFFFFFFFFFBC020000FC03000018020000840100009804000040000000FFFFFFFFFFFFFFFF50040000FFFFFFFFFFFFFFFF5400000004020000C4050000FFFFFFFFFFFFFFFF3C040000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4802000088030000A8030000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3C0300006C030000FFFFFFFF8C050000FC050000FFFFFFFF98030000C004000058050000FFFFFFFFFFFFFFFFFFFFFFFFFC040000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAC040000FFFFFFFFBC010000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFF14040000AC01000038010000E001000010050000FFFFFFFFE403000064020000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0A00DE7F4155544F4954584C6962575700000000FFFFFFFF073888B2436F6E74726F6C5764000000FFFFFFFF083847A949436F6E74726F6C64000000FFFFFFFF07003CFE57696E5761697457FFFFFFFFFFFFFFFF0900C26C627374725469746C65575757FFFFFFFFFFFFFFFF08000F066273747254657874FFFFFFFFFFFFFFFF080034036E54696D656F7574FFFFFFFFFFFFFFFF0400804C6E52657364000000FFFFFFFF0D00385157696E5761697441637469766557575764000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFF10008A0357696E576169744E6F7441637469766564000000FFFFFFFF0C009B3057696E57616974436C6F736564000000FFFFFFFF07009C5857696E486964655764000000FFFFFFFF0A00BA5057696E526573746F7265575764000000FFFFFFFF0B001DD157696E4D696E696D697A655764000000FFFFFFFF0B00F4B557696E4D6178696D697A655764000000FFFFFFFF0E0019D957696E4D696E696D697A65416C6C575764000000FFFFFFFF0B00C4A957696E41637469766174655764000000080100000800BA7857696E436C6F736564000000FFFFFFFF0700A15757696E4D6F766557FFFFFFFFFFFFFFFF0200735E6E585757FFFFFFFFFFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0200705E6E595757FFFFFFFFFFFFFFFF0600CCB56E57696474685757FFFFFFFFFFFFFFFF0700F5ED6E4865696768745764000000FFFFFFFF0400CDE453656E64FFFFFFFFFFFFFFFF0800C3EC627374724C696E6564000000FFFFFFFF0B00B9B557696E5365745469746C6557FFFFFFFFFFFFFFFF0C00B0A5627374724E65775469746C6564000000CC0100001000CC2944657465637448696464656E54657874FFFFFFFFFFFFFFFF0900F953627374724F6E4F666657575764000000FFFFFFFF05000EED536C656570575757FFFFFFFFFFFFFFFF060033BE6E4D696C6C69575764000000FFFFFFFF0B00940E5365744B657944656C617957FFFFFFFFFFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0600B7846E44656C617957576400000098010000110021B55365745469746C654D617463684D6F6465575757FFFFFFFF900200000500330E6E4D6F646557575764000000FFFFFFFF0B00125753657457696E44656C61795764000000FFFFFFFF11001E8157696E4765744163746976655469746C6557575764000000FFFFFFFF0900584D4C656674436C69636B57575764000000FFFFFFFF0A008DED5269676874436C69636B575764000000FFFFFFFF0D00596F4C656674436C69636B44726167575757FFFFFFFFF401000003004DBB6E583157FFFFFFFF000000000300DEBA6E593157FFFFFFFFFFFFFFFF03004EBB6E583257FFFFFFFFFFFFFFFF0300DFBA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6E59325764000000800000000E00346A5269676874436C69636B44726167575764000000FFFFFFFF0B007816496657696E4163746976655764000000A40000000A00B8AC496657696E4578697374575764000000FFFFFFFF070072D357696E53686F775764000000FFFFFFFF0700E46D496E695265616457FFFFFFFF2C0000000800474A6273747246696C65FFFFFFFFFFFFFFFF0B00BF376273747253656374696F6E57FFFFFFFFC80300000900B4396273747256616C7565575757FFFFFFFFFFFFFFFF0A00860062737472526573756C74575764000000FFFFFFFF0800BB9B496E69577269746564000000FFFFFFFF0700EE41436C69704765745764000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B803000007005F74436C697050757457640000002001000008001D6153687574646F776EFFFFFFFFFFFFFFFF05002A966E466C616757575764000000280400000700E4AA57696E4B696C6C5764000000FFFFFFFF090076B94D6F7573654D6F766557575764000000D00200000C0021724D6F757365476574506F7358640000001C0300000C001E724D6F757365476574506F735964000000FFFFFFFF10006094536574436170736C6F636B5374617465FFFFFFFFFFFFFFFF0A00275262737472546F67676C65575764000000FFFFFFFF14005B0353657453746F7265436170736C6F636B4D6F646564000000E804000009002A12496E6944656C657465575757",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("640000006C0100001200C4B457696E4D696E696D697A65416C6C556E646F575764000000FFFFFFFF0A002013426C6F636B496E707574575764000000FFFFFFFF04005C5B496E697418004175746F49745820312E302054797065204C69627261727957570D00436F6E74726F6C20436C61737357120049436F6E74726F6C20496E746572666163650E006D6574686F642057696E5761697414006D6574686F642057696E57616974416374697665575717006D6574686F642057696E576169744E6F7441637469766557575713006D6574686F642057696E57616974436C6F73655757570E006D6574686F642057696E4869646511006D6574686F642057696E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("526573746F72655712006D6574686F642057696E4D696E696D697A6512006D6574686F642057696E4D6178696D697A6515006D6574686F642057696E4D696E696D697A65416C6C5712006D6574686F642057696E41637469766174650F006D6574686F642057696E436C6F73655757570E006D6574686F642057696E4D6F76650B006D6574686F642053656E6457575712006D6574686F642057696E5365745469746C6517006D6574686F642044657465637448696464656E546578745757570C006D6574686F6420536C656570575712006D6574686F64205365744B657944656C617918006D6574686F64205365745469746C654D617463684D6F64655757",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("12006D6574686F642053657457696E44656C617918006D6574686F642057696E4765744163746976655469746C65575710006D6574686F64204C656674436C69636B575711006D6574686F64205269676874436C69636B5714006D6574686F64204C656674436C69636B44726167575715006D6574686F64205269676874436C69636B44726167570F006D6574686F6420496641637469766557575711006D6574686F6420496657696E4578697374570E006D6574686F642057696E53686F770E006D6574686F6420496E69526561640F006D6574686F6420496E6957726974655757570E006D6574686F6420436C69704765740E006D6574686F6420436C69",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("705075740F006D6574686F642053687574646F776E5757570E006D6574686F642057696E4B696C6C10006D6574686F64204D6F7573654D6F7665575713006D6574686F64204D6F757365476574506F735857575713006D6574686F64204D6F757365476574506F735957575717006D6574686F6420536574436170736C6F636B53746174655757571B006D6574686F642053657453746F7265436170736C6F636B4D6F646557575710006D6574686F6420496E6944656C657465575719006D6574686F642057696E4D696E696D697A65416C6C556E646F5711006D6574686F6420426C6F636B496E707574570B006D6574686F6420496E69745757571A000340",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("030003801A00084008000880130028C7003E57571300A400010557571800000000000000FFFFFFFF300000000800000000000000940900006000000019001980000000001C00940009540000040000000000000040000000FFFFFFFFFFFFFFFF0000008CFFFFFFFF080008805400000001000000080008806C0000000100000003000380800000003100000000000000940000000A0000006000010019001980000000002000940009540100040000000000000050000000FFFFFFFFFFFFFFFF0000008CFFFFFFFF080008805400000001000000080008806C0000000100000003000380800000003100000000000000940000000A0000006000020019001980",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000002400940009540200040000000000000068000000FFFFFFFFFFFFFFFF0000008CFFFFFFFF080008805400000001000000080008806C0000000100000003000380800000003100000000000000940000000A0000006000030019001980000000002800940009540300040000000000000084000000FFFFFFFFFFFFFFFF0000008CFFFFFFFF080008805400000001000000080008806C0000000100000003000380800000003100000000000000940000000A0000003800040019001980000000002C0054000904040002000000000000009C000000080008805400000001000000080008806C0000000100000038000500190019800000000030005400",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("090405000200000000000000AC000000080008805400000001000000080008806C0000000100000038000600190019800000000034005400090406000200000000000000C0000000080008805400000001000000080008806C0000000100000038000700190019800000000038005400090407000200000000000000D4000000080008805400000001000000080008806C000000010000002000080019001980000000003C003400090408000000000000000000E80000003800090019001980000000004000540009040900020000000000000000010000080008805400000001000000080008806C0000000100000038000A00190019800000000044005400",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("09040A00020000000000000014010000080008805400000001000000080008806C0000000100000068000B0019001980000000004800940009040B00060000000000000028010000080008805400000001000000080008806C0000000100000003000380AC0100000100000003000380BC0100000100000003000380CC0100000100000003000380E0010000010000002C000C0019001980000000004C00440009040C0001000000000000003801000008000880040200000100000044000D0019001980000000005000640009040D00030000000000000048010000080008805400000001000000080008806C00000001000000080008803002000001000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2C000E0019001980000000005400440009040E0001000000000000005C0100000800088064020000010000002C000F0019001980000000005800440009040F000100000000000000780100000300038090020000010000002C00100019001980000000005C0044000904100001000000000000008801000003000380BC020000010000002C0011001900198000000000600044000904110001000000000000009C01000003000380F0020000010000002C001200190019800000000064004400090412000100000000000000B801000003000380BC020000010000002C001300190019800000000068004C00094413000100000000000000CC01000008000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("540000000A0000003800140019001980000000006C005400090414000200000000000000E801000003000380AC0100000100000003000380BC0100000100000038001500190019800000000070005400090415000200000000000000FC01000003000380AC0100000100000003000380BC01000001000000500016001900198000000000740074000904160004000000000000001002000003000380880300000100000003000380980300000100000003000380A80300000100000003000380B8030000010000005000170019001980000000007800740009041700040000000000000028020000030003808803000001000000030003809803000001000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("03000380A80300000100000003000380B8030000010000004400180019001980000000007C006C0009441800030000000000000040020000080008805400000001000000080008806C0000000100000000000000940000000A00000044001900190019800000000080006C0009441900030000000000000054020000080008805400000001000000080008806C0000000100000000000000940000000A00000038001A0019001980000000008400540009041A00020000000000000068020000080008805400000001000000080008806C0000000100000050001B00190019800000000088007C0009441B00040000000000000078020000080008803C040000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0100000008000880500400000100000008000880680400000100000008000000800400000A00000050001C0019001980000000008C00740009041C00040000000000000088020000080008803C040000010000000800088050040000010000000800088068040000010000000800088080040000010000002C001D00190019800000000090004C0009441D0001000000000000009C020000080000006C0000000A0000002C001E0019001980000000009400440009041E000100000000000000AC020000080008806C000000010000002C001F0019001980000000009800440009041F000100000000000000BC02000003000380E80400000100000038002000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("19001980000000009C005400090420000200000000000000D0020000080008805400000001000000080008806C00000001000000380021001900198000000000A0005400090421000200000000000000E002000003000380AC0100000100000003000380BC010000010000002C0022001900198000000000A4004C00094422000100000000000000F402000000000000AC0100000A0000002C0023001900198000000000A8004C000944230001000000000000000C03000000000000BC0100000A0000002C0024001900198000000000AC004400090424000100000000000000240300000800088074050000010000002C0025001900198000000000B0004400",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("09042500010000000000000040030000080008807405000001000000440026001900198000000000B400640009042600030000000000000060030000080008803C04000001000000080008805004000001000000080008806804000001000000200027001900198000000000B8003400090427000000000000000000740300002C0028001900198000000000BC00440009042800010000000000000090030000080008807405000001000000200029001900198000000000C0003400090429000000000000000000A40300000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A00000040000000A4000000C0000000DC000000F4000000080100002001000038010000500100006C0100008401000098010000F401000018020000480200007C020000A4020000D0020000040300001C0300003C030000540300006C030000C8030000E4030000FC030000140400002804000098040000AC040000C0040000D4040000FC0400001005000028050000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("40050000580500008C050000AC050000C4050000E4050000FC0500000000000060000000C00000002001000080010000B8010000F0010000280200006002000080020000B8020000F00200005803000084030000C8030000F4030000200400004C04000078040000A4040000D0040000080500004005000090050000E00500002406000068060000A0060000F0060000400700006C07000098070000C4070000FC07000034080000600800008C080000B8080000E408000028090000480900007409000098820100000000000000000007004100750074006F0049007400580000000000000000000000000000000000000000000000000060610100C8033400",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000560053005F00560045005200530049004F004E005F0049004E0046004F0000000000BD04EFFE00000100330001000000000033000100000000003F00000000000000040000000200000000000000000000000000000028030000010053007400720069006E006700460069006C00650049006E0066006F0000000403000001003000340030003900300034006200300000005C002200010043006F006D006D0065006E0074007300000068007400740070003A002F002F007700770077002E00680069006400640065006E0073006F00660074002E0063006F006D002F004100750074006F00490074002F00000036000B00010043006F006D0070006100",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6E0079004E0061006D00650000000000480069006400640065006E0053006F00660074000000000046000F000100460069006C0065004400650073006300720069007000740069006F006E00000000004100750074006F0049007400580020004D006F00640075006C0065000000000038000C000100460069006C006500560065007200730069006F006E000000000031002C002000350031002C00200030002C0020003000000030000800010049006E007400650072006E0061006C004E0061006D00650000004100750074006F0049007400580000005C001C0001004C006500670061006C0043006F0070007900720069006700680074000000A9003100",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3900390039002D00320030003000320020004A006F006E0061007400680061006E002000420065006E006E0065007400740000002800000001004C006500670061006C00540072006100640065006D00610072006B007300000000002800000001004F004C004500530065006C006600520065006700690073007400650072000000000040000C0001004F0072006900670069006E0061006C00460069006C0065006E0061006D00650000004100750074006F004900740058002E0044004C004C00000020000000010050007200690076006100740065004200750069006C00640000003E000F000100500072006F0064007500630074004E0061006D006500",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000004100750074006F0049007400580020004D006F00640075006C006500000000003C000C000100500072006F006400750063007400560065007200730069006F006E00000031002C002000350031002C00200030002C002000300000002000000001005300700065006300690061006C004200750069006C0064000000440000000100560061007200460069006C00650049006E0066006F00000000002400040000005400720061006E0073006C006100740069006F006E00000000000904B00400000000000000000000000084E3010050E3010000000000000000000000000091E301005CE301000000000000000000000000009EE3010064E30100",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000000000000000000A8E301006CE30100000000000000000000000000B5E3010074E30100000000000000000000000000C0E301007CE301000000000000000000000000000000000000000000CAE30100D8E3010000000000E8E3010000000000F6E3010000000000020000800000000006E401000000000010E40100000000004B45524E454C33322E444C4C0041445641504933322E646C6C006F6C6533322E646C6C004F4C4541555433322E646C6C005553455233322E646C6C0057494E4D4D2E646C6C0000004C6F61644C69627261727941000047657450726F63416464726573730000526567436C6F73654B6579000000436F5461736B4D65",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6D46726565000000497349636F6E6963000074696D6547657454696D65000000000000002AC7003E0000000070E4010001000000040000000400000048E4010058E4010068E401009A100000AB100000C4100000D31000007CE401008CE401009EE40100B0E4010000000100020003004175746F4974582E444C4C00446C6C43616E556E6C6F61644E6F7700446C6C476574436C6173734F626A65637400446C6C526567697374657253657276657200446C6C556E72656769737465725365727665720000B001000C000000BD380000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next ts.Close End Sub Sub CreateLame(strOutFile) Dim ts, x If Instr(strOutFile, "\") = 0 Then strOutFile = Left(Wscript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) & strOutFile On Error Resume Next Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(strOutFile, 2, True) For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000E00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000006797909723F6FEC423F6FEC423F6FEC458EAF2C421F6FEC415D0F5C422F6FEC415D0F4C454F6FEC4A0EAF0C435F6FEC441E9EDC420F6FEC423F6FFC467F6FEC423F6FEC415F6FEC45269636823F6FEC400000000000000000000000000000000504500004C010300C7E604410000000000000000E0000F010B01060000E00200",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0010000000E00A0070D50D0000000B0000E00D000000400000100000000200000400000000000000040000000000000000F00D00002000000000000003000000000010000010000000001000001000000000000010000000000000000000000000E00D007400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000555058300000000000E00A00002000000000000000040000000000000000000000000000800000E0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("555058310000000000E0020000000B0000D8020000040000000000000000000000000000400000E055505832000000000010000000E00D000002000000DC0200000000000000000000000000400000C00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000312E323400555058210C09050ACE131A6D102B87771EA60D0062D502000050080026130079",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFDBFFF253BB01003D00E1F5057215BB09168BD0B8893BE6558BCAF7C8DBBFFFE28BC2C1E8193D102729721383C304325917B7D10E79F37E0D83F8642E021F85EB5105B7FFFF5F0A7201438BC35BC38BF6575655538B5C241481EC74D0891C24ED3FB3FF8D442438C705002A47D4201B04E81300C0DC2C707EB71F663A1FC1EC33DB8B5085C07EBBD88BC806F6EEDF163C8BD103D03BD87D1E1B40174440066440484C64400664505458066440065C60647D066440686C8994DFEE3FC157B02433ED33F6899C451C8BDD908DB483FFE08326C08B6C9C8BED75183B1DC029E56FEFF3EC0F8C853A17C48F795284614C34FFFFE18370D974618BDB97490083C7F2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8BD70FAFD58D5402F60E7FDEFF89416CC29989BC4512BC21C3DE6D6FF732641F2C5DF9978DFC7BF1E27C07FF258BC71F99F727F8EB178DB6E6A5FD1E128DBF0A33C033710D608B5F1CFCE8F9FDFFFF8D8D503E6C240C89130AFEBBF908891424C700A24C3D13057C3CA0222A84F06B870D3E751500202BC50C9DC8DE7DDB4D9464188D848373894C817A20B9CD6E6F897C24101614052C4B0C161C042A78F0EF5A0E20A6BA8EEB6D8D763DBC271FB93D383EA1FE8B94CB0DC22BD78323C86EF7C0F28954C782208B04E561C8919CBC0CDD44405439663648D73EDDFFFB7F072FFE4383C61083FB0E235AFEFDA1D0C7042480B7327B7686964EC02989187D0381",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0561F8A3C47E5B5D5E5FC39D5F740FF6A74FEC83EC38EE67746FFF2F7E5B82A10C6A50FF150850468FF803744F83C4F88D45E0E619EE0E632EB6423B04DFDE06F70FBF45E62D164433C9BF049C03FC8B1D0CFDF7B704E994668945FA8D75F80D4DF88B368937E9ADBDE66B848B2F8BD28BE28BE55DC31DD321AFBF9C00288B9CD321263BD826CBC25CC6368D0E83059E01C21DCC302A7A8F2EAFD005D9AE887C6B7898FD8940DB8415DC6DA03A9C19466D332F55D03362DACD3B18B3AF0D8B35D4264127483D76206F4FF589B46B35D8F32DF11F76309F4C29D9CBDEC4D9C903C12EF8FD76F5DC52DEC3DEC2DEC151CE03C21050898C83ED40DE8B0DE0CA2D82",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("82EDDFB1548BC96E03C58B2DE45203C318983C07BF5851E903C645E8ACC8412A38675C1745ECC121971CF560CA2DEDB5B7602615F0BCC1F26455D6CE1DC3B469B8F4BC75688FD96FBB86844CF85B6CBDDC7B0A467AFCC64DEBC77B70C71667730340AC280307A37F35CD2C303481750DDDD8536CD536C89C00895B5B75F46E862AB5A0DEF9DD6B08BE73DCCF2785DB0F8E98547A8D17570396FC58CD527B090D1066E6859DF22FA4C0BAAB6CB940640C85304293484E21172000A36F401ED54120A38B6384E00438305E2629B09633EFD93F77FAFB0F8F171C11F62F0E7703D3811C40DB1205DA66E69930E0604DDBA592BCC0A0EA3942802DCCCCF271745048",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5D5724CB800CA0787024CB801CC07C90CD30101CE04B8085B06537DC885D4C95A443383CBC9A29E9E509565A612A39201F6659F8478F5320A4075698018B67270C57B1628F83407D5331086C6A07FB74420699687D6080196422397880A09089E4087CA0B40D0B64C0C5834820834CC0E003A95A1C7D297C454086D7E03406598D7426B6BF640E9F3083C4F033C0CA0C00DE4684073FD784BAC0FB46B3070E9C517C341508240BAC09B3C804C3059250EADBDB4CF3131419D47EC9A10CFAF4FFD876C06E00150C5084DEBE1808BFE03EFDFF2FA08A174788164684D275F68B5D0C8B75103BDE9D740256B0E36FFB087C0881FE40587E3728A1D5C7107C61745F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5C27A1D31611EE5B3F10B8C059EE85EC11CF8B45596A5851F0FBFDE9AC33D22F083B1D240F84BE4CBA9167E4892421CCAD0246469E91D09C03D48BE419197904D87A05E467F666DC746DBA0619E060BA07E467E467E453BA08E846BA09E467E467EC39BA0AF02CBA0BE467E467F41FBA0CF812BA0D168BC167FC05BAE65B0146AE6025D63B35A3B835E492914BB835B82E19B96435B835B84E464E4635B835B84E464E4635B835B84E464E4635B835B84E464E4635B835B8C5784E4635B8A35C8326285EE3FA0E7DB30E7CF9A0B595B84ABF10B82A00B961B6123FB2F3ABBF4AB82500211CB0D00E7365D30029106395DF3DE351FD990CA1E496117FBAC920A9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4EAB16FCC0A87586016A346F6A260243803DC37FD7F4333B54A6508F1433C9FC1043DF88B0E5000D3C14CBFE515250B818770CFBB33679811C8B8C242016851C0CBC8FFEE7842418F08BD98BEA8934E0F94C892914BB86FDCC1D01033C8BF812B91085FF82C33E00F8FC896915DC7085D274258BD0A1E00561FF6F143BD073028BC22BD03BD77312B19C079F0BDC0BDF75A1A804743D052FBF690905746406745F1814B4371CE1C64244971D4C09CEDA0FA38BCF8D7212E9123C60C16FDCC154ED84247685ED12BCD7843371841ABEC1A70215CEADF9EE3FAAF801747AEB2D41334B029CCDEDA758DE15B48D1058BDC68BD8B210675E0AB6BC893F99831183F3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4696057A06BD71A2C3066F7F1EFF740D8B650105EC1981F00936E0C4243685AC228DBD8FBFF2636F6F03C90751C1E90283F11F86FD5983E103F3AA6148397C8A8BFD8BD6016FFFC41FC2FC8B0A890C87387DF38BEFB73DBEF6EF0E665F0F8C569CBD75F7BBF8EF8D448D5BD68B4AFC8D5A2988D88B5BFC831DC6FE175F1883C0FC3BF87EE581320FD26E580F2A0F8515813FBB00F9160493093BDBE8FE05CEB144B353D690FEC739F8023E0FBF4A026645436F929C0AB63B4FAEFE702B0FC281594BFE78FE8D6A0FDE776F488588FC216DFE152861FE3B86BB18ECD87EE19D7A878C5DE1E25FB9145F544410C1E2851472605A9947F03E14C42FE056BC3652F7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("81C5056F732007A3CD62861C779FA0B4BC942CC2948778CA807C08B2E95BFE95BCC8C7098F851191CBA7512558793FFE8B563DD781EC2C59F9A01080036CED21B3201626406C20168DB772A94C381CB212A0B0D0FD6DF6094CB385DB7562F09E4E3C93EE8A590A7E0113C1957942F908BC4B928C3B336F84CB4E54469E9A99F7B0EDACFDB183FBFF559177DDE0F7C37EA9077C738B0EA20B3B82015CDB058458741CF20A61D8C91360A62B0840608E65488E64B91C884045A607D34C18C3512588BC2DECB9801A272B33C0C106032E400A0CBB709411639534FB8D553B8F3A5C711DE083616CFE83ECEB0DE9E00053BBF93FF0E9D2AF94FD70CE252DD8247283",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FD20740B2C2FBF780918747310746E080695824CC9E0A6017A00ED850218101698D89233FBA54813760CF7C620228120A75FFAAE0783C41C571D202E1818DDBEE0FE33D285C90F94C2999C94C13BD18B267507B9B7FF63F762EB022BE38BDDC1FB02C1EB1D030E038BD3B87EDC61F3EB8450F612569F0F7C9C34FE5F203F9A005FE8892C2423388BF2FBD028C712361FA28A717E38F0E129853FFE01842DD601AF3CE06EFF751521A1B911035EE4ECDF747409047429EB1B297401112B39B01B4604AB8B7AB114FDFFA137BB10EB2BD685D27CE70FB6442A01EEE4BDFF091C2AC1E0080BD81A0213100345FDF7EBF2171889592DC1FC5B7DD2EBB78BF6F22AB0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("10DF8B457BFFF7B6F2BE63042A9B5C92C1E385C3180D83BCB40284E3C38941D91013854C6CA9886D7F36E119D8D91066316BE383B99003B67DFF1D184CECE42D130803A1D2E4D056F1AA1F9FC4FE722407239E08A157C16A477B7F9F9805997621D07B1BFB0813E21B35BE7EB37F007BB8B6001776917F4C8805325DDFD2EB25EC63D7D21446F403C60AD234C002DCAA80037C78345A10C1F879E81DADDD68DFDE30071303A1058233C42CB8C09D698753179C2C76A066593666C47E1AAD655C7A32ECEE2E101E5E1F019BACF3339D6A0A34B66C1E7C243067DA43D87CBF2FFDEA10135EDAB4B4F82B25E871687464400AC21728C001FE0A168C8F898B5B0CF6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C3A6AA27BEDB072CAAC05B2F1138305F5D2C22F7C2C120944B22F824F629F35C0A1128A7180DF5EFE4E41C242056EA33DB33FFF0FFB14DDAE29AEC0F3D45564157740D81C434221B4AF018D1BEEC0AC5B4C1D583B44F3B6D669B98947690F67D3D617461641579013B7FD812C4AF20157C0876833DBE5005B8CB56688C9A7E4C81FB00183ABE2B087615B80CEB107FC398A54395A81155916C580E1116AA818EB92B3029F817AB7FB4460F8563468B097005D30A18C8E045C38693063B0A295677E461061B04DF54F92C55BC900969448D200C8B3CD1483B7878ACBE61F1890DFF60800E38C1D35FC1EE1D998D74771CDDD90E074E82274B0C1EEEF7FD226F38",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("14ABF8ECA98BC7213F9018C30B40A581092778EBDD18D64D0736EAA4A7D8974D5E816B58F1BFBF180958F915D22787100F8CC925974CEC705C89421D1C2CB5B18134204B5B7335EB871283C3F0DC813C328462140BC8E1D9E6D9853DA36536E0682853574F8662447FF90803902B0A0114DE62D9300B30C57E1BD1C8BE17FBB2100C6B7B951C3EFEBB0C06D68B4A1881F9444E5353398EF07B7F0F2EB74A2BF910755C110A0F017426988E0DAFFB7421E7FBE0FEA42B64EE551408C38B52202379B481A54F20A8E6B976601031C39D0CA0D016330F58105DEFF2A24AC980FF843389D5455E883324B17A4F34EF3715608DD930F8B22CEF579F0789470405080C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("10D5B22CCB14181C2024AF79FFD31E8BF013F881FF4646494174150F43009864D7288C3385C92EFBE22DB04EBC245C2A3C643306F3EB7F8D7EFC3D4D4D4F43439702DDC7E75A7B84B10041438BF72BF371C7E6E300744C686D7E425F0492AE153E22BB168C7C6522C5508F6539B7130B064289B1184203421D7341F6DE0A1AAE2CD11C309E9C2BE67340309F504C01A102249246DF68E7F890FDC1B860D062E6C71F8483390328C4088BC8E345617EED001A24610FBFB2340F9015FC6033144491E73507C2DD4520ACF6BC9383DDA9508B2F548C2140C13F7D8BE8C1ED8DD581E2FF0792FA5C8D5F30D3B026F7DA81C21E64E98BCAFF9AF4677BA4EE0B81C480",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("598BC6D3E885EC1A44F8ED7D06F7D8926038A8F7545A72300C2C18D4C08065083B4CA3BC0250AC3A76F01C265D3188010BCB69B10A3F7AB48BD7DD8BF22BF75A1C666E691752C610141D3D186E68F8499D7C8D5FEE3E5C61200189756A3D5CFDED6273883367FD7C55A95D128B871CC580F61F0E1C0F52109D17915DEA3D0EF0FFFF74776F73740E3D736F777474073D454E4F4E754DFF94BBF5670DAC43100F854402D28B23DB0DC30DACFEDD697740A07FE27511C7051AD31E82436E83947F2100901F280C10243EFF3C86F830CA75DAD72F4E5D572E8FC4527B447DE61D74004E1DA81274661DF1C17F8B524F46742D290174060806F3600F197A3289A134",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D0DB5A5F438BC5DFB7A5DDCC0BEC1BBA03A713D833EDFB415CA98B152AEBA1631682844CF21EBA0202B86D2179D61FDCEF8091A1110C953DFEDFB8F718CCAF5CD9101F4468FC138994A6A7B544BEE0A5FFFF5F04583A16751A0AD274128A57013A5601750E83C70283C619F80FBE022375E4DDEB051BC083C801096F02FB2D0FBB80E0FC7C2CDCEB1E7490DD726A9820A983E9E440AC8FCC84CB02531A022E23CBEC1111060807DF01B0ED30B30D0E04AC1FA46DA9B512CB016FA398CC7BD07E44855420B8043BD83B47AB46C10D00F01CFC28DB06FF0B5870DC1500A4DFE083509E0F8220013E68AE5AA70E09028599003B7300D32E8CB2FB7EDADBF29A3385",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0D18DD13500898DEF1436B2F35487628481828B81FE0F7462C810FFAC1EF17CF81E1F2752323F92229FFF71412E0CFCFF7D981C12F8AA6003F17D3EA85F60EDAD21A176B7C71DC330FAFEA662289D843D9C72D9C1E6F30B803C01229B48B14B15D50F438A001EF768A4C0EF0C1EEF5D60D1C8D13B6A0316D5C128EC022211AB60AB2BC83C0A9540A33F0405A5138123AE0EB106875B437A05FA3200A240FB52021554780A900CFA80C03510024BCC002A5167466A1AAF9EC0BB9ED472A27A1880CA19C210A5C364895E3780372B0C7007E4FA9A514720100B08B9FC21FEB0FB61027FF148FCD9FF9D5971D5001B9E023CA4B4FFF37B2E02D24CA83E11883F908",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1172A8BCD79B00E206746DD50968ECEFE7EF5963676802BBF0DD81FB0E7450BB0C1D6EFDFBFD83FB0C74446D18741447400383E003AAFB9E6B893342FE780630EBE50AACAF4E80A7C1FD0FBEAD4C0CF8FF6ABD41C1FB068BCBD3E285EA74C54257E22F033E4EB894349B3212F62DFBC08884248C1A8DAC0CE72DD6A277BCEC8D6328438B5AE69424A8EF7F3DE094D0307A2485E6054F7BBD2D8A653C49F7142944DD723DCD750F2A3300DEB43FB8876749BF00AAE7B98E19F3A6740866AB5EE37305B89DFF407A8529D2FDE2B0908902550931D2E035C4D8BC39C5672FC1B6AC010F9C8FC1E508BEDBC55F801D80F2B58D042BE787FE4E48DFCC8D5C2BFACBCD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("30C202DCE559231DBA2196054F9B58DF73D0895320119F06AB2011C3B8D1D3660321154E2C3E24E383F37015380CDE32A9E7B788BC2F8CB47C0CA4242A636FB7E68C242B886D8AE188A445D9E2DDBD2D1A8C522836BA945CDF87EDD46A0D774C0208880707423800ABD175EEB8D2B4C5E5204DFB4C0135027670D64DB7693DEB680AC6C9335D31BAF3D081FA4D59F374AA1CD0DBF3FA3F1A469AE73D85061136F82D04534D305B24879C57B913CBAB6CF3CE81F93509B90C25112EB86CBE0C67F9FEFA185603152BEFCC5B653339DC268EA92FE4033E751D2BA0AAB001EA31824DEFFD26E548B13C618D2B47EEA1E7E4431E4954084C80050C78A614C810A9E1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("19273FE718CC8CB07BAC7A719836718B007E8700B38E43D8557F90E1B8252EC3608664CF64BD004C4E4E0A38948C9C2044446A9D6815A4C0E47A1A2B231C41D3737E074A882F401ADE0577B075448AFB8415393CC0366AD348EB38AC3468D1034B65C904559896BFA320B0B6928DA69DD839171D2C45B8A31FBDDAA0AA6C0B99689AE506D7F1B892068A8029808F6FDFC7E37F2F7F1BD3882FC1E207C63BD98D9A2C0329391E161CA732DBDED3662D47666077DA0340185EDBD8882FEA2D7CAE00291109518C0007850AD247FF201221535DF9C88DD1509AB4FA1BE1D869D83BB9EBAB2374E05B9C4A8B26678EC4401C180EF0465129989E168B8C8D09DB2228",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("13DF2BC29F6522D7FB9BC8C1F906E3EC4138D3DA37FC8B26FB41F028383E29538B6E3E02975ACB41084D1D8419F916DA78891DFB0B0DE0DC861036901E16B4A36006BE5C2094A3C0F1386A85C45B9F3EE333AC8B9C109AC08BFB31205330C5A01663CCB01B39C088BD9B60891B83E1616E1033C0028B0838FFD01EC47B975CFC2206DC0B9680688BA0994D793F876D3E2C8D2C570619B20FB74F0CDF6669DA5E1818E8DEC1632CC36094EB0E5E5F2F7778C7534679BB10CD847411F6D44ACBC19EF0B6EA104A880828AF1B4F06BB2A40A00C1C8C06DFC10D0F599F3BDC3683E4F080218E7E7C55558B6B041C8BEC1D1205F6176A6175B757C785746C896FA6BA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C8312FB545B4FF15102CDF123B30C4F86C2604241C24EC5F49B0F085F674228D857866834F5EF97F1459188B55883A7B14657F56D633F68BAFB6248D923ED673898F048479B530EEF75FB3F03746A2B54A7CDE8DBD50F10F146A7E03130001AA3D261DACB80052C55C27C0AE43EF47C34408404393530821C44CDFA3F0697F33F98B2555C0B7FC283C6BBC14F1004B8C788DC2C860EB8BE3BF3F5FF09319A0B54C859C8D95F28D8D60E0B32EB8F50B208955D0494DD8ECD00BBCCC0A8A06849F4903F2E08D580CF9129F5B30EE9A07771728E0142B103B8A11C40CCE34ED8B4B082E0C08EF71704029585A1CFC6782BFF1756FBC670DA3D905BCC093831BF4DC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1D00AB9A9E730AE3BC693830EE408A85BA914087AB2CB8823CCE8D2C0070FB9DEB81C31E9C288D861C7B5B0E52398310B46FEB060F7B075460526D8F86B57A4448708329438F20DEB6050B97423688C3358B4D8307771CA6DD0C804AAC7735E4E8B0C8BCE814D3AD384EA760D9C62C8454D8C9871ED7A80511B07D18E6C1825CB3B863FA0C3938FB01A765A1C45774305BE820B8334535BD525ACD7C99F0C3C80055C06E3F9568BB96F818F031B45F866B48ECE9572F22886478AF84BA0455E01B3B8408FF5D3C778B486FE03BD07407BF0C57F136EF9DC20A68C13543868F8FF703EB944DA6171AD2708975BCADA12339EE041F6D951B84855A2B014EC39244",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A9EB1BBF63992D1211CF55C21CDD0783604F4A3C8BDDE836370FEF5659E023C02C44C68BCF32C3B3CD8BF039386F188B15F5D28B1DBFD1098A90C88BD66B5062EC549CBF3D050147086C1602113A4A0CDC187E91F9C785C7C04DE083C20441485C3C9C368B5753C8CFCA700E1C4A4005BE9CE0D5A163094B8BFEC78A371571F4E94B84BD0841D311850EE6DAECF8406EE134F669942A62F074FE91CB96073848B7CFC85970F9C0BA15179966B8C646C66EB495246F5A81BF55423C2074134D76088A46013236ABBE462575F48484BBEBCFE60507A97F50C64FC5BCBD9A011F2885703FF9DC76E45D1731126DE0B1871A2ABE7672604BFAEC6C2701035C1BF550",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("75E2B8B37BB420B2F1C58F864C80B86455A006DB45A0096B82815598B00038B76F719B31B8956D3DFE6A7F073D91E4B08602B47DFF40B207027B726FD484484019FB1C3D48483B2E30217C89EE30B3C5E1FBEB1804DD5DD8BDC801FE309CDD45D8152025D0DB0B30BB7C9E774B27283D761DFDB6E861C960B468676D54D8C8828AD968F08EC0B4044B409E59641034443AB2D9B3C85FC1D0D81D3050C7394D40B689BDD0CCB38908F280B3768B93909E5EB845D138428C7FB8C3AA389BAC6A32C6BF58F5425EE4DFFC8EB143900D92AF4503D3F02F9A4E50017E5AF97E2BD30A164CF153A3CD6617607DC62C2248C0EB098201A2C65B92931C8207C134C091FC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("ECF36AFA8DF5E34B762FD2835F742C12469EA0804EF24F607CE35205EED4CBE75C70C076C0927FA693DC7181C38A7028BE6154AEFA6FC49DF08883F8FE7416C7C29AF0FAD0C533D2EBEB65FE8D0CBA54AFCE8984DD8E18920AF6F5ADD02BD8B2084B13AE2870181B10E922219E345CE01A0C4B2E7DB31742C16074C56150008F008DDFA0F32CD88BC8967C1560151EC1EAF88BF153F9DE2A803C10888A85FD030B8D9DFDBCF6FF3C2F74183C5C74143BDD0E3A3FA143FF4B1AD0ECF72F75E8270F85911EA41035767BA590D08A4410FF825B8BFA3FE589E4815C743B3A741BFFD444C7BAA01EB9FDF2AE4F8A0242882170F0D007471DBE109105C33008605FBC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("298D34F8035410FD80FA7797DACDB6FDA5CAC60400C604102E1003330802700148DEB8856D11C46C043200F2861CDE9650CB6D69FE613F21E5926519FF7657FCE76941962E469AFFFEC951C592FD21443C582443240186FE642258B4431E375C731145F2488E00EFFE594DA4A25FF68065E3F93D278865840C8424801D3F3AEF47D2FB0A892D58B5E90F8D77A8ED83165058A66C50B0651E645E4BB30C891B68FC891A4021F3256007D5709B0AAA8B643F72849CB43E5C685490821158BD22057F4FDAEE85270CBA80AC669403FFD9CC2CDD8CAB03D183FA427307BA055FDE9F5A6FBA00B04C61C0B860AE4CE1DB84D02B66266B2459040C80796AE0AF0078A9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1444289B4378C39279F9AC8E5536B2D2B8DB122E38AB20CA6C84311B23506825B040184D4A7E50951E00AC46424184BBB7575D751EAFFD5CE0FE206F4FBA98B0EB463BFB4C3BB44F32A028B840B0C7FD2C5328B7210360C7FA3069862DDB1D8C5C1E4128BA720C21D18BF8D1276FC3F96CC2DD9C2470FA2C8197221FC6D03E03B920AD36D8860FD0DD055008DC8C4A220548376DD260A65C7848C1E10481A9500296504C40B4F704CCC02E7D4062891E3B01B37C493245AFA3E86C2680CF89B4D753A18EBC0D7CBE60007440AF701847B49D147F14F79E800A8EDE749EDA3B81B7EC64739D7E30DFC3097C76A295F20FA4FE07FA0361C7C08BD605FFCB6B62C5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("111394F56514A93814F7DEC9DE18C11B0E01BF7F086DAB9CF2CB4FAD0D16153012F32D847D0CDFAC24780CEB7525602F19502D0DB9709571A5E84D4CDFA26D35160BE40D0253C9B51D5ADE158C246576548ADD9A14546C94004051A0586F61BA9FAC8E208B752BE8601A586544247A6055CD54100778B83BC3213C0CEDBE179C035364518BDE21741F109CF6D8853AC6086756AED8E5BB5CEB1D3D9CA0221846D88CA0E043331F1C0901B96C3765AAAED64D89A93C09DB4A07D173BCCD13321511863C41DCFE22BD3DD42E36669FFCA1B81DBCDB0E453F005C0F7B3A0C31F0AF0B793ED5FDFF74287D10E4D360128840B1A1125E581BAA798DA40DC900B1DA2A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("802019D8A37383FBCD5C74E4B994E7D81D340F87FF992407182BD7F7EAC1FA048BC72F467AFFC1F81F2BD06BD232132BE3A3BCFD9E496E28893454340C99E441D88934545F627830808E5C899B846EA10D87335E90763D36223C795B5F279F3C76007FEE39C90160126812640CCC7B3C013A0CEA0E17501F93E0BA224C585C1FD883FA453815F00A0F8DD9338C127163BB003958128B5798EEAAC269A794ECE83AF04810EE8A85F6CBC23EFB5F6883FF1A7607B9A02099B9C00C498C01FF97017407BAE0AC1374E0664FA084B45FDB1A46585C348CA2E514DDED10B10CA28BB442C0007E2E61571C951F060F84CE06E5B9CC4E3D1104AC05011EAE9F8DF42C02",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("754FF10A7D140C29E90214AD9170805CC2043B89A352678A8710C22A74AD5019E58B986C664287A54A86E4A703E0E040C9899D00AEEB4A6183928935A088080572F291B79093E525E76F60AEF82DB80B5B2E9CB8FB39C25B0FDC76560EE0A101830D796C60147A4DC27033AE9FA1D0304A04A717752FE967042E70BE022C897F616F30EEC3109115ACAD45A3374F9FACF7D885D26457D13F58615B28740EB8F0BC409CC2DA11CD4CEB751BFFE0165E98EA948BF5F7F18B38020BEEFBA3A014114261D88F13E9158C8BE853C53B72D81BF5C499D5DC84F7F9E7407C010F0105A478B01E82114E998E9FED5B3BC57DDB7F29BC8F218BDD2BC33BDD8929B04A3D17",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7D7FD5DFB009FFC32974378D445C208D2C1BB710731D91B994C7FF37B0BAC307041AA8F3B7ADBDE0CC01CA2C900FBF6F3B7C37077B18365BD5433BDA589A30C07C905B5A03DDFFF30124990F608BDF8BEE8BCB030FC945F5C99E772D43AEDD05680BE2CF606002B8EB76B8D0A27F510C0EA7892F7D06DC05780E608311C857D22053F262B300AF70CE0BEC232F8C9D8D8C72201CC63B6CE4A142422E88712C048B630C19D3E402DCD0EC785A8C40A144F94C512DDC1AE5942A1A3C1245800C834F044759E0B41DA64C81089F22E2C46C1297AC2C20090A9142C51EF774FF8BC9232C7F44C7FF4B146B696F5FFF5B421A162B1F23E2BD20D42F15A55C482DC053",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6C0FBED35181C2F1001729B468327D79821A2B70D6890A66C6932105F0AC3DDBB8C60E6C46B8F7DE954576C025C0629200AD4831EC00941629212F0A16040FF1FA3803C8046084443CC7076C34A1C8E77C0E055D04874ADAA5EB290F1C8C68B089390C1BF92517841C7D3240D145D86ADF46523CA06B621C5D19DCDA0CD1BC050E9F2FFAEC5503F88C8B2F5C068E2D6207F0B177A61053001368268D80FCB4DC07F0386F81FD64080F0207F001660C6129A8E3005BD70560C87B00501EC7DC121B0E40D1BD88377200CDB43043912A2272804B90421DC0ED00433D259843404C1CC0123D3C963A806FF340D9E02937FE46073021A128D81DA0A103B841261C19",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D22E7100139022C0C2A10016DB4902AD0F2A146DFA0C6CD25063639D36811BAF610FCB13BC661003ED7433098C4A0A579870103714B2A844C266833F50353FDAB7315BE31CDB18EABFBF00391248F3744B8BFDF202A76059751E87E0AB1002081624A17642A2609C0A28E52BBC0FE82661F0FA0C7A0D0C71239C12BC77C10CB0367920ACA33E1236E8309D208BC08FBC1712D720362B0CF91499E453001C88A0C120F1C830963F2634FC4C823C5AAAD2181C8C89547C6480C1D89F742481EC3480A9D0005C3EC410317803B0EEE0881088556FB015E6ADDC0BB47932039197501135C0CC6CF676BEA3C808CC1FD40BD015E17AD3A24832D232F6204B0A66FCBD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B1081EE488B42470644EFE7D290C1EC088A424F80457030EDA3C178CF45C01D3F76CFC31E864FA01B72F88225E6669ABBC6B0C8814CA0805FFED0C4D8D148203C08B328AE4B81571B5BA3E2D233E7AD8D566AA18926205566A8007DB7B7DDE3B108525645A66E7205CF4A09000F703C88B9F140603901D87498C61DC6A2EE8C4B0FEE8790847C4D9306C4E4E18978ADCC7177690773A2158753219AADB56016CA57B998B06966660BF62DE03E2AB24A7A00F4DFC73108C180F111441884DECEB367F54E381C1817353891D443898B4E52AF887AA8A9E8D687085015A01BB1C8DA81C8569607C41D4344D21860610141860161E9BADD6B91516D3C5A34DD7C0C4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("76AB3149430A6BEA168A0437E3FD84CA136130389447721841410A4608BCD042BD2FE980382D3D16EF607573AC6A7F05B9A31CEF1D6976BC76964C8A45307574107569A07A1881791ECE5A211813D35A59B85A202CBF63EC1A0A21D5D5E3E01263E84886FD87BCEB1833C08A56A9B0B6E9FC179F11426257F4AECC7349E3A461643BE6367EF8002B9AC0F849AEA5A700F9BC807D0072B0C828B00AEDE2134729DD0E8BD04097CCA36FB37937C820AAA11034572CB3430E4E451107184030B2C070F400190D77317CC9022CEB2F875C77C542CC9603C042615DBD9C58C3BC002A83FB4C087C373A55DBA1273D80867F21EF7409ADC08EB7E64010B7154DFE931A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9C66124D00895C61140DA41E8087AA14031319F56376188304C54F87977F90DA4A7EC350B5AB2F45C545831C400A5380591708253720114D1085A3E499ABD25F516210E0F5161C55E20746C80CFD54214733C93BD758C0C3800A4623FD5442040AA25278E9FCC01BBF126EA52EB82738C007F9F88F84DD68B2018A00060674EC2F4E374F45C022BC42EB289FCDD19D2ABF0FBEDF232D086B54C08900C4EA19E131D16B5C93815516582CBD63732AFEEB0C901F8784E1375477C0BAC13CCFFA621F71FB390F8796065E1485C4F9FFE2FF025334C01E69BA91FC30BB490C35CFD9009158037A30C7BD2B3C46896A79A003F2C74801FD9CBF59F1226F752C9B49CC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("66932B085E35B025904ABC2F38FBBCB00151D0015810DAEB886E5F2941D5B14899E4170B119D2238FCBC6FFCFC6FD8A15B3AFD2C047F6C2DB0157EB121090F8E6C2BC1A5145C3209FCB1083BD4AA3F9F28F08792788831600E4D7B89758CC0EE5A16679E502B8602C7252FFC538BCED336EA8425CC3CF55A72B01A5F0C5C04A79D43E0F73E2C074ADA327380FFE517D02AA88C2C155EFCD39E108A6C8DC994C303602A52591F00F4171D2359DEFA3C3BFBAE8E50802CBF7F6CAE240740FB7C3CBC6A0BC9400E398D8A07FB8D8913233C6E310E35751DA5B0DFF1010102DC9F3C63751C4157214632039F0E9BB2972C7CB70153CD548C646097007F076C9A3007",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("731C3F0243B40A25424DFC55A198602DFE5BFFDA03AE613F73DB030E6449CDE5590966E1026A63C0F05BDF3E6D75252D268613C5025F3C617F0140A686D4517F000D05A98D97FF00341C20A73FFB9C01FF578968C9045FE66B1A583F4160097E051648C8C1A823DF1C1F2C21057EA89FA9DC15B6013ED2A8B6827708DDCF14EB06B2BF26F30FB80BDEC9DC05C022950B8008EE06103938A03F0FD0C1EA14DB4905576A05065CCA3028CDFA9B1B9D2C1EF80FA4D7298F2013809401D28B141C416F357D0F0F0B5FA3808EA02030ADC281181C217E0672B06095CDD035E006353F5EF54C8117C852EB39DFAC63B1968A53BF24699EA11FE044547441FC0D7F193B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FE3100FA37E8185740B533ED0FBE06467C638DDDBEF3F8B890BC1215068A169F61163403CCBA288C54D90AD974C1BF6CFE57EC3E01A3E83C8DB50D4D29A21D49173F159B62457F1E14586B3F15D70B35BE635A0C7FBF60CE81CD546D2FBF608777246CF48BDE0FF060EF212DD62BBA034C00F6155585FFC47BC71A32C60FB6C005D2910645433B700E91FEC274D32BC2753C63FC006ADA86B9AA65A9D887CC09E02DF269F9BE8306EBBF4088E32A9607F91F5B00C8B45BC176BF2054C84032040020B92A396002000C785572E00CE803412D488E764CBFC06187935A2D1EC1138463748FD79F8BEA189619C5B76AE57D9F2871FD3C115C3D401F197C3D9E1D5A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A12B718C2181C6F4C2FFCC00DD8BD6B8D34D62108BCAC18EF845AC06C1FE1F2BD68AA5DAA66F33010DB80CEB15FFBF5E2855302F8B7F0A543B3CB6A8EB127E7FA3485586D3FF9F2BAA2192A02F99DA28CCC66AA3D8B1DF671F2219800FC70580AAE82E4A8E65B39F6000F98AE44840402E47928B922B2001BAB0223900800464A2E4D19FE00B05482E4A8EC00647C682E4A01325DD887C1DE960F54C7F823A8A603F4FA69614E921F08EAC2ACB087CFE33D24A15F5162AF1898CB6D86774D3420A84FD27B614C1E4C41FF64C1F0E809C1C58C000F7230FAB423F23000948AE92FEE02457C9912340FE8000C8C8042280193980E4C0F722C0548538000BBFB091",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3CC8010101ECBF0403C90000407F20473B11021CBF202447F24100F9EC00818B11432F31A3E1DC44897479C43071E05CCD947F0AD18907419FFF7C1F8EE444B0BFFBDCA039928B40BC8072242702FF3C60AD2834443F199A0C2B87F5D95CEDEC05726C557FFF40C81BD55829FF9CF20024532001002C3201C914004CAD8AE214E009FF009229E4FF6CC03A740A7900F95CA0095F84C0900B1B935118C1C7BECB4C11234015821349C78A640FAA00B87CB52040724033A702848315C840D9380590812DBBAF030115210A5FBF02DA14327C60FFE40B21648C1F09D848BE0200FA9CBF488EE422CC0044BB40863FFCED0A7140803F081F7270020B21004225821B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EAD19F0316252FC008F3E4C0215CA33EBCFC152E460D7F08BF67871C045C84BFBA80D1B5803A32877C3819D82848073DFF5F8C2526646059AAA429A60ED224AE0A5489DB301D8AC13F3B3C740CBAA260B156C7BB78C121C356B2BE88DCDF4089E9D630398B86F9019143844C9B0B0C00C9B5355F9F20032403C93C006CAE420E24E0079C19201948C0FC2AB06420A0F095878D88CD26A7409785D22EA1281D33284E96C7C4E2C6744801E107A0303E53F07E2E7B2301A5F060FF2F2CD82184B5996C0C2C2EE40A965F8085221DC060070C2EF3956BE184610F3BB418CA10202C3802531F9B6985C6C17FFF2748B0BD81FBE02E04A943845CB1119F3F60C95BA8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("854B5F0A6C5772905C408C20C9951C24AC0020792507CCE00658F22C64ECC026E4557CA8C61155A006DA3CD7C56167A983DC15C86D856B20189346BEC87B63850F2AD01D8750D8A2E62710637316DD05F8149FC881F02D2B00B77F9CCBB365CF1C08225F585C9003F92F588BD8C1EB148BD3273E10FEE5D9E80FA4DD0B81CD5CD88BC5203C105EDB7D074F03901A11E0413FFDFCBF2E9C09393F06B5B320385229CB96F820077653E00AE3F082880E00A293A63970686C68ACC3042662C17F7C85B2CC543234149013C1E2DF9FFE1C0AB928A66089D5E2BC177210B7100E2A18CDC593F788DB0D1C2073115D40EB644AA6E20F8BF67F485029409AE6787C7843",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2153C8FE3C4030C6413E9FB728B738B7180DC5F66EC70088AF8C0C8C1B91CD54C1442B970B070A192A4EFE7F5C99422E6420C5581CCFC509770F43600D6D52B0302F1D682BAC980E286E729C1A312E87049E42F5D3EE5510C7750AF1F7DEEB0C1F33F6D574028E4305AC74939C79448815CCEE0B7F000617818A0149573F701652E321C20B9B0E7060A2E95CDFE0053CE0D6C1BF292B00BCC9518535FD5F05C9054C5A8BEC4320A720DFA0056A613873193A3DEB056CAC2075E95F4B6D2153C815DF800258C815F200FE7C6007F189520D8C83C80297C390D8529BBE7F2447215740DD13D501E404BC2005BFD5A4C81C2578E6A89221E4E4ACA82A683468860C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("081EDED4BBADFFD083FEE07D15BEE0DAC640EB194A8F0E94BFFE1FEF4009868F62E1711F9B8C03F68BC3AE051711520BC60D9228825485FFDFE4E4E46480B8BCB87C811C826708C1E60834128210E1D635E4110CA20DDFE004E4E4E42288C8CC841C82E4C88707147204720EC07272723290D8DCD839420E41A706140E223C02A0049F95E42201490E00024DAECB8A311C46E0E10895C25B9735BE9CFF6280900C02D3A88009628F6C9B80BC9A26FCFF8004890772EC74172D607512C756A5B9DB0A4D5140C170322119FBC0E4805D301F205FF61238922B00B4C7CA21B6795FE0035B2AB171511849A074965CA14BCF9558C9FE3B3696CC7DC0ED05AF210320",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5F20F54CD80DC8811CA029800772C98331DE0460931E043A204003A35301037221D7352038001DA87A20753107D91D3122422CC4511827E4501FE002B0011372C476AB5FC0294604544A3C014708066934831E1106D8C0F1EB5DBFA0DF0C4D31AAF048381F259453E822906D4BEC68A412C254E3C290F85BB1D88D7C1001DC1909F4A2BFBD0109DC0E797858539CF00DEC42E860046436FB2760107B0834BE605FEA28F60D0902C775EEC6F08D7F157F0CA51EF4B8900CC58DEC1EFD3B8D6175452903C53BD07E1618868FAF28E4361CA8064F8DBB859ABC921F834F7FD0A8241F00004DE916C963E3DDD87F4000B45532FB4BEBD853809EE0174A4E812001E6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("18B5039001C04B39015600C29FF6FF7C5A9F39F22D2C78F77D4A1E58F8397290237E3A38F97F2A16905783BF200208985600D38CE0F86D5594E2D9C0148CBD60142643D98976B0B44EA3678DC5B980C1805177013B9267E3260801FE63D802C950004BAEB4AE2DCE8150178036D06B4068951A81D3FC2C77B1000CD0ED1F2210A6511F8893D03ACC08DC1E3B5AA3285FAF9A0FFD5B47C33F9C34DC1548B86402DB50C272065514DD549351960BF1445C1A29254E698BCA0B1B08FC47F3D00FA4DA0B81CAF3BEF81F92C283C0F883F8280F877E300485A0E2C1E8252BFFE0A10D34B83973484E7EFA19112B400EC801E02E803E39B003722256C05D81007D9A1C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C80144ACBBAE8180418E03FDA8A0639013348683938431BF9E6D670077F4FA037F5057921FA70B1C029E24F4679058358076FF0F1F3628390088BC8C3F272053B0937C44BBEB48938048587225201C109E1A649E9F1D80C34A72A628F80370E132FFBECA29208BFD5AC2101455301A7AA69D937F280E20E1A0AEE89DA5410D906CF72C1FBE7B0AF62278BF07BD405E071E887DB701BE00F66D0F8490EA22F68358E0D57460BEC05F4F86227830BEA0958040F621232F626D20F6801321274360C0058B181ECCBDA0DBF71317B107B4E0C940F769207986429AF78060C022E4190AA0E0524344612AA5464995611278A432EFDA309D690A5F05F8B30219900905",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EC5CF282E440C401ED2FE2788120F82300F8305C0721268D1E584A20470BEBC1A7B4D6F67697506F66A78BC28D958F81163FC65885342447192EA1B15F3C7F381D252468804BB5C9BB709956844B9AF118FF10CFC6D025ADE7E374051807AEA7F811BBE40B29B5598D40F94C7D5007967920FBDA0C86D59AA6061014189917D889D238EEBF8CFE31C9212FE4E98D58EAAF2EE80CB2018EACA057B17130478EA3698384451FFF78374B6E205ACC8BF00CFC581D025EA11DF8FF6A57A3FB2B8D6C051083FD507E088D503C868BFB05FA0FD6182360BB66091921FBE58F12141FEB2DF7D852014E4C459D6345805D10C3D0146ABA8062146F1C09110871E1DFDA93",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("54D46150E60AD8B385BC7607E7D01F40E86C480EC9A000EAEB5F43F2425E80ECC0EDEFC5863624F0DFF11F20202FE440F320F4B432EA408E7F32F0146BBF35108BDAF264203AA5F0516C00C30119DA0BB8C7D9C80BB6EF0B1D2C7D8BD580937CB200CA62433224CBCD99EDC006F280CE91E0CF51603A840CD1C0D25D07932BEA34AA2C94C0C121F692D300D58980D66D43F26243D71FA0D8D9E0107B2160DBB160DC0F8BEA88BFDDCBEA8083051B90DFE1711590211992E1E3B87703E42DA3E5110C220A91A7E017103FF8133A0D1EB7D8741F023C0220403CA18454C07E28DC48A30A372DFF05801264285A685705A3E80A9D8D285AAAF7EBDD7035CDD41E3F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E83E30C907092919970C20D90B36E840E61376DD05F0BA0AF706EA517BBBC87883BC7C46685B48F24378E64C17E4087E2575E10F6C85E78D9D99F85C8AAFCE60D64CC169EE101418CB45C81B01ADDB7C649009E400BB8008B64109190C5FDF1436DA2A1F7069AA6F9CA93DEA90FF11AA0B0DB2DAF3F26243F2ACBBBC1F60BDA218921700BEC0FFF5A416F280C0021CA05AC5FFA1A0C384BCD880C5EB60C6380D1AA2A790DF81EC105810800A8582E8A27EF88D95C056F860C03CE8283C152CD0E675CBA448501F3033DBF65AB87D0D85EC508A0403554F431B2664420E41332558917E42174381FBF8ACB22B82C2A63901FD7D04835460E1E50F33EE93F738A4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5CD98DDC1E2F0915CA0E7D2356D0FF92C04AB67E02584F2BDF8D44333DD2D1DE013DAA7CA3F759F0059402CCC134F7EC470C02EA3046DC1C74A54D2E08093AE5BAA905B6D4759598997E8958D1D956438DEBB79F5061A95C1F41D385F78A0A557D0A610C4337F543257C03FCBD6054DFF0B0093A205F0D9CB22F1B5854A391BD809E6408D803FE9FA09001190005C04006640006E0951C90010200FDC9B3875C03BB209A850724D7617C138BE863C59E009AE54347D4DB951C4418F28A015F8BF1BF0670FEAE9E9A608BD30FB730C065F7D5C2951B170C1ED8BEA0F103C35B6BFEF5EFB7010AD84A044985C9890B7C5B8B0ABBDFF7F783A2D9891AFB018B5A04",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0BC84BEF895A2D784E7E372B8B02D81038C1E261E001C4D9D9A977B0205E8474078D84533E10C330C22E10D7DA2BE07EA06ED0EBCF26A2056BC6762610EBA15F7F1664411E9B20177B21400EEE23E17FC2080481E0C1E108847F469E2014BF27D88B4B4BBF2FB25E448B034B890B8833430448C07E5FB889077F152FC1FA08352150C0B2F32484340938CFDE198E032D0FB6C25AD7B71D80042FD6EBB0BF0DAFE5D1FA100CCA7AD223CBDECF8BC5B4C1FB2BC5211DB8D012AB805BAC9F18A97D7028BE280D59C07E49A420E129980A3F42524236C00405D4736CBF55F880DF8D1FFCF343908A3E893A8838F0CEECEE49DF2822917FC4C718AC91018FE1C343AC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B38A9FADC0406D16CEEBD490FFFEA0118417BF8D5C08FF056B9C0B27457E1F210720174B4BCD470406E64C241441E11F1D4227A8E594C2F6C2018D82DB405D4BBE62743C2F247FF98E9F41428B11B9DA8919028BD64E8845EE4CFD0763590C45F6C310BBBA0810FF35F581C0D99FC385C375C48D2585D8FA9A009E000B01818F6383DF28EBBE9F82406820A71E3FDEF77A174C49BD5502074D79E218DF89DA4787100BD11604994505187D0649C15AFB0BD0C1E7182A07240844BDC1E0D6F0F91E090BF8F72B17BEDB515868DA23F0072A010BE0167084F18B10483E583FA6EF18DD05A891EB68F2DB0E14074A75081F20FE4630C2ABF45881C2D68D86E2BFD1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1F00AC928F6205A0CCEFCF685EDD428F1881C74A81C6C22C910C006010A801B9B9C053B0DC26F0F060071AA980920C65246068924C0AC1898B63B513D03F0802375E5AC9667F34E18C25D2CEDF5B611430149300988051DBD235F6802BF54CBD3917F46EEB1315742C36ACDC2560240EC291F1D8AA60E407F6402BDC1DC0124DAFEC88C128CF818F300A782011D9C02A7DC8E8D68BCD108BC7CE46F251C1A008C1DD1D063146704D5FC0D54C1697942ADACCB03F319B6BF875306768364F70F1148C53D0320BD8D9C9B68D3CF331700B9088495E2138139F05D8E9458D770B7B17C3D829E0183F627290776977447EB17C66E824791739F0BEDA8804C6EF4B87",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("32A1A810C07535FBD263310E134D73C5114E105EAE8C93BAD0D80E7E0A2DB3B46A2D6070640E5C3F602FF898D78BCB1AA4ECB8882B3BDD7D6BCCEC1D1D2020D020DC0D00D4441B48C2E1E0DEF949F830043EE4A2CD24F98BCA39160669D8FAF23206C25F636102265505BE64A22FEB9D3D4014EA0823B0408BC12AA246FE64856B7E048560144D804A87D92933172241DD744021315219CC28185407D4BA280A8CB3FCB900A3FC9853E792ABDAB97C70088275139B7360D5C499784791AF268273A084151013988A938B7741A0C08CDD6A108A50494112483013E6EB70F50043A62A3120BB35308D8521907FE2BFD65A17A9B8C5B3A2918BD3767F772D8DEA0B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("ED0BB88988011AEC578EB2F2119B051BC1EA051D6583FBE86BD2CBFE2BFA5105295BFF93FA1EC32BC2B76383FD6473330E1D63954A3103D2EB6547601D60133B10E42D0CC0B84BB165B1F21C72C080445505B95D6CBB7C55404E052EA4B210F6BF4885918BBF92E77E4BDD4308471868470315282049FC60323BEF55680FAFC8DB15080F545E755B7DDC4B08CD105CDC4CE0F2DD5B18E0083FE2059D485BC37D13616777362828132B3630ECB1340C195FC204786308DF008B43248B5360130C1850584368C2FFDF052966442F5FF801757B8B5B14F6C3024B02D7F17417A1AC36A811C1706BEF8E158E1CBA400C152D1E717F2620DA0C61017412A807BBF706",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E8E77AEB17B8690C10221467D81EA30A1CE5BB00151BC03B20891DA8EBBB3B42DD162EED052E00321253A34EA0011CAB32F0C4DE2BFF3E0370C820A30C3FF7050492032D92F027803C85A0EF084E456E1FFF3210C2EE4AAA0CEBD95901011CE0701C80719D1F4A088F3A450CD5D88BBC7C8066407921DBE806308768109801A4DEE5DCFF00331E2001361C8A837C7DED3CC8C33E1F75221302751804750E9D4E1282B7F4612766867F807774103348261992A002C09221996404E0086D080B72001F1F79BC83C0811EE704B21B8B83A80F39F610E0366520D983A3CF170E166D15742E19D1C92BB2C814523013D0383590D706B06C0006107C8029E024DCB3DF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1AF9BCF2DEC199FC15D8D979306F7939403C8DE0E7F86C91779E17E8A540B765636313ED1FD3CDBDEFD7CCE777F09BF0A0830E9E7345C3F83E3DE1055D733A9B16820816023934F3C6F4B320209B8DE260EB9FD84D422788872D1509238038C42719F60F2B2DE06D4481FD824CC348A09F21824364BE6F489EFF8BCD45227F10DFF12705F290470018162016A3C84B72BA9B28000879C98E73FE30163816F7DD0EBB405EEF35A37344B790918E914876F25058C708B008FFFD5B64D9320C44D1480D6AE40DEE06EF45803088A0B96440DE2C14C0183812C301E021F90B72C50EE2223D2D04E4277E207B2022C84022ED38C9DB876022207D3739798FE755A011",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("646DC0803976920BE0456CEF2307B3142D03261F40B7910B262E851C011FE340DB7B27CBE64C1860160C0D03F184491EC8E64C60232C9E99773FB835058E0F237EA003BED39E0D6C4EA00416E0A100244770DA46A01A8B93104924F382355BBF3988004D046F832E676024FB8054E2DD9A1C53ECFF999A5506B22B7C59D29FC06B1E3C0F067A346504034743048FEC0E4E48E816A0E40040256442DE2141350460B069E39A266923144F7A0B69382025315D634571EB8F2C23920199E4872514268C7148C1C8B07879D1EC405E23264D401C4F633F0CCE46FCD1307F02AB1E33E093A010D942E2B9E800E723C72B810803FD22021C90CFC8274D03274D202725",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5370511927831C309907E4A027D985B8A18B92BC6D6732BCB14B8E619227641928794B06692C6820F60872C9C52E60330C804EC8251718A095C43B705891B0C0269EE3E01090E7CC3C27C01D2029C898E444F140291F6029CCC8C4704507291FD04C72835DA03A2E10C029D4AFE2B490AB8328A3002A3753DB0412AF3720D94004723A0E14D3DC00C1602A4780EF01746A15EC005F2B086C21272B1C872C8A8664F02BD3C6A8C0261B4044D3140E791301802A7407CEFB5F39D9ECD9C9D9F117905E0E39E4582823AC30C85840934338678E9A0947106059288972111E1381701607CA4725500B06186C4F2A1A6D862620B0CA5D413EF9260C12AEF2B8E0269A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B860794306AA72EB00300DCD1EC801E024BAA01C12ADB0931FF99BB840AF4C31B880234D90015023706A9FD7B7920939F40314006DFC22021F2081EC84F0115F68B8095C8BABF28580C0E8D61FE93D3B8EF8347071420AE54DA86853603BC98371FD750D27A045D062CDFFDCC4704CE704130C39DB2DECF10208FC5B9532587D0B75090BEE6D71F67CD5063C8BF445FA22043803D1D9436C54D81580165693F83B73789E744ADDD01D88FB4BC4CB251D3BD3F67E3528FF4F26ECEB0360CACAC1E102D80C90D91C5383C8A3905FA87C4FE4B57FBF54D90408D84B102F08423BD67CBE14B79041966639702D7098BDF2BBE61E33C01828B6148B54AD821CB22CFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7D82403BC67CEE18A0683C53B29C68A868187C8903D23C8B43D2468B851646088297F71F4C600084934C6690D804E51D98A39163B0A24425C7506D0F0EA488D98B5B9EF42EA3C2A6E024D005F0027C2384B526B05C8D85403EBC7D4864968D401E440F8EC2DB669F05F68D541F4C06488DD6EA6C31568D61682E263461413C724C34DC14C2AB3AB820BC673CE0570D4007709B78E55036B9D0965016947C4E4C8D832312F628C4E28DAC26F17A7682304B44DA8EC376A4B5120DDC7E9BFA08DC0E43BE7C482BF03CCCF0BE9B89189535FA4B0B169C753B782B3CBAB80385F4ED23F8F4898501018DCC123BC20F8CD9A8C75B251351589F09CD1CFC55C97502E7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8B54444DC03126F1BCFC215CDA592CDF37ECFF832CDF058BE83DCDBDC22B932D01B50ED404CB51F67B962F94C98B2A2BF989479415F669625403D1890EC114370881F296608BF2CBFFB73DD8306680506F1384408D0C888B0C91AD5DDCA3896F8BB5A8BADECA507FD909C2FE413BC87CC58B80543EFE13B0025384434C0BB9A82A9F543005609A444C40381504732516A3D07BBEBA9DAB9AF1A658744B76DD05C037AA6A819BA3BFCB3BE890C87033B770D079ABAA21A37DD82D59460E6868E000C84450A3E8C904D5AA958DC4D6841C15DB5430F8C3DF7DF82BFAAD000F44F93C3A5D70A482FB081850542F2D431491C8940CC85454589C0C1032583C5431A8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("701043F63F92A9FE16F6448BB38D861A2858620F443A64348338E2C70A4FADFCD68580947C66922641184D042A278504848638E04CA35B91B81AA59BF4971C7D01E37E4754448D003FF87BF18FCC685F1C8A418BBEA486FF01E4CBE56B773C7E1A2C1260518FFC00178BE680F13F5C88FC3BCF7CC1068CE49AB88268CA6C53C56CC0E097708BC814B25802101250283E149F8829A0E03EB74458016C17CB1231CE89104A3B71378C096318F238FE5F6D87CD5B4E97188B985E54850C00ED02AE221CDE13618087C23984868F40642B1A7FBE5C1208B686262D4A029FF90AA9AC24701B741242BB53262F2FC03C4C93C49B1A55483CF8BB129D8D075222649978",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("433A8CC7735082A6DA85119EDD5637AA37CB2BDA4A73718AC7DB6DD9BD28E4968B23B5E281FAE7BADFA48A9FB807471BBD43D9D9688920BD2DC03C7961DA2C3A2CEAAD01A501018200835544CB04A1FD1CBF5C4C201630590C1AC2C58AFA8B9EF8413B09BFC5DFF3439C4C1E594935DC2B42F3C08B8C5F0ED163C3B43D048E0438164C9A10C5290B0DE358103D11837CE330860B6EC5BB5E100E7B20332BC74BDC3BF8CA2F530A9EDB0F2D56F80D8B20BFE303D303CB384F77AB4B226BED82DC004761FB5BF35379DB1D2334F0F6CD6584F770BC84616F74B671557C8B3004F9E1B1007FF82F5ED9BC5B59918D1C028BF12BF32D823CB69AA9157C2A6BAF0981",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A3957C5C92448422FB8EA0815C549524E0FFE1340C0907BB06E8B01C83452D8D2BD0D4B2ED857B285AA5991544B811A6E39E5CC75D58A36D95F975A430A71E3B83C011123004B2A1BDC72354CC7BC1BDC000DD180C5B309ABC0BF243346E1B303A11ABCEA6DD40090204A9D80CFF6CB1515F7343525D8BAB785FF8AF3048F7D9B8398EE3388BF9312B4601EDEFCF8D3C0534BD840336D65A92C251C0D1FA595042B8E2CFF2B2ED7426A9C58A4B0C75E86C190230362A61229C4F019E1606A7901A8D511DC3D3C4048F107811DB2466C3343485031B1C5B31F1AF0BC1E0068B8044CA012991817D6621484104234C0119199008500C1919909154105814199091",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("015C1860909101191C64209101191968246C0119199028702CCF65E49174308B92E292785103C3398134E0065F9FCB48F39200930092D285700F919F007C7F024C9016969165F63AA41108B80CCC6419594610E014F4990DCE65180880CE1120969165643024442858DCC159462C6C748010B098341063F69F11BCA0637ED03D7774356F7DDEC1FD742B8B8A8476660817884804433E6FE4118C08B390500C140D21709E9D100652884468220CB24A333E4DFC053F4033C9BAE8241A93F6CCCEB3042912AF442904148CE1EF4D9A0890B9C19BC21475CDC11A771264660AEF7F32C920574F473D6683BCE400820482081108616419590C0C1010B1B064F35714",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8250146785335238A400AFBE20C9AA1B71EB8DF6F8B922F4F3A560F2EBFB1DECDB445DDD1BCBA4008CFF0B8C47F7C283F9FF746F81F95837DF137A977F60D819923B53B800379F379F7DD42B46B8C05DF22639B822379F379F563E1C2CB8803E2C151FB8E0359F379F2E9E1112B8112B820F055DF6FE0C443BD07D02E5C3049FEA6A94213ED6BCAE20C409C61F1FFBB9841C081AB04A3FC618EC938E6A269B83C78BB47F3FD02896B90093E80A53288913B7F4FB84BDCE4B500520C743350440F33B6B2C130844AC90C69F67D005FF93400BACB39C23232323989488A4370E3E23A0AB8C128320E6F7D60D0EBF0CBF89BBD03488DC7C7B230FDA80E00A0D12BB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F8680564C1FC79A6CFB4B804400B00A848F300E7F95AD344BD883F21BC7C4C0EBE91775A43403C0A7B1053D80213CC46CC0BDC0BE00ED4CADE5C1EECE19201CC9A77186CC006626C1FD010F6796F81507340053CFD54B0500BF3676464403C488B0002000CB3CF480408B384C3B0072D5AF9C0046C08A64147774274E4170C40400A330CB1A25548B7FF40D104079E3A2C9BB78914832A9BFA298855C607734B4B111AA8C3DC0F153508E21221477C4B0844C87F1F26DC1B87C108C7B4005184E0E746E50D7C8DBD58C28E91CFFC0B50001D988060C96F8F70F6854C3A009C7509E55D5F0C02FC051F0235FCEBED1FA9E440257FD014589863193E6C760FB982",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("18783183ABC419D99E409E7301168384141119191988188CF04F4A6036E2548C33D28A93B3FF0F817C170103C083E2FD0BD0881FEBA4DD37088524FD880E6C00921790E71D7C69FE794E0E99FE083E9CBC21EF01C1E0026FFB3AAC644ADE8403ABF7F38E861110BAC41A1548DB2007D409893BE4A51BE574DC936F2C53C824AF08002C304226792510013039E42B9944880E0244DCA5F708450439A4C90E33F07D6406C7452C0CEB03DA4861298114AF3ECDC7C8E00BEC0283A802F6CC7B5547FA6934260FE48D1C43880D2138752201F02F789B44001BD94548D81D2C18B06A34E4DB754A48666630411B81887C0E9E4415302D95F0E5B9D09E0F863F8D8474",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0906C2FCDB4508DC0D38F5C40922124F8BF16996F00DF9F88BCA77F2403C1BC5C7F5F60A4E095D70D51E7C0C89077F84E0E1034B048BB3E0DDF66E0EB2841F01400FAFC662DB062A5885D6DEF1591B38823884B979A80EC39E20C0C645795804C0925C1FFCFDE8B883691838B62085501BEC1401A11D9C5AAF9A804DC5EB062D1452E114F79AC10A87264785A0092C98E5FAC0EFF96CDD9CC0CF40343B88947D21C863DE80DDD88D32D8221AFF29188B4D441EBCDD1ED8CAC26F33CBCA143FBCC51C188DF2459B8C3ADB01C17E8705D859665EF9581F04184DC3F0EBE4654F300B0BD3406935E057C8218F8ED2D0C0400E792494D1B02C8FE41DEB762FA09AD0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5E599647B29040CF4680912CCB231ACD2E70FA4896E56AC8166088C34077888461CF190574051C59479CA30AC758FFA42A4A7025CF52AFE958EC820C130D08D977885E30C2FCE6213D1450A40A63B35BED0C4A5DD77664C47781D20AD1FA2DBB9D4E6DDB3F962B8B828B5668E5C155D3364EC16944A10019E47D7D4D61D95D4876285E9362CF991EDB8590BB0819C25982014642C8497AF0CC01DE4540053CA9482940344736963219A2203C691A1CD029206E252FC935E0021BBC03FA800C8B84507A0D245804E844C1B8203D6C7FF54F03FD4E8D14F183A07C6279200BCD5D683240E4952801C023FE2D7CAA08B1DEF9D99B3C0845C20A9DBA0AC65F2514CC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("05C81F8D7C2448BEDCB54E633CDFB90AD21ED680E1E2AED648EB54F02A1F90D801E410EB25530237C1F0C0186D2CF43BF2F1C245D4CBA47E664B23EFCD1B6D20D993F87C3AAC7C0C337C8B1E734E03D0784B2879D9468DFC7E12DB8B2730F7201C24F2FA259B8C69BA2E0C0D2EBB8E9191692FA6E738F401699693A83BA02B91E647C44019051548194D93C921EEAF266BD905582525F08291918320A050F007F0C605B615D8B4B018D0F0F15C748D6572C84718A94B7DFF3E8653483D495F3830E09077F7E436FDED699C8FDD4D84A5940821CD1EE4551385C9FB0D7C33C97F0CBC81FF7FFCB8ABAAAA2AD9520F9CC18D0C498D344A03B39F1A6A75D4CED945",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1DF2F793FEFA8BFEC1E7060DB7A0886B8B7479731939196918A478A87C19391939AC80B08419391939B488B88C19391939BC90C09419391939C498C89C19391939CCA0D0A419391939D4A8D8AC19391939DCB0E0B419391939E4B8E8BC19391939ECC0F0C466AB1939F4C889AF30D6E6FB94B7F82693CC2BD18DBAE36EA3C8F7EA571080207A01C6DABAA78DC1F91F3D18CF9657F7962BDD04110C119203C16FE41979151C52149111189107293E0C516323107A93779391FCD01318D49391939104D808DC939193910CE010E49391939114E818EC939193911CF020F49C91939124F828FCF96E7E7F83B4B72C1CB3007ABC8F3018BB040B3DB6B02BFEE4FF1F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("119C8279781CD7353CFC0E3E1808FEC7EFC603CEF33899F7C84796898B305603F2273416C479E6212CAF28CC625C44279E1FF7814F8C7C89152474582427077B55EB1D3D0D1555DB0FF18B5554610983C0021F718B0530EFC5BC69A0EDD56E25D01AB731B28DEDE9A62B60C18BC14B052C2BC8E16B5787CA4C9123701919794B710B282C301919191934383C401919191944484C501919191954585C6081F2191964689B6CCC1E8173FBCCA7C715042F160007F6F1F9830888CBEE083DEB370F008734E2196BC74208E932838983BC0C7B88EB094636490FD869846C01EB3216E1603803D0C0F43A00BE5E04DF63DCB1283D7B350C70AD2803A7077E171CB5F0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("821669691EB9ACC3011785E44F604DE3806561D348500138953B07C1545DF5E4E3016317C469198B8D680A1B3430079FBC4A0431B494C8DC90AD8B17632C17301F2BEF556C252C26588593F62084E0AB2E2B276FED19010A43A3D81127B69E42C3C70003EFD6BE9787EC79AD280219E302D400C8045720838D95C8C5E7D8101BBC5004ABB02B3805370D32F6401983113C900EEB0813992D422107BFC0C3B26E72F1CF067EF5060CB9DAEBA8F08413EB7BEF00C25A62099D4C07730847D2AB15FCECC80F0FA7D9C4FB25FD3C519079866D2133364A74A5668D1DFCBC852815B60BC0F2BAE00EA11C4DA03398DC3795947533909161C2B1C5144439790BE4DC79",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("983974236420E0ACEE7FDD4C0671B50AB106C1E6068BBD167023E0150281406FC9EC77054DE18D048B9A8BB48E30333E2FF925B598848F3BC26164F6BBDBD0A7896EA68BB3DC43B118F975E67E365CFC000EF81BCEE3AD000179EFBCD985E0932B9585E63570ED00C59B2C7C0B244005751C970BFB547DD95A04B908D9057860CDC03B851217D8440CD832053967E8CFC6D867ECCCC484EB16F374041687EB983DCB4D01112C7C61EF564B1B2C261C37000619904C003C3097F1A7BF04CCD81D7C19971287E31623B33945FE9C4661EC13310D172A1AE4C9B029D302FE7C8CB05FD198F911FC7CEB2751C1404EC901E0FE1B47106479027C8861CD489661EFCC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8C40345C45BC90BC85F17C0000C8419CA93B9864009A82521050897560F2C3CC099D0579291157A03420916692A55C40DCDC02DEDD9291F0A820005DEC2502704912CB6298571EA314F30B106D8817213A358FB38D0404C27EE3435F2BC10DE1D51BBF25054019016F9199F7BEC3C8EC33937D9395781730F69D1D0C70561B082334F6DC82BF8F17D8A50C2EC9D815B04315331F6F279F3C7314DDD9D5B423285E90AF93344DBCE5435EA9C68CC039383DC34DB6D97E76063DEB025D8C1918AC9E0F03587C42C2044000ACB95F6732EE5DBA94B975F744CA03C815005D8B85EF98923CC05F2353443C7AEB50971C0949181AA50048416D5F935979D64C625B47",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1C23009E5B5B0F83435D2157209F76281A28C0DFE00FD3EF8BF7F7DFB52DC70F4DC6ABE4450461301A0A8051051F654A9E93A98585C045F20A19F1381A03C8A3E4E07DE07DF0BC5BC99119E81A6835D80A39E4918ED2C8E0218FE4B894D1A81A13C8090265981A884E2027901A781A681A5E819C40581A501A1854B44AD700F8A20069BA14503EA582BE730F4ED0ECA2055FC401F0A01566F81F4D1C00ABBAC28CDB6555CB67E483E2048B85D1481A54E4053220F8F81AC20AB0A2F1C0520FBFC581FEC05D00CA1B7E22C9075F8D0CC9DF898D1C083900648BC8190F401E85001B081B01900724101BA6404EC9181B201B822347F240281B3CD97406D65ED736",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2BF330800980216B1776424E200F66481B401B058642287CDA0580EAA03298720FBCB3BEFE4CC18D34768D043DC824194E1C514400771E0E38700052BA683300F8C1465B0F44C20056F2BE751CB8153A0D0A192820736B62957CA667501B2A00461403774B0E2523EB7A250350C8EB7A13003E3200BCFA0F4CD7509E112875B34E0839100173601B425E80BC681BED21CCA50783136C1B297683004000751D4604C0907877A90058F247807955000C793D887B0A80212F59907D01B0E4AD5E987F33CF5C4185F9A0A1924B0E808A85830C013038CA457D76230709F9A41B91AC76704B1E007AB01B2AAEAC5501757E547C49655C4A28F6B3F9B60397B11AE2B7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B8A0FFE15FD29430F388BA907EE55D4B96C90F14D780007D7C97154D96803ECD90107D66234D8B2610021C5F0C1341DEC31F83FAFF61186283BC2701023820C3E1026492AB4A0118171916851CD0A0E4BB7B2111FCDBEB01274A0EDAB3A033D22E081962AD5810B9D89D49004EA7009047B017B201A7CB00B7764B9CC742205D8D53B7B5BBB420716A0AEDE9EB6FDA51BB2C634F145BC3B91C5C6C2126CCF0411DB2422EE484F1207A712127E4D1F2287C06022B8547DFF06397B14A1A64BBAA088B2BAE207234A8B31028C0B6FA7CE6E01BAD74ABF00F86B74CE70332B2626B69E35334383B025FD27635E84ED8D10C387C00FC6F0F3BCA7C028BCA1338D8DA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3D02D70832171448733F6D5F081A343BC27C04783442DB1F7EB98471EF5EEB032A3DBEDC6B7E7B274CABDD05281CC1BB300FBD39F01C2395EB84E705389237C0982A57D54B407230785E1A589D5697FC7B487832E47639871563E9847B732EF40CAC6AC9B4B31DA0580AF875B84F061687F8770BD942090C437CF4F5827A18C47992D7B02B2D081C409E771B4EC372DA7FDA16402D926739E440D8DA387F38B9E1D4D6FE321F60C13778E1F95BCDCE7518D0232307660588F990FCEB80CCAEE11EDDD94D983FA006C1958C1512ADDA5DC10B6BD8E96F105AB61892E0D4DD0FEA07DE1C0C6E38331C850A331B48CEC8C9DBEB1D295077787AC7FB026F8072FF59",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D8E36DDE3B1AD187CA9F68DEF990410EE48F70A8B00C470639B8C0DEC924D978C21F019CD558485F8C45AB361E14C464F79F2769804CBA33D092A29B1C0F839F9CB98F36437042F7D0DBF190720579673FFA3BD00F4DD076DFF2760D0FF17329C8D1E76271C8400B45CA81F96DC893870C54101D181D4B9A870C4C201D54C1421EC8281D401D65662BE0C8CC73383313761A79A1886983E072581BDB2B67F81D15A2BE3CE420F7F04077D80F4ED879F3818D40E4F640DFF2D00F4ED00B4E182D3C61EDF93C889E48F935701D781DE4F3902154801D881D0E194206C044F8E356D641001D82767705A5E8B1EB40FB420ABF2B9167DE9930D30F38277246F2E89E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("600A4735681DC8BCF7025726CBAB50583791A1D4CAE00D906AE444195EA3981D8535A01D499161F2A81D1C34C5031D311A1E5EF306CC460DC60A561F02FDBA91BFD83F4A08C38BF6421374E383089FF8027F0806F766B9692D45C860044D3206986D5F109F1072C0EE5D7FD94013DF140543326D1F180C1FD03712320C37053B642A38317E1F20205F101C720124243F1C40A64D28FF28057C0172C8942C2CB9003976345F3438432E400E383CD9900B903C4010ABF14548BF81FA40EE5044C58EDCF87C07C74060DD9FFED82413C8444848FF4A2EDA0B4CC33F50447028195C60C33FC44205DE6405687F3F3960978AFF133F6883994026686C4AA5498E5890",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BF7070209C541A7F9941B8508090E0848AC09AE8381B140D5BC3FF8A5E688614E29F38825C6D68C831FF0A7F8C85826C84317F485B0DE75D907F5E90814C211394943AB2143298339F2C841C8C9F9CBFC9B01132A03FA8940C2543A4AC0432C530B01FB09940A6D8B45FB4B813ECD5001E80B85FBC30814C21BCC092A13654BFC43FC822184A86CCD05FF89BE998D03FD9D9E0DC35202C4D2D20BF04576FD99AD45F447065BB224A0D286E1F86DA5032D8DC3FE09940A618BFE0E42517452BDFEC2A3950681F6000E5838D435E952C4D66FCFD060EB89E720F2CDC1D382C691B075E58F1E1F00F7F8612EB07D905402C656C893BDC9B77102E412F3404393673",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("83901F87CA0632F0838312809964C68B8090D1021661B035CE2327C5262E185F21FA1C9C853B5A5072DE630BCE346DE8215F03E2FE9E1914F074208B9040F9AF5AB7D97409BE4FE5F84A94EB503C9360167616DF7F215D2A29EDBB71BE50D50CC35F32D98014726CC55F7F04721558C904BF04490E2153F41C01199221791E2024284BB090212C732BC8B011C13CBF3F50AC640846BF543E6EBA003E442C8B109D503B92F16131DB34581643D2E077DB400C0508DB803C1A26D2FFAFCBDEC9DEF9DEC1DD8324AC20C9580D147B5553F8E4FED9E88BCA9D20902663FF5083813ADF2C3F3056023A2F9FE02F21850127908400AE01B54E3DABDF006A02060CA82F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A900B0E97744BD8A19E77965C5D802001703084D69E8BCC30F006DCC53A64F333FDDC698F8475F77D4886D17BF5447A3412602FD4EBA3A253D498F6066C0DF1E8C804E4D7C162860074500164938F38D6C243095FFA92755DE2E20004800A9842FAA39903E5C9A6C0BE0E0050C0568C3603F0CAD6E1A5F21D6BBAB7730D1B906EC432A7B86C84BAB430E6C9808D0A1380E27E9EE88000D53E1C517849D1BF81FFF94FD15D86A00507907750E13FC6DCF70E51066A9F53D04B4A67E0423AFFDE611288B3CBD40B8461E08313410DB67197943381410151C60C1E781D7B62F8C97A060544E18AF4B0205BF95AACED57E850FAFD722404299E042F7402A0F80F970",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E9832C8CEB607F67EB5B2054740FCAC1E914810F0E09D52AF7D98D1D128EFD78DD5E2CE025C88BFA7BD68B5BF22DC832D7FFC9E777E4E0560C15CC7E3019208B0D69482D071118CFBF9575DE63484E1C2BD0F3A98887770F1DD4A80AAE211C9A0D94A11E3D0972617330EEDE1A425A64F7CD6F4317406AC8756D3C2FF84FC08E558C067C428D71FABC740FBF03BFC70AD28D4D1D0713430283344D6BDAC2051402040E04060646FFF7C911C30A15410683C50A3BD67E97F7BB83DB748BC12FB7F5236DC3024239DFE3C7FB0E3BD07CEDD3E93F0865FBD8E8006FADC8273A8D5141DB552CEF0E477F5D87A10B0410DE1384B208DB05110C3F06DE5B2093289F14",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4D3BC17ED3D6DFBB67C9D18BCD235303330840D919B29EB2BB8DEF8BC5827537C192B8BCB42AD258C8D1F91A1E1459E82F007E6BE2F0E20AEE094D468BFD8BCC0F17FBA08AD2DBD4FAD5023BF0201435B36F7CE167EB425D3CF906C7DE42701BA8E441D91E4E875504A38DF6FD65103BC81D7CE558150EA7ECB2EAEB0EAC7504EB051F231C17C1B87CD31FF0B119642A39820078700290A639686C6833D360C35006A11F030D430F84DF4965C1E2021D2BD73CBD795A3737248D92C0B623037408D63E7714BA65858F8C5A80B7103A25DB9F0FA3EAEA9F28DA44A3C8205DAB48C25E2024602B590E099828967F46460E1F30764C30F44400960379968B500220",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8B1992E559548B583017AE0735D7E32F890B1FD604E7D10C47A2A6E4623FCC56A11B96E1811828AC2CBBB086C07A3510837065462B8B6613AFA3398658E3BC0384D58CFD18F021C249FF4A8B9018D98F8C33AF3D83CA0289178364B9603FF50492E520697E08F7104043488620FE85DF06FE86694A741B8A027915D941B8DF8B814289911C66C51D1432D4165E5F206115423224BDE1B30B1B876AAF9A67398A1084BF42102F1585273D0F2723CDF02E07B80CEBFEA293832B41579E28CA1CE04705831AA11F2CC9914724FF00FF003721911C304718604C3D7CC524855838363D04954F59BB6A68B41E0D1A8DA4340631E451B80A08EFA4A4D04B8A12CB2588",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("03DF18B6947C085328BC67D124A733F400A6068A1C58A32CBD62D06C6054CB9B0D5C3B39842508D1BDB5D9DFD02B07384781FFB5B88E1C17749907A535380FAAB46824C12EC19334E324FE9CC677C3577C3964EBCBDF70334D7374F49E89A807843D143B7D070EDD75DBB86CB6072ABB1C85FF9E07F20C5A507FE04D203272840C69CC243272840C34D02C3814420EFF060AB0B2F010630A754E383483B49BC61E774216CC36D00A8334832AD81E4F33CB5BA9C0C091331C0F86329E53C6810601DC8D9485E1A0F19C23145F1A479AAE143F4DCAD78D504412641FBD8CF12078AD8B3710236BE02417CEBEE31E99942666101583C00B4230DB48C60D38502423",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2919D89D944C47D02EE11492D0C0AEC1D1A5A10B44C0DE34641D8B1346AC3BA3EF16AC89CB2F54D854999243960294D8D8E44026390F30C486642A39B4C48321C3528D344997C8254B0EC8B8203F04A518C9C8F9B2ED103C476F05804F398D1009DA0D09E2B4D713EE84213132C9FFFBDFE225F64056F8C1E815884D040505247F8845068B5F9EE7BDC71F0E12070708C6450049E5BBFC7E158D7D0A1B098BC2014407023306FE61C703035182758BC8B053FBB6DED473F94D0C2FE8BEDE97DFFFDF885D118BFBC1EF08A50B8BC310C1EB18150F6F79EFFD2B0E32C038101912051314BD1509F07B7CA30D45770B0A5449D809FFA7BD83741C94E4C78A1A4742",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8818493554611F9D75F28B290393FBFFA660500A7C54C647033288470288078D410117FB22EEE501490789B49882089E0FC1C14FECDE885FDFD8254705888397F7CA5F040F0805090A83C75D156C6183C10A7167199A938C4CCC2032C0316F050FD2AB2007541F39025E050507E1F046502FEB100804CB0F3518885F0504121E2123531119D024C8C84172424C41C32A7340C04735845C25075259CDC91C07D8692C624DF1DE0BC2BB05BCA503B107018EB6C87A58EB08FC4F4B65F94BC1B4586D050E88670D0CDA918F830B7F436D0F740EF37372F21001C4B454EE6E2184A598E69E0379199E460811EBC350D0700D584BB52A4328522427136CE8CBC8B884",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3423574E4F43F49FCA358C8D3DD72BD52BCADB7520A00333DBC7F6115FF86B761DB78A042B6388BA00FF33B19ACC433BDF72EC89BC3B2C6F0397C9DD5E60B70A5B90F415730D66AFB108DDE10E421BD0C89391411BCC0DF4E9C236C8DCCD89FD5385A310DF7CFEA4E7ED204FB786DF010E080F85D77BFB7F8810E91A7404B720EB0232FFC616478D68010EE62D8F781941B91E25C654751CC42200456AA0BD803F96B4321B408BF5458AED0F707FB916EB078BD511D71A4975E08B4DA0BD6EBB7A65F45C710BBC0299248D8450846F8C085B6586BB1C70C08AECD71C9A34E454D80955DCC95B447088B58F304082B7F407B91C2A6547F0E9D2FF96DA743679C2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8FBC8F629F12C6451B8A8D55017E98F7497588021B34E98845784938313B3C24EF7C6CC2EBDD81FB2A72E419A48025D7F180C3A4E9F1AC019F0A900C111B7A1C7BC71089EB50E11EC782E286A75EAAB5C2A140651F1F4442866448485009E7C2C69F54C115A54F6DEABB0AE8630630728344F6160F17BAEC18BFC72B00C33B366003E0EB7DD9BF4D2B9209E45D003F40409CE40172247D247D7F02971906F21A382F0B0DE4E4992047280C269009E42B2C30443280BC409C014008378000776E1812D9799D085704B597BE38D9255E6426BE20D32E71061820C52F6781803F1A00D805F024801722E830721192D0DDC4761B773C31913C92472D23104180BF46",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C02E96EFD92627163221075C010C09E19D16BFF83FE14FE14747D9050040CD35044016DA784BFC16D9916CD8FD169B05102C18A3F116BDE4B69A9901DDE6855B18DF0C11E9BF3E36B09F82AD0D52DFDBBDE48610ACC276104CD83B41A1308D1544FFCFC4FFEADEC9D9C0D9FCDCE1BFE0D9F0D9E8DEC1D9FD697791DBDDD9893864748A1876A164987B486A5AAC6930013E780C40732D089C83AB7847701696E61358DC109885C9BB4DE3602318136812140BBF87DEC3AC801717A0C616219FCA2383E11E17D1DE7F706F6607417590DFF2DAD1FD0C6636F27D98A00BA857B6B08D61514F82F346A090A1E1B8700B24430D6BC889E48221C9D06BE0801C728A10",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("41F0177292E70841F800411810353092417F7D1C56C980DBBA20C779491E632041E7289B1CEE608213384AC9E37678A6901EAFD9F35A1B08D8C846DED982FB3A2A5B5048521C020B5BEF1C9F519C39C2BF303D6041A332918CBCBD68707881848C4C888086704D137F1484C7001A8D9775E2D74A3F1A6FE2C7388BAAF0DD2BDEC017816FC521A3CE6F1FD41749153BD931C5423BFA7DDD807F0756CAB0F7D9EBE7F7DBEBDB33805F917F54BEC041598702E01C114CB98A1BB817C08BFD034CBE1493F805BC30840C3BDA97CBEB0FC4D4FE853BCB753140251EE510EF83FAED7CD58B6A2BFB2BDD3BFBF5F1F95490DE27C28BC6AFFA8D7001BB84D0A93770C927",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFBCFD978CF47E613D112B0C543DE02E9B376FDE473D803E3A3D22562D3DC05D203D1BE7E5CD007D133D44AC7F06B8EE7CBE6F73BB0A007DC05D66C09DCFD72E3E0AE02E112BCED61108D5DFB18717C0399D33E53B8AA691176AE30F84D30721447946469EC20248B10364E419194CA004509E9191678F05547E067E666F46587471B807195C64B8087E467E466057B809644AB80A7E467E46683DB80B6C30B80C7E467E467023B80D7416B80EA004704678A8405E2B31F7FFC3906AABE010A442965AC587F30EA0157FAA746C098A531C39745C74493374785D0E2B2872743243349D6B8B1B63C39E25028D845BB0170716346D6D60836729016B17296E6DC9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("016B0A96D12A79701F4001FF0188085C34C61056129B55F085BCA9849387E8084228CD4E041EF928DC1D10426733F65C5540B9909EC5248BB4D034D8BDD0228C5048E152C2EF608B1CB38B04B0108A8BC0EA06F28D1CBB702AA041C2345C5C37BE19B87C8BC78BD82328564689023BB5B78E04FEB47CABEB6ECA880AC12EA9C904905CE987809D5C767908890B8B2FC1B3228844AEED74082726F07D828D0D1F8D0488FF938969877D2027158B46043D5F043F13075CBD42A63B67C4D361C3C5B0F73F2C3743A179BE2FDD0518F12078C9C430F920DD0520422FBE574833C94448404C20473220505489BB2470673A9B747095029E134CB4546824CDC8DF2001",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("89038B0985C9484406222743542C299007859F6409A471E8E281EC0C9ED87F80C36B2E2DC04BADBBC603CFFA0E5AC4226B0C8BC50FB0375454C10635F48BC824C7CD01E58665297C588615DB0DA1A90C253E28C9D82E36D88756D90BEF3E1512EF8F791CD8AC1C2B845DC13C3ACD3D3897E1D149881CBB309EE3A593C0E905B9B87CDB6A29F274411F40091166DED3070DD3481F5498B8353D18E57109A620BEE0AF2534277F248BD9F7DAF0DE1C4B78086BEED3EDF6DD000CC6BFED8D45018B97987A84BA24AC4376502D2E1ADFED022B01B85145BA87BA4C9B4C5B7139142CA4F0426DF3474003D28E94887C4D6692FE02D1DF89AC35AC04C091E076541B87",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9F6D632F3DF38BDA239DD185BD4003DAD2DE7EE389671FC576C28240AFB9875400C98C8CB4010A504C487D52D165249A628B8BDD891BFA907D66B467D8D8C0876736A6CFA46DCE2BC8DD1DD65E98882085DB3EB059DCB47A6F139555EFB1FA6ECE454BF15131DD84310CB0900DF2EEC954DCA44E1D5CF9F838911849A504CA198C05B8C398BDBDF83C59B6A028EB13A87608F0424A0C9E8592C042C1514CEE78F2CCC8428BB805B0A1FFDE6D1FED1706C1B0E8852149E0ECCD334F0DD855D0DEC2730EB43A710FC30281E612438C85F6DFC0CBD9CCDECBDCCBDECA98FE61EA1E8E6CC30FF6DCA7B4C1F4B5463BD3C327E015F5A2B4580D04257F1D0BFE5FEEC1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E502F1242F68D90482D81437C8FFF1403BC3D95C82FC7EEB46A35F9B2F95EF3BF09790FE09D8EBC72AF28A8F87EC010538014742CAB15332BFDE4CC00DAB5CCB7F28EAEC41CD77C52E5A6CB069FA0F3C8D0CCFD1F810EC2BE82558F002CBC803D5047927DD3B6529DD69BF6A94FF4DC01D81D518BDD1FD8D14D72BC505AC1461EE01584685602AB7256D07938A55DAB244FDD7BBC32A1ED630CAD5D8E9191449B8D24CE03928A1895C1B97375754DFC2502421E971CCC8871CEEDED3EBDB4F0203B3DA3C613F0D3FCC3001DA3BD054A0078BD023458305EBC0C88C99C07AC341B73033C22BC2998F11DC210C93597082D9A7116300DEC12FC2B8A935244ED242",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6118013A462350C1D52A5835508DAF03E48AC218EA0E9AAB05630774C05F8058E07C6C7C63C1B73FE19B01AD37578D348A2AB0F44009C5AA013E5A8EEBB9BC5BA2082BAFD11ABF8F2781EB030983D80A47371BD7F6C1D6717EE58943B197281CE72080C4F737ADA6B013FF163BD98940957054FBEA02C3D88A752C0D15FF8AF9B5D35A1C5D2D34013B16012F891045890F166C0D9E8C670F33DC8301BEBF1F60DD9B0A8B083BCDD52001E310712E30D539E0387C926EB1C2CF7D0AA1F56CC5517BCC2B1384D2BB86127817D203D8F7D805D06E1107C140BDC7833518434DFAEC6E476AA01F7BB5BABF15780206D0292FB18B0CF8B635A88171471C4C81CDC13E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("405F87042108081C4873200C0C1020F1D3D51000E8D07E8D0C162C39E93413D53418C85181B430F0168297C0B9AF03CA56351B5831DCE6B02C890DA5115F33ED2BC118A7307C45E266F67B8D50FAA469F29AF2DE155205B90B8B8F87A97B8907DFAF998D04C344A8E9AF0419D21CD21C08080C0C14FFDA1C101083F73BEE7EBAB5D80D8B6DB9D4C50AEF60FBA1DD30DD453BE87CF0638CBE4C18D6DF277D7783F055741C6A4FE6CC4D83C1FA6F72F0C71104938904AF4F930F08104DD334080C0C1021EC23385137E97ED0C5F8C0DE82A997429815EE7CF488C9E709FF980C01D439BAD67FC0E8187401EC3844AD4D08AD90464C50A2BDC9757EC676BDAF3975",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CE29BA4040DAE2084311AE0B23554F6811476CFA9C0F4FC309A04DB711E57CF87716F532E2508BB3AF43777B1E7131F80F42EBA7F8182EB0134008564D05301A34E2CDCE490B2862CA4F1BA03060CF4EDBC1D72DAD2AA19BD97F4BA9115F9BEE8BDE9D3FE2CDF7DEEE0F4DEB6675018B8784684784FCE60216348788D14658782B610871C44B4B51DF9E027C84C9E7C740D0EE412336A9841951C9853CE28BF547D0E84C3E2417AF89B424D4328DD80CB155947390FC32C0CADD056843A8C09109E4010144D8E2BC2317E1E7D178DCFA1370AAA4A1D5DCACB2F32CCC3B00B1DA298089BADF8C5CC78890DFF4DBC3DDDB438E8111D7854359B00B13415F64D01B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A043B5984FDEDD1D8FFF17062FC80DC0BAB3CC333BB8237F461C4ACDE6CAE00E5FA0A6116FD89AD962E0CC885B139F61CCDCBD4B20FF21FF63CADEF98B9482403BC30F8E202CCCC81589E8309091294671C8A0954006B9B0E831C4828301AAD1F842C4E14718769303D589F80732847C703331D0980CCE1D23C0EBB85E920990477EA0D8B14AA664E8E0F0E84483A1D3EDC3F7DB47A4EA827A4C8D83A039F992B8C5896CA80E23322C58A9830B91BC401EC8D05843504332C805B26CE0E864806001C1280F9C2406CA85D3EA8B462C07B8DA3752F2F399F284BCE4D060439C24C023937C32F0C52BC3D4B08C8C1C25B0D4F0948C8C8CCCA0C886C920CFA0DDA8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E9D6921B11A7D89C3CC294FE50A44402A91113B298D897EA84D1FC0A3BCE0F8C27ED50533EA4360348FE0603C6F7D8B2DF8A2346C434721A8D5EFA21D2849B0A3EF0A1F8954C81038BA33CE7E85C2312E23FA1E87215C881E8F0230609464F20AEAD1283C8B060F1F9178DB82DC5A535D933ED8BC611F61019B77B8710C823D6B0AD13BAB0086E40C8F8B88B641AB1DD6FCBC5B042F09D21B0957D6B904684863FBA488D4EFA0FAD116B592A6D8904B190A99FA071F1AAEB7F0856D885C9747BC3C08C381D60FD65D8088FB5CBC97E8D4CAD4500721BA2828458C6D278C67411AA2C48699C47FFD0985227E06CCEB42B8BE1D47A70B705938E26C401DC654D14",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF6FB796DF562D037ECC04FF1E7F19929790203FE80481D06C2C1FC15A212C1F098FBC241E15F81777FF7F83C081DF7B0204240F3F172337FA0EB709BFB3DB1A220ED80DE8F805EC0AD93802F10495E49715CA4069CAFE65E9D80C95E0182201E20DE5771C6E28A1E49FE1061CF5EE4033E6DBD9ED76414141801C5C9FE5ECDC1C35FCD805F83BDC74D597705FD19D981701E00A63807B7CD2C7059208FEAB40A686C3DF8C2A3930015F900D16E41BC2FE65427291A4A23FFA70CABC2478BD1B423374AEF7406408A9AF990D44C7354864D967869B7A0C444D46C34C64ECADF51012F864BC91501009AD95F5FF1AA8B218D21D45C12C6EAACBEE1885663230C0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4EEBAD98F8F981C75E03268B417E7C4BC2FD5F9DF33BC17D25C7448430D878691C903F6AB7753B99EEB03E0F143021652E5A4640F6C4FA02452DDE07F02D6B718B9D3CFB5F0A3607B3AF730F898C654663A040BB1DEC37EFE2FFD203D93BC37C91E40A381B8858A6A4E333FF3BE23F49FEC97E278D5C3DC5EF083E15F418F498354205681D31880717FC3BD17CE5CD4695D03AE20D69DBAC7CC89DA8ACB6700763F647E6E13B5AACE65C6514F31C9CD9B1B078002B5F16892FBB2970FB7D158B560C3901CD952C6869B849427D9902B9B44FC5BFFF1FD9848504F3070F8E79032EC90F23E004443A42F0DD61A841CC640FC448BD53C210D2248D1CFFC507871F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("778B94848C5713C004E04FC7D9E68454403B817CE22870802D1C6A0AA585946FDEEC4DED7CB094BF8DBB8C03C203CABD4B4B05C61C1D5C388486B01FD4D48A03D88D200BE0CF74BAB6F98CBD08F3FE1E8CC28E8DB92E60426504B5CD670CA830532570FBD3A4409C9BF7C1E6023C18897C821FD8CCA12811BCB13B8B276A420F0202D38E0C595E59035C65FCEB1DD6309940FA7544D9431DE974F7BB430C0BAFD852D00A3830F00C1416BB44A06CD1BC59D86418CD3758E3CCEE0520FA611C063F5358C511AA9E38BCCBDB834738A003BEDB94445E28E0A3427908F898EB9C084A48B48D8E65911E5DC37D7BD76E73059083C2805BC30D932A65388F10BDDDF4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("104789233BBD04CBB087572C32E70E3D808DBC5ED2CE22084CD0031E5338B5EA021115E04388564B905C64E3C8A51BBCBCDEE949D44AB64203B47DBE8656419A27FAEAC8770303F59661C8BF06AF2DF8052F4427C8431332DA834DC3C00CD2508C81C2D653C63DC78DAC43893C0105A67A1A9FAE9A83C18997D877990BCF86DC7C44D1BEDE18F9EA691EC491D24081C5C247B5C03CF35AFF6BE994347CC21DCDC6FF530CAE4C35BA0C982A0BB5880F72FFEC8B463432723E459D5B172502B0B23E3D6E27783FE23F5EF3FA01C1B8B6C73183F91CA3000F72E8453F4CD8A829D973D885433CBEEE92D90A36F076C5EDD0767C0C0D20B6EB41510CF31799799137",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C90F0C55300ED49BB6DD7220938428DC1D5044A49DF6C483836601CA842A604804C53850720D451CE6D952493A0B40108B9B428BBD280DE0DC1C8B0395DB4ABD2C2B324B6878F0888A6519E0F029C10CA943CBA7FD6C2CEDEA768D2CB812E00A2F2657FF8CD6D804ED8FCA5B45090873043BC57CE1C9028393B6E51C022C8AEDB66EAD8BB38ACFAFDB29D836DE7519D5F8688FB6223402DA183467FD122C78F22EE87754BD90F597F767E7C3C1E3022BD809048D1C9B8D04984FC2A7A151875CB6C12A8EF6097E5328245E0C0D8C7B1E1A11BA826EAFEB061380E51E4A85E024AAA4D57E32F2BE5543F2EB1C3A427CCB5A3E5271025AAF5C25A0AE864909254D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3BBB003C85928B8D17469E393B898D0B85283B3438998DCC46302F303C5F346464E416474038385B646464443C3C231C186691400B84EE08482C723B8B0B9D4C3148193B9F5FBB6E3C50309C24409D546E9C8C8CB448544C5838E08C8C8C58505C9376D95B97308D1986DE604EDA65912819889464204E464646645C68184E46464668606C104E4646466C6470087740964519892894F40964A300CA7DD5448C3360870C7F0847EB5D0D38DDE813E5182265677A6831ACB6A07F7E128FFE1E0FC729C105149FD800EEC27C9D427F80F7CF083BCE7CE39854E00447D162C9D91BD884AFA7AD98CBD91D1A28CE25EFB4A77D38D9CD2000CC1008230DA4792709A3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("33CB10F3524C5E2104634008DE7947DACA6218DEC32514C74827EF7E4E30CBDEC207330C40E1793F2738CADEC1AC10CDBC9F574D5A041918CCDEC5132078DEBD8E03CA9F811B1CC9FB51FF9E25192BCA8BF9030B8D0CF9083D286CF8890FAFCBBEA864AE4D07C1F00CDEF1B8591949665DE2EB4BEDF09E35EB4D07975D03D78AC9F8AC0D67FBE99D7CED1BEC87AF534683C7A3F27CD07A7D340AB86189060E5FD72AEC3A2B8B77D1D4E962502B265B0CEF1FD841D32BDF0CEB595F0308F647200413ACEB2955E7F2087621FC162D9BCC7C65078414CE8065718B762C5D483FD837086D43600670021E9CECC27D39FAAD80FF84617FFF8594800BDBC336951727",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("413BEC4D6B777F575385478490587F48266E846227CD4005FFC6B59C13CDA31CE28DFF97004789B1C85C0D62EB589001818DBDE793CC5528D802D68B9C0201C00522E005BB7C114707A7C2419CF32BC11BC5B699243498623D3BE703F35D2F27C5ACA79D00829CC02FB0140A233BFE7C984E32D2851BA9D80095C1A2B0C00C506D08060D39D565DFE4A20A997C9A9CA092837848FBA0C85184431446C4C37705C044EAD04219B4EF9511570483AE0373DDB12A0279204AEF7F3325FF563432C085D2B04D558B562C83FA3CCD842CFEA59594814C808CFA981E74814CA8A068C834E89150528669DF994193BC2DD052E195409AE7E494B0B8D23D7183AEF2D388",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("10D5182006E18AE3225383B6CFE11A0FC2760AFCD8DB7A192F2CAC083868234B3072699A8B41E5D3DADA202397BC149AC1E22A2A0709864CB0C0DA0C837EA69CD13C020F44DAF39C08810DCE32F42E2E03110D5A43CB9020174521DD15065A34B48B6AE8254D83361FE6A07C07ADA12DE367696106BC97F0432BC66B3AC08A70E106B98EB68B9C3A0E7D803756F217FF45F18B99421E943BEBB0B5A043662C85CE407291FCF9D87C884000199A813F0322EA8595978BF24F0F9D8340D38B0AAB044E40E00A8B8087750F919DA9C7A0803F05D7BAD6043AAC69848CE40B6BAE7FC07E518BAB73F80740C4E218C94C13BEFECA843A2C4885ED7E1F651ED66EFD57",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("050CA8D902D8D17E04DDA92BA05707DDD9CED17CEAEC8A8D9BFEDF7CD6048B6E824517D620978464FEEC417CDE59DBA883103120CCB27DF311087514D8830C0ED9C9140988C5223AEB0A62A4F416DC0716457E1103B8B2EDA6D8D9EE720618849B83E51F450681F0D84A04C49610EDF76640E34240D910DF660F6D00469A0DF44635F8111ACAD94E8D73112B00EEC8B3CF4533D9336F2581F759765A0B221DDECA1DC0304545E37A9A99993E644A664365384080213F39B00AD7233C4F5E080EAABF5B5518720A783630076D4898310D604565466B3B786827736C838D6B02FECE8D4402EB422D010479AED227F8FFC01FAD66340574F9207D0585CBC452CAD3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("081E04E6CBA0709F108F50703334A1388EE8B25C815D5F383C8F03D082CF304C508B421570ABCBDFD610DFABEB14D85A0C8B7211F6C54A0C1709894AD7250CEC3984061F454096770EAB8476781CFD773037B0324CBB981828905CDE3BBF5063B13BD952DC30290C5C6B3ECED878870FD937145A415644C0DE63151AA5C1C8C70C5F2423DFB4DE6C8BEA8BB897E4C9934C6C648B87AC45465E1E794C8B9FF0C1E67C244430001F78B4D840C91AE60A37C0A443074FD9FC0A4BE2DBF1DA415BF183C11064B714B1DB6C647864E4A7F9D5B045554A8B87879D411E398710D88787F7166C3A71CD2B6E08C3C9A76B7C21DBC17DD8B70046395906E4B84538A93874",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F61CE4C8BC45C01BDFF1017DA1E0B0FD55D8453161335D53364D08BA8B7447AEB00A69874008445D32C8F3B9D4406C18D36408996B209EBFD4CE58726C6B6AE0A1C881E0786E15E80D64A69941F0B1F84C4C57C60E52CDB124AF8918D2E87BF5F7A6499381DDA8C599E95D61D390C1E0B5202BC8AC6020AFB3284679CD274F03D0ADDF30D9586C7C08C325C7E1873046D3C83383421D4077ADF7CC440397CF154C8B0D644296A776AF42976C69838C1C504638489ADB2E79F2692DA96846604697DC4E1541BA376AD32C46AEE9CCCA6D9D97134E2B487055019A5E3102D8F91F2008023F0511DFDA8BB3AC1B0D6A032EB274E42CA34E4F0AC12DBE2DE02B687E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("04D8ABC41B6B0C2C428B3F69D2B6E14D99BE750B25C215D67D655E3A155D400E894BEDDEB003BC34531C4B9C1C04F6C0E99F69BD080EF38B9C90FA8EE023617FC67546898BAC90041C56B37BC13AF6D0E760695E8BBFC0746B04F2DC1D803EA05383F7847A40BFA85600F00BA6F80F7E47F50576A7AEC98B441C5DE23072244BEB1DF60BC3BB0F5983FD3D1E8069ECDBDBC5F1AE2403D1890AD3E00BC5BD458D3D5A0750092BEF9083FBC75C57F20803C03C0590B88DF1DE3040264FCB183003CD000B7E000C90EC9A2BF7D2B2FFED6FE80E0FBE2C110FBF044803EF5286526CA970284233046BCAB6862CA438263C8B2E7767EA461357B5FA6823038A64027D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("264209B3678F5089172BC1C74F08B6F9FD0A83841860494F3B832C756F6B7864DB1CBB248BD06803BBC28B8B9479731BCE608DB40368CDDE3D4FA0A5A4C9368B85037EBBC796C95B1598ED4681E6FF6EF5C41D4024D3015A5EC6E0CF4ED0C6040A0078C6E0DAAD0E23D565F5E2B36E57C53FBB15893B2BEA33C98A0C3E24480F03C0CB82EA4C8B14D3FDB2DF167F0C48D3E5071E4C88043E0193B6702837893A8FE9FE3C1A8AB1E14C5C8BFE34317949886838EF759E16211710F520C0C14B7A0385B5C6FDD3950098603B00400F8C62FCCFD52A955C4AFDCBC8FF6DD57D55C31475071DBA6212901834C540F53BC60F8DAF30137C0019B94A84BF1814484626",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("39401888900939E4403040A690432640404065AAEE48185CBF4019E41990984040141992662A3C1C1099A092A6441C3C09A43900441061884A9A1044404973B58875BF281835C84873382818F805333EE308FB03C7FFE175AAF07C8BFAF38BAF14E40A0757FECD0F4F294CF99F2C2FA4B9C3DB663BD1A1A9192AF5B67C2A5C90122C5FF43C8B5CED6275AF733DC198319C982057DCAFE3DA43311038742864F55A5A2A00E03B6220BD3E4DBD1699992ADC57670F47C75AF9FA39E421071455C2BAFB90CFCB07C3F18B74F18974C3BBBF79ED9EDB74314C463CD9B08D3C004D8D44FA752A16EF32485DEE08D21C9081A853F817D61084D4210492833CCFCBB8F5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3C3920592699303438157E1A23514CD5FF34174D00ECC938340186D7E25E427708B98A922410652EBA90015CD573B54A56EBD3C8F6CB002C5D5800F66A4503D59FF13BC50F8DB7307C349291ABCC8974C71814A664422E4018A8999066424030400A39640240404A4E0E644040B84A4EAEE418401456325C98380D3000B98AAAC7383019A4394410385845C9D477381C25135D09EC34C420CD805CF0C60F2EAD80A75F300CCCAF03218BE45E93E00CE9F3176B348BAB4C1197ADA070FF905E3BD5F8F3FA2684EE8488185C4A4C7E068BC5BAF615F5FAF4D53BC21EC22E9C4C725DBD283828D47CE1B96E9320C748AACB3796090D3C24FD3C48CF32943C382C18",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3C2043F22C48C01824931CC824182CC83332C818182C2C8DDB960C18EF5CA4B9E4C7FD18DC1DD0181859AE90E7382C1C302839592E34403039599E2B54581C549365083958403441351C0D79EF75B96B113218F348C7A5492E2048BD3C1726B94BB1F624AFA5D78578726F414C1B2A07AEC6B9AA4020B3E62819192024308E6464924820C8482E999043404830E4E4904B484830EE480E643048205C199065AAB348E048201919E4482430A6199266442C1C180099A0922C449A09A439181C1C188861884A4875734973B5B338204C5C35C8483820F0B7CCAA40F5CB1003F0BF29CDAAAB908930D8765A4CAE18F23450AE2D40E40264A8D94C38AE4246264CD8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("382219B9423838B9488E644CE83802A4190A282099409A8B2028289A8302A42020289A4B9A41304C50308D7B4D464C2E4C1606B7D2857FDFA804F4A90C8F2A97D4F8D2219FAAAFBA4925ACA20E8BF53E6E7CE0860C51D30F4FD35766E111B5C34ED866CC5E350651FF7A951548D24CC70DB57C5F24269267F9F7444838183992E5592C4448F0E4409603182418914126992C18180664409E2C2C18186439905F44DD0500475448E41999E45418382C498E1B2B07302879D2118C7F3014821B21018BD1539B7F0AFC5E4A06185E76772C4622E42A184FBBB5E803BFE1AF0372881B037E77B686EA7555B73C50BF20A4B948462448309990299920F848924B26A4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3C4830193939E4484830303939900348481039B9922B204824706320193040132AAA5AC930BF90E600E440181C2553C3644077404C7463150FECB1EA4C845CC30DC823B80F8268B486EA8A51E52B3CE54C92498E40384C854C819C084738C95132723838181432945C4C380305483328202048338434282820043702051BABA901325C9FE01D0202BD1CBAA9015FD6DD6DC24602B912CFE30BBE19FA0933D3F7C2C07405B9FB7FBA140969E0917F2C0A33DAF7C30681F264929FEFD92F0C120B33D9F14286905B5F0C0D8D6408190E0FC1090C09D3F2ED9083C3B3ED55D035957E0A63829703DA37CAF7C12DE4FFD1FFE8C1E50A33E9130249769101F6812E8F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EAF7C55F0C64089992A60D0E911C9264D60F2CF983838EC8871233C8F7C1B5D9F87CD79BBD0664FB064AEB6496243DAC87083EF833DB8A5C35C2458BCBBBC3C1031B0D97E0C1A9B92CB9B94006D8C2A95B0C0D920BE4020E0FC1F96230A56B1033D8AB06F01858C53BEA61FDD584598A11F8088856050C88217CB5884604448D04C841BF0A446E6B91B7E5B7588282FE55D1640D13896015D034AA6CDCBD99B45C80B70DD5FF84495F5C2F84B010AFE18C6450A15E0DEEBD961D08603F57787CBD4CA4031A091964787C47920C0348921F8954F261710C8B613305920724574102043C20B9A24DD10254C8159545AE90758DD9A089DC6E1B47360DEDEE00AC2A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5A33C2D4122CA74EDBDD8CC35DF8175CEC83C6F8D0D88B407BBF040332583836A9A86125F6F9CE44831B2EF7E934643818BC7C9164438F296035D77509837138D8A3FE918D995E9CAC0DE7B96166988E5C0168D135DC90D258D64CE38555324158C30F46696E404640604E4274B83000E1938603507600290F2FD8C9939C37B26054210FCD6310B0D8F26C2649404D818D3C3C828084AAA1039804AA19CE061EBA8328413114420DC00A2750B22C9779303430300216625D6E83C139A63E894A0B745644994888162E226EE38201FD06D8B84C94824680B2800B95277930046F384A0D407A7C0748D334404440242E284C21D54BC03C16B64B188460DBE04847",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E221B8DD899150FC9E767281D9421029067408E147E3CFC1B3910F78259E753377607404866612946893F6818D60D91ABAD99854A4704781122193802413AB6680582D92A9E2C4101F554E8C34081A19C32BB900EB27055B0724435441F92019A292034DC810953CCB024501F28954079D1A52513276F3428EEAC401EC8AE44A2E9C5F5589352CDDFB8002921CEC43D04E84410534CF9DF814CA338B078B4CAF3C5772958490883A085C8128DF13C3240D63C3420E39820B1D9805ABE4B9A0A84F726282004154138103640E4550E1306DC52B5573741524B814343889BB214E844D6E59105318420EE490C8D0D8C0AA2D39C22DEA6010427FE3EA38BA180E2F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("60CA8B444AFEB9588A3FD5C4FAC1E7022BC7E7F3C90857B41F2BB38975740AD805697C33442BCFDB09C24702F9474A143BD7064ED96F0A107D068DB901AD18C2470B4DEA037B03F2DF40A053D45086140603C1B90A003CB507C4231D45C61312704FAB4EF902B31D2F60896DDF0F4028EB102522096AFF693D3285D28D4408011C7C75113A5F85148BC235DDC268E2C0485320EBDCBA1384633CF6E993795F0EB53418F63DE47C9E875C365B0D1CCB9B21ECB6A2AC91C6EB09AC1F6C4F39442D5D9B8D4CAD1CFB603D7BD32BD60DF19E7DB71CAB06D56319CE5B1A0E5D00BDB4D07E5E15400C4C0D08A8706D2FE06AD9E6979C5FF3D0A7DA58E10DEF10BA3CFD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8162F0E58B810E08B2DB752E8B88716D3D53FBA8BE72F1EEEF11608F6989B038C644290162D72F4B876AD3EAEB2BDD8BB06FA7343232B898D5D68170402E77D58F20E8B1A038CAD30F867BFBDBD3E0F80C0BC88835229DA8B69C1616AE5E9E63D7053ABA00D0148C02259C02906B0B6FCA0C05812D49D3B6892734C08948F0E0B4DD76202F5021773802DA485A75B4EA071190D2477F262A504320D4896965B4903973BB63CDAE27AD94258C03A7FDBC40C0B2E0F266A9662670BBB08CFB061CDDBF08DD94525013619FC9C08D065DCD816C0AB44D738431CCC181ED94359BDC6718621859EBEB91B205940C0420411908400E69044D10801C2820033C684432",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4523D703CD0096EC8C8241650AAF903743200265A6699C0D069D654FEC6A455860C5DD32404E434C11A22A9EA64DE25C4051248451DA037958B1155FE19C2B6EA041996F763D9E06750A82758E85DDC565D019FE7A91AE17022113559018D3C5B41DD27B6FD38209BD6D679A08338025449142D74E69E80C25C84DF81D223EDE8911FB018BBAEA5C206603A8C7C60A86909BD0023536123A39C1B81FBE85389C8F8C827347C4AD8B205CB2A8B31E78135A8CAAD2A2E8D47B41829C3A4EFCBA630E0B058C01B09C0B0EB984B4B0358CF8E3764F21A02C10849AECA9601D6D90502EEC44A81087DEB69D7C11B9947D5D891B455C6CE1FA9977CEDBB5AD2719E085",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DB655E7E4E4EBE359C8C90BC249822E4A24AAC865BAC6298759E1AAD21845F11DF4703C346CB712BE04B223BFA6B7862D83D5C6345C5081A7994AD7851BB7FC3A6B05D6A2C738E6DC7069CACAD733936F41CEF7E0CB856550117194174A9107011BA961DEAA8048F45EF152BD6BEB4A86CD8CE7109E1E2989873A204C0166C161C7689EBCEF7FD0A867390158D0CC5000C3C8121E1B8418E17A99A8AA999E3019EA0EEC442018D84908B2A3988A00FAA938988848507044520270FDA84C06C3F0A09BC07081B46FF7764062704F6BF3BB0824026A064AE5DD3B1A48BA78C8EB00D7803C2410B3C9CC0166EDD2F40E32B461EB0122476FB44AC110C0136E01A37",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F9C3FCFCCE073759FCDA1EE8981EE4981AFFC1ED53E8A1D1FDC1ED1E03E896587C232317C1FD45F491E26CF941FD8D126D28994D15CC3F6CF3922E8D3CD1B87215B2FB80465D024E37632156F817DD8B88EC7746FD1F10BEC9C003E6DD07DC1DF8CC30BEF8C2BEFA9E7305D1E59FEFED43043A14DD47083D084803D283C60426594EDE014235081018029065694E0C12182820F1826C46311983C797E713BAEF10017731700398E0028BD00B3F94716FB068C954C7988FC845D5557E9C5D948773C840849C8286B0221D11FF234D58ACB506759D26ECF8CA03C54A8B6684D32A463E45CEFDB02B53338B9C5CB4AC1E97AC9C85E9CF24B8CA4503C103A852C6E7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1D043E0BC63BABCCA7ED363A57894D8775F508D885313478B743125831322D5D3C1DE9306E5E843507218D80111CA3A2ED7152287C9C8662BC79179CAF8AE0C97F15B81B93C8AA3BBC6D1E0C1C10148D60A425AA056C4724FB3C8D201E59948B60B00B3749B29D6675290223FAE0EFE464A26F155D57015BA4AC05422EAAB80CE11456F9A175B073B12191450A442F25DCBE6403D78911467F8C682A56B11821C9A004455BC566388DAD7794A88511107211A8C801C8C9A804848BB9013C05BC1B8F2062698EA5096B81D0886C240FB6EB1E3F6A2CA107E4AA6D49FAB405B08C05B8FD5F483EFE2BF9D1FFC1EF1E0310C1FF0206885C4A5FA84750E13C13D905",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F01B696498E0F8C78D3CCA1CC5AC800943B091DEC5A6908964F00010920B994220AC0E644026B8A49CAC20908BE3A025234F38DAC4A09C878C4C72A4B0A8B036A62523A8138BDEC949D3A688B0B476D142905FC11E4ED6418BB4DCCEE679B2C6C58B83533BAEF0693B4951DDF0F88EBC84F36ECE5DD03AFEA07530A8988154D8C151472205FF90D3F88BB2E4F26284039981B75953400432344DAC442057C8ACAC0472850CACAC2057C840ACAC72900C44ACB4C8C85032B0B8B08C8C4CC9B4B0B8ACC844958CBCBCC8C8C841B4ACB813C804C8B0B8BC1504C525AC1783E49A814DAC5BD85E92BCE3C8D1C4550B5729C0FBB14B6AC42B5E8D5D805AEE17061318",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0D1B1348BC2281F53501B1861043436670D78A50D62F247E3BC1741F8BC26E1DC4E49449428445882D883B765F82826D361611C06501104D063E318BF2991A5CB27078389B539EDAE088862B8C071970BE8240E0D64538C36AC1E303EC16DEAB4D18F771B6FA2BC796A69E18864466830321A4B6F91810A4929E405C9123F252F26050604A2CA09209E405004B2092387290C190E203D1BF18B6B32BB06C81FE00CA9A3BF77C630987BA9034EB06CC6FF47C392C94780D8C189011D67E2201AC18C010892DE3B6CF6FEE39BC18F0CA894B2A0FB7D3EE9489561DFA894D052A3D5FA293DF0030D97C9C89C7530081C4835813A1D405884886881FEC0531DE449A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CB38C02C5CDFF5A605283902608B417204801C60044D080039501A031FC488E44507D400204321A3C441AC18470121572403DD72A88A553278116CAC4006906C6C58F2B7E86F720771C4BD8C079732810C00C1271C05724132B17610AF91810B05A1021E3A4792FDA200944C5B19324014C4F7DD200732505D1064229047D299924E417CA97B8D2CFB7C8578C3CCD126179BFAD1C91CAF80133F017F88840C54C984A079519D4C848867070406010C03CB9AE78140BC0708FFD7C1B0644231BD920B2200D788283990AB862184BE4AA670C08B138078883B751B0F0EDD0709C36D1D0D483BC2C2C96A1F288B5304421A15993712460525434824EF4C6D9C4B46",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C24108CD912CCB0210580C181892E535463D1868947C9281830392147203C2563272B2846C9C20075515CD9490A32056FD9848A640A69CBB913C902B7ADD4F800C143242A34124870C6E541005B12855F7905C910CDD6BA9620532AA7F41248090A853143254F16B704C4D5825DF30C950729440504472241360AC909139881D6CA084209806A4094C21C74117A4A003904C81BBE348910C219B2090891945AC02B9428EACAC902BE408ACACB9428E20ACAC14C40802FF800C854CD4A305B1620047F95C910C10DD728A55C9847811D00C84AA45A62012C9ACFF970D0520401888012C636C65C0D317C0B15CB8381CC64E03EB912086429ED899372D3786C784",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("306400354F56DA628E7C40E208C9BC1623209C16072F1A0BCBA8879211993EEF0F8C9378AEBA0C21CE48E04E54DA2BCD841584BF87AFAFEE03E98B31CC8BF0EB164F17C195BE850B03D9CE220C307EB1078BC17ADF26DE4F2D3BDA7D83D38DC63FB20ED6F7D97FBD2BDA03F29E2D7CF00FBEBC2816BAFF0FE66020BCBDB04FFA8B0ED3E20BFAF8ACB33F5FD788943F7F9C89E9AAAF92892825FE020791F73681FC4CD5969C449887CAC4D18D8D602D18125F685622E15D69E3D989CC7F705570B9431F668B7FEB046B30726B33DA6F6100044DA0E43C7FE0A04004BA7D9D39180ABA73BA60848EE036931ADA57097C0D06A48831C50C2DEE81401E1211D3300F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0B42C90100558E334B6B827B2DBED663D756A0AD40647D4682DAEE0407E4693749546F85C9AC87C19A06E181BC34ACE071235C89DDF410C8410486E47C8C041642C938CD1DABA233F045C54500E4605067E8408E40AE019C6082510ABE659E1A1C3D13CB01FBC4FB7DA3C84534BEB3589C2B2A58552B69AB4A2E92022C14C74544A3EC3B284120434C072864A8A55089F4CA0540703C6F5407E46888A1D99CCB525442AD4A52004222075A4254D08010DA539F79C640063F9689B908763FEF6ECD2C23DC8EA87C2E2565E3DA409586F79F88C3A3E20134DF8B9433E09842E4A55DBE03112C99B90C8133E4AA9C8354A7B909B4C7C241B141EC98E9FB24272F25",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F0098433F498E64BB6228446349D0C6C46150165F402F060938125F84BFC9807647659DEFA0EE40437050099CC5EC920B308992503905CC9800C1082E07B8C59F44C2133D207AE8281E4B7863F0439B9924355180472BB92011C242501243C2403284581C3611E697198AEC72B8C228E301FBE2454F8AE02F080C69C0613EFA42084EF4BBB122BEF9C699F5EDA2A03D7D5336A493AE8CA9C067E0933CDF7C14FBBE4218F06BF1BBAD6760E39B91CEBF35F6409C9E70CBB060D999291210E360FE4460323BF1BC099E02D8D008D6BB98DE4D81F09FF0A4C6D64080BB65F0C533232840DE60E2CF90C210FBC1603E7A01C8ED84FD80327994E4F8EF9068608576E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8E69D7E7F203AF9F065B9C357268AE284E61543369602A1A3338321705CF6994376DA6887B6C49E0A445F5696C24623855D87F12DDF8000552482BC30ED9BE10B0422E8430D4D903D075DAD3852B893960813B8649B90039A4D72ED24A2364330B10915E01488505EB04CD409FDA13C784C9437E9787142901F37AFC98216F90755E3F8048BDE4D882A38304F41A8403E480ADFEE282480FDC158E8AD09D195E186C2BDD29E388220D22C9C12384A894359811DC635AB6B00D1185520532C9DC0548982A3C3723F8FB96F10AC18D4B778910E221685E89B54C44B188B075C439B81C8BFDBB01B0FD7E60B6209890B9EF8B943740C16B70B03FB59C838B5CD6FE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4C9E0A13AF45AB8BEBD6CF702194DDC794E30F8F37251C0856CEA0C242C27C9DC00CEF3BD0030C50C28118339A86A781F85A8EA5059433D212469C6599541435220A46DCE03C36037EF5D42BCB96709C28A81B3FE25099370315F48D03CE0EAC9082DCAAE99601DA00640828ED4C2C420DDEE1404AE3EA22871A1AEB0987F914CA14E7862F2932D504E3E868C10313BCB9A0D12BC5D1F952EE8BB489F180CE1DB441E9AE5048330110A95008CB332657B4CE4CCE806222308D3C37922B8229048DB8A68348A65054FD076B5A0C08FF73336E088823940A9E7C9A235C0A908EF801C105A64146C8C158917C514C580101FFC50A80511427610CC32BA42F013EC5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4CA33C49D35CAEFDC1E5353E693885C43519C41BC7EF000B7927015ECB4308C810F290C8F000CCC6884672B959276FECF650DC2BE01B352503E45B7272B51B5B01E82529C9951CECF03033D1080C484541066C0A18FA5D892839A2B5C97874FA995CB0916B61C35AFB3B2A7709265DEC859B14298B0139E4020042C8205B8F24C706ED31C41F2BE400AEFED3020A198890BC01300528E4C00DD3F5A1844884F903DD05800A56259BA0400E64C80C57C844535303D01532102103802856C9D41B0E890039D8EC50810581717A7C0499028F6CD1B9B110482E641B743C03D7C405325568095F0347ED114637FA2543F20E138F925BE9C75FF61B0C24BF8BF18BB8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6585C04360CF948BF852F9AFD06B48638C01B3047FF595D886197608E04FF4F9FC0F36A61B3C0ED9F7DB8BEB83C59CE807B3F589CD2BF51C8F8391D603B9FB030A11B3AD0CE7AC3B393485F783D0CE7AC2D382086DB3DB23BBE8E2C588844B8B347F915B0A0E86DDD792D72CE2FA3218540242047A8734A38D7550F71F700B90436002F970318C34619C2D240BBF5494890CEB81C5AB3D437FDA550C42FC44287F000C796C794C24E01E0009404D1028BC4B8E259DFF648475798380500A21B56C3A83BABBC7450C547B9EBC5B9043B0948D8338F390CA6E461A758CDF997A7A500302222B83ED1B001E64404094014EB49CCA78238DB12062EEAF95F7440040",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("28449C408E3C0080D22C4474812B0B2F0D04FC1BE8E434B0A6272322653A29D00DF11DA1F7F8BAAFE22F7E49DFFB6960613A44949B4C0742D8FD3DB7A5D1B5D9898B2EEB23D9E044F3C8C6244F38241344EAECD0818417D9C054B0EECF88483BD57CBF2DAF090E327B7E55B34F8494790332D0B28C0DBF3030D4867324B93BD140A4916A4351870D375B8B238EC0C95066CFA89DB6161827CF5E1001794C243B85B728623B44C83D19903BD67F7F3C5019E4003958343C428EE4003C540E6402195C6A5439394A4E343534E49293095430300EE4C9A3ED00DD007F6F39A479C03184540740C43232C5DBF1B9930EDB20CFF1DB80D9934FC57CD78D1CD27C3D33",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C0378494A18EA3960D8FD11F99920390303CE749211939343C7AD94066DF4413083B483EA03330B75FC482588A2C0AC78230DC9991B7781F3428601F2DB3D90172898A898A16132033241F86E60900FE6CACE74185805099368EB5E3760C140B72AC480D9DB6F838D0BB2F696B01D05EC4EB09C4DB0F1AB8EF0A3AFD0A733926FC229F1BC04883C7283AD10B1A08405305F6B5BFB53D7881C7DC4B18CB2FEB337182BD49A5226361E647D8355E9C09453C4A9BED8768970A9F6C2BC3F998A487A497D07F35FE7B410A279B0A7DED57508B8F044C17F75306348BAC3CA034ECBF40FA8D0C81F7D86983C00A3BE87E2F7964E4D238EB269BC49C0941BC678C9067",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9160A071BBDF6A2E9780973AE3F2753769F5D599EEF28BC6179610B02212034FE06A23268D5909C91906E863E3860080C1B700267ADF5E3CA88E321C1C021E48088D6810A07406E08D7018A21996E6DDEB604021287A293038386996666948404C485066699666505404580C966669965C14601C642469966669682C6C3470666996663C7444784C640654F07C8D5301B280A305D0413242C2E50D524E29C5B77D97B6C1D9D711F0D942FCD80B1DF125E309F8A508AAB96498E5273CF450DE9DB09F2819F0D9C932F248DEC320EC9366E4CD3BC333E84C5002AD6993E428605C8200F3D494F0B549FCC0D3D87B4DD3CADC3C5854C96AE0DB60A82861859C39A6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("849075867FDC6967F61B0314D8D94525E09078BBDB21AD745670E44FE8A257D234830CEC64686C71869D1CF8F44FF0A271B790413D02213A5F3F89D959FC4E1FCC89C0683A0E9E7BAF9641F87802AC74CA7662F910E475E6CEA28D8105FD713C62C3F503B7B4712EE4711CA073FE01787A98774E7C4780789CDC9100A17F74709C9C9C9C6C6864609C9C9C9C5C5854503C9F9C9C4C484483C040F1821CEF2934789E8EC57112FE796A0CC8871A66657888123C0A1AC6949C65584C05387399926602F97974706C9A2BA4395C606468E968DE482D34386C4090A6190044484C08699A015854508E1D2BB9CB6179D76B004762B39AA764097FC0B06703CD03F50B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("091CE02ED492B99671A40078A49540A1729CB111437CB62A151FF9779A00438D50046A386313B49B8F81837E0080A67F580CC842A158F1FB8BD9078272C1BD82B76ED84D1506704819070C9D4A7B51C1CC7A8B66D809D9CB0E385F26102840A89FC058FC4B7520084583C196F788C13918485A0C498D3E043F4AF08B9F64CDE003DD03D58DB8C820215EAD08E8D0E015098D784516BCF80061236BD6D5C24E263968CA4051404B4B4DC16D7642C4D88AD858540A0EFC3220C35BFC4975BDE9D283AB3A6451D55C1C90C0D2E155AB03AFEE5AD062E8D499B5A910BC99190703C885C04BB015DD250BC177FCCBBAD8C8DBFE0DC95409FFDC8770A6DD9F0A132FF2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EED9012D1F780A75BF3AB49D16A0D5A0FA45EA1D6518F1D003C26370577431EC8C45C82C0496C80D9DCEB6E608D9CAC9B717420C2425975CBB3B1015181C873B1CDC140D3B2013171624B7A205375443BB43975C72C878434343C873C9254343C305C3D10B8A49CD3D804F7809589B16F58CB723003C2B6A3197990B6F1700892F03DA158909A6B0F53BD8F3DDE7B920E00537895C3724E10F4B8F0D684C1B2209D69A600A6F70162CCBB32525282C282A570C9510228CDA01C1B73F41327205B8DF0CFF8487889771ADC2476AD89F04F09497FB9441C20CB7F38F7436C98C8C3C0B707C78E720D40D1028D5935C82D6FE06D5808D97B87131076B7757D78DBD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("22FA044D577CA17DB05447448754418F084C1B4EBB91224D33DBB72BCC87BBC75C00BE8F044562743E43F07EF608DEDD047E290F8327C0A40410AA385C1CA845020471D9CD1E953485CF74DFBB48D9DD2D2BCAC3B405084E3C6E0E639DB8439C4D2B9E70DDF7D8BF8803FB1A62D0809C78E285B46B0A253E5144CDC73D7338F14FAC758A8D74A8D8C95AB7E3C11DADD8D881C7F282B4BD3B984AB6F0A2C4AC90E996F4F411AC46620F15B51757274897016CEF5E74E02761F1EE81C5E671CD8BDD5796F7F64380BBB21103510405080C4992AE2DFDC1143BD977EB890B14B5891E230CAA1A2EC20A50A11988A04D0858B251A6904C7740B42EC153212942A3D1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("473BC80B0D386979A6902A27ADDB6CE9892E202B2B54851F20E0D0AA07852777F133A92B457820F6C9122845B5F27D3807F013CCEF0F13D8359C33C68DAEF077B4639636908C4A980A01900C53372323EF592388880883C008D1DD82F03BE877D5CE488986C2FB8C8CBC0B707C78462405F97C3EDF783B2826D84B2C4CDC71464696E5207424D42864594646D81C702065646464D024D418464646966C1CCC20D064645946146818C8966564641CCC10641446464646C418C80C646464596010C01446966564C4085C0CBC5946464610C004586764646408B80CBC3232B2BC06395404B4084BA39A2AE786118412D2469F5F7715BF459CEC0CB8934E0BDE9BCD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6667937F939753A91339BC464646460CB808582323CFF705043BC07110BC0C32B22C235C08C414CB323232C010600CC82323232318C414643232B22C10CC1CC823CB3232186814D0202C232323CC1C6C18323232B2D424D0202323CB32701CD828D4B22C2323247420DC323232322CD8287836B540D224D1F92E90E496FD5114007D793ECFE737C05D1D225603485AE0F3803EE900C47120E93C1530E1834152870A94076C27A080E7B607250814FB216E69F12B064813B8676601F09B64E08BD59C03C1FD1F33F67C67FA94ADB33993680AB378057E668A75B38DBB8824E7B58D488388E02EF0831BF053288DAB108D737CBD508D93301FBA8F74ECABDEAB2C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("267EDEB356674486E0299E974884B813E247768F3FBC835B02C29B05ED0CC2056305191D7B1DC8855CC80403026AC8855C0100963660115F7F5008C08D1186D17EA9C7C693408B141F418B84906ECF9EA6AE1B0183100A3B8B189FDBA76E0F8C999E1C2E8B8B20C17D06DBEFBD2C77241EAB4E892C823D09E3ED6EEF78004053892C5E7559BA01C2EC4E6D777E275573CA40C40FC4B1D1F98B2C90DFF3BEDFCB93883B93707CD94D18938003C0817113180589260760549F1D8937FF863C016F787C51A5E77F24C74356F878C61F678A50010FF923FAD635DE095315F22F147A249E41E0551CA158FC2FA15DBCFD043583E50F8BD383E2039AE10320268CA931",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4CE1B7BE9D868A4877F9060783FEFE77D22B490E020285E5048BAC959C7E7DA08AD14A6BF214190F83DB7E2FF4CD7405B7EB120915EB0D1D12D43F265E03090D41060FBE150883A593B6DA28741514000A256D4BB1A34646014809973413C801020A025CD24C20030B03F08083946C8D85138F1470013E0C8D6E43F769091F85C64873081B827AF675C52D89430C472FCFC8C0CC02291004413788AFC2B818D6C37435BA9C149AA6697F442A6488441A7C0E657D667EB9F1A669677F6888841AE2B878AF090B75D0916459143617F2D4DCC908148B7C8FA85CA001638D3C0BFB0CFCBF8D0C808BF7912BFE0D091FF71185B5C78BF918A3CF15EFAF650D260325",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FA99F7FF857C804DBC8B6FB8163F20451783E70F95043D081702BF772C55158BE99B388BF5B2F285F62949050A26937601DC227E05BEC0C920F94E83D54016A56257D3922B2528A3247BD1AAC1E395BC0C3F0C1FF81FD96F0E1BC47901BF080BD108AC9084EC180213240BC203A3EA08765F6B7408E8F4C9BD3C0EA26A4277DE0FB7130008606F25C49B081C294133503E22045EDC6CC59520AE8BD024263BCE669B7CCF581104B8E2F51026AF11DF340CAFF78D8F30240C34480C834C85C4E969262C80CA3E2D40030180069009AA0099429C02C80C09994112BB0022EC2C00F23D0AC0B473EB96919E289FEAD6045CF6CD52B2B649D63E6F060885E4F30B12",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BF780B4C0C4158408E0A5316D19E1CF2C04F4D0397ECEA4BC15EAE4FEA497E0B0FA17F108B5F1D2187C97FC1E0150F7977668B0E072D8027210706C04D06811B85D8CEBC005F200C95150EEBD66854386C18F6985114CC4C0C7F0460050C791A008836904BAE8F0401E6EA3DA07D1521C658FFA701F6F1CBBC0FE05FD26B89791C217CA4ECEBF776E181FAC16A0E2141000040DFDF2B7D1E8886750341448B4B38137404AA21E17DA3EB21150C23B6C710D6364BBF2998B789E2BFB17CFDF5091EE42292D680C999E00D88AD7748EB65219D542D8DA84A12BE1B0BFF966559DE05282C303438599665593C4044484C7D5996655054585C608B4338A1D3512820",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("54E08B231F834C7EC9DCFCB0F63D94121B619A8BF80A407721B7B72CA881BC9F6D54DB840DD835E04E4D27B49ED76CE8DEC9ED000C04AE6A642B551BD724D2A11A6FCB0B81CBD98BC3DA5E073927D28D560BC7BB087FD822C28B9FACDB87100AB6E069E304834F18DEF1EC8690939310141026934284902F19096A1BC8C6EBF00DA9CE1505B8F9574583FD0184D21FD915FF0F8C940002A0E96C291F3DBD9DD0BE9490F67B4A2C54BFFD026D45234E84A05005EC4359918B02AC6CB2B35F6439F72B648BD6458D8C373EC87B8045FD3BD50B658BD76DDA4D4E848E48EF81C1BFED7DDFD45581C70E81C60A893F710366832EC1878DC31F733EF75C01EF3A94EB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4B54A182007EDA68027403F3FE8B93B013B8484D3C708A0DC20F709B5C8D74131E880C108ADB7F227C348A35F6AB30018874380251C9ED479F036804871003EB3A7708C9948C1C090A0BE190C46A7A2C03B9F0F1161C296C1F2C4F93F26F03088E1D2872BE1F450CE0C8457FBB2C2C8DB49584B91923BC614A19AC394354D984456A0324EF4278E2169F01827CCCA580E1323E2C327BCB5FFC1F58235D04024233D881E3B0330C9DDEFAF902E0D981E3D57CD7C7021C5B0593D7B43FB85880EDBC370B932CF3DB10447C14C366B0588103749817DD80255530E2000A840053899BE5B99C9430C074A9055C805E823318CD815DD8461FDF8B56E0B22651582736",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B7840C5DF70A4224D3BA13139E09EC12745F530F82F012ABFA18A34871EFE100F1D14B10190815273A287D9350025BDF34062AA102212E3641DC05E9E90FB7498E0098A58B0170CC82B01AC87FA5D0D90396A8DF6032166B41ED561B2C22640181DFDAFF03CAF7D92B4E2883C1646A945D17ECB2039A665B74ED1D06241E101C041A1BBC6DEB166C5C10190508180193A0359CA6562B514EBA25FD9AF6F00A15004FBFAE50A1EC0818B1EB1964790EF8DFCFC7327E7003EBD68AC833DB782F585F70BA0EB97C61B674E16E1782A07F5B085C5454A8011D346C7408A808750402BA01D4B701B08B4E70EBDF24724B3423F9F6C14C941642CA9A35780C6CAEAA0D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E28A3407E7F314B819989238DD78110B8067530F95C14301CC20EA858E11033E7970E80630379068EB1737BB8100EC8B5644190A31530B42909414650AEEA6F50773099C8A04103AC0BAC60BF84D3C88836B635CA41648F7ADF63E8484A07E0FB80CC7232E21245C12BF2B3A40BBED0C2B12AE132D2C38251489A4FFED6021EFF0EB137B292E864A180EDF80438D80801B718D40A77AD369F53740EF751C72640C9817E5D9874CCD35283105580324200E0B50440807F814D7C2B9B8889DF8ABCF5D0464289DC7AA998BAD8B21C16C6B35D04809C6307A24810520B322105B2333AB8CBD04A02848C537916408256F802306F0053DC1E205A3CD1B2A00B3C129",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("06882944DA23C1E1072E944397116D41DE7DC124C501A927DE03E236A2B6EE0405B12BA1049CA7341702583747A0DE154F3420040CB903D354F31126B907565388EAD2ADFA7F2598B425D43532254C40DE633743862B1C7E1F031CA54B41B11A3594F5B677DB7454FA744F1FA0FCC3F02EA50B15A45D39D94614D85E180A0E9A44442E2560622770B234F339C8121DC01323102C04D162371331661857A84F331E40740EB3C1E2065C33A520B07C494AEC3A346AE7ADF203C7B050030B6C9D445A584929CCE5850B2D84B8A984561EE3101803DBC080177088F001AEC5C5AD9938F381201D68C05E5C0609129E407C861C8AEF8ABDBD106524C54D0D4A6C886D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0E1075D291692CA06831250CB4D94DE3FFBEBC2F1713B02878168855170B157C06C64522EE0BD418FF13445295F40686186083A067DE8F5DFF04791B451DBAF716A8E4B5D31A2B1CE578EBF8FBF3CF15198B8E84C51F1FF84FF04E2F0B1E07885D25C1FB08BADA60B1F5169D152465C1841376B02A267E75C0DB06784275AF576B276207DE454B28C6D39455260EE8C022BF1F9C030B8C48F040E84082271FD301D70267182B38CD9AAE5F34054850D9300FDFA10E1C01DA259E68859028DDDF0CD18143C3290C03F706BC08B001DEEB0632C00E5C733AF039BB013783E1842002A1C00BE244DFD5E5C0194AA3BCA1E3C071A0B6800B987B1CD8B5036DC77A1D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("385007398AF835321432448F6812C855726026C081492ACED7C2393D2C213288C417946E269CC07883F9DBD0AC69267038E748153F8D198FFF654CFA79909903AA6A4D8C0781A5E0FA1D175EF30160888CD729063D0E106990D3070139D056D8251E4DD6FF2EE0C022E1A7F929438BD00F0C26B8040EAC2090E90A45C84359489A0B942A2B5AC1E881143E50DAF8FC94803407073355509C41BC723A0518602E928B0E35989439402642988C1D7824E28AA32BC1139C826EC6BF2803F88062A182032FF5B7891A0DB0110B85C56BD5030EAC3A4940325507FE3A4D0E887D0D415C1C86055E5D1BC95303CBF0C0030F333F3948260E38644194070FECC0A14209",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("25F0160A30011924039121384F9C3B90038343694F24420C00DFB5D45B2C0E853C7C52B59EB8CA48E94FABB9224A3D020BF3083D975C9E6764B9B985C04D449D08D25FB7B68D14898B658BC34C0740B90DC2DFD986C79DAD30702BD020150D2448E8256903DAFA8395496F17C4978CBB6ADCF12741D5553D400BAA4E33DBC703A14BAD1619C694C077A5A87B9D607CEACC5E88BAB597FE871C0B14AA801FEAB485D2C78708011C967C04F9741BFBF291581BC621FF4006DE1DA26E75C90C7920748D6D6B907AEBC317FC3C03183291A74FE1D5B04AED42B954630DBCD04CF536403ED3296028DE5FA00C8036092D4C38000F10B48D638B088C4CBA286DDF7964",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("09184424CD0468004718A61C5ABE8AAC57D6CF0A783D827E2C15DD9DDD0C1E24649F6C11AE00A47906FF8AA8D93A85A17C3171011831A4B00580CC7E632C08F8E8178D6C6D6520F020A1A5183C884759020AC5CBF636039713824A03D8D598E0237BB25C3AC274EB0429C728D9A3A07825C3B8AD67836FC40981FD2A80058356127733BA7E05BD200DE9F4E1201F2C988B92958FB4962727FA5EB4E865FD0B0CA8C8608D549C20D8049E8E4B840DF720877C10601654E543380520FCFE6816B4627FE5165C4D562674A4697FDD0136BB8BF1BC1BF6F934D5CC962E3E684AE10374A12D89027A33DCA3859B1A28C5CD0F60DDA5A5F7550514AB88C3997043D8EA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4303B88DC486E8C5983BD96DC6771090FA2DDDEBDB94E8B708DB2BC67E1B7AB053C31A2B46C603F668EA3B785FFD0443617CED3F78E2F5AA255E42108420010C3D30B6B782BA1C402BE9AE1C3BB07CE610664102B81FE03A129DCD1BC639B12E0E5F4D3FF1D1FE3B81CE7DB65622A5B38D29A0BD2B10289C4CD34A019428E17E9924370FD80C9F1C158A65DDCC1CC6E016ED115443E1D65028740EF832C06D0857F8A9820056295C36DE0EC6ED8BF65F3286400E60013468E34BC7DD504D64098E0070B64823402CA12D687926D8F4BA441D81F7145030DF25BB9A185020240D285D2DA8C91A7DBC2C03FE82F553900A12DEC9000DC02AFFADC78246ABCA1931",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D14406E0714338B99411D69A95970A00FE321B7D7C39E07F4BDF8E147E188CF27D0503F089FE8341812C2689352DEB168D7783B87DB87687B61E040CAC2C40EE9B149EDBC320923085F63E6FF005C2FEC69CC00BAB2CFF10B155004E6A5809EA657B7F3EF310E43845480B4C50B7D9DC94F9301B5026DD0558371C9E273540CCD263DF302F35FEF4D9CBDBD2DDDA0D6760BD408E628B26D3EB0D492AF14FF7DB64C38F42DCA2F3D081C17A4FD12DEE382C0F7641BA91F93BCB2E51A96895DF3B0C408ED023EC0FE207802636CCE1C50C9F0EB6CC0570DBD827448E4CC430006978737435059110792DB2E8213F7518D91CA050E80598A3A80732A8AC509D6D5D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("49682A058050CCDB3E0AF3D8258428DEC187906F608CB60F01A92074193F5F7B097990B0DD05C0EBB81F7AE3292AC4E747C1710BC9306DE8F68ED91CC3F00BF4C305E00F53B051543373C824831C20CCD801D7A9621F40059F04E80568C87046A3D1A25C0EB40E9AE35C1295001C4B1C6B5B5F4145D28B80DC0CBB42190320068400DE31E5B754F77D00CE58638C79A737950811500CD9B85A08A5FD50FC704BAF6E500D143A0FB018209791970051500851A419E4C948105140387C3E2F39404051385148517B27DD80683039131838F22134BC69489B8E285122948203EB1059294D3C3EFBD84CB0F6BCF0C138BC488B843D101E19D1F83D6806E856583C58",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1BDD00B095C4A006085C6802480EC137C0C0AFD7077FE256A524545A604E54E8800676A63C828DE37C28052F57C80CBF52777343DBDD84F2E8B655BD431E03A0306D26E41CDA2705BCA658DC0CF25BF33E74281CA43A56D1A5F84BE24DFE5A1C46D88C0781C4260BEADD1BDD607CF1253BB5980F8C544CFE8BB4DDD955B8E585CEB93F02EF1CBA104CE9A6EF7BD5A51DF89F75D45B45E2091E75E955FC1D0BAC15248D602EBD08312EA462F0600F8DDBE886D0D0C0B84354435A2D5262A1D4F8BDFEB9E447662D058870509D7CE4C6B10B58A4C198DC914F11609DE61194F7798000308C8C5CC72423888090B591CE81A860C46C0C70E4C63EF52F783912C184",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("189F37144E0C0474ACBC2417C6DD94D9036FBD83ADA21C4D44D1C84B54A128047C3B1EA6A81E98C28B80756FB1E86872DF79AE4E9E0D0E5B12696C694783700FCE8FE67E7A483AE8E486C474C6807636B4A02BC8E65A5849216083611A72C8F3870AB1D09802B0707290C9C62BF3A3DD4642E7CD7058DD8408CAD6DD8F1F9AD888D8DEF15A440AEE91C94FDC5EDA4286B2C6F143CCDBFB121B2A3FD509FF4032655883440409DEDFB0F1497479DD43E805F0BBB6F42651737328A96361EFDFD8E911ED48CF1E8C2789019429DD5BF0B474FB66E241DC5BF87E43F89ED2B263AF11762231A41F7D5EB4B2F32184786F6883C7034098081C88858C3D328C021837",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A481C4B467A41990073E7C9C870FB4920F1833F66C200FB99207D88EA9543BB0B7999091294840C0913BF0853E05D051EB407221CBC9C8513038381CD96C4E005208520C52F8513203DE813033D84F40061C2557E850431388C09958B06A616889A2C590203DE94249020D72073EDD695EF10F429D92C0DB63019B61C4B07537681E3038004E8D47F0AA2F3061A3287319461E1E274203B5458A2E21740339288D031A07C80327185E4F8E017375B023BA1DB8C0706A23C5DAB856B46E40A73E25D04824E8259584343F79B5500F8D89878C0C32C9CE506088DC792487801052448ADB806B7152254EFB43D20CF21852687878C8C8C82550585C019709394852",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("68285203C809E42080385250A511742160183EE06C607BB220B4B5CFE6974F38D1FE7424408B74605240E8789C2C58606A5FF05B3CBE8D460140A95C0F47F0456927E3D304868565EB06AC8C75115280F35690F6EFCF680322CBC42148B4190AF06568381BF6604E18446E48DC8C8EC8A4000F01EE8ACC3844464EA633877410408017F5746BC6D20E60A924B2ABC2CA9006E4904390189051D80049B347B7D20AB43D70761C1D6C7069345F80F21B44B15083C6B52C9C2C8350772070915A93BB1F36340239500465039FA8A41837010EE2025CA3D4A7D0BB9E39FA6E640C1B6C014A700B7877A38B46803D9C15340D5930B39388805188222A35FBFB950012",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("29A8D68D82D7DED55970D0FFA658D085A54026EB688C4501BFB7E070C21CBCD40FE0B9BA2A6CE804CC90756703E82A38EA5A7FA914BD4088E9C7FFB551B15CE65C0E071F6A4AD9838C05ACBCF41A03856F0EFE818DEC1B3C90418BF38D1CFAB1803F1F95D01B64D3E6F7DA0CD613C28A50950673F0C7020B34D520AB4A1C9033ED9CBC1B24943760759084C91466DF5CBC9A867191A2011CFADFE08D1C8295D20CFA2E039E31755D270F6B750681EEE16C7033BD3436BE08060393ABB49EB6EF6D350D648E30894749087CD477282FDD1E877002184C1BF792371AEEFD9B988B838CF802BCC003D061CA8B95CA7E16FBD6A367AC382BE3C240B9043B87A040A4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("14666A63D9E041974D61E4399C533D3BF8AF5E77149E74D9E1DD04D540B3D3D8A1CC014DF5549E0493E1622DAD6A0D6A11A9EC76B2AF30C31375C13CD39789B3C690B021D172CBB0620A65DCE79F5BDBEF5BCF5C0C0F10CD94103845869186936C6454BBDA6366C649FBF1DC32C06C64B15206D8A37E119E7732A81C67855C4199B0071541D370B0DCAA1A88D88C0ED18D3C9B989E15D3761F06302DD23C787854D5B6E76DDA0F237A80D96A77091016A6017935D312E24DA2E647DD1C1055F24274AE9B11EB7FD8382D085BCB17DEF4FB2712C11B89731833A15308DB4CF0B7C879B30A85D2DCF93BA08A93560CE42F6EA0A883037AFDD7FD44C408D8E28776",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D8AAF2E97CF12B61DCBC1B20BC5C778BC6BFA2144A06BAD6975FFF6464E4646864B8C039393964C880708892672019D098F6717006396C147B609591BBD63F5FB9CAF919F9B5575E0CB5C68C245C3EE95A3BC91F5E9CF9033AF180F4BB558D14284187435EE6FA5A9C9D51E3E7F7DB4B31F2919DDF8B3CDDBC591AF74CC849247C540C52031CC51FE8728BD8B9041355A4827D058BDEB6C2905C08B0A2C7458038E18BDC469E6BBF45F9039ABC35BC01E7B033EFDC3176BD4F08930FD7BDA5DD1F8745504C8BC6BBEEA205D5E5828C39DBA1A9D703D815B316350B24FD151E2BD3428BDAD1FA384FC2A4AB1408D086487804766D401157AFC3B5F6E4AD658B4C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4635F94A5C6D51CD75E1B5EB6A7F501B97205DAE686545B2B9AE6D5D73EB81235DAB06A45C9C0B6599C15CAF7A88444D9439FA023A30338D4A0833F00D218219F8D36B5508E988711A1A293992D76100535CCD923069286071F16A4360C5D0E07CBCB17189E42D1135E83ADDBAF5F3D8897F464648D469ABE76270C5B4E9E065DB2DD2841C1A7D64A8EB852C88FC5A9BD86B7E7E7B8089578890E37F7B740A7099AE8AC77F18CAC09178F019CF306EAF19B7B0598B80BF932FD8050C53CE1853B066D9A92F83D41A1F60F31E20415D08EBCF02C621025F000653131882FFC40F93C8C8EC42EA8B0B83AB209CB7D092F30B899BC0431B571802C276DEAC18B57B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("97A85FA62F98DB430C33FF8DC08F874AD405208C94B809665F1846ACB8740C42A01EBC06793BEAE9BE1894D6D2D76F7F0F8DA89C0CE0B01B601A5B42CA284D9D883C0FA706837508252C0636958C3C933040D9D6C1238C18815276091FA4639462E2F545CA8F6F88E75C5B3BE8CD68FFA660C1C7ED01752AB7AB845A95014487A17C1FA67A794783FF167DF0FEA50842D5319AB83181DB0CAF870C7A33080CC784BEA17038A8A4182D579023E4612B89489291418E545868E192B4ADEFD5C10CF287D914D99CBEA490692C05E60C77A2063E081684C0D691ADBFE4E4A038BCFF4CD439E4E4E4D0A0907090236428707CE4006464809070C94B2664A0A0A000A6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("22C9C99070E9D4C3DD484ED07262442E90914B0DFBFEBCB039F2E44074287A247AF2313919A8A031BCE408F9081F9E98C8E7C9235C54605478544266B800DC51A87B06B964A8A8A09C610707E42156629004A4801D6B43C3007A53A8659F522DE1E9F1FEC0C82F0307D487EAB8D4E62FC09F6AB3BAEA1C08028B0D89563232F2EE188990420BB4B0AC2C6F3632A8A44D1C052024B22CCBB2282C303438CBB22CCB3C4044484C502CCBB22C54585C6064236FF0B2686C8991BC0B9C982323232394908C88F23E23238480517C0578B30B04CB74707433BC0BD023232323CCC8C4C0242872004D346E08A52B6202516C6168248039CCA453C4006015E3A71D5E5F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D958145FF23CCF57BFE88B958D859D5C81D910B0259BCBB08A1E05CE7AB1450C789C24870A44BF8054D12403C89CDA87722D3924CD5C6C8854188040E6A590063247237A74557B8C7BA94724A067DBC9D135A05657E0A8C085C74383DBDC5133A9F1D23B81542752818F102FDB799C85860D7744017C192B39422E90B9BC9C88E19023DA8625B94026E4ACB4B06C01E400C0F76181813C2A90C6C151C02DA2B341B981391558C1BC00C7933C0A1CF3B7C8549C28B90820F670B9402664D0D8D49E09E400E870900293E64270A008C3BB8A950C66DE0F289061AAE1B0399932804CF2F0549CDA214714078DFFF8036402390055FCC82007C81055BCA0A6C1D41D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("942C5973643940057702FF85CF0536244785BCDF4A413225B0E02FA94B7274067C8993C8C8C8533C0B84888CC8C8C8C89094989C919191CFA091D0CCC879819191C4C0BC76D45581210F64C5D85508051648676389052305DE565F02A6C040C1A85D94369BF6CCF785490435C7290113F59D81401A00DACC336CDE67A4CDA344B34A0940B802D1B0D34DFFBE5500FBC021B43D2D9034BF25549807EAF53FFB58AE583865B965EC0768F73251122F1FDD983D64DA88D6FB3248659F888F7981FB0EBD7CB4974AC2B6B7E15E8BD1640613E72606023AE8E29B007235A1BE77BAF64F761500A7494CC5D0C31D01659B9F0404DD38DC04FDF2A1E042DB80DE3FA908",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("56CE1EB1AC5F2D181AFAB8C01CFCECDEC143211040F8A6490CD6052D2EB82EC22F08041A225729F55F8817A0EA994095F6B8F0EE24DCD1EC1640928FAED2948906F18B1BFBB0192A45349B493F61865321733861C6024F0E689E1C9B49FF009B77BD5527D8EF3103C69190582D0C86B98B48AB9BB35DB030B8F0BABB08F1F0D482C8F599440581A0609C7EF2A595853C940C5880A74AE4C913C86888A74A7301804C202FBAFE7846DE9B7833DB68EBF59C0A6EE4088F84BF568DE5B9E0C7A8342489887CF2437605836C3B23DD60A3BC6224B749980968A3D30AC18F83FB747CAB6923A84D7F0604657CB79581080C5E84E2A45664F669E985FC24F80BF46464",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6464F0ECE8E464646464E0DCD8D464646464D0CCC8C464646464C0BCB8B464646464B0ACA8A464646464A09C989464646464908C888466646464807C787416D6210313FAA63E540F72708BD6BD8B7461E3C0733F7F7CC38AC531A7C0849BAD4F1A377E3538574D53C957EDC40B1C3B7A08254826E4A289505842A692E60E80680E850F6470C1FE1404C6201372D07F808835846F606778485AF412CAA82A2770298D1AC3B9283B100DB0540DCD70861B0560EB0526EBD99CB5D597DF6F40E5167D2409067EC80D7F09DD43DF24F07BEBC11B147F0692B6B6764D02E6B0C7BF3F99902B98CC0D0F8D3B5DB2FC4CD2C7057EC40ABD810B9D9ABDB71FD394866090",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DF14851C22A0A6AF80FD7D80FF18FCC8070F87B260B06E1E50650C59BDD60100842517FD1CB5330D3C440264273378C07EC802EB78BDF42D61BD72B00F4A3C5A6904605FED4C432D2CBDCC97E920B53B152C5B81662E072A34F2ABC48D5A6F32830C3B47A0575B09FCD91180671E0EECD045B6ED696925A3E1AD6D13043C6666C6191F0D32ECF9000034429C91011CF622B8A53F1F3C5BFE7C1FE4853C1FCDCCCC3FDCFF0CED4C081F17B7513AA89F92E7B53B10C23E1F3041BC05D88A77C8C15E6C14674A289880788121A059E110259717208F44BC405AB12C8C82B59579A9E0CCFC38CF384C4CB65530E938FE9C967C6F35030EFCF3285D90CB361A2944FF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2C1C5E25CB2327FF0C01019CD092EFA586750E0C45705FC9F746C39B0EDC451060C97B6B18C18A8C45840C0D6148E7375C0454950DC6C5A6E3C5603E88C53FFEAC1E0A1982A9000000E05C745C421EA91E2ADE4D816928B8CCE325A763B0A2E3445A811C844CD00071081D07205742D1B1DAD0E3D445E31CC9A9E4745F14601E2157C99188C4850C0152AF08421E2A249A999987E40979333393348037E0C12443722120B8E42AB9E46C2294380E2199A220280E21193ACB144E1C421B3ACBC84574724A8602AF68E0C14732254308207C58553225B8A7402EEAA9F06E942A198200AF3C759CA2E4C8185EE32A79954CCC6C5F722447720C60F0808954C855C0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0953945C5F074CF241898BB5405F52491D0B999017A0C100954CF290B070FA88911C513230188E6468C24C7B0C4070086D48C045749229190AAF60A039922939000074B1089029B0C850F2D1A914AE47B04310E014736CAF3453945C25C0101092A98E5EE3C453C9A1E388E3645F049223399260B07802A442AEBCAF8D8F2819061F852B8017F2C165666626D139420EC945AF70D04025979CE49875D27C2453945C28102443C72128CB046843C7214ECBB845C950804374AF588FE4914C70F85FD040255332246C983C828E55A97844AB640802AF2CD5718A92B8085EE3A9E45532BC5C5F4C25AF92FC7060B832044885AF05C9907C04CDCCBC200CCDB2441C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BF3E64482E02AF51089C644886A0807AAA913C249770CDCCBC43904CC9202008D0AC51845D63BF43018EE4FC5D3EAFB02547322551503225473208F0A051322547648002E4A863A9001C8200077D1CAF245A1C844C75E3B000A7920781005EB45E994A4E25545FF4C854F22A6860B420438054AF043AD68E4C717455E1FD199209190C0303AF63C7083C7E4C03645964E85805B1031820B942A60C035A4020E403908624170C02891C186DFCD0027EEC51B81EC7C585EBF93F17A5A6E2FD8CB7331992A72586308005709221007FAE8C05DAC8F20104CC5B18FF80A3E81069F45C238CA360C9D04DF04BC990BC0107A85E300EC9910C4880E85FD8A364480074",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6539C0AAE8B55A01C8020C22FF3E80EA2A7A2507011C5A3B20390899A800A1102AE400168BE8440C9366BF3BBCE411C80000824C645CA62A4C819489BF83851C8A3B5C5E4AE4940C453BFC000085BC4A869C306007C80D185F038AE4853C21666696F041643A7488837CF7582443038E965F1084252A79F041529043D105E7F823803FC88901374E5FA0C01CE4854C4080C084DE5A6D2193C4FF0352C72923DC5C515F145D4543E069002319925332A0A0C040523B922940E045541C4308BDC30D940002346030C79120068C8A33912A7A01728633145A6D20390899A40021102AE40021457462C6BF750CC06D5EF208E4803F87954C5CAA06A640842B2C6468",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("409150A764281A4A6DF4803FE4553224942860901B9002C302C940540E73AF801703A6E1FD6C0589E3C890854724890A6A0602E10582E183901CD1AD080639928B021B9CC8E9002E285DA9F2815C81E11A7A14F6666666212FA21780BFADC0BF5CB26872008C8A392CA668B590DF8D6486A24148048D3C6428BA8A47BF8DE8533224A7C0BF880006A4882647953184380675E5E9C58055D1AC05B506A48A1E8BAA05EDAA684A2E02A03F413210F2385B00352054C800ED11F2223A2CC03F0040B802B9E48CD9D4D87224530DCD9C2C88421C433CF93F1BB02219DC6702E40192016666862E4C803C8E3E00152043038E866794D054611415F034516968A700E3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F378442F1AA7C03F278F6DC9113255F51CF028AC620C4C1D061DC9C53D30F3870D984A86E08067E4A9401EC03F6666865D953C0290DE9800065C153F346742854C143F00188B4A0F7906C0E7C923A2A155403F920D42720572BCC84A2E2A0D04C79456952E64C03481B622198A3FD463F2A21A90679372E4283901F8598C06C08E0233004A07152EE43333EB4C8F9A394517C99939802794A190624B2E0CDF155272B5D9348FC0602143242A42A6E46267D840E4488EE47880C057250F0296129051804C2530F20A21A23FA720C0850C4513833FE0AE402E399741A4B8B9904715A720C08C248FA223833F2C5F56244772E0CC6CE18022E77C6E49683E874012",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3024E199DF8BCE4102CBD83CC79600D2EE6800634E2427A0361F4C6273A8400E986F0933A890A3E4E0604D9B49A09C9AE2CB4B110BE7E0624D2D47140DC4E4806313511B936FF5686625D4C6E44B475C6727A331F952471068458D91BC1447B08DC937AA2B475069B1E4A5184947C4925751B52F9D5CBC4A7EACF28463106407811C840060A3DA181DAB358E8E957C471468F3B43225074054691E93032047C8046AC810501B3F4D5C014E549FCACFD457940C8078608C466324611D8790744A6756DB1A8D910C0865C70072346BA8C1DB477225434820BC15551B6B474FC8100478A244CF7C7845C9000858677295BCEAF30C68AC922939004C69F0981C0039",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C0006A428680DA5F4D642A71A2A4B29FC8648A92AB7058356148A64C4CF318C9D13140DB00A6E4D0717EDBA068A048AEE4484000A26A63EDB4476F198200AFA72CCF74AF2819000050671092571DF304680190A1E390F3A4C8914CC94469B0B8DA58C900FC890A39A87F4D01902BC0A99ACFBC8CE48A926850938ED168A14A67C94B311AA347F8E4D071187EDB9868AFE448A67038D040DA583224AC20C0ABA88FAC14CF250740866CF863E4AAE3144867F3FCE45572009C683C69920190ABB0F87250B5B19F4D57801315AE82CFB0C9917C24CDCCBC608443905C204866C950AD548B3F3C2939745C3EDBF067C9943C92519068081CC9951C30A0A42AAA3696",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AFC72108F0B0FCCF6463F3C844C855F000E42A79104067F4E455720094683469920190ABA8F47250B5B1BF79F03A4E11B22E13A4624B8E8E55B513583910551BC3B39623F201041B65E449A346890F342543B5A68CDF3025AF28323333E8679992473230886880D4C6922328CFB44A5E04B4D4B1E42A794A5C63E8A20351B5D3B63C4B551808B9A4D4BB4632145DBF4B9CC9D1A836D9033CC8443458784BDCDA58C90070A70839A8DF92B76E684AA648579896B5B192A33350E345278A24B8D633B40A4672040121792553331C803F07A210C72067EB33E06792213925A0C080C69223B94020030E41D4EFBA2DB1B92A7A0154637DE440546D2CF30642AEE8BB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("957D8CC468C0AA06DDB1516D846490F98816C8A70D34687D2C190039D4682413456DFF7A45ABE414BD0CBC4843D1602408BDDC28BA8D25031BC9151DBE409D6CE18C648A569DA48C64281A089D7CAF64281A309D28C0BFDB583224C851C921880DBFB3C90190A34DE07864BD28BA8D11C0E7F00AE4154D14661867644AA61AEBDC2C108D88867C054D05B731391C691B8053901C7AC24EA62E4CC0834041863626430383D4BAF0A2E81FC38221D0A029645CF0D32E2E5DC98C001F703234684AF3D3206E23C955C029AA018720C4F583200720BAD84D74649D28BA8D2DC629D140C8154DFC08052E2E0D460821D4952EE44AC074D92407A2104D146955720356",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("83004A26400EC7903845B731B9CC3B2DB9A217C8C4354CC9DDC28AE1B374EAC2855CBF64015532546139B91841DCC6DAB847457255030ECA3783D0BA8DC9557049C815BD28CB6B4DE472AAC240F8D120C01A302517CC8383199229196CE00C4840B73153F1004650FF04043406E2147F7C3A92F05D7CD8BE206A4D8E03DC1012C88D30463E4CC0145DCC84805F40E834FF1DEC8BE84CC1D850CBBC41CFFD9D0E8378A2377D0A5835288C1D520153C11E612DE57E4FC4760BE408002017023538412A52A2E851A4E46BEB1DA9B78C4341CE1CE77A6D838907F1EA5A44058C7E0A6B21A217D95C3C4543094FD4910101ACBFE035851FA7441545506D0C24BC49A6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("61D9296015289ECDD9841B9FDF82F0D80D546DC258035C039295403E5803DDA4306970F97FC18A2202E1FE087E80C0F603C640776BB485F3C1E6ED24EB200D4D25A5B1815A4855169E459A6648DA1C26183C20D9429AE96CDD5CD04E241B9226403626289C9E5AEC5D4830F94E34271D699E765176386C6C00EC05070156FACFD9991463105C0458A1147D3BA70B1AC9586D4C5309AD82A3415C0C5B056B4DC94DBCD92A58B260EF4D56C392E500F96C64150D6B2BB6694D3BB5550A58534D0636AD8661FF5E549317CB7C03BF806DB899A8404405B070CA48E171876EBEE4815C85C3C18AB470D04508AB852D02670F8D70401C190341D54A14DACDD3F9C40A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("90C66B70252F5135CF4FBC2D7981AAD14FC06AC90B54D34FC4554B5EA0D54FC8D7A05AF2024FCCD94325042CBF160E584825170F218D2FB8FC4E557B088B7C3A1184AF1554769D33D2B517AC25A11E8954C4240620F7F3C616C0B84E3935E894C4341766469A790C3040B0506B92B4D8361B51C0264A27778B5720544E1B16325261DD91D2962521DC10B6232B293C044ECB0F6443108505210C2B92EF2C37134E502BC1895C0D6C4C5BD030CD1268ABD3962293346415692B98B8500C71A28B1F42703C8B53EE2785F8735B40C2053A0C820F9638F28BC448501C4B6C4E1D51F86F888B73248D3C080F48B43F50F8CABC08E80215587D02A3DE3FFBBCCD6814",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8620D28DB40DF0A34D056C2E28F84603CD920C1900B97AFBDB6C06FDB41B8BAD81C6509C0135C9146C1A44D6491F20C84FB25C28010148FAFFFF2D10C1175486F821A144701F822F81C760F8AD2D610E90B53204E31F048305EC362EE6010C80373505910878D6F4A0BDCFF609E60C0F0A26386EFA0330A128301810804EF584B1C69BE01B40019D165C1C8D4615D6763DA64E4514B9F70439DE41175C0F4ED580AAB30DFEE2FD8BE8F7D98491D42B7B0CD8333BE23105633071F02103CAF7E098B3499E8B0FB8F35C657B723B665B8974444AB4EB9A42FB610DD88C9194AB1AC3BBDDDE998A54181589938B47899F05B0297AD8EAB648EB1D25A46DCFB3E20B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("38C92D1C3C673F7270D9CC21489E7449DD8437D8C501DBF782D91BD8C4CDDCCB2B1278D744DCCA2E14E09504B42BAFC40ACFD6B1031A5B507CDCC609CDB7CDBBE6F7CCDDDA5394403DFA6D4354DEF0AD3481E200D8C31FD99CC2872DDE23CAD8F9F37AD904961A0BDED3D30989A97BF1164BC40A8D044EEB07115881D0C635FCF4F5A2090C1A6C6094DCE011D82134808A49E0D8780A1ADE2347E440CE1AD0C6B060A0215046CE1EDC37EF2DDEC30F29DEF25E38ACFEBADE189C97F46B3AD8024283C5FCB5506C2E25D346EF8B91F04190E0859026D78D95BEB8AAA4847209C7B68BC6D122FE8B06371E8D4C10023C3C0E46BF418C169B986861C1832CD9C0FA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("448D570CDED70AE03DC2F7BF9CA68A2800042E2EC806B40D24EBEB1F47AC9E914346A838B0CABC419EED21B85849C855B5DDEE1BBC3143C30890CDDCC9D0D670EC0EFBC61983CB208C41B3EF0DEECD1505F60C5AD88411DE383B3C157ED4C439CD544738949FA369D8E1D9C066D8F006B957DC5C35F0E1DEDD0D2699FBB3B175FB2DECC7BBB460E1DC8FC5364B7B824DC98485D3C9F7D91511D81D32F2290008A4C806FE142F165F2DF1DDDB0CB797F826228579D20CFC006C51D80D03E71987D6C604F02972B1255376CF33C938050C868277EB7CEF6711AF3E848F587B6A678BAF283BFCC88EE8CD7D572B84955548420DE7B04787232BD88C36481FB68FB0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D84D6AC9447FDD9FCC601E7C13844BE0CC20413B97027C9E1B6122ECEBDBDAEFEBB048FBB1081F3BC87D79FEACB7DAC3FEF78D45FFD4414D83FD067C2EBF83C0FB12447C2727EFF40D484C503CC2057058A1097ED25B42481978A65010F329711002C10A77162D0E300776258FF0258B46247047A462C70D2C2CC255374DC5C22E092F2E2A031181D1752D1A03C5F0F43EA4F3CA773083BF00720B083ACCEF3E47EF58690D8CEF5CA4303BC29B660C203BC17F5F3FF074CE1BCBC0970F2F849BC20DEE0C4AFBEA61F0FDD5DAB5AADC4CC4200C8CC45A698BDDF7AC4045817EE30FA9A0F874166DDBAF95E81072C30E218C451ED8D3DCF33A419CB4FF207200F6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E459180A652873225CA7B864E0F17259EB572019397959407650D03E23EF2ACB68600D58570829FC204B37407A0159BE0CE190535842F11F5DA4223C13057E308BCDEF57A2908F5F8A10AF80D04D6F337169D11C54AA1043E4F681CCEB0C0D059D573C1587005688948DC20BCBB0DF03D62F30407CF376D87C84F343C594343002DA848774BC6A0A279FB83A79A8973970D1811F8480857C972250651A26D96A10D1BD339C4EEA1221EC94DB3E2B12BBAF6B74D84E3044F0D95DC1F645DC1A941A6A04C8EEDE866D247E25AF6E020AD78B681C08D4F68071CB000048A909C8C2216B93DCFC84110F3D1BB28AA8284E495C34203BB669AF42440B9E3818734035",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B41E268EB3890443E0D5C3B41D50294FDB84394AEBD777805CD80B1845A9083B4EC2F9955BB1F2FCD5079BD90530E40BE8B84056840A34408184208E84EC2107F90C5A2354475C49C3D539C8455847E102EB300581F67F7CC27B9480FD1C28AEFB0B74EF7809D9C1DBB6F3B4152C78514C720E2405B9633B1641E5764B6E588435968B808AB6377966DC6242B3BAB0710D8970F779B81899E3DDCB0C9A1233700B52E270F6E770167F914A944712428D9FF52E41201B8C6D05C87ED2583854FB9A1DC0EEB46D98ED126B3C840005364208130946D3C8B4577B731455EB3A59DCB642DE5F218BD1D902CDE823E482A4C4502803376FF317C82BD00FD08D34907B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("374AB8A88D44F5FAC2EB4A2DF0BE0E58408094074678DE2A3CE13ADEC31308CB2301C47825CD5ACC688B249B096A22509CCD7F1F59BA417C038F90751F3BC27D14980104CADC444A3F8323FC6F40277CEC83F9157592A5C02FC3DEDFAA89638DF598A4010CF89A9B1E94360DAB8B40B6E9074933EDD982832483788DB1D68DB430CDF4012718993471AE7E3567048443EB03C6E819709FB0E8AF587AF604910C09D8112681ED3FC6F7DD5CEC208F34EC40EB50D8BEF6707B0163EB6F1887339423E8894169BBBEEDC1E00900EC4DB4C740577FFD012E8F409C3EF75878D4F72DFC0CD95C78D905423BC57F23DB3CA3097820425FD8F8402B3EDCDBBD3BFCF71F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7EE13DB52873F205B8AD66A1ACC7C103CDE42043F228408CF4EC4D00E7790F75378750AC4ABB01F9D5C14094051A8B0FC30E6B2ED98FEB0653AFC4DD14561C79ABF8B7E870D88C6387CC466C6D739CFD3EF2007BCA46DA2A949428448CE42F1F59BCBC28408C510489398BBCB74F40D925EB8B63891104166F7F3BB70A8981B2E753FE0897D0CCF3E835C003F215187320B4427E3C0EB61C76B4E80E798930733812333CEFC8528AC140DEC21348C9203A6B7EED2EA04113009D8F41DFD14151184B0D8C7C8DF69D602A8D94392BC8DDCE88667DB6706C44C208DB24E89C0504C1477427A052893D0C06FA3E19BABB660C4EF3FDFF9D4C0B213FAE5CD5ECDA65",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AF7281A31071303E6C8C3FBA7B283BD003577C325A366EF246E04D6434276EF24CB049602E8DA2D29BB442042E408B65A7A5550B3E7BF09B8043FC7B08D987F0001C717140877ACFC04E39CE8F0A81C0CFD32AE15924C18D91236C5799EDA0C51CCF0DE2B38471EB0CDD98920B30A2F9369B9E8038D8C90F509CCAA80377996E130E3276083E0EF60183CB69D915C0E1A0AD7CC8FEC75199DD95F88B0818A01C0820A0A210B5167ADA76A4153428CBB93739B6D84BC035302236C99376346648409E4023BB6DA1E748CC03A1663530695A769C1FA648DC8610887E7F180F855F68417F3117091C8B4721240B5BA448C098710A8BC5979A08060EA988DC0373C8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C8C5038C03F828A80BDFA2EE74232F3695E20927D2A6782EA94AC0FF59C2676E030A6C8D55288DB51D7E179B1BC8EEEADD85C0A2BC2BC30B3B03D9C1C40D265C97CA83293941D893D7E061F0E640A00C3E4568EB10DEF1CC33689A3D788AF388D542CF138F90709AAAE243100289A53BF57F826FC18B1C5388228B298B8879823930BF90C2B8D2B099B7720DDFA01F4AB83F6EC133C0F59D36C4DD9C8937853AAC88C68D75182B3E6C80B0BD10EE8435C59247058B35AEE33072C9C8941C4872729882C1C9C9A07218122F37AD46BC7582B0FED3B4E4A420F498A019E4F3C0BEFB90729872B0B8549825221F71C85A6B4DDFE6E8B119DD26B66FFF75478B3D13",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B5A769D5A0E736981725EA7384378B5212A9988910E407089C467EE591A8976C41F62201354D3E2218837CE173088DD0AE5C81C00380FD020DBC8115E217A96B0803FADD9BE0DE6CF3DDAD50BE2218550AB73B764F39B45C8C03750B1E8A85FBFBF6C745B6362F4781152070119A8D34811402CC101C66D267755E0D03B133ECF34B39EB4A270273762B1C7B85ED7110805365674BDE5D14EE29027D7B3008DC33C1892C529F4089BE2E99015205B88145F5B7871F457F4330833801180E8B4004AECE690AEB431425686364F6C162ADEB0B196CDD7B1FE2E467B8B08C18D99D4AD93D41017C38D91AF781C4C050009B6911FF0611420E1C4F54003BF0B8C59F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5CC92980FD5873D8A7C2CE9B406069791D830E6017EE0F60234CC744C1945C4203108602F80AE10F57C0E760C0199741640F29EA3072C815E9747058E40248072DF768E4908164085874069001196C50080690434670681064E44046040450563205AFEC451F201940AE00F750080B4430197021A039422E80F6040848AEE40A0C408E8A7C0581649D3CAB51ABAB98339F90083C4900D2C97300F700CC481C060D6CBE005E5EB490F0B42448B490464606F9B4909090903076F279C4B490B4913B39E405F0B49050B8EEED56E22D8B9B2C1CB402780E2229C8F4794696E6EA50C148CD506C9E91A7CE48CECBD873AB00AEBDC2DEC5B1CBEBEC37EF79CBE0CD4F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DCDEE4D9C3D9E1C0006F471E239CD9CCF078D944950530D86414749576EDFF0CF27CB424403429C4D8F3D9CE24CF3F2390CEDC0D2074507DD22CCBE7CCF0C4CDDEC10AE0EC6EBBF35A34D72980EF569F4283C1E5690E64904FA0984A00860D341DE842A5ABBFAD8D441602C12BD9870243012CC1E785960A600584E6DE40CD0119792E2E347430CC209F937440387484990230F3E548B6E5406492E5E485F0E6400AE00E3985DEF4E522931CE42E6074845001DFF3F168CC3964745B5201DCB740CBDFF37460EED6F9C9812C7FF0D80D8074E0B506EDDAD8D8159684A636281EAE4131D620A411500AC4BF402E80292FD8EBD9A1287926C173392417C9887410",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("004E09649001146019B992CD90749874383007702119662EC825472E80F838004E96C0165BB7AE65BD242245DB95FAA03314C052BDF7304E70C5BA3A39D07DD87480CBCA01B2DC0F6B7957C829A3E87456C3F044F2021873FA00758C92CDE61875107508750046894083792121CDBFEC500885D274372BF356004BF4F68810AB20803BFB376DD954A810EB0C39EB050C3CB27C2AE238287584CE03C800DEB9880B8C7AD1CF9B90A9E30C3D79308C0530A126AF05901B80C33D89310C6E9FC02517C07619E9180917C0764785C1587FEAF85BE9E33C310BFC6691E05E0ABA1A67108B24794E9E0AEA318FF811616205F04908CB05900BD86315AEC004AB00D11F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("28D12E3214BF201EDEB802B8C1C40B68B228368790E7BE103A08FD0F28BFB7100E1B806E13DD05E5EB3EDEFB25FEF30F1094845C4859128C84540E161F6077B70B44234A0EC6CA8427170D63799F6058E105E89C0E0E6E180AB0C7D1BDE5F2DEF78FC349DB0E2DC313C8C0019F0D3EBCC8AD1167C44DEE0DD805C0749034CB2B53C4E4C424CD3272E0C5EDC5A403D81CF8EB1EBE4AB8A7061946480A29C4FFE13E45417CDD0DDDD9C1DAC1DBF3DBC346789C807FDDDA69F6A79E19C61DEF983F5909B842A3E4CBBC2BEEA28BAD401B10285B06F9009E90092D90087BACD441A300795067433E807B05488139047201388502A060087430A412BB0E8C2B999D89",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D984571430BE40DEEB3C5B64228BC26C237635357C00D323C891D3013550755875647390077875807588752047841C90750C424E810C109875E6E68864108994240871008791C0EA6D2703B01DC0D74DB4F81EC09927AC189F45421EC0BA1EA49B545BCC4EBE9BBCBC293B111F703E20787F38C85084C9855C0789F8F8469A07B452006CB08CE97080016805EA5ED23972077BACACAFEE00CCBBA3296BD86DACD1015C406E5F78003B80536C3B80811620B66D14816DAC8D4C2903D801A4776DE43979AE5FF805FC050D6F65375F17191D00B23B80438B6F011919F9519C0C04C82190CDA075A875B87539C80B39C075C875D0756400990A0C10869091010C10",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("14E448464660646019B9646474647074E49091016C7068391939646C08685C424B0E19084EA01C00E7EB884DE06464020E4FC0B82E390264E0E0C0BC642842E0F9013272B2D990739873B0A898432E1201A0C807C9D5014DC8E878000926E158F3C2844C653FBFC0391CC00773DFF22BD07333F29CE4F9F073A8B0181999E4E873A8B0934BE12287BFA8221730D7989D740B1042180889852D376E94C9780F8D60F56517F1F84106E0403689C743580F608052192CD60184E12778C8ABE00134BD40742EF9005E587404F97426191979B8C074B852F06946C0937F87C6B88C343272C0B0B8EA900DF20119E8A823AEE4025875F9D0C0760E1948C0B825254701",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A4F9B872918C5CE8A0C0835CC904B8C0B843245721B8B851C85020E89043C8C8D8D01C4F61AC00D23FF00265BE172C0FE586B1619B088BF21F1B44280CF6807C0834CE0C13E1EB418915A1C56F6C867DE09459046F0C8B501BBBB69A133504614B8201417C6D7CD96BB8F7582BF58D93FC0756D91E0F9C8E1822E2505F678B7E827333E14424230E4761BB48BB2C46046047D2C4CDED6BF84DF483C102084B30EC97AEA38B7C70EFB5DF3381C108040AC388B814BA127DA5C1010F60E149F18BC2AB60890CEAA582F86E19DAD90428B90482016E4A8B50BF5560FC7C508D012E2F5E0EFC01190002BBE7858C0200760E2C46A7A4C004DC5E010476E1369B3C08",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A38BD681C6FC42420738F139FC4E8FA44C70146616F38DC02031A55E1D4AA6E04F4742C6DD2C8D8E048E8B705C7B4365A0D80348B525C1474DC87FF48C8B1117012FBDAAB68BBFDC9D949642C2FFDFDF6E7D167E8D83FC0F0898041A46DE5BEF5804D98780300FA0C9E5D97D2E07E040FC315621CAD7CE7B88E438D91828A018985A0691177935EC0FE81986B41FA2277EA2BBC7BB17A8344A748D81FC03FAEE0CF2CCBA4596FA0C0C8341869DF8A3FCFCBDC81F5ADA7ECE6390FC333BE97EB307D10730E96F7B8C6587E640D418FFFA8CDA43F89D61980C4123AB187413B82F6E1EF8B800C28C3B081ADAC4180308E2112914EBE3087882F86FB19E341A04D8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("09812308C8C92527DC0CE0DD303E201375B5C6101DEEE264E43207A8E6E825A788211FE0037E5E9A48794801D38BCBDB08260CF59E73CADC8A6388ED0998820B7045DC6D45660618DC9A1ECC9ED927A4A561204C3040C427F8CC2D8E8220440BA8A9C263223E688208A2C7D9C0CFEC7C0797C18D20A0500E2D067B151F012BC1EB1934D24A0C1C60F6108E0ECDEB040FCBCCC883F029C0A721D2C22ED58E32CC74D8EB0FF6264EE107419AE6DDCD37BC41525CCA0F8F1F128D4368C11BD00351CE753136C4CF288C1AE8FE0DB897139830DD50DD48DC9C20694E462EDFAC3848500DBEF3199581D07B58AAE0ED7CA9A010B8E393D0A038D0C1831104E73970A8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E9836D76109CEFDDD5C19093939330F0F008E4429AE6403808480EB992E6384060C0400E1940D8D84E8642AE78C0D84E4E4E4640F8F8100B699A43302810E44A9A935028306839640039C8E0E0190AB90280C88CD10237C2A977F09846979A20B38F4BEA20AC2A86C464DE9098C4E77E78C88DD7B17A0E9A6AC1BD58887650C602BDFC19AB5700C4FAF1727A6D6EA36C9060DDB8BA77664F136790A967808021C8AD96D732A0E5E3D582CF890EFAA3DAC2D9383204DF4E8826C0DBD3DFF2B7082353DDA4F9981798C01018B02CD0559C607EDA80D9EA6BC3689DAB462E9768020D025CACAEA00CE875482687808D34178C787D48506C2B78C851050202B8814E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("372A7819D083F3D49C3C8D0885B302022727179C7059F008F0C921CD253840881C3224CD384060C02457C981D8789C8C9C5CC0D880F834979C9C10F8283090342787902830250772C868C8E0B968915C80E3022223472F3BD9DBEB78C9A909141F20043A8730523CA09122131F8BB8D5081589D3980879CFF5589164926B38D8C0E0759D7D16BAEAB015918B8B3E536B262D93F4424F8CA9739D23915259D355762E69B62026E89ED3C35CA5000653E9D879AF568E7713360D061C04609734DB74D0A0D2C226BC89BB3E9ED453DC3234BF1A6C0CCBFDD8C5D9BD57DA9842CCD8F1DCCFCD8D65A1AB40DAB3AF95087178A13526428DCA4F588813B50DA0C04334",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("58402E3848C38BEB0048B5E8FF4864003959B11A1A9201E48A1A1AED2B1A97992CC2D8C4F332EE14DC08EBF2CCBCB68509AB9F1D8935C815C18D26B30820572403F0D89C4C940CC0D8C0C8443280C01020572403F8E09C4C940CC8E0C8914FB0952637C50415F97A00935B6057E13A63D8295FFC042447729001180138AE3BB2713814400B011CA95A7238B8F8938C830AF87CC24BC3848A64033CE066CB15C0DF2A1A031460E6CEC2AF82813B2EDD0A07D9B602A43BE2DA1350D0A01C3E820D184EF4DAD447ABEA563532CDA3779D369685015F7B6F2714CC723580405486342AF4957ECAF8E0510F929D3455CB3918B84494887A18420ECE8727A987AA0EE4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("08E41818189FC26040CC5F11C4304841C5DBF3BCC37ACEF311D88482BE55B25370D9D481C382C12F9081640A4308F002399023D8C0E4420EB9C0D8C00219480E10F82B900339E0C8332DE490C8E031C1F9B4A22CC0DE3BD13108FE87CEA753BA3904015F2A0AE905D023BFF45C15716C66BF874F33D04083F2409D8B925D4BAC90021B2C1E0DE82E150D1A5B9EBF275DEB45A54020817079010FB684D2B7C776E72CEB50DE9632D06088B00D816C5A7B80D14CDE19C0494A1938090A28DE80FC9A040185D905C80D1DCC45ECD64B33ED5ED00252112AE20224FE76013C406FC107343E2B62456C0C3C65F2E56F55C2C403D1C665A49460FFCD30650C8B3D0893",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4600A10C083968C296F70A88AD2FBDFF34F88B04AE8B35142EC88D099FDFE7F6A00877103D185AB4241835280D9CCC6E7520332CF8C6D62017970C17F43CF3DE41F06418200B248023CFAE249AD880880A173C80236D70A806B68C1028447823CDF322395CCA104C0E922223709A1A3232F23120546876D9C83B01C927388483268A762023CFF864407C08F79CFC6464487405D8764D1864E409D0DEB673506C813B23EFC21F5864E4C9B4A6A2862CCBD2F02A005E21BAD95C14209EC861C5363997FF028B8421B5148E47DD048529860F1A8B76FAFE72CC94EC8B388C549500429C22BE13F81ABC02868DB431F0A36CC579E9F79344C384B36F24EE6E36738D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3C10492CF948EC30CE7E5A7D286583683B0744656B569666D02D89907C24CBC92939B9204420A098DD91607F050589C236F2B4E5933159848941183805F03BA8C366FD061582D19C894B45DC4178CA174A5A7642A2A7E011090D898DECE410003B523A3999BD1F0C640D08040045A84038288D7ABF6C6367CF4DCC24120D20123126341419DA798E3014504F50FB07F029D9842AA099D8B42A980C3C9B9C341AA49C37BC2AA86DA760FBCA8B1F1C1057460F97A91A146348281836E6E47622BD0D444819FE2C192B7562B8C04EF0822A29A8092EB01D726C2C1BA4243762760E6972E43A863B6793E664A4C9241EC30C3D0997C0A3B9A2CED7E27489C46E3004",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9A1EAAAFC3C9CF9F08C60A1313DF8203E8E4326E7A24E88A007E00775202D9E1F7D1F9849C76E6D172EAEF897B4283ACCA943AA9E06B1BB6AC1C229E0FAE88F073B7CCDEFA61F1EB1B3D847D20F9EB0A1AFAF34E4AAF189C0C4C648E05B73F6E097C8F89EF8B1345347F40C33E036B85047F0290898F25EF1D00466433AC88B7AE1FC1DC06CA186C315ACF9261B763C755144D44694E2E3902021E487604B60B0B435AEC9021E492044C042E6408B95004542EB9E44A040858900B1942085CAEE4428608600821E4924B0C646408B9900C680C30E44A2E6C0CC007C0D8DFCE54B5299A32DBD99850EDCE1EA6F0B5187E02744A220ABA672839009036C842881D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("63176D84ED5014C40985EB2911051786D95C486679BCF5A0FDA4BD0D0C308B744D33FFDE11462DACB81C0D33D229D386A1790B4D37D2C073006E04F640740F3EB900A0D106AAF27DFE704BEAB96C2DEB1485AF7309DB012323B4F5011DC66A58E016C63BF228B1D7E20C0F0A871182451603F8F9D691F1CAF87B2C8B80BC04B75EC2D2FD422E9003D72F613C4786A00708C2926E69D6FC4F651CFC57D7916140F805CD37055CE10A2760F6A51656E06B08C966129F27610712A880548857677F46D84D08EEA0E5C8775484EA72AE887E5597062837A525F4C2D9D50B646EE103C751B5ACA3B1C09CF43EF6B69084A74F0D7F865B08C13B73C2A1756514F76719",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6176318DF8CAE32D3CC33DA88074B874FFF61DE4F38F8D84F58CC4DC404246DD822DB67855E84095BC1DA6E34C66133BED1F7F3D85ED8010196B6D3B6FF2BA994866B5FC79B7B0E00E7EDE43519F3F8606E7E8772829CFDC8C3890E6732514806585C5D02B6130AB784D1BC2ADA43970653880CEC562DDBB26718533B7F00849BCB5BBB86BAB18BA28378846CF3FCD6E61C8486638B4244CE3F9209766B43831DD9C38C7B8F32DDC6538C9B56E2351945D2E7FFE9B987065EB1FD54EAC8CFD77940FEBD046D84C2814D944280CD81B888CF30710D94804204FF8423C31C92D8D4A019D68046689A465819BD098CFC298E2B738652285CB7AE680A8A3B99812E7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("603B450DD8C03C01F184B19C19E07BC28F04C717DC84ECBAC910E6151167301462E941F8B3C9CB0ED52719F053CB369E0D14F626E7CEDEC25D40281EB74466F92BFE8098C0247243F8A5C4559FD24B9400CD347B85D748C5DFC64804B083AF5C8F56C700754D4294CB40118F44BEAD1BE309E6629A58C37827F0EEC68E3FF92DC1552AEC2D28853090758C31C87B5E1D200D56EAEDBB77A9EB46108C1D283D762AACEA51100EBF806BC9EC0865138C2B8BD910488599D97048DB25858B51BDA4600437EE60D3ACCC9023E408303888E422B948705E08A9E4880B215F30F42A0A96277BFC6320CE243116C42658E08A1421AACD241A37C2D34C50800C4A8E82D1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("268F20FD60920B39426880488E482E90980AD788DEDE0791E7ED53E16DE33A43E8560D5871D204E6608B50684F74DCB4C37F731443785C4DA9090BCC3879480D659E258160EC9D4D5F4B494373D19B8D69C309379CF9A1ACE4D380C3B7A5CDAAB687C674E2C49BBD8CFF68BC30EC7E6B8921F015D6C526CCD18C1A4A41897FD880B4EB3C1C072506DCC2C607B4C5E93EE60F605DF63D82D32834D88C837C02B77721AD17345FA0F77CA5E88905E601C808936F4AF8024A0149286270F29424786486ED6B60688A2998FB2A3C6165B0666C0726C84925936F8D77D4843A566365A0864821919544819263075F1CBC42842361D2F4646130F581D030EC7CC48989",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FD3B1F44E2DFBB400CA8107405788A841EADF4044D3A8630B349D10077914F92C84863BA1B78F31298506723540F8ED503FB36BE51F2067C778D57D3C4FAC949DB84AD1A68283205CCC97030A65772D26ED20C683A647838A42D70728040265678A13728DC2C91B1A1C2214F8C19EFF9824D5B61054E587CE6F1C291E0D56C274BD1D0C92EAAE86EDC745F54A078598ADCD2B68BDF383C166B900C03E7762C1A7F5CC15C82C0D8E27AC96848381630A44FC49D23DE89A878721A7A9107A064B9A20BD2F60C8C1B575BDFD6B6C1C5767E293472B1AA120CC5C09246934F1A9C94FB3595507E12571385C25E260130F2E03AABD7FBD458D43B879CDC09D4B8D146",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D216720609D4602268FE610E16E1E0AB95547B02FBCD7B68953C031B58D8E18D7406FF4148C3C0CCD8FC7E4F2E314E6643B0B4EB1A86110D86313F19999001D4D4859A5FCFF042B937C83BD19FEEFEFA83D93618DA3D6A505F47F251006A82033FB024478E1CD90C500C583885E320F750356D8E40C1711A2CE1FF08CC4308330DC0FFC44DEEB8C043C41AE93155D8C1402723D26184D88635A4C226468C3FB68076DCC06F81372D0AC850C777FCF4CA1E0894EB050DD222C719F6C61C6C659DAA2C0036A352150531D6185A706E92192F56BA69159544A08767DCCA68CBBAB3C507F4483834D1C5368D98002B4145460DEA004EE83BF012FC0B25B4D9B6402A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FA7B6C4F562909D3814747116113C1902F32336C7B97F4E1A047EB13DC27A53BE3612FA0EA4DD8F9EB7D5518B513212E2463A7A9471B3F030B28E862AFF1470FD148994F8AED15089007708A896CF56DC1387990932B8EB6D0BBD4D0E762C1885D986016D2221425E47C20D51A1CE67253939393A15B28E0E424402690E03E4160C81057D7ACB4F19A0D8B8D331750B918381D10A3B152610026E035B3A3309FDB86ED17D923910B0B720B236083FA8F017DC449FA7F1A19E09188B78906F37A25BE3C9CDBD86CA42417FC8E2900CC15EB58C36DB6B9120548A80098EF3BED0D6AD683DEC990344BC1E21D6E1FA6C876FD188DEEA9467E9444055EBAC512A4E2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3A583B4749B976D3B685572C935B006AC8D3227F8BAE693AE22BC84B1BE8CA3890E443753036AA6D756EE1752519A555F1A1F7D9683203C64534E4F0B80506DA362C21DDA446575079633B27F0DD16F1FB822281F21911407C14E3460129A232761884B5EEC280674EEB8B91DB1D20793D4E7B326D5A2330750B77EB3D1BE349DB1138407623A32215438CB06BC6AB065B59B369082C5E89E0B07310C304958B86F782369F720B9644DD9EF023A6765380846B8931184097525211B7286CE0F018B7B12C3B12FBEFAE048A766FB4C674C92BC6E69987031A60C80BD0E6E062FC8D3C868D44FD00C2EB502D0080AEB4104FA379909183ACF410791879CE450619",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6414CE14A4C905B483FB8D9039A06C7D2501144C01BD66E9897FFDE7FDF2D958C0880010656A6D2E1CE84C310C028D74025B3172D270B916080024CCD2683A8F2C1C7CB512E58B1D8C37E82D3C4F5E2301D0762866245832406CB10F0E01F2D8952866286641446C4C87526B1DE42866754C109F617811A50877A720742830171B61476590B746F2D8612066E003721A8D2590653221E91C00B970AF3D346E7F38FEEB10178B10171A0A50D2FB7084C69990640DDF39C901E47C64906570643C39250F8865906588659EBC02F9706488657C64E414724A7C6488658610722A7C64180AE1340315E404D742F8AB7C6B1C8BF05D8D0C8632CB28A8B6E9E2371DE3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A4B732D2000481C082FA57302BCA39EF7B2138C63B6B8A326C95601840A5920A02C7E766E8EC6174206E842001399EF059DA8FA87A286625211CAAD6F0224C93A083856AB36CABE12CD2F19545B63838983393CE3CF7A0B40855DDEE0E43AF87603308201EAAB9B6EF66779D10662BB09975543BFE1CDD7BEC9EF686E08F462E7884F0FFEB4268A8F0754F08B476F47863ED81493B9064DDFF3B65B2B6EFDC8E9CDEC18714A6E06DBCFF65E6F032DB500B144038ED3044D98C76891C0861888047DB350FC3ED1AEC0DE6372029BEA06C32980A83ED4EA00CE583F279C883343F30F06584C2E41D893A3DB04E2F3F48878B1C39E886A21A7E1C39C9CDA0658298",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("02C865D065C99367F379D06570C865931B46DA1D30F08881980DD9D39E984338C8B4797301527072A8987B46DB21045B8E0F7F823F57609E70BED477AFB81372C82158E0E09C5C7220A0B8C025272393C080B8C8C90532A0B8C0870C904CB850B372C82127C068D82507727293D8A823CDC8C9A8B06AB09857322527A8B034C9849C34A8B0C04AC1E420A3C9912285911936BFDC902B7A8FFDAD944085EB4D6B26730842F1ECA4BE285F6FEE8EA5D1D8F8426243288B4B307BE380DEC6F58339027D95740BB85100A91B3D3EBF05BC15F77120D603C136FD5AD42BEABC8D2CAA89ABB1C948DD2A8DBC2898AA310402324F8663662A502DA4275F20570B6B0269",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5770C05AB8D366EF06965A787345CA49D8A095BCA0165760790772207968797079742127A89079807985970C44ED11179DBC25C665C16D10202C6031B90D1864550BBB7152C02F5132C86B615EFC63BE722003000C10540B2307143C6DD7C22F68B175505E0F53F7D6C2288C080FC105DACA7A0A130F58C23F2BBE09B26D5C1B3050CF0FC6C9FF3CA170A0DEE219D27C1432E3638023D74158AC088C2804F596A62B144B0B07C131473631A8578E542890A87903E1FE4C0889E3E072EF8BD1C2C029E0558A945A58B6D5168C1810DBF18DE1EC84A61876185174295836076A13C07914484116DA675AD77C9AFA10588492AB05FFB422EF70170E24FB6631846D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("67FC24BA10B874474BA664D8144F400242489A93021F4464B6909D40FC63F348844CC82300644CB79209790064504423E49263F30454E408B9900458042E19402E5C0408428E904B6008B99023E46408689C6A6100081DFC634A06E483BD008BCFBD85D55272FC636D2319E4AA1D0000033990910408F649866492000404460699900808FF7403D9A46934F6235A789A3A1C486479F3AF1DD6C1E6022BF2E60A897CF0433E64197473BE8DB4399209E4D68B7374185EB5D03012280F4B08519FA5147BA85AD98159F88D573B33FF457A4D300B3BB46307466227865A0F4E47CA5425160D66096AE10AD2DFD5D70F306A6128300118B77EA3970F8E94019564E4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5A3813B904C830590A47648CC6F36D2C0C550B0B3B9C346AE1FC0B10794ED52CEB907A6859181A095E924B7E88DD29DD05C07A684AD12C5C6ECFDC2CA48A8BC1680B230380A430E5E4F335B38C240C787A089001599608080808E1300B2BAE0585F0380BB8E20D25A75918C1807A79C98BE4887AA07A987AE7147220A87AFC630A0799924400AE0032EFC335DDB03242FFE5B813591A59724BDF42E13D86F11B04F859C81A61F38A8075786053C8DFF2E74D2646F1493BD0C246A1018A2CEB7914329043F73086BCE40030E87A116C6134854DA10E3990827AB3D8E09948A640F0F861811C28007B834CC8675D448FF8DB4D210720B5182058609EE8F520E37A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1C0A3643E6BDF5307BB9227990387B4013CE42085EB89882EDC97876444F7408D56DC72C7B10834C2BBC66E12E445E63287B09D30C807C94D23C0B4797FA6DBA84C2153821B294D289B89D03AFCF6CB5508EE385F6989985024E8D4D947BB5F50E36D9C07E1D32488BF2422D75FB36CEB468D134C97FE7C8CC42B52ACC4BCCD36D8DBD817CB1F05FC810B370CE7CA63D7C6E2B2453F6F461B3B0093D413171A0663D8BF553CCC2610B970C3D329534477C87F65049D31CB5FE562B390072EE4A4A162E224F334857B45824D0683B15CD29F98B59317406FF89B4D92052C8507B2695428079ECCE347FCD94EDEE8BD6F7DEC61818D39AFA73CCC2029C46D029D5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8359D8290337244C2998B8FFCA0E3B6C81AC8E1C209DA23D65661633C49D07B319584296685F060D769E85CA38C44C072E80242D18683B7B32F2691624859485856420B90C16807B9429794A0EF2248BF2CDB2340D32CEFAD6D1D239599A91B9FACAC4CD864B061994C4402BE1547E1D3BC15DF2FE12201F0966232558E118CDC2C7212593BF9A858C174C11FF898C222307C8687B94B483A351163132D570B7B011AF09FA0EEEE082ABCF3DFAF193868D58F7D308F60A67489AFECEB486E45810CCFCD0F658C8F348DC042038DDA9D557B1FE138EFCE4590094B88BB4D58CD503B170403BF1F34D8A85CDB6CA6D5E41E5B8866E74D62BAE520D2FB1708358ED",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("21E7166492574DC131258540FBC0A67265095CC98FE9C20383FABAE4C4C2F67A08E9E74DC1291C819CE87B423D825AC18B2EDA1062A15CDAC2FB08C851B1EB8C55B1702851D87BDDE11108825189F0399063E484B24A088483F45A8BC83D156A2494877259591E0B2F1D8AE4F87BF890439E01C5E0840039817CE0038984007C47B130B98CD761100B0B06410A7E103192BC8ACF8CEB4A19E0916147BC280BEB25E84D78328D90002ACDF225CF81589F907B34DE38840C304EE7A1271626EF8855309FA07B7E4B3F3706407CD603F033408458226C59F1D2950648A183589306F7D39E3C9F6F58C8745C25D019888520893E2C04F984D0E083420E418BF07B72",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2CACC04DFBD78AC7E8F9A034C73B7B7B2CDE25747487498D7475CD4B4E2C87A87BB07BB8481072907BC07B4A0484180B1D2030028E5CD0B09958B82AC5BDC581C134B3B6B1964F7A5C8919995898971008B1B0081847FF892F52F2CD10F80F8C22E9777879B1B05238338748C951044BB1600E79A5B02085C844721074742557C8147480904C841C747411C8951C80805432017280FBC955C9C878781D52B54A4ED0795AE08885CF32DD18839E83F3120B2FDD943F5210943A626176787D0823231656BA3C7A7F1C9057C9207A4066387AE400E4844066320A79C98957E9C879431A8EC2442AD862619571C2DD6FC2E790F7042F3DF0E883B2850C4FC56D8098",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0269B8C9E78D2852D086881816823C797118C865841CC92971307A51550AA78673507ACF51296C089DDD998293839BE8D8CFB81CC8200F007AE0E072C8C981A0B8C025272307C028B8C8C9057248B8C02457240760F81C72C8C9BEC010D8C9819C8C9FD8A8AE0573C8A8B056B0BC929309C740A8587A4AC8512CA9422CE4646A0B6898207A402CC54BFDF3E482581898B38ED685BC8053C790017280C9FF000C6C290479E40689160CEB9CB05BDB4633103FF8DD707D4A803E33D28C36749E7D5E890DB09378320B74FF6CB0BD532433FF1D803ABD408CB5785B53E05193C6B43CA4710B3F5ABAA8B6A78BD5BDA96F056A26B2AC22B91DAF1544CDECC4179190",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8E898816842337372384984094A844948C2323CF220A5F484C48232323234C484C48FC2F01234CF0103BF07F998B0483D9100D84F7BA500142898387D33B511F6CD394B081645E1A9628F09C9C9CBC1B90E888E09C9C9C9C80D878D09C9C9C9C70C868C09C9C9C9C60B858B09C9C9C9C50A848A09C9C9C9C409838909C9C9C9C308828809C9C9C9C207818709C9C9C9C10680860469E9C9C0058F8A3508432614EF0F6DBC8772F9D1FF4300D549CFC1BC9C9C8935C04A4640CC9C9C9C96C14741CC9C9C9C97C24842CC9C9C9C98C34943CC9C9C9C99C44A44CC9C9C9C9AC54B45CC9C9C9C9BC64C46CC9C9C9C9CC74D47CC9C9C9C9DC84E48CC9C9C9C9EC94F4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9CE4E3D5C2FC3A743B188BDFB42215AD51226629EFF379B4C7A0A4A4A4009D16048C8CCC9E9DB82FBC181C8C8C8C8CD0D430348E8C8C8CE8EC484C9D64E48DCCA7A5A52E606464646464181C787C646464643034909464646464484CA8AC646464646064C0C464646464787CD8DC646464649094F0F4C8776464A8AC089EA60C9E372323B32FC42024C7842B50A07301A6008AF011AA5D3663E76694A486104016BCB3300DF718FE0DA49C9C9C9CA09C9894C29C9C9C908C88BBD06D275FD84589A6B689AD081B957881C7B283BC012FFDE38CE3FA9A82DC35A87E8033814743ABB230F15BCFE1D9450CFC980658209FC75C9C069806CE801C58A7E9EF2CE450",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("36C4C7A72DDC44B63DFD0176061506BE0CEB0A44050E5C390CFC79EB898332758D1C262E04EEBAAAE4390C1C8DA60BF803010766FC9F0CDF1CC01782E77BAB8D93860CE04C006E7DEF6535CFE80B1C8D0A91380220A2650AF25285C2D46F04620243E15E2A0337205A05B5E6A07483003C102E1430CE05001920CDB79FC3D9281CC7711C0E2CC771EC3F30B7007C84166C03761C4CC05EECD2836C7E35C3D44466888048738C14408A816EE11337DC3DD87EB2932F80982DFE634259D8003CBDCBEF44E68B108D6C1BB8A4294054948CC3491233D76C59146CA03505440C18FC7047985CBEAB74E406DDED93A5026DB71C36EF31E8A42CECE6BB0AA9053C539E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C03A8D2DD48AE68A80BDF8DB355BD2E170C5A85205948AF1AD7F4D687F2D1F9D943ED805487F95DC0D58C41936C97F4DDBDB8496B2B7842A3F23A5FF22DF4C7634DDD846453BF20A2B6B010762A0C456058603717A40A44BEA6687BAE81D2461480FDBC03C9BC007EF7FB207ACE63B009EDD4A0DE276902F21034F21BF4F307FDD9433CF6D100E94D1D95CB82A2730F010473BBB83D1FE2938762CF7AF7EE763F2C30AB71C7693E8E723557CB38D445193D091A33C9B4483D0548B8F66874308A3285500422492C29964E45555E50DED8794F048408E7F24EC59381C8440F9F27723640A440EA636DDD929BBED799B68D8C10F80C23C0D604C0E8219E4497835",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7088903C1C5C4C372B984BC856779CD974FF00E4E4A8F0812F40783D938516267E1904704CDF709967457FF1B0183DA0EA1495817FFBD99B3E049656DA8B86B75A8B467061C216101962F11E451D1B24E07A8628DC30B5F5E85374492DBE29D79E288B8BC2BB01F82F121E8D51FF3B94C3B07D0D8911C912FE6D3D403BC17CE2DB00D1D1C01C01C50CE428C1B461D3C86C53503A63C31011616C33253D19E27D3C2922A94CC88601EB9B214F0F84E76F0278FC920CBD00E0D19BA69B830981F0C1E8162AD003C25409F47923F4F80A3C42899ED158B2802A0C843498B971CE45744F28EEAA6EB9145535FDE76C813DACE9083A5594EF77F8E9F0D4A8D409622A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D884A91845C10E3A042D758E696481AC029F121CB8FF760655BE85F9B71B81D40100F58781D809D871D8167DE5FF072AA2460201BFC841C989B882282187204267EFE167AAC6C5C3BA0BBA06AEF12B60A74DD08993C0C344F22848E8826402F95C31F882860764F300388340835883F020792568834645D2203885FD3BB40F6C1B91D3C91DA3808C3C6AB70883B83C73F0BC2D18CA3110492025DC29880B05001EB18235EE20D8D52B00B940AAB6FBD630CDC1217E7ACBEC5005119B378B0F48773439C8A9718683A99083708330478E1C8883808398834750E339F7A8D9A586BCE44021B883C083ED9902D9B08358CC6283B0866DDEE00211C8DAC94CA64435",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2EF25BD022A105720A39E883E0830072484EF883FC83851C480E0884108425A4481E1884229088075EFF202F6CA5DE8C416A9669365C1A0C5822413298B2CC0B0CDF23C318C0109FDA63CFB3EDF533DB41322522AC6DE25303C0B84163088B0CD767DA4F0DE61C4CD70414542903A87C9AD04844D0F3E9D3FA9D414CDC24DF1D8498401432C52E140DF2CC3B110F303140250062F4E41550771AA9FD65E06C6B180F0AC0DEE9F75E44E46B68072EC93F07A9E799701B90C150B932F5DEC92A781EFABF84A470DEEA8496B19862BABDE93DA09426300DA8848B61F89DB479880CDE4327DA3AC082DCC1F52C0CE60136083BD8F11BFFB10D4F21329469D360688E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8483AFEDA1FBC8256A9B491FA8601A2E45E1FB4F1A24A8E207197850834414EBFC08EB8238537493EB0A4119F8DD241CCB7CE5178904EED785FD76F20385DDCF7E36C322AF4330C8ED148873480921EB5F61AFDE0F497DFC877FE021D7066CFFE778AB941903D12B14EE45423BEB891F188D9B1C937118CC046DA740D95CA477015965EB8902928C41119C8207B533C9B97E48AD4208F8EFDA8BB53B54EE047F2A7E32F5EF840847A88D0497428B9F2006F88104FBCB4120EC7F61D54FC6047EE48BE8458F88D6B43D8FC1CD079F9139920BB4519B8A3E1F11DD05B8F17798C0DE6DA241C81DD82F2413E81C9289467295F80085B9149D9DF0671885A0CA0885",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BCF74CF23085CC281ECB0F1021623B8AB42012DEC33CE410BD079B38854085B92A79904885C96692930184ACF6C50737882580A9D6D9D28A06910709D0499CF2F1BB135A4278D37CE4178974CD23FBE8335FC1E69ED77E2067EF416E6F5169E075084A61FC93A33F5B17E889543573843A1C07EFC22B44774131CB0F7C88E4428E226DF6AC795E8E3E54F5006FF5298BFEB47245472E33048E6DC54A4D0EF9E58BF046F01720870A8C7F30046E099317BC08C2C1BC836016591128DC0829686FB1181E9CF748D5E826D5AFD1FD0EC20F9CE3F76808F41E6176EC404F8C29DDCE1CACF2C604C2399D4B602896EE14DCA438748536F813833D343BEF7F30450E67",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("67D393AB5872CCD4D0088B1F9BC62BD3C914B07D09F7FF21EBEF9C1043177CF73BDF5FEFEB0C4683E454CFC7FE40F94AEF6300090C8669E6F7DC7066245D7CEF8C39F40C149823980F02C7C04806108B056866B69246CEEF19609F57640BAD400844082291423E40086C0B13CC7FEF231086C0CF15FB7281D2B018E21928177220077870504CE22627541A5848898A43C3F5625B2B03536CACDAA6BD360F841036D803E8D0D4E978403A8D6BF47FACF8D11F7B892C9AC999DB049EAB84E2815CB8F81580AB0AB4F905189885A88599BFEF07B8B00EFFDC2DD0440DC80A05C085F114AC130DEAE4941B1F1F6DD6C0D821DA051E68E171918DD046115E09A129AF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E87D3D1D1B163C06BFEBB161B0C086D1366208DEF145E89C55349871904201F403EE7E08132BA2C5C43E7DF61C98DB5FB5DCC590849DC1DDF946528566206C86D09926A3AC7053D33928F9A043784D03CE6EC5702BDF43F228F070ED7A5F85BC34C6851F6AE13C44DD05D820790990AE35203169E0C9145C0777CB23484FD7955CECF327B08B7C814CD790B019F0591052C9E84E3BBBA8C7BCEB33FFFD0086E9FA2451C4F8091615A492F80941E283CB8A0DC18BD14E965F9BFA7CBC0F549484FA91939143C79CD7D60259FEFF893CB08914B1B391043B5F77860AE3E400F22B0D1886208603C9E7F3408638863086F03C0A90E5463BF22B50867228E4844886",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("58868B056245DF54A20E0F0FBDA6639B864BD4E2CEC66186741F9017DD1D60EAEDCC4E3851F83FCC531B5FD534DD151C3F100A7F10E2AF3F9C5889C135BA4B7F3F4100509D1539C8C360F6BC74761177FC08620FA2F7C2260074673E20C31E077F45375A0002744B900FE4403E04742F79DF7B3C22B8C0373D0C76145280486CFBDF1C74056131C040C308C3CC01400E22813F10C6AB61A5B681EC3C02F10A030FA48B09100280F869CDDD54EE7804FA92D66E71448ECC0FAAD4DF8885268D9360129260B6A726C603B684ED4C04028B3AB739ED140D0CD3D4C9DB8BC183A0387FF252BCA1EE0EBB568B03EB8D940321F105020CD83A05975D0093300C6E53B7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("77B214D6E40D3CE073704B1A48199DBEF7921CD882DE37FC8B9F49806B039FDC8D853F1232B306685E21ECEB0E46C3BEC5203508729191678E69C01718C8F2EEA39128D098CADD9B4A0B183232F22E326F38D8480C323232E058E838998D8C8C48586857F093EF331B7817F84388690087CCF23EB3685D785B883398084FDEC8F211A810B857185B988C2CCB7B05A84BB8C820D837C832B228E830C805C7CFF296D8E839F8385BF8463D3C9C87D7D9929B30E53CA823CA9C34C8FC013D0CA34DF4A8DF61B62B522A00D92D942740BC60928AE16DDC81C6B5C09783A256BC60D2CC8D3C26AECA7891D50004B6D47C22303DDD740E093984DE8E50EC93500283CE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0340A1BE84F7604801E88761E2939ADD1231FBC9DB74BE9524568E213948A3B1A089A0D7F1B9B4F3D5601210138BC71401BDEBBA353834B408A82C15764F3BB90D161748CB13104D434E4E0618191A344F1B92141B30C915CD4873C8801C16CC06F6860C1DF4C9311E1D32B44318C71F19924306A4F8CA201A64480E19211B22E49021391C231DA40DA40D501E3E1F0B6D488620211FE258A1B8351BCC9AE91C2A5CC85AE75ABDF6652784FA9546D060060119E615A4D80BD8A44D0B2736DEE01BDD03C01911D027DECB0E9B0C5B484A174C1124089EF798E121E3DC54205012276FD0EE422E20106C471D1868D9D63E58DDA207200D88F50BC1E15D30250A6C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1840234176DEC9100DB8601722F39C3CCF10201613682707CFC91316281E1C19B4C8F33C7008900BB87A2E181F0930E530C1F24E6E490F0E2A78785176F2F06C1C560F0A3815EB77CF80E6149B7226144C34CFC93B0DC2404D1B1A88E05B2A158535896378F74DA1BD0FD8CD0E87BCCD29461036BC48E9189B812578552094C62760362307288246EA6760481083BC05BF5560CFDFDD79226E3B98C398950D50FEB0DA7D0ECFDC9F08E9BBC3D8E6E2E8BCEF919FD9CE35589B1B0BC49D000C169D3778DE757D68839A2EA8C0D0BEE0F1C106CED9C6D8E476C728831C593350EC703B932BBBC8BB9188501FB378DB1DD68410DE0805683C6EEBAB4197E1DE2138",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("99DA505BC89682918A15A50D19061BAA43206A3F3A50C23DEF064E383238B8B43BBCECC21A88675DC542651AF6A15C6847DEE3BC093CC8618BA6C8873D2C164C65C0E356B2C68B5CFCEE6EB02665EBD8CC03D827958F82C8D0EAC99B088233F2908F33E0882A0EBB1D86F0C100880FF81F08888291870941ED21E840F4A1405686CFF12EC478AFB5E77968501EC24CEC415805109A3C7878183892200940881E0617AC8FCB70E4B290E1418DCC298040B22F1A8EA13028811018C36C1888F0E18A23A3888DCD0828888ED97B58D1455892481CBD28A838722CC42823E5D0C2A26C08C64FA930676B8EB6CDDE1E3869200AD8CA5AE7E68B9512463C2E6370AC88",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("449187280158F850D164D81095100F680E5C8703C1C0507DE9C2A40A4558BD886F688788BB100BF5428D14FF1337002C0643176B0CA1C6B9AC6A6CC209B6101EB8004EF9CCADB77160FB87C7F8622368496BC2889335D2560D4E2BBA1AD029F90E6EE830F68E291894465AC3EA3342C2EB226031A5F5B0AD584D8ECAD2581376C4CA1BD6613827AC8516E1DE635CC45A3F4338759C5040758A3611AD66F8DCB530160AD31A9A1050FEE116206251566BDADCE2162838AEC34E5AC3E4C980BCEC1C886860236818262B173A1684B5E96CC3E1171CD0639E32238E519CB46E98585B06F3161F8296761FE24B1710289270DACF5A20D0ED32CF71E074A5E0E62928",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5676F6AAB8E18294A2584542CD03289C3B0096CBBED9E3DE5384E0130CB5CF0FF8950C8287459E7D5CB4BCFB70AE37CD6ED8CE9E17E80946D8F5CA6C05F0700782E394651CBF603F2EE4C0F4DCC70A1930201071AB41101282060B7037E8AAC2E3343BCB6EC3E7CFFFF84FD69A24D7CC0B41C4AD570066EC4E2A8A4E67283E8C1EC49CEC45883401962A28FA0D8343C476AADB0E0D0C0E0B1BB23616246D6F2B1B08E520C93A5F85A10EA423FBDEC4DE285CA23BECE20ED8106D0D475AE5441623E6389A8E6660C119447898E378BFC25544728E72D0E0827628B9DCB28878231D662020E4C41DA2757C2BC13D0A3610573270341B2FC778C771AC0E0B2705CA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("352E45391869E7631CB83198AF6460D9CEF3A20C6D30893EEF3BDC38ECD494755FDA3F411208A13636C67118A1BAF0E25A550A0E4B3E39E84266488563B36B1816F02D513830A0EB21DFF8C47C18184BA663A0632047CB23E4806DC9266E31C7088BCE0187B3F123DB3186016F765ADD99398A00D3202070C81CE02134611240F438B0C20856EF018F0B1CF7586D38FE777E143858BBD8C1E6C572C1878E39D3CA5EC139DEEACC44223C4DC1E9786F10CFD0E92D745AE9569F9071646CBA38FBE9D383A9EBB7C74D04C73DED8343412016443AF814600423E9B6970D1BC7293ED63849EF46306B2548AF6880EF0821BE828BDFD503AF49E01446F62DF30E1D68",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("026102A438A02C40A49F9C418B8256DA3D64299D42E44226C2812D8346B4555DE03A34802C98EE9FDFB6A92DC45F45CB57F1245DEA349C8A0273A0376916A37515F508CC367152B474898BDB8CD6A5665D3661A469DBBB24EE0A89313E0C8901DB49B756E833FB266F64524C103440891D259C1B7A3B83796AF054022A1910F81F013271693F4458F24CC85C2CDC5E727017AB333353008DB383040633E49255E44E26E44B3E0C30FE0219B94838289021646434382C2739C9A3708878888088C9494E24888890884E7222399888A088A8884F0E214FB088B888C0889E9C9227C888D088D8880B39254FE088E8888690919128342C948873E44084BC0AE84B6F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1245940A30D28BFFA5273904548D14C28D7CC5F004651D9B047416128C556E0E6991444CCA9AA75802CA729744D6C1E2F13B75C97C63F088439E513741BEF4C8F80F84A940C54A27EDA0C5D80C14159CDC5E96B33F1E160D17187466269D19BF115632A96DBB591F3E1A7BCD216FEDA851301B15CAD81D32201C161031C8D00E191D17C71E0E19907618F8CC1F1921396448201A4386E490211B22400E19921C231D606548DA1E1E1F1BC0821C6C20F19C5BF35C4AC822399424F0C881344BFAD394C28C0CC804C2C2C2C8212397C2C2C55C3272C8C5C5C5C50321878CC5C2C272C9C825C2C2C2878C1C32C2C5C5C5C8C82123C5C5C513321072C2C2C2323221",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("23C2C2C2C8808C5CC5C5C5513272C9C5C5C540F202E44089108923E4C8E6488930890089200739C90889508918895E7220395889208938897944C843288968899C39B800C398783D9C411E563927706076A9353C11C762ECC0CD1E808933F2507EC5D9CD0BB0881C28123C38A0B59AB5B867C346880D97906FDEED0DF3660750884D58149874E99DF451C47EA9CE26CBF0D2A9D1C4685D21A93D122C69979AE8209552A57111F9F06897D2254F0123B82013ACF3E1A349C3E49287C832CE2823502495CE5878CAE007937772FDD8E668F82BC656303A1ECAB48AFC701C72C80A0CCF8A3AF9525CE9E0DF0F088AE81B36E42563A3C09225974EC3134CD058E960",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D2E84C8AF823E922B8720B8C36B78BCA31C48558C215BA2CDA401089F76B029E125E0E18D74D00CFCFD160C8630D18D3A50919D9C1A577C996418BF7215C4AA515D12FB8D4A5041D5F5C6A8B5DC37DB2EC25C870C952D629E45D0A8546F92F5CC9945C28C9CCE974C99CCC4AE875C94C7043CC2F16B62EB5D4C4331D339649EED24DC4C3CC22BD3408674C2DD09606DDACDDD304135DFA22CD57C1B72559BE34CC4DE9C20A9D82D91499CD02383FBA74A6BA48823E2C61D890C1C25125BAF4D26359DECC347FD99D72E8CC4538F6A46AAD01421A30C202E2CCE1109712DA7F715BC95D5A5EC2D9CAE59702C1A563571DC3711508CFF061E46314862A7D74E8C3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B14BB61C6751C11DA394698A20B7913271E9A56457CE2E2B2457CC980959BE749C61C118332C2E99C1C91F2030804A27E5C0DA1DC72505D247CA25EDD85634C91165259458934FC4E877DA1D36BC4EE11ADB1CA45C98530B33C3C210442403975FF0C8C8C8C81D583038323220533034382423CF15344758F25C54322C5A44D20388007E60C7224CAAC0980814B9693F70C39098AE8380FD8349B810FCDE299EE6B0FEC0A7438013C876DE11B9014A2DD018833CC39E01D83302E00376DE8B3CE865FC94F01819F6C266D3F833C80931FFCCC25AE40876102BC5189977F747AA41B8D888CA3219B0D30E699ECA2BC001C81800CDCCED335FD0D848802DD8D62D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("906666DAE018FD33E8FC4466C7FEF0D88B000495F818C09B43DA41DA01160241081801C109CCED10D80B2B1884186C79676E4F02203320F82B03234D3BE028AC6228FDC3F0489D028433F3FCF898DC14CC879C15F07D6AA367DD3881C1BC1EF894C5106A9BAD65F5A140E0D86009AE79F1A940C06680C0D80BFF8158EF169A3F20A0F8BE095CA4BD28C04AFD28978C346F8053C8FD02D034978C34FC02D8FCEE28978C03E05BF89E5CBCD84DF04080C9F080FDCE73987616C31508D9CB9B8AB03B971033D1EB18BB7DC4067D04427004DC6A78660C9EC05FEC1802DC82E01C0938D0485BFE1EAAC418EA39B00217CF127DFAC30184705C46D19274DBA14B8DD2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7C92AC0E52707302EF6D305278AB08A7E8C589F3ECD953301BDC62089895006543B53B65C618084E278DBCB7E56D10D0935A081AAACEBC8BB4B789BE107CC8A06118916718B6D845F82A20AA1B361BBCCF57183081CF3B923551660E6B92DD20B41C6A63B6D6FD30F0E73B3883AA0E20B3D8FC216DBBBD2859C82792376CB8C820CBC8F828C828B02EC87230B036662B81279668C5DADCC68BA08CB40D0983A196A830353AF0B6B02F5A3066200B50F0B0BC9B38B892E6E2E9E69D578E1C002EAA4D280AFB42C5DEE644E2E6C2CC225B2BCE8A38809800553A4DDE66A919B0188662790754EBC540A09B783E34D2EE6C4E28AAC228C37AECB6F538403914768E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("15D85306A030A3559E0F0398FA48489E27EFB410AA60A08001484696016978509050464E065990A87050C8F21C696878F95898C8C920CB58989060908F25CD5858EB50266F7146B07A0CF0CE3B953B37609C10AAC7EC1ECE30689A60BECFC9B143B990E758F88068167690B68EA322AA52686D0900A9B18BA1365C72A1F8C53D58A01D0B322169EB5D2D123A7E01D77DEEF7C61DAF64704284A9CBF210B68DE30E60844141A04E581490701F36A4CD70D290D888612070104EB1E4E788AC24D8F5E001D28C9CCC6BB87828183403727278B848C0AFE0F59A98BB5A481E1A05D6F50C205510115A174AD72A6512527DDDD48421F032B1009E36E4B95B08C62058",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C48DC36AA8E221DE765A8ACDBA174F8828C17652B0389A0A94C86855B6653819E0209F591C719C767680B6CC64607F74830B32DC8E50AA12C4051AE6E6AFE767D24D5A7C9B38EA230AAED889CDA3A2E2DCEF6EEC9BB1AAE1392EF8F5FB82DBF1B8C47D9029A55F28A2EA14C61CC906E708426903AC66CEF24EDB455298FBCC48359874FC6260DEE528F88CE6797756ACEDBA58785540CAD2D4C450292CE2A0DB04CD6F2868DEE230A22DA9B51B933610A4A84D43DAA5A0B1184EA84EDA6AB43806787B0C1810294E4E4E0800389F97700E69104828D73B1C14A6D9942A40731069876510388150E1B0EAB40E5813CEF0734D4624E318C7DCE2DB645ED6F2AC19",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5F686FB8469369BA5A47E0063919E4CDA31046C018C007D2EE31E2AD8E2028F46AAC2686C7DCE3D251078BF932DD108EC142291DD4EE769D6E9743C6CDAD00C755E0268580E0E4C078A691C0B0069476A9C58930D2B8C08CC041B6432E676E3828016966D6094854963C40694A6130D8A42230D4A76C30B4AC9670E96919EE4B78CBC2C8EF052B06387872B7C53613DC82E13537C0DEE69814449E118834B8F4A8AB34BE63EAB2A42101CE5AE37FB18179171254E6985EC333721D17AD7D409A9C02A30C2FEA5D3802A4545AFB9AC01DB9DE39B0DA9F70595A484BB0D049774E2843F32E6113AC256A2BE3D7FBBC1B6C35AAB85A4005708172D2560A3B520808",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8E22EF76682A08D8E35E80EAA0B7AEB614D63270750C4121666A5E70B748FA9A999386956E5A2C88F0BA345D87AC02DF6C5D1BDE0B436184507FF83373E8B4A258501AEAE0B5E8EEC47A6C7D2494263C9066AB216E35221ED81615276D3050D0500C9ACA4CF3460E99D8205D285005931CEA4489C8581CC83632F22269D0A0584C72D2B493C0187818C0B84D7BB3772062A8575005604620B83BF32627B0EC281C5C9CDCDEC8986811904DA8303BD73AD3301C1B405C461DCA48E018127F495C0AFD4081C460C733282001B7967F07830585AEF70BCF040BE32885DB7C32706D682CBF0C9A09C203643290FEB68C53F9107C975CB80149144241FCC14B03B007",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1B4468A58B84ED1CEB068B1433F6037700C23DFF1FF43BC37DBB2CE2F7148B8C828A3BF17D0EC003E6D8BF7F277CEC8BAA043AC57D188BDF3FD9F7FE6F9ED9C5FB83FE107D1383FF087D0EA640C89B025E002DB011079F60E0A8CB768AD038F8CD241092073E28699BE0EE89841A3ACF2B74669CA99FE2EC6AAE03EE3BF50F8D8C3D8AECC6C1A136BF044EAA0AD3531AC69761AA101C7D7C7BFBA48911F1893103DEFCEBD2DD76AF9FC71B0078A87CB9716D09FF0FAFFE03FB03FED3C8BF86D4104E791CCDD0A1703F19C04900020CCDD414F055247E29247D328B438D1CF9B01F3DF4C5C3AD6711DC92A08EC4596E02C115DDD8C694B1C2F8D97F1682FFDE0D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FAA3C1C6657003DF83C5037FC30602117A9C6D0B064FF55E0E3590CDC1F7AA6C7C3061C86B03D912BC0CF26D0D94FB347D3430D98D04C019807D69C8FF301883909B8684E8582764CE2F7F06648AE42C2828709C6448130F4C7DE30232C9ED173D9B6748867BED2828B2531C729534282C9A24CFB18D6C66BC997BDD3B9A463E7272BE9AFE8BAC9AC61F460868129A7D9A23593623FDB1DD9A1CB9F9E5742428F503FE03FDF08BC50CF5B919D98C4C34F574318B7472C517070CFE81C1DD007C10DD829097EB38F1737BC0C87FE1842CFF6728C58D046803F883C39AF22027CB289A2D28896C67E2F8084B397D37C0958FC78BE8807BD93FB12A5842D7070212",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("32F282281952C9890B1F50008587C32429DD02DDE2616013677A241E909877C3AA7503EC248DD00BDF5F2DA4C11EDBF159288E461189577F02512EA0363F4C8FB1808FA381ECBC88ED284041124A8565247A3593BCF32703F5B68CE02640022D3842F57D8185564A5C8DAC4E620A78223C0C2B39204831065D09178167EB0248CC1471293C3BE6C0FDDCCE83968C6FE294AB8A007820B0B654C34DBF95B064D9E14F104075DA9083A91BA80712BA08830591245C1CC289D4FBE2F178E6C88A9F9304FFF1F63E04A5A1B084BFCDF7F3069071C9F702F9B43F690000D80870D2430080851E49E989945077343020F25605C80CB589C8C2C9711B74187E3A4D9BCE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B87CF736735AF60EF8D08AD81CBCD3352E0188D8DC640143E9302934DEF4D6943811650CD987246CBBCDDD64F42D1484C7EA4301FFF49C2449E87F082FDEDD04DEEBF6E88FB7170FDC14487509424D03C23CE44815C0EFD88A8077DB0274CE71DEC98D76305958B0266CAB57AD93794E721FD4F176FF87E0210DEB1803DA3BDDDEE97C846B4F07BB11164BA1BBE838828727745421FB6BD0525A13D8FA49C140209ED09804735A37858545F26B050E65E0FEE4AFBB4DB000124D85ED7FDDF08739D5AF29423B93088936FE33B1899A636B0CCA485C75280E8687E2DF0C0444A3BE5FF0029068904F09180DA6C38B227F340AD10A3244D0496E5312306F5187F8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DB9F376C1544639BD6CD51186E7B094DE410F8D4F96120A7E4C82D088B108B23CDC8175301B8EA1416FE8FEE6D0F05C2D35F408BCB03C83BE97FF04C020B698438914C746B3759942B8B4606A2E1D54067D881D2331042358B0A5BD1C5C54F693953C455347265F00EA42912EC5E14B2E0B0081942374A801C281F201338C942088630373837DE439789230C310CF2CCF79B80F5FF88276C362C985124BBEEB260371E9CD716CF2A893974AB44F34A974810392899C0EFDDC944A79036BCB23C3925FC36DF28BDB41BE90D6C9F77C00D5C8DF4262BD1322ED29E3FE8A070AE4B788219C5043A6C6D2B41584D73898510DC1B406296B03BD2AABDFD83BA5D8B95",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3BC25582570F8F712F7B02B9B201DD243DDD1EEB0B8A1184FF0E4F8751CAE165B7017DEB671A02695C0102DBD1030B0AC866EB890BF308058A4F4082154237411D2D2C2BE5C8F0224E66227C19AFF30E55489C628B90A6CC32385EB4402B4E85810216DC9138AEBB3ECE6EB19DFF7E469506904E88441ABEFB9EC78056488914C533D8013687A1EB4C1CA1C1418A60D87E41A142352DC9586D6CA39B1108FC4BFDFF047C07BA04B973B4B03202978E94B3B18B1E67CD44F3AB9DACB186FD091C69E28B89087A8418CB876E376423367921087BEA009D2DC7A26D94EB19903985550A94335578345D613D3181391419584064183665AC6C3492363AF340582C2A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("42455A07384517AEAE3AC9CC703113C403303F4B1E08DB15684021AE5C37B0A689052730B64FFB24612C209840641A1E8B4EE76FE2DE56843B0CE9F1799BDC1D2C792CF6745C83E793D872D41F85D7FCAA7B2E7C52258B5B87F90B6523DF84388C1F9B354314485032D2CC21D72A50687918DB1CC1EB07B789982601183DBC1F2AAF02AC8842FE585EDE9277E432F80D1D6019701D80A565CBACE21C64B7207E25CB1149D4F701560491E1D77CE94CC095047EC8850C7D118A146C770BA750713C78AB206DCF6A2823E399483A49B8EFE0338F1D1697EB4B730D902B0541A61D359F80929858326D6041146DA00A42501B3E6A8B3C0CA0C970D3DC3730967F62",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("29949CE01FF23E5E784F9D9E4285520F2D438FAE942E9D90F5560F949C828B7B3516EA14D37509056AFF30CFEB70FF849CD01E7AC2AA7DF810DD803D35DD030CF78D14602EFED8F5DC0ADD12DC177012C6617B7807DD178F36C042F1CE7FDE03BF1011C4972411810F8C39203D58D2D0A4D409DB059FCD0D94F78C947C2092848CA052740AF97629A942708EC89DA1A07C47EA643A137C18EC83D0F6D7046327F0EB15254F16F4542F045C3CD68468729181AC5A85087DA4EA704438BD0848276CB8E831B0C485CA00D350C68310513A9F00F54138B0B99C75D886860D568AB836E5AC8B692B0DE0EB74F98D4003C1E20234160BD14F303C6004D38148878B8F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("21CB8978E502B5D81E349CD88FDA8B656CCFD42115D1F85989D5788102337F756C2BC784C2807937220014BC731CACE9187AF3B39D2B1C49D78354E5A98F00A294972A6381106AD8ADBC0703B355A807BE7F360A34C61674F860FC5CB1835894844784400394D24F0A5349752BEB09F12921BBD1E06FA9335778585057FD0747AC05414D3BF2C42B1E8C0177DAB22E955C8D8C01E6DADA85B020901D16B87108CCDC7A9645D6497F2A841F65E1B60D15D19C8F2D3DDB0261F85473424019023356D8440A6FFA899D42F2AD0C938DBA74DB00571F9EDE018802DB0A61B3F7B00381E4A06F6898673C04C5929A5801B510EF0961DA0B9BEB0A1768322F49DD2487",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8E0422208BF138173854348794A95044C5B53B055E17D92E33F2AFA034346A1405419DBCD4CC85E43D2DCDA8EDCA0EB96B80DEDA383A64B00176D634DD3625C6885DB93DDA92AF37836BC3B0C2420E39887C760BF2D011E88BD29E771630B0413E605A7BF8486693673E0FC9F0008C4F49C73E836C80188CC8733055050485DA9A30DC2D5C17830C32B003ED03B5205092CF219338C076374E1BE46450C01E6280400E72F2C378A8878B874CF2E440765958B872320523407968B8622B860C2797DF399077D4FAD5206087DC26DB2A86E2DD70B04DDEDA3B39C565E57881403BDF347283A8ED38116CA99F111197020C6C61ABC96D5F9102934C64BAD406E013",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6D67E4826902E829452A32D02690033BB7D89C9C9C5CD00DD8D00B160987CECD373CB9E49088A8A0CD0190879C8CA8A08E02AE04270D1A375675579157503B844D868C71D4D855496F5FDD4853910ABCED9C1FED7031D2174D5B8BDDB32E8C30178BBD420D650867B73588151A433B9C87DC84463A1E3B957CB9307848DBCE234E73C1F04F5D13D56D48291A71C3C439B18200B7837E76010A3BF999B8A43C23344C35C90037F8BD130CC07BA6E99C98186C4EDC477000F96B7A872D017642ABEBB6C1B9EA8F064CF70ADE6883EF18CFA9D8468BD529AD53B20C5126115A70896335DAF6B617377C45FC89AF52B44E4E4E4E84B888BC4E4E4E4E8CC090C4831C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("784E94BC01286E6CE70395B4529C3407C603640868EB513EBB13A3915121207C4089B54FC5EF0E80147E2C757433EB1F418509973C037E0B12A15312170A8EFB97AB98062B5C05211A0E98D88A110C2E2150CB9F60AC1F231327820149BC02166B1874DC167F92EBE6692CF333A2F2B79798F08A41CFC834D74C3021F20036BED629B106B307F952010C360144668692412639A88BC6C74BB049668679D02C003B382A31050A7C0278846FE5C842B08B9C59CBF3829C96FBAB1F5C37AEE4F3B2CBEF895CD836E500630C60DE1A9825395183E8369BCD970AE0C6575A820DB88B82E659273820C0A42F6BF20142A19036B57569302725F15C00F6D2F040DE9745",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00B6DF9CD8EEDD04EEEB170F3E4F96A997C5D858365836620B6C4AF8B9D5E75000871585ED97083705B036E4EA3BEB4F965870C8660837D08BFE6B27B6C302966049C4E45F0087BE97EBF7DDDD04EAB2F320BFBEC784A84B85DB65C38C34EB9236962991675DC3E843744504BD740442A1824AD6AC97363D4457204750B1FFCD72412453CDCE872056040ABB5DE9008102ACFA8848BC016721890F4DF339D633B1B5FC8A8CB541913CCF82ADEDF3954CC88B7C5F8BB44101F181458CBAF4AC213094804EDC957691C087DB0AEB8D3585ED1F9A3933EF3B335CC84582252C5076D64946D00E0C02BD9C659E39B80BB00C36803638986AAA002B9304ED508B8903",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9F30D811FBC0522A2AF6984386590520C4051A8928759066BDEDD643B67808824841E4E48C5144D890219835730B4C9069C7ECF0742B36A1E039807CD60DF88C008D54A6B626C92FF640A967AAA1788C1E7745D8E7B7CC03E87B0FB75C22F0D88593ACF6C23BEA79C01D65F603108BBD7E37721EF5A2200F44F21317872BD426961B6F1A7C10A8FB8AB089D52BEB74FFE7C3AC3FCB1E5A358D14EF53044EA99B84C2D184BDF1731D4A58A5BBD6DF57321B664B83B9F817E11089611141DE20C066B0763F14BD489A75FEEF66DEDBEC47941A4E87801DE856B750DBEB1C4951322E2F6522A52BE6AF0174CC1A2B91919175F882A71425C081C75ABDA4999A9FA5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C97E7B7FCEAC03699481848CD28B9C8C601A3F2795DA03F00E2766D8184043AF395F14F7A0E1741CAE1C38B7E1CC306BDB65FBB81B12CCFA8ACF7C874F50D3CF0A1E81595558DFACB5615663A22921D3ACC5716DBD34E02243ED6E984130EB01505D85D489C950845CBC0BE43972448F808C9412917E6484D07C42751473AB7D9F00BE2C3375322FE3414EDA751E26A880760AB8CDCA4E87F1DAA9770D7F000AC1187C3324AC964D7DA59CBCD5B667B1D8B08893677D9505488D95F13DC269DB72176B2E580CA101DA41DE4ADF2C60724A53716A736C7883C87632350417DCD59046842A09188D1C72B0038744B9805192CD219398C073399C3AE464B0C01FCD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BD8D6D4BD5C7F832C941A6C7A07354B89C4CF21CB83CC8B847A0588722B101490E993679CDC0706492E790D0B058D844CC3AE4B03E7FAB592B8AC18DDD59CF15D5E0287E421C2D14D11E51B5D872D23C87D05ED8D0040B661D547721407272C8A0A8A04DCC5AC972757C80898655354105D91C306B597F5C708D9203F208688D888D59837C8C1BA876BCAA05F281508DD97836D3AC908C888B745830EB21745E8335796866AFF8771CC09B144A8CAC711BC82BF9754670721B72079D7620E2EB44AB40E77E045B6D80A31C31551BD383CC32A31C02809D5321571447DEE4083992EDBBA121A70A9996088DB3AE8358A58EADAE268103F90253D0CC3A6BB37FAA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8C75883002E15F86A962582A989F9BD537388807E58DBF7200F2590F75379C208DE5F920E4288D5501B8DA8E83D89E14160FD3CD31983559D99B02CD5A07D39534EBEC20D2F836A3834820CFE881D6CE4AF2D3308DA439C4D1ACA7CAA1E8803C2B1CD39BAA462117C8E02A88426A925DC90B90891F0D0449703E123618167724491185076BEB4747431959340ABEFA2C4810CCB627AE3014CF4C344841188C4973D2441C54CA42E4DBAE288B49204920F11BAF181CD0C66DF8EC5230D7E86448E3AB6D1650C2C652DC482A08EF84F36544834F4EDA3B29C116C0102B80DD19B3D051EB50402EA08495354198B353332BA8480DC081BAE61CA1B3A14CE83FA08E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("935BE4039BE0480DECBF7137C5F04815E4E6B2669C488BDB063E1005D77BAB09E80435FC73968B7B6DB14D7B03C2B6F4EB2C318244DD03C2603F5F7B0D9B00A616A89C297E642B380435C7D674B80053D8E755324380FF04784E9AB9AB9BB6E4EC4C2F0227A86E9C438D2CCC16B66B6528CE0A2BE8325400F88514EAEA8B341E03CDE2F668E9AC4C7CC489A87463B2BC95148BD04EA0A660AD50C13FDA85A3C364F60F8D6502F9B8C8D955F0E0A3104CA0860160E3E435C1E204A64EB934804B155F4C117FE60332FF2B9203F28B6C3DB0C141088A11037BB85A238EAC56E888F840281200AB0744C0B404B952B05D7197F5E79291D485B4AE6817EBF6925083",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C0D61EC8DDBC0370932BA5D41AF1C31BEBD913225EC7B000EB044E70C3B28573903280D81E4C3A18B03ACE486C788B58613928300CE6798B9C7CAFE88691DCFC6B03B88C8F88001285379CD91017A59C87B701BAB30D792BD848488034FC88D976D593AC8F53E04DC3AB259A7310E024A82B326086E1C881C243A4D34E70D4A5946BEB697EA83D3B98C0D72275202BC15FE44DA667AC80847584FF0A4EA3617974A7BE7AB4262D0447B702512CB038BA150C5E517E670C189C34740176B3D48611B0E7B971B661070EE8A9297A4002E57955D8FF8D07032D8110CE0C8F8C69D88EB5FF4E1333980ADA1CC6D37A154D1A676251051641CD79C8ABB073E78046B8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("473C2ADC2A80D9288E20B0F395C41017E81D681CC76133BD0B08369F81D50B8D8046308E8C19787B8C579C919BC2E940616C5FFC382B8462A5FAEAF9AF1D2B840AFDBE734F07ECC2C7152043A84D9B8125955BF0B960D7CA31000C0805388E3EAF7033972FF8408E804645408E7CC448488ED2C0E98DB6C58AFA8996C9E754CC897848784858B0763229B4AB63C972A4197A1DC8481129B814DC8B5DA532A4503DB15B3C74607E8E3F8D14FE9881C355F4A42E2677DCD68029C8ADB142662E7C51E73B9408071E85C54A4407B5D1938BE8066F89EB159D07B88A045E9C1E5ADC1888813FD0039419BAFB7BDCEC12170F7C2F7EAD1A4D3FC381E38C891408E171",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3E0BA91AD048F04842F63802E2C3A22F08E0B56D573D6B0D614D58D38DA2B6149C5299356D9293F7264EE89C89278549F3E13BC8158AF89440E25458075B8BAA2EEF489D462453F5F5F76EBC30699C92766212C78422539CE9950B24631125E4E6868C0B200C3589692824E222B0C18EA093425FEB961FDB85F8323B9C84F47F0B891F5FEB3B3B51C014403F4F7CE12B845C0C4BD18D5F74C125E8CE6644D604124F124AD3938D8428433BA7A911A13781B98E3EFFBEBAB716E28D93742BC56D1B126A6B183E1674B608241235F72EDB46DCD503C7C7185079E051FC0C53201B8B13136AEF222C88BD4AEC25DD94F07069CC8BC75D091648383BF0A54B9EE934",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8445665F6D747105E842FC91495C2C123BFB03342DB0440A63F2B0A3C4480E7879ADB815C0AA89DF061AF6A96D6A264B5C24C425878112137D93C5D819370E980F4CF501515A463895800396921EBF009C8D9C3ECC79A84891779B267FAC4C9C6E528576E3B6C0FC8C7E2F263E10A82E3899867E3F8BDEC8DA355CB742B9204260A82A8DB2F8F93CFB2D35F0120BF805E008DD18651AB709D6942B7C6973E0F7FFF3E52EF498FB63AA3480F0D090A57D574EF2ECFDDB58F005F8F2B841108EEBA2067ADD13BCCA0DDFF3BDA8B1D1188E200A0508DE89BA3BF938D9DD180E846BDBA07CB19DA50581C4801F14BADB04B93781C2C63D6BC2C3F37941033B904894",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("481AD8A0E490488208C5207275FE8AC60F9B845F376D38A44781C1303BFA3D07185C0F893ADC78C301E7E3A484BCC05CA8532476843F45F3EA769A5DC6052B41F7700292FC0A47CD8305CEFD8208F4158FDFCE90BF2219023924E55901C8ABF42F11811C00F0C4484E850C0CF3FA204384BCF3FAA024D081529EBB9407C0190BC124B7F834D0D920D36022D4009B670AB690C9A803FB0C058112C5C9841CA8BC8B32D4B0D104801CE8CCDF8430C6B802600172C0B300AB42228D2690031DB230BE94242BD00B3BDB91CD07C0429EE88897C83241A0938E5DCF04AB02E01C84A500198840C91DC3406AA40740A0E75D400325F49491D05BE3F703D83D360F4FC5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5CD20A2390A32AB390402E2292FB20C8A34AA6F0608E0064B339688E708E588E9EE70039889098801F191948849404B8DB04825126E4BA8984780CAC0A74A6A515281435A7A9C81020077DD33905A61EECAEBFFC008048C26AF0EC16434F748048BE2C432FEA6C5959C27D7564369FEA899FE40AB8AAE8B9A30074CE7C818F8E2C623B209962F7F908AECC955104B76F8DAEDC45CA469A4C89290E37D709779D58B85E0FAF8D0A09E09804D18B2B5B74C8737572DA998E73EC5CCD5E864C7B95751639AD72E24107E89A978DA9714BE0BB7261B865A25A3B33FE9A6053A15424D290899D973C19B818AC5786239E310C7C678F707EDEC157ED2AB66778AFE24A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6424223473621B79340128700418E3341ABC31732DDA9184C5C7D0F0387AEFD5092096F4C68B5854E935ED8A1C281E0C64FC54116F946F6E1888F287F0F529375C32009996EC7C4C332778C1061796A83AC4E2683DAEEC3CE2E6B0763A6DD103D38E6CFF6BE1D0B5BC68257EA0E34F41423934BC0C2E03D068E06E2296252040128105ABC7997C9EE0355C50D26588B42E6285F3129D3FB44B690A2B6D4D45210A579DB4EBE00756B7BD10DEB96B8BAE3EB2B407F8D904B07DE828B3BB66A0A0BC1FD0509722A2D0248EFD3B6CBE01CA008F9C543DF88B803E298C2C9098F009E4D4DE1EDEE9EB6AD5108F792007C9088F28208F47E27C274004D6188F7FB014",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("37858FD97B0F0B35A4D93C0E92E74BF4D9984CF301470425844B3E93C43588006138769C3C343EAC7CC52FACD0E0A056FD74063AD57C124254449803B79404A11C5E0EB0810385EA1F17B7486C3F872C22C534713731450B476DFBEA76D8E972C6A47D149B15EB09C4B50CA86E158BE840ACEC89AD178B0C99EE6A668EF7748EA86D051B20E1CA261A189C75EEEF289298C4169C979B71261A87DF03D483F9478ECEFB7E7D0CB97E4A8CE58AF9023CB9E3794397948D9C941A7B66DF0E6D3B40032DA4AC48131DF0AE1CD869C0A25BDE5F36F9E27799331D3C99D945F7FDB14D087FF35302570CB88FF18D2F4D30D1DCBE05C1E2D9BCCB1320CC040EA7D12E01",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C2216C0D8B1BB8A42F433AB0E1C1320C3790E4C7E8688381C170A16E121D9B92261CBEED0B4DB0E1328445071169A689AADC68DD6B136D6423BC0C10631D6FDA2E22B046031C1011A1C05BD2026A225AA50D3C6255E14E8465FF476F94801B1A4945892608E1C8932DB169FC14BCEA88318B738BF122BC1DF8989DC06DA040C17089CD64036133283B264003A55C4C66222671828141190C3BE0DCA78B863A2E9E0C68591407FBE8D7DB64E95E0356C57E87F8858495C85D9987824321617903EA6842BC6E5D8FF0800667CB786E5B24975E0E6C62846C353BEB217CC1B79B8491D58BE938E06235D63488FBDEE95D04431F72FBF88EEB0FDFDF9E8D47431C88",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8BCD3B1C287D033F284125028305356D4D812D6C55D7F3E1432871D02562DDA543B0F1286A22338B877ED44D07B26F7E117C65BDC1035B50B7C1131E644CA3FEB5A4C96C758D814D1AD800F3CC4B8B19580B6040C557B7B84082D8A430E87AA2391F50DB2D90EA03C91011981D182AA6A0C9D332E54A714B791E91C93AB7D37D1686E5C436EC6A7AC0158B0D04D3734A8B03FDE57F2F4D476BE58370DC08A3C704D5609EE4C3BB5CF6148F511C4F204A8C5138F0272D6C8CFE568D84357C4B0C8E6942123237B74786E8DD9860540580680FA0271501384ED00E369315790FD89BCE63015F3490ECC6491BD7F07701EC5C741C6D98AC727170D8B44B646A4DA2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7D167C0D0207023A5C12FA9964808A24DFD0A1DCD4026F125164B0FCEC7C1B047CF1C5A28630F6A11DDCD408CC75C2DC121476BE33EDFC0930848521A30D6F1A684AC613CE8C36F229E1333099D584C9A0A9A915A078153B8B30D3A6800B59D897671A8B03C54781282060EC62E80203585076E5BDDD5C49422BB4A8D8803439357860304418021B45736015408C4FD982609A45336C9EE2B499A7D3DD84EB0CA09ACC4C135938C9902C4085E6ECD014CD291DA89ACB7B0B0491C466D8CE0F9E183BCF5E38C5EF180E70FCEC04E05160B4764B8C1A77CFEB02883E9F13DC0D8EEEE4E4D889BC0DACA0A4C632A39E8677205FA144D2C00C3AD28CA4799A769E76",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("57AA68584A3873188BDD80C7067C64F66D33319CDD31447D0D402D02DFE43C8483C10CA64E43B85AEB306F301C0C2226634E8579BFED783BE83B5D5638F369452865818333348A6D2AFEFD0C0F8D0C04AF8B57AB909393A9D0D4D02908039988425E84C0DC3DA98B0321E4428E50B8C8EC62002BCE15F0950032607BB5D84209E07651AD2D939393A3CD50B8B83B40AE90BC505DB6B6A0B849D8D6D9D3C9C950B1D9B85493E148C95051DD2127E40D33135813C0C925974CD0E8B8202705CFA0537AE8B8C1826DD840C3DCB3FB66993D22BB2A7025C49A0DC08E86C139AC4A37D01B444B4EA0F5D761931B4237A8B3348CA6BB5CDC4C2D36487221979CB060C8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5C72C914C8E0B02027879C98E0B02717723260C8604827272727CCC8B4B003723225C89848EE0AED2656D749B04E4E4E4EC864604C209F434E48069BFC96FC521D45FA4510FC612041BB09F903CD8901DDBD01B6DFB50382849485A0B37C3D3F9986AA8D02662242AE2BEFBC2D257CE5BB15605C43AA6666E3FDCBAC30B5EA8D1CFA0BF99BA65805AAC13051C32BB7697BA6C3B9B4C3A40D15363736396944C1C10D5244D84B19B77CB595C1C290AE61038F1E4C0E04FF7C83E913040AB73F8201122729090C2E75428AB4F85101334DEF1D3A8C8D33891CE805CB8EF3330D149013C88B8CC2849CE4C8D338D3A0D13839C929E4D1A028013001029A23272001",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("18014F878F2D4C2B2D063C2FE4E16D93D3E7C9C337D3DCD8E4E4D1D10D5A49BB90032BD159B2283A4330C818469BDCB4BB8DECCEBCD3BCB99C28C7E3677777BC1A0C52C628423BD5307448F2A9E3FEE846711096421403C4C005F34589E3F6726464225F8CE84090C9841CC9858CDBD6EA067E34908BC5DCC657442679215F8000CE0C21AE05628521DD2112C18C9DBF2F624430CF9D85D9B8E44B1E3F50904333D25F2C0B232475988F228C5C099080B5407D918F5438C97AEB320BE8B8CA1582CC07CB84C9211CCB0D193BE149291418072E86D40CCDCECF4CC36D34216406609B03635F9801A9037A8C0D81089393ACA0996DBBA7655F0C38DB23AF965693",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("66A469B268584838C9C72D7688CF6B430349BBBBC903480C3A364084FC29C4446AC2D60F8CE5B026298DF09D597887D8A786D857402C8085585479266200B76480211B451A1E733004E7C36A88439785498CC5402ADE795E94850DD0DB402E169BDFD86051DC0AC47A32E5554C9ACBC0AA03F6C9C214723250B89C916408F1403DCBA0221752DB77E1A9C822ED52DEF075EDE458AE9350B8170DBC211732C5EDB4508AF3420C5C8DDD84F903156B21DBF9B83521262750B472581CC969B80DC0490340D0E338979CE8B8D730C4B010653F54871872527EE8B8930319F9252303D2DD9C03039B9CBCF394030DC0ACE872D22686435EC2D0A00B6D311D4A21DFD7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("21C612629BBB9A379C9CBC0D58444047601CC92527C848C82127979CE0B0B0202717C998E0B02717727260C8604827272727CCC8B4B0819C1C20C8981B42BBC9485EDF47DE106193B0BBAA0D6095424C4E4CAB2844A5423DB87EB943C11ED77B408908530484AB7C47DEFBC9C4A59EFAFAB803866DAD2187F83BBAFA4744D883FDC79E4F22AA351B26E886727B496A1A2296CC10FF25FD8D14DF8BCA0D8D0CE98BEA464646AEBDC5C5C5C525994A46C5C3282113FEC86C5D0081FD971C081E4252C313943B7D01D49392865A21164CE05243FF47B1B090060E0CDA13EC64E8605F59CDF61B24471EE00CCF73C238C2A0215C48C9C18881660B920CCB831F1886",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("18E26840E350C085F83BEE5E6C1F3C89ACC19CC2AC8E9C86C9C19883C230C2988EBB1BCB3F0D5A4536DB1C72D22E5ABA281846769E9C34C63098347DC1ECDDD1EE9C28CFB41A0C34454872F9B828B9C3DBFEA021ECA82185343C7C04B10A3F9E94132F858D93A813950C9489B8A0CE24709313815D0494ED590548E719F829B0F829074EE1AC131E9716FC01A596B0A5BBB85C328E8A020F2327CFE5120CF87402938C217C8D9113CD248DBC1EEA9CCCDECF7C130D8088E515F560DD13FCA813AC1570965C7CFA3B0069A5112F02789B88083BDDA6E67403BAD913D77C13D4C0AD707857964A07A0DF80CE0503269A3809652012004178014B6C66471E444350",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("64368C8B846FBD802714EA85C786505A62392A8B90D4C00CD22EC422CE0EDB14DB624CCA95B0203EE4C68BD74E20131C8880683CC54E6E4AE83285A8B300E82D8C4704C941252C9A3DC23B0F2139841305EA347096A8841F24D437C409587104EBB5802D14612B033909B7119C8693334212B615539B3B8F350B1719B187014E45BE6942089C5FAB51D86146FAB9BC8ECD81173B837F2CE078B82C7D96D20D99C9158B12CE079B4940577ED48BA96072E8499413D306E02DC04AEC161592C31E730039F20A1891209164E2D3DECBD5B20114201220A708FF80051390998657D298865BD6D8F3BBD174024F60046E3D64301FC2878C874DC2079B2569DE02C787",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D8141E14DB8B8FB0A369FC2EE103F7D9BDAE112FBE43C70FAF8F6AF7F90D1C6321448EF196C47795D8CE8D34052CB6717E44DDFB43AB28FC6C663EC101745DD08B20C81C532891EB06104133AD22CEC049B3F2CA6C205F6BEAA8CF49B0833EE54B0C99B7B483DBAAE002187D26D863481DF3AD459838A10A0530F30008E6155054982B1C66DE0FAF581FEB1FE020237B5BBC4F2612C20E0A6841659F88268E6058022861E0E46B97BCA32C7C2069C28DCB8BDD58484CCCA12927D80BE16EEBECE003FA5C1536082BA759A30E9A8B6DEF9694DB7EC982D2E006DB42997818DB8FC8558C07590E1FC2D80B0D3B6479344ED8D254CE82DF49601CB74ED904B2D815",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("70A9BAB67260D9179F4232A11D0970742AD8CD66CB38029F91AD001960B70EF121E4CBD0E2EA9393EDB05289348F4D410B0EB094AB67D2786B1FB52008C0968260CEFC0C45622DA8447432DDE54B609F3D6C8BD981E3E8665F255C3F28CF7C81FBFF2861F938042AE971C1C96668E607C6DB81C376CB03EDC351874984A04C1105B49008954C61E38B401EE4C1B18C1618D1CA7467836B92A040043A27DF1385AC49973BD17E31D1EB4AB0058606C8CA03DAAAE27557841177465F5603624522499FA8B8264D85280B98C5EAEF90E6192BA08DD951C1188E830120C1A387BBC4E94D3F755223814C7662835E42EC14D3C5A2860F53D81C1813CB0394C08BABAF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C23C61449C292852367D4BC0AC3CC3C50855058985F0CF7C29C21B720337A6638BAF917DC9D1EB58FE41B86C8C3401B4B85B1B197ED0769F364781106BC1B10E0724400FA9DC9CB0FD3C4FA48F46F17CB1A9F9D9EFA40D3B087E77BEE7718BB78415B630E960E7B884A4545ADAF6B06503E14C7AA179E20CBCC65B7B9FB303E148391B890C93C65404687CD7D7E00FAEDA7F55400EC37C9E81C4C48095328C87BF5532C9446180993042C82801067CE447F2EA0F4DEEC718614D9C987FBA3ECF440CD790A0889101CDD5A45711B03B47B0AEC319D3910A062C340C17B7018B1EA76F0224A7A9087DA4B792DDCDCB07D28039B294D003F854811C812C84743B39",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("083023C1F0D3FFE5E16DE8D8F79579D089154880D3C58A14AFA0EE83974FDA04A8D9FA077C034E3BBF0F834DBCA42D1990CCD0FA584A6E40A0C19CF22F64B97474F1C1EE1481E6C9F31C3218FE2CD9D2149C7CDE81C6CE14C8FB07E401CBF0F1C9F634AF89941CC88974198010038E174CBF5B0BC21B8E3BD17F0C2C4CCC169C05FE3203F0B4D0809C5C03D345900EE429F9EA0F8C18E88B84C0D0A80879B1493EE4E89F84BC249880DB2903058F8D3961C1F607C30E2D0ED89FD623751E8D1B990D847E3C136791837C7C13641336B6F036B141378C3C5D280CD65B37FF93243B205EE28BF8E6EDF0B01B765240A8941E33763076C374B1BB0DADE034E86C04",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B4110225F9D044FA54251DD69AD2C8B7477A14D04445747B01A4C887CE256CF99841241B5BBB7E0F72517268A4E2ACADE01C9FBC643322147F07877628BBAB7424700D3E8D8BD2684A3874933EA36C874C9D64E44A86709270D44146A6746C81C25A1AB2859131B93F8714876147E13BBB1C7B494DC9C89880F592A3423B59ED841321A7E47023E1D8F54A2427E0CC9E9416193D00022FC28195EE3CDADF2C9C8514765904229E75504700BE1F98BC00396008AC1254590A59C71AB2C4B7B9797F3E83F41B0ADCC783FC0C001E46469A91D8F815D4B464361B69D2D06BCC0BC864646464C4A8ACB064646464B8E0E4E8F9007064ECF01BED85A7D9363E07B816",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("538BB34796CF77FAF3081C0C1C0B001C602EDF6C0AB3048BB5787901BD748CCCEC01CA2BF7F43D107CC8BB828B48181C3E331432C8C8C8807CB4180C3232328480B81C838C8C8C8884BC20202323238C88C0C8C8C8C824908CC432323232289490C88C8C8C0C2C9894CC23232383309C98D0C8C8C82034A09C323232C8D438A4A08C8C0C32D83CA8A42323838CDC40ACA8C8C82023E044B03232C8C8ACE448B48C0C3232B0E84CB823838C8CB4EC50BCCF202323B8F054959FE5C29EC08D3EA7D1F493584746466667C4C0F88BBBF9CC7E40E6B35C3FC895C42323EF19FCF23360CCC883D49323001D641C42106F9DE18572AA72268330BAC098F2B8233161DC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("74741A330351880E56604E000421F8778BEE39B90D0C8B5E835B36EE124BBB1A97253DC4758BF7DFB37A5121F424B9EEE8CE8D898BC4B8EF3EB88D3C7F6B5E03D76E503AFA9CE831D79308B4B5CC8D3AF021E4543A8D34F3B012EA4BE35EF3F3A5DE7E0F8D49ED9D7F649F8D55348D448D409C4F2225F3E188D00090D48D84B47AE26CFCBF27C446DCAC0C2A8DD289CA2B080AC8B8C89DFC6F415A247F409BF6B4F4798D72FA64B2642BCDB088D4603D70540496F05F94D5058B4C041058426B157A0B1E2C18282C4BD3561C4B081A44401410D32C4BD35C581C1870683C2D4B7420248B783D808CA7AFCDAE8B591E83C2D28E6012F596B270ACC2FDF5A4E23D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D3FEEFF18D2CD18010B3137F048F781A6737FD03E92B088B617F47C9F5C305070124F18B37989DB06E4BA28FE03C52B1062F830E1FA0F76C2E55CB837D948BD8303308AF8BFA325E2B55DA6C90E69991F77A0B141037B0467398774912B4BEDA0C1FDB13CD24B945D9DF8D4646DECFBB00935C1D0A5854501504644648BA4CBC84006E0E208746171D60105E94D03F90F210124CB0EBBD28805701785A01DD2F027E986127177FDE7532C0BD0DCF4533BA88F3709C0FED3ED9C0BE8696000A253BFBCDFF2BFA8D14528B84AE240FAFFB2B962437AE280CAD50FA8BFA03FA2BD80356C08F95F5B0CD6003DF10868F013D0D172DDE64500E8C0BB31A8D08A240EB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("61022E4D4CCF023D1C10C2CC0B677812591C779B80B653327AC3E26EC33F4438FF3BC77C507B2AE291F57947993D7854C3D15750BF89F5DD027D7388BA168115F54AD8A3455CA3F86FE9CD0D6C38EC1011B001171E0DB7BB5A7C0F8A178486E71CB08E6E1C1806FB70C120059387570F2D7787BE2DAC0CC7C6EE498C0D331E8225442076B933187EE88188E2AB0C661699E5E11BECAB081225268B461704E74296E79416A4465480E36199E111D9460845258D47FF2387143C6D47EAC880F8870C142C1CE78080830CC82178783461258B85FF7EAC12A10A937C7FBCBA46B9E939795A4263D8D4F2AE0B292C3B89F4F27CE142F020ECE8BC30425CE005F062A0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0B2FDCC9B8E0BA701119B0E9A861A78951294E45CEA479E575758B081F041524F374610088858DE779BEF025937E83858D3232F29E93C13314807C8C8C0C32B41884802323838CB81C8884C8C82023BC208C3232C8C888C024908C0C32328CC4289423838C8C90C82C98C820232394CC3032C8C8C89C98D0340C323232A09CD4383FB2E7C12FA48D3F29DD89B3D9ACC2883C1690D8ABA8B3A4F385E76690DCEE8BB0A88EAB64E43DCFBB90EF3344B019196464ACE448B446061919B0E84CB891414646B4EC5064909191BCB8F05419646464C0BCF45806191919C4C0F85C41464646C8C4FC7E9EE70B82AB9B90EB89A8F6F96679FE99D233C98B9888F80B7A34",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("895318C521725CF8E44C48C7809189BE11643E090489905C44BD0D41982F9CBE8A9E7D610123C45098DBFA0B7F5CD55BEF1F24BB82DF8BA8B7B37924D2B39E0C89BE6983C2257ABEFD7BAEF8AEC916A66B3EF0781F8CBCA83E900DB1BDCFA38B2539B60B2F7C1B13D1C1F401CCE7ED9684A8D18D5CC571E1AAA322E388DDA50B56C2451471342E3860FC448D048AA4E31E0C01089B8BD03384171B9E8B824E7D512810706102BF82E3211716DDBCD43EC787756C17CE7CE7971FB31ECA3CCF17FA97979703B78123071BAB945F189902E98C82FAB90F33C820532BB5155CD885F1FFF7B24C5032D04BD8A52F835CD2440CFBDD00A9472B18A0051B500423B870",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A7B2C17DECED981F1992ECC635F132FFBDBAB0A036E98CE517DE7561A9B2898A40A9E2963C2824761C860B1FD617EE4707175C5817F5E84F1413EF295AB25C47177E782BF8922E489F4402D833A11969580480C6D661B305832409BD09117044E3C1B701FA08841F2660082EBCF2C212ABE4D15FE0008D97840FFC18A44087F8260E2047C006FC847E060892D981A40C12506BE281A01BDC936B0B57B452C92F3A287CBFC90FDD94D328DC91FF8E14F16791D84275CE335C1006CF862A39AFFB51292562EFD00130E095994679AF80F85BF98590F5A881227C05854749372099A8F7D460A1705AF991B8B33933AB381B324E9231307F1CC073F283B507812C33",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C9B8209083CFC88A8A8BCB85C22AA0900DC5FF3E20CC7B4075CF89303A408B8E389D040D80AB8F1E29F883340F45EB888AC97E1472C1C73749CD758391825B87281C2CE5F64165928392FA2C713340211F7C208BD701B48432A7620ADFBE845EE8C18B5AFC6FC13BEB0AEB3BD672E8C27F82C63BC534F80F0F87320C0B5E186085405AFFE244896E4ACAAD80FCD047F782AB8A7D048B17407DFD59AF8D04500F7318E03434FCB1FE72EB6A3CD9010A585FAA9F152C853CA1463460040D78D82E5A99E084D122B9BB5FC306A79B07BFC303A5A0141A817603148194EEC61011F7BE02FDC276031D45B8495B70267CAF1FB614B1002A81841C198CD46D869E8BB2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BC848BC972F213EC14FCA5F7040AED820C76E2F0F417E7010E1693C2DA8B149FA015B4DBDA0A0603EA1E14AA100E385F3CB8B9B2FA72CF1C3BCB0B7E05EB8D4201042158DA3BCD10CD02E3D9E713293C3D0E20D78F0EECEF45D2F1BD863B0D6477E37E60BD1919C8CFC8CF7453BD1A8446BD1BC8CFC8CF9439BD1CA42CBD1DC8CFC8CFB41FBD1EC412BD1FE2DAB2CFD405BDE8C3F8171943E87118D14A3B8AE4C57605B4753209B9102A7CEF72C33770382ED41C9A48113096859586281816D9031B051049F8DFAFB957FC740F670E7E0703CBB80FD9D7504E07970E83FA258AFB8CC2BA0F1F0C8500786750300267F9C88BD1C1FAE1D018BE9049D5834C319A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("900E67114C3E0A35B54FB281B9787E60003EE089A7385F9FE76A951C50015E7C358862581E34EA27812E2C48871EDB6D06849B80DC34C504DD0453D855950D4A9FB731789A908E6222A06643D89F308086D12EB2A5131A4CDF6D429F32D3C4043CECEB112CC0766825430C6311CCB4912940E688FF091C61BE0B97EC43BD49E1FE93EDDCB4D0FEBF307E935AC0E07E5160B9F08A2084B760C28161553CB2DADA8FD01D16EE1AB02CE0508D9EE6D0C10CE87FD1A30AE5AB76875982F775E98EA749834FE0469DAF20105451020AD464B8AA6170191F5F311C06E490874C6B50300C89EA6109B9E4E1747A59988FE4919191C897D24C8B4C700E090F8CB1E1742F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F506BB2482293A5514E97E9A8625DE4E0C814075EC8C904F4697F27CB420032561BF10048E044665ED2C1CA0CAB323D2205D44020BEB20744C14AE812DC39091219CE1200589D104CDF12A6891C2DC9B6975102931F90D0D5904EB0E442D9998C21E5A6C4C3A00DE807507BE26A4BE5A90F810329E8C6402B051089B158A54648F05A8348CAB809ED0DA102EC004FE3C649D41308A01104618134619C6F361826F3A74039C32002DF8BF32AC8A87C0C2F2158482D02DA7F8B0F0D3E3798253D62B140E06BFC36FDC1CDD867A21FC6E0ADF6A82688D0C818D6CC54434B1EAAE3FEACB44261EC2B89C2C2E99C910959132DE94F1D62E084C148D3C931BC45B7036",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CD44F246919D70008481702BF00A4862D4C669473E800435D4EAF0D1FE24C3C0329B1442092B0785E4D026EA81CCB6DD453C4508DECFF1C27805A0CA1910D8CB0918773FEA26B4D9570383C52011351E79EF99B844B00ECB1FA8D9530CC9DE0DEE19092F05180452177F09C211F5A88B43294B41DE377B371B6421D95B0435D5FB2CAF132CB52308CD81031EB64FD6B586893522B5899E5B0C8B4421F2530C08C310921E8E8F4EB34EBE6C5AA8B88B1B2874618640617A6A38F68E470E328B033DC08D50C941791F2DC5535461C80E1EB48B9B100A503B480436D559E70846181100083682069C5011524A718E3FB53BF87F150D84BA31B0B511A054D30A473B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("863C0DF1CFA0F53F4C88D45688DF06E357D6879918A4F1A986D2C8CB44DBF8278B968311780C56EE275E7B6B8E3EE80EB2DD540C5732D21A8AACD1D1BDB0BAC8551C0DAE42120885EDD2DD72450E5398E2E5464A72328B1462BD4E3494FFEFEB0799A7F040B01FA4528BEAE37D80BAE8B405D9FB07AC1C324447ACD585E64D72B0D985B42BC66DC528161EB515CF9824D61CC349B3C84E3E1ADC42E714214F21CD14106C24105CC804C8D576D286C8409C1814E520902BE442D0E8052A1964E0D835408C61F005CAF1B4752456B27AA6062E22BA4F405CE9E439F218F04AB310C0E4C032E75077F8AEE0413BD1020A52514A044D1AC19BE0082702475A3B425C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2E3990A2F8421410C492494610962B90AB019FC004D442B8E8AEDC5E706A469A60281C2B4BE70079383D268B8E0E2CC781A6085E963908104499918F307507BFBF197832BC94AC630C4D3789D08E9F186608C238F03C8E8645C82721F413C2673C859F993EDF092233FF9C163F8E03BC4F08E8A7166C4103D6EE359E4189A94F58D3E74E7CC1374A099770039E83D02BDF07ECB40E436B664B82B90CC9303045A078D01B58724624FE966E98EE4A44815A73312ED6A7630DE839D37B88427E1A28C62D7ABF778DFC087A3A55480E69700940363EC87A8BF83517BEF0AFE7015B774692309ED7EC385CAC00931B1908088DE86974BB6EC9B7B4E869E42B100890",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C9BF4C99794FB83D08331849B2D4E2ABE827CF497599D42A702F04B825744DF4A45477D3DEE01DCE1CD9EA208D5A084AB7C0A245664D085FC1F58B3C159D28705A99C316B4E1700627EB0AA29BA646260836C0790B0B83DE2D140E72B42DACFE422AF3183BD197FE39220A325C3FBC13C8052EFFA11C87C0814C2008080CB021B09636761C0BA14B20EED28F44E7D1053D0C3FF50137CBCD851C8744C8C1E01487F87C938D2233D2BC065094343A1CA3062A79BCBE28103DF85F5FC1E70341F7DF03BE60D3E247203A07E72BFA73FD48CEA3344C792095311C834332248B2848297CF8A337CD37FA7E358B444CFA2BD0421E1CDD70471BB9ED92D78BF931959D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0B7985F9006F811CC81029303805C814324048615190A2204511B91D45DE0AF5500A03D15864393A91168D0B4BC17400365C115DCF894B5E451111FE902C7D62321F448BEAB9D809E81760CDBBB3803803FAF9F85AF636CBFB4A9DFC110D0BF8752EF9FE2511E64A861B0818E87821877FC2CC9D160CB196329578E47E67E7ECC3822494618B8CFFF9554840F40CBC9DF0C20BC10BC60B8C831B88C75287CC01E0FC5C8870864F46B77137D2AF404CBEBC4A58890FEE76F7E6944A6803C703F2BECC3C7FA18BC49E056311A74EC277E418802B1B7E10C1E009E6762623011A9D252980677685DCD59342B1A613B605487A0B081AA706EEAF4064E3841F4EF350",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("601B092FEBE68C1F4F8D1401BD899F8103E8879494977CE19370B626678495D9A012C4B6068DD91515C00A082703762F42F8FF97807DFA7C4AE63DCDC1EB2231E40DD317E05DDA789F07B794A4F305F31C12CBE70B7CD37DDA45261772B017802C8D94B5BB54C42538FB336B7D298DB44B8D9C151E26B49853342CF2B0EBE70815C887207DFD128B7CBC5875441738078D2028C7F1A81FEEB082A84AF46318BAEBCD58B0527883DC5A34406702B6453B97E9421C32104941995280493FBA7392770F541F581F248A621A294D9A1F3D8D0C6407898C3FFB449C208431C8019C12F8D0F902E78BF5F9696C8BCB69E384E9E8C138161DCF4C85AB0D8DEE1C0B0D38",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1887B8664258742C87A84D1E4A4F407E4D5C1F10671B89B960AA027406593BDAC41FE02DF29B90501F307E6089AC4B9E1685A7E50FF0380AD35AAD31E40C5274CECE39858BB4DAAC3DECE728EA58C503FAC93BDE8B61E981BDAD7FA7D0023BF8A3B143D4A61CE50D8B1DDE0BDE8760ACA0BC651DF949C791B7B52B3C1FB81BDCB07684A263C43407CBD8904D0294B81B739D05A7E35484902AD41B7B6C43C76FE1846FE66F8884805C5CF60F2271778B3B5630011882342C74CCFDFD372C8014FD4D9400E3DB15FB8C1B848A7406AB89890F8D4FD8938AFF32880394B4A01D328C0BBE7B7833248495E859C7005A848525073938D99D241FB66872C98C913B7F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5889E06D3B997E6C6148902D707C41E1BDA7ECE0A3B78C14FC2EB489998814B257DC2B8427F9BD47DE6F55E414581E6EC4189414B41BAE9DE2B58595C895400F3080D245F0170F8C6691DF44604F873C1F3978307878BC10B0BC1E72AC343C659A7830CC322CC859C79D400C721E0DFC1DC9C9C9C9F8F4F0ECC9C9C9C9E8E4E0DCC9C9C9C9D8D4D0CCC9C9C9C9C8C4C0BCC9C9C9C9B8B4B0AC43D04FE2A81D86041EF0E09291D54EAAEB04162CF027AF1285C5AE0DBF610E8BEE8909FC50DB8C84BDE8229F863D24181A994C9B119104883862539807DC28003B08DB28ABDA6C3B45E0A7AA440C474E8AB62D1250409A7C7605B73FC17C138B4D8B11B793F619",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E4C7D784861C14242E5274B371FABB1CBFC2D9690E174C92BE9A44331BCAA8A447D1BE3072700A264CC5489492B069FF483B3C9A7D4A4A3403F9597B3385661F53349AB844F16F2DBBB52F4630DB2855462C3303F1E31AB84F072E8B723A08142D82F2CB13FFA71650DBDD00D04514FD10891B01A930471D6D019990A1BAEBBB774848877C19199AC15AFAFFFFCBD5393857719CC48C7655B70DC8202D598485923C2C8C8C74B4996A131E1D954F859692E7400650206792033939204C5072D583D576482B8C7BC11CC8C9C88D8C8D8520541996925EFB74DD204ECF4B653F1C3C8DD4204760504623048632B0856654E8ACA0C1EF56D6E1D7E004831D1388B4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6E9685940780914A4838FA80B32600C796428175673C211D6C9D08DD87F06F02F5C68D5435B5E53696C42E041C63B7282C59192F90846EB48F838BF8B2B371588DA38A9CD73E806B98C426F014171C0E6E84828D0CB2C381BE5B7F2F240D2A402D7CF075238DABB6764F86C765E83EB1C070D6FFB36910F00419802E8E451E4B0174AF53AC88B491F80AEB808851CBF33BB2602EEC85CD1CBC2EE8FFC531D8001B2D8241C21512DD7ED6E0F470C58D4C351A8402000585EAD1CE7CC3F43530188A20F5020BC1DAC26E1434D37CED7FF1F6A04E122A6D2B69B758F006DAA83B473D02DA75187A877C2A108406EDD43A186E2BAC8760040598E08F87F3B0D4A414",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("820163328E044C0A9CC7BE075048700A997522CCFB63245988A8A800192F240488AB61DA72327BA6A88731BC750DB8B42F8D4F7BB0756C9203CE72B605C1F3060181041C2995E0F2825CC24FFE77055B920EB97FEBF3AAAB60E4578C261F6D9085121C632B086044A1576C0889A16CF173A2E389CA2C357C3BD8B20BEFD6B2F1D27DDD7FDD85947D33C51701B130B20C3B05705C67E4EC95B77D0941F60034E7644A960D74D538E7644A960E78B43CE7644A960F7C9340DA66409610800575763844698E647911845948A73992E512883C4C9EE64896138C1F501445FC23599002B21580FA155A62742149C3098D8F0CF702C52BC24997F981D0E1C92E300EA1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("662187BC538C223034741C72C8C934387838C921879C3C7C3C9C1C72C840804044C8C92187844448879C1C7288484C8C72C8C9214C5090264DA71B225B3EE891F1099B6366541F4A5374908FA1BC83FB08975280CB71B880A1D3668E8046BF877985BCFEA40B3B1D1C9EDBD2868D29300CE5391959708A340D9EE5699B747C7920380E7868699EE5693C0F7C5740E5699EE510804644119EE5699E843548128824699EE5694C138C1350E0C59FE5149002B0153CF784D530A3F016AD390CCD32518045A42705D0417DE83BCA19CAA2EE1426B7871147891DD816F8F7378C1D2D6A8E09A8BE77EAEA6BDA89BAE0EEA4417027818A03E7C006F4373CF8AD6B5CF9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E2D73B0C8580A2477D2D0EBC5723419DB2401621477171BF1F3C863BBC2B627D0E8910142B868D03AA9240BF57A0B82820C186BFB541DD6BA2078B3D95D81E74B0781AC42A9A1891E8ED2ADE342A392BFB8B7BA3DB6E3E28377582523C7FE4E4E4773852F8A180403CE4E4E4E484444088E4E4E4E448448C4CE4E4E4E44890504C7F747740BA482C5C580BB800A2AB4EC8442DC08425ACB8C08A4396AAA1E9572D25D4C30E5C00915A800871F2096FAC003ACAD3CF532A9D09C68D14C607C9B47B362033C68C56521E10CF71BAA256DB6AF38BC8540F86E47E42FFB0051E9EE80A5F8BE87D3925895570920C8BC587704A12E5D055957410134387B0750C584B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5FFB588542EB0FC0DB213BEB7501FA0DBE62237D53EDFF067C3849B3076FA4F382E0840CDC5BBAC9C9D8D4BCB2C1FF5EA38BA9FC83C5FA3BC57ECDE92D7F7C6FE17A7D307CEC3F0FB075D6500226D381C0BE91F4FE100F8240449E8AB89068085645358D495C7BE98BC334F80B14A27781D0A08607433BE9BC498CFD8FE9FBF80B7CE78BCD77C1A2626B1B90BC697E8E5E005215751C9A4754C1699AE1804FEAD684DEDB169AD990A1FA4194E142E242DA8AE87FE777D0B86D33775DC2E04A780B7686C209DE9FDD74A442883B2C713E54623B8A50C4DB4C772FC2740FAF8A369FD95258BC15BA6003CF3F5DA62F0FF3C456931092F38856B101F725B032C0D8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("351A6DE363C754585F850C4CC2AF78D24A6BC9083F98A5D58CD18D2CECA97C8358F75D02012A4B0270FA08344DBBDF5C06585450124CB0D180612A2DADC337BD472BF1AD458E45482012F2DDE2A26023EB186050BAF2EB4B46CA9D1BFBBC50866EF7C883D57E06611CEA4140B82A457C5FE94772CE9BBD48A3E0EBA65DCF3CBB1F84BCE22BF08FC2CDBBB38A5B09F003DECC9C6CE56C2155DC12F86E2A70DCA92C4276419CB9EEC2264952123EFB1F8FDB84073DC22B9E738BEE900F66010FE968B69A8D065C3CE33CED0092AF4918B5760700747E0ABAD1AB5C9AE72B792904841808C24C328AF16BD0998C5046AA64C02E87D13C13C4D4A05848C4BCA5061D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4D0946C56AE228F0EBA14250933B5BA34649D1180C697E2F0FFC63B70F543B88043C7E0842275424583B90086A7B31F00FCF43890F12EC19047F3B830C3986114DD80D3C46FC2100BD712393271B8E89E5C0A2BDF67C200C8DB6493A67218D5418149521E76CC173955854D6048521855CDFA26E01BABCD97B608D66E22DC39C3BF123899DCE81DA2116FBE95CB2F13150F17B8B7FE8F213B38BF0969DD80B013B4CEB6AAF751C473D59C21640B49ED2B5FB0E799941490275185BCB33F43888A816B67B7A78A9C1922F9493A0E07C3E05480A9558855CED69039E25C785F4E5F13B2520DE79E689BD3DB5294B96DEDA098D2F2256C6E4C70E5F17430C03F866",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E94DEDA74D7FFA8A3CA5BF9C33B95EE04A5A8B58C895E848ACA933EA42D67FB57D1ED90F6E36B8FC4A62C00F7F4484588500B89108F60F77E152F3DC3CE364CBC1E1CBE1040046E744E6EC392147D234DDE87048364A437248EB4769281A9BE8617ECC8491A6B9E9D8E3BEF38DAD70A012F5EB51ED500E2D73E5242592A7FB7C8F45559969024817DE11557684780AAC810FD54ADAC8784828040F222323137848745C15A6DBB35E0D1B502A1684E16D973C605DB12246D355176E88CA8BEDA1602C68014A62C9F898FE335F41D20F6F09DA0F66848210D2DEFDFB57560FDBD80FFECB75E52BC10F73D120170D7E5A84C314318B48B38045764B01FF6749A078",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8F708044CEE4C8D5E18D8C315A11858D4C38ACEAC329349533F640A22BC19EB5A1211372B5152D8D782FAC7061E901CF8BEFBDB48CDEB303CBE6DA1399E599EE5E4B17CDF16983FB977CBAB41A433DB38B904A990E4E7E3D027516494F19E98069216E732F1FEF4732254FB58D39BC9C0CC88B8D9D71FE8B8D810CC8815341010AA7C894C4868231C43F54A065DC5B167064260CD3686A179ABC430AE3B18F0132E8A758B8D1BF945447592CDE78871B717C77193060BCE3C6F2186A34515D1938E3C63B6E4950193C41C63B6EBC431940393619443B6EBCE331291948291C196EBCE3C64C210F195019F1374686A3AA16ED7E1A0012E285E814811FC6B654CD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("58F23240CD75D4262F140E42F2B8BAB234F2C33A9BBD66478DD59CC782B1D1AC747E3526C43B1C3F21A9198B0C8709E352006912E10A78B8FC95748DDC378498E1E905CD7181FD84950C8D4805AF42438D0BAFB38BD79CE12CA76D2BC3891B90775F8DA1BB4134891F35746519E4653834A1783C3819E465907C403CA18044E465906540844844A188659065194C488C5062015EE44CA1902F509C64183CE3C8E7AFC000A284B4FBBF29AC8ECD395FD2DD0A93FF40C057446A181A99C3D188F2E5ED0A2750F18D4504BB54126C154106DDC8A805C098787E10A60CF0A927B240ABF417EB4311400203A1D5603E411F864A019CAA7D0CF4AC4BD34874487FF461",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5B7BDF8F32C98D7C1D43B6644ED61DEF931BF8C888842BE6118D006BB1B7DD999D7CB9816EB885D26720101E034388971E42023C314F0F8E696EE0FBC2281793EBDFEBEBA16C2DA88BBF4C254AC44A6A1E1B0C29A536AFB4917E612115AC44770F03C1F4AE0982F4073F328B687F5714E83C410B83C1F8124096704AD8598C81AE85A1440783044CE805010246A2D02EB3040480FECCBB981449F13FB04C0AF6223F0A5793A8416173246B524820EDBF2A3892C6C862EB3D455CB900BE090E852D926B19C8D83DC04D9C9167F1D0B818005B955DF149E142C2774084DDE39B243BD68993700435130E207C503A776D60A70CFB81FB36FF8324BA836C122AEE90",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0D0B07223C40A78401AB20C140447ECFEBC14DE0F200D00001C2199F3CFB095203D98AB9C98BAB9C1C99D0D98BBD74065CE99686995A6335573118A61A7BD8F32896B504AB55EE8B80A59C4474D70F489F8E69AD0F31039B999916FE8D3CC03BCF7E3787D7222C25A8027B4CBE4DE1D92BD75BFD2BFABB01756B1C0C53360D5E14C0277F7B14697C2B33FF83E07F8B5260095D001F9B6B1167D11CC1957A748DE0DB1640A1A6DC973C9C04339414F99BD1052538847F1EDB2186180C768C7D7862184A633BE8643072801B648620107C08F93CDCB58562651BAF5301CF8708010C880C7DC0736EA38888826C8C0E23CBE10F5F02B060489B26E9818F4CA2F18C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("833B43E07E126B01915C03AB005600C885ACC6B922FF419581E499D333F22BF283E60777B0A6710CCB4DDE753FD01D0698E33BE60203D801766467B39D6B81FDC3890FC1C3919E3ABF74BFA011B85E01C447085FD903C98221267EDE14DA1669EC26E0FA4D948C4348C2F51B19203924F8447A7C2C0A03A5F0FED1FE78C74F293269B28BF788C58D2C76FB2F02E86608810488D904980B03FAE5CBA8A8D82C9888D828D9C3FB93A04FDEC448CBD91C980803E80D091B11A89F3D2FB78D94691300CAEF5EDEDF29610C9AD902838A8AD82A551DAAB5C7BBD9D9C181C23C371AD720E1D1C0FFDD6A1D371C8A03D73BC672840F8008C1413BF1C7110AC047041D38",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C904B15318D283FEBC1446791FD07B2E4087278C10DBDC0BE0CA069A8A4437941BD98805130712FCB44B06C91230D82D146F0D0E1BD1423055342D8602DCC2382EA95941FBE08C06202BD6CA4C3848373485B38C18407B30DCF04448AAD8CA5E58CCC1F08161E7DEC32850CCDCC2181CDEF782CC2BD8C9279A050E866126B827D8EE3E858818EE0D1A0D4ECF4049278D1F1C4B68D906D8C5440EED92C602992EDE6082CF60CDECBE56B7CD3E718ECFDAC3335302AE9E081EC730D8CDDA6170635DE230CE088A5E02C6342CB868BC27D1A4CCA853E462911DBEC2CA162F48E5E2C5A0C21A0235DCE94CAE41A8178F8E40510F8260B315B948B165E50FF84C3616",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("646E184F04185609A6B90797AF7A553CB558AC9E759C400C755A734738B652606E631321FF54BA228A0D6A394674861958145FF6E8B085956706BB2F5B5A1834ED8D1812D0C08DD6D0BD1221A68C7CE3F0953A3D228ABB7E14BE83C1F061220E208FF60C1ECF966CE849BF8B45AD496F780C82CD71967912A1C3AC2E24D368B2330C2862F73069F75EB11CA23EAACC18A1D1196D0890F406B449E30250C7BEC4BDC386765AC526E18A590CC509046666DEE20508148D180A7E2E7DC7CAD4198B8F70C9D84CA8040ABA7BA50A8CBCCB10B44C4123338C19A5EAA471186D57D9C23741D5A5BF40049929CA0F3EC12B9B08DEE28A8BCA130C020C875F105C8DF3C2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("20B2B443209D3190C05C650CC332F01DF1FF9084794081C38B8110A7DB000462C0170C3041CF9AFE249F6C132FD1541E747C2EBB7F0203D86D9745F81A4E43FA83F44BB7B5009E4D2679DEA2AA4E1AA6654E4E4E04AE0C93E044E3EC9DFC1B6730AC6B8BB4B0A7938BC3992444C074AAB0E1796786514308A6DDEE5DE46108D8820BF6CA109D86F7EED0B17BCC1804D8CB4336C38320C8C3D9EC41D870D734BC6ACBD808E1228E184C2FD5D408728D0632B508254E73000297E11B00691D9FBF2B6D688528602399D98AD01894820B30B3134972AEDF35381A0E3CD9EEC828D9FF062E0D500D48337C30CF7F4047403D8F1C1D4DDDA385667CA1C174EC9057AE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CB601B4C88833632EC335835681B8090DBDEB0B707DC2DA0372D7847980E1C4B807999571970433F9AB62EC00224183DB07C89F1C3C744E10FC78312F0B346C9B794B0871D808A449007218C9FD0051B38C92990069806DA1BEA12DD0CF10CD810BC2256507AB4A5665AD804E8107C0EDBE4C1057309B8D4F1C0D7CC9B60C8BDDD4D600C487A34CAA781F955FF84C6AD7D04D1FD8850BBC50ED45A149EB72C6CFC3CBF3B97542C1B409B49581CDD44411837EF655C8D2C24F2D894E383307970066F200D2E482A6464DC9543E3B10A114A088494AC28348E231072D833E5ADAD08E16B35180A85866924149AE0A7DD7BDE187BE8436DE1293A18BB49D97B721C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EC8C81DAB5DD03436F97D1BC4D08CC5D1B18DEEDDD33579C485614D96084CFB673D2C2493A1418294EDE59028831181C8BB56C40C29FF730993833717E9F81C6C26C69DEAA3320892473F53D0012809AF850B62516B661D32D75DBB4D76DDE742803C1DF29815820C96D73A86CDA4C380AEF040ACC8B3CD178D304415562F63233D420106C1118B5AD760A0C66160879DD1A1EAF2B502D72484E86E42CC0DBC2E1B1E464DCC3DAF743203E70CA4FA583C30527780C1EE53DC390D49D7092703C133BE392A2108FBC688B531C9BB4A9961C019DF063C58E1C79E5F7439A8EE749F80346CA103B46709E14BC65431E67908BCBF9FD1006DC6D4B2EC6DD773E8415",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DF3857C7C3CB9CBF90A1E2CE846A3DFD360984B9CC1991A2A22D1E0EDA3CC92B0D6348410BAF8B0170002150E498F19EA2F0C98D71C90F8854F35F025FF803C1E81C04C9ABC3CB346A5FA1001A2BFD203BF48D4FFF71DEDBDF5F01D4048B5CCC072CD489440C04CC892C05043101BCF7195C2F414DCC4D1979FF1ECC0814419E72F44A2DD4764F09FAB3D4F84A9E77F4E50ED92CEFB2DDD89FF4541CF41C8230B06719542E12C79727382203560D7F79013BF7135EB80CC06D4A930D30E4598F6CDB84DC0CC4F5067E0D77D83733D23A21D8F185C962D37092E226687E304108768CCBAB5C1C037A3765034357D843D8B36881EC55B26BD984BCE89CBC29F1B9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E4A8C0DEC95FA0A88FEE1819A4A061CC80DB7C54A0A0C010BD30FB6F2C68E30F4EEAD3E08510C2954D34DFFE02235FE050333CED24FB89BCFD07F4641051E5352317F8BC59001CFD309C1C8C3C479EFD9C3CFDBC1C51C05CB208AC235472480E109518958A026FE42095287A002101B9C0E7BF40102340A0798902153718CE2D211F5411C3D9CA5B0332506009ACC5AB012F203324DBDA2AB169CBED2D56961C560AD84903FD8E146FC220C01ACE2C937F69429551B6C0C6E94B594B66ABA8C6E80A9C0200BB111316BDC35E0D531019530808187721A08B00A8C4818EEABE5BC2ACF1CDB8E30C68404EA0C0A69DE31A60C03FC4A5147E1AB03042E489ED0F84",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F00015A338423087F6384BC5222162EDA63560B00AA1AF3F0CD80686EFDC3169F2333232ACB4C5FE89AC21177232BCEDF5030C972155D33E6CC0BA6186C7C96D0870C01832B737B4792884612617ADD0060C033E38EEFED88D14438A924F41BEFA03C1EA63B000D31E1A708BC838578DC62060ED65F900474CC4D4C4894C0C0CB9DE7BC0D4895B0C195C2F42BA7E1F702439091308421172F74889CBCDF221C476C4F84877F7E0EDDA05F9BEFA42A39F8D5A57856D1CE7D194F0212A9770FFFB8B44EC043BF7B85E9DF22D4B7BEC8944C6043C04195CEC18D0BCB834BC62FFC153A66448A6ACC0BAA03160402D45E821B0953D0836E9A18349D2494CF7BB6AE1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("256747D376E15CE20D781BC894DDDEFA43D22AA4A0FF1AB080837F9F909162ACFECCD018A20B6460488C1031C6B1D317E11311E3BC5940EDD00C183C9201CD8B1CCD3272244750589CC80B1742E34368108B71A0CD95ED986619B0AD0B111CCB31444E8487C48CC5943A69E1F68C1463381952CC7F03528CD552071D88149A6BD4A38C0950A602D3CDCF4F8C029CC4E6D21012DD760BAADE5110081880115942D4093CE201A6510B060D0DC0AE29C058A2565B68E518C21CD425C389DB3D739815C1D1CC2523832CCCC1C13E11A4E965FE6CE9E3609077E240D0D5D4008E2C278F709560BA789539029C439CEFBC4E1E393984C7D089BC941D189241FDC55558",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("01520CC17FF5D5332784805BCA0642D81BC2018CAE18C03A620D384E41C313A213077C44E60449912B902BAC60552964E49C246860AB22905C80FB9C40C841703F8887E454C880A1018BCBA66488007590987906994AA8A040939309E4009CAC92919191C3C540ED93930B19DDACAC9393919F40CB81C59CACD26A276DDD86A7589D1768879DC304881CE004361D7AC913963805669C4D5B08712BC0D4A6110EF3DAC342CFAF004A6C35C5D9C94EC0422C0C38226955419E032C417FD9422AB1127F70C24B462E99B0B89C28714589C90BBF152E0239A05858640A394888889209300A1F3B9E432E1123C2CBCA928B004B35949CA80584FF1426667A84824D26",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4328408924E20C71E2BA0873B61A6CE91BA7800A2034E95024CB0BA181E5B7258D30E222118824B79B82775B2B44F06CADD0EA03EB344F0D020487088D6003754B6B488A8CCD79876B6EDA3004D4EB11386DE04BE3C3A7B17C8D74B6B6F29125A91891C2BB0330880DC52EA181E528F889D38414CCDEEEA16481CF4C28560DEE218F81D53403A00037A206A16586B874EC1CA7F1959C8B83DDDA568D241F34CF1C5B38E4906B6A8299BA2AF9934C139884D0E686C123ED2008A84EB80CA3278843EC6CEB19359C2C3AE08FD0826D34C784D5E0EE4E059F7614EB210B485C5624E80C0FE14CC858B080C40427F1F3CD1946003248308A252D5D2B61C200DBC0E0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("90940C544B6343B01D111CC908C4357462D03918427082917E3451AB8C74DECFB1BB0FCDF0D1CF7F7489FD0CDBDF8274353BC78B191BC48AD70F8DC4F9A4E0A4DD6AFED82C180404659D1616EBE210641DF262BAA28A6CCF8E5F903D33E1EF2BCEEB654D8EA099D8C174B4B11082C0924B1C145B72C136B900CD100E338C587D3BB98DE1746DD10418B72469DA1BD0D6BA141016DC60158883352925051B4F8E1238301282C020D7EB1CB2078FE98D97673A0194C5240323FA78700D4081FA427C21765ADB90FE1F6118639F3A7D4AECEBB1290228C60E2DE636AF9A46D105B367910C07A83E0A9D870F11CC4C81516C6D3286D45F7E00E185BF840149F2BA00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("04A06F4244056428AEB4090B238C361F22F031D29489740FC5796573BBE6702774EB15810298DCDEDD1E2C3A8B1B8BE4F6F541EF8F254CAC399410D516EE8CB8F8C07A46006F29FBDD2BD96FEB19B1774A3E960261E1BAAD8E1ABB05E666C4982BA4D36CDDB070C07E7055F9F1D9E4DDA42CC778872C8303D593B888788F8418B4D17D06DC2B649C7019930DBA0C1B27B87B3D210E1CACF36D993DB507B41427865150DBEDB38BA789D157A42512A465FCA4866A18DE668B8F5CBA220518CBD2A6D61506160CCBC74A963D0F1BA80085D39E415819CF256E7ABE1C5218523012931B48411BDF970E79CE6EA6064BEFED1F03AC2558F0B0B07DEE5B50EF87B8D3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E51196507B6E5B306D3AA48248FA6140351C811CA9A838F1E8403E507CA055412B18C67FDF586122ED21042B992EB4D216005135241086B6D6D2B081E0B40F8CDA0C78FF8BD8F1224744CC800B0211F586C3846B8847EBFC4A59B8818D89320B71E6C8B12757895417A3DA6EF41B27973D35142235806E43A10ED3DE1A8DF503D070AC283D6DA120099A974C8B80C9B645D95B8C3A3BDDE50195C6EB4E3D243DD5AE3D0A94EB3B79133B034CA7D81D9FBF02498EBC9719D4DBFC891CC54946B830C2F4D04FFBD1CF04E2F167820CE4C93C27034D437458646B92A685347894ACB9E9443A3B098C1F293B19A6411084271A904B86477474AA245F72602BB301AC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("24749ADE9022E8D231A1A7886C8B8350B9E42917233F8F865D98EE30A01A3FA86EBA2D8726030D7B3EDAC1E3F974835C3C95FF1E3FBC1E76A65E30139C1EDE9F93A633F5D3E7C83EACADD02AFF3CDF2BC73B449500DA424C785E4DC730479931BF00A9A6A1480C27D09193E7842458948696A45A14E40ACA8445C596036F0D8934EF188FCB65C47E2005D68EFC91BC54E13A8CB2958D3A4CD459020645AD8BE3201AA0CD5FA8F612C0B5E6F44E3806341FA3407C84713FAE1D646B0B6D2E3CC04E04F0A385FAACB18B1CB0843EF07EE119891C1382AAEB08820B611968890F01FC2F04B540A5586C8BF8A2892F302AFFF7D8F7DF4157122FC52BF5328D4406C9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7E44348240776C3EC88B52B165186CDAD3868D2462221E2142339131385B68057676C33A48461830080683B2F26EFF3A325203409B64E11EF64C9409129E73ACE5152682FAC82BE844C0821D01FA46E600EB0E270A7C489CB91F01C810E889AA45AABE2B36EDC7320352FD5B1BF69D522A16B864F456F4DE8964E294082108A0D0D569DB9922612330A493803BA489891E7C14EEB4C775117889FA1431365652887F74D8CFA809B90415750463EB02B0028AB8D385D4C8BD62BF0F009E1BD8F08088D4FDE354C3C68B3AB6ED0E0E25341854723436886D4D1B1BB6BAE8021C48B5C8241BD5928005642282CA44C1AFA60A140BF7DA3BFAE8FA0B3BC5CDE13867",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("34011C21348C8699C624964E11F8FB05048E4583C10CFAD3F867DAC58B848B190C7D5E8D14C3BA45C1B60E5CDFB8E41D403845C2C5C303CD9BA6996C4C4C0C288B6CE9866B6233243BF243F2349D46C4833DA47CCA30E51D20E8DD82CCEF50E8A05DD8C5858BE9C8FFFD5EEF24128CC32E776D9A24D63AA2B7CAB84FE811D02A320C12CD8FFFA70E83C507C1FD03977F02072308735C61262FE8E3B60686C58B92A2601DECAE8DAB446CB78D074D8E909A49E8537C0B8664B817A6C7070ABEC1E0662AEA6C5D64DCCE189A89B5A0C5600B1FA025D50A343DBF749DA11B7C5939CEB10D68CD822EDF57353D84E147690C7CD175183402936F08EB3F3290789590",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DD0B2CBE44C305F9813A15361146A45458E78238EE9D70A416E50E646DBE0F461DFD30EE0E2BF98A794FD337BCD852969EE33BFE7EC71960BCD74498B2B41209F82E82F8BF2BF10B2B34999CE8C1C60B828F5EAC829DD7BC7BC7731B50D37BB4C7E0B07FC89485BE07D9EB91FEA56F43908272D0F14E9362B5DDA6F453001C924B9EB2EDE104B9B1C31C91F2096B80C122DF5C201A14B8FEE98B88FAC42CAF025957A85514E09488D28D042EB94300171D160327553C49344EAE63DB5407F84CE1E2CDA62C9911985B2C2456A7787D1AE526333371CD89B2647C3A360B280889A23BF117F1D12BFDF79D40A6EDEE03EDFEF2B631474203042188F7DD03EFF7DE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D82BA38D996E581603C01DD3F6006044CFF8863C3B286B4D2BC058897FD23417A0B2C7B87C243430447092A64D30222C482C43C67380D26228C537E957D2138047B301BF6C5C04AF065596F6DFE47E62DFAC805EA63A08CD960D33747A40054C0014B3B178107131A2FD2BF88DD7241008142E9674646D66AC0264EA045DD70E46A89DDD67EDF07CC98B9AAAEC8C3CC01492FEB03BCB0F8D02F988823A6C79CEF9846AF038848DE5112330CB4DB46231EA38582BF325FB90805B0D333901BE7031A07F9ABE9AEE78C143E8EB68791E8AA284DB74169862231533DFEB72EDB73527C8740C53750C9E9F0C01130497F71CF0B0ADB50BC3140E4443DFFE7C815282",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2CB7CB898AC90F8CB8FAC12169F98B5DE575502BD9BD77BE7B3F8913194C8923481B4C9EE559DE251F444840443C599EE55940383C3438E5599EE530342C30289EE5599E2C242820241C599EE55920181C1418E5599EE510140C100882E5599E0C04080004441A8DC088755B08B9079E068977FA6244B329C824034848632180F37BE81B057983F76FB48AC8D3E307015F1D709649969B193074347896499649387C3C80964996494084448856771B49B1BEB00BF2DEE92384274CFB901907BC22F450BBEB8C9D5481638B4F9620544375EA5719E181715B114F988684DE19734E4B2C1CF0770264427B9F543BF1032242B03D4D8C21D98477FD10890C9D9488",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A7EB06A0718FED3F0E8BBA0287081AF75D357C2B7CF782DBE3F5BCE525F712587E8336A0012F81E6278E774EC8ABF0023CCC54E799C69340C9140CDF8220431A2E18D1CD6AC94438E34923C482E14781157CE7CD031B52926BD786C3C3B03598E8D4D0F07A1A6623F1D50C8BBFE003C8300C5AD344004C1E963444C379E7C02533DB6D00C39B2AD25A7E2098278B4CD9364318E087D912BE66FB78D7C4663897584844142291E97D01E448141A518055136DF01A95B7239047A57FB00306B7ABA420E7DAAE648B9344C5C0CDB629C05CAB099DA91F428DB35A25E00E9CF332DCB4E97ACD3CFB422CD50D14D544384059600E979813F144A224752F0117E19F6B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3492E18049874831605C450094264A1B0165DC81B464EB0EB3C0E6B62EDC421B4946AE115334347DB561E63433F690EF2803B4A8476B20AE65132C00707EDAE68B84839A8C1136ED09056B8D0CC63E10740FD16E1ACF8A31926FDF2CBC85CDB232D261803043814CDCCE15B74E632335305806502BCBDF10AE8041B30280F000835F03F503C8D1F89034ED796E458E16014806585018EA34129FA6CD7D02495FC5CADD1F660D5F08597B96E70F101018183AC93702AF74026AC840CB3DBB8B746CD0875624141493715EE42DE00FD8CB00B012C0D94D487BD2E6E50314144304161830314833081C0CC79FC49F1542DD075C7706C76CB9DDDB027447081F07C7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F21109E494E2608180C4ED432710661330D07C782FE8F16E64C5D2C49A1A6FEE9584700CABBEB849FFB58D7C06D384106671F9961810BFE9E4D08383C0D43709015BEE8CFF00DD80AC020FEF60E0AFEDC4189C308895804A62C02BA035BDCF2460AAAA9C8B1C120B22B0B450C2EB719147BB095803127B41849E806D16B24A444393EC715B7500BE0CAC464144B5411121BA1576281F9BE7D32D40CC0045612DDC0C521E0468B384C30B143B9C712914B4A35AE557515E1F61F2A2489D30AE84EC8C85325381EF8AAB223274B332458EBCD0CA5D07990CD388BAA2873D5264D1F28551FC999AA204B40B6165C938C8C5C1F5C605C24CDCD546D1B1F44D0C1E0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9544E1CE204422F264B9CA111E249A9C02E4EA430E9C9A8D34DE25011078A9DE11021FE62C1574AA16471CB0221536C8552825F53815419FF0581DC68DD342F5010023B5E3F19C8C347F16D9D1F9895CE10E40A2BAEA70CD4889955817023920270096089694017972189610965483B4AB041513161453863487B4041818081C0B5497AF1FC07536DFF319185BD5052A131A0D1A869309AA071E4847600AD6184023F2890C93ABAA909B0750310F90A7BA0607542458209602A6922728960AE3500A0E578E2AF2A5EAE04552C9C2054C4365A6290903C2FF4C20831C58286415D348F35CFB30FBC08404C8587F81BC2A3920043096992A925734036039A80600",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3867402A21343954361AEFB4F346DB314840502A18581027640B8AD549138D997BDC2414C9A60D8CC8241418DC5458D2B41C181C1319480E00CCFEC386E19A0A580B60A1421E5E970A0E5ECD5115265F2514DC5B55A1405EE6FCFF027955855F6896325124AF24035872500D0070F7784732C81180885421CF843CD554D5D62CC93354D5701D480E5415F3D4FEA19A0A19BF90E78A0BAB92983B814420A7F6FC185A43055F54BC1222EB09AFF2F03060F5648ABE46AE5A4FD4082545B902F44DE13A2224DD6D8DA94FAD8B103DA89E2E6B2D61C57CEB6D3941BC78302BE9250805FD61E20A5550049CD5B8D4901B5900D8C268261C107BED16CA44C1731D0077",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("02A52CEB060276F28189BD86A41BFF4A2701BF853C56BEA07ABC0EC359506DF7D89E29019341D609A5031BAE485D28386374A174F8BE182C3D048A8C24BB3288C178D90F036FDE9D80EF5C8D8B048E2DE519446746E150C961BB9E1C0367200EEF202041E943F8008A88149C215C004298E6F0298789D7296604FB20100E0BB2A2B826B10EC1AA111A8591C5BE081C834329B160E7E8A82DB0D1EC20D68A82242B0A2114E7FBC139809D3366D9336C105E2A84EF8F780BC1CCABE9B703A6E32B000683A88C528928045B037424DFD615423645D921F242B805BB28D3880085C26A431F41FF1542C50554F2BEC341DC6522352561F160BD4C280FD61592BE306E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F044EB2E252599F6ADAB23497D9824B2BB33091C5FB2B0BA8DE3208D1C0AA63403B83919D3D1FB3BA828D7446A5C4B6B443458389959AB4308B302888C06D127E85402534E44033156B9EAC95F271A5D728F385A669CD314891C786E662848725532483848444EC9910C44286C0128849049446772F45679414C6F7F01580B9186C049D110DCCCE6A540664020CB20031E481E909347C844B2004C00248764289A0033C954D10C5D448697702E006D547125241A5EB06FD7D8E501F83CAFB96038AED677D1F5321DADBB692C42CB2106E02C8BAD059F8EE0268DF0DF3C85A09E90FA3552525A89A1238A3854A227802C083DDE6EEB188AA8A8C70B910903BA6A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("298D8097321080246C85AB66260B089BF76835CBE07916EC0CD637083ACE36889044696AE0858CF3A99A428B8C720BCF95805E90C8964B496BEAA5D9C30A44D8CF54462BC2402D81DFDD7083AC2E84288D14E8265E682602A00F0138E18DB7D1E87580D5303E6FE30112DD02267660B0B342081B1032066442184960CFC077E77D7FC1632785C0ADB234E92929FD125B7316BA1027A28E4D1876859FAC94B55B9EA8960D90882545B6669D0635F2E800470CFE83BC33CC49B0078BD18D59E0EB037C9293F709203ADDB8D38D4BF0732003DB4B1077C0F8CF810CC808C8FC043C073220D0FE026D0EC880D87BFF7B01F110E4E437FDE0C3D71C432103F3203B74",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("649630C0D34372707CAB6A28420101083680F371F01CAC6A13CF20FA7B8B34E9156E84F1145304BFBD3AB5B0A60CAFBEF8DAC8B525D4B9A8D03CBB9BFE8B7654D8F4FD3BDF7F0703DD6EB547AC249D01A97D2FFB644D81686F0C6C1AC7433C4C7FCECA7C36711A4CAB7759105B85ED094B2853C05F81B4B0FF76042BDDEB3809E34BAF030D6D2B2C6A463F1B994D74080E7F6C8860019CD02636937D1C8A90091A16A0BB6F83A8A7920119AC94B6894A9A5320C80CA80AA485B653B0FF322113C3839494282C22047A4034214927254D2788557208616C2EB961CDA8C8F7DA587CBE6013CC02B8180279926FEF9424B08424B82C8393C6A6FDFE321E7CE11037",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("04D1EB441E90860DCDA4A87C2410341B0E41BA4E7C5CC83BED3380B875A87EB8CA47C3AA8ED90F980072C825B8BC4C850CC8A8B0A8C873909C9871B845C82403B0B0027C808038BF01A9D541C801D500C8250CC8805CD8DCD021C8809CB0B84C240598093934C8D8748D0C10F3D0BACED072055381B8A9D057322003D4C8D830D17524B85BD0814C3240A9C8C8D00D2E5CF0FFC402F110DBD7DC3CD00D8C300CE5F0BF420C8274B9966B1EA85A24DD8D98D2AEC60FECE8E0F88BDFEB0DF105206A41707B4A3C1A580BA70727C9C149C18664F8A29CC794FEC9AC3C023BAC991000918CC8611869FFCDFFBFF7403BC723AA7AD72BD083FA067C4F8D4FFA33D264",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BBD6CD26F5B4C0B78507A63D24EC14830C5383040E0850A6699A080C0C1062DB63E3FB05CBD2896993E007269DC70440007CF0EB2B3909E3A7BA08D58BCB1118ECB801E9E075948524369398CDF5A83C201323249F2CC8805CC9E4E8EC1472840CF0E4E692E6C800FC00FC9CB35D2707DC00FCAFE39449C20184ABFEDEE22683FA6FEF2BEB23458C8FD32F174CD58129DA81F8C55853AFD1EBC1EA8E83F0D6A1D99FF086460F02DFD58E2DA10D531D11103DA19343184A2731AE56F0557FD586115D050A0795EA74D8C9B8E6631533CB3FC69723F10F43D0BFC0B829E6BDB1CE08B52DF819107DBC7548B89B74CA8D47E04520CE7E41E629187642FA5146C8E5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("07195920CD41F08D511091E5649228CFD03026597E90D57AF88D420838D12C17D2CCF54740FC045CC800B24850FE2103C8B20258602325CB72FF01689E09F316B335705D8C210F0F29FB4ED73B78002E12E342F8DB83FA0E642E3C6385C17DE4568428C7401F1D36E1016F587680682CD9276CC043D90439509269C218CA5FC8894D38C2FADA63AEE4E45459C03930A0990807469C538434E135E7725BA5216DC4C28F55B4FFA4AB180373E34A9E9416AC08994C884DF72270FA8D30D0B89699C36D0F2CE8A563B204C70CC8050DABA8ACE445328494C18F5649730AC80CA80884B4D455B4FF42266462AB9494104D338EC11F65A17662951C280F68C6921BF9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B01FD05BB142F61B63B84B9EE5A3AB9C2498BA843AF13A714A1D8BFA219027C8185325B8803CCD38A030749C7170E98C744E6F06D1F51B7DCB2BCDDB00D8D1DFA6DD73B31FD9477599379D583200988DC9440CA3444FA832801C72B8BCB011322003C898CF417272B0A871982103C824B89816C8507298C84080E3339EFF01DB9281A8D68BD1D0644006E4D8DCA8D58C4306C8B0B1430A79C04807D032C8003249C8D8C88692027C4675ABBAC8A8E40AA648C8E9D021194206D4B856043892D8C8450690490AE8B8D0B8ED2AE442B8E84BE604356EF21F8897C33456C98097196A9CA05170052837324377AA8BC7EBCD9E30104A836D949E1EB6044747DA7667",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("01788C83204A4CC8A82186B07F062328E41939009C10806464645450F0A8468A5D689323199003F2FC00FC0000421A643C0BF5862C49BDD1423D83EC2023AC33F432DE14FE44A3E9C1ED02D1E9915E034223B6F1C585EDA3B112229DB2BDB79EBC15242C8BF61430B808DA4C67440F8E4FDD3726889531DC0A0A509B5D408198A21DD8EE107EACA0970F0829B2CB9A496D0CDEA897C0210C39B0975D580003EA084DE4DF61E0B2CEC5CB5C765919242DBF1CC2B533D9310CCD254C200FC3D9CA08CA7A411B3D71EC361BA4DFECAA35773138373048335EB654584A88A74928BCC5CE0C5139C40D9919CED0E63635A8211C12B16B9DC130504256EC8BC2956E10",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B527314C0DA5609FA5B84186C392869EC03A9BC424DCC1A6BDB8C3EC1643864D39250E011C2EB4F9EB00262A11B8DE857774715096183BC901C7CC167F50D0263F8C9371AFC82B43C8673ADF40B401046BDC381EC4E1D2C0E0417E94C8A3FB0002D8CA0598832A98CBF4D0DE0273D01CCCF6D8B12518C9238567140C4F9729C610864D31F6722CD8910B99E99582E2700ADFD8CE04ED232A515C35E9F6C94A146349ED1A04281219E9410ADB452543F37942B4D8205A8FFCB4622278F2FA09FF7475F5F017B58281EBF8F30D218AA9629DBDA78A412A063FA3A69FC5910DAC6FD8A7715338C940CA9B7F31B3B0D26499AD606616DE1666B41EA8039C4A8B8B58",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5BFBC63450AEF5E1802588C7A03C03B218C0C29450B82DBF87B08010C4443BF31C012D29627D3CE6F7C101DE76C68B3481E3AC7F1C814579087C3E089FF37E3BFBC0F606756DFB179B3D6DE38BFDD622F06E00E56E745B03CEDAB00F83509F4E2E6D16A16BDADB1BF5F7132826D18BF8CFB4088D5F168E0417C003EB5F5BE0BB2384D36C9C35066C17433B9D0394BE4C117E11819C0CFBAE1BF81DC17CF7B8482F397D095C008FA05F0415D17FF7438D464CC06CE0D0BE5890E0480CBE54C7F8CE105E965C8D1CB0CEB98B0CE2DC2431C262A5C05D424A3C7F1F3526F8C1D3787244890C83E87141EF037A8D6CB5A7059458FF7928376958818A83C1FD8D5C30",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DF1D9E8103D5495A487F99F46A435841D37CDA0709A7EEA1293499240C200788C11F2578834A498755051CDB3A0FFD95C7BC2FBF3DFE89608B7C98349883C769F783B809DEF7893C9801C6CF67E4C2B1CEEB439487B29ABB820EF73BDE7D2F70AE4058D3B8100ECA8DE5A9690A9663087665E0FF0CF12EE126E8CE9D5C0654C237A85C66D1B0F19869C0323B44B46AB845730B544412164CDACF87F5C31D73FF197B432CB2C50113669B988EDA26720DE16C52EC12F5B5032DA236094F1095DC03F01266B890532559EEDBAD6D3D862C819D097774780E51EDEB8BF510C58683275F6BFEF1B5123A088148F8C2C400F25FCE8278899ED0C249CC7B92E362A24B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0AABD5E7B986A2265298C7DB4C7B74F5900E97B8DE7E26C2861417074F299C66ABD8AEB88CFD3B435530E0EAED5F8A506CD98D7DFFC1EE1F1870273420F08D743501E045818B0AA16A2AA1601881C4A7C4FBE80A89761A4A0CB4AB8FBEDF4B7F1484BB9C8914052C847D0C9CEF21CD4499580458482D841838C94497FC9C00081DDC5C29C4718B5997019E8453A5BEC3F1D719253D590B37924D72251DAF997E35E8FC042D0ABE0172434DAECB41B8DCBCA56814C549D5D5892CC27DEE101A586F79924C94F6C7B3851283918B112C028F47A12036CB7F4347F3C1937804B4B19C8904B496E9B81C83673B0D3F0E8AA780FA54D21AB061D71D36F8FDA48BDF7D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("64E0A1FB34B4FAFE2BF3866D886BCFDFAF1A7E1D910C6CF778C73B1C34096D1A45E80AFEED8AB878F301429556C31FD0BA5F51FA484C29D1F7C180EFC00FE3EC0CEA6F0C0AB51D7420BE2F7C9F4621240A076C0A9D1044D9E0DDF25EFE05E90FFDC4CD75E315C8C13D2F906EF7276AE4322C7EC03D967715FF24E12385F7854AB3466177DC010D7B42102E4C2777EB2D447C0B68FB53560FBDDE2DA8830D35A08207678E1DB0622731F62BFFBDFD3EFF742933040A811D6BC719D00FDDC50F652135F4FED60FF9FA0FF5C3E7C3DAA529E834783B5E044C69902D794FC149495B1066DB4B4F1813AB8E7F7F746F75C65BCF432BFEF90F62FF613CC5C8B24BEF3D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF4600668B840030B3F9367EDD7710FFE804E38901F15E5B89CAF13D7E2ED1C1EA1039CA0F1DC1E8EF35080D16800111DD77DF30246004C2CC29D1538B1CD427FFFF0A01DB035C0A040FB69BB07D4600011875E65BB8429A4AE9682EB910AF43BE3F18F6D303680A1CC8AE34BC95910DA6A6085329D074B0860553FCEFD2A95B19F402054579F8E7E0C2E3C56F14D974282602723099BD020805103BC1DBC0C1AFB5BB41120C7510D325D289D9ADE0E0FF0EEB1021D239DA7E0389DA40915BE00F0AA5C607B05901C81C415CC1D0C6681C7091EF0B161AB8A655B568052A007C173C3882C063576531FF551AEC53203870518B3C990533EE2048C125574D033D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("18FC4DD348031073DB89F95F5B58271B82E5A20303402DCC01B1DC0D62DC4424203D48512B21DA459CD490FC4940994D207DCFCFB330C3AD3C74243054528D58496AB638F97BCB2CB17418900C45841C500E45012C9DB904D4A87A3F41631957E434CB0A402CFA6E7B0F451FC4DBA518DC6904143C007F386982880866B47156885A106CDFC27772D20C9C9894A05D040A78AF194E3E50F6892C309664037B703C06B60592035D6B850526A86BA3D94258FA6BB13B6B047C1CBFF6BDB0903B6B08B6D60737A0F0E86B7D71135B4415A0A9103C6FFE0325B349DC7639B7A8F01365DB37A18B4F5C19E5E21A60DA82C2D061E0B8996F5BDA50E89C3E0056229B98",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("27A974B73D9AC4D20C0812A3132212172CDF99B6ED4D97EB112D1F5703269E4AE4FCE9B9A435F468F90311C20DE182181A4F27F9ED40B9728C4BEF0A83E7807D9376C7062CB43AEB354DEC853AD27BDCF2345203FE5F80F5BF5D8B333B4F44751D3B5750BBA1A00F4D4754404617830710F5687507995EFD5B4684F0F0463B772C4B77140F326526363AC0B844EA9908CEBFDF4429206298DD0B42C41785D95AE3CB833448B4452800A1847E4C78C3876778089D0B896B03CAD4C60F9BF9C105E81275528CAD4EF9604A779DBFA0A8EC70DE4D610C38B88E9091BC66E26F838D8C0D9C580DBE89A01080369954F9135200B858F67E6F42E395856FDD4D853B43",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9BC485E14341FF1DB0565D1C2F04888FC2C740854386E65903A10F0BA725117286FD8D7EB34A46817DC6FF4F4B734EFF4008247836F0BD7FA5F7EFB308078C10A3CA1BDE7A2E6BBC92E2F1E36E4FB345D9F5568C23B44AA1D722562A2BCE772BDA08E115BB5D838BCE9B26BE741F3091F2D34F7483AB8B5A6C0158085CA46D616003D3B921A96FC1A9102149CF4D045371463ED2BCB48EFF05341452DA4606E582761BD20C8D82A85A293E0DCC45E96D85886914DE2FD1180103A93075091B244567B00481105145503616745858780D44044986953F559611898945342B531EB93E79208B556072C3C002580B7AF1188586F7D87502EB0CE75305807E00B49D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("912F17A9E0D08D9415158AA2EE71B94806F282B32CAF1233255C03C36140380C43E93B07DE906403592A3E80DB56F7F63813CA7220BE0EC4A44D7130A7233866B8300650D8B0C055AB14E935A98F3BC525ADB1BBAEB4B76002283394BF39197945BF7E00B8B492A1E402BCB4C9C82939B40D07B412C31AC8B87D2C306432E34C732DEAC1492A6A60822A462B49DCDAEB2FE4B3CA0C04020C0204F7052CB6E1BCEB53CA7536498B69D929C85648177F50BA6167107C5005107CE41500D4EB18F7E09817F858B1FD2338E3C8577F2D578AE0C80F034D349511C9C88F25D5200124F4390EA0A855054003456CFB3A24492E5E308F34039514B0A2E18BD8BE5DF439",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0139EE3A8F29DBE3BA0B3A99AA0D8731ACB8A7E2221281017F850852C80524E24AC120034D285F0306C8BE6503C3A32DF8871B0E0D18797F051CEB173284E40B31004F2E68FD82E3895523304507CBF205181C20213CED89ED10806D19187DC44A7007D621CCC4802B0D5E451557B86EC06D56D85F90BF33704A59FA12E065D79F70E065C00D46776BA884A9C920C1286C5BDA78470758D7919F97EB2D642E7AD2D1125B3B5884E82546B413780852E901F4BC0B0FE8228F3C9036E4849CD58402850050307B9948C459785471404A4E17BAB0139F34025C2836DA5C7C54385475E176C16E859A7F8213DE8571740ABA0644BD29E0EB0F46DBBAE34370C18397",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8D93C200175B81F7152C295448EC8EB51E505C08F80D6012EB8BDE851E5BD19D42DF400C50847651E1425F595DEB4341C7D80D116E1B45699719DE9E8DE23374447C1B5F7E782527E3C1778F3B48BE108DF7C14A22FE8A1411418814339F32E27901E07CC8D90C01483C9524B1A7AB021F7C02752858E306747D3423ED0585450C128C10902CC8148D14E28832EEAB3ACEBAC508EB0708FD0D0F56910898F7103C133B7D2C7F5815141B456E7E52767F42AE2872391F66AB304A91E15F6F071928FFCEFF4D2C8B45044603D4A25081AEDD1D294A71C3E79F43B0989097BA68741D52DBB0F2DF14D12BD1EC2942B10EDE70C3EA1C1319062AC24B0F34177D1501",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0E11017476798846015E7450717A152FA40EB1B721CC34F1EF05BC357C188D500779CAB8B08F7102125955642A9EB19CD96725E4972A5A964629DD6032158B7F1FD38D9017103FDA3F27B791034CB0AC0DA8A4799EE132771EFF53D0751D18B17FF784EAB00576D232A8AC79B185AF3537A4BFA81E003914E87E5FA201E49091E7B02CA4A808B94806ACEE21072027E600BCD31C2017BC2D283C59274B23BC17F5FEA077DE266BDBFDCC1F4EBACD4C7F65394F42464358988783368C803743E55E0CBD03454F62937A874D6C564DD0C384CDD12BD15B40DB4527E2D81715B2D18B4DEFEBAFB907C9143DEBA12921DBA6C8644B2C1FDC10012E4C0D006A51DF60",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FCDC2AE090CDCB4F79E45C8574F0E4013504B6141FE82FA4A5572614F2F2E584EA09F50553226A8E141CB14945034646351071083CF8078606AEC129EA29513A78379905975541439B72E94E921789589CBBA2A4D701531BC419A47475D9C3E71FEFE7C90C58149BB50005E1580B3BBF5F1BC25420D54679A14495F9BF5F120238C967205DCE018B1BF0038FB5934F3C1801FF41BCD53271C375A28B56C556F22D0EBC478BDE9FBF8201291CC8553ED0B64DCE9EF336C734324A0BF73EAF4031C1C1E6913DBE7FF2009C425E25AE000BFEA0C43211833D903F105C34E16B1F2B6F3AC8D9C8CE06B71402D7892226281E1C3A2961D108769290557AE60100C881",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("981E5FE5A160D66BA39C6341905F9117807C4800007330134B135AC81015AE20317C784C58C81A90FDA12F2B5BB91517E79A96AEB0FF57BC10A1B741CFFBF92E1F97305E8870C75A65798B2B814B052C3896655996342824201C18CBF26559080C30895310143CB180412F4C8D837850672C61BC5A9B0DA42581790BB4FAF6A4D9A0E26C670C20519C08A571D2C403FCE3805AAB965FFEBB41E08F69E0FF23C8D41183B7840380E269212AA4A9EF81F9287538BE3340AF6E996E2E6CDE471B783FE17522540C4598F75B0F310F74156E0A12CA54037A08B13C801CB00F4292562C2A9F5F118CB660EED63B090529321C97131D3C5A724A7942BBEB830FD9B00B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2110268BE9411B026A1A283D1F73F5BDCF180A8B19E3E5FB035973115F30B851470AC306895A24EF11855BEB69C103CB5924821E80643298DE6F043DCB83F3D13F1C740F820CC45BF27B0F1D20EB0A12099E91F7DEBF712814082C063B0D605903303004BEFEBDA6A5030483E5237240896A347F9704CE882ECD02270183E001A127BC28A9423C78F52B096DA4A9BC4218046C050F46493A8B626A241FC84401D806F903F18BE8EE476FDE849E00B77169C080325D7B1EDC82F4512CADB82154C484CC660C50202AFDF119B07D08FC3744EB506F51BA2A7857ABBEDA79230F71443BB50CC6F3AC64F3F2BAE3F38B5A8640BACC3A04A4F2A31846444A146E98FD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E28A3CAA6CF1994D5935028033626099B05E5D209258EA0E9A8ED351FE809414602436A511F82A481387B61258785991F626D31002C125C4C54D36EB03E9E018E0C52644343AA6FF0940F6E100BB07F4DD894733E985C0CB60D3EA03C57FC29B9AA64EFA220F772DAD11FFDE2D4807CBFB460CD75D00F155E3270D0E3F457C920BDA01F7D86547347E966BCE0FB7E710D6A3C8B3BED3F28935C703D52DDC3D2E5BD11DE3D57516065BB9BF4E332E8E227E293C2B94EEAEF4528B82A03D6EBB2E00D9D3CF1312F72BEA512AE81F9C2A9C0B45ACAD2F1309729BCD0A5458553771430A452A977C24831C45AA354C9A0A4DE9C21441FF323E42999F81ECA8BC40DD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("79A1C7002002502A1B0B1DB853438C952221B4D3EE0C1242E9580FBF16B7C84B5C2519B1A4000C6689143CCFFBBD3B3E2411543B021228042CF33CCFF3063008340ACFF33CCF380C3C0E40103CCFF33C441248144CF33CCFF3165018541ACFF33CCF581C5C1E60203CCFF33C642268246CF33CCFF3267028742AA4F23CCF782C7C2E19E47999BD1830843219E419E488348C3619E419E49038943A1FE419E4983C9C3E830140046AF1868BC581C4520CA7B00AFF17FF010811691F66100E3468B01823A8D3911EE98B0B59E8834B00AA02244EE8F66942F4E60F05B016B55C5A50786F58DB1D6BFD1436B1F40D02C974288D4E0120181F6AD0F50FD447037826",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8CC82A14F0354D155A38D8979584F77F688CEB268D0CF08D5E550C6F7BA6E3CA88667004699866C11E14B24F4AF08597E02DD5350FB8AB81A187F2DBAD801A5D11BF31B3EEA6B502FFF40BDD422FEF939616E90F1010DEC1799667791F18182020286779966728303038389667799640404848505079966779585860606865799667687070787884F14C03E79A1306B2663D19A98E37A673614766D1F0868D47E690CC93A87315B047C4206FB13E87B015303DC81E2714E1B6FF048C4F2B259AE220816B1FC8995CD240C08C8C8AC26614C4167E3F585B38B65F335418158555519F8F1348D90B5A8B367FAD84C1001044F7CA0E62402300C38092861E268586",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C3618338C7EA0EBF0D6BD830AF9F8F79D8B0867F6F5FB8F270480611F1794FD0E4E1810C0EEB6C41D81E88671908E806A59A8672D536C1742F044C0C8F7E2A0FF8010D5221CFFE180B29D86DE5C8DD0D043CED03C0560D02D100AF04F75380CF3D002410A84DFC9E8895E7A30A0DF0DC4AB33CCB73E40FE810E018CBB33CCBD820D028C8303CCBB33CC038B840B0B33CCBB348A850A058CBB33CCB986090688870C330C735030DE3E08317F2F13824F2F66CDEF84EF2E410F2F6009B089BD28C1C40109B484C3044C81148C3012A75FCCA83C280D893360BE3B79041EF810246C02A04A8C7FFE8ED54C81FEB031A5581EC543152D17212036478D918E84B0CB7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B8269075D91C9431FD66997AD2D15804F5188B5314717000E349109C2AF50D4DD3B425700E08401050354DD3341860207028A4691B69D71430904E9A93E638A040B048E6A43969C050D058944E9A93E060F0689A93A62DDF14701078204E4EDA7D9C0DE81A3088404E4E4E4E905098604E4E4E4EA070A8804E4E4E4EB090B8A04E4E4E4EC0B0C8C04E4E4E4ED0D0D8E04F4E4E4EE0F0E8000256842723F010026054271A2C14C6B6D3F4820823991A7F859E2D68241C4826C7110FBC3DB746218CD60822FC75104E8D875A6B5F28E089221677108D9F579884086A8E8D6C08E2455C84087330278F70BB63D8E05BC48D84C3720CF36384421A3ED63667B72582",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("682B10EB2F585304F3EDB608B38157B99003C85E8D5601613788F04B931289B7873C60C00813B2C89744FDB2810031FF117272845F5DF0DD00A540407272727240404040727272724040404072727272404040401653207240D70504A0BC7AA6EF4A0D6CFFA5E05CE02640EC0007DBDAB6B6F7E7D7C7B70F776318F4AF8B01D2AB980167A809BBD21A140A16ABB70DD927E9923455B36CCD2BC3F2A0A8B8B7747807FE1F59F03761C042E455F0DC483CCBF3AECAE80F10E018D8B33CCBB320D028C830CBB33CCBC038B840B0483CCBB33CA850A05898B33CCBB360906888708634515E020D78EB367C80130D2CC1104B1F29B86108268E9B21120D595872C574",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0AD211DE7F1C14D9C4448244D2C7F25A2F482E3C0C62340C12BEE3D16F295F4C4E00FC8B477404A2937A281B98871DC9B4F7A447B3FD22024EF919A5CB80C45C0B9A8D49DDA2869C0C8801A3925182763F12C018BBBC3A5F12109E5C8B7F208BFD9ECA26CEE75F04FB38066EAB14640DB7405107EF0C48AEBD5C5274201E406E675BED5DC24D100A03D011EC8CC43CB703F03603F8803C5A73942305A025B99EF83D258ABD042004D8B40774DF7D8D1407716ADD69761A6E614C40F07783601B90058B3F189F7D4C6868B10876C2B41974788BE2BB06AC58C4B80D37DF301B8C204252DBDBDDA08D37D16CDE36D086FDDC10EE4C7807DB8299EAC78F09D80A52",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("92D5DFAA56404F20588E01F35AC13107CE81385F82C18447ACF92ADF547692389294040B8BC0A6085544C50D0A0E496C81DE0838BC2005774E848E310C0E39183C3844D72F2058131620F8E19F1F2C07AB98034D2D8D302338AC825A6C2F2147720C673C0719072713BCF836A86F49F81F92F8138B57788BCA03EF60459B815168F7FEDFA2A081753F3724BD48D0656B1409BC441801C175483D7C530F964D4C946D2078EA3474659CFA648B8682761A8F65CE74553088680BCA7482D5A6D15A6CD94EFA3ADC88743433FF0F610C85B0CC5B4A0A790FA3A195393968213A17C087A3C9F69F83C6BCB387BE910602196B0C823B061B6AED8202EC509858C6E895",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("20168B975318293CCBD248BC44A81F0C4B0F42621495A8246C01E1EF950483123E54373C82C1E7F4235EFAD5CF804839BFDD5C3D4FFB63940B748204C1E638CEDD7B0937B89C313CED4128614A6148CA6C996CA70B6D6FE6C0130CEB2D3DB1BD449EAC05502726A670E40B58609B7105109E362145058E05479B04668779048148D4E12CA0F4032A315A2462B09CF0D8D3E076285803E5808B9E26CC672302E12A59ABFE24624318BFE36A4D08E9C0B78DA4F37036141190934604A908B9920F6DBF12885CB727016CA04CC8A7609A020CCD210D9F2A21900CC67460708627973480B434828D41D08FB17F74DD1CEF386978B78B9535E198F1EF9A2D2C24FBEB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2878980319D81AA7450119B990939C9805088A0B3939A09C029587BCB394CC36CA063432C91495901856C8C845881F972028116C61CF30CA6DF9939091918BE9384048C5080C67EF040BC1628AC5C85C45B3334C9725D8A162E97A18AF2F7D616832207D5F772BE27E096D03ED020103970DBD444B2F4ECF3272B0AE0AFF3E68709CDD0D327810D80CFB1005B7E3C918403DD29A81FD28249041D07CAD9F1FE8C2459D8BE854A1C1C3031B87E045D9148A439AC416CED0C0AF11D402ECCFF8CEB85040BBACEC5CDB58ADD99BD1D150D111825BD5CE418A5131115942F1036F50020AFC7C1FF860340853205A548A0C516E11235DBB4B2916714F8D4C2D27CD62",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("26BA76C3CE6CCAB2C9C9B3B0C08637046961597033A03304256CCED49EE260948F74DEB41105699B57DE3654C554020C0604EFBBE02BC38B43C2A674DC8C6D840DBB1B2806802933D068F586B0BB0C1A851FFE47A43145307F50D015B41C227F1917095DD3A758DB854D8C801DB06EFA5A7A682003D9F760B946FA9560BA0BE0DEDC0C14957489504889D5756F42AB1B5F4C09FC4084415AB369488B11F023B5776AC211742C59C58BFDD3E782099B2A42E16740423040C55852FA5FEB0016208BF81FBD2B6C0D62C5892CCF5B142330F605BD8946FC21CA19F805FE4F8BCDD3E289F0FF8D1C933EC0B33B878A9ABA2BE4087432C6C43BE0B2BF9F3BB56F00F3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C47D4D8BCFC78208BE3322CF85EDD95F45EA47DFD0DA90FC1AEF3921E903BFC33A80AC25214CF8C1E66D65968C8BD634024D75DCC477417EBF0502E0F8A774449A12D8003C160DFF678215C11F9DEDD84B4192DC21A12BBF477000411FBB890757B084011CF390FB985224D20C1E7F7AC291C6CE487CA40F69179B653FAA068D567B6B1B86084F042DA8359CC8D62306DEE658E36558F702E93EF65CAC11902B8704428D608B08780CEB70FF550EC536D8D12149EB3AA15DB5211E5F067B00E2C16A764D2BFF9F848B52F36774BD1C95782B7AE3F8BB46B7D0EC10891DC0EBD742516A6AC973C621693700E833FF62B50AB86CC447105A806C62815C9F2FA097",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("202AE4052B148304B7B73F6AB4BA7C8A8B9CAA800C8D2C8ACD7D1B777048857005898A41A0C8D0308408BB01742B9ED5A3DCC1769A45121C783BF97C9DA0B88A596BE000C2427DE54048013D3D285C2EA870521C6283DE905EEF8078D29A04CCE0B05D208EBEC152DFEE8624D10EB3880306CE07D080D70019838B424569646498BD7B231BC65B9890F6248021FE0557500219B9A8A0B14BA04EC16AC318C13CF360159D856E53B0E20D4090679AD92358D818BA81C1300223176119745F8C5C88083E44280458E840C39580C8C04F8C7F3A483022DE82565884F8C0A580A87FB2741BB8C046A3163C69016400D53A06FC1EC8B501F735020B8C928A782CEB3F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F6DA50BB01133446302F83345F2344243469816BCF6886836F1031DBBBFAEBDBDB86FD03940BCCAA69129C473972642B0C6C483C490C4A43C04D7881C310C2EE7ED03DB32BB54869C5C869DBD07F0805018457D0161DF047C6FE4680F5F87C804FAEC43C03C95AB018F8022BD1D300EBBA6CBC4A83BF4834E10D569DFF1E05E6870CD8A44619AB7F3EF20850238C7C0842D3A0CCD9228F7E08950DB36121A3E1FEA0F70396217B70DBA3C432F706D02605AC34031B07036826017E12ED0D0A001042921F698387B4A00C8985B49009D8ACE60D23D03DEC76221141AD40B3B2E9BA2CC8A14946AE083E04EC25AD8BD26F15C097BD40C29D930F988D9BE0F35F52",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6AF817899D2CF07431BA889121AC84A8023170061AF7B9852CDA1037D05C723209D48B8F06FE6F20F00FB61A8D7101B8BE4FD1F8D6C611A32803D6D2ED460645483CDBC1FB72F00475CFDCA405945CCC5CE023E4DA63C8C9E804871A031A180349B98D8679F6D78DD84A0BDCEC04FEC0FDE5C1E2070C710FBF9122A5958C4124FF770FC80E9B3905FA11C1F91189950C836285BD4766100AFA0A7D6D21482007CBD835181C4205D9AB10C562302AC786616E3F1CA56055AD9BC98DE003D2A13858DC1453D2031D8DD1360AB8384B204C0E0EC1EA768A4FA0CB01A85A8673021992AB24AC0C8F219928B04231186F30A5A5C0A180112E54893AB0B0005687FC7C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D684BD2A517A48CDD61231496E6B525F43B3301C2DB21B132286A1FBCCF0FD6BE1D9D3E2430FD2B9F7CB700F965F8907C1FB031874C3894A8984BFA7A6548D590147F7B1813BBFF34635807E7DA0645E66378283C30C7A597F1CCAD556B6A23681BB48B18C1D6470FC5152F0612E35244C737FAA0187DC2F36901E4C897AA3DFDE1E0746BB62121B0521986A9FA141A9090A06824C271EBD5530190BEEEB892D28AF9B260E628070FF6C734833011F3090BA197925CDFF09880403D8294309D869EE9E060C30D68D1FC783C81A4C26C136FADD710A1C0865470A5AE203C28555DA982C1019096D8F6E18BA34400E116BF3D44B421D733F5CE3A6209121644810",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E224647D53DE52014E04BF8435C152C815E025C323811C11E04AC5280BC204389C35C71239C00D8470848D14CADD9ADC0190063088A95B5C3702DF12DF240F724000E379C7C1FF915CC920D7A94A5EEABA971D25E424642AC0E9F8F4696A25408635244701ECE00CF37921808D1E9435726AF732100CC50F7B3F02E9D8541082044FF7AB828121E620E70156DC01061BB45AB22109020C0233230106B9782D20921C382CB674300C4E2D79804F9F03C7B503A8908964AA9324AC6126928128B0082037C0BE6B1402581860003D14FB20C0C5209114FD27CF04B8BFFBFB3D8D661676D95F013F8D85983C90AD7106D803D88E8C23B554230ADB469DCF72EADF67",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9D6257C20C3BC043C1F807B2DC00C59A7E6D2C3C26F40861F51962A92A9C05FC43BE83E334E08CD3FB906C05E39987014F0BD6BF12AB03CB0A107F7E6B4D09CF5C028BB806BE5267C1DC73448B7B4C86319ACAC618A13AA40CF80A7AB4EC1015130001297B21C3E7ACC18CCE0E4D083CED3E800C43DB966633D8802E590237403B0DB24650DD05BD220F8D1525909930025AC0B736270C383C260B30335F3817DBEF1A56D0708242508B5B0930A0E36BD268508AB4EFB4D64A0D67D0F59B67E32D53907DD8C463AE90C18846E6A72DB0B2F7472F58289C242CE839AC1FAB0F8D8183E2017A2CBA652890F09DB6E0F40B5C8B80D86205BE5428B8E01CDA7262C1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E80C4A186501EDDD64E0078BDDA2208C4D3C5A5F3B0CF19F39A62D58736E1C0265BA33B4ED01BCD06F0393256834EF43BFD87452FD843EE0CB0BEDD17EBF5367AF255E6834D78C45890341774A634706E87CDF0434885C193484FB61BC6DE2C88917EB299E8A945DCB45C03E84D276191EEB8726167FB7294088C27CEA468BA016948F375BFF977529BD138636018BEBED72F09252339239E54AFA991AC76DBCDBD68D872114F441891316343C530FBA05B51463E87DDBDE112DEB6740E7D5F2EB22B012A7601F320DAB6EA9D14823FC1E2CAE406DA4FBA6AA308AF00BC62B3FBAD9E6C8683D9BE305C569C903F655DB8494ECFE494D2ECFDD9CD030862F29C8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("801C7258385C79ED277340E50375BCBC4CCAAC7962091FB8400448F39424B86E3276049BD60525FC058C526C2710A13A4A2F059FD0F40A6D19523FBA1DD1E7478CB75A556A5C8B72232184F064C1E50650DE7C0D0AAF31D3B780B67D6FC12B03B8B0A68B1D808BF140B8D9C4C8B3248BB40D9A06E4BDF66899AC235A601DBC6C7C960159C0449C52743EE4604D413B36C780A03569C8CE2C001DBE44DB95994F22C188A4310498A81933F2161AD4480CB88B0154241AE7FC40B8C3A948BABCEC8648BB2D7292347181B41698BD23A8043F544D3901B7FD5CC01B909891C924435EF29D3C462B189ADC464026199048D838B4019964CC5814AF819336CC28E20A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A04AD2AF38FE0834C1C163043CB2D57FBE821A825DAFD68DBFC0862AB118E7108570BDF876042FF669CACA03D2DFDF569CA63E2C0D198D149110A937781382A47B75D66C407E3FC09B4DC81C5210ABE9C9C26016AE5AD3858F61487ABFD269DBAE2B502BA669F8289C9F6158347289BC692616F4DD0BC1A2C0EB15BF133B858E72D7243A8D3C19E8C15E00BB0E5303F567F884C3F3E739501B109CD738820666E5FAA6AA021E6B0495805A6577BF06D3C5DC848842510DDBDB839B3B422E6715DD35D8C9398BE00B4B6E0517FC1F8D740C06A5867110162CA4EB7B0047DFCA24286C8500AC40A358C6125CEB854D20708CDD7B7058041B847426BFC5370D6896",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("08D89D1C4E0C83C0AD09BEFFCCDC20FAE1BE074503CF26E532704D3C7BC01AB4F7BDD1666883F325DA8F5C1829D9EEACE1ED1E9303F182F29EC28B0A36E2ED5737B4462C03F682F8AD994B0077F8E9774A242CA9B272A1486D70DE281DFC7F0C2B324CD887A5C28715783E1FD0D0EF95D0A2D1CD15E04081C646094A55529F2C9A46C2FCA155A984E5230D96A2B1003C0BA14B06EE91133209B5642C01E763848007C4FAF5F6B9BFE74F61A89FDD8411401648C2C1F0181B402E3976832D48209201B964502858904B06E430603864402E19684070E49201B948785019904B06805888B964402E60906806E492019870A02E19904B78A88001B96440B0884B06",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E492B890C06E2E199098C8A083C612069E0B02ED0F8553723116749702DDD7911143D83E1A87AB8EB50176EA780EE7C5BC714F38BDD03EE6C523461C2A35AAA78D972D8407BCD1C02705728B10B77549C8841F4B30A7718291BF327A7CD3B98906E44D0508470BCB13BC4A8D813A4BD2B2A2264E2F60403F15AD7B7A40F8DC5103B9C62F80335900C806250F58F86B9676771E2E3E2EC1F0185DB716ECCEC8BF38E02E7BDB67695EF00840084360E830E71999B51ED0631010E8CFDB4696E810104362E010F38C8C2CD81818E0E76D23CBE018184362D87946469618E02020D8F3B691E5D820204362D03C2323CB20E82828D079DBC8F2D028284362C89E9191",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E528F03030C8BC6D6479C830304362C0870FB0F73057F81EC34038BBEECE6F90383834C0DC0D152E408F77F16405504A31A895A5B462485E5550425CA7857B8449A01BB463D120284850426C46BDF13AA16381C7E2EA3DCC32D76AEFF0A7BD8B0E6D1514DD80480DDBBA918E500B0A7F65B29DCA32EE8D93AE7D7402ACD18821037AA269E114A3327CFF48F31DF663F045F4F083FD127CB73048607B8DF44089D7E94B37BEA23017D9F0F37AB27163D638090212B81442BFC68C310B67388D141CD95825920136922C38A4E030708C474E1A6E45BB424C4CFF2D16B6F37380818B528941F67E3A487173DBB8C15AC8839A008283C58408AA03C8A512A702FE09",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0D58088B503946066DECC41D1BD1EFA2FE4021205AC0C703D21F58078E4AC95628634DEA0BCEC203603C1F78EEEF11F89009E7077FD9F8B7C284053BAF0818228C0DF15C573F3947B490C44BEB44B8B036157E8D6BBA06D567D6361475DF3FC2457A45DD80986452508936C87C65E150FAADCC417D2A4E40C59CA5AC80ABF112253200F3740532B6531F80A492D1E8B8FF7909D9BC473C28EB1B38F7C2F8462489C1E80F5EA8530F2DD2E08882E4E0A23956C71C7539C269174C1BBE88AC5BADC2DA226EB8024BC5D143BE90A8CEF6C1EAE207FA2B282343C8D11A3491A8420752FCBB421B0EE454278B4E6E06A2BF598C241C090A2534706BC651E81192353E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BFCD1B2053335D24058042E6869CC120E1E8900964656C902639C850B5F06887F4283420C72970F8DF463C17727887B4BD14424F5C42D2C53E1DCF01E4E37416024457461B30E264B89A44AFAF69AE38880A168094DCA0AC790B9C69162822294B401919191940484848B01DD019489875AFA12605276DDC403C66706506A909755BE6C0484B1D987762822447A0A47F7C7A64D74EC13D2C6B750BA33642D35578CE9391D881BC3BD07677D3DCC6F7C1899016EB219FD18165408ABE40EB125FEEC8315EDBB074BE17755803103A1A0FDE805CBA248D049FC3A1F248318EE341DDAB451D1AB5029CDD1A88EC20DC8B8754D351766DD0A7C1E4EBCA13C8ED8E44",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4C48A37EC1D96A200782BBA4946093D9CBC718C1B9527D835F78BA02655C2175C512F241E97DA4861DD7F6250C21DA3A30D8C469FF25FDB5DDC496154F3D612D2E68DF0B3BA183DEFE420C9F6FF50276B6B028CC750DB838857958F00F13983E8B52148ABD121687C4D850060CE3C9975136AA77346D8055AF75044D751334BD68774D1A26C64A3D90B603D985FF783CB86F68B067A6041F5E4E0B2FB425A28B2AD65327E1650F98F7C5DBF005816F181BF5EB32B8063D3674305A86E89FDB6776332FBB1618047185047C6ABF84FC14EB36B805DDDB97007F07946EF034B69E86D974E1212779840233BE8BEE84DE2A185E9FF1BF9EE48237A27EC2050122BD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0506E37BC0653CBFE403F89A4150B700B71E342486C315BD0B7FBBD11237750A1FB90F0682EC03FEBCC594EBA22DC34513DFECBBD3F83F094E71048B69502BB482D246E80845BB597819C6DA7943910A547A646292F23C4FC49F82D8E0E879639C31184DEF37F0A58D1C19F8009C58382006793E9728089C109C1830F764DEF2053840212091FB17BCC17680482F50DA7D96AC5D282A40F68C30C9CF6C4AE3A1F48A87E58BE15944B2F4AB40AD8B79488B4F802A072E20BD3C17755082A0767F103348F0452C01E869EB07C6773726483BC72F2BC3DF509467FF262F0C2BC72BFB124B7C67E59B2D9D8CC8153A16087C9E938F50564110C11C881EF07EF43F38",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1841B92418F92BAC16705114CD2C429F8C8F94045FBB548D2CD70918CBEF56BB492504C3D3DEC8065E26740C13037682E2487C1162B898C602E1128D1CD556D1F80C2793404C48ADB6A26EF31AC0EB59BCBABE64E45DD8891AB1281F08B03627AD99045CB49C5414DD8679204F9A449AC425413D924A68CEB765088C3ABB27487A0CF247DFC4074692903A5C9450DB185AC7F9201A9626C6677A84DC19708D818D1543A24C2AEC25586F8BCD4D1C125A079D6890D11E7F7BD98B480C8D97B694CADA214D7CFD307488A55341D2DB0A036430B33B888B5668D3E38A5FC082717A6FB9326C85BF96FC79298EF829CE9C04CD44E18C97D50C88282D48695D27AC89",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("288DA814D29A01CDA2718C359ED8B4FE6F12E383A9F60FB6078D4B01B0A09DA4611006F9A7EE21C0C1F8078BD97DA24AAACCFB6407DF3D9E2D7C96A79F740603ED6FD5F7FB20F0EB2A494EED7CB58BA4E3BD316CCDA5FCDD8504C6832F29CB83FB0FCF4E1080E7E989B41A0B581A131884F8472A6BDF073B08ACA18521381378FF699CC4F1D3E7468BCF21C93C9CC09F73FEC1F907C1FE79C685C9052D4A241D3D0D1A0FB1494C8454D821E04459741C2E4D4858707890348E0EEB18AE4002D65EB30C3BAD86EC4432D3DF0FE0C3E268633F81C314FA7CC872F397B20EED750E882B2B9057C905147FEDEDD82D4C204E4591AD3BC8CF24D9A2718C3441273FAE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F268C9BC422302D7A06C7A4348EB2907532872A5BD8A0F0893198D47FC126907C3B45B88870D7940770C6E0CE3E8C5C4E238010D89136DF798898D7C94B515E881DB111EC7FE4E7E8C270DCDA014BAB3179E66B8812FCFFFC73D32D10121A32D0D0B8BC5FCF400E2D7C00AD8232B83C3623B4DDB7CAAD29C8BE98EEA1266FAA17265943768A84E08689A125423E22CDA1970ABA33065DC53887E1E905793FA6CFF0B108B5C3AC82169E25C8B04D30F0493A36B9C0041DB480B77B4A0F61B143572144F6CF7944E26E4C3E2CBF91EC70BBAE1B18E1919D1BFAD1C999BBA2DCA2045CBC72383E303C2C039B58720C78E0BCF417822BCB03FBFEB1A901D180D3F07",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("077F66781D8D6CFD0037042F8A57805C212F17C1B83021223F3F181C2657987E46400699A08978FA8E6220077A0A6F448B6D11289780448858899C54D890D0FA74028729405E31450C0A8A0C9890141F6D7FE4E040AEA801397A2347D32B6F09CFBBD9C5743509FFC3CFADE00A8A5FB81FD791AF70A5F2A0CFFBCF3590C235B8997E4602FC84AA8374F75718A5DC3BFDEBC8B5786954CE5F5DFC05302B057B048D4B08DBF8EB20696C158F2484E20BDF84D5086D3C626D0C0705E468FE26B8E0144A3BDE1BCD0ADD1972BB82AC5B019FDEAEF05C359E51B43B2302DDFFD92B71D3BD0DE88951388969348D57011180F65648D8543BD53B303057A6F5A1EFC53B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C3EEC32FAD17E2407413DD6BD29982C01DA696A844CE258D3CBCBC8141D4335C3A8041B8C10736B44140893881173881621920B86658F6BB6DBAEB09B8404E491575435819423262C1012BDE7C629048B0803918B0CB40B2501B9610BE7320C4E1690C9ADDFFC08160F5D4DD7CBD54822485D6610C51866F40402BE092476A335DE1C05C4E3D54FA2823CA6D7C48032AD8A387C613C47F6402A68D0EC63BD3690474DEB66D301BA73780552D089C2AC3182E9B19239E10DFC675C5672A83C2423C557884F680845C785E9091B4F9B194D83A2E10845FA6AD39C468D8E3D5D95CFACA4387697F3EC01BAB7089AA583E95561E40332D422AC4D05F47219F7C959E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B730D3E6CFC1FF41AF25CFCEC78E9037573058B7C020DD04D51C4C67E588E9EB1CBF88A2C2762BBE4C3BC5380434C43F9D08213E07873811739072083E8460B0E433AE4265D685031151741EFB992E7C0B43B8EB1AFF88D7509025373F4B0A19393248989899FD9CAE513DAF401B65EE25533A92A9D532CC03FDC28EE12BD521DA1907493EE35075495415C4E2C28821C47D6EADD83FB108E417BED106FAD4018BEDCC505460646A66655C382C630736927AA8F8033BCE38C872D34480E78B409CF88DA0301D59E73B7F460825E39BE1089903E1BDD0F5580FDBBD2749A845132B78072AE82ACF4E8CBEB772503441261DD32B32CF941CE5CDDF092B5E7151D5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("741B89A5E34E357CCA1419EB26FF3CE0DAB6233F300D1EC380C9911CDC19A804197B2A044CC9451E29448E08D67F1FA073A1D836578A7556161F6CE220CB723B83C34D5C7D001E641999215C5BACFB8D5D4F7214573923C51B89AC92A330275C190200255741FF04CF7370C5B01F011F6B44442287A2279A03F918BD21D007BB3E3F0A19FDC1FD23820327F1C5D3E3A355741217CDB4FBB9C218EB1D10FF18C28F2A3C23C018DF4DFCF555582DEA58872BC505249A4D286C54C05CE1083D3DD590755850BF35058C1A4FA110487557618184E7093E6BC05C1CE14F138B89593CED84F14050266FE37E186C0F72357F1083C6F02E7FECD43BF54D930ACF0CEB2D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A7DEBAEBA89A66A91E4DDAC3F56D646A272D5626D26C5AE4469253027F28F8B035EEAAFD5B74DB73D2D89E0E2CAE8D460E2FA95E0B4EACBFF3352E8C9DD879E3AC2E98007C572A16301CDF5B852B50A94675D6E0AD11DB343FBBF2C9979EB036CF5874D3B44465C5408CD23691BD6B2BC840A589279A890C2B0D7FD988110EC740739D5CF418E43ACD8AA5CF84EDC0F3D51595F7C909E362AD1D58343829119D947E26A4DD8A9F4635FF572557909F90C342BE9291BBD9CBC1FB9C4A2E64D3902A6B1F0139852A6B3E371D30F59299F7DEB55938647940A274ECD8BE2051070D4633ED84348923DEA645DFDBA8B4EE586AC3860B4F3E1D87D670434C49AA6C42",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("35E40BA3613B5D32E291868BD7293321CCD4B0CD1F881B5BD22048CC1E8835812054585F6972054B084E777CC42A984C7C69ECAA60AA2732778BCD49C1998385C26C841AA1609C48157F2E6304692F7F45A4502C2E00822083B6850258326768274659003964004C3A18150E19482E7F5F6BA4095F15EBBCA24CC201A87E32DE05863C2E1022DFFE40D093178F8DAC1F20E449DC49C8C8D76CA2FE862AFC3BDD408B5150539248A256FB03FD1F2F19C1E0078D90A0478D80A04F49B4466E47C04808433150513B4D63402A0EB8A0BCA669BF5225BA20532E4454122753870858F2542FE90262431A010C88BC41BD1B8A7402B001FC8D3BA56FB0CADB88A5B12E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("32ED0ECE3DECA0257E6C1B548830D485DD2BF57E0989511B92B8F2D15948034A51D6D85A3B378698809E198D340905742748C7168458F6CF0B83DE3D18318BF353842C3E805BA890014357350E98C3B06D89EA781F4F16E64C7DC105C7E15B6EC8A306700FBF837A86F95496AA741593960A2E565A1E7E596CDD108D16D494C85EEEEC5E125CBF2BDD98E81170672FE044EB06545E2205676B35A4B4CB521AB481B0EF98509B8D1D82B138344A56C50C555E185811E98F554208839772C4854BE3839B9E3E25AC07922AD04EFCE09407AE36E983FB07CBB23518D22097B34DA2463C1B1A12B0C1714D907E9D82554DDD216135DFC340B0D262D2245E9FE0206C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4B9DBF4C4171404A01C4D88A22BD585A6FF984C00335B4CBC4A1C351A575A4AF69D26E6E31808887916B1F8003F370C3A22C7C7068F49683A3494760694D4BA42726F8331CAFBD7350E1C0660041DE0CBCB02CB09E5C02DE7E553DDD078814A2A87E5CD0F83F072758E1071156A408A742EFB6C1BE49977FE33987A8740A7AD0A95D3F1645428C6A104C1E53ACEC00930D06B45C15CB3516C1A382A1746699206EF6B469140C507E4E105C22C48D5BF67F98A6CE52728898D604A19F7F156726A732F50C8F541AE8C41CF38AAA425E0B06819F687FDC8198E921F4415063FD868CA7A9CC5C626CC3402090A5AA577E1B0BB0F60F5F1F78855D8554BAC76A9236",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8A05CF49C0B8124D3F5084DD206EDD130E884D2A5F7C68C33434F5BCD15B098CC80971A02FE863A03C88A05ACED5F7DA10A9EC2DF51FA020107415A4C41D1387350DF9D10DD7D4E1C24F0C758FA06712D5A91210326E3BD2031E96E5C56702A366AD49180684125230A09AC0CE7AA02C17515A5A185A05473C1B110FDD8BDD3C5D5A4C95EFBE0B3B96128D8F0A64205903E006BE55C581C6961794E006EE81C7103680FA80A1B342C484D30363589F454C3B4A408920E968A20CD10E2CC14C38981A40B7386207394422C085265E898DAF4F385B70BF09D7058D9C13240D581B2CA628369405706EA30D3078448DAC0520343234990499612C5C606D8CE11D40",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CD3009325BB8ED484FE148D3B405DD383040446CB6B5B3BA3C9E38416A284405F4C04118C0768CA597AEA2CB44291A8237EC7318A50740DC66D9C04D8D1C61981649C81E6C81C11B1941DFB0C1287F793B42403C0FDF66179AF8205D8FD8B835321E74DD0629D793F71A441746081FD06479AFA59DA65F082710D84396E539021018E03964599E031820E8049E4396E52028F00528E539645930F806302CCF209738009D073840CBF21CB20808404810B22CCF210948501821CBF21C0A5058201CB22CCF0B5860280CCF21CBF26068300D68F21CB22C70380E70F0CE21CB78400F2186AC39E429982D48109F2798D77EC286C04708432A11465079762A5D1990",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("39DD98481DC619990C1CFB20D57A32C24DDF055444CCAC29A8504D2C1D54B4E9A86300A05072078403CDEA363B5E9B03CAA448898D8E1E1D436422E05997E84022D1B7ED8D8C014D303C90BBE0569E61A3EC87E4384D7CBB605B3B622E1B64903C4448436C19E4428A623C383C6926E40A444844C9989223484E5AB3689D7F447C5F3840BA8033187A3737F19A944010681520599665790B202828303097FF9765383840D9C6D8C6D9CCDCC7D8C2DD507EEF68021B09281238D9CD4B3BF35E20D9CB2730AF804048092D1D149AFF026D79599E3C29284850D9CA481C303CDB822C5808DCC58E2938822CED8D609C581C4068696F36DB08DCC4B9482970EE681C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("506F3618647870368F5828804B460C1E3C46FED9EFF638D59829DE93CEDD903D6E3333BCCB0F8805082A50080835CF3E30F9A85D493A0FB0DC54E66D9E8C13C0DEC70FE0923D3B1BE22E4DE6223212D0EF3D45E92AC6D626C24FB88193772748971AB038CAC93B2638C11FC03066A071F217D050DE6F8CB7C190BE36C2D8BBCD81EB30A682928E3A2C2D81A0AB1E68C8BB29189C40B3336017921320EE04A53FBB6BE5810223005E22EEF3072A11D0B37C10D8C3D9CD40C68273CBFAB0EFDD8373DD595C1D0068A2DC64408B7859B760F27F874340D8CDDC42402A4B481BBA30DFAE487B6F18019599DE2F719F52C9699619DD03D84F027533B403239A8BFD82",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0A36DCFB589BBC6087A02271BD535B2F0860689160580578972C6FE42DB820514080004C96E5794F60105070308A1C344AC4CB0808083E86243C6228BE11E5293816BEE0CC460E0C2ABCB4BBC83876035E5C38D8C542386B447A21039683CFC3505017187476F166DEE1C238BE8F5EC3B0A709342E5E46DEE0B5993699980808D8CC9183145808F5F680F41C939380106BDC68088B44C6E32CCA2E476FC7E11DD3C1D8109147586C249A2CD8B23840B385C20486DD8D486B2B1C0F4528BB8E0CA8DD1DB188E290C51E07E7C162351061EB5CA33213E1501E6350D4516DEDB0303EB5B8C4B6CA0C48F8E4D6DEEA0EDC17ADA2C382EC5608A11CDCF23C93E8CB58",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A3F1C0340FB78C303025673006CB81E5E1835858736371F096E60801C97815A02EC9E659DECDC7080B73101010411A9693027878580F39E41990C0E0C1B06C1872F2E9DED8432537643359C84159C06FC932C8E0C1B091C436441E1E6E19183F76C3699BE15A50797054A6248183E493F0A5C602658E1939C221EB91A7612DEA3860B866F9C0BC28A528D128D8CA283761599A05C96060918391F7D61E5E8B69707BA8F72E2CBF186F18D8C9184D4270749409220028B530345DE0725B487EDC2F982EB0E9205E5195405C0E137503F2C4B01DBB7A0B43FCAFB3685CB0C9970BCF32202020EFBF10522A7C9742689F746049845F0C7F07E1A588EBDD02CBC644",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0961D4F3E81BE690A58DF820105802321B90676A4B18032920CBC821CB20500408281122872C600551C111168399AF2E48C08393030BEDC459E3F4A10F9848C860C9E1B28A675764E527F7CFDECDA8C70E32077821CEC1DECC995088B622AC21E23079E2240737420517FF38F590AEABA4CA3FF6202712F4D2373758E885031D0B9C60CD1EE4059EEE051E1E70CEDDB23260C3CDE103315B885DF9ABF5CBEDE838F313304F8ECC1FD35BF17C8F4070C7424829BC86355D03D3CA583A28CF810A0BDA0E670B10152B913D4027F7189D259F28B34D95180760A8B0C384AE49D8E0848203F7C1CCCE30B6380BFAD7E1DCC74C713060AA56704F9ACA06CC22DAE80E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5018C2003B5903CF70254EC61A5710F0857644EAC91208A038723C1CE1E57C30FACCDC0A5C0A2A0CE540C65005962B41CEC5ED371C6CC061FD975B851BE4295806820D68202C985E6C4010A308D8CFCAD3E1990B7530C9197C864EBB2743106C800319600C793898E10A5C1CFE59113BC09D37CE0E0A0618207058E04E0F0AC8585E39C68DC8A393800B7832A90E46702ACAE4A448A504A070B0116284018E14215861CF8630A6BF38D9E1086170AED038E6C718691AF014943992E2CD5CE29AA464C60A4017260D2E46ACE57A83E93ABC3AC594CE505C5E6478D1384F410872494120236BB3A9AF586108E0E2B8422B708681C4117DC95A050C58764032EBFC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8C3C9CEE93CC2952774048387C388C01A3664128CA8637C3675A234110BB181118C0805D4211403F1E004687DFD0A2AD450608BD30B090F9BE87BED2FF09BFD3FEBAD4C6951A50370C59605D9BFF9D16889DFF1240217EA69DB0F7479592916B5BA098C0BCDC323959B82494FE0CA5759933ED29B435A12584DF76A87072BB9B6F7CD3B41C4BC9B491A251B0C2C9F7CFBC4948C50281FD0D20BF7CA07D84941CB811E34600EF8E96B10B8E1346FA412619792FC8C8D078649291D0D0E0BE37004C5E8E97163DC8FB0FD8A8CB057D931D5E901DB3B9A02F7E155DD87DDE6FDA17BCCA52E8291D080433CAE0F039C9C820E0E0009E668334D3EEB6D01077E8C88B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BCCB530AAEF86210CF7B9C2F27089EAD73D8CBB1EF8D2C18F066CB2EE0031F82F3CEBCAE205F6F182B4C327272209EF8F830E6BD769803A6E8B6CA7B286993177977280F383EF0574119063023F2DEC9B9CE0BA581133F2F384B8DC02BE3BD25CC70033FEB4D245F90B855BB680CF5B398188DEFBF297A0A9F0140C2FE898C76984B6E31C14817E464DAD34A50FF6968B43C87B9E4C670966178E46D95882E5812DEF20F8012E5C8411B3050560781E04BF50F855D4C45B8B7A89F821FA6BFBE43005BC11B28634DB92BDC5800CFC137B8D00B3E7230813CB3585890808C07C1850C98B0B9B8DE117221D0D868BCE2BC9041E0089F839F4399B82C899F983058",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D6C870509DE09E2FBE0F91E5E2DEA0BACBC035E8BC67DE3DF1135580222080CAB30133B290B02D32C11DCEB0141A3BC73E47465E109F64189FDEF9C17CD81AC48B71D3D3FE415EA6C058EA3F0F900C1BE499981BA8C00FD89B153F83E0CEB84D28BA3FB9313B58C6253334E870F2E0E73D80CDDCFCC150A0B03ACBCF4B8D33C8C9DCFE6004122DA4089CACE0323232F20B10501858073970220A0DF008A0E499416E0F20281B38C1201B19703057591B1D1EEEC9F83D103EE9FB19CFF7BC9B563BCA2B40CEC3A05D402633F26E2FCDEF2860D9996090591B38401B48C820C306500F58604946DA366897B6A8705064811A50E61548E49991A7E80BC8C02F6886",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B95264D04C1DFC0676529308BF23D8344E36FABE157029364C87E9BAA01A3F80BCE4AAACC7C580A0E4809CA63F88A090A0D075CA26A81D062B32C993DBB031BCC70AB86049E3295D06406D32C9DB4077C00EC03F32C981B44C6812C8C0819C1C686416C63638CAB472311199B692B379D0AF302D8E67F9E79C739888EFA9613298159A40571A98F0CCEC269737A8BB30213407D8AD33C2B3600580151C3CAD00AE01E02A7595BE0C7C86A730DF8D71F47C5C8BCEDF5011217405F6033D0015ADD7027B004EF0A40CB0C0540B9CC293D993E6920C30405949D03A78D29EE0C93A506059200AEDC2F611F3AF8BCBDFC2A695B6BD36024E107CEBEBD3124EA84EA6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("42165C74E85111FA4A680CD25EDBB15F9FD9E010B02B58C1200C57854E4E2E7942D04050E082931C442B0A7EA5710213C1DAC367E928A5405C0D04A988839D03A1A00AE3328EBCC00D33E8F0A0AF1081C28D1733F6214691692878FF7F5008821DF874C1CD77738E4500A1F2DDD83510A1C180E7D90AC30E1B18CA8C3BCF837DA1A156826921A63F0CA8304821BC1E14EDE22AA5E7104EE9020C52AE68987655C91E20DD6E60F3EE80F33D8F58DC846245E0860160B42C513A6C51E9CFEB3504926383BF6D689376CF1B2ECB388C861840611609B7A85D9ED6DD9E3948CC94C9C7480D8423EDCA425051499CC0B481993550911C98393990839F808878B42BE4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0090906D2327130C989F709078C8E7202798204F205041A4BDC9903645345290968F2300FBC910E8EE652F9486C0BD94FF0CB2E6C43646264E43EECDA7FA0FBFAA50C20DB24EC781DC60759B66BF140CEE89B1D416305289A979E66B9BE403F55C541CB1F45BECD9161F90788C36200C610D561B4455D2C82047DA8B7E56046158D35EB2E714611C0A39122CC8C8ED2421635A24983632725C343C4E072AA0EF1C61825DC1E058A0FE60F20B66C1F8118981C0A6C1E610C1FEED5986F925B1D015CD92521B9C6F792CE5FD53AEE09C25E4809C5CF0560061404E066458105A6C06E464205C308D92DE6DC3211A17B87C0401311650F88C0F4E83D58D96608995",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AC431D0D3D21A1B032CF3E0A5196C42A0BCCB3E73B9AF2213861280B18469E232308FC60F8E8D80E4646D8C8E8F579BE23DECB91D47690126901F440A40E593EFBC740747F3FA757500C8968140B1CC1E71037FDFE3B82A7111D24893889781005208D68079AEFB34C18015528132802425D6B04EB893BAFE2000B4F2DB508A38D37CF7CA6E1C262C10DEBB4D5B92ADFD1CDDA8220762A761DB04CC1569D27003BA8690C10CE5C4CE5880C9E9B4B38A2E9663F80CD075030989F9F881C988A25C24E9F3029EE87C3C9C787248C49E8F14FB31F8BE6F6E8AF202A5E52B74A9A91E7288C49542C01E464E46430563858399992663402405AA4193919485C3C034E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("464EA6505E5860932969464404609A9193916268644C0564E4644A706678999266E468540680193919396A886C5C3B6CA6A407908D87AA5D793B4EDF980A81B4642B696433D2BC85F6136C09743423CD480A7C0B840C4833D28C8C0D940E6C73AEC19C0EB9AA6E05B02B9A82B1CCA45134AC112C9FE64D19B412FD11BC8E3C18C92397AFA0AA704933D246C47414CC155D272FFB81C160026D59A8726F3220272F25B074B83627037276C07881C28639A6046631C83A45D4D82AA8B08700DB82E2251589857A3870A834F00C0985F5F91F023C52A2F62D33FFBDE92ECC6419C798BF5BA4EEB0DC3AA49F4EDFF0FBB4691A6F078BD687060E278DFE1F192B78F5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8284D6DD83AFDC7D76F69ADB7E0A20A9174575BF8B93AFBBBDA1BDF2B86BC638BE0484D64CB1E7BC2490F8DF964EDBE179C921F844F844C151D8422C31CBFD6B80EAEA46B4FD83C75C83FE09238C816DD70098383284DCD65F43E1815FC50BC1EDD730612BA82F0BF889BA38BF4019419E419EC480C8C02BCF3E9FCC00310D400C23D00B7F0410E682D40383F9307CA53BF68B8445FDFD057C8AF390DF0C339F4C409002481994B9F939FB8040ABC0409802489C02483F71F1A510207CBF451B40B57CB1FBD303585AF6B8240BC2BD100C5BB979FBEABE005078F00D00A0B19403239ADB82A7F597943281CD3198B8F0CEDAEF147189A99830BD4BEA424D905E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A70D7B8CA99040FAFACF9E4994449662F8E7DA963233A0368BE80BEFAAC0A06DBB1A720B5F226A70C1CD40759EF3618017DD81CFBE6DC4F79E79AFC8046223C84BCC6E214160C009768474700535BBD31005854321D68FFF281F3820EE820740574505268A03B9A964B69F10FB0C3B4F00FE19048010FD33D8F339C01008FE0C0ABF28045117235064AC53A922F02F0121B736846F910582D1D5B657C203D7655AEEDF31693583D63C1FD9183C683E518CB4746253CDBB0F2CFDA0EFD3FA15D3FBFF40FA468F08369A3E47873D802F2532A8A200FE5CC16550025B5CC58660DEEF90A2B888E6FD807412DFD8C05B9807BF664940D358DDD8457C94CA245AA3B9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F0220D54164C41934BA8DEDDFBF3BCF731789749F28E98D4CC0B567117D9CB6713471C3DA52C2D91F0DF81F5E2D4347E8E43F3FBE91821822701E10F235DF7F0E7CA702C17D513CB7537B7431B97418B14D02066126D5AFD997677D4F14A3F63B08E039365C0888C73F2BE667E5CE7A5BBA9F3F26CE7E174B07123A10DE81EC246920878102CB1917532B9B9D8D516C60421F10ECCC3176026EE94857BFB022A407BC68B0B07894903556F70D03553285D611142CEF069FA5DC0EC70E3708F0DE4FDB21D716A5DC4E083BF03C1B594610E810163BE8C032B28C10E818E0CBC8BBDDA7173BE018E0DB0D2C2320D8191732B28CBC3BD820D828C8B3B9841D2816",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3BD0492823CB28D030B28C3C9B9D30163BC830C8B3398432384D38163B2823CBC8C038C0408C3C9B414F40163BB840D9C832B2B848B04816969165E43BB048B050A82C23CF4650163BA850A87936B28C58A058163BA09165641958A0609823CBC8B360163B98609868469E8D2C9068163B90686C6419599070887016CAC832F23B887088789A13B812ECC1541AA5BF3844474E784F2D44CA13DD01DCC50320BC61374D4841952CCB33EF41701108297008709667DEB210681110296810CFBC65596818601118296079CBB22C1860205811209665599E295820582850CBB23CF3112829502850306579E62D4811302948303CFB50964838E153381029401C13BC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B2381D816981EBD26647DE9B16DDDCA12F4D28F864646436884DF088F0919165648808F09091919191E890E8904646469610E898E09859464646E09818E019191919A0D8A0D864641919A020D8A847646464D0A8D03DE4AD867428AADEC2A7D064646464B0C8B0C823236F64B0304DC8B8C023232323B8C0B838E73F532CC0C74811DD03DC633812085F033EDC4330AFB02CCBF2293008301028B22C2FA30B29281028A7120ECA188751F229A7655996201820407848B4BC91770BA740782948709637F2EE360BA74870295068F246DE9D240BA750682958C9C1BBD360120B2958F9188BCEC1A3FA838080834346DA826123A3A528B88877AE8DCC4DB08823A3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F43632D256264C90A89023C83BA7BAA3394D104C989CEADAC8A09823A34B4D181919399837C0F8C0460E1919F8C0F8C846464646F0C8F0C891919143F0D0E8E4909191D0E8D0E864646464D8E0D8E0F1BC3864D8E0C6354C0691EAA925E3039DB96A65A0EC349A10DD536AB51631A986C8D54FE74438C620D8CB433872F5AECE3018284E30954048D5793640104F5892485E95E7D948104F5050F741789DAEF346784F608A6839AAE77D48704F68708D983AD9B92D23A16CCA9DDB92A98B9023A10199A6959064EDB819985E92B896B8EBB0D35D9201B0961A6A9177B7AA85162296D806E4AA55318BC8C8F0BA3BD723A1EA0E4E3406E40A5DE0E0E408B0C169",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5FE82669E70516DD4EE8F01E6D85A981501405D9CEAEAEECABA908DECF14981057183B141E591010DECE8FCD2F5753AD84AFA920BA510CAD320BBABADECC2CCBF22A06282B303830380484EFB230D8C32E38D8A572B8EEFCC1DEC42C9EE2AA54C4F212404805BE345FAD5665D4BC58DD5158BA5ADDC3E367ACDC60AF4553BDEE5160C5681451686BD80E239F70517070FB5851780E434F1A1A9EE4BA120A5F058886C20BC822D8F002F2EAAAB598669190BAAAD5E0161092EDA08BBCBBEB119116225AA827B95ED7C8A8B0F991B0AB05374192B85F911E65E2DAB52B7BD5458373C96CC823C0A376910906AAC8F5D877D093599291D8D0379970AEBDAEE05191",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E023A3F292097076E839F091F0E286E20216AF9122B56B0186B5C20D7D34974BC3D798EA3A1006E8344FF31004300276F27B67F1081A2528DD9A18107661669E04386D402A5140A75996D766071C6050600596A759965070500370485E96A7597001486848DD9A9E66594E6858680358D56666597858957810074E225D577FE0A38E6E033B0CFF988043A0230636C9ECAA47D067A0E0437275BBE4059023045ED092DB2D5B2F67D043032323CFEDB06702F0C8B0ED92DB24F04301882392CC06AECBE867885DB783CD879A43A82301976EB77461D767E843028C3CB74B986703D8F84B6E938C98D84304F3963CB7B86705B823061B2C1CB617CE95EE86B0435F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("34C181E1D0DB48FF13F07FC1E81FE3100F834C033F249B1857920E4B8532332C7B08F65852322528DCFF43FC791E32F2CD633F1FD7021089011A1CB64DB5AF8431C6F4A6D006F90604FFFFB41FB2A914246A0490400F8DC113582E3006CC90C08690BE859FAE3DDB0424C1F03509035E43BE78FB91223265C71403CA6EB4D50CFA10007C2B70A608FD16EE1CCB01C3C6AFDF3C01F02DDC557DB5A9FC69DB67372ED9E0C39E52D9FD56DDD95AD301B78710A5BEDED99B406E766864FE5C2B687030D861EF607650299B63027FB8C1E91FF6C14196056CF041B3F093490021C8E8BCDEF9C306862B694C454F073F24C846A2C5AED0BDBBADBFF24C81E9248B1426",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FA8780E730B314A30BD0D3E2960EEF5BAF2DD625DCE215D24AB0B37549DBDA6FAF0D7459A97458EB9BFF487B1C4486BD61F738628F1932BB8D1A16A74D4BC39655189EC06C5558DB6331C8ED740FD9222C842AB606E85CFAB4E35DF9960C6C3015811E67689FE12A8E7C9F039FAA3A993A82D4DF0F1D734094D3D836B2140609DE081F05D78C81E8D2DED936107C272D63B60AC08CFCA88F06B0A79181D9B00AC90C6051E3C61D79C9CD02E1027AFC20E49636D0A8851CF4B9DADB54A7B94F770F359E9CD37803A6A6BEEAF826CD159D0411C3BD02F6C2B6AB7D08608CB9E5163039E6B023180C43443823CC17473FD201F2D9FF5C7A8DDBA3D902E22D0851FA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D9F521F8DD58949070357F9B7AA389FF1B48575BC06F72A0A27B2A0CE2C92B1DA872027B5A3D9E77C03D0E8AEB0B1D2C57DB54139054B8F023D1C60F20B7140501FC4EC4D83BE063135B2B3B40E3C18CA6204A42F71A6734A8D875C0144908C20897D2EE51C29FA410D3E02342DD3136083BE1DE13879B13EE64F9BDEB458D347F30BA3477E0A20D9E7121116910A2D160AE1DC83CCA7863533073BF2F3D29C0B313612EE975BB188B45036B4801005B2B4C021730064C5B14063F601053B74312A9138A9D4A05B13F5F92239964FE14FE4C3309175E9C63209202B39138670319583B332C42C31F3C80649E7981560B4C7B219976771E746D750929F682BCC9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("603B6A5E943F06490EB9808A3E0D64DABD7D08DFA09EE997344608D040732E573D761D86A824E07269C356605DEF3818C36F11F000AC9BD573297A723489E6843A144A4C79ED6460CF1A754BE4FE67308D3B0C43FE6D588B6190431CDFFF06F16CBE20C7568945E896DFF67F05E08D4510C745EC4286508D1BFF750CE4BF6245051250B89A08B4FF4DE48BF0789FC0FA1E17398020C60F506A877F12AC004659598BC65E49BB8DC26DA2565771A0A26F55A0ADBBDD59508C20820E8BF856361E7B3FA200C75F5E5D625365A33CDEBECBCE586B7912576A01338233EDA0B57DD85777283BDE7DEBBD409381487D560E00B82C02050900AE66FFB47DA3595EC311",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3E3F59E9FDBF5755C8FF1FF6460D40740FFF7610C8B7FFDE01DFA5451BC0A73153760C33DB578B941E2DBC46BDC821807800FECBCD3766A908015D46DB3F083D5B3E2B9D7E2657507700607BC3A40E083BC7750E5CA880DAAB7F0F3BFD8911EB07834E0CE7CBFF608370FA87365989065F8BC35E5315A1B660771DC857C4F823F0038539350092AB4DA1F8818F447408FEB0CA480C012C6CEBF6C183AF00E27E9CEFEF0F5066EFE27E70CBFF751D43EB1A2AC3134302CE7EB576D935670BF8463B997CB3E1DEE1CB71E174029EEBA12AA088C7EF6F14B75E75071FBBB83271E4DD073DA3326EC3E0EF6A048C922659A30642752125B787962DFD9731086A1A22",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("91DD59DF0301C033C9FC8B153289046DFC31A411FA043D00FE46AEA1771586D2B99038C2C7F8D041181FDBE61F18801C2D4A70BCF054DE613BFA1E6709FF6120429BF0527CD4222CFAC1ED929A803DACDA0074CCF1C1F8C7A76610518365FC695D107F451B7F1D7D1483FB04F3FF0272118178DFD0A3FF087709350A2B40C50F16A7A7EB6D73435683E7FED50BD1FF22E0A7BE6681660CF3C2141F3FD05A5A7B2DC9046A9422F5DF0289198D46145FEB2C0FE0D1E0C71F8684EAC02F0560EF0E2BAA028331D3774F08D029EC87045780CD05628F7E1836FF750B14066FFC5E5F5BC9C37F8211FFCFDE08A839A3686CE2E9DBE2C3C3B82BCC45E6D9B7E1414C1C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C0C813A348101D50CDE66DDE26C9305466C844580EC95C82C72F326D5783CFFF98ABF0167D1C3AA815347B3DF89832EF48A9F3AC9DC97ACB3B7D4BCF12631C07CF0CA2485049661C00E5C737BB787C0D0C0001FF08B63802FFD0C87BB3EF681860156808084E80F868041C00D33B1A628B450003FF006F429E3D205FC02001571F5FB6ADB6E0393DB4DE75113008700EF326AB500D38F4E7F8DDFE3202893DB044881DAC503CA1F4B7D514F084580DF012568D71DFE80BFEFC3BF072138B062F83EE04794473ED7B31E4E05E6824281C77682C20BCFB62C928EB5B7510F4C7B4053734CFF3345F7B3B54731DB8C5B40DAFC67FA33F3FA4707451471098087214",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("815167DF1DCA912E2D2085012F73ECD3B3F53D41C4198BE169402FEA0F55A20356F70C0FAFBFACF70C735D2BCF357DFC3FB6D7E9894D08955B808218E914667F94AF8BF75F0C3F083F4514EBC296EE0149149C2BA932AC6008372AA6233BCD035C7DC1F97231F8BF3653AF435B86FF4C297D08297E04013EB4232961F47FB5EB4B3B4D14722E83DD8ABF7B7AB9740999F7BF112BC25053EDFD3F35F3AD509236963729450803D8EB1856DC824776468CF72888030C43FFF351B9C013148B08D77665035C00F3105F5E3010EB043C0E70F71E3FB72B7DBD5DE50904170ACF2BC6D0B99243F00F8BDFCF8324072C823605B881E1847429C16AF217CB223BD88BFB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("23D1FC0FC182CFC92BDF017D08EB463B5D1E05AEB146470B317579CEFBC90FE6740D8BC3FB2BFAEB85FBBF3C5803D5EA47012BD83BC772835084873E5E295A0FD18367C881EB092EFF4548903A78824B4AB37F4E01535D0C176550172094CA4EAB1A6EC72BE812E705FE1DD4149EED6F120DC0FE6576C4FF01F1755D24EF1682DF0F5EC3750D6E96910144435933FF8956F307DA6A59070724FC144BC05202B21F4028525FF1C4602F286AC01BF2576C149DB281B18122115AC9F25478107595C149C10DD96853A9CA16F07048B48BB26AAC1D70506C100756B31B32876A3540303983C9559FB4266151B7571E3CDF4EB53257A175FC42B57C2B05B895D57E64",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C029F81B15BC1033A5FD16C9F85713D7684A5250420C5FC9DF9640A685567833F66D13D625AC90BDA394898FCB78C2D59B6E563B05E0845A6DE0978123DBF305F583BA5F81EE8D54C1048A4C07D2971677943E8AC1535B2569BC2AE862397275A3E17FFFBB7E1DCF6E4000A480C980F7D81BC0880A6686D770F82500C003C60B2BEB0A437A99DFE40935FF35E412D1DEB5EC3284FCC3FE04E0772224045B1CF1D9AE852816397515277E83780EB5B0DE61A1C89D02520838DFE415D985ED0001C01E773F52BB3989F494AE34C30F2F5FDAF845AA088D700F83E6CD6A105E3C915A7E598C1E471FFDE82F0CDE277EC5DCAC1E93EB6CC37B7D41015EF356567035",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C4AC17B6661E95409E3D56D224C9627BBBE03594745774655E1B39359C187459187A5BB3E0C9F0503B35744E8FB8742A103E531859A5FB293B01B52F501D055976172180BBBEFF803C383D750F575328C9B13D0588475B77F4D337F30113C3050146101F0C6841E2A657EC7A56536D645B4EAB16F786FF13C4E8A64707756FEB218A067B3FB2AD46DB497425848D293F0D44BC7B75EB5B3A51F914E86D5B43413A2F4B75F37A5B01DCD7213EC750741274B39376194B2274EE6C305DC8D63BDCFA559A5D899235F8EF1904C7AFBAFFFEFE7E4DC197083D05F0FF59166C7809037FA90001018174DE612C84BD2A4A78031E22FFB10C5B035CD10E0CC673DF1A69",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5A0ED1120E000400BD41B681A7D5AB0A040B3EA750BE75F8607585471B24EB61EDBE6C57566202981819F81A3CE0034EB47E9A0801D8E174386215C362167DE4A870AA125A5D5216971D7FF85AB7E559CB56743650F2B810EB3AF7194F1F54266F0851FC5044ED7477C5C5401511C5837E2497E3193836EB0F2D44C9C5C322705F3E81A72B197EC360278B53740F8AE50C191E8639ABF18B077571DF7E8320D86DE88B47FC4C1F84E474168FCE7086A9710AA96FCF4F3783EF2215CBEF02EB080903EB0304FBC50DFFE445094EEB1C8A1646EE338817FE661A174523F73002FCD0EC16FA453C4A05BDF3880F546CB851A127CBB5833413C9D0D02A125BDCB125",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8766159F18145311F68857021F89554E80EF95A0943D9C20479F7E0F3FF3E213076A080ECA5E1C8B0D907E35C0553A8A04410F700347EBD2DF9BAEFE2B374783FE95EE32FE2B75041E33DB7B6C8C63870CE3810BA179FEFECD7270040D8D049B8D5C46D060EBCF83FD063A83FA85C375D751D0EB703D3DA588DFF141E64163715D4924D04B957F4D0FE4ECB8C004198151D37DC942068284618D062A508EE40646145647E81CBB15C7D584570AF6CC68985E593D1494F861FC48F093751D1423410F8CAA5EE17BA52D8FA110C020978ABC0144C02193BF9851782D70FD3BDF5E7D25FE067E0B2904789063090A5823C61E02069E30330C00E8EECB15241371EF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FBE81F37C8F6444A01802980650A890288D788D630EEFB5D0958EB091D09001323307AFA8BC28D4DFC6A0351502257DB5F505E683055D61596AE3BC6750675D79E708DF90D0AFD0759DC0ADD84E2C12E776D282F22DD8AD8C50BF105640B65F80054088AC8C070FA1F8D770189AF83C34B836D187D2883914F3FFBC31E87D080FB2D6AFD834D141D05E005B37B1B2B152E242F8420542DFA8CBDE0E16136831124757A541004E8FD55C0245D307409C7510ACFECC72F988A063C78433C5825081F5566DBF7894D10390575175075123F045D18E17EFF8A5E0146C66FD21084E0C0C4BF0368F4797A18141D4BF309E3BED01EC17DF9E930E1D70B5755F86169FE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("668B047023C74AC306D864591CE0C1570FE9373B19733685F81FC1E817DA083B75F4721405073BCA76C3BA170F08046F0FAF1BC7F7885B474B1DFF058A184A3BD28B778BAD8B37FF2F8B551D083FCE09B389D0323DC20A7D2F02EB4D2904B80A751C3E2C28BCB1753E2D0B817DFF176A02EE8031C9752C3945F87627F6B729D411F58974DEF8FFEB6393F8B511B2805FF6D91BBFB67603030127B805F6890242D097CE5E8F9DF87EA181DD7B090EBF4A74028938F0828E118A3C0ABCDADB6A16D48D47D902D930CB2E4EDA9096C89B70BF29609D1BA8407FA89F0A0C20127FC11223A68DCB0C0166A90C15BAC3E68209DC2E81F1A6FF875B33DE76180508C747",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F2FA3FDC896CE0678B5607C28275348B4E10573E24749A34145DFF102353BF91E11FED077FD0F7C43CCF8DBF40CF8A4F045FB58258E2BBDF80F95B0680CEED71817EF2C9270EC7A34E901FC5F50BDB8C740E48CEFB0141890E98BA106287F0E11052433CF4270946E0CA877F478B3FF4334DC9FFF2AE417B718FDFC34F8A3BFD13473807CF2B7821258A94FC87C5C8C30BB5D3865E10A88223F360DDF733EB017416BAA8102F87D9FB03004E0824FEFF8958ED650C30E163F80024EF0C02552281FE6EA75F9BB72F0FC0750B4EDC7220EABB1186078B340801577464BFF1BD37478D48730EB118498D4E0426D6B8877E6D506684A8B2AD577DEB3348169C2E5D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8157CB44E13AFD593E8E04C8B8F6400420B3B633EEF5B5176E56B28A4DAC6B80BFD108EB146DAA5FA5D51A8E5F397D0C5FBCA5F2297EC3383BC4EB08F1F0AEA70E8A297F56BEC1003EB9747D683FF88E379E4BE4E8DD57D20E6625F07F9E00783B8F3D08756E515181E38F595004100BCA7E307464EC6D57ABF826DBD1573A5DF46DF446A7B2E0CC78576A1916DC98746F0D1CC490FAF691130112CCB2573B68675D80BD01BD5AD2CF541AC1000DF411B32714B83036B193A0210D4C20C0E94AE29831560F225EC17D0281F90C8CAFD6264D5703C13DDFC6662B207E3DD0F3E3222CB8C75E3B7BE4AAAB1D912BD81619451D11D7EEA67987042D0500FAB5F766",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FB699B6D6BFCB98FEBB63D03F653CD72B1EF7D132FD9EE3332FC46583585709A149BECE5612A2B12B4F724EB1E3AD69686C5815F8E145FE175E9E7DF6AFF68C051860C09643011F013ECE96489253D10C590F59F398965E8FF154C42D26AD000C08AD4CB26C802014B10C0ACE77D80611A1103CA157C4A2546F6E810A3780E0FE840626DD6B30B1C2E02593635D0E66D12A5BB9B48A3E4FBB7EDC83F1BE9EBA3C0E79E08E6E5268010A1B3676F9B94A3980850FF358C0C0B884B00739238D12D2C83E450E345030DFEA5ECF909894DE0D1AB4F8005CBE5618B6075E0CB833DC803CE00606A8B060C1A3044A2001868781B62561E0D28FE5E49594B8871386A5C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4EB27A874F0BF33FFEE0271577C4D84E047733FF2E7758ED9D0FDA741AAA3B05462E50E57D70386B1D2F4CEB1F3D02BD2DB9412512413F56B40B0C1ACD0B2B2824A1D06B1D47E4D61B5629CBF207F07419EB8B1F6A0057EC0C0828C02356EBECB2F579C4E4A1358B450CBE14B6A00818103372804511705B3143780FD8FFB04D5D7D877FD0C0937BC63BFE76319C7104FAF80F827801E71461EEFF8B4944F9087229F3A5FF2495A8B4450089EF0FFF365883E90472E5E00303C82F853DADF9CAC0B33D8DB8900E3CD01BD06FAD26FC06201823D18A068807CB3B7B5F1F8847010B02AC11B3C6C7D9DA4966B9CC8D49574B9BE45996010202A69047DA81BC7646",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("42477E8C9F0C8CA6699AD606840E7C746C644DD3FC9B5C8B448EE489448FE4E8E8EC344DD334ECF0F0F4F404354DD3F8F8FCFC73D2C695F70005F89A76700C13FFE0C006CCE01B1CE1E222AD5E6F903A1704610B06F323467DCC90181B14578D7431F09261F8CF7C39FCFF240DFDE783CF76C7FCEE40B6F7D9DF8DF0B5E47332151FF92B48B5F04C6B5F589058167806A0DB03B7E4B5EF75DF034EB04FACB6960E7A15633F47EE02DB716B03F2528C904F483DCCF252575B03038B7631312DC0B7F4FE9AA659B6FC0604B60C141C24D334536C37B62F1C1C184DD3344D18141410100C344DD3340C0808040469ED86853F500A580668592E56B17CB62F0F0303",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B045B12D1F0727B11A89626F71D29F68AC68517710395F8D40E042BBF48B3854B8D70FDD2FC13BC3FF1AB29EB91D570C66F7C2088FC7F2AB01032B4704E997E3277CEBFB834F6DD82BD9F6C2675DF8CDD628FC176DB5FA0583E31FAFFE2E1CF770F644DA048074281D3BD0F5FB07F87322803A0A8FFF45F842EBF16180751248783698AFA1837DFC81359E9D1A451BF6470CDBC87706CE50F56D3121550CA436F1DC2BC1549D34754E088F8D1C9710CDAB1603E1066A40551E3448C1F4837FF34739C1BFFA634D08BD3BC1730B803815084081B1B3BE470D20EB349263181CB02D186C3945F9C565F72D9F3C0574C14718F0CD05C135981C829629BB64700438",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("63CC101F5328C0520B1AE3269F22F73F43280060A9CB8BFE4561B1004CF3A61140E0DF9F4F3A47FF778B044949F7D1FA1252ACD78585506A3C79DD7BCAD381EC82E008EB1378575982F0A01CAB37457D10B951848D69E44E5A6DA1E00F838D4580468D8753C2F8FE03F3284D55AC253D0092F7FD98101C1CA52FCF143ABE7FC35C7F9997836D0C040708046064871FFE0F8CDCE26C63E5B1FEBEBC30EBC0D1E8B3C75703C39099DCDFF88215D803FEE60345103BC61F77EFF712BF0B37FF551426E82BDD3BFB762357B77AF9207DEEFF757DF857E711F890BDB1F885AD531572CF2BF8D1547B2DD62649D3CA7C301A1CE86F6C8D140B3BD77317C783111F162A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("087671D7FC8313361A2884393B111D870280F8D81C98A332F2BE791D7315410C0CBCDE83C16553913D6B3BC7591916D942602C0B5F48ED4D801DA64EB43BF8763DE453DF930E177B56584D7527F777646A048712D9A52D2878F0E70385EBEA8E576B20DE8B8798ACB177CF995FF80E81853F7B3B87741DFF8DF5D1B4F24A39878D72018A198AF28AC5FF108818408811414E75F3CB9B4C02F748FF080B57894DF0D184DB0F6268E0BEEC05D0892703069A880741BFC2BA2EB67BF42E094DC412274BEC1FFA7D6B2B4480FB207C1309787F0EBB8A9F5B4FC280AC260FAE1F84C102180BB0CC1C65D7123F186BAFC40F87E9CBA1F714BAF2858AC13FDE2BC00586",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("655996C8D8DCFCD43CEF0A04DAA16D9483ED3B09036E838FCA742DF51F4848931A0F85A6D2B26BC08409084F10043964991D0123808002A882513FFB2A7523C86244EBD0ED6696DA0F8D5F8D0496D84F3F41C0368B2CBECBDC41D0EB17324DA4E9927F1EF86498E02C1F8075F87E8361B63C6F49770968741FB43C585E6C74117779E905096FC78E60C141101120633E36140FFE4F2B807E0134750E464691FD800EA89750DF4365C4006513D4D6C1F24B6CC54101192BEC8EABABE480ADA1A31E22A7C146B3466A312CAFF8673DFFCCC60F8FC211650F8D960058C0F70DE023EC34942EE8433FAE352CE3E470066C211B851E608017970466F7433008691E88",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("838582FFF5BEEE03D2978697813B4210082B99F7F1BB89F49B1ADB16ED8983097534F924C7BDF094418499D54E507BA99060F0668338F0E61A7EDE1D7640EBE743C080C3202A40061E04C1CAF9B4BE657C8DE87D9F8DCD4AF816085E18F2329DD41FF1AF078FC10E69126150F902CE78706E2CED54889965EB7D7B7D327DC88316DEDF07A95A7432090974C548FB02E7457EE79DA05C7444598855F070644B6D8F1D410FC042006E7F439622BE4F612B85FF7417675B60820149C6D0CDA3879FD962602A3A1C59A130123F16DB40531A9E39CF2B6775A4F191833E29F8353955F88EED51B7110957A3207E24B0E1477ED8055D36F684EAD074078BF8E1CACC80",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1CC44BC20DDE1375D5C0E18910F827385834FD3B4DB48B4096B8FE63B42C1C8212E2CE53E021016361E97D1C0E4CF40EB84557A03470E33554321016DD91E7BE204C3F2D190801478704B9D5D857AF8569EF2CCF8F6951D000059D0D84C3F0B932435184E05E407075DE6F47B064E282DC91FDF3C7CC273C2BC1D1F88F3330F1B8E1982574E31B09B23BE1A5254D49C61517CD73DA7A07F6C9802C10A0EFBF077E5C8A27C645EA30045123DC023FC37E2456EBEB4743083A0955172D1587FCA76334206709BBA57E80668FEC668908B50F0DEDF1148E1F385AE2760AEFC73E65D1F9740C755159EB417A740476DCB5210A402A3753A67DD89FCB99EB2517B7C0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EBF24108047C6F4FEBE00F33D232741DF8F553AF7B197C797313F183D2665F1CEE12E0F7DAC8E9E4EB061A0E1C2F7E7CF675046FE400427D093BAC179E7011C1F72C7D6F96E37B4C04E00B45E456DC00715687E3E9B3AC5EFF63F8CE54267A37743F0FF099431F5F5129F0575637E45520919D53EDBC198E3079BFED6F23B50C83FB39FBB1035DCC8DF45470D67EF48818EBAFAC2B18052A0223DDEF4BB4E78B31803930E9DB8403BBB50D48401EC60130345BC8811F043DA1525DFCF6BB2BFE95A126F6C7017406462DEB141F15F2D5BC7C2BEB0902740B201BDC08F07B3F75D82B75DC05F0310C751273DE955F78566A2037A1DB2207EACFA6780450DC1F0C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2A59082103F24EE763043041BD4F8313E774410BF0173F109CB5FE1DF48D78FFEF03F8845CB7438EBC504325A8328D054F3BFB0751762EB38BC74FB6D0D89668DBEB15B1EAF0283B286D15AC8C04744BE6D078330A5FB9D0CB651B59DC84134EB3A69A85BEF8F3FED321B8ECBFBB45008FBA07ACB269964DF82FBB387004BCF07FC1852E974904780E8B118A1F0FE0138102FF0BBB0B7A6B9106564DF708DC0FAEF07505833F5DC3FF00075E14B460F2793504312006707AEC1D0E38A603833E1B07414F180FE17FE3851CD66E4059877162267867DAE6B71C6A100FBE0657461C506D3FC11704CDC34BE27CCE834FBD4798EB8B00C619DB03410370D71E1D51",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FC39663AEEF55B19806F247477B7041FB95B7B339A632564167E636A0158B76E77E9CF877552833C85CC0053578D13BB1F036E001E7520530B0775137A165E0B4D6A02E4587D882B0AF604433F895EB65A78EF137E253E0F04440211B6080A62885FDF7A8CF11456FE0056CDAD4F257C41C51074293580660DC1AFF7F4EE836618DB26056671595E880316D9BC4340075024E007C233FF04F7C192148A01410F63E467E140F7C1057E0E39988101EBC141FE6764693224137402EBCD8D41FF99E41DE0AAD7C313FEFD120E4126FCAA8B66186F833D8B3AF9EF69814EC2E21F86BED1045117F8E0B92554EFB759D554009927D69116135049307C21DB12A37090",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("56981383490B14B1E11FF731B5533B0DBE190F837901C0A7025D44F1B38A443004A943A9C152574A390A473882D37D15F0F8B6A8770FA5B6330CBE4601BC2957512D99C6A5C6BB005B8063C19F084FF8F26445FC080F86E7B6EC85C0E802AC4DFC2BDD1829BF7B176014C60980F90AA913F0C60022E3FDF50D408808C7C88D95522BCA176E17055E7C19F8772BF7F2F07BFBF46A00501B5750E3FF3430055841D005387443900145F84FEF5EC05753C9FF3B6572A4D59DA48A652627E85F03218A238F5F6A055820C31A3ECF754C3D5B5E0FB4E1A6B38B9BEBC75B4EAD71007301161710986BC90BA21FEB0F7FD5B5A7599C55EFF459EB3D71F61E6E38344037",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0280381A1BCD15EB7624E5D71C463D5F1474F0D8EB163FF0752589854571185123841E05C2EC44BC68A9C401860B81F087F68E8B234FEF1B89354CC74B15F0EF6120B686523BF0731A806CDF21757F0EFFC646050AA146390536EBE2A6C30118146060827489A6663C4211C550CF1B2C7BB117B930EF8F5B5D67B8C394152E7C02ED39572BB0BF35C67D52BFE4981FBE38E667AFB683FF418D88FDC17318806048435C9608408B0F4DBD3D84738BEBE413937CBB49C43D21E512EB46E0F0B07E465DB0368A4D6127F021C22EC20B50F048E3E4DD081E75CFF0ED4317338B0B89085E8848044745FE82EFA03AFE7CBA33DBD93CD8FF8D34FFF0C324DB85DB0104",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8175056A23F002C4F658ADC348A0DAF75BEDC0F5B00CF083FFE71757CDE0950050119334F5E2027E06804E7BEB0F00EDC2465A14B9040A80F312DC69947C9BFF716D5C0B1C2904F0EB4415C995C4C16A03955E814410AFFE742F1B0C83740D567FBA94FD211C1C01F5147C1747089C3D7075B07A1959835B43498CFF6FBCCC2D6480CA9DFF1DB231F02D7B19295FC0032E2492F7FB332F06C5526F6020CD55687936EA22E1670001F090590B18793F8D67EB52775DF8114079DF7F1CF0DDEBDC75F8DC4D056DF01DE873010F63E805E576F6DDE380057DF3B107686C5AF2DA270F39101568501C501F1C60A3F16E4F37D040A7FB591E3C904789C489F665924F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("91702C4691BE066A04F62E04E4BEA4D48A0DA054E0DFFF5A970E468A0E88068AC10B4684C975F3F8E2665F2A048A153B0823413ACA749A6DD7BEE74801403AF4230C742A310D40999FF879658FF945FBFF9F0E5F48E53074FA38107501488A11404184D28815E6C9C1D9F69BDD00D5B0720444242004D2C58301B1CA36CE741BD75A383C00D5F553723549614809F0CD44D9954146DE2335108010131FE12BA2803DD8765674279848C01E37A1D4189E7A41FC41C19FC151A7382D70800F195F03DF518521B0D90AAC78388B9CA5676F30D7F7236A5D569E7448E8ED6F504B3E210164D760C07181E5BED91ADFCA70F6AC9132F67504C6002DBFA1D896901418",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("578D78018808C5778E0D8764156F68785422BEDF60380D28F0C803CB80F5BC74FC5060A26EC84BC60145A84117EFE03F4C3C8B5E044B7909DB272D23FB9416FFE9647C11536A64995EF7FE7B4246DAF7210D8BDA2C0A0AC10C085E970118969C0C148E015512152E08C05E2BA1DC1EE2350703C31F1A3BC375470EAC1CCD25A4D7C18BC1813049A31243B7A50A1415D3F0E8F0692416A303C3150381F207C3C55003FD7507C645E21731048FC07F1069E2BFE19157B5C607305947EB02013C1CDB9A7E412BA03459083EE0F59376557F7D285D00DFB17474048B06073BDE870BF8B6C4DE5359536A30E1145F18000BD58BC5BCC25A0F0D0EB96407A3AE19718A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C18A4976890DDCD15053598E045FD58BF156631994BE06ACEC52394D5D880DE0BE1D20F4784036FCA3287C211045DF90751D920AC01F4A3A9BB3F92046FE5308624DF0E727046E0E9F78EC031423ABDDFB5FF0281C6C1422C6059A019E25F8C549A9608025CB544C0C69875A4BCBAA6445F6B4D65AD8AF8B320A6D04ECE645742C667513E609DA0FB6D95A4CE275182BAB42EB11251E896717F3E451575D0CC4C2C9581A824B550BF6FD40505603F714935C467BC60832E03B3DA4EB800198C94FF7C31E701E6230E569578C3C8BECA3240F166A022DE163C4E5D98BE83F593BC51C573D26759191640A49E2BE4266F03B4F598064B3C755D849E809557915ED",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B0234485291B177CD2117C8B6F3B356DC50804431BA0626EB40821105A6F5753E511FFD98A5004F6C2879ED2CFB096C6FBBE0DCF746720FEAF90E6620948741D8A40053C0A7DA2D78111AB52854F0109F1E00E09C6F1050AE3C1210A702D4251DA68A30A3E78723A6A05E3C1751559235C88D12399AF9BB2055F896D59AF4150C32F2506FFEB99DFF40155F88D4CFDC834958BC48097FAE1D74524803F0AC70C044D24FB88010318B0C60AF7D4C152108639DDCBF844D427058A003C1A2B3C0D740B84E8EE8AA1FF27B4D2BF4540BBB1184240E006831102EB5E670BB657350D4788EB739756112886128BFF637D684562A18796124745F4A57F6BFEB0F33F13",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8A45FF178C8B0B4788443105E2F7FEE1EB293B8F750B807DFFC7052D0AEB1837C6A26337FF0714320181E056C7EE7E24A80470B6479410DC0B2E68BA74E606A840C80288062B8DA2C41363A94115510DBCB119DFF99C405E98D0B0CFA8D01AD8DA1B2C0EC026EC0610D00E80BC80DF98D098D05A1B16427F8F0C7C06746C9AA6696C645C544CD09843400DDF98D0D5C0A61DE0B006BCD0D0DF210F390030D2E0D1D8DA771E38D158904816680690D104F28A1ADF30D21B160A3930D2B7E4FECDB2695AEC06F4FC04D20C1421A0063627D2DF60D3DA0D3F400A4806586CD28731006ADF1947FAA13353D5737399F07C901730BD3C8D0FF64431AB3A0DB95650C9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("09C01721D4EB4FAE0E1C4B1140B99B6C0242808B48DF09BDB50287244107A8FD8D2991A2DA728BC3ABF14AE03618F880952F26FEFF9EC033DBC505FC8A073C61741A3C72740F3CD1ACBA028322B2B901EB5FCF7E9540CE01EB08B909241302E15AAC20FD838ACF473AC30F84E3E8189AC840833F5F7EFF3D85547F7D6083E82B7445091974360E741C4800EF447A99AC00C311A3D91F011CC6FC98C920EBB72977803F908E10EBA2F6C1477D137BF80BE840EB98C3757383E1FE6FFC1F7F6C7CF80281CE802E82B85CC875590BC857C0F701F3B35FCB62747F2EFBBF11780F0B76067540F6C5C0753B80CD403D08ECC02FC7F8752EAFB4B3840111512D329371",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C817CEF02D88C8CBDE74740733D21783806299E104604E2D835A61F1F8469D93FA14947AC5BC27148BC2E394AD8970E7A37174EF57180908053D48C3AC15043A8B15B2E78F07FD3F4AC03BD5577E5D8B1D54FB05F1D007FD3BCD7415F641570A404FC9F8CD3076EB3F8B3483EB878EA05E456A20FBE2193407F4598B0DC90FC5220A3EFA3C073BFD74E7F73BF5DE4EEE95F7C3B36E04050CED2E09AAA1159E27C664DFE050456956020B23C0498924C5156F032A03F64C816545B70C0ED3EB413A5C324B1ABFF17FD1E9D1DBD1EAD1D80BDFF7F3F41ABA0F67647B4214F7DB60D57E69D1720E3B4E77C7075676013086FCBB4E99E15E5BC21000610B8164167E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3B0AECDAA717C714F7E140530BEB18BE6FDB08A2140313E103D376A1E87E5A2D284C8250FFD00F0A814CC451D06AF1A790586A2D6681384D5A75FFD5A03EB73CB803C18A481A880E8A4000AC81D31B88FDDF000639A46F2C8D16665F48AE5350C70F940FFB14BAEE78911A83BD7826BB97AFDDBC11116C057208DCE96BB73DD4EDF3A13B2E6890C65068981A74EF4E12A3CDF38D4038FF4F57B89D0A43016B7C083C7A7F042C208819E6BDFD0141381975ED836A167D80EFED713E0B97EC7933EB49C76477E6359BFE040153BF709F24B6176277B70AAB345085C166FFAFE8FBDC59593BC3743E6A2C1B1C18B3FF7FEA6B30873818740E80393B75048819EB77",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F23FBF8DC36A0A0B7B8AC102741D03A46E0BD818B26F024C4413B032CB807DFC0E26EDD2065954035B14E30E74EA346468D417502520461E0980A386BB81686FB162F888A332750D6813A5837186E7B79D6D0444C1D6921818C2E4E40FEB19178A327C9AA8682D711A66CE2BB0BC5EFB247D9201C3F225B418000DB876A9DB7765A3B00E890DC0EEA80A08DD3302308FA13CB4D4EC110FA1BC0F8809C89EA47E88042B500C2D48C7B01FD247CFEBE8EC7E10113A845AFC924165FDFFD797A9C6FC2B790CC1EF0F8BCF69C904D41F4279300144458B0E492EA900B7251138E63C1363E0FF14318D1C318955F48B56FC6BBC1235C685B347757E13043D2833D7EF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("ACABFF3F76036A3F5A8B4B7F4BB91F20FD7441E3731EBB70CAB98D4C025F14FC1FFBD3215CB844FE097528022129218D4AA989D3B2E0413D9CB85C136F13A74206954796EE7BE7BFEB030EDD5BB67ACFC00403E15A2D55CB2231B1B66A1052D72ED1FF5D84A182A5D32CF43B59B0E7D12B75F822D33526E1AF80314B5E3BDE76B6826E9FBD4D2BD186703BD622D63BDA39B8D089BB77717B71C13F72794083FB1CBECBD3EEF7D621747214A825604C03FA323198653F29C94BE03D39B44176E72D6F3E06899533CA723BC049234E170408C458A012D09C5D08C060C6D39D11E99B81A0CE8A49DCD65CD104205E62519783F2CE5C6F0B081D4E608A05001B0C3E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A0884D2EA4D1F60F881673254FBB0E700D5B1ABFEA0919DB44B835CC7E5B0918EB294910CD4A9AE09176AB1EBAEA8D847109147EEA0ACFFC994430F5681EFEABF0FF0873F7A1FA73D14B61DE380DAC4A8B35000E1CE17EC1E10F03480CA50D6860EE61D9F65351FFD63F65B70950081CDB3D34C67337A488D8499FC6DF6E1EFE4843154810807943F583D34BE0EC6004FE2383780B695336311BED6E700CB524121053DB1A9D28EB8B15E6FE38BB783685C8512BC89711EC513CF49084BD5150D8BCEF8B18A3040D5E3B05447664CAD429F0145DA546B85B64943DAC1A3A5AD829B0995114C761CA2F2374083F8223BD175D8290E983E1F0447D49F0780541DC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0E83CEFF156069E3A1C475F4D701D84DC621B4F6D3E81C9B3E7AF655A1CFD83BDF2F087319448B3B5B0CE2BF235723FE0BCF750BEE5DFC304CC8FB6D72E70E75798BDA3BD84C1505CCF1EDDBEBE6337559487311837B087E26B73BE4D96EEBED260D365FEEBBF936340E0ABE42F785DB7414531C1E1C0BEFF359B7106B435138FFAF0D7E8743BE3D891D4A288B2DFA8D8F8C078F55FCB98C90C4777B04BFFC904411378B257023835B189455BB0E1D1D01DDE3440B05174BAD80030134A9FB571A9438B8FE23390BD774E98B99BE42D7A32F33FFC1914C8A6A87DDAECE750DCD6A20C85F4DDFF65F3305D1E147EBF78B4054F9870A2B3CF12BD5FF43FBC1FE04",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4E83FE3F7ECC8FB38DB1A0F747EEA68B97A7434A6183FF092B01E0FAC6E8CFD02738A408A6B77FE7EC235C88448906FE0F7538F2ADE9007F0F210BEB934F290A906890572B3D0A195A842DEC536C31590B5708DFA563D1057A04468979048F5CBD67EA190811087F94F48B7C77DF1B98F14B4589518951420B66B91A82083B647F06FE78F6D5EA0B7D29832D0B008822C5BFB020ED2761CED3EF093B151E097CB6EC037B5DEB2F510D8D4EE041527B040860090E62BC5B2C0BC90C8D740937D18A80E0E96C4101FC64DFFB0221C42BD145012432FC35F1BE153E8B0E438D791F3E478F54EDD11DD87512963B430D7A01B003DFE2088D42042899376511050DA8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4CBFBE7451FFD330B98950DE47F53430773057298C211116373BC774113554F10B1B907B1468C441C008B72688CD8A613B677E2D4291401F742A6A04E4DDBDBE9720A075A7338841D50C1D0C754657F3C0EBE989D9F94E430BB8ECD7ED7E04FF05C58323ACA1C4E5E2AEC05C14F4E8578B71914108C48E7E343B9EE043C36F69C0025A1420D101F13005EC40860799585B924A3C1C3CC083FB0BC1E7B9790C171011420CF980006C221AF87365BFE98D970070BC5DF4ABF7773C8D47EF48E58388EC0FE88D88FC809FC1BC0CC740FCF0841DEFFFFF4FF76C935280E8202805AC59F047073C1BDDC7E5070C6D27C98C05F08D4C89417C2F07F7654A0C111F4164",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9E4485BC9EB8EBC75FC68A46438AC81784C0F4884E43F845F858FF7804BA33EAF7D221B8025C5A91C3690C4F211D25F8FB858BD78D6261A8F070172B51D28D53D56A640B09054FE98A82E9FC493BB84B3900060E3A8E0551F6D1C25646854F10801C7F0951F30F8F450135DA1E565DE13F1A76069D590E8B5F9A3E6039C75F480D731FA73457F854B701E2902B4268078C242F43E9DA0BB9E9904F08A4891088FB51E7C97FE52BCE01F7E88433BF568EAA13AB85F7AE290D4F89312FFFC1609570F45FF21CFB81972C5777D95B7F110B174B59BB2CCBB24B59595C070463217FF384971307047321807D136F07A3C9CFCB71BA23EB25E0429E70408F4F842186",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0896732CE510339D2BD3AB384432840D01DC5542D023EE422129F40FD82C10C2DCDAC2DF0F8D3A5F95BD12EE0C29B2464B6D5C3336C00D54486725D020180AA700D67609C6EE51A8148578FC36314FA01C1C43A54FA7315C8E11D7CE7406F3619269C40ED74E06B23C5C82EDEDF27771F7805C387708FE19E55C0112BB890BEBDB7B57C27C38B0D44B04F55C461EA600DB0FC2060F49C30A60C5C2394801CE73CE0FCB444B2679C2794EB65E80C680715BE819843385513D78FE508003183B9A4233BE3DD36816EB1D682020B5AA995A12DB0C2D42E35DD7A0DF4052D51419EC4C00523250A14F22D74F05A3D5BBBF618401B8B63BF0751EE3121D79F784C5A3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0E1B6C1CA35725E3FE0EEB158906A110A235109001BC9B8B308D87CE8DBDA58FB712331423188FAF81854C597F33ED83C080C0B9F1100D82EBBF829DC24A23D14A4589101E76FD60341E09FCE35313BEFE4E6246C2F8731B808FF800EA471D60E82F0107C74704F0ACF836F429D8DC1F27B039B0047B6EFD0081FE8D4237745674DF1740D8432748B8618217FE76DD653935881E47C98003B60DBBA31285201E8B0E8E9006623C37064A5381C8C52083210DE17E386A14C20A57837EADAAE117325960BE10F8BBB435786FFFAD3F72C3E0139731C39803BDF32FD05A305009122AA811F80FFFFF0DEC6A46FC4C1C461FC7C70D77D0F763C9F8B5740D81EB5E83",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EFC0E3F558B77DB2449F10380496DB8D7916E20FE835264141205ACC0C42F0D8461EA2FAEF0F614B27783338C428593B49740AD6C3293D4A8F32B6BE7F30387CBAEA8BCA3B411076050914727AFCBF36253BCA7437EBEEA80F7531AD90828E3A3301A0469010B8C0F27220E0DD4BEA8BB2F866DF80CEC4EFF02BC11D2BC25E2B9A180BCF6B083421BD4F87752B48AFF90C2DC8D479F83FE00FB61101108021213831F8C718772C7517FF05F41E5C09EFCB0A20FF10627E594A2C4FB181881E4756663EDE4059157E08D318B47E2C19BE99C683E818F8108015FCE00C25F9401AE247DF733A8B0F9B67FC643CC71AF77615534C3E37A6D2C7E43575102D83C788",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B311C283606F72C8A25603CD0B46274FBD88A330FBA7F3E31D09F89F338B07E3199814DAC05E0B255B9D269681DB0BC3EE7788A42172D28BD90F38C1363B6D741515C5EA891970DAD6C2291F971EC7DFD27AC74095447FA1060B0CD1BA6610AA3FDB821E2FD6D5F0E88B5F0C86CB72F05FB9C32BF783EEBFFEE67728EE780F033BFD1102107D0BD4B012AC703EEC74EFA4A5BB20B8C300AD5670BD55C641C0C60F9A0EF8603046A656BD4D7053AD9E082F7E656E1DB5F8CDF48088F4C9501950FCBA30056C585C3611C741383B0D7E640CC79D75D6893D88F60E7E58D16C3BC8734539F70538A0C28FDFEBF21B1BC0230B470C80B8C0FD95615F08290329BB0F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("085DFA91526B41EB3453FD7E0C8DA12988593154190878E2EC32EBD9EB2BD3A75A29DDFF43D32950188D81669354AA905A49E65596007E3CCD13398DD0371E038D194F03AE86EE2F7E218D041788174B73070111298D83D3E812D761F92D13B8F80F4F3747E2C8F703F7803E1B0232F57791E6103BF373438A182F886FFAE7307658015E803B8143460F141ADFEBF7A3734EAC0543151E7D84EB6D0C39556982991D6F76207DC3EB0575038375E7BDBFF791D08D710D737EF51667087376735B0D53C27540A25E0158E081EEF22543408D1C5763092B51970BEE5719A831713188E2FB8F0A60EB4DC273132945D07234C9FB13F1DFEBAE2D03F0EBA76F162F1E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("04CDC241A188166F086B625892C0C90F1E47847704C340C756850AB8EA78289E827E4703F80F80FF8017148D7CC7187612872BC8B05F1CF08802010F9FC0EB60736526E0197E50F38D83A7F077558E892BE3A111FB0A71757FF7485AF47B428A45698B033BD09FD263DF772B437627577314F933755AC4D73806CB40BE74EED21C3C8D43546343032BEB02510AC0D0E14651702216C21260070BA783DD2DEB5BEB1610010A39276A964DE5A480C4FC5C1C07D73DDC41F2595DFE091F8030DFD2559D9C8D4C5DE3EB061D4EF1C0BFBD15D657006AFF505780D38BE83BEF743E5506F5960EA46DF60C7C4FC42F3D55508136437311CD42EC579506C0F6C1C602B9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4804595475B8A1987AE55FF91CF505AC21D1AAA4BFFC4DD2B95D770CCFB70441EB5245E80403FD141CE9D7FA3F62D1F6445601805E2365FE00889AE892FE5F8845FD6A024AFDE6A0AEC291968D4D0ABD51176C77966A17F604FFC702447CFC0E31A7450A2311C92F349E4D89C4DA75EB9DDB577A8F311EB96BBF09CCD4C4E8D879091EE05C97E436C423C07D2B3280C081369B95AF558A57F45748D5600F49456C6AE9F646014614060710870E23E0D7D30B91EE6F258DD9084DD334ED1ECB06E8E9F2F1EAD8D41B10C90BFBC7FA58EF75E405E02BC645F339D01C845279895E5D04B116358404022F5F46352AE0E443F4EB656BF9FDFE83FB4E7F3E745E0D2A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("743209467454495FC6F706044C7537FEC7EB45B1368EDE4FDF752C0B0234230275237BD0E5D875DBD013F9DCA42796DF11C6455F6D6874176CF2CF5E7E777408F1EB0E760FFBEB06FE4D04E330F84DFB807D89A543670D4E7A13A581A92DBCC4610145BC26E1041FC611ECD4D37DFBFE1D4A03F7C953993C4374068007A6F7E3774304C69301E69333E8F7FBFD83CE2083FE6E81C474280F637414097B740F95F68685A2D6DFEB0B1CFF5C4223E31A2FF1D339008CF51EE3740909F405E71BE8AB7AFE6F0F8F5E791D0A05679B7FBE632F2C02640F84F8048E6A1D677E067661BF380969741BE03557247617C03C01448D00DED43A6A60DEA7C1645E2FD5FB2D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("417EAC6DA7714FE99CCFAB288DB579F766B64C34750E889D14213D8143BD879F252BBF7D70828762DB144D4F8BD8A5CBB56E5365A37DE000CAA8320AECF4807E4B6914D95B11C5A3C11819925358217CB4BF96FD1217AFE4881E46BBBB381D814D5B2C8A7566515C4500F61E0BC288065246DBA2D0709091E4C48E34A937F85E65A3094590D8A7A5217176C606656D371C34CA5860050B464D1E422B7A63572721560FC7649201084D120841AAABC12F3E53274220563CB86547F605B79EC4CF4E7D124FCC8026C7A311082C66B38F26EB891F9FD4488DD8121C295474EFA244E5D8F8CD4533E06BE22678D17E4AEA01BFB02244D03F8BF367E33D6570B7A334",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("030F84E81A1A87BC2196C3DF6FF4A8005024AD033B4DF93F902E783257EB13C35ACB4CC756BC38E1C3757F34561DB50C803F5E49C816C415A4C779E3C6E324786222D8BB8631ACE94D6EF101EB111B6B629900E8FB30AF33F4DB16D01738742F0F58742AED877370E578B5E46F6A6F5EBCD259DA70B81B5C7573DB0DA6F745305B2A18D98B826A78BF3203C3EBCF1FA889E8FF6A20DD580A57459C67FDFDC7C68244C47B8F3F5D7509B25D47FF207CF455A720FB8A55CB6B5D745F473CDF7F224E6BE3743D8A0F80F91F36471BC4FFFE3AD173048AC1EB07C28AD13AD07721E890D6DF7B05F02BF246A9C24313BF6851B3019F278938C0D2E3A90541057D50FF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("424E75E832D2EBB4A78AA27BB4B57D3DEB9BEB3029180ECC010408039AAF83C74212CB329FECBB76CC1082D0C98F0E85428A4A857C9C078FF6BB1CC2BC747E8BC86A01C85A577F4DB0F45DE8D3E26603154C0D9C3362E1BDF8CB85D174609C75520BEA10801EF802208845C861447DD3A6170D9D592DC9FF76E008F76A8D3F77C23406488E4E1BAA58C25C66892777030B5C1C98323BD4DAF811C110146C0F68505F39731079C8A39B28037F02DEC01440CAC4720A9FD4613B3E369B832000AF0F3A2E80039C93756EE95891EA58059BDDC13C9FD080E70F01F147841D22867A754F29683564AA56E83F0D134087855EA819D88236E1EA8B55DC8D591C3C536A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("905DA7B01D9AD4F85383171880D75DB375156FC26B32EC387D539F0371B0DED3F8210A0D05D8E57DD7F6E4BF208D43D0990119114D2BC104C905DE1F63070B394AFC2FD9E9B57190830075DC4DDC2DDDC802ECD100AC2319FC9EDCB05ED3F81DB2743F0970743AF03C031089760A6C858907167FEB3F19BC8760F8D1E7EB389B7437536B048181203071C6B21C28381645D0BBD33EDB38F8957402F7DF17464C542EB0A596CE9D29E5A0D878AA7210FBD47C5C8A89D8BCDCEB10C3F3F07E478F0489385B6609FE45EB570C54A040315A4279882ED8C715463BC3F814555A929B464F27184E0EA35A835BC848436EEC988C8F187F53754D244102F803ED6E7544",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8BF06AC113CE5356F6B7308D1A528191867FCD4E17CEC6DA9A4B2FFC0C0AA0D7A21199CC2C38574ED960013871202752423DC3EB567E10B0C148DD35990F1EA1091F8E8845E65FEE07FE2F9B5A7B7EFF4A0478098B0A75B6BEA20E0AC3529ADD95309799FF2C0806B102C01D3A5B9D4B9C78C323F20645F85731B1309AA820E78AAD4C3C851153563323135D278400E733FF52E830C641C688B3CB40012D02240DBFDAB813F14E6075F8EB2E5546B803F49BE827598BA1BBC72B912805BF641F12AE0C8C0C58A301C6426006A8E06DEE9E8486ECA31AF778A0B283352F255B062A5B9967172D2372811CB8521C8DD7D44BDF3D08537546FAD46BFF73015B5368",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B460BED456A59CF3CAF7943508891D46EB2241B02E118A3C3698B52C1E8D77C7053E02F0141B1D16EA495480D8397B7807776D23A13A8A1D2D1CB60BB49395DD0891B26B138BC8D7A554D3896DF7ECA303A124687920E75DCF48AD217F5B084050196F61796F209446560329F0E33BDFF560041BE028BC12A524FC22158081B4BC8BC403B8EC0655C213168BE04D23EE72FDDD8B71CFDC746653F1C24382ED0AD2AFE84DF1354BF1BF78EB9CB865D83BF77432F6450D3CF8BA778F407D1CF1823BAB7F1E20A1D116B565B0101E79B3858D65C8FFEC50A2F3FF0D7D2919F9851C6736DC895DE012DE060325C364FADF74B4560D04A7D6C8E4CF749C1E678CB7E0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7B2107EB06195168906002059CAB907F782008339CD6C64F116065E319568D4ADA504247BF0D4C3EDAB1F12FF14905F3185EF92B0EEB69C13C81DB9FDF610DD7610F8CAF7A0F2D909ED08FA62AE0D92D7042034BF3497D28AC01641AA302026506903BD56B0EE3B02E87D17BD37758E74386FCD768E9E8B01EF0DFA993021CD688E1FD20560B23D871898B417B91590646759F41031C8857DA3C122AADCD6B7F27702D15DA598B3534BAB808CFF23CEFEB3419303027383886FA063C1A2ADA5D8B7008A9A471E709CE372C086AB88330C9FE98B60700F0BDC083536A4F3BF9BD5D82E9DC0BEC1D445C25D31FB0D60A238115E42247C0B31E88380A045508B613",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F665B73628A1D8280BDC0AC2074555707DC340807FDB4F3114956822832205C20C4975F7459DDF813720940EFF35B0B55B7135D60A0E570DEC59EFB3748DA4EC89F448979E22EE08A350370B6E37EF805AC7E03915640A56B8600A40E7DF1674168D34498D34B5FC837BEFFBC6730539508FF48DE35E078D2C2150070067277402F21F14D5C259020DE2BD3D2C54F915A5FED7752168FC8B01B48752A140F6596721E5D2B1FF2B590F1E08180CF8EF07B820C4EFD5DAAE1074EE413D48211972F1562CE05E10923B96342D35C66C8354D9A9E00DEFCEAD20B381FAEA17F146401C41545C35616F403CA33660132F76381AE5A85546AE63252532EEE357E5BD0E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D7F2B77D095F3C7629334EA33C8BF8ABFDE263833BC703F868A48257345FA865CFAB60FF8819F6EE9220A618CC3B84DE36C10FCCFFB6BCA62D23681027C3CE06974F5C06520743DF0C9AB32C5F5B693518D94561F2365006E8DB63116AF4151591DB7A4358F37D361107204CDF1808CD02DAC02FB747D6BF3B83490C08C74150EB1118048D41BA2508B31430241C13E80AA1D502890175724505406D12FFC044C0FB8A44C104214077DD786D3D40B14577A025000B01343544FDC3AEA69E3829F8E7140F0CAFA9B122F8F9E26681C1002A3FCF6ACA0207EF70F70DC21BC0271139020EDE582928F5202308F4833472E04F2E5124E30C4C6DDD839DE0381928B6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0383AE75240DD01EA850E0ADBCA4DBDD9C79E339812980874B59752D44B24F820C32C820181048B3151CA74D15EE6490830634FF482820C28705106D4753566BDE09B64D12CB11085B0DF8B68EFE0C8A4D10F6C19D0D8A106D25E01F4FC0095804D0234D0EF9CD938348040284CB91C87272AC4804258E0808BB2D71729010B1206A028B2FF00AC4FF5008F7D123CB83E2EF910BCABE66DA9111082845328325D1E1797662F735F72F2DD1E9302DFBA664F921C1E90323CFFD0510FC43F6BEFE2D02CB84C37407D078C8C7EE8C10A8041508A80804A84AFB1B38F506020CA820124537849F901F06B99A99F7C87A23C174342A741F0D08AC1D387CC5C1B1EC08",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("031604E7366CF16A251D843D4FEB0A171DCB7923CF6FFD888320FC03207B028061CF062237E3EB1A63E7CB6D8197354919EB08180243CF89084D7EFA4B1B221C150581E21F003B4B50B09BA4083BF14820F3B7B00DCAE3CB1A18DDACC8C8EC08E93D5050BD7B0BD08B0D1538070C14E1E13D401ED958533FDCCAF2F375A038F6400807038326344FF3B4FE1008FB04F702BA3E98FDEF845833DF4DBAFFF3B2E1F8BF5FE319FD25497416050949751E804E010C44E03F99A70E80E5FB80CDFD052C6F6112F704DD022116DEF346C66B0167071361076EBFEF5B1629EB124923CA4702EB071103687D65E15937DD1F5F5E020BD26D3A53573BE71FC2C15F8C6367",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5B7414845D550FC522EAAE8AE50B592BE0E244AEC8B1DF6316F6DF0B106A0433FBCB24028BF9093AAB049E057BC8000843D62B6171B8BED723C8A78632C14BF974580F08B7690E08283B2FD085157475455B019460EA010372A102BBCB7AC8D9E0CD6E3F24B45686DAF157326D1BFF594F4630891DC820201EDF8E1C3C9220DD19B3FEA80291DB3A59CE10F1F97812ADE994CBF3210C9979695B5FE1458F22EBC85069A9FC8D881F480746E4F9CED37D09D9781D6CBBEE8B28EB548573712BEA6319388A45FA09466B91A10CFAFAB8C8174EF70F557D1F2BC1845F7BABEFF1EF8200D16DF41BF87404804D0317F8466066E94875E3FA968DF1A9670F4218EB52",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5F5E7710098A064769FD9B1211A603A9635F130B6A202DEFE6B80167625F5B27DD20FB3CA004F26BE314E474298E80CABA633C7D3B40A6A3D920671158DA80CBF01C681937702CFD7E208975E0B424C7082AEB803C3A78C029F07B0D236107568659B2B11116B5457753C10EB0053836A15626EE420A5B94127E1A6D3A00BC277F15D9C315CA8517CE21593E850316C68B8155B68BF0E260A87CED5E04CD4C38C38ABE8DBECB94F4046A05EB16C70E01EB0EA804E3A99B6F02EB06A8010358C3178720111E51D1E09BDC4F42430FA7575905BA81115E08F30F80A71904158F0D0BC12AFE7C519DFEA21757817DCAF07F7509395508E5B8BDC9ADB03C23FFC42A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("92B8F87F608B6E917C66932401D2F60EB317A3F96813F786EC2554DC07F7560BBA20BD0F0458D65D05D16DDD61F833567E0CC122C1E363FB0434E49FE933D29EA8630E80650F438F69CB4D5765BE6ABD66C07C07736EF65D10EFE9E0FBDDD1650C110B80E18307011908C783F8E04EEBE711650EEF1196DA124382C698172B84AE0BF85E272B8BFCC11FCC450E1AE80466257B0FBFF081EEA0D860384A662E8930B0C0E01CC3870817143349DFECE3C2FA3378FC46419BDD7D6BDB76B8FE79991B18DBE21DE0A106C29BD90965C8233E0CA977EE234DFC0B2B096D0CF40010D644FCC16909AF7887C60ADB2D48E2DB5D089B82ED49A036108323460961CFB39B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1847105423A8250193A4FE0BBB47B0939D1A25D9EB30AB49885E34530DE6A2F0789674B7C358CC150CACB50AFCFB050FDC998C97BDADE69F21669C894FD9F6A0A8745D6F017BBA891664BB0D27A00C85C83B274A9F6B8215D156D52ACFF88C15AD2BD1B168B196BE5876C60C4A75F72BDC3815AE763DD6D31B19D805C28372703D902581909F01F95D3D91844A3D939F01F91985373D8D82243DF7881A908F863A3D92241D37CC910A008A89D3C30E3E5BFF15595EEB08F45122912A357074C64A093C266E1C6115A4CF5B89601C1D92491504391BF5FF86256E8724845333DB39208CDEC61DECC2AB3F16F050629D27C0A68A063AC3049CA45F1B3C3DEB753A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("101B5335E151FA80F1C504BE50058C4185AF173BF2281DCABB098B3D82FBA9F1F4381F74CD577DE85945803F934ED20DC2226FC3F9371604D65D8519C1DF06215003FD6F75C95DFF09F87B2B2960571D16891E5F5E343021785FE85234C3F02A58257BBE48501CD893472856A1E43E45A481A1D12C04FEAD0E88A4039D526E72590FA45374E8371B30C6080EB188A979DDD8A460AD42085F4FAF401ABB488650566BD448B58C17A33D3039A3880C5B3518020FE2550E53568321E714091646E4F96B90B571B586AF4D374DD2D00B819A38227544802BE01FA34080FA227429F32516A7C1AFC3F682A17F5F67CB641D56B225E1D71D997D1516464017D5EBCE18",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7EC8ECBB238B468039EB433D05E02DF9BD094089DAF6833218F26B6E4F07CA20740909110975CC03E1ECF1750348C79566FFB5DE950BDD18009D7FE089560560664EEA4EBC2FC8210CFE41798B5514FF02C7A14FE22F9759455C7504404D02AA5907242CBE25E60D1E000FDB0D61228DC7405FC04321C2EBE90825297D7458D2311819E0D110DE890BD1474BC10F9A4CCE4310C6065C4663B4A9B38019CCC1C7FDE64A837FAB0A143F6847F700917BB92E5019DCB06120C5063F370F0574363081032A037C05DB8D61E923611F1CE8F18E0317B544C583271C14331E7595F40F93A14C95490C2DB450032100A810D081BDD43B49FB09D5BFF3743E3EA9537C42",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B828B1B001207C960C3BFB2FE7B3CC2D3702E3EAC89BB7759481860C7F4FC26639F4EDF7E01E8BC6D74040111875F90DF22BC6E38E76EA5F8CD1F81D4005099B64DDBB079AFFD77A23277FD5EB7432C323395529EBACD3DE244A43755A2409F26B4E9983A6143806563DAC6BD0AD4F01533A4C4B409F1EC16463743CC18BC755EFEF7D5538F7FB08F62BC740D5559DAD3E4961E40B75F39C005EEAAF4CAC7BA8A170048DBC84B892CED65966BA557E81BB4BEC683C0B3F940619AC5DF88B2A1BA88BE5064104060BE870999D740FAAA08142435A020D94997852C3CEAA6A93E503F0FE68440B99FF350080F7400208585F7024C18323AFC92E3BE89E0DFD81C9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("34768B0CB32248EA7D61FC2F7CB304096801015AB3725BFAFD58EBF6FF5411EBC3646C7A05C14A3E18C9648B9858DDDF40817904D0270583D777CE520C3951086D361451646A2BC6BBE87E0A11F74F349E884BE26B0C595BC2CF25FE2B50C743323058433030620A998DC108F4BE5015CC458240C9E78206BC73A9A870687D43732F073FB87B0882618D0C76638F74455625B46FF0558D6B1051175D5E820BA606EDA165783C4A5380B6CC9A02C83A561962086CB5F7C9C16A01BD8F8B048FAB0C7608D64BC29B60348B348FEB24FB263250643B15B86AFF7F0847914D5D2D295520EDFB2B72298B411C5007185049B1A2B196C30138AD65A84A7E3447AA7FA2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F06CF3F98F722DF7D944E002027A082BD179579A5A4075FA7A0803C10C10D5416FA8CA7B332B279A69EDF3AB7406464A7C5FC0100BABAD8B2AE162013015EF8166A5AF96588B431177396A70A44BAC232B8D9365901B788CF9B3390330921EFB0CE3EFF3A911303585A9902B09E4BAC72BE7E4107A912A81535D145E139CE5100C0E0AC217EB259D54A2025C7411421BAB5DC82F845A17B8910810570C77BDA241B3080E5076F1601B2314D067E0A60E080CF7DA0BDA000C0D38840024578752372018B98A016693100334E35A521744151CB919178451EC33F10DFD223EDF2B01B303C61D7E694C1D54DB4783C62009CA057C45C6C5EB43595D4C8E8B5733E3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BDE0A2DADBB4A98901AC1465E8B6F0651103D6EBE882DF9D04321A57A33CC10D7D57735287833C31C3C06A1D07369D1803D7C4EA4FE8D196DFFF0259487513536AF4EB0809F5EB03F61A007FBE17BC07891C3095795E881B45ED4C0D43AE993A55433C5DC40C8307FB2537D03279DF10007B1FAB2BC8F3492F799E6549505050830CA6529CD230FFD172316BA0FF1C83F6D6D6D1C4010B0F23C180ADE37D6D80A79CD23D09AB23F7CD971F2D087420423D682483F913721D09F640AFED2477186FAAEFD50454D8B75DBCA320C385BC2672120FCA00BB099CDBE608760A63165312661C1EE6E3F044FB198BA62BFBF7D0230C08F5D08B17530BF0F4F138193808",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("58E3FB0BCECCC05742ADF7FF508BC2B316E605F05C11556E063E78E757AF6A105818020C08B3344BF30D080410022017845D56019C050D66BD5497FEB7CB568BD1BE68BFA8D6BDE6AD894BA41FB60F147FF4BF4B6E083BD6750B0BC7EB070B290380CC0123BB1165FFCF5E740B3BCD750C8A0B986DEF08ECFE5F5DF6C7105BB2762356F4032148C11A75132F6070B3B4020C100120F7C318277819D2428D0FCABEF13311231D2B74123BCE74F01EEF3763750DF70C150908BC0E08770A045918034D0CE03EC2CD4E75060B390BC25E9ECB3AB4C105154810604D0803BFEA9959F7F96A1FF999F8FF00EF15592C2B51CAFFD3E2F7D28514B0751C03415FDA0F03",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7D1117DB77324613D11BC004207CF2D565B204761B62B86466773A95349C991474F1D9779DB32D1F5952A3D3E031374ACA5E9AF8264E781C36FC12587311282D26E9897A6191E78977B44C31ECB2E5B9634147010E55454D7065CC719967C8A7712EE9601C8959CBB8638C43202BF25AA70DFAF00DE285BB21437FB93BDE3E08660E571DF20A70FC59FA124E60B6CA562721120F43CF99F86D0F56D08172FDC819B3F3AB5483301275C265B128BCBB5337BD30E58A11F5860A4A75F55E1C9CF3E114B8AB018733C94A0D418E5886C9F948BD0C8B2BE81B517D085BA999510D5458031DD69D06028243620CAE2AA1D53F42CFE62BDAF7D69B35BE4DF0E5CEB420",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E80B3D89071623E1F044CBC59B674BE0BF05DA75DC97F46A025B8BF7AB7025525F6D029F0F1271C44B82A36FA50350157E1136838DDFD221714B4379E068B146AA99076AB4E349E9D348DB5E8000226E793F6248060BF4022FEE95923EAD1081E37C81EBFF3F3A184EBF97E523FB01C0CB7ED8840B0C0AF433F646F313B3142661BC4D2623088B743107E9022AF4E945DDFD75D7F2ECFF77081E16DD30B0439A00014366C8EAB5ABD32B4F95E10C7DEB3CB17B782D0F3F2BA7F078697D83CDDAEC1056432E95850C40BF2A08B747324CF6F6203B1F34B15EDA7C28A5610C424DB76836F08B77141A374356AFEC7BB3223C228065F77F4203F34783E21B881677",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("803B377F107A1138C427EDF79B7808FD70BA5F0BF10B43FF407C131DB7D92D6AF8C9894DFA1938DDAD207505F0312365C00CD76832391820CF5EF3BBE82B808591ECED49E350009144912B61AB93F4745B012BE11662FE592D3632043DCC01CA20EA1369EB6A8DA41FE462EBD37257210F44B115643B17FB2423CB231A0E79FFEB0D093AADF2F2FEEB08FDEB03F80C0315C4C3BF198A118C6461E0610BBBC5EEEB05834C616098930111842CCBC983C1E13427DE66C4B5D4C7717D6611C647C3F6B603DD192A880F56F456288C45550BFFF5A67BA57E01C606307864FC240FC77E1F8D33DB780448362BC869D2419FC63F1AF3305A8810400175FADF81B0E96C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1D4F7C128039357C0DDFD4E2C30139BBC9EB98FAEFC7F5FE033E3117FF4204EB1257048C98BA0B5707115D0157A75605573B8D83FEF8F787598D6B59685023EC15FFF5351128FCA5A566A56E0EC7A3782C6FDB8393BB0D055212A370085F0FBF053CADDDBC501874C7057C0A5436B85EE0BFC261FDAC668B4206BFEAEA330CE4C8259AC1AE9ECEF5DF23CF442DBF129DD9089EB08498430F9C5809BF09457413ADA13D85BE41B9003C66717F0C213202BFD00FA9123BD375C2F33EEE59D2660B534B4D0187491C0C115084F69A5215BB0BC8400BB872418FBBE20BBC93CEFF4CE84A3F10C9DAC1EB1F0B063EA7A4D9A87E81C7F46DFA4302CBEBDF220BCF9948",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("080DB9F4CA2B3975458BF843D91C385756F6C180576FE176C2C5E9D4E87409175B8D61E0C645FF3D2B8B1A2C40BD31EC8AB40C7FFA803311F6C5F30839059C0C800778B75CFF806A03EB5E23C5D4FD9733742D487421056D9D8927CD161DFADC77099C7CBB20C0EB101140EB07809597DF0BE0F81074260920741830740A7BC1C2E1C3BB536B45A77D83C0F0CE0C10015C1B4F013F3907A3A92A1C1C042ABF3DAEF0173A7F3513CB742A3BCF4202D4864A5B3C0E036B85A78DBC8FF83710042E615AD3AA1C2954051A0E063D6D41B7040E58F8A24C0507101FD8408943BE040F695CA8C7C50D74A6226028001A146E51BA8470A2990AF0106F189E1EF601F6C4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B70BF72709D907D50829AB36291303F61726EE3128F1E333BBCFFF0B7513D9D7CBC03B18E23E018B212180CBF8E45069572B854BE8C09F035632ED105BBB751B1464691395896555FCC4D6C3ADD8FAE34DFF40EB09535FE8C24C0874EEC65932E3C73BEF4DF3350C01E360C691B0BBE9E16BEA45E50B481B047578043E7804D774F6F102746E47B821D74FFFA10BF0AF0300475181E483B43CE808EF4DEB3F6D1307131B5323740A218B7516C9106ED5C21AF8F02A06115A0EA6D2547D12369F75B78E218C0BE25994FA390C521940CCF308740B308AFC8AF14C300420821F109018A3175B72E8DE80C39B8D640D27128185BEDFD8FBACFF0438CEC2F5138A0A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4238D974D183C0DFAE1F512575ED0BD8578007FC168E1056118B0ABF02C1E08FD4B3BDCB7FF983F1FF80624B3714CF33C676E10181F3DD16751C250C74D377F086F0E881E67675C451FC057E17C442FC38D874362FEF38DC7427B427810B37E7B3241517DC4DD3DC06D4EB965B634212CE49B3FE6E0CFDFC1EF8355C9F57A58A114F060F78A7D6698A7101FF4F31DEB32FA2BE8A074638D0A50B8A06140AE2041F51155B5F0220DFD4B5FF29EB8D7EFF8A6102D82821633842C2ED83E0438A410362188A66D8B1DDDB252074DFEBB15F688AC254FB227760271B731883C70A2E9073108D7856301B70004CBB848E015FC24007F1754057B88850701007C05BB1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CC85202E79DF3D3EEB2339B0C826C752ED873C35845EA69E10EF2B20D2412C0D872201716FF014395D1C29B110233F0EB51CA184951B91EB2016E5B1C807B10BC0FEC72A9D01AF9E3D6BC95D5509A4339876C4A52083334C5CFA9D3E108F7E076C74F77F412198833889C4E3C45DFBA325B051964283C40272223DEB03F0F5CA385D4D1A3F3AD340B1FEBF184D108A093A0872043ACA76AD406EE641660797B1A57A3161A55D4696939D9618080F860FDB4C454E69E2FCFD5449560686141130095FE04178E73BB3CF2EFC03C09A5C1011DB16120C9998DA23A68330EF148A197793557CB69781B657B48B35FFD64E79C3C36DC3E391E7D6F2E05422224E4461",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B85135F284FCFC897DD8DB33FFE013B13DAE7F2D3597B103117113162C7FCCA4895853BE42B4ADDB482CA9607B80D45A620072EC5C8921276436A4054DF14BFCBCF31356D2B8A895393074728649FF10F7423D98250E2368AC286456757900BF2A291040D959BFA0D0CFBE38F921E80189A1F3ABAA891D7A262E0CE807EF8EEE84F862C3678D4DEF2016C067B40B0FB641FF7301BC4F848187934A881BD4AD7D8240EBEEA591FF1401C5EF36F3AA8D9EB878FC840522803BED742C8A6DE8D19B09730105FA2577140CBDED430D8A92A04008908C4042E8007FE1F54141803915D4A895C23F8DC3D7FC0472C1A4050F83A7829C4401F2A35816BCED83B7ED8DB6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AC76BF901EA5A559A376A5EB558079058A7284FFC7482A4307E208EB0840805914B0B6657359A90765833B471D16859B81DBABC2D5EB0D9F889C0E60EF0801181046EB509303577B34DC85062542AAFE8B978BCDF0BB1696FF25D4D5FD29B696E991D0FC750FFD339335112F702DA4017422F4170256A0FE090D740C4874BE9E779ED0E60B1217081182417E7857D95933C0AA693438EF102E099CB8A019043C081305EBD804DD14EC5650CF157CAC358516E67E888405FF0B370D9C05C672F48A45F2C685825E617C1A208460578D55F347FA87F0990D3BC1771D1FBC3E42B0675541B8200050F3ABBB5FE07FF3AA42428A42FF01D05F5B6AE787BDA582CAFA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("91F5508D9985089AAD56EB47FD486CD3DE3A563D56699058C96C9847FC57B690B6E94F448D715A52BF8DE4668B1161CD36BF0758F5199405C88890A0EB1CEEED9CFC3502741020B6EBE380A0381B6E788C037900BFEB492B8F8DDE0D4A417219095A5597C880C44F62F6C1208888931F017213B1BFB197F9770E9D3BE920EBE099363F00B794BE5EC979EC814C6AFD81C98F0B52FED959EFEC8108704B9B35E2C4E7555760556A3DCF1540F75906BE33B123CB25743BF617AF8E96D5385E6D94C33B05981AAE3C52100299049836847F17142154870C7419393D8FE8C983B211743E653BDFDB083D57F90C042571CFC0DE7E74DF8938677513359CC405B8032D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2B473D4EFE56E1FDCF053B0485F6597C43833F473E84C07F215732FF34B78D3CB7B9818427BD280B914620202D60E8EBF0346ABC50CF610612A0FA743CEB35A6D17FD4F704B7EB327B757ACD02F7DE8D04B5C4E22BED04334FE54060F45580F0BE0CB08364B0F54083F79561290CC146145B3002E1D040BD24742E2E87F106425646ED594503FF0FFA590345F86940F7DB1BDBF7D323D8C40227F09D15D86E578448C2C5220603203756173E24D22DD057A47448A87214BB6A7A10FEB1068A0438C71E281AF8BE9613572CD7CD2B0576C1F806813D4344C31FF5E4028091B6D00E0D2B31D01D328D2F805247A4691024B833F4C1EDF653CD0384038159828B8B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EE042CF82A41078BDF2613502E287C2CFD30B31503E0246C10FCEBE939C810620976459041AE234318A18CE419D730E3A83E944756C0446818D822E03104439C779F6F1D3631B0415F482D9CDCDF3DA36D2CDC858CDB24C192054064B880A1309D70AE0DDB5067AC0636C994006C0743BAEE181B5359B822E32C299F18C0313454BDE04763090FE8F17D9F754F7C1989DD61DC1534E1504045EB0BEB0E8915CCF64D67E0C3D26E230539ABA448135C2A26B0DCE06D865272CCD56712EEA094156B106DB69D034FC3445A8661741A6CD2099A391DEE61BC033E4836C707663937010CA7D129A4E159C0DF60048E4DA12A127E2A3945108C25BCC77C2F1BAD08FD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("082C2E083E56CD6A3B3BC3479459759D527205BB0723B0D6759359EB84FB7B94DA9338C0504E7DA8023016D7FACA561A87C3EB0E6A8D243CF030F0D4EF9F1118C3BE80F9407315092045FCF7FE73060FA5C2D3E049D0C980E11FD3E2C310C801280E45C35C09F8F15674414D10EA8F0F5AD50F32A80B2E837E218D11C265216BE0C07A114608BD7ED5EE01DED1144051F657400FFF0E2F2104BB12970F202A217C6ADFC320881890FF8924EF6242081FDC8BC379E10860451DDE5CA87AAD03F075A495AFC05ACB5BEB011EE8D105F0DCF0C4B22CE0D4D019E81E883589EF895D9797DB2A1420740809740A0A74050D757E8027090FE7A95E8A1F477861E02F03",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0B0F8777024E6E2C3432BE7F5980FB317C0C09397F15CFCB095D580A613AF91D059919AB0B03542BDBCD2E093C390EDAD4763208854A83A7FC0DC71DF2D9609BDCD0A7D42CEB9E9CD9D0B67D43F07C05A27EAE9579F93D5B32CE8931092D742C3074529F1D2D634303941B457ED118599612637B65C89E6D43DF106A06FB4F6A0B0FB9259D394A094B6E490DCC8EAF59169A2749D80E8E94C22A20FA3915916B001DA611519D417A0160E67BEB0E06220981CFBAABD590E823B11973AAC28018091C402D452A1836380D8052EBB715734BD96B671DB5D6BC01648F2023750DEC8446AE60334FF3E11C1118DED94088E78CB9447BE68D1CA70A2D1101ECAABB5A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("08C06CEAC1BC780172917C578D4FFE164D1022CD509C448F7464C1FBE482142DEB65B1E098A14CD8C10504F664FB1C287CB084D68FE9F265F8F47C420E09CD584F13B3673FF86044EBC1992000742AB2D9FFB8D84E68F56E7414BFB5B44C96E0E369D907585D0F0A4F58FF0A681365E6499523BC0E0B419324C06A3F7C45BD3270041C24B68DED09DE5F1FD081FE5014797F85BEBE51168912672BD875E4936FD04F01DA053C19F9FE7DF0811310C6B1D96A18D3FFEB0771FC762D7DBB057C03FE45BBF4CA1E8E0A7648404B1094DCD0634086A56258B511E43EA634F265102BA806336CD703037CAA340E47E4DFC2150E6ADA29C3D86579ABB71713E0290F18",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DC301978F02B451C3D827E308352068CA9A5D8D4131378BFDB6033DB0DF0D612685E1B78FC5867EF665E3DB0EB4B29F0741386D0C7B82CCB7BDBF8EA17FE79C091C2C6CA1392B80E4CB5710C95D0B16CECEBAB1390E6150B5C605F4A0F2D9EABB764FDAB0BC55F8971068959A50FBC0FC641C5EC5E0F1143B36CDAD73728758606DD072962A669964DD90F2A5938BDF301619AA773EC909549500AC57A4268CC5636E4BF1D6ADBA7C1351C1668C02C57FAA39F7D6F7F52745068B021689C0EA3942819A39891DAA16B0CA11684FFD004EEE27EF80EA12A965322B815B2CD3507799A46C49D51A9EBF8070687A45416D52529A881FF323BCA72043BCE73EC8458",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("055DD05E890ACDFC529881BFDB37FF3613BFF0A04C864B63FF3020DCAFB5E8275D46082C9266801DD12F0808748115C2DBB1307A30B512376DF6FE04E2935934311F0BF18B3F527A328BD7A7C1EA1FA0B454C6D1E1355BBE243C957A5DF2F9E6DEBDDDFE39E90BCE891A08C1E716D1EA0BCF553F89759863C058A2108233A48E81233B56974EE9613074CBF376515737F8D14A8CF38DC9A5A553A52A0D796A7D640B6BF03C1F47286031304265F4D0DADD6984D17F3B417D178D867DCBD61075B6C75F393056B1F5AB752874C1AD400285044603C04028C99C7CA3FC350FC43601F0FF73FD03EBD3BED3B6F70152736310CB3AFFA5CDC72B2DEB66B7FC430A5E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("340743DB1C8D101C19C8BE06C80C8CF41DC9BCA717369D57C69FCC07E5D3344DD3E6E7E8E9EA75D9344DEBECEDEEFBEF3FFF200D03EBD03D43022DEB040AC8D8650AF60C6620EE7FE3182B1AEB75156683230030840B70F90703010430321151664BBA4F3F9B7AB8EC66C72D034F297CDB757D0FF7C708167D6C5C0768F038EB462C19E636044C2679D6DEDF4742752E68E8320F6423211D68E0A1ED36AE8DB393CE05C3D17E0782D02A68D839062D1ADF70F5E10FB781CFA0E91869C0103AEBDD6168EE086665F0BFC2FF7F38754E5D55FA6BC94D897DF68DB4010CEDBCD7AF85C550C1FE93F20FBFC6CD174993AE12F030817DFAF5C77EE1FF3F729BE44631",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("15DE5959F6B3A4B7822D8F33ABB01102EC7D146A627F089FAD535B200F3E208377F9155F0DAC89070B75FA85565E01EDE1F8FAED1C088B0EF40FC58A151C5975F17B1705E0D01091E67EDC63195F39D34E35DD4F01D4D73A08B2434F7E50891ECE844EFB3723A58DB44539E90997EED38E193619472B8A45FB8BC98B2161A0B07F3333462F1FFD1C14880101FD017D6CE08A481D80F9354B27F0BFB77C303BC1720F1E0648C3FF9DC4EBF16C4066FF03FE002AC32C0388A78AFA85805D80641804BA88A58D015E0C30B0F44DFCC4D158D9070130806305B219C0489471C20010C02BA3682C08D53B1D5842995B2315CA35F1A39FF644C804F5F99B9880314143",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("082F302F21CFEB0229D6E8DB8291F4CE6F6BA8F40B308D8500F0CCD680E15B58626484740CCA120D9E8D2424B2B0DA3E8FC75053442BE0B3695D089318EBD7832091904EE105750A07D7F884ED8D399B2F407DF904DB0BBD21228AEFB72FA09B407CE8C0DECBBA17B31BF607274715EFE602D689C1A3B87A080B6B2B059F3725151922AB092F2BA4700A144C0ED88D1D3920EDDA153B8909DCE3DB8128E788851266293903E8A184725B022C0F8718496F6E304DB7E5451516ACC1F49B24898FF456C24C8FBB5363BFEE4AA18423365665A13EB046A91B43FC4827453C8CA9FB5B57A2DE59F6625399A89F14B85458E8BAF5182C43A3932CB70B9F9C218B4D41",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("51AE74CC26908D14AF21255CB3C58D3A938C0C1964182B1D1416199C18EB1811BFC12C0F19491502120BDB4F293E13F67608A74C350C23303DD5330C21BD614DFA4DC540A504F3D0E40C509C5BC30F91387358BDEF0453E49570A45CFCFBC90818DE8D5490EB325770DC6930340654F3B3F0DA825BC9A8CD75C5974302CAC861E14FC309D8014383EB1439C250BE05AFFCFE4181C146223918492C214AA104D46F1308353C2623D5A9931C83EED10D75C28BF544BA6F6D68750FE710904A8DC5595DD7F0488AC3D0BB0166403A0F0B60A889D0651A993C203409741D3DC36EE8011FB0C239FBF107D6FB7411EB0823D08F740C41EBC6BBA701A5641909262054",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7A053B2BC2E0E311827877C15F741E4FAD5422638B3A6A219CD00B56E5A7874978422C2463668BDD2185DE4B0A2B57E813E4AF7F13FE25460A8BF9BA5A33F823C223CA81E76241370DDC663D23DA55252B248CC483B2707F15804FFEC8ADFAFDBF0F87A2BF3F77924241A5B43AC8BA150E96D2BEC337565B3A04F0A4DF467D39366ED1C0B71017D81FFE7D852B501E3CFD16394339113903750D0BEF44063F890648F90AC260C1682EFCC7E5B016EB5B0C1F03C06A7E494298D2F86D4BF70CB170643CA6E89EF4C1C01D53B80525C117888F4649B4515331304C20D6A1F832F585A0EE61836DF4BF77F7FEC3E875C819FC11AF170CB07F9C81F85F82072302C0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("98CA7E25F645E780CE5D78308909DC50DB08F1B6DDCE3B7FE20D392B657D2B9FEBC5A77B083B0145147BDC01E3B12A0900EC81D34B1B0963E955EA15B83724E2F084A5DCBFF7B0126EE53D85853D19D7FAF28F017135837DDE2C8365DE43E2C303DA57B065E20054E6DD0B60E306DF43661BE651EB0E930FB14287DE4909E2DEDE73CBFA93784C731BB3DE0BC7CBFB702FC70F754E020BE406A4F077711DB1EB35F7DF1BFF1A0940A148AC8AC71CADB1EE0763FB8D10F8BA001F53BBA8891FFEC6DFDDEB60392B74637DAE41C2DD1EBB082727160C2C9E78DF257306E089084241BD41E981D82EC354D1037EC26BE3F5D5278D6B813C830A0FF7FFC18D348372",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0C8D7DF4A501C7F676BB703A4DA675C77C6756188475F5F90CA394002C904DB7C458EB8D87232E65ED21186712FF0029D6A506DB3113B6182500A74F18B4621DEBD6D0C05331C39FC13D5052515357562730C3A89D201746BDA47B07030BBA1EC51524E004891C310CAD5E540906634583B0D8D2920E305DE517A83BEB595AA3E3966F7F82C4A9F205BA10170001A50D0FF274D4BA200274C81A187C79EF662100BA80B8BA400CB17A028B04BD27A2BA082A9B9F43A03C0214B832F87682495E25901E72A1842854ACFAD9AB3C9959C4F7F9F0066B014269941EE147C647EC5DF8770046C323D0010D1CC6B5F5A09AE1BF30BBA7744E8D854C4056EC1312AA60",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FC2704D642D140B0E63F47FE32CEC427802847108327ACF3BB25161107830DBE40D87D37C3A3A466A128D86C59C13946D91208E122E803B3F03B406BEDBC81EBE5456EFFDFD52781DFDEB19D01688096985704078D13781149E047D6C758BADBCE573AA834FEE875038DBD8A1180FA5C6C2F169BC05027020DA80D70698C37E3BF6E09527940F5404086DF36BEA06A2E0C0256EF0BF84AC0C145C0253FCB473957C57EC047860623D164336808210CE417F22268001168F8564C590F4421CF40CAF4AE482AF438BB1206089BDC28E1055F8D64B1E0D961A3AF9527C2731333DB78F8DB98912FEE1A385ED9151D21840336E8245E4FFC296A061DFDE97EBC1F24",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AC05B960EB0514042094170B635FA0FEA6FE4453282CCF33EC3BC7515262E75B6818D7FCC4DB384048239CFD01541B8F062661EE0CC011397047657B558176F0E16C9002D84EB6F859BAC589CB76422F01ABA285C55D49F2C7F7DC3CFB28A2899DBC120BC0889DCC165AE2C1C29F1FCF8283A52D910418208EA9B91F26E02522FB48EDB4C69B8091FEF4475B019B41DEE537382BF0450FB7795E335ADE0AFA08F8F6B30776E7F251F1399DACA8FCE4B67907EF15B07456D7AC401E202FEF00D900F31E992DD1A418750D15A8E4F6BD0851EBEB52DBA4821D402E81746FD37907811562916D30F5864D80FEB5A0D71A9787D20477CA8B930F146148E1F40B08D2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("105966C7E7BC8269DF6B3B5E04060CE1EB1862B3412DA9A8A3D86D6125E0B139B6F0E3190559725B0F5CD89AC053BF515115DFC07F7A468A4EF9460332D23ACA05F96E80F07B290B092F7406DAEBEC389E767B20DF4008218A083C0D085890CC7B0337EDE12686D41D13CFFE683E1A2360960BE687FF05657C00E01A2C5733EDE01325FAB368608CD32DA821C0B41F481D2829470A188EAA8197ACB8F5DFF65058007BB04073F0B79FB7AC120225A18B0D04A26BC03C66392DF6E136E0A7AE5AA3428915A2D6B2FF08E5F16BF63C03C627444A58EC3DC0F6741BA1580C3BC5E72BC14F8832DDB125DB7EA38C0E932D1EE19545DD0B1AA03590124C69FC98556A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3FBF531038EC02DA90F9B857A7DFC1DD281A11396C57C9A13A80602EBB3DA43F691520897C470939F273140896EF3F0AA883337ACF352414AD007CDA837C20DF09F2EA05EF41262C5C631150E6284C417702614A9534EED5E0C42643EEC5A33682EF44F94FE400576A0356870309DED2D449051E8D2E86C4E7035304E2DFD02DB901465F56FA234D4D75B34D69C9100ED16138D04020562B03C41F60D9977C073C397F86ED01EEE7EF61BB4E465B86E7DAD8D9598B4D03C85D55F3090C5A90234F846D4DAC855F31821782173F8620741C711E0497641412C4D7032402307914174CD4CD214D3D6C958D2925F0062245246B1E671A587325BC3C0FE6BD870F28",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FD023D341CF97A582DCC0D566851A49D667E593D481C540E52798BF61950751D124C96344EB6637F064A5053EB14275729F31DA8D04A501E13912105026DAD2D2815C2F4EC5022009647FB9CBC0FFE95FC752812F8D0013C83BC34FAF6FF776CCB9EB5579D8EEB423D573E5505E077604057EBDDC802DB8E80313BBD53FB23AD835D0D6A410A875870DBF0062B1AA12C088B4E1C25105794031E3A09C355FABFE23AB72506F1FB0ECA7E27C87D1AFBC0BCCBF7137CF6237FF27E085295DF85E30D150687040A0669E143C385C00ACD0F33C9EF48C4E7D7209DC195C11C306808E03D9C19EFBE954F05C08D1C56018900F4D6CF253E198365104D6DBB29E0A1FA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("863C5AEB097F013898157040D3C369D26D43F861103AFF575E08F8FF818BF96A0703F88D843A259C5199F796B4FC0F1545185F3B551C7F0E078CA7801725451CB5E831B622B71BF1FE08E04B0F057538B4088BB6400BFE9BF7C0060F743BCE7E2083E907EB1B10F6C326584118080C8501072C2C81CF10FC034DD17028940E052B460D6C05B30578DE45286F172CF94B327BBF1130A3207455552C0A6333B1D705C25530790D36709EFD175C26054919EB11BA60CB0EDCCE6D41258B48293032515B6B911AB5276A122D0B081BB548DC5948253A660FBD81C50848EF47C9480FEB18C95BB08B7437925C5323215BE4167E19977454ACA10144235C6894FC9FC4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("634E9D537FB157B675700A8D20BC01DC96068875FCEB97B2B6CC5C7BC91D0845FD4260A0471303F09DDEC04BA148F88AF480E184A7D0FE9F10750A44B0381498A0879F5415249F3CC9F40C7450C0EB6009CB1072F4451356D0963DDB4215084DFD9447C136B473B2EB190D08BD06F03480666B1466800D8627CB165268240D0B018F338AE95148811BC0C3486D5E950EC4D11AFF8DDCBFF7D27855338A1AA1CB05F1F686C3D09F4AFB1E8A5A014284A0DF16DE1D27F3730BCE03F125D120108FEB0B8549A5627BB81A01C24275C59BA94BFA2A800881EB6C075A4696BE45E0B5A34A8A0A02964AA90A9184A34B7434BD179946065FBDF121F17E01463E3F8D4B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF59789F1EA93AC1F9B9D6D3E081F13503D1F303C2430D47BF67E90C40FEE411C86BC9094D5F030FB8180AD64F5901897D675A030A4327D692E8F18081557C18D28F1A413AE00B989533C9F045D120E5594EE2774141A8CC8CACE0217D4AB0437C95579E5A442C4CA2747D5F8431D416AC3A501B786A366AA9AC1B52CD0C51173C2E812B4230871029FC02AE0415D4BF199E5B6A7D360757ED67221D5282D212F6D620C4986E37F17309805B922A988DC3F2261F29685FC8321033436851FC43E753C0E818E1BF51D981D6F61C80BDFD303A751B453E446610671983EE404E31DC163D514BFBFFE5FF03B4D976518BC3885D0BC1E8A22B5610FAF680F94F6B60",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9F3805F9270A0AB54574945E79E424484F291A5E5D9D8AC8D3407F1224103CD953834467C030C3C04E01F260C4C61115B72A8C3E0054D05BD2B538197457488732AE38302F8A10E2F0C90723FAF687183A11153C92FE4E985101741538580189740D689DC4B7042F740596D10616FD670F39850105419A0875B18A015FF6DA6CE063295E23C18783110AD25F29275AAF7E3C8B023A092E0A1F4BE04FD23A61570AE4741DE11095F6D03A41C3281158FE0EC6D33B2B3575D28BFFA69E88B4F69FD1335078B7FB178701AF02779FD7B64288E94160E02702A866B167309AA779B6D2CAC9C11C8A413C21EB8CFF56539DD21D6F3BDC8D050CB87803A3DD1D703BB0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFBF722ECB1FFCFAFF8A274738C474F22C413C1A1AC90720021D4186E0F40746621DC9D21AC01CFFF6925E2F25EB3409127F13509667271FD886DEB206E089F66804130E38C374DA1D2DBC1647D8FF863EDEDA6D2FB9F07B2E698C1681B45D3C101E702352536E4C609AA30E4E19A9700F43714813733DDAE61B4F867EA700D1F812591F02F780C34009377D3FB4C3C645093A070A2E57EB7B8AB2B0124B3F9BB7403D1E3D5338E077AFCDE521BB752434A47F35108F441BA8DA8BC828201387407E610783D8AB81ABB305D2DBAD51DD26ADEF2CAD07A278440440018786400936295CB147D4022D3C0A393301013A28265F567146029713002CE170D2BF61FF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D207420FAB0424EBF3A564FAE5EDE71E0A460FA373F38D46FF5A9FA880D6FC000135C268218DD803F8A2DA0FC93E75176C90B7A101800FF07FFF2F906366609201FFD2DE7F6D011380DDCCBBAABCFA03013F480B4BFB67FE7F134F8E3F6F5B7B77F0120EBFB32F52C2FDBBD9F6B14500D606060004A81000030F0602100445FDFFF7E70105353000505C20283850580708003730305750079B6FDEAE1E2017000860686000007070780807FF995D692A070134021C0028006E0075E2DBCFDA006C0229F3286E756C6C15C07E01AF643964B2F64149F6BBFFFF7350726F636573736F72466561747572651F1B656E746837713FFF4B45524E454C3332652B3001",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("707FFFFE7F5F474C4F42414C5F484541505F533D45435445442E4D5356430F861BC85254DAAF29F79A672B0AC50616DDE10207FF6D7275D5696D652065720D727FDBF73EDD0D0A0754C35353231C0053494E5FBB1F904700444F4D412523523630DF5F7EDF3238112D209761626C746F20696E69AD616CCFDB0EDE697A1B68AD706F4E376EDEDEFFDD6F747B0975676820737061634766F66C6F77695C7B87C071171B6E6F3633903C8573746435707778C370AC20766972BD4367C8CBDE774B63462063196C51BE34E0EE7D535F556578B92FB10C8BE0B4C1B9C4BF3139EF7BDBE2EC6F7065B0639D1E6465E7635778EF2603388D49639964246F306433AF46",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("37FCDDF7316D6D74EB6872555F6C6F636B612B86912F697C83B383646F615C054543726D1CDEFD350070816772616D41956D6DB8147B315F30399F219067A26782556D365C5638CFCBDEA7617267755073B1563266D93BD80683DC6E67056F0B7475DCE1F660224D64FF4D5BC1A2BFF83D73662B56697354432B2B2052418ED97B1F4C696272AD794E0A5A2D451B5DF01E1C212350A93A85016C3082CB2E003CCBC14A99B6E9F7596BD9776E3E4E796E0631CF37193E9B6672CCB6666D6F640068B6FDB0837931740E3362731E6C643F9DE0F6DA3C663E662D008CE75BDCE1BC1E6365696CC1A7E73535CFBEC173A9077172822961326E7797850F1F400E4867",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("68C9CFEEEC0E2C0E760F6C6F673130AA0507AFBD6500037F8334CFFE171E46001B0616868AFC8ABE2F972500264765744CBF7441BC76BB991DBD8D157574261F57C10EF0BBDA649E4DD4616765426F780575FD82BFBECF72BB2E646C8A3123514E414E3632B3D50EB39A0F44532F8FFCEC602E516D1C0F626174636D6470FDC8236578652F5C003F2A56FFC5FD78D54D495475DFAB54687546726953C5030C66614ADFBF624D838FEFBEC541310B794A4D056C416BF48D7EF05365704F3F4E6F7644DF8E545AD8A0020A2D07BDFC8928149E450043A4A12246FF8366A627B9014D50332066696C65E73D549E0007710008ADC30270105E6006803020CF34A01E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C0013BED50522E10800106041FF90EA216498F2C4DCDB2695A06C0E0002D2040D334AF34603F2D2D2D4DD3344D2D2E2E2E2E2E344DD3342E2E2E2F2FD3344DD32F2F2F2F2F4DD3344D2F3030303030344DD3343030303131D3344DD331313131314DD3344D313232323232344DD3343232323333D3344DD333333333334DD3344D333434343434344DD3343434343535D3344DD335353535354DD3344D353636363636344DD3343636363737D3344DD337373737374DD3344D373838383838344DD3343838383939D3344DD339393939394DD3344D393A3A3A3A3A344DD3343A3A3A3B3BD3344DD33B3B3B3B3B4DD3344D3B3C3C3C3C3C344DD3343C3C3C3D3D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D3344DD33D3D3D3D3D344D334D3D3E0640608047334DD3A0C0E0017B699AA66906224A496314A6699AA6281A915A7434AD699A298755608E8A599AA669836B0684415868699AA6696661883D8DA6699AA620017080399AA6699A8C028B3A037D699AA669321604377FA6699AA67A786234309AA6699A367C19545073699AA6695177051E24A6699AA63B7E26315B9AA6699A06814F890723699AA669648313212EA6699AA62F081D923F9AA6699A56472D8E094D699AA6695240850A42A6699AA6270B670C4B9AA6699A860D353E6D75699AA669176C5C435DAB699AA62B790F440E344DD386BF4C065776114ED3344DD38F726E45154DD3344D6F5F692A2518",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("344DD334382C65535ED3344DD36A937112330AD0344D82903C46B61F0690A669481B1C01B4D61A2AB20A82100A0302070E05B35650D10BAA0D52080E0C1ABFB5D6D0DA0F0A023E067E0E420112046BDE8AD9562A014F0412865DF3EC590502DA107ECE030E0EED9A67ADFA11BA0DF2E6050B5666041CAC98690201011F05D9B53B8F0F0007CA0E071A8ED61C0CEC02053666AE01071615B3037B52016A36020601A1A0E3863F17DE1E1E11D65A459B470812125A0C960B9A0F165515B4AA202213920E8216622E032B6AAD66123E142A212A1B2AEEBD8355B51F0E29721532765E0A20000EAC8A10763E09E0ADB50DEDEA02027F3E18A221660FED9DB53B22DE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("116A725B0DD21E37D8B367B2A21922E33BDEE72368CDB3676E333A3EC3071CF62060ADB561E308FA0E4A09820E0A0F2B2EF2260B02AF5610A63D6B6A862932267686062A176B5A3BB41A5A11067A15C20A110ADAA1B5430F3ED20E56201EDE126055AD2DEE1E28421F3A112EE1EEEC71C21BBA6276FE1E8A9E5DDCBEFEEE0166BA22BA2ED6D4BAAA8A2AAA4406431A2BAE76606DA2033F13A61A22D618E643C187B5180E23EE2E0D562422D60A5A5531E641F2285228CE2196073435B5104614C63DBE4FBFB4D69EB540A64C16231A82197E23463C5680AE070B6112721A364AA0B5AE86371A301A17CE3A9232ED59D53BDB6B46FE54C6234FCA4A55EB2A68DE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("29CA2FEA4E1A7362E0C0AA5A5A32457A47621F26675DADAA2A0F3622DE5F8655BA43D02638B056BE4E33BF2A0614A0A1B5565E2CE64E56570A3D0E36B46705AD421E32100A19CE1B2CA236AEB88207A34212393EFE27000BADA0B5413992527E501E3A9615C0660505EE1A02167F171273B467ED7B3CE624362F22221B2307412BA868162092279A4BE234EE29462A5A280A1C9E112D3785A2B582408632462DD6131E9F3505ED6286309614122435C2058CAC56101EE25036476BEDFE105611DA194A1D9F0C26820F1BAA08EB018A96356ED08EF0814C876C9F7B0A7736D7078E9F51D73F5F107E371414B42EC23D822A9234C6410029C0DA103524D3181A22",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1E155CA0E07A40524E8F5066216B0505ADE61CF62B423FF65DCA3B0A78D65A4348824B4E1D9616A66B43868A676E865F004F0F598A31D215AD35B42EEE4DD223163A525BCE3E1A1A5A6BC64F965A1228AE7D7E3CC185B5193B5CEA41C687474E3A0A1A5A490646A26DB631365843416BCFDE8B7A86495A2A4A2C5AB4D60A5A198E2B764D2A3F2E5C12425A2B78341643FEBA1496221A3C0DADB5D6FE31864C166A2636F227D20F0EACB576BED22F8E5246396E8229150C9A29C33E56BA86466B78F6ACE234D60F3722EF1DEA0B02351F585376DA1E267F2E004A3155F095A9AE186F66075E2C7D2CACE0320A3F7EFE3A132D0613A03608DF7B367E53E168ADB6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("206A257A1143D1DAB306A44722771E66142E1AA816F8C8433A0832FF435CD1DEC74ABE6E32AC0095AF09DAAAFFF200E100C300780111FF76239AA0A3A3E1CA538E443EC942CF0D05135D360DBF430A670AA1B2DF0A05FE7F7B97D100CED6A8A8AA387E279E40BA63369E7F1AC087DBFC00D46F83016D3FE1C0DA011A9A249EEF73F3B300A47C08F8C1009B3301F600E2E77ED151716829091A1E623840E9BF1F97B900ADDF018E00FD00E80F8AF72F6D84017A01BD01BF6F1623649E085D5BBBB28185D1167EB4D5F400E4151507FF6D81016E01CB02D362225B72A5EBFF7FF0009D0094D701F80097018D0174017C017903740308FF5FB8A82A54D29F009C5B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0401F900AB01910188428A87FF017F01D702C902C402FF9AE6FFBF11670D0E01F500AA0196018A018001DF0267128FB8F801C60260017F8B7343E5FFFFFF5BF700E900E500DB008901E702E102D00275037203B7010400F304FEE08276BAE300DFF301EA02E602FFC5F79F5902C802C2021FB40107CA00E000DE00DAFFFF9BC600D8E582017D016C017803BB01C302B801AE44E1F7B501C0067FEB02D32DD0F8FFDF1F7B017B01DE1702CA02C70673036D036C03830D6103FFFF0FBF837901710137BB00D602D2026601C702C5026203C6066778359BFA03820D6603840C524D041146929E1223AAA6B8C005FE037F2E5692FF83333C1F3663C39D028D028902",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6D023A2E46F805020804587E83268E82F4FF2A9A7AD8AAC6170159013F01290117010A2A9E70932FDE4A8680D2DD0DFF873B26C200B6A7013B0127011D0212B627FF8CE512C7467D87DC00CC00BE7454FC15524501370125010F7E935E45F0828667AB7F4A70D2C800BC00346CFAFDAF4301327B011C02020142C27E7168F870E27FD65AC06BA683877F67013D012D01197B0137F902FE8EE68E79DE7100D7C34A5B014A01340123503DACF8B70108FEB301F76F4AFAE01B7E8BCB00C44E61014C01396F011B012E446B1B13BEDFD407208A1ABACD9EC165B1C1DF5F402F40012F011EB3010202793E21E0A5080900C5A3FB5FFFB3BD00B500AE3B0141013101",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2177338A5E54DC027BB3FE9C5300B772AFE8E3FF3FC7014B013A0130012201150112028375FC2FFA9F02FF8C025A01AB00A8B23E0135012B011F011401FF42F41BA7B9770170BEFF880242013C0174C40FFE380133012E0124E3010D010525F4DFD1F1F37212677E6C022C0128012601201C2DDEE0575B9F01E57376FDE27E52E6776901658DA304180116D47483C1DF13DB37667A46B81F5FB66F016B01682B016493BEACC46225FFFE8B7B7FBF55FFC507090A010B0406080F0B1177E791DF070C0C0B0B0C0B0C000CCBDEDEDD0D0D051E120A210D027103AEDC36EF04050F0A06078F080B6D6FECCC6AB8998F7E098377F6CCDE0CAE047F0A07267F802DC1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5D698E072E8E3F0BEEC26EBB0EA31A004D055EA5DDF6E0321C0E0E9D341E0E76616F773A163D0F0F1D1A1F98B59B5D9D530D3A1C107639B3BB3BED0D1C101A961E5A18EDED6EBB1A1C12125E763D11119B6B612FBB75593F113B1E103C4BBBDB6E1213B8595A213B1B9976092E01297420127B67DABB55111B133E1354351058DA6530FC1514151203EE51F0B405C192AF1D1E1F0D060730DA820D87AC41CD1DBE2D43581FBF1F1C0E0AB6B5044B551B3FDD601BD61F0B971EC690E4AD591E0FA5B0B662EC13590157ED8E61DB4B33C10E1E3B0B76286C00FE211D28CC2D448F1F0EFF6DCBB1E20D6DEF59BD8BEC9686319F0C1FF8D8ADDD15450D94FF1E5B15",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("835D5CF8090D1D300DBBBBB66DB51D020EF076385D76B662BB3F97C140CE972E6CBB17201215CF14DE11C5DDE3CE1843501A1D5F31C950704B010CFF0A0CC9900C0A0B0C900CC9900B0CC9900CC90C0C0C0CC9900C0D0C0D900CC9900D0D952B5BD10DB3016EFF2DC8B763C91F050621711D44AF8EC1099FD7B4BBB041191C5F0DF406D10DA2C51AE3DB6E31BD5B0116011F5D5ADB163D1E0C1B1C6BB78DA41E0C011C1FED257605BF0D1D1F0901C8D124730AB502D69E25205BB006031F6906A41908B41CC0AC0D3B9A01040F3036CC060ED234C71F50DC068065259B0159ECE0107E9B419AE540663408A020701990E525206760A066DE21ADA03E10681FE0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("01BC66600FE0723F6A711F015BA5CDD3016C7346A71F3403D25C0307040F3320CD80063F085CF20C48FF0A030DF39A01F61F9F6E741F05736D0B481FBF1F07736D0B487FDF1F096DC973C9010B07FF92EFB1B51F01707D1F587E964B95E6906863010519E4B97162030A0B236D40060C0D07DA2DD473FA4A055F7A7F6D4226E40B0B0E0F9B1CEC2E52EE770906E75ADA3B6E060D0FFF0E2D966077566E777FBB768EDD06EE070F5E0C6E77D944F2040A000D0D7FAD25E4765E7F0A6F17B96D8B7F77FF1066ADB6DA6A77F7FF625B2AB87F0BE777EFADE2B2B77611075E479B0A6EAB77070F6F0D0732B5B56D7F07770CE260BB04FE0FD60CAC0D14ACC7DF10EF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("043BD21677FF1FE7DB16DB466F7FF77F425B6D720DE707DA6D17DBDF07127F3E7703D286B6E7120611130ADE290CFF8E660F0FBC804CC15F0F7612563482847F7FC9800CF2060B0C0DE75343320A060F03E0AD97AA04831604C6AA69AF060E093217085F020F246408762CCBB21CA71018202830972CCBB23840506090D81D84029E070067E40378215EC029E0A3DAB6500B7FFF964047AC01D302DF0B257677424A0E1E27E030C9C34E6F050742CB046C2B168FAF1EE0DD9DDD0266164A7E1A7E0AB0103CAA5E1466105AE20FA052766E1C1AAE0F426B0505077B168A247A0E2A144EB1D06F2D2A7E04030527AF0A430CAD919E03170408F1B5202E08310809",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C2E26E896AE803D939373B858410E6CE962B28DB124F340A072CF80BEE6EBB42930247493B47145A218564431F1B71CDBE140D0DAE7A04AC9F8D197177BAE64A9D01BDCCDEE0D1154D05D0A31F06D8E0C6DD035906E6DB3970E9787E07E71697E4F2E21DC3225657C05D803EE54D88F644AC16BB761F112B4D0093CBE02E401F290CD32AF24006801F201D73B4F806E047064E0BFFFFEBC2156754E0D4BD59BF41BEF86C5DBE2FA81FBE61D8FBFFFEC33324467C6F3E302A013F482F3F16E57FC0460B0F62787C3F2872FCBFEFCA7F7F073BFD783F1E13297C3FB4210F07E5EC77FFD960781F42B97A3F56ABFABF0F075C8E751F7FF6BBFF78AE793F819AF9BF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0F07DE84731F5B21793FC209FD67BF2B0F07EA71721F6EEC763F3AC3F6BFBBBFB3DF0F07452B6E1F8DC8875794F5BF0F07BF2B7FF686F96B1FCA64753F852C0F071F3A6BB87F7F671F8A2B87D6CBF1BF0FF2BF7C16651EFFFF7F229FDD011E3D732F76C02FFAB0BC9E14FA4099BCA1BA9E77FFFFFFFF35C151DCC2B874E15041539987BC019A44C18112B13C1DBA1741E1E7A9BC2AECFFFFFFFFBBC056BDC23B544C304017D2483B15AE5EBF7530FC38A6880E3E2D0C3D3BBBF27DFFFFFF5D3D159F5EC04278EEBC279FCB40740D0BBC9FC208C17A740F88A1FEFFFFFF870FCE08BC300A0DC136EFB73C1854DB402AB1D4BC77A18CC0E31B853C2EFFFF3F8619",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CCDC1DBB5B4440BFB30EDD3B26A6063E121BF6BAC1FFFFFF62481E3E584118C09219BFBDCC503640C6E97FBD535429C0C33C2FFFFFFFFFA02A0F408DE664BD1BF3D5BF6BD9433D48C3803FDDB1113B1E48EBBEC60202FFFFFFFF3D60B6273E8CD563BC291D4EBD2075D53BFA56C03C086710BCC31E9B3EFE6DCEFEFFFFFFBF379167BE11368A3F4FDEAFBD2C5C83BE0578063D71AC26BE5D0716BC80D2FFFFFFFF37A2ABC1BC6A4CC83EBA83BFBBCEB162BED988803D6354383D0EEE0AB7C3FFFFFFFF51A43CE5E9063BDC34463BD1ACF1BCA43FAC3ECAD1BFBF0CEE82BEE09D5F3FC6FFFFFFFF3FF2BD78F5F93D2725F43DABC84EBF4A73A0BD3D04F53E9B00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9ABBFD0BFFBDDDFFFFFFFF2AC1BBF09A26BDE2766A3DE1ACAA3D7452083CD08F2DBD6FF885BC90E4F33C94FFFFC5FF3190BC53F7E53E1FD220F7F612BE4BDE973EEC4F69BEACC0BEBEDFFFFFFF0D8368BC4C180C3BAF0B273D5331D7BE15EAFDBD0D53633E16D61FC401BFFEFFFFC93B8999D63DF7308A3D8FB098BC3DF26C3D86CD02BD07093D84FFC1FFFF92B13B23F2103FF92486BF633041BFC347956751263E293F89BEFFFFD3FF08762B3E4759063C6C8D2724AEE63EE85E9E3E3B20A9BE531F8DE3FFFFEFBEB305975B1CD43B8BF643BDD319B13D5C57863C62321BBDFFFFFF04FF3C16BFC0BBBEBC143F83A602BFB52008BF3624A3BEFFFFFFC1DA53",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5FF96C4FBE7A69333EF9D0163E20CDC23C0170C73E8A511F8B1FFF1797BA6EBEECC381BE7FE0935567EFFFFE0FFED449CDBC2FBB8D4D13C83CED6F18BD06FFA795A2F5BB458CFF83FF57093F5E4180BEEFDFBF2A27DDBE55D934BB62FFFF7F369D92CF2E3DD59F3FBD4F33D1BDE335873ED668153E3FFCFFFF2AC21A3E1B83C9BC4BC733BE656CE5BD64BF40BE8B4CB7105E60FD20FAFF3DCC24443D50B1403D82B1B5BCFF496E666F47540BE30E588DC7C1FB8133A4C07CE601C31F699ACBE5C003800241C2C6064DD3B4A607C75E05C5C404699AA6693ECC0C0DCD0F4DD39AA6CFCE0E5E0ACACB354DD3340BC90908C84D6B9AA61ED81819D95E1BDB689AD6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("34DA1A1E1EDEDF354DF30E0E5FDD1D1CDCA6699AA63E14D4D515D7344D6B9A1716D65ED21213D6344DD3D311D1D0103E9AA6699AF03031F133F3D334AD69F2325E36F6F75AD3344D37F53534F43E3C699AA669FCFD3DFF3F4DD3B4A63EFE5EFA3A3BFB694DD33439F9F8381E284DD39AA6E8E9295EEB2B2A6B9AA635EA1EEE2E2FEF5E9AD6344D2DEDEC2C3EE424699AA66925E527E7E64DD334AD265E22E2E323E1695AD3342120E01EA0604DD3B4A661A15E63A3A262D39AA6691E66A6A7675EA59AA6354D6564A43E6CACAD6B9AA6696DAF6F6EAE5E4DD3344DAA6A6BAB69A9699AD634A8681E78B8B95AD334AD795EBB7B7ABA1EBED3B4A6697E7FBF5E7D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BD9AA6694DBC7C3EB47475B5D39AA66977B7B6765E724DD3344DB2B373B17170699AA635B03E509091514D6B9AA6935352925E9656344DD3345797559594A6699AD6543E9C5C5D9D34AD699A5F9F9E5E5E5A9AD3344DD39B5B995958B4A6695A981E884849895E4BA6694DD38B8A4A1E4E8E354DD39A8F4F5E8D4D4C8CA6699AA63E4484854587344D6B9A4746865E824243D0344DD383418180404332B0B96F0507090680B417601F4E073603A10AEDCE0C061FE4A64D6E9B8B07121F0FED6E6D480707008E07C7423B2F66061F070381BD50702E57060C1FDA16D8B0080705FF3F9FC9446CED121F07018525830C02031A57B08A974712599665B9C71E242C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3642344DD32E743E8CA8C8EE8B689AD91C01068CD090342FF2770A02BE0408966539D020072A384A642C6A675984AE01D3340711977288A248D3344DC2E8164C8A6DD840321C1AB730AE3EA260D82068A7B497084655842F976AAB2A8E862FDFB001A46010A61434F70A0669DA4AFE5A6EA2A6C4209B8241209656A201306CD85BB616AF28A74200244D5396546A8890A669DA2AF6323C485882D3346D806E9CBEE6964E1B4A9A4A801CA62690545C93DF642E7E20ED3842D752EE6659560CD39C67F02E28016C4D57C9A6C026022A5E3A552583344E8A7B89A26097CE18C77C6A625A2F6CFF8469437097E856779006DCD034CDB23602383A3C3ED81BCD5A97",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("37BE34B74DC1206D60AE7CA296A4A62313C12601331BC8EF24B7400F179A99001940001B36ECF91A40CDCC233F281F2C3FC3867D0F2E406600E6326F351F3ADBDBB02719410F442F66476FD8DBDBDB404C2F594E0F7952AF6C552F6D44F06D575F865F407FDFEE860DC1272F2B0F315EC0276F6FC3CF478FA6491FC04CC686E0C99350E05126553F58FFFFFF416040090EDC3F1E1B264020712E575DF92440887E5FF76CE6FFFFFF0F0F98192053AA0C2240526DE0E4F85E2040849F654A252D1C404FFFFFFFFF208C595F3F1840BFED0912DBDD144026C14C7903F51140D22E7082F9E70E408751F8FFFFFC759FCA980A4025F6AE5467E30640EBC932BB64B2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFF5F454FE375F4340140219D17F61610FE3FB326276D0279FB3F00B9E5E8FFA32CFC0F1BF93FAD5ACB4AF73F6BB0698FFFFFFFFFE29AF53F54907E7F7358F43F4DA4C2FCBF28F33F95914815A42DF23FDD8A52F86B5CD2FF6B3FF13F6230A093B59C2F7FF01F1147DC080D799228166F54A4B61C06FFFFFFFF1540A86890F18DF21340C667B27F9E171240C026EF0CE8681040C438797E4A3E2FFFFFFF0C40BE86F176234E08408FE4554A8DEA0440F1487B45F0FF9DD95BFEFFFFE53FBEFA24B5F076EDA8FA3FC33BF0154CF1F63F0E1B2F9D52BEF390345A0A2FFF0BFEFFFF5B1BD173FC3F0942A9A17C8AFD3FA9B2EDD2D4ABFED174FDFBEFFF589322",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF3FACF89ECC219B0FD296A563EF513FD0DFB432FBF03F0CFE033F46CF8F30BD1F4B97E0862F12F5FDFF2F54CF2FEC6987BF266BE93F70B1A206D330E4FFFF7FAA0F6C43C5387F13D03FF9669B1BD313BE3F2B989FA31B86FFFFFFFF8BBCA8F178A3073E2B3D513F9BA49E78B3BD8B330EA4E8D13E3EB0A9FEA4E2ACFE7F10FD20BF4C524D534F6642A40860C3503DB3857F7EFBFFFF5F663DF19BB31BC489703D25FFA67AFFBE733D2B92E3F68AD3741F61C3864DF23FB85F707FFFFFFFFFFC13FE650AFF973D2C6343BD3F75953D9B8D793552A6923D8A31F9DF33508F3DFFFFFFFFE0EB33D3BD23893D35A66EC647F7823D1479E976AEF5793D994584AFF0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("736D3DC820C7FE377E5DD3364B528FBDBD414E0E32BDBDE2BD0E727290BDBD9ABDBD7AE4E4C90BAFBDBCBDF5BDC3A60519BD1FF43FB92886B0615F707F3F902119E4F1BAFD061942868D0F9A2FFF7F48A8C6CE9BE40498BDBB321867A6A43DC282FFFFFFFF443D1A93BD2A3670689C6A90BD49018714FF358BBD60D26064C16185BD9F5EF614F8FFFFBB4C847EBD4A2C9720392671BDC0B43C3E69AF53BD0FFFF0D1502FA1FB08121F6F173BBBF5FEFFFFFF695CBD6CC81696C0354EBDF78BC931FDD9C03F31EFFC997982DA3F74A6D653EB3FFDAF41E83F5F071FE7FF759FE7B93AD902DA7FFA5FFF0F628FAB9F6E1D4FB6AA38C157BC7FE49D3F33FFFFFFD7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4F50AF368282186D5F09400C12842BF70A1240B072BA5D0D621EFFFFFFFF4067C3D12D5DE73640171C818C8B83EF3F1D163C52B791E43FF70B8A74A8E3D5FFFFFFFF3F1C2D5242F611EE3F88730B7E1A3AC6BF3850CFA26F83E8BFAB4C58E87AB6EBE8FFFF20E03FCCBE6FCDBF76E0BF5FB65D48DB30DEBFFF017E05F34F600ED4FD1A8585EE48C7BFFFFFFFFF5953F2A70336B8BFD00682DD70F9A4BFC1A7599D23148DBFF3D308C7684F6EBF7FFFFFFD55930F0195709F0CA83FFE3A37EC3F6FB5E79E5B63EF5AD10D2A5FFEF2EF5077EF0F0FD32D48DB04811A901FF94DE4DB988806F3CB2CFFD10528A5F1CF510419643D3DEF830C32C83D3D3D3D19E4E4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("203D623D3D984641063D0EBF199241268DE00F0619640866B3F14806194AF1BA5D38E942C60111DFB23C69E4090019FF0405CBB22CCB14150C0D1C1D65F9D2251227130A653959960B1A1B07162F144E96170E1E8F5694FFFFFFF86C25EFF9C22F941B3271274040A8CB6C87748672405505EC6D13FFFFFFFF998B402BD69F43F9B4C540A774F3E01585904088B1B507D81B7340B396AD1370FFFFFFFFD33E404E6773D098D30E407696109EE9B64D40FA4DD44FB82C8640D1DD593FE9FF7FFCFFA1B440C4E6BD32AAC5B6C081B8E0A38D89C0E5C7B914A93A53C0FFBF82FE9D09874C8860126D38C7CB00ED3F2FB429BCA61707FFFFFFC93FF5ABB35520CCC3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BF4B574B8A85294140961BA879E8DC1F62FFFFFFFFCA9AFCCB8C8940F8321BE0E59AC6408F54E61B0275924098DD029B8E197440B0FFFFFFFFAF33C7653B3F403E02828088AF0D405C4C203452D34A40CCD18DE4566185407FFFFF7FF9E458F59068C9CC675064DEB8C00A53F726D0678CC0DCD937012A75FFFFFFFF56C04EE4B35D45A515C04F28E42A0043EA3F0EA6693CB8F8D83FF92D3EE01B92FFFFFFFFC4BF6181A204D21242400A374FF9E301734023CB257EF1E5864067E7A210CE6AE52FFFFFC740D95FBB920C509440C17747F48EF43004051FF87CFCFFFFFFAEF60DAAB2FD0A4024C34317BA9D4740455E6DBEE5658440A498A70C6A0CFFFFFFBF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8380CB4A16FDBAC091302B07FE4F8FC0BA579483CCE759C0F030062E6FFFFFFFFF6B18C0CE9029ED99BBE73F079FD52E0694E23FD3102BAB674BC5BF3486D11136FFFFF097E0E772DB312DF03F64D82349CC9F83405465EBB76195FFFFFF23C840BA23E5A91C119640DF2F51B4FEAB75402DF393502999FDFFAF1F8395896647DFE98B14AB154A4440E4FE623F5641FFFFFFFF6FEA52F53FD58FB3409DD676690A1EBDC0B2F995232F1F91C047C7809B9F8F00FFFFFF5DC094E004D41C461BC090F9B72AB861E53F64A9AEA6E27DF9FF07FFCF9434926F91F71F9042B051C98E4340C02FD81076A5FF2FFF7F2A8653216A787F404518BC71CBC38AE62B2A54B2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9740E825B7FFFFE5FFDFC23F7640E8888B8F2E654059C5A1D4540740B8D8ACA709E64040FF5FFEFFE06912BB27F781407DCA73283CF5B2E299F9913DBFC0CD5A59B40CFFFFFFFF9792C0152DF8929FB460C0E3F0534F90E11EC0FC7F0489182EE33F3CF606385D97FFFFFF2BEE3F00A9FEFF2E96C6BF0D349E58011C4440613069A4F81FDC3BF2FFFFFF796F2975764007B5472A214BC940AF42DFD267309940237C43599CADFFFF5FFED758DC8CC10BD5782025E99306402A49AC1426FD3A40C68BE37DFFFFCBFF328F80405450EA375F3F2FDCE816F3ABC0C01935E6035C0A94C055FFFFFFFF31AFB6BCB262C09C2EC014784921C0EB340819B71AE13FCB68",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AE393BC7F13F61FF7FF9FF33EA89DE26D7BFBB8FD397AB85C8E432C1BD587140407C1E6E6F74E5FF2FFF6840F0135D14B8B8543CF4CB92869A40A38708B48EF6878B3FFD263EF4009A8EBF90F0981C7B040FFFFE6C03D9F511344087FA8A08187EFFFF0FFF40BB6B4E68F870B1DFE18435AFB4C1C011B44A7F837695C0D683FFFF3FF85E4550C5641F769FFA702A23C07A3E270D0E45DE3FD61D0925F3FFF297FF4CF43F80B111D246A9FA79A7D054B258FD278FB25470FFFFFB1F5FE6AEB7F6DE291FD3FFDA100CCA408C8799D108B29B40FFFFF4FF7B243BD93E1C7740C55B39BF4B3D40EB97FC2EF33703403D3BC95FFCE8F5220E9C2A2F9D38FCE87A5F13",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("738EFEFFFFFF0E8DB04077C9FF41F7B6C2C0A3D7A0F2C3D696C09601772A13E466C0850738FF6FC28F856F25C0324FCC3B7F669EA0F63FAB24FF7FF0FF7D6B171DD8BFC1B601534BCF1F33A23951BC216E4033959EF54AF2FF97FF7E67C07DA73B24084504FE08979DB09C4000A6FAA4DA17FFFF5FFEB3F33A1A7900BE1533F9619200400D5CE0274D1E1B40AD3EC4B4FFFFFFDF6D9C3F8EBF39EDC52CAF40A15293CFDAB0C3C0C398BC29CA2798C00B2BFFFFFFFB7E9D0A0C691F7FEF649DBA27C04986D7F749E6D63F4117156B80BCF83FFFE51FFC997419E908821F4C5BE01F6993BD6F664C420F6B400FBEFCFF50CC41DC826279C0ED3DFB799163952234",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0B859D408F1F5CFC421ABD20D7F45FFD05E2DE223CCFD77FECD32DC69D9FFE8F3F7CB54994A83D1FFFC1FFFF0B602C614B20AD400117DAEF9DA0C4C0E7CD76CF6499C0487CFF07F8FFF70F02346BC0376B01BBE6072A1F635C35086AD33FA1A17FF0FFFF0E29669BFA3F2CFE53C7E5A1E2BF40F418459E2D1FB7E9FB396CFFFEFFC58667EFFA94572A0284C05BCCE0819B67CABF987BB2681EA35FF4A39EAFF321C11D9EA612A6B604F87FE21FFFFFDEC1AB022EF1FB3FE40874FE8A8116C0C186A5D3D4FEBFFFFFDF10FD1AE8C5FAAA405CBE7E981284C5EFB642BBA08A9AC00D1BFDFCFFFF0F6D586DC077B9A922B8532CC0AF268675FA07D03FB1BD80F1B2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AB7FF05FD33F5B8F0827C7D61F9670AE3FFD9DDFE0FF1FFE2EA4B3CD597863CFDFD78FFEC98BC0351B5F3BBC51FFE52FFF1FC19B91CE368CB2B7A0201F4722BD74A31BE53940FFFFFFFF04F67F7BAF1CF93FF847BD2E275D26C009F2AF0CE2D96A40970AAD0254C2A840FFFFFFFF766EAF20A959C6C089718FA8A2949BC06A448CFD0C766FC0C6CFB019C0FE2EC0FFFFFFFF583155E0F575C93F448D32CF6B90FD3F4D7001C4FC51E9BF0304E48C64B24240BFFCFFFF0FE1FA60C4EC5D40E18E84F461FC91C045B2F31E39224AFA36B2947E04E397C9A4F5234650456D0883C1FF1FFD0FE3384056878B7A03290FACB58E73E16B30C07FAFDA16FEFFFF0F9C21",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("64406201B520AA7CA6400930F7E67E1FC7C0EE7D3FFCA35F337F9CAF43056791C470FD283FFF510CF0DF36D15F3F06A673ACFCA3EF7FFB0FFED037D3D25B791F81BBB916B99D41DEE8E43B0154406629187FFAA00EC615401F9DC0D1A3F20FFE6AAFBFD08C5937D71F31E26395DA1FFF5FFEFF3BC1F258064A3740EA7FE6A2784B7EBF2DF0831935C040CD2D67FBCBFFFFF11E5B4013B9C3C9662FA440B1F8F3F3DCD3BC874EBD1C499B12A47EFAD31CE78BD171C016FFBFF8FF6F1B1D32C0A22D5B8CBB36B95F5CF7CF9762FF3F7A6D79E3213FFCAFFFF6EFBF2919EBF01248ED08C2D1B0AB7A4FD03675F907FFE2424DA8DF474A73CBA4791F80D8254E88B5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1FFD477F0EE92FC4E8665F0A1C6207CE2C36AF901C6557FFEBFF9F2DF33FF27BEB1B0A5F39DDED23D27CC44CEF6A83FF7FF8A175D6E0A1DF0678575675C8C0F48B0F335CEB1FFCFFFFFF2EF5B1D732B472C0A28E524CC86033C061113B8A2727A93F2725D1A38DD8EBCBFFBF81AB8BC366BAC4403E23B08828B6B49319E1352FFCC3FF7140251EB69B68C6861FA8F10A9001FFD542FAFDCB9671B63A50CFFBA333E1CF1FFC01FE2E2E3EE467100F19ED1E66025FE0060C96FEFFE5D534662948FEBCCA967340D7B7014335CD34FEFFFF92650F5B9F2C9F4069F7B0F56D002240D574CC25C2333D0C8111A52D8E0CF25609E7060A0D026F2C940156142CCBB21C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("171E21151F29B27C029734672B3569972CCB3F404A244E36366C90A63323476F467E9AA6699A58455769687AC0A6DD4A0617480F08860DC85A6C077EFF62ABAD15661F17B62DB6965F074F07199001B904081043F242C5070603043B830C250F071F03770642DE8E500377511F1F061FD8056D5BEF010107C941488602C6029034470B0F04056D6A0B84370F07170C3AA4B50F9FC56A581137EF3FA5D86A17031F17FFFFFF8F0F5E836C3F15EFC33E6DC47E3F36BDC83D43EC7F3FB00AC93CC4FE3F92A12F880FC93B7DC020A0607F06A8FFE0109050D030B070F09BC828A86807D9F8FFE8189858D838B878F8048444C467FFFFFFFFE4149454D434B474F40C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8C4CCC2CAC6CEC1C9C5CDC3CBC7CFC028242C222A262FFFFFFFFE2129252D232B272F20A8A4ACA2AAA6AEA1A9A5ADA3ABA7AFA068646C626A6668EFFFFFFE6169656D636B676F60E8E4ECE2EAE6EEE1E9E5EDE3EBE7EFE5F0890ABDA07071523365A014F5744B0A86867C739C8C106030EF0FF6490E738104A06030474A395C4739E02490F23728E073E265318E72E0A5700EE228DDC0F0B0CF70C1EB94D2E3267000F0D05C6812D062A00D31C1293A7D6048200941C6C9BFFEF092413C9B5FF0B0EADE00CC80E0DDF179041A6EF0708DE04131B90090C0F0DEF232F944C0B0E0F0C22968615B7CFEFC12639DADF0B0E0FBBC9202FFF0F0F12DF2E01326DEF09",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("72BDD5B6C50F2FEFDE0C89E26DA9EF0F6A10BF4BC9356C0FCF0BFF575BDB16CF1FEF0DEEEE4C20105A0ECE68A320D5EFDFEF92A32DB60FFF0EB1C954B49F0CEF4CF2564BCF0E0F0F7B91A9E0EF110E12FF9436510D129F0C0F851A965C9F0DCF905CC1800FEF105475B7BD0B11FF0EDE8F31141CB5EF0DCF0E60622F50CF1E10FF0F512A78B6FF02FE0BDFCFC50215170CBFFFDD3916DA10EF1F11DA629886C1DE1AFF13CF7650B116FFCF10EF5C0CA3A50FDF0FAB012FED1F8A124F901B56449FDF0D6B97380610BFBE0F620F17900EDEFA12FF05518A610FCF8F61BBD4CE100F9A0FDA19798BDF1E1213FE1115AC40422FAF2D18D6814FAF462639D882EF10",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1312BBAD6D49DFEF3F10FF30B92D42D20F0E25B936183F0F0D5CECB6317FEFD20F12D820CD800F15141FE10EA89B0C3E96010E3EF032560F8E1E088D0ABB4E092FFFD10631AE1F0BBF8F9269C384AF098F0916526BDB015FFF71E056D8FF0EFE3F9281B6760BFF8F04B0DA8A10BF6FB11BEC52DF0AEF0AEF46C1DA6B321FFFAEADA5340B9F8F0A5D6293490A6F4E44B8ED80EF084F1A1FE0DA22581F8F096B8B2EACDF8FFF276CAB0BEFBF1EDAB90D900C1F0B8FA5B62A116FEF6B2186A36F09CFDFAD42AC090F0F83A562AC8F4F9F44A9AD01AFFFCF40308A1B0EBFDF559B346F0E0D0C01B109E429AF090BEFC01A050BFF346D4D85536E020403AE05B9CA2F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("040307570C2D6908730BFF0FB0690F0D031018111812181318141914DB2FCBFF1A151B151C161D161E171FAEF24400B10692F30639D92CA8DFF2EEFDE214104AAF9A24D27DF304B53F06FE0616C2A44D5A160F17294C0A931F27ECC2A4302F3706A5A41A02303FBF87600C49141F011F3560F2BEDCBA90B37CDF5F654AD80F6F3A8D52100B35981E0C76BFB1B5046E77048D1C30142EDFE50F6F000C700714481CB07C59DEDB7305C9D2DB0FEFCFCB7779BFDF0F0FC19A07D36FE015C29EE267DEEF2D7E676A4F7E24B00DE47BE62D4CE17E0448619703CE326B9A73B34B91C0D3E66442CE8BD6B403B32DA0CFDA39E88673186B8266FB823714FC4F343AE90D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5D902BCEDCBFE61DBC245FC973708FC9CEA50F0DE0BFF70A04BE40C1D1FEDDD005DE0F6AE0FDF096C2F31D05120F7F04657FE0D07E608D29FB01F89F14706082CBE663241C482C4BEFE44DD39AF7F462EDB5D0E106D8E9D4D27C336CDCDD9E6123630CB0B3B466CBDFC405CD0F6FE2EB6242D906C4F6DE5B16D6CD9AE305E9A06A9B6AA66B9AD6BCC98FE6EF06DECFE5627F6FB6B452EAC8FBC053CA05E80F6FD4C3A69D2DC3FEE6A2CAE89AE4A0BCDF48731B9E7E0C4B0DC92730179B0AC07E20131C2E2353601F161A45F3398EF66F7190A807AD0F3C5CDE37EF04F5327A08B439F7ABF762FE87F29D3F59F70F6F3D4F97FECA786C26853BEE34B5E28978DC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BC27B4FD0E81C4C66C9DA03A866FA099BE5936EDF706E0009A2080AD4C00606D6BE66940AF266006C0233F8486135A7F40695E02F957603F01019B7C12A60117A0015BC5091D20F78E16A818BA007FFF36C4D0085FB08740C5D08500FF2AA101B07F27121A94D05FCF9E82AD370140B2474FC0B3474B903C21C0B947070620841C02F7B66A6BA17F5F7F83B668ABFF01D5BAA26D5F0103DFB00D0A567F5FBA965E50FF20BC6FC0B134ED5A97C50EC6C81BD46EC935C71E1601B70F3B7255E5BF0F3F92244904D23F11FFEDFF6701C13F841042082184B03F10044104A03F08040281402090F47F74761F01803F6F01020408703F0410402B7FEF834F603F0908",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1102503F100481BD7774403F01F10447302F041A6B1E6427B35E0A2B3E2E3F436E27260FE9BF0FD9FE328D632F3F4671ECBFBB2183DC0FDCCC3E2E1507C3B14F3F8F00BFDA751B431107134614AA851B4015964F800669DEB618191A743A2D398703867E88A126E366FF0524F0E5FB92FDFF17F9FFF1FF0600BEDF8B9542C1FF7F81FF9701FF0A07FE0BE572B95CFC0CF80DF00EE00FD60860CBC010807F0413C306A2863E8F2407406D7F03C801140B3F02806B400B1FFFB2888DAA1F112EC4887F3E772D408850877FC142C951033F85AA86517FA812A98A3F7F18556C11067F0BEDA8A8BF023F1FA5B55101018375029A7F0605F07F53137807030B0A3D06",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("010308080561BDF4C800090C0612B14DBBFB6EED0719060F093F2E060F17BC3B3320072763126F0377D4B2BC01010203044B0F7F88D976060516013DFE8BFFD5FF62128FC7E7FF636F5695800BEBEF00FE57DF4B6ECD37BF1ACF00FCBF00FB00FBFA16AF009FD9B565DC0AF900F80FFB63378FDCEE8F007F17666F00F65F00F54F00F433727BD800B9A73F00F38A2F00F2F117F056521FEFE7F72A0F01CD3367EE00DEED03CD23B76F63EC00DDA2BE00EBCD00DCAE67370FF200EA00F1BD00DBCC009E7BE900727B909BADDA00BCCB008E3AE8009DC1FFDD3CD9007EE700AC0B0015FF71FFB3FFD3DF2701CD03CA00BB8D333E81AF059B27E08BE6171C4AC31B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6E4FC9DE5E00BA72BB39307AE5AB007DBED700E45C09983D8C00C80F4E0F3E7BE4F614436D00D646E3009BB900AA1AB9F97656E2933BE1005DD5007C8FA96E1EC7004D8B00B8667FD400E4E6919B9AA9006CC6003DD3002D358FDC1ED2001D3A7B00B7D1005CC5DC1EF6280FEF7BA800993E4C00C4D8B5668F6B00B60FD09B3C83943D727BC3007A42A7002CC2005B1AC31617121AC7FFDD0F8B890C0CC3CD0098C1004B1BC099A269F6E73B5FB0561A9BB4689A3DBB6A00A62B7900970FA08E90417EE4675EF6B300882B005A00B2B9F9E0ADA5C36BB100699600A4C8CD1F87974A007800873A00A3DC1E76F35900952A00A273A100683A8600778300378F49",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0094390093CE73CD23375F580085290067760092198FDC3CC8009148008457007538008305F32437660028820018ED66829175BB8108008082564F40F3CC0065261707D7732092FC14EB3700270072378FDC4E41F655007136006345005483DCF0202600629E16006106F2175D016B358E53004400CDFFDBB2E6918286F72500521506E8915BFB13500A51AA340043240042016806B9223300144104B0999BDF1BDF230032130031C372D3EE20BE2200128221020020FBDFD53C1100011067FE09FE33FEBDFE99FE4C330157E50BAFFA7585E0EB320E8FBB0BEBF54AD7FF371613F1B5B2E603F4CB1EEB1AE3B56A75D6C2F3D29AE3DB7AAD5676FEE906C75F1E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6AE46BF51AFA0ACDDC1AB9CDAEE6AE9F6BCC3EAD00DA7E965761A8B2CAA3577D00BDE75D0BBAD2A303EA0F001F002237B3AACFEAF37B9EBC00CB87E0CBBE53E81A53E78BBB0073B57A998D1BF3FBE6D5CA753B632FAB02FAEB528DDCBC7F4EE4008CC8E6060373B5DAD7D6AF3E0FABD5A8E3CB8E73B85DADCCC800A97B630BE3F3C8EDB5D7D6925D00D57C00C7568D9200E0B5D376B98E2916F39A0603CC37F3013E5C00C5338A00A863E6A9AED34CBBB6007AFF7FAD54579F899A66FB9800794A72003B06431ED54CF0F59A92D1373B97D7EB1556561DB7736B4AF87ABDCCA747423BE9456E5F2927270CF24B00B457AB505CFEB303CBBB2B656E5035B2C6DB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B1A6EA2AF26FB0E396E64A6AB55A6D5BDAD2E2D7F0EBD5D7CF9FFFFFDFFF8B95B55D6555DEA13FE6946BC04C5055EE57BAA26F1AB4EA951D17A04712FF350750DD8B29F61E7619353B80995B9133482B84FB4ABBCB0603EBDF12823BEBBAEE2B02181206800ECB0CD3970E0737E77370B5ADEC1F460AFA77F355977919BE8B174B46714B23B7AFC8360F451A54002662DD76BDCC00160B03A353A98ECA740E35F751FFAF351C56FB1BEB02F57A457E8B5000240B0656F5BAD5033606FFAB46D7EB120703FF703CE1FF11FE43FE9DFEF9FE49FF8D33D5EF05B9EA2A8BEF1EFE00DFAEC2707C17CF37FC5BBFB50A72D332FBCE00EC8FB83253DD3BBE73EB6E9F52",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6185E9E7F9877B6FAB301773F88B3BE9005E2B9C9B7FF700AD9E9E5D855315F20FB2B7F690AB30506F5FC7F54D8551E1F7ABF78D28CB5570FECEF4003FF3C4F20D78A3EFCBE6002FF22A985F391F6E221F00F1E623B7AF052397AB3ABA00E57D15523054FBE49FF6C8CD233F7B3E006DD600E39B00B95AE1A8302EEBFBE62AC9D5A0E3C3E70ADB71ADF35F9A83C680A9C2FEFBD2AFEB1C17AE730D03FBD56B74E132D00B33935FAB5C6F46B6576E4BC3B04A350C4F7ABF7B7FAD56A9B7CADA77C9FFE30B2E8C03172AAA820B97171A1AEA6ABCB2AE21EB3BB6B3337A0AAF532ACF9A021E822EA4D36269A796004A8555F66503786BFF5EA2C240D662DF1A1A5D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DB55A8F7BE687B0E4954CDC805A69400399377BA0A9382ABEBCB6AF3F285A1C2FEFB910290BF55D841473BFE5B1800813572F320740008800056655AA5E0CA02FA4663FE175621BBF6173FF33E554850DD3682F7F769AE1A20D6FF6153DCC3C22542150E2AD5B02F02349743F6F3B5E26AD5EBFF0493574F0353F3405EF631ECAA363B3A73FF113BFFAB30AAFFFE25FE6BFEB3FEF7FE33FFE113A7AE670AADC707EB5FF85A9C9276CA0AFC17ED4D0DD3758322EF67CFD5D7C0740ADE0212CEDA44ABF08D46E9AB5F2ED3D575FA12BE16EB0FD5BA562D1717DACA2F33C59EB78E1F7E0071BD4E15E2DA230757F84AD56F070F5F82D9CCD52B5C130BFFACA0BB04",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DAAF0E23E681B6E66B0A0A8DEBEF2A8D0B438DD30F8BC684A35AEEE34EA7ABD515AED7D6DAB9CAB6751D055E5EDFF0538275E1853A2AE3A229F8B261F30E0A13E16F5463C18DE007FFDAA0B82AFFDB229B32D555F8127B771DFBB79458BE30C50A99C3FFD7ACEA6ABB975ED1330D3EDE58F08566F5033E58F28D373A133C550F3C5D7EB5D5FB9B13D548D7C17A98C0FFA624555D3076B3F6885221D5C82B69CFCB813746AE5A94760FBB5E304F971B00B13A2F1C5CAF052F2217D1D775AD100A5B236826E52A4C57FB2393FF58125C2DE4850067D63803AE70D5A8D7B3568A7302DD1B0B1B460E76B14A8C5D4B43BEC2DC78A9AE333BD7A8D6D8714723FAF25A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A0422AD7FA7F57AB5BB5F6EF1AF2EE35B971831BA33212E12B157713F3B70625A8B0AB5CF75207F7AD0A47A44EFF053BAA710FFF032EC4E32A54FFDF9D7FA0612AF4DE0B778276640F873547625E651B06A510460ADE73FB0D9A3C030B72004642717483832602B64641A7E01D0E0B44B60623CC3CDC1A5A061646031CC280C953BF02063C0C16FB360204075A8887EC14630F41EF7060C036AA4706EF13C3D80253FA31F737021A062885620387C686F8F4F34BFFC5F2E787901C0CFEFB761ED301C382550B0613F718060B22BF822A64267938221E07170A2E6C3A276006CEF367C821C345DE15224F66076978431637FF341750723DA46843EE028A00870E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A38B0F0381D940A1FF217F1217787840FF83FF0391E7C910B91826035710A6A3E90F6737C3DA8CE660FEF655631B8A3E066337FA0662FA45505C844106CB17BE6C6A0363331663372D225DEE15DB47604929B84913EDEB5CB1C1B10B1A03EF235834E46707320003FF842B484D03FFC1D575E36ADBA3E3E7556EEA5C61252A6A0568B1C88E27151B22162DC845B01B1F4097DB8AD1AA1B0E172BAAB44A072302271F55078F9601BFFF43C53EE184318C4967DF1D912F1352623587F3B4186E438363333A369C366F6A575FD8B186D17E5F63B638366C4F675F01D170A18FBBFFBF67D982EF08B410533755E3A787235845B737058210D33045A3FB83144AC5B1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C1AE339304A3E2122A05A7A392DEBE60AB9F01984E490FE3466993414674503F72F2769010D0E20FA0E0006490410E60DFDEDDE5C50619DCD89F60D4830CB2BC010ED00203041936C82006084F0A20EF40060DCC0F05830C32C8060708096132C8200B0D2EA88D71DB1E0646A3DC840CE30A92D9E2016C3BEF2ADA70BD0C776B02A300E32B10796E2362860EB48BF186B29703B60A71A136823E7208B5614893619F400EE757D820138FF73372C3304EB729203F1242670D52F09A111E10E74E19AAA3B4F9838631E303DD5B5105DFF7F5FA901736550F104B46F1276C83858F3B8EA45E555BBFE3BF920EBB40BCB81EE10FD5BFFF77FF5A197A14AEC7BF5219",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("22BFCBA145B6F3FDA42C7F61FDBF865AD3BCE33FACADD85F7624017272490F242443544087D2761437AC4734B51E462CB63E975A1F8C1F7187867BC400EEC3560118406BF7A2014002570372A1E1D8DA1E7B1C722A83997DA89A366F9EE7189FFEC633DA4296783FC60B3E0198FB80EED68F827E0616FA47BD0041381FA23CE7708DF6895867808ABE13141920B880C7801F0672F3C1259E1E28002E3600C007ED031354CF9626F0DB017B4126827A1F06FE1A5223B403063F362E52A72F20B4827E1AC2862857C00118D801C326023F0A77266878762016C344FA771A3F205C085C973E38019EC36D318CEB3F7F1AB708CE13340C230617353EB53A5053DB8C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("336CD87FC5C8561C0150018C01D0010A8E1C451AD623D35720022BA8181ED63C223A8E1FCEAEB53713489E7E9ADEBF928EE660B108A35A1F20753CA49012BF8876C2C1138447CB16E38A1EC12D52481C569E1E034147C736F6467E241F4E8607E0408B907FF03EA15D1D91987B187E2C7C1084A03F1F92010AD02421840A128D2900411F0B3A2EF456C7738433C06E1806ECFF0B0E9001DC01360238023A023C023E8EB42B0884570F287A388CB4A62BEB4C8E02030B50D51A3E30A66C4AD88274019003A8FEE001E601EC01F2DE6E0887D86A1B24672A01E10B2F62C7D2DA7E4BBE0F00BF4FF21F2183412F62F3FF0774479CCA164EF2A1FAFF0FB2A6C9FF3F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AD8A140FAA293B90040018BFA3ACF12F08001CB607FE2D5F1FBF3665A920CB5FFDFFE50F9FBF2EE85FC026BF137710C9FDFF29BF8FB8EB98F73FFC27AFBFC41D519C012FBF78C4BB38FEFF0FEF1B20E1F4059726BF704772D82F35885FFEFBBFA12FB8447F38BF1D7193143ABF4D59D9FFFD640DE7C1A031055F3EBFDC1174D2FBFF3FEC0080416F43BF0CFAB93EFF7F44BF883B950E018046BF277FD8FBEFAFB83F48BF77C4C8620F4A7F4DBF23EEE99E96A8CB7F1F4FBF7D417D5E51BFFFFFBBF8F96D65525F80A8A3FFBF53BF9B32ACECFF3F55BFBFFF16F035E5AF35E1BFD097B37E3F58BF18F7DF5FE9F4D1EE97BFE20ED1712F5BBFFA02F4A74F3E2CFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BF5DFF85EE6400405FBF1E7186EA608FFE05F8FEFB8F996061BFBFE012010F62BF246E92423F63BFC1EFFD6E3D643F7EAECF0F65EF0B2E116FFCF7F7CB663A3DC9FFDF0F71C7BC0AAF67BFBEA03E2F7D61EF1F1768BFCB1A50CABF69EF0F4D19F07E8F20359F6A7F3EDAFD2F6BFEFF1BFC3FAF60E85F0FE8CB593F00206CBFD6D4E4EFFF5F7F6CC95FEE88E20C00802FD0175C22003DFADD970089FB62CB8F6F7D815129E06A94FF3EA4BF9FC5193F69BF5913BFED3F1D11180FF92EB566BF770DEF07CB049D606FA72C15E4EF621E04F6FE30BCC6EF5FAF5ABF3C62B5781F54DF311CA9184C4FBF3F0FC3E5DF1F413FB8238A33523F7F3F0CBAF0FDF7DF9425",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BF633F95F5CBC2DF683FA7AC6C407F6E3FFEE8FFDF6F723F4DF96B0D00B0753F47BC8BE30D793F71E7A6FBFFF48F3DAF7C3F59E35F5938803F65FDB2F0FF27824FF8A1BEEF09E15F28843FD7318D863FA17F7FF13F481958883F067DB4FB1F8A3F7754E6AB0F2EFFFAFFB78C3FEE9857F88E1F258407B124E11FBE90FF722E8FC3913FCACA03E8FF7BB9E8926F17B1F9FF0B943F5F708929DFFF16F1953F9B12B150963FD047BBAF679747DFF7FF3F83C614F8FF7B983F18E45C9F87997FEAF32D88BDC0A0BE9ABFCCAB263F4197B24DFC7BF08F649C2FDDC8BF389D3F7D490FBEDF358BFB0F538695CFA79E1FF5799FE1DE7FFF449F3F89BB8ECFBF0F2D11A0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3F30F297FFDEFC613F350FD68052FEFF495937F201004EDB96DF8ACF1FFAC6681E4E407FEFFC4230ECD39F2F9FBFAFA1073C7BBFA7406DCFE81BA30F78FF41FEC1F7DCB9E9EF2B9B0FED3DFCFFAF995D8354077F2A6D9F8BFFE0E083CFE2369E9FABFFB30694F2FF4FBCEFC30F2F899BA4AFD0882FBED81FE71F7E783FAF53960A0F1FEF3CA2380F206789DF31A63FAF5F71BF1267D5FFE2A11B0781EFA8CCF5FF6F89BFB9ACFAF7E9F61B91BFEF954FAE633F6F9ABFAD79E3FB3E4A0B589F1F2629FF34A2CB7F7AF073B4A67FCDA46F150CFDFF77A795FAF1E0BFB94F2DAABF2A07E89FF1AC9FE655470FFE1355AFBF3016B6EF49B1BFA37DDF77ADDD29B27F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0CD50F20B43F88E4F7E8FBF15F8CB5CFAB6F4FF7B66F175B1FAF07E1D55CB86FF86D19B9BFF9EF7BD2CA5CD9BB7F5AD3FF66BCBF772A1D647CDF77ADBD2F6CEBDFE5BE8F5D1CF7FBF83E83C05FA726DD950F24DB7A1FF9EFF7F519C1BF068C930FF422361F01C2BF4714677679F96F640F41CEA5FF7FB830098CFFC2EF7C97FFF437C37F0543FFFF5DC3AD692F73C3F96FF99D771F005147670F36FE05018043EFC3DE78776E3AA50E4EBC7F3C432FB70F8C56C2EFD9893354AF1BBEDF790F6B9E9A3F96C08F9B7DDCF0F6E0B3F61E7FD7BDCFDDBB4FAD4CF45A1FBFEE3AE68DB7BFEFA88EC304381F8DD14F1F86E3F7E0ADAF56DF1FEEA6BF5FBFEF23808BBF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("907F93BF3F5188FAAF070F645B1F2F8F3FAD015E7C7F5CB393AF8F28CE5FC8A9FF91C55FFDFDF80FB5B11FB201AFBAB63F245CF2BB3FE08757679FAEC03FD5375F7BC33FBD9A013F7C5FC63F1DC97F6165B7FE3E757CCC1F7F58BD8DCF3F1BB78FFEFBF1C061D16F379D1F05D33FEB97855DB1D4F73DC0F73FF12E8E0F64D673EFE12F1DD8DF1FA6FF5F5CDCD93F68FB390040A0DBCFDD3F9E9B04BFFAA7CE3D32DF3F4C02EDDF7FE03FDFAC478FFE66E13F9073E91D4EE28F213C3F009F3EE9E35FDEC38DE43F98F5D5EF001CFF0F490E3BADE2E53FFFFFEBCFADC3E63FD98124CDA0E73F8ADCE0FF1F7BE83F0791DCFB4BE82F51E93FDF182DBFEA3F4A080F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EFC00703DEF10F1BCCE93FFCF8FE056E2C7BEC3F0C37ED3FAE66148FEDEDBB3DC02FEF9BEE3FE12C42EF6FE10FEFE9FBE9645EDDE03BF03FD2216D820F33EC87AF036CC50F2C18EDEF02F13F2F97EF36F19F6F0F5733909E5FC4E65FBDA7E5FF2FC8AF3CEC0F3F9C0BF23F29CA7FEF63611B3F240FED40120060389DA2FC77C146F2FF4E0F708C1600E05114444009CBD9FC45B007A0924900603893C08A996628200121A28E8A7F402FFCECFF7F13FAFE422EE63F34260E1B2A4348BD5501B53FF9AF99F8FFFFDF893FD02F6A912449623FF545CFF0CC713C3FEFDC7EFE7B45173FC4B79F0993E0BFA59B505ED53F2665EB6FFFFF9D92BFE46FEDDFB499C93F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("042E47667655C5BFCF3043FB3F20F140282329CE2E6309312E342E32350505FFBBFC2031312F30393911363A33313A323963FF94245EFF7FC3763B7730D142EE83BDBFFF7F77BA4D68839215009E73757070A174A334EF1FF930392F3134343A34333A3132963604DA0126E34B824C0F4CA7B446C30F1011A73481014FE501555B07759801D5E49B736E9F4500856F5879F5F87F52A045F6CF5246063710A8490FA86A440976411846078DBB204F055606806E000183CCC0F01E7944C4425401018A2264571B720936989A1E47934CED6507012003282013C9032048001084C8840C201081800C810C01100B810CC8820277AEAA36187F0101F0CC0FD20E2E20",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("092D0D5D06F03C924406563F345534CBA68D080E09DC540AB8D3344DD3108C115C1265D3344D38130C18D4539AA6699A19AC1A741B3C699AA6691C14780479D334CDB2F4527AE4FCE066D9344DFFD01470561D9AA6699A6C1A681B601F699AA6695813502148A6699AA60E400D380F9AA6699A30102805201E699AA6691C12182014A0699AA60C0C0B0415699A76B27EFC55F40E19EC11A6699AA6E418DC16D49AA6699A17CC22C823C4421BA66924C0C711AF1626F86BEF7F563C761149800F10445F613F08CC2730DEC00B39332083B41D1604968D20033248088E8F3220033290919294302003930311F28EAB178CC62005931988AB49C216B704962CCB35",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F18050D17E4DDE1A6E6CE0E09CE7B770179360BAE760E0FAFAD8AC00D1026A76F4532DE062E21C71E411B36C820435067522F61C3860D530F57BF59F7E51AC4B06C2F6DC720E02D5996701C725E809061C38667810F823F83A4698660841F91299E20C30619A1A4DFA718860DC1B73FCE3FD71753C061721807A06C248615E0352F401FC530741C0E81A2186F203EDFEE1E487F02042CDF566082798221F9C9DB612FA6DF0FA1A5819FE0FC0C781BF9407E80A85EC1A3DAA38FD820B74381FE0F40B55FF566902141B6CFA2E4A27BC86A7FCFE5A2E8A25BBF7EA1132BF9773B510506DA5EDABF5FDA6ADA323413E7FBD3D8DEE0F973317EE1C96987E4942602",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4017C80579922779FA08409C0C50C30F87FC902724F4128096981620FF87FFE4BCBE1904BFC91B8E3440ACEDCCCE1BC2D34E40FFFFFFFF20F09EB5702BA8ADC59D6940D05DFD25E51A8E4F19EB83407196D795430E058DFFFFFFFF29AF9E40F9BFA044ED81128F8182B940BF3CD5A6CFFF491F78C2D3406FC6E08CFFFFFFFFE980C947BA93A841BC856B5527398DF770E07C42BCDD8EDEF99DFBEB7EAA5143FFFFFFFFA1E676E3CCF2292F84812644281017AAF8AE10E3C5C4FA44EBA7D4F3F7EBE14AFFFFFFFF7A95CF4565CCC7910EA6AEA019E3A3460D65170C7581867576C9484D5842E4A7FFFFFFFF93393B35B8B2ED534DA7E55D3DC55D3B8B9E925AFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5DA6F0A120C054A58C3761FFFFFFFFD1FD8B5A8BD8255D89F9DB67AA95F8F327BFA2C85DDD806E4CC99B97208A0252FBDFEEF360C42575CDCC0301FB3F713D0AD7A3700840FDFFFFF83F5A643BDF4F8D976E1283F53FC3D32C6519E258FFFFFF351FF13FD00F2384471B47ACC5A7EE3F40A6B6696CAF05BD3705FDFFFF86EB3F333DBC427AE5D594BFD6E73FC2FDFDCE618411FFFFFFFFC5E43F2F4C5BE14DC4BE9495E6C93F92C4533B7544CD14BE9AAF3FDE67BAFFFFFFFF943945AD1EB1CF943F2423C6E2BCBA3B31618B7A3F615559C17EB1537C12BB5FFFFFF7FF3FD7EE2F8D06BE928515FB44473FA5E939A527EA7FA82A3F7DACA1E4BCFF3FD2C2647C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("35553E637B06CC23547783FFFFFFFFFF91813D91FA3A197A63254331C0AC3C2189D138824797B800FDD73BDC8858081BFFFFFFFFB1E8E386A6033BC684454207B6997537DB2E3A33711CD223DB32EE49905A39A6FFFFFFFF87BEC057DAA582A6A2B532E268B211A7529F4459B7102C2549E42D36344F53AEFFFFFFFFCE6B258F5904A4C0DEC27DFBE8C61E9EE7885A57913CBF508322184E4B6562FDA0FDFFFE838FAF06947D115BDE9FCED2C804DDA6D80A000148A7C066FF80700FF0F11ED4852212546750448E055DD47F9071D00846C1C0062E4F7FB4954D8C70065AD3344DD37897B5D4F3AE6D9A651101304E6D01673AD3344DD306597796B4D3886896",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4DF210012F4DA288501876A1A80ADA2A0125115432460154208C02A84019055081320AA00264144005C828800A9051001520A3002A40460154818C02A80219055005320AA00A64144015C828802A9051005420A300A840460150818C02A00219054005320A800A64140015C828002A9051015420A302A840460550818C0AA002191440053228800A64510015C8A3002A90460154208D02A840F20AA8AA1FF03F46143279594083E429143D1B5B41FECDB4806C9C696E7465726E616CFD13D802193A20564252206D1EF2F6FF29202564206B627073203E2361782E0A6FB44BC47F278125755B05F7BF7407662072616E67659A3FBFED5F79516E6F616C6F7765",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("64BDFE8AFD0700205B252A695D3F0A253364255CA8CDFE9D252E2A7307733F05914CC4291B0DFC3D1C7C0A6176E961473AC5352E3166E0970812B97F014C523A62A1FDFBEC2825234334672525293F0103C916DABF7E4D530A6C0143053F62512ED88F88747970653F20FB03F66DC3BE23342E33663F737461727441BE48BE153F686F746F700C247FD0BF6D69786564280D071014E00ABF7354671BFDB2455E756C15217263652F75C7B08640FF0920DA13B4C33130CF0C3814ED0A3F92036D43073F686F61C53624093F6B15ACB6073F5B1852C88BAF408F5107DFE5FF66736B69702070726F656DC54D6F156C83F2AB87795F686972657475B6D21650750F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("44665DBDEA8D5119693F65764375B6C17BDF3B55736F25742A6DCF1A65637AED2EEF712974706F3F3C3C87641A3EA0AAF23E9177622BFFBB862A262D3F45A35F3CB817AB6D62C54A6368C56E656C1D4ED92B0F7319F7670920C17BD61B2D6B60606F31EB2B0A7F737830381C4D7001C56F71757E1082FD2B63797B3F5249464688DD3F4857415645666D6F3F684E5BC01C7FFC2E563C4F6E1C382CF33607323420810F3F18211D33322062DC6E708653307A0766699C2B200A3F81BD15039661645F676719C3DA634F556E7789279A762CE6756445536FF838068275248A2B50434DF0807D78622765270A3F2569B18805767C7347BFFD4007EEC70B6273A765",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F639FEAA88D42FF73697A657F8423D8BD30FD7975FF6EEB55A2627FBFF36E69E1E0E1E03863257293743275051C1681A7FEE170C1A5B6D0D543380D2678BF6C642F63537300C5E9B0C1DFC54F68B845BB007F5B50228B76623AA322CD72627F86835D1C3F680EAB379802C1531F330D00F282092A0D73EC792C2076E12F458BA90F7E4C414D45C1F57ADDE49FB9214AEBF74E508F4173676DF4726177C30204F65F636DE7A3B3EC7E71CB4663426C2D737761C51AFEA0E0C79741694401BF49443376320067F8E39D8A2E2042BE7F9F25C0D136BF74C93C0F6167033C01065068336EFA0FDCF214103B776E355F2C080E8B73B336FD7763561E7F6C628CC579",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6DD63013BD67B33DCA6149853DB6A3CBC6BE65199D6661D57E6DC035547379EB2E2EC98182B1FFFCA9F1D24D62503F0FD53B9DA08040DFB93F0F8D366D1B372FBFAF03EDB08B4FE00F2440DFFA46B017E3FFFFEF29F041DF902C8F98C16C6861EE0081217FF64F19D50329D61F91DF44AE06C707F14162F07F4327C66BF46B271EE3646E3D725C54EB0DDFC903FCE313C0032825136B487A2C465070B70105291B7FA2C41361B6853EFFD1425D9809BF3FF00F15631D4D5045472D2575C504AB8F3F4C6179758C7F50BB8BE42E3549013F152A08B57F3F42447060AC22CF80740104C70A7F55C052FF47492F4170101830A13641D3E214DB0593FF290A38F08A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("85ECC2C13136F81527165BA5ED812245618BBE82C1030406307C1E910B8F10E17499DD03BE702328936F9F2B07B7D862990F206C49D9FCE2F5BA459D45F91915183B3CBB306089FF760F714356AD5975677F93D312A39B2C95E80F5180111E61F861634113121B608EBFA58B5EB4572CBF6A2D4364755B119D0EE72D577FE4BD07ACD865431B633D6D0A3B4C11CD4584867DE86268405025250A5A22D536297F9F550F8BADBB59552E035DE091122F28719B2922AD50883FBD6F6D0FA5163FBD3151251851FFAA87E30B1EAA2677DE67782920710A290E3BC7FC0D1C2D84BD4C627566666CBFBF670FEC0608019FD28AAD131F7F70A35BA83D0F2066F4E9CCAF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BA7F777269749AD8503BB6DFF15CFF57734370F8425C54936641234E8BBF2B0794CAD4F4526570A64770C347ED609FC564425F2BFF41A383B5FB524E494E477991FD7825F7717FE0656473B82D3531A1EE2B10788CBE50DF205375A1A3A237D08F6D73756CF0416F1315FA2EDE00680368646265B072C246DC1B8298BD385CA73648FF636C916F632116E28613A3412B0E552678206730EEA479C125CC76BD92A3CA147D5E766BABD9FF6E610B62B1E1ECBD39926C400B3B90DD0288423133495E6F35D13F7580872D0D40A8DB9D538B8432660A3F7402B86CAAD4E8FA6383333A30650F4475E28F250C4A755B78696D3F6D8B7C1B29BF473C6172673EA62D71",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("059128F5BC61CECCA1F273756767FCD406CA4061A2F71170216D6EDFBD16829B728520C3957769DC035EC1638D312033729D6DA2520BF07F54D077D3072554CA6CD76F65C94030C4625A20AAF178E0C4ECA22B302E463CDE253EC579D36F5D663B11EDAC1B39E244BF90888D8A7FBFD8875820672E444C4C3F2C10700CA2BC45785DE1418986794DD56B605CB70A3FFB3105028BC73BF1582AD49028B583DDFE14FBAE4F50543F50734000D079078222367981171EB0075B90C3DA66E08F10740E1075B676857C6F30757036A006F075254F5AD35676764E76F076CDBCC9ED10770F50577806506C58D33490A06057900F404E2933C02F6840C34ED498E0BF6A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E83F4962B7D890406F008FADA5420E30FF16C96BAB3F0F104058336CF91544A8B907515E1FD8D4B617066B1707783F6490216485B99286E468A11F9FAC50A0C1600FEF5D00ABAF764E217F41D0014E7ACB35003215B8E9F564A3F84E4F54CC61904B80AF64D764DE15D200038C631242BD09F02199656C6473177739278D4C7BD2204461A3312872E0CD5E8D672E6F74416C78EFBAB76EDF73FE55C9333079DB0B74923E7261637480292CDD72A40B061827BF122D69643D756677E7272820192D6F8D830F5AAB22707E72757363045B85BB2C924E67D231466A775B6907AE642AF80B047EAFB9014D532D6307EF1363732D73703F6985639DBB6EF0B23A8BD3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("705B9580203C20C63500DC3E28066EECAE998F70C9204968ED7E38D101302C293D204CE165EF1FE0213F4989455F5052494F0554D851FBEB595F43B75353298F328AAE6D2008D1914EE084A1FD834D414C952C953DD55618DDA1A7332C34F22B50A1AA48CC394849474804EED846937F4308D770319D9C275327C58A0EC32CC214709C6D659E35C5C30EB1716C0ABDB600ACC030C38083DCBECA0C46400F36264018BB38C4BF3D3D11508988DD60A11AAA709C3F688131C3E83D7EC11863A44D432FA98EC005BB383F0A818947D1C445436249D8834F7C6AC2B079B36DD52282C052A9F924C4C79B3F61593D2CB82260170A7A2C770F4C3B80530EF3AFDEE1A3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3E4C47504CD7496E6C3363B899D92D690D790AC8636C750A1EF484BCD07003644382C0C1587F166C891314238272F531703A68E7DE236014150401042937F05A2AB88659F2532965F02208A850CE6089260768686D4F186C38E4420A3A0A312E4A580AC296667BC97C7132C315556EFA4847C1412A9CECBD4A2C0D4C62DC238CAA32E96BAC14B2CCB74F8C7BB7726CBEC17F701851CBC3681E996F6362688D1BC146D78EDA13DC18DBCFD228738C5BE7686AAAC21225993271352838B3366D29E4611B8B19520B836DAF854188C3DF0040CC6B8CE1A55843DC54DDBDF11E15FC6AA42877012E5103C0F0F053762EF167CE84EC09971336AE35A23433C3994E76",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("42EAAEE0613BB860140B5B333F597F6FE5FA8213676976D19FC56ACD14147B63D701DD7119063EFB417BDC8AE3C671FD281B1E5C9980715F2521118C0078422EADD3F888326C3F439976693342D1E1F770795F36A5357EA5D8434F5059ED60C7C652E94BD544955A604736F94DE65672A4E86A6F9D0A496C2B408AB57F590AC3BD78DA4E6F62D89EF3B4B850911770DD15A9E1C619E49D5B097056B398A422E978AD6DD234A365D9106768220956A37B9C6241192616D70362346670648D0EB0C8123D4975B934B74471A7276FA0EE61663A62A32E0134BE5B2B060651DE1056E30CA6BD060F6CFA6977C103866A5373DE74AAF18407C16CA6FD65127963871B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C6914F204841F201810906012A2A2ACECE85FF4D504F5254414E541CC924570C6C188CEC231D4CC015D77370A76443540F2B6EDD6DDF6746EA141BD66583AEFD643B12C7FBDF95BE15567AC31E11E49D46745228DA4CCF85B0ABEA34350A80553D4C0483E2D97082733FB80518F203DEB947313233BDAE1D557D67262EA36612098B0E7FF99EEEBBF0D75B5D5D203CDD083EED700AC024255D0AFC2FDD151D68F12FBC3C3C20736CF8117F222D222C257A2511E201B8A7F82F4B610476E15472AF0EAC0A1F0C237B6C70226F051E060AD01BAD7297C8204582310CEE0089991291A27B609766821E20897A5F0C8B24520C2BBC94657AC1587BB9683225522BA4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("73A18A9B85823BD9286F723FB4458E12775AE0FEAF636C8B6A38889AD2BF053F3AC052456F4D694E444544B1C4382C85BACDCF5E3B31D22E8D93A64EFC420B5DF7494F4E5347428106E062FA72C612638F703BC429B7B33E8E0120B9386A6B66074C0A0D451615064E6184813E8F6E8758ACA79F7D295B68B7A6D4421847C5B233EC8862DA16C2816DD30A9B9C5265CC46642E8D008F50DB6DC5157329A519F03B0E81286A29E8106D8201274EC5578F802D4C35705CD87E115CCACC14C2C66EE782C156B7D956577D592C3CC61193281DD4BAD6402EB16E30C0CECC48D15C55EE1E0CE21B1C153722ABE5756D10BF2BAEB02221F06172641665787404760F9C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6214FD2F1293C1468D121CBD0A1716008E4EE3BE05960A5169E8A3B6C32D05166C97D19BA706DA8D8B092D86821B23D38AF5730448B0331A9BE984AA09362E39227DAC160A2E343D8475EAAC101569017458040AB5B45581AE08AB0A9528905DB14F320659AB4210E80A03C7EBA96D5DCB51440AC265C27A0643E9740612D53FD4A916BB28A972EDCFB8AD1046AA5B49788570480585295BB8B6EC12F87761B04360CC28D261D4184BA3704AFD5F7457C08C5B286D296D21B0C353FB34342EA326E3C1353E44024B64597747049B515842295A895AD3F52F28B336E7D6B2ED6D83FF316D01F305AC80B3FC3E632BC142353C2C6F199221903249331F03390249",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3767C0DCBE0FA1203C22313E0F3260098E27693E4F5A4A354AACCE3187FD70E2307EC2F883756F62B0DC388D97C9B4602F55AE3C15AFEB6A67BB5F3EA2CD286327A891FBA02BA5911D6AB029BFDF73950C56A715C8989A2A52BBCC45123B91B185210EA83F4F6930188A6E2093796D83E815052A863E8566292A70A1C05897479BB742468E736A0085875D4D1F3D0F6D735F954E608B736CF82DEE8CD0EE4073EB61F396120BE251F9196D8BB3A0D0B404646118C376A61B43C705B87409D11E4C64B058B8B375F6BB2E1DC2EE81B50A09FB673451E502A7D53D70C56E4050A7E53D212417ACC753740B27B0C63974134E320A0B01DD9342D3B483CCC90AFF58",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AB0021DE75076110E9B46F8CA7E0611C47287425B630AAE091223143EB620617902E6B8F5CD1A6CD1E1BBF266C611947247C9F791F29B0859D9A60792D6C7D79BF0B61970F2B281B66742999408E629B723161015B6072799D720C4C153F727867446478C42D3A2051EE21EED5F6529322EC736CE476F810CEC64D1D75B818B1D056AC28EB974B583B61B19F8A819CF01656F0F822A95A245CE76B77DD66601D6BA34FDDC6B5B8B77F618BA3FD0D2A2404F496638C70218213AE5C2DF21A26258EFD6EA28609AA02C7A2DA0E72133E6C3403C77ED7775402071942320F623102AAD2C1AA60C48809FF87C2281900C36271E3005E1D65B122546AC084EECB1C0E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8CB4FFE4524C330A62E2C9342E3E19F089091AD96473BD30151092531A83E988234C2C0E6871012E4D38963724E935BAC446552A5456B303C60B7BBCE3B503079554077F182AECAE55654D6547C972226670656272668916872D59DA448866982522CF6376AD65D8F985C163336C6F6B0808510453A6728081BADFB173B3826B816F2695737981408C233CF5AF63C7675B3154583E686D2D7171F36F040C0B193DC3013915DEE440C544503521D218B70432303A20FCA1452A74FBB7E84337536CA66D39506F6FE0D0018B1F427B00EE443A53C03B74C5063874134F6661B127D8333746B4796BE11D6F8D868D6978284A93BE44463A7415224428B05233AF35",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("69D8E162674D3E8B987492626A769BC460C9872D6362729746C146242FFB1125024137AA414203B86B05E6876109977957802D053531452851E95EB069A819C0590C531BD50ABFBB76A57A0C30583267851C5C9B76D4B5286C290B13766C6C11BE2D6F6C647B1D75430CB10B1A7D72A9401ED85265756E6577A8D2AA5D1A757DA8030E85553DF8D4A5485E3BE7BF72EC43BFD43B7D393D73336C2122C191618121D978B3B11DC4696D756D92A746858FCD2033322F9243EC428B61783332C02218903046A1340E179676E6CFC16E85605260E38928C2802390D5D86CD450006EFC8013355019136F0920184E8D62D22DE26DDCC2AA31D159885D58C854DB0AB0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DA60A25A6BFF816100BE415448CAC2D675E3403A4B1B91638D6B348C734C9C1820B01B9CBB5E947216B60604AA716CC4D5781A56056732FC056076E1535943484F5507D5D8D83BA8C07081352570AEFA83E156823D1683ADD11023763F777499F06E02610373D961778283303CD190CADABF7527966C50E7302D345D7B642FA5D61D1C1582B83116EB8F25B1A7A5B62B017761612DF98CF8F0B868B34E646A8A5B0D06DFD7312D336B272C331BAC1918E20A83EB345D6EE17564C98ECC3117C05830DC80E9672F8DEC4BAD7226E7CBC0C2786726582D73F28AC52536718FC963F0808D70AB768A95971603548715E909ACC64CC142702D2F2BAA2A612D184630",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("102D0ABFF65D8162743FC7D34406258AAF611A2C1DAB29AB6F5461A96D1579575803B6B8C05948CE53D44AAFD76377D351D94B20D568F83ED169DCE8B4008BD7643AA7AA510A8EEC29F5382E11042AF1383731378975C18DAABBA3AD25261F08BC858A126DE531828363E8C2D5DD0852E9AD9F1D6A5018A26BB0C82F537B4863FC4D71D240B1191E57DA0B273D6D73664F965787B6F714FD6E0C5BB98C0C8CE82369332E356D6C1C8BEE7E536BE329A114ACD02D593DD81B20EDE0E3892D736D794F35B651536662735530B027025E0936502D291DF9B529CA350F2995616C746F37C9E628373133361C7B7863B53095ADB6789579C8E640313432313131BB55",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("91E4327FAE72B51BA03364AC2F20D910DD16AAC3C34ECFBD82DD69A149100B782C362806D14F05494961D23F3B2C928C4C2F522F4D5D4E1C1B79297953210AEDC1D1341953C175CDBD29FAB81DE16EFD70077518C448336431691DBBDE51EFF764CF3A328E1F080C05277870D4EC168856A652634BD1A201F73758915B2C6D5D16653038025BDFA9011C10619751BF6E70372C12CD2C432C6575A4772AED2E209D20366FEC019C4060DA3A5F93840B2CE42D59CD73440B76606A0703B01377752B4175B76B1C032DF99BFC815A205B6E5D999408581871CD18EA259C0265A495561C4E3C9087AC10B8CCC166B174C8AD67C029486E6E72783639C01031252CB7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("04A582854A09EB4EAD5A95F25033932FBE1627125D5B8F3C4136D56A3E592D1C6BBDC1587D1C2F352F63F1A951848B6FE96FEE296549309F90636D61726B0BE4B694CA284B6F6E8FB2BB6EF3354C876C5170878EC442569CC4AA4028844E2E1013E532DE9BF5822D221906D06BE7C04B21C1F0D6006F0504692F5E61A03970B0077464DABC7F0A614A03A980E9F07876377EE836D3760393A144B8CF2B2D92522BF52D49534FC9A04F6197B0533F9F049CE00E91925A463C4570623432BF46696C110C150759296B911570D363D5E6414C4CC3B6C0681C693C4B1288883B000C8C98B35B4830138C63613F9499082404DC7477696E0A3C04CE6B6CF07770245D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C0B6089301A7C2442F2088EE4BDF0A57D8DFF774A59B626F0107CB161757952D0446DB7283A195A509F42B1F31352525B6B758056A8C8F98276B15DC28254A275804AB998A9E97290AB7962A27B990B49659AB3FB460A004363550A92396A501BA6FF9DBD90F9784983DF84E2DA14DD06ABFC521F1C2D08374E5CCAC8650862BECBF4B7A6403F0293971C021B1183330CC7306DC88062357ED152D76742AE665A13E8B41660AB6298D6C60D928509219298B89DD5DA679796545888B0CA1317028A4D9659A3D15B4319A39007163B068904BAF8CCA722D20F80897991F788B61DF5096F125381D94BC61DA2E31996EB07261636B17841ABA28C9093266C865DC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3535877C20F9C54470889D674367656E72CCD065292983340D0CB633A2A35D626275E1CE7F2B465B23B0212669B0C44C6CA5B3FD076E81BE5E312D995A5F86B66622695932080C3648B356DA76B22EBF5A70A5325C222D17482876C6608573CFA9854C6C051668A185328EAA0096C661FACC10F686E2757B2D8C70CD3A54F16C639009673A898013267066A7DC77725B202A849D0DE2A4B18FAF51E8036D2DDA2DE473DD6E012CB61D20D41342B087ADFE9E525CC01103ADFF3E7348A12646E8AFF87006AE8B73850272756E1C98807F3EB3A2C6D2102CED5606FAD1A25D17378F782F33642A80C70A2B5BC1E42780A60AF92D3373206C071695341B58C65642",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AFE04C3264092FDD2A2D9DF73AFF416B01763DBF5669FF8FDA50C1313F323F2E350948751A7F09104E8C197D3C643014673A60D190DBD8412F4BA9316101ADF742E941DC1B2EAA34EF15860854E56D6F52612CE18419A4E22DDD136C414AA44075BE10EE06D0B355A9636E8DB5A0D29564A3B035EEF13F0AAE6B00E26C2DD1936C8E947A840D6106EA45CE148441E7E6B07CE39060204822B19D8746A7879A478067E2168C8185B32D06990647ABB42564C6A31D38DEBC64B46C7B5B02297518E32AF3C648037473BBF722C6E022E24308BB41266495B3EBD442BA0E60C40B0A988934A48F819B954E45C45B546FBBB0623008CE9655426A3D8D4F0C4675DB41",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("38DE16CC79B68047DA0A49EBF7C5082C98411BB6C33B81192054A4270E69300AC1AEF122C30445ACF41BC43B0C89C407656FEA096C97646E1DFD622034C193DCFF05AC60403003BBA2602038A1037401251D01B4856C8740A8C0C293ED74AD688045FB74E903AB8635BBBF53388930AD29562C4E82B129AE078F2490136E98888D28781802767731402227B1684F56C61A542A6B4E450BC51A677F9544C42884052D81C7D248B2FE182DDABA499120023043743647430A458FD40F7428371A1060680F74210B84D0307E952D45287012D4E7B3C0751DC7754B6F5C6B263B421DB7F0CF5747E0593B0EF249C97578A504727311F314A3B69A0991AF104BA18392",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("61B45E8B76D728E9476F8D208D0C07A967D484215828C251C50429A2C7CD2179386D0D0A58325C47414030138181A095609CC2F643CDE0BABB31B855520EC0D87031C0FF3C983EFE5573C38D2816400BBC6B8251D328B8C32B04E910EC61FC01350D562C7C2E2044A5FE661DC1A29BA36558288CD5748D3925A22DB83013C38A849550BF1995C62542EBE9ED2E0AAE63872E5D571043270D3B220F04DC6084BB4B9F0E6C90CE8E8379A9E95D34C52897669378A9185D91A37B2CA2211C8C2B06F4C574B21386483591DD2BB666C0841C41B510625C168857DB0E2E24A217BC2B024AA104346D9D96D4ADC18B2D4D5C58E22DBF6061ACB8782972F76FCF087724",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("320EF3FD3C11604C321073130A3660B533A1AB6F20DBB56761CB2092797A5F282E4D3270E8616C541FDE69C6A5B5DE418F316F44E00D312C2F4F7354791B57946ECD63468538A05475A37154F835A331383522DB738AB010CB156761AB1A8585D954721EFBF0708BD53810C03622DCC08D55C04570B0756813B1B82E86EB1D8231AC67EDF4379D06CD08BC643DA3402538D7C6F294EC4896321D52536E01AA9BC93575A83CDF0A3101054603104851E281D0E9D81DD8003B89DF7A8B97B16890F817D0474A20B191D1C2C07155853F2214A1112A148C2D27E50B8F3160674BC600A5943805EB81412033341814B774888D04813830A9F633F5F9393731313208",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("32B076D39E52301C3932323408353A05B4384E35B7059B16A46017477D4630910EEE454343436B6B22BB012818D3AD35845D9072584883543DC2A415B86294B7010A2770C81E582EDFD4604D58A56F4748CC09A4E940894A09910131A918AD14530976CFF50F9D365196AFE8B9315D280CAA717A8905A3C5340A6786B5654C31713C553E351B22ED7C1B5D8A6F0EC416869E086331372D0418C45B056383EA0E12C2411912C431E041038FEC6525861E8C6809F1706891B872AC703D3E80B82FEADF5FD8AC01362B2F6C7729772D65752F5BD824DF174E32340A2E6378F600A4E43430EF63B1A346BF64350A666D2F8FA21037BA07B57038803AECD902D1B8F0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("11990A636441528922C939F384AA2D812E1DBD1D1C14C940FCFF36219521912B7F928BE41532347732D03224A17F6C075A8A5033FF3430D0B04825713F438A503235B9BF1E89E44131320F0CDA63D1BF3C3F48262A7289BF301E34EA91D63F393261913C486364566C51A8817F3FF28A209361BF3332154B8845233F02ACD8AE8F41F5C445A735FF54C034630DFFB169DE488C094FEF6964CDD8F5A082F55DD2601C6053574908831EC82FEC1703E924CEC411B6C2C170BD22F9224C106457408030DC8E667572D63A41131151742D155BAB08A7FFCB3A9CA186D1B41036D890D92255859D080767C38D012F6D4C9FF541A9801307845FD6AB45706245A1DB89",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("559DB800E955C558D5F7058C5A508C133F4230925258530ABBA035D2F98A0A17A2C974CF37880A3768D5605034880ADBFD06EB9A1A3E25CBB413432BD4303F5032940C313213C913C93377617661B58012C9696653BE8841957F9F6726008635FD300505E0092DA9020007E8CDCCFFAD230EABB880860731A8E5CCEFD16EC6B6436F217FEC12ED84947F427F4BB41356147F43B425466C7F127D086D6D1B417B7FC56ED0964D7B3C77D05622B47F958747606D6C458FD996C0A008FF1044BB4013FFAD7F0C6EC0807E710803EB28B3B6B98101A60D303A94A535404C09553F676B62208F3AF6BE94324B7CA190274F8EA800AC600D6F81515BED3A33BF819019",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("585B7B5160C2C512D34DBC8451092BB97F88814A58B99D2C418B8C99033E4E30304328D072FB7F1AD04297708A9797D062A3A6BDBF2AB841E07C411E432E15AC167F412A4462290A43BF86B1B15D97B11D7F4B15500ABB5EA023D04A31FF37C0D038DD00531FDDD5C2CD0C32203A356FDB43841438E4EDF4DDA21D14BF62C389828D50DDADBB5A33EC1B4283039DD87F5A18A140D93F424C2124683F31626136197F85D8AE17B379C342C9C3A037BE3F544AE186DBFF9DA5411B7FBCB14DC28A43AD3F6AA349480B7F381B81F6626FBF702CB511283F7D3FC0B1365656FF1989114B3FB36C23B1627FC93F81E6245678FF89401B134E3FD444A09D723F0B84D8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A260BF7FD126434DC72D3F024D9B89FD3F2A57A0EA823F647F29B60089073FB6628B00F93F7F62830223BB3F740A29B6FF1B8D5358B03FD16CC542887F973FB169161231003FD12E904C31FDFFA40D9A71743B3E6E4A8692A16379A16428196C61C2282D9274BB680BAD883F8587526CA511A34334622986DBBFA1014B31F13F0823B69A2D3F2C1DD280D551FFDA2D901689323F5B5851040904DAA0DD88327F3F48B051691F3F4682A5D2EF7FD02EC59EB2BF38FF14684360D83F60266CC57900D3D0AD5111BFFF14686F23943F004E29939FA05014626FB83F3F245A22396C6C390F63D1123F438B8A13C04A66FF194A86DA3F3231094F5022832D51210214",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A6610F8278C5721145756EB768239649BF3BFE1027125037BF2DA517C9617233FF1E8550A03F686DC7DA4228C5BFA97F56EC6824EDFF081463972FFF8C50720806B33410D8249103223134C079BB9B1A47E10A9F282793582C3DEF739F95750596DA8F775B25814763EC633DB492BA51FE57C1FA4F93E5732F642F6A2F662FAA06B0D402BAFFE13256BA2D7A5341BB8F489525642C05FF382B00C1643FFB24345270873D2B4FC48D1535BF25630ABD717500FF274E765B26854702DB3A01ECB017B36BB00CD4DF5DC01A882E940A5946099D40F803EF45205D042B62BB84C0E39D910F5D88600A7FA4E9402A50491AE3C19398013744AA5E0ED89A845C58102F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("495FA91370269427CCC60A48E8299EA2211B91FFF985B61684E10A417708436371EA08901C89533A8EE30459892D94A80A0A2BC3A8AC716D3D1A4A130033832A072A6D95F530B7666C7967D583688268DEC26570373AD3DA0231EBC95080BB2D6D8AA59F139C3364242E9F55AC220E6E3D040508EE045BF614DE4377490B0A8E1AF8FF6C0DAB0B87113DB02218162341A181555B3FD3443D8068292C112B5501D1CF6C0BA4CF383634DB7FA090C6288D096DB147D31FE041EB1F4E0357B501E07F252A0CACDFDD1B8CA34F209A753A253009D83DA07AB37F326C3A450B76AEA725366C702E015200BD840DC0C220C7C2021C7C3C5055782F2CE4CD1E850C2252",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("45414C95D2EF5D8C2F4E7C66455441A9031706E8302F3B158CB0672BF73B303A302DD859883D452301787C27217FB9E00D810D692F252D3669D83D8C0BCBD9CC3FFD40FB853D332E334125392E3466E49BA2C0EBBF234135678E60862B0D77234B20C0E016F0DD699F483198907006FF540A781A3BC1C989E41D4C3F5220206AA922067F3F30220A1B08011F5B942826CFCF0E105B6DB46F3F9F1B6DD11E24400F7F1F4D00BB51EE6F3EB36CDEA20FBB08D00710D92C9B65740E183C0F207C155936CB6628581B304C1D386C96CDB2102740F82A50BC34699A65B360C43B7080809B6573B15C44E7A05046C02C4C66BEF62CE04E08018F14500FC920C3DE6ABF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("073FBF67306D6D3FFA41AF6666B5B7FDB7B60ED0409A99E9403333032E2041273E0E50B2F99BA60660708441D4EA4000EF0AEB4DD334CD2540587088A002BECD34B801AE30414601331A43EF1F47BE90B70ECF00F83F88C3E4859C90406AC81ACDBCD8A32D8F9AD00F94D1F22279918ED20BD3202F9217408F000058C06847001FF0A3E90A0A47E1DA0FC0CD9E0A4AC6A8261B31990866CEBFC88A41D76CCE0F4087D769DAF22087FFA206BDD89AA6F9A6F30B004100233B536BA0B84161D70EDF5600C5252EEF4045B14ADF66D9BCEFDF0F65501007C12F11894CD32C9BE03712928BC4E4FF22041B404C96BF64F94B963F8F3F76093F0F8F8B8A429D8D5BEC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C480387FE8BF4F1F1A31D5469FB87F4372EC1F182D4454FB21F9BF3F3F2A585B247FCF6945C282FFD805850609D105D2DA5A53351B23F54C20DF20187428D4A4819E6E24B0AE099A613231704ABB4E6C2CF16F95CA18350303110B58019BFF2531021B3F400DC2480BFBD33F073D205E4D5821534D9AFB0363B5293F37444E6F7721490205BF113F535345BF857485CC3F3241334910ACA03382255CDDD6E0912E632130461BCB33261A761BC9BF522B9422A73F85111ED22603CD5C6363C4D21D8BB82AA54E085079666594083A3A0D2C0F241C34375162FFD8A5B51F8E306620C02D15B8BF015B02211EBD4BD1885D00B37F786D9412B07F0195354DA1713F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6DF7DCA4CBA435489768040580136455ABA1046DA4427F54A8A999A73EAF03F5D11E313C648D750812704D8756050A54C037F45F630AC13534304309005E00B01A303F0D00366063B3553E1B2ED8065741096D1F495B5076C66478725E025604C6332F47B856C1A21D3F3A92B6401AE9BFC073562CA3117B7FF1613A86342814C964B44180FD466F70293FA93D81D386D62C8049096801748AA5B9762B33444D058717030984A3E1413D593D030963C5AC17A83FBA2A42B159FB91098ED8C0423E35330329A9D13F3F7000296E473734BC062C3FCEFF82E10318966544210A0857BA29FF357698623F0921FD2C8D0660A2E1F140A2E2D1FFC5010B61D13F4101",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D8568766350129C4A531BB7F4A6B82ADF747092198D310848A4CDBE48D42EB093F3F412B769BA1567268443FD1C646C96D7483010581457F09203F3F20AC732CFECC451CA02E082A1D3459CF77097573BF0AB5DBCA6D9D9B61B1B0D5D37F4BB62A781D706C1C3F7350789021734E5350AD58F6A0BF47507FBF89B1C6608FAE011B0A892324C841E0A2E1CE8928C0E18042892841A5D84A2B2B7FE1818211F7BE70A9530B036E7F00838A0D841168BD81C31AC3FFB1C1494D4C15095122B0AE8A250949B197A540B4563F51606D0BD14B3F3D440F22805ED305817DA4D3FF5E2B4F4D05E0183F236EB5C15365BE00420B31812F45164C2DE13EBA7B0A850510FF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3F61ADB2066875629708568B8B707F4FAC0604BFEA30B45204FFB784118C08B7BFDE612CC4F73F784067303821C08D373AB1DA4B6BAAFC34297F1CAC1DA9311178156CB72E013E330D81D20A6D3FA90670A88470A60145D68AD87F05456B34612DD1FF3CAC5D9698DF09FBC82A3FE74E616F476962613B54655DB0D3094FC4892A885E3DC12C20E520C614B6170F82ED418C1B6A19878445C783796543A535AADAFBBF5524DA8E05337FABD15A41C193CD46881325BF01164858A3D8439810C063C55F8051DB16E90D8D0608A3285F6FD4B504F2F0411F42A038D04CC0F3436C9AA825A83EAF52567F0734342E6E41BFC641F21144616E4476775071FD8546BD",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EE411F68CB29477267C14869702D81F129E4486F704A617A7A7F0C34D341652E3F4EA781822F1F41014FDF3A8C838669C14F3FF9050A2E50773E522642F243ED22617F656767616514D58A40EF07E5FA20F954656368496E643690F088E1C189416C980815B5763001004E240F536B446593AE2884544B503F4521D081C943542F633E407F75890F142C2DC9416D62691745079AC1547201561D0D3A5C20BF3E2BBA890B340935BDA9AA950DFE00BF3853530407497A5209821C3DFF6130A838373FF55C1152583B3F4720D448E17F4B0CB1C34B8B7F6FFF0E00020D81CC50B423D0BFFE2E20C98982313142F83F4A0E1068FB7F504497981853FEFF2A363DAC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CB3D3FC1A0BDA620583FCF8AC5D300457B6EFD3F411B1B81813FDC02DED644ADECA6B82EBA3F2D0D45119C1C00E2C507520C2F48A42D466F6C8797068AAE3E64C5443AA3028B0A7F026E9A5EE8880743E964797F89A227053700BF0596D61197CB0F9DA4C11054BFE7B75863A0BF68F1FD8B9AD01062833E2F478A8913064A3D41628039064EB7208DE8D586780949FF6162715084671174FF57237D2850FFBC652750714314C152763F14694460BF7C7362C22B02BF696C830BAC90BF4C6F2D46693F1D2050816201BE20C585415B883F890D9A5074507661FF40A20112FA7F4407AAB03A3F20267ACCD005A5CF482283A64001BFB70C0CB4633F2F7F4E4387",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("580875915377A15B40A23FBE2D95C25F11894265626F62BF34D1D002FE6EBF76CA15D581576C7F65D88C4101BF3E67729450531C0941AE45A001D508657F03B58AC015506D82059A6E08487F3FA698187A53796D2AC553615084A3BDBFAE13F044DB428BFF039DD22B6F72C1450AA5F5A161654C0D0B8935603F31D084F7883F756D41723F81063C3065833F568C1802FF0191684F06BA007FE040A6273CCF3F43A08D313981FF954E710C797F6F6F5D9C34C5858B50F78FF01A34BF7F374772168598718B3FFE72651460B142FE3E6D81E423227F6C756286830294543F537C0806A1AE617F0543A0E093AE42276164FF78C594D4524B526894107D12A36DFC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("11C201701746F5717995B83A620544BD747F230E9A427F44B963C435B0F6C53F3704A3039370077CBF69C58C154935A2023E7E20488D3A5834E8BF3F3E26066DB12201FEFFC04045077E637F54C24185866EFF69D2001AA8C1423998F01E28C74E6567C370FFA2C227A4BF736B4135E21EBA423F32BF7D13944853487F7679F6D02B0EBF426C753FA60E8781433BF3B15E23269AFF77378020057772CD193FB0B805D109F3378715D5686F893F3F230C9AA4613FB915FA8A4981416E6941030615074A793E28ACD883BF687047487EC44E3F2573BF282564295FD3CC3E603F4D0780A0C01EA24C85FC114BC3332E39362EEE88E26EFE463F3037E13FA8A24168",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7474703A2F2F6828612C0258EDC0BA221A6717652F433CB82EE21041473F2FC040E2E5378B01D32F2055457A447B4560EC026C7A843F0FD47A0B01DF4F0BC0AF0D6DF62D1FE3BF6601212FC3130804DECEE6400F0D6CC8B0612F1B7F18CF24482731A4BF0F517083152F261E2F009140064120B0E09F3B79B590AF6F204C2A0F171BD10E0C406FEFF0C34EF0823F9FF63F2D14E62F399514816F5FC0524077503145600F8C66FF7F1EA7E8482EFFEF3F71AC8BDB68EE1F40FEC3645F2D431CEBE2361A3FC4A28098F08F02E242DD7F01CF6C0A426C097F0FBF4F1331B658AF1FFF81BFE2124F9FB43F95D62663635500B43E8F5F1804046B8FBF7A15AC2ACFBF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("80389DC236ADFF2F17C6A6F342DE0E06002F445F2C4530ECD53FD0AF01F69D367266D63FCDCC00DC3F8F6863A3F6F13FDF1BEFFF05AB8DDFE71430A293F81AF48BE242883C6D065F172AD2754EFF0F3F00DF21FF8FC2F5285C8FEE3FC31CC2ED71808BA52F5FA04E3E62980306387F4071BB0DA4CE426F440FFA865D80ED9EFFBFEDCFB36E55C1F62647378F0E4B41B00A1FBFCF5004AB60BF9F344611BB2E01CC0C7C228FC0FFDF402F34C4366185E75F6D9511DA590F6FCF58012C15014006BE403F4D41584831F157D24445525F4255463D3855C44053232E63B22C55811D32F804BDF1200C5975738805C2982CBB0AC454158349720BB6857763DE604711",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DB5F9E63792EA1DC40C04BE23C3E20577653E02430D8C77F3BC4870BC4010A6C335F38088345202D3E87D52E8517481C5F6265677E690D76F6EE3B8E5A73962301B086ECE63A7220647270D5BD15BB10C9293B1929D00E098B7763B50AEB4CCEFE8A3A3B52BB0C830E9B26EF2DC19606D03D3A28EE0D6C70D594B884EB0A4E020324840CBA8710B06AACBFAC01C4ED1BF113C048382CF478802A4B60A20A6C18134893C54870FEA83103493930252020784123B217640F4416BE5D6767792D6763639E00565AFF0062207016E9B565430C50BF39BE038A8AA57B1A79E8E7145A0E3DAC633887531899793F31D810DD6121514725004DC6A28001BF2FC500627F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0032D5F0E9C0C0C65EA0A93F6F0AAFF051D7A3813FC8C2A98586318F3F3F0D9D226001C842620F9053EF7040E06F0F42424EDE5F4037D5C2AA76BE7F3F38865E5756B56E7398C0A85A3FF3BB2AC4C77D85EF803BC41333C2A19FBFE060475B202FE06FC17FC00E3F7F7E58C724181508FF84F8FF4F2342920CA19CC73B129EB4421EA6BD42BF21D640220FBE236069FF0CEF93611411A1A78F6D973E6A9FC08090379FDD28825B003F16586D14C1A63F018D680B2A7F9FD888BD800134C033FFD840FFD80FFE799F501344AE8F1BB06A899F96E4C208211411DF6EEC3BB35006179044471E5B5BBBD14F3E57974F13239057C043238A990030078644C11BDEBF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BFB6DAA0AD5F478F155BC923C0434F43AB8A61F760B4B3895F5501F53F0F304E4D50DFE8AF39149B889FC81FD03F6C00B908C88007E8E808044F10288D6AA99F2F7BD5FED0EF0185420067B707D9894FBC007901B18E89932F405E806198399D0B90172069A202E405C8CBA7FFACD334CBF733B2073A84546B8209D3344D89A0B7CEC4354C12FC0340437B4A8A1E17C607867042242238DDBDA9D61E065F0C42166E5DE45DE417207E17347637D8BD8017C841BE0FD663777777C6DEBED6B6CE7F0B7637620FAE860F6014AC6207FF25831CACF72E203431D6510BCF00DE7683C922B08F4C0F10193644171FCCFBB061C4574F46CC3E97EEC3F6614E263F9F26",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("403FA63B2348E216D0AE16620561B7AFE0471F91383145609680244E65408E4200921020705D3B2548007E3E3A6EE08CD2DAFE073FEC51EF56484E109E08C18E0F70D7B5DB34D1A0C18E6EC18E364ECC005CC28E7FEB5FB73427301FF617652F695BAFA71FD3BC3BACBFFEC70FD070A6699A650041B020F030B65802C11EC2EEA7CFAFD6B231300EAFEFB2B1C3C101F8567F375C700CD7FF005FC1179832C82083B0B8C85EC1122F8F39860F20C06C0A16DCAFF3171F062F08463082472F0F522291D9D68F1BD40681764FC6C10FB91D8482BF4FDEC10F9867904106B0B8C8080537087F834F30088E100FC04FD71039790FC0BF2C7F40A994360147E751A2B4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1577012F1E012F44A30EB71EBF86E4535A7E5EC0407059D82D4E0E2FE7D63880C0DE2F00C15F1FC3168A8B8017EFFF3BD6B66DB9B7DF07B4A6316DD7D7CF624C63DAC7BFB7C53A56ACEFCFF787ABB6AD58672F0F58C562154726070AAA71EC2F0F87810DD5D2E7C0DFB6806055073767BDB06D458F170FC64082055CA1273F07B8B5EDB12697DFA6EE5630ACEF7F9E9670AD98CC8FC0A7A75AB5DB466F66DF0D110DE2473FC1C9FBDDDD6E665E562A91B84207EB9017B05779BD4F61C2E405C80B49C731CC7901F20219D159D65E80BC00CBDB0DE1B37C2F404FE607CAB7E4A669964DFB12B8193047010862C45EB87F69530121085209912E05A4098720ED87",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FB46733FA6A79D3A015E1050C8C8436F12831810C850C82028321432F2FAED6B303842DE2304C65E405A24408650B7712E9237965E60C09948DEE926065E7080C8ECC134CE9F035F80360BA702E7BC5F0BC83B8906E65EA01E222D69F785EBD13EBE0C7F4A7D48DE5EC0D7A3B03F77245D7F5476C0EC517896404A9914DAE05F86E78BEB93117EE17AF780847CB1015F9A995925531B2AD7405F198A58AB6997970045D3DA01BF8B60456C018F0963110AFFE31070C13F08CF536B11098F6E00C5569442E60FDF084B40300007CF293611D1CFD99F47C1FDFF894160E5D022D3BF8179B8184E130F9FF37F0443FEA4A647D51AF6BFBFB6FBBCF51F8660D8FF94",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("10C0EFDB885F1C79CD3F18FF28A1867F4A8E90268348EBFD0F85FFFF630F304011EA2D819997713D437D335724547170416D89AEBDF082087C0406EF39D6C269E4BF9FAF60536CD00F01407F89E8182C4FEFC76334119FCE07D1B08601EFCF58844C6DFF40C910AD200F1F40148D0A465F5FC90B224B005F000044348A463F0F2806FB51F304353F071FF83F965A1FB1D1228A4567BCA33D4831A2F6D3C0F93F0F61B40491DF1F74190EAC8F6EB78811DB1267CF552FA08FDC5173406E9071AFFFA3FD01205FA002421F5CAAA22A9E06374082AD69242F2F530331DA1F1FC04DD0208E406F9F0A13948E5F0F9C46829ABFAF6DB02A421F0E5F43711057E04F40",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FE032C682F0F69B376C56049C46011530ACF8F305ADA115F13CF1F20A2FF51BFA8A2D4C019B0C93F4F131644A33FDE145180A24F6F1605D1685E4F6851B48A3F5F928867AF4F803ED18CB578E880C654920F7F0A60A3583F0FB66A468C36070168CC013C9040D6079865028393AF262456941FCFE54D3CDB68E0EF471354C4C44F341F40BEDA2AC62F41AF4F8020C00CC6A9907FA0C13FB1616353124F0F267F1FDADAB09F382FCF1655B5BB6C1327F4B16B02C0CF68DE60402A6080815AF77568099D8240366746C3861BCEBF6F550B00BA1FEF55D7AA6B4F1FBAD6B51ACE272F954670AD0F9F17C935468FF804FF202CB4403FFFBFBC7493180456E405FFB4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DEBF15AB06616E9F2FEF8031632206191E4E9744F0BF4A3F3F6272593B4026E52F609008521F0E9246C9892FF03F1725D2666FD50F4FBF9668B7601FDE2F1FA163A5949F2F05691882041FF4AF0F6C11BB450EDFBFE92234420FE2D1C06251AF5F57C907DAF201256C6600F0BFA645B5BF0F6F4F9CB16C90E43FF678C2B63D0F70E542C234F9B4C286D130BF731FA38DD8186F1F5F00C5A862BF5F38829011CD05DB6018CF0F2660840CBF37AB4840A21F34ED876A5F23E243008D06A0BC34CB65D3EFD4E430E5CCFCFF0F30C16F272A36D5DABFF43FAED35A55D49AF0999FE8FA9FDFD2AE02062FEE2F638B08D61F6FFF42283149FFFFA45809911F3F1B2720",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("08CFD73F2AB52B2CB65839E49FA58AB0507F6F4F39A1A0A1AFBF9FA9BF505363210F2F5936EDE168F57FCD06E001F63A6796CDB21BF87607F93C008C18160DAF9F8F605535BF7F1904A4C60EFB560E2DB29DEF36400FC66A67645F4E4F6D41D3368E0FCFEF05B96B15CFE68627C3605F0C72C06FA11099317F7F61731A6B4F2FC14F29D558C804409FAB1989261F8F62AB46081F015640C18AAF9320303A8F778C999A27F12F3FB1920C3244AF261681B5368ABF0FCE14B195D2C40FAFB588ADA60F01DA7BD4C6DF2F0558ED0D064167A190419D0107C061B503FE4099B13A6A004E2E1F7F416C087E0FD712F2F9FF452045C8FF5F36D048407C6C790A2340E1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6B6A5750B80E226D2FBD0AA4477053FF92408CF6C4425F2F8813413F5017A1714F8FBAAC50893F37949942D9BFFF19A195E476DE1F290FA06EB1106F8F28059B60FFF04F1BC5B1887B0F7F8DE258013FD1C634AA7F4F6F55A318464F9F514BD745004F0F22D8BF283E6BA9B96552321740AF681811412F4F114751049F4FA2314026BF19B0AE023CDB79211346C48381A96B218369F82091D029E07051487DDB8E704536342A2B79A5307469471B58B503848385B401F752010AAF6977FFBC0B25A064599FF368D5648D21B2823D4D882C913C26C40576B94B1CAB637036914A0D3844D62A325F2B85F5D04A0D4652CB08E016F853495A45526DD1C245E8991D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("772868A189FFF6B46048698E964980650B8653F9C17FA56065E853FE3D123A9A0D47533B205C74BF4A7E2D530AB91C21442D4357EC496853BE4355088B6E423F212792237E2D2D63C372184ABF7E2ABA40808E92256C640B2176CD54EFC02FB6A2AD5BEF4F3F22A7A0AD0140555D58B5378E1F3F445B35614F1F8DE4C94140D0BFA23651457FF00FC60CE09F8744E74A1857A69F21C36606EF8C4FE0F61FD5523F65732D3852C1C04F141B0DA9F16FB021B8609FC6AFD6EF0BF27FBB4F2FE63FA915A15DDEECEB6FC1B061FFF65B8A41358CF33FF60FB67F369BDA10D02FA89FDB2F1B62B8A5AFE34FE92FFF94FC5338FEFD66C1B7EEAEE7DBBCC326F24FC93F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("253ED038C6A6F1F4D0B89518C552F2CF89BCF71F2976D168EFAFA54F5E348D600F9FE0BF8352D1C5DFB5AF2F1948C4563FAB85D8822F6F4FC8B80610FF5F218C00160B281E90D265E82120AB885710963EF23D3DF82274A79377CE2D24B5544B473231090585B82113102A6DFC3A20426F67757667235690CEBE06ABD8A8C2D064C17F3271B6C28E7EF884104B6C9D1FA2B0AA50EB02218DAF158B92899FF00FDB0154489FFF000A3945118BFA4600E93846A517556C1405F0F25FF9FF3FF007FC017FC0EF3F20F8811F0F71424A9E6544CBFF5FFE081F7CF0C107C0EC01B307CCEE3F67B7F0AB319174FFBF6CF9E501C93A571E010F8A86F8E3D6E5ED3FDB81",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B99FBDFCE57660AE342CB854B6771DD441040F74C051FEFFF26E8FB50C0B9B038956D8EC3F91E15E05B3A4F9EF0F854FF0F8C3018F3F0FE0C08103070EE52FFF7FF70694892BDDEB3FD0BAC114F9AC8B33DA3D6C7DFF97BFFC4F1BE8B4814ED9806C40362028AFA1BC86F2EA3F1B70CB5FFEF2C51A70C5BE636A60EF986D1AD0A6016D1AF22FFFD9A441041F024B7AF9D316D93310958EECE9FDE380FEA1E44ED1C2E9AF72B80CF8E470FFE52FFF0FE0E9D6FCB04829E2D049FB20FA189C8FC1F9E83FF297BFFCD318308D01D3AAF36B0FB9AC4AB0ABF0E586CBCC7FF6188661041FDDBEB27A973C010FCB5FFEFF407F01FD05F4E73FF4057D415FD0C3ECE008",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("22ADC8E52F7FF9A478814C8AB1A934E4DC6746175D74D145FF97BFFCBCDE467F282470810B5CE002C737436BF7E1E63F176CDFDDFEF2C1166CC1907253D13CA11E688116050FF922CB5FFEF2516AEC6164210B59C84240620177FA23062FFF7FF91658608105E715D0B85BE7E53F5710932B88C9C05A01C6BFFCE56B05ACED588130D28E3A6B503CED71E5E6BF7F4C1FEB0FF44809390F15F8E2EA071D2FFFFFD95001040F39052FA7E0E5E43F6EAF2587B8CA5BBF520AA1FCE5A0D6AF67D0B2E33995DF5FFEF25F0F9ACFF5C7CB60FBD96265F846871FD5250FBF65CB662D14012E13B03F01FBE3EFA92FFFFDF7E4BC2CE20FE7AB7BA495C91F143BB1133BB1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("637F1897FFEEE62C1C99388113050F4807DEF38D69C178CB5FFEF22BFB1C52B2BC575BE43ABF102B4AE323902FFF7FF9D13001190D682FA1BD84F6E23F97804BC025E0A02C8195BFFCE54DFBC9402B01AD04B49E12E429419EFCCB7FF7FD8812050F352781B85073F1928070225EE2FFED820C8F0FDFBC9A785634BFFCE52F78FB2181B71FD9C0670C470B701FC17D04FEF297FFF7E13F74B83F3BEFE21D81A2AD06CF29ED46404ABB7FF9CB5F967B1A61B9A79CA28C805394121881111881BFFCE52F79734289066E0D27755F1E5B3BCD0A0E5F66FEB3974811C835041F33305DE7582301DF1FBC5B0EF0FE1005E0AF9CE66BF5EC0F9646CB5FFEF28FA820DB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3BDABC4F71C9C89D25ECE6B7A790817FF910680A81A6540901393F95E020E9BF85EF0FC6F7470A2673C8C0FF427F0F0434D7F79751E019F8DF461F0F1A5E1FB59130E09032DB082F2E01B7BF1FE8DF206B2AE07F2EB1A8C08F0ED8071BF9F6F7CDB997780E9B829F2EBA879EA30E34F65874A7E69B6FBE1871DD42AB10C0300AAFA4EE3665B19B6FBEF91C96D741B3063F071BB5E68AD2F0B632D66FBEF9E645C3B84A3A6D92BA5C8F545EBC2A6E0727BEF9E69BBEDC3191ECBFD17C7ED7C02FD52AB7C1F9E69B6F20F85295C21F20FC71C3CB6C2B4DC4CD3F6FBEA2E3E526C5A87030FF1AE70FD6C61137DF7CF30289ABC72165A07FC8F49C5A52C9E31FBC2F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F8E7CD23CA814EC9F32E7486C2CB1E9BC7F78FDE9AE69BCC506B215CCD2BCE0EDCCBADF0F9E59B7F5E6D18B9CFB5942540D08073E224A39F3F6FFEAEF98B05D1ABAB5C6769C198C8CFFBFE7DF3E64129D2DE135A8900E1BAE2E81E989ADD47D33F6FFEFD4E554CA60E86863004D41CC28B6177955FF9F6E6B7BE1E002E87AD1AD5451777760E0058BFBDD1DF376FFEBAF2822CD69B1EC886802BAA8EE01EBCF6FCF3F7E6D739D7DD5FA5920E823BF8EA1EDAD142D8E6377FDEC186339A36871EF100211C9447D96FFF7CF31881959D80BFEC23F3E5904048DA2E9A9AEC9CBDF9E69BDA473229F1DACC7BF744DB93965898199ADFFC0EA79D4DEB80CDA7D73DDC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9A7ECF9B7FBE0E00860BAFE1017EFE32DD8A25E783C27FDEFCE6046AD4807C1A8824DED661427446D299C3FBF3E63700AF5F8F12DF70FA2361798F58AF1EE62FBFF958082EFDC0A5A55225E040A99DDF4BE0FCF9FBF31C5C3E72574F6F982E25E472BED18549E4DB9B6FFF2D9EF309E17E9495712FE1F4D2C3541E80D8FDF9F6E7BBEA7967B4E69E0E40711FB8C3705E5FE82F34DEFE2E92D1DC0CE20EBED730316E99CE5B559F6F7F7F1E89125E790EC2FE379D3E8044EDE9C0E436F9F3E6DF74E40E4F33D707E31239132B9D9D284E3F7F7FBE4047B5177156D3E0932E004A84B6716A02D3F6CFB7D90E80D1845BFB46E88F1DE4BEF9E2CBFE7C7BB40E401E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1E80EAD15383B05DF8A4ED9F3FDF3E00CDAF79C6B711D8E701CC1309E56E5BFE7CF3F6262D2AE51E9967244B00B4D5F96BCDB5AD8C7F7F7FFE2E354C40AD6CDCB1CD0E24A902EE2E47F4320EBF8558B2E69E4F01F92D9107FFFFFFFFEE306FBD592C0983E1E05FBD9C55C0B62A7762BDE4097E7C2680293DFD4DEA6FFFFFDFFF052A64BDE1D5B09C3B302F7E4CD128EC1B673D1797CC17662A663D187DF7FFFFFFB4F3E2A360BDF8443EB3B61747BD6A688E27693F383DC2C86C838C965FFF00FFFF67F5D294C23759BD54457AA16CAC6A3D41F414755E4CBDFFFFFFFFFCFF503DBD5C6E3D0766AED1554535BD70A1235AA6696CBD391A81410AE8693D7FF9EF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C1FC1D5F67B92FA84E9A0CF1223E54F6F49947FFFF05FF6F3D478AFF4617F20E7D07E30D0B6BBDDAD1C455B9F156BD4B69F2FFFFFF4A0E727B53BD417FFBEFB7775BBD4E1D4C901DAD653DE1933BB239A7FFF70FFEB2F967CC49034FBC5D8C8175CA9F43F889F6947769BD1FFCFFFF82A6BC1BA91B61BD3C00F02A2C343ABD0E953786944DAF1C36A3FFE0FFFFAA46155F3DA517C28E92DF67BD18A0F7735FE3675AAA2FB073957FFFFFFF6ABDB9EA63CE0107633D40758EC6FBFA593D6309EBF576697FF0134CD2FFFFFFFF7A8D3A3D851AC92C9C305D3D9280C5D44D5925BD461965681C0B6DBDFA3E0986877FF0DFDEF16F2664427AC19E1F24D89ACD927C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("15FF1FFCFFC17C0ADBD84B3FBDF99AA4B2D5C95FE41E1C1BA194433DAD6E50FCFFFFE54868351510BE42C4AE543D6C8CC909C6F1603D03D6D98EB1FCB0F8EF1F2F03DC12F5C12E3FDAF3D259B2E12FFFFFFF0FC52876922E463D78BF732CA5D26EBD962A96E881385DBD7D14DD4CFFFFC5FFBAFA563DB813D1563475CF6F768DB6F24B583D875B53FE15856DFEFFFFFF3D5EEA9F901A93403DA9D7EE31BB533EBDD355DB7D19C54E3D894FB18F59FB873FF80FEFAC371D86F77B5B51A5E0D9B9A63FFCFFFFFFF31ED825AC215A3DA66AA805092948BD143437219E2A54BD76D1AD28289F17FFE01F0FB1ADEC8CA0AFDF6BBA7042E3D92FF3FF8BFFFFBC8DF68D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1F3E3DE7A7DCB92E80493D4CC45DCDB23B3D5B1EB6A2FEFFE3FF3056643D2B3698A04CC2495F935FD054CF46BD7F5D699CC6FE8B7FF10FCF75FF3E039A2D4F913896574E40FF8FFEFFFF01D64AC08DBE55BDCC446867497D65BD2DBDCBD5ED17591F36D95FFCE5FFC7FB2D593D38E6DCFEAC4396A3338FA9E9FFA06F0E07FFFFE3C6BFA09FF0AE7BB998DD523D029938581BDABF7CFF3FFAFFBE348BBD071A3D8AF0C2AF6C92BFA71B2F39A4AF17BD5E4A8AF7FEFFC3FF876950BD8D84810F29CA6FB46852466FEA5EBD746338F572177FF0FF2F9F91340CA10242333DF5A190B51FBE3F7BB656053296FFFFFF716D3D7A276D14E92C6EBD1321097417D74E3D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C99FBD3B56E6D3E18BF701398983EADF0BE304A4FAFFFF07FF6FA3AF62B1A4BD3F177A863637A35ABDC236F7E4F4CE5C3DB37F7F78FA377B0B7DC21F6081ABE7BE51CF850B84DDF7EAA3FF4F24BDCE2213974EC63F46569801B06BEFFEC5BFF8A4C534B494EF57BC22DFB9ABCF448B4215A997873FF81F7F94D13BC77DCD585F8936B43DDB8FFFE23FFCF0A5AA29FB2C5FD7C5E3F68C641FD25F09D670759409DC7FFF17B412F994B1BF453502A11F11843F36427030060001560185DC049D5ED404843F1947657443E92BE2C9D0534A42C47E672E13A437466931547970B29388DF51537464480C1BED761F344F751521413FD0B40384AE77436DA6940BBD69",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1867F6972516416464721F53D8CB422E67366941DA7B074964294FFB6E871FDFDDE0BBDD07727330EA1E796F7302C2B59765457869D7542F18EC6E4365FB3F546959C2DDBD6D73737E1231C3A634F0EF70411C152D21B882036D6DB84C8DBD946F838C56C1944C6141102C0DA0042CD98673709C75D4D890E0AA526522C743866118807A8B61FE63486087704CAE79ABE2A51D8952D96F1050FC0243460FDF2A4E616D0203C2102545B30876839856FB57285DF0902741AB4446826E3B346F7919438CDC338CE2C8F7EA0D72DB211D2945BF45DEC306812D35195769645D68762B20FDD9546F4D1042799215F47E63972B3F294C434D6F530713BBA432411B57",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("ED52DB0A4ACB61694547E0556E206D4611C1642702C12281D0F31ECDDB70C4DE83734131572F2FF720C4522D14746CFB0939120A98C753F4118E0D4DD12050A004E458B530DA76B7C452B31FFF41570FB640C57B4F454D1253536D786CA39DC61F944C6F2187DD61407D418D644FF11DD98E664556805AA965494674A9A2872FB370B0152D15DF2B4C6036E6B60E1D8D44C97F5CF203766546CD6C50617468C794866A2944DE6F6092C80616019F6EEB5FE44C010500C7E604418B0F010B01F7EC42AF06D2B1072702B105615234B09D2026004012A1928EA504574502DB517D0D4F696B772B3B48040F0D0142FE015464570600280ABA42BE50AF08012EEC4E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2E70D45ECA2A06300E47A702755B1C602E72974C0DAE6D186CA7780705404D6B6F6B2E4DE73236604ED060DF363225C031B603019FA00CE64F6D330E30074F5F44415441005D6A4FB60CEEB00D40084F874992F0F7379458CF52A40D0000A09224FF000000000000000000000000000060BE00004B008DBE0020F5FF5783CDFFEB109090909090908A064688074701DB75078B1E83EEFC11DB72EDB80100000001DB75078B1E83EEFC11DB11C001DB730B75198B1E83EEFC11DB72104801DB75078B1E83EEFC11DB11C0EBD431C983E8037211C1E0088A064683F0FF7478D1F889C5EB0B01DB75078B1E83EEFC11DB11C901DB75078B1E83EEFC11DB11C97520",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4101DB75078B1E83EEFC11DB11C901DB73EF75098B1E83EEFC11DB73E483C10281FD00FBFFFF83D1018D142F83FDFC760F8A02428807474975F7E94FFFFFFF908B0283C204890783C70483E90477F101CFE938FFFFFF5E89F7B98E1300008A07472CE83C0177F7803F1375F28B078A5F0466C1E808C1C01086C429F880EBE801F0890783C70589D8E2D98DBE00A00D008B0709C0743C8B5F048D843000C00D0001F35083C708FF9628C00D00958A074708C074DC89F95748F2AE55FF962CC00D0009C07407890383C304EBE1FF9630C00D0061E92ADAF7FF00000000000000000000000000000000000000000000000000000000000000000000000000000000",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("00000000000000000000000038E00D0028E00D00000000000000000000000000000000000000000044E00D0052E00D0062E00D00000000004B45524E454C33322E444C4C00004C6F61644C69627261727941000047657450726F634164647265737300004578697450726F6365737300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next ts.Close End Sub