'Drop an FLI animation file on this script and it will
'be displayed. This script will create the necessary
'web page and supporting Java class files in your %temp%
'directory, play the animation, then delete all the temp
'files after the launched IE browser window is closed.
'
'Source code for the Java classes used by this script
'has been embedded in this script in the subroutine
'CreateZipArchive.
Option Explicit
Dim fs, strFliFile
Set fs = CreateObject("Scripting.FileSystemObject")
strFliFile = WScript.Arguments(0)
On Error Resume Next
'Create all needed files
fs.CopyFile strFliFile, FileNameInTempDir(fs.GetFileName(strFliFile)), True
CreateFlicplayer FileNameInTempDir("Flic_Player.class")
CreateErr FileNameInTempDir("Err.class")
CreateScanner FileNameInTempDir("Scanner.class")
CreateMyproducer FileNameInTempDir("myProducer.class")
CreatePixellist FileNameInTempDir("Pixel_List.class")
CreateAndPlayHtmFile FileNameInTempDir("Flic_Player.htm"), strFliFile
CreateHtmFile FileNameInTempDir("Flic_Player.htm"), strFliFile
'Play the file, then wait for user to close window
PlayHtmFile FileNameInTempDir("Flic_Player.htm")
'Delete all created files
fs.DeleteFile FileNameInTempDir(fs.GetFileName(strFliFile)), True
fs.DeleteFile FileNameInTempDir("Flic_Player.class"), True
fs.DeleteFile FileNameInTempDir("Err.class"), True
fs.DeleteFile FileNameInTempDir("Scanner.class"), True
fs.DeleteFile FileNameInTempDir("myProducer.class"), True
fs.DeleteFile FileNameInTempDir("Pixel_List.class"), True
fs.DeleteFile FileNameInTempDir("Flic_Player.htm"), True
Sub CreateHtmFile(strOutFile, strFliFile)
Dim fs, ts, web, doc, blnBig
Dim strFile, strChoice
Dim intChars, dtTime
Set fs = CreateObject("Scripting.FileSystemObject")
If Instr(strOutFile, "\") = 0 Then strOutFile = Left(Wscript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) & strOutFile
Set ts = fs.CreateTextFile(strOutFile, True)
On Error Resume Next
'Write the web page
ts.WriteLine "" & fs.GetBaseName(strFliFile) & ""
ts.WriteLine ""
ts.Close
End Sub
Sub PlayHtmFile(strHtmFile)
Dim web
Set web = CreateObject("InternetExplorer.Application")
If web Is Nothing Then Exit Sub
web.Width = 370
web.Height = 260
web.Offline = False
web.AddressBar = False
web.MenuBar = False
web.StatusBar = False
web.Silent = True
web.ToolBar = False
web.Navigate strHtmFile
web.Visible = True
'Wait for the user to close the browser window.
Err.Clear
Do
Wscript.Sleep 100
If web Is Nothing Then Exit Sub
If TypeName(web) = "Object" Then Exit Sub
If Err.Number <> 0 Then Exit Sub
Loop
End Sub
Function FileNameInTempDir(strFileName) 'As String
'Returns the full path and file name to a file in the user's temporary directory
Dim fs 'As Scripting.FileSystemObject
Const TemporaryFolder = 2
Set fs = CreateObject("Scripting.FileSystemObject")
FileNameInTempDir = fs.GetAbsolutePathName(fs.BuildPath(fs.GetSpecialFolder(TemporaryFolder), strFileName))
End Function
Sub CreateErr(strOutFile)
Dim ts, x
If Instr(strOutFile, "\") = 0 Then strOutFile = Left(Wscript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) & strOutFile
Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(strOutFile, 2, True)
On Error Resume Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CAFEBABE0000002E00150A0004001109000300120700130700140100034D73670100124C6A6176612F6C616E672F537472696E673B0100063C696E69743E010003282956010004436F646501000F4C696E654E756D6265725461626C650100124C6F63616C5661726961626C655461626C65010004746869730100054C4572723B0100083C636C696E69743E01000A536F7572636546696C65010010466C69635F506C617965722E6A6176610C000700080C000500060100034572720100106A6176612F6C616E672F4F626A6563740020000300040000000100090005000600000002000000070008000100090000002F00010001000000052AB70001B10000",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0002000A00000006000100000024000B0000000C000100000005000C000D00000008000E0008000100090000001D000100000000000501B30002B100000001000A000000060001000000250001000F000000020010",x,2))) : Next
ts.Close
End Sub
Sub CreatePixellist(strOutFile)
Dim ts, x
If Instr(strOutFile, "\") = 0 Then strOutFile = Left(Wscript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) & strOutFile
Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(strOutFile, 2, True)
On Error Resume Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CAFEBABE0000002E00270A0007001B090006001C090006001D090006001E0A001F00200700210700220100046E65787401000C4C506978656C5F4C6973743B01000C636F6C6F725F76616C7565730100025B4201000A637572725F4D6F64656C0100204C6A6176612F6177742F696D6167652F496E646578436F6C6F724D6F64656C3B0100063C696E69743E010031284C506978656C5F4C6973743B4C6A6176612F6177742F696D6167652F496E646578436F6C6F724D6F64656C3B49492956010004436F646501000F4C696E654E756D6265725461626C650100124C6F63616C5661726961626C655461626C650100047468697301000B7072656465636573",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("736F720100016D01000577696474680100014901000668656967687401000A536F7572636546696C65010010466C69635F506C617965722E6A6176610C000E00230C000800090C000A000B0C000C000D0700240C0025002601000A506978656C5F4C6973740100106A6176612F6C616E672F4F626A6563740100032829560100106A6176612F6C616E672F53797374656D0100096172726179636F707901002A284C6A6176612F6C616E672F4F626A6563743B494C6A6176612F6C616E672F4F626A6563743B494929560020000600070000000300010008000900000001000A000B00000001000C000D000000010000000E000F00010010000000BA00050005",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000442AB700012A01B500022A1D150468BC08B500032CC600082A2CB500042BC600262BB40003032AB40003032AB40003BEB800052CC7000B2A2BB40004B500042B2AB50002B10000000200110000002A000A0000002D000400290009002E0013002F00170030001C0032002000370032003B003E003C0043003E00120000003400050000004400130009000000000044001400090001000000440015000D000200000044001600170003000000440018001700040001001900000002001A",x,2))) : Next
ts.Close
End Sub
Sub CreateMyproducer(strOutFile)
Dim ts, x
If Instr(strOutFile, "\") = 0 Then strOutFile = Left(Wscript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) & strOutFile
Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(strOutFile, 2, True)
On Error Resume Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CAFEBABE0000002E00460A000D002C09000C002D09000C002E09000C002F09000C00300B003100320B003100330B003100340B003100350B003100360A000C003707003807003907003A0100085069785F446174610100025B420100057769647468010001490100066865696768740100054D6F64656C01001B4C6A6176612F6177742F696D6167652F436F6C6F724D6F64656C3B0100063C696E69743E010022285B4249494C6A6176612F6177742F696D6167652F436F6C6F724D6F64656C3B2956010004436F646501000F4C696E654E756D6265725461626C650100124C6F63616C5661726961626C655461626C650100047468697301000C4C6D795072",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6F64756365723B010006706978656C730100017701000168010002636D01000B616464436F6E73756D6572010021284C6A6176612F6177742F696D6167652F496D616765436F6E73756D65723B2956010002696301001E4C6A6176612F6177742F696D6167652F496D616765436F6E73756D65723B01000A6973436F6E73756D6572010021284C6A6176612F6177742F696D6167652F496D616765436F6E73756D65723B295A01000E72656D6F7665436F6E73756D657201001D72657175657374546F70446F776E4C6566745269676874526573656E6401000F737461727450726F64756374696F6E01000A536F7572636546696C65010010466C69635F506C",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("617965722E6A6176610C0016003B0C000F00100C001100120C001300120C0014001507003C0C003D003E0C003F00400C004100420C004300440C004500420C0028002201000A6D7950726F64756365720100106A6176612F6C616E672F4F626A65637401001C6A6176612F6177742F696D6167652F496D61676550726F647563657201000328295601001C6A6176612F6177742F696D6167652F496D616765436F6E73756D657201000D73657444696D656E73696F6E73010005284949295601000D736574436F6C6F724D6F64656C01001E284C6A6176612F6177742F696D6167652F436F6C6F724D6F64656C3B295601000873657448696E74730100042849",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2956010009736574506978656C7301002628494949494C6A6176612F6177742F696D6167652F436F6C6F724D6F64656C3B5B424949295601000D696D616765436F6D706C6574650020000C000D0001000E00040002000F0010000000020011001200000002001300120000000000140015000000060000001600170001001800000078000200050000001A2AB700012A2BB500022A1CB500032A1DB500042A1904B50005B1000000020019000000120004000002B7000402B8000902BC001902BD001A0000003400050000001A001B001C00000000001A001D001000010000001A001E001200020000001A001F001200030000001A0020001500040001002100",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("22000100180000005500030002000000192B2AB400032AB40004B9000603002B2AB40005B900070200B10000000200190000000E0003000002C5000E02C6001802C7001A00000016000200000019001B001C0000000000190023002400010001002500260001001800000036000100020000000204AC000000020019000000060001000002CA001A00000016000200000002001B001C00000000000200230024000100010027002200010018000000350000000200000001B1000000020019000000060001000002CF001A00000016000200000001001B001C000000000001002300240001000100280022000100180000006C000900020000002C2B05B90008",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("02002B03032AB400032AB400042AB400052AB40002032AB40003B9000909002B06B9000A0200B1000000020019000000120004000002DB000702DF002402E3002B02E4001A0000001600020000002C001B001C00000000002C002300240001000100290022000100180000005E000300020000001E2B2AB400032AB40004B9000603002B2AB40005B9000702002A2BB6000BB1000000020019000000120004000002EC000E02ED001802EE001D02EF001A0000001600020000001E001B001C00000000001E0023002400010001002A00000002002B",x,2))) : Next
ts.Close
End Sub
Sub CreateFlicplayer(strOutFile)
Dim ts, x
If Instr(strOutFile, "\") = 0 Then strOutFile = Left(Wscript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) & strOutFile
Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(strOutFile, 2, True)
On Error Resume Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CAFEBABE0000002E00F80A00430075090042007609004200770900420078090042007908007A0A0042007B08007C0A007D007E07007F0700800A000B00750A000B00810800820A000B008309008400850700860800870700880A004200890A0013008A07008B0A0013008C0A0016008D07008E08008F0700900800910A000B00920800930700940A001F009509004200960A001F009709001F009809001F00990A0042009A09001F009B07009C090042009D09001F009E08009F0700A00900A100A20900A100A30A002B00A40A004200A50900A100A60A00A700A80A003800A909004200AA0A004200AB0A00AC00AD0A003800AE0700AF0700B00A003800B10A",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("003800B20A00B300B40700B50A00B300B60A003C00B70A003C00B80A00B300B90A00B300BA0700BB0700BC0700BD010007637572725F6E72010001490100047363616E0100094C5363616E6E65723B01000E416E696D61746F725468726561640100124C6A6176612F6C616E672F5468726561643B0100077061696E7465640100015A01000564656C6179010006496D616765730100115B4C6A6176612F6177742F496D6167653B010002696F0100063C696E69743E010003282956010004436F646501000F4C696E654E756D6265725461626C650100124C6F63616C5661726961626C655461626C650100047468697301000D4C466C69635F506C61796572",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3B010004696E6974010001650100214C6A6176612F6C616E672F4E756D626572466F726D6174457863657074696F6E3B0100204C6A6176612F6C616E672F4E756C6C506F696E746572457863657074696F6E3B01000A736F757263655F75726C01000E4C6A6176612F6E65742F55524C3B0100204C6A6176612F6E65742F4D616C666F726D656455524C457863657074696F6E3B0100154C6A6176612F696F2F494F457863657074696F6E3B01000169010002706C01000C4C506978656C5F4C6973743B01000866696C656E616D650100124C6A6176612F6C616E672F537472696E673B010007735F64656C6179010009696E5F73747265616D0100194C6A61",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("76612F696F2F44617461496E70757453747265616D3B01000372756E0100204C6A6176612F6C616E672F496E746572727570746564457863657074696F6E3B010009737461727474696D650100014A0100057374617274010006757064617465010016284C6A6176612F6177742F47726170686963733B2956010001670100134C6A6176612F6177742F47726170686963733B01000473746F700100057061696E7401000A536F7572636546696C65010010466C69635F506C617965722E6A6176610C005100520C004500460C004B004C0C004D00460C0050004C01000846494C454E414D450C00BE00BF01000544454C41590700C00C00C100C201001F6A61",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("76612F6C616E672F4E756D626572466F726D6174457863657074696F6E0100166A6176612F6C616E672F537472696E674275666665720C00C300C4010010206973206E6F742061206E756D6265720C00C500C60700C70C00C8006401001E6A6176612F6C616E672F4E756C6C506F696E746572457863657074696F6E0100176E6F20706172616D65746572202246494C454E414D452201000C6A6176612F6E65742F55524C0C00C900CA0C005100CB0100176A6176612F696F2F44617461496E70757453747265616D0C00CC00CD0C005100CE01001E6A6176612F6E65742F4D616C666F726D656455524C457863657074696F6E0100154D616C666F726D6564",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("55524C457863657074696F6E0100136A6176612F696F2F494F457863657074696F6E01000D43616E6E6F74206F70656E3A200C00C300CF0100012F0100075363616E6E65720C005100D00C004700480C00D100D20C00D300460C00D400460C00D500D60C00D7004601000E6A6176612F6177742F496D6167650C004E004F0C00D800620100196572726F7220696E2074726163696E6720746865206C69737401000A6D7950726F64756365720700D90C00DA00DB0C00DC00DD0C005100DE0C00DF00E00C00E100620700E20C00E300E40C00E500E60C0049004A0C00E700520700E80C00E900EA0C00EB00EC01001E6A6176612F6C616E672F496E7465727275",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("70746564457863657074696F6E0100106A6176612F6C616E672F5468726561640C005100ED0C006C00520700EE0C00EF00F001000D6A6176612F6177742F466F6E740C00F100F20C00F300C60C005100F40C00F500F60C00F700F401000B466C69635F506C617965720100126A6176612F6170706C65742F4170706C65740100126A6176612F6C616E672F52756E6E61626C6501000C676574506172616D65746572010026284C6A6176612F6C616E672F537472696E673B294C6A6176612F6C616E672F537472696E673B0100116A6176612F6C616E672F496E74656765720100087061727365496E74010015284C6A6176612F6C616E672F537472696E673B",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2949010006617070656E6401002C284C6A6176612F6C616E672F537472696E673B294C6A6176612F6C616E672F537472696E674275666665723B010008746F537472696E6701001428294C6A6176612F6C616E672F537472696E673B0100034572720100034D736701000B676574436F64654261736501001028294C6A6176612F6E65742F55524C3B010023284C6A6176612F6E65742F55524C3B4C6A6176612F6C616E672F537472696E673B295601000A6F70656E53747265616D01001728294C6A6176612F696F2F496E70757453747265616D3B010018284C6A6176612F696F2F496E70757453747265616D3B295601002C284C6A6176612F6C616E672F",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4F626A6563743B294C6A6176612F6C616E672F537472696E674275666665723B01001C284C6A6176612F696F2F44617461496E70757453747265616D3B29560100097363616E5F666C696301000328295A0100057769647468010006686569676874010006726573697A65010005284949295601000D6672616D655F636F756E746572010006616E63686F7201000A506978656C5F4C69737401000C636F6C6F725F76616C7565730100025B4201000A637572725F4D6F64656C0100204C6A6176612F6177742F696D6167652F496E646578436F6C6F724D6F64656C3B010022285B4249494C6A6176612F6177742F696D6167652F436F6C6F724D6F64656C3B",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("295601000B637265617465496D616765010030284C6A6176612F6177742F696D6167652F496D61676550726F64756365723B294C6A6176612F6177742F496D6167653B0100046E6578740100106A6176612F6C616E672F53797374656D01001163757272656E7454696D654D696C6C697301000328294A01000D63757272656E7454687265616401001428294C6A6176612F6C616E672F5468726561643B01000772657061696E7401000E6A6176612F6C616E672F4D6174680100036D6178010005284A4A294A010005736C656570010004284A2956010017284C6A6176612F6C616E672F52756E6E61626C653B29560100116A6176612F6177742F47726170",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6869637301000964726177496D616765010033284C6A6176612F6177742F496D6167653B49494C6A6176612F6177742F696D6167652F496D6167654F627365727665723B295A010007676574466F6E7401001128294C6A6176612F6177742F466F6E743B0100076765744E616D65010017284C6A6176612F6C616E672F537472696E673B49492956010007736574466F6E74010012284C6A6176612F6177742F466F6E743B295601000A64726177537472696E670021004200430001004400070002004500460000000200470048000000020049004A00000000004B004C00000002004D004600000002004E004F000000020050004C00000007000100510052",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0001005300000055000200010000001B2AB700012A03B500022A03B500032A1100C8B500042A04B50005B10000000200540000001600050000004C0004004D00090051000E00520015005400550000000C00010000001B00560057000000010058005200010053000002C00009000700000166014C014D013A052A1206B600074C2A1208B600074D2CC6002B2A2CB80009B50004A700203A06BB000B59B7000C2CB6000D120EB6000DB6000FB300102A03B50005A7000F3A061212B300102A03B500052BC7000D1212B300102A03B500052AB40005990058BB0013592AB600142BB700154EBB0016592DB60017B700183A05A7003B3A06121AB300102A03B500",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("05A7002C3A06BB000B59B7000C121CB6000D2AB60014B6001D121EB6000D2BB6000DB6000FB300102A03B500052AB400059900A72ABB001F591905B70020B500212A2AB40021B60022B500052AB400059900882A2AB40021B400232AB40021B40024B600252A2AB40021B40026BD0027B500282AB40021B400293A0403360615062AB40021B40026A200502AB400059900491904C7000D122AB300102A03B500052AB4002815062ABB002B591904B4002C2AB40021B400232AB40021B400241904B4002DB7002EB6002F531904B400303A04840601A7FFAAB10004001900210024000A00070041004400110065007F008200190065007F0091001B0002005400",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0000B2002C00000057000200580004005B0007005E000E005F0015006000190062002100660024006300260064003C00650041006C004400690046006A004B006B0050006D0054006E0059006F005E00710065007300720074007F007D008200760084007700890078008E007D0091007A0093007B00B5007C00BA007F00C1008000CE008100D9008200E0008300F200840100008501090086011F00870124008801290089012E008C0158008E015F008601650092005500000070000B0026001B0059005A00060046000A0059005B000600720010005C005D00030084000A0059005E0006009300270059005F0006010C00590060004600060109005C006100",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6200040000016600560057000000020164006300640001000401620065006400020007015F00660067000500010068005200010053000000B50006000400000047B8003140B800322AB40033A6003B2AB600342A03B500031F2AB40004856140091FB8003165B80035B80036A700074EA700172AB4000399FFCE2A59B400020460B50002A7FFC1B100010017002B002E0037000200540000002E000B0000009A0004009B000E009C0012009D0017009F001F00A1002B00A5002E00A3002F00A4003200AC004600AE0055000000200003002F00030059006900030000004700560057000000040043006A006B00010001006C0052000100530000005D00040001",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000232AB400059A0004B12AB40033C700162ABB0038592AB70039B500332AB40033B6003AB1000000020054000000160005000000B6000800B7000F00B8001B00B9002200BB00550000000C0001000000230056005700000001006D006E000100530000005B000500020000001F2B2AB400282AB400022AB40021B40026703203032AB6003B572A04B50003B10000000200540000000E0003000000C2001900C3001E00C400550000001600020000001F0056005700000000001F006F00700001000100710052000100530000003400020001000000062A01B50033B10000000200540000000A0002000000C9000500CA00550000000C0001000000060056",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0057000000010072006E00010053000000890006000200000041B20010C600242BBB003C592BB6003DB6003E04100AB7003FB600402BB20010100A1064B60041B12B2AB400282AB400022AB40021B40026703203032AB6003B57B10000000200540000001A0006000000D2000600D3001B00D4002600D5002700D7004000D800550000001600020000004100560057000000000041006F0070000100010073000000020074",x,2))) : Next
ts.Close
End Sub
Sub CreateScanner(strOutFile)
Dim ts, x
If Instr(strOutFile, "\") = 0 Then strOutFile = Left(Wscript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) & strOutFile
Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(strOutFile, 2, True)
On Error Resume Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CAFEBABE0000002E00FD0A004100AF030000AF1109004000B009004000B109004000B209004000B309004000B409004000B509004000B609004000B709004000B809004000B909004000BA09004000BB09004000BC09004000BD09004000BE09004000BF09004000C009004000C109004000C209004000C309004000C409004000C50A004000C60700C70800C80900C900CA0A004000CB09004000CC09004000CD0700CE0A002000AF0800CF0A002000D00A002000D10800D20A002000D30A004000D40800D509004000D60800D70A004000D80800D90800DA0A004000DB0A004000DC0A004000DD0A004000DE0800DF0800E00800E10800E20700E30A003600",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E409003600E50800E609003600E70800E803000080000700E90A003D00EA0A00EB00EC0700ED0700EE010009464C495F4D414749430100014901000D436F6E7374616E7456616C756501000D4845414445525F4C454E47544803000000800100134652414D455F4845414445525F4C454E47544803000000100100054D5F464C490100015303FFFFAF110100054D5F464C4303FFFFAF1201000D464C495F434F4C4F525F3235360300000004010009464C495F434F4C4F52030000000B010006464C495F4C43030000000C01000B464C495F574F52445F4C430300000007010009464C495F424C41434B030000000D010008464C495F4252554E030000000F01",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0008464C495F434F50590100084652414D455F494403FFFFF1FA010006616E63686F7201000C4C506978656C5F4C6973743B010005776964746801000668656967687401000D6672616D655F636F756E746572010002696F0100015A0100066275666665720100025B42010006496E5F7374720100194C6A6176612F696F2F44617461496E70757453747265616D3B0100046C6173740100076D794D6F64656C0100204C6A6176612F6177742F696D6167652F496E646578436F6C6F724D6F64656C3B0100017201000167010001620100063C696E69743E01001C284C6A6176612F696F2F44617461496E70757453747265616D3B2956010004436F64650100",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0F4C696E654E756D6265725461626C650100124C6F63616C5661726961626C655461626C65010004746869730100094C5363616E6E65723B010008665F496E5F7374720100097363616E5F666C696301000328295A010001650100154C6A6176612F696F2F494F457863657074696F6E3B0100066C656E6774680100056D6167696301000473697A65010005737065656401000A7363616E5F6672616D65010003282949010002636801000A6672616D655F73697A6501000566685F69640100066368756E6B7301000A7363616E5F6368756E6B01000328295601000763685F73697A6501000763685F7479706501000D7363616E5F464C495F4252554E0100",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("016B0100016601000142010005706978656C0100057863687078010006706B745F6E72010003707078010004706B74730100036964780100046C696E6501000A6C696E655F636F756E7401000B7363616E5F464C495F4C430100107363616E5F464C495F574F52445F4C4301000266310100026632010004796F666601000D6C6173745F7069785F666C616701000A6C6173745F706978656C01000E7363616E5F464C495F434F4C4F52010004284929560100016A010004736B6970010005636F756E7401000573686966740100097461626C655F69647801000B52656164436F6E74656E7401001F284C6A6176612F696F2F44617461496E70757453747265",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("616D3B5B4249295601000653747265616D0100056669656C6401000A62797465735F7265616401000A457863657074696F6E73010006746F5F696E74010007285B4249492949010001690100036F6666010005725F76616C01000A536F7572636546696C65010010466C69635F506C617965722E6A6176610C006E00850C004200430C004500430C004700430C0049004A0C004C004A0C004E004A0C0050004A0C0052004A0C0054004A0C0056004A0C0058004A0C005A004A0C005B004A0C005D005E0C006100430C006200630C0068005E0C006B00650C006C00650C006D00650C006600670C006400650C00A200A30100136A6176612F696F2F494F457863",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("657074696F6E01000C72656164206572726F7220310700EF0C00F000F10C00A800A90C005F00430C006000430100166A6176612F6C616E672F537472696E674275666665720100074E756D626572200C00F200F30C00F200F4010007756E6B6E6F776E0C00F500F60C007E007F01000C72656164206572726F7220320C0069006A01001D464C492F464C432073796E6368726F6E697A6174696F6E206572726F720C0084008501000C72656164206572726F72203301000C72656164206572726F7220340C009B009C0C009400850C009500850C0088008501000B6368756E6B20747970652001000820756E6B6E6F776E010023464C495F4252554E20616C74",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("686F756768206672616D655F636F756E746572203E20300100244E6F20636F6C6F72206D6F64656C20666F7220746865206669727374206672616D65203F01000A506978656C5F4C6973740C006E00F70C00F80065010022464C495F4C4320616C74686F756768206672616D655F636F756E746572203D3D20300C00F9005E010027464C495F4C435F574F524420616C74686F756768206672616D655F636F756E746572203D3D203001001E6A6176612F6177742F696D6167652F496E646578436F6C6F724D6F64656C0C006E00FA0700FB0C00FC00A90100075363616E6E65720100106A6176612F6C616E672F4F626A6563740100034572720100034D7367",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0100124C6A6176612F6C616E672F537472696E673B010006617070656E6401002C284C6A6176612F6C616E672F537472696E673B294C6A6176612F6C616E672F537472696E674275666665723B01001B2849294C6A6176612F6C616E672F537472696E674275666665723B010008746F537472696E6701001428294C6A6176612F6C616E672F537472696E673B010031284C506978656C5F4C6973743B4C6A6176612F6177742F696D6167652F496E646578436F6C6F724D6F64656C3B4949295601000C636F6C6F725F76616C7565730100046E65787401000B2849495B425B425B4229560100176A6176612F696F2F44617461496E70757453747265616D01",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0004726561640020004000410000001900120042004300010044000000020002001200450043000100440000000200460012004700430001004400000002004800120049004A0001004400000002004B0012004C004A0001004400000002004D0012004E004A0001004400000002004F00120050004A0001004400000002005100120052004A0001004400000002005300120054004A0001004400000002005500120056004A0001004400000002005700120058004A000100440000000200590012005A004A000100440000000200480012005B004A0001004400000002005C0001005D005E00000001005F0043000000010060004300000001006100430000",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00020062006300000002006400650000000200660067000000020068005E000000020069006A00000002006B006500000002006C006500000002006D00650000000A0000006E006F0001007000000116000200020000008A2AB700012A1202B500032A110080B500042A1010B500052A11AF11B500062A11AF12B500072A07B500082A100BB500092A100CB5000A2A1007B5000B2A100DB5000C2A100FB5000D2A1010B5000E2A11F1FAB5000F2A01B500102A03B500112A04B500122A01B500132A110100BC08B500142A110100BC08B500152A110100BC08B500162A2BB50017B10000000200710000005E00170000010A000400EC000A00ED001100EE0017",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00EF001E00F0002500F1002A00F2003000F3003600F4003C00F5004200F6004800F7004E00F8005500FC005A00FD005F0101006401040069010600720107007B01080084010B0089010C00720000001600020000008A0073007400000000008A007500670001000100760077000100700000019200050006000000DA2A110080BC08B500182A2AB400172AB40018110080B70019A7000C3A05121BB3001C03AC2A2AB400180703B7001D3C2A2AB400180507B7001D933D2A2AB40018051006B7001D933E2A2A2AB40018051008B7001D93B5001E2A2A2AB4001805100AB7001D93B5001F2A2AB40018051010B7001D9336041CAB0000001F00000002FFFFAF11",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000019FFFFAF120000001CA70023A70020BB002059B700211222B600231CB600241225B60023B60026B3001C03AC8401801B9E00142AB4001299000D1B2AB70027643CA7FFEE2A59B400110464B500112AB40012AC000100090018001B001A000200710000005A0016000001180009011A0018011F001B011C001D011D0022011E00240123002F0124003B0125004801260058012700680128007601290090012A0093012B0096012C00B1012D00B3012F00B6013500C1013600CB013C00D5013D00720000003E0006001D0007007800790005000000DA007300740000002F00AB007A00430001003B009F007B004A000200480092007C004A000300760064",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("007D004A00040002007E007F000100700000011C00040005000000782A1010BC08B500182A2AB400172AB400181010B70019A700113A041228B3001C2A03B5001203AC2A2AB400180703B7001D3C2A2AB400180507B7001D933D2A2AB40018051006B7001D933E2A01B500291C11F1FA9F000F122AB3001C2A03B5001203AC03360415041DA2000D2AB7002B840401A7FFF31BAC0001000800160019001A000200710000004600110000014F000801510016015600190153001B0154002001550027015A0032015B003E015C004B01610050016300570164005C016500630167006C0168007001670076016A00720000003E0006001B000C0078007900040066",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00100080004300040000007800730074000000320046008100430001003E003A0082004A0002004B002D0083004A000300020084008500010070000001B700050004000000F52A1006BC08B500182A2AB400172AB400181006B70019A7000F4E122CB3001C2A03B50012B12A2AB400180703B7001D3C2A2AB400180507B7001D933D2A1B100664BC08B500182A2AB400172AB400181B100664B70019A7000F4E122DB3001C2A03B50012B11CAA000000006D00000004000000100000004A0000006D0000006D000000590000006D0000006D0000006D0000004200000052000000670000006D000000600000006A2A05B7002EA700472A03B7002EA7003F2AB7",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("002FA700382AB70030A700312AB70031A7002AA70027A70024BB002059B700211232B600231CB600241233B60023B60026B3001C2A03B50012B1B10002000800160019001A004600560059001A0002007100000066001900000176000801780016017D0019017A001A017B001F017C0025018100300182003C0186004601880056018D0059018A005A018B005F018C0065018E00A8018F00B0019000B8019100BF019200C6019300CD019400D0019500D3019600EE019700F401990072000000340005001A000B007800790003005A000B007800790003000000F5007300740000003000C5008600430001003C00B90087004A00020002008800850001007000",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0001EE0008000B000000FC033C2AB4001F9336082AB400119E000E1234B3001C2A03B50012B12AB40029C7000E1235B3001C2A03B50012B12A2ABB003659012AB400292AB4001E2AB4001FB700375AB50010B500132A59B400110460B50011033C03360615061508A2009E1100FF2AB400181B840101337E3E15062AB4001E683D03360915091DA200792AB400181B84010133360415049B00341100FF2AB400181B840101337E91360703360A150A1504A200172AB40010B400381C840201150754840A01A7FFE8A70032150474360403360515051504A200232AB40010B400381C8402011100FF2AB400181B840101337E9154840501A7FFDC840901A7FF87",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("840601A7FF61B10000000200710000006A001A000001A3000201AB000901AD001001AE001B01B1002201B2002D01B7004A01B8005401B9005601BB006001BC006E01BD007601BE007F01BF008A01C0008F01C1009F01C200A901C300B701C200C001C700C501C800CF01C900E901C800EF01BE00F501BB00FB01CF007200000070000B00A2001B00890043000A009F0021008A008B000700C80027008C00430005008A006B008D004300040079007C008E0043000900760085008F00430002006E008D009000430003000000FC007300740000000200FA009100430001005900A3009200430006000900F30093004A0008000200940085000100700000021100",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("07000B0000011B033C033C2AB400119A000E1239B3001C2A03B50012B12AB40013BB0036592AB400132AB400292AB4001E2AB4001FB70037B5003A2A59B400110460B500112A2AB40013B4003AB500132A2AB40018051BB7001D36068401022A2AB40018051BB7001D93360784010215061507A200AE1100FF2AB400181B840101337E3E15062AB4001E683D03360915091DA200891C1100FF2AB400181B840101337E603D2AB400181B84010133360415049C003915047436041100FF2AB400181B840101337E91360803360A150A1504A200172AB40013B400381C840201150854840A01A7FFE8A7002D03360515051504A200232AB40013B400381C840201",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1100FF2AB400181B840101337E9154840501A7FFDC840901A7FF77840601A7FF51B10000000200710000006E001B000001DB000201E4000401E5000B01E6001601ED003401EE003E01F0004901F2005801F3006801F5006F01F6007D01F7008501F8008E01F9009E01FA00A901FB00AE01FC00B301FD00C301FE00CD01FF00DB01FE00E4020300EE020401080203010E01F8011401F5011A020A007200000070000B00C6001B00890043000A00C30021008A008B000800E70027008C0043000500A9006B008D004300040088008C008E0043000900850095008F00430002007D009D0090004300030000011B00730074000000020119009100430001005500C6",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("009200430006006500B60093004A000700020095008500010070000003010007000F000001A7033C03360B03360C033C2AB400119A000E123BB3001C2A03B50012B12AB40013BB0036592AB400132AB400292AB4001E2AB4001FB70037B5003A2A59B400110460B500112A2AB40013B4003AB500132A2AB40018051BB7001D93360784010203360603360515051507A2013D2A2AB40018051BB7001D9336088401021508123C7E99003515081140007E99000D15061508643606A7000F04360B15081100FF7E91360C2A2AB40018051BB7001D933608840102A7FFC915062AB4001E683D03360D150D1508A200BB1C1100FF2AB400181B840101337E603D2AB4",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00181B840101333E1D9C00541D743E1100FF2AB400181B840101337E9136091100FF2AB400181B840101337E91360A03360E150E1DA200252AB40013B400381C8402011509542AB40013B400381C840201150A54840E01A7FFDBA7004603360415041DA2003D2AB40013B400381C8402011100FF2AB400181B840101337E91542AB40013B400381C8402011100FF2AB400181B840101337E9154840401A7FFC3840D01A7FF44150B99001B2AB40013B40038150604602AB4001E680464150C5403360B840601840501A7FEC2B1000000020071000000AA002A00000217000202200005022100080223000A022400110225001C022C003A022D0044022F004F02",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("30005F023100620232006C0233007C023400840235008D023600970239009A023A00A3023D00B6024000BE024100C8024200D8024300E2024400E6024500E9024600F9024701090248011202490120024A012E02480137024E0140024F015A02510174024E017A02410180025601850257019A0258019D025A01A0023201A6025C007200000098000F010C002800890043000E00F9003E0096008B00090109002E0097008B000A013A0040008C0043000400E2009E008D0043000300C100BF008E0043000D00BE00E8008F004300020079012D0090004A0008000001A7007300740000000201A500910043000100650142009200430005006201450098004300",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("06005C014B0093004A0007000501A200990063000B0008019F009A008B000C0002009B009C000100700000018000080009000000CA0336050336062A2AB400180503B7001D933D84050203360715071CA200931100FF2AB400181505840501337E3E1100FF2AB400181505840501337E360415061D60360615049A0008110100360403360815081504A200542AB4001415061100FF2AB400181505840501337E1B7891542AB4001515061100FF2AB400181505840501337E1B7891542AB4001615068406011100FF2AB400181505840501337E1B789154840801A7FFAB840701A7FF6D2ABB003D59100815062AB400142AB400152AB40016B7003EB50029B100",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000200710000004200100000026F000302700006027200150273001E0274002D0275003D027600430277004D027800570279006F027A0087027B00A2027800A8027300AE028100C9028200720000005C000900500058009D00430008002D0081009E00430003003D0071009F0043000400180096008E00430007000000CA007300740000000000CA00A000430001001200B80090004A0002000300C7009100430005000600C400A100430006000200A200A3000200700000007B000600050000001D03360415041DA2001615042B2C15041D150464B6003F603604A7FFEAB10000000200710000001200040000028A0003028B0009028C001C028E00720000",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("003400050000001D0073007400000000001D00A4006700010000001D00A5006500020000001D007C004300030003001A00A60043000400A7000000040001001A000200A800A9000100700000009F000400060000002F03360403360515051CA200231504100878360415042B1C04641505641D60331100FF7E803604840501A7FFDD1504AC0000000200710000001A00060000029600030297000C02980013029900260297002C029B00720000003E00060006002600AA004300050000002F0073007400000000002F006D006500010000002F007A004300020000002F00AB004300030003002C00AC00430004000100AD0000000200AE",x,2))) : Next
ts.Close
End Sub
Sub SourceCode()
'This subroutine is NOT used by this script. It is included as a means of
'redistributing the source code "Flic_Player.java" which was used to compile
'the class files used by this script. To obtain the original, please see:
'http://rnvs.informatik.tu-chemnitz.de/~jan/FLI/FlicFile.html
Dim ts, x
strOutFile = Left(Wscript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) & "Flic_Player.zip"
Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(strOutFile, 2, True)
On Error Resume Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("504B030414000000080023A23530B2987885D61E00007869000010000000466C69635F506C617965722E6A617661ED5DE973DB4696FF4CFE156D546D86B428EAB0E3C98AD6A41459723423DB2A599954D6E3528164934404021C0094C464F3BFEFBBFA020FC97692DD0FCB9AC824D0C7EBD7EFF8BDD7C7EC3CFD833E3BCD9DA74F95FA7BF7281BEAA254F881DFEAB52EA671B650F5CF53F7F5EA87EDE3899E6649F5CBF67FDD25839B781E94A4A6FF980F537D1ADFCCD32AD6951ACD75A1CEB2510E4457C94D9D684BF545918F7459CE0B155DEAC124D345A6AB5FB49A67C380EAA506D67FBCB2B7BAA87492565ABD5F94959EEA282CF9873304E644A77A9467",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("076AEBF97FAADD677FDD535F3FDB537BCF5EECAEA3FA34BEE7D2B6F08BFD6FFE44AA1BEE43BFD5D52429D52849B51AE459152759A9AA895677931C1E95F9BC18E09BA15630DB8D589D9E9FED9C9E1F738D591A2F4012924CFDFDE89F475DD3E4455CC4535D817C1FD47A837F4FCFCE4FDE1EBD3939503F5C9EAB7C44BD05ADB60A9D8258DD6A95172AEE97793AAFDAAE815727E7473FA9563EAB923C8BD3F6811A42F9856A0119D3B2ADFABABAD33A53FB6A846494AE66A3A1D4705E24D958C55982A29B67AA35D4A318E4FA40EDEFEEB6FDC221971C9132EABBBCB82971ECCF1448DFCC8ED534B0D755E7793CE4DE866A1617257E5F31E29E576BBFAB4055F2",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("ACAC8AF98008940A581998C363EAF91D3DEBAA0B20C96BDC8D0EC88BE151A1E3A1DF4B30B83FE8B3D384B6B7D67F549AF48BB858A8693E9CA7BA541BCAD63ED876329DE545A57E8E6FE36E92779FE2F08287606AE069F0289ECD52787A44FFD45EDD2D978647C0C7B1EE9E81B1BE3FCED3BC78039A90AE2BF6708933FC0B5671381FE86263A1631081F9140B6DE4A28AE7F7499A201B07695C96C04651631487615CC51BD88A6CA45AEAA428D4AF8D9D1D67036235CBCB32E983C8E9A2004504A92B81AE5EB3319BF7D36400420F223650EF2B52A837E5581DAA6C9EC2D87F33CD5E24F73ABD3E4FCA4AFDAA1AA87EF8816EAA5CF5E7493A846E527C0B724B82",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4D14DB1EBCEA99BEAF4CFBC654423BAD3C03FA52B0FD59A566A094D44ADBB6D05F5468BD605AAE6FE374AECB0F1FDD006AB3AA06F3A2B8E6E93364822EE1536C9D5A4159D569B3D9F0486B79DF67851EEA01702A2F3A4BED4F3BA08E95BA4B86D584BF4E74329E546DF56BB3D1F0A9C491EA3BA2FE03150707C26591FC463252ADA97AC2EC68236B8156ACE0D1A8BE85820D37246872DAC372F1102C27BCFB4D1AF248F69A04A9DB5167231403EF3DCF11F80B10D8248D513892AA64318B0BE4F42CD1C32E58CBB8FA4B09967810CF4B8D4668ACC1F9C72972145B0EECBD2773A5FEF75C67E071402086C968A40BFC4556B6D0E54C0F2A63E296C8EA3671C08C",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("04BA7151C40BA066E10FAFEBB3B8A3763B6AE3836EAAB3713569F70C2FB27C89C9C00AA42A19C1B0595ABC97EB28C55AC096E10151CC937968381FCC5840BC934EACE6BF12E5A8C093F778667172510D371A60EF638DC7C345E9C3C69DBC226B7A740A1A757D419E315260D75827194B88D95567A82064FB60AEC1B1F57FC6098DCA419C45C22D71B7D2E87B78936183EC408942769EC7203E672C78604B1268FC68048003DEC61515B98D8B040514DDB2783DECA74B33703DC8E719140F3D36BD27756BAC78C1FA17BC21992F010FC783415E90A707629C773F63F966F5C886015D3CEC6E9C0D26390C709627C4ADDCB4BCC22E76BDCE9B62C398511EF315C8",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("82CE86A56227E74FC5E53CCBA86B3037B322B98D2B4D5688242B2B408276C942188BC73DB7EA88A9ED6ACBFC281C0AF85FA87BF5FD09FD82A74DB0A1B6E415411075448DE405FFEC5923EB004B314743500A6669369A8D7E0E4814C4650636A202353B54A3382D35911A014AD21118535635A638920145A868522B1C3103C643447CD40CFFAE034783285D5DF2CCFC173D098D98B09967B6C88797AE8E213FC95145815C269CC610A1611BC4255524375B36AD7BBACD9321BC4FC0C38041A6BE720879EE8AA41235008C3DC9872AC242AD36A910CF3A68BFB86514C00C9922BED3CCD15B7CB6028ABA9AE5B5E192AD28381B66A7A432C0990682788E12AEE745",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EA0901470E58188A6049DF4D4241CF8B3B0C63B503F5A888A10124D0A882616DE31568C359369B5740AB8EA7C0A5EB92BF19882054245848F13BB4B615F401AC245EF6D1E9202C975805ADAAC7AEB1AE6C1CD38A4CD412B5C9FA3AE684C52836913268D84D39CFB17AB11E4222A22878282F4C076720BE635D74317ED0F0C3B4099DD46AFC06A2540D26AAF5763EEDEBE294A2F393FB81A6484969440A4D322000F7BA0CD80C815B8AB425CBC19801A9583FEA7161125C56397A80BE85FEE07FB6C734BD4013A68BB0C366D05B042ED4325CFDCB72F55F1177E677556789C12B6E8A1C4F3FBB130783925C1A62116128CC411805AA68BFF319580714485FAC0E",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("88294E0504BB419D16C8C63138ECEF40C15BED8ED545168F4620B450A326D42DD764173B96A76DAE4D9320CC7F13A79889D143E87399FB3E6756969479AE4DB3DFC1D9BBCDCD1E83BD07C1412A0F408EB654307094AD1D7C6AC6BFB6BFA5B9404F22DC1157D3B25C6B93920B9E602B2CDEC880053BD9E469F1CFF5080C6BABDDC348444CB73F950C258CEE22153256C09EC92FBAE500424779988029E94333597EE7C226837EF311B5C15E4346433F3E2C03928FD454143C8BA8FA2C350361C8D053EC7D022349256186D17381EB278F0EFFBC54CB3DA9AFBE0297046FB7B6CC8C7238907A8A45E302B75D2388638B5006384804838A141112129A8C1959B223",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2C62300AC4A8762231A0233BEFC239C580B3E1B8F821F9086D0D60CE2A4D4F5AC4D5E9C284D6308C10ED736DD55833851D85152CC2162513AEC32B44D8ECDB305849B2B96EDA1188E402DA96A15C0580663A07E7D5A7E1B0EE397463450479A5CC30B9913BDD57FD22BF2B09D261E4533A701B41EC5D90CB170850E86A5E6465BD919830F108F1017492409004080C26499E3822D33C9FA9BB7C9E725E3668E436C9530432F11883B48AC20C98AE241B24803510942AAF52085F00CDB5C8ED90874A73C415483AD2029C95684D00E7153C7C93A42034A0A2A4A0605512A3DC588DC6C06DDD4D2855C840D2B640BFA04710E1106A8A309F41285901D340829DE3",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2C3481C416EB31E0794657A3341E63D25345F319C06F8DECDEDEFE9B8AA434E9651D947ACD9223A1614465AAF50CEBC3BCC394F21CA2632F8AF90CAA3B5BECBB3D68DE316BEB90E117D138C8A760B59831435D8240F2341AF6782D406950EB7A21F0F5D95F2A109B783001EA71584463ADB27097C97F135793EE34BE6FED761C59DB1BE6B0DDF6D9F19BF7DDF895151C609802548BDEF4540EA32CEE12CC23540AA0F410C3248C1FC9E4D428EE03C13798BE41CB25DAF529EC277D6E92550AE3883C4B17A03960733098029E49C8F1A3A7A78AD2F75C791273BC97CF30C537077D5B20D9242FF4C244599CF35341E5566465326281A4EE63924970B117C00618",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("98145261E57C001105A5C6D3C593A8DDB00AAA483DC5CCB3DCB64DF0B7B5D5AB9B3188D661DCE3394029284AF98DB8F24C0FBC1C401F68D0C8CC983084C61258104C0781D2C5B2B4C0E6DDC64C84EE5BECD5DA2A4E51E41660F3E071D95D6A6985F10366DC6ACC364D120469CCA9C204BB6C6A1B759A102488D594B85AAD3661D21B0B652D005B2245222A1B8521AB9F2090E0AE3C7DC037A189AAF9DD697C034C9A17A4E5856674EE4C7628F7F596C81D8A35447BBD0C9624BEDED04A570627F956AC8FB90657D9243B4AB421F3543B5D5CF6879E0D155679E2C30A314A0A0CF39CBE90D8AEF067BE724C3018D5E21543B57802E65A9D82C274BD863829E14D",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AFD0F5BA8867936400F2DE16A35D9F6ACF0978B36D671A6A5CCC6DCEC4A454FE6305F26A23DFC0AFE871010FDC1434C6DD6111DF319E119CB3A99D8F94B184FFF104377D67447906723D2E05C2DEABD4301672CB91CC11FAA72A27FBB82CDEFC7CA574D7D5048BB2E8BAA91523394385C7AC6796E6F110B3312B24D6C4ED676F2EDE5D5E1DBDBD3AF04C7F15602A03C22831DC8F0737CC4AF5E4C9135FF0ACA7A694F5A09AA349AC192D37AD284A0390A04252B98D50F64A30FD3AEBAAEF8C577135D13D08E72A8810836EC91C4997A12CB3D0F6F538C932B348E8A783EE219240F5D7B798BD03E426D0AB5123CCF730EB566D90926152D2CAE5B06B5B08A790",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C90E35618522D8D16DB0792630F0F21E6061C75D50D55398BB169A27FA32EE8EE5511BBF615A0A43657CD2FDEEDDF9AB8EDADB1534CEEAC1D929D301BEC6FF76B988B1B20CCABF549F7EB319743FD16D73D2604D6F9361908A035B344F2A93C0A28C0DBD950C5B83B9CE4DE29AFA90F3BAEA08D73E20C89CA794E742714189886CCC1AB185CCD334BFC3372D9EB776D0A24D792FE7A5D38531D6B2C00482E6A7FD0E1A7E4B0DFB091F8601247C385164B3D4E5520DC9A6F39A1796C3F08ECA2E1535F97559E8DA5C78993C753A2FD05A4C73F6985EA27D29C75E53BC7CE4D2ED41930C54788A4E0029CB035CF401CBC5915CB86635C31C273077A8EF89C94173",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A91E55DB050E6E078CE5F630BF83E89084A94B0266AA157A842B198471E959B0AA1434095110926509C2F81B6D048E060439CFBB1E9F6451D624ED7FB576D2480265BC00EC95561C9A0D0815E354F9C973287DFDE6E8F5D931A617EE8F4EF7F67AAB8A7D7F72F4EAE4F2FAFCE4EDEBABEFA1E8FE0BB5059ABABFB2F0E9E5D19B93EB7A95BD174B85CB092E98BFB9C6C59543D5A29FED7564B8C2C7F5C2CB6470611CDCF1BBF37797D7FB5FBFF02A3D7FA8BC57762D25581848818F577813253FBEBB7C751D10FFD70DA5BF3B3F3AFE87DFF4B34D852F7F781BD0F1F5C6115EFC14145E37313C8F67AF54C0EFD1DE28EE5969332EC75AABD61D048C9822419305",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("68A0CC11B92FDA07752FE5AD20B04E1BD8604B246E7DDD247642A38519314789D0EED60A5D8FEB576F82E59B912A175915DF4B30EAEAE1C683FE1C57B069A1082BA19B960D3DB23A22BB1DA44E7D55E38C529D6E492558CCB0B53CA6807ADB4D12544B67D63D076B28B58E97362A2C789D99468AADD140572C7FBBB56FDB5883460E8356DE1E06D0A58FD49A6F2BD15E396FB464E86A2D8E1FD1E21811DA27B4D97F449B7D686C6393CD86494DD7E76F74CD33C8E887BF63A2E8DA9F582FC515CE2FC358720C669DCFC001045F05274226BC7D021309E16ADEF6040AA067E1CC00B404F1BCCD6D39E58B485D78853D629D895C4E4FAA22118CAD9815E8715019",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("442CCCD636869CF900501606D5B609B71D47B4C9CBC5136F506D79B705F19FBF12ACE02549362E20B9C9A0A33015DF41D1D3435465ACC0D1E8C4EC5AE4A1E352D1BDB4D516AF1FB14A46B4F582BFFB12103820DA6AC3CB73C08F4B68F39839DDE2F9EB887E774257D736F073C3E289973727D299717B910762FD152A1EA4BEC7D47A65E69B86209C6A1C9A2012C6798DF0DC90F6BCA3148363E25EE07A6A45F7A1E8732A8A1C560F157D414519D83D50F41B2A2AB86E63D13DA69526F78156F79880F22E2136D3F0246279F70FD9FD84A114618503C589C1E0E9B1FFD4EE02F5E686D75169458BB90721E53CBBC900B8C9AA865A9E2C3B29DB87A16050705BE8",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A9ECCDE35232B7A8609C3A204725E959675E135E77343A2DFBABEE268BA6DD8320B69E769C983507C9130F41BA25FF664A70EF5DAEFE7E0E1CAC964870D5711349328010305DD0362B49BECB40FFA676793549A4DB8D9FF5BCA0A0AEC769551E2B2F28956E4569C04B887D1DE45831F125B54C32371622B174461BA0C0946188ED3691A1BB462F676A825195A4A067B7BB3259013CD8DEA649D2452C811BAD8B5091A655CC24EF6DB0CE3C58639F69EB8F1FC940AC27036878F6D523DE85548309C81AC4FD343B31FF74257582D18EDF08C71ED463CB203C08A5E5B1DD4CE7950064C971206EB4B6EDF8C0935E1FB76923B6E15E3CE3DA0C7B6D033E29218A96",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("46BA164A763CB88A7E077F5D5C9EFCF3ECE447A6CEB483716C32CE38D68282676A92CF6866168A4063A66FB5781C71389B3C16E690A624DCC05EEA08D34760F8CBAE3F93C1CC4CE20C976D25ADB2703134B6112539394B5323DC65E40B8475732C6F6861C97A91631B4DAE936147267C8D4F63A1F96CCFB622C07ABC7F5B51F9F3BDDCFED22E0C3351BBABBC1D4E138DC9314E1D3EE0EA889F8F7075B407201EE32888F50F7B3C5E7C1309E24A42EF2965AF198F85FB43313B9D0B8EEED29EDACC29480B35A4CD4DC4B3990624A522C1DFBCC4420238F453396482A58C8D809AB23B8686FEE4D04662E21207133DB8514F6AD362027F8861069322CF925F38BF",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4A33F5C03CE15622BBD5004480F61AC0BF2F8D1CC3BF5B5BD2BD1566B6621C7EF0FE8E6B7AD4B202653CAAAF27EBACAD5435D616AD2C3DEAAA577A060E91B23B99D7B151EB6A016664C419239BBBA31DCC94A9B53A5DD36ACE747B3D5BB51E4C6A3A0D0FB093256D663AD6EBB17A40915F3C5E6D5F7CBE923E5B37F91B55549800751AABB493955318B351D59EB797F8E68093D9F4FB08661982B695C7B6C6437CF36A7D3E079F6FE6A003AEC20F5194A11E54B8299AC5045F340D64B536E38045D0D990FD76AF066F0307BC547E776579C4C3B6E0F9312DFCAD2826D0C02B2B4FD655401CE295C69F587455494404072B8772F1D34360DD718C00BB1133DCD8",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1862F6B553B2CECA38AA8DA1B10934CE0D438D5270D55097DB0D831D8AA4AF2D1A152006489CBE30E2B027272CBE28E7FD6182EB0A08FA41CA0DB88B07371A5781CEC49CC92A51987E86AF9892A38E246741C8B7E28DF51625960261CCA6741770E32FDB222EFF27B73AE3837D9243C0A5B4128F26C986806AA2437ED078A81E2FE976D5BBCA5BC6B384C8293A8471A33849CDEEF63506D74D82B5B9C9F05E993DEBF968848E16F01C91C0AA2CE566B3FB5A1983E8E9ED4D55F2B677E3D785D78ACECEA549664ADE0F26D292D9BBE171DAB4864FA80CBF93C042DE62634103D23A65A346B29F3C475BA7290A88831E9AC6B7602D0E593C2BCAE1B5030241DA13",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("42343130B8FE1BF7F35BBD0A0CF024C62908FF7C3C514B6D443DB5C125D04916034B82BD0C591EA0A26FBFFDB6D6F7DBB000E20A8A47095431F4FD7673E73BE1F606AE694E8649F81C1CA9283981C22953974E06D7E132AA2D1C43C7E4433B616A99A1A6CF22DE4463C41287D8148C8433C60889BEBDF4A6901F6D995D98288E38ABBBF7A391FACAA490A1CDADAD8FBCC809E20C05A89DA74C113DB6580C5A30A739CCF7972CE5F2D3F6D5208926D40B15DB6167622C614EB9D4DF0E3D19921D1B763D920438A282116D30A3CDB74014B68D2FDB9B46E4117FC374DF00C9AC6EEAC691DB68F03C055B3B3F003FA025148C9E6C6FE78DA5FC178C9D66AA438A0D",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B114FEB109F6CC26B7C3033F54DB4C8A472A976516D3574B2EFD7C14C90A6896320DE6D1461679830A769CAEF657E88ED15B0DF231A07A5D9AB527B28EBC6A4851B389DFC528636E8883E105BA32F660C8B8471FC633E6DD643B689785B72DA1BC496658AD35CF24B4698BD7A8ED87B00DD1943111924D899CF644A408A5E74DD10DDE6A007AA42130B1D6E1AC73B1C6DE0320033C668AB555994FF1AA0221B3E640CD6121A06BEAB9AE354ED2E7BE97B358E920D51778489CF607FCE317B9461AC0E3FDE3977BC6BAC30B23709A7BF4983C47AA157BE2D64F44DC667254C9F7B2C5262FEB59F065577A78F8485F0AF3BDC69362139FE4CDE880E703CE8C2AB5",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("AE2801210757C052D189DC32D09E9AC2724573740EFD61D4369ED19C2CAD79457CF5A95EB1697DAD6D98E69277515187A8AF8AD71DEC67393684C981E801A768EB50E1E27963251C7A4C45EB9EFF8FB9656C6A6B6D6724796845D912510DE3A91EE1C75F6E70E31C15ACF0E3AB3DE1EFECDC4930D6B9762EB3ECD9CDF2C7A779F64F75E26B48FB1D5C7863BD0FB771F5922337E979E7CD8DCFF09CFAB1E7CD4BED31C25B0B700BDBCEA39BA66A76C2787424358C306B0E19CD8F1ECCE90217832BD850D3B634BBA6C533C68B53B1F5BB204CAB2042C36F6805112EE6C410309FD3012CCEECD723E6CCF26A38F4965BC4AFE3A92352E22A483AC9C6AED275129B",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6668441076CB562E1187CD582098C08700C117E0012B42BF1F28F85DBC3C71387CB780EE7A469B0B1DA75F04056CF9F5E1BD99E9A641067B1D35DAEFA93A3CD8AFDB0FB38B018DC235BCBBA69342D695EFD006E89877E3C8AD3DDC826CD2FBD6F4681A3056086ADAA5A515F53F0B9AAC46262418FF0F4F2C3C69AE40270D874EBE0063A0589B19FB9C5400A1A14F0235B238DFA2EA5FA9DDFB6F7677412C9EB070900B42D171EF9FFBEF255DC34A625494D6D0BBDD2EBB311AD2F621630D463050095E2F2B239A72E7F48CCBA6B515AEB251DEA9B7BA96D9A30DBC73EA49588A54C980123BC2D1485C30932146C61FA3782386079FC9783E38C6389078F43BE1",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C0FF0520B82FE8E9D15070EFB15870FF4F048D7BBD4714DADF082D0D037C48217CF2E8FCD391E41F03484938027D6BDB033D151D428B373A283917BE4C5B8BD4614BEDB58D4EA86DB5F751CC2DEB6DCFD65DF6A996406C070CB6F3FCEC6A3212CE075262BCF68522554E9251B58CAA79430B27A34A0B5DEF34C0ADD82B417B5AECC20F8CA0AA2C7CF381778788A3234CA62D49B6395C6E178D64ADC8DB6343D928EC8A1F31270D149CC6F7C934368B480ECF27E5013DBA7CFD5D78D2C3231DA1F2371650F7130170607FAAF535A9D60BAF74D73FD5E9450C35469A9D6811F13CDA06F8636C8B2CE1E2A9081A87A1C8CD15ED8D706B4A2D3A094587B8DA6B9378",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("B8A40585A52D2F9BF7F8EBC4EC1C742D97AE50FAF1CC1E2EB8494A896E1792A0A5ABDE2799A021BA7B0C4C6711755434969DB5FD28D8D464D0FA38CDFB71EA6DC74D561EBA6590755713026C284EEFB033BC4CAFE2610D6858C25C3A45CBBB2034860B6E38463FDC855C4BBBBBED3E14A9B92EC8A82B16D93A1F7DAF82DF4D46FDC8CC5A01913E871EB01CE3A39505290DC9AD366B31CE8620874E695DFBD1106FED4E3237FFE8CF4DE2672D10D8ADC180CF70F4E4C40F9558EAD60A534D63DE58C28D070821AE1A832EA895E09D41B0A05834E65F34443AACC3681AE8FCA437849F99FA9F71530F03D49FB7822D3DCE5A90F52E3E3832D015594FBFDA0BA997",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2F4564D8F88FBFAC7ADF5567DFFE49D53923D32499E1550B1CA1B9C9C4338BAC28CB07B3E8560C5226BED9CFDBA18537BE84672C5ADF749C08761488D2B8A3FA48C90A17E66D56514BA70CF89F0E2FC18D129D0E3F7CE4DB2571134BDBD91DDEBA302AF2A98AB852C4A613C717514DDC2A5125A0F958D5CFA0D164E7059D52846FD2626DBF3F7DD6ED9AFA92310033E5E6067FFFCDAFA2C944E575C1A78829CE9208C87BF1921B6275F39E83AE70DF5DFCD9A2AE3B5E8B7CDA00C08A7B64B604C93C99E3C07801321D21C6E0896FC2626704BFE759998C3334E68B1909904D19D104FBFB4DF1187E44F6490CCD82CFA93037789F067F07BBD68E823DAF784380",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EC885EC81A1FCF79C4F522F51D4F68857E2B212646D04C2442D1675FE536C9810F2AF1EA17724B781ED1B54474E128C75AB0893934F2B4BE0DF65123B1B34998310898C9A2B321C2AB8CE49C887771115779F9F2507DD373BFFFFB107A335BD1D51EFC97000285BE3E4A4828F368361C52AD5E70EA97E634479B516216887C7D9202E324D354E0FD4376830FDDFFFC8853B47BDDE0E6221CDEF295B0BDA56AFB61B533FF266163780A57AFD1D8745816AD0B6F91B0B731D08103737A99C0BEBDBE154FE5FD7B9E143C6C3C544D6949BFC12019EB9F36083728455819C27E777CBC7436886F42F15B655005808F315A90F095AD4BCB7618ED15EDF7728D96CA6F",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9501185BEAE5AB3B4BBC7D7B68F8E20F85EF2B2D05328687B9533A1BEE2EA08ACCD1DCF02654B20B23BCB22B0A26102096DFDC91DD33662638F16F4CE5A6CBF96C969AEC599891CF20A498922EFBAD52F25B1A1EC8F5D26B52E9C0C7E456CB896283296936C361EB822E51F4D9CFC419DC2F13E14DB0ED5ACE27D7C45260B62B6E59404D423898F3C8792B7E70DFAE19B6BD35464E3CBB69F1E723D4A05F6B67372F20064537F5E1A3BD33334C03FB262E4831DAF2C3043AC29B78E06FB3E19DAF5472BCD2140C8F13EEF011193F4DCAC757F0FF48417BB78085FCA18A9C135B16098E452D41467B9A8CA7BD4331CD8677891A3182934BC66EDF8995EA286F3C",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("83295B62C33330D65C8B02F5B7E684632C17585076FC26E1F34A4D010D986B11BF8923457F89D3143DA13BBB4AAFD8D2057B559D5B23BF5197188EFC74B3CF1DCC6B7256E250DDF5CC0504870ABC8C817083A981663BE0F2AD88B20D354484F20D7A33865ED1792455A9D311550E54C1CC5D975E990B3EFC0B3D26B40B33C9E4EA38895683896C9A7C666D22FDAB3DE2E1D05C28CF9EC3FC528A4ECDA1F31DE0ED1CAF4CCB656B396FCE453C104B7F0D68AD9DF14CCA877A14C76B13BAC3F974BA08DAE23BE4F434BFD50F3516D6171DF2139AFE2EFF389DE625C6892061096EF95F744D9D85770C00ADFF8A7985291C73C6B4E916BACC26F89072F07C657595",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CF5E81153CD7A3EA127979A94B9D0D570F844772A5C5E5D57B36AAEFFAE40AF6043DFB8421233A4CADD07E529267BC20071F37659BE90C5FF5F3AACAA714AFF0EC7E0F2A5886B475AFDE5DBC7AF7E3DBF393D3ABCBB3D7DF5FD9DDF9EFF1D061E89EED61006E8EB4AF6CF1C52AB593F9B23E63AC862B62DBDFC80700D6E60407A58878B24DDF098F00CD7DA56BE3797F757475767CF6E6E8F5C9AB776F4FDABD40686CE210AFBF625B8850B9365F305DFE1568FD8555C31AAD108227DEBDE7B6044BDC29682CAE9617A8EC9CFCA92B7B707E1DAA18E4638D40A95A676A9823804377CB972EB19DC57554701DE0814C60D0AE9B860787A9BEDC3C34366B027422",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C0FB7F00504B0102140014000000080023A23530B2987885D61E000078690000100000000000000001002000000000000000466C69635F506C617965722E6A617661504B050600000000010001003E000000041F00000000",x,2))) : Next
ts.Close
End Sub