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("2185C00F84C70000006A006A006800040000FF7608FF154C11C1218BC8C1E9106681F94B53752C0FB7C050FF7608FF154811C1218BE885ED741955FF151411C12185C0740E6A01556A28FF7608FF154C11C1216A10FF151C11C12133C96685C00F9CC1414151FF37FF7608E88E00000083C40C85C074158B460485C0740E8B085750FF51188BD8F7DB1BDB4385DB7534817F04040100008B2F751B55FF7608FF151811C12185C0750D6A05FF7608FF158411C121890757FF7608FF150C11C1218BD8892F33C085DB0F94C0E9ECFEFFFF6A10FFD533C96685C00F9CC1516A00F