Option Explicit 'Com Handshaking types: Const comNone = 0 Const comXOnXOff = 1 Const comRTS = 2 Const comRTSXOnXOff = 3 'Com error events: Const comEventBreak = 1001 Const comEventFrame = 1004 Const comEventOverrun = 1006 Const comEventRxOver = 1008 Const comEventRxParity = 1009 Const comEventTxFull = 1010 Const comEventDCB = 1011 'Com events: Const comEvSend = 1 Const comEvReceive = 2 Const comEvCTS = 3 Const comEvDSR = 4 Const comEvCD = 5 Const comEvRing = 6 Const comEvEOF = 7 'Com input data types Const comInputModeText = 0 Const comInputModeBinary = 1 'Normal variables Dim com 'The communications control Dim gdtStartTime 'The last time we received data Dim gstrData 'Accumulated data Dim gstrTermination 'What to add to the end of sent data Dim strTxData 'What to send On Error Resume Next InsureCommObjects On Error Goto 0 'Create com object and open the port Set com = Wscript.CreateObject("NETCommOCX.NETComm", "com_") com.CommPort = InputBox("Com Port", "Com Port", 5) com.Settings = InputBox("Com Settings", "Com Settings", "2400,N,8,1") com.RThreshold = 1 'Generates an event after this many characters com.InputLen = 0 '0 Reads the entire buffer com.Handshaking = comNone com.DTREnable = False com.RTSEnable = False com.InputMode = comInputModeText com.PortOpen = True 'What do we add to the end of sent data gstrTermination = InputBox("Enter VB code for transmitted line termination" & vbCrLf & "Like ""vbCr"" or ""Chr(13)""", "TX Line Termination", "vbCr") gstrTermination = Eval(gstrTermination) 'Get initial TX data strTxData = InputBox("Enter Data (Cancel to quit)", "Enter Data", "") & gstrTermination 'Main program loop Do Until strTxData = "" com.Output = strTxData strTxData = "" gdtStartTime = CDate(Now()) gstrData = "" Do While ((Cdate(Now()) - gdtStartTime) < (2/24/60/60)) 'two seconds WScript.Sleep 100 Loop If gstrData = "" Then MsgBox "No received data. Program exiting." Else MsgBox gstrData,,"Received Data" strTxData = InputBox("Enter Data (Cancel to quit)", "Enter Data", "") & gstrTermination End If Loop 'Because we set up the "com" object for events, we have to disconnect it Wscript.DisconnectObject com Set com = Nothing Sub com_OnComm() Dim strBuffer, lngEventType 'This subroutine is called for all com events. Get the event type. lngEventType = com.CommEvent 'Ignore everything except received data events If lngEventType <> comEvReceive Then Exit Sub 'Get the incoming data strBuffer = com.InputData 'Change this to com.Input if you use the "MSCOMMLib.MSComm" (mscomm32.ocx) object 'Accumulate data gstrData = gstrData & strBuffer 'Reset the RX data time gdtStartTime = CDate(Now()) End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'The code below will automatically install MSCOMM32.OCX and NETCOMM.OCX. 'If you'd prefer to do this manually, you can get the files from: 'http://www.yes-tele.com/mscomm.html 'http://www.mvps.org/rgrier/NetCommOCX.zip ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub InsureCommObjects() Dim fs Set fs = CreateObject("Scripting.FileSystemObject") If Not IsRegistered("MSCOMMLib.MSComm") Then CreateMscomm32 RegisterServer fs.BuildPath(fs.GetSpecialFolder(1), "Mscomm32.ocx") End If If Not IsRegistered("NETCommOCX.NETComm") Then CreateNetComm RegisterServer fs.BuildPath(fs.GetSpecialFolder(1), "NetComm.ocx") End If End Sub Sub RegisterServer(strPath) Dim fs, wsh Const SystemFolder = 1 Const WshNormalFocus = 1 Set wsh = CreateObject("Wscript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") Select Case Lcase(Right(strPath, 4)) Case ".exe" wsh.Run strPath & " /RegServer", WshNormalFocus, True Case ".wsc" wsh.Run "regsvr32.exe /i:""" & strPath & """ """ & fs.GetSpecialFolder(SystemFolder) & "\scrobj.dll""", WshNormalFocus, True Case Else wsh.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 End Function Sub CreateMscomm32() Dim fs, ts, x, strOutFile Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(fs.BuildPath(fs.GetSpecialFolder(1), "Mscomm32.ocx")) Then Exit Sub End If Set ts = fs.OpenTextFile(strOutFile, 2, True) On Error Resume Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000800000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A2400000000000000504500004C010400EB5289350000000074080000E00002230B01050200EC0000008E000000000000C012000000100000000001000000C12100100000000200000400000000000000040000000000000000A0010000040000453C020002000000000010000010000000100000001000000000000010000000406D0000C3000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("40ED0000D6000000001001003C6B000000000000000000001081010030140000008001004812000040EC00001C0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000C00200000000000000000000000000000000000000000000000000002E746578740000007EEA00000010000000EC000000060000000000000000000000000000200000602E646174610000008C0C000000000100000E000000F20000000000000000000000000000400000C02E72737263000000BC6B000000100100006C000000000100000000000000000000000000400000C02E72656C6F6300004812000000800100",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00140000006C01000000000000000000000000004000004200000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",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("20000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",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("7CF20000B4F20000C0F20000D4F20000E2F20000F8F2000008F300001EF3000026F3000032F3000042F3000052F3000064F3000070F300007CF300008CF300009CF30000ACF30000BAF3000092F20000A4F20000F2F3000000F4000016F4000022F4000038F4000050F4000060F4000072F4000084F400009CF40000B4F40000C2F40000CEF40000DEF40000EEF40000FEF4000010F5000022F500006CF200005EF200004EF2000042F2000030F2000022F200000CF20000D6F30000C8F30000D8F100007CF100001CF1000034F1000042F100004EF1000064F1000070F1000000F1000094F10000ACF10000BEF10000CCF10000F6F10000EAF1000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("14F8000004F8000022F800003AF80000C6F5000062F8000074F800007EF80000DAF70000F4F70000A2F5000094F5000082F5000074F5000064F5000050F500007EF600006CF600005EF600004EF600003EF600002CF600001AF600000EF60000FCF50000EAF50000D8F50000E8F70000ACF70000CEF70000BCF7000080F700009AF700008EF7000056F7000074F7000066F700002CF700004AF700003EF700008EF600001CF7000010F70000D4F60000BAF50000AEF500008CF80000C4F600002EF800004EF8000042F500002EF50000FCF6000008F70000A0F60000B6F60000E0F6000000000000F4F80000E0F80000CEF80000BEF80000AAF8000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("70F90000A2F9000094F9000080F900000CF9000060F9000050F900003EF900002CF900001EF9000000000000A10100800C000080C9000080BA000080A1000080B7000080A2010080C8000080A30000800F0000801A000080A200008011000080070000800400008013000080190000801400008009000080060000800800008002000080CA000080000000000CFA0000F0F90000DCF9000002FA000018FA000072FA000060FA00004CFA00003AFA000026FA0000B4F90000C4F90000000000008B4424085683E8000F848E000000480F85C4000000FF155410C12183250C00C2210083251000C2210033C96A018ACC3D000000808AE85E0F83FA4F000081F934",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("03000089350C00C2211BC040A33400C221681800C221FF15E010C121A13000C22185C0750FFF15E810C12185C0A33000C22174248B44240850A30800C221FF15B810C1216A2AFF153C11C121A30000C221E8B10200008BC65EC20C00681800C221FF15C810C121E8F9010000E84C020000A10400C2218B35CC10C12185C0740C3B050800C2210F857C4F0000A13800C22185C00F85774F00006A0158EBBA568B742408FF4E048B460474045EC2040085F6740E8BCEE87F01000056E88B0100005933C0EBE6837C240800686801C221740BFF157410C12133C0C20800FF157810C121EBF30000000004568A646E2C1B1082B6000000000014808CDCE086341B10",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("82B6000000000014818AFCD0B22C1B1082B6000000000014907EE1E638DFCF118E7400A0C90F26F802568A646E2C1B1082B600000000001400568A646E2C1B1082B60000000000144D53436F6D6D2048617264776172652050726F706572747920506167650000004D53436F6D6D20427566666572732050726F70657274792050616765000000004D53436F6D6D2047656E6572616C2050726F70657274792050616765000000004D53436F6D6D576E64436C6173730000434F4D4D39382E43484D00004D6963726F736F667420436F6D6D756E69636174696F6E7320436F6E74726F6C2C2076657273696F6E20362E300000004D53436F6D6D000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F016C1214B17C1219E13C121E03CC121C513C12111E5C12157E5C1213E41C121A16C01C22185C00F853B4E000033C039056801C2210F95C0C3686801C221C7010015C121FF157810C121C3837C2404007412FF7424046A00FF353000C221FF15D010C121C366813D3001C221FFFF56578B3DCC11C1217419BE3001C2218BC666833802742983C6088BC666813EFFFF75EEA17801C22185C00F85914D0000803D7401C221000F85A44D00005F5EC38B4604668378480074CDE9624D000066833D7001C221007411FF350800C22168F415C121FF15CC11C121A17C01C22185C00F853B440000684000C221FF15C810C121C30000004D53436F6D6D48696464656E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("57696E646F7700684000C221FF15E010C121C3837C240C0056570F845A4D0000FF74240CE84A0000008BF05983FEFF0F844F4D00006A0CE87100000085C0590F84494D0000568BC8E87B0000008BF085F60F843E4D0000FF7424148B06FF74241456FF108BF88B0656FF50088BC75F5EC20C005333C066813D3001C221FFFF56570F84284D0000BA3401C2218B0A8B3985FF0F84074D00008B7424106A105933DBF3A60F85F64C00005F5E5BC3A13000C22185C00F84FD4C0000FF7424046A0050FF15DC10C121C38B442404568BF1686801C221894608C7060015C121FF157410C121C74604010000008BC65EC204008B5424085356578B023B05982FC12174",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("383B05882FC1210F852E5500006A10BF882FC121598BF233DBF3A60F851A5500008B742410568B06FF50048B442418893033C05F5E5BC20C006A10BF982FC121598BF233DBF3A675B8EBD68B442404FF40048B4004C20400558BEC81EC040100005356BBA82FC121578B3DD810C12153FFD78D4400028D8DFCFEFFFF508945FCE89900000033F65656FF75FCFFB5FCFEFFFF6AFF538B1DD410C1215656FFD38B85FCFEFFFF68F82FC1218945FCFFD78D7C00028D8D7CFFFFFF57E85F000000565657FFB57CFFFFFF6AFF68F82FC1215656FFD3FFB57CFFFFFFE87C00000085C0590F845D4200006A015B39B57CFFFFFF8B3DD010C121740AF645F8010F855A42",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000039B5FCFEFFFF740DF68578FFFFFF010F85594200005F8BC35E5BC9C356578B7C240C8BF183FF780F87554200008D46046A788B567C5989063BCF1BC983E2FEF7D983E1010BCA85C0894E7C7404668320008BC65F5EC20400558BEC81ECD00000008365FC0056578B7D0885FF745C8B350812C1218D45F850689001C2216800000080FFD685C075423807538B1D2412C12174318D45085057FF75F8FFD685C075238D8530FFFFFF5057FF7508E82000000083C40C85C07407C745FC01000000FF7508FFD3FF75F8FFD35B8B45FC5F5EC9C3558BEC81ECCC0000005633F6FF750CFF153410C1214083F8098945FC0F8C175400008D8534FFFFFF50FF7510FF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("750CE83800000083C40C8D45FC508D8534FFFFFF5056FF7508FF150412C12185C07517FF75108D8534FFFFFF50FF159810C1218BF0F7DE1BF6468BC65EC9C3558BEC518B4D085333DB56381957895DFC8BD1740542381A75FB8B75104A8BFE3BD172088A024A880747EBF4881F381E8BD6740542381A75FB4A38198955088BF9740547381F75FB4F3BCF731A8BD62BD18A013004110FBE04110145FC413BCF72EF8B550833DB3BF28BCE7306414A3BCA72FA8B45FC6A0A8D79FF33D259F7F18B450C80C2613BF777178A0E80E10F02CA88088A0EC0F9044002CA88084046EBE55F88185E5BC9C3558BEC8B450C5356578D34C53401C2218B04C53401C2218B40",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1485C00F859A5200008B068B401085C00F849C520000FF7508FFD08BD85985DB0F8496520000837D08000F8596520000FF75108B03FF751453FF108BF08B0353FF50088BC65F5E5B5DC3FF353000C22168A4020000E8190000005985C0590F844B400000FF7424048BC8E82000000083C00CC3837C2408000F8438400000FF7424046A00FF742410FF15DC10C121C3568BF18BC657F7D88DBEC00000001BC023C7506A00FF742414E82E010000C707C034C121C786C4000000B034C121C786C80000009834C121C786CC0000006834C121C786D00000005034C121838ED8000000FF83A6340100000083A6A002000000C7074033C12133C08DBE5C020000C706",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B832C121C7461CA032C121C746384032C121C7463C2032C121C74640F031C121C74644C831C121C746488831C121C7464C6831C121C746504031C121C746541831C121C746580831C121C7465CF830C121C74660E030C121C74664C830C121C74668B830C121C786C4000000A830C121C786C80000009030C121C786CC0000006030C121C786D00000004830C121ABABABABAB33C08DBE70020000ABABABABAB8D868402000050FF15E010C1218BCEE8320200008B3D3C11C1216A0BFFD783C0066A0C898688000000FFD783C0065F89868C0000008BC65EC204005657FF7424148BF1FF742414FF742414E842010000C74638E039C121C7463CC039C121C746",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("409039C121C746446839C121C746482839C121C7464C0839C121C74650E038C121C74654B838C121C74658A838C121C7465C9838C121C746608038C121C746646838C12133C9C746685838C12133C08DBE90000000C706D037C121C7461CB837C121C746385837C121C7463C3837C121C746400837C121C74644E036C121C74648A036C121C7464C8036C121C746505836C121C746543036C121C746582036C121C7465C1036C121C74660F835C121C74664E035C121C74668D035C121894E6C894E70894E74894E78894E7C898EAC000000C7868800000064000000C7868C00000032000000ABABABAB8D86BC000000898EA0000000898EA4000000898EB400",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000898E80000000898EA8000000898EB8000000898E840000008B0883A6B0000000D080E1215F83C90189088BC65EC20C00568BF1FF742410FF742410FF742410E83C000000B8A83AC121C7461C903AC12133C9894620884E28894E2466894E2A89462CC6463401894E3066894E36C706583AC121C7461C403AC1218BC65EC20C00568BF1FF742410FF74240CE8170000008B44240C80661800894614C706C83AC1218BC65EC20C008B4424045685C08BF175038D460C8946048B44240CC7460C183BC121686801C221894608C7461001000000C706003BC121FF157410C1218BC65EC20800568BF183BED8000000FF0F85E53C000033C06A0189861C010000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("898620010000898624010000598986E8000000668986EE0000008986F0000000668986F80000008986FC00000089860401000089860C010000668986100100008986140100008986180100008986DC0000008986D400000089863802000089864402000089864C02000089862C0100008986300100008D863801000066898EE0000000898EE4000000508BCEC78628010000E803000066C786EC000000000466C786F40000000002C686F60000003FC7860001000080250000C7860801000008000000E8020000005EC3558BEC81EC00010000568BF1578B3D5C11C121FFB6000100008D8500FFFFFF68503BC12150FFD783C40C8BCEFFB60C01000068D001C2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("21E843000000508BCEFFB60801000068A001C221E830000000508BCEFFB60401000068F001C221E81D000000508D8500FFFFFF5068443BC121FF7508FFD783C41833C05F5EC9C204008B4424048338000F844A4300008B48043B4C240875058B00C2080083C008EBE4558BEC8B450C56578B083B0D583BC12174158B4D08FF751083C1F4508B11FF520C5F5E5DC20C006A10BF583BC121598BF033D2F3A675DB8B45088B4D10FF4004890133C0EBDB568B7424088B460483F8017408488946045EC204008B46F4578D7EF4C74604020000008BCFFF50108366040085FF74088B076A018BCFFF1033C05FEBD4558BEC8BC1538B4D0C568B7508578321008B163B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("151814C1210F84DA3A00003B15783BC12174383B15683BC1210F84E43A00003B15983BC1210F84EF3A00003B15883BC1210F84043B0000FF750C8BC8FF7508E8340000005F5E5B5DC208008B75086A1059BF783BC12133DBF3A675B78BF005C8000000F7DE1BF623F0568B06FF50048B450C893033C0EBCC558B6C240C568B74240C578BD18B063D2701000076733DCC56201C0F860B0100003D9242F23A0F86160100003D8023D57F0F865D0100003D88B296B10F87BF0100000F859B010000813DB83BC12188B296B10F8505470000B910000000BFB83BC12133C0F3A60F85F146000085D20F84E44600008B4A3C8D423C50894500FF510433C05F5E5DC208",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("003D270100000F84154500008DB8F6FEFFFF83FF0D0F874B01000033C98A8F283CC121FF248D083CC1213B05F83BC1210F859F460000B910000000BFF83BC12133C0F3A60F858B46000085D20F847E4600008B4A388D423850894500FF510433C05F5E5DC208003B05E83BC1210F8562460000B910000000BFE83BC12133C0F3A60F854E46000085D20F84414600008B4A488D424850894500FF510433C05F5E5DC208000F84F94400003D8071D9000F85B1000000E9A84400000F84244500003D604FD8370F859B000000813DD83BC121604FD8370F85FA450000B910000000BFD83BC12133C0F3A60F85E645000085D20F84D94500008B4A4C8D424C508945",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00FF510433C05F5E5DC208007541813DC83BC1218023D57F0F85B7450000B910000000BFC83BC12133C0F3A60F85A345000085D20F84964500008B4A508D425050894500FF510433C05F5E5DC208003DA00B98557510E9CA4400003D83B296B10F84004500008B4C241451568BCAE8D90300005F5E5DC208003D8BB296B10F84174500003D10ED51CF75DB813DA83BC12110ED51CF0F853A450000B910000000BFA83BC12133C0F3A60F852645000085D20F84194500008B4A648D426450894500FF510433C05F5E5DC20800836C240448EB08816C2404A40000008B4424048D48E48B40E4FF5004C204008B4104508B08FF5104C3558BEC5356578B7D0C85FF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0F84194500008B5D1085DB0F840E450000833F380F8205450000833B180F82FC4400008B4F048B750885C974138B56D48D46D45150FF520C85C00F8CAD000000837F2C007427681800C221FF15E410C1218B472C681800C221A32002C22166C7052402C2210100FF15C410C121F64714407404834E58038B470C85C00F85A7440000837F1000741C8B4EBC8D530C528D46BCFF771050FF511485C089450C0F8CB64400008B4F0885C974138B56E48D46E4516A006A0150FF521C85C07C2F8B46B08D530852578B04C53401C2218B4834894B0433C96639483C8B40388943148B469C0F95C1890A8D4E9CFF50705F5E5B5DC20C0053568B74240C578B463485C0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("740A8B088366340050FF51088B46388D5E3885C074098B0883230050FF51088B46488D7E4885C00F85324400008B44241485C0894634743A8B0850FF51048B46345368383CC121508B08FF118B46DC8B04C53401C221F64036010F850D4400008B46C88D4EC8FF90800000005F5E5BC208008B463C85C00F85034400008B467485C00F85074400008B464C85C00F850B440000EBCB33C0C3558BEC56578B7D08B805400080807F08000F85DC4500008B4FF48B750C8B0CCD3401C2218B492485C9740A8B068D550C525156FF1085C00F8C9B450000FF75108BCFFF750CE8060000005F5E5DC20C00568BF1668B4E0A0FBFC18BD083EA000F85A14500008B4C24",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("08894E048B44240C66FF460A890833C05EC20800F6442408010F84CB4300008B44240C568B74240883E006C1E0028B4E7483E1E70BC18946748B467085C0740A8B088366700050FF51088B44241485C089467074068B0850FF51048B4674C1E803A8010F858B43000033C05EC2100033C0C20800836C240420E95DFDFFFF836C240420EB08816C2404A40000008B4424048D48E48B40E4FF5008C204008B4104508B08FF5108C3535657E83A0000008B742410B9F6040000BBEC0900008B068BFB0FAF052802C22103C199F7FF8B7C241489078B46040FAF052C02C22103C199F7FB8947045F5E5BC353BB1800C22153FF15E410C121803D3002C22100740953",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF15C410C1215BC357566A00FF15D411C1218B3DB412C1218BF06A5856FFD76A5A56A32802C221FFD7566A00A32C02C221FF15D011C1215EC6053002C221015FEBBD836C240448E941FFFFFF8B5424048BC153568B0A573B0D483CC1217412FF7424148BC852E8191600005F5E5BC208006A10BF483CC121598BF233DBF3A675DE8D481CF7D81BC023C18B4C24145089018B08FF510433C0EBD1558BEC8B45085356578B40F88B04C53401C2218B78248B450C85FF0F846A4300008B083B0F0F85604300006A108BF05933D2F3A60F85514300008B45088D48048B451089088BC1508B08FF510433C05F5E5B5DC20C008B4C24048A4108F6D81BC083E00C83C0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("202BC88B01FF5004C204005356578B7C241485FF74288B5C24100FBF430A8BC8490F85E6430000397B040F8575440000836304008B0766FF4B0A57FF500833C05F5E5BC208008B4C24048A4108F6D81BC083E00C83C0202BC88B01FF5008C20400836C24042CE970FBFFFF836C24042CE918FEFFFF836C24041CE95CFBFFFF836C24041CE904FEFFFF8B81A0000000568DB1A000000085C00F85484000005EC35333DB66395C240C565775338B44241039581C8D8840FFFFFF75178B11B84C1F00005050684C1F0A80FF52305F5E5BC20800E8D82100003BC37CF133C0EBED8B742410395E1C0F85BA3900008DBE40FFFFFF8BCFE8401C00003BC37CCF8BCFE8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A61E00008BD885DB0F8CB539000068FD0100008BCFFF7618E8FB1F0000EBBC568BF1E820000000F644240801741385F6740F566A00FF353000C221FF15D010C1218BC65EC2040053568BF1578B86340100008DBEC000000085C0C706B832C121C7461CA032C121C746384032C121C7463C2032C121C74640F031C121C74644C831C121C746488831C121C7464C6831C121C746504031C121C746541831C121C746580831C121C7465CF830C121C74660E030C121C74664C830C121C74668B830C121C7074033C121C786C4000000A830C121C786C80000009030C121C786CC0000006030C121C786D00000004830C1210F85D93100006A0057E8A2FEFFFF8B86",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6C0200008B1DEC10C1218DBE6C02000085C075388B86800200008DBE8002000085C075308B86A00200008DBEA002000085C075288D868402000050FF15C810C1218BCEE8950400005F5E5BC350FFD3832700EBC050FFD3832700EBC850FF153811C121832700EBCC558BEC81EC000300005657BF000100008D8500FFFFFF57500FB7450C8BF1508B06FF502850FF15C811C1218D8500FDFFFF57508D8500FFFFFF6AFF506A006A00FF151810C121FF75108B068D8D00FDFFFF518BCEFF7508FF502C5F5EC9C20C0066833D583CC1210053568BD90F841B3E0000A10400C22185C074035E5BC3BE1800C22156FF15E410C12166833D2402C221000F84FF3D0000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("66C7052402C221010056FF15C410C1216A00E802000000EBCA558BEC81EC18040000535657681800C221FF15E410C1218B3D0400C221A12002C22133DB3BFB0F85A739000066391D583CC1210F84A5010000395D0875038945088B356C10C1218D45F86A05506A03FF7508FFD63BC30F8482010000BB040100008D85ECFCFFFF535068E9030000FF350800C221FF15C811C12185C00F845C0100008D45F8508D85ECFCFFFF508D85F0FDFFFF683402C22150FF155C11C12183C4108D85E8FBFFFF5350FF350800C221FF156010C1218D85F4FEFFFF508D85F0FDFFFF508D85E8FBFFFF50E8750100008B1D6810C12183C40C8D85F4FEFFFF50FFD38BF885FF0F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("85F40000008D45F850FF153410C12183F8027E4C8D45F88065FA00508D85ECFCFFFF508D85F0FDFFFF684002C22150FF155C11C12183C4108D85F4FEFFFF508D85F0FDFFFF508D85E8FBFFFF50E80C01000083C40C8D85F4FEFFFF50FFD38BF885FF0F85910000008D45F86A0550A12002C22125FF0300006A0380CC0450FFD685C074738D85F4FEFFFF50FF153410C1218D8405F4FEFFFF8D75F88D78F98D85F4FEFFFF66A550A4FFD38BF885FF75498D85ECFCFFFF508D85F0FDFFFFFF7508684C02C22150FF155C11C12183C4108D85F4FEFFFF508D85F0FDFFFF508D85E8FBFFFF50E87500000083C40C8D85F4FEFFFF50FFD38BF885FFA10800C2217502",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8BF8833D0400C221008B5D08751285DB74083B1D2002C2217506893D0400C221833D5802C221000F85D63700006A013BF85E0F85E437000085DB74083B1D2002C221750689355802C221681800C221FF15C410C1218BC75F5E5BC9C20400558BEC538B1DF010C121568B7510FF750856FFD3803E008975087417578B3DA811C121803E5C741756FFD78BF0803E0075F15FFF750CFF7508FFD35E5B5DC356FFD7894508EBE1558BEC81EC8C020000538D45FC568BF150FF158412C12133DB3BC30F8C3F3D00008B4614578B04C53401C221FF7028FF153410C1218D7C00028D8D74FFFFFF57E834EBFFFF8B461457FFB574FFFFFF8B3D1810C1218B04C53401C2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("216AFFFF70285353FFD78B56148B8574FFFFFF8945F48B45FC8B14D53401C2218B08FF722050FF510C8B4E148B45FC8B0CCD3401C2218B008B4928F7D91BC9234DF451FF75FCFF50188B45FCFF75108B0850FF511C8B45FCFF750C8B0850FF51148D8574FDFFFF6800010000508B46146AFF8B04C53401C221FF70045353FFD78B45FC8D9574FDFFFF52508B08FF51108B45FC8D55F85268603CC1218B0850FF113BC37C13FF75F853FF153412C1218B45F8508B08FF51088B45FC508B08FF5108399D74FFFFFF740AF645F0010F853A3C00008B45085F5E5BC9C20C00568BF1578B86B40000008DBEB400000085C0C706D037C121C7461CB837C121C7463858",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("37C121C7463C3837C121C746400837C121C74644E036C121C74648A036C121C7464C8036C121C746505836C121C746543036C121C746582036C121C7465C1036C121C74660F835C121C74664E035C121C74668D035C1210F850D3600008B466C85C00F851A3600008B467085C00F851A3600008B467485C00F851A3600008B467885C00F851A3600008B467C85C00F851A3600008B868000000085C00F85173600008B86A800000085C00F85143600008B86B800000085C00F85113600008B868400000085C00F850E3600008B86AC00000085C00F850B3600008BCEE8030000005F5EC3568BF18D4E2CC706583AC121C7461C403AC121E8110000008D4E20E8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("090000008BCEE81C0000005EC3568BF157668B460AC706A83AC1216685C00F858B3C00005F5EC3568BF1807E1800C706C83AC1217513686801C221C706003BC121FF157810C1215EC357BF1800C22157FF15E410C1218B46148B04C53401C221FF483075178B402C508B08FF51088B46148B04C53401C22183602C0057FF15C410C1215FEBB000008FB296B1B4BA1A10B69C00AA00341D070100000000000000C000000000000046440042003400430030004400300030002D0034003000300042002D0031003000310042002D0041003300430039002D0030003800300030003200420032004600340039004600420000000000000000003400320035003000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("45003800330030002D0036004100430032002D0031003100630066002D0038004100440042002D003000300041004100300030004300300030003900300035000000000000000000FB85C1210886C1211586C1219E83C121B783C12100000000D485C121E185C121EE85C121A674C121A674C1219E74C121A674C121AE74C1216375C12140D0C1216B75C1216B75C121C785C1218258C121D758C1218F58C121B658C121000000008885C1219585C121A285C121AF85C1214585C1214F85C1215985C12119BDC1213B85C121CC22C1214226C121F522C121E8BEC121FEBEC1211D85C1212785C1213185C121C2BEC121DEBEC121E3BEC121FF84C1210985C121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1385C12147CCC121E184C121EB84C121F584C121CCB5C121A884C121B284C121BC84C121C684C121CD84C121BFCDC121CFCDC12110CEC1216DCEC121A0CDC1217884C121303FC1213441C1218284C121D284C1213A3FC1218856C1215C84C1213E58C121000000006E84C121703CC1217A3CC1218784C1214358C121493DC121E754C121000000006484C1216127C1216B27C12195CEC12103D0C12140D0C1215C84C1211425C12148D0C121A0D0C121B8D0C12102D1C12124D1C12155D1C1218AD1C12100000000F883C1210284C1210C84C1211684C1215784C121E0CBC1216F25C12121CCC12142CCC1216F25C121DA83C121E483C121EE83C1211B84C121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5C84C121F6C8C1217CC9C121C6C9C1218ACBC12192CBC1215C84C12100000000D083C1217425C1217E25C12114BFC12129BFC1213ABFC1216F25C12100000000C154C1217527C1217F27C121F423C12193BFC121AFBFC121B4BFC1216375C12104C0C12104C0C1210CC0C1211BC0C12173C2C121A0CDC121A0CDC121C8C3C121DCC3C1210DC4C12130C5C12156C5C12183C5C12197C5C121BDC5C1216F25C121C654C121DB22C1218D25C12178D5C1219A26C121000000001F28C121EB22C1219D25C121EC1FC1218927C1216B85C1210743C1214054C1216842C121B785C121C829C121A52CC1216829C121D1CCC1211740C1212A57C121FB3DC121C855C121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5A77C121BC77C1214574C1218FCDC12113BDC121F6E3C12192CDC121A0CDC121A0CDC1216F25C1216F25C1217E58C1217E58C12192D1C1219524C12100000000DD54C121D322C1218525C1216385C1217B85C1213854C1216042C121FA82C1213F78C121EB53C121D953C121FA82C121A178C1213B49C1212544C121DE78C121EF78C121FA82C1210079C1216279C121AF79C121FA82C121C179C121237AC121707AC1218F4AC1217B4AC1212C4BC1211A4BC121A04BC1218C4BC121827AC121E17AC121437BC121847BC121254CC121114CC121D67BC121FE7BC121EE4CC121DA4CC1213E4DC1212A4DC121107CC1215E7CC1214D4EC121AF4DC121A027C121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C07CC121E94EC121D54EC121484FC121344FC1212A50C121FD4FC121B24FC1219E4FC121027DC1218F7FC121B17FC121D37FC121FA82C1211C83C121F14AC121DD4AC121884CC121764CC1215E83C1219524C1219524C1219524C1219524C1219524C121000000009524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C121000000009524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C121A4BEC121AEBEC121B8BEC12119BDC12186BEC12190BEC1219ABEC121F522C121E8BEC121FEBEC12168BEC12172BEC121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7CBEC121C2BEC121DEBEC121E3BEC1214ABEC12154BEC1215EBEC12147CCC1212CBEC12136BEC12140BEC121CCB5C1210EBEC12118BEC12122BEC121C684C121CD84C121BFCDC121CFCDC12110CEC1216DCEC121A0CDC121E6BDC121F0BDC121FABDC1218284C121D284C121903FC1218856C1215C84C12104BEC12100000000C8BDC121D2BDC121DCBDC1218784C1215A58C121493DC121E754C12100000000B0BDC121BABDC121C1BDC12195CEC12103D0C12140D0C1215C84C1211425C12148D0C121A0D0C121B8D0C12102D1C12124D1C12155D1C1218AD1C1210000000098BDC121A2BDC121A9BDC1211684C1215784C121E0CBC1216F25C12121CCC121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("42CCC1216F25C12180BDC1218ABDC12191BDC1211B84C1215C84C121F6C8C1217CC9C121C6C9C1218ACBC12192CBC1215C84C1210000000068BDC12172BDC12179BDC12114BFC12129BFC1213ABFC1216F25C1210000000034BDC1213EBDC12153BDC121F423C12193BFC121AFBFC121B4BFC1216375C12104C0C12104C0C1210CC0C1211BC0C12173C2C121A0CDC121A0CDC121C8C3C121DCC3C1210DC4C12130C5C12156C5C12183C5C12197C5C121BDC5C1216F25C121C654C12143BDC12158BDC12178D5C1219A26C12100000000A4B5C121EB22C1219D25C1217820C1218927C121E8D4C1211F43C1215E54C1218F42C12102D5C121C829C121A52CC121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6829C121D1CCC1219524C1219524C1219524C1219524C1219524C1219524C1219524C1218FCDC12113BDC121F6E3C12192CDC1219ACDC121A0CDC1216F25C1216F25C1217E58C1217E58C12192D1C1219524C121000000009524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9524C121000000009524C1219524C1219524C1219524C1219524C1219524C1219524C121000000009524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C121000000009524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C121000000009524C1219524C1219524C1219524C1219524C1219524C1219524C121000000009524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C121C654C12130D5C12140D5C12178D5C1219A26C1210000000050D5C121EB22C1219D25C1214C26C121F6E3C121E8D4C1211F43C1215E54C1218F42C12102D5C12128D5C121A52CC1216829C121000000009524C1219524C1219524C1219524C1219524C12100000000F8D5C121F026C1214627C12150D6C12181D6C1219824C1210B27C121A8D6C121C0D4C121EB22C1219D25C121843CC121F6E3C121E8D4C1211F43C1215E54C1218F42C12102D5C12128D5C121A52CC1216829C12100000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8CD4C121EB22C1219D25C121213FC121F6E3C12100000000691FC1214B17C121AF1FC12173006D0065006F006E00320031000000312E350034003500360037003800000025732C25732C25732C25730025640000000000000000000000000000C00000000000004601568A646E2C1B1082B600000000001410FC074D31F9CE11B00100AA006884E581DC5BCBC193CF118F2000805F2CD0640E01000000000000C00000000000004610ED51CFFE62CF11BF8600A0C903483688B296B1B4BA1A10B69C00AA00341D078023D57F074E1B10AE2D08002B2EC713604FD837CB42CE11813500AA004BB8510D01000000000000C0000000000000461201000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C000000000000046E465C121F064C1216721C1212A21C1212D65C1216A65C121A765C1216622C1210007010207070707030405070706000089B296B1B4BA1A10B69C00AA00341D0784B296B1B4BA1A10B69C00AA00341D07010000000000000020B1F21C7D541B108E6508002B2BD119836C240430E961E6FFFF836C240430E909E9FFFF8B5424048BC153568B0A573B0DD03CC1217412FF7424148BC852E87E0200005F5E5BC208006A10BFD03CC121598BF233DBF3A675DE8B4C24148B40085089018B08FF510433C0EBD7000000000004020000000000C000000000000046558BEC837D1400560F84972F0000BE1800C22156FF15E410C121833D8001C221",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00743056FF15C410C121833D8801C221000F84782F0000FF75108B4508FF7514FF7008FF750CE8BCDCFFFF83C4105E5DC21000E820DAFFFFA38801C221C7058001C22101000000EBBA558BEC8B450856FF75108D70B4FF750C8BCEE81500000085C07C0CFF75108B06FF750C56FF50405E5DC20C00558BEC83EC1C5356576A648B75085B6A328365EC008B065FFF750C894DFC8D4DE4895DF451688005C22156897DF866C745E40300FF500C85C00F8C182B0000FF750C8B45EC8365EC008D4DE48945F48B0651689405C22156FF500C85C00F8CF42A00008B45EC8945F88B45FC0588000000508D45F450E8B7E7FFFF59595F5E33C05BC9C20800568B742408",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8BCEE8DFDFFFFF8D86E00000008BCE50FF742414FF742414E81F00000085C07C178D86380100008BCE50E89BE0FFFF83A6B0000000FE33C05EC20C00558BEC81EC9400000053565733F639351804C2218BF9897DEC0F8492000000BB2804C221EB368B53F48B0B8D75F88DBC3AE00000008BD1C1E902F3A58BCA83E103F3A48B7DEC33F6EB3F8D45F050FF157412C12183C3143973F07455FF750C668B43FC8D55F0668945F08B450852FF73F08975F88B0850FF510C3BC67DA83D050002800F84422000003BC67DBD8B43F48B0B8D73F88DBC38E00000008BC1C1E902F3A58BC883E103F3A48B7DEC33F6EB99FF750C66A1CC05C2218D55F0668945F08B4508",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("52FF35C005C2218975F88B0850FF510C3BC60F8D472000005F5E33C05BC9C20C008B442408832000B802400080C20800836C240434E9A1E3FFFF558BEC81EC0801000053568B750C5733FF8D4DFC8B06576A045B535156FF500C3BC77C2B817DFC214334120F85F11B00008B166AFC5883C9FF576A01515056FF52143BC77C0956FF7508E8070000005F5E5BC9C208008B44240456FF74240C8D70B08BCEE81200000085C07C0AFF74240C8B0656FF50385EC20800558BEC83EC10568B7508578BF98B066A008D4DF86A085156FF500C85C07C3D817DF8214334120F85FF280000837DFC080F85F52800008B066A008D4DF06A085156FF500C85C07C1481C788",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000008D45F05750E89AE5FFFF5933C0595F5EC9C20400558BEC83EC2C8B450C8D550C56528B088D55D46A2C5250FF510C85C00F8CF6000000817DD401568A640F85B91F0000817DD8000006000F85921F00008B7508668B45DC66898610010000668B45DE668986E0000000668B45E0668986EC000000668B45E2668986EE000000668B45E4668986F4000000668B45E6668986F80000008B45F48986E80000008B45FC8BC8C1E11FC1F91F898EE40000008BC8C1E11EC1F91F898EF00000008BC8C1E11DC1F91F898EFC0000008BC8C1E80483E0018986180100008A45F88886F60000008B45E88986000100000FBF45EC8986040100000FBF45EE89860801",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000FBF45F0C1E11CC1F91F89860C0100008D8638010000898E14010000508BCEE8A4DDFFFF83A6B0000000FE33C05EC9C20800836C240434E94FE4FFFF558BEC56578B7D1CBE1800C22156832700FF15E410C121833D8001C22100743356FF15C410C121FF7518E83A00000085C0590F84232B0000FF75148B450857FF7008FF750CE85FD8FFFF83C4105F5E5DC21800E8C2D5FFFFA38801C221C7058001C22101000000EBB7568B74240868F82FC12156E8200000005985C0597515683842C12156E80F0000005985C0590F84C61800006A01585EC38B5424045356578B7C241433DB3BD70F84112B00003BD30F84112B00003BFB0F84092B000066391A74",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1D8BF78BC22BF2668B0C066685C9740E66390875094340406683380075E98D041B668B0C02662B0C0766F7D91BC9418BC15F5E5BC300000043006F00700079007200690067006800740020002800630029002000310039003900340020000000816C2404C0000000558BECFF7528FF7524FF7520FF751CFF7518FF7514FF7510FF750CFF7508E8040000005DC22400558BEC568B7510578B063B05E858C1210F85562700006A10BFE858C1215933C0F3A60F85442700008B75088D4D105133FFFF75148B065756FF50183BC77C335757FF153412C121FF75288B4510FF75248B08FF7520FF751CFF7518FF750CFF760850FF512C8BF08B4510508B08FF51088B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C65F5E5DC22400FF742410FF742410FF742410FF742410E803000000C21000558BEC81EC88010000837D0C005356570F85CD2500008B7D1485FF0F84CC250000832700681800C221FF15E410C1218B5D088B43148B04C53401C22183782C008D702C74228B06508B08FF51048B06890733FF681800C221FF15C410C1218BC75F5E5BC9C210008D4DFC51668B481C668B40186A005150FF35E805C221FF155812C12185C00F8C6C2500008B45FC8D550C528B53148B088B14D53401C221FF722050FF51188BF88B45FC508B08FF510885FF7C9F8B450C8D5508526AFF8B0850FF51208BF88B450C85FF8B080F8CF725000056FF750850FF51388BF88B450C508B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("08FF510885FF0F8C66FFFFFF8B43148B7D14C64318018B04C53401C221FF4030E93FFFFFFF8B4424048B4C2408668B402066890133C0C20800558BEC83EC5453568BF1578D8684020000508945F8FF15E410C1210FBF86E0000000508D45E8681059C12150FF155C11C1218B1D9C10C12133FF83C40C39BE6C0200000F841401000039BE800200000F842201000039BEA00200000F84310100005768800000406A0357578D45E868000000C050FF15A010C12183F8FF8986D80000000F840E1C000068FD0100005089BE4C020000FF15B010C1210FBF86F4000000500FBF86EC00000050FFB6D8000000FF15A810C1216A0FFFB6D8000000FF15F810C121834D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D4FF8D45D450897DD8FFB6D8000000897DDC897DE0C745E488130000FF15AC10C121FF353000C2216A14E844D5FFFF593BC7590F84C61B00008B8EA00200008B96D8000000C7000859C12189700889500C894810578D8E580200008D9EDC00000057518BC889869C020000C70301000000E817010000898654020000C70301000000897DFCFF75F8FF15C410C1218B45FC5F5E5BC9C357576A0157FFD33BC789866C0200000F85D7FEFFFFE9081B0000576A016A0157FFD33BC78986800200000F85C8FEFFFFE9ED1A0000BB1800C22153FF15E410C12166393D7001C2217544A10800C221897DAC8945BC8D45AC50C745B06746C121897DB4897DB8897DC089",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7DC4897DC8897DCCC745D0F415C121FF153011C121663BC766A37001C2210F84251A000053FF15C410C12156FF350800C22157575757575768000000805768F415C12157FF156011C1213BC78986A00200000F84601A0000566AEB50FF156411C121E933FEFFFF558BEC817D0C020400000F84B3190000FF7514FF7510FF750CFF7508FF156811C1215DC21000FF742404FF74241051682D48C121FF7424186A00FF153810C121C20C00558BEC83EC2053568BF15733DB8D8684020000508945FCFF15E410C121399EDC0000007510FF75FCFF15C410C1215F8BC35E5BC9C38D45E050FFB6D8000000FF152810C1218B86000100006A018945E48A8608010000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8845F28A86040100008845F38A860C0100008845F433C0399E240100005AC745E01C0000000F95C023C233C9C1E002399E040100000F95C123CA0BC18B8EE800000083E1020BC18B4DE8D1E083E1F10BC10BC2399EE40000000F84A200000024DF0C108A8EE80000006625BFFD23CAC1E1090BC18BC8D1E8250001000080E5FE0BC18BC8D1E984CA0F85A21A000080E4FB885DF780E4F733C9399EF00000000F95C123CAC1E10B0BC1F686E8000000027556399EFC000000755680E4CF8945E86A040FBF86EC0000009959C645F511F7F9C645F613C645F81A885DF9668945F0668945EE8D45E050FFB6D8000000FF152410C12185C00F84581A0000E9CEFEFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF24CFE95BFFFFFF80E4EF80CC20EBAD80E4DF80CC10EBA58B5424088B814C02000089915002000023C2C20800568B742408578BCE8B06FF1085F68BF874098B066A018BCEFF50048BC75F5EC2040083EC1C5355565733C08D7C2418ABABABABAB33FF8BF157576A0157FF159C10C1213BC7894424280F843D1A00008B1DB010C12168FD010000FF760CFFD385C00F84571A00008B460839B8DC0000000F84830000008B3DBC11C121BD02040000836424100068FD010000FF760CFFD385C00F84261A00008D442418508D44241450FF760CFF153C10C12185C07522FF15A410C1213DE5030000753D8D4424146A01508D44242050FF760CFF151010C1218B44",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2410A8010F85C9190000A8040F85CF19000085C00F85CC1900008B460883B8DC000000007588FF742428FF15EC10C1216A01585F5E5D5B83C41CC3568B742408837E1C007530668B44240C663D01007C3F663D10007F39663B462074156A048D8E6CFFFFFF66894620E8F7000000834EF00133C0EB358B9640FFFFFFB8451F00008D8E40FFFFFF505068451F0A80EB188B9640FFFFFFB8421F00008D8E40FFFFFF505068421F0A80FF52305EC2080055568BF18DAE8402000055FF15E410C1218D86DC00000033C93908745E5753518908FFB6D8000000FF15B010C1218DBE540200006860EA0000FF37FF15B410C121FF378B1DEC10C121FFD38327006A06FF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B6D8000000FF15F410C1216A0FFFB6D8000000FF15F810C121FFB6D8000000FFD3838ED8000000FF5B5F55FF15C410C1215E33C05DC3568BF1E820000000F644240801741385F6740F566A00FF353000C221FF15D010C1218BC65EC20400C7012059C121C3568BF157668B460A6685C00F85832100005F5EC204008B4424048B4C2408668B402466890133C0C20800668B442408568B742408570FBFF83B7E247434837E1C00741A66F7D81BC083C00650FF7618FF15F410C12185C00F84441600006A098D8E6CFFFFFF897E24E893FFFFFF834EF00133C05F5EC208008B4424048B4C2408668B405466890133C0C208000FBF442408568B7424083B46547414",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6A1C8D8E6CFFFFFF894654E855FFFFFF834EF00133C05EC208008B4424048B4C24088B4028890133C0C208008B4424085685C0577C3583F8037F308B74240C8B7E283BC7741E894628837E1C000F85D31500006A0A8D8E6CFFFFFFE805FFFFFF834EF00133C05F5EC208008B44240C8B9040FFFFFF8D8840FFFFFFB87C0100005050687C010A80FF5230EBDA8B4424048B4C2408668B402C66890133C0C20800668B442408566685C07C298B742408837E1C007542663B462C74156A0B8D8E6CFFFFFF6689462CE899FEFFFF834EF00133C0EB1F8B4424088B9040FFFFFF8D8840FFFFFFB87C0100005050687C010A80FF52305EC208008B9640FFFFFFB8401F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00008D8E40FFFFFF505068401F0A80EBDF8B4424048B4C2408668B402E66890133C0C20800668B4424086685C07C26568B742408663B462E74156A0E8D8E6CFFFFFF6689462EE81AFEFFFF834EF00133C05EC208008B4424048B9040FFFFFF8D8840FFFFFFB87C0100005050687C010A80FF5230EBDC8B4424048B4C24088B4058890133C0C208008B4424085685C07C2883F8017F238B7424083B465874146A1D8D8E6CFFFFFF894658E8B6FDFFFF834EF00133C05EC208008B4424088B9040FFFFFF8D8840FFFFFFB87C0100005050687C010A80FF5230EBDB8B4424048B4C2408668B403066890133C0C208000FBF442408568B7424083B463074278D8E40",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFF894630E89FF9FFFF85C00F8C2E1400006A108D8E6CFFFFFFE845FDFFFF834EF00133C05EC208008B4424048B4C2408668B403466890133C0C20800668B442408566685C07C298B742408837E1C007542663B463474156A118D8E6CFFFFFF66894634E8FBFCFFFF834EF00133C0EB1F8B4424088B9040FFFFFF8D8840FFFFFFB87C0100005050687C010A80FF52305EC208008B9640FFFFFFB8401F00008D8E40FFFFFF505068401F0A80EBDF558BEC8B4508806509008A403684C08845080F84C51300008D45086A0050E815000000595985C00F84C01300008B4D0C890133C05DC20800558BEC53565733FF397D080F84ED15000057576AFFFF750857",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("57FF151810C1218BF03BF70F8ED41500000FB6450C2BC70F85AE1500008D46FF5057FF156412C1218BD83BDF0F84B315000056536AFFFF75085757FF151810C12166897C73FE8BC35F5E5B5DC3558BEC81EC80000000535657FF750CFF15D810C1218D7400028D4D8056E8AFC9FFFF33FF575756FF75806AFFFF750C5757FF15D410C1218B75088B45808A5E368A003AD8742A8D8E40FFFFFF884636E809F8FFFF3BC789450C0F8CA51200006A138D8E6CFFFFFFE8ACFBFFFF834EF001397D80740AF645FC010F85AB12000033C05F5E5BC9C208008B4424048B4C2408668B403866890133C0C20800668B4424086685C07C20568B7424086A158D8E6CFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("66894638E85CFBFFFF834EF00133C05EC208008B4424048B9040FFFFFF8D8840FFFFFFB87C0100005050687C010A80FF5230EBDC8B4424048B4C2408668B403C66890133C0C208000FBF442408568B7424085789463C837E1C0075186A168D8E6CFFFFFFE8FCFAFFFF834EF00133C05F5EC208008D8E40FFFFFFE82BF7FFFF8BF88B463CF7D81BC083C00450FF7618FF15F410C12185FF7DC3E9331200008B4424048B4C2408668B405066890133C0C20800668B4424086685C07C20568B7424086A188D8E6CFFFFFF66894650E893FAFFFF834EF00133C05EC208008B4424048B9040FFFFFF8D8840FFFFFFB87C0100005050687C010A80FF5230EBDC8B4424",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0483C0788038000F84F51100006A0050E8D2FDFFFF595985C00F84F31100008B4C2408890133C0C20800558BEC81EC80000000535657FF750CFF15D810C1218D7400028D4D8056E8D2C7FFFF33FF575756FF75806AFFFF750C5757FF15D410C1218B75088B5D80538D8E40FFFFFFE84F0000003BC789450C7D19397D80740AF645FC010F854F1100008B450C5F5E5BC9C208008D46785350FF15F010C1216A178D8E6CFFFFFFE8BAF9FFFF834EF001397D80740AF645FC010F852F11000033C0EBCA558BEC83EC1053565783CBFFFF75088BF1895DFC895DF4895DF8895DF0E81F010000FF75088BCEE83A0100008BF8803F000F84DE0000008D45FC5057E840",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("010000837DFC0059590F84A2110000817DFC00E803007F118D45FC8BCE5068F005C22157E833020000508BCEE88A0200008D4DF45168F001C221508BCEE81A020000508BCEE8710200008D4DF85168A001C221508BCEE801020000508BCEE8580200008D4DF05168D001C221508BCEE8E8010000508BCEE8AC0000008B55FC6AFE593BD174638B7DF43BF9745C394DF874578B5DF03BD97450803800754B83C9FF3BD174068996000100003BF9740689BE040100008B45F83BC174068986080100003BD97406899E0C0100008BCEE8D7F4FFFF85C07C25FF75088BCEE8E9CCFFFF85C07C1733C0EB138B16B87C0100005050687C010A808BCEFF52305F5E5BC9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C204008B4424048BD0803800740D8A0A80F9417D0942803A0075F3C2040080F95A7FF2E94C1000008B4424048A0880F9200F843710000080F9090F842E100000C20400558BEC81EC00010000568B750C85F60F842610000080A500FFFFFF00578D8500FFFFFF68FF00000050FF7508E81A00000083C40C8BF88D8500FFFFFF50E88C0000008906598BC75F5EC9C3535633F657397424148B7C2410746E3BFE746A8A0784C074143C200F84D70F00003C097C083C0D0F8ECB0F00008A043E8B5424188D0C3E8BDE84C074213C097C043C0D7E193C2074153C2C74113BF20F8DAD0F00008A443E014684C075DF3BF20F8D9C0F00008BC62BC385C07E0F405051FF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("74241CFF153010C12103FE8BC75F5E5BC35356578B7C24106A0133DB85FF5E0F84730F000057FF153410C1214878278A0C3880F9300F8C5D0F000080F9390F8F540F00000FBEC983E9300FAFCE8D34B603D9D1E6EBD68BC35F5E5BC3558BEC8B4D085356578A013C2C0F843B0F000084C00F84330F00008B5D0C8B0385C0742D50FF153410C1218B7D088B338BC833D2F3A6740583C308EBE18B55108B4B04890A8B4D0803C15F5E5B5DC20C008B4510C700FEFFFFFF8B4508EBEB568BF1FF742408E861FEFFFF80382C7509408BCE50E853FEFFFF5EC204008B4424048B4C24088B405C890133C0C208008B44240885C07C24568B7424083B465C74146A028D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8E6CFFFFFF89465CE858F6FFFF834EF00133C05EC208008B4424048B9040FFFFFF8D8840FFFFFFB87C0100005050687C010A80FF5230EBDC816C2404C0000000558BECFF751CFF7518FF7514FF7510FF750CFF7508E8040000005DC21800558BEC568B750C578B063B05E858C1210F857D1500006A10BFE858C1215933C0F3A60F856B1500008B45088D550C52FF75188B086A0050FF511885C07C1FFF751C8B450CFF75148B08FF751050FF51288BF08B450C508B08FF51088BC65F5E5DC21800836C24041C8B442404FF74240C8B40E8FF74240C8B0850FF11C20C00816C2404A4000000EBDF558BEC56578B7D08FF750C8D77B48BCEE83100000085C07C27",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF75148B06FF750C56FF504485C07C17837D10000F85931300008B7F5C85FF0F859113000033C05F5E5DC21000558BEC83EC188D45F85681C1880000005051E83E0000008B45F88B7508598945F08B06598D4DE866C745E8030051687806C22156FF501085C07C158B45FC8D4DE88945F08B0651688C06C22156FF50105EC9C204005657E860D0FFFF8B74240C8B0D2802C2218BD18B7C24108B0669C0EC090000D1FA03C299F7F98B0D2C02C2218BD1D1FA89078B460469C0EC09000003C299F7F98947045F5EC3558BEC83EC10568B750C8D4DF066C745F003008B0651689C59C12156C745F800000600FF501085C07C158B4D088D81E000000050FF751056",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E80700000033C05EC9C20C00558BEC83EC1453568D45EC57894DFC50FF157C12C121833D1804C221007454BB2804C221837D0C000F84CF090000668B43FC8B55FC8B0B668945EC8B43F48D7DF48DB410E00000008BC1C1E902F3A58BC88B45088D55EC83E10352FF73F0F3A48B0850FF511085C07C0B83C314837BF00075B133C05F5E5BC9C20C00568B742408FF74240C8D4EB0E82000000085C07C18837C2410007404836660FE8B765885F60F850E12000033C05EC20C00568BF1FF742408E81200000085C07C0AFF7424088B0656FF503C5EC20400558BEC83EC1053568B75088BD96A008D4DF88B066A085156C745F821433412C745FC08000000FF5010",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("85C07C208D45F081C3880000005053E86EFEFFFF8B0659596A008D4DF06A085156FF50105E5BC9C20400558BEC83EC2C576A0B5933C08D7DD4F3AB8B4508C745D401568A64C745D800000600668B88100100008B90E400000066894DDC668B88E000000066894DDE668B88EC00000066894DE0668B88EE00000066894DE2668B88F400000066894DE4668B88F800000066894DE68B88E8000000894DF48B4DFC33D183E20133CA8B90F000000083E20183E1FDD1E20BD18B88FC00000083E10183E2FBC1E1020BCA8B901401000083E20183E1F7C1E2030BCA8B901801000083E20183E1EFC1E2040BCA8D5508894DFC8A88F6000000884DF88B880001000089",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4DE8668B880401000066894DEC668B8808010000668B800C01000052668945F08B450C8D55D466894DEE8B086A2C5250FF511085C07C0233C05FC9C20800836C240404568B7424088D4EB4E896C5FFFF56E8040000005EC20400568B7424088B46B48D4EB4FF5074834E64015EF7D81BC025FBBFFF7F0505400080C204006A0158C3816C2404AC000000E94CCAFFFF8B44240885C00F8C8109000083F81D0F8F780900008B4C240C8B0485A006C221890133C0C20C00837C2408EC0F856509000068B059C121FF158012C1218B4C2410890133C0C21000816C2404AC000000E9A9CCFFFF000000000000000000000000000000000000000003568A646E2C1B10",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("82B60000000000144F48C121364AC1215C5C2E5C434F4D2564000000000000009524C1212E97C12131313000333030003630300031323030000000003234303000000000343830300000000039363030000000003134343030000000313932303000000032383830300000003338343030000000353630303000000035373630300000003131353230300000313238303030000032353630303000005F00560065007200730069006F006E000000000043006F006D006D00000000000000000068686374726C2E6F637800000000000000000000000000000000000000000000434C5349445C7B41444238383041362D443846462D313143462D393337372D30",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("30414130303342374131317D5C496E70726F63536572766572333200000000003B050400C2210F84B9BBFFFF3B050800C2210F84ADBBFFFF50FF15CC10C121E9A1BBFFFFFF75FCE80EBEFFFF85C0590F8592BDFFFF33DBE98EBDFFFFFFB57CFFFFFF56FF353000C221FFD7E992BDFFFFFFB5FCFEFFFF56FF353000C221FFD7E993BDFFFF576A00FF353000C221FF15DC10C121E99ABDFFFF68A82FC12156E834E7FFFF5985C0590F8525E7FFFF5EC333C0E9B9BFFFFFFF15E810C12185C0740CFF7424046A0050E9BCBFFFFF33C0C350FF153411C121E91BCEFFFFE8CFEEFFFFE911C3FFFF6A10BF1814C1215933DBF3A60F8514C5FFFF8BF005C0000000E960",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C5FFFF8B75086A1059BF683BC12133DBF3A60F8507C5FFFFEBDD8B75086A1059BF983BC12133DBF3A60F85FCC4FFFF8BF005CC000000E928C5FFFF8B75086A1059BF883BC12133D2F3A60F85E7C4FFFF8BF005D0000000E907C5FFFF8B45FC897D0CC1E810663D01000F858E03000066397DFC0F85840300008B06578D4DF8535156FF500C8B06578D4DF8535156FF500C8B06578D4DF8535156FF500C8B0657538B5D088D8BCC0000005156FF500C3BC70F8CD2E3FFFF8B06578D8B900000006A025156FF500C3BC70F8CBAE3FFFF8B06578D8BD00000006A045156FF500C3BC70F8CA2E3FFFF8B06578D8BD40000006A045156FF500C3BC70F8C8AE3FFFF8B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("06578D8B940000006A015156FF500C3BC70F8C72E3FFFF8B06578D8B980000006A025156FF500C3BC70F8C5AE3FFFF8B06578D8B9C0000006A025156FF500C3BC70F8C42E3FFFF8B06578D8B9E0000006A025156FF500C3BC70F8C2AE3FFFF8B06578D8BD80000006A045156FF500C3BC70F8C12E3FFFF8B06578D8BA00000006A015156FF500C3BC70F8CFAE2FFFF8B06578D8BA40000006A025156FF500C3BC70F8CE2E2FFFF8D450C5056E8183B0000593BC7590F8CCEE2FFFFFF750CFF15D810C1218D4400028D8D78FFFFFF50894508E847BBFFFF5757FF7508FFB578FFFFFF6AFFFF750C5757FF15D410C1218B8578FFFFFFFF750C894508FF157812C1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("218B4508897D0C578D8BA80000008A006A028883A60000008B065156FF500C3BC78945087C2A8B06578D8BAC0000006A015156FF500C3BC78945087C138D450C5056E8823A0000593BC7598945087D2939BD78FFFFFF7419F645F4017413FFB578FFFFFF57FF353000C221FF15D010C1218B4508E910E2FFFFFF750CFF15D810C1218D4400028D8DF8FEFFFF50894508E889BAFFFF5757FF7508FFB5F8FEFFFF6AFFFF750C5757FF15D410C1218B85F8FEFFFFFF750C894508FF157812C1216A408D93E800000059897D0CFF750833C08BFAF3AB52FF15F010C1218D83E80000008D4BB050E8D8F2FFFF33FF8945083BC77D5039BDF8FEFFFF8B35D010C12174",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("18F68574FFFFFF01740FFFB5F8FEFFFF57FF353000C221FFD639BD78FFFFFF0F844CFFFFFFF645F4010F8442FFFFFFFFB578FFFFFF57FF353000C221FFD6E92EFFFFFF8B06578D8BC00000006A025156FF500C8BF03BF77D4A39BDF8FEFFFF8B1DD010C1217418F68574FFFFFF01740FFFB5F8FEFFFF57FF353000C221FFD339BD78FFFFFF7415F645F401740FFFB578FFFFFF57FF353000C221FFD38BC6E9E6E0FFFF39BDF8FEFFFF8B35D010C12189BBC400000089BBC80000007418F68574FFFFFF01740FFFB5F8FEFFFF57FF353000C221FFD639BD78FFFFFF7415F645F401740FFFB578FFFFFF57FF353000C221FFD6836360FE33C0E98CE0FFFFB8FFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0080E982E0FFFF837BF4160F85B4DFFFFF8D45F050FF157412C121FF750C8B45088D55F066C745F008008B0852FF73F08975F850FF510C3BC60F8C8ADFFFFF8B4DF83BCE740D8A09888FF6000000E972DFFFFFC687F600000020E966DFFFFFFF75F8FF15D810C1218D5C00028D8D6CFFFFFF53E8A6B8FFFF565653FFB56CFFFFFF6AFFFF75F85656FF15D410C1218B9D6CFFFFFF8BCF53E826F1FFFF3BC67C0E81C7380100005357FF15F010C121FF75F8FF157812C12139B56CFFFFFF0F8455DFFFFFF645E8010F844BDFFFFFFFB56CFFFFFF56FF353000C221FF15D010C121E933DFFFFF817DD8010005000F8461E0FFFF817DD8000005000F8454E0FFFFB8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFF0080E926E1FFFF8B43F48B55FC8B0B8D7BF88DB410E000000033C0F3A60F8451F6FFFFE910F6FFFF6AEBFF7508FF151011C121FF75148BC8FF7510E88A35000033C0E940E6FFFF8B16B84C1F00005050684C1F0A808BCEFF5230538945FCFF15C410C1218B866C0200003BC7740D50FF15EC10C12189BE6C0200008B86800200008D9E800200003BC7740950FF15EC10C121893B8B86A002000081C6A00200003BC70F84DBE4FFFF50FF153811C121893EE9CDE4FFFF8B16B84C1F00005050684C1F0A808BCEFF52308945FCEB96FF15A410C121484874158B1683E80375D9B8451F0000505068451F0A80EBD78B16B8421F0000505068421F0A80EBC733",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C0E94EE4FFFF8B9640FFFFFF8D8E40FFFFFFB84F1F00005050684F1F0A80FF5230E9B2E9FFFF8D8E40FFFFFFE879E5FFFF85C00F8D1AEAFFFF897E28E925EAFFFF33C9394E300F94C1894E30E9D5EBFFFF397D80885E367416F645FC017410FF758057FF353000C221FF15D010C1218B450CE957EDFFFFFF758057FF353000C221FF15D010C121E940EDFFFF68426EC121FF158012C121E938ECFFFFB80E000780E93DECFFFF8B9640FFFFFFB8451F00008D8E40FFFFFF505068451F0A80E906C6FFFF8BCFE8E5E7FFFF8BC3E9FBC5FFFF8BC7E997EDFFFFFF758057FF353000C221FF15D010C121E99CEEFFFFFF758057FF353000C221FF15D010C121E9BCEE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFF68426EC121FF158012C121E905EEFFFFB80E000780E90BEEFFFFB803000280E98DF6FFFFB803000280E9A4F6FFFF8A8EF60000008BF881E7FFFBFFFF33C03ACB884DF70F95C023C2C1E00A0BC7E940E5FFFF8B16B84F1F00005050684F1F0A808BCEFF52308BD8E961E4FFFF40E9B8EFFFFF80C120880AE997EFFFFF8B4508E905F0FFFF8A443E0146E913F0FFFF8D72FFE95CF0FFFF6AFE58E9B8F0FFFFB8596FC121E9B7BCFFFF8BC1E9F5F0FFFF895DFCE956EEFFFF6A3068806FC121685C6FC12157FF15DC11C12133C0E960E6FFFF506A0155FF7610FFD7E939E6FFFF506A02EBF0506A04EBEBFF742428FF15EC10C121EBD589351000C221893534",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00C221E909B0FFFF50FFD6E97CB0FFFF50FFD683253800C22100E97AB0FFFFFF350800C221FF7044FFD7E956B2FFFF50FF153811C121FF350800C22183257801C22100681807C221FFD7E94FB2FFFFFF350800C22168C06FC121FFD780257401C22100E943B2FFFF8B0850FF510883256C01C22100E9B3B1FFFFB857000780E9EAB2FFFFB811010480E9E0B2FFFF33F6E9BAB2FFFFB80E000780E9CFB2FFFF83C2084066817AFCFFFF0F85DDB2FFFF83C8FFE9F2B2FFFFFF15E810C12185C0A33000C2210F85F0B2FFFFC348750F8D043650FF15F011C121E94BEAFFFF8B5D0CE945EAFFFF33C0E95CEAFFFF395D080F8402C8FFFF3945080F8547C6FFFFE9F4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C7FFFF3B1D2002C2210F843BC8FFFF85DB0F8516C8FFFFE92EC8FFFF8D85F4FEFFFF68040100005057FF156010C1218D85F4FEFFFF5650E8824E000083F8FF74083BC60F85EFC7FFFFA10800C22185DB8BF8740C3B1D2002C2210F85D8C7FFFFA30400C221E9CEC7FFFF6A006AEB50FF156411C121FF37FF153811C121E9DBC9FFFF8B0850FF5108E9DBC9FFFF8B0850FF5108E9DBC9FFFF8B0850FF5108E9DBC9FFFF8B0850FF5108E9DBC9FFFF8B0850FF5108E9DBC9FFFF8B0850FF5108E9DEC9FFFF8B0850FF5108E9E1C9FFFF8B0850FF5108E9E4C9FFFF8B0850FF5108E9E7C9FFFF8B0850FF5108E9EAC9FFFF3B05D872C1210F85D9020000B9100000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00BFD872C12133C0F3A60F85C502000085D20F84B80200008B4A548D425450894500FF510433C05F5E5DC208003B05C872C1210F859C020000B910000000BFC872C12133C0F3A60F858802000085D20F847B0200008B4A408D424050894500FF510433C05F5E5DC208003B05B872C1210F855F020000B910000000BFB872C12133C0F3A60F854B02000085D20F843E0200008B4A448D424450894500FF510433C05F5E5DC208003B05A872C1210F8522020000B910000000BFA872C12133C0F3A60F850E02000085D20F84010200008B4A448D424450894500FF510433C05F5E5DC208003B059872C1210F85E5010000B910000000BF9872C12133C0F3A60F85",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D101000085D20F84C40100008B4A548D425450894500FF510433C05F5E5DC20800813D8872C121270100000F85A4010000B910000000BF8872C12133C0F3A60F859001000085D20F84830100008B4A488D424850894500FF510433C05F5E5DC20800813D1071C1218071D9000F8563010000B910000000BF1071C12133C0F3A60F854F01000085D20F84420100008B4A688D426850894500FF510433C05F5E5DC20800813D7872C121CC56201C0F8522010000B910000000BF7872C12133C0F3A60F850E01000085D20F84010100008B4A408D424050894500FF510433C05F5E5DC20800813D6872C1219242F23A0F85E1000000B910000000BF6872C12133C0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F3A60F85CD00000085D20F84C00000008B4A488D424850894500FF510433C05F5E5DC20800813D5872C121A00B98550F85A0000000B910000000BF5872C12133C0F3A60F858C00000085D20F847F0000008B4A608D426050894500FF510433C05F5E5DC20800813D4872C12183B296B17563B910000000BF4872C12133C0F3A6755385D2744A8B4A5C8D425C50894500FF510433C05F5E5DC20800813D3872C1218BB296B1752EB910000000BF3872C12133C0F3A6751E85D274158B4A588D425850894500FF510433C05F5E5DC2080033C08945008B4500508B08FF51045F5E33C05DC2080050FF153811C121832600E9A9BFFFFFA10800C221E9E4C1FFFF68",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2002C2216A03683FFDFFFF8BCBE8E953000085C00F85E6C1FFFFE9EAC1FFFFB8FFFF0080E9C4BBFFFF8B0850FF51048D43108D4EC850FF770CE8AABCFFFF85C089450C0F8D39BBFFFF8B7F0C8B0757FF50088B450CE993BBFFFF8B7F10EBED8B0883270050FF5108E9C0BBFFFF8B46345768E872C121508B08FF11E9E0BBFFFF8B0883663C0050FF5108E9EEBBFFFF8B088366740050FF5108E9EABBFFFF8B0883664C0050FF5108E9B3BBFFFF836764FEE964ECFFFF8B0757FF501CE964ECFFFF8B0656FF501CE9E7EDFFFF8B45FC89988800000089B88C000000E912D5FFFFB8FFFF0080E927D7FFFFB86B000480E978BCFFFF8B46B88D4EB8FF5034E967BC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFB80B000280E973DAFFFFB803400080E969DAFFFF8D8578FEFFFF680401000050FF350800C221FF156010C12185C0750ABF05400080E936DAFFFF8D8578FEFFFF50FF153410C1218D7C00028D8D7CFFFFFF57E8C5AEFFFF578D8578FEFFFFFFB57CFFFFFF6AFF506A006A00FF151810C1218D45FC50FFB57CFFFFFFFF153C12C1218BF833C03BF87D2E39857CFFFFFF0F84DBD9FFFFF645F8010F84D1D9FFFFFFB57CFFFFFF50FF353000C221FF15D010C121E9B9D9FFFF39857CFFFFFF0F84E5D9FFFFF645F8010F84DBD9FFFFFFB57CFFFFFF6A00FF353000C221FF15D010C121E9C2D9FFFF50FF5108E981D9FFFFB857000780E9C0EAFFFFB857000780",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E9FCD8FFFF8B4508E9CAC3FFFFFFB574FFFFFF53FF353000C221FF15D010C121E9AEC3FFFF8B103B15D03CC12175146A10BFD03CC121598BF033DBF3A60F8491BCFFFF3B153873C121751B6A108BF059BF3873C12133C0F3A6750B8B45088D4810E974BCFFFFB802400080E979BCFFFF8B068D4D0C5168D03CC12156FF1085C00F8D4FBAFFFFE957BAFFFF8B450C8D550C52683873C1218B0850FF11EBE04A743AF6C10775308D04852000000050FF76046A00FF353000C221FF157C10C12185C0742C8946040FBF560A8B4C2408890C90E92EBAFFFF8B4604EBEB6A206A00FF353000C221FF15DC10C12185C0750AB80E000780E917BAFFFF8B4E0489460489",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("088B4C2408894804E9F7B9FFFF49745633D285C07E0F8B4B04393974084283C1043BD07CF43BD0747C8D48FF3BD17D2A8B7B042BC28D0C85FCFFFFFF8D7497048BC18D3C97C1E902F3A58BC883E103F3A48B7C2414E9DABBFFFF8B430483249000E9CEBBFFFF8B43048B083BCF740939780475313BCF751E8B700485F67426506A00FF353000C221FF15D010C121897304E99EBBFFFF8B70042BF7F7DE1BF6F7D623F1EBD6B800020480E991BBFFFF663D0100750E8B7604568B06FF5008E961C3FFFF33FF6685C07E198B46048B04B885C074068B0850FF51080FBF460A473BF87CE7FF76046A00FF353000C221FF15D010C121E92BC3FFFF663D010075128B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7604FF74240C8B0656FF500CE965DEFFFF33FF6685C00F8E5ADEFFFF8B4604FF74240C8B04B8508B08FF510C0FBF460A473BF80F8D3DDEFFFFEBE13B05583BC12175146A10BF583BC121598BF233C0F3A60F84CAAAFFFF833D186EC1210074146A10BF0071C121598BF233C0F3A60F84ADAAFFFF8B442418832000B802400080E9AEAAFFFFB857000780E99FD0FFFFB812010480E995D0FFFFB812010480E9E8D4FFFFFFD085C00F8D5CADFFFFE993ADFFFFB805400080E989ADFFFFB80E000780E97FADFFFF8B75148B063B05583BC121751A6A10BF583BC1215933C0F3A6750C8B451033F68918E956ADFFFF8B0353FF5008B857000780E948ADFFFF6A0158",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E92CD5FFFF33C0E925D5FFFF33C0E929ACFFFF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000070018935000000009A6D0000010000000500000005000000686D00007C6D0000906D00002015000013160000419D00005E9D0000A4730000A76D0000BB6D0000CB6D0000DD6D0000EF6D0000040000000100020003004D53436F6D6D33322E4F637800444C4C476574446F63756D656E746174696F6E00446C6C43616E556E6C6F61644E6F7700446C6C476574436C6173734F626A65637400446C6C526567697374657253657276657200446C6C556E726567697374657253657276",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6572000000000000405BF07230B51B1082B600000000001401000000000000000258D97D8298CF119FA900AA006C42C405000000000000004D53434F4D4D4C6962000000000000006986C12186E7C12196E7C1211FDAC1214CDAC1219EDAC121E6DAC121D6DBC12160DCC12182DCC121BFDCC121D0DCC1212EDDC12157DFC12167E1C121000000008086C121EB22C1219D25C121ACD9C121F6E3C1210F87C1216986C12186E7C12196E7C1211FDAC1214CDAC1219EDAC121E6DAC121D6DBC12160DCC12182DCC121BFDCC121D0DCC1212EDDC12157DFC12167E1C12100000000798AC121EB22C1219D25C121ACD9C121F6E3C121B38AC1216986C12186E7C121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("96E7C1211FDAC1214CDAC1219EDAC121E6DAC121D6DBC12160DCC12182DCC121BFDCC121D0DCC1212EDDC12157DFC12167E1C12100000000FB8DC121EB22C1219D25C121ACD9C121F6E3C121358EC121256C64202D202573000000004661696C656420746F20637265617465206576656E7420666F7220746872656164210000545459204572726F722100007B2530386C582D253034582D253034582D25303258253032582D2530325825303258253032582530325825303258253032587D0043746C4672616D65576F726B5F5265666C65637457696E646F7700000000000000000204040808080404040210040000FFFFFFFF000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FDFFFFFF000000000000000000000000FBFFFFFF0000000000000000000000000000000000000000000000000000000001000000E80300000000000002000000FCFFFFFF00000000000000000000000043006F006E00740065006E007400730000000000000000006986C12186E7C12196E7C1211FDAC1214CDAC1219EDAC121E6DAC121D6DBC12160DCC12182DCC121BFDCC121D0DCC1212EDDC12157DFC12167E1C1210000000084D9C121EB22C1219D25C121ACD9C121F6E3C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C1219524C12100000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("80976E6E5D16D011B3E600A0C90F27318071D900F7FCCE11A09E00AA0062BE57A6E7C121EB22C1219D25C1217BE8C121F6E3C121000000006986C12186E7C12196E7C121D7E8C12137E9C1215BE9C12168E9C121000000009524C1219524C1219524C1219524C1219524C1219524C1219524C12100000000C37A4D853DBCD011B42100A0C90F9DC4C57A4D853DBCD011B42100A0C90F9DC4C07A4D853DBCD011B42100A0C90F9DC4526AE80DAA2BCF11A22900AA003D7352536AE80DAA2BCF11A22900AA003D7352576AE80DAA2BCF11A22900AA003D7352D46EFC403824CF11A3DB080036F125028009F87B32BF1A108BBB00AA00300CAB22088FFB64011B10",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("84ED08002B2EC713D56EFC403824CF11A3DB080036F1250205E0020000000000C00000000000004612E0020000000000C0000000000000468BB296B1B4BA1A10B69C00AA00341D0783B296B1B4BA1A10B69C00AA00341D07A00B9855AA35CF11B67100AA004CD6D89242F23A960CCE11A0CF00AA00600AB8CC56201CF45E1B108BC800AA003E3B292701000000000000C0000000000000460A01000000000000C0000000000000461701000000000000C0000000000000461401000000000000C0000000000000461301000000000000C0000000000000460C01000000000000C000000000000046010E2B74E6141B10914E00AA00300CAB0401000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C00000000000004680AD2C9C2434CF11B67000AA004CD6D81901000000000000C000000000000046A0AD2E922434CF11B67000AA004CD6D802BCFB9BF1EF1A1084ED00AA00341D0785B296B1B4BA1A10B69C00AA00341D0786B296B1B4BA1A10B69C00AA00341D0787B296B1B4BA1A10B69C00AA00341D076546E401AC241B1084ED08002B2EC7138DB296B1B4BA1A10B69C00AA00341D07683842C121FF158012C121C3558BEC81EC00010000538B5D1856BE4000C2218323005756FF15E410C1218B7D10A17C01C2213B3D680CC221750485C0752C85C074173B050400C221740F3B050800C221740750FF15CC10C12157E822B6FFFFA37C01C221893D680C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C2218D8D00FFFFFF68FF000000518B4D1481E1FFFF00005150FF15C811C121568BF8FF15C410C12185FF7E128D8500FFFFFF6A0050E8ADD9FFFF598903595F5E33C05BC9C3558BEC83EC28576A0A5933C08D7DD868007F0000F3ABA10800C2216A00C745D80B000000C745DCB3B8C1218945E8FF152C11C1218945F0A13401C221C745F4060000008B40448945FC8D45D850FF153011C1210FB7C05FC9C3B864000480C20800B864000480C20C00558BEC83EC2453568B751057833E047436BE690004808B7D0C837D14007409FF7510FF15F811C12185F67D098BC65F5E5BC9C210008BC7F7D81BC0259CFFFB7F0564000480EBE7E8B82700008B4D0C0FB739",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2BF8F7DF1BFF47897D0C744F6A098B5E045933C08D7DDCBE800AC221F3AB8B45088DB834FFFFFF8D45DC50568BCFE8400000008D45DC505653E8882300008BF083C40C85F60F8C79FFFFFF8D45DC8BCF50E868000000E969FFFFFF8B7510E964FFFFFFB801400080C20C00B803000480C208008B44240433D253563BC25774373954241474313910742583C0088B480C8B78FC037C24148BD98BF083C020C1E902F3A58BCB83E103F3A43950F875DE33C05F5E5BC20800B803400080EBF3558BEC81EC0001000053568B7508578BF933DB668B06668987E00000000FBF46028987E40000000FBF46048987E8000000668B4606668987EC000000668B46086689",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("87EE0000000FBF460A8987F0000000668B460C668987F40000008B46103BC30F842901000050FF15D810C1218D4400028D4D8050894508E8E2A1FFFF5353FF7508FF75806AFFFF76105353FF15D410C1218B4580FF7610894508FF157812C1218B4508395D808A008887F60000007416F645FC017410FF758053FF353000C221FF15D010C121668B4614668987F80000000FBF46168987FC000000FF7618FF15D810C1218D4400028D8D00FFFFFF50894508E867A1FFFF5353FF7508FFB500FFFFFF6AFFFF76185353FF15D410C1218B8500FFFFFF8BCF50894508E8E2D9FFFF3BC37C10FF75088D873801000050FF15F010C1218B46183BC3740750FF157812",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C121668B461C399D00FFFFFF668987100100000FBF461E8987140100000FBF4620898718010000741CF6857CFFFFFF017413FFB500FFFFFF53FF353000C221FF15D010C1215F5E33C05BC9C20400C687F600000020E92CFFFFFF56578B7C240C83BF340100000075146A02FF350800C221FF15B011C1218987340100008B742418680F0800006A0556FF742420FF15B411C1218B873401000085C07418508B460483C003508B0683C00350FF742420FF152811C1215F33C05EC21C00558BEC817D0802040000568BF1750BFF7510FF750CE8F61D0000FF75108BCEFF750CFF7508E81D6100005E5DC20C0056578B7C241033F685FF7C1F8B44240C8A040650FF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("15C010C12185C074088D47FF3BF07D0B46463BF77EE133C05F5EC33BFE75F76A0158EBF48D914C0200008B4C2408568BC18B32F7D123CE23C6890A5EC20800558BEC56578B7D088DB740FFFFFF8BCEE86744000083F80175198B16B88A0100005050688A010A808BCEFF52305F5E5DC20800837F1C0074208D450850FF7718FF150010C1218B45088B4D0C2480F6D81BC066890133C0EBD48B450C66832000EBF356578B7C240C8DB740FFFFFF8BCEE80744000083F80175188B16B88A0100005050688A010A808BCEFF52305F5EC208008B4C24108B4718890133C0EBEE8B442404FF7424088B0850FF5134C208008B442404FF7424088B0850FF5138C20800",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("558BEC56578B7D088DB740FFFFFF8BCEE8A643000083F80175198B16B88A0100005050688A010A808BCEFF52305F5E5DC20800837F1C0074208D450850FF7718FF150010C1218B45088B4D0C2410F6D81BC066890133C0EBD48B450C66832000EBF38B44240885C07D228B4424048B9040FFFFFF8D8840FFFFFFB87C0100005050687C010A80FF5230C20800568B7424083B466074146A068D8E6CFFFFFF894660E8BFD0FFFF834EF00133C05EEBDA8B4424048B4C24088B4060890133C0C20800558BEC56578B7D088DB740FFFFFF8BCEE8E542000083F80175198B16B88A0100005050688A010A808BCEFF52305F5E5DC20800837F1C0074208D450850FF77",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("18FF150010C1218B45088B4D0C2420F6D81BC066890133C0EBD48B450C66832000EBF38B44240885C07D228B4424048B9040FFFFFF8D8840FFFFFFB87C0100005050687C010A80FF5230C20800568B7424083B466474146A088D8E6CFFFFFF894664E8FECFFFFF834EF00133C05EEBDA8B4424048B4C24088B4064890133C0C2080066837C2408005674238B4424088B9040FFFFFF8D8840FFFFFFB87C0100005050687C010A80FF52305EC208008B742408837E1C00741E6A0AFF7618FF15F810C12185C08D8E40FFFFFF740DE83119000085C07CD433C0EBD0E865190000EBF1558BEC83EC0C56578B7D088DB740FFFFFF8BCEE8C241000083F80175198B16",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B88A0100005050688A010A808BCEFF52305F5EC9C20800837F1C00750B8B450C6683200033C0EBE98D45F48BCE50E85818000085C07CDA8B450C668B4DF8668908EBE166837C240800568B7424087425C7461401000000FF7618FF155010C1218D8E40FFFFFFE8D918000085C07C0233C05EC2080083661400FF7618FF154C10C121EBDC56578B7C240C8DB740FFFFFF8BCEE82441000083F80175188B16B88A0100005050688A010A808BCEFF52305F5EC20800837F1C0074128B47148B4C2410F7D81BC066890133C0EBE38B44241066832000EBF28B442408568B7424083B466874146A0F8D8E6CFFFFFF894668E871CEFFFF834EF00133C05EC208008B44",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("24048B4C24088B4068890133C0C2080033C0663944240874228B4424048B9040FFFFFF8D8840FFFFFFB87C0100005050687C010A80FF5230C20800568B74240839461C74166A05FF7618FF15F810C1218D8E40FFFFFFE8A81700005EEBDA558BEC83EC0C56578B7D088DB740FFFFFF8BCEE84540000083F80175198B16B88A0100005050688A010A808BCEFF52305F5EC9C20800837F1C0074228D45F48BCE50E8E616000085C07D098B4D0C66832100EBDC8B450C668B4DFC66890833C0EBCE56578B7C240C8DB740FFFFFF8BCEE8E83F000083F80175188B16B88A0100005050688A010A808BCEFF52305F5EC208008B471C8B4C2410F7D81BC066890133C0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EBE9558BEC83EC6853568B750833DB57895DE4395E1C751C8B8640FFFFFF8D8E40FFFFFF5368521F000068521F0A80FF5030EB4666837D0C08B911200000744166394D0C743B66817D0C0C4075118B7D14668B07663D0800742A663BC174258B9640FFFFFF8D8E40FFFFFFB87C0100005050687C010A80FF52305F5E5BC9C214008D7D0C66390F752D8B47083BC3740C50FF155C12C12183F801741A8B8640FFFFFF8D8E40FFFFFF6A0D6A0D680D000A80E979FFFFFF66833F087513FF7708FF156012C1218BD885DB753133C0EBAB8D45F4895DF4506A01895DF0FF7708FF157012C1218D45F0506A01FF7708FF156812C1218B5DF02B5DF443EBCB66833F08",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0F85480100008D041B50E89E98FFFF598945FC33C98D041B515150FF75FC53FF77085151FF15D410C1218BD88D4DEC8D86B00100006A015150FF7618FF151010C12185C00F8496000000FFB6C00100008B7DECFF150C10C12133C08986B00100008986B40100008986B80100008986BC0100008D45D88D8E40FFFFFF50894DE8E80615000085FF8945E47465836518008D459850FF7618FF150810C12185C07415837DA40074088D043B3B45A47707C7451801000000837D180075298B4DE868F2030000E855160000837DFC007409FF75FCE87496FFFF598B45E4E99AFEFFFF8B7DE4EB8EFFB6C0010000FF150C10C1218D86B0010000899EB4010000508D45",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EC5053FF75FCFF7618FF150410C12185C07527FF15A410C1213DE5030000752868F4010000FFB6C0010000FF15B410C1218B86B40100008945EC8B4DE8E8C11400008365E400EB818365EC00EBEC53E85997FFFF8945FC8B45F4598945F83B45F00F8FC5FEFFFF8D4508508D45F850FF7708FF156C12C1218B45FC8B4DF82B45F48A5508881408FF45F88B45F8EBCF8B4424048B9040FFFFFF8D8840FFFFFFB88A0100005050688A010A80FF5230C208008B4424048B9040FFFFFF8D8840FFFFFFB87F0100005050687F010A80FF5230C21400558BEC83EC4053568D45C05750FF157C12C1218B750833FF397E1C75228B9640FFFFFF8D8E40FFFFFFB8521F00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00505068521F0A80FF52305F5E5BC9C20800668B462E663BC775398D45D08D8E40FFFFFF50E8611300003BC77CDD8B45D43BC78945FC754B397E58751C66C745C00800897DC88B7D0C8D75C0A5A5A5A533C0EBB70FBFC0EBD88D45DC897DDC506A016A11897DE0FF155012C1213BC77507B80E000780EB9366C745C011208945C8EBC38D780257897DE4E81E96FFFF598BD88BCF33C08BD18BFBC1E902F3AB8BCA895DF883E103F3AA8D869C010000508D45FC50FF75FC53FF7618FF152010C12185C075438B9640FFFFFFB8541F000081C640FFFFFF505068541F0A808BCEFF52308BD8837DF8007409FF75F8E85994FFFF5985DB7D0A8D45C050FF157412C1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("218BC3E903FFFFFF6A01583946580F85C30000008B4DFC8365E000894DDC8D4DDC51506A11FF155012C1218BF885FF0F84980000008365F400837DFC007E1C8B45F403C3508D45F45057FF155412C121FF45F48B45F43B45FC7CE466C745C01120897DC833C039465474153945FC7610803C031A0F843A010000403B45FC72F08D8E40FFFFFFE8781200008BD885DB0F8C4FFFFFFF33DB395E580F854B0100005353FF75FC8B351810C121FF75F85353FFD68BF866C745C008005753FF156412C1213BC38945C80F85F9000000BB0E000780E90DFFFFFF8B7DFC6A2A894670FF153C11C12185C00F8477FFFFFF4F5753E8F6F5FFFF5985C0590F8465FFFFFF83",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("65F0008DBE40FFFFFF8D45D08BCF50897DECE8741100008BD885DB0F8CC3FEFFFF837DD4007537BFFA000000817DF0983A0000732657FF151C10C1218B4DEC017DF08D45D050E8401100008BD885DB0F8C8FFEFFFF837DD40074D18B7DEC6A018D869C01000059508D45E8508D45085150FF7618894DE8FF152010C12185C075158B17B8541F0000505068541F0A808BCFE949FEFFFF837DE80074108B4DF88B55E48A4508884411FEFF45FC8B5DF8E9B0FEFFFF6A078D8E40FFFFFFE85D120000E9BAFEFFFF5750FF75FCFF75F85353FFD66A04FF750CFF151410C12185C0740ABB03400080E9F9FDFFFF8B7D0C8D75C0A5A5A5A5E9EAFDFFFF8B4424048B90",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("40FFFFFF8D8840FFFFFFB87F0100005050687F010A80FF5230C2080056578B7C240C8DB740FFFFFF8BCEE88C39000083F80175188B16B88A0100005050688A010A808BCEFF52305F5EC208008B4C2410668B878801000066890133C0EBE956578B7C240C6A018DB740FFFFFF8BCEE8324A00008B066A00689598C1218BCEFF77E068D4070000FF502850FF155811C1216A008BCEE80C4A00005F5EC204008B44240CC700030000008B442410C7000200000033C0C2100033C0F644240C0274036A015848F7D81BC02505400080C21000836C240420E9ECD0FFFF836C240424E9E2D0FFFF836C240424E9ED9EFFFF836C240424E995A1FFFF836C240428E9C4D0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFF836C240428E9CF9EFFFF836C240428E977A1FFFF836C2404048B44240483786C000F85C6410000F64070020F84BC4100008B487485C90F84A94100008BC18B4C24088901F7D81BC0250100FF7F05FFFF0080C20800836C240404B801400080C20800836C24042CE958D0FFFF836C240430E94ED0FFFF836C240434E944D0FFFF836C2404048B44240456578B7C24108B40C88B04C53401C2218B3033C0A5A5A5A55F5EC20800836C240438E914D0FFFF836C240438E91F9EFFFF836C240438E9C7A0FFFF836C240408EBBA836C2404048B4424048A4060F6D083E001C20400836C24043CE9DBCFFFFF836C24043CE9E69DFFFF836C24043CE98EA0FFFF83",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6C240440E9BDCFFFFF836C240440E9C89DFFFF836C240440E970A0FFFF836C240444E99FCFFFFF836C240444E9AA9DFFFF836C240444E952A0FFFF836C240448E981CFFFFF836C24044CE977CFFFFF836C24044CE9829DFFFF836C24044CE92AA0FFFF816C2404C0000000FF742408FF742408E8704F0000C20800816C2404C0000000E97FBDFFFF816C2404A8000000E931CFFFFF816C2404A8000000E9399DFFFF816C2404A8000000E9DE9FFFFF816C2404C4000000FF742408FF742408E83E4F0000C20800816C2404AC000000E9F2CEFFFF816C2404B0000000E9E5CEFFFF816C2404B0000000E9ED9CFFFF816C2404B0000000E9929FFFFF816C2404B4",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000E9BECEFFFF816C2404B4000000E9C69CFFFF816C2404B4000000E96B9FFFFFFF353000C2216A30E84494FFFF5985C059740FFF7424048BC8E80800000083C00CC333C0EBF8566A01FF74240C8BF1E8EE520000C706886EC121C74614486EC1218BC65EC204008B442404FF74240C8B40F0FF74240C8B0850FF11C20C00568BF1E820000000F644240801741385F6740F566A00FF353000C221FF15D010C1218BC65EC20400C701886EC121C74114486EC121568BF18B461CC706A870C12185C0C746146870C12174186AFF6AEB50FF156411C121FF761CFF153811C12183661C008BCEE8565B00008B461885C0740A8B088366180050FF5108686801C2",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("21C706003BC121FF157810C1215EC3558BEC81EC080100008B450C538BD9562D1001000057895DFC0F8491020000480F844E0200002D530300000F8440010000480F856F0200008D450C50E8A05B000033F63BC60F84240200008B088D551052681814C12150FF113BC60F8CE90000008B45106A015668E9030000FF75088B38FF154011C12150FF7510FF57348BF83BFE7D158BCBE8FC5B00005057E8D70A00008B4514595989388D85F8FEFFFF68000100005068EA030000FF7508FF154411C1218D85F8FEFFFF5650E818C6FFFF8BD8593BDE590F848E0000008B451053508B08FF91D40000008BF83BFE7D168B4DFCE8A05B00005057E87B0A00008B4514",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5959893853FF157812C1215656684701000068EB030000FF7508FF154811C12150FF154C11C1218B4D1050518B11FF526C8BF83BFE7D168B4DFCE8575B00005057E8320A00008B4514595989388B4510508B08FF51088B5DFC8D450C8BCB50E89C5A0000E9E9FEFFFF8B4DFCE8255B000050680E000780E8FC0900005959EB8B8D45F88BCB50E8655A000033F63BC60F84210100008B088D551052681814C12150FF113BC60F8C0B0100008B45108D551452508B08FF51380FBF45146A015068E9030000FF7508FF155011C1218B45108D550C52508B08FF91D8000000FF750CFF15D810C1218D7C00028D8D78FFFFFF57E8288FFFFF565657FFB578FFFFFF6A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFF750C5656FF15D410C121FFB578FFFFFF68EA030000FF7508FF155411C121FF750CFF157812C1218B45108D55FC52508B08FF517056FF75FC684E01000068EB030000FF7508FF154811C12150FF154C11C1218B4510508B08FF510839B578FFFFFF7419F645F4017413FFB578FFFFFF56FF353000C221FF15D010C1216A0158EB358B4510C1E8104874222DFF02000075230FB745103DE90300007C183DEB0300007F118BCBE8CF590000EB0866817D10EB0374EF33C05F5E5BC9C210008D4510500FB7052002C22150A13401C221668B481C668B40185150FF35E805C221FF155812C12133F63BC67C388B45108D55145268086EC1218B0850FF51183BC6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7C22FF751468EB030000FF7508FF154811C12150E8320700008B451459598B0850FF51088B4510508B08FF5108E94CFFFFFFFF353000C2216A30E83490FFFF5985C059740FFF7424048BC8E80800000083C00CC333C0EBF8566A02FF74240C8BF1E8DE4E0000C706E06EC121C74614A06EC1218BC65EC20400568BF1E820000000F644240801741385F6740F566A00FF353000C221FF15D010C1218BC65EC20400C701E06EC121C74114A06EC121E902FCFFFF558BEC518B450C53562D1101000057894DFC0F84B20200002D530300000F84AD010000480F85D00200008D450C50E80A5800006A0185C05B0F84890100008B354011C1218B088D551052681814",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C12150FF1185C00F8C590100008B4510536A00684D040000FF75088B38FFD650FF7510FF57748BF885FF7D168B4DFCE8625800005057E83D0700008B4514595989388B4510536A006850040000FF75088B38FFD650FF7510FF97A40000008BF885FF7D168B4DFCE82A5800005057E8050700008B4514595989388B4510536A00684E040000FF75088B38FFD650FF7510FF97C40000008BF885FF7D168B4DFCE8F25700005057E8CD0600008B4514595989388B4510536A006851040000FF75088B38FFD650FF7510FF97DC0000008BF885FF7D168B4DFCE8BA5700005057E8950600008B4514595989388B4510536A00684F040000FF75088B38FFD650FF7510",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF978C0000008BF885FF7D168B4DFCE8825700005057E85D0600008B4514595989386852040000FF7508FF15D811C1218B4D10F7D88B111BC05051FF92FC0000008BF885FF7D168B4DFCE8475700005057E8220600008B4514595989388B4510508B08FF51088B4DFC8D450C50E88E56000085C00F857DFEFFFF8BC35F5E5BC9C210008D45FC50E86456000085C00F84190100008B088D550C52681814C12150FF1185C00F8C030100008B450C8D551452508B08FF51780FBF45148B7D088B355011C1216A015B5350684D04000057FFD68B450C8D551452508B08FF91A80000000FBF45145350685004000057FFD68B450C8D551452508B08FF91C80000000F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BF45145350684E04000057FFD68B450C8D551452508B08FF91E00000000FBF45145350685104000057FFD68B450C8D551452508B08FF91900000000FBF45145350684F04000057FFD68B450C8D551052508B08FF910001000033C0663945100F95C050685204000057FF15A011C1218B450C508B08FF5108E9FDFEFFFF8B4510C1E81074203D0003000075210FB745103D4D0400007C163D510400007F0FE8D8550000EB0866817D10520474F133C0E9C8FEFFFFFF353000C2216A30E8B28CFFFF5985C059740FFF7424048BC8E80800000083C00CC333C0EBF8566A03FF74240C8BF1E85C4B0000C706386FC121C74614F86EC1218BC65EC20400568BF1E820",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000F644240801741385F6740F566A00FF353000C221FF15D010C1218BC65EC20400C701386FC121C74114F86EC121E980F8FFFF558BEC81EC8C0000008B450C538BD9562D1101000057895DFC0F84BE0200002D530300000F848B010000480F85DE0200008D45F450E88154000033FF3BC70F844E0100008B35D811C1218B088D550C52681814C12150FF113BC70F8C1F0100008D45106A025068B1040000FF7508FF154411C1218D45105750E834BFFFFF593BC7598945F80F84110100008B450CFF75F88B0850FF91B40000008BD83BDF7D168B4DFCE8B95400005053E8940300008B451459598918FF75F8FF157812C1218D45105068B1040000FF7508",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF155411C12168B5040000FF7508FFD68B4D0CF7D88B111BC05051FF929C0000008BD83BDF7D168B4DFCE8675400005053E8420300008B45145959891868B6040000FF7508FFD68B4D0CF7D88B111BC05051FF92CC0000008BD83BDF7D168B4DFCE8305400005053E80B0300008B45145959891868B7040000FF7508FFD68B4D0CF7D88B111BC05051FF52648BD83BDF7D168B4DFCE8FC5300005053E8D70200008B4514595989188B450C508B08FF51088B5DFC8D45F48BCB50E8415300003BC70F85B8FEFFFF6A01585F5E5BC9C210008BCBE8BE53000050680E000780E8950200005959E91CFFFFFF8D45F48BCB50E8FB52000033FF3BC70F84450100008B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("088D551052681814C12150FF113BC70F8C2F0100008B45108D550C52508B08FF91B8000000FF750CFF15D810C1218D7400028D8D74FFFFFF56E8E087FFFF575756FFB574FFFFFF6AFFFF750C5757FF15D410C121FFB574FFFFFF8B5D0868B104000053FF155411C121FF750CFF157812C1218B45108D551452508B08FF91A000000033C066397D148B35A011C1210F95C05068B504000053FFD68B45108D551452508B08FF91D000000033C066397D140F95C05068B604000053FFD68B45108D551452508B08FF516833C066397D140F95C05068B704000053FFD68B4510508B08FF510839BD74FFFFFF0F84D7FEFFFFF645F0010F84CDFEFFFFFFB574FFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("57FF353000C221FF15D010C121E9B5FEFFFF8B4510C1E81074183D00030000752366817D10B104751B8BCBE84B520000EB120FB745103DB50400007C073DB70400007EE533C0E97FFEFFFF558BEC81EC0C010000565733FF5757684B010000FF7508FF154C11C1218B750C8D4DFC51568B06FF500C3BC70F8CF70000008B45FC53897D0C6639782E0F86D80000008B068D4DF451FF750C56FF50188BD83BDF0F8CC3000000578B06578D4DF857518B4DF4FF3156FF5030FF75F8FF15D810C1218D5C00028D8D74FFFFFF53E84E86FFFF575753FFB574FFFFFF6AFFFF75F85757FF15D410C1218B45F4FFB574FFFFFF8B4008FF70088D85F4FEFFFF68506FC121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("50FF155C11C12183C4108D85F4FEFFFF50576843010000FF7508FF154C11C121FF75F8FF157812C121FF75F48B0656FF505439BD74FFFFFF7419F645F0017413FFB574FFFFFF57FF353000C221FF15D010C1218B45FCFF450C0FB7402E39450C0F8C28FFFFFF33DBFF75FC8B0656FF504C8BC35B5F5EC9C3558BEC81EC100200005333DB66F7450AFF1F5657895DF8895DFC75578B3DC811C121BE040100008D85F0FDFFFF565068E8030000FF750CFFD7817D080E0007808D85F4FEFFFF56507425683F1F0000FF750CFFD78D85F0FDFFFF53508D85F4FEFFFF5053FF15DC11C1215F5E5BC9C36A07EBDC8D450C5053FF154812C1213BC375E88B450C8D55FC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("52508B08FF51143BC37C588B450C8D55F852508B08FF51103BC37C4753BE04010000538D85F4FEFFFF568B3DD410C121506AFFFF75FC5353FFD753538D85F0FDFFFF56506AFFFF75F85353FFD78D85F0FDFFFF53508D85F4FEFFFF5053FF15DC11C121395DF88B357812C1217405FF75F8FFD6395DFC7405FF75FCFFD68B450C508B08FF5108E957FFFFFF558BEC5153568BF15733FF8D9E8402000053FF15E410C12139BEDC0000007448FF75088D45FC50FFB6D8000000FF152C10C12185C075178B16B8551F0000505068551F0A808BCEFF52308BF8EB0AFF75FC8BCEE8CA00000053FF15C410C1218BC75F5E5BC9C204008B16B8521F0000505068521F0A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("80EBCD558BEC83EC0C8D45F4568BF150E876FFFFFF85C07C280FBF86F80000003945F87D0783A638020000000FBF86100100003945FC7E0783A63C0200000033C05EC9C3558BEC83EC1053568BF15733DB8DBE8402000057FF15E410C121399EDC00000074228D45F0508D45FC50FFB6D8000000FF152C10C12185C07418FF75FC8BCEE82500000057FF15C410C1215F8BC35E5BC9C38B16B8551F0000505068551F0A808BCEFF52308BD8EBDB538B5C2408568BF1F6C310740A68E9030000E85A000000F6C308740C68EC0300008BCEE849000000F6C302740C68EE0300008BCEE838000000F6C301740C68F00300008BCEE827000000F6C304740C68F10300",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("008BCEE816000000F6C701740C68F20300008BCEE8050000005E5BC20400668B44240468700AC2215166898148020000E8994200005959C2040051535556578BF9BDFD01000055FFB7D80000008DB7D8000000E8CCE2FFFF836424100055FF368BCF8BD8E8AFB2FFFFF6C30874096A038BCFE8A7FFFFFFF6C31074096A048BCFE899FFFFFFF6C32074096A058BCFE88BFFFFFFF6C70174096A068BCFE87DFFFFFFF6C340740C68E90300008BCFE86CFFFFFFF6C380740B8BCFE886FEFFFF894424108B4424105F5E5D5B59C3558BEC83EC0C53568D45F4578BF150E8ABFDFFFF33FF3BC70F8C3D0100008B45F46A01C1E8055B84C374096A078BCEE81EFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8BCEE833FFFFFF3BC70F8C18010000845D087467668B86F8000000663BC7745B0FBFC03945F87C536A028BCEE8EDFEFFFF8D45F48BCE50E84FFDFFFF3BC70F8CE300000039BE2C010000752939BE300100008D8630010000741B0FBF8EF8000000394DF87C0FFF750C8BCE8938FF7508E857FFFFFF899E38020000F6450802741C668B8610010000663BC774100FBFC03945FC7F08538BCEE881FEFFFFF645080474148B450C8BCE89864C020000E887FEFFFF3BC77C70397DF8746939BE380200007561668B86F8000000663BC774550FBFC03945F87C4D6A028BCEE83DFEFFFF8D45F48BCE50E89FFCFFFF3BC77C3739BE2C010000752D39BE300100008D86",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("30010000741F0FBF8EF8000000394DF87C13FF750C8BCE8938FF7508E8ABFEFFFF3BC77C0233C05F5E5BC9C20800568BF1E828B3FFFFF644240801741385F6740F566A00FF353000C221FF15D010C1218BC65EC20400558BEC5151568B75086A008D4D088B066A015156FF500C85C07C4A807D08FF730B0FB64D088B550C890AEB398B066A008D4DFE6A025156FF500C85C07C2766817DFEFEFF750583C9FFEBDA66817DFEFFFF75158B066A008D4DF86A045156FF500C85C07D095EC9C30FB74DFEEBB78B4DF8EBB2558BEC51518B450C5333DB568918578B7D088D45085057E871FFFFFF593BC3597C19837D08FF75188D4508895DFC5057E858FFFFFF593B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C3597D0C5F5E5BC9C3C745FC01000000395DFC74528B4508405053FF353000C221FF15DC10C1218BF03BF3744D8B4508881C068B0753FF75085657FF500C3BC37CC2395DFC74445356E899B5FFFF59598B4D0C56538901FF353000C221FF15D010C12133C0EB9DFF750853FF156412C1218BF03BF38975F87507B80E000780EB838B450803C0894508EBA88B4D0C8B45F88901EBCE558BEC8B450C2D11010000741D487514817D1060F00000750B6A01FF7508FF15AC11C12133C05DC2100066837D1001EBE6558BEC83EC3C53568B75085733FF8D4DC48B06576A1C5156FF500C3BC77C0D66817DC4FEFF740AB8FFFF00805F5E5BC9C38B45DC8B1633C9578D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("04806A01C1E002515056FF52143BC77CE18B06578D4DE86A085156FF500C3BC77CD08B168D5DF833C95333C06A01515056FF52143BC77CBA66397DEC897D080F8E870000008B06578D4DF06A085156FF500C3BC77C9C8B0E8D55E05233C06A01575056FF5114397DF08B45F88B4DF475628B168D4408FC33C95757515056FF52143BC70F8C69FFFFFFFF75ECFF750CFF75FCFF75F856E87300000083C4143BC70F8C4CFFFFFF8B45E08B0E5757575056FF51143BC70F8C37FFFFFFFF4508668B4508663B45EC0F8C79FFFFFF33C0E91FFFFFFF8B168D4408F833C95757515056FF52143BC70F8C07FFFFFF8B450C393874B48B481C3B4DF0740583C020EBEFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("75105056E8AE00000083C40CEB90558BEC81EC0C0100008B451453565733FF3938740889781C83C020EBF4397D18897DFC76758B7508578D4DF46A088B065156FF500C3BC77C638B0657FF75F88D8DF4FEFFFF5156FF500C3BC77C4E8D85F4FEFFFF6A0150E87DB3FFFF8B75148BD88BC659593938741F397E1C75138B066AFF6AFF575053E83B50000083F802742083C620393E75E153FF15F411C121FF45FC8B45FC3B4518728B33C05F5E5BC9C38B45F489461CEBDF558BEC5151538B5D0C56570FB7431083F8080F844A01000083F80D0F84C200000083F84174488B750833FF578D4DFC8B066A045156FF500C3BC77C2D8B06578D4DF86A045156FF500C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3BC77C1C8B4B148B7B04037D108BC18D75F8C1E902F3A58BC883E103F3A433C05F5E5BC9C38B73048B5D0803751033FF8B03578D4DFC6A045153FF500C3BC77CDF8B03578D4D0C6A045153FF500C3BC77CCE8B063BC7740750FF15BC10C121FF750C6A02FF154810C121508906FF154410C1218B0B57FF750C5053FF510CFF368BD8FF154010C1213BDF7D92FF36FF15BC10C121893E8BC3EB86F64318020F847AFFFFFF8B5B0433FF035D108B033BC77408893B8B0850FF51088B7508578D4DFC6A048B065156FF500C3BC70F8C4EFFFFFF8B06578D4D0C6A045156FF500C3BC70F8C39FFFFFF8B166A105833C929450C576A01515056FF52145368E871C121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6A01FF750C56FF154412C1213BC70F8C0CFFFFFFE905FFFFFF8B73048B5D0803751033FF8B03578D4DFC6A045153FF500C3BC70F8CE7FEFFFF8B03578D4D0C6A045153FF500C3BC70F8CD2FEFFFFFF750C57FF353000C221FF15DC10C1213BC7894510750AB80E000780E9B1FEFFFF8B0B57FF750C5053FF510C8BD83BDF7C15FF36FF157812C12157FF7510E856B1FFFF59890659FF751057FF353000C221FF15D010C1213BDF0F8CE9FEFFFFE96CFEFFFF56BE1800C22156FF15E410C121833D700CC22100751068F871C121E81400000059A3700CC22156FF15C410C121A1700CC2215EC3558BEC83EC288B45080FB6480F510FB6480E510FB6480D510FB6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("480C510FB6480B510FB6480A510FB64809510FB64808510FB74806510FB7480451FF308D45D8688C6FC12150FF155C11C12183C4348D45D850FF15E011C121C9C3E83500000085C07C13E82FBBFFFFF7D81BC025FBBFFF7F0505400080C3E8B502000085C07C13E812BBFFFFF7D81BC025FBBFFF7F0505400080C3558BEC81EC24020000834DF4FF834DE8FF53565733FF33DB393D600CC221897DF0897DF8897DEC897DE474678D85DCFDFFFF680401000050FF350800C221FF156010C1218D85DCFDFFFF5750E81BB0FFFF598945EC598D4DF05150FF153C12C1218BF03BF70F8C710100008B45F08D55FC52508B08FF511C8B45FC500FB74818894DF40FB7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("481A894DE88B4DF0518B11FF523066813D3001C221FFFF0F84E7000000C745FC3001C221BE3401C2218B0639380F84BC0000003BDF0F8591000000397DF8752B8D85E0FEFFFF680401000050E806130000598945F8598D85E0FEFFFF682E07C22150FF155C10C121FF45F88B068B40283BC774458B3D3410C12150FFD785C07E368B06FF7028FFD740508B06FF70288B45F88D8405E0FEFFFF50FF153010C1218D85E0FEFFFF50FF155810C1218BD8F7D3C1EB0483E30133FF8B45F83BDF0F84A300000080A405DFFEFFFF008B45FC0FB7002BC70F8424010000480F84EF000000480F848C000000480F840F0100008345FC088B45FC83C608668138FFFF0F85",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("25FFFFFF393D600CC22174493BDF74178D85E0FEFFFF6A0150E8C9AEFFFF593BDF598945F47505B8EE09C22150FF75ECFF75F0FF154C12C1213BDF8BF07409FF75F4FF15F411C1218B45F0508B08FF51083BF77C0233F6FF75ECFF157812C1218BC65F5E5BC9C380A405E0FEFFFF00E958FFFFFF6A018D45E45F508B06FF30FF75F0E8B615000083C40C85C07C068B7DE483E7208B0657FF700C668B484051FF7034FF30FF35E805C221FF75E8FF75F4FF701CFF7018FF7008FF700468386EC121E81409000083C43433FFE91FFFFFFF8B06FF700CFF30FF35E805C221FF75E8FF75F4FF7018FF7008FF700468386EC121E8C103000083C424E9F1FEFFFF8B06",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF700CFF30FF7008FF7004E80802000083C410E9D7FEFFFF558BEC81EC900100005333DB66813D3001C221FFFF5657895DF4895DF8744ABF3001C221C745FC3401C221BE386EC1218B45FC8B008B083BCB74200FB7172BD30F84200100004A0F84040100004A0F84FD0000004A0F840B0100008345FC0883C70866813FFFFF75C7391DE805C2210F84B40000008D8570FEFFFF680401000050FF350800C221FF156010C1218D8570FEFFFF50FF153410C1218D7400028D8D74FFFFFF56E85C77FFFF568D8570FEFFFFFFB574FFFFFF6AFF505353FF151810C1218D45F8506A02FFB574FFFFFFFF154012C1213BC37C308B45F88D55F452508B08FF511C3BC37C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1F8B45F4FF7014668B481AFF7010668B40185150FF35E805C221FF153812C121399D74FFFFFF7419F645F0017413FFB574FFFFFF53FF353000C221FF15D010C121395DF4740C8B45F8FF75F48B0850FF51308B45F83BC37409895DF88B0850FF51085F5E33C05BC9C351FF7018FF700456E82B0B000083C410E9F5FEFFFF5351E87E0A00005959E9E7FEFFFF558BEC81EC000200008D8500FEFFFF6800020000500FB74508506A00E86C88FFFF50FF15C811C12185C07502C9C3FF750C8D8500FEFFFF50E81EACFFFF5959C9C38B4424040FB6480F510FB6480E510FB6480D510FB6480C510FB6480B510FB6480A510FB64809510FB64808510FB74806510FB7",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("480451FF30683007C221FF742438FF155C11C12183C434C3558BEC81EC3801000053565733F6FF75108975F88975FCE8710F000085C059750B56FF7510E8C109000059598D45CC50FF7510E87DFFFFFF5985C0590F84040100008B3D5C11C1218D45CC508D85C8FEFFFF686407C22150FFD783C40C8D45F48B1D1C12C121508D45F85056681F0002005668F009C2218D85C8FEFFFF56506800000080FFD33BC60F85B800000039750C0F85D0000000FF75088D85C8FEFFFF687007C22150FFD783C40C8D85C8FEFFFF50FF153410C121408B3D2012C121508D85C8FEFFFF506A015656FF75F8FFD73BC675728D45F4508D45FC5056681F0002005668F409C221",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("56687C07C221FF75F8FFD33BC6754F8D85C8FEFFFF680401000050FF350800C221FF156010C1213BC6743340508D85C8FEFFFF506A015656FF75FCFFD73BC6751D397514744E6A0A688C07C2216A0156689807C221FF75FCFFD73BC674443975F88B3D2412C1217405FF75F8FFD73975FC7405FF75FCFFD733C05F5E5BC9C3FF750C8D85C8FEFFFF50FF15F010C121E92FFFFFFF68A807C221FF75FCFF151012C121FF75FC8B352412C121FFD6FF75F8FFD66A0158EBC3558BEC81EC3801000053565733F6FF75288975F88975FCFF7524FF7510FF750CE83CFEFFFF83C41085C00F8442040000FF75088B1DF010C1218D85C8FEFFFF50FFD38B3D5C10C1218D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("85C8FEFFFF68B807C22150FFD7FF750C8D85C8FEFFFF50FFD78D4528508D45F85056681F0002005668F809C2218D85C8FEFFFF56506800000080FF151C12C1213BC60F85C50300003975100F85DF030000FF750C8D85C8FEFFFF68BC07C22150FF155C11C12183C40C8B3D3410C1218D85C8FEFFFF50FFD7408B1D2012C121508D85C8FEFFFF506A015656FF75F8FFD33BC60F85750300008D4528508D45FC5056681F0002005668FC09C2215668C807C221FF75F8FF151C12C1213BC60F854A0300008D45CC50FF7524E8FEFCFFFF5985C0590F84340300008D45CC50FFD740508D45CC506A015656FF75FCFFD33BC60F8517030000FF75FCFF152412C1218D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4528508D45FC5056681F0002005668000AC2215668D007C221FF75F8FF151C12C1213BC60F85E3020000FF75148D85C8FEFFFFFF750CFF750868D807C22150FF155C11C12183C4148D85C8FEFFFF50FFD740508D85C8FEFFFF506A015656FF75FCFFD33BC60F85A2020000FF75FCFF152412C121FF75F8FF152412C1218D4528508D45F85056681F0002005668040AC2218D85C8FEFFFF56506800000080FF151C12C1213BC60F85610200003975100F858C020000FF750C8D85C8FEFFFF68E407C22150FF155C11C12183C40C8D85C8FEFFFF50FFD740508D85C8FEFFFF506A015656FF75F8FFD33BC60F851D0200008D4528508D45FC5056681F0002005668",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("080AC2215668F007C221FF75F8FF151C12C1213BC60F85F20100008D45CC50FFD740508D45CC506A015656FF75FCFFD33BC60F85D5010000FF75FCFF152412C121FF75F8FF152412C1218D45CC50FF7524E877FBFFFF5985C0590F84AD0100008D45CC508D85C8FEFFFF68F807C22150FF155C11C12183C40C8D4528508D45F85056681F00020056680C0AC2218D85C8FEFFFF56506800000080FF151C12C1213BC60F85650100008D4528508D45FC5056681F0002005668100AC22156680408C221FF75F8FF151C12C1213BC60F853A010000FF750C8D85C8FEFFFFFF7508682008C22150FF155C11C12183C4108D85C8FEFFFF50FFD740508D85C8FEFFFF50",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6A015656FF75FCFFD33BC60F85FC000000FF75FCFF152412C1218D4528508D45FC5056681F0002005668140AC22156682808C221FF75F8FF151C12C1213BC60F85C8000000FF75148D85C8FEFFFFFF750CFF7508683008C22150FF155C11C12183C4148D85C8FEFFFF50FFD740508D85C8FEFFFF506A015656FF75FCFFD33BC60F8587000000FF75FCFF152412C1218D4528508D45FC5056681F0002005668180AC22156683C08C221FF75F8FF151C12C1218D45CC50FF7520E80FFAFFFF5985C05974498D45CC50FFD740508D45CC506A015656FF75FCFFD33BC67530FF75FCFF152412C1218D4528508D45FC5056683F000F0056681C0AC22156684408C221",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF75F8FF151C12C1213BC674493975F87417FF75FCFF152412C1213975F87409FF75F8FF152412C12133C05F5E5BC9C3FF75108D85C8FEFFFF50FFD3E928FCFFFFFF75108D85C8FEFFFF50FF15F010C121E977FDFFFFFF751C8D85C8FEFFFFFF7518684C08C22150FF155C11C12183C4108D85C8FEFFFF50FFD740508D85C8FEFFFF506A015F575656FF75FCFFD38D45F450682872C1215756681872C121FF15EC11C1213BC67C1B8B45F4680872C12157FF75248B0850FF51148B45F4508B08FF5108FF75FC8B352412C121FFD6FF75F8FFD68BC7E951FFFFFF558BEC81ECD401000053565733DBFF7534895DFC895DF8FF7528FF7524FF7520FF751CFF7514",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF7510FF750CFF7508E8A9FAFFFF83C42485C074488D45D050FF7528E8ACF8FFFF598D45D059508D85CCFEFFFF685408C22150FF155C11C12183C40C8D4524BE3F000F0050568D85CCFEFFFF53506800000080FF151812C1213BC3740733C05F5E5BC9C3395D3874368D4520508D45FC5053565368200AC22153686008C221FF7524FF151C12C1213BC38945340F8547020000FF75FCFF152412C121895DFC8D4520508D45FC5053565368240AC22153686808C221FF7524FF151C12C1213BC38945340F85110200008D85CCFEFFFF8B3D2012C1216A02506A015353C685CCFEFFFF30FF75FC889DCDFEFFFFFFD73BC38945340F85E10100008D4520508D45F8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5053565368280AC22153687408C221FF75FCFF151C12C1213BC38945340F85B7010000FF752C8D85CCFEFFFF687808C22150FF155C11C12183C40C8D85CCFEFFFF50FF153410C12140508D85CCFEFFFF506A015353FF75F8FFD7FF75F8894534FF152412C121395D340F856B010000FF75FCFF152412C121395D38895DFC0F84940000008D85CCFEFFFF680401000050FF350800C221FF156010C1210FB74530508D45D0687C08C22150FF155C11C12183C40C8D45D0508D85CCFEFFFF50FF155C10C1218D4520508D45FC50535653682C0AC22153688408C221FF7524FF151C12C1213BC38945340F85EC0000008D85CCFEFFFF50FF153410C12140508D85CC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FEFFFF506A015353FF75FCFFD73BC38945340F85C20000008D451C50682872C1216A0153681872C121FF15EC11C1213BC30F8CA3000000A1306EC1213BC37E443BC3895D307E298D952CFEFFFFB9580AC22181F9800AC2217D168B318BFAA5FF453083C104A5A583C210394530A57CE28B4D1C8DB52CFEFFFF5650FF75288B1151FF5214A1346EC1213BC37E443BC3895D307E298D952CFEFFFFB96C0CC22181F9940CC2217D168B318BFAA5FF453083C104A5A583C210394530A57CE28B4D1C8DB52CFEFFFF5650FF75288B1151FF521C8B451C508B08FF5108395D247409FF7524FF152412C121395DFC7409FF75FCFF152412C12133C0395D340F94C0E95C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FDFFFF558BEC81EC04010000568B750C85F67406C706010000008D85FCFEFFFF50FF7508E8A4F5FFFF5985C059741F8D450C50683F000F006A00689408C2216800000080FF151812C12185C0740533C05EC9C38D85FCFEFFFF50FF750CE8E70500005985C05974198D85FCFEFFFF689C08C22150FF155C10C12185F674038326008D85FCFEFFFF50FF750CE885010000598BF059FF750CFF152412C1218BC6EBAF558BEC81EC1401000053568D45F45750FF7514E84AFFFFFF5985C0590F8493000000837DF4000F8440010000FF75108B5D0C8B355C11C1218D85ECFEFFFF53FF750868AC08C22150FFD683C4148D85ECFEFFFFBF000000805057E815010000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5985C05974508D45F8508D45FC50FF751053FF7508E87F01000083C41485C0753C3945F80F85E3000000538D85ECFEFFFFFF750868B808C22150FFD683C4108D85ECFEFFFF5057E8C90000005985C0590F85B700000033C05F5E5BC9C3FF75FC53FF7508E8F201000083C40C8D85ECFEFFFF53FF750868C008C22150FFD683C4108D451450683F000F008D85ECFEFFFF6A005057FF151812C12133C93BC174648D45F0508D45145051681F0002005168300AC2218D85ECFEFFFF515057FF151C12C12185C07546FF75FC8D85ECFEFFFF53FF750868D008C22150FFD683C4148D85ECFEFFFF50FF153410C12140508D85ECFEFFFF506A016A006A00FF7514FF15",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2012C121FF7514FF152412C1216A0158E943FFFFFF558BEC81EC0C0100008D45FC565033F6683F000F0056FF750CFF7508FF151812C1213BC6740533C05EC9C35656568D45F856508D85F4FEFFFFC745F8040100005056FF75FCFF150012C1213BC675158D85F4FEFFFF50FF75FCE8A2FFFFFF593BC65975C7FF75FCFF152412C121FF750CFF7508FF151412C12133C93BC60F94C18BC1EBA4558BEC81EC100100008B45145333DB563BC357740289188B45183BC37406C700010000008B351812C1218D45F8BF3F000F0050575368340AC2216800000080895DFCFFD63BC3740733C05F5E5BC9C36A205B395D107433538D85F0FEFFFFFF750CFF750868DC08",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C22150FF155C11C12183C4148D45F450578D85F0FEFFFF6A0050FF75F8FFD685C0741D4B85DB7FC38B451885C07403832000FF75F8FF152412C1218B45FCEBA38B4514C745FC0100000085C074028918FF75F4FF152412C121EBCD558BEC81EC0C0100005657FF75108B3D5C11C1218D85F4FEFFFFFF750CFF750868E808C22150FFD783C4148D4510BE0000008050683F000F008D85F4FEFFFF6A005056FF151812C12185C0740633C05F5EC9C3FF750C8D85F4FEFFFFFF750868F408C22150FFD783C4108D85F4FEFFFF5056E843FEFFFF598D45F859508D45FC506A00681F0002006A0068380AC2218D85F4FEFFFF6A005056FF151C12C1218BF885FF7516",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF75FCFF7510E827000000595933C985C00F94C18BF9FF75108B352412C121FFD6FF75FCFFD633C085FF0F94C0E978FFFFFF558BEC81EC2801000053568D45FC57508D85D8FEFFFF508D45E833F6505656FF7508C745FC04010000FF150C12C1213BC6751FFF75FC8D85D8FEFFFF50FF75E85656FF750CFF152012C1213BC68945F0740733C05F5E5BC9C38D45DC8B1D0012C1215056568D45FC56508D85D8FEFFFF8975F85056FF7508FFD385C00F858F0000008B3D2412C1218D45F450683F000F008D85D8FEFFFF5650FF7508FF151812C1213BC68945F075688D45E4508D45EC5056681F00020056683C0AC2218D85D8FEFFFF5650FF750CFF151C12C121",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3BC68945F07549FF75ECFF75F4E820FFFFFF5959FF75F4FFD7FF75ECFFD78D45DCFF45F85056568D45FC56508D85D8FEFFFF50FF75F8FF7508FFD385C00F8477FFFFFF33C03975F00F94C0E936FFFFFFFF75F4FFD7EBEC558BEC515156837D0C0057BEFC08C2218D7DF8A566A5750633C05F5EC9C3FF750CFF7508FF156410C1218BF08D45F850FF153410C12103F03B750C730D8D45F850FF7508FF155C10C1218BC6EBCC558BEC81EC10020000538D85F4FEFFFF5650FF7508E80EF0FFFF5985C05974748D85F4FEFFFF508D85F0FDFFFF680409C22150FF155C11C12183C40C8D45F8508D4508506A0068190002006A0068400AC2218D85F0FDFFFF6A0050",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6800000080FF151C12C12185C0752A8D45FC50683F000F006A00681009C221FF7508FF151812C121FF75088B352412C1218BD8FFD685DB740633C05E5BC9C3FF75FCFFD66A0158EBF2558BEC81EC04010000FF750C8D85FCFEFFFF682809C22150FF155C11C12183C40C8D450C50683F000F008D85FCFEFFFF6A0050FF7508FF151812C12185C0740433C0C9C3FF750CFF152412C1216A0158C9C3568B74240856FF153410C1218D4430FF3BC6720B80382E740348EBF4405EC333C05EC3558BEC81EC6C010000566A025E8D8594FEFFFF680401000050FF350800C221FF156010C12185C0745B8D4598508D8594FEFFFF50E85F00000085C074478D45CC50FF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7508E84F00000085C07437837D0C00741F8B45A08B4DD4C1E810C1E910663BC8750733C05EC9C208001BC024FE40EBF48B4DA08B45A43B4DD4750B3B45D8750633F68BC6EBDE3B4DD475033945D81BF683E6FE46EBEC558BEC83EC105356578B7D0C6A0D33C05933DBF3AB8D45F8895DF850895DF4FF7508895DFCE8840000008BF05985F659745F5653FF353000C221FF15DC10C1218BD885DB745E5356FF75F8FF7508E8BE00000083C4108945FC85C074348D45F4508D45F050683809C22153E80C01000083C4108945FC85C074178B4DF48B75F08B7D0C8BC1C1E902F3A58BC883E103F3A485DB740F536A00FF353000C221FF15D010C1218B45FC5F5E5B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C9C2080056BE1800C22156FF15E410C121833D7C0CC221007536A13800C22185C07514683C09C221FF156810C12185C0A33800C2217415684809C22150FF157010C12185C0A37C0CC221750433C05EC356FF15C410C121FF74240CFF74240CFF157C0CC2215EC356BE1800C22156FF15E410C121833D780CC221007536A13800C22185C07514686009C221FF156810C12185C0A33800C2217415686C09C22150FF157010C12185C0A3780CC221750433C05EC356FF15C410C121FF742414FF742414FF742414FF742414FF15780CC2215EC356BE1800C22156FF15E410C121833D740CC221007536A13800C22185C07514688009C221FF156810C12185C0A338",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00C2217415688C09C22150FF157010C12185C0A3740CC221750433C05EC356FF15C410C121FF742414FF742414FF742414FF742414FF15740CC2215EC3558BEC8B45085685C05774548B751085F6744D8B08668326008D550852FF750C50FF51188BF885FF7C308B45088D551052508B08FF510C8BF885FF7C148B451050668B483666890E8B4D08518B11FF524C8B4508508B08FF51088BC75F5E5DC3B803400080EBF5568BF1E83178FFFFF644240801741385F6740F566A00FF353000C221FF15D010C1218BC65EC20400558BEC538B5D0856578B43BC33FF8B04C53401C221668B404A663BC7750C8B450C893889780433C0EB1B8B750C0FB7C08906C1E0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0450FF15F011C1213BC7750CB80E0007805F5E5B5DC208008B4BBC8B1E3BDF8946048B0CCD3401C221897D0C8B514C76C133C98B348A8BF9C1E70403F8FF450CA50FB74D0CA5A53BCBA573A6EBE5558BEC81EC9000000053568BF133DB578B86A00000003BC37530BF1800C22157FF15E410C1218B46148B04C53401C22166395848752B8B068BCEFF505085C0751057FF15C410C12133C05F5E5BC9C20C008B46148B04C53401C22166C74048010057FF15C410C1218B068D8D70FFFFFF518D4DF0518D4DFC518BCE895DF0895DFC889D70FFFFFFFF505885C074BA804DFF44399EA4000000750BE8CF2F00008986A4000000FFB6A4000000FF159411C12189",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("45F88B46148B04C53401C2213958580F848B000000E8A22F00003986A4000000747EF686BC00000002752A8D45F68BCE506A0B683EFDFFFFE8BE04000085C0740666395DF6750783A6BC000000FE838EBC00000002F686BC0000000175478D86880000005033C0FF750C395DF8FF75080F94C0FFB6A400000050E89B2E000083C4143BC38986B40000000F8406FFFFFF566AEB50FF156411C121804DFF10EB05395DF874F557FF15E410C1218B86B4000000838EB0000000103BC38935800CC2218BC875068B8EA400000053FF350800C22153518BC8FFB68C000000F7D91BC9FFB688000000F7D1234D0CF7D81BC051F7D0234508508D8570FFFFFFFF75FC50",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8B46148B04C53401C221FF7044FF75F0FF156011C12183A6B0000000EF578986A0000000891D800CC221FF15C410C121399EA0000000743F8B068BCEFF507885C07511FFB6A0000000FF153811C121E942FEFFFF395DF8741E8B4510F7D81BC083E0080C47505353535353FFB6A0000000FF15A411C1218B86A0000000E916FEFFFF8B5424048D81A40000003910742089108B81A000000085C074148B89B400000085C974028BC15250FF159C11C121C20400558BEC83EC545356578B7D086AEB57FF151011C121836508008BF085F60F855D0100008B35800CC221566AEB57FF156411C12189BEA00000008B068BCEFF50048B868000000085C074218D55FC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8B08528D550852FF7514FF7510FF750C5750FF510C83F8010F84AE0000008B450C48480F84B400000083E80D0F85B20000008B5D1085DB750D8D45AC5057FF159011C1218BD88D45EC5057FF158811C1218B066A016A008D4DEC6A0051536A0156FF5048837D1000750B8D45AC5057FF159811C1218B450C83F8050F849D00000083F806762583F80876713D8200000075196AFF6AEB57FF156411C12183A6A40000000083A6A0000000008B868000000085C07417FF75FC8D55088B0852FF7514FF7510FF750C5750FF51108B068BCEFF50088B45085F5E5BC9C210008B068BCEFF505CFF75148B068BCEFF7510FF750CFF504C894508E979FFFFFFF686B000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000274A68B467085C0749F8B0833D2837D0C070F94C25250FF5120EB8DF686B00000001075848B068BCEFF5034E978FFFFFF83FEFF0F85B0FEFFFFFF7514FF7510FF750C57FF156811C121EB88568BF15783BEAC000000007439F686B0000000087512837C240C00740B6AFCE8870B000085C07C6F8BB6AC000000FF74240C8B0656FF505833C985C00F94C18BC15F5EC204008B86B00000008BC8D1E9F6C1017442837C240C0074238BBEA0000000A8087521837C240C00741A6AFC8BCEE8350B000033C985C00F9DC1EBC08BBEA4000000EBDB57FF158C11C1212BC7F7D81BC040EBAA33C0EBA6558BEC568B750C578B7D1883270083FE397712744583FE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2B720583FE2F763B33C05F5E5DC383FE4E743081FE11010000742881FE1301000076E581FE15010000761881FE3101000076D581FE38010000760881FE1002000075C56AEBFF7508FF151011C12185C074B6FF751481C600200000FF751056FFB0A0000000FF154C11C1216A01890758EB98558BEC8B450C568B7508578B7D1483E8057420484875456AEB56FF151011C12185C074386A018BC8E8AFFEFFFF5F5E5DC210006AEB56FF151011C12185C0741C8BCF6A01C1E910510FB7CF516A006A00FFB0A0000000FF157C11C1218D45145057FF7510FF750C56E80AFFFFFF83C41485C074058B4514EBB457FF7510FF750C56FF156811C121EBA4558BEC83EC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("308B918400000053568DB18400000033DB573BD366895DF0895DF866895DE0895DE875188B496C3BCB740B8B015668D03CC12151FF108B163BD3744833C08D7DD0AB538D4DF05351AB8D4DD0516A02AB5368E858C121FF7508AB8B0252FF50183BC37C20FF750C8D45F053508D45E050FF153012C1213BC37D138D45F050FF157412C12133C05F5E5BC9C20C000FB7450C8B7D108D75E80FB688E06FC1218BC1C1E902F3A58BC88D45F083E10350F3A4FF157412C1216A0158EBCB558BEC51568BF1F686BC0000000475378D45FCC745FC01000000506A0B683BFDFFFFE819FFFFFF85C0742A8B45FC8B8EBC00000083E00183E1BFC1E0060BC10C048986BC00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00008B86BC000000F7D0C1E80683E0015EC9C36A0158C20C008B4424048B4C240883C098890183C01C508B08FF510433C0C20800836C24041CE98897FFFF836C24041C8B4424048D48E48B40E4FF5004C20400836C24041C8B4424048D48E48B40E4FF5008C20400836C240420E95497FFFF836C240420EBCA836C240420EBD8836C240424E93C97FFFF836C240424EBB2836C240424EBC0836C240428E92497FFFF836C240428EB9A836C240428EBA8836C24042CE90C97FFFF836C24042CEB82836C24042CEB90836C240430E9F496FFFF836C240430E967FFFFFF836C240430E972FFFFFF836C240434E9D696FFFF836C240434E949FFFFFF836C240434E9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("54FFFFFF836C240404E94C9AFFFF836C240438E9AE96FFFF836C240438E921FFFFFF836C240438E92CFFFFFF836C24043CE99096FFFF836C24043CE903FFFFFF836C24043CE90EFFFFFF836C240440E97296FFFF836C240440E9E5FEFFFF836C240440E9F0FEFFFF836C240444E95496FFFF836C240444E9C7FEFFFF836C240444E9D2FEFFFF836C240448E93696FFFF836C240448E9A9FEFFFF836C240448E9B4FEFFFF836C24044CE91896FFFF836C24044CE98BFEFFFF836C24044CE996FEFFFF8B4424048B4C24088B40B48B04C53401C2218B4038890133C0C2080033C0C2140033C0C218008B442404FF74240883C0D46A01508B08FF5144C208008B44",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2404FF74240883C0D46A01508B08FF5148C208008B44240833C98948046689480889480C33C0C208008B4424046AFC8D48C4E8C2060000C2080053568B742410578B7C241081FE3BFDFFFF740583FEFF750783A780000000FB81FE3FFDFFFF740583FEFF751BBB1800C22153FF15E410C1216683252402C2210053FF15C410C1218B47C48D4FC456FF50545F5E33C05BC208008B4424048B4C24088B403485C0890174068B0850FF510433C0C2080033C0C20C00568B7424088B4678D1E8A801740E8B4E088D460850FF511485C07C30837C240C007407837C240C027520F6467801741A8B463485C074068B0850FF510C8B767085F674068B0656FF501C33C0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5EC20800B801400080C210008B44240C832000B801400080C20C00558BEC81EC880000008B450C535683F8F957746283F8FA7E2483F8FC0F8E2502000083F8FD0F84F201000083F8FF0F841302000085C07C3783F8017E3985C07E2E8B4D08508B51C88D71C88BCEFF5260BF800104003BC7750F6A008BCEE87C05000085C07C028BC75F5E5BC9C21C00B801400080EBF28B5D088D73C88BCEE81DFCFFFF85C0750433C0EBDD8B433833FF3BC7740D8B0850FF51243D0140008075C78B43DCF7DE8B04C53401C2211BF623F389750CFF7004FF153410C1218D7400028D8D78FFFFFF56E83657FFFF8B43DC56FFB578FFFFFF8B04C53401C2216AFFFF70045757",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF151810C1218B8578FFFFFF8945FC8B43DC8B04C53401C2210FB7404AC1E0045057FF353000C221FF15DC10C1218BD03BD7895508752B39BD78FFFFFF7419F645F4017413FFB578FFFFFF57FF353000C221FF15D010C121B80E000780E921FFFFFF8B43DC8B04C53401C2210FB7484A3BCF7E148B404C8B308BFAA5A5A583C00483C21049A575EF8D4BC86A01894DF8E8100C0000BF1800C22157FF15E410C1218B43DC6A006A008B353C11C1218B04C53401C221FF352002C2210FB7404AFF7508508D450C506A01FF75FC6A01FFD6992BC233DBD1F85053FFD6992BC2D1F850FF158011C12150FF152C12C121578945FCFF15C410C1218B4DF853E8A40B00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00FF75088B35D010C12153FF353000C221FFD6399D78FFFFFF7415F645F401740FFFB578FFFFFF53FF353000C221FFD68B45FCE94BFEFFFF8B75088B4E088D460850FF51188B4678C1E802A8010F844FFEFFFF6A008D4EC8E8AA0A0000E940FEFFFF508B45088D48C8E88B030000E910FEFFFF558BEC83EC108B45085356578B40DC8B0CC53401C2218B4134F6C4047451F6C401754C33F6F7D0C1E80E33D283E0016639514A8BFE0FB759500F95C2F7DF8955FC8945F41BFF33D283E7043955FC0F95C203D333C985C00F95C103D703CA894DF87511B8800104805F5E5BC9C208006A015EEBB18B45F8C1E004506A00FF353000C221FF15DC10C12185C08945",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F00F84A000000085F6740F6A10BEF06FC121598BF8F3A583C040837DF400740E8BF8BE4070C121A5A5A583C010A5837DFC00740EBE3070C1218BF8A5A5A5A583C01085DB74258B55088BCBC1E1048B52DC8BF88BC18B14D53401C221C1E9028B7254F3A58BC883E103F3A4FF353000C2216A40E8FB56FFFF5985C059743368F0E5C1218BC8FF75F06A10FF75F868F872C121E8372400008D4814F7D81BC023C18B4D0C8901750EB80E000780E92AFFFFFF33C0EBE28B45088D48C88B40C8FF502833C0E913FFFFFF8B442404FF74240883C014508B08FF510CC208008B4424046A018B40DC8B04C53401C221FF7004E8F389FFFF59598B4C240C8901F7D81BC0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("25F2FFF87F050E000780C20C00558BEC83EC20F6450C015356570F84060100008B5D088B83840000008BC8C1E907F6C101740933C05F5E5BC9C20C000C808983840000008D45F850FF7510E85761FFFF8B4354598B7B50598D73C88D4DF88945F4518B068BCEFF506433C989450C3BC1740C8B45F88943508B45FC8943543B7B5075088B45F43B43547404834B7801394B74753E8B4378D1E8A8017465394B6874308D73588D7DE0A5A5A5A58B45E00343508945E88B43540345E48945EC8B437485C075038B433C8B088D55E05250FF5138F6437802750D8B433485C074068B0850FF51208B450C80A3840000007FF7D81BC025FBBFFF7F0505400080E933FF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFF8B43683BC174146A16FF7354FF735051515150FF15A411C121EBB58B068BCEFF5034EBACB86B000480E905FFFFFFF64424080174188B442404FF74240C83C05050E83A90FFFF5933C059C20C00B86B000480EBF68B44240456837870008D7070750B56FF15E811C12185C07C10FF7424108B36FF7424108B0656FF500C5EC20C008B442404FF7424088B4070508B08FF5110C208008B4424048B407085C0750F8B442408832000B805400080C20800FF7424088B0850FF5114EBF1837C240801751C8B4424048B4C240C8B40DC8B04C53401C2218B4034890133C0C20C00B86B000480EBF68B4060E951BEFFFFB805400080E95BBEFFFF558BEC83EC4C53",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("568BF15733FF8B4E6C897DFC3BCF897DF40F84CA0200008B86AC0000008D9EAC0000003BC7753F8B46743BC775388B46148B04C53401C2216639783E740B8B0153682873C12151FF10393B75198B466C8D567452681873C1218B0850FF113BC70F8CB20000008B033BC774498945FC8B0850FF51048B86B0000000A8027408A8040F85BE0100006A01D1E85F23C78945F8743533FF85FF0F84820000008B4674508B08FF51148BF885FF74737D54BF05400080EB4D8B466C8D55FC52680873C1218B0850FF11EBAD8B0385C074C78B0850FF51488BF885FF7C2874B98B0385C074098B0883230050FF51088B466C8D567452681873C1218B0850FF118BF885FF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7D938B45FC85C074068B0850FF510883A6B0000000FD8BC75F5E5BC9C20400837DF800752A8B45FC85C00F84B801000033D28B0839130F95C2528D55F45250FF513C8BF885FF7CBA838EB0000000028B1BC745B41400000085DB8BC375038B46748B088D55F05250FF510C8BF885FF7C918B46788D5E7885C074098B0883230050FF51088B467C8D7E7C85C074098B0883270050FF51088B86AC00000085C075038B46748D55B48B08528D55C8528D55D852575350FF51208BF885FF0F8C40FFFFFF8B45E08D4DE82B45D8518BCE8945E88B45E42B45DC8945EC8B06FF506485C074128B45E88986880000008B45EC89868C0000008B4E408D55C88D4640528D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("55D85250FF511C837DF800753883BEAC00000000752FFF75F08BCEE862F0FFFFFF75F48BCEFF75DCFF75D8E81EEEFFFF85C00F8476FEFFFF8B466C85C074068B0850FF51188B45FC85C0740A8365FC008B0850FF5108F686B00000000475096A018BCEE89F040000837D08007406837D08FC756D8B86B0000000A80875630C088986B00000008B86AC00000085C075038B46748B0850FF511C6A018BCEE8ACF1FFFF8B46788BFEF7DF8D4E441BFF33DB23F98B08535750FF51208B467C3BC374088B08535750FF51208B467853508B08FF511C8B767C3BF374078B065356FF501C33C0E930FEFFFF8B4674508B08FF5118E94CFEFFFF568B7424088B4670A802",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("750633C05EC20400C1E803A8015774068B0656FF50188B466C85C075038B46348B0850FF512C836670F98B466085C074248B3D3811C12150FFD78B467485C074146A006AEB50FF156411C121FF7674FFD7836674008B463885C0740A8B088366380050FF51088B463C85C0740A8B0883663C0050FF510833C05FEB88568B7424088B4670A808750633C05EC2040024F7578946708B463C33FF3BC774088B08575750FF51208B46385757508B08FF51208B466C3BC775038B46348B085750FF512833C05FEBC4558BEC83EC28538B5D08568B750C578D7B50A5A5A5A5837B60000F849B0100008B737C8B3D0411C121C1EE0583E601837D1000745FFF75108D45",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D8FF750C50FF152411C12185C0744BFF750C8D45D850FF156C11C12185C0753A8B450C8B48048B00F7D9F7D851508D45D850FF152011C1218B437485C08BF075038B73608D45D86A0150FF15B812C1215056FFD7834B7C2033F685F674158B437485C075038B43606A016A0050FFD783637CDF8B43748365FC008365F80085C075038B43608D4DF85150FF157411C12150FF157811C1218B437485C075038B43608D4DE85150FF157011C1218B45FCF7D8508B45F8F7D8508D45E850FF152011C1218B450CC74510140000008B103955E8750F8B4DEC3B48047507C74510160000008B4DF08B70082B4DE82BF23BCE75148B480C8B7DF42B48042B7DEC3BF975",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("04834D10018B4B7485C975038B4B60FF7510894D0C8B48048B400C2BC150568B35A411C12151526A00FF750CFFD68B437485C075038B43608D7B505750FF157011C1218B45FCF7D8508B45F8F7D85057FF152011C1218B436033D23BC274228B4B743BCA75028BC83BC874158B4B5C6A142B4B54518B4B582B0F5152525250FFD65F5E33C05BC9C20C00B801400080C20400558BEC568B7508578B7D0C83FF07722183FF08771CF646700274168B463085C0740F8B0833D283FF070F94C25250FF5120FF75148B46C08D4EC0FF751057FF504C8B4D185F5E890133C05DC21400568B742408578B46BCFF7424108D4EBCFF506885C0740733C05F5EC208008B46",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2C85C074178B38E8A91900000FBFC050FF742414FF762CFF571CEBDD6A0158EBD88B442404F6406C087412837C240800740B8B40346A00508B08FF511C33C0C2080033C0C21000558BEC538B5D0C56BE1800C2218323005756FF15E410C1218B7D088D4D0C518B47B80FB70D2002C2218B04C53401C22151668B481C668B40185150FF35E805C221FF155812C12156894508FF15C410C1218B450885C07C278B57B88B450C538B14D53401C2218B08FF3250FF51188BF08B450C508B08FF510885F67D098BC65F5E5B5DC2080033C0EBF5568BF18B86B800000085C074278B086AFF6A0150FF51108B86BC000000C1E804A80174108B4E488D46486A006A006A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0150FF511C5EC3568BF1578B7C240C8B96B00000008D86B00000008BCF83E2FB83E101C1E1020BCA89088B86A000000085C0743A8B8EB400000085C974028BC16AF050FF151011C121C1E81C83E001742285FF751E8B86B400000085C075068B86A00000006A0050FF150011C1215F5EC2040085C075F785FF74F38B86B400000085C075068B86A00000006A08EBD8C20400B880010400C204006A0158C2040033C0C204008B417885C074108B0833D2395424040F94C25250FF5134C204008B44240483C0F8508B08FF5110C20800558BEC8B450C8D550C526A008B086A106A00685070C12150FF511085C07C1E8B450856FF750C83C0FC8B0850FF51148BF0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8B450C508B08FF51088BC65E5DC20800558BEC8B450C8D550C526A008B086A006811100000685070C12150FF510C85C07C3757568B7508FF750C8D4EACE87788FFFF8B4E5C8BF833C085FF0F9DC083E00183E1DFC1E0050BC189465C8B450C508B08FF51088BC75E5F5DC20C008B4C24048B415C8BD0C1EA05F6C201741224FE89415C8B495485C974068B0151FF501C33C0C20800558BEC83EC388B450C8365F8008065FF008065FE0053564857741683E80F741183E810740CB86B0004805F5E5BC9C22C008B5D206A0253FF15B412C12183F805751A837D1C00C645FF017510FF7518E8CB0200005989451CC645FE018B451485C0740E83380875098B4004",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("83E0018945F88B752485F60F85910000008B45088D7DC88D7048A5A5A5A533F6FF75F88B45088D55C883C0B8FF751C8B08FF75285253FF750C50FF51483975248BF87448807DFF00754256FF75F4FF75F053FF15A412C12156FF75ECFF75E853FF15A812C12156FF75E4FF75E053FF15AC12C12156FF75DCFF75D853FF15B012C121FF752053FF159C12C121807DFE007409FF751CFF158C12C1218BC7E91DFFFFFF8D7DC8807DFF00A5A5A5A50F856BFFFFFF8D45C86A025053FF159812C1218D45E833F650565653FF15A812C1218D45F050565653FF15A412C1218D45E05053FF159012C1218D45D85053FF159412C1216A0153FF159C12C121894520E91D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFF837C2408017408B86B000480C21C008B442404568B7424208D48B856FF7424208326008B01FF506C85C0740A33C039060F94C05EEBD6B801400080EBF6B801400080C214008B44240853566A0185C05A740289108B4424148B74240C85C0741F8B4E748320008BD9C1EB0484DA7406C70004000000C1E90384CA74038308028B4C241885C9740F8B467085C0890174068B0850FF51045E33C05BC210008B442404FF74241483C0F0FF74240C8B0850FF5148C21400558BEC83EC108B45088D55F052FF750C8D48B88B40B8FF507C85C07509B86B000480C9C20C00568B75108D45F05650E89684FFFF5983C608598D45F85650E88784FFFF5933C0595E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EBD88B44240433C98B40CC8B04C53401C2216639483C8B4424080F95C1890833C0C20800558BEC837D0C017409B86B0004805DC21C00FF7518FF7514FF7510FF150811C1218B4D20F7D81BC083E003890133C0EBDD558BEC83EC10837D0C017409B86B000480C9C21800FF75148D45F0FF751050FF152411C1218B4D1CF7D81BC083E003890133C0EBDCB801400080C21C006A015839442404740533C0C20800578B7C240C568DB190000000A5A5A5A55E5FEBE9558BEC81EC300200008B45085333DB563BC3577513535353689C09C221FF15A012C1215F5E5BC9C3668B480A663BCB0F85B2010000895D080FB748060FB7700403C88B3DD810C121894DFC03",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F00FB7480803C856894DF4FFD78D4400028D8DECFEFFFF508945F8E8FE45FFFF5353FF75F8FFB5ECFEFFFF6AFF568B35D410C1215353FFD68B85ECFEFFFFFF75FC8945F0FFD78D4400028D8D6CFFFFFF508945F8E8C545FFFF5353FF75F8FFB56CFFFFFF6AFFFF75FC5353FFD68B856CFFFFFFFF75F48945ECFFD78D7C00028D8D6CFEFFFF57E89345FFFF535357FFB56CFEFFFF6AFFFF75F45353FFD68B7D088B856CFEFFFF3BFB8945F80F84D301000053538D85D0FDFFFF6A20506AFF575353FFD66A098D7740598DBDF0FDFFFFF3A566A58B750853538D8516FEFFFF6A20508D46666AFF505353FF15D410C1216A0D81C6A6000000598DBD36FEFFFFF3A5",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8B450866A5668B4046663BC30F84640100000FB7C0059C0000005053FF353000C221FF15DC10C1218BD03BD38955FC7579399D6CFEFFFF8B35D010C1217418F685E8FEFFFF01740FFFB56CFEFFFF53FF353000C221FFD6399D6CFFFFFF7415F645E801740FFFB56CFFFFFF53FF353000C221FFD6399DECFEFFFF7418F68568FFFFFF01740FFFB5ECFEFFFF53FF353000C221FFD633C0E93CFEFFFF0FB7D18BC803CA894D08E942FEFFFF8B45086A27598DB5D0FDFFFF8BFAF3A50FB748468DB0DC0000008BC18DBA9C000000C1E902F3A58BC883E103F3A466C785F4FDFFFF9C00FF75FCFF75F8FF75ECFF75F0FF15A012C1218B35D010C1218BF88D85D0FDFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF3945FC740CFF75FC53FF353000C221FFD6399D6CFEFFFF7418F685E8FEFFFF01740FFFB56CFEFFFF53FF353000C221FFD6399D6CFFFFFF7415F645E801740FFFB56CFFFFFF53FF353000C221FFD6399DECFEFFFF7418F68568FFFFFF01740FFFB5ECFEFFFF53FF353000C221FFD68BC7E961FDFFFF8D85D0FDFFFF8945FCE954FFFFFF895DFCE955FFFFFF568BF1686801C221C706003BC121FF157810C121F644240801741385F6740F566A00FF353000C221FF15D010C1218BC65EC20400568BF1E85F5AFFFFF644240801741385F6740F566A00FF353000C221FF15D010C1218BC65EC204008B44240885C07508B857000780C20800C7000100000033C0",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EBF38B442404568B74240C578B40146A10598B04C53401C2218B782033C0F3A65F5E0F95C0C208006A00E8EA54FFFFC38B4424048D48E48B40E4FF5004C204008B4424048D48E48B40E4FF5008C20400568BF1E88C59FFFFF644240801741385F6740F566A00FF353000C221FF15D010C1218BC65EC20400566A086A00FF353000C221FF15DC10C1218BF085F674588B442408FF353000C2218D480483C0106A40890E894604E8C844FFFF5985C059743F68C9D8C121566A046A02684873C1218BC8E8071200008D4814F7D81BC023C18B4C240C8901751C566A00FF353000C221FF15D010C121B80E0007805EC2080033C0EBD333C0EBF48B5424085356578B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("023B055873C12175106A10BF5873C121598BF233DBF3A674183B05583BC12175286A10BF583BC121598BF233C0F3A675188B4C24188B4424105089018B08FF510433C05F5E5BC20C00B802400080EBF38B44240456578078080075118B40F48B04C53401C2218B702485F67505BE3873C1218B7C241033C0A5A5A5A55F5EC208008B442404FF7424088A480868483CC121F6D91BC983E10C83C1202BC18B4004508B08FF11C2080053568B74240C5733FF668B460A6685C0742C0FBFC0C1E0035057FF353000C221FF15DC10C1218BF885FF745E668B460A663D0100755F8B46048907894704FF353000C2216A40E88043FFFF5985C05974640FBF4E0A68E2D8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C121576A0851686873C1218BC8E8BC1000008D4814F7D81BC023C18B4C24148901753E576A00FF353000C221FF15D010C121B80E0007805F5E5BC208000FBFC085C07EA28B56048BCF8BD88B0283C204890189410483C1084B748BEBEE33C0EBB133C0EBD253568BF15733FF668B460A663BC77422663D0100752257578B760457FF7424208B066A015768E858C121FF74242C56FF50185F5E5BC2080033DB663BC77EF38B4604575757FF7424208B04988B086A015768E858C121FF74242C50FF51180FBF460A433BD87DCBEBD6558BEC81EC1802000053578B7D0C8D45108B57048BCAC1E10485D28D9C0DD8FDFFFF7E38568B77088D4B088975FC8955F88B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("55FC668B326683FE0C754B83C0108BFB8D70F0A5A5A5A58B7D0C8345FC0283EB1083E910FF4DF875D65E8D85E8FDFFFF8945E88B47048365EC008365F4008945F08D45E8508B4508FF378D4820E813FFFFFF5F5BC9C366F7C6004066893374136A045A83FA027517668B1083C004668911EBA70FB7D60FB692E06FC121EBE483FA04751B663BF2750AD94410FC03C2D919EB878B1083C0048911E97BFFFFFF6683FE0574186683FE0774128B1083C00889118B50FC895104E95DFFFFFFDD0083C008DD19E951FFFFFF8B4424088B4C24048B0085C0890174068B0850FF5104C20C008B4C24088B4424048B118B490489108948048B0085C074068B0850FF5104",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C20C00558BEC8B81AC00000085C0741A8D55108B0852FF7510FF750CFF750850FF51748B45105DC20C00FF7510FF750CFF7508FFB1A0000000FF156811C121894510EBDF568BF156FF74240CE85844FFFF8B44240C836628F889462033C0C74614C070C12189461889461C89462C894624C706A870C121C746146870C1218BC65EC20800568BF1E829ADFFFFF644240801741385F6740F566A00FF353000C221FF15D010C1218BC65EC20400558BEC518B450C8B550853568320008B0239058873C12157894DFC75106A108BFA59BE8873C12133DBF3A6741839057873C12175306A108BFA59BE7873C12133C0F3A675208B75FC8D4614F7DE1BF623F0568B06",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF50048B450C893033C05F5E5BC9C20800FF750C8B4DFC52E80465FFFFEBEB568B7424088B460485C0740A8B088366040050FF51088B44240C85C089460474068B0850FF510433C05EC20800568B742408578D7EEC8BCFE83507000085C07C398BCFE8CF08000085C07C2EF64614017511FF742410FF7608FF159C11C121834E1401FF7424148B0656FF50246A05FF7608FF150011C12133C05F5EC21000558BEC518365FC008D45FC568B7508506A00834E14046867040000FF7608FF154C11C1218B45FC85C07C188B460885C0740B50FF153811C12183660800836614FA33C05EC9C20400558BEC83EC10538B5D0856578D4BECE8970600008B750C6A0759",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("33C08BFE6A01F3AB8B430C8B04C53401C221668B401A50E870C6FFFF8946048B430C598B04C53401C221596A01668B401C50E855C6FFFF8946108B430C598B04C53401C221596A01FF7020E89772FFFF5933FF59397E048B4B0C8946148B0CCD3401C2218B4924894E187436397E1074313BC7742D8B5B083BDF741D8D45F05053FF157011C1218B45F82B45F08946088B45FC2B45F489460C33C05F5E5BC9C208008B46108B1DF411C1213BC7740650FFD3897E108B46143BC7740650FFD3897E148B46043BC7740650FFD3897E04B80E000780EBC5558BEC53568B7508578B4614D1E8A80174068B0656FF502C8D4EEC894D08E8480600008B7D0C33DB3BFB",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("750933C05F5E5B5DC20C008BC7C1E0025053FF353000C221FF15DC10C1213BC38946107507B80E000780EBD885FF761B8B45108B4E108B049885C089049974068B0850FF5104433BDF72E533C0897E18F646140174AE8B4D08E8D8060000EBA48B4424048B400885C07410FF74240850FF150011C12133C0C20800B8FFFF0080EBF68B442404568B700885F6742A8B44240C576A048B48048B108B780C8B40082BF92BC2575051526A0056FF15A411C12133C05F5EC20800B8FFFF0080EBF58B4424048B4014D1E8F6D083E001C20400558BEC518365FC00568B75088B460885C074448D4DFC516A00686504000050FF154C11C1218B45FC85C07C268B46148B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C8D1E9F6C101741824FD8946148B760485F6740CA80475088B066A0156FF500C33C05EC9C20400B8FFFF0080EBF4558BEC81EC8C01000053568B75085733DB8B460C895DFC8B04C53401C221FF7020E847D5FFFF3BC3598945F80F84140100008B3D8010C12168A409C22150FFD785C00F85160100008B460C8B3DF010C1218B04C53401C221FF70208D8574FEFFFF50FFD78D4508508B460C8B04C53401C221FF70248D8574FEFFFF50E8EC06000083C40C33C93BC30F9DC1395D08894DFC0F85AF000000FF750CFF15D810C1218D4400028D8D78FFFFFF508945FCE83D3AFFFF5353FF75FCFFB578FFFFFF6AFFFF750C5353FF15D410C121FFB578FFFFFF8D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8574FEFFFF50FFD78B3D5C10C1218D8574FEFFFF68A809C22150FFD78B460C8B04C53401C221FF70208D8574FEFFFF50FFD78B460C8B04C53401C221FF70248D8574FEFFFF6A0F50FF7608E87D0B0000399D78FFFFFF8945FC7419F645F4017413FFB578FFFFFF53FF353000C221FF15D010C1218B45FC5FF7D81BC05E25FBBFFF7F5B0505400080C9C2080068AC09C221FF75F8FFD785C075DAFF750CFF15D810C1218D7C00028D8D78FFFFFF57E86B39FFFF535357FFB578FFFFFF6AFFFF750C5353FF15D410C121FFB578FFFFFF8D8574FEFFFF50FF15F010C1218B3D5C10C1218D8574FEFFFF68B009C22150FFD78B460C8B04C53401C221FF70208D8574",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FEFFFF50FFD78D8574FEFFFF68B409C22150FFD78B460C8B04C53401C221FF70248D8574FEFFFF6A0150FF7608FF15C011C121399D78FFFFFF8945FC0F8432FFFFFFF645F4010F8428FFFFFFFFB578FFFFFFE910FFFFFF535556578B7C2418B90001000033DB8B47043BC175628B570883FA0D740883FA1B755383FA0D8B6C241475338B07394508742C8B354C11C1216A006A00688700000050FFD6A8047416FF770CFF77086802010000FF37FFD68BD8F7DB1BDB4385DB740933C05F5E5D5BC208008B45086A01890758EBEF3BC18B7424140F85B3000000837F08090F85A90000008B2D1C11C1216A11FFD56685C00F8C96000000FF37FF7608FF151811C1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2185C00F84C70000006A006A006800040000FF7608FF154C11C1218BC8C1E9106681F94B53752C0FB7C050FF7608FF154811C1218BE885ED741955FF151411C12185C0740E6A01556A28FF7608FF154C11C1216A10FF151C11C12133C96685C00F9CC1414151FF37FF7608E88E00000083C40C85C074158B460485C0740E8B085750FF51188BD8F7DB1BDB4385DB7534817F04040100008B2F751B55FF7608FF151811C12185C0750D6A05FF7608FF158411C121890757FF7608FF150C11C1218BD8892F33C085DB0F94C0E9ECFEFFFF6A10FFD533C96685C00F9CC1516A00FF7608FF15C411C12185C074A06A01506A28FF7608FF154C11C1218BD8EB8E558B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EC56576A006A006887000000FF7508FF154C11C121A806754A8B450C3B4508740C5089450CFF157411C121EBEFFF75108B358411C121FF750CFFD68BF885FF741B6AF057FF151011C12125000001183D00000110740DFF751057EBDD6A01585F5E5DC333C0EBF8558BEC518D45FCC745FC01400080508B4508FF750C6866040000FF7008FF154C11C1218B45FCC9C2080053568BF157837E1C000F859D0000008B46206A058B04C53401C2210FB7401850E8E001000050FF158C10C12185C07460508BCEE8CD01000050FF158810C12185C0744D50FF158410C1218BD885DB7440BF1800C22157FF15E410C1216A0068A6E2C1218935840CC221E8BD04000050",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("53FF350800C221FF15B811C1218325840CC2210057FF15C410C121837E1C00751C8B35A410C121FFD685C07410FFD625FFFF00000D000007805F5E5BC333C0EBF851568BF157F6462801741A8B461C85C074138D4C2408516A00686704000050FF154C11C1218B462C85C0743533FF85C076168B46248B04B885C074068B0850FF5108473B7E2C72EAFF76246A00FF353000C221FF15D010C1218366240083662C005F5E59C3568B7424086AEB56FF151011C12183F8FF750633C05EC2100085C07517FF35840CC2216AEB56FF156411C121A1840CC22189701CFF7424148B108BC8FF742414FF74241456FF5214EBCB8B44240450832000E803000000C20400",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("568B712C578B7C240C8B073BC673138B49248D1481833A0075124083C2043BC672F3830FFF33C05F5EC204008D50018B04818917EBF1558BEC518365FC008D45FC56508BF16A006864040000FF761CFF154C11C1218B46288BC8D1E9F6C101741424FD8946288B761885F674088B066A0156FF500C8B45FC5EC9C3834928028B41288B491885C9740CA80475088B016A0351FF500CC366833D583CC1210056578BF17508A10800C2215F5EC3A10400C22185C075F4BF1800C22157FF15E410C12166833D2402C22100751B8B461885C074148B08682002C22150FF511066C7052402C221010057FF15C410C1216A00E82546FFFFEBB3C3558BEC515657BE1800",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C22133FF217DFC56FF15E410C121393D6C01C221752C686C01C221689871C1216A0157688871C121FF15EC11C1218BF885FF7C0EA16C01C22185C07539BF0540008056FF15C410C1218B45FC85C074068B0850FF510885FF7C16A16C01C221508B08FF51048B45088B0D6C01C22189088BC75F5EC9C38B088D55FC52687871C12150FF1185C07C0F8B45FCFF352002C2218B0850FF511033FFEBA7558BEC518365FC0053568B751085F674038326008D45FC50E83FFFFFFF85C0597C508B45FC6A00508B08FF51288BD885DB7C3085F67406C706010000006A00FF7508E80569FFFF598BF08B45FC596A04FF750C8B085650FF5124568BD8FF157812C1218B45",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FC85C074068B0850FF51088BC35E5BC9C356BE1800C22156FF15E410C121833D8001C221007514E82C32FFFFA38801C221C7058001C2210100000056FF15C410C121A18801C2215E8B4C240889410489410833C0C2080056BE1800C22156FF15E410C121833D8001C221007514E8E631FFFFA38801C221C7058001C2210100000056FF15C410C121833D8801C221007509B8120104805EC20C00E8F98DFFFF8B4C24108901F7D81BC025F2FFF87F050E000780EBE153568B351C11C121576A10FFD633C96A116685C00F9CC18BF9FFD633DB6A126685C00F9CC3FFD633C96685C00F9CC18BC18D04438D04475F5E5BC38B442408538B5C240856578BF08BFB66",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8B4004A5A5A56A0150A5E87DBBFFFF59894304595F5E5BC20C00558BEC83EC285356BE1800C2215756FF15E410C121803D7401C22100BBC06FC12175406A0A33C0598D7DD8F3ABA10800C221C745DC72BBC1218945E88D45D850895DFCFF153011C1216685C0750E56FF15C410C12133C05F5E5BC9C3C6057401C2210156FF15C410C12133C98B451851FF350800C22151FF750CFF7004FF308B4508F7D8FF75141BC0FF751025000000100D0000004450515351FF156011C121EBB5558BEC83EC285356BB1800C2215753FF15E410C12133F639357801C221755F6A0A33C0598D7DD8F3ABA1640CC2213BC68945DC7507C745DC4BE7C121A10800C221C745FC",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C009C2218945E88D45D850FF153011C1216685C0742456FF350800C22156565656565668000000805668D809C22156FF156011C121A37801C22153FF15C410C121A17801C2215F5E5BC9C3558BEC518D45FC50FF7514FF7510FF750CFF7508E885D3FFFF83C41485C074078B45FCC9C21000FF7514FF7510FF750CFF7508FF156811C121EBE88B4424048D48EC8B40ECFF5004C204008B4424048D48EC8B40ECFF5008C20400568BF1E881000000F644240801741385F6740F566A00FF353000C221FF15D010C1218BC65EC20400558BEC538BD98BC356F7D88D7314571BC023C6506A00E8C035FFFFC7065871C1218B75088D7B188B450CA5A58943288B4510",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8363300083633800A589432C8B45148943348B4518A589433C5FC7032071C121C743143871C1218BC35E5B5DC21400568BF18B4638C7062071C12185C0C746143871C121741D8B481483C01450FF5108686801C221C706003BC121FF157810C1215EC38B463485C074E6506A00FF353000C221FF15D010C121EBD553568B74240C8BD9578B068D7B183B0775096A1033D259F3A6741A3B05583BC12175328B7424106A1059BF583BC12133C0F3A675208B038BCBFF50048B4C24148BC383C314F7D81BC023C3890133C05F5E5BC20800B802400080EBF3558BEC5153568B7508578365FC008B5D108B7E180FAF7E1C037E20837D0C0076258B461C3B46147D1D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF76185753FF56288B461803D803F8FF461CFF45FC8B45FC3B450C72DB8B45148B4DFC85C0740289083B4D0C5F5E5B1BC0F7D8C9C210008B4424048B5424088B481C03CA8B50143BCA7E096A0189501C58C2080089481C33C0EBF68B44240483601C0033C0C20400538B5C240C5657FF353000C22133FF893B6A40E8F330FFFF8B742418593BC7597419FF76288D4E04FF7620FF7618FF7614518BC8E82DFEFFFF8BF885FF750BB80E0007805F5E5BC208008D46EC568947388B461C8947308B06FF500483C71433C0893BEBDF558BEC81EC040100008B0D440AC2215685C97549390D4C0AC22175418D85FCFEFFFF50E8710000008B356810C12185C0740E8D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("85FCFEFFFF50FFD6A3440AC2218B0D440AC22185C9751368C059C121FFD68BC885C9890D440AC221741BA1880CC22185C075236A0E51FF157010C12185C0A3880CC2217511C7054C0AC2210100000033C05EC9C21000FF7514FF7510FF750CFF7508FFD0EBEB558BEC51518D45FC5633F65068190002005668E059C1216800000080FF151812C12185C075358D45F8C745F80401000050FF7508565668596FC121FF75FCFF150C12C12185C075036A015EFF75FCFF152412C1218BC65EC9C2040033C0EBF7558BEC81EC880000008B450853565733FF3BC7897DFC0F840F0100006639380F84060100008B4D0C3BCF0F84F30000006639390F84EA000000397D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("107507C745FC01000000393D0C00C2217421FF751851FF751450FF75FC6800040000FF159410C1218BF08BC65F5E5BC9C214008B1DD810C12150FFD3FF750C8D740002FFD38D5C00028D8D78FFFFFF8D043350E8C62CFFFF8B8578FFFFFF575756508D0C30FF75148B35D410C1218945F8894D10FF75085757FFD6575753894508FF7510FF7518FF750C5757FFD683C9FF394D147503894D08394D1875028BC150FF7510FF7508FF75F8FF75FC6800040000FF159010C12139BD78FFFFFF8BF00F8464FFFFFFF645F4010F845AFFFFFFFFB578FFFFFF57FF353000C221FF15D010C121E942FFFFFF6A0358E93CFFFFFF8B450C3BC7740966393874046A01EBEA",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6A02EBE6000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007001893500000000040000001001000000000000008001000000000070018935000000000200000000000000000000000000C0FF00000000700189350000000003000000701200000000000020170300000000007001893500000000040000001001000000000000A0290300000000000000000001000000060000000000000000000000C02A0300000000000000000001000000070000004843000000000000A0A50300000000000000000001000000080000002836000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00E90300000000000000000001000000001000003601000000000000401F0400000000000000000000000000000000000000000000000000000000000000000040EE00000000000000000000CCED00000010000040EF00000000000000000000DAED00000011000028F000000000000000000000E6ED0000E811000040F000000000000000000000F0ED0000001200006CF000000000000000000000FEED00002C120000CCF0000000000000000000000CEE00008C12000000000000000000000000000000000000000000004B45524E454C33322E646C6C00005553455233322E646C6C00006F6C6533322E646C6C0041445641504933322E646C6C00004F4C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4541555433322E646C6C000047444933322E646C6C000000000000000000000000000000000000000000000000000000000000000000000000000000000000007CF20000B4F20000C0F20000D4F20000E2F20000F8F2000008F300001EF3000026F3000032F3000042F3000052F3000064F3000070F300007CF300008CF300009CF30000ACF30000BAF3000092F20000A4F20000F2F3000000F4000016F4000022F4000038F4000050F4000060F4000072F4000084F400009CF40000B4F40000C2F40000CEF40000DEF40000EEF40000FEF4000010F5000022F500006CF200005EF200004EF2000042F2000030F2000022F200000CF20000D6F30000C8F30000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D8F100007CF100001CF1000034F1000042F100004EF1000064F1000070F1000000F1000094F10000ACF10000BEF10000CCF10000F6F10000EAF100000000000014F8000004F8000022F800003AF80000C6F5000062F8000074F800007EF80000DAF70000F4F70000A2F5000094F5000082F5000074F5000064F5000050F500007EF600006CF600005EF600004EF600003EF600002CF600001AF600000EF60000FCF50000EAF50000D8F50000E8F70000ACF70000CEF70000BCF7000080F700009AF700008EF7000056F7000074F7000066F700002CF700004AF700003EF700008EF600001CF7000010F70000D4F60000BAF50000AEF500008CF80000C4F60000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2EF800004EF8000042F500002EF50000FCF6000008F70000A0F60000B6F60000E0F6000000000000F4F80000E0F80000CEF80000BEF80000AAF800000000000070F90000A2F9000094F9000080F900000CF9000060F9000050F900003EF900002CF900001EF9000000000000A10100800C000080C9000080BA000080A1000080B7000080A2010080C8000080A30000800F0000801A000080A200008011000080070000800400008013000080190000801400008009000080060000800800008002000080CA000080000000000CFA0000F0F90000DCF9000002FA000018FA000072FA000060FA00004CFA00003AFA000026FA0000B4F90000C4F9000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7901496E697469616C697A65437269746963616C53656374696F6E004C0044656C657465437269746963616C53656374696F6E009800467265654C696272617279006E01486561704672656500006E025769646543686172546F4D756C74694279746500A2026C7374726C656E570000680148656170416C6C6F63008F014C65617665437269746963616C53656374696F6E00005800456E746572437269746963616C53656374696F6E0000180147657450726F636573734865617000001800436C6F736548616E646C65009B026C73747263707941000087014973444243534C656164427974650000C2015075726765436F6D6D006A00457363617065436F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6D6D46756E6374696F6E00006A0257616974466F7253696E676C654F626A65637400ED01536574436F6D6D4D61736B00EF01536574436F6D6D54696D656F757473003B025365747570436F6D6D00F4004765744C6173744572726F720000310043726561746546696C6541002E004372656174654576656E74410000A600476574436F6D6D4D6F64656D53746174757300001500436C656172436F6D6D427265616B0000EB01536574436F6D6D427265616B00007B02577269746546696C6500A700476574436F6D6D50726F7065727469657300E10152657365744576656E7400000A014765744F7665726C6170706564526573756C74008601497342616457",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7269746550747200AB014D756C746942797465546F5769646543686172003F02536C65657000D6015265616446696C650000EE01536574436F6D6D53746174650000A800476574436F6D6D537461746500001600436C656172436F6D6D4572726F7200009E026C7374726370796E4100A1026C7374726C656E41000043004372656174655468726561640000660257616974436F6D6D4576656E74006601476C6F62616C556E6C6F636B00006001476C6F62616C4C6F636B00005501476C6F62616C416C6C6F63005C01476C6F62616C467265650000510044697361626C655468726561644C69627261727943616C6C73004C0147657456657273696F6E0000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E80047657446696C654174747269627574657341000092026C737472636174410000FC004765744D6F64756C6546696C654E616D65410000510147657457696E646F77734469726563746F727941000090014C6F61644C696272617279410000F6004765744C6F63616C65496E666F410000160147657450726F634164647265737300007E01496E7465726C6F636B6564496E6372656D656E7400007B01496E7465726C6F636B656444656372656D656E7400007101486561705265416C6C6F630098026C737472636D70694100A3014C6F636B5265736F75726365000095014C6F61645265736F757263650000890046696E645265736F7572636541001E00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("436F6D70617265537472696E674100001F00436F6D70617265537472696E6757000095026C737472636D704100004D02556E7265676973746572436C61737341000083014C6F6164537472696E6741002C0147657453797374656D4D65747269637300008A0044657374726F7957696E646F7700880044657374726F7949636F6E00BE015265676973746572436C61737341000072014C6F6164437572736F724100A4004472617749636F6E0000A0004472617745646765000076014C6F616449636F6E41003A0147657457696E646F774C6F6E67410000800044656657696E646F7750726F634100001B0253657457696E646F774C6F6E6741000055004372",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6561746557696E646F7745784100640277737072696E746641008E004469616C6F67426F78506172616D4100F201536574446C674974656D546578744100F101536574446C674974656D496E7400DA0153656E644D657373616765410000F300476574446C674974656D0000F500476574446C674974656D546578744100F400476574446C674974656D496E74002F00436865636B446C67427574746F6E000062014973446C67427574746F6E436865636B6564000095014D657373616765426F784100B101506F73744D657373616765410000B400456E644469616C6F6700C2015265676973746572436C6970626F617264466F726D6174410000CD015265",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6C65617365444300EE004765744443002100436861724E65787441001E0253657457696E646F77506F7300006A01497357696E646F7756697369626C65000302536574506172656E7400B600456E645061696E740000E400476574436C69656E7452656374000900426567696E5061696E740000F501536574466F63757300009D014D6F766557696E646F770000370147657457696E646F7700D50047657441637469766557696E646F77003D0147657457696E646F7752656374003600436C69656E74546F53637265656E00001D01476574506172656E7400A5014F6666736574526563740000C900457175616C52656374005101496E7465727365637452",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("656374001F0253657457696E646F7752676E00002D0253686F7757696E646F770000BB015074496E5265637400005E0257696E48656C70410000600149734469616C6F674D6573736167654100001B014765744E657874446C675461624974656D006801497357696E646F77456E61626C6564005D0149734368696C640001014765744B657953746174650048004372656174654469616C6F67496E646972656374506172616D410000DB0052656C656173655374674D656469756D00004500436F5461736B4D656D46726565004400436F5461736B4D656D416C6C6F6300000C00436F437265617465496E7374616E6365000056004372656174654F6C6541",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6476697365486F6C64657200200152656744656C65746556616C756541001701526567436C6F73654B657900410152656753657456616C756545784100001B015265674372656174654B6579457841002E015265674F70656E4B6579457841001E0152656744656C6574654B657941002301526567456E756D4B6579457841003601526567517565727956616C756545784100002D015265674F70656E4B657941003501526567517565727956616C7565410000C70047657444657669636543617073003C004372656174655265637452676E496E646972656374000E0147657456696577706F727445787445780000110147657457696E646F774578744578",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000016014C50746F44500000430044656C6574654443000061015365744D61704D6F64650000740153657456696577706F727445787445780000780153657457696E646F7745787445780000750153657456696577706F72744F726745780000790153657457696E646F774F72674578000020004372656174654443410000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",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("000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000003814C121F414C121C414C121010000004A1AC1210000000001000000010000001814C1212814C121B814C121000000000000000091050200000000000100000001000000A814C121000003005801C22100000000000000000000000000000000E813C1218814C12100000000000000002286C12100000000D1073508D4070000B814C121D3D00300F813C1216814C1210000000000000000328AC12100000000D2073608D6070000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B814C121D3D003000814C1214814C1210000000000000000B48DC12100000000D3073708D8070000B814C121D3D00300020000005800C22103000000B800C22103000000E000C221030000000801C221FFFF000000000000E813C121F813C1210814C12100000000000000000000000000000000000000000000000000000000000000000000000000000000000000004C6963656E7365730000000000000000403BC121080000003E3BC121070000003C3BC121060000003A3BC12105000000383BC121040000000000000000000000343BC12101000000303BC121000000002E3BC1210200000000000000000000002C3BC121000000002A3BC12101000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("283BC12102000000263BC12103000000243BC1210400000000000000000000000004000000000000000000000000000000000000257325732E444C4C00000000257325732E444C4C0000000025755C25732E646C6C000000000000000000000043006F006D006D0050006F0072007400000000000000000044005400520045006E00610062006C006500000000000000480061006E0064007300680061006B0069006E006700000049006E00420075006600660065007200530069007A006500000000000000000049006E007000750074004C0065006E0000000000000000004E0075006C006C00440069007300630061007200640000004F00750074004200",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("75006600660065007200530069007A0065000000000000005000610072006900740079005200650070006C0061006300650000000000000052005400680072006500730068006F006C0064000000000052005400530045006E00610062006C006500000000000000420061007500640052006100740065000000000000000000500061007200690074007900530065007400740069006E006700000000000000440061007400610042006900740073000000000000000000530074006F0070004200690074007300000000000000000053005400680072006500730068006F006C0064000000000045004F00460045006E00610062006C006500000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("49006E007000750074004D006F00640065000000000000006002C221000000000100000002000000020000007802C22104000000010000000B000000020000009002C22108000000000000000200000002000000A802C2210C000000000400000200000002000000C802C2210E000000000000000200000002000000E002C22110000000000000000B00000002000000F802C221140000000002000002000000020000001803C221160000003F00000011000000010000003803C221180000000000000002000000020000005003C2211C000000000000000B000000020000006803C221200000008025000003000000040000008003C2212400000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0200000002000000A003C22128000000080000000200000002000000B803C2212C000000000000000200000002000000D003C22130000000000000000200000002000000E803C22134000000000000000B000000020000000004C2213800000000000000020000000200000000000000000000000000000000000000000000005F0045007800740065006E0074005800000000005F0045007800740065006E007400590000000000530065007400740069006E00670073000000000000000000A805C221000000000000000008000000000000000000000000000000000000000000000000000000F858C121000000009459C12100E803008C59C12100F40100",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8459C12100C201007C59C12100E100007459C121C0DA00006C59C121009600006459C121807000005C59C121004B00005459C121403800004C59C121802500004459C121C01200003C59C121600900003459C121B00400003059C121580200002C59C1212C0100002859C1216E00000000000000000000005F0045007800740065006E0074005800000000005F0045007800740065006E007400590000000000FFFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("ECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFFECFFFFFF43746C4672616D65576F726B5F5061726B696E6700005C007B2530386C582D253034582D253034582D25303258253032582D2530325825303258253032582530325825303258253032587D00434C5349445C2573000000002573204F626A656374000000496E70726F635365727665723332000041706172746D656E74000000546872656164696E674D6F64656C0000546872656164696E674D6F64656C00002E0000002573204F626A656374000000434C534944000000437572566572000025732E25732E256C640000002573204F626A656374000000434C534944000000434C5349445C2573",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000000056657273696F6E496E646570656E64656E7450726F6749440000000025732E257300000050726F674944000025732E25732E256C64000000547970654C69620056657273696F6E00256C642E256C6400434C5349445C257300000000436F6E74726F6C004D697363537461747573000031000000256400002C20256400000000546F6F6C626F784269746D6170333200434C5349440000005C496E70726F6353657276657233320025732E25732E256C6400000025732E257300000025732E25735C4375725665720000000025732E25732E256C6400000025732E25732E256C6400000025732E25732E256C6400000025732E25730000005C48454C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("50000000434C5349445C257300000000496D706C656D656E7465642043617465676F72696573000025735C496E70726F63536572766572005C00000056455253494F4E2E444C4C0047657446696C6556657273696F6E496E666F53697A65410056455253494F4E2E444C4C0047657446696C6556657273696F6E496E666F410056455253494F4E2E444C4C00566572517565727956616C7565410000444953504C41590043484D005C000000484C50005C0000003E4C616E675265660000000043746C4672616D65576F726B5F5061726B696E670000000043746C4672616D65576F726B5F5061726B696E670000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000D871C121C871C121B871C121A871C121206EC12100000000010000000000000000000000000000006002C221000000000100000000000000020000000200000000000000000000007802C221020000000100000000000000020000000200000000000000000000009002C22104000000000000000000000002000000020000000000000000000000A802C22106000000000400000000000002000000020000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C802C22108000000000000000000000002000000020000000000000000000000E002C2210A000000000000000000000002000000020000000000000000000000F802C2210C0000000002000000000000020000000200000000000000000000001803C221100000002000000000000000080000000000000000000000000000003803C221140000000000000000000000020000000200000000000000000000005003C22116000000000000000000000002000000020000000000000000000000A805C22118000000000000000000000008000000000000000000000000000000D003C2211C000000000000000000000002000000020000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E803C2211E0000000000000000000000020000000200000000000000000000000004C22120000000000000000000000002000000020000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",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("000000006F0189350000000001000600080500804800008002000000600000800300000078000080050000009000008006000000C00000800E000000400100801000000058010080000000006F01893500000000000001000100000070010080000000006F01893500000000000001000100000088010080000000006F018935000000000000010001000000A0010080000000006F0189350000000000000400D1070000B8010080D2070000D0010080D3070000E8010080D407000000020080000000006F0189350000000000000E000100000018020080180000003002008019000000480200803F000000600200807E000000780200808400000090020080",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F4010000A8020080F5010000C0020080F6010000D80200800A0D0000F00200800B0D0000080300800C0D0000200300800D0D0000380300800E0D000050030080000000006F01893500000000000001000200000068030080000000006F01893500000000000001000100000080030080000000006F01893500000000000001000904000098030000000000006F018935000000000000010009040000A8030000000000006F018935000000000000010009040000B8030000000000006F018935000000000000010009040000C8030000000000006F018935000000000000010009040000D8030000000000006F018935000000000000010009040000E8030000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000006F018935000000000000010009040000F8030000000000006F01893500000000000001000904000008040000000000006F01893500000000000001000904000018040000000000006F01893500000000000001000904000028040000000000006F01893500000000000001000904000038040000000000006F01893500000000000001000904000048040000000000006F01893500000000000001000904000058040000000000006F01893500000000000001000904000068040000000000006F01893500000000000001000904000078040000000000006F01893500000000000001000904000088040000000000006F0189350000000000000100",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0904000098040000000000006F018935000000000000010009040000A8040000000000006F018935000000000000010009040000B8040000000000006F018935000000000000010009040000C8040000000000006F018935000000000000010009040000D8040000000000006F018935000000000000010009040000E8040000000000006F018935000000000000010009040000F804000080180100743C00000000000000000000A0170100E00000000000000000000000F4540100E80200000000000000000000F05701001E010000000000000000000010590100FA01000000000000000000000C5B01001E01000000000000000000002C5C01005E010000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000000000000000C07801003A000000000000000000000018170100760000000000000000000000407701004C0000000000000000000000401501004000000000000000000000007C790100C40100000000000000000000407B01007A0000000000000000000000FC780100800000000000000000000000801501009601000000000000000000008C7701001C010000000000000000000098610100EA020000000000000000000070650100BC0500000000000000000000506E0100B808000000000000000000002C6B010022030000000000000000000084640100EA0000000000000000000000DC5701001400000000000000000000008C5D01000C040000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000000000000000070054005900500045004C004900420000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000B005000260072006F00700065007200740069006500730005004D00530043006F006D000000000000000000000000002C004F007000650072006100740069006F006E0020006E006F0074002000760061006C006900640020007700680069006C0065002000740068006500200070006F007200740020006900730020006F00700065006E00650064000000130049006E00760061006C0069006400200070006F007200740020006E0075006D006200",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6500720000000000110050006F0072007400200061006C007200650061006400790020006F00700065006E000000000000000000000000001600540068006500200064006500760069006300650020006900730020006E006F00740020006F00700065006E0000000000550043006F0075006C00640020006E006F0074002000730065007400200063006F006D006D002000730074006100740065002C0020007400680065007200650020006D006100790020006200650020006F006E00650020006F00720020006D006F0072006500200069006E00760061006C0069006400200063006F006D006D0075006E00690063006100740069006F006E0073002000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("70006100720061006D00650074006500720073002E000000000000000000000000000000000000000000000000000000160049006E00760061006C00690064002000700072006F00700065007200740079002000760061006C0075006500000000001500500072006F0070006500720074007900200069007300200072006500610064002D006F006E006C00790000000000000000000000000000000000000028000000100000000F0000000100040000000000780000000000000000000000000000000000000000000000000080000080000000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFF0000FFFFFF0020000000000002220F9F9F9FFFAF0022077777777777880200000000000078802033333333330780207777777773308020BFBFBFBFB33300203BFF0F0FFB33022203B0F0F0FF33022200FB0F0BF370022033337333B7337020BF03000030FF3020FB00777700FB30220FBFBFBFBFB30222200000000000224D53465402000100000000000904000000000000510100000100010002000000090000000000000090D0030090D003007600000027050000000000002C000000FFFFFFFF200000008000000001000000010000001C0000000000000064000000C80000002C01000090010000F401000058020000BC020000200300006C010000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("84030000FFFFFFFF0F000000800600000C000000FFFFFFFF0F0000008C0600001C000000FFFFFFFF0F0000006006000020000000FFFFFFFF0F000000F004000080000000FFFFFFFF0F00000070050000F0000000FFFFFFFF0F000000A806000000020000FFFFFFFF0F000000A8080000680B0000FFFFFFFF0F000000101400002C0D0000FFFFFFFF0F0000003C21000048000000FFFFFFFF0F000000FFFFFFFF00000000FFFFFFFF0F000000FFFFFFFF00000000FFFFFFFF0F000000FFFFFFFF00000000FFFFFFFF0F000000FFFFFFFF00000000FFFFFFFF0F000000FFFFFFFF00000000FFFFFFFF0F0000002022000084210000D0000000B000000003000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000000040000000000000000000000000000000000180000001000000018000000000000003800000091D0030091D00300FFFFFFFF0000000004000000FFFFFFFF0000000000000000FFFFFFFF2022010058220000D0000000B000000003000000000000000000040000000000000000000000000000000000300000000000000038000000000000003800000091D0030091D00300FFFFFFFF0000000004000000FFFFFFFF0000000000000000FFFFFFFF202202002C230000800600009C030000030000000000000000001500000000000000000000000000000000004800000000000000580000000000000060000000D2D00300D2D00300FFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000000004000000FFFFFFFF0000000000000000FFFFFFFF202203007427000040030000B8010000030000000000000000000A0000000000000000000000000000000000600000000000000074000000000000007400000096D0030096D00300FFFFFFFF0000000004000000FFFFFFFF0000000000000000FFFFFFFF2022040080290000A00100003401000003000000000000000000070000000000000000000000000000000000FFFFFFFF00000000940000000000000088000000A1D00300A1D00300FFFFFFFF0000000004000000FFFFFFFF0000000000000000FFFFFFFF20220500F02A0000680000005800000003000000000000000000020000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000000000000000000FFFFFFFF00000000B0000000000000009C000000CED00300CED00300FFFFFFFF0000000004000000FFFFFFFF0000000000000000FFFFFFFF342206005C2B0000001400001811000003000000000000003D0000000000000000000000000000000000000078000000D0110000D000000000000000B40000000000000000000000FFFFFFFF0100100104000000010000000200070000000000FFFFFFFF24220700343C00004000000038000000030000000000000001000000000000000000000000000000000000009000000010100000E400000000000000E40000000000000000000000FFFFFFFF0100040004000000FFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000000000000000FFFFFFFF25220800743C000000000000FFFFFFFF03000000000000000000000000000000000000000000000000000000A80000002600000000010000000000000000000090D0030090D00300FFFFFFFF0200000004000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFD8000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF78000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF60000000C0000000FFFFFFFF18000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF30000000FFFFFFFFFFFFFFFFFFFFFFFFA8000000000000009000000003568A646E2C1B1082B6000000000014",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FEFFFFFFFFFFFFFF91034B4B9768CF11953F0020AFC28C3B00000000FFFFFFFF405BF07230B51B1082B600000000001464000000FFFFFFFF90C74F7C64BECF1195DA0020AFC28C3BC8000000FFFFFFFF60B36E8EB1C3CF118E6B00A0C90F26F82C010000FFFFFFFF907EE1E638DFCF118E7400A0C90F26F858020000FFFFFFFF02568A646E2C1B1082B6000000000014BC020000FFFFFFFF00568A646E2C1B1082B600000000001420030000FFFFFFFF3004020000000000C00000000000004602000000FFFFFFFF0004020000000000C00000000000004601000000480000005802000001000000FFFFFFFF10000000BC02000003000000FFFFFFFFFFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000010300000000D8000000C000000000000000020000002D005354444F4C45322E544C42575757B4010000980900009005000088010000A4030000F80A0000FFFFFFFFFFFFFFFF280B000038030000F8040000FFFFFFFFA8040000FFFFFFFF74040000000000003808000008080000FC050000E4050000FFFFFFFFC4040000D4030000FFFFFFFF50020000FFFFFFFFFFFFFFFF100B000050050000FFFFFFFFE0060000FFFFFFFFE803000098060000F4010000FFFFFFFFFFFFFFFF4401000070070000940000003C0400007C0500009C0A00003402000014060000A0070000B00A0000FFFFFFFFE0040000FFFFFFFFFFFFFFFF840A0000AC050000FFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C8060000FFFFFFFFFFFFFFFF88070000F4080000D8080000FFFFFFFFC80A0000FFFFFFFFFFFFFFFF580A0000FFFFFFFFFFFFFFFFFFFFFFFF64090000400600002C090000BC08000040070000D0010000100A000048090000FFFFFFFF4C080000FFFFFFFFFFFFFFFF8C04000074010000400B00006405000010090000FFFFFFFFFFFFFFFF8C0300002C060000700A000054060000B0090000FFFFFFFFFFFFFFFFFFFFFFFF280700006008000020040000FFFFFFFF84090000FFFFFFFFFFFFFFFFFFFFFFFFB0000000FFFFFFFFFFFFFFFF88020000FFFFFFFF8C08000068060000A4080000F8090000E00A0000400A0000FFFFFFFF24030000FFFFFFFF78080000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B8070000FFFFFFFF540B000080060000FFFFFFFF240A0000FFFFFFFFCC050000FFFFFFFFD0070000FFFFFFFFFFFFFFFF09008F724D53436F6D6D4C696257575700000000FFFFFFFF143812BD48616E647368616B696E67436F6E7374616E747364000000FFFFFFFF1238AED948616E647368616B65436F6E7374616E74735757C8000000FFFFFFFF0E3846994572726F72436F6E7374616E747357572C010000FFFFFFFF1238EEF0436F6D6D4576656E74436F6E7374616E7473575790010000FFFFFFFF0F38A7AA4F6E436F6D6D436F6E7374616E747357F4010000FFFFFFFF1238670D496E7075744D6F6465436F6E7374616E7473575758020000FFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("073876AC494D53436F6D6D57BC020000FFFFFFFF0D3852DC444D53436F6D6D4576656E747357575720030000FFFFFFFF063810814D53436F6D6D575700000000FFFFFFFF0D30B6C44E6F48616E647368616B696E6757575700000000FFFFFFFF07307FDB586F6E586F66665700000000FFFFFFFF063025A0527473437473575700000000FFFFFFFF1030EC7C586F6E586F6666416E6452747343747364000000FFFFFFFF0730516E636F6D4E6F6E655764000000FFFFFFFF0A3083A3636F6D584F6E586F6666575764000000FFFFFFFF06303B20636F6D525453575764000000FFFFFFFF0D300044636F6D525453584F6E584F6666575757C8000000FFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("17304932636F6D496E76616C696450726F706572747956616C756557C8000000FFFFFFFF1230229E636F6D4765744E6F74537570706F727465645757C8000000FFFFFFFF12309CF5636F6D5365744E6F74537570706F727465645757C8000000FFFFFFFF0E302B0B636F6D506F7274496E76616C69645757C8000000FFFFFFFF1230986B636F6D506F7274416C72656164794F70656E5757C8000000FFFFFFFF0B30F04C636F6D506F72744F70656E57C8000000FFFFFFFF0930EAF4636F6D4E6F4F70656E575757C8000000FFFFFFFF15302015636F6D536574436F6D6D53746174654661696C6564575757C8000000FFFFFFFF0E305419636F6D506F72744E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F744F70656E5757C8000000FFFFFFFF0C30588F636F6D526561644572726F72C8000000FFFFFFFF0B301EDC636F6D4443424572726F7257C8000000FFFFFFFF0830C8BB636F6D427265616BC8000000FFFFFFFF08307326636F6D435453544FC8000000FFFFFFFF083089ED636F6D445352544FC8000000FFFFFFFF0830D0EF636F6D4672616D65C8000000FFFFFFFF0A30395B636F6D4F76657272756E5757C8000000F802000007301EB6636F6D4344544F57C8000000FFFFFFFF0930D790636F6D52784F766572575757C8000000FFFFFFFF0B3084B0636F6D527850617269747957C8000000FFFFFFFF0930DBC6636F6D547846756C6C575757C8000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFF063016D3636F6D44434257572C010000A00200000D3020B6636F6D4576656E74427265616B5757572C010000FFFFFFFF0D30CB20636F6D4576656E74435453544F5757572C010000FFFFFFFF0D30E1E7636F6D4576656E74445352544F5757572C010000FFFFFFFF0D3028EA636F6D4576656E744672616D655757572C010000FFFFFFFF0F30B4E3636F6D4576656E744F76657272756E572C010000FFFFFFFF0C300ED6636F6D4576656E744344544F2C0100004C0300000E30D0DE636F6D4576656E7452784F76657257572C010000FFFFFFFF10308C4E636F6D4576656E7452785061726974792C010000FFFFFFFF0E309514636F6D4576656E74",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("547846756C6C57572C010000FFFFFFFF0B303015636F6D4576656E744443425790010000FFFFFFFF09300A03636F6D457653656E6457575790010000180000000C301225636F6D45765265636569766590010000FFFFFFFF08303D80636F6D4576435453900100007002000008307085636F6D4576445352900100001402000007301C9F636F6D457643445790010000FFFFFFFF0930D352636F6D457652696E6757575790010000FFFFFFFF0830298A636F6D4576454F46F4010000FFFFFFFF10300250636F6D496E7075744D6F646554657874F4010000580400001230B47E636F6D496E7075744D6F646542696E617279575758020000FFFFFFFF09007D84",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4344486F6C64696E67575757FFFFFFFFFFFFFFFF0B00939370664344486F6C64696E6757580200001005000009009262434454696D656F7574575757FFFFFFFFFFFFFFFF0B002C4B706C434454696D656F75745758020000E00200000600D803436F6D6D49445757FFFFFFFFFFFFFFFF0800C5D2706C436F6D6D494458020000FFFFFFFF08005AAD436F6D6D506F7274FFFFFFFFFFFFFFFF0A006DA17073436F6D6D506F7274575758020000FFFFFFFF090079315F436F6D6D506F727457575758020000FFFFFFFF0A00A159435453486F6C64696E675757FFFFFFFFFFFFFFFF0C004D497066435453486F6C64696E6758020000140100000A00B63743545354",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("696D656F75745757FFFFFFFF780300000C009E91706C43545354696D656F757458020000FFFFFFFF0A00CA68445352486F6C64696E675757FFFFFFFFD00000000C0076587066445352486F6C64696E6758020000FFFFFFFF0A00DF4644535254696D656F75745757FFFFFFFF100300000C0048B0706C44535254696D656F7574580200000001000009001092445452456E61626C65575757FFFFFFFFFFFFFFFF0B0026A17066445452456E61626C655758020000600300000B00B92A48616E647368616B696E6757FFFFFFFFFFFFFFFF0A00AD0D7068616E647368616B65575758020000100700000C0076C0496E42756666657253697A65FFFFFFFF30010000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0E00FF8F7073496E42756666657253697A65575758020000C40200000D00D41D496E427566666572436F756E74575757FFFFFFFFFFFFFFFF0F0091A27073496E427566666572436F756E745758020000FFFFFFFF050001DE427265616B575757FFFFFFFF58070000070090717066427265616B5758020000B00600000800CD41496E7075744C656EFFFFFFFFFFFFFFFF0A00E0357073496E7075744C656E575758020000FFFFFFFF08007527496E74657276616CFFFFFFFF580100000A00EC13706C496E74657276616C575758020000740000000B00EEA24E756C6C4469736361726457FFFFFFFFFFFFFFFF0D00C73770664E756C6C44697363617264575757",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("58020000A00100000D003B934F757442756666657253697A65575757FFFFFFFFFFFFFFFF0F003A2770734F757442756666657253697A655758020000EC0700000E00545F4F7574427566666572436F756E745757FFFFFFFF580000001000465370734F7574427566666572436F756E7458020000040400000D004BF95061726974795265706C616365575757FFFFFFFFFFFFFFFF1200449C70627374725061726974795265706C616365575758020000FFFFFFFF0800E352506F72744F70656EFFFFFFFF240800000A0081027066506F72744F70656E575758020000BC0300000A005BB1525468726573686F6C645757FFFFFFFFFFFFFFFF0C00AA5970735254",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("68726573686F6C6458020000FFFFFFFF0900D9E8525453456E61626C65575757FFFFFFFFFFFFFFFF0B00EFF77066525453456E61626C655758020000F806000008004A5853657474696E6773FFFFFFFFFFFFFFFF0D00FBAD706273747253657474696E677357575758020000FFFFFFFF0A00F1AA535468726573686F6C645757FFFFFFFFFFFFFFFF0C0040537073535468726573686F6C6458020000E0090000060059F94F75747075745757FFFFFFFFFFFFFFFF0A0033CF707661724F7574707574575758020000C809000005002A02496E707574575757FFFFFFFF380000000900AE6C70766172496E707574575757580200002805000009003D59436F6D6D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4576656E74575757FFFFFFFF3C0500000B0070057073436F6D6D4576656E745758020000FFFFFFFF0900058B454F46456E61626C65575757FFFFFFFFFFFFFFFF0B001B9A7066454F46456E61626C655758020000FFFFFFFF090088C0496E7075744D6F646557575758020000E40000000800D21341626F7574426F78BC020000FFFFFFFF0600F8D44F6E436F6D6D57571A004D6963726F736F667420436F6D6D20436F6E74726F6C20362E300C004D53436F6D6D33322E4F435857570A00434F4D4D39382E43484D23004D5320436F6D6D20436F6E74726F6C2048616E647368616B6520436F6E7374616E74735757570F004572726F7220436F6E7374616E74",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7357575710004572726F7220636F6E7374616E74732E575711004F6E436F6D6D20636F6E7374616E74732E571300496E7075744D6F646520436F6E7374616E74735757572D00446973706174636820696E7465726661636520666F72204D6963726F736F667420436F6D6D20436F6E74726F6C5722004576656E7420696E7465726661636520666F72204D53436F6D6D20436F6E74726F6C0E004E6F2068616E647368616B696E671400584F6E2F584F66662068616E647368616B696E6757572A00526571756573742D746F2D73656E642F636C6561722D746F2D73656E642068616E647368616B696E672E2600526571756573742D746F2D73656E642C2058",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4F6E2F584F66662068616E647368616B696E672E1600496E76616C69642070726F70657274792076616C7565160050726F70657274792069732077726974652D6F6E6C79150050726F706572747920697320726561642D6F6E6C79571300496E76616C696420706F7274206E756D6265725757571100506F727420616C7265616479206F70656E572C004F7065726174696F6E206E6F742076616C6964207768696C652074686520706F7274206973206F70656E65645757160054686520646576696365206973206E6F74206F70656E5500436F756C64206E6F742073657420636F6D6D2073746174652C207468657265206D6179206265206F6E65206F7220",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6D6F726520696E76616C696420636F6D6D756E69636174696F6E7320706172616D65746572732E572A004F7065726174696F6E2076616C6964206F6E6C79207768656E2074686520706F7274206973206F70656E19004572726F722072656164696E6720636F6D6D20646576696365573B00496E7465726E616C206572726F722072657472696576696E672064657669636520636F6E74726F6C20626C6F636B20666F722074686520706F72745757571500427265616B207369676E616C207265636569766564571500436C6561722D746F2D73656E642074696D656F757457160044617461207365742072656164792074696D656F75740D004672616D696E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("67206572726F72570C00506F7274206F76657272756E5757160043617272696572206465746563742074696D656F757417005265636569766520627566666572206F766572666C6F775757570C00506172697479206572726F72575714005472616E736D6974206275666665722066756C6C57573600556E6578706563746564206572726F722072657472696576696E672044657669636520436F6E74726F6C20426C6F636B2028444342290B0053656E64206576656E742E5757570E0052656365697665206576656E742E1C004368616E676520696E20636C6561722D746F2D73656E64206C696E6557571E004368616E6765206973206461746120736574",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("207265616479206C696E652E1E004368616E676520696E206361727269657220646574656374206C696E652E0C0052696E67206465746563742E57570C00456E64206F662066696C652E57570400546578745757060042696E6172795B0044657465726D696E657320776865746865722074686520636172726965722069732070726573656E74206279207175657279696E6720746865207374617465206F6620746865204361727269657220446574656374206C696E652E5757576A0052657475726E732F7365747320746865206D6178696D756D20616D6F756E74206F662074696D652074686520636F6E74726F6C20776169747320666F722074686520",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4361727269657220446574656374207369676E616C206265666F72652074696D696E67206F75742E3B0052657475726E7320612068616E646C652074686174206964656E7469666965732074686520636F6D6D756E69636174696F6E73206465766963652E5757572C0052657475726E732F736574732074686520636F6D6D756E69636174696F6E7320706F7274206E756D6265722E5757550044657465726D696E6573207768657468657220796F752063616E2073656E642064617461206279207175657279696E6720746865207374617465206F662074686520436C65617220546F2053656E64206C696E652E574D00536574732F72657475726E732074",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6865206E756D626572206F66206D696C6C697365636F6E647320746F207761697420666F722074686520436C65617220546F2053656E64207369676E616C2E57300044657465726D696E657320746865207374617465206F6620746865204461746120536574205265616479206C696E652E57574700536574732F72657475726E7320746865206E756D626572206F66206D696C6C697365636F6E647320746F207761697420666F72207468652044617461205365742052656164792E575757500044657465726D696E6573207768657468657220746F20656E61626C65207468652044617461205465726D696E616C205265616479206C696E652064757269",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6E6720636F6D6D756E69636174696F6E732E57572F00536574732F72657475726E73207468652068617264776172652068616E647368616B696E672070726F746F636F6C2E5757573500536574732F72657475726E73207468652073697A65206F662074686520726563656976652062756666657220696E2062797465732E573F0052657475726E7320746865206E756D626572206F6620636861726163746572732077616974696E6720696E207468652072656365697665206275666665722E575757260053657473206F7220636C656172732074686520627265616B207369676E616C2073746174652E5700536574732F72657475726E7320746865206E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("756D626572206F6620636861726163746572732074686520496E7075742070726F70657274792072656164732066726F6D207468652072656365697665206275666665722E5757576500536574732074686520696E74657276616C2C20696E206D696C6C697365636F6E64732C20666F7220706F6C6C696E672074686520686172647761726520706F727420666F72206461746120756E6465722057696E646F77732076657273696F6E20332E302E57570044657465726D696E65732077686574686572206E756C6C206368617261637465727320617265207472616E736665727265642066726F6D2074686520706F727420746F2074686520726563656976",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("65206275666665722E5757573D00536574732F72657475726E73207468652073697A652C20696E20636861726163746572732C206F6620746865207472616E736D6974206275666665722E57400052657475726E7320746865206E756D626572206F6620636861726163746572732077616974696E6720696E20746865207472616E736D6974206275666665722E57576C00536574732F72657475726E7320746865206368617261637465722074686174207265706C6163657320616E20696E76616C69642063686172616374657220696E2074686520646174612073747265616D207768656E206120706172697479206572726F72206F63637572732E5757",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4300536574732F72657475726E7320746865207374617465206F662074686520636F6D6D756E69636174696F6E7320706F727420286F70656E206F7220636C6F736564292E5757573100536574732F72657475726E7320746865206E756D626572206F66206368617261637465727320746F20726563656976652E57360044657465726D696E6573207768657468657220746F20656E61626C6520746865205265717565737420546F2053656E64206C696E652E4600536574732F72657475726E7320746865206261756420726174652C207061726974792C2064617461206269742C20616E642073746F702062697420706172616D65746572732E48005365",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("74732F72657475726E7320746865206D696E696D756D206E756D626572206F66206368617261637465727320616C6C6F7761626C6520696E20746865207472616E736D69742E57573500577269746573206120737472696E67206F66206368617261637465727320746F20746865207472616E736D6974206275666665722E57430052657475726E7320616E642072656D6F766573206120737472696E67206F6620636861726163746572732066726F6D207468652072656365697665206275666665722E575757350052657475726E7320746865206D6F737420726563656E7420636F6D6D756E69636174696F6E206576656E74206F72206572726F722E57",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3900536574732F72657475726E7320746865207768657468657220746F2073656172636820666F722074686520454F46206368617261637465722E573E00536574732F72657475726E73207468652074797065206F662064617461207265747269657665642062792074686520496E7075742070726F70657274792E3C004F6363757273207768656E65766572207468652076616C7565206F662074686520436F6D6D4576656E742070726F7065727479206368616E6765732E57571A000B400B000B801A000340030003801A000240020002801D000300640000001A000340180000001A000840080008801A000C400C000C801D000300F40100001A000340",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("38000000A0000000280000001600038000000000020034000000008C92D0030008010000FFFFFFFFFFFFFFFF92D00300280001001600038000000000020034000100008C93D0030018010000FFFFFFFFFFFFFFFF93D00300280002001600038000000000020034000200008C94D0030030010000FFFFFFFFFFFFFFFF94D00300280003001600038000000000020034000300008C95D003005C010000FFFFFFFFFFFFFFFF95D00300000000400100004002000040030000401401000030010000440100005801000000000000280000005000000078000000A0000000280000001600038000000000020034000000008C92D0030008010000FFFFFFFFFFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("92D00300280001001600038000000000020034000100008C93D0030018010000FFFFFFFFFFFFFFFF93D00300280002001600038000000000020034000200008C94D0030030010000FFFFFFFFFFFFFFFF94D00300280003001600038000000000020034000300008C95D003005C010000FFFFFFFFFFFFFFFF95D00300000000400100004002000040030000407401000088010000A0010000B40100000000000028000000500000007800000048030000280000001600038000000000020034007C01008C7C01000084010000FFFFFFFFFFFFFFFF7C010000280001001600038000000000020034008A01008C8A0100009C010000FFFFFFFFFFFFFFFF8A010000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("280002001600038000000000020034007F01008C7F010000B4010000FFFFFFFFFFFFFFFF7F01000028000300160003800000000002003400421F008C421F0000CC010000FFFFFFFFFFFFFFFF421F000028000400160003800000000002003400451F008C451F0000E4010000FFFFFFFFFFFFFFFF451F000028000500160003800000000002003400401F008C401F0000F8010000FFFFFFFFFFFFFFFF401F0000280006001600038000000000020034004C1F008C4C1F000028020000FFFFFFFFFFFFFFFF4C1F0000280007001600038000000000020034004F1F008C4F1F000040020000FFFFFFFFFFFFFFFF4F1F000028000800160003800000000002003400",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("521F008C521F000098020000FFFFFFFFFFFFFFFF521F000028000900160003800000000002003400541F008C541F0000C4020000FFFFFFFFFFFFFFFF541F000028000A00160003800000000002003400551F008C551F0000E0020000FFFFFFFFFFFFFFFF551F000028000B00160003804000000002003400E903008C97D0030020030000FFFFFFFFFFFFFFFF97D0030028000C00160003804000000002003400EA03008C98D0030038030000FFFFFFFFFFFFFFFF98D0030028000D00160003804000000002003400EB03008C99D0030050030000FFFFFFFFFFFFFFFF99D0030028000E00160003804000000002003400EC03008C9AD0030068030000FFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFF9AD0030028000F00160003804000000002003400EE03008C9BD0030078030000FFFFFFFFFFFFFFFF9BD0030028001000160003804000000002003400EF03008C9CD0030088030000FFFFFFFFFFFFFFFF9CD0030028001100160003804000000002003400F003008C9DD00300A0030000FFFFFFFFFFFFFFFF9DD0030028001200160003804000000002003400F103008C9ED00300BC030000FFFFFFFFFFFFFFFF9ED0030028001300160003804000000002003400F203008C9FD00300CC030000FFFFFFFFFFFFFFFF9FD0030028001400160003804000000002003400F303008CA0D00300E4030000FFFFFFFFFFFFFFFFA0D003000000004001000040",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("02000040030000400400004005000040060000400700004008000040090000400A0000400B0000400C0000400D0000400E0000400F0000401000004011000040120000401300004014000040D0010000F40100001402000034020000500200007002000088020000A0020000C4020000E0020000F80200001003000024030000380300004C03000060030000780300008C030000A4030000BC030000D403000000000000280000005000000078000000A0000000C8000000F000000018010000400100006801000090010000B8010000E001000008020000300200005802000080020000A8020000D0020000F802000020030000900100002800000016000380",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000000002003400E903008C97D0030020030000FFFFFFFFFFFFFFFF97D0030028000100160003804000000002003400EA03008C98D0030038030000FFFFFFFFFFFFFFFF98D0030028000200160003804000000002003400EB03008C99D0030050030000FFFFFFFFFFFFFFFF99D0030028000300160003800000000002003400EC03008C9AD0030068030000FFFFFFFFFFFFFFFF9AD0030028000400160003800000000002003400EE03008C9BD0030078030000FFFFFFFFFFFFFFFF9BD0030028000500160003804000000002003400EF03008C9CD0030088030000FFFFFFFFFFFFFFFF9CD0030028000600160003800000000002003400F003008C9DD00300",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A0030000FFFFFFFFFFFFFFFF9DD0030028000700160003800000000002003400F103008C9ED00300BC030000FFFFFFFFFFFFFFFF9ED0030028000800160003800000000002003400F203008C9FD00300CC030000FFFFFFFFFFFFFFFF9FD0030028000900160003800000000002003400F303008CA0D00300E4030000FFFFFFFFFFFFFFFFA0D0030000000040010000400200004003000040040000400500004006000040070000400800004009000040E803000004040000200400003C04000058040000740400008C040000A8040000C4040000E004000000000000280000005000000078000000A0000000C8000000F0000000180100004001000068010000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("18010000280000001600038000000000020034000100008CA2D003001C040000FFFFFFFFFFFFFFFFA2D00300280001001600038000000000020034000200008CA3D003002C040000FFFFFFFFFFFFFFFFA3D00300280002001600038000000000020034000300008CA4D003003C040000FFFFFFFFFFFFFFFFA4D00300280003001600038000000000020034000400008CA5D003005C040000FFFFFFFFFFFFFFFFA5D00300280004001600038000000000020034000500008CA6D003007C040000FFFFFFFFFFFFFFFFA6D00300280005001600038000000000020034000600008CA7D003009C040000FFFFFFFFFFFFFFFFA7D00300280006001600038000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("020034000700008CA8D00300AC040000FFFFFFFFFFFFFFFFA8D0030000000040010000400200004003000040040000400500004006000040F804000010050000280500003C05000050050000640500007C05000000000000280000005000000078000000A0000000C8000000F000000050000000280000001600038000000000020034000000008CCFD00300BC040000FFFFFFFFFFFFFFFFCFD00300280001001600038000000000020034000100008CD0D00300C4040000FFFFFFFFFFFFFFFFD0D00300000000400100004090050000AC0500000000000028000000F80D00003C00000019001980000400001C0044002104010001000000A9D00300CC040000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFFFFFFFFFFFFFFFFFFA9D003000B000B80FFFFFFFF010000003C000100190019800004000020004C001144000001000000A9D00300CC040000FFFFFFFFFFFFFFFFFFFFFFFFA9D0030000000000E40500000A0000003C0002001900198040000000240044002104030001000000AAD003002C050000FFFFFFFFFFFFFFFFFFFFFFFFAAD0030003000380FFFFFFFF010000003C000300190019804000000028004C001144020001000000AAD003002C050000FFFFFFFFFFFFFFFFFFFFFFFFAAD0030008000000140600000A0000003C00040019001980000400002C0044002104050001000000ABD0030098050000FFFFFFFFFFFFFFFFFFFFFFFFABD00300",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("03000380FFFFFFFF010000003C000500190019800004000030004C001144040001000000ABD0030098050000FFFFFFFFFFFFFFFFFFFFFFFFABD0030008000000400600000A0000003C0006001900198000000000340044002104070001000000ACD00300D8050000FFFFFFFFFFFFFFFFFFFFFFFFACD0030002000280FFFFFFFF010000003C000700190019800000000038004C001144060001000000ACD00300D8050000FFFFFFFFFFFFFFFFFFFFFFFFACD0030010000000680600000A0000002400080019001980400000003C004400210409000100000002000280FFFFFFFF0100000024000900190019804000000040004C00114408000100000010000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("680600000A0000003C000A0019001980000400004400440021040B0001000000ADD0030008060000FFFFFFFFFFFFFFFFFFFFFFFFADD003000B000B80FFFFFFFF010000003C000B00190019800004000048004C0011440A0001000000ADD0030008060000FFFFFFFFFFFFFFFFFFFFFFFFADD0030000000000B00600000A0000003C000C0019001980400000004C00440021040D0001000000AED0030060060000FFFFFFFFFFFFFFFFFFFFFFFFAED0030003000380FFFFFFFF010000003C000D00190019804000000050004C0011440C0001000000AED0030060060000FFFFFFFFFFFFFFFFFFFFFFFFAED0030008000000E00600000A0000003C000E0019001980",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000400005400440021040F0001000000AFD00300B0060000FFFFFFFFFFFFFFFFFFFFFFFFAFD003000B000B80FFFFFFFF010000003C000F00190019800004000058004C0011440E0001000000AFD00300B0060000FFFFFFFFFFFFFFFFFFFFFFFFAFD0030000000000100700000A0000003C00100019001980400000005C0044002104110001000000B0D00300E4060000FFFFFFFFFFFFFFFFFFFFFFFFB0D0030003000380FFFFFFFF010000003C001100190019804000000060004C001144100001000000B0D00300E4060000FFFFFFFFFFFFFFFFFFFFFFFFB0D0030008000000400700000A0000003C0012001900198000000000640044002104130001000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B1D0030030070000FFFFFFFFFFFFFFFFFFFFFFFFB1D003000B000B80FFFFFFFF010000003C001300190019800000000068004C001144120001000000B1D0030030070000FFFFFFFFFFFFFFFFFFFFFFFFB1D0030000000000700700000A0000003C00140019001980000000006C0044002104150001000000B2D0030084070000FFFFFFFFFFFFFFFFFFFFFFFFB2D0030018000000FFFFFFFF010000003C001500190019800000000070004C001144140001000000B2D0030084070000FFFFFFFFFFFFFFFFFFFFFFFFB2D0030020000000A00700000A0000003C0016001900198000000000740044002104170001000000B3D00300B8070000FFFFFFFFFFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFFB3D0030002000280FFFFFFFF010000003C001700190019800000000078004C001144160001000000B3D00300B8070000FFFFFFFFFFFFFFFFFFFFFFFFB3D0030010000000D00700000A0000003C00180019001980000000007C0044002104190001000000B4D00300F0070000FFFFFFFFFFFFFFFFFFFFFFFFB4D0030002000280FFFFFFFF010000003C001900190019800000000080004C001144180001000000B4D00300F0070000FFFFFFFFFFFFFFFFFFFFFFFFB4D0030010000000080800000A0000003C001A0019001980000400008400440021041B0001000000B5D0030034080000FFFFFFFFFFFFFFFFFFFFFFFFB5D003000B000B80FFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("010000003C001B00190019800004000088004C0011441A0001000000B5D0030034080000FFFFFFFFFFFFFFFFFFFFFFFFB5D0030000000000380800000A0000003C001C0019001980000000008C00440021041D0001000000B6D003005C080000FFFFFFFFFFFFFFFFFFFFFFFFB6D0030002000280FFFFFFFF010000003C001D00190019800000000090004C0011441C0001000000B6D003005C080000FFFFFFFFFFFFFFFFFFFFFFFFB6D0030010000000600800000A0000003C001E0019001980400000009400440021041F0001000000B7D00300B8080000FFFFFFFFFFFFFFFFFFFFFFFFB7D0030003000380FFFFFFFF010000003C001F001900198040000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("98004C0011441E0001000000B7D00300B8080000FFFFFFFFFFFFFFFFFFFFFFFFB7D00300080000008C0800000A0000003C00200019001980000000009C0044002104210001000000B8D0030020090000FFFFFFFFFFFFFFFFFFFFFFFFB8D003000B000B80FFFFFFFF010000003C0021001900198000000000A0004C001144200001000000B8D0030020090000FFFFFFFFFFFFFFFFFFFFFFFFB8D0030000000000BC0800000A0000003C0022001900198000000000A40044002104230001000000B9D003007C090000FFFFFFFFFFFFFFFFFFFFFFFFB9D0030002000280FFFFFFFF010000003C0023001900198000000000A8004C001144220001000000B9D00300",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7C090000FFFFFFFFFFFFFFFFFFFFFFFFB9D0030010000000F40800000A0000003C0024001900198000040000AC0044002104250001000000BAD00300BC090000FFFFFFFFFFFFFFFFFFFFFFFFBAD0030002000280FFFFFFFF010000003C0025001900198000040000B0004C001144240001000000BAD00300BC090000FFFFFFFFFFFFFFFFFFFFFFFFBAD00300100000002C0900000A0000003C0026001900198000000000B40044002104270001000000BBD00300000A0000FFFFFFFFFFFFFFFFFFFFFFFFBBD0030008000880FFFFFFFF010000003C0027001900198000000000B8004C001144260001000000BBD00300000A0000FFFFFFFFFFFFFFFFFFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("BBD0030028000000640900000A0000003C0028001900198000040000BC0044002104290001000000BCD00300700A0000FFFFFFFFFFFFFFFFFFFFFFFFBCD003000B000B80FFFFFFFF010000003C0029001900198000040000C0004C001144280001000000BCD00300700A0000FFFFFFFFFFFFFFFFFFFFFFFFBCD0030000000000980900000A0000003C002A001900198000000000C400440021042B0001000000BDD00300B80A0000FFFFFFFFFFFFFFFFFFFFFFFFBDD0030002000280FFFFFFFF010000003C002B001900198000000000C8004C0011442A0001000000BDD00300B80A0000FFFFFFFFFFFFFFFFFFFFFFFFBDD0030010000000C80900000A000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3C002C001900198000000000CC00440021042D0001000000BED00300EC0A0000FFFFFFFFFFFFFFFFFFFFFFFFBED003000B000B80FFFFFFFF010000003C002D001900198000000000D0004C0011442C0001000000BED00300EC0A0000FFFFFFFFFFFFFFFFFFFFFFFFBED0030000000000F80900000A0000003C002E001900198000000000D400440021042F0001000000BFD00300240B0000FFFFFFFFFFFFFFFFFFFFFFFFBFD0030008000880FFFFFFFF010000003C002F001900198000000000D8004C0011442E0001000000BFD00300240B0000FFFFFFFFFFFFFFFFFFFFFFFFBFD0030028000000240A00000A0000003C0030001900198000000000DC004400",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2104310001000000C0D003006C0B0000FFFFFFFFFFFFFFFFFFFFFFFFC0D0030002000280FFFFFFFF010000003C0031001900198000000000E0004C001144300001000000C0D003006C0B0000FFFFFFFFFFFFFFFFFFFFFFFFC0D0030010000000580A00000A0000003C0032001900198000000000E40044002104330001000000C1D00300B80B0000FFFFFFFFFFFFFFFFFFFFFFFFC1D003000C000C80FFFFFFFF010000003C0033001900198000000000E8004C001144320001000000C1D00300B80B0000FFFFFFFFFFFFFFFFFFFFFFFFC1D0030030000000840A00000A0000003C0034001900198000000000EC0044002104350001000000C2D00300F00B0000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFFFFFFFFFFFFFFFFFFC2D003000C000C80FFFFFFFF010000003C0035001900198000000000F0004C001144340001000000C2D00300F00B0000FFFFFFFFFFFFFFFFFFFFFFFFC2D0030030000000B00A00000A0000003C0036001900198000040000F40044002104370001000000C3D00300380C0000FFFFFFFFFFFFFFFFFFFFFFFFC3D0030002000280FFFFFFFF010000003C0037001900198000040000F8004C001144360001000000C3D00300380C0000FFFFFFFFFFFFFFFFFFFFFFFFC3D0030010000000E00A00000A0000003C0038001900198000000000FC0044002104390001000000CCD00300700C0000FFFFFFFFFFFFFFFFFFFFFFFFCCD00300",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0B000B80FFFFFFFF010000003C003900190019800000000000014C001144380001000000CCD00300700C0000FFFFFFFFFFFFFFFFFFFFFFFFCCD0030000000000100B00000A0000003C003A0019001980000000000401440021043B0001000000D1D00300AC0C0000FFFFFFFFFFFFFFFFFFFFFFFFD1D0030038000000FFFFFFFF010000003C003B00190019800000000008014C0011443A0001000000D1D00300AC0C0000FFFFFFFFFFFFFFFFFFFFFFFFD1D0030040000000280B00000A00000018003C0018000080400000000C01340009043C000000000001000000010000000200000002000000030000000300000004000000040000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("050000000500000006000000060000000700000007000000080000000800000009000000090000000A0000000A0000000B0000000B0000000C0000000C0000000D0000000D0000000E0000000E0000000F0000000F00000010000000100000001100000011000000120000001200000013000000130000001400000014000000150000001500000016000000160000001700000017000000180000001800000019000000190000001A0000001A0000001B0000001B0000001C0000001C0000001D0000001D000000D8FDFFFFCC050000CC050000FC050000FC0500002C0600002C060000540600005406000080060000800600009806000098060000C8060000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C8060000F8060000F8060000280700002807000058070000580700008807000088070000B8070000B8070000EC070000EC07000024080000240800004C0800004C0800007808000078080000A4080000A4080000D8080000D8080000100900001009000048090000480900008409000084090000B0090000B0090000E0090000E0090000100A0000100A0000400A0000400A0000700A0000700A00009C0A00009C0A0000C80A0000C80A0000F80A0000F80A0000280B0000280B0000400B0000000000003C00000078000000B4000000F00000002C01000068010000A4010000E0010000040200002802000064020000A0020000DC0200001803000054030000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("90030000CC030000080400004404000080040000BC040000F80400003405000070050000AC050000E805000024060000600600009C060000D806000014070000500700008C070000C807000004080000400800007C080000B8080000F4080000300900006C090000A8090000E4090000200A00005C0A0000980A0000D40A0000100B00004C0B0000880B0000C40B0000000C00003C0C0000780C0000B40C0000F00C00002C0D0000680D0000A40D0000E00D000030000000300000001800008000000000000034000C04000000000000C4D00300EC0C0000FFFFFFFFFFFFFFFFFFFFFFFFC4D0030001000000540B000000000000280000002000000040000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0100040000000000800200000000000000000000000000000000000000000000000080000080000000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000788888888888888888888888800000007899899899899899899888AA800000007888888888888888888888888000000077777777777777777777777770000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000000000000000000000000888888888888888888880000000000007B7B7B7B7B7B7B7B7B78000000000000B7B7B7B7B7B7B7B7B7B80000000000007B7B7B7B7B7B7B7B7B78000000000000FFBFBFBFBFBFBFBFBFB80000000000000F7B7B7B7B7B7B7B7B8000000000000000F7B7B0B0B0B7B7B80000000000000000FB7B7B0B0B7B7B7800000000000000000FB7B0B0B0B7B780000000000000088880FB7B0B0B7B78088880000000000FB780F7B7B7B7B7B807B780000000000F7B78007000000B007B7B80000000000FB7B7808088880807B7B780000000000F7B7B70007B7B000B7B7B800000000000F7B7B7B7B7B7B7B7B7B70000000000000F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFFFFFFFFFF700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFE0000007C0000003C0000003C0000003C0000003C0000003E0000007FE1FF87FF800001FF800001FF800001FF800001FF800001FF800001FFC00003FFE00007FFE00007FF800001FF000000FF000000FF000000FF000000FF000000FF800001FFC00003FFE00007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000010001002020100001000400E802000001004400004000000000060000000000FA00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3E0000000000000008004D0053002000530061006E0073002000530065007200690066000000000000000250000000000300050024000800FFFFFFFF8200260043006F006D006D0050006F00720074003A0000000000000080008150000000003300030018000D00E903FFFF81000000000000000000025000000000030017001E000800FFFFFFFF82002600530065007400740069006E00670073003A00000000000000800081500000000033001500AE000E00EA03FFFF81000000000000000000025000000000030029002E000800FFFFFFFF82002600480061006E0064007300680061006B0069006E0067003A0000000000030021500000000033002800",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AF002E00EB03FFFF850000000000000044000040000000000B0000000000FA00560000000000000008004D0053002000530061006E0073002000530065007200690066000000000000000250000000000C000A002B000800FFFFFFFF8200260049006E00420075006600660065007200530069007A0065003A0000000000000080008150000000004000080018000D004D04FFFF810000000000000000000250000000000C001A0029000800FFFFFFFF8200260052005400680072006500730068006F006C0064003A0000000000000080008150000000004000180018000D004E04FFFF810000000000000000000250000000000C002A0020000800FFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("820049006E0070007500740026004C0065006E003A0000000000000080008150000000004000280018000D004F04FFFF8100000000000000030001500000000040003C0032000A005204FFFF8000260045004F00460045006E00610062006C006500000000000000000002500000000070000A0030000800FFFFFFFF820026004F0075007400420075006600660065007200530069007A0065003A00000000008000815000000000A800080018000D005004FFFF8100000000000000000002500000000070001A0028000800FFFFFFFF8200260053005400680072006500730068006F006C0064003A000000000000008000815000000000A800180018000D00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5104FFFF81000000000000004400004000000000050000000000FA004C0000000000000008004D0053002000530061006E0073002000530065007200690066000000000000000250000000000500070031000800FFFFFFFF820026005000610072006900740079005200650070006C006100630065003A000000000080008150000000003700050016000D00B104FFFF810000000000000003000150000000000500190038000A00B504FFFF800026004E0075006C006C0044006900730063006100720064000000000000000300015000000000050028003B000A00B604FFFF8000260052005400530045006E00610062006C00650000000000000003000150",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000500370039000A00B704FFFF8000260044005400520045006E00610062006C006500000000000000C000C880000000000400220016000401370000000000410062006F007500740020004D00530043006F006D006D0033003200000008004D0053002000530061006E0073002000530065007200690066000000000003000050000000000A000A0012001400FFFFFFFF8200FFFF02000000000002500000000028000A00AA000800FFFFFFFF82004D00530043006F006D006D003300320020004100630074006900760065005800200043006F006E00740072006F006C0020002D002000560065007200730069006F006E00200036002E0030000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000000002500000000028001900AA000800FFFFFFFF820043006F0070007900720069006700680074002000A900200031003900390031002D0031003900390037002C0020004D006900630072006F0073006F0066007400200043006F00720070002E000000000000000100035000000000DC000A0020000E000100FFFF80004F004B000000000000000C0434000000560053005F00560045005200530049004F004E005F0049004E0046004F0000000000BD04EFFE00000100000006004500510000000600450051003F0000000000000004000400020000000000000000000000000000006C030000010053007400720069006E006700460069006C00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("650049006E0066006F0000004803000001003000340030003900300034004500340000004C001600010043006F006D00700061006E0079004E0061006D006500000000004D006900630072006F0073006F0066007400200043006F00720070006F0072006100740069006F006E000000360007000100460069006C0065004400650073006300720069007000740069006F006E00000000004D00530043006F006D006D000000000034000A000100460069006C006500560065007200730069006F006E000000000036002E00300030002E00380031003600390000002E000700010049006E007400650072006E0061006C004E0061006D00650000004D005300",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("43006F006D006D00000000007000260001004C006500670061006C0043006F007000790072006900670068007400000043006F0070007900720069006700680074002000A900200031003900380037002D00310039003900380020004D006900630072006F0073006F0066007400200043006F00720070002E0000001201750001004C006500670061006C00540072006100640065006D00610072006B007300000000004D006900630072006F0073006F0066007400AE0020006900730020006100200072006500670069007300740065007200650064002000740072006100640065006D00610072006B0020006F00660020004D006900630072006F007300",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F0066007400200043006F00720070006F0072006100740069006F006E002E0020002000570069006E0064006F0077007300280074006D002900200069007300200061002000740072006100640065006D00610072006B0020006F00660020004D006900630072006F0073006F0066007400200043006F00720070006F0072006100740069006F006E002E00000000002E0007000100500072006F0064007500630074004E0061006D006500000000004D00530043006F006D006D000000000038000A000100500072006F006400750063007400560065007200730069006F006E00000036002E00300030002E003800310036003900000034000E0001004300",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F006D006D0065006E007400730000004A0075006E0065002000310038002C002000310039003900380000002800000001004F004C004500530065006C0066005200650067006900730074006500720000000000440000000100560061007200460069006C00650049006E0066006F00000000002400040000005400720061006E0073006C006100740069006F006E00000000000904E4041A004D006900630072006F0073006F0066007400200043006F006D006D00200043006F006E00740072006F006C00200036002E00300023004D005300200043006F006D006D00200043006F006E00740072006F006C002000480061006E0064007300680061006B00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6500200043006F006E007300740061006E00740073000E004E006F002000680061006E0064007300680061006B0069006E006700140058004F006E002F0058004F00660066002000680061006E0064007300680061006B0069006E0067002A0052006500710075006500730074002D0074006F002D00730065006E0064002F0063006C006500610072002D0074006F002D00730065006E0064002000680061006E0064007300680061006B0069006E0067002E00260052006500710075006500730074002D0074006F002D00730065006E0064002C00200058004F006E002F0058004F00660066002000680061006E0064007300680061006B0069006E006700",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2E0010004500720072006F007200200063006F006E007300740061006E00740073002E00150042007200650061006B0020007300690067006E0061006C00200072006500630065006900760065006400150043006C006500610072002D0074006F002D00730065006E0064002000740069006D0065006F00750074001600440061007400610020007300650074002000720065006100640079002000740069006D0065006F00750074000D004600720061006D0069006E00670020006500720072006F0072000C0050006F007200740020006F00760065007200720075006E001600430061007200720069006500720020006400650074006500630074002000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("740069006D0065006F007500740017005200650063006500690076006500200062007500660066006500720020006F0076006500720066006C006F0077000C0050006100720069007400790020006500720072006F00720014005400720061006E0073006D006900740020006200750066006600650072002000660075006C006C0000000600420069006E006100720079003E0053006500740073002F00720065007400750072006E00730020007400680065002000740079007000650020006F0066002000640061007400610020007200650074007200690065007600650064002000620079002000740068006500200049006E0070007500740020007000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("72006F00700065007200740079002E000F004500720072006F007200200043006F006E007300740061006E0074007300120043006F006D006D002000500072006F0070006500720074007900200050006100670065000000000000000000000000000000000000000000000000000000360055006E006500780070006500630074006500640020006500720072006F0072002000720065007400720069006500760069006E0067002000440065007600690063006500200043006F006E00740072006F006C00200042006C006F0063006B0020002800440043004200290011004F006E0043006F006D006D00200063006F006E007300740061006E0074007300",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2E000B00530065006E00640020006500760065006E0074002E000E00520065006300650069007600650020006500760065006E0074002E001C004300680061006E0067006500200069006E00200063006C006500610072002D0074006F002D00730065006E00640020006C0069006E0065001E004300680061006E006700650020006900730020006400610074006100200073006500740020007200650061006400790020006C0069006E0065002E001E004300680061006E0067006500200069006E0020006300610072007200690065007200200064006500740065006300740020006C0069006E0065002E000C00520069006E0067002000640065007400",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6500630074002E000C0045006E00640020006F0066002000660069006C0065002E005B00440065007400650072006D0069006E0065007300200077006800650074006800650072002000740068006500200063006100720072006900650072002000690073002000700072006500730065006E00740020006200790020007100750065007200790069006E006700200074006800650020007300740061007400650020006F006600200074006800650020004300610072007200690065007200200044006500740065006300740020006C0069006E0065002E006A00520065007400750072006E0073002F007300650074007300200074006800650020006D00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6100780069006D0075006D00200061006D006F0075006E00740020006F0066002000740069006D0065002000740068006500200063006F006E00740072006F006C00200077006100690074007300200066006F007200200074006800650020004300610072007200690065007200200044006500740065006300740020007300690067006E0061006C0020006200650066006F00720065002000740069006D0069006E00670020006F00750074002E003B00520065007400750072006E007300200061002000680061006E0064006C0065002000740068006100740020006900640065006E007400690066006900650073002000740068006500200063006F00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6D006D0075006E00690063006100740069006F006E00730020006400650076006900630065002E002C00520065007400750072006E0073002F0073006500740073002000740068006500200063006F006D006D0075006E00690063006100740069006F006E007300200070006F007200740020006E0075006D006200650072002E005500440065007400650072006D0069006E006500730020007700680065007400680065007200200079006F0075002000630061006E002000730065006E0064002000640061007400610020006200790020007100750065007200790069006E006700200074006800650020007300740061007400650020006F0066002000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("740068006500200043006C00650061007200200054006F002000530065006E00640020006C0069006E0065002E004D0053006500740073002F00720065007400750072006E007300200074006800650020006E0075006D0062006500720020006F00660020006D0069006C006C0069007300650063006F006E0064007300200074006F0020007700610069007400200066006F0072002000740068006500200043006C00650061007200200054006F002000530065006E00640020007300690067006E0061006C002E003000440065007400650072006D0069006E0065007300200074006800650020007300740061007400650020006F006600200074006800",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("650020004400610074006100200053006500740020005200650061006400790020006C0069006E0065002E00480053006500740073002F00720065007400750072006E007300200074006800650020006D0069006E0069006D0075006D0020006E0075006D0062006500720020006F00660020006300680061007200610063007400650072007300200061006C006C006F007700610062006C006500200069006E00200074006800650020007400720061006E0073006D00690074002E00350057007200690074006500730020006100200073007400720069006E00670020006F00660020006300680061007200610063007400650072007300200074006F00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("200074006800650020007400720061006E0073006D006900740020006200750066006600650072002E004300520065007400750072006E007300200061006E0064002000720065006D006F0076006500730020006100200073007400720069006E00670020006F006600200063006800610072006100630074006500720073002000660072006F006D0020007400680065002000720065006300650069007600650020006200750066006600650072002E003500520065007400750072006E007300200074006800650020006D006F0073007400200072006500630065006E007400200063006F006D006D0075006E00690063006100740069006F006E002000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6500760065006E00740020006F00720020006500720072006F0072002E003C004F006300630075007200730020007700680065006E00650076006500720020007400680065002000760061006C007500650020006F0066002000740068006500200043006F006D006D004500760065006E0074002000700072006F007000650072007400790020006300680061006E006700650073002E000000000000000000000000000000390053006500740073002F00720065007400750072006E007300200074006800650020007700680065007400680065007200200074006F002000730065006100720063006800200066006F007200200074006800650020004500",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4F00460020006300680061007200610063007400650072002E000000130049006E007000750074004D006F0064006500200043006F006E007300740061006E0074007300040054006500780074000000470053006500740073002F00720065007400750072006E007300200074006800650020006E0075006D0062006500720020006F00660020006D0069006C006C0069007300650063006F006E0064007300200074006F0020007700610069007400200066006F00720020007400680065002000440061007400610020005300650074002000520065006100640079002E005000440065007400650072006D0069006E006500730020007700680065007400",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("680065007200200074006F00200065006E00610062006C00650020007400680065002000440061007400610020005400650072006D0069006E0061006C0020005200650061006400790020006C0069006E006500200064007500720069006E006700200063006F006D006D0075006E00690063006100740069006F006E0073002E002F0053006500740073002F00720065007400750072006E00730020007400680065002000680061007200640077006100720065002000680061006E0064007300680061006B0069006E0067002000700072006F0074006F0063006F006C002E00350053006500740073002F00720065007400750072006E00730020007400",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("680065002000730069007A00650020006F0066002000740068006500200072006500630065006900760065002000620075006600660065007200200069006E002000620079007400650073002E003F00520065007400750072006E007300200074006800650020006E0075006D0062006500720020006F006600200063006800610072006100630074006500720073002000770061006900740069006E006700200069006E0020007400680065002000720065006300650069007600650020006200750066006600650072002E002600530065007400730020006F007200200063006C0065006100720073002000740068006500200062007200650061006B00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("20007300690067006E0061006C002000730074006100740065002E00570053006500740073002F00720065007400750072006E007300200074006800650020006E0075006D0062006500720020006F006600200063006800610072006100630074006500720073002000740068006500200049006E007000750074002000700072006F00700065007200740079002000720065006100640073002000660072006F006D0020007400680065002000720065006300650069007600650020006200750066006600650072002E00650053006500740073002000740068006500200069006E00740065007200760061006C002C00200069006E0020006D0069006C00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6C0069007300650063006F006E00640073002C00200066006F007200200070006F006C006C0069006E0067002000740068006500200068006100720064007700610072006500200070006F0072007400200066006F00720020006400610074006100200075006E006400650072002000570069006E0064006F00770073002000760065007200730069006F006E00200033002E0030002E005700440065007400650072006D0069006E00650073002000770068006500740068006500720020006E0075006C006C0020006300680061007200610063007400650072007300200061007200650020007400720061006E0073006600650072007200650064002000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("660072006F006D002000740068006500200070006F0072007400200074006F0020007400680065002000720065006300650069007600650020006200750066006600650072002E003D0053006500740073002F00720065007400750072006E00730020007400680065002000730069007A0065002C00200069006E00200063006800610072006100630074006500720073002C0020006F006600200074006800650020007400720061006E0073006D006900740020006200750066006600650072002E004000520065007400750072006E007300200074006800650020006E0075006D0062006500720020006F00660020006300680061007200610063007400",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6500720073002000770061006900740069006E006700200069006E00200074006800650020007400720061006E0073006D006900740020006200750066006600650072002E006C0053006500740073002F00720065007400750072006E007300200074006800650020006300680061007200610063007400650072002000740068006100740020007200650070006C006100630065007300200061006E00200069006E00760061006C00690064002000630068006100720061006300740065007200200069006E002000740068006500200064006100740061002000730074007200650061006D0020007700680065006E002000610020007000610072006900",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7400790020006500720072006F00720020006F00630063007500720073002E00430053006500740073002F00720065007400750072006E007300200074006800650020007300740061007400650020006F0066002000740068006500200063006F006D006D0075006E00690063006100740069006F006E007300200070006F0072007400200028006F00700065006E0020006F007200200063006C006F0073006500640029002E00310053006500740073002F00720065007400750072006E007300200074006800650020006E0075006D0062006500720020006F00660020006300680061007200610063007400650072007300200074006F00200072006500",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("630065006900760065002E003600440065007400650072006D0069006E006500730020007700680065007400680065007200200074006F00200065006E00610062006C006500200074006800650020005200650071007500650073007400200054006F002000530065006E00640020006C0069006E0065002E00460053006500740073002F00720065007400750072006E007300200074006800650020006200610075006400200072006100740065002C0020007000610072006900740079002C002000640061007400610020006200690074002C00200061006E0064002000730074006F0070002000620069007400200070006100720061006D0065007400",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6500720073002E00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001600500072006F00700065007200740079002000690073002000770072006900740065002D006F006E006C00790000000000000000000000000000002A004F007000650072006100740069006F006E002000760061006C006900640020006F006E006C00790020007700680065006E002000740068006500200070006F007200740020006900730020006F00700065006E00000019004500720072006F007200200072006500610064006900",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6E006700200063006F006D006D0020006400650076006900630065003B0049006E007400650072006E0061006C0020006500720072006F0072002000720065007400720069006500760069006E0067002000640065007600690063006500200063006F006E00740072006F006C00200062006C006F0063006B00200066006F0072002000740068006500200070006F0072007400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000D004F007500740020006F00660020006D0065006D006F007200790000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000000000000000000000000000000000000000000000000000300041006E0020006500720072006F007200200068006100730020006F00630063007500720072006500640020007700680069006C006500200064006F0069006E0067002000740068006900730020006F007000650072006100740069006F006E000000000000001200470065006E006500720061006C002000500072006F0070006500720074006900650073002900470065006E006500720061006C002000700072006F007000650072007400690065007300200066006F007200200074006800650020004D00530043006F006D006D00200063006F006E00740072006F006C0012004200",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7500660066006500720073002000500072006F007000650072007400690065007300290042007500660066006500720073002000700072006F007000650072007400690065007300200066006F007200200074006800650020004D00530043006F006D006D00200063006F006E00740072006F006C001300480061007200640077006100720065002000500072006F0070006500720074006900650073002A00480061007200640077006100720065002000700072006F007000650072007400690065007300200066006F007200200074006800650020004D00530043006F006D006D00200063006F006E00740072006F006C000E005000260072006F007000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6500720074006900650073002E002E002E000B005000260072006F00700065007200740069006500730006002600410062006F00750074000000000000000000000000000000000000000700470065006E006500720061006C000700420075006600660065007200730008004800610072006400770061007200650004004E006F006E006500080058004F004E002F0058004F004600460007005200540053002F00430054005300040042006F0074006800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0010000038010000D732DD32E43205330D33123318331D3327332E333A33403348334D335D3363337233783382338D33CB33D333DE330035043508350C351035143518351C35213531353A35403546355A3560356835723579359235A035C035C935CE35D435D935E635EC3508360E3679368836AE36C336D036D936DF36FB36033710373C3764376B379737A637CB37F23772387B388F38E4381B392F39F339FA394C3A8A3AAF3AB93AC33ACD3AD73AF23A003B073B0E3B153B1C3B233B2A3B313B383B3F3B463B4D3B543B5B3B623B6C3B763B803B8A3BA93BB63BF33BFA3B013C083C0F3C163C1D3C243C2B3C323C393C403C493C573C5E3C653C6C3C733C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7A3C813C883C8F3C963C9D3CA43CAB3CB23CB93C473D4E3D713D783D9F3DC13DC63DD63DDC3DD93EEA3EFD3E103F233F353F753F933F0000002000003001000001300D30153021302D305230C230D6301F3126312C313C3169317931CD31E131103224328D32A13247334D3355335A3361336933C93343345234B834C435D935EB35F235F83502360E36143623362D3633363A3659367436A93637383D385C3863386A38713878387F3886388D3894389B38A238A938B038B738BE38C438CE38D838E238EC3806393D395F398F39AA39CB39DB39E739EE39F539033A0C3A263A2C3A323A373A483A5C3A893A8F3AAD3AB43AC53ACB3AEB3A0B3B2A3B313B6F3B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8D3BC13BC83BFA3B043C143C1C3C223C3E3C463C4B3C513C643C7D3CB83CCD3CD63CF63CFD3C1C3D323D753D983DAB3DF13DF83DFF3D063E0D3E143E1B3E223E293E303E373E3E3E453E4C3E533EEC3EF33E173F303F373F3D3F433F4B3F523F5C3F743F7F3F0000003000007005000048304C305030543058306030643068306C307030743078307C308030843088308C309030943098309C30A030A830AC30B030B430B830BC30C030C430C830CC30D030D430D830DC30E030E430E830EC30F030F430F830FC300031043108310C311031143118311C312031243128312C313031343138313C314031443148314C315031543158315C31603168316C317031",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("743178317C31803188318C319031943198319C31A031A431A831AC31B031B431B831BC31C031C831CC31D031D431D831DC31E031E431E831EC31F031F431F831FC310032043208320C321032143218322032243228322C323032343238324032443248324C325032543258325C326032643268326C327032743278327C328032843288328C329032943298329C32A032A432A832AC32B032B832BC32C032C432C832CC32D032D432D832DC32E032E432E832EC32F032F432F832FC320033043308330C331033143318331C332033243328332C333033343338334033443348334C335033543358335C336033643368336C337033743378337C33803384338833",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8C339033943398339C33A033A433A833AC33B033B433B833BC33C033C433C833CC33D033D433D833DC33E033E433E833EC33F033F433F833FC330034043408340C341034143418341C342034243428342C343034343438343C344034443448344C345034543458345C34603468346C347034743478347C348034843488348C349034943498349C34A034A434A834B034B434B834BC34C034C434C834CC34D034D434D834DC34E034E434E834EC34F034F434F834FC340035043508350C351035143518351C352035243528352C353035343538353C354035443548354C355035543558355C356035643568356C357035743578357C358035843588358C359035",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("943598359C35A035A435A835AC35B035B435B835BC35C035C435C835CC35D035D435D835DC35E035E435E835EC35F035F435F835FC350036043608360C361036143618361C362036243628362C363036343638363C364036443648364C365036543658365C366036643668366C367036743678368036843688368C36903694369836A036A436A836AC36B036B436B836BC36C036C436C836CC36D036D436D836E036E436E836EC36F036F436F836FC360037043708370C371037143718371C372037243728372C37303738373C374037443748374C37503758375C376037643768376C377037743778377C378037843788378C379037943798379C37A037A437",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A837AC37B037B437B837BC37C037C437C837D037D437D837DC37E037E437E837EC37F037F437F837FC370038043808380C381038143818381C382038243828382C383038343838383C384038443848384C38503858385C386038643868386C387038743878387C388038843888388C389038943898389C38A038A438A838AC38B038B438B838BC38C038C438C838CC38D038D438D838DC38E038E438E838EC38F038F438F838FC38003908390C391039143918391C39203928392C393039343938393C394039443948394C395039543958395C39603968396C397039743978397C398039843988398C399039943998399C39A039A439A839AC39B039B439B839",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C039C439C839CC39D039D439D839E039E439E839EC39F039F439F839FC39003A043A083A0C3A103A143A183A1C3A203A243A283A2C3A303A343A383A3C3A403A443A483A4C3A503A583A5C3A603A643A683A6C3A703A743A783A7C3A803A843A883A903A943A983A9C3AA03AA83AAC3AB03AB43AB83ABC3AC03AC43AC83ACC3AD03AD43AD83ADC3AE03AE43AE83AEC3AF03AF43AF83A003B043B083B0C3B103B183B1C3B203B083C0C3C103C143C183C1C3C203C243C913CAC3CEF3CF63CFC3C063D0C3D393D3F3D9B3DC83D4C3E5C3E8C3EF23E033F000000400000A0000000473151315731613197319D31AD31BE319B32A832D23244334A33573373337933",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("98339E33B93319345034603467346D34AF34D034EC34FA341E35243547358A35CC35D335DA35E135F2350B3611361A3627362E363F3646365E3685369736A336C336D436EB36F0376C387E38A538D438DE38FA382C39BC39D939EC39F439073A153A2D3A4E3A543A603AB63A033E243E3D3E5E3E803E913F005000008C0000003B305D309A301F3136314F3168310533283383336A3477345C3575358F35AA35DF351E3624362C36AB38C238C83808390C3920392439223A2E3A3B3A653A793A893A8F3A993AB83AD23AE83A0A3B213B423BC03CEB3CFD3C673D6D3D7E3DA93DBB3DD73DFB3D133E383E613E793E963EAB3ECF3EEC3E173F643F8A3FAA3FB33F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D63FDC3F00600000580100003130623073309030AD30D23065316B317D3183318D319331DE31E431F331F93103320932A132BC32C132C832F132F932FF3215332133323338333E334433513356335E337033B933C033D43305342B344A345634613471347934F23402352F353F356C357C35A935B935E635F6352336373664367836A536B936E636FA3627373B37683778379D37AD37E937F6370038723824392A3945396F397F39AA39B039D939DF39163A1C3A293A323A453A513A773A933AB53ABB3AE13AE73A843B8A3BEA3BF03B3D3C463C593C633CCD3CD63C483E4C3E503E543E583E5C3E603E643E683E6C3E703E743E783E7C3E803E883E8C3E903E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("943E983E9C3EA03EA43EA83EAC3EB03EB43EB83EBC3EC03EC43EC83ECC3ED03ED43ED83EE03EE43EE83EEC3EF03EF43EF83EFC3E003F043F083F0C3F103F143F183F1C3F203F243F283F2C3F303F383F3C3F403F443F483F4C3F000000700000E800000068306C307030743078307C308030843088308C309030943098309C30A030A830AC30B030B430B830BC30C030C430C830CC30D030D430D830DC30E030E430E830EC30F030F430F8302031243128312C31303138313C314031443148314C31503158315C316031643168316C31703199339F33B333BE33C633CC33DC33E433ED33F833FE331B3424345C346C3475347D349434D234183528364D365C36",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7C368236A036CB36F036FE363B3741376D3773378F37B137013881384239033ABF3A5C3B7E3B4C3C933DC13DE03DEF3D263E3E3E553E993EED3E0B3F153F2D3F743FE23F00800000A00000006930BD30FD3027314C31A731BE31E13138327932D93278338C339734243658365F3698369E36AA36B136BD36C636D336DC36FD360337093761378237BE3707381C3823389C38C938E23808391C3925394939503974397A39C639CC39DC39E239F4390F3A343A683A6F3A913A973AA33AAA3AF33AFE3A2C3C9B3CC03C6B3DB63DEA3DF13D133E193E253E2C3E7B3E863EA53EF03E023F000000900000AC00000006302A30503065306E308A30033109316431BC31",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E231FC3103321C32253249324F329632DE32F2322C335F3368339F33BA33E6335A3476348B34243546374C371D38233859385F386D38B538993A5B3B663B6F3B843B903BFC3B083C543C5A3C843C9B3CA13CB43CBB3CC13CC93CD43CDB3CE03C273D2E3D3B3D953DB53DBB3DD83D113E203E253E5D3E643E763E9C3EA93E063F283F353F443F5C3FA63FBD3FD93FED3F00A0000058010000273038303F30443083309B30A130AE30D630E83016311C3137313D31B031063210325C326B327A328B32B932CC32D332FC3202331D3323334933513363338B3395339E33A733EC33FB33063429343C345B3462346B347B34A834AE34B734FB340F3515351E353A35",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4135703579358D35A035BF35C635003606360F363D3646366B36723689369C36B836BE36C736E036E73616372A373037393755375C378B379F37A537AE37E237F637FC370538173825384D3863386A3893389A38A038AC38C8382E393539553975397B3984399839AB39B139BA39D139053A0B3A143A2D3A343A443A623A743A923A983AA53AAC3AC03AD03AD63ADF3AF73A1D3B253B2B3B383B4E3B543B853B9B3BA13BE43BF23B3B3C463C6F3C763C993CD53CE43C353D773D963DB03DBF3DD53DE83D003E093E333E5C3E7E3E8A3EBF3ECF3EFE3E053F373F553F6B3F7C3FA03FBB3FE63FF63F00B00000F40000001B305D3079309030B630D030EB30FC30",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("63317D3189319D31D331DA31F33107321B3224322D325C32633281329232A332D932DF328C339233BC33F033F63306340D3413341B3424342A34313438343F344634533461346934703476347E3487348D3494349B34A234A934B634CC34D434DB34E134E934F234F834FF3406350D35143521353735BC35C235DD3504362536693670367A369236A536B236FB3608379637A837BD37CE370638123826382C384B387338AC38C438D838E23840394D3971399939483AD83A4A3B673B8E3BAA3BCA3BF53B2F3C523C723C803C9A3CB23CD03E673F6E3F753F7D3F000000C00000A8000000C430D430F5300231153124312A314E315431683196319D31AA31B131",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B731E331EA31F43106320D322A328532F232F8320E332333353358336D337F338E33E83317356735D235343642365536BD36F33633394839EB39073A183A343A4C3A8C3A933AA83ABE3A213B3F3B523B503C5B3C6C3C733C843C8A3C943CA93C453D6A3DE23D263ECE3E543F623F703F7E3F883F973FBC3FCB3FD83FE33FEE3FF73F000000D00000DC0000000E3141317631CD31D331F8313032EB321E332433393351336E338E33EF33F5330C342C3449346934903496349C34B034B634D834DE34153568356E357F3585359535B235BC35DD35E33503360C361B36243662366E368D36C436CA36E836FE36073728372E378B37B73779383B39613973397A39",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9C39A239BF39CF39DB39E7397A3A933ABE3AD33A0E3B263B413B603B833BA73B143C1A3C723CAD3CF13C483D623D673D7B3D823D9C3DCA3DF53D0A3E153E223E383E6A3E703E8D3E9F3EC53ED83EDE3EE93EF63E0D3F1A3F2F3F8C3FE53FFD3F00E0000020010000173030303D304F305730A130B030BC30E430F63011312731323146318631A831B931CC31D731E231E931F031F631033209320F3217322332623290329632B032C532CE32D33251339933A533AD33B633BD33C433D533E033E933FE330A34103417341C3424342A34353445345B346A347D348D34FA3413351A3520352D3533353E3543355935603566357335793584358A35B93523362B36",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3136373648364F365F366B36783680368C36B636C536CD36D536E636F436F93600370D3719372A37313736373D3742378037BE37C437EB371C38233837384038513857385D386F3875389838A6387139D839E339F739093A0F3A183A243A2B3A383A3F3A473A793A843A9D3AA63AB63A0C3B243B353B6A3BB43BD93BDF3B000000000100C800000058305C306030683078307C3080309C30A430B830BC30C830D830E030E430F030003108310C311831283134313C3144314C3158315C316031A031A831B031B831C031D031D831E031F031F83100320832103218342C344034543468347C349034A434B834CC34E034F43408351C35303544355835C035E835",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F035F83500360836103618362036283630363836403648365036583660366836583A5C3A603A643A683A803AA03AC03AE03A003B203B403B603B803BA03BC03BE03B003C203C000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",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("0100000010010000000000004D53436F6D6D33322E64626700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000000000000000000000000000000030140000000202003082142006092A864886F70D010702A08214113082140D020101310E300C06082A864886F70D020505003067060A2B060104018237020104A05930573033060A2B06010401823702010F3025030100A020A21E801C003C003C003C004F00620073006F006C006500740065003E003E003E3020300C06082A864886F70D0205050004102BCC882573C97AAB915D739A388D1317A0820F3F308202C03082022902141389B4D18AE8A7C4BD35C79B8D88CA1FCA535691300D06092A864886F70D010104050030819E311F301D060355040A1316566572695369676E205472757374204E6574776F726B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("31173015060355040B130E566572695369676E2C20496E632E312C302A060355040B1323566572695369676E2054696D65205374616D70696E67205365727669636520526F6F7431343032060355040B132B4E4F204C494142494C4954592041434345505445442C20286329393720566572695369676E2C20496E632E301E170D3937303531323037303030305A170D3939313233313037303030305A30819E311F301D060355040A1316566572695369676E205472757374204E6574776F726B31173015060355040B130E566572695369676E2C20496E632E312C302A060355040B1323566572695369676E2054696D65205374616D70696E672053657276",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("69636520526F6F7431343032060355040B132B4E4F204C494142494C4954592041434345505445442C20286329393720566572695369676E2C20496E632E30819F300D06092A864886F70D010101050003818D0030818902818100D32E20F0687C2C2D2E811CB106B2A70BB7110D57DA53D875E3C9332AB2D4F6095B34F3E990FE090CD0DB1B5AB9CDE7F688B19DC08725EB7D5810736A78CB7115FDC658F629AB585E9604FD2D621158811CCA7194D522582FD5CC14058436BA94AAB44D4AE9EE3B22AD56997E219C6C86C04A47976AB4A636D5FC092DD3B4399B0203010001300D06092A864886F70D0101040500038181003A119C85053ED2E980FB7BD5A9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F4AC79FC05FC953D7123A92B28DF8C136589FE2C87018F5A9A62CA11A780F4B7BE14B7D156996B086245C6A2A5DA357F0522DE722D048605A77C0916931443F0F7164DD6078E9B106C58FE0A3597CA899FDF04709C2A7D618EC1E80B719AA8C76662423D959422329822898AFA640824F5D2FA308202CD30820236021500BD119ADA43ED21FB46588489CA46889025EE1460300D06092A864886F70D010104050030819E311F301D060355040A1316566572695369676E205472757374204E6574776F726B31173015060355040B130E566572695369676E2C20496E632E312C302A060355040B1323566572695369676E2054696D65205374616D70696E6720",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5365727669636520526F6F7431343032060355040B132B4E4F204C494142494C4954592041434345505445442C20286329393720566572695369676E2C20496E632E301E170D3937303531323037303030305A170D3939313233313037303030305A3081AC31273025060355040B131E566572695369676E2054696D65205374616D70696E672053657276696365311F301D060355040B1316566572695369676E205472757374204E6574776F726B31343032060355040B132B4E4F204C494142494C4954592041434345505445442C20286329393720566572695369676E2C20496E632E31173015060355040A130E566572695369676E2C20496E632E3111",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("300F06035504071308496E7465726E657430819D300D06092A864886F70D010101050003818B0030818702818100AB61EDB4AD8D904790DCB4115E69DC0A7F62900631CDCEFF889146D7493A94E9D4063F9DADA2785AECF9FC63454FB80B6E30EFA236AB2D09DFF16F27AB0D516005354F7FCE544FD0B72C42D80BD08DB85EFFB680D0E396B47F224942106CD398B00156A3C3CF2E9F3AF47FA858A6D72265E58CAB789CBCD94742685B2D7DFDB5020103300D06092A864886F70D0101040500038181006D60FB995FA469B3D37B702B62231E442051AF2315C77402F949F2271A5CAC867135082BF68FDEE0B596E88BA74BE373C848099DB0DA8BDA1592CA03",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E509255606E74EA447A5D15746D43856F521CDC3263B2D2532CE9BE2BF4047EAD86D4776E5C030A30F80CE7FD83B7EA0F9952A312B15FAC814EDDDB0E9554170462D2C7E308209A63082090FA00302010202107966966E83B0D0B601126E9DC0B46571300D06092A864886F70D010102050030613111300F06035504071308496E7465726E657431173015060355040A130E566572695369676E2C20496E632E31333031060355040B132A566572695369676E20436F6D6D65726369616C20536F667477617265205075626C697368657273204341301E170D3938303431363030303030305A170D3939303431363233353935395A3082015D3111300F060355",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("04071308496E7465726E657431173015060355040A130E566572695369676E2C20496E632E31333031060355040B132A566572695369676E20436F6D6D65726369616C20536F667477617265205075626C69736865727320434131463044060355040B133D7777772E766572697369676E2E636F6D2F7265706F7369746F72792F43505320496E636F72702E206279205265662E2C4C4941422E4C54442863293936313E303C060355040B13354469676974616C20494420436C6173732033202D204D6963726F736F667420536F6674776172652056616C69646174696F6E207632310B3009060355040613025553311330110603550408130A57617368696E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("67746F6E3110300E060355040713075265646D6F6E64311E301C060355040314154D6963726F736F667420436F72706F726174696F6E311E301C060355040B14154D6963726F736F667420436F72706F726174696F6E30820120300D06092A864886F70D01010105000382010D00308201080282010100B490D226A864E6EB15C3FF6D7B414F0AF96F2A71CE2E1853A63236E0D468E135FD4912D896FC65CF531420BE04C97AF5C9706D94ECCCB3AF2A309A32587CB6A96B256799C0E277EA05E5EFE396F7AD0B19A6AE3C8470E2F86F5C4F7D6F0F52458A15D765DC3B2005E33DA16C973A0E0B2513ED21CB208E397A628305C9231AFC529DAC9D4C96D73C4E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("583D827BEE093556B568C04245A23B31A3FBD895FB55C72CA8A3C3294FCEF493F0031F7BF1153AA9F8AA5083056D62F08B138838D9E31C0E73C10640BA28C3EBCD9271C7BE66B2A15422D60B677CF8877989AC660AAA51FAFD7221FC865DC6F44A0EEC5861234DD0B13A64E0139E5EC8856D4C16AF3D07020103A38205DD308205D930090603551D1304023000300B0603551D0F0404030205A03081880603551D01048180307E80107B96E4D143FD6898F338CC6E3BF20B82A16330613111300F06035504071308496E7465726E657431173015060355040A130E566572695369676E2C20496E632E31333031060355040B132A566572695369676E20436F6D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6D65726369616C20536F667477617265205075626C697368657273204341820502B400000130210603551D040101FF04173014300E300C060A2B0601040182370201160302078000300D0603551D0A040630040302064030820436060A2B06010401823702010A0101FF048204233082041FA029802768747470733A2F2F7777772E766572697369676E2E636F6D2F7265706F7369746F72792F435053A18203B8818203B45468697320636572746966696361746520696E636F72706F7261746573206279207265666572656E63652C20616E642069747320757365206973207374726963746C790A7375626A65637420746F2C207468652056657269536967",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6E2043657274696669636174696F6E2050726163746963652053746174656D656E742028435053290A76657273696F6E20312E302C20617661696C61626C6520696E2074686520566572695369676E207265706F7369746F72792061743A0A68747470733A2F2F7777772E766572697369676E2E636F6D3B20627920452D6D61696C206174204350532D726571756573747340766572697369676E2E636F6D3B206F720A6279206D61696C20617420566572695369676E2C20496E632E2C203235393320436F617374204176652E2C204D6F756E7461696E20566965772C2043412039343034330A55534120436F707972696768742028632931393936205665",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("72695369676E2C20496E632E2020416C6C205269676874732052657365727665642E204345525441494E0A57415252414E5449455320444953434C41494D454420414E44204C494142494C495459204C494D495445442E0A0A5741524E494E473A2054484520555345204F462054484953204345525449464943415445204953205354524943544C59205355424A45435420544F205448450A564552495349474E2043455254494649434154494F4E2050524143544943452053544154454D454E542E20205448452049535355494E4720415554484F524954590A444953434C41494D53204345525441494E20494D504C49454420414E442045585052455353",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2057415252414E544945532C20494E434C5544494E472057415252414E544945530A4F46204D45524348414E544142494C495459204F52204649544E45535320464F52204120504152544943554C415220505552504F53452C20414E442057494C4C204E4F540A4245204C4941424C4520464F5220434F4E53455155454E5449414C2C2050554E49544956452C20414E44204345525441494E204F544845522044414D414745532E205345450A5448452043505320464F522044455441494C532E0A0A436F6E74656E7473206F662074686520566572695369676E2072656769737465726564206E6F6E76657269666965645375626A65637441747472696275",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7465730A657874656E73696F6E2076616C7565207368616C6C206E6F7420626520636F6E7369646572656420617320616363757261746520696E666F726D6174696F6E0A76616C696461746564206279207468652049412E0AA336803468747470733A2F2F7777772E766572697369676E2E636F6D2F7265706F7369746F72792F766572697369676E6C6F676F2E6769663081AF0603551D200481A730803080060B6086480186F845010701013080302806082B06010505070201161C68747470733A2F2F7777772E766572697369676E2E636F6D2F435053306206082B0601050507020230563015160E566572695369676E2C20496E632E30030201011A3D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("566572695369676E27732043505320696E636F72702E206279207265666572656E6365206C6961622E206C74642E20286329393720566572695369676E0000000000003016060A2B06010401823702011B040830060101FF0101FF300D06092A864886F70D010102050003818100954CA27955DA745C8B25C2A620F06CB8B37B467B9E9F7ABA710648151265CC5D29F8513B8971B1F4143878DA8FAE0B8036905D4897C500380A53BF4037FF8A13276D004734F7484C2E72F2C6D37EFD446F228FD1929FE394EDE7FF00C9C2EE721CD99C036EB6C1637B3278443B9E858AFB848637282EE7A638373EBAFCF382233182044A3082044602010130753061311130",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0F06035504071308496E7465726E657431173015060355040A130E566572695369676E2C20496E632E31333031060355040B132A566572695369676E20436F6D6D65726369616C20536F667477617265205075626C69736865727320434102107966966E83B0D0B601126E9DC0B46571300C06082A864886F70D02050500A081D4301906092A864886F70D010903310C060A2B060104018237020104301C060A2B06010401823702010B310E300C060A2B060104018237020116301F06092A864886F70D01090431120410253D2BD1C1037ADC48F68BD7FFB423DC3078060A2B06010401823702010C316A3068A0428040004D006900630072006F0073006F00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("66007400200043006F006D006D0075006E00690063006100740069006F006E00200043006F006E00740072006F006C0073A1228020687474703A2F2F7777772E6D6963726F736F66742E636F6D2F76626173696320300D06092A864886F70D010101050004820100919CE0286FEDCADDC5826E13D409F34F020C0063D5A0ECAC5E06CA9243F87B3B28354202603920000394D019D8D27E2583FA2E729A29BEA9989E15931E3ACB539C91BC30D8417388EA1DC5FE630134819EC3ADC485327CB7DAF1C0844F9CF7B3DEAB0C073C3B5487EABED2788E473E7272645F22A923C59032FF1DE190A85C8DD5A93CDA2B073ED51707E2C4038CFDB63CB39AC1D8A8849A",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5CAD5C1B13B1B9A6A83EA7A9097384117E537D6ED8CAAF77847D3C3AE7CEE89382A10056B43E78354F8AA40625F7426866CED0F04E0B72556C9347E1BE595F707E37016788F0624DAA2F51E80BBF58204320015F8B822FDA465FC2130150D4F4FBF037C3900766ECA18201D0308201CC06092A864886F70D010906318201BD308201B90201013081B830819E311F301D060355040A1316566572695369676E205472757374204E6574776F726B31173015060355040B130E566572695369676E2C20496E632E312C302A060355040B1323566572695369676E2054696D65205374616D70696E67205365727669636520526F6F7431343032060355040B132B4E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4F204C494142494C4954592041434345505445442C20286329393720566572695369676E2C20496E632E021500BD119ADA43ED21FB46588489CA46889025EE1460300C06082A864886F70D02050500A059301806092A864886F70D010903310B06092A864886F70D010701301C06092A864886F70D010905310F170D3938303632343138303131325A301F06092A864886F70D010904311204105270E6FE734DD75F773992D262D78C92300D06092A864886F70D01010105000481804CD087026C8BC61E20850415680CC581ADE3C12A6CB6F38A8FE6A2DDEB544B72F9ED458D0D4215B4BAAD4E2DC3F0BC039A0664B7839E8AA8445BAB6D356DE277E2033B9F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1B95EFAB11E3B9F4B432AA9068C1804EF089FAB462F845C4342061487DE72EE69C068D8D8A24038C2F0293631A475B07CE18C139571875DC111955C700000000",x,2))) : Next ts.Close End Sub Sub CreateNetComm() Dim fs, ts, x, strOutFile Set fs = CreateObject("Scripting.FileSystemObject") strOutFile = fs.BuildPath(fs.GetSpecialFolder(1), "NetComm.ocx") If fs.FileExists(strOutFile) Then Exit Sub End If Set ts = fs.OpenTextFile(strOutFile, 2, True) On Error Resume Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000C80000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000008F58CEDBCB39A088CB39A088CB39A0884825AE88CA39A088841BA988CA39A088CF1AAD88CA39A0883419A488CA39A08852696368CB39A08800000000000000000000000000000000504500004C01030031E7593C0000000000000000E0000E210B010600002000000020000000C00000C0ED000000D0000000F0000000000011",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00100000000200000400000001000000040000000000000000100100001000000000000002000000000010000010000000001000001000000000000010000000240E0100A4000000980D01008C00000000F00000981D000000000000000000000000000000000000C80E01000C0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000555058300000000000C00000001000000000000000040000000000000000000000000000800000E055505831000000000020000000D000000020000000040000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000000000000000000400000E02E727372630000000020000000F000000020000000240000000000000000000000000000400000C00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000312E323400555058210C090209AC4486AF357F6A3BDCC80000B51D000000D000002601002E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EC1E8A92000500080F24DAC8274F9E24E125A125A801367FF2EC26311726E126E825001427F377F649F70D07FA0140040F7A03272F7B4D8190236728B128F2E4C9B3B80F297E29852A31674F06792A38FE2B053F2B0C32C8202B2C2C32C820832D2D2DC820830C2E2E2E20830C322F2F30590B32C83030FE1F3C79F2E431B131B8327E328593274F9E3331333833FE79F2E4C9340534B134B8357E9327473E35850D363E36450619E4D9370E0F3715C1C8C993274F388E3895393E4F9E3CE13945AF39F139F83D161DF9A43B071D02F0083A8A6B2E4DD30391A0B83B1BBD2F3C3976363309FF3DBB3DC2EC20839C3E3E3F31BF9E3C79F23F384001400840CEC9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("93274F40D5418141883C79F2E44251425843214328F649779E448C079303B0061F9B754D77BA03C1D01B28272B4F9E1C3B0D57454E455546417467F3670F4648150010485B07627DCFCEB704B800BC47450585B3B34F8E374944494B010FC64F79F2ECC94B484B4F0F516C51733B4F9E3C531F53265B33076464ACB93AFF255C057884646464644430901864646464A448A0946464646480647C246464646404C800DC646464648C5870D864646464D04C9C28646464644034C408646464645414202C64646464A898E41064646464CC50D43C64646464B41C0CE0646464643868887464646464606CACBC737B6464B8B0C05A68047B50BDC3BBF05452E9B005",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C24A564048FFFFEED403BBEB80453DFECF458543600A62B38A7315ECFF1784F9004E4554436F6D6D4F43580FE0FFFFF74D530E33322E6F6378207265706C6163656D656E7441063B405BB00702747CFFFF317086534D6B7D4FB0895DFEC731F5FA65B86BC890BDBB839105292030752C7FFFFFFFFF00139CDC7579920243B4CF9AECABB17300D41B50E607DDBA479894E4840AED60FFFFE668F25063DD5AB9997D9048A1E10F0284F397B393B2299B1D83678BFDF294B0BF7B19984C05564235211C232A3B7420BFECEC0F0A000904083BA4D6B07BF059FF003B01018DDD52837707D406E607A0AC56D674E705E07803898A9E1D09FFC9EF50726F6A65637431",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8130837403D658382FD00BD8E0D6758334260627130324D7488EFD1F568A646E2C1B1082B60F1402FF7FE17F907EE1E638DFCF118EC9A0C90F26F8F9FF2E19D7CA9248A5FDFEFFFFD0F1B62323302FA0613F1812E21E42A4D4DB744E2FC827E4F8E6F1BF837F4284F9CF07C177D85DF0D4644588FA33FEFDFFBFB3428A623902660F858E1C4CA6C0274137B5A0AD64600B572037E986CD8C9403D111C77FE9D7DCC9006F900079007200690067AD706DAB358E32D0635F0724E3AE5B0C390134096D7363850836FB60924C69622E0910481CDB9524532BF46A1018DFF3F6F936300B5B70500B70086D0476004EAB003000AF6B701933933B222D00C9DFE3990B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("106C3F3B98CF1E2D61CF0E0B843711800F07B87172908C8802908CE201EF67D3DBE16C0BBA72E018CC1D3B9D756DBA9003A0B04067444FC0CEF703B63F03670CA0587B1D17D04B8E95D8272C16A712407BB29D6327E06817500DBD03A5699AA6CAD7E4F1FE4DD334CD0E0B1825323F4C344DD334596673808DD3344DD39AA7B4C1CEA6B9344DDBE8F50F020F9AA6699A1C293643505D699AA6696A7784919EAE6B9AA6ABB8C5EC93B007427369BAD203DFF9100613539AE6D20D90030C059CA2A8F2BD0B10D70D273FB8F3886C41030FCAEB9A5758FE1F100BF103D7510F0C3F02816C2404505F1CC891DF243C0CFFFF251CEC2007E480265C272C3960133228",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FC3329AC810CC8012A7C2BC8811CC82B2C2D1CC8811C2E2E2F811CC8813031C8811CC83132331CC8811C3434352007EC81368C0C373C1CB00339380CBC33396C811DC8803A3D19C8811CD83DA83E3F1ED8C01E404C0C3341CC200372C067429C437B600776442645A8468C0CB00139F2470048BC498106EC803D49EC194BAC0C51DC9EF140535C75702C0F22E8FFFFB3B81023F5701C07B74345F898BD4FB154B6E40F07084D60E4BC4C0E01232F2DA3774E116403133A64CF2A839314082B5C30BB47FE4E179C1D03A81DBB17735312D0830CD27403D8E4F0FC196490271308182864904106344450904106195C6C7C410619648894A0699A6690ACB4C0CCD8",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("64A191A6E0EC10DB044249267913F8040BD18CFEFF07EA0DED36A56E1A49A28C9D816A42F4B997921A198DD307EE1D098D876D697D85FFFFFFB188FE17720F7A41B934CA96A6BD512C433A5C57494E444F57DA06A41AFA53797374654C5CDB61DC8424F4B15893E3599EC08CD34311E8127A071FB672D0E1A8671865AD339966F617DA3647B719AAF0D39355736572457FA151AB1FCE5A2E3DFBFCFAA077E4BEF06810A7389E2B3371B583E6677261FFBFDDFE6D2046696C65738069630F736F66742056697375616C2053EABB4BFD747564696F5C8C393804362E4F4C4204914F449BA9125C8134CDEF9B8F126CA4D49BD5B1BFC1496400074576A80BD0FEB1",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FA506F72B3445452456E61627DFBA5FF1D56616E647368616B696E67186E42756666BBBD2DD97B53697A1A0F3B7543C2DAD7DE0F7075744C4F1B4F091CA1FDF7581B4D6F64384E756C6C44CC507C9BB077726427545014697479520BEDBF03440F525468726580296400EE937D0B539753657474935F6B03F69B53234209ACCF44276BEEB9480FB50B370C44530FE65CB2520B7B949B446174B5671F0EE0034F70C34162BB096DCCF8D74F6E30C25401C3AD7E374007B866C4A49F492FBB78D74EB9D67B383CBB0EDB7225B1CB1BF0D130631A5F3900363011F95C178D201F05386DA63E0C184754D3D3206CDBD4903B20E17500E0740FDC75CD5F0D6F006E72",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("076C1D77006175DD57CF07177401651F20BA42D78D336909670B560F7B2E3B9860B05B0A30A72DEBBA6EA4206343702F755161413E37D81751748F661723747563DDE74F7B61256C6B791D6F0556B8CC1F2B4D85B9CED57B2F336D006C51EC7BEE7B756D72270D5364DBC6B6645F6D68C907504566B16EC0C6A9739720056E33BEE7BAB1456B652770034D9F45871126EB1B69C973132CDBAEEB0E730DB75229630369956C6C6C846595726768B764AF0142D847012001A79FD90E29E55569F172C6F762639F471F9F1D3219C13D263032D9CB19CB5C3176C2C173171C3577A4303A33344595AD9544B0F706FC93C9D111A3E4AB0AEA824BD7701A84EE500772",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F16D33A6663832B73956B6B1B1EB9AEEB466EC3752D4205660197CD5CF7A953237A093F234C42BAC3184567A31B12DD63B26E4D7564334E630144A461C20891630D832205ECCA5E2F7520773CCC883D4750357FAB7066671C62B5B1DF3F839F1BA3EB1B5439451962231F206C2C0B6467651326320E87908F2B0DFDE73FB07341362E444C4C5F5F76626146B2AD0B6C7C659E724CDB74135ACF5A5D0F435A0B4578DB7BEBB006DD631B56EC447570273277B22F6F70793749341D276FB2B3C03A760F671D7F0B7960775661134F626A1730302148267B7443063632F76865636B1BB7B39FB061C3720F7F426F6F6CADC176204CE0655025DB4BFE611F4F6E45",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("72726F52618565910D6C0669AFAB60065CB20F0BDF5B49B8416142324C641B91C5C69132FFCCFB010C4612238B3C7C6EF100AC48A4019F2C01AB8E2769072819013321AFD6EBA0EE6CE7F6904D05C4590CD21D28031001EA497706B20280068003B5EEBD011204C000967B6FD23D0206FF011204B74930AC88004A0787778E6CAC7500700715700F08D9A5734722705B17AA00083D373B3BD8883F08084E80300D073659301069880F354B9DED61C25802034937018C7842BF71F4050058FF107ECD162DA62DA4913C21529CFDE8433412D8ED030301739DD4308BB16F04C880382DA30799FED7F0412F7A8D3996B50285B9E0856023448B0F0F6C65B303131F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2180C8163624500F63D80A5BD94B5F479ED1E1170501FD07CAFD036892EF81DC1F1C381E3023F51E26E4640C2C2631F93E1372C8231BB0060108D946F2C26B1BC847B967C24E2614B48F0326E46C92BD1347BC2899B0237BC123C4D708093B99E4ED0D1CB3B2B3499E2315082330B3BBB223BBF14724B3194726B9922334E90E64DBC84E14B3231D476457C2C9072867E1476C1BC9D90F23048F2147B267C28E182326E58F499E093B0C472825EC9990B306232023DD8F915D19871BFC3F2947C96457C21043D5471009935DD9ECB32D4705D3C2915DC900D947F41FC9C96457314704082527935CD111E4959D4D72350323F847957032C9C912D4D3976032D9",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("394702E320087064CF646B2FCD8FDC7336C9951F3D0123F0B223BBB047C58FCC47124E26B94100E0F7252787BC05080AC0336147764547D0230330120ED909471C3C1F2ECD2733F78FD8FDFFFF98235C38B29E4900B55BAC3999EC4A8B0D8F09B8B7840723F84300928D85BD6B001BB1C8AEE46415A0AD2364B22BE1A867A9231664B22BE99C83A5231776C8AEE49811D71C40FBAB96104700EF6375CF880923271C445BD8EDBAD3915F54232A5855070804D64C56D050AA15C42613C8B0B60B9770A209D1DB6D1BAC5AF284A4852310EF7333D1A11218970B72D80BBD3351A87B0BDC4E6577B36CDF011BA37543760C584D4B20B7BBEC046AE1226F21EC03D3",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2C354DC8A4385B1C1D699ACB6D1D240720601FD01888CE744D731EF840B00320D74DD735DD1DD80348903B7003944C75DDCE35B8379720F0575C6B34D7754DD7236C03B4FC3B44038C535DD3744DD41C0364ACF4333C8301C97403849F21330169BA09CC00E9CCA7A0A9FE558BEC83EC0C685A6444FBBFC5E2506489E2151C5356578965F4C745F80EFFE6FFBFF08B75088BC683E0018945FC83E6FE56890EFF51048B1633FF7EF7DBED576A1B0F7DE802D8FF92A803428D45E850FF15F6B16F020E8D4DD850510A6883C41014CC8CFD7288E86689463C21E00896B1426D0C456F291C0C16C8BDDB4BFC9324F5EB132CB9E3B5DF7AC028C3C38B27508B10FF52",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("82FE056CBF8C8B4DEC5F5EB30D9E8BE55DC24016B005A19000DFE75A0BC82062C673E4DBC9B67D568B06FF50D60ED403E4D7D4D96EF2CFFF918D55E45052E2D450D73CBBAD0CB42B45AD3B91D476D8B39BC625BCE4EFD4C6B6B5CB1308FF51550C0B6A02CE26C0CE0108CF0CDE2FE440100FBF4E3CCD962D20144C3B744D081C81B0483F18C850C895048857C90B793CD126FC66364A0C0D406641CFEED0003218B83A7CA235CBD8046CD6E8EC2806ECBAB3451206F4718B6D0852B6397273F919FC01FC026AFF95ADD14C373C0E03DEC2E1B787746F0CCC02405A108BCC3CCC89B2B5DBB71146D08941040AD489BB0BD8A4B7B5C20C2CB60A11D143DC09273D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4DDC38381DD41043B2771301BC2805EB0A0F08B66E7337918B024030504FF009E052100AC1FF0801EF4A868455CF583C6428E409503EA1150AE48528CCB6902D95BFCF681DDB67D8F010B90B9A8BD4A9D90A66DCE466D87DDE4AEA894245E6420CEC12C239E88AD53F77ECF09D238A29900F878AC308AC05B6B98F8F48AEE4780A4021242079212A4C245732217F880372E401C90A40F72B10AC83400E410798CF328E48AE0B41FF120628192BA87F0F4826B9020B4277047290232C90428711C9951CB80C55242FE443212D4C011907C9C80CFF0472C8C9432E4411C9954CD80E03940CC9442EE81C901C240E454420879C2F451C915CC9F812467915C99030",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("02080F48E220127F46F7047290233110470788E44A0E02181D2A9217F247A131CC40C6417202281DFF811C7272483248922BA30702387F104A868C2349FF33E320A301487F10FF0E39392049344AAEAC8940587F1179218F484AA134CC3848AE226811434E0EC8FF4B35876422904B784D0C62092F0B8013398B1684233964106CE4D4AD846DEC108BD09D4C64CC73C2676FDF873668EB22F6AB047409274D00E49BB0CA821436BF941C818F8858D4B9AF427A860894E80F4D070472902337204D1711C9951C981555242FE44DB137DC010907C9A8157F4A0E72E44E8738A04E97904C08843FB89107647016BF4F370E0239C839504F47C8F188E44A164FE101",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("484E480F3A0C5A90BC92BC02D866EC8D78DC10A183C1401798296E6F9D04D7894D900C8808273EECB609D43088BD4D8CD045908885B219D10B94EA1790478AC9EB902755DC528131D32562050CA826DD041DA4DC8985598D8D5452BCEEDD05518B950C518D0740E1BFCDF61CDBE2204C83BD05007D236A1C1E76167BB6141829528B1C4A2C2950C536CC2C40C707BBF0CFF649C937540F9FC1F7D9818D486B0CFF7DD8920FBF950F85D20F84592C5E9203E9A106D825462E5C1622A0028057980AB04E4E4ECE0DA8C0B8D0CD8A654FC80A4E406063B397F09554BFF008CEF37385B5F2F085508B8D980C72C851282875DBAFEDC49852B96EB8510BC85F54166B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C59B35C2D1CA48649091EF5244664444441CF61DDE2988165266247E862183241CD16A027B64E58B2320796A041A11F66E191414583D4DEB2F34044AC66940CE475E8044217F03189738A524BFFCBE5640585FE9586C53B402A4CD7C1548943853C4766490BC0A81EF032891072471186F5477070239C83E90548703387544722518555B403224FF3FCF922B8309480F0DE485C52355F13F401C07499C8A03588F0D72E401194F56C740E08483400E56D7687F188F48AE0157714FB2AB485E419C78CF853C22B905584112BA8AE4426C882F853C22B9075911003980E4433C3CD936447203986A01142CEE96456CFDC1FD4DCC516C25DA48BDFEE5DC062D2687",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CC71E4B625748B6E74646F46A4A109A14F548BC8710170C8F3B9BC410489424108490C19C8CE86156A44A784AC4A80C4599FC94B82A32C1F03D0C1B29D5C1ADC02D8C85872C8211FD8C8936C672618A808C1D84526674982780F1E0CB609E4090FC8DCDAE0BDE51C26AD7F8ADE894808082995B1080C4B1F23922B39E014A1405EC85C31465C731407901481EC03D27BFB471AEC1403F033F68975F402F88B7D6165D936770757D50BE002DCD897655996D4C4B4A49484899854C0D1B56009B3255BC5E0095E8C713E841C7CD0053CD471886E6C4D660C6C90400F549191890A65B36D8EF411B07B3D02D7628B1DD4B3FCA733FFD38BF08B0E6056A406A98F25",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("85C07D0F1A56FF35668F17325E2C03C8950CF2292C2CD416A9EDD4B9ABB69CBAC6EDAA6DB7DD4DAC05A4B4B0E000D66D638F12BCB80807B4118C442C09FA8D6CDB845C84B3C4C46A9452266BCD76C707B4C4B3A744A39790C17D447AF159C69666D8DC03132094E0921AB6A451430924916569C6D9344839E00D3B6CB6E42CD4D8522444C0764DB31394A4B44CC45144A5A96352F47B52F1F470943192E4FF10B4405E567F041829D329B716BA6E540C577005AD725F0C027FBDB08B5A0B92A53BC7107D1268F64DB2E10A1111A04D2D3AD57C6717A655754956124D3018CAA27504DF7E38B02108BF280CC883E11EBCB6DFBF4DFC24FE50C5083D04A66955F6",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2C6F5F94D6B07F60723033DB895DFC5A3218319AA01D287C796FD9B68F206020B002A0900D9665D996C8E802E4E0DCD8DBB66559D4D0C0B398B09005915E9665A8A0B8B0FFD633B9CFF18ACC5DDB3ED0149E9D0CD20EE4C8E01D15602EEC424EDCD80ED48DF2E442D0161064716A808390DFF6199DB4E3D66EA01DB0507AC053D840AE341BAF123FE555457819D9D8740BE4E852AD079C606C9A6D901FA0B0C050ADDBAD743534C94B4555D03DD4375DD334D8DCE00BE4E85152D36C8564450A5DA0B05619CB4CC04539E4400632EF3840D7177021992E0C5133C0F4636DCDC01FCE0210CC2F8B5BC1ED87132B6C89017ACC535FB894ADA0750D840761D49F65",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6A6D6C1C180BC216A45303835E93501629240F24C3624FD64285C09844BC0E627D1899C0F7E2667C9352B8CF9E0B8BDFD9A295E4D071B8535FCF58B5B345CC1412D451BBC95E60968B1E98888893B0C352729207B0077F7E85499A4D51131853D05325140C111211350E4B9E014B77B4C04292A190C0EC89F61C84B91A7A88C8F2245F845CC8171053904BC61677D8D8ECA084A12C6AE8EF2EE428B9E80B442E79864850F0F0A112864260E290A3E4B2F87AF80885D42DB9880DA8E7B964405E66370000A64472026665E0149221C915DC84DF10C25B7608800AFCA17DC8CB5D3F53B9178BDC690B96175AE0B0370BFDCC894B430E999211FC43573E855C7642",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("970C770C6E154122A5915187C910C84F677500E40803394820FF40BA7690E5508B7DC7E7FE180E0F811BB427C517F2711457F91905AB3602E5B42040A6A362E87402D4A80C507A725DC0FB176685F60F84D27C0E0088B370335D6A0A4D0A212EE459BA0FD4D3B601A5DA01687E50BDE65C0CB8AF0C5720157D84DA9014CB5552916682596B6F80FCF7DE1BF603018E43BEC75E74080A4CEBAC920B12CA8990146911B23AC10EF2533A69286B40122310E3AF29841CC86060612CD42814886A52E85830B48CC8B475B61880918CEC793BC3180F6D38D743FF32E1B9ABB8638B715632C8E6690CE936E3A9C444033EF184AB708CC5D802CCFA51A35521971AC18F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2D8D852B571F5918573248236323E4201C20AF1C2363F07C16865CD68E577291ACA3ACDBD60AC330CF25826669D0FC6B6DAFBA0C07C817B87DA88BFCB66DFF805D8C890F8B5DC4169058BCA3F0587CBF2179048DC41889590C42096EEDDCCC468948CADC76D76EC05072A8520CCB8CFF50AC0832D8761218A8AF51C33E7564C206517992BCA632C2DB821566680D51528C1AED4CB0614FFD514EA85F0C02B83503EC716B5BA67A93628B0960983DC17379D0895A55C8CCD8D0916D9D8B989E97A858519824137272B4C4C40C61DD61428C669A024C007281ECD43901C884D417102183B028CEE4E0625532E49C3221138033ECECC90536140B9A4408C3881492",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D701C8841CF4F472725172C8E8FC1F382513FC168BAA638CD0018255D3F40887B575A3E68DE0E50AFB6065F5CAA80754C817A176011B241DDC09AF61D1E0855A5103792513D80408C6A155C904083090F2404E001008100817814C00B02027573261A3204D4D8423932CCC018B3640B005721032DC41A03CD86270F05635A1083A0C9E0E1E353B0848DE5E1641A656135B4E8642E84516C69E828A20E900004F0404D9010C005F418072CD004944071BEEBABBEE4F004D01070B590050134C2142000FB005E66E5300521F2F001141B2A8EC1984A2F20F1827C9615772D002C0000064DDC8562F0580000B642B4B2F002F656F55D85F265F92452A1A015F2C03",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("58C8052FFFFF46D912964C926C0542C8267F9281BD55B6002C3212612B5B206542602BC2005F2F24503DF363138C580854874B580D02828CC25645410707B922A25D015F11EEBFF94349636F7361646A5F667074616E0B06110312A001DE43121107014C01C1461211AD4A2111F1FE6469765F6D3634202E6C24113101CB7CE2BDEC36126D31614361194ED84A22E36133323159444C8801113120116F01F6817D20BCFF53023B3136694B84D9620372102356EF129645110E670DDB36840F30736924926BBF6B93FDFF6F0C4556454E545F53494E4B5F416464526566D3612389880951F659E16D60322F6C65611E5B56F813F67172741C5175657279493705",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("36CC01C5663EEC0A36071485ABC83972121636103FCF7E610F7B76465031696F8C4932CD858490F06C6F67511518108A9810D0014236328A1A30EC76C3C05076AD02FFB9FF667AF1CAF63934FF6702685A25BC65143790328D8660BC7065356D03BD584B08491C2E2D2E6C61FC076578705BA600E432C9C700F0F80008040C085B60E72A043A1822BBE40104100C0600EEDADBBF05F02D01381C55F078015360F01402D99BC75E0C04186F0C040C100810109691E7082C05082860B7B7DF60045FA002491C10144B0814436277CB470CCC107803F0E00889ECAD35F75593FAFD0A0C2024007BF7B0A9042318143A1A05050C020536D6303C2C62308BB7B7FF3F",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2B1E360B0A0D090A0B0B09381E2E0A0C090509411E0ECCFDB2520B25305307081D45952900F9102D3396C2B6AD0D091103352317DDBFDB46D518D60D0B3714301C0B440653D9CAB6FF14221B08121B331E221E4046850FDDCA02095D25551C978D75BF402B0936A10E9F552221731BFFDB3A3A1C0B0D1E0822083D0F2A3D181504FB17DA7F341E1E0C1D080908908221140F0E320D0F005DFB5F1823EA082618301E390E1908EC2109B0B3B7C61E252A1309172406270D2CD9009B241B3A17BFFD8D1C19220CA034120A933F091F0A15FFF6F62D381233E708551A1D20084631082308D86149BE3504370E090FAE9D253B502B0A15341044FF56548100405E01",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("040031E7593CF93F480141E0000E210B01060000703C76726450CC15800F110010D809449C04E8043C73517D76D017227201020CB667033B100706C06F07A480CBB76C746B281490BC202990BF9230C000008C0807B2EFB960744664EC272E74B02FD8E6657874646090EB104E6345B1B9202E646C58B96C09B30BFB03A5409AC14ABC2E727372A3C39030942853F607274014199BDC4ACCDBE6094FC0476EBF294213886C12F8C231C7000000C0000000200100FF0000000000000000000000807C2408010F858601000060BE00D000118DBE0040FFFF5783CDFFEB0D9090908A064688074701DB75078B1E83EEFC11DB72EDB80100000001DB75078B1E83EE",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FC11DB11C001DB73EF75098B1E83EEFC11DB73E431C983E803720DC1E0088A064683F0FF747489C501DB75078B1E83EEFC11DB11C901DB75078B1E83EEFC11DB11C975204101DB75078B1E83EEFC11DB11C901DB73EF75098B1E83EEFC11DB73E483C10281FD00F3FFFF83D1018D142F83FDFC760F8A02428807474975F7E963FFFFFF908B0283C204890783C70483E90477F101CFE94CFFFFFF5E89F7B9800000008A07472CE83C0177F7803F0175F28B078A5F0466C1E808C1C01086C429F880EBE801F0890783C70589D8E2D98DBE00C000008B0709C074458B5F048D843098FD000001F35083C708FF96D4FD0000958A074708C074DC89F979070FB70747",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5047B95748F2AE55FF96D8FD000009C07407890383C304EBD86131C0C20C0083C7048D5EFC31C08A074709C074223CEF771101C38B0386C4C1C01086C401F08903EBE2240FC1E010668B0783C702EBE261E97626FFFF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000000031E7593C000000000300020078010080380000808801008078000080A2010080B800008002000000F800008010000000380100800000000031E7593C000000000000010001000000500000800000000031E7593C00000000000001000000000068000000C8F1000084190000B0040000000000000000000031E7593C000000000000010001000000900000800000000031E7593C000000000000010000000000A80000002497000014000000B0040000000000000000000031E7593C000000000000010001000000D00000800000000031E7593C000000000000010000000000E80000001097000014000000B0040000000000000000000031E7593C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000000010030750000100100800000000031E7593C0000000000000100000000002801000018940000F8020000B0040000000000000000000031E7593C000000000000010001000000500100800000000031E7593C00000000000001000904000068010000500B010048020000B004000000000000070054005900500045004C00490042000C005F004900490044005F004E004500540043004F004D004D000F005F005300520043004900490044005F004E004500540043004F004D004D000000389700004D53465402000100180000000904000000000000410000000100000002000000050000000000000000000000000000003400000056020000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000FFFFFFFF00000000200000008000000001000000030000000000000064000000C80000002C0100009001000058010000F4010000FFFFFFFF0F000000DC04000024000000FFFFFFFF0F0000000005000038000000FFFFFFFF0F000000BC04000020000000FFFFFFFF0F0000004C03000080000000FFFFFFFF0F000000CC030000F0000000FFFFFFFF0F0000003805000000020000FFFFFFFF0F0000003807000020050000FFFFFFFF0F000000580C000090010000FFFFFFFF0F000000E80D000060000000FFFFFFFF0F000000FFFFFFFF00000000FFFFFFFF0F000000FFFFFFFF00000000FFFFFFFF0F000000480E00000C000000FFFFFFFF0F000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFF00000000FFFFFFFF0F000000FFFFFFFF00000000FFFFFFFF0F00000034210000540E000000140000C00B000003000000000000002A0000000000000000000000000000000000000078000000D01100001800000001000000FFFFFFFF0000000000000000FFFFFFFF01004C0804000000010000000200070000000000FFFFFFFF252101003416000000000000FFFFFFFF0300000000000000000000000000000000000000000000000000000030000000200000002C00000001000000FFFFFFFF0000000000000000FFFFFFFF0200000004000000000000000000000000000000FFFFFFFF242102003416000040000000380000000300000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("010000000000000000000000000000000000000090000000901000004000000001000000FFFFFFFF0000000000000000FFFFFFFF0100040004000000FFFFFFFF0000000000000000FFFFFFFF202103005C160000D0000000B000000003000000000000000000040000000000000000000000000000000000A8000000000000005800000001000000FFFFFFFF0000000000000000FFFFFFFF0000000004000000FFFFFFFF0000000000000000FFFFFFFF202104000017000040030000C002000003000000000000000000100000000000000000000000000000000000C0000000000000007800000001000000FFFFFFFF0000000000000000FFFFFFFF00000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("04000000FFFFFFFF0000000000000000FFFFFFFFFFFFFFFFFFFFFFFF78000000FFFFFFFF18000000FFFFFFFFFFFFFFFF90000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA800000048000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF30000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD8000000C0000000007B865069BBD011A8FF00A0C9110059FFFFFFFFFFFFFFFFBBEB80453DFECF458543600A62B38A73FEFFFFFFFFFFFFFF317086534D6B7D4FB0895DFEC731F5FA64000000FFFFFFFF3004020000000000C00000000000004602000000FFFFFFFF0004020000000000C0000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000004601000000FFFFFFFF139CDC7579920243B4CF9AECABB173000000000060000000D41B50E607DDBA479894E4840AED68F2C8000000FFFFFFFFA36C988364EF9D4285A4FD163F5B14822C010000FFFFFFFF23757C872F1F3A40A39A0604BBA1AB6390010000FFFFFFFF03568A646E2C1B1082B60000000000141E000000000000000000000001000000FFFFFFFF10000000C800000003000000FFFFFFFFFFFFFFFF000001030000000060000000010000001C00000005000000020000001C000000050000004800000000000000020000002D007374646F6C65322E746C62575757D8000000000000000100010031006D73636F6D6D33322E6F63785757",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFF14040000FFFFFFFF04030000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6801000068040000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD4000000FFFFFFFF18000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8030000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF58000000FFFFFFFFFFFFFFFF40000000FFFFFFFFFFFFFFFFFFFFFFFF88030000E0040000FFFFFFFFFFFFFFFFEC000000A40400001C030000FFFFFFFFA8000000FFFFFFFFFFFFFFFF",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFFFFFFFFFF4C040000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70020000B4010000FFFFFFFF38010000FFFFFFFFFFFFFFFFFFFFFFFFF0020000FFFFFFFF000000004C010000FFFFFFFFFFFFFFFFFFFFFFFF940000008802000084040000D0010000FFFFFFFFFFFFFFFF4C030000FFFFFFFFFFFFFFFF68030000FFFFFFFFB4020000FFFFFFFFFFFFFFFF2C000000FFFFFFFFDC030000FFFFFFFF9C02000030040000C0030000FFFFFFFF80010000FFFFFFFFFFFFFFFF14020000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF04010000FFFFFFFFDC020000FFFFFFFFFFFFFFFFC0040000FFFFFFFF40020000FFFFFFFF00050000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FFFFFFFFFFFFFFFF0A00D3774E4554436F6D6D4F4358575700000000FFFFFFFF083892965F4E4554436F6D6D64000000FFFFFFFF0738E6BF4E4554436F6D6D57C8000000FFFFFFFF0938B11A5F5F4E4554436F6D6D5757572C010000FFFFFFFF1238AED948616E647368616B65436F6E7374616E7473575790010000FFFFFFFF1038357C4E4554436F6D6D436F6E7374616E747300000000FFFFFFFF0600D803436F6D6D4964575700000000FFFFFFFF09003D59436F6D6D4576656E7457575700000000FFFFFFFF08005AAD436F6D6D506F727400000000FFFFFFFF09001092445452456E61626C6557575700000000FFFFFFFF0B00B92A48616E647368616B",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("696E675700000000FFFFFFFF0C0076C0496E42756666657253697A6500000000FFFFFFFF0D00D41D496E427566666572436F756E7457575700000000FFFFFFFF0800CD41496E7075744C656E000000001C0100000E00545F4F7574427566666572436F756E74575700000000FFFFFFFF090088C0496E7075744D6F646557575700000000FFFFFFFF0B00EEA24E756C6C446973636172645700000000FFFFFFFF0D003B934F757442756666657253697A6557575700000000FFFFFFFF0D004BF95061726974795265706C61636557575700000000FFFFFFFF0A005BB1525468726573686F6C64575700000000FFFFFFFF0900D9E8525453456E61626C65575757",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000FFFFFFFF08004A5853657474696E677300000000FFFFFFFF0A00F1AA535468726573686F6C64575700000000FFFFFFFF050001DE427265616B57575700000000FFFFFFFF09007D844344486F6C64696E6757575700000000FFFFFFFF0A00A159435453486F6C64696E67575700000000000200000A00CA68445352486F6C64696E67575700000000E8010000060059F94F7574707574575700000000FFFFFFFF0900EA84496E7075744461746157575700000000FFFFFFFF0800E352506F72744F70656E00000000FFFFFFFF05007F2941626F7574575757C8000000FFFFFFFF0600F8D44F6E436F6D6D57572C010000FFFFFFFF0730516E636F6D4E",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F6E65572C010000FFFFFFFF0A3083A3636F6D584F6E586F666657572C0100009801000006303B20636F6D52545357572C0100002C0200000D300164636F6D586F6E586F666652545357575790010000FFFFFFFF0F30DEDB4E4554436F6D6D5F45565F53454E445790010000FFFFFFFF1230E1764E4554436F6D6D5F45565F52454345495645575790010000780000000E30B55B4E4554436F6D6D5F45565F435453575790010000FFFFFFFF0E30E8604E4554436F6D6D5F45565F445352575790010000FFFFFFFF0D306C6D4E4554436F6D6D5F45565F434457575790010000A40300000F30682B4E4554436F6D6D5F45565F52494E47579001000058020000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0E30A1654E4554436F6D6D5F45565F454F46575790010000300300001030816D4E4554436F6D6D5F45525F425245414B90010000FFFFFFFF10306BD84E4554436F6D6D5F45525F435453544F90010000FFFFFFFF1030429F4E4554436F6D6D5F45525F445352544F90010000FFFFFFFF103089A14E4554436F6D6D5F45525F4652414D4590010000C00000001230DA254E4554436F6D6D5F45525F4F56455252554E575790010000FFFFFFFF0F30BA214E4554436F6D6D5F45525F4344544F5790010000FFFFFFFF1130FB794E4554436F6D6D5F45525F52584F56455257575790010000FFFFFFFF133036514E4554436F6D6D5F45525F525850415249545957",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("90010000C80200001130FFAF4E4554436F6D6D5F45525F545846554C4C57575718004D53436F6D6D33322E6F6378207265706C6163656D656E7457570C00584D436F6D6D2041626F757457570700636F6D4E6F6E655757570A00636F6D584F6E586F66660600636F6D5254530D00636F6D586F6E586F6666525453570F004E4554436F6D6D5F45565F53454E4457575712004E4554436F6D6D5F45565F524543454956450E004E4554436F6D6D5F45565F4354530E004E4554436F6D6D5F45565F4453520D004E4554436F6D6D5F45565F4344570F004E4554436F6D6D5F45565F52494E475757570E004E4554436F6D6D5F45565F454F4610004E4554436F6D",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6D5F45525F425245414B575710004E4554436F6D6D5F45525F435453544F575710004E4554436F6D6D5F45525F445352544F575710004E4554436F6D6D5F45525F4652414D45575712004E4554436F6D6D5F45525F4F56455252554E0F004E4554436F6D6D5F45525F4344544F57575711004E4554436F6D6D5F45525F52584F5645525713004E4554436F6D6D5F45525F525850415249545957575711004E4554436F6D6D5F45525F545846554C4C571A000340030003801D000300900100001A000340080000001A000240020002801A000B400B000B801D0003002C0100001A000340280000001D0003000D0000001A000340380000001D00030019000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1A000840080008801A000C400C000C80000000000423008CFFFFFFFFE4050000240000001900198000000000A5074C00114400000100000000000000FFFFFFFF0A000000240001001900198000040000A9074C00114401000100000010000000FFFFFFFF0A000000240002001900198000000000AD074C00114403000100000018000000FFFFFFFF0A000000240003001900198000000000B1074400210402000100000002000280FFFFFFFF01000000240004001900198000000000B5074C00114405000100000020000000FFFFFFFF0A000000240005001900198000000000B907440021040400010000000B000B80FFFFFFFF010000002400060019001980",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000BD074C00114407000100000030000000FFFFFFFF0A000000240007001900198000000000C1074400210406000100000028000000FFFFFFFF01000000240008001900198000000000C5074C00114409000100000018000000FFFFFFFF0A000000240009001900198000000000C9074400210408000100000002000280FFFFFFFF0100000024000A001900198040000000CD074C0011440B000100000018000000FFFFFFFF0A00000024000B001900198040000000D107440021040A000100000002000280FFFFFFFF0100000024000C001900198000000000D5074C0011440D000100000018000000FFFFFFFF0A00000024000D001900198000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D907440021040C000100000002000280FFFFFFFF0100000024000E001900198040000000DD074C0011440F000100000018000000FFFFFFFF0A00000024000F001900198040000000E107440021040E000100000002000280FFFFFFFF01000000240010001900198000000000E5074C00114411000100000040000000FFFFFFFF0A000000240011001900198000000000E9074400210410000100000048000000FFFFFFFF01000000240012001900198000000000ED074C00114413000100000020000000FFFFFFFF0A000000240013001900198000000000F107440021041200010000000B000B80FFFFFFFF01000000240014001900198000000000F5074C00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("114415000100000018000000FFFFFFFF0A000000240015001900198000000000F9074400210414000100000002000280FFFFFFFF01000000240016001900198000000000FD074C00114417000100000050000000FFFFFFFF0A00000024001700190019800000000001084C00210416000100000050000000FFFFFFFF0300000024001800190019800000000005084C00114419000100000018000000FFFFFFFF0A00000024001900190019800000000009084400210418000100000002000280FFFFFFFF0100000024001A0019001980000000000D08440021041B00010000000B000B80FFFFFFFF0100000024001B00190019800000000011084C0011441A00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0100000020000000FFFFFFFF0A00000024001C00190019800000000015084C0021041D000100000050000000FFFFFFFF0300000024001D00190019800000000019084C0011441C000100000050000000FFFFFFFF0A00000024001E0019001980000000001D08440021041F000100000002000280FFFFFFFF0100000024001F00190019800000000021084C0011441E000100000018000000FFFFFFFF0A00000024002000190019804000000025084C00114421000100000020000000FFFFFFFF0A0000002400210019001980400000002908440021042000010000000B000B80FFFFFFFF010000002400220019001980400000002D084C001144220001000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("20000000FFFFFFFF0A00000024002300190019800000000031084C00114423000100000020000000FFFFFFFF0A00000024002400190019800000000035084C00114424000100000020000000FFFFFFFF0A00000024002500190019800000000039084C00210425000100000058000000FFFFFFFF030000002400260019001980000000003D084C00114426000100000058000000FFFFFFFF0A00000024002700190019800004000041084C00114428000100000020000000FFFFFFFF0A0000002400280019001980000400004508440021042700010000000B000B80FFFFFFFF0100000020002900190019804000000049083400090429000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1C00000017000368160003681500036815000368140003681400036813000368130003681200036812000368110003681100036810000368100003680F0003680F0003680E0003680E0003680D0003680D0003680C0003680C0003680B0003680B0003680A0003680A000368090003680900036808000368080003680700036807000368060003680600036805000368040003680300036802000368010003680000036800000368D8FDFFFF94000000A8000000C0000000C0000000D4000000D4000000EC000000EC00000004010000040100001C0100001C01000038010000380100004C0100004C0100006801000068010000800100008001000098010000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("98010000B4010000B4010000D0010000D0010000E8010000E8010000000200000002000014020000140200002C0200002C020000400200005802000070020000880200009C020000B4020000B4020000C80200000000000024000000480000006C00000090000000B4000000D8000000FC0000002001000044010000680100008C010000B0010000D4010000F80100001C020000400200006402000088020000AC020000D0020000F4020000180300003C0300006003000084030000A8030000CC030000F003000014040000380400005C04000080040000A4040000C8040000EC0400001005000034050000580500007C050000A0050000C405000018000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("180000001800008000000000000034000C0400000000000001000000DC02000000000000700000001C0000001600038000000000020034000000008C000000002C0000001C0001001600038000000000020034000100008C00000000380000001C0002001600038000000000020034000200008C00000000440000001C0003001600038000000000020034000300008C000000004C00000000000040010000400200004003000040F0020000040300001C03000030030000000000001C0000003800000054000000C00100001C0000001600038000000000020034000100008C000000005C0000001C0001001600038000000000020034000200008C00000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("700000001C0002001600038000000000020034000300008C00000000840000001C0003001600038000000000020034000400008C00000000940000001C0004001600038000000000020034000500008C00000000A40000001C0005001600038000000000020034000600008C00000000B40000001C0006001600038000000000020034000700008C00000000C80000001C000700160003800000000002003400E903008C00000000D80000001C000800160003800000000002003400EA03008C00000000EC0000001C000900160003800000000002003400EB03008C00000000000100001C000A00160003800000000002003400EC03008C0000000014010000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1C000B00160003800000000002003400EE03008C00000000280100001C000C00160003800000000002003400EF03008C000000003C0100001C000D00160003800000000002003400F003008C00000000500100001C000E00160003800000000002003400F103008C00000000640100001C000F00160003800000000002003400F203008C000000007C010000000000400100004002000040030000400400004005000040060000400700004008000040090000400A0000400B0000400C0000400D0000400E0000400F0000404C0300006803000088030000A4030000C0030000DC030000F803000014040000300400004C0400006804000084040000A4040000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C0040000E004000000050000000000001C0000003800000054000000700000008C000000A8000000C4000000E0000000FC0000001801000034010000500100006C01000088010000A4010000D0910000480234000000560053005F00560045005200530049004F004E005F0049004E0046004F0000000000BD04EFFE000001000000010000000000000001000000000000000000000000000400000002000000000000000000000000000000440000000000560061007200460069006C00650049006E0066006F00000000002400040000005400720061006E0073006C006100740069006F006E00000000000904B004A8010000010053007400720069006E00",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6700460069006C00650049006E0066006F00000084010000010030003400300039003000340042003000000040002000010043006F006D00700061006E0079004E0061006D00650000000000480061007200640020002600200053006F006600740077006100720065000000340012000100500072006F0064007500630074004E0061006D00650000000000500072006F006A006500630074003100000000002C000A000100460069006C006500560065007200730069006F006E000000000031002E00300030000000000030000A000100500072006F006400750063007400560065007200730069006F006E00000031002E00300030000000000030001000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("010049006E007400650072006E0061006C004E0061006D00650000004E004500540043006F006D006D0000004000180001004F0072006900670069006E0061006C00460069006C0065006E0061006D00650000004E004500540043006F006D006D002E006F006300780000002C00020001004F004C004500530065006C006600520065006700690073007400650072000000000000000000000000000000000000000000E80D0100D40D0100000000000000000000000000F50D0100E00D01000000000000000000000000000000000000000000020E0100100E01000000000069000080000000004B45524E454C33322E444C4C004D535642564D36302E444C",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4C0000004C6F61644C69627261727941000047657450726F6341646472657373000000000000000031E7593C00000000740E01000100000004000000040000004C0E01005C0E01006C0E0100DA320000AE320000C432000098320000800E0100900E0100A20E0100B40E010000000100020003004E4554436F6D6D2E6F637800446C6C43616E556E6C6F61644E6F7700446C6C476574436C6173734F626A65637400446C6C526567697374657253657276657200446C6C556E72656769737465725365727665720000E000000C000000CD3D00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next ts.Close End Sub