Advertisement
UEZ

Rotating Cube with textures build.bas

UEZ
Feb 21st, 2019
1,327
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Rotating cube with texture coded by UEZ build 2019-02-22
  2. 'Original trapezoid transformation code by Ben321
  3. 'Runs "fastest" as x64 with -gen gcc -Wc -Ofast -fpmode FAST -fpu SSE
  4.  
  5. #Include "fbgfx.bi"
  6. #include "file.bi"
  7.  
  8. Using FB
  9.  
  10. #Define Round(x) ((x * 100 + 0.5) / 100 Shr 0) '2 decimal places 10^2 = 100
  11. #Define PixelSet(_x, _y, colour)    *CPtr(Ulong ptr, imgData_d + (_y) * pitch_d + (_x) Shl 2) = (colour)
  12. #Define _Red(_colors)   (((_colors) Shr 16) And 255)
  13. #Define _Green(_colors) (((_colors) Shr 8) And 255)
  14. #Define _Blue(_colors)  ((_colors) And 255)
  15.    
  16. Dim Shared As Integer pitch_s, pitch_d
  17. Dim Shared As Image Ptr Img_Dest
  18. Dim Shared As Any Ptr imgData_d
  19.  
  20. Type tImgInfo
  21.     As Image Ptr img
  22.     As Integer pitch
  23.     As Any Ptr imgdata
  24. End Type
  25.  
  26. Dim Shared As tImgInfo ImgInfo(5)
  27.  
  28. Const fRad = Acos(-1) / 180, scrw = 800, scrh = 600, img_w = 500, img_h = 333, iCenterX = scrw \ 2, iCenterY = scrh \ 2, iMouseSense = 100,_
  29.       iPersp_correction = 1900, fCube_Size = 150, fMin_brightness = fCube_Size
  30.  
  31. Type DPOINT
  32.     As Single x, y, z
  33. End Type
  34.  
  35. Declare Sub Calculate(fAngleX As Single, fAngleY As Single, iPos As Ubyte)
  36. Declare Sub DrawCube(p1 As Ubyte, p2 As Ubyte, p3 As Ubyte, p4 As Ubyte, img As Ubyte)
  37. Declare Function Transform(x As Short, y As Short, ImgWidth As Ushort, ImgHeight As Ushort, Points() As DPOINT) As DPOINT
  38. Declare Sub Trapezoid(aPoints() As DPOINT, ww As Ushort, hh As Ushort, img As Ubyte, fBrightness As Single)
  39. Declare Function Base91Decode(sString As String, Byref iBase91Len As Ulong) As Ubyte Ptr
  40. Declare Function _WinAPI_LZNTDecompress(aBinary As Ubyte Ptr, iFileSize As Ulong, iCompressedSize As Ulong) As Ubyte Ptr
  41. Declare Sub CreateFile(sFilename as String, sBase91 as String, iLines As Ulong, bCompressed As Ulong, iFileSize As Ulong, iCompressedSize As Ulong)
  42. Declare Sub ExtractDe()
  43. Declare Sub ExtractGb()
  44. Declare Sub ExtractGr()
  45. Declare Sub ExtractJa()
  46. Declare Sub ExtractTr()
  47. Declare Sub ExtractUs()
  48.  
  49.  
  50. Screenres (scrw, scrh, 32, 2, GFX_ALPHA_PRIMITIVES Or GFX_HIGH_PRIORITY Or GFX_NO_SWITCH)
  51. Screenset 1, 0
  52.  
  53. Windowtitle "Rotating CUbe with textures coded by UEZ"
  54.  
  55. Dim as String aFiles(5) = {"De.bmp", "Tr.bmp", "Gb.bmp", "Us.bmp", "Gr.bmp", "Ja.bmp"}
  56. For i As Ubyte = 0 To 5
  57.     ImgInfo(i).img = Imagecreate(img_w, img_h, 32)
  58.     If FileExists(CurDir & "\" & aFiles(i)) = 0 Then
  59.        select case i
  60.            case 0
  61.                ExtractDe()
  62.            Case 1
  63.                ExtractTr()
  64.            Case 2
  65.                ExtractGb()
  66.            Case 3
  67.                ExtractUs()
  68.            Case 4
  69.                ExtractGr()
  70.            Case 5
  71.                ExtractJa()
  72.        end select
  73.    end if
  74.    Bload(aFiles(i), ImgInfo(i).img)
  75. Next
  76. Img_Dest = Imagecreate(scrw, scrh, 32)
  77.  
  78.  
  79. Imageinfo(ImgInfo(0).img, , , , ImgInfo(0).pitch, ImgInfo(0).imgdata)
  80. Imageinfo(ImgInfo(1).img, , , , ImgInfo(1).pitch, ImgInfo(1).imgdata)
  81. Imageinfo(ImgInfo(2).img, , , , ImgInfo(2).pitch, ImgInfo(2).imgdata)
  82. Imageinfo(ImgInfo(3).img, , , , ImgInfo(3).pitch, ImgInfo(3).imgdata)
  83. Imageinfo(ImgInfo(4).img, , , , ImgInfo(4).pitch, ImgInfo(4).imgdata)
  84. Imageinfo(ImgInfo(5).img, , , , ImgInfo(5).pitch, ImgInfo(5).imgdata)
  85. Imageinfo(Img_Dest, , , , pitch_d, imgData_d)
  86.  
  87.  
  88.  
  89. '       0 -- - - - 1
  90. '     / |        / |
  91. '    4 - -  - - 5  |
  92. '    |  |       |  |
  93. '    |  3 -- - -|- 2
  94. '    | /        | /
  95. '    7 - -  - - 6
  96.  
  97. Dim Shared As DPOINT aCoords(0 To 7), aTrapezoid(0 To 3)
  98.  
  99. aCoords(0).x = -fCube_Size : aCoords(0).y = -fCube_Size : aCoords(0).z = -fCube_Size
  100. aCoords(1).x =  fCube_Size : aCoords(1).y = -fCube_Size : aCoords(1).z = -fCube_Size
  101. aCoords(2).x =  fCube_Size : aCoords(2).y =  fCube_Size : aCoords(2).z = -fCube_Size
  102. aCoords(3).x = -fCube_Size : aCoords(3).y =  fCube_Size : aCoords(3).z = -fCube_Size
  103. aCoords(4).x = -fCube_Size : aCoords(4).y = -fCube_Size : aCoords(4).z =  fCube_Size
  104. aCoords(5).x =  fCube_Size : aCoords(5).y = -fCube_Size : aCoords(5).z =  fCube_Size
  105. aCoords(6).x =  fCube_Size : aCoords(6).y =  fCube_Size : aCoords(6).z =  fCube_Size
  106. aCoords(7).x = -fCube_Size : aCoords(7).y =  fCube_Size : aCoords(7).z =  fCube_Size
  107.  
  108. Dim As Integer mx, my, mb
  109.  
  110. SetMouse iCenterX, iCenterY
  111.  
  112. Dim As Ushort iFPS = 0, iFPS_current = 0
  113. Dim As Double fTimer = Timer
  114.  
  115. Do
  116.     Line Img_Dest, (0, 0) - (scrw, scrh), Rgb(64, 64, 64), BF
  117.    
  118.     Getmouse mx, my
  119.    
  120.     For j As Ubyte = 0 To 7
  121.         Calculate(-(-iCenterY + my) / iMouseSense * fRad, (-iCenterX + mx) / iMouseSense * fRad, j)
  122.     Next
  123.    
  124.     DrawCube(7, 6, 4, 5, 0) 'front
  125.     DrawCube(1, 2, 0, 3, 1) 'back
  126.     DrawCube(0, 3, 4, 7, 2) 'left
  127.     DrawCube(6, 2, 5, 1, 3) 'right
  128.     DrawCube(5, 1, 4, 0, 4) 'top
  129.     DrawCube(3, 2, 7, 6, 5) 'bottom
  130.    
  131.     Put (0, 0), Img_Dest, PSet
  132.     Draw String(1, 1), iFPS_current & " fps", Rgb(&hF0, &h00, &h00)
  133.     Flip
  134.  
  135.     If Timer - fTimer > 0.99 Then
  136.         iFPS_current = iFPS
  137.         iFPS = 0
  138.         fTimer = Timer
  139.     Else
  140.         iFPS += 1
  141.     Endif
  142.    
  143.     Sleep (1, 1)
  144. Loop Until Inkey = Chr(27)
  145.  
  146. For i As Ubyte = 0 To 5
  147.     Imagedestroy(ImgInfo(i).img)
  148. Next
  149. Imagedestroy(Img_Dest)
  150.  
  151.  
  152. Sub Calculate(fAngleX As Single, fAngleY As Single, iPos As Ubyte)
  153.     Dim As Single py, pz
  154.     py = aCoords(iPos).y
  155.     pz = -aCoords(iPos).x * Sin(fAngleY) + aCoords(iPos).z * Cos(fAngleY)
  156.     aCoords(iPos).x = aCoords(iPos).x * Cos(fAngleY) + aCoords(iPos).z * Sin(fAngleY)
  157.     aCoords(iPos).y = py * Cos(fAngleX) - pz * Sin(fAngleX)
  158.     aCoords(iPos).z = py * Sin(fAngleX) + pz * Cos(fAngleX)
  159. End Sub
  160.  
  161. Sub DrawCube(p1 As Ubyte, p2 As Ubyte, p3 As Ubyte, p4 As Ubyte, img As Ubyte)
  162.     Dim As Single k1, k2, k3, k4, x1, y1, x2, y2, x3, y3, x4, y4, z1, z2, z3, cor
  163.    
  164.     cor = (1 + aCoords(p1).z / iPersp_correction)
  165.     x1 = aCoords(p1).x * cor
  166.     y1 = aCoords(p1).y * cor
  167.     z1 = aCoords(p1).z
  168.    
  169.     cor = (1 + aCoords(p2).z / iPersp_correction)
  170.     x2 = aCoords(p2).x * cor
  171.     y2 = aCoords(p2).y * cor
  172.     z2 = aCoords(p2).z
  173.    
  174.     cor = (1 + aCoords(p3).z / iPersp_correction)
  175.     x3 = aCoords(p3).x * cor
  176.     y3 = aCoords(p3).y * cor
  177.     z3 = aCoords(p3).z
  178.    
  179.     cor = (1 + aCoords(p4).z / iPersp_correction)
  180.     x4 = aCoords(p4).x * cor
  181.     y4 = aCoords(p4).y * cor
  182.  
  183.     k1 = x1 - x2
  184.     k2 = y3 - y2
  185.     k3 = y1 - y2
  186.     k4 = x3 - x2   
  187.    
  188.     If (k1 * k2 - k3 * k4) > 0.0 Then
  189.         aTrapezoid(0).x = iCenterX + x1: aTrapezoid(0).y = iCenterY + y1
  190.         aTrapezoid(1).x = iCenterX + x2: aTrapezoid(1).y = iCenterY + y2
  191.         aTrapezoid(2).x = iCenterX + x3: aTrapezoid(2).y = iCenterY + y3
  192.         aTrapezoid(3).x = iCenterX + x4: aTrapezoid(3).y = iCenterY + y4   
  193.         Trapezoid(aTrapezoid(), img_w, img_h, img, ((aCoords(p1).z + aCoords(p2).z + aCoords(p3).z + aCoords(p4).z) / 4) / fMin_brightness)
  194.        
  195.         Line Img_Dest, (aTrapezoid(0).x, aTrapezoid(0).y) - (aTrapezoid(1).x, aTrapezoid(1).y), Rgb(0, 0, 0)
  196.         Line Img_Dest, (aTrapezoid(1).x, aTrapezoid(1).y) - (aTrapezoid(3).x, aTrapezoid(3).y), Rgb(0, 0, 0)
  197.         Line Img_Dest, (aTrapezoid(3).x, aTrapezoid(3).y) - (aTrapezoid(2).x, aTrapezoid(2).y), Rgb(0, 0, 0)
  198.         Line Img_Dest, (aTrapezoid(2).x, aTrapezoid(2).y) - (aTrapezoid(0).x, aTrapezoid(0).y), Rgb(0, 0, 0)
  199.     Endif
  200. End Sub
  201.  
  202. Function Transform(x As Short, y As Short, ImgWidth As Ushort, ImgHeight As Ushort, Points() As DPOINT) As DPOINT
  203.     Dim As Ushort ww = (ImgWidth - 1), hh = (ImgHeight - 1)
  204.     Dim As Single a, b, c, d = img_w * hh
  205.     Dim As DPOINT Result
  206.     'x
  207.     b = (Points(1).x - Points(0).x) / ww
  208.     c = (Points(2).x - Points(0).x) / hh
  209.     a = (Points(3).x - hh * c - Points(0).x - ww * b) / d
  210.     Result.x = x * (y * a + b) + y * c + Points(0).x
  211.     'y
  212.     b = (Points(2).y - Points(0).y) / hh
  213.     c = (Points(1).y - Points(0).y) / ww
  214.     a = (Points(3).y - hh * b - ww * c - Points(0).y) / d
  215.     Result.y =  y * (x * a + b) + x * c + Points(0).y
  216.     Return Result
  217. End Function
  218.  
  219. Sub Trapezoid(aPoints() As DPOINT, ww As Ushort, hh As Ushort, img As Ubyte, fBrightness As Single)
  220.     Dim As Ushort xx, yy
  221.     Dim As DPOINT Points
  222.     Dim As Ulong iCol, iCol2
  223.     For y As Ushort = 0 To hh - 1
  224.         For x As Ushort = 0 To ww - 1
  225.             Points = Transform(x, y, ww, hh, aPoints())
  226.             Points.x = Iif(Points.x < 1, 1, Iif(Points.x > scrw - 1, scrw - 1, Points.x))
  227.             Points.y = Iif(Points.y < 1, 1, Iif(Points.y > scrh - 1, scrh - 1, Points.y))
  228.             xx = Round(Points.x)
  229.             yy = Round(Points.y)
  230.             iCol = *Cptr(Ulong ptr, ImgInfo(img).imgdata + y * ImgInfo(img).pitch + x Shl 2)
  231.            iCol2 = Rgb(_Red(iCol) * fBrightness, _Green(iCol) * fBrightness, _Blue(iCol) * fBrightness)
  232.            If scrw > ww Or scrh > hh then
  233.                PixelSet(xx - 1, yy - 1, iCol2)
  234.                PixelSet(xx, yy - 1, iCol2)
  235.                PixelSet(xx + 1, yy - 1, iCol2)
  236.                PixelSet(xx - 1, yy, iCol2)
  237.                PixelSet(xx, yy, iCol2)
  238.                PixelSet(xx + 1, yy, iCol2)
  239.                PixelSet(xx - 1, yy + 1, iCol2)
  240.                PixelSet(xx, yy + 1, iCol2)
  241.                PixelSet(xx + 1, yy + 1, iCol2)
  242.            Else
  243.                PixelSet(xx, yy, iCol2)
  244.            End If
  245.         Next x
  246.     Next y 
  247. End Sub
  248.  
  249. 'Generated by FB File2Bas Code Generator v0.80 build 2019-01-05 beta by UEZ
  250.  
  251. __Grbmp:
  252. Data 9,1,84034,6450,"Base91"
  253. Data "/x#ye2quUA$A[9uH*h@AUE9A/lCAjACAfLgg}KFAqi/TuWUE/F~FAA/C:yQAB´tWd~,>`K4}tOL´kBSWh´`e_A<s|;=K9~mfw(#A8~1(dGQAmWwwvB<s{c.>fAGx/>*upBmW<sTE<sc%#W>~U|4Fcsk_EtfAjBHL3r+>F´At+>F´PA!A&C/Vk_CtPAA´CtPA!A&C/Vk_CtPA!A`~HAfAhB]KT|v(HAfAhB9~fAhB]KT|v(DAPA8A6C4}#A6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdByKk_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeAF/DAPA8A6CJVY4C´w(KAd~X@ZeeAjM2WdFSqv(DAPA~~D´HAeAdByKk_BtHAeAD?DAKAlBC´5.8A=~HAeAdByKk_BtHAeAdB/VeAdByKk_C´CA6ABtJCMrv(DAPA8A6CJV+>4FSqv(DAPA8A6CJVuWBA(XBAzX8V+>D´HAA´BtHAeAdByKk_BtHAeAj?DAPAoAaSAA+_BttW+>D´HAeAdByKk_BtHAH`BtHAeAdBoIAAC´*~PA8A6CJV+>D´HAeAdBd~fAdByKk_BtHAYA!>5Kk_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_1Kk_BtHA7FAA8i|KXeAAN/W<S|2FOWT|u(rsk_Et3}+COWT|v(HAB´v(NW!A&C/Vk_CtPA!A`~NW!A&C"
  254. Data "/Vk_CtPA!A&Cd~S|qF3r+>F´PA!A&Cd~H`4F3r+>F´HAeAdByKk_BttW+>D´NW8A6CJV+>D´HAA´BtHAeAdByKk_BtHAeA`~GLeAdByKk_BtHAeAdBd~fAdByKk_BtHAeAc_1Kk_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_1Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeA<)DAPA8A6CMcbecGRBAAemQWz(3})>_~fAjBHL4}w[J´fAjBpF4}j_`KT|v(HAfAhB]KT|Z+tWk_CtPA!A&C/Vk_xyPAA´CtPA!A&C/Vk_CtbshB9~fAhB]KT|v(DAPA8A2>#}#A6CJV+>D´HAeAdByKk_/CJV+>D´HAeAc_1Kk_BttW+>D´HAeAdByKk_BtHAA´BtHAeAc_1Kk_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_/CJV+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_BtHAA´BtHAeAdByKk_BtHAeA%`DAPA8AM<L0w]D´HAA´BtHAeAdByKk_BtHAeA<)DAPA8A*B0kBAi´3YeAdByKk_BtHAeAdByKeAdByKk_C´AY:G9q98AADt4FhB]KT|v(tWk_CtPA!A&C/Vk_CtPAA´CtPA!A&C/Vk_CtPA!A`~HAfAhB]KT|v(HAfAhB9~fAhBZFSqv(DAPA8A6C4}#A6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdByKk_BttW+>D´HAeAdByKk_Bt"
  255. Data "HAA´BtHAeAdByKk_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeAM)DAPA8AAA/heF3;[CY@D´HAeAdB$ABADP|tGUFAEAh=WyeAg.BAAw#AjB.IAAME}4fAjBHLK&XL*~1}4F/Vk_CtPAG_hW5r+>F´At+>F´PA!A!>@Vk_CtPAA´CtPA!A!>@Vk_CtPA!A`~HAfAhB8sy|v(HAfA8A=~HAeAdByKk_BtNW8A6C4}#A6CJV+>D´HAeAdByKk_/CJV+>D´NW8A6CJV+>D´tW+>D´HAeAdByKk_BtHAA´BtNW8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HA2}=~HAeAdByKk_BtHAeAdBd~fAdByKk_BtHA2}6CJV+>4FSqv(DAPA8A6CJV+>D´tW+>D´HA2}6CJV+>D´HAA´BtHAeAdByKk_BtHAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_/CJV+>D´HAeAdByK[9C´8i|KbSAA6yl^*A)>_~b~/COWT|w(bsjBHL4}+>F´B´N@F´PA!A&C/Vk_Ctbs~~F´PA!A&C/Vk_CtbshB9~fAhB]KT|v(HAfAg_`KT|/C/Vk_CtPAeAdByKk_+vtW+>D´HAeAdByKk_BtHAA´BtHAeAdByKk_+vHAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_"
  256. Data "BtHAeAdBcs(_/CJV+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdB/VeAdByKk_BtEAsI!|g4AABth/{I9~$,H4uw:A&ybLE}HL4}*hD´)~b_J´fAw>?ogsuWAA:v=´U_6r+>F´PA!ANBv(LDBtzdiB$A^X7hFL=}M)HAfAhB]K*hAA,fAA_o}K5FuWM}^{47BKhB]KT|v(HANAUEAACt+>DAAAR/[q8Z2}]KT|v(HAfAwAU_XQ8A@Acs}FAA{Kp_BttW+>D´HAeAdByKk_BtHAA´BtHA2}2>QV@>D´HAeA`~DAPA8A6CJV+>D´HAeA`~GL2}NZKV+>D´HAeAdBd~fAdByKk_BtHAeAc_fs(_cZKV+>D´HAeAdByKk_BttW+>D´HAeAc_fs(_ptHAA´BtHAeAdByKk_BtHAeA`~DAPAP|Q(hq((DAPA8A=~HAeAdByKk_BtHAeAdBd~3}2>QV@>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_+vtW@>D´HAeAdByKk_BtHA&_BtHAeAoA<c101(EAmxtBXL|W:j4}u(<~1}E/PA#A&>)~[|w(Atk_H4PA!A&C/Vk_CtPAA´xybshB]KT|v(HAfAg_$~3}&C/Vk_CtPA!A&Cd~H`4F3r+>F´PA!A&Cd~H`+vtW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_+vHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|Q(hqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}2>QV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_+vtW+>D´HAeAdByKk_BtHAA´Bt"
  257. Data "HAeAdBcs(_+vHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|Q(hqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}2>QV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_+vGOC´RfOBJJ´yBwAAf/+~1>Atk_Et3}+COWT|E/bs!A`~HAfAhB]KT|Z+NW!A&Ccs#A&C/Vk_xybs.A´yPA7~CtPA!AoAXLa#!>@V6yPAKCv`CtPA!A&CvD+>c3:fg_`KAA+>[pfAx[D´HAeAdByKk_BtB>yF`bcqv(GL2}6C@Q*hs~5sv(DAPA8A6CJV+>D´sW*hHccqv(GL2}6C@Qv(;chKdByKk_BtHAeAdBJ`fAAY334_BtNWP|aF1[C|(,eAdByKk_BtHAeA1~DAPAP^4DPAP|Q(hqv(u(r_BtHAeAdByKk_BtHAA´BttO8AU_9}p?D´oF8A=~HAeAdByKk_BtHAeA|zf~fAL|es(_BtoF8A6CJV+>4FSqv(DAPA8A[NOV+>PEB´[)DA[KdByKk_BtHAeA`~DAPA8A[NOV+>PEbsdByK,V6CJVXLC´g*)SRjAA%B´ySA=cwV{;y(3})>^s|}w[J´3}&>)~S|yF/Vk_~wbshB8sy|v(tWk_CtbsP|!sy|R)HAfA~~F´bshB8sy|R)HAfAhB9~fAg_S(q|Z+NW!A&CyKk_/CJV+>wFPAzrQ(hqv(%CA´7tHAeAdByKk_BtHAeA`~GLeAL|es(_BtoFppZFT|kByKk_BtHAeAdBcs(_BtAta?wFPAzrx9Vqv(DAPA~~D´HAeAdBcs(_Bt#QP|!~PAzrx9Vqv(DAPA8A6C4}#A6C4}p?D´#QP|aFT|=()hr_BtHAeAdByKk_BtHAA´+vHA.&2>QV+>gBhKdBd~fAdByKk_BtHA"
  258. Data "eAc_1Kk_j_9}p?D´oFppZFSqv(DAAtv(DAPA8A2>QV+>PEbs`~DA[K]]yKk_BtHAeANB(HP8JDSAjnDtKa5F2Uy}/Kd~O|O(3}&>VWT|E/bsA´H4fAi_i(+rH?GLfAhB9~fAg_S(q|Z+oF!A&C/Vk_u(+r+>GL.V9h=Vk_CtPAA´xykhg_S(a|v(HAfAg_$~PAzraFT|[)DA[KdByKk_9CJV+>D´HAeA3^oBN`,CJVAABt#QEA!+2D8A=~oF8A6CJV+>D´HAeAdBIoj}9/iV+>BAAAQ{!tjB*hkyUqv(%CeAdByKk_(CJV+>D´HAi}[t0VXLvF$$QeDWVGBtms?h4F;vft;Kk_BtHAeAdB_EfAdByKuWGAh=fA+{DABAy{qFAAL|^´HAA´!tHAeAdByKk_BtHAeA9hLWBH6CJV+>D´HAWAH(RqfAdByKk_BtHAeAdBr?eAAA4YpCeB$A:Cw[MJAAQ4yKXL!tR>9Af(HAeAdByKk_BtHAcAh=<~H`BtHAeAdB>2E69C4}9A6CJV+>D´HAeANB?jk45>bEv(g!Cw>G8MZ)IAIAp1wd´NC´z(fANAr(dWT|u(rsk_H4fAi_KL4}N@F´At+>F´bshB]KT|Z+HAfA~~F´PAR|qF3r+>GLfAhB9~fAg_`KT|v(NW!A&C/Vk_4F4}N@F´HAeAc_1Kk_BttW+>D´HAeAdBcs(_BtHAA´BtHAeAc_1Kk_BtHAeA`~DAPA8A2>QV+>D´HAeA`~DAbsdByKk_BtHAeAdBd~fAc_1Kk_BtHAeAdBcs(_/CJV+>D´HAeAdByKk_+vtW+>D´HAeAdBcs(_BtHAA´BtHAeAdByKk_+vHAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A2>QV+>D´HAeA`~DAbsdByKk_"
  259. Data "BtHAeAdBd~fAc_1Kk_BtHAeAdBcs(_/CJV+>D´HAeAdByKk_+vQV+>D´HAeAAY})NPODHAPDNZJVBpM´S|´~bs#A+C9~[|E/PAS|yFd~j_sF3r+>F´bshB]KT|Z+tWk_CtPAR|qF3r+>GLfA~~F´PA!A!>@Vk_CtbshB9~fAhB8sy|v(HA3}&CyKk_/CJV+>D´HA2}6CJV+>D´tW+>D´NW8A6CJV+>D´HAA´BtHA2}6CJV+>D´HAeA`~GLeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAc_1Kk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAc_1Kk_BtHAA´BtHAeAdBcs(_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAc_1Kk_BtHAeAdBJ`PA=56Kk_BtHAeAdB#^fAdB=JAAd_1Kk_BtHA(~BtGA$S9CJV+>D´HA&_BtHAeAdBAA@Qu<ULk_AAAAZ}MBAACHdBIotVT,zV+>D´CAkI(4GsBAFA|LSCtp2RRGo.AA0}ANN/dx[/75kF9AAA5tO_.A*5bLpf$C´}*hWWMcAAC´5.xBkUPxt#x6H|HL3rC´GL%$b@DABAK_%+BK>{]KT|,C/V*hxyPAIAX^cLHo<s>KhB]KT|v(NW1rg(,}J?WLT|v(HAfAg_S(q|Z+NWA´CtPAeAdBcs(_BtHA.&=~NW8AU_KV+>D´HAeAdBd~fAdBcs(_BtHA.&2>QV+>*>Vqv(DAPA8A6CJV+>D´B´p?D´HA.&2>QV+>gBPA~~D´HAeAdByKk_BtNW8A=~HA.&2>QV+>gBPA8A6C4}#A6CJV+>D´NW8A6C3ra?u(hqv(%CeAdByKk_BtHAA´BtHA2}6CJV+>PEbsdBd~.V6CJV+>D´HAeAdByKk_*>QV+>D´#QP|"
  260. Data "aFT|=(DAAtv(DAPA8A6CJV+>wFPA~~D´#QP|aFT|=(DAPA8AWuHAeAFB95O8JDQAjnDtKa5F2Uy}/Kd~O|O(3}&>VWT|E/bsA´H4fAi_i(+rH?GLfAhB9~fAg_S(q|Z+oF!A&C/Vk_u(+r+>GL.V9h=Vk_CtPAA´xykhg_S(a|v(HAfAg_$~PAzraFT|[)DA[KdByKk_/CJV+>D´HAeAc_1Kk_IvtW+>wFPAzrZFSqv(DAPA~~D´HAeAc_1Kk_IvHA2}=~HA,V6CJV+>D´HAeAdBd~fAc_1Kk_IvHA2}6C3r`>4FSqv(DAPA8A6CJV+>wFAtv(fIeAc_1Kk_!tHAeA`~DAPA8A6CJV+>wFPAzr!~PAP|aFT|=(DAPA8A6C4}#A6CJV+>wFPAzraFT|[)WLk_!tHAeAdByKk_BtHAA´BtNW8AU_OV+>wFPAzr9~PA8A6CJV+>D´HAeAc_(APAcQI:{euWgMiA8MJOrA`~=`!Cfz5~b_bsS|yFcs[9AtV!+vWWT|CtCAS|X+_|FA6:pi!A&C/Vk_H4bs)}GLJASiKMfAhB]K|;*CvDk_3h(}N@DAAAv?´zPA!A&C/VMcC´[V@nu(+rXLOWH~v(HAfAhB}}FA/`{H3}dByKk_BtHAA´BtHAeAdByKk_BtHAeA`~GL2}6CJV+>D´HAeAdBd~fAdByKk_BtHAeAc_fs(_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_fs(_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|Q(hqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}2>QV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_+vtW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_+vHAeA`~DAPA8A6CJV+>D´HA"
  261. Data "eAF/DAPAP|Q(hqv(AA7wvS`x6FJwIAQw$_S|´~J´fAi_KL4}+>J´3}+C9~fAhB]KT|Z+NW!A&C/Vk_4F3r+>F´bshB]KT|v(HAB´v(HA3}!>@Vk_CtPA!A`~HA3}!>@Vk_CtHAeAdBd~fAdByKk_BtHA2}2>QV+>4FSqv(DAPA8A6CJV+>D´tW+>D´HA2}2>QV+>D´HAA´BtHAeAdByKk_BtHAeA`~DAbsc_1Kk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_*>QV+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_+vHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>#}p?D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsc_1Kk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_5>QV+>D´HAeAgAvj001(hAmxtBXL5I|~b~4FOWT|E/PA#A+C9~[|w(Atk_Ctbsg_`KT|v(HAfA~~F´PAR|qF3r+>F´PA!A`~HA3}!>@Vk_CtPA!A&C^|7AJtKWhnpF3r+>F´HAq_C´DA"
  262.  
  263. __Gbbmp:
  264. Data 13,1,84034,9397,"Base91"
  265. Data "Dz#ye2quUA$A[9uH*h@AUE9A/lCAjACAfLgg}KFAqi/TuWUE/F~FAA}NV~9AJR0WtAIA+>|#HCl/68BAwQ?=+hAX%Ak_D[NBNVq{AA[tp.H7e33AH7*AF´$6OCAAY[]CVR<nGAVxVV1WAMOG<´kA@Qu+WABG@I{tAGBA@A&III!Wsi0U`X)Av(=j:&ev>>|s7sjnBA[>/5w/xFBOFHaSlt0s^n~s|}BtCA}Iyv!W`FvF5MXl=t7};?NW#A<A`[wJD@Aze}B*js!A`~HA3}!>@VjnD´FUrB3!z_/´[~qs+>GL3}&C/VMcmDp1Iw=Cktk<U/%Om(rMhB8sy|Z+HAfA73+|WL)XHW;/2F3r+>GL]XdBd~fAdB|;b$+vs%9A6CJV+>4FT|[)`K2}6CJV+>D´HAA´wyw$A|bylrv(DAPA8A=~NWF`Q(hqv(DAPA8AD|T~R&X&hq=;DAPA8A6C4}p?4FT|[)DAPA8A6CK&]]wF_;K4f(r_BtHAeAc_fs(_5>QV+>D´HAeAskfAi|4*Jo(_o$HAeAdByKk_+vtW+>wFPA8A6CJV+>7mbs`~)=eAdByKk_BtNW8A2>#}#A6CJV+>D´3$Q|bylrv(WLk_BtHA2}6C4}p?D´HAA´BtHAk>8>QV`]D´HAeA!>DAbsdBcs(_BtHAKA2mNN+tBAYAFAFRRDXLFAvDow´6?2.yp.M:*h+´[BAXzBAAzWFaEt(=*E${tZ7{YXgt(5M<3}pBFB0S<)HWaZI4=~E`H4={T![a#nvFZMfj[B7}I@NW9A`5]*,W=%J>cGWxrshBx93}!>@Vk_BAcEGXII)5&^;IvTx´H4e|v(NWG}xyPAmA?DE.QGu(}`DAwwRqjB8sy|Z+HAdAr(b=u}VZlWk_xybshB9~_}V{]s(_"
  266. Data "o$js8A6CJV+>wFB´[)GLeAdByKk_e$RKP|!~9{p(*Kk_BtHA2}2>#}p?4FSqv(DA^_Pxzs(_@NAA<Q~6LV+>D´HA2}2>#}p?2FSqv(DA)on~?Ec}|b8}</mFSqv(DAPAP|Q(hqv(OLk_BtHAk>8>KHQEiym}kByKk_BtNWP|Q(hqv(DA;sv(JWk>ACxd2}lym}p:WLk_BtHA2}2>#}]>D´HAA´Bt3$R)xQzq=;KLeAdBd~fAc_fs(_0tHAeAdBFh|#G7NDXL89U|z`DAPA8A=~NWJJQ(hqv(DAPAX#GLcQXbn4{A/mNN](AASAFA+W3XN/KwaS1:0kBADHO2z:BDuNT/Z)$<E!CB$rxNn_Htx=3}]A?D1lr+<rF<G:pF_T7*,}f`H4YAqiIIfZnMDthYvF:CVwwwfMH^;MT}wFJA)U&xAAwze)f}`VWuTUhB8sy|X)HAub?43KoOgV^PN@+Xy|d_HA3}PL;Vk_f&GAJ;ILTE{;9sy|Z+HA={f!x6o}Tk{rZ|y3fAg_#sb|<{pSA´Bt9{!A6CJV+>wFPAP|!~PA8A6CK&]]UVPAD,H4b]I1y|3l6CJV+>wFPAP|F_PA8A6C*h+QsW<>y>)=A´H!IV9A6CJV+>wFbsdBd~fAdBG>/{Xv3$:/:~FrV=WLk_BtHA2}2>QV+>D´HAA´/63$K/jylrv(RWeAdBd~fAc_fs(_BtHAeAvr>3w_S|#V`]D´er9A6CJV+>wFB´[)DAPA8AYI4VD?KhPq|~NCV;+CJV+>D´NWP|Q(i|kByKk_/6ERM/JAgg8[gDB´z+RWeAdBcs(_BtNW8AU_HAk>8>`}@6C´2g2??mZqa+)=MA2uNNw?CtRACAUcAMY4h4Y4^>OvWA`B@´F;EAiqvuH:]KCAtFGO5Fw^!M"
  267. Data "OO!JKAPk5F]=pdXs)UEfAA$y9PY}ui|BdGnzBG>D4>bsuA4AY:+(Jd[HjJOC´STr{B4z:)8x!(aB!~w[NWMAY<[NsZi@6RC6´2gZP<SPZW+iAAx1nDLFq|H4bs0}F´EA7pr>`C*hJM0D6tKgLR[tM3G>lBq}F*}~H`xyPA..[},o@2w5c},U9s6{J4bsg_`KdZAAc}Q9_A2!g}skdWz}CtbsR[GL:?lI(E=`|!´vl%UxPw+sVW._xyNWP|aF|;kBk_fHX+6}oD1bWs154~fA15=Kk_BtNW=9P(hqv(WLk_e$´H+&Y?O=[))=eA`~)=eAdBcs(_}tNW8A6C/`6^yDaPZ=K,#t+vs%9A4}AY/[+bPA8A2>#}p?o(hqv(DAUf|W!>u_e$6v<xwF9{iIBAH7%`1Kk_%C4}p?wFbsdByKjnyQR&+7wQrJa1GLioIU1cfnW{BAy:$A,VN?D´NWP|F_bsdByK+>I(~VA?PsR^E`GL^[$C^XY)6;+|p:[Kk_+vNWP|aFSquWJeq{L4M&<x6mbs15=K5FAD}l//mFSqv(GL2}2>QV+>;sG}l:S3v[6>QV5^D´b|v?ILPA8A2>@`{4z!qCAAFBMiBA(,EAPTaGRA;?uWBAWiup`cw@5(s4ou9Z,7|#I´Cis7BGI.L7DH1xg!y>OC:OQY~yj/]#KR2oyNofoY9MvGO/fJTX%|Mj?2)X.O8DTeHlCsBkt`,HZZh0qg:*<~:cAAPv)nySc´`gtxR%v:BjYD.QEK,`n>bsO_Wn^kw[ELY!H]WEOO@B9WatqiB6]]NWR|;C=JU,$Ri4>!Z&8(DLUsi´oA:CZ3B/,}g_#sy|G_pqc*$%´v%%Hxk+`,cS`VVB!~!?+sy|*CDAGTmuS@=yO~7.M0?/3}VZlWX~xybs"
  268. Data "~~c=Snyrh>/{+vs%:/:~G}85=Kk_+vNWP|aFT|l:S3A´/6jUQ|mh{qV=)=x|7C4}S|F_X|[)DASnyrh>/{e$B´p?eh9{V#0~L{BtNWP|!~bsdBz3|_z9pq2*a(ynBt{4?}X7fIy>ALWqv(GLA´+vzE8AeWE~T]2bPAP|!~|o45=K;{yyHA2}2>#}]>4FSqQ=c=k>$C4}p??m|o}~RW^[$C4}p?wFMJdBG>H`#$Z&N@D´NW//nylrV=y3A´BtNWP|PWVqv(c=k>J|T~#A2>#}.[eh9{(`1Kk_+v,}p?MB^_PxhCuWaf%YQAuWGOuWSMUA´CC´)y+5onhLttxM@h@BBtaA=VoZaA]:ADBNmG.AzWIB,I}OEF_IZD`d+4Ls]M4De}uiFC:Fpz4K|7yAsiG_s1EndNXGkSXipCV^T$HYq&I4´:*fQJ?VM)bs9^Cj%mIggzv+u!!uFM#a9kYZ!N5{itDTjtR(3}Bt|:FAkgQGTfp,d#<ybC89dtpAXLj;y@<h$>Y9R|lE>2o6Rd=WM:e;W$QH|S(jYDu1G/CV^{u(,}N@S30[aW)~dzqYMgu!_K]|Z+NWAM7FdS!>|!(|<{NW;/3y;~N@GLB´D/TsR|7CJV5^?m|oq(w~3}6C6}p?D´3$,&R_krv(At(_Bter5<^.Vr])GLMW=~NW8AYI5&]]KhPAP|aFH7tA3;xOf;MF+@S?@F~~wFPAP|_31}y>f}6<%C4}S|aFSqV=)=^[eI6}p?D´B´p?FOSnyrh>/{BtNW8A=~s%:/:~FrV=GLeAc_g~K{tWE~T]2bPAP|aFSqV=oFA´o$jsP|aFT|[)c=k>J|T~.&mFT|[)DA9{SAwwoV`~9&eAc_fs(_0tpq9ASqA~4*kFT|[)DAPAo8yFT|z`At(_+vNW"
  269. Data "8AeWE~T]2bPA]>wFKA}U1z;1BtJAKA#LgGMcJ0D´w2;?tB>GTDVlHOaSb4=~:`SQzK_oZ?HEJRPBNYIM<]*$uOqz=/b?|Ew8L(j$hdEJ5:t4<52=6HS6E]<Cl0jZ=E`h<s@d>7}BS^d]`,VTc2q};fAMe|w(gsg!J4x}rHOC4nz#4´lS8P=k´oG4*(qt+BV0rB=%7W:&bsg_jA[9H?#G7/9@AWN|sxbswAB=aR!ea`0_ss)~{4&NX.o!u,zR4$s~p?AAcIdG]~Qqi_#sy|c[jUS|qF3rs}xK6~Z+3$/&2F4}N@9&XY`~9&2}2>#}p?HI^_Pxchq{*C4}p?D´HAE_sYGH#H~}Nqz=GL2}2>#}T]2b,o|~S3eAc_1Kk_Bts%ULbym}j_fs(_+v3$,&R_krQ=DAB´[)DAPA//nylr+C)=2}=~NW7^GnoqZ+JWeAc_fsm_/CJV5^?m|oq(vs(_+vF2~~7mSnyr=Kk_+v)B8Al[A~7<^.Vr])GL2}YI5&]]KhAt.;DAbsEcyKk_K[/S&,<~4li_fs(_I(KfX#H40rv(At(_UtHA^[TZ$V5^+bbs`~GLoiF|$&2^7mPAP|PWTqdByK;{o$BADL/+LHAALtCA*NHB0kFYBt2RPjCAvD8<<c!(=HFJ}QyGM81td2EAu>2[.AAAQQQG0HAInT_,yIS){!iBw7vWzLOxIAMRffE|CdE$9:O5S2!´yAXeIuE/]9dNDC4PY+S:d{j&HYq&I4PbW*&CzVC&Jyx_*B_P??ee;GNvf?|RGL!Pvk^Njqju8~GoewCASQAB48U)´Da#!>@VXLBt7Q_LI~w|1_NW&{Un{rw[GL3}VpEAmf@N]@2f<{r~655^@Oz#bc*{=#afg_$~fAX#$1a~Z+pq4*0F4}65aJ0kC`"
  270. Data "0**G+Z}2K4<~3}n^<VO|I(9{9A6C4}p?4FSqv(DA|ogBNJ;{+vNW~~7mSnyr=Kk_BtNWCOZFT|kByK;{o$s%Q|Q(i|l:S3A´/6HAeAc_fsm_BtHA^[^~=O//c(i|[)c=k>J|#V+>4FT|[)?APA8Akk4V`]ehB´juGL/?dI5&]]D´HA2}U_NW8A6CN/Ul|CXq{´T.B´@XGLz[iWE~T]D´HAeAF/GLeAdByK;{^us%w(9~bsM_J>/{e$3$9A6CJV+>W(hqv(DA|o45=K#ABth_2}[=_J7^GnxqZ+DAAtv(DAbsdByKk_o$s%:/3CFAP|B$PATT1zGOBtTMiAaC0EoIZAUEPP?JAA6ysVUwB*zDwB[tui74QO#yhZeM<c1ZZN74ex%<Wi|g8^x+dIe@!8pg]#>zJ.=RNFtV`s_[*h:h8KUXK6X5j`t}~hOs.gl;sq8z+sPw(j9Mu16Q´:udqD~dQ6}r=2u>{j!A@}GAKzuW[M6yG8bsFF0|g[z(L(:_GxPA!A&Cd~S|qF3r+>F´PA!A&Cd~H`u(+r+>F´PA!A&C/Vk_xyAt+>D´HAeAdByKk_BtHAA´BtHAeAc_fs(_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAbsc_1Kk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_*>QV+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_+vHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>#}p?D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsc_1Kk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_9>QV+>D´HAeAdByKAAeW:&0_BtHAeAdByKk_BtYV+>D´HAeAoA&a100BKAAA:u5,T|1>3}A´EtfAjB<s|}+>J´fAi_@~PA!A&C"
  271. Data "/Vk_CtPAR|qF4}kB]KT|v(HAfAg_`KT|v(tWk_CtPA!A&Cd~H`CtPAA´CtPA!A&Cd~H`BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHA,`BtHAeAdBcs&nAA8i|KJoAAMcM{S|,COWT|u(rsk_Et3}+C]KT|v(HAB´v(HA3}&C/Vk_CtPA!A`~HA3}&C/Vk_CtPA!A&Cd~#A!>@Vk_CtPA!A&C/Vk_u(+r+>F´HAeAdByKk_BttW+>D´HAeAc_1Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BtMV+>D´HAAG(6b,.tUAAAY2|~b~,>J´B´w[J´fAi_KL4}+>F´PAA´CtbshB]KT|v(HAfAhB9~3}&C/Vk_CtPA!A&C/Vk_u(+r+>F´PA!A&C/Vk_xyAt+>F´PA!AdByKk_BtHAA´BtNW8A6CJV+>D´HAeA`~DAPA8A"
  272. Data "6CJV+>D´HA2}=~HAeAdByKk_BtHAeAdBd~fAdByKk_BtHAy}6CJV+>0FSqv(DAPAMAo4>LAA8spV@>D´HAeAdByKk_BttW+>D´HAeAdBcs(_+v2D~~D´HAeAdByKk_BtHAeA`~DAPA8A2>#}p?^´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsc_1Kp_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_*>QV@>D´HAeAdByKk_BttW+>D´HAeAdBcs(_*C*CvTI:v(0WMMiAMc+@*>_~fAi_?s|}+>J´3}&>~K1[|B?j!AiC|;fcUDuWs^GL[X+>PJ_{lwugXj|KN/uWhewcQwFY.o[s=W?W3jUc90?`gn)6bAg_@J{eq1!MFRBE|0M/EllO.$DD1%xFA9Pq!sy|v(FAchHY[f~k2xS|3&!DOM$Yy.ZFBtgZxKaFSqv(GL;~BtHAeA>+BLZ#gAtp6_$>#}U]ILBA:ilCe|b)GLk_BtNW8A6C#Tv(5,~9!?!HAAO+BL2}2>HAnDx9~CFtc}(RP^pG2}BtHA2}6CJVBt2bR=]zpMQ9pV.=Q|+%>TLXe~DU@sE~V]D´HA2}6CJV+>/E|;l:!HEAh*zSP`+vY_oiXL/H))wBCAd54~y|7CJV+>wFPA8AD|$&1men2LBt4ss/*CfVO@ILAta+DAPAP|Q(hqv(DASn^}c=i>LB/}{4wF73354~_[TZ$V+>D´NW8A6CK&]]<QVr.;AA$Gd_fs}F4utW`]eh9{fByKk_+vHAeAn^DAW>UXD(s4I(Et[ht(i|juCy+b%Qbsd_AAV+&Y$MAAY4%5NAAI9ZKAdRAGk_E0vWaeGtuxfL?WecNcaSScatttDiLhvZbCjHQ+JBL:A<Ssut^A=B´wN*&WP´lhaS&<;0BLVNyG"
  273. Data "c7w)m}g>dugpeMoH+T%W8*5M7FCTQ.gz`v~tfA}_t&leF#´K+aB7xx)Oxy:aGs´+yau´Fv;8(>~KH7pA3;irf;<@`VVB.bh_|k}Fv!KFrL´tL^RK8?*yn1i~H`Ct4,8sesMfc[NW!{knMH*hQW=[<D,Hykg(+rXLAA59Q);c;{O%e~:c^t,}M@(sy|WL;&U~8^bsr^`K6~{{NWA´UtHA/?dI5&[l2bbsc_g~p}kk4V`]ehPA8A2>QV+>vFY4y>HFu_7u7{.^wFAtv(GL>@,Qbsd_D´HA2}=~HAeAvrh>/{e$NW8A2>#}</nylrV=DAPAP|aFSqv(*>/{e$3$Q|aFT|[)y3i_[~IV9A6C4}p?D´HAk>,98}/&c(hqv(GL^[TZ$V5^D´tW+>wFPA8AYI4VP?Khbs`~DAbsT#/Kk_99HAeAc_g~fAdB/V@}1uERS|aFT|[)B´L{BtIV9A6C4}p?D´HAA´e$HAk>8>QV+>wF|ogB/V^[f1OV+>wFLA%V1zBzuWLAKArLgGMcM7D´Bj2>tByGTD7OHOaS.hoI[>C!h/3Z26GEQ^U*>NAAuW2c>!]QS/Ki´YkTmu9EaA:lXYUo8<ya#Xe7v_oJt}AKiADH}:Ds@I>WzbiqDcccKAR*q#m!zz9}BOCA4QhM*#VHcvqFy_?vw}*1Dge.M)8u[L~soVv(4as/S5IMbzF4bs#^´L7k/!LkABVpxI2{^I3}]SfUO^T?vYK4:r(X!>k~_k=~r~$`GLaAf3*:X7S]hUS|m%´v_)#D31<inIjBqy|}N@V&:?(>k~H`H/6sJ|GLXATrJEz]/6KvyX2>#}p?wFRqfBd~L{nILV+>wFPA+&ELaqQ=DAB´[)GL2}NZ$V+>?m2LdBd~3}6CK&2^7mSngBcs(_+vB´p?"
  274. Data "ILPAF`dyxqv(GLeA`~c=k>J|#V+>wFbsc_1K;{{;KV5^?mPAP|aFjn.;XIA´z9HA2}2>#}p?eh9{V#0~e^#C4}p?D´ERj_]Kosv(At(_+vNW#,T_t}4>?}eA`~GLeAnrgh7_e$HA2}2>R&S|F_NrUgBA´qV=DAbs`~DASnyr4~K{e$NWP|Q(i|kBd~L{[6IV9A2>QV+>HIkLC´,bZq92AY)K.ZuZ*hG´AAFHAD1[HO0ks1>{AAx(TAL?W1nL´EDHBtUjFl,be´++KEMMMYmVvj5FYbLu>%AHq1wjdN:FnZOcHe$yAn´f&6>GSI@cmU6SlB5Sh)GL;!Gi84dv4@0:6$H4PK~DDQ_Tr;3Nc_BG%d/W|EdvB*6}[9PWm}=%o,YObHAFBO^s{rx[BL]|F/NW<!DL,,X5fn={#>k~cGC´Dy{R+bRp^_8l3}|boBuWrf|}8`^sy|Z+er7<q(BKAAqpL7Ja+EPR>(KV]_wF+Ln^[*ZcqS3RRHYRmZB´GLl>R|$&+`xyNW0}kym}85=K;{BtNW+&R_l}l:c=A´BtNWP|Q(i|p:y3i_@sE~#A2>QV(?7mSnT4*Kk_+vB´p?wFPA//nylrV=DAbs`~V&/?dI5&p?D´NWP|Q(i|gBz3r{99er9A2>KH+>5^SLf;bEr[P?@F8A2>#}S|aFT|p:y3i_@sE~p?p´u(2^7mSngByKk_+vNW8A=~HA^[TZ$V5^wBuDvrh>/{S|#V+>D´NWP|aFSqv(RWA´yyjsP|PWTqQ=c=k>$C4}#A2>#}p?D´HA^[TZ$V5^u(i|4(V&!gYI4V+>D´NW]>wFDAGW1zN?AAG´CA`FQD{eP/uWCA;HNvAA&´_:%PJ9!GCB1AMo6ZDeBABGya<M%BW´QC=f>M*(m/#4[T5@2){:_/"
  275. Data "P9&auJx1Ce,2O´DX´9x=FGFK*PSe*3=/esVTG47Q<L6jt#bvqFlL}sp&YZGaGT;v#5GzHOe*;(´/?{XG6BuW2O@KsXxhsho(T06cBt%}:i*IoZ(>´X[%JBF,´(ohxq(>k~0!CtL.7a1DPf[6%Eg>p$q#`F]t~wSWE~M|3wbsg_$~`}jkEV;{O~9o*3lH0[&>k~H`@^|oWL)=l}L|l(U~xybshBayy|kByKI`+v3$,&R_krZ+DAB´[)GL2}6CJV+>?mPA//:~bs.QGhq{z9jU9A2>#}p?u(hqv(DA9{fBz3r{+vCAtFkb_Xm1u21}Z)DAbs`~GL2}6CJV+>nsPA#,e(i|2rh>/{e$bM8A2>#}p?wFAtv(DA|ogByK;{+v3$,&K~$54}c=eAdBcs(_+vNW~~D´IV(>+~G}`GGLk>$C4}kt&sFrv(GLZf2>QV+>D´tW5^´Z|oQ5~m(_z9HA[T]~FW8A2>#}p?wFPA8A6CK~wkPWGf=;ELS)+C^X*`WLosv(DAbsdBcs(_BtHAA![6CfTAafJYgAkEoASA5tW65RAAAAG´QY4r[9_W.>PAY4Ct8YfTVA4Uk´?t84d40kjL|d|A@$C´9k;ivm#kDL>]p|WO_v*`z3RzPpZy<lS6´XD5IHpPwyVI65eX83[tTsS|+Bv(5?z=AAjLqjRKPXOyv1I,7~udBAvbmQC´OW0{`0j9k4=/l+K&;C]{LwE~N@GLfAUA(HG2JMVe]g4@/Tukwy$P*C~}G3=/TsR|g(+rXLE´`:F;fICA}8DLch*WO}T]a?3Yg_#sy|v(FV$lI|r~G^p>4~<{HA3}!>@VX~e,WL%JvF^_fBFhq{BtHA2}=~$NP|aFSqv(DA9{OEs1IvHA7fvNIUDs+m2b0}{;zKk_BtNWP|Q(hq"
  276. Data "v(DAs|`Gr?kh<sV{BA=~3$9AD|#V+>D´HA2}2>#}#A6CJV+>?mPA%/%ESqQ=*>/{BtHAeAc_fs(_+vHAA´Btjs//ny&nv(|)k>$C4}#A6C4}p?wFbsdByKk_o$B´c??mOA]e0QVrv(DAPA~~wFbsc_1Kk_BterA,P(>|kB/V@}[@HAeAdBcs(_+vB´p?D´HA>@.9&sG/D´qv´~7mPA8A6C4}p?wFbsdBcseA15>39_XvjUHe9#0HvuAAat1WBA´G_PPABG:iaCj,AA@ATz.W1u~ANu?*f)w0WT(vCA81Pv^KZ/kND|CdbL+$jt^jiA$MMpGR=M7LZ_NWgAo@mSvSuW]M4__?@Jb|gN!|wFIAGTn,#MTzI7|SY+{va}/+NWR|qF;v/~pqMA;7JW,o&Cd~H`tuhsC´I4ks+CAAF,b)SH={(Cd~H`xyPASA|;u(~_L>,ojB8sy|Z+HAe^krcrAR}(S^:^^EPA8Af(NWP|aFSqv(DAo`jAz|B´1t>}yEJ|#V+>D´HA2}=~NWP|aFSqv(DA|oenfs#_S|$&2^D´HAeAc_fs(_+vtW+>D´HAi_RZ:|V]cRSn}~DAPA8A2>#}p?wFPA8A=~HA^[7h5|M]jc^_fByKk_/C4}p?IDbsdByKk_Bter:~ehxn|(`>S)+CJV+>D´B´p?wFbsdByKk_BtIVp8{~QqAOI>/{BtHAeAdBcs(_9>QV+>D´HAeA15oJAAeWcsm_e$HAeAdByKk_+vB´p?D´HAeAdByK;{+v)Bn?7mPA8A6C95ceOMOAxBgAlBBMCASBH´3t|QpChN2kLA<c&yCKAAY7Y4alDT^M8!DcAMuIij:MO|pQSjGixYS|.D`xkL9C1Yv=KH!^q(rs5FAAaa/MWXp}JBoC]>%>ubj_sFggBt"
  277. Data "onp,$}NW&KAD0I+(^3e|v(NWc{xyPAqA;v{Rs_xyb|}[CLfAg_#sy|v(HAZ^M(JW4.U?:PhB8sy|Z+HAB´jkBVO|=sqs+>GL3}dBd~fAdByKk_o$NW7^ohWqv(WLk_BtNWF`Q(hqv(DAPA~~D´s%Q|F_l}[(DAPA8A=~NWF`Q(hqv(DAPA8ANZU~S|xQVrv(DAPA8A2>QVp?u(hqv(DAPA8AkkM~#tPsn1*CzKk_BtHA2}2>#}p?0FSqv(DAPA7,&|bsvr4~fAdByKk_BtNWP|Q(hqv(WLk_BtHA^[W@T@p?7mPA~~D´HAeAc_1Kk_+vHAeA`~DAPA//c(i|l:DAPA8A=~HA2}6C4}p?D´HAeAdBd~_[c>R&]]D´HAeAdBcsUR6C4}RXAMLv]5nzAAxWBAZxgA95AAQAlE*JrvRa59=AcMV|WcU|UAMcaS!SLPz!o.TnUnDLU2Z/FB.~T(LMVR_Ev{X^|)B,rW$~[|BAfsd_^!/yf=^s|}BODA7I*)JDktc<J´OIM<FG!A`~NWR|qF3rBtBALo{C<is/G7+By_puPAR|g(+r*hAL0kv(+xC`u+Os7?*>[|v(HA3}!>@Vk_@^:otWDLl>.C/Vk_xybshBZFoIn(&DnCAA"
  278.  
  279. __Usbmp:
  280. Data 14,1,84034,10050,"Base91"
  281. Data "<x#ye2quUA$A[9uH*h@AUE9A/lCAjACAfLgg}KFAqi/TuWUE/F~FAA´BCAD´%>[K8MQCv(<{@E;?LDBAVhyuv(xrgBBtv5~BCq,UDA5l7Ra49OxAY4FDYAC>x;AA3rG9$$]|6t+>|#5AuiPAd~*>_~b~+>J´fAi_KL4}+>WLT|v(NW!A&C/Vk_CtPAA´CtPAR|qF3r+>F´PA!A`~HA3}&C/Vk_CtPA!A&Cd~#A!>@Vk_CtPA!A&CyKk_/C4}p?wFPA8A6CJV+>D´tW+>D´HAeAdByKk_BtNW~~wFPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>wFbsdBd~fAdByKk_BtHAeAdByKk_/CJV+>D´NWP|aFSqv(DAAtv(DAPA8A6CJV+>D´HAA´BtNWP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAc_g~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAc_fs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAc_fs(_BtHAeA!>DAPA8A6CJV+>D´HAN`PfOxKCAA_)Hra´S|s(<~#A+COWT|E/PA#A+C]KT|*>@Vk_CtPA!A&C/Vk_xyAt+>F´PA!A&C/Vk_xyPAA´CtPA!A&C/Vk_CtbshB9~fAhB]KT|v(HA3}dByKk_/CJV+>D´HAeAdByKk_BttW+>D´HA2}6CJV+>D´HAA´BtHAeAdByKk_BtHAeA1~DARsB*DAPA8A6CJV+>4FSqv(DAPA8A6CJV+>D´ZS+>wFPA8A6CJV+>D´HAA´BtHAeAdByKk_BtHA2}=~HAeAdByKk_BtHAeAdBd~fAdByKk_BtHA2}6CJV+>4FSqv(DAPA8A6CJV+>D´tW+>D´HA2}6CJV+>D´HAA´BtHAeAdByKk_BtHAeA`~DA"
  282. Data "bsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdBIogtPfWZiKAAb#k~bs#A+C9~S|yFcsk_H4fA!A&C/Vk_4F3r+>GLfAhB]KT|v(HAB´v(NW!A&C/Vk_CtPA!A`~NWbZpF3r+>F´PA!A&Cd~S|qFJV+>D´HAeAdByKk_/CJV+>D´HA2}I4JV+>D´tW+>D´HAeAdByKk_BtHAA´BtHA2}I4JV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~GLBH6CJV+>D´HAeAdBd~fAdByKk_BtHAeAc_fsm_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_fsm_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|PWTqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}I4JV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_UtMV+>D´HAAGY7b,.tVAAAnJ}~b~,>HA8A@QKL4}+>HAYAv(R´ksk_EtPA!A&CoIk_u(+r+>F´PA!A&C/Vk_xyAt+>F´PA!A&C/Vk_xyPAA´CtPA!A&C/Vk_CtbshB9~fAhBZFSqv(DAPA8A6C4}S|PWTqv(DAPA8A6CJV+>4FSqv(DAPA8A6C4}p?p´tW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_UtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|PWTqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}I4JV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_UttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_UtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|PWTqv(DAPA8AWuHAeA.Asc10GDbAAAbb,vT|1>3}A´EtfAjB<s|}+>J´fA!A`~NW!A&C/Vk_CtPA!A!>"
  283. Data "k~#A&C/Vk_CtPA!A!>@Vk_4F3r+>F´PA!A&Cd~H`CtAt+>F´PA!AdByKk_BtNW~~D´HAeAdByKk_BtHAeA`~DAPA8A6CJV+>wFPA8A=~HAeAdByKk_BtHAeAdBd~fAdByKk_+vHAeAdByKk_/CJV+>D´HAeAdByKk_BttW+>wFPA8A6CJV+>D´HAA´BtHAeAdByKk_BtHAa}9~iV+>D´HAeAdByKk_Bt.V+>D´HAeAdByKv(AAT|6F7CJV+>D´HAeAdBd~fAdByKk_BtHAeAdBoIk_*>QV+>D´HAeAdByKk_BttW+>D´HAeAdByKk_+vHAA´BtHAeAdByKk_BtHAeA,(DADA2Of`{hBAC´?F,I9~1}1>Atk_EtfAi_KL4}+>J´3}~~F´PA!A&C/Vk_CtbshB9~fAhB]KT|v(HA3}&C/Vk_4F3r+>F´PA!A!>@Vk_CtAt+>F´PA!A!>5Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHA,`BtHAeAdBcsURBte*^V3[AAXL8^j_0Fcsk_At|}+>J´3}+C]KT|v(HAB´v(HA3}&C/Vk_CtPA!A1~HAt}u+HAfAhB]KT|v(tWk_BACA3}&C/Vk_CtPAA´CtPAR|qFJV+>D´HAeA`~DAPA8A6CJV+>D´HA2}=~HAeAdByK"
  284. Data "k_BtHAeAdBd~fAdByKk_BtHA2}6CJV+>4FSqv(DAPA8A6CJV+>D´tW+>D´HA2}6CJV+>D´HAA´BtHAeAdByKk_BtHAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_/CJV+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A6CJV+>D´HAeAF/DAbsdByKk_BtCAZH9qp4CABtU$t(;sT|w(B´+`EtfAi_KL4}+>F´PAA´CtbshB]KT|v(HAfAhB9~3}&C/Vk_CtPA!A&C/Vk_u(+r+>F´PA!A&C/Vk_xyAt+>F´PAeAdByKk_BtHAA´BtHA2}6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~GLeAdByKk_BtHAeAdBd~fAdByKk_BtHAeAc_1Kk_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_1Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAb~BtHAeAdB!m}F7CJV+>gFSqv(DAPA8AKCGObecGNBAA_kfhz(3})>_~fAjBHL4}w[J´fAjBpF4}j_`KT|v(HAfAhB]KT|Z+tWk_CtPA!A&C/Vk_xyPAA´CtPA!A&C/Vk_CtbshB9~fAhB]KT|v(DAPA8A2>#}#A6CJV+>D´HAeAdByKk_/CJV+>D´HAeAc_1Kk_BttW+>D´HAeAdByKk_BtHAA´BtHAeAc_1Kk_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdBd~fAdB"
  285. Data "yKk_BtHAeAdBcs(_/CJV+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdB/VeAdByKk_BtEAxH!|g4AABth/{I9~1}1>Atk_EtfAi_KL4}+>J´3}~~F´PA!A&C/Vk_CtbshB9~fAhB]KT|v(HA3}&C/Vk_4F3r+>F´PA!A!>@Vk_Ct;s+>F´PA!A~=:,eAdB:&fAdByKk_BtGAv`BtHAb~BtHAeAdBNJAAdByKk_,CJV+>D´HAeAu+DAPA~~D´HAeAdBNJk_0uHAeA`~DAPA8A6C4}p?D´HAeA`~DAPA8ACqNV+>D´HAeA`~DAPAP|aFSqv(DAPA8A=~HAYy6CJV+>D´HAeAdBd~3}6CJV+>D´HAeAdBG>1_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdBG>1_BtHAA´BtHAeAdBcs(_BtHAeA`~DAPA8ACqNV+>D´HAeA`~DAPAP|aFSqv(DAPA8A00HAwu[=gAJRMtc,]I*BMcIA|D:S4}AAQuKA/BNtr9TqTA1[LB:yPWh@Z46yJvF´<c|iBly(XLrvzpk(pAJhGXgzfANJwAV|K&ILk_W?k~jIV%NA1Bs8ERk]oI&adkaJ+G6(v|kn[wM,rPpA5kjBk_4}u+C´35,vYB$wxF$to(PAH´v?t&RAy<mt#WbnjPmc7vOOL0´Fkk|(LL7Fw^R=aX}$nsZlILjB?s)BDZV?m4vW8AGt7XwD`FBANJpRlu^X0M<&2+T)NO!A&C^|cGODJ<0D@ATsAAq´dS&sRtkB5(LihN)|:V<_CtPAN|epooPX=Ct}{u.B)a1|W|lM{MTW&C>Vk_BANW"
  286. Data "1nWtoAG%!.VBhLKb+(bd#Do+q´1F5FjcvW;J/C34&C/V[9xyDtd]cHgF20XUbLBD,}%@kB=v<st1dY$tR*Q|aFSqv(DA;sv(DAPA&{dsDdu2<CY!&RIHXLv5}e,)Mv7F^$B´_hkBK7EU7K2_BtHAeA`~DAPAP|iN>q`´~FSr^C9{U[%tAYiy>~&TtBe5}yf(HAeAdByKk_BtNWIA`B5F+[GGoLAGmxF0;BdB2OKI@AqOv(bLucPM6A4WFL{E#A8?@W~~),mL;4yQJV|L@WF}KVP?D´tW+>D´HAeAc_Pci?7P9[0>VaBAX|8h$j´`;~r_AAlu*cKt(M8A6CJV+>D´pW+>wFGA2:PDuk>Xy(._*>2(p?kBpo`~+><hu1(Mg_D´HAeAdByKk_*CDA8_jkAC+>1E$zc_g~1Wxv8BTLjB/|>X0Kk_BtHAeAdBcs3}Wu9V´FC´hS,,w(uD`~/C{@Z1Q@`>QDPA8A6C4}!A6C4}p?YU(kAAD,eD4AFF6?m~@@Q8JACApZjnBAKtu´&m$+xWeSbC~18AyqR/iYKarA6FR`XcVVxlZM&4K]´X+CfTBtrx9zUE@A.I5(SqlBP##xG<{Q_EZ^MVJV(Wxyts8)bsjBem)B@QqBkuzXOJ6AAA&t^k{´b4{eXjyDP?*ha|p)yF`Bk)cJN`xyPA!A!>U/;/|e;`D5LW]v5Fr?k=0E^X}Axd!Lp1u?Mt%´YAJ&K?GLfA*`F´bsb^O?2k;H}4HOH;QgpA?TvDd5^´B<K?)xB}Z+HAfAg_4[2AMt6;xH}QngOJ5W|e#7v(v|`}e~H`CtPA!A~=AFrPE_<$KAGy7kt1RJG[.}U|jA)>5Kk_BtHAeAdB:&eA]]oBc´~/QJn?wFIs0d_E$wZ+/C@{l_NW8Af(HAeAdByK"
  287. Data "k_BtNW4AX7L+d4SJ^CLtNK0KWtaUSW~FdcA´d~r_+vHAeAt[DAPA8A6C4}!Au+LCgUrrYgncA$Pd#(>B[Bp^LL[*]kFNADR*Q|aFT|kByKk_BtHAeAc_N&(/;BrQo46ly_vcDHNd=~5}#sT3xqc)DAPA8A6CJV*hP((kC´CYGaCYTcAYB5z7tAQtAY%tQY)A{d95AMSQOMuAOtFLQWAw4F(3;nILt/GLeAdByKk_,CJV+>D´NW0A[tCnBAu{4YQ})CSqc_OYI`UA#Ab|>(GLeAdByKk_BtYV+>D´tO;,aFNAXLA´T_011Kc´>(i?jN>~5}p?4FSqv(DAPA8A6CK&6LXh<~]A7J7<DA4}eD4}d~P`AAd~r_*CBAmOv0&yBA´CXL+´8C#:E5dfl|kn:O+_.RL4CcuFdcptR/rLyF$YV?Mzy|H4ro`d#TsHA}Z4?Q^)_hi_KL(,+>|QfAc_Fa]E|aWfz/@Q$A04Hf*DLLO´lg#cJ`eLFAEiXLSq0FNpku!r7?F´PAL|cvNAuW28F!9?oIi6ckdSSG@hh|%$j,&+rP95Y/jB+>5}´yD´F~csxC#DyFRXqF3rBtGLJ´FBW´+e00[D#WcUMc14cv9(ntLG~lVDtB^;kuook0OGTnSX/h@FS`MViu_KT|C´GL@vVZ&X04Ct4Y^;}LSq4YI0d]1xQLbLD=1F0B0s2sFB.r7?F´HA|`BtHA<]((uu^4BAb+JO5F/?r=NJ!_$tHWm>BGr|>(,C}y6CJV+>sFSqv(DAbsoAsck|_´bAyW3(wF|e{u^AHLV~<*QWZ1#*7sZFbqv(DAxqv(DAPAP|+B;vDYf#k?FFJ~oi?D$nKAjBHsjZDLZ?rtu>9WdFT|gByKk_BtHAeANBa];y:]TXC´´B<uJO.I´vAA#^"
  288. Data "Uj5(/C(FBw4q&sZFc|gByKk_BtHAeAc_3k>GqKqtXbhA+BY.(´AYI@C_[|>(|L[(yOzFP,sFc|gByKk_BtHAeAc_NC+>b_4(TbmBoLmXBADK)(MK}s.4_)n_kBSL+Wj+S`2u.V+>D´HAeAdBcsUR[ViA@oEw%FBw2Wm,]AeAeYBBM´/BQAKM8SC5xWeZYB+C}Y_$%FAtp`h+$ks?aFAwUcvsZFbqv(DA7sv(DAPAP|LC:C<2T51zj_QBT?Xgn[L|^~1Wz7iH>|QDPA8A6CGOY4!!=HQDAAGA5RsChRAA4DStqu;tj´Ca1[jAlwDU)yuGVa,>dZHF1AYD;vNJ|Lh<*+(kCfJLs|H4OsCifzEAFPP2.YvkzFV0kuj~XSMLXLYZw(^aZozDI!GD$b$tC=i|),bsCAh=z5$Lr´~L<S{tC^K?GHB´v(HA3}&C/Vk_CtFARX&9PA!A!>2DXLbK]BDt]:h(DHgBjJ|´]@z_xw>r+>F´bsUApVwAKAZp6^ZFJtNT´h^4zl+v}_Sq^t$*349sy|v(<Vk_CtNWPffKv^FYXr&n´CgAnhaF?L}AxdBC>4_9`CB´|LcE8s4FP|aFT|gByKk_BtHAeA]]Etmq,*}Y+aSD{euu3KiAvWwMwKn>_J*tl[E}=WAM,J.;V~{LaFSqv(DAPA8A2>QVBtt´IAN/;HUUY)1EN/BK@A<kKAFFWL.}cs(_:vNV+>D´HAeAdBcs(_C´kJC6Z1RvN)Xc{BLti~IP@Q#}mLjBbs;X0Kk_BtdW+>D´HA2}6C=JCaPW]}w11K^FVD?kO.!~=CM*OLB´2uHAeAdByKk_BtNW8AM8h*O68D^C5(&f!FW}=B)0pA[Bd434WLc_g~fAdByKk_BtHAeAc_|)zRut|9%4htwDAY.<n/=~"
  289. Data "aUosq&fGgY/C2}6CJV+>oFSqv(DAPAP|]9.s^A:&2I5(bh%FATU/_hcFk|#}kU?`2uHAeAdByKk_Bt7}{4BA18AMyw}utB1WknBt}XD5JBBt,AUAdG,7_9$Xxd;C6SQ(;MxFAAlEdFUEwBC´CYGalnoUAYAMJNUI6CwwtBhwtB6u)y@2AY4wCCNJQ<+(W7,AzyCCku*~[)xhAA^D_QHH_K=MGJeFg{tsqCzD|F.v>(&>cx#OuBK5@WEtTXaC)_H/^XwD´}HL@}+vVUp4rS~L0AP(1FSGstPLl1ZtfAhB]K0kBtKW/Fr´NL848PQLs.O´PLiunhfAhB8s=WDZ/BhL1EE^o~(nLB$}:V<_CtPAR|>~PA!A&Cd~H`CtPA!A8<G^(J{J7C(LB<BAs_ECzk5(/CCAx=t~qn$t(M8AI4HAeAdByKk_*CCAQEIdgA^*;uHt;C_ECh>mEB*nv64}mLAA8)Bt)BE_fAxFML;X0Kk_BtYV+>D´HA2}*RFmAAmOZpm`oIRdckQJD=@Qa|hg5lw+rPvDp;#Ak_OWu+uW)sV[/C=B,C}y6CJV+>D´HAeAl/GLB[Mcmu}t6DMtB*5AVp7XnU@w(uIA8N<vT|[sKiDRe]IiRW´CoQjzjBAtc)DAPA8A6CJV+>wF]c>iY)f6{eZv,A2h|VAAlxy~n4C´^X0Mf~r|>(,C}y6CJV+>D´HA{}BtNWE.aFNAzDoANWqW?D&k`~?j(_>@=Z0sZFc|kByKk_BtHAeAc_Q/$_aC3MP|GBB!.Q~KlT$txSVLqGML;X0Kk_BtHAeAdBA$3}@Ar?tpd(]hQ|GBv_1v^AHL!>xi&n3e_XB´jBsZdByKk_BtHAeAc_o%JAbXwAv(´An)EHfTQkbLAGUj4W/CSOEl:CXLMGAAIo[9"
  290. Data "GAhFrA^HPtlAQ<CtaypP,W/O&WAuvDk)mn5cgYuC:!*[XE]´I7{sCOFBz+_sODIYOu,aXy;vt1iA:CQcs)LD4Iponrku^XBw0_fs;?GLrPAwFZBw~F5IuBN*W´2(EwN´7F!u7FAwPb+[uWMvR^/>$FVQ{)xs´]|ziB9tAYe2xF$t`ssJBA}Q|BMAbXFtrc.o}XNB%DknMsMLr?mhh9R]F´PA!A~=DM[{)n}XNB?(:yYZbS´slhB3S@F´PA!Am>vI#PY=CAOa2Bmu*^s`]v<};&:mtF%r+>DAbs7Ldf0k9uuIBz.|pu;~]Kn|v(AW+>wF}XNBD,UHc)6M<SkBF^K?QDPA8A6C4}#A6C4}p?C´g?(O0kh|_.)hzWn(8B$sZFbqv(DAPA~~D´HA2}6CJV+>D´HAeA`~DAPA^LaFSqv(DAPA8AH;NW8Aq&T?]9iP6CDt]UGPv^1p++RA+>.7|)Xq~~AA0kc_1Kk_/CJV+>D´HAeAc_23fC;B8|_z#Ef´9`IhFB#S(H´+vCRFbnx!IL/VsA!kB*GLeAdByKk_7CJV+>D´NWu{TKv^´h||Go´CgAo>aCwAMiBA:gIA,)VXsW´CHB!>kBp1{~DAPA8A6CJV+>D´GAW}4ImOnVWGtc/A?D:Fr*´L5FNwe(6?:C@TZ:/CAGX>[`PQMMPA8A6CJV+>D´HAE>BtFWZ/hb!´@L{E,y2%0RdH@Q#}9WjBbs;X0Kk_/CJV+>D´HA2}6C_)A~6xiyFYgs4<McL&SGAGy|fAjB!^h_yDXLif@vUEC´HA^FBw%FZB:EawDYNV7ffC?hvW|KOAT2QW0n%$0djN@:2YNcIG!mNugGa4rvEvTc1EHE|LzM#P0yS|tAVBO/lRV@?C6W}L:EP2{@f|4rStsBj2(_H43}oA"
  291. Data "u+JE;u3O2Iq´BGuiFFILj(AD*n77nW(|v(NWKAC´CYGaCY]vAY}L#L?h,><vtBPGAYc4nHU0AYyiG*Gt$y79ou2Lm_U/vgxF[`xyPA!A&C1[*CCt`XNB}´4Y2!vyUq))Z*.FU|aLh~OW34&C/Vk_wFsoTXF´BVb)j&[@muGAhgWf>Z.ClubchB]KT|*CWU64Y78YNBhtd/uWWSw2[~PLiu_KSqv(DAPAP|Qjgq]X.hf`aCAA`~SA+CYS?sAAsW2>QV+>D´HAeAdBd~eAc_|)c`SAbTNDDADHA´SA+C9TCAd~r_+vHAeA`~DAPA8A6C4}RXFFeDAAd~nr4(DAKL!>l~r_+vHAA´BtHAeAdByKk_+vHAeA`~DAPA8A6C4}p?D´HAeAZ=DAPA8Ax=G^#t>`{e_sle*$u;.}mLAA`s}s>{W|]X0Kk_BtHAeAdBcs=WC´[rCzS$.SuPX3Ch)s|A[$Xdd~$FAAeiuWt~DROLxFML;X0Kk_BtHA&_BtHA2}N59iDHL?u8J1*H*nOAcKkEnv9(9LDtCB~XQ@^;#AqiPW4.y){J>}{vB~yK2_BtHAeAdBo.eAc_Yxn|WhhS)0i(7otBTHHK1v!}mLC´v(xim?uZZP,C*F8vNV8A6CJVv(BA~+}WbLAAUA#(uub)u_e4hA)_uW_XPci4ADAA]:jHc|cL0KRx4Yis~LVPXLFF2k=<Gt?J*CC´?JPTzyAAs4wF4do_HLj_Ni$KOu?^i}s)+B(aA{dS;1#?/a,C(~!A7L}4bkL,yd|E[tmSECstQO3X>/C~BtCCVAI^#}@@NW)O#T,3HGPPvo2WCGCUGVc>mL´y5dl~jn3};|HAfAg_DAvw^tcH9FBI3OKAY@#D~,XuwD;?KP<2T)xd{2tF%r+>F´ZsfnaGu6"
  292. Data "htee$HO&vo!WCG4C_~;CXX9/@r+>F´PA{QCteZttAY3wtB|vAYc4VdJV&aGRCCoAMHi´AY9w(XJ´fZ*CxFLHGDhTz~[9h}Sq|L@WW`7}DK{KT|v(HANARp|E~AtJDH(7UA%t3}QfXt7~r´4Fks=J@IgByKk_BtdW+>D´HA2}wATX,y|rT~|4+hl|iBDLsWFR#}PA$tfg[@QDPA8A6CJV+>D´NW6>AA*TDQC´hS+aR(i|>(C,$_SA+C1`&vNV+>D´HAA´BtHA2}Wu9V´FC´hS,,e~d~4(/C{@Z1Q@`>QDPA~~D´HAeAdBcs&nN3hSAA8sU(EAxv;_}sPjgq3W.CA´2uHAeAdByKk_BtNW8A=~HAeAdByKk_BtHA}y6C4}#A6CJV+>D´NW8AU_kA+>}P5$=QAA.o&q+9Dto+X4m_+vHAeAdByKk_BtHA){+vAAcIOVu{PNY]bmV8A$@/f>=>Tq,BkxB´AA0kc_1Kk_BtHA2}BtHAeAc_23fC;B3YHx)!CAgAbvOABtqyiNVRAAPt,hAzOt8yaLAA1htI]:6y9(wWbyl4wWOC8Crv+A5FJF+{pLDtk4LXFt5FK?e4YL*HuW.XIA[GEBSWcE8sjsr()xp8@>a4h7)kDH:&+Bd81W[Qmc`BZWBt=~[|vWj!v:v(ln#7ht7´>4^|{Bpt]JVA0.LLi_KLy:Q=xCrPTv&Dp19C#BM*pJG[.}}L4}xyPA!A]]HAN|f+{Kf?>pJiI7V[Q´n=Q`]vT|NW!A&CA$#A[=E5SQxN{MQco.#ngq=BC.T´EM<}lubsq{F´PAR|mB^X^hB=r$#=*Bw]{t`x?hh4SW[*`;yNpzJt%}GLfAhB]K$$u=´Xf:8w!F]iLK6M4W&HNd=~,>n4KLsZdByKk_7CJV+>D´NW0A"
  293. Data "+OAGHOHG0LAG,!U$!WdBAM{)AMOc?B&aGM5Lw?a4O/@X_?$F>~6FVQjB||[)WLk_BtHAeAdByKk_+vGA9d2>tA5FHD[V;>W[F>,[63CAU)/C2}6C4}#A6CJV+>D´HAA6VRQV2´PAr?l>MRQV0A$t()rWqGWLc_1Kk_BtHAeAdBd~eABV~Lr{:B2mwkPAk_B´lAxFfnEA4}`>wFPA8A=~HAeAdByKk_*CVUdNjnX<]XDAe+8a+>r_VGAAsW=~NW8A6CJV+>D´HAeAc_=&`@Z1Bt,@1EAAT?lAxF~~GRAA}sP(hqv(DAPA8A2>HAeAc_|)$_SAAAnr4(WL@Q$tH.}sP(hqv(DAPA~~D´HAeAc_1Kk_BtHAeA3(AA902N/VXLbVDHd/6nXLfj(Iu<@Q5F4AWvo+LLFB;$LB%MjB1[ZBNt+>*}y:PW)>Yt6tRBAAIs8c0Cf71(4UctRf(,yFII01Tj;hNc/*PA6CxFYZGA4@`2EtD*i|),bs&AFFoAy9Rd=Hjt4oY47t6Eet?´LG~lqG´C^;,v@@k0OGTn[X/h@F0?bE.C(~!ArL_Kqp0EEAWx/9>vk_´CMO5:bSvs2WE$&^ODY}.|LC1|Z*HAfAU_F6@@.$dS5F9WvW$c=J@vAA0E(1SX|LQ)GDc@K?GHfAhB|rPwQmJhpA$AXHm}AA@Amf)c+>]v.}bSHPj|C3K?GHfAhB|rPwDY2:k?KKD;65}xE´K?EXuFZ+^2(F+`6r7?F´PAz*xypBzD[96(;T*BRzCDJY>y[AQL2WCG.}k~zK2_BtHAeAdByKk_+vo:%Ny´f#$LTX+hZu|LqKaFv}}sFBBw{!/[r_xqd~p?D´HAeAdByKk_BtV;S)Ad?h`´~FVdoA´ySL)(MKDRVtdB´sY}rIh*C,S`2u"
  294. Data "HAeAdByKk_BtNW/h,rAM+cAMAY8Yk´U6Sq@Qw?Oc:C}c:CAY26@oGO0)xo4};vKIs?4FosZ*tEtAg´AYe2jBsZ!>DAPA8A6CJV+>wFGAWqgn:w/DI4a42>;+w56V}~gtT6^|=6HAeAdByKjn/CJVY4wF/}@XKKr/@Q$rS|h!VO8)/CoW`x_R#A2>HAeAdByKk_C´GLbl2ur8^?1E#zc_.h(_$tUU}s9~HLv^:K2_BtHAeAdByK[9*>vIBtp.AEv(QJjN3>#}AtPjgqJAjBE2<X0Kk_Bt.V+>D´HA2}5`;rwCAA&~gNMc>qn,/CGGa1Q@`>QDvWAAE!.GJIAAHA_E)H/W]tRXK5Yu*}3,d6Sxy(3}A´Et3}+C9~[|w(bsjBpF4}j_`KT|v(NW!A&C/Vk_xyAt+>F´PAR|qF3r+>GLfA~~F´PAR|qF3r+>F´bshB9~fAhB8sy|v(DAPA8A8<H"
  295.  
  296. __Jabmp:
  297. Data 12,1,84034,8615,"Base91"
  298. Data "uy#ye2quUA$A[9uH*h@AUE9A/lCAjACAfLgg}KFAqi~TuWUE/F~FBAB´,AC´´At5d^AAC´zLAALhJAuW{WBA]q+hI}JBAA(3eABtQVAAN/$bAA1V[CAA{]N´v8BA95[55F+BgguBbAC4Gaep*hy>h~P{Et8e*h7,TlCc}EUxILJV/CfzMjOyPs9LU4)}+>mWT|D/JWjt54bMhBm>fAhB]KT|AABA##E@EL3}a+HAfAhB]KT|uWCAOJ:X=>cG$DW~P?F´PA<{CtPA!AgANpk[p=DMIc)97r+>F´PA!AdByK6yfAdZr`xvNWEAO+YV+>4FSqv(DAPA8A6CJV+>D´tWXLD´7{Q|byxqv(DAPA~~D´HAeAdByKk_BtHAeA_sGWO@2>!r5^D´HAeAdBd~fAdByKk_BtHAeAKq=K[9*>KH+>bFWqv(DAPA8Af(HAeAdByKk_BtHAGAD,B´#_+vjs8A6CJV+>D´HA2}BtHAeAdByK+>Bt9~i?u(i|4>DAPA8A6CJV+>D´tW+>D´HAeApd`Kk_+vEAJ/]NLV+>D´HAeAdByKk_&CJV+>D´HAAMxzeT~~wF]nhByKk_BtHAeAdByKeAdByKMcC´[irO[Dy:C5CAAAtto6V/BB{6XLexk}Mit7sp#C%N2%[xSs;n?s,}*hJ´{h{YJW[$N|}VjB2>b~5MCA(ra?F´Ts+>F´PAiAz3lTL|ADTElu^KT|v(HAfA$Anr=^j_F´OD.v^KT|v(HAfAw<BAj^q5GLY7gI<Vk_3F3r+>F´GAs):xNW0A8s:VA?D´HAeAdByKk_BtlW+>D´HAg<+(BSP|aFT|Ux`Kk_BtHAeAdByKk_BttW+>D´%S!A2>QV+>[mPA~~D´HAeAdByKk_BtHAeAL|Y=eAc_1KY4Bt$rB?"
  299. Data "D´tW+>D´HAeAdByKk_BtHAaWiW!}oiAcTqa+DAPA~~D´HAeAdByKk_BtHA.{c?kRa6DAoI||v´dD~~nsPA8A6CJV+>D´HAeAN[DANAf|fENAlJAA|;G^x´GAt`DuHAeAdBd~fAdByKk_BtHA`=kW%SBtuK?DiByK)OYI@VD?4FSqv(DAPA8A6CJV+>D´tLXL´K$kAAD5PAuW5ltC2mO6ktBA´X#D)0.MPAy:OtCtC´ls{u<sraZDdZ3[E#3Wu4PAGJX#NGq},+PAiA;7MLp!=4PA:CQ|T9_e20fA!AnDEsO2´K8MWW&>MHY+<Vk_CtPA0A7?´&dzQ6PA@Q$QW|/?cFfAhB]Ke+uWm~.L!ECsv(t/y|1_/KW}CtPA!AKC%tS|2[SsSKvD`_0A$~`}v(HA.~v(FAw}*vB3!Av(VWTLa1oV+>D´HAeAdByKk_$CaS+>5mOAd~qFAAqm5y2kuWL>x_BtHAeAdBd~fAdByKk_E4HA.:n(R&B`4FSqB@DAPA8A6CJV+>D´NW+>!xn}pdp>TRBtGWj4^E6y9,zKk_BtHAeAdBcsfAdB/VO|Bt%S!Arv{Dj(BA&}H?D´HAeAdByKjn*CJV+>C´.r(4D´)}n??Q*rv(}JfAdByKk_BtHAA´BtHA@:9hOV~_BAx%ni9~RqfByKk_BtHAeAdByK[9/C:CY4G4d|P=DAJA1*>~OA1*qFSqv(DAPA8A6C4}#AwA/Vp[C´0;fANx`K@QYI5KuWr!VH7Kk_N?D´OAdAD#ELv?WhaNv(6Iols#.hd^y(;V]efWS;uA:yK#(?_VAAV`hGKMg_msjnAA;´.i#u;L)^Ju0sx[YW#|v(iW@QBtLY[)C$S|QA^|c|e)gs._CtPA!AIA8<{|nY{sQXBtssR?RW8~v(HAfA"
  300. Data "A<W(FwQ4bEXL`u92pXd(l|v(HAeA^#cWy|:pCAZ}[t{&/_4FJV+>D´HAE>$C3r2^D´lW+>ILPAAAVxjs8A6C3r#A6CJV+>D´CA@{#uGA1F@~PV+>´xPA1*qFSqv(WLk_BtHAeAZ=63}_wy2T/~D´EA(~*t&|9A6CJV+>oFSqv(DAPAX#oFC´4EA´=mdBFhv|BtVW8A6CJV+>4FSqv(DAKsEcig(_kvHAi_Bt{Tw:R_aqv(DAPA8Af(HAeApd`Kk_=*HAeA/t[)Bay6_C_LaFSqv(DAAtv(DAolZZ13t|BtHAeAMsFhW/BtUVP?D´HAeA3^DAPA0Avz7M0A1x/S~~D´HAx|7CJVO@D´HAeAJtAA$x]5(f5FDDPA_EtJ0k1^(gEo8PRAcwlkwZ6AibfAT|!aU@[bO(cs#BZ%[|3>PAU^4/~a]4CLAA(~dESQcZ2QXL5$wN9~[ENALnM<rsi]uHfAhBvDN/#:YNk}@xrsdB2er8.@HAfAcA?zLs)Aq(:5gBPD!~8z´&?_CtPA_iBt}r5MrWu|AAvDa~7X?&?_CtPAKA/=$F$>C´j~8_BtHAcAI@_Jk_R+YV+>D´HAeAdB^X6!M/fUAA4TPV+>D´js^;9~+}h1[Kk_BtHAeAdBG>;/tC1[RxaFSqv(DAAAGW6>5kBt8s4_BtHAeA`~DA)oMq^}}`=*HAeAdB8<DA8)TEaA~*aHeAdB!mfAdB(H@Q4>dSv(_Kf|kByKk_Bt{T!AYI@V+>D´tW+>D´%S9^:b)r0)DAPAZ~D´&|9AgAmum76CJV+>3FSqAAD´OWJ?!xPA8AU_HAeAk0khZ/AA4K5_Bt$V+>D´HAOA=/YFaAw.u(7_BtHAeANx`Kk_A+HA,`BtHAeApdS(^hC´`iXKxA=/l_G´<CBxBA"
  301. Data "VP*NCQy:MjdJq]yDAA/}ayM$XZ71rrg+9y[^n)gVO@7E0k)^wh(|JyEAl}!C^0luHE[9M@dKY}1.EA_St[oNJvqF&a*hn(ynj{UR!A*B@@c~U)5iA_DA3{h_#GT)&CrPBHs99Wi](IfA$A{>4V+{gWr|BtFAc|#Jsu4yf{PAcA=/FW7`UxHAeA+{DAEAD^vCNA,?FEPA:{D´HASA++zEaA[*S3A´BtHAeAdBFhv|Bt0%9A=~HAeApdS(w_=*HAeAdB!mfAdBvD+>5$dSBt>.e|kByKk_Bt%S!A]6?V+>D´pW+>D´HAk_sBHAx|7Ch=!A6CDHXL6Q6kAAuyd|kByKk_BtHA/?&CK&B`D´tW+>D´%S])nb*}n)DAPA:{D´HAUA=[kFaAj?rI{}BtHAeAIA%N4rDXf}2}wyHAeAdByKv(BtKV347EY4ME1Kk_BtHAAMZr;rv4D´,}T?D´HAeAw}DA]n0}OJXLCOPV+>D´pW+>HWPAu{2DPA8A`BSqceG´RA;FDwOA,LzjlED´dFtYvvE$(A3jEL?7kc5]Aa,E$@z&R´<si@jsBAQERG|tg_ie+>cnf/J/(MK~uyjsN@Dtss[XC44ZoCnby@SvKtq8_K{e*CDHN/f(ynOqwJoIN_,I@_(wPA!AFB4Y0RZ}fs&XJW5}D/Ts!A&C=/aADX@s9L1F^h*h&&Ehf{*O!A&CyK5F$h8}?@gFSqv(DABA:2_ET|P=WLk_BtHAeAdBFhv|Bt{TA´D´HAeApd{3t|5uHAeAZ=DAPA8AKCrPuKRQS0}~kJeAdBz3t|Bt%S!A6CK&9A6CJV+>D´[V84BA[}Q9aFSqv(f}6<E/,V+>D´lW+>D´HAeAk)lGx|P+Em#AqC_)B00EBtmW0Kk_%CJV+>D´HAeA´6=K5F"
  302. Data "!~Hsh?D´%S!AU_#V+>D´dW+>D´HAeAdBUE&0wQ9}#$aFT|P=DACngByKk_BttW+>D´HAeAI@5Kk_A+HAt(wy}F@4`3aqv(DAPA8AWuHAeANxfMbJ4/lZ*hW)dfw([N*15B{eaLS´A*dB9I.GUa~y;/P4j_JA2uvR/QA4#t!hnsXLBtX6LjoHMSBcM(c!]9.~)@J´BA?|8H[rJjAA}zkI7K.}L*HAfAhBAgBAg_BGy|ZAscha1[tW._CtPA!AW+}VC0E4ANW+$~k|v(HAfAQAGu*~!,QW6~;{v$#A&C/V[9C´kCXlGxLsw@QBNA^?u(Zqv(DAPA8A6CJV+>D´$VO@D´js8A{>(E0A1[B´J?D´HAeAdByKk_BtHAA´A+HA>@~6j~]>!xPA8A=~HAeAdByKk_BtHA>@%Cb#DA`xAVkAvzjEX#pya|kByKk_BtHAeAdByKk_,vtW+>´xolhB7f(_buHAeA`~DAPA8A6CJV+>[mPAu::~Cnt:#3t|auHAeAdByKk_$CJV+>D´DA`|_uGA##G7bE+>;b)r`?EFeAdBcsfAdByKk_BtHAQA))!Hx;AA?&TRBt/}i4D´)}P@ZFSqv(DAPA8A6CJVY48DoI[)PJjn1$`2jur!3xSChNvDHbGOl5!7CAzX9Fv(Z+`oi_BPOA´}WR0X+Q}Kd´m`.N#ANBZF?wMvCK65.5H}x[$N#AVB5l0xIrSJ[)VnEmd=~KT|v(^VY4Ctks3Xya2L>hasBRf+YVhB]KT|v(GA.{x[7kC{Un)q{]`K$$)C/V+>CtssO@HZDU2hD(v_6^PA!A&C/V6yq]Dk3?DL{|AX|~$_Bt.V+>D´HAeAdByKBtBtu~bsbylOZ+UBiOqFMV+>D´.V+>D´HAeAdByKjnC´#m?@(s3dcnn("
  303. Data "1kBtjWw_/CJV+>D´HAeAdByKk_Bt|NXLDL$kBt/5/{/6GA&>V_#V+>D´HAeAdByKk_,CJV+>´xPA1*EXTENB4}q`DuHAeAdByKk_BtHAH`BtHA/?&CrPBt´L+_=+|Aol)ozKk_BtHAeAL|DAPA8A6CaS*hVn$kBtuD[:n(|ra_D´HAeAdB:&fAdByKk_BtHAw_RCHA^~HWHAk}´tHAeAdByKk_/CJV+>D´HAeANx`Kk_BtQV~_D´HAMAFhkYNcJtquE5J´%JX%[PoI?b5SVLjJoIp%;}#tsWksuWF´si>]#s`}R@F´PA!A9B/VHoD´K?/&pF3r+>F´PAkA_<t()cCt*}Z?F´PA!A&CO2pAo@LUmA9BSW7_CtTs+>F´PAqAH^bUkAv^u(6_CtPAeAdByKk_BtHA>EC´J>!_BtHA{_:tHAA´BtHAeAdByKk_BtHAeA`~}J:?&CJV~_D´HAeAdBd~eAdByKk_BtHAeAdBDHA´lvHAE>$CJV+>D´HAeA`~DAPA8A6CJV+>D´{T!At~FAu{*tHAeAdByKk_BttW+>D´HAeAdBFhv|BtTs~~D´HAeAdByKk_BtHAeAw}DAPA8AQA8<k>6C=Jv(xKn}dByKk_BtHAeAdB:&fAdByKk_AABAdq))DA=QBti~r_BtHAeAdByKk_/CJV+>D´HAeANx`Kk_=*/&`>D´HAeAdByK[9AA+i0DWOoIDTDN[9YH5l9C2uA{C~Ve>AI0KWH}<*PA#AwA+uZtWZ3QM/xFcs+>BtMs65.hB´a)HAfAhB]KT|v(NWSAf(k~H`CtPA!A&C/Vk_49B´^]F´PA!A&C/Vk_#.spA´F´PA!A&C/Vk_BtHAO@^~HAO@$CJV+>D´HAeAdBd~fAdByKk_BtHAf=&C4}´_4FSqv("
  304. Data "DAPA8A6CJV+>D´)V+>D´HA5|uvHAGA!u{LNW6CJV+>D´HAeAdB:&fAdByKk_BtCA6_tvHA#hC´i~r_BtHAeAdByKk_*CJV+>D´HAeAgAemyn`~DAo`gByKk_BtHAeAdBd~fAdByKk_Btv$s(aFT|V=WLk_BtHAeAdByKk_BtHA;~BtHAaA[`)JeA@Aayy|kByKk_BtHAeAdByKk_BttW+>D´Ms8$aFSqa+DAPA~~D´HAeAdByKk_BtHAeAUkkYw(Btquy?H´zTe!(!jnrPfAe+mW>r*hF%$.BOC$S|xFtp@Q}TS}ui8y]|xFIo[9p|S}AMvJEh&C/Vk_Ct/s*hE´@}*)CA_sa?F´Ts+>F´PAgAk)FWyA4.;s8_CtPA!A&CG>GJ´~{`QBN/Oj&C/Vk_CtPAaAo}csA`BtEA}__tHAeA`~DAPA8A6CJV+>D´HA@:`~HAeAdBFhv|BtHAeAdBcsfAdByKk_BtHAEA9[|I;~BtHAUA1[:DeAdByKk_9CJV+>D´HAeAdBAAC<7M@J5Fe1K&B`D´HAeA`~DAPA8A6CJV+>D´%S4y*_NA:ylt!DNx`Kk_BttW+>D´HAeAdByKk_Bt%Sh|D´FA%LBz/r0(´x.C(ozKk_BtHAeAdByKjn9CJV*hD´!r,9BA{CXeAMRD#hNJC´Lqe~fAdByKk_BtHAeAdByKN/|Bmu.v1E6y2[{X>!WLjSY4dyxqv(DAPA8Af(HAeAdByKk_=*HAQ+O?ru!ABt>pe4r!MyVBs8CtLt´V8$BAvhvuC´:r7j#~CSCtvGIo|tuwXjA4zZ!^BajBOGmu9#PA3Y*oS9}},+PAhA%`@RYUtFcYXX6I#QdB4>gq,C/Vk_CtNA1|uFiN65gtODTLHWI`CtPA!AaCDH*{vy1P@XAM4|"
  305. Data "1´8JY}>)HAfAhBIISq`/}9,LU$´v`[KL]|$><Vk_CtPAuA[`kR]2@6´vY@oNk|F/DAPA*`D´HAeAdByKAAk)]H{@wy}VAYWqCHNB.oA´TuHAeAdByKk_BtHAeAc_gJfAKq=Kk_p$HA:_p$tW+>D´HAeAdByKk_C´CAjp<)PJuWx$bE*hT(3[UB1RGo6CJV+>D´HAeAL|DAPA(7qFuWBtD(&_yytW+>´xPA8A6CJV+>D´HAA´Bt%Seg.b)rv(}JfANx$~fAdByKk_BtHAeAdB/V7$,C.oCccWERuW6~;>U(AtI?D´HAeAdByKk_BtHAA´*vHA@:&CK&B`D´{T!A=~HAeAdByKk_BtHA@:&C4}(7qFSqB@DA]nZBdZOPE´bA[vGYHA<F<!sU5FlFaY^|O=dABl^3#%NZXYZ`HGtgu(d(B0v(eWNjs(=}Y4FDk_CO#k@@DAdZfN^K,}#@F´PAKA(vBMk$´s~CXLvhL´[X_KT|v(ZWk_F4n}T?cRy|R@^M|`CtPA!AAA5lX}h*h(udBtX~Qi.hj0&C)0#A&CeGvdXE~}=)AA,C+`^Q(0&CyKk_BtHAB7BtR&p?uF&ndBUEBtR~.F0AI4{L8A6CJV+>D´tW+>D´v$9AU_#V+>D´0%´~D´0%9A6CJV+>D´HAeA<UBAA~eXDA#}&)DAJA`~SWo_g*FGeAdByKk_BttW+>D´NsMQ#mcq&)DA,}`~DA,}dByKk_BtHAeAdB#^fAZ=_Jjn7>PVBtILo`q(=O>@%CJV+>D´HAeAdBk_BAk)tGE>=;PVv(BAZ+B00EBtmW0Kk_BtHAm}BtHAeAY@lGaA^,sJA´BtHA/?gI[&B`D´HAeA`~DAPA(7qFbqZ+sJeAdBd~/?&CK&B`D´HAeA}AW!0HCtIA_vBYHA"
  306. Data "[F.!hlBtdFmYYk+6[AuOO4tzZbXYN`S1lZXx`r[v}6qNZxCLkwXjPL1!´s2i@QX5}1ocFWGU?>o9l%NLj&Y4mhK?L|FT@QY>0R(?qHfAhB?D:Cs(y{7<RyXYN@~K]|v(HAKAr,4h34u[qUuWP4br*JK4o|v(HAHA8}CLF>G}HAAGu[DM[|qF3rY4nC{e*CPJMcfWPV+>D´1TY4G45kv(?V;{BtHAA´BtHAeApd`Kk_=*HAeA`~DA]nhBFhv|BtHAeAdB^|fAE)gJ0[)QPV+>D´HA8Q>sLUAASLOV+>D´HAT~BtGAq_juGA<_OvHA0{BtHAAMG0XI0AqyB´T?D´HAeAdBz3t|Bt%SA´D´HAeAdBFhv|Bt0%9Aw$HAeAdB(HN/=;dSBtt>_hdByKk_BtBAh`HuGA&>fWOV+>D´HAeA.A8so]cBQ@t(6CJV+>D´?}8A=~BAx|7CJV+>D´HA@:&C3r*7qFSqv(DAPAuu%~p|Qxoh5_BtHAeAdBvDY4xtpKT#Xouc58AY7BF%yYdBNJH7VIU)RXMER?LAvz>^fj.h1]eXVVou54sYDchZy|x.inwAxt$iJCp70[.AX7Gr*p/sd%v(r(SXn(DbBtu&2rR*ER!A(#~&UR}b48kB!GoIi_v8:vqFdZuW1m{r..MR!A=B{e6<R1+}$`DAIA4_$vo+V}vIfA}A@$~&@@,IfAx~D´l~PX(~q|v(DA5|[},QaA6C{K7_BtHAeAn(IW]kw$,}W?D´HAeAdBd~FANxohv|EvHAeAdB1Rw[(_MJB/B40rv(DAPA8A!{CA?`buGAv~GvHAeA`~DADs|z?2t|@uHAeAdBd~fANx`Kk_A+HAeAdB:&/{G7?V~_&DPA8A6CJV+>´xAtv(}JfAdByKk_=*3I(7g(PA8A"
  307. Data "6CJV+>D´FVp_#C|][ETL8_BtHAeAIA0E|sDXDAuqn)DAPA8A6Cb#vAPz[K0A@wER8A6C~l#AQATX)haC:C$aaFSqgByKk_BtFAX`xFjs/`?Qeqv(DAPA(7qFT|P=DAZqv(DAFAKS1z$+uWZM8AJF;vY45_78mZv8=A_@gZ88pciHAa&Dj{~)cJj__PAAc|y>gs7$Dt}rZZO].`Ctriy3d8n.AsH´LYud^9g=?;QV+>q7lehB]KMcv(VWMip{CnRBp`OjL?`O!A&C=/WA9Z8ssCj_cjY43&X}..=O!A&CNJv(K4.TH@<JZA7TXGq}g*HA<~BtDA,}VBuWs/6CJV+>inxqv(JWeAdByKk_BtHA3~AAo~d?xF6&f?D´HAA´d$HAE>$CJV+>D´HAeA2{DARDoWPJAA`e1K5F*CAA5F1hcS+>_Kc|iByKk_BtHAeANBCa4y=~{T!A6CJV+>ELn}Z=5Kk_/CJV+>D´HAeANxohv|ivtW+>Pse^sd$~1_BtHAeA`~DAPA8AYI@V+>nsPA4A9~m~|>PsPA8A6CJV+>D´nW+>BA;yCOS98|$)DAAt`?DALsdByKk_BtHAeA`~DAPA1*qFSqB@DACngBd~F>$CJV+>D´HAeAdByK@Q|bVGAAWfJYgAJFwA_AjX)Y%WeD*hvblt;v9Cx7l´ylz)uw;1j_FA=p=rBrhsf^k*n}jBQAxd~{zS14AOM4^$GchekBwAnb~#BDL}P?eDx3h1=Vk_CtPACAl/qP#3(h~Cv(W!%a4$}Vjn2F3r*hOWJ}{u:~bGC´EOD0U)sZhB]KT|v(AArL?>>7z|qFAAj/.9$dFV_KT|v(HAFA%5.sM!F/HAkr/WDA?|.`zKk_BtHAeAdByKk_BtAt5^D´0%H&_bWq`?oFeA!>DA"
  308. Data "PA8A6CJV+>BAAAD|kW8r5^BAFA´}0tGA8}M/MV+>D´HAeAdByKk_BtTE+>0JOAF`8ly|,(PseA`~DAPA8A6CJV+>D´HA/?Z=HAx|/.JvOj0ExG$>e~fAdByKk_BtHAeAdB:&Oq*C3r:9BAR&j4BATVI?4FSqv(DAPA8A6CJVv(ksUI3+6HaA%*%K@:&C/`TAn7hK8A6CJV+>D´HAA´BtHA/?&CK&B`!x&Hpd$~fAdByKk_BtHAeAdByKk_aI@V+>´xNA%x[´[*uUbFH7AwmAmt7PDAa>BtEA)|Cyt~%6D´<´ODMV3|4_´Vq+3]@N#ANBSqy|Ly´rjL;kpSfX`~5|D´F´2eP@U/7{.(EJ]_!vPAn`CtPA>@7E0kK]SD!~5$}VO|CtPA!AaCnb3dK/<5u^740RP;5K!Am{HAfA5`vci,0ka}DhP($}8`F´PA!A&C/VdGOp>3Mjh(cLU41Kk_BtNW+>D´HAeAdB_EuW~bO;|s%yBs_<YB@:&CJV+>4FSqv(DAPA8A6CJV+>+b,sBt{JAT*v!rD/Ps,o|~DAPA8A6CJV+>D´HAeA%lCA_|zXDA~1@XGWQ/pCe+r(ZFSqv(DAPA8Aw$HAeAdBeGv(VnoSY4$~5}pdS(s`=*HAeAdByKk_,CJV+>D´HAaA8_#IaAK&1AoI^e:&/{BtHAA´BtHAeAdByKk_BtHAU]/|kR15DAJV0(;´´H8A=~HAeAdByKk_BtHAeAdBd~:?yC4}p?D´Ts8A6CJV+>4FSqv(DAPA8A6CK&B`D´`}S)BAjVB?D´HAAMc&.wAYPAL**tDAAA{<:F$^xIjsA^yhi~aerJE02>vI`|l+PA0A´Kh}cGVLksk_BAFAk`ZWNW__KvPA!A&C/V5FD´G`R|@Dgg0r^KT|v(HAQ~v("
  309. Data "EAXw$>oNuW~.8rkB]KT|v(HAVAc@GLTA9h+se|v(HAPA8A6CJV+>0FSqa+GLeAIAaSQNdBd~fAdByKk_BtHAeAdByKk_mI@Vh?wFd^0=WDeAdBd~fAdByKk_BtHAeAdB=J+>)%OTP|.b)rv(DAPA8A=~HAeAdByKk_BtHAeANx$~3}]6?V+>D´HAeAdByKk_/CJV+>D´HAeANx#s34C´FO@:&CJV+>D´HAeAdB:&fAdByKk_BtBA6}qvNW[~C´&r{>D´HAeAdByKk_*CJV+>D´HAeAYAGOin`~GL<{7CJV+>D´HAeAdB:&fAdByKk_BtHA!}svNW~~5mPA8A6CJV+>D´HAYA#LNNNoEAFMgAAA~Fg!IKO<[CX7${G[Ve=A(3ZR[{i*n}jBHLrPuWrp@{Mvt~}_EtfAYA<st~H`vyPA!A&C/Vk_Ct&QC´T([ab|GDfAhBx9fAhB]KMcv(o}GomW8}jB]KT|v(HAfAsA>Gas_snhb|v(HAfAhB]KSqZZSqfA"
  310.  
  311. __Trbmp:
  312. Data 13,1,84034,9095,"Base91"
  313. Data "^x#ye2quUA$A[9uH*h@AUE9A/lCAjACAfLgg}KFAqi!UuWUE/FscAAiC]Kv(,>QA5AgcC´e´4PGK|LYACKkU=L2(C8[9Pt//rKfzyBZV7f<fR´8vknQtRn~KE_4COWT|K/QtB´](h´m<DAC´EY!}J´cAjA*hUWT|w(AtC´w(bsjBHL3r+>GLfA~~F´PA!A&C/Vk_CtbshB9~fAhB]KT|v(HA3}&C/Vk_4F3r+>F´PAR|qF3r+>F´At+>F´HAeAdByKk_+vHAA´BtHAeAdByKk_BtHAeA`~DAPA8A6C4}p?D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_6CJV+>D´BAbH!|.(AABtkc3I9~1}1>Atk_EtfAi_KL4}+>J´PAA´xyPA!A&C/Vk_CtPAR|>~PA!A&C/Vk_CtPAR|qF4}kB]KT|v(HAfAhB8sy|v(tWk_CtPA!A&Cd~H`BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_/CJV+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdB"
  314. Data "cs(_/CJV+>D´HAeAdByKk_BtoV+>D´HAeAdBcsgtPfG/iKAAb#k~bs#A+C9~S|yFcsk_H4fA!A&C/Vk_4F3r+>GLfAhB]KT|v(HAB´v(NW!A&C/Vk_CtPA!A`~NWbZpF3r+>F´PA!A&Cd~S|qFJV+>D´HAeAdByKk_/CJV+>D´HA2}I4JV+>D´tW+>D´HAeAdByKk_BtHAA´BtHA2}I4JV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~GLBH6CJV+>D´HAeAdBd~fAdByKk_BtHAeAc_fsm_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_fsm_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|PWTqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}I4JV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_UtMV+>D´HAAS$5b,avVAAAnJ}~b~,>J´B´w[J´fAi_KL4}+>F´PAA´CtbshB]KT|v(HAfAhB9~3}&C/Vk_CtPA!A&C/Vk_u(+r+>F´PA!A&C/Vk_xyAt+>F´PAeAdByKk_BtHAA´BtHA2}6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~GLeAdByKk_BtHAeAdBd~fAdByKk_BtHAeAc_1Kk_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_1Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeA<)DAPA8A6CGObeYSRBAAemQWz(3})>_~fAjBHL4}w[J´fAjBpF4}j_`KT|v(HAfAhB]KT|Z+tWk_Ct"
  315. Data "PA!A&C/Vk_xyPAA´CtPA!A&C/Vk_CtbshB9~fAhB]KT|v(DAPA8A2>#}#A6CJV+>D´HAeAdByKk_/CJV+>D´HAeAc_1Kk_BttW+>D´HAeAdByKk_BtHAA´BtHAeAc_1Kk_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_/CJV+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdB/VeAdByKk_BtCA*L_1P!AABt?FEBaS[/u/HO>og8qAv=V2ZAiG<vAYbLAGUE_XEMbL´I8F&_R´3}RB1RRwAAC´C´iBBAEA;vtB,YP`(wfAi_8F=WeCaeYg+`JCN/>jDjn9LtdGR4hsk_xydsC´tyAY#?82x{Aw7ASqB´OXa4@XyyBM!G.V&C/Vk_Ct7}N@DAIAgA`ZCgZGmy%C55AA8seWgv2y3(~&!A&C/Vk_xyPA(=rb,WQM.gKc%CBA/`u(NqtCQw&|z[F´PA!A!>@VY4Bt1BJVP_<~^sCWAAp1s_DEBwbMhB]KT|v(GL{}BtHAeAy&;Ac~X+rh=~?$$}=@D´HAeAdBd~eAdByKk_+vHAeAS:eLeq}.,$O@´#7yc_d~fAdByKk_BtHAeAdBcs&n.CJVXLuFfcFi/K[9.CLjyPm>Vqv(DAPA8Af(HAeAdBcs(_BtHAI}:&hWN@D´:&SW{.hqv(DAAtv(DAPA8A6C4}p?D´HA4eAAcE;|*vHA5|}r.C@>oBPA8A6CJV+>D´oV+>D´NW8A6C:CXLmA<%s{aFH7+CP@{}6C4}#A6CJV+>D´HAeAc_1K"
  316. Data "[9*CVxp?+9hqAAkhXrq:WLk_BtHAeAdByKk_BtNW_}D´HA5*Lt~&p?BA0rQL<.hqv(DAPA8A6CJV*hP(`>jukj`QRGe+B5:~QqL<KAM/cxhZBVGA_)5FgJ,Wv,Bsk_)VfMP`Z&<{qBJ_M{c?^EMc*t_~eT!s_I2F/`AH^wKnv[;W8A9h$1B&tKhHm=?)p&.V_´`!+C3LL|lE2K,.`K=2WECAlB)AAA4A`Q@itB5RMsXb}s^KT|(C/Vk_xyIAy<qnm42DC´;vAYgMAJKABNAGuB$A5q*}8sW4Qt&|iB]KT|v(j~cG09@hiB_gjFBA´F7L(t1k)M=COC;(pi[qAt.sr{2F3r+>F´bs{qT4w&%5!({gL´PvG>}B5F/o#FO/(oOW|~89rs+>F´PAR|7CBth[EL}TiBQu@:Q2JAC)2~OW}}?mPA8A6CJV+>D´}V+>wFPA8AeGJH?|gFRQ@X^E6LP2zEV`H´RY~h<~´sm(7Mq?&CJV+>D´HAeAdBG>2}6CJV*h3bm}6aALbnV%Mp^P/Fh}_~]|,K_NKV+>D´HAeAdB:&fAc_1Kk_BtkUE?zQO}2Odh>(9A<oE_x<js~~D´HAeAdByKk_BtNW8AY.HAw{g(Tsu].hU|*W@gs1=~a#C^jGPA~~D´HAeAdByKk_+vHAeAu{2i0_*vGs#^PKPA{e#F9|u(J4._BttW+>D´HAeAdBcs(_BtHA5VDwjsHvtF5r8)DA2F])1LN`yyHAeAdByKk_,CJV+>wFPA7^rIn}9ZVKC}D4HA3XAwj~T}4F*rv(DAPA8A6CJV+>wF%qv(Ts<{3!vgB{A^0HA.HAnO[l857R6F9pBAAAFfKu<sG%;A=~@X3?8Yity*n8/_G(({R@HMn1u>}~I7?Rs_4o0RI`q(c/5M(w4{"
  317. Data "H!4ACpSC^3rY6?usk_H4kca_X}CxfEcGLL2h5r+>F´bshBSKNPT#KWO@#C^X<Qj(y|(C/Vk_xyPA}e~u7q`_S|I`SgtP$Q1hLVhB]KT|Z+HAB2),12o^K7a?N9Xgp}^(HA8~v(NW!AMcI7udWL:WBt&H7}e/DAPA8A6CJV+>mFT|[)DAYd=)JWw{9sMBswaFSq{(kjhH6C4}#A6CJV+>D´HA2}6CoIE/J/+rE<>7r_stHAeAOWn6BH6CJV+>D´HAeAZ=DAbsdBZlEqZ19u65ZyXrZ+DAPA)Y~XuD`~DAPA8A6CJV+>D´NW8AOmCA/`a1Q*S))>@qv(VLAAC´2QTqv(DAPA8AU_HAeAc_1KMcb18~`L0QrsZ+DAPA8A}IaV}>D´tW+>D´HAeAc_1KjnBth&RZDL^sZ+DAPA8AO2&}jUtFSqv(DAPA8A2>QV+>ykQrOxGW^|{uHAeAdBk_.z;?mD!A6CJV+>D´lW+>wFPAAIrybsJtgh<q&CJV+>D´m/zL{LP978^jaCAA4YfH=sUZ$ACqxFDDrSZ|Xd%N{0h:B,´WOsnIt1Bw]im[1ar(OzQA_@k~Q^C(d~eGGjN{gl%~k|DcDAt/=9Qs#~.dc}}sl(]T,Cd~S)AAK>1@c7RK)}DAPsBh%´CHhB]KT|!>[&O|29PA!{?{kB,`RWfAhB8s=WuWZV>@.|PAP|E|}~#`F´PAR|gjEAp`´$,}n_>zfA2KEL:sD<SHeAdByKk_8C4}p?BA|{1}sFAqsh7M)O6CJV+>D´IW&>^)ANeByKk_BtHAeAc_J>fAggHh&B4EpWV?D´HA^~BtXs/~gHPA8A6CJV+>0FT|[)DAcpZ^X)3}6C=J#A6C|;S)´~}}}(DA[qv(DAPAP|Q(hquWwU^~FL!O(^dUPA8A"
  318. Data "6Ch=#tA_^s*IgXyk6CJV+>4FT|[)DAcpv[.h(_X&HA]_BtHAq}<s<prBMCn1E&yKk_BtHA2}6C.o!`5i9k8,lSeAdByKY4+vLEys5QiwYA.~bsc_DAPA8A2>QVY4cDnq/e34JR{;lV+>D´HAs}d~PjLYEG@T>?G7S|OuHAeAdBcs(_BtGAI!`e`WpA5TlV+>D´HAq}lB_~D$LF;L_CBtl!M|S|d]bCPAFtC´9+0iMOAA+>Yxu<n(5=fA_s@Y_´4C0kXjlk|e+V%´~;%AS´[3´~R|9amSdkr^fE#}f<dODGC5Ms;~`2_EJHCAxdb~AtJ&tWnlx+0hY565*>>Zw[CB7CQyfX>W,;UxUL+2|.I*fQS_rIj&!<L_]~+1Qs5~`>(,$M,BQErhaCOK}~)}[)CA.}!<(s,I+C1[$´I´Uq[K(CC>l>m7aPjB8s347uZM@O+Bmui_`K;v+vwRtyd;9pM^a;V|P)XWk_wFcaD?E`uw|s6{#Ax=k~$[J!3re?F´bs;;0Gy1@{PI!Ax=N>V>:&H@G7KLT|Z+DAWajX}sK?Aqu(3^D´HAeA1~GLciv+m;8A6CJV+>D´%}p?BAXmk.:^0>P4`Vp_BtHAeAc_r.0!u(Kf8A6CJV+>D´NW8A}I/CQ|j´B~`[D´HAeAoAr?Y|ju}~K~Y)HAeAI@DAPAP|aFp1&FnsgtBq9>MJeFSqv(DADAVRm´(}S)B_o}G)%Kk_BtHAeAc_1K@QaL5oQ|$^u$`e0Kk_BthWXLuQ%=Sha(^`;6HAA´BtHAeAc_1KXL+vy#tP^KbsdByKk_C´~VBtH>D05o1Q{LhByKk_BtHA2}v^HA?/J(QNu{EHiHdBLvfAdBPjscme@^w:m~0|*(DAPA8A6C4}p?D´2)p?g(yn2r6h{_Bt6V+>"
  319. Data "TYSt3;~K0{7i4F%hZFSqv(DAPAP|%AMceeCSLA@@w~Aqv(IJPVLC***h9RSt(,)3B´/CpC;,Ho>IO/oQAABt´Xr`Au2{>`5aTzBYV9``La!AqofwP{wF1D)xfD*~iBU´rG[}´sDfNA=~l~j`NWaxvFc}AHEtGOeoz<W)0sgs´?H48~N@F´!UY4c4UrZ6iXNR|b8}hB8sy|DcDA3}qCdZU+T[)hMEDLO~Z+HA3}`~NWi_sF4}^]UhfAhB8sDUV(s~U]$^1Bo@i3fAg_F´bs2y|s4sv(DAAooB7Ma{j$E%9A6CJV+>D´_~p?D´eT!A7?2j8A6C/`#$wT+rcn`Kk_BtHAeAx*GLeA?^1K3}>{g1q?wFPA8AqC:C*ARQ}~3}UXkR!$*Kk_BtHAn`BtNW8AM<@`Q|$^k[6V>Vp_BtHAeAkE_QY/N|dW5*6]0|*(%Kk_BtHAeAc_1K@QAJjB0^wFMs!>5Kk_BtHAMCBtQAE)|s3AdG|~?I8A6CJV+>D´NW8A|;l+=]aDAqj_1Kk_BtHA#Z{6Q@j{KLN+=23seAdByKk_BtNW8A~1]F]vU(ynv}~s(_BtsV+>BAusv?:.)Rf(q?=j6CJV+>D´HA2}6CXLtN1Jbs`%)`p_FcKV+>D´HA:_CJ7}!AC|fg2?|´HAeAdB!meAc_1KXL5>HA[9}14rLtC´0+!kbRY4q*_=dABV%{EN+,RAAAVZoHt`:vv%X4t0R^r}+7mUO~fN!!Zi`^yrGyA`{}$}WMNWZ|iEQs@KWzbs.<)~%6s(_xRGPL?@BOuc9Sw}|Y|{E|556`I`}|D&´BQqpF4}juCA7t7TFL]~Z+HAp}mWFt[Q{%´}+&;cs~R:HA3}*B*hVrL7bs]>F´as/h9LXO^3~~´|>~1~e?F´bs@Ar?z#$^"
  320. Data "&^j1F/:V6yw$Z&@ViKit,(HsWL(9<pjB8sE%*Cy?H`~b:s+>wFbP>24AyD2RxdwK1yd+G`cFT|hByKk_+v)B0A/1OV4^`Wlrs.DAPA8A%=R&shi´kK|L]qs~tW*><~yyHAeAdBcs(_UtEV+>ds=c1[GLeAdByK6y%=#}D$!K;L_CBt,4M|S|C^bCPA0}D´HA2}6Cb#94bFkujuE[Ux8CJV+>D´KWv3kBd}IATXBwFJ$~rWK/rV+>D´HA2}6C#T3m4FjBv(rWC|BtHAeA?^*´DL`abLe{27LE~~D´HAeAc_1Kk_k$FW,HyhPA8A6CJV+>vFRq´3b|Li2>QV+>D´HA2}6C/`./fEbsp1<&S}BtHAeAdRFL7~rzm/U@ZCPAg_D´HA2}6CJV_]$bhdb|~K,`BtHAeA3^g~0|_t.V+>D´HAeAc_fs(_Bt9_G?>9Qt:*iHeAdByK6yB=R&dWcmVyO*q+AAuWM0L`A|yWY4dGbX5x43WF[{4FM5f|l^+,jY2FI(kB;5VszXJ,%~5MBtyq$<L_>~+fg0+`1r%}z?NWMA´W(~+[E(csfzE4kBY]YdfAg_]DBtvrKWi_f7RKhB?jxqzsd~t_1F3r+>GLJAQ@P4W}uW[|H`r<@NhB]KT|Z++U@|I%+rJ[F´PsiWYW_r(C/Vk_wFFA~RQ(lu6~1CfAT^Y[Z]+CyKk_Bt^}p?BAEA+_+vcscsZFyHdByKk_AAhEwK`~h&8A6CJV+>D´HA2}6Cb#8%ryGrA^7}N{8CJVXL1Fp1J.K`KP(CJV+>gFSqv(DAbsdBvD5F!va~`L4QMs5.DAPA8ANJEOn|ELPA8A6CJV+>D´<~p?D´&jW]lAh=4*oFoIkByKuW(wi&8?D´HAA´BtHAeAc_1Kk_l$]UMj?{PA8A6Ce+"
  321. Data "bzZFSqv(DA7sv(DAbsdB[9:{3>´Xa+={,}dByK5Fjy8B8A6C4}#A6CJV+>D´NW8A+!VVf6=!)[P@5Kk_AAvD[`UttW+>D´HAeAdByKk_+vHAMmcIzf#A>{`en.mF;vkB?jdRN4JV+>D´HAP/Bti+0i&MAAY4%5(qf([=hAw}#ApO54@2Ao>1U<TD&6;2w(]Xe<`{{;LAtK:d<k*RM3GL7WAaPWgw6?vKd<r=Uhi_~!WavteswF[l:PHLw*w~+>GLTAr?cH#AVL,_MAv?Oz:P)C/Vk_xy8ruWOW!z+v%>uF|_F>ON;C0y.Q:Vk_Ctk~N@F´}bA::^?Q?9&??yBtj)f=~KT|v(NWp|CtBA<cJ4kB1?%COZJJ*{s`Q5PA!A!>*meAdBQ@2tO+jENj}Fk~B+DA~_z*n8qP7C4}#A6CJV+>D´HA2}6C#T$)2y,}8_U9,_CyHAF^W|M&kWw>Uqv(DAPAP|D´HAeAc_1K+>ACVV750dkR+`1KXL)tiS)>}*jEgByKk_BtHAeAdB!m2}6CJVXLcy2L[XgNz_[6HAfT>va~KL/~D0dByKk_BtHAeAdBcsV!7CJVXL}K{LBt3}gTHLnVuW#F9|u(>~$N7CJV+>D´HAeAdBcs&n9CJVAAJ4.V$tSW+CG?9{W}2uB´hWPny|kByKk_BtHAeAdBcs(_BtiVAAxF7}~]~)z_D<cs])9Af#A´<~2~SXdFSqv(DAPA8A6C4}p?fFSqBt)}.{xFnscQHBcpToyL${<~~]B´TsPA8A6CJV+>D´HA2}RtGABN´(:duW;B9{AVFA^|e(dM]WyDi:*hEGAfr(*>K/xZEf=pNAAA4G<F3[~~esLc!d4YcS>xYAC){s^X%=PGVt_soVXLTw,A#G}wdm1GeGQJ9XEtiS>v´]"
  322. Data "KJHbN+XW5N`;JL(,vkbR&$Dv$=8~´s.v$A´C;F,+cRQAr?d~Atf4s~OPA@6#+CO{M2`)LR#AzFd~ILHt^XbXkAvm%Y7LRA:>{@JC)WqCpFHLLs+>F´]r+>GLg{nB4&~|>~.RWC<>fAAACtpIfz>~S|;km~_~09rs+>F´PAR|<fqf]eKLrnJ&SX^4>,J>[@gqZ^RcdZv_´s3Yc+CLT|v(HA3}@gkRoC´UOA`|DA4}v_p4L<oW!se|v(HAfAg_j$Q:4>!CAA2,%>/Ep}3$9A=~HAeAdByKk_BtNWCOZFe+&`´L.{,vHAFD/r@}r8qFSqv(DAPA8A6C4}p?mWTqv(DAyA*`yFPA5h|Qiq[)DAPA8A6CJV+>gFT|[)GLeAdB+>gH3;pWq?BACW´]uFPA8A6C4}#A6CJV+>D´NW8A6CJVpi1F{e^;]|[{z9HAeA`~DAPA8A6CJV+>wFPA8A@$BAqio.VW8A37)[pW%9hqv(DAPA8A6CJV+>sFT|[)DAPAK:;Gzr])PL5Fvy,v;>kBPA8A=~HAeAdByKk_BtNW8A6C.o1|al(diB{egtT!X}~~D´HAeAdByKk_BtHA2}L#HAeA4.mLDR,gHAeKt´?Ek_A´{;0WgG0tEAC´`}|LP(;|u(4FY>AAz|1FSvdx2yb/;2mZ2!:>#ac~u(#$Aw<)gdjB<soVBt7RX70)~3V{aL_[´EeG+Idnmsk_GLJA$AnDmGT}B´IV´p+73TEYd~v}CtPAR|qFlB:A/1AY#?´2}}g4CAYWXf)Am|R)}Vk_CtPAR|qFMcXLEGKCAABNZg6[*WEC3jrz%ABt$}B|~KT|v(HA3}&CaSuW;L/uK&aLOwlB$A34fWu~M|CtPA!A!>@V+>_b%F*kASl_l/|vA´ryHAeAdByKk_Bt"
  323. Data "HAeA`~GLeAdByKk_BtHAeAdBd~fAdByKk_BtHAeAc_1Kk_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_1Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|aFSqv(DAPA8AWuHAeA.A&a10zEYAAA+a}zT|1>3}A´EtfAjB<s|}+>J´fA!A`~NW!A&C/Vk_CtPA!A!>k~#A&C/Vk_CtPA!A!>@Vk_4F3r+>F´PA!A&Cd~H`CtAt+>F´PA!AdByKk_BtNW~~D´HAeAdByKk_BtHAeA`~DAPA8A6CJV+>wFPA8A=~HAeAdByKk_BtHAeAdBd~fAdByKk_+vHAeAdByKk_/CJV+>D´HAeAdByKk_BttW+>wFPA8A6CJV+>D´HAA´BtHAeAdByKk_BtHA2}=~HAeAdByKk_BtHAeAdBd~fAdByKk_BtHA2}6CJV+>4FSqv(DAPA8A6CJV+>D´tW+>D´HA2}6CJV+>D´HAA´BtHAeAdByKk_BtHAeA`~DAbsdByKk_BtHAeAdB/VeAdByKk_BtHAASl6b,ZCEAAAVXSl4}b_bsB´w(PA#A&>VWT|w(PAS|{~HAfAhB]KT|v(HA3}&Cd~#A&C/Vk_CtPAR|qF3r+>WLT|v(HAfAhB8sy|v(HAB´v(HAfAhB8sxqv(DAPA~~D´HAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_"
  324. Data "BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHA,`BtHAeAdBcs(_AA8iTW%mAAN/%_S|,COWT|u(rsk_EtfAi_sF3r+>F´At+>F´bshB]KT|v(HAfA~~F´PAR|qF3r+>F´PA!A`~HA3}&C/Vk_CtPA!A&Cd~S|qF3r+>D´HAeAdByKk_/CJV+>D´HA2}I4JV+>D´tW+>D´HAeAdByKk_BtHAA´BtHA2}I4JV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~GLBH6CJV+>D´HAeAdBd~fAdByKk_BtHAeAc_fsm_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_fsm_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|PWTqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}I4JV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_UtQV+>D´HAeABd8@7)JAAAxE~s8~k_EtB´w[J´fAjB<s|}+>F´PAA´CtbshB]KT|v(HAfAhB9~fAg_`KT|v(HAfAhB]KT|*>@Vk_CtPA!A&C/Vk_xyAt+>F´PA!AdByKk_BtHAA´BtHA2}6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~GLeAdByKk_BtHAeAdBd~fAdByKk_BtHAeAc_1Kk_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_1Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByK"
  325. Data "k_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeAW+DAPA8A6CaSuWC!K4JIAA1[2_lAj_|s8~kBHL4}+>NW#A+COWT|v(B´H`CtPA!A&C/Vk_Ctbs~~F´PA!A&C/Vk_CtbshB9~fAhB]KT|v(HAfAg_`KT|/C/Vk_CtPAeAdByK5F*C"
  326.  
  327. __Debmp:
  328. Data 7,1,84034,4753,"Base91"
  329. Data "Nx#ye2quUA$A[9uH*h@AUE9A/lCAjACAfLgg}KFAqi~TuWUE/FscBA/C´S}q@9´ySAuiQtS|´~bs#A+COWT|E/PA#A+C9~fAg_`KT|v(HAfAhB]KT|*>@Vk_CtPA!A&C/Vk_xyAt+>F´PA!A&C/Vk_Ctbs~~F´PA!A&C/Vk_BtHAeA`~GLeAdByKk_BtHAeAdBd~fAdByKk_BtHAeAc_1Kk_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_1Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|aFSqv(DAPA8AI4HAeAdByKk_BtAAbH9q$(AABtkc3I9~1}1>Atk_EtfAi_KL4}+>J´PAA´xyPA!A&C/Vk_CtPAR|>~PA!A&C/Vk_CtPAR|qF4}kB]KT|v(HAfAhB8sy|v(tWk_CtPA!A&Cd~H`BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_/CJV+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_/CJV+>D´HAeAdByKk_BtoV+>D´HAeAdBcsgtPfOxiKAAb#k~bs#A+C9~S|yFcsk_H4fA!A&C/Vk_4F3r"
  330. Data "+>GLfAhB]KT|v(HAB´v(NW!A&C/Vk_CtPA!A`~NWbZpF3r+>F´PA!A&Cd~S|qFJV+>D´HAeAdByKk_/CJV+>D´HA2}I4JV+>D´tW+>D´HAeAdByKk_BtHAA´BtHA2}I4JV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~GLBH6CJV+>D´HAeAdBd~fAdByKk_BtHAeAc_fsm_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_fsm_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|PWTqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}I4JV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_UtMV+>D´HAAM#5b,xuVAAAnJ}~b~,>J´B´w[J´fAi_KL4}+>F´PAA´CtbshB]KT|v(HAfAhB9~3}&C/Vk_CtPA!A&C/Vk_u(+r+>F´PA!A&C/Vk_xyAt+>F´PAeAdByKk_BtHAA´BtHA2}6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~GLeAdByKk_BtHAeAdBd~fAdByKk_BtHAeAc_1Kk_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_1Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeA<)DAPA8A6CGObeaMRBAAemQWz(3})>_~fAjBHL4}w[J´fAjBpF4}j_`KT|v(HAfAhB]KT|Z+tWk_CtPA!A&C/Vk_xyPAA´CtPA!A&C/Vk_CtbshB9~fAhB]KT|v(DAPA8A2>#}#A6CJV+>D´HAeAdByKk_/CJV+>D´"
  331. Data "HAeAc_1Kk_BttW+>D´HAeAdByKk_BtHAA´BtHAeAc_1Kk_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_/CJV+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdB/VeAdByKk_BtCAbH9qH!AABt?F,I9~1}1>Atk_EtfAi_KL4}+>J´3}~~F´PA!A&C/Vk_CtbshB9~fAhB]KT|v(HA3}&C/Vk_4F3r+>F´PA!A!>@Vk_CtAt+>F´PA!A!>5Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHA,`BtHAeAdBcsURBte*Ph5[AAXL8^j_0Fcsk_At|}+>J´3}+C]KT|v(HAB´v(HA3}&C/Vk_CtPA!A`~HA3}&C/Vk_CtPA!A&Cd~#A!>@Vk_CtPA!A&C/Vk_u(+r+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_/CJV+>"
  332. Data "D´HAeAdByKk_BtNW+>D´HAeAdBqi}F7C4}#A6CJV+>D´HAeAdByKk_/CJV+>D´HAYAc_1Kk_BttW+>D´HAeAdByKk_BtHAA´BtHAeAc_1Kk_BtHAeA`~DAPA8A6CJV+>D´HAeAF/DAbsdByKk_BtCAXH!|g4CABtU$t(;sT|w(B´+`EtfAi_KL4}+>F´PAA´CtbshB]KT|v(HAfAhB9~3}&C/Vk_CtPA!A&C/Vk_u(+r+>F´PA!A&C/Vk_xyAt+>F´PAeAdByKk_BtHAA´BtHA2}6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~GLeAdByKk_BtHAeAdBd~fAdByKk_BtHAeAc_1Kk_/CJV+>D´HAeAdByKk_BttW+>D´HAeAc_1Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeAW+DAPA8A6CDHuWf!syNJAAdZ%{iAj_|s8~kBHL4}+>NW#A+COWT|v(B´H`CtPA!A&C/Vk_Ctbs~~F´PA!A&C/Vk_CtbshB9~fAhB]KT|v(HAfAg_`KT|/C/Vk_CtPAeAdByKk_+vtW+>D´HAeAdByKk_BtHAA´BtHAeAdByKk_+vHAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_/CJV+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>QV+>D´HAeA`~DAPA"
  333. Data "8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdB/VeAdByKk_BtEAbH!|g4AABth/{I9~1}1>Atk_EtfAi_KL4}+>J´3}~~F´PA!A&C/Vk_CtbshB9~fAhB]KT|v(HA3}&C/Vk_4F3r+>F´PA!A!>@Vk_CtAt+>F´PA!A!>5Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHA,`BtHAeAdBcs&nAA8i|KJoAAMcM{S|,COWT|u(rsk_Et3}+C]KT|v(HAB´v(HA3}&C/Vk_CtPA!A`~HA3}&C/Vk_CtPA!A&Cd~#A!>@Vk_CtPA!A&C/Vk_u(+r+>F´HAeAdByKk_BttW+>D´HAeAc_1Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdBcs(_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPAP|aFSqv(DAPA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdBcs(_BtMV+>D´HAAG!5b,.tUAAAY2|~b~,>J´B´w[J´fAi_KL4}+>F´PAA´CtbshB]KT|v("
  334. Data "HAfAhB9~3}&C/Vk_CtPA!A&C/Vk_u(+r+>F´PA!A&C/Vk_xyAt+>F´PA!AdByKk_BtHAA´BtNW8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HA2}=~HAeAdByKk_BtHAeAdBd~fAdByKk_BtHA2}6CJV+>4FSqv(DAPA8A6CJV+>D´tW+>D´HA2}6CJV+>D´HAA´BtHAeAdByKk_BtHAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_/CJV+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>QV+>D´HAeA<)DAPA8A6CGObecGJBAAvjusz(3})>_~fAjBHL4}w[J´fAjBpF4}j_`KT|v(HAfAhB]KT|Z+tWk_CtPA!A&C/Vk_xyPAA´CtPA!A&C/Vk_CtbshB9~fAhB]KT|v(DAPA8A2>#}#A6CJV+>D´HAeAdByKk_/CJV+>D´HAeAc_1Kk_BttW+>D´HAeAdByKk_BtHAA´BtHAeAc_1Kk_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdBd~fAdByKk_BtHAeAdBcs(_/CJV+>D´HAeAdByKk_BttW+>D´HAeAdBcs(_BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A2>QV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAbsdByKk_BtHAeAdB/VeAdByKk_BtGAfH!|&yAABt<yLJ9~1}1>Atk_EtfAi_KL4}+>J´3}~~F´PA!A&C/Vk_CtbshB9~fAhB]KT|v(HA3}&C/Vk_4F3r+>F´PA!A!>@Vk_CtAt+>F´PA!A!>5Kk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPAP|aFSqv(DA"
  335. Data "PA8A=~HAeAdByKk_BtHAeAdBd~3}6CJV+>D´HAeAdByKk_/CJV+>D´HAeAdB!m(_BttW+>D´HAeAdByKk_BtHAA´BtHAeAdByKk_BtHAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA`~DAPA8A6CJV+>D´HAeA!>DAPA8A6CJV+>D´AAI´VA4}3Is8AA}sYA{Ak_pi[9CA=~GBzHC´4FEtVA4}3Is8AARXA"
  336.  
  337. Sub CreateFile(sFilename as String, sBase91 as String, iLines As Ulong, bCompressed As Ulong, iFileSize As Ulong, iCompressedSize As Ulong)
  338.     Dim As Ulong l
  339.     Dim As Ubyte Ptr aBinary = Base91Decode(sBase91, l)
  340.     Dim As Boolean bError = False
  341.     If bCompressed Then
  342.         If iCompressedSize <> l Then bError = TRUE
  343.     Else
  344.         If iFileSize <> l Then bError = TRUE
  345.     Endif
  346.     If bError = TRUE Then
  347.         ? "Something went wrong"
  348.         End
  349.     End If
  350.    
  351.     Dim As Long hFile = Freefile()
  352.     Open Curdir & "\" & sFilename For Binary Access Write As #hFile
  353.  
  354.     If bCompressed Then
  355.        Dim as UByte Ptr aBinaryC = _WinAPI_LZNTDecompress(aBinary, iFileSize, iCompressedSize)
  356.        Put #hFile, 0, aBinaryC[0], iFileSize
  357.        Close #hFile
  358.        Deallocate (aBinaryC)
  359.    Else
  360.        Put #hFile, 0, aBinary[0], iFileSize
  361.        Close #hFile
  362.     Endif
  363.    aBinary = 0
  364. End Sub
  365.  
  366. Sub ExtractDe()
  367.    Dim As String sBaseType
  368.     Dim As Ulong iLines, bCompressed, iFileSize, iCompressedSize
  369.     Restore __Debmp:
  370.     Read iLines
  371.     Read bCompressed
  372.     Read iFileSize
  373.     Read iCompressedSize
  374.     Read sBaseType
  375.    Dim As String sBase91, aB91(1)
  376.     For i As Ushort = 0 To iLines - 1
  377.        Read aB91(0)
  378.        sBase91 &= aB91(0)
  379.     Next    
  380.    CreateFile("De.bmp", sBase91, iLines, bCompressed, iFileSize, iCompressedSize)
  381. End Sub
  382.  
  383. Sub ExtractGb()
  384.    Dim As String sBaseType
  385.     Dim As Ulong iLines, bCompressed, iFileSize, iCompressedSize
  386.     Restore __Gbbmp:
  387.     Read iLines
  388.     Read bCompressed
  389.     Read iFileSize
  390.     Read iCompressedSize
  391.     Read sBaseType
  392.    Dim As String sBase91, aB91(1)
  393.     For i As Ushort = 0 To iLines - 1
  394.        Read aB91(0)
  395.        sBase91 &= aB91(0)
  396.     Next    
  397.    CreateFile("Gb.bmp", sBase91, iLines, bCompressed, iFileSize, iCompressedSize)
  398. End Sub
  399.  
  400. Sub ExtractGr()
  401.    Dim As String sBaseType
  402.     Dim As Ulong iLines, bCompressed, iFileSize, iCompressedSize
  403.     Restore __Grbmp:
  404.     Read iLines
  405.     Read bCompressed
  406.     Read iFileSize
  407.     Read iCompressedSize
  408.     Read sBaseType
  409.    Dim As String sBase91, aB91(1)
  410.     For i As Ushort = 0 To iLines - 1
  411.        Read aB91(0)
  412.        sBase91 &= aB91(0)
  413.     Next    
  414.    CreateFile("Gr.bmp", sBase91, iLines, bCompressed, iFileSize, iCompressedSize)
  415. End Sub
  416.  
  417. Sub ExtractJa()
  418.    Dim As String sBaseType
  419.     Dim As Ulong iLines, bCompressed, iFileSize, iCompressedSize
  420.     Restore __Jabmp:
  421.     Read iLines
  422.     Read bCompressed
  423.     Read iFileSize
  424.     Read iCompressedSize
  425.     Read sBaseType
  426.    Dim As String sBase91, aB91(1)
  427.     For i As Ushort = 0 To iLines - 1
  428.        Read aB91(0)
  429.        sBase91 &= aB91(0)
  430.     Next    
  431.    CreateFile("Ja.bmp", sBase91, iLines, bCompressed, iFileSize, iCompressedSize)
  432. End Sub
  433.  
  434. Sub ExtractTr()
  435.    Dim As String sBaseType
  436.     Dim As Ulong iLines, bCompressed, iFileSize, iCompressedSize
  437.     Restore __Trbmp:
  438.     Read iLines
  439.     Read bCompressed
  440.     Read iFileSize
  441.     Read iCompressedSize
  442.     Read sBaseType
  443.    Dim As String sBase91, aB91(1)
  444.     For i As Ushort = 0 To iLines - 1
  445.        Read aB91(0)
  446.        sBase91 &= aB91(0)
  447.     Next    
  448.    CreateFile("Tr.bmp", sBase91, iLines, bCompressed, iFileSize, iCompressedSize)
  449. End Sub
  450.  
  451. Sub ExtractUs()
  452.    Dim As String sBaseType
  453.     Dim As Ulong iLines, bCompressed, iFileSize, iCompressedSize
  454.     Restore __Usbmp:
  455.     Read iLines
  456.     Read bCompressed
  457.     Read iFileSize
  458.     Read iCompressedSize
  459.     Read sBaseType
  460.    Dim As String sBase91, aB91(1)
  461.     For i As Ushort = 0 To iLines - 1
  462.        Read aB91(0)
  463.        sBase91 &= aB91(0)
  464.     Next    
  465.    CreateFile("Us.bmp", sBase91, iLines, bCompressed, iFileSize, iCompressedSize)
  466. End Sub
  467.  
  468. Function Base91Decode(sString As String, Byref iBase91Len As Ulong) As Ubyte Ptr
  469.   Dim As String sB91, sDecoded
  470.   sB91 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!#$%&()*+,./:;<=>?@[]^_`{|}~´" '´ instead of "
  471.    Dim As Long i, n = 0, c, b = 0, v = -1
  472.  
  473.    Dim aChr(0 To Len(sString) - 1) As String
  474.    For i = 0 To Ubound(aChr)            
  475.       aChr(i) = Mid(sString, i + 1, 1)
  476.    Next
  477.    
  478.    For i = 0 To Ubound(aChr)
  479.       c = Instr(sB91, aChr(i)) - 1
  480.       If v < 0 Then
  481.          v = c
  482.       Else
  483.          v += c * 91
  484.          b = b Or (v Shl n)
  485.          n += 13 + (((v And 8191) <= 88) * -1)
  486.          Do Until  (n > 7)=0
  487.             sDecoded &= Chr(b And 255)
  488.             b = b Shr 8
  489.             n -= 8
  490.          Loop
  491.          v = -1
  492.       Endif
  493.     Next
  494.     If (v + 1) Then
  495.         sDecoded &= Chr((b Or (v Shl n)) And 255)
  496.     End If
  497.     iBase91Len = Len(sDecoded)
  498.        
  499.     'workaround for multiple embedded file other crash will occure
  500.     Static As Ubyte aReturn(0 To Len(sDecoded))
  501.     Redim aReturn(0 To Len(sDecoded)) As Ubyte
  502.      
  503.     For i = 0 To iBase91Len - 1 'convert result String To ascii code values
  504.         aReturn(i) = Asc(sDecoded, i + 1)
  505.     Next
  506.     Return @aReturn(0) 'Return Pointer To the array
  507. End Function
  508.  
  509. Function _WinAPI_LZNTDecompress(aBinary As Ubyte Ptr, iFileSize As Ulong, iCompressedSize As Ulong) As Ubyte Ptr
  510.    #Define COMPRESSION_FORMAT_LZNT1 2
  511.    
  512.    Dim As Any Ptr hLib = Dylibload("Ntdll.dll")
  513.    Dim pRtlDecompressBuffer As Function _
  514.                 (Byval CompressionFormat As Ushort, _
  515.                  Byval UncompressedBuffer As Ubyte Ptr, _
  516.                  Byval UncompressedBufferSize As Ulong, _
  517.                  Byval CompressedBuffer As Ubyte Ptr, _
  518.                  Byval CompressedBufferSize As Ulong, _
  519.                  Byval FinalUncompressedSize As Ulong Ptr) As Ulong
  520.    pRtlDecompressBuffer = Dylibsymbol(hLib, "RtlDecompressBuffer") 'https://docs.microsoft.com/en-us/windows-hardware/drivers/ddi/content/ntifs/nf-ntifs-rtldecompressbuffer
  521.  
  522.    Dim As Ubyte Ptr pDecompress = Allocate(iFileSize)
  523.    Dim As Ulong iUSize
  524.    Dim As Ulong iReturn = pRtlDecompressBuffer(COMPRESSION_FORMAT_LZNT1, _
  525.                                     pDecompress, _
  526.                                     iFileSize, _
  527.                                     aBinary, _
  528.                                     iCompressedSize, _
  529.                                     @iUSize)
  530.    Dylibfree(hLib)
  531.    Return pDecompress
  532. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement