Posts: 545
Threads: 116
Joined: Apr 2022
Reputation:
39
12-05-2022, 01:03 AM
(This post was last modified: 12-05-2022, 09:02 PM by James D Jarvis.)
Trekn-mixer generates a sprite sheet of trekish spacecraft. It's a version 0.1 for now. Still need to tweak the color schemes and likely to add some more ship parts.
![[Image: image.png]](https://i.ibb.co/55JVyb4/image.png)
Code: (Select All) 'Trekn-Mixer v0.1
'By James D. Jarvis December 2022
'This program uses BASIMAGE coded by Dav for QB64GL 1.4, MAY/2020
'
'generate a sprite sheet of spacecraft for trek games
'each is 64 by 96 pixels but code here can be modified to change that
'
'press c or s to save a sprite sheet to the clipboard so you can paste it into a paint program
'and save is whatever format you desire
'pres <esc> to quit
'
'License: Share sprite sheets as long as they include generated credit bar in image
'any programs using original code or graphics from source or generated by program
' please include the following (or equivalent) line somwhere in comments and documentation:
'Includes Art and/or Code from Trekn-Mixer v0.1 created by James D. Jarvis
'
Randomize Timer
Dim Shared ms&
ms& = _NewImage(512, 416, 32)
Screen ms&
_Title "Mini-Trekn-Mixer V0.1"
Dim Shared part&
Dim Shared kk1 As _Unsigned Long
Dim Shared kk2 As _Unsigned Long
Dim Shared kk3 As _Unsigned Long
Dim Shared kk4 As _Unsigned Long
Dim Shared kk5 As _Unsigned Long
Dim Shared kk6 As _Unsigned Long
Dim Shared clr~&
part& = BASIMAGE1&
Type craft_type
hull As Integer
saucer As Integer
drive As Integer
cannon As Integer
turret As Integer
extension As Integer
kscheme As _Unsigned Long
End Type
Type colorscheme_type
k1 As _Unsigned Long
k2 As _Unsigned Long
k3 As _Unsigned Long
k4 As _Unsigned Long
k5 As _Unsigned Long
k6 As _Unsigned Long
End Type
Dim Shared klrs(10) As colorscheme_type
buildklrs
Dim Shared craft_limit
craft_limit = 32
Dim Shared clook(craft_limit) As craft_type
_Source part&
'read the colors from the color reference bar whichever color is in the top left corner will be transparent
clr~& = Point(0, 0) 'find background color of image
kk1 = Point(0, 1): kk2 = Point(0, 2): kk3 = Point(0, 3): kk4 = Point(0, 4): kk5 = Point(0, 4): kk5 = Point(0, 4)
_Dest part&
Line (0, 0)-(0, 8), clr~& 'erase the color reference bar from the bit map
_ClearColor clr~&, ms& 'set background color as transparent
_ClearColor clr~&, part&
_Source ms&
_Dest ms&
Do
Cls
mmx = 0: mmy = 0
For m = 1 To craft_limit
'create a new set of weapon sprites
clook(m).hull = Int(1 + Rnd * 15)
'1- small saucer and drive
'2- small saucer, drive and cannon
'3- large saucer and drive
'4- large saucer,drive and cannon
'5- large saucer,drive,cannon and turret
'6- large saucer,drive and turret
'7- large saucer and turret
'8- small saucer,extension, and drive
'9- small saucer,extnsion, drive and cannon
'10- large saucer,extension,and drive
'11- large saucer,extension,drive and cannon
'12- large saucer,extension,drive,cannon and turret
'13- large saucer,extension,drive and turret
'14 - mid suacer,extenstion and drive
'15 - mid saucer, extension, cannon and drive
Select Case clook(m).hull
Case 1
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(1 + Rnd * 8)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
Case 2
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(1 + Rnd * 8)
clook(m).cannon = Int(1 + Rnd * 8)
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
Case 3
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
Case 4
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
Case 5
clook(m).saucer = Int(11 + Rnd * 10)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = Int(1 + Rnd * 20)
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
Case 6
clook(m).saucer = Int(11 + Rnd * 10)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = 0
clook(m).turret = Int(1 + Rnd * 20)
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
Case 7
clook(m).saucer = Int(11 + Rnd * 10)
clook(m).drive = 0
clook(m).cannon = 0
clook(m).turret = Int(1 + Rnd * 20)
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
Case 8
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 12)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = Int(1 + Rnd * 6)
clook(m).kscheme = Int(1 + Rnd * 10)
Case 9
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 12)
clook(m).cannon = Int(1 + Rnd * 8)
clook(m).turret = 0
clook(m).extension = Int(1 + Rnd * 6)
clook(m).kscheme = Int(1 + Rnd * 10)
Case 10
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = Int(1 + Rnd * 5)
clook(m).kscheme = Int(1 + Rnd * 10)
Case 11
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = Int(1 + Rnd * 5)
clook(m).kscheme = Int(1 + Rnd * 10)
Case 12
clook(m).saucer = Int(11 + Rnd * 10)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = Int(1 + Rnd * 20)
clook(m).extension = Int(1 + Rnd * 5)
clook(m).kscheme = Int(1 + Rnd * 10)
Case 13
clook(m).saucer = Int(11 + Rnd * 10)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = 0
clook(m).turret = Int(1 + Rnd * 20)
clook(m).extension = Int(1 + Rnd * 5)
clook(m).kscheme = Int(1 + Rnd * 10)
Case 14
clook(m).saucer = Int(1 + Rnd * 10)
clook(m).drive = Int(3 + Rnd * 15)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = Int(1 + Rnd * 5)
clook(m).kscheme = Int(1 + Rnd * 10)
Case 15
clook(m).saucer = Int(1 + Rnd * 10)
clook(m).drive = Int(3 + Rnd * 15)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = Int(1 + Rnd * 5)
clook(m).kscheme = Int(1 + Rnd * 10)
End Select
draw_craft mmx, mmy, m, 1
mmx = mmx + 64
If mmx >= _Width Then
mmx = 0
mmy = mmy + 96
End If
Next m
md$ = "Spacecraft Sprite Sheet generated " + Date$ + " at " + Time$
md2$ = "Mini-Trekn-Mixer V0.1 by James D. Jarvis"
_PrintString (0, 385), md$
_PrintString (0, 401), md2$
Do
_Limit 60
kk$ = InKey$
Loop Until kk$ <> ""
If kk$ = "C" Or kk$ = "c" Or kk$ = "S" Or kk$ = "s" Then
_ClipboardImage = ms&
_Delay 0.3
Locate 1, 1: Print "Sprite Sheet Saved to Clipboard"
Sleep 3
End If
Loop Until kk$ = Chr$(27)
_FreeImage part&
System
Sub buildklrs
'lt grey
tk = Int(200 + Rnd * 50)
klrs(1).k1 = _RGB32(tk, tk, tk)
tk = Int(tk * .8)
klrs(1).k2 = _RGB32(tk, tk, tk)
tk = Int(tk * .8)
klrs(1).k3 = _RGB32(tk, tk, tk)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(1).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .7): tg = Int(tg * .7): tb = Int(tb * .7)
klrs(1).k5 = _RGB32(tr, tg, tb)
klrs(1).k6 = _RGB32(Int(20 + Rnd * 200), Int(20 + Rnd * 200), Int(20 + Rnd * 200))
'dk grey
tk = Int(100 + Rnd * 50)
klrs(2).k1 = _RGB32(tk, tk, tk)
tk = Int(tk * .6)
klrs(2).k2 = _RGB32(tk, tk, tk)
tk = Int(tk * .6)
klrs(2).k3 = _RGB32(tk, tk, tk)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(2).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(2).k5 = _RGB32(tr, tg, tb)
klrs(2).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'red
tr = Int(100 + Rnd * 155): tg = Int(tr / Int(5 + Rnd * 10)): tb = tg
klrs(3).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(3).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(3).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(3).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(3).k5 = _RGB32(tr, tg, tb)
klrs(3).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'green
tg = Int(100 + Rnd * 155): tr = Int(tg / Int(5 + Rnd * 10)): tb = tg
klrs(4).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(4).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(4).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(4).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(4).k5 = _RGB32(tr, tg, tb)
klrs(4).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'blue
tb = Int(100 + Rnd * 155): tr = Int(tb / Int(5 + Rnd * 10)): tg = tr
klrs(5).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(5).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(5).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(5).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(5).k5 = _RGB32(tr, tg, tb)
klrs(5).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'purple
tb = Int(100 + Rnd * 155): tr = tb: tg = Int(tb / Int(5 + Rnd * 10))
klrs(6).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(6).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(6).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(6).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(6).k5 = _RGB32(tr, tg, tb)
klrs(6).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'yellow
tg = Int(100 + Rnd * 155): tr = tg: tb = Int(tg / Int(5 + Rnd * 10))
klrs(7).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(7).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(7).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(7).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(7).k5 = _RGB32(tr, tg, tb)
klrs(7).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'orange
tr = Int(100 + Rnd * 155): tg = Int(tr * .5): tb = Int(tg / Int(5 + Rnd * 10))
klrs(8).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(8).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(8).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(8).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(8).k5 = _RGB32(tr, tg, tb)
klrs(8).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'brown
tr = Int(155 + Rnd * 100): tg = Int(tr * .6): tb = Int(tg * .6)
klrs(9).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(9).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(9).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(9).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(9).k5 = _RGB32(tr, tg, tb)
klrs(9).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'random
tr = Int(10 + Rnd * 240): tg = Int(10 + Rnd * 240): tb = Int(10 + Rnd * 240)
klrs(10).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(10).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(10).k3 = _RGB32(tr, tg, tb)
tr = Int(10 + Rnd * 240): tg = Int(10 + Rnd * 240): tb = Int(10 + Rnd * 240)
klrs(10).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(10).k5 = _RGB32(tr, tg, tb)
klrs(10).k6 = _RGB32(Int(10 + Rnd * 240), Int(10 + Rnd * 240), Int(10 + Rnd * 240))
End Sub
Sub draw_craft (Mx, my, mid, scale)
'generate a monster image from source sprite sheet part& and render to the programs main screen ms&
tempi& = _NewImage(64, 96, 32)
'tempi& creates a temporary one sprite image for rendering
_ClearColor clr~&, tempi&
_Dest tempi&
Cls
'Locate 1, 1: Print clook(mid).style
Select Case clook(mid).hull
Case 1, 2
_PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).drive - 1) * 64, 128)-((clook(mid).drive - 1) * 64 + 63, 128 + 63)
If clook(mid).cannon > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).cannon - 1) * 64, 192)-((clook(mid).cannon - 1) * 64 + 63, 192 + 63)
_PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).saucer - 1) * 64, 0)-((clook(mid).saucer - 1) * 64 + 63, 63)
Case 3 To 7
If clook(mid).drive > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).drive - 1) * 64, 128)-((clook(mid).drive - 1) * 64 + 63, 128 + 63)
If clook(mid).cannon > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).cannon - 1) * 64, 192)-((clook(mid).cannon - 1) * 64 + 63, 192 + 63)
_PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).saucer - 1) * 64, 64)-((clook(mid).saucer - 1) * 64 + 63, 64 + 63)
If clook(mid).turret > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).turret - 1) * 64, 256)-((clook(mid).turret - 1) * 64 + 63, 256 + 63)
Case 8, 9
lm = Int(Rnd * 5)
_PutImage (0, 0 + 18 - lm)-(63, 63 + 18 - lm), part&, tempi&, ((clook(mid).drive - 1) * 64, 128)-((clook(mid).drive - 1) * 64 + 63, 128 + 63)
_PutImage (0, 0 + 12 - lm)-(63, 63 + 12 - lm), part&, tempi&, ((clook(mid).extension + 10) * 64, 192)-((clook(mid).extension + 10) * 64 + 63, 192 + 63)
If clook(mid).cannon > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).cannon - 1) * 64, 192)-((clook(mid).cannon - 1) * 64 + 63, 192 + 63)
_PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).saucer - 1) * 64, 0)-((clook(mid).saucer - 1) * 64 + 63, 63)
Case 10 To 15
lm = Int(Rnd * 10)
If clook(mid).drive > 0 Then _PutImage (0, 0 + 32 - lm)-(63, 63 + 32 - lm), part&, tempi&, ((clook(mid).drive - 1) * 64, 128)-((clook(mid).drive - 1) * 64 + 63, 128 + 63)
If clook(mid).cannon > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).cannon - 1) * 64, 192)-((clook(mid).cannon - 1) * 64 + 63, 192 + 63)
_PutImage (0, 0 + 28 - lm)-(63, 63 + 28 - lm), part&, tempi&, ((clook(mid).extension + 14) * 64, 192)-((clook(mid).extension + 14) * 64 + 63, 192 + 63)
_PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).saucer - 1) * 64, 64)-((clook(mid).saucer - 1) * 64 + 63, 64 + 63)
If clook(mid).turret > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).turret - 1) * 64, 256)-((clook(mid).turret - 1) * 64 + 63, 256 + 63)
End Select
_Source tempi&
'repaint source image with generate color values for new monster sprite
For y = 0 To 95
For x = 0 To 63
Select Case Point(x, y)
Case kk1
PSet (x, y), klrs(clook(mid).kscheme).k1
Case kk2
PSet (x, y), klrs(clook(mid).kscheme).k2
Case kk3
PSet (x, y), klrs(clook(mid).kscheme).k3
Case kk4
PSet (x, y), klrs(clook(mid).kscheme).k4
Case kk5
PSet (x, y), klrs(clook(mid).kscheme).k5
Case kk6
PSet (x, y), klrs(clook(mid).kscheme).k6
End Select
Next x
Next y
'generated image in tempi& is rendered to ms& as a 32 by 64 sprite
_PutImage (Mx, my)-(Mx + 63, my + 95), tempi&, ms&
_Source ms&
_Dest ms&
_FreeImage tempi&
End Sub
'================================
'PNG file saved using BASIMAGE1&
'================================
Function BASIMAGE1& 'trekkin_ship_parts.png
v& = _NewImage(1280, 320, 32)
Dim m As _MEM: m = _MemImage(v&)
A$ = ""
A$ = A$ + "haIkM_PNMR[U60m>9mT<CBg][Z86SU09#_#JMnjEGghL<\o5L0YM`9o_ogok"
A$ = A$ + "co7000000CY_NekJ000000Pjh?oi?M_6000000X>nhS?jN=000000#MlQOnO"
A$ = A$ + "100000VFOlQno100000<[nDoo00000000000000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "000000000PUg7Ola?dkjAn100000N^]nMmWolWOHEj3fZWO00000HN]__GWm"
A$ = A$ + "o^geYl3#m\j?ocb_l_bi70FC[nmoTOiOebOXWk]#?7Lm^>UOJai2[fWoUOf>"
A$ = A$ + "NOle\ON`acgSUoIML#nGkl30[YEonOboJWoSS3[h?oW[No_Fmlcjfo3iW#7g"
A$ = A$ + "3MN#_[cJ8gGm^NUOi70h^R=Oo[N=3[7h\nMUJnOcS1[Nn3=N\bmoAnGkl_jF"
A$ = A$ + "inO8o[]LV3`\M>`n\oeehSmJo_g<=6\Uo]kaMFngnmUoi9o0odZll^8o[Kn?"
A$ = A$ + ">W_L^ogKON#gYWGaNm673Fml7JlhZNo<cm0BnGkl7K<IEbjFN?NM]#O]NGWe"
A$ = A$ + ":kQ^gNXi8<[S1Q6CFQ\^_o7YLlOfnL#\i2MfOfXcBn?KNPGmW=l<<6\jioZa"
A$ = A$ + "VI?Sb_l7:gkoInJUVcSl_6i?eo\nWaW9PDkmE>?KL_YaPE?oQ6?ReWWcnmjM"
A$ = A$ + "M;obO;6CVm\^?ck_Nfnl?3GWkZLOliK:DnWano4K<IE>oOe?n7J>>abo\MMP"
A$ = A$ + "cjmK\l?CW3\jio\aUEijOb_l7:g[fLnUoe9o7WCG^gokhL5kMN^KfSmjZio5"
A$ = A$ + "jmgkL9ogOl8dWe3=F<[G;#nGglWjhA_[[FTkc>Nof_>gEiNojJSUoEK]_[`i"
A$ = A$ + "o[naoSc_iZk7<;i?fljB9oc`h`ZWomS3Kfnea^ngagk<#nUocncjohhPl;o_"
A$ = A$ + "il7j??gkLo_gH?0c]gGcF?`Fml7Jl8U\>[[9DnGklOfhaWO=<laWCMNUoh?g"
A$ = A$ + "SQboKnJmIOlooNihoLOlOEcoEgWk\l?3S3[Nng63R]FgSGoK6WoSl;ob_l_B"
A$ = A$ + "io\noUcmofomnF6;^Z?FiNooSO_m>ObOnS7AkmcoUo#S=_i?o;obO:S7[Bo_"
A$ = A$ + "Fml_ZmohZSo7oc4NVcl:OlOEcoZgo;iolWgUDNVHTOi_gi#nUOi?_L_mjO^?"
A$ = A$ + "g=_ogn_ggbh`Zgo[E?oQ6?>nii_3dWCOoOToe>oY<V<cIEnoi?gcGUoS_gIb"
A$ = A$ + "EceKF??He?nOLN=aboKO^>GUkLbo<<>8oYo_iIche3UOiGnUoE;oWeo_L^og"
A$ = A$ + "n_ggbh`EI?gkoof63^Z7NiVoSOOm>OgIl8U\>[m4#nGklWbhb<WCi?lo>oMF"
A$ = A$ + "n3mnOk2eKo#o_Wac7FmSoKiiXmi?TNGge<kYToIH<8UN0>SmnK;kWM=^Domj"
A$ = A$ + "M>TOiGnUOi?_\OE_LB]g?_]aP]l\_gMkoOOEn3mmmV63b]7PcJ_of?NLlcfk"
A$ = A$ + "cln_fKocmb_lWchb:TCiGn3=7_#m2IEn\oZMlGnGclOlnlYHfVcK\ehNfeoN"
A$ = A$ + "kG?DnUOiGnGil7[?>YL__gL_O>[oOYToEXoOk7;BmmfkLmTaSHmfo\O_NGgb"
A$ = A$ + "_l3lL1WogWogO50<1cg38\]ihVbW[cim>bBJm_WLm_gne3UOiGn_ZoGOnOTo"
A$ = A$ + "I;oKS1id7WLOoS\SI9Unh5ZoO_eaPDk[G:_NSi?dhAX?K7jcmc#NUoOj\[_7"
A$ = A$ + "j[ekj5XLbMnOm^N1:WDW7kflVkMmnD[njOUOiGnGcnONlijX4io]=6LL\8UN"
A$ = A$ + "iLlmmFcla\oTloV732UoLjigK?oQ6?Rek[gjejTodLFon2=^dkj5X\f?_`#c"
A$ = A$ + "oKf^O7`o:e?K?CG3hhjPCmjOc`jN3UoDGo_loncoE[e9UloVGCdZVoDFSK^i"
A$ = A$ + "o=>>4JLiZ???SmlAnoMf2e?`Sonm^N[mh`<M_>ioJjo7`GnnnLOoWoo<O]?P"
A$ = A$ + "eea[_MeeoV][76K^^7co\>7`E<oWm<MMEn3mmfkl8og;gU8o_aa1h<[BonTO"
A$ = A$ + "io;a^G#\_F_[G00Pk;hcehfcnCPW1XIK>a[Jn?^6WLcoKOL8DfC9o773jM>N"
A$ = A$ + "balBTogjH10XoO00`:jW[Uoc3Voeh;o[Knc]oWm^NUO0X4f^nN\W]kmoN^n?"
A$ = A$ + "000lV]O]=WeocIMm?oniklgiGoo0H>MF_oL]O000HFlSnoMlIO;`o>0ekjEn"
A$ = A$ + "1PB:dOO#<CoMN2000`Zgo[E?o0`obO_^2000cZOncokaOfGoi?3\chjQFml3"
A$ = A$ + "00000c_[NF7VmW5RE?o00000000000000000000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "00000000000000000000000000o_?ohS?bB_[Gi7000008^Lkge\e?\E?o00"
A$ = A$ + "000`L:Fo[ncOnCFN[m1Kec?00000[ZInimZ4mkj>m3[giFn10000HM]:olOF"
A$ = A$ + "[nMUJO`TonO>000000OIFjgeMci\mcoiMbFZ7k_cfCnkoi400000[UBnc3iX"
A$ = A$ + "gOSEkWocLbhnj=eGi<>fSaSE?o00000Q=k?oK]^oGm>_7cMYckX>>TKOYNj["
A$ = A$ + "LgObOoo<10000\:F]Wo]kdkZWlcoH_oInLdnio\5m4<Uj[Dmmj>m1Cne3#00"
A$ = A$ + "00j;?oK_kWk[cbLZeM^mjHTjgaCjCI]boIm1\G7[[m[NM>aZWO000084?oKe"
A$ = A$ + "mioZWS9]liPJ4j3hM>7^Ui_fS7SB__f?V8oj180000]WWo][[kLFOo8dg[WT"
A$ = A$ + "gJdcSN<NTkicm<oeH\XdmnjZNOWcfAn7W[=0000`lccoFmj3d8d7`Se#\jY5"
A$ = A$ + "?3DW]_kA_O6UlGSc;6]Wk]L7;TOm0400XOfV;J\em_om<KfW[cbo\>6lFcO9"
A$ = A$ + "kU#;cO[FkGZ[1m^?S<SD?0KIOoR=VdjekOLO^U]HOmFl:WJZV7[7UlGSc96m"
A$ = A$ + "NOUjHQl[7P00#?MecnB_[_JWm_n_Kc;MoLDojo^om<KfW[cbo\>6l6conn:l"
A$ = A$ + "fbO9[m[f?e\?HW]>lFMNBZm2Z5m38ejXDS=Yd[]kfKg#^ch#_koG_cO?joe8"
A$ = A$ + "dk[]GGEWboHLoD00H5]=G]#[oOVWWfaL7;ochh`nLMEnWaaPgJn;E?djAn;M"
A$ = A$ + "_;?C=jkGXeh6KO5C9?gM4jmgnaRD[YBVmmILoiYmjEXJX4m0<UNo<Ji_Tm0Z"
A$ = A$ + "fmnjYmnl\a2iG?010PAAXel7joM_[cJVk[bo\=>4KNiGUoII<h]VoSmDh]Uo"
A$ = A$ + "JGomZ7HiF?ejlgkVk[jII977:iamSeF]jcK^_2E7?Y7PYfkWA<oUX7#e^gGe"
A$ = A$ + "lUl[7P00`X8dJBR]noALNJgMnSi\NmB\neJ=?gk\MOBf_kH#YcoCfNm8oUJL"
A$ = A$ + "HKMN?]6jInojkOKMQe^nKijRKE?0;M_ojah#Y>f7Z7KSb[Feo_SmDODNM\^N"
A$ = A$ + "bi2YVoAmUlo\l300ebaWkQNG?e>[]JMoeZngVKI9cN:oI]gbJ]dKc[>^OEn_"
A$ = A$ + "cH#9coCgFm8oUjLf]GU\7:]>oOmm_OMQ?Yf?NmjSoiGdjG7goaZ]WLMT[bo8"
A$ = A$ + "d?PHeE=boamkXlZ5moKTbkE_>[oEb_lgKa^VE_[;0Z=GoSEnHOXe?>cS1W=O"
A$ = A$ + "\AO^JKeofl:;If[alEO;mo;Ul?cmo[Fi_DWcne[Be3^NUo]]A^S3GekWmelM"
A$ = A$ + "FGLYjUfIe`Ck1D:io^_:M_4UobToFekWBWoHkSHcg#nUoFKO>?kNMcnJ10VO"
A$ = A$ + "a^FF>cege3WC[Fo_>Vm]<_?oSF?_ZAVcImoSbHaajl>Ooa^VG:oN]^N;if;e"
A$ = A$ + "ikNe_O?bO9f>m8o?]ngomERN`ecl__oOY>>TjjOcM=[i^n_Lg^QnjgiJZiTo"
A$ = A$ + "LNE[l7[FTolcoIg;jY_ZInS]obmj9boJWoJ8dJM>;om\F1h92Mm^SonWMm_H"
A$ = A$ + "_ggde3;M]nVbnEekfad#gCl\_WA?oYDSaV7`IONIT7;B]FR=__[njUJood<n"
A$ = A$ + "e[DGohE7gCeCgGKc1^gio>Io9S1U:okG3bCg>]<o?]ngOl^DeA_bon]EZS37"
A$ = A$ + "onR]FdDGSjE[imZe2Wjn8fG?gaCiO=coIg;n9_JAn?KO7Kk:obO]5KoOFV3m"
A$ = A$ + "eJA]2`CTbe_^KooN;G?lZNI]om]G9fVSPcZekfo[A?oYDOi<7XDf>mN\8gjX"
A$ = A$ + "Di_US5kWoiCf?kW3L:cok9cAMOo_fV3L?coa\OEnOjH#9boaeMlda`FVoWTQ"
A$ = A$ + "S7_;amLkIng_]CMLXTmoi>[k=dHB:kWDfoYN>Pl_Ni_6moYEi?WmO;koUloN"
A$ = A$ + "bOYUjlmBMnPe^N1h^RMm^mGk:d_G^_oAojQYf;XmIkZk9m6bmEejCjocXWo["
A$ = A$ + "Z_k<?X[fFmN\8gjhZijLWiWEkaR]iNNeaTLbonog7MlmmTS;OIK>`m>o7cdI"
A$ = A$ + "ioYS1U8o7GcaC?oZUio9IHogcIgC>gj[fi?ffHO6BMLhhmU?K]Ui^fc#GW;U"
A$ = A$ + "[;Vbn:Uj8ec1Toe;oQZS[f_SBncY>RM]5iO]cOY]]OS]o3EWQN_YNM;NGR=g"
A$ = A$ + "WEQl?Gio\[g5:_a^ngnaSgfe3CI^FQ6W^:Gi>7fA;oGMomHgco=ToL>V7K>="
A$ = A$ + "anm7ec5^K=LlchaDkj8e]mf[B_?bihmCffk?oBnc?g?Il[Gio^iHomUCiJa?"
A$ = A$ + "YN;Mn3ECQf7kWWA:efI[klZeT6kNNi\n_DGokEeI>SaboJVo#ko[f_SBncY>"
A$ = A$ + "RmiOiO]cO]_oNZih\_gJFcd>]HnOS\SOF_5OVLT<KioZ[eOW[O_okm]Lm`[V"
A$ = A$ + "[eaOoHo_cMk>:REWa^NgIgc;fgoXUoDZ]HW7OeGo^k_A8cYnmGZ]CY7;f>o\"
A$ = A$ + "6GcYVgoohfNkcGbONinhmR:miFennIiVSm_oD^FlCZgBWo#eDXmaES3Y^ngD"
A$ = A$ + "j7C=FogEOOY\m^jL0iOmboIc3i>_jAncIkMLnEboJWoBkYSU]Hn1mfneg?KI"
A$ = A$ + ";Uc=2]noEHLHVcO:W?Ogl?bOFYTgkh]Nm`[VWE\k[5kNMi\]71WESW=oRDWO"
A$ = A$ + "b8VoW\fRL>n?BW;DRmOYnlL]6;Re;TB^m[eec>^]gO=Di?mLOln?UXfJAn_K"
A$ = A$ + "FRM<OoeS?>WUA9o7[[HgG9UaP[VobMG3K9FoG:OOG]mBmN;bojTo#ONi9cO_"
A$ = A$ + "Gi?e]GXiG:o[Kn;]D7;gZSD[iJE_]fFffONg<U_D>_h\ogm^>UobT_BUoAOl"
A$ = A$ + "i^gkh\[omf^NhIeGXkWMUcnn7]\WB=VcH`EO_SBncY^R]Vd#I?eeXdSaRB\o"
A$ = A$ + ";ejo[eHafeT:A=FclWjfNkjWbOJi>dmNfoNNjj7:Mn3ECYTUHI?D]Ejj]5K_"
A$ = A$ + "#W7LeH`EcQ9en`TblQbMmOY\O_JKUjmFToe9oQVKb\Vo#caBnGklGBa^GdIe"
A$ = A$ + "dEonUN>BmdI[1J6bgMbm:<>\2io\kcnTlWjlGjMVcmJegmm?JS5GEKG=6Mg_"
A$ = A$ + "oNWkLZ_#ca8finYlIWNWokDCKIkhHaa_NYg_m<c_Q]CXSAOmZFScelHHX]mf"
A$ = A$ + "eHBIO\ZioZeRLLkoTj]di?D=]me2UUHm0HkEXJ[TcC[Tio\J;di17?N6KKMg"
A$ = A$ + "eoFkeoMennZJjZ?38o[Gn3=g\DcOXOM[boEojHK[SG3DnGklGBWMOWL7S:iL"
A$ = A$ + "4jY]akHg[>daVgJFCmLRD67jMM;og?WQV;nMcOZcOYgI>fek^keoN3G?<fee"
A$ = A$ + "^jn[k_FG\_nISaS#fc]nfO]mSWCOfem7alodJj^OV^WS5UJO?JKW[fVgmhD\"
A$ = A$ + "gO>eM^c5jYeoZVoHgo9fmR_ZVJIn3ECkg7Q^oK\l7KLk>SW]8oWEKQnjaboa"
A$ = A$ + "]EZ[omZifLfJKol[O[?nlbgGZcA:UeoVjHYl_>i?dl#C=oQne]:oGm[?KkLl"
A$ = A$ + "JUbojVoB:UJn_g;JGn_jmVbL>6AWMoiHil=WGioWIoYio==6Lln\U:oY>oUN"
A$ = A$ + "WiDWSBZGo;U[S?Ji?UiI5jkIo_gCf7SLn?kc:eHO<JIn^iO46;:in=fiom\V"
A$ = A$ + "^JKNgSCYniicNOUhlSDg>[Jn3M_WWLOhFVoDVgaakS6;oa6gbM<]5ioZj:dG"
A$ = A$ + "?Fn3=>6K>8i>7U#onKcmi\e0OWiFME=MeW1Toe;oQ^NAZi?gJ^TioZOmIKWm"
A$ = A$ + "S3boJWoB:el_O<8UgK:c3HdLfmWgOLhZgC_cQlol\7K>Oanj_aaPSgW]TiOD"
A$ = A$ + "7;^cLDBmjOYLMlA;o7?f6kN=Y>W\c^6Ql?^mo[di?WmM_bL:eO\]EXgcISOe"
A$ = A$ + "J\h\k7WcfMKkLean[>7h^kgkFoYnmOefZUi?U?OLefihmNBiNgSDn_J>4ocm"
A$ = A$ + "KgMOdHi?fhF^SY]8oGEGQnjaboa]G\iRLWiX4jgOTjoSl_fi?dL\B=oiFcU<"
A$ = A$ + "oGm[?Kk4J^JboJVoBj\kk6[NR=NWjmJ7EWMoiDmfb\lOncmgM73N3S37_?K9"
A$ = A$ + "coXNn#:G_k^Gok=Lm`H7W?N<kXHWS7jmLfnXgI_gi_eS1GUiHG;hYi?UcgZi"
A$ = A$ + "LJbmL`JUoDo\gM7;>kjf7?>TjfYFi?D]TJmOgl__f>^mf?^GSl7jhjnJiZiM"
A$ = A$ + "LFngOoWc^FfIK_NVoD[i]ko6;oa6kBmc4]<oWM\>VHi?D=7K^;i<gV#_o]gc"
A$ = A$ + "XlcoYl_fi?dW9C=oQne]:oGm[?Kk4jjFboJVoB?GiSgomZ\Ub_oEGkJ45:3Y"
A$ = A$ + ">WRD^NmXK5cOXcoOBnOCWoOfakBToAL<8e[gUkeoN;G?<faeJMlohGO4cN[b"
A$ = A$ + "O?63B]F:MncMogS<OfgCYboC[[WTe]]K\[o\ONUe8oQVgjnJ9UJoYi?dHaNa"
A$ = A$ + "ZUWVoSKkSkcDg^WUk_NUBml6bO\_nfmBc9oiL>#[cO^eK\lOlLoHc9iZiZ4Z"
A$ = A$ + "V2mmLen:e]C:eFZcODnGcl7kc[Y\?2m[KEn_jG7KKMlnXboJWoJ?OicZ[LZi"
A$ = A$ + "JE_]J<8f_>UgK_cSlWGV;MnO3S5[JnCmjMiLm_gbe3S]6TJMlOT63REG]:om"
A$ = A$ + "H<8eJYFGo_7S5gIOfRkoESaRcfVQf775kleWTomO]HkcD[gBVoLldlGZJh\L"
A$ = A$ + "oe[DZmg#nS]=f^GJ>i_67o;ek=GaboacmCMm_Y>GULWocMVCE:K[[n<Pl_Ni"
A$ = A$ + "?dmAVel_]]>>W:iOMcO;V_L:eO\jmZ[K=RBI>maV3KZcoOT]Ri?WidVKnO3S"
A$ = A$ + "5[JnOjekNkG?<FmESSoSDn3EG]:omJLhZJ9W<ERgK;6;B9c7Ooe8oG]?:aHa"
A$ = A$ + "IKcWh9i_TePl7?gOm:UJo=ToHKS]kWVCn[aaoBmNcE\lOlLoW<oUJ]n_BD?G"
A$ = A$ + "mI0iOmbO\[1ERmgXUomGkEnUoF<Oi]OM:IHokmhfXV[[YES1ohH`Wog?2h9l"
A$ = A$ + "NkMNTolcLYboKI\HEcoIG_KcM^Vmnk;=bOV8Ue[DZSoSDnObJjNJnkeh`MGK"
A$ = A$ + "J]bO;6;Bmla#cS\TioZmA96;bmL_SZmaoLfWgI<IEcofmXbmcK_YloU]k]FR"
A$ = A$ + "lWkHE=N_i:Fn3M^oMGciIGoZVO_Y\m^jc0bojUoHG7I6coffJohPl_fi_fcI"
A$ = A$ + "nhok#IihaPSo_KiJLJaJ6>Kn?QN_m>?bocclMcoKI\HUcoEGkjhJFRMm_mGK"
A$ = A$ + "n=Mm`LGcbM?n?Bio9[Ck9i_WS5UJ]YU:o]H\X6[7_6i_4S5?iJamhjoUnN7["
A$ = A$ + "Jn_Co_NKio;Kg[]5O6O45;oQ67^kJ>S]^coNL?QeoMlkY4eA^OnGnGWl7Jo?"
A$ = A$ + "KiOonGnUoJj\e^N\FBimEkj]Vi?F^oj`jo:nhPloNboIcQl9io]<F\bi?e[M"
A$ = A$ + "Meeo^cfLD\J7ocI=SU:omNl8WJ[5i_5S5g]NJMn;aHaC>g[7On_dOFIEcofJ"
A$ = A$ + "<NbiHSNnobfJRZaWa_J\Z6_gkF;YLnO9GgIXJH_[N_UX>bmcobojTo#ea\Uo"
A$ = A$ + "mkGiGn[]]mMXk]WcG[5eJ]bO\c[nkOfWKRLLBnO?io\<lTlOl[gkL:oWWocV"
A$ = A$ + "cA>G[k]Mm`ElhoEgknhajLbO:KgA=c]8o]L\8gjYei_TS5Y^_?kjEe:oY^?O"
A$ = A$ + "bHbZVoWnI^A>oY<>lT?cMen\5O?UhlPF^6hD[gB]o_cW1Toe8oQV[i\Uo]]G"
A$ = A$ + "Xa1iO]cO=WgL\eaNeGKdF[gC63neaP?_Nn?m^^UolcI<g9oadkL:oG?64klh"
A$ = A$ + "[^nG\?gl6bnIW3DZSom>OQbK:g3o>i?U]kXViFToF>FlTibeRlGbaRDggWMm"
A$ = A$ + "ZJUoDgW?I<IEcoCo<g8WoD67:ajeB9ooM<8bm7?;oUXFbiLP_ne?iE\lUBMF"
A$ = A$ + "RmmCo<Pl_6io\?7>;iOofEnUoFjhmjfGKkoJSjjlNJfomaP??hmgo;iGnUo_"
A$ = A$ + "cLX[UMeeoBIKlf<k7o_jnkg=oG]=7i<GklgSaRk^VlJWoB?FTjnnH?<>[W=U"
A$ = A$ + ":oY^?ObhbZVoL?Wk=UoD67^kWibE:i_VkkL?78fj#cI=ZYLlJok9W]I>[mm>"
A$ = A$ + "O6hY[3_FioZmWlolcmW]lOW[o9o[AnKU#g3O4Z[JVgOLLhc?3:g[EoF\?ooc"
A$ = A$ + "aj8iohk[ge]l;oeJlHE_ng<NloZe^MgloTeaec<OfJi_Kn_Jo=2I>fLl:EnC"
A$ = A$ + "M>TenliLESco_C=8o]=gSDnCILHKOniWQok1aHOmLgoYTokjZJ_Dm0jhaZLN"
A$ = A$ + "5Kn?i^=BYfbiloLboCNERlOefGn_geoZI?PfGOe<oKkSPGkiR[o9o[KnY>ne"
A$ = A$ + "LioDooVYeo;ob?[mao[j9cMboIK_NWgHIN[fRUUkTo#KcN=FTJ=DSlOWjX6W"
A$ = A$ + "?OLnTkEkcoCMOnTaUDfViXdOno^e#[cm8UoD67ffWK_>nm6j[MWmO[kognll"
A$ = A$ + "Tc3f_6eO]VV<Goj?67^agKZeE>WoWCnOj[WTo[f^bomcoEckZTeI=boff>he"
A$ = A$ + "MNhm0Toi?oDNonnEO6dM_NmXkGco;BnOc[oGnUOFkSoQj=aaNDTCnSYgil\<"
A$ = A$ + "7kgk9i?emg8TiJWoF=FLWnZ5:_K__kTo#cO=dn<gj\Ti?fWc;MncMONglWbf"
A$ = A$ + "k]UoL67>^F\mOo7oegAZio^2EckGGhC?7h\am[F7k_>fmig[oM_k^ff[ZkBl"
A$ = A$ + "IPD[cJUo[f^bocboEO6LdcoC73B9ogmE]boamaI7gToj<WHBoLZPoIomi2eo"
A$ = A$ + "_8iohk[ge]l;ohh_l;o[Hn_J]fiTikToD7;>K]?gMLlZe14JK7[>NJn?KLo>"
A$ = A$ + "eiCcmK;oi<>LLmGOmm5koN7YVoLMF]^O]QehlPS7S2mjdL7HL8jfhVeE]nlO"
A$ = A$ + "Z[M_4iOoH#:mkAn_geoBmL\gBngG[U8oWEOe>oG]?ToWUO:_O=GV87gOje\7"
A$ = A$ + "E_eeo8ob?>n;oboZVoS[eh^O_g9o?MOnda`#cW>e]ma\LWlWji2W]F`B]fo#"
A$ = A$ + "[kL4coC77bI]Gg]G4YToBdcQ#ekC>?8ej;nHeW9:nf8UmOYF7UlO_N]fclGZ"
A$ = A$ + "[oMWme8VomGcXTi?gNDERlOefGn;CnY\nmeT3OL_DGgNdlkie7olNiGnW]l_"
A$ = A$ + "jFmSob_l;o_clWC?_>kkm>ioYkcW^foW^MjAnOJmoTnYUBO0C=oaF3GXmiM["
A$ = A$ + "gkmIg[kcJXmkGOe\4IkLfhBXce:aWog_m>^_7Ql7kGGjlWJ_VJIn_ZFJE^7a"
A$ = A$ + "loTaQDfGQn\GXGU:ooMKU`eQ>FSe:oYlZTi?ff_diWb:UiRDRi]=ZTOiOUco"
A$ = A$ + "ZKe?n;ob_l;obohWoX[QoP[f6AG?f9[ik>[O?UeQGRNQLLK<:mo:UJmYW?lf"
A$ = A$ + "joG=boKZoG?=oGeGYA?oUXoGbOIj1HYbO\]M=b?000`Z8WNm5kk?[No]KMOU"
A$ = A$ + "XG6?]nS]m>KOLF_7oj;WWdj1K\JZfW?LVWWm`S1iD3e8ogYo?U>o]XgOa>Vo"
A$ = A$ + "VbO9>Gh>m0L4bOYjmE9j1H9cOX]]No1000dGQN^\BK]PoN=W_Ye`EkWoWNW_"
A$ = A$ + "Lbo]bm9S3m>oif;TJToFek_#Io]ToB>6TK?0kMn;mh`Cj1HYcoa]]No1000d"
A$ = A$ + "O1koG6[iKFjogOkki=FgKX]E_cG>iOfjoGXc[7YnoDkaWDj5D_cO]Nf?_cco"
A$ = A$ + "H_joG_j1J`[mE`lgkc30000hgFmnomcO64olfol_]_?P_QaQOVokVkO?><Bi"
A$ = A$ + "oh?OY7EclOVFVm[j1D]bO_jiC^m0[eiODj1J=c_No1000<N2fo_<F_gK^oOe"
A$ = A$ + "ji_i=<>Dkn?dkl9oWo_cggniM=Qo<1>MoePaVLj1F[boXf3dI<o0000lK7G["
A$ = A$ + "F^Oo_eno1[PHm0\Umo[7m5?in#EQl?2mnJec?0000odCoIC\7o\=2TWSm3ji"
A$ = A$ + "o<_7ChmC?cli??Re=oS#?#Gel30000`ZYEmZOTnc4h\WoaJ^?7UNO]Z?oW00"
A$ = A$ + "000`JiH?9KIo?7QnN5ZVZIoo6]l300000c_FfCZA\gGQk=GMnioM4c?00000"
A$ = A$ + "`ZXH??PNNo0000006FAk3h=ekl000000#Ljg700000000000000000000000"
A$ = A$ + "000000000000000`Kf<o_m^cLf000000^bGm7k?oi?CIObVi\100000LU]nS"
A$ = A$ + "]IVjCf<W=00000P[\_oHOnaWCEObVi\100000iKVk;D\\MliSKVjAf<W=000"
A$ = A$ + "008?clO7aMFffgS\So_kMMGZL?SI300000Bg<ogALGU]I^7IcLf00000Pd<c"
A$ = A$ + "oM4G:IKVoITMVc600000TVI^7AYT]E?o00000\BVinRTbonG<Ko<RVBfFmWo"
A$ = A$ + "A00000F5ngo2moKfN6iVi\10000#>l_o5cI?RlcoklV=00000Be<oc8Yom_#"
A$ = A$ + "ooVe\10000#ZViNTTKo_docekh?0000[WINMQYT=iOmb_on_KNkATWo_i=K0"
A$ = A$ + "000L?[jon78o[Mneo_i]7AjoglV=0000bg:o_o1boJWoI^79joUl?[I3000P"
A$ = A$ + "lh_o_TOiO>kARnOUFf2mnVeloeGK6b6000`C<c[;:Uon?K5Fo[nO8ob_lOek"
A$ = A$ + "KFco<T;000PW`OoWi_ocToe>ocFOBdo_aXoOK?cMYZViO6>^2000LGnko<mo"
A$ = A$ + "AnUoIkJ0joGKkoG\ni5Z6>CYj;Xno1000l]m[AbOoW=G[CDo?ToAhioJTbOX"
A$ = A$ + "N99oiUoBeW_JgG`Imh:000`M\jmo#nUoE>oaNOcJn3U;i?NO2kAOn:EO1WeS"
A$ = A$ + "[000`c=c[=8FflcohJgo7iO]cO\gg\VoNdo_cj?E9niL]TiOTkcgCj;H?>_n"
A$ = A$ + "9k[glWo:mi`m>?000cW]e8<Scgl\\YoO[MoOToe>oaNOcJn[Ioo:ec;GYj;h"
A$ = A$ + "Cbo\ZEWG_=VNg_ogjW1;ilXViiT100d?7Goc<=Oc[bfZgo3iGnGil7km=[i_"
A$ = A$ + "4mo[Dmik>m^:Wn2ZoOmicek7?_kfh=ni`BoWOh\mW7900#o]O>VngoRiOmoj"
A$ = A$ + "oQom?#nGklWchD?jcgMjYEZeZnoe^noMfaUDlfnLHYbmKNLhZj<gNhWbfl=i"
A$ = A$ + ">iOV8ob_l;ob_l;om?oaFkC=ZY[VWK?bfagCYWknXh\S]komkMMFkl7jl<iG"
A$ = A$ + "nUoOWoNg[ZBd[[Lco\;DnKemM7ejM4cmKLLH;oaZec6O^jki=ToWLnaK>OYF"
A$ = A$ + "kU8o_maYIlh_l;oboeIoZl?cS1[Nng636]co?^fXJD?Y\Vbm_WFV]F^f_[bO"
A$ = A$ + ";[SD?_LfbO?Go_l;o[Ln71b_Wo_A?g_aaQDkaN^I\Fc9]dI?gaW#c9>e]C_c"
A$ = A$ + "K\S[e>o_U?;DcSo_Eb_l_Ziohl;SUoIM<h]ToJ]_3MNN\co[I=LeaVBoIa#7"
A$ = A$ + "O_jhO977B9KQfo]H=HWUoF_6`FG3m<oG]63iGnUOiOUbO=V[afnk^KSFF_e8"
A$ = A$ + "geHn;m>Og]FCY_=aN?SnH#>I;U[oLWaXNWm[ZmBToAJMR?ILj97oO[Toe=oY"
A$ = A$ + "dS_Fe3TNWmDWoi\<6lVbO]^gJ\nKUj_O]cF\eOlTJh\eeLlHK>_gB<fOehoa"
A$ = A$ + "eVE;7cO]MFn3MmgFTmF>6TjiO[Nn[IO7B9o]Z>TOiGn[kLYnbMg6k[gJF[e:"
A$ = A$ + "gUX^;mf[eIOoidYDokO_kg6SjH`a?_6kcfYDoGmnBIO=Ji?dL?B=oQfFSFnc"
A$ = A$ + "M<j97oO[Toe=oilIfgjW_C=?iVognH`K:oehL_#cWoZioGSiYWbmXS]>QBTi"
A$ = A$ + "DccCnNciLZSI[TiOd8oboMcO9LF??>[V[M_#TOiGnKceM^kfXEeJ]bmZgo_k"
A$ = A$ + "FkUJkdj<7Znb]f?km?R[?n\Jj>eKYgNe<g?mhIYNoS`i1m:oS^E>oUnco_9g"
A$ = A$ + "]G>aj3D[[mI;oGegY]mEYngof#cMo>WoGbjXVokOK9kMGYgFGU=moAnUobfK"
A$ = A$ + "QB=_dJe;4iGnUojNMWooo_oamg6OnON?G7Foon^FgoIQkMnc7oHK=RS1Yf_Z"
A$ = A$ + "k>WeA]oGGEC?YF[af\FI>eeEFRSoUJk?JSC_]L9oiWQW\noNdo[k^?;Eo[^K"
A$ = A$ + "ocNJNfO?gI:oWE7UNmo?]f;eHHZIk^ioZeVlde0Ubf>UJ\Fio=#nUokVoLDb"
A$ = A$ + "NNLFF:E_#TOiGnkoeWV=okaWbegbB_mZMfg>gZDWSES]I=bla?Gmde_6jkOD"
A$ = A$ + "joeEio9[mOof=dfYgi?deN3E7ehhoMZSAhlRJToAg:WoBEkmH<h9kcBoIbB\"
A$ = A$ + "mb9??mj[SNnCmJe?IOEbkA5kN[?ihO>[o9fnj\ePDSe1MejN>KoYo?b_lG_n"
A$ = A$ + "ODkNNLF^NJM;ob_l3UA]F_f8_FhDjoEYbm8do[DbO9[_H[OYGi?UeTfRnOdS"
A$ = A$ + "noUjmjjEoOTob?GTLfVUlJOa63b]F^knj>SkeHNQ?IKWCNfoNcmW1fg#n?;C"
A$ = A$ + "YdS\L7[[Mn_kWObIm?Q6W>kmfRk7WK=Xo?b_lGfnO\mi\AHlIO]TK6TOiGnQ"
A$ = A$ + "bHkL`BoISmWO?JWg6J^iUlcHaVonX<FDRe>=2kSkNln\kUDSSoYF7enhlCOO"
A$ = A$ + "SnnMDZSNVoLfVelJCi^];E?L^C^KaiOeXf^kJPOKi?dggCFoOXiNgRlWjL\:"
A$ = A$ + "Ao?b]WK]#ZedMboX>GcWLNcIWS:oek?oRN;U\UB_36YNNLEFC=?b_l;o#IdZ"
A$ = A$ + "nodkLNF]eRl?BS5QVOE;joB_boI[3]UWogZeMWcnZGOn_fS5[HnOB_SJEo?N"
A$ = A$ + "JMod<gb?3NFmERaRDjCb<To#eH^Io\c9[MncmcJYT]cN?W=V?:cohZjl9i_g"
A$ = A$ + "i[6OVAn_nJ0c#fC=KWe_PAicig9cGU;iGnUOX<Fino]:moj\jZfed8<7]DFW"
A$ = A$ + "A;>n?Jmo[ei?gjCn;OVSMNI=>7LKOMehL;joG^mQZVS1UJ\8WN0lVcOZOniZ"
A$ = A$ + "aZNN_X#kkWLL=ff;Wmc8h\Jn\SGOmo>d[A>[i<VLEfFml_mnjmL;[iH#>GoK"
A$ = A$ + "oWIjM]GR\WbWoUOiOEc?D2eJ=`eN]eUZfZMm=RO6NdFoO[?N_E7]nhO]kiE:"
A$ = A$ + "I>FMeZlWJm9oU?c]<gY>>ldaRLcl8NMXkF[?YGI_YloTggK;oYV]H_WFMOmJ"
A$ = A$ + "<fTBV^caogVWLlOUbo8>gjJ=6Llcc>n;obojVOX4Fmno]2mo:FngoOWQmE:7"
A$ = A$ + "_gG;]ZN>[7PmXoOm>oGEObOicL?bM:S3?M\hZScG]>ZN<6LF=Ebno=;i?dH`"
A$ = A$ + "MOOSJnc=KWmN6QiHDbaWHiOUOngToakJKU<ojoWno8obo\U=6;[LooFUnOMf"
A$ = A$ + "aVFUoAZ_3mXFJM=4[?2SBnkEooVilOFV7U[77JLX6mo[fWOeRc?_Z^_Z7#cB"
A$ = A$ + "n3Ekg]gWm>gaZoLk1J\_oA:S?I\iZSOclJT\ngkMno\Uo[>oOekoYl;o[JnQ"
A$ = A$ + "BHUkoG;Z_AL=8[Fn7Ue2gbj8fnJDbO_jog<Wo[bl8OmWk>F4KNBS`Wg_ka[D"
A$ = A$ + "?VmFkmI9ZoLjmiX>gicZeHI;UlgkLESc;2UoEoiOKeco:OnOXgg<TmLbVl;o"
A$ = A$ + "[LnQWBooVonO]jiODF?H>[]_6IN4>7l\NPEcno]2ioZnZ=2GkYdeJ:mDMTbM"
A$ = A$ + "Xjo^mZ>enXnfcO:[mMOF7eciCiLhHi#o_^^o?SnijiToD>n_jiOU?o?di0c#"
A$ = A$ + "fc9Kb_l_bi7NZomN]OnO:kj_[af]Def:eo[E?oQjA#?[SFd;ZHm5Id>o[Eoi"
A$ = A$ + "?\2io\]k8Tk#ekC7;2]>aAjHmM>fUJ>>kkIVbO:mo;F?djM^b9oidClHSG_Y"
A$ = A$ + "<Wki2ajocfHgGOYNGkUK<hkLMecogZVoEoloAH^e]J<hhecUOiOUc?D27o<e"
A$ = A$ + "X_M;E]]BmoJecOXiC=keaXTiNEO[Hn7m<GSj>fgkK8gQbB>S5W]>aI:oYdo_"
A$ = A$ + "gfilW=6TB^fgGTEliOJKLJ[_GKjM]G^aP?gigoIF:o>oOFkA#:ICnUoE>o0g"
A$ = A$ + "cZeo[#eD[VcD;gGYN<H5kogXMoSJoWOg:VoA?ceH\h]ViB<F<Cmnl\lWJooN"
A$ = A$ + "kI?WaPDkCjKD:IKK<J6kmegIlWm0CnMnO\gCXNTnF]?;b_l;occefPNKejoE"
A$ = A$ + "XJJUjoiZgo_AlNSQ^7G]jogZToA?ceH\h]ViB<F<Sc1>ein>SI?WaPSc[HTV"
A$ = A$ + "OA9bOJ?oCcK__n>Wo\7HbOjWSlFUjiojoYl;o[In1^WE[oGQZYHc[j=__BmH"
A$ = A$ + "`Zeo_AjL_FEO[Hn7m<GSjn]ViBTWILNRYVYI<kiT]HWW<;iOfnL=UeZOn_nO"
A$ = A$ + ":obojVOPkihW_ZMo_6]?37J]Dc`nj\JH4F;Qnoe^j;dm#7]lGjjKdcL=ZkgJ"
A$ = A$ + "V;ANVai9VJVVa\WCffoNfjG`7Cdc1ffOFQ7cI_[;63[nionco#nUoe=o0gcZ"
A$ = A$ + "olo]J6UN4dbj#ooF_l?jI^6emK=cU8?chl4mloUgjOfjkaVNGkUK<hlomOPe"
A$ = A$ + "fZOn_ol?TOiOMc?`mLL>3e^oO]JOAlS1S`j4mloe^jKDjiK;[_A?ceX^O[I^"
A$ = A$ + "4iI6WWXWo_Lnko^i\g7OWahoko0[]EolOoiO8obojVOPk9dJ9VQm5a?6<2[C"
A$ = A$ + "dcoGkZ_E<oSNV[AMoFcL9bc<>?A?oOY_nWI^g7OWCoIWb_]jWok?o3iGnGgl"
A$ = A$ + "30GKDjA#[Ono6ikODkjK5coXWiJDg_e<GRl<ScCdcogLW=PW;fL9WQ[A\USL"
A$ = A$ + "On_TOiOEb?0L]SoI5g[WUPFF7Snm?JmcogX=gP#gS_d?oOSFV[aHaK=cUH\H"
A$ = A$ + "6W3LZcmM6cN^S10[YmoI4\MmRIjiPLK^a7cYl;ob?0TR#Gg\Gmo[EeaXoLAe"
A$ = A$ + "bWo_AM^1KgS_Dio=TiB?FlVclC7;Vei0WbLOWe\WcH0`JJk?OPSoI:gkjZLi"
A$ = A$ + "kjom?AnUoE=o00Q<j?o8]jioKol3jMVoM=Ffk_o6bLY7;NcInYS5cjLPCI^_"
A$ = A$ + "cJfcI<0H=]o?cSIkJOOWacogo4iGnGel304bak=^M?TNGG]Zn>>oPNWgheIi"
A$ = A$ + "^onK9cUL\h]WiW<F<cc1nZin>cI?ea0Ped\O]__cIhi7:obo:WO0P#6UOVWk"
A$ = A$ + "EmmVj9DY^onK:cUJ\H6blM7;Vmi0OfLOWm\WbH0000000000000000000000"
A$ = A$ + "0000000000000000000000000000000000000000000`hkc?n\ke`K\f0000"
A$ = A$ + "00N36iN\=be600000`Xk[n[]YgebKZf000000N3nZmJOmok[oK_[UgD]1000"
A$ = A$ + "0c\]79WNmm3m#=N6d6QW[]M?RM3GnC]f00000:[WncSWONnNg:aa^AkhO:eC"
A$ = A$ + "_joG]7[do?0000hWnhS?n[N^=jUO\PlKd?PWnmgKKmQhY?oS?MK<27okifX6"
A$ = A$ + "iZeeLZKcF<>]ji70000fKo[N^=jFneo_OlOkefXWioYomafXmgYKYLnH=ZiD"
A$ = A$ + "fV]jc:YlLheSlWB]1000#i]oIGk>?oJ?mk_gFmnom?eo2ocoK9niAl=ocdh<"
A$ = A$ + "VoDj3E=ZiDfV]ZGYmhW3gNncM<0DF_migGb\_:S1abmZ=>4J\Xgec8LN#_[;"
A$ = A$ + "Pbhh[FomgK[n?o_[NoOWanO]ji?en`e[noeRa:mo30NR_VCgf[ghlk:A^?nJ"
A$ = A$ + "V77>;g[bh`nec4:c_eejTKn?khn<WOHELlE[on71UH=`SB_?^ei0;lcoWSoc"
A$ = A$ + "gonOdcn#eSn^Mg\eSl?JW[00QYoO[CO_fWkolWoLZIKLh\Nn]?cQj3f\<>Lg"
A$ = A$ + "lgkj6NRkn<<mfOfW:A6VRa0moAoo6P]A??n?2KSFWYI^oG[Nn1PWAoodo_I_"
A$ = A$ + "oOajiEXaQmoNcdi4a>O?DnW]\_j:EoOjM>^[S_ZmggXYDoloekLlTjO4f6mR"
A$ = A$ + "noiho8\=JMVVinO]ji70N6moK]jga:go_#mhk\no=CS5jogjj9m`J6joeaGe"
A$ = A$ + "nkKdXoOjoSnoeo]A??n?2KSFWYI^oG[Nn1PWAooF[nMXoO[Gooll?^fNB?\V"
A$ = A$ + "RnO]`olon?i#oo6R]A_XoO>n?2KSFWYI^oG[Nn1PWAoodo?moK=jogZVoEgZ"
A$ = A$ + "ocokoTSKf3[gN__:A6NkS1joSno=2KSNNlO4f6]>CcLo_Fml30?SnoYoOjog"
A$ = A$ + "Lgo[E?oKS1?iioZgeoSco2go[E?ojoWnoXoOmOKdcSoS`fXeIJVkoeZWoBIF"
A$ = A$ + "N6oUOiGnUokToEX_GWUKmoCooVinO]jio;kOEc_WAe:go[E?ojoWnoXoOmOK"
A$ = A$ + "dcSo?mkOd>n_jmoJecO9leLJ?>oggnlLUOiGnUoL63FQnNMF^eo?moKVkoeZ"
A$ = A$ + "Wo_XoO[Ko_Fml[oOjoSnoeo]QSoU=CUhmlFf_SBM<:i_4Fmeo_bi?DfGYa0i"
A$ = A$ + "O]conaQEX_GWUKmoCooVinO]jiOK<`?o_[Io_Fml[oOjoc\eo77oGkSo[Lo_"
A$ = A$ + "BMN9m8o_Yi<]bmoJecoZgoWE>oKI?fio[`H`naREX_GWUKmoCooVinO]jio_"
A$ = A$ + "S3If7SgNO?:AFVUaPE>ojoWno<Kmoaaoenho:go_m_6]lWJ]=2FinO]jiOUk"
A$ = A$ + "oeZWOmokWS5[#O_>;gjoWno=cmoJecoO77do_Vmm=JFil[oOjoc\eo77oGkS"
A$ = A$ + "o[Loofo<fMFOfJMngVWXWo_g1iOMc_noYoOKS5[#O_>;gjoWno=cmoJecoO7"
A$ = A$ + "7do_Vmm=JFil[oOjoc\eo77oGkSo[Loo2mZgi?eJJT\bmoI;ok73N;m]En;C"
A$ = A$ + "fGmnoMVIO<HoHa:dg[cbmaGclhPno]NmoJecoO77b\?6_mnNDR\<;S1[LnGi"
A$ = A$ + "noERW7UgdcdbIenMZoWnmgK>n?Wi_7om#GZKcFogoOQjgF;conmo8N^bIiIE"
A$ = A$ + "Gg_l;o[Jneo_O>F\2mmj\L[oOjog<go[E?ooML#ooJfggXIUco:go_m_jifH"
A$ = A$ + "4boMZoWnmgK>nokJ?eGSJnCY7C?9g?ILX5moj\J[eio>SASRE]o7b_l_UoEn"
A$ = A$ + "iO<FnGUaP]aQ]G[J^?nJV77do_e[oG[Nng63bijk_mWkUBTUII<HUcoZolOM"
A$ = A$ + "L^mgan]A_ccCbofebciea_oNWWL]ohhMOmV?oO6conG7oeQZiBmjZ]IXJ[f7"
A$ = A$ + "CS=^dblWB]=Rdo7iOUcoaaPE>k[lH`n[_gkjY7i>dmijMmeRLOF_oVYaQSIn"
A$ = A$ + "hom\nO=3S5jog_GS#:mo>fLLOKb=kcfH`:WokVmII<X4en\TokDocdaoBlZg"
A$ = A$ + "iY4i_5O_edMk]E;>7Z5moJO^cYF[AnSmNO3cGLeGo_l_fiohH`:WmEN<h=M="
A$ = A$ + "kJTk#g3_geG;b]noYoO[Joo:mkOTMg\<;S1gmIHj^OOSTWVQgnH#9ZmI9o[h"
A$ = A$ + "aoBd?Vgdcdd:ToD^_D=Zi[fV]jnUYT]NToAlLU[bc:_nOiGnGel7jW]S]l_:"
A$ = A$ + "S1KS3c#?>NB^?nJV77do?mo;Wl[oOeM^lSHfW]aPE>o?=3_maPBDkcBnMlO]"
A$ = A$ + "?n?;i?UN<ESJ>U]I;joE:eA_boXM^B:W7]b[mGnGkl_bmoK;_kcn:=6\=>\m"
A$ = A$ + "JEcmaGclhPnomcoNP:FoognmVQaR#mo;UGjoGj_oAfMcb\<6hioKMOn_llo]"
A$ = A$ + "f7oWaWo]E?oYL?YNml_eRkGjio[\SU[F_?TOioHfG]aP#IOe63f67fN]Zinh"
A$ = A$ + "[INLhhak#V]aQSIjhaj#Iohkm=?F4ZoOa>f_OL#ooZoLi7a\?KS17kkM^io]"
A$ = A$ + "fkSWTmII<h9I?dH#_ccM[mWNlo]N=Pmg3oYSQ_ak1>Si?en#EjcICILHDjoE"
A$ = A$ + "_boKd8LlZWIO5kkQl[oOjoWno5je<?>hioccoGZ_VYnoM\oVUnm?b>nZfOOS"
A$ = A$ + "VE>o[ncoUWo_enho<nl_]ji?UNKekWo_N?Fe[lckcZO<MUco<]>WWVmEM<HD"
A$ = A$ + "^WE_bmaGclhPWo??oOWM\OFOnoFIgmnKcbm5GilodNHnd_oN[4en\TO7oGkS"
A$ = A$ + "ocBncY?LU\VCIK>:g_XGi70N7VUNLlTLOle<?>hioccoGZ_do?hMkYm`l]g3"
A$ = A$ + "dIliObaO7oGilWBOXjecofXdS<?oO0`Ido_e]oONnolloiio30PgPA^?DSL]"
A$ = A$ + "10\IFjaaCbm:go_#IOf67^:cWMN`<<Fhio30000FKcB?>NJfGYaPDj1f\=>T"
A$ = A$ + "COoV]aRHWWWkG_gi00000hNdo_e[?7joGN_NkS5QniJ>d_G\_n<<600000[\"
A$ = A$ + "E^oO[LnGaOnW3mgmQQbn\M>Qno10000[]I[G7bOniNUkog:l_1:WUWSi>e_?"
A$ = A$ + "0000PgUEoO_ZFel7[gGm^^6QSecfHaMcc\=>000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "00000000000000000000000000egWOlIFOmEYF000000V1SD?g6YJ100000H"
A$ = A$ + "6lATN[5k[_:e200000cXAji\ZEeb8m<WejJi[nZ]9U_N==Be200000c:mo[_"
A$ = A$ + "S5mXF6YWi^AZFPEaoo7_>mG_Ze2000`\JTjcB[ZUAZWC]^F6YWi^ND;KKc[n"
A$ = A$ + "_]lHo8D;[P?no7#g\o[Mf_o<E;oMKniWO;d_^UiO0Z5000PIg8mcII[ZUE_o"
A$ = A$ + "GKKoLnjeN<XUeb8ec]ND;K=Gi_e`^WeZSoNeF[[U_jUdOncOn7KmFjhok]OM"
A$ = A$ + "m?fgnJi_kSMmH;h_^QiO4Z500PigKHmO#]=BW[iio[^ebofKQ?giSMniG_ni"
A$ = A$ + "^mebgKk[o_];o][FnhOfPOn3OmOneG[Ai_eebnnZMVFgo_FE;SD?g6YJ100H"
A$ = A$ + "n=2mNK4ZQoIo=0om]C;[QHk[N<>dcJacoGO7;JI]lcWYX?Sd[Q?KB?#jA]lm"
A$ = A$ + "cGeW9nO[OnKI]\O<oH?ff[e7oKE]\oi[kZn]e^So][FnacGhWogeGfgc]]fa"
A$ = A$ + "fhlgkJ100F=kGSI?j3#?goQFgM?cOG63f]T[FWmND3afGmHLH4ZUAXgO]^FR"
A$ = A$ + "]O6Q?oGSJiHoffL\OK7ojeHMgmXF2e_a[n_]:o]XF>fWYDjiF;bO[ZUSold^"
A$ = A$ + "OKOloM]oi0^7eb_oI=nhcMk?oe]<om\F0PeffL]kilokij`Fml_Zni?[A]kW"
A$ = A$ + "mYAHookmm8ToFocOFOokKkFG3afGQnj=9k=^FniiIWmcOIKokonFE;W_OniG"
A$ = A$ + "_=i_=ebaN^laQN[4k[gRnodRJAoonmcIfEmK[E7oKA]lkN>M^ffo[jG;[Nn1"
A$ = A$ + "02iS5_oG[NnGAKc]jW[aX3omoB7foQfgS#nKE=lSiEOh__MJMnKE=lgak0k["
A$ = A$ + "#OmF<ngbJ9dj^?_o;]il_FE;QjkbIkoVmi_6D;OO]V`?O=Wme[fin=\F>^]_"
A$ = A$ + "ZWK]<o]XFRmi]cjgF;koG][UHkc[dblGcJIec?iLlYmomOcXHkN>cjn;US5m"
A$ = A$ + "hho8<68o]k?koN^?3G3OOLXmi_?kkSe`nok:\_oNooKcnn?fj?kmjOKano\e"
A$ = A$ + "NgklgRJhhl_Sf3Z6UoFD3Ge[aHOmZol?dXJi\n]]Yg[o[Veba?_5Jo4j[GoW"
A$ = A$ + "oUfD;o^gJOoO_j[G[lgbJiWKkddVlgVJi\N^Le_G=?o_Eeb8ec9moKLZU#eF"
A$ = A$ + ";W3N_GkKhJZe?okSAno^NjacoOO73jaj`kmJokM]<JiOomOKI?8Jin<N=lma"
A$ = A$ + "QfWof__?F3mjN]mJOOfn_gi_5kOmokgk_A8o]X6do?mo;fiKmNmOeZFneiKA"
A$ = A$ + "kahLocoj?Gcajmlo]O\lZog]khOm[5moKLnI>]7ebZWoD[[SGgI6fGiNLIkn"
A$ = A$ + ">]HnO]HOUKmdjlgkaPOO\XWokOEOk1d:WoFL_oN^??[6>NLXUi_ekkH73JaL"
A$ = A$ + "O7QmmIWoekco]o[on?Umm8ToF<okoIOXoOAojEOm?M\oOajcB[?o[5eB?jid"
A$ = A$ + "8E;aFcm_?6d_eoGcJiZiKdbiQdSJi\mAXaoFoioJG;7??:UoK[>o_5ebZWoD"
A$ = A$ + "[[SGgM6fGiNLiS5^oOenJOmJoUK]dSlg[aPOO^Xno]27o_J=hmLmo]HLh\k3"
A$ = A$ + "gblg[keOL>W7WoIKnl_mO[goQfgane]<o]Z6nmnjojedOO>TkAn[K=lcmggk"
A$ = A$ + "[ON=gOF3]Il_=eB\[anmhmWojg[5i_Eeb_6c?\O>k[GmSo=ZF^J>7SdlOZA]"
A$ = A$ + "8oQFci?oI?YWi_feba[kTbo]fi_UebZWoDZY?do_^lioNWo`G?BooVYmiEeb"
A$ = A$ + "fmMnnoZoOcdn<eJH4VoG[^OgZVo#c_Xgcoan_=koAH>Wm\6nMO6fogele]g7"
A$ = A$ + "mZ6fOof?nA_enlR_N=7oKG]4KnV7G3B;^>L?ZU#W_Mll\HOmFL^O[ZU#S[]j"
A$ = A$ + "OgG7QJAn3gg]A9oe^F^JNWm>oe^FFmlWB=]IVfGSH==JiOOmdjlgkaPSeB?b"
A$ = A$ + "O?73nN>GOoOWamiIeB[FkK?gWWE37k1a<__?F3Sdmo7UiNdRnOHognmo8<_c"
A$ = A$ + "NF3kgg7G_enOM[bO;ZQmmL;dn:nG_^mo[EebIG[MomNJmiO]ZFniiK[g?o[Y"
A$ = A$ + "<ngbkofcJAnUOiOMc?07mel\goOWemIlJYmmQMLjmk7ojom\__3M<XW7okan"
A$ = A$ + "^Wck`n_OkoAHNWm\6FalWJ?G7QaoJD;boJWoSkoHmL\FINTZ5iGnUoe=o00\"
A$ = A$ + "^2eoaNgoCkof\oS]_7QlgZn_]Jio\mg8=nG[JAnGklOF=Dkl>ReRl;obojVO"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000H>lo1lf0]"
A$ = A$ + "%%%0"
btemp$ = ""
For i& = 1 To Len(A$) Step 4: B$ = Mid$(A$, i&, 4)
If InStr(1, B$, "%") Then
For C% = 1 To Len(B$): F$ = Mid$(B$, C%, 1)
If F$ <> "%" Then C$ = C$ + F$
Next: B$ = C$: End If: For j = 1 To Len(B$)
If Mid$(B$, j, 1) = "#" Then
Mid$(B$, j) = "@": End If: Next
For t% = Len(B$) To 1 Step -1
B& = B& * 64 + Asc(Mid$(B$, t%)) - 48
Next: X$ = "": For t% = 1 To Len(B$) - 1
X$ = X$ + Chr$(B& And 255): B& = B& \ 256
Next: btemp$ = btemp$ + X$: Next
btemp$ = _Inflate$(btemp$)
_MemPut m, m.OFFSET, btemp$: _MemFree m
BASIMAGE1& = _CopyImage(v&): _FreeImage v&
End Function
Posts: 545
Threads: 116
Joined: Apr 2022
Reputation:
39
updated to version 0.2. A whole bunch of parts added and some adjustment to the color scheme.
Code: (Select All) 'Trekn-Mixer v0.2
'By James D. Jarvis December 2022
'This program uses BASIMAGE coded by Dav for QB64GL 1.4, MAY/2020
'
'generate a sprite sheet of spacecraft for trek games
'each is 64 by 96 pixels but code here can be modified to change that
'
'press c or s to save a sprite sheet to the clipboard so you can paste it into a paint program
'and save is whatever format you desire
'pres <esc> to quit
'
'License: Share sprite sheets as long as they include generated credit bar in image
'any programs using original code or graphics from source or generated by program
' please include the following (or equivalent) line somwhere in comments and documentation:
'Includes Art and/or Code from Trekn-Mixer v0.2 created by James D. Jarvis
'
Randomize Timer
Dim Shared ms&
ms& = _NewImage(512, 416, 32)
Screen ms&
_Title "Mini-Trekn-Mixer V0.2"
Dim Shared part&
Dim Shared kk1 As _Unsigned Long
Dim Shared kk2 As _Unsigned Long
Dim Shared kk3 As _Unsigned Long
Dim Shared kk4 As _Unsigned Long
Dim Shared kk5 As _Unsigned Long
Dim Shared kk6 As _Unsigned Long
Dim Shared clr~&
part& = BASIMAGE1&
Type craft_type
hull As Integer
saucer As Integer
drive As Integer
cannon As Integer
turret As Integer
extension As Integer
kscheme As _Unsigned Long
wings As Integer
End Type
Type colorscheme_type
k1 As _Unsigned Long
k2 As _Unsigned Long
k3 As _Unsigned Long
k4 As _Unsigned Long
k5 As _Unsigned Long
k6 As _Unsigned Long
End Type
Dim Shared klrs(10) As colorscheme_type
Dim Shared noise
noise = 7
buildklrs
Dim Shared craft_limit
craft_limit = 32
Dim Shared clook(craft_limit) As craft_type
_Source part&
'read the colors from the color reference bar whichever color is in the top left corner will be transparent
clr~& = Point(0, 0) 'find background color of image
kk1 = Point(0, 1): kk2 = Point(0, 2): kk3 = Point(0, 3): kk4 = Point(0, 4): kk5 = Point(0, 5): kk6 = Point(0, 6)
_Dest part&
Line (0, 0)-(0, 8), clr~& 'erase the color reference bar from the bit map
_ClearColor clr~&, ms& 'set background color as transparent
_ClearColor clr~&, part&
_Source ms&
_Dest ms&
Do
Cls
mmx = 0: mmy = 0
For m = 1 To craft_limit
'create a new set of weapon sprites
clook(m).hull = Int(1 + Rnd * 31)
'1- small saucer and drive
'2- small saucer, drive and cannon
'3- large saucer and drive
'4- large saucer,drive and cannon
'5- large saucer,drive,cannon and turret
'6- large saucer,drive and turret
'7- large saucer and turret
'8- small saucer,extension, and drive
'9- small saucer,extnsion, drive and cannon
'10- large saucer,extension,and drive
'11- large saucer,extension,drive and cannon
'12- large saucer,extension,drive,cannon and turret
'13- large saucer,extension,drive and turret
'14 - mid suacer,extenstion and drive
'15 - mid saucer, extension, cannon and drive
'16- l2 with drive
'17 l2 with drvie and cannons
'18 l2 with cannons
'19 ls with turrets and drives
Select Case clook(m).hull
Case 1
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(1 + Rnd * 8)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 2
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(1 + Rnd * 8)
clook(m).cannon = Int(1 + Rnd * 8)
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 3
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 4
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 5
clook(m).saucer = Int(11 + Rnd * 10)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = Int(1 + Rnd * 20)
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 6
clook(m).saucer = Int(11 + Rnd * 10)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = 0
clook(m).turret = Int(1 + Rnd * 20)
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 7
clook(m).saucer = Int(11 + Rnd * 10)
clook(m).drive = 0
clook(m).cannon = 0
clook(m).turret = Int(1 + Rnd * 20)
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 8
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 12)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = Int(1 + Rnd * 6)
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 9
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 12)
clook(m).cannon = Int(1 + Rnd * 8)
clook(m).turret = 0
clook(m).extension = Int(1 + Rnd * 6)
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 10
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = Int(1 + Rnd * 5)
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 11
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = Int(1 + Rnd * 5)
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 12
clook(m).saucer = Int(11 + Rnd * 10)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = Int(1 + Rnd * 20)
clook(m).extension = Int(1 + Rnd * 5)
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 13
clook(m).saucer = Int(11 + Rnd * 10)
clook(m).drive = Int(3 + Rnd * 18)
clook(m).cannon = 0
clook(m).turret = Int(1 + Rnd * 20)
clook(m).extension = Int(1 + Rnd * 5)
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 14
clook(m).saucer = Int(1 + Rnd * 10)
clook(m).drive = Int(3 + Rnd * 15)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = Int(1 + Rnd * 5)
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 15
clook(m).saucer = Int(1 + Rnd * 10)
clook(m).drive = Int(3 + Rnd * 15)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = Int(1 + Rnd * 5)
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 16
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 20)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 17
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 20)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 18
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = 0
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 19
Do
clook(m).saucer = Int(1 + Rnd * 20)
Loop Until clook(m).saucer < 11 Or clook(m).saucer > 16
clook(m).drive = Int(3 + Rnd * 20)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 20
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 20)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 21
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 20)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 22
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = 0
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 23
Do
clook(m).saucer = Int(1 + Rnd * 20)
Loop Until clook(m).saucer < 11 Or clook(m).saucer > 16
clook(m).drive = Int(3 + Rnd * 20)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = 0
Case 24
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 20)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = Int(1 + Rnd * 20)
Case 25
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 20)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = Int(1 + Rnd * 20)
Case 26
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = 0
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = Int(1 + Rnd * 20)
Case 27
Do
clook(m).saucer = Int(1 + Rnd * 20)
Loop Until clook(m).saucer < 11 Or clook(m).saucer > 16
clook(m).drive = Int(3 + Rnd * 20)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = Int(1 + Rnd * 20)
Case 28
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 20)
clook(m).cannon = 0
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = Int(1 + Rnd * 20)
Case 29
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = Int(3 + Rnd * 20)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = Int(1 + Rnd * 20)
Case 30
clook(m).saucer = Int(1 + Rnd * 20)
clook(m).drive = 0
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).turret = 0
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = Int(1 + Rnd * 20)
Case 31
Do
clook(m).saucer = Int(1 + Rnd * 20)
Loop Until clook(m).saucer < 11 Or clook(m).saucer > 16
clook(m).drive = Int(3 + Rnd * 20)
clook(m).cannon = Int(1 + Rnd * 10)
clook(m).extension = 0
clook(m).kscheme = Int(1 + Rnd * 10)
clook(m).wings = Int(1 + Rnd * 20)
End Select
draw_craft mmx, mmy, m, 1
mmx = mmx + 64
If mmx >= _Width Then
mmx = 0
mmy = mmy + 96
End If
Next m
md$ = "Spacecraft Sprite Sheet generated " + Date$ + " at " + Time$
md2$ = "Mini-Trekn-Mixer V0.2 by James D. Jarvis"
_PrintString (0, 385), md$
_PrintString (0, 401), md2$
Do
_Limit 60
kk$ = InKey$
Loop Until kk$ <> ""
If kk$ = "C" Or kk$ = "c" Or kk$ = "S" Or kk$ = "s" Then
_ClipboardImage = ms&
_Delay 0.3
Locate 1, 1: Print "Sprite Sheet Saved to Clipboard"
Sleep 3
End If
Loop Until kk$ = Chr$(27)
_FreeImage part&
System
Sub buildklrs
'lt grey
tk = Int(200 + Rnd * 50)
klrs(1).k1 = _RGB32(tk, tk, tk)
tk = Int(tk * .8)
klrs(1).k2 = _RGB32(tk, tk, tk)
tk = Int(tk * .8)
klrs(1).k3 = _RGB32(tk, tk, tk)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(1).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .7): tg = Int(tg * .7): tb = Int(tb * .7)
klrs(1).k5 = _RGB32(tr, tg, tb)
klrs(1).k6 = _RGB32(Int(20 + Rnd * 200), Int(20 + Rnd * 200), Int(20 + Rnd * 200))
'dk grey
tk = Int(100 + Rnd * 50)
klrs(2).k1 = _RGB32(tk, tk, tk)
tk = Int(tk * .6)
klrs(2).k2 = _RGB32(tk, tk, tk)
tk = Int(tk * .6)
klrs(2).k3 = _RGB32(tk, tk, tk)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(2).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(2).k5 = _RGB32(tr, tg, tb)
klrs(2).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'red
tr = Int(100 + Rnd * 155): tg = Int(tr / Int(5 + Rnd * 10)): tb = tg
klrs(3).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(3).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(3).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(3).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(3).k5 = _RGB32(tr, tg, tb)
klrs(3).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'green
tg = Int(100 + Rnd * 155): tr = Int(tg / Int(5 + Rnd * 10)): tb = tg
klrs(4).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .7): tg = Int(tg * .8): tb = Int(tb * .7)
klrs(4).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .7): tg = Int(tg * .8): tb = Int(tb * .7)
klrs(4).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(4).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(4).k5 = _RGB32(tr, tg, tb)
klrs(4).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'blue
tb = Int(100 + Rnd * 155): tr = Int(tb / Int(5 + Rnd * 10)): tg = Int(tb / Int(5 + Rnd * 10))
klrs(5).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .7): tb = Int(tb * .8)
klrs(5).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .7): tb = Int(tb * .8)
klrs(5).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(5).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(5).k5 = _RGB32(tr, tg, tb)
klrs(5).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'purple
tb = Int(100 + Rnd * 155): tr = tb: tg = Int(tb / Int(5 + Rnd * 10))
klrs(6).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(6).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(6).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(6).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(6).k5 = _RGB32(tr, tg, tb)
klrs(6).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'yellow
tg = Int(100 + Rnd * 155): tr = tg: tb = Int(tg / Int(5 + Rnd * 10))
klrs(7).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(7).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(7).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(7).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(7).k5 = _RGB32(tr, tg, tb)
klrs(7).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'orange
tr = Int(100 + Rnd * 155): tg = Int(tr * .5): tb = Int(tg / Int(5 + Rnd * 10))
klrs(8).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(8).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(8).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(8).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(8).k5 = _RGB32(tr, tg, tb)
klrs(8).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'brown
tr = Int(155 + Rnd * 100): tg = Int(tr * .6): tb = Int(tg * .6)
klrs(9).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(9).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(9).k3 = _RGB32(tr, tg, tb)
tr = Int(150 + Rnd * 80): tg = tg + Int(Rnd * 20) - Int(Rnd * 24): tb = tb + Int(Rnd * 20) - Int(Rnd * 24)
klrs(9).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(9).k5 = _RGB32(tr, tg, tb)
klrs(9).k6 = _RGB32(Int(150 + Rnd * 100), Int(150 + Rnd * 100), Int(150 + Rnd * 100))
'random
tr = Int(10 + Rnd * 240): tg = Int(10 + Rnd * 240): tb = Int(10 + Rnd * 240)
klrs(10).k1 = _RGB32(tr, tb, tg)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(10).k2 = _RGB32(tr, tg, tb)
tr = Int(tr * .8): tg = Int(tg * .8): tb = Int(tb * .8)
klrs(10).k3 = _RGB32(tr, tg, tb)
tr = Int(10 + Rnd * 240): tg = Int(10 + Rnd * 240): tb = Int(10 + Rnd * 240)
klrs(10).k4 = _RGB32(tr, tg, tb)
tr = Int(tr * .5): tg = Int(tg * .5): tb = Int(tb * .5)
klrs(10).k5 = _RGB32(tr, tg, tb)
klrs(10).k6 = _RGB32(Int(10 + Rnd * 240), Int(10 + Rnd * 240), Int(10 + Rnd * 240))
End Sub
Sub draw_craft (Mx, my, mid, scale)
'generate a monster image from source sprite sheet part& and render to the programs main screen ms&
tempi& = _NewImage(64, 96, 32)
'tempi& creates a temporary one sprite image for rendering
_ClearColor clr~&, tempi&
_Dest tempi&
Cls
'Locate 1, 1: Print clook(mid).style
Select Case clook(mid).hull
Case 1, 2
_PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).drive - 1) * 64, 128)-((clook(mid).drive - 1) * 64 + 63, 128 + 63)
If clook(mid).cannon > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).cannon - 1) * 64, 192)-((clook(mid).cannon - 1) * 64 + 63, 192 + 63)
_PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).saucer - 1) * 64, 0)-((clook(mid).saucer - 1) * 64 + 63, 63)
Case 3 To 7
If clook(mid).drive > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).drive - 1) * 64, 128)-((clook(mid).drive - 1) * 64 + 63, 128 + 63)
If clook(mid).cannon > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).cannon - 1) * 64, 192)-((clook(mid).cannon - 1) * 64 + 63, 192 + 63)
_PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).saucer - 1) * 64, 64)-((clook(mid).saucer - 1) * 64 + 63, 64 + 63)
If clook(mid).turret > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).turret - 1) * 64, 256)-((clook(mid).turret - 1) * 64 + 63, 256 + 63)
Case 8, 9
lm = Int(Rnd * 5)
_PutImage (0, 0 + 18 - lm)-(63, 63 + 18 - lm), part&, tempi&, ((clook(mid).drive - 1) * 64, 128)-((clook(mid).drive - 1) * 64 + 63, 128 + 63)
_PutImage (0, 0 + 12 - lm)-(63, 63 + 12 - lm), part&, tempi&, ((clook(mid).extension + 10) * 64, 192)-((clook(mid).extension + 10) * 64 + 63, 192 + 63)
If clook(mid).cannon > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).cannon - 1) * 64, 192)-((clook(mid).cannon - 1) * 64 + 63, 192 + 63)
_PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).saucer - 1) * 64, 0)-((clook(mid).saucer - 1) * 64 + 63, 63)
Case 10 To 15
lm = Int(Rnd * 10)
If clook(mid).drive > 0 Then _PutImage (0, 0 + 32 - lm)-(63, 63 + 32 - lm), part&, tempi&, ((clook(mid).drive - 1) * 64, 128)-((clook(mid).drive - 1) * 64 + 63, 128 + 63)
If clook(mid).cannon > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).cannon - 1) * 64, 192)-((clook(mid).cannon - 1) * 64 + 63, 192 + 63)
_PutImage (0, 0 + 28 - lm)-(63, 63 + 28 - lm), part&, tempi&, ((clook(mid).extension + 14) * 64, 192)-((clook(mid).extension + 14) * 64 + 63, 192 + 63)
_PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).saucer - 1) * 64, 64)-((clook(mid).saucer - 1) * 64 + 63, 64 + 63)
If clook(mid).turret > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).turret - 1) * 64, 256)-((clook(mid).turret - 1) * 64 + 63, 256 + 63)
Case 16 To 19, 24 To 27
If clook(mid).drive > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).drive - 1) * 64, 128)-((clook(mid).drive - 1) * 64 + 63, 128 + 63)
If clook(mid).wings > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).wings - 1) * 64, 448)-((clook(mid).wings - 1) * 64 + 63, 448 + 63)
If clook(mid).cannon > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).cannon - 1) * 64, 192)-((clook(mid).cannon - 1) * 64 + 63, 192 + 63)
_PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).saucer - 1) * 64, 320)-((clook(mid).saucer - 1) * 64 + 63, 320 + 63)
If clook(mid).turret > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).turret - 1) * 64, 256)-((clook(mid).turret - 1) * 64 + 63, 256 + 63)
Case 20 To 23, 28 To 31
If clook(mid).drive > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).drive - 1) * 64, 128)-((clook(mid).drive - 1) * 64 + 63, 128 + 63)
If clook(mid).wings > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).wings - 1) * 64, 448)-((clook(mid).wings - 1) * 64 + 63, 448 + 63)
If clook(mid).cannon > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).cannon - 1) * 64, 192)-((clook(mid).cannon - 1) * 64 + 63, 192 + 63)
_PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).saucer - 1) * 64, 384)-((clook(mid).saucer - 1) * 64 + 63, 384 + 63)
If clook(mid).turret > 0 Then _PutImage (0, 0)-(63, 63), part&, tempi&, ((clook(mid).turret - 1) * 64, 256)-((clook(mid).turret - 1) * 64 + 63, 256 + 63)
End Select
_Source tempi&
'repaint source image with generate color values for new monster sprite
For y = 0 To 95
For x = 0 To 63
Select Case Point(x, y)
Case kk1
If Rnd * 100 > noise Then
PSet (x, y), klrs(clook(mid).kscheme).k1
Else
PSet (x, y), temp_color~&(klrs(clook(mid).kscheme).k1)
End If
Case kk2
If Rnd * 100 > noise Then
PSet (x, y), klrs(clook(mid).kscheme).k2
Else
PSet (x, y), temp_color~&(klrs(clook(mid).kscheme).k2)
End If
Case kk3
PSet (x, y), klrs(clook(mid).kscheme).k3
Case kk4
If Rnd * 100 > noise Then
PSet (x, y), klrs(clook(mid).kscheme).k4
Else
PSet (x, y), temp_color~&(klrs(clook(mid).kscheme).k4)
End If
Case kk5
If Rnd * 100 > noise Then
PSet (x, y), klrs(clook(mid).kscheme).k5
Else
PSet (x, y), temp_color~&(klrs(clook(mid).kscheme).k5)
End If
Case kk6
If Rnd * 100 > noise Then
PSet (x, y), klrs(clook(mid).kscheme).k6
Else
PSet (x, y), temp_color~&(klrs(clook(mid).kscheme).k6)
End If
End Select
Next x
Next y
'generated image in tempi& is rendered to ms& as a 32 by 64 sprite
_PutImage (Mx, my)-(Mx + 63, my + 95), tempi&, ms&
_Source ms&
_Dest ms&
_FreeImage tempi&
End Sub
Function temp_color~& (klr As _Unsigned Long)
rr = _Red32(klr) - Int(5 + Rnd * 20)
gg = _Green32(klr) - Int(5 + Rnd * 20)
bb = _Blue32(klr) - Int(5 + Rnd * 20)
If rr < 1 Then rr = 1
If gg < 1 Then gg = 1
If bb < 1 Then bb = 1
temp_color~& = _RGB32(rr, gg, bb)
End Function
'================================
'PNG file saved using BASIMAGE1&
'================================
Function BASIMAGE1& 'Trekkin_ship_parts.png
v& = _NewImage(1280, 512, 32)
Dim m As _MEM: m = _MemImage(v&)
A$ = ""
A$ = A$ + "ha9kMVXNK\S[6LN9m;IN9emZLBKCCa5`E0BDjKZ97k8e=:`NQl?]CnOo_og[o7000000000000LUlnUfe0000000000000\6ncOnSje0000000000000\6nj"
A$ = A$ + "[_D_6000000000000Pe`Glco;00000000000`ebGOAnO000000000000g:_8o?0000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "0000000000000000000000000000000L?OmeGo2][7l700000000000HLNbkj?oi?o2_T3Vgm70000000000PkU`L_:mO[MMRo00`j`k?och?nkIo100`Whm"
A$ = A$ + "koQoh_gl?ecmFZW3>][Cl7faa2NklOl7N6_SOMk774OlN>o_en0nkKo100`WhmkoQonfohnP7oiodkiOiMo1oVo1n3Y6gCMLPfei:XeGJG_h?n3000d;iV_O"
A$ = A$ + "]Gg`j1:UgUDo?iNPgm?Eo`cioPonfO_SWco0om=]<7PKkHP#gOO=nL_2om^YN`So?gS[To?onhomh?0`_a;?_;h_Om?N>O]Lo_CON#mTiE^GWH?`knWZOD;k"
A$ = A$ + "WK>38lggnW[Wh5GOl=njJYnNJGW[bmDgK?eL4^eN#ZNR7L=<o39Sogfi1iV;DYo\A_5o;=?`JoI3O3m0_kO]Nc]k8nSoYl>lWi;?=W7lg7n;m?[oKlI2#JfG"
A$ = A$ + "]l\aMBm0_kOZnA^LN:mkYMMSoho>j9g^[Q>7Nm\#o_Q[cEckhW_YDnOSioT[WhUSomnhOZihTcoKkj0Ubn=Wogda0NgoBm5_Lm?l7oCi]gVc?nk7oSWCG[go"
A$ = A$ + ";N^RJkC_^WkE]ioUjm[]GhOomSDW[WZGL[G;0om[oBk7JGGk`kBSgWneiZiMhjJci_gFk[7>ngkSoac_Yfm3^5oc=_>9nO3m1_kOHOhQW_>geoRO_g0h?nGj"
A$ = A$ + "?[ohn0nSoW\oYncc]WkoMRI0fJfGgF6HNgoDm39^N[[94om]oUj7_Ng6njeEk;nWoiN<UoWlejKNloO_Hlo^7omZoe^?G9o_QnPgmoY7TK]^aGok6Wo3nSoh"
A$ = A$ + "?nk9o;UoG;go;lcN:mRJiHejmoSo\Jk7ngNo8Kf?ocoDmVCnlOl7oUd?lBnGNgO_VoA]aoho<Q_IWmlh_GmgkiOQoUONGTl<aPoh_fNPoh?ngVg?_nkmijln"
A$ = A$ + "OQOfCY?hml_l^oYj7aW?oS#_^nlO`OOk_TNb=k:nokO^W[iOlkmVXfLm^eS3lnhOllJbioY?GWJNgRog#O0oUo_iIghe3aOl7oaO_iOYloJinOQOfCY?DcmF"
A$ = A$ + "_ooYe3ZUQG[n7oidf_Nj7BLmFc40om]oBj;g\WhOjoMn[ToYNoW>Ybf?eom=NlPg7oOl9V#oCQfem:MGRog#?#B6PgHfO?^GjJLBomdf3l7oaOl7oKcmJIi8"
A$ = A$ + "=kWC[7lhCHfMQogel?eWkTj1]V1h]VmGHo8nLk#W3oNWnimh?ngBOa3NRohOZihU:;4_L^_g6oaOOjOlmiU`]=WgL[a]deo>m[7Roh?nSoNfoLih8iNOWLf?"
A$ = A$ + "UboCRoN8o_`NQdg[fN=Bo8GfnUnmd^^aOl70HLB>o_Gok_20^Pik10TVWih:iljFN_F6A[o]`eo>m[7Roh?nG;o[Go3lofloY7dB>>]nn]<a^897_DioMZm0"
A$ = A$ + "Yij9ie9jOZnAZc]CMNo=h;noK:MmmDO?][G0PiA[coCkj50HN8MN\?cKFkjMDlnjOaOl7omInWa?G7c`oC[74g;TTUClkkDM>fmAloTk1Yl_U<o>MoCe?bUm"
A$ = A$ + "eYN]>lG6Ubk;EOAkj50H^4>_`Dcokf^O70`oQdc]_Y[14_>HYGok6FgK:oU^nOlolm_fJMTho9_V8_j_TehfZoWHO8EOYficgHV?hoW^U:?`hOO][gEg7^Yk"
A$ = A$ + "eQoeQlo00Nc?gWkWolo_i[m10hGR_nF][oMKG?<gLMSmoFW3X7m_dcdE=oCmIef7l_?_WQoWHO0PBhUln`Olo=i^G#^_Wfe;00000#oTliJliIo9ac0d]=WH"
A$ = A$ + "_jOlJLJeoC_?TbM9n7g3dfSA6cWQoWJ_0000bo300000?b_G;o[8^oehSoneoFcoDkj5o100H6lLmmL?KgQoNLmO0000000>I2GKCYl?_eeolicgiWnCnO00"
A$ = A$ + "`MBY\ohJo0000000L;l[loROfgBl_3#JG_h?000cTDom1a=mgi900000000N?o;_k?000o7lg[[0000000L[lkOnOSoIOmgo<`NS[7bkn30000000000`mC]"
A$ = A$ + "WeQKoIQ`kn30000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "000000000000000000000000loNmeGOe4JG_h?00000000000#NJ=_[K;?<_k?00000000000g9ib_j?oi?=aYV3Vgm70000000000l:glcke<bkZWl`dfKl"
A$ = A$ + "70000000000l;NiWocEUgUdL``Om?600000000000Nc]TgE_NNKolOfSKB7kkIkQojO<1000000000P_HVol#Jml=lf?oW]hHHm:mE;mA=j7NgO000000000"
A$ = A$ + "PdLk?oKk>o;]m=fkIk[Ek3]V;eX_JMoQojO>1000000000N1_ml_eCfESlcoXfo<OJ]On?gAVPBZ_IUkE?iPQoT1800000000X;ll_Mf?gGULFJMgJF7F:_S"
A$ = A$ + "AbYLEnG:7#]6[Gm;]>V`kn300000000#:hiOK]?oGJfCfic1U5b1\WSQgYo[^OHU\_2k9h?I0200000000k7NngZGg]\nN;Tke8n^R<?dXOdjacJjo:j5c>k"
A$ = A$ + "[JIOgbf1o]ce600000000Pk7NngFG>#F87`hJ8Gm\SW1ZBkK=bna:n_RS;\fcmF[m2lW<0100000dSWiRVKMoQ_WKS#_:io]f3>EoWIF2kdoM]f?Y[1]gWA6"
A$ = A$ + ";U1h>cm;G?Ig[g?NOnhF^_o>NeB=]baJ[ho:>V`jIO9]GPoT1800000JB]Wm5][_EknkOmINYQcAmm_6nN^=2mZTogJ?h4m?<GQCcoIFkef?[<7\B[3OG7W8"
A$ = A$ + "=;XMT7PdjHFm69I]eKf^YXWnPfioY]oJToU5bnjiE]j4o]amC10000`Sl<G]D[ooVWWF\gilo6k3QNEcoK\7LZn?[<dd`oIWMI9FA^OYFSK^mE>Via^F8k_`"
A$ = A$ + "NQdJJV^7jHhaYJm:E=<S<0UTmSelOVI0]j\_6=kcBm2lW<010000`:TJ=oYn_e^>GYgelofj3iVGN=o_UN`YjOLV2WVo[^ne:3\F[WEMlK_NG;cbIf7VihNL"
A$ = A$ + "]]ZLNKmEZjHT<0UVmS5mO6I0]j\_Fi;lW<010000`:TJ=9iFo_5WWF_cO\Ue[?Se_^ZiifcfM4gk]7<Ko7IkYQocZ?l\>_A[1=momWoIMQ[^ngijRgE6Pc>k"
A$ = A$ + "?=j3cJ\?E6KFie^bo;>CM[l:^^6iH1YnKeGhoHn30000`Z8niN#kjIe^^[em_ZjoI^UcdM9oI]_cJMfKcJSkel_WN`<mOd]U6n?[SION=c<Df]o_olQ[;LTJ"
A$ = A$ + "?njeaoiG\kGakoLef8G7YVoF8?PLee:l?NoJUGk8o?;iK]GUb_2oaO]9ge\d^^00PE3Go3llHOZe?NcmPBc7cjcEkYnOVGi<MO5cGmDboCRogLnO[boIM<kk"
A$ = A$ + "Gc:3>]loIKdJOXFf?QeL?[;NFIYEZ66=389ngk[IWU8n?7ogEf?cfoLkSLcg0oaoMCXWU^Gg]_F00PkWLG;[Uijce3_ClFnGa^ohLXoF;c[EhL;[og:mRhj\"
A$ = A$ + "W?O^[i9igKgek<gNBW_K]OO=lO6K7=lOdj?lc=S<hddo`loTf7T^ngFGcJ[[o[e]KZ_O?GC]5oKieZl?G]Po]kOYk5=j[EjO^mG[G?1om]o[PD[eYToJF[00"
A$ = A$ + "`8TjjMaonU^nG^gk9Mm`IG[WTkeZgWadDgC\dWajn;Y6c=?PBW_HiNQdJ9glnZmmWenOD7OoBjj7[=^;UAgG?c1FKokamAj1cbo`eP<jfIWn?Jm7>N?[j#;o"
A$ = A$ + "3gFBk3aO^L[5EjJD[]VgJ[5Fjn8gg_en9nkCo;M_hAN]3o;]_c]MaOlOeTKoGbiDO_MD[00`88ijGmVogYLm`JII5nn2I6KC;#YJ]gl_\^oBZ_FV3TT]SfmR"
A$ = A$ + "F[SIio>k5QcoLTmChLPU<o_AVSJHnG?c1FCoSM_VoSf3VQoa[kHdNh>mO47R7_WamLedo`]]dn`<coYWemVZW8Io8Io;mH0lgOn_RlOfUo]\ogInGhoiho\A"
A$ = A$ + "jlmT>O`EG_00#_TkjMQGk:e_G[_O[Om#YI15jF]k9M2NG[F79o7[kO]j[Wi1EKKYM_XejXfLMjInI[^Gl<gcJS9]hOhoM<a__A6GNccLPefoHW:ioXmPIhOl"
A$ = A$ + "J>6mh[Mjo8>4nI:M?iF[_EkO^]AX3Bk3agG^dJ;KM]WY^>WT[;:IO9Y>TN<0nk?oCE7ef_FaoFZSLGK1om]ocVWmK^mOZj<ekEje]PcRLcma;PogUoU^NG:O"
A$ = A$ + "cMm_`naYMm#9ce:EOZVG]>7F[iO]k_WkNnWPo]<VWK>=inm]ja2mF3aWSWSEG7Bgf?_VmnXUakAffQ7OQo]km8m?]l_G?2__\T[5?Bm>KoCECYf7Qcc#B]EJ"
A$ = A$ + "MWeFCJ^kiebjoT^ngJeI;mHlgWnWJoGKoJ5oKY>bMn?nkKoGmmgUjAY?k:[IHO\SioIIR?GO7WCJ9^=o[M]nN^nMhWmD^NH]iJ5okWko^e][E8GMVkjMU^WG"
A$ = A$ + "^?_elGB]UkhhJOoNgOF`IYOnI]MVM_hihcEL=WENooh]mciGhOKN7O_XIO\eZ_OF[N4nnUL]hAZgIkOZJ:enXFO#jjOUT7c:FoG]?WT]G]S1`OoiOYiQdc;="
A$ = A$ + "l_U]Gll[`OOko\IdNi>VOPf4^nnKc=97KTJmoNX?Lcn;ihiNmgbW[<ckMLZG?\fl\bMO]Lg[[U]]5XD=FJn5BWOR5mOTeFdbh_U>FH6koIMnlZj5ib2IVKoE"
A$ = A$ + "Mm\h]Mhe#aOiN7OoWIDKk`oNM9gHNheSSWcREl?^^bMO59mPJcOYge`>Seo9icEKk9mN;h_Ol?ei;S<oM]lGjf;el;aOojo\AJ_lY>TFc[ZNg=?^5NLg=iWT"
A$ = A$ + "S;:mO[MMRoca_Ii_ek?mN_SBGokd^NHYj;emcZAY?_eLGB=fB?XfWe:ngBMUK=YYLGjJDdXG<Smo\FooZj5?GCJ6eh:mGjfnijWh_<_CM_W`gcX[OHfnWZVT"
A$ = A$ + "hB>gCEKc^Ngaf;ea1ej1eV3SdLHT<OXFGoWTmK]]Udk]PonaoDc=iFm?eL\`OOko<9gmR:ECenmWmLTdTB[1j6l[7_m#O`3nGjn\Sh_di_X]c]N]jNOoF[GD"
A$ = A$ + "[fZeSjmc[]g]DOYVSA^SmUL^SfngC=mhFL_8nk?km[V>O2KWDSA_O]Znl:73C]]O^6STmQGm_fJARgnSD_cfoDedcg;U;ib0hiEZJKVcCKVnGZfBML#lhI^]"
A$ = A$ + "E_[oMe[o[fn^F=EkL0lgOnWJ^IBm?eG_;o[meifFaG34om]ocTBggYeNd<WSPVld_cM_jDS=WZ[B?V#BO#kj6okgcDc5_GoU>o5]M>gekjmjOW`e3cMM]JgO"
A$ = A$ + "=lJMinnUjaF`mF[_`[]7O<MY[kKAo7]VjmLJ=k5cJOK]]C]]I_SCiNo]Dg]>GXA[O_jO^koTkNaeZYMjOZJ:LOTjn_il?GO[Wni>l_D]UjkWcoh]UdeoFK^="
A$ = A$ + "UFKk[goFOmZjkCjLTT\nGYmBlg?nWJNXBm?eG_;o[meUf>aG[4om[oc49elgg;:`oJ_G9ci`RDjncillTm5oo]kSjo9e3R_?k\lGjlGdfIYcAAjeoTLML[i_"
A$ = A$ + "TiIUjc4nk=bn`bnGjLUE\?\Vcmj_5j5cLoVkhO=[YJKcN7WTNnLYgg<>n#jfa[nWjN?SLOhMj_TiM4OOdLnW[_eJ?M7nG[^BmmciOZnH^iPdjLDBmko<gWB["
A$ = A$ + "1^WiFE[VZM>0nk?oCMm2YngJ=?Co[meUf>Qm1lggn?CTjOH?#bkEbl0\6U^oLhh#]gSfNPoSkN^ilUkkORmPhkc>Co]J_XWiX8mjOB^>^el?N\=gmJT>W\BG"
A$ = A$ + "S0o]KnOcfoFfgJi\Tj?gf:ekYDoKEmRBg?^U]kcfYfHO]S1jMofKm;mcGKK]CoULnA]]ClmNTL_K;iO]i#lgkg6LOdLnW[_eJ?M7nG[^BmmciOlf;gLAjI>:"
A$ = A$ + "Ynm]Dn?h__m?eL\TjO[el<m_fGGJkTJ^Jh_?mOVDjn^iZWLmKYg[eZDjncBidL6o;oLoeK?h4j3agWMVnKeS7TLm^N_ng9Lm`LScaSIaTkHlD_WBk3]MGKog"
A$ = A$ + "M?XVci^F`Xn;ih]E>WVF?6LEn;mL_Nk5U^^MlhPd]cZl?E]8]nkeo`J;Nk5fgGQoY6G3[UJckXToQgoYdeb:]mddOYelcmOciO^NWdc9fYoU6[cA>oCEciVk"
A$ = A$ + "B;c]9ekoimHUOn?aOOkOZc9UjOZ_NGnGk[;]MBMM;lgWn?ki:7OogJ^9ig_fe^\8YL#jL:TLmJ[S7m?eaoSho9MlOYakIh_5k1B_NG[GokD^NH^aeE=n7om]"
A$ = A$ + "XkkbO=j1B[UIkO[kO=L^dWIFn?JM=R[?KgLGo9LNU[`oDcK=\FTDkSjOZNA8iZUAm?NK7_?U^M;imkGBZWC`oLOoWkUfRo]L<`^m_ej=Woa7kWK>9eV[BZJ:"
A$ = A$ + "eWYfnBjfAB]9MnSh_?m?gi[Bf7YnjMiO]_>gf:nnXh__mOecG^DMeB=_ZjMGmPLO]Tg[fnPo]il\mo4j5NeOYG_[U[oM:G?<gJ#Feh_Uj1iZ[Mi_6m0YebZ^"
A$ = A$ + "n_6mRNfWkhnO[XGDJKVJO4C^SG7ao`_G^mYdjMVng2Sjo\ZQBNonUTJo4l?gfhiNY]ho:6oWek]EbiOlanBGo[diZdjlOjI>EBfFe>70omWoY^?b]jocf:N>"
A$ = A$ + "Eh_OmO7cGFBmW[N[MM;;RTidWK>\BWo_UaSngbLJKeoCXGhEo7mjMWne3cEO[HlgBnWZ^fUoJe7ZE;]hd<N_kXG8aihgo:l_fnH6mRBKcAH4oWI=Poimnm;9"
A$ = A$ + "en9hO^]acmCKaoE<n?[gK[TcohSm7In;[JmOcXNZM>0nk?ocM=XI\o\VoQGk5oaoM<OiW_FR3Q_gh]a:GGc^j1oJ<heonA0G`kEKO`ofMNFnO:m2_jOY[gm#"
A$ = A$ + "?Gc>lnBFnL29[GIFSoFboAFCgXn[EOXgeV^:ogA_#jaSYV7i<m_fnH6mRF?f;VE?ngbn\WNRGmoiND]Nnf9ioKN^gj<l_eNe:N_]B>oCM\O_[i\de_FiWEbf"
A$ = A$ + "[fi0h_ol?geA^AoOfFQm1lggn_ji<7oOWbUhaPhokM^6WM\VQBco9ekEKO`oaM^Go?UNQWm_fe^RGcB^[o5N]iCjjQ]^VUN7o]ToS\>]AlGcNa\FKj\lO7mR"
A$ = A$ + "E\NlEho<j5SL]H=^no\_gQGm_Wl_>=oOccmJgaihFTLnWZ?dkJ>c]^c_7g5\n_h?c<ZSF?o7omSoYfogVoQkOl7oG9UFkJL]8im]jjMUnWckg3[o7ik3hoih"
A$ = A$ + "OYi#>RoWB_`cn;mJGe^nG?KC[Pg6oKI=ScbO]k7]DKk`oMd;j]Nf]ocXG<baNJLno\?Ga[no\6SA>6cjnoVWe4]Rca[e[Fak]gJAbaocLMWYZQ#ZmNWAMdji"
A$ = A$ + "oh_Ol?EMLKn7^OaOlOel\_CM_mFnNkXFGUoi>^jko\?O8ch4nO>nGbQAl?nk[]WhOIo;=WSF^FgYMm#?>nGkNgaSe]h_T][EMN7n_cNA[ec^mOVm2YkkBG_J"
A$ = A$ + "En;MO>B?a[n?jiLFfO9mQA>W[fnL7OVILL`>G3\djMFkoN>70omQoYV[i]iocf;EO0om]o[LNciF7K]_WeF[g8mP?63NEOn?JGghOkNVSNl?7Jk9nG_7Tkhh"
A$ = A$ + "JGo;gi=WPkU>6HFSoJkG:OUL?lNlGbfeZ>_3ogI_HTib]3oWI_#jn^de[FUoBgWSdClZoSN>WUmGBOH6[GCRoOg3bLoaBn?SJYUS1NoeSl:WOBZcI\_7mL0l"
A$ = A$ + "g7nGjl`Kao`];nSokThke5FKQO?[^>_AMocaPGALniOQoh?noScY^FF][o9IKLJLkSoe^oN_nGKKJIWG]oJd;jM=i[foIg;T^_Sc`XDV=cbOYkcAj;NeoF?V"
A$ = A$ + "kTlGBOXgciJ59n_bmM[73TKMX]\6E9SGQ_WFfV]\fgN>7HdeQ_:o[]o`oa?fofl_W[oQon`oMAZkQKQjJUnn[aQG_BB[G[nD8doo>FWaohgWfe=nSo[ZOhe["
A$ = A$ + "oMSSoeFkF_n?bjhddiB[U_Go[]o\PciVSg\lGjL8Gmac]b:>n_WJ0og[gFbO9mQWmi[GYok1aLOoFgoBl_GZEkc:3XhaZFNUKn?]^=TDK]LlO;n?b[IhO]]?"
A$ = A$ + "nggeoFI6#Qeg:moIOTlJ?E^n7nkGoQe`7cUo5ioMC[o7oaO`gSoebTY7o;]mdfgL>oDKiLY7oC]=eZG8]6FQomD7[hhihiC6bZ?nGjnLTnRT]I;<kcok]6f]"
A$ = A$ + "gFbO9mQWmic[h?KZ_G?koMWoGX?SLL#hJDoH===^neOe7jhc:]^JihoFlOdGShO]];ng_oeVge<[cEhocf>ieM6lN0homk?<OnlnE_BB_G_fjlalobho9_nO"
A$ = A$ + "l7o1O?nW:KRh<:JaoLX]WUL>g_g8n;MoI1WG]okZGdC^JYlmimeSoYVoJZmI[ei<m?giicfoFgWmj_T]gYiO;mQheR5niSojN#ZomBZJ>LMQSN<#YnN]eana"
A$ = A$ + "Hg[OFoK8m^ffJem<>7#JM^:o[]Maoal_fiPFgoAk1Bl_gG[bohmAYa=lO=c96TO<Ebo\oNiXlobhOlkCkj6oaOPaOl7omXoeF[M;>gSoBk5UFkC_maJ[38ef"
A$ = A$ + ">GM<ZoUjkmDWSjmYiO;mQheOmncUkGk1Yng:UZe`e6^RS3R7SBmZXg9j3Ig6MFG[jlOY[MO6n7f3TTg3nggeoTN<fYhOH]>3o;EO[foJk3lO<oQic7cU9chn"
A$ = A$ + "XGcfZLZ[o1oaOPaOl7omZoa[eXg?K?n?jnLdNHZiC;MK7kB?n;mHQB[5LF[m?ej>]XoSf7JI]GmV5Q4oWAV3YZgA>>#JmU_GmB8ig6BfocJMDhOOI]ZYocjj"
A$ = A$ + "Om\_\XoQGcHVngJ6Ec`oJKOlO>n3cU?_VLjamIMMK[aWc[?oamh?nOKnkMlnh?nSohoIjO;INEjcfSoS^?7M]oS^Md`oA[oAbCCB>PBm?gJhB]?k]NkkLgji"
A$ = A$ + "\VJonnkf4If>Uj;Y>FK6Wo7^mRggF`oLOm\mGJFCkdoJeb^lfRn?BO#bn:eiNYN=;ooNK9hj#aehZlGb[IjO^]o\m7V;BV;b<VgVE1oaO?k_gakSoh?nSoh?"
A$ = A$ + "nKOoc^6n8Z]=b^N\2[i[We_;IMhc8;Th]QEboBB]>ja3WFnO[`oC:o[Am_F^BFgoITo5n?W<0WUoiff[`O00000000_#;ImUkcgDfO1[kK6II<JmWKkEJOD:"
A$ = A$ + "kagOkf#F6\iZYEOl#96gmdmPFZQEhO?io<KogAfOi6c?9oWaa2mT1X5lOFIO=S<0WYoYffTm70000000P^TjibBfJ1oL=WWdJhFmcoSfneRoMiMQnPfngJF8"
A$ = A$ + "[`oMUmG:g?5oWI?Xe<0efoIg7693`IkOlfV\o00000000dWTioe`Jn^Ulon>gc>FgKZ]UfneRogFnOY>^fBio\jnST\PdfoEm\OfccoXFioYE6X9_fg4mGkS"
A$ = A$ + "300000000P?akiomkO64Oem?oKQi0N2mQOkO_NoIO`Bn7ocGJ<[doB\Cg[U1dZlG[<OJ=3\Mk_Eb0MUnCfO00000000fSTioe`jm>iloFecOc9d7FMn3Jk7n"
A$ = A$ + "GnOW_kniME`OV05gOKXgdB6HkbO[V1j=j?00000000l9a[E[e?oYVo70NPLI0^clod8GLai#]0o]#fGNgO00000000hg<j?KRJlcf80#K4W7dho<_WSdk7=M"
A$ = A$ + "^lcShJmg2IPjEo10000000000_a^bZgBoI2DjiOLUkC[TmUGOn?10000000000`G4W9i>cod2iNUZVFInOFcO00000000000^OfIVDF<k[dIc]VOnO]Xo000"
A$ = A$ + "000000000NQYml0bck700000000000PI9K>PMRfn0000000000000iQln000000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "000000000000000>I^io]gmVM300000000000X6_c7k?oi?GI>Ig\K000000000000eh9O\7^YLb^Ig000000000000ZAHnH_njeEUCf=k600000000000]c"
A$ = A$ + "=W;D>gROnh^Y<b^Ig00000000000X=^io>R[TKQIT5oO[MM?;__Ag00000000000#>glO7aEc]K>S\Kf=00000000000Ta=ogALBLkVoITmVM30000000000"
A$ = A$ + "0ILcI49a=_k?0000000000h9^iLATl_o5gf?SXBLck?oS0000000000PGPom_Plo^]WA^Kf=0000000000X5hOo;^c<RhWogke=0000000000#:gl?STl_o5"
A$ = A$ + "Tog]j600000000008UK>STFcoRl?mgh?00000000h?^ie5:a=lgOncOogM_I4acogmj600000000d7NmOo3`OOk?ioM_I4AnOg[K00000000#khiom?0om]o"
A$ = A$ + "gL69To5nO[^100000000]1omo5nSogI69ToU<gBmn^EoOom^1g000000006QKNMABnko<?\nGbo0oaOl_fkkFmo6l20000000H4h_och_oc`OOko]UC2ioIS"
A$ = A$ + "loNNVkTb:mo66G10000000j5nko<bo1oaoKkJ0TogNco;GNNYZQB<[L19o?0000000PO8L=BlgoIgej49o3lg2?oGFboDI9Qo]io\biKei2N[S[00000000m"
A$ = A$ + "Pgco0oaO?kO^gg]jO:_`oli4ZA>Oc:G`KML5000000PaiVGK#>ghWoAOWo3nkKocmn^Eoe8o_BiC=SO>GWYoF>W_Ab5DSS[7IOMbWo=kSQef700000PkSWe8"
A$ = A$ + "LScg\TKToW_co1om]oiNOgZo[<o_Imlb=[L17aoKUMMLmC?]g?oYN>h<W7e=?W<000000m8Nm?gdl=[iVgco0oaO?kO^gg]jo<boKFileCfE]T;8ioYcieQm"
A$ = A$ + "cNg6WhiQcn?o`Kk??B000000m9L>Vl_o5gojo9o3ngo0lggngBOBSLnj9C;Ye:io]_lo:=^8QCkl`Iim9g7ZEW]VQ_T]i9A?nOCPoh?nSoh?nSojkO^en\RJ"
A$ = A$ + "ZflLe`]hgc\Wk^EXdHKh__feiZm?eaIh?nSoOj_fIE=S\^JeoKWDn_[kkJejeRNORmQ7ocE[Uj?en<WPoSLla9kWdJO6nOjmYKLl7oaOl_^keloVk1NgoWNP"
A$ = A$ + "e>n?N]A[XNT\Vb`gc>MKW[m[Vok\>TNLi]i_V[o7oaO?k_50oiiocjNORm1YI\gZS[J>YcfmFk?YVC\d]SfnVKLMenO:W;\baoC5l7omZoac_<WogJ?hDlOE"
A$ = A$ + "kkD7WWkhoEF3e6KVmiRY6O[=n?cnP4gB]ogaJ`:io^G3h^[1=m_fJ<`Ol7oaO?io:V[acn[g]a>[gEhm:VoRfneK]:9gVL_7[g3Ja=9GoYWNTf^G[fWQoFJM"
A$ = A$ + "RSdW6IloD1om[oBbhKGIPX]kBWoi]d3>9oGemFcU_UdOoEkF^eO<B=DJM=aS]]lNWA__Fo?N]I[RHoG=Ul?eeOgQkk\78mh?_ko:cM#RokZ>`Ol7oGkLYNC_"
A$ = A$ + "KS`jMUejZlN6em\gNkfm`SYUDoQ_g`]QEk1aW_VkLK9eO]gWTmUel?eL?TjOZ]Uel_eNd8SoW:h_Om_UcI?ec_UjC[nOjmPCboEL\GZicGKno[HNjB^7M^e9"
A$ = A$ + "<3WUjc8OfF>V:f]Ij_e0oaoNmO6D:cSBelZc21oaOlO?GgYg]a^ZeEi]gco[gJOFKWMkLZj[eJ_dkgR[?^D=eCm>k]g:mNdacImn]`a1Ji_eacn?kco?9j=;"
A$ = A$ + "WLi0]kJofl_F^C?k[Im_o]YVkN?7o?cjHUokOk<c^KfK[J^An?h?n?g\5VelBGEF8h?nSo[mj>ooo_oBoKSGoScij`Tog?eJhi2mMlcGoJKIaNPdlZjM>[F="
A$ = A$ + "o[Jed8ej:fV[bIY[[L6SocJkK]ndYi5ng^3S\nO=boZgmi\b_Zglc6eW`kiNCnGZ>Vmjo7]fWE?DZKmjO]eV<jJPT\]UDS[boC0l7okeoFHVINDbUIU52nSo"
A$ = A$ + "h_nGOjfho6OVG^UcNk]JgO>fJF7S]R]i:L>nlZAGoJZ?_EboZVoS\fo`]KZ]SfnWjJ_YZSE<ngCMHQS;FQoF7?ko\ZM=j1S\?WmiTcHkeR?SNmE[k_d[E?bn"
A$ = A$ + "JVgS:gmF7Il_UeoTKOEJ=8[HM#eFgCYm7ioPohojboHeINDb[A[Kl7oaO0V3[JmJFN]`BboJFNKQl_Tho<[_L[OA;oU\VdMToQ6io9mNMJUo3n?oiRdbfLVG"
A$ = A$ + "k;G?XeJYgmE?mmE<_`Aff]hChk]eO6H?1o;iTT<bJ]G_JokmlWFFoCZnDYgk>^OL[e0ioPohoLcohil<;dO2[UFM0oaOl7Pi`caPcnLS`S_]fa]YVKn<?7;g"
A$ = A$ + "lg]B_H6[Mb2kSN7_;M_TE<n;]>FmhlX_?[_O]BMXYo]\=GieVJMK?[<LjakMLlg:Z]NG3lYiOZ?g8[o?eL_gQoBWSe<boXe<gf1B[YNlgZceLTSK:M<:n_^o"
A$ = A$ + "l;d69^99k0;UiA=GUj3nSoh?0cQMUoSfNFZffQoFZGTJnEk8o5]l_dj#giaokJMg]\_djloEg;lXoSTMd^boHdjNDWgiiPUZ_Id;TTCb=hOZJ\Eg;M<iZm_e"
A$ = A$ + "ceThFYgCYN^EVoA]jL4oef_EL>3nGoJ0gPkBM[DN1FillNL^VGh?nSo0<7lLnON9o[BeeZ[9;<7=9[cH7SoF;o_MkO[e7n?OWcMLi:>6lIOE[?_SloJ=7ZEf"
A$ = A$ + "3VE_XU<0>IoUNnC]NUVg;:enNTaeLK_Ff?FPBeLYa[gogYNIIGKYWDc=_kockCkiF^bN#;Go;lL6][mIh^TcoaOlg[n3`<HE[1Ne[]NFefZ[?;N>\eFoo^7_"
A$ = A$ + "OZSM?n_j<_ThL^jJGn;]n`oikl>mFJOHdNA[>Ka[3eK]>BFIWToSln>=oUjF^gc^^_n:j=BLZWaoCSA6omToFL^e[Z74On<Soh?nkGo1H6hmlol#nGil?lG_"
A$ = A$ + "QmUTak`JIGeCY<0e8o?]m_FmQocgI=lFBOHdNA]aiJ[SBSN#YJJVioM;nWZ7dkkcZngZKUN?FH>6c\oTcO?ol_QofkJKcdOboSlO`OlofL3\5N>o?_ToEYaV"
A$ = A$ + "Mi_UbM#SJIge#^L4\RoJUog=kO9W]beSCe7FAnO[nh[MLlI]j^F6#gRoYZmNcnDK_cEo]V1J^?_ULLTNC]a_KN=B\ngn>nofl_faoN?oCl7omZo0<3lLnOkX"
A$ = A$ + "n\hJ#lVoFI]`k\>b]_\RoJUog=kO=W]leOj]GTKNBFhlmN7_T>VMZIO>Sj_U\?]jLW;E[iLCRoJke:>^8UoNoiOcknkiSoCmn^1gKa=l7om\o0<:TogmWoUg"
A$ = A$ + "mg:[7\Uef_2W]`aPUb0KUioi1o[U[V5^fc\[E9IZJ9_CEomVE]dLD?MoU\fg#G]jalB>6>W7ToEmlO\naj]h_TaO_k_W?n?ea0gPk]h6nSoNfO06UokN]_n7"
A$ = A$ + "cMmg[Hk>[JcCiOiMoCUAPVea>bR:G^8Fkh_MmWoP7l_dfe2NWZN7]GTJMRFJ\^Wa>YNDjcLCn;9o_LIXY]G]hO;IRW[OMB>gja2iboiYgmnKYM]?_N`?NEki"
A$ = A$ + "oc[nkmSo]`L[gE?8njih?nkIo1H64O>Ueg^cZflDnGNgoDcWjf[3[h\FeW7mgj>_Rj>gWm4l>U;]d;:]>aKbO9ioMJ7cGZ78a[`LAlhcodCOj9g[7d^fWG?h"
A$ = A$ + "E0OnWI9ncaogJ61BL3oaO?k?0#Oh]l_BECkJ>CkLO9M<`SioI]kO\jolklXoFgiEd;>EWWA_hVbn\ToBcokdM_UNPdLB?AThfC?j6cnj77oM6Hh?7oWkmT:S"
A$ = A$ + "dCU#G`Ol7o_W[]1Pfh]l_BECN:oC_WoW5_gHZka]ZlolRoFgiEd;>EWWA_h6W3\dinNS^gB?8NN5FJn5c`OI?oCgKfGohi_c03oUO<bYRdSo9oCl7omYo00m"
A$ = A$ + "Qgbo:E=UKNEWlnBjHPgbocB7k][jcSnKMWGAMOZ>?3O^ai9:eYKdmFL;ga9gRogfie`Lak7oCnWh?nkGo10jShc_FMnGFkLhD[Uj6fGUZ1;\F2boKOeGZkQJ"
A$ = A$ + "=oWMmIMWGAMOZ>?3O^ai9:eYKdmFL;lmlTG`GGdc1fcOFQaNZMM1f0_Ol?oiOPoh_Om70X?lncoWg`:I4\cjPlolWoFgiEDgWZcc`WKLNRlloefjONbmh1]["
A$ = A$ + "mie3:o_o3P_ak7ocOn7h?nkGo10jShi<\jlofen2b?6HQe9bcognZ?[Tik>[?[kl:ZkCeiIhc=>?ANnoJi_ok^c\?naaloko0hKlnaolWo1nSoneO0Pn8eJ9"
A$ = A$ + "^Qm5TO<`2[CTWo_mEONdO[kl:ZkCeiIhc=>?ANnoT_nWK>kSOlTo\CQ?ak7ocOn7h?nkGo100X>F9SPMoloIikO\jjcSnKMWGAMOZ>?3O^ai9bcogMk60`hT"
A$ = A$ + "K^Tg`e8NlXeWo;l7omRo000DWho\RejI9HWeQe_oa^Ono\fL3BM?nIoloI=WGA_hDMN6mRKL>`BWkk=jN[m000OBhO61?G_hVN>8OVKL\Wh?nSo0008QDGgD"
A$ = A$ + "[lofEMHmW;ZMnloIei6lL?nIio9hl\k5W\cSf;^ei0;I^_gZk]d300l9?oi34oWY\feell[nonWPoh_Gm700085Foi7IG?oOQc?#KWo\6Wkmg?1WWM_hTMNd"
A$ = A$ + "Na]>7H9cmmFM_UN00P?9l?cSKkJOohHiom?1oaO_j?000#:R_ghcm#d^^fEm5?o0]m=OM>_k_O:>?cNaYkl8mRKN>`eVkk=k^dN00P?if_fg?NVNnQh?nkIo"
A$ = A$ + "1000BQEnINF[jkTb4JFgOoTLNFmRK`iNk5gnLP;=ggKgM9m0000000000000000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "0000000000000000000000000000000000000000000000000000000000kc[_NYN=LRe600000000000`9PUcHcbe600000000000PeiMnJ?XM]LBe60000"
A$ = A$ + "0000000`9`kheNoomnGe^F>YJ300000000PKVW797]nl0X1[hI#c2?GK1?RMVcOYe6000000000`LIdONlhWW_cVI<fI]aO9eSFio]jN5io100000000`_i["
A$ = A$ + "_njKdLKX5oJ1iMT7`XON]i97RAOn77MKHQaO=g6[`[MGcBgVkX?iMo1000000008T`GJ^=DcObokGoZFK3=mOdonHcJoMjVTS7GA=;IK^[cETlLhYQoBZ=00"
A$ = A$ + "000000Hn4n\[ecc_fXON]akiomgjgaolo>SON4?iOV6_AoUT3e:ZI9KcMUEZ6oLhZi?ga000<G>mig?CgmB?8WgN[?TZGXMmHQS3d^^00V3a_fmWGKln?o_N"
A$ = A$ + "?ogK<o;_k_dLhd:o_Md[8o?0006QgcYkie9>o^IhMl[K^?DbK_d72G?C:W?eejdZoU6g_Io1`;4oJgON;`<F3\EbnX[S1Llco7SoggonOXI>DJTkF_^YQoFk"
A$ = A$ + "H5000B3ioiWL_2mn?oi?5ifj3Ubl;diDiPM;mQNmGkj6PAXgWQYCoIOJ6>L5m0boQlo<`f#caO;\=f]CgLnGNgO00063boSlo^mlobUiEZn#h_g=M<A^SgCi"
A$ = A$ + "o]i^gIFioX]7mBl[Eoi\6cjWo?]mHTjg2K3]PloHlg2KSMkd=WoUgm700PaPlolEN7N>o_DIlE:o_KZG#nOnUAb`j6bo:neZoLF3boSlO8o?mg6J>nKQ]a^M"
A$ = A$ + "jVcobkn300`H#nOn:_3bocOioacoX_IT<\^Rl_Ll?o_oe3boc4K3]PloHlg2KSMkd=WoUgm700PaPlo8o?boc7ioiEom>NoWogojAWIHMjIO=37>mN0io#nO"
A$ = A$ + "FHKXih_5f6kfYK>o;_k?000S1ioAnOTogMWoUgmoY7<bcoUfeo`nkhl_l^oTo7io#nOj_=dLlg2KSMkd=WoUgmOFL;?Soh?nSohO?nkQL_:i=ioAnOgLnGNg"
A$ = A$ + "og4nJUO6[RWcobknCnOTo3ioYof#caoAolFKlgkiOiMoW1_WCKllO?miiRoh?nSo]d3l#^GUlVlo8o_K>o;_koK8o?oVoUgmWlo8o7boCo]1SoceYIlN>Um["
A$ = A$ + "EZ3[ho<`k[ogcnWbM?e3`OOkOHO`3iNEbKboSlo^il_l^o?m0nioeWiOiMo9o?boifboQaOO?nkil_T>_4=loTVcTWcobknkmlOl\o?^WkhO?d32k5N8g[BN"
A$ = A$ + "CnOTog=WoUgmokn#SiHLjiN<3G^UNPWmWlo8oWK;o76ommh_Wco;lUelGJ]I1lLnGNgO?WoUgmWlonM_`3iNEbKboSlo^il_l^oOg78o_]mi\6NfOboSlO^]"
A$ = A$ + "lOHlggSoN>o_`Wa^Bi\]KoOVW8?oOW1h_OmWlo8o_WNQ7bmZTgTo7ioMciOiMoo^?#nOKkcI=l\oTo7ioLKio`h__7omLnOYNY]oB[9;QWcoiao`N`YTK;n?"
A$ = A$ + "7gmNnOUhfk1Qm2?TkE9_SOMcm1bocOiOiMoo^?dH>6WN^7c`UKY7hIomLnOchiAiTNVF:EkmDoSnie66o_Coeh_7jT^=gmOooU:_]MjOhngR7[Db7_^^Ol7o"
A$ = A$ + "mZoTog_k5N8g[BNCnOTog=WoUgmokn0io]]?We`cnkilo2OYif`2ngCm?jWGKHlocJGj;[j_T<V6akAj3k8o[Bef^m_WNTE`[iOPohoSoNniO<WoNY7ld7NN"
A$ = A$ + "iE_SOMcm1bocOiOiMoOj1]LmmCoiNI6^L;m0?k_gOn_RWKO?4^=dfWAloiJi]l:nc[]?]BhhH__>iSo_Ao3O5oeYZiImZff<E]]jadLmUMj_TJcR#n?h_Wm?"
A$ = A$ + "^7hIgmL?8ljkJG?JhMZkcYMm]3_;Umg=e7RM>nG;Uoe=d;8o_?GSPTl_c=7gCSFMofj1NfoNMoFj1cXf_5okYn_YaoIlBKOVQokhc^Bj=K[ML<d>bo:dkFZe"
A$ = A$ + "EhO^gk9<OA__nOlggn7g3l\kN^7LBGcN5NWjNhJGOk`KboSlolJnOcnmKIjeUKY7dkc`D_O>;aX>LjmPIDkgRoNLlO6iaLB?CCN`O9gGJ5eL]]i^^OY4gd`O"
A$ = A$ + ";N\B=OlljoaOlg[nWjW]S7omB?hY?L3IL<Rga_^in0ioAnO]h?io]fibKAg_]NPWmOD7>mN`<ZmKaO6ommho]h_T<VFA=;IK^Sl_TD7Ji_e>FAbaANN]oh__"
A$ = A$ + "mgciomhKXkNZ7ld7NNiE_SOMcm1bokgom0E^loOnm^QNAZloTlRloTon]<mjb]d3hioc_?oGlloikaoKliOckn;iNBJml_]SkGbcogLkUN;k3l7oSMgKmPD^"
A$ = A$ + "k]N`COhiUGm>ne=g7R7_Ca]e7RM:N\>Uka_gC^GT:o_LSmQm1boKmcUgR^OKmPhL_KeoC=kSALoFj1ShNZNPfndK]?jhoYN=P`kQ?J?l4_7h=j_dLXVma\Bj"
A$ = A$ + "3F9o;]lo4a2SGJj^7cm0o9o?boSloBmjVk3lloacoWdGgDnOaiK>kg_U9neZoLF3?k_gOn_hiocgSoghcoVgmGBfFJoloYM_B;oQc3_?VjIo_Yei<ZkN]7HU"
A$ = A$ + "kIYUga_^in0?oOlloEJ\oFOnol<mNo]KinRNfoAc`Ld?_f<SJoFlWaOO?nO;ngB>Lc\VU\=]bm;dbO000>3^U<>6akhGgLOPWo?NnoTnRlo0h\Id<<?m<#_a"
A$ = A$ + "Wo96oIlgcn;97:]Nng\B6Illo100#98o?oVo7?oOlloaco70000L2HiLX\L]1000l`]Taa8NkiloBin]e7ZiLYS3^QN1?oO000000000hK^U<>6eM?e3TT1f"
A$ = A$ + "]e7J9g_K[GTkhlFonJk1000000000#O#nOn;W3bo[]GWN_8e?GcYnmbmm_QN0000000000N6?WoWWmgSol?Wj_k3Cin]M<1io100000000P_ifbj0oKgK?Wo"
A$ = A$ + "W7ng0UBn4k]d?7000000000`IQgog[:_jO^\_d^^\`Hm]e;jeWK[?0000000000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "00000000000000000000000000000000`jieG_JjkkUJ100000000000h6`BI^IYJ100000000000h6h[<I[UkkkUJ10000000000^A\dcIe^Z5;m<W]kJiM"
A$ = A$ + "^J?8ik_B\D]00000000000g:ToW^m2=Z5;m<gIYJ10_`ooYG5oJ_F;00000000g:F:WUME;F:cYMG;FjI^CSJiIKFkGgiH_5Z5?`Goo=d72oNUnm_YJik]i["
A$ = A$ + "Go#Z_NWnKPJ10000000hfaBoLF^[JakiOm\mKik_jN`>[5;UiV6ebCh:OG31?[EaoN[VMG;_cBj?oi?oUW\URo_Onje?f_oJikmA#6K9oj=j_5Z500000PkW"
A$ = A$ + "CHmO0\J\daJllo]fJiobFhE0O5`_on[gkmG;o\][o[kcomE;Omg=h[OakOiS_gVlOgeBH^JUHgio][JaBI^IYJ100000hna2I_IQJh_k?3lgg>k\6b]_dX?X"
A$ = A$ + "I]`coW^mRMF;onI:jEV\6N]U<#dXFnii[jU`OMmn_cJ9\W7WaF8kNlOGeBhcGG]lffghonZUOml5njOGO9<c]WhHg\oJG;00000h=2GSY6i0Xin?ej^edOEj"
A$ = A$ + "11;iJg^[A=TKOYAO`2eR5bnKgeB^mS5>oO5eBLNK?4WgFlgO5[kFSJ9ENSeneMio>ZUhLVTTif>lOGeBl??]QKkhokEoc1\6ebWo\67oLgnk_NWn[I]000P_"
A$ = A$ + "iI^fJ>oO=G7Vgmg[lkOFSfg?kCFHooinf2n_kOncdm__]gM=TKOUjk_5ggL]lkSc:mcOiNokonME;Ug?onk_7ogC]4WibGAI[Tkk_SlOfA]#nOOnLVE;_]M="
A$ = A$ + "n_SJic<W:cNcoJmeRgm700085Oill_l^oNTWiFmkeHX`Oo_X`n?enf2n_[JhGc[>j__Mf]okZ6n^OWHOUjk_Sno>[UD[k^Ln;kih_ME;YbMYdnOKWo]QJiW["
A$ = A$ + "eTni[YdgOI7k_aJ9NKG;c]Mjo>ZULW_E:_]MVogZ[ULkcJ\CoGI]hMoQF6OfoOogH5N^Wc]^oT<FXah_5j1honncnGcmIjJhWaQmk_>kkhJ8lGm`nnWmoWLk"
A$ = A$ + "koL[oDkeo^SmOYeN[]okX6RWoMf<XfTokX6ZUeH^_obOn7fD]D:_]7dNmO[\FR?O;en9egOm?o;kYFn<K]OneJOoEio>[UO_]UaNlO?eBY<GZmk]bSogE]HY"
A$ = A$ + "<W8o?kD;YZ]M>7L]GkKjJJg?okf`oOZ7=Nnoe]7Xaj`eN]oJG;Fco`ko^c<8fin<O=lch`nmOokkhJ#[keZen^dnGKoganWlonLoI1ogA=#nOToG^SgdNmO["
A$ = A$ + "ZFnhh]\I<Ngol_nkeLh_Wo_`NI]okm=n_nJQlo\c?cYJD;NgOYeEleM^QmE[S;?ggI7coK7k[F[WMk_fmP?7;dlOo[d=38?ko>^g_VkcBe#lh`>mOgkkLS1k"
A$ = A$ + "H^_FHOGjh?]?nWmojgoBfgF`oM<oko^?8o_\OoU_n75co;G>;knh_MD;JTiTUZUL[inca0mFoo:[UJcgHWc3ASJYdn8EoOgWo_jJ9nh89oj^>nO7eRgmGJM5"
A$ = A$ + "OMgKHOejhbG>>o_EO]?]fO]F;Jh_FmP??FTlol`hO]eP[ijogAOXdmQgYoJM_nhiL6?ocmLn?koM_oC]_cmekdoME3O^_nGFCOoL8[Qo[]6nmnkWme__Vk_["
A$ = A$ + "QmdogC]TkJ\od_Oma_g>lOGeb7mlXmCY_ob7ogD]DK>7FJn?[XF`oD[ilgo\WXYo[^FR_^STOMen_cJakn;YVnRloDilO]m?meS8o_KJOF[FN^_c?o:ioMCk"
A$ = A$ + "CYeP5Vog^^OWGm?el;dNn?\ogcng2ciDcJhcL62okJneVmQFe#hmKojGI[mZbgOUmomE;iV_IlJ#faeQeXFBMlFlaIinnkhHoME;Yj[kjOgG]#]PoYcMc:n_"
A$ = A$ + "jJYfl>efoEG;NgO9ed3gdnbReTel?\Nf]oJg3R[5=lGcN`?cijWOm6gWUZUM]fG=gWUZQh<8^imML=HYkoKUiN\Sl?Ho_om_5VgYVe#hn>NmFQOm^lO7e#HV"
A$ = A$ + "KYfGion[=o_ME;U^FKhmNfmaOkZFnmaKnkWoE9moMNoG=[5l7oaOoj?004ckiI7n[gjn<O]\oLH]Cf_Omaom]__C=6Xih_6kK=Wg1kOmfoFHNWJF3NdOYI^J"
A$ = A$ + "Qno:Z5lggn7_ocUihZLfBe2nSoh_Om70000l;YbODkl?Io_WmO^m]5lOGi_i=o;]o\DoOEe2nkKo;E3[fG;F;h?nSoneO000000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
A$ = A$ + "00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008T_nj[oB^_nfaknORHea<[FGg4ija"
A$ = A$ + "FX?WZFVM]QoimgB\:o10000000jQg[;i?oi?oK=:_n7olmd^n`OhD6c\JMMCD[7ocgC;Fka0hOn]_UP[100000P=AjO6^`mR7oc[GjjeNnNJG_h?Hea<[FGg"
A$ = A$ + "4]fS]JnGmN<0nGOk?FFMOb:boS[100000PN8I>NgN>#N7?n<kdcje^Ye\hMo?A\jHVE[[KRNkaF>o[F>60oU]m7?W^d^\RlohJ00000Pfh]Wk]hifEj?kgK_"
A$ = A$ + "O`coVOnc[OTe[M3mQKbO[MNkZZ7[>VIUj:GOOg\RS37]7_OVka0h_l]Oo?[OiMYdl27=o?9n30000`\9glJdN]T[fiH?cio]W1H]i[[Mm]6WkKm:JGgceknG"
A$ = A$ + "?YfNPofklfEE?FM<c:eeXiQ<;FaaQcZ7_GVga0hOKKof?>]?gVInOUl70000PISTicLKI05WYW4o_aNA[cGGkjMnNggjEd^nW[kcMmJFWK`O[MNkZ[7[>VYM"
A$ = A$ + "M9IOJQlo6acIeSg;To7ioM>g?1000`clOgKncOFF^IlFnOanfJnOgBoXgi[[MM?G_WojE\<cLmJWH?h6lgJWg^jjaZSIJGGBgWF:o_Fm\oN\n<SS1`ofmGna"
A$ = A$ + "YSif\co;Uo0000`jimmVONmnoFkjIG>kUloBiZDo_YNBk[WhNVWJO[Wj>V[N:_SGCC^_n6>>hdmgJWg^SjaZSIJFG]dg]FnO]hJ?mH[a873PonfO0000H]4V"
A$ = A$ + "mWGb0\eo\<e^NgY_gJohciDkil_jgoC\7dkca#je^LN7oObnK]cKgEmHea<]Z[Fkkk?[SiMLhXmH[C]S1`OOk?0000\FNbokiNaN;o_O?Om_negkioFkjMF^"
A$ = A$ + "VK^HUl?gWAK_J_?H[L4deMKl\4]7gWojW>YSo?Mo]fi]kXN\jHVVeE[mmMb\cm]oJ#O6mH0lggn300`N8geae^^`OlOU>GKNCgbLCZ=W\NV7gYeCnRWo]QVS"
A$ = A$ + "n9O]QAG_D^?_fNi1o]fi]kZN\jHVFeE?mmMb<?>LXNlko\KeT9L<0nkKo100H?lnJbNkWoClo7gCM?iCLMn]jMXWiloioFkjMD?[=WBYOohgSfn9_?lij6SM"
A$ = A$ + "<gGWJMLJkc<?6XgekZ]GB9kjWjL==WfjE>Io]fi]kZN\jHVFeE?mmMc\>>Lfmh]aT>60om]o000\7NO=hG1GGfCiOiMoC=OeCL=nShL9o?mNAX3ilBZoWL6#"
A$ = A$ + "iVcI[[]k1]mY5TjD>bmief[V7kkI]B5n<JkU7lgJWg^[jaZSIJEGSfgeVF>>LjmhMb4>6H8oojoVoN^G_7;jmE]?[XkW^IoCM\H]OoFN_[`O000f3?cW:ljl"
A$ = A$ + "NjjaNfo`iB7OOnK]74jL=o?iNA^e9e[oifFJkI_mQAG?WfN9UL[1eKoiegjJ5c]V6]m`;nK]cKeXN\jHf>[[Edge69^KeanMEOm\m[m:LN>klcnlJDoUL\EL"
A$ = A$ + "=gj_oZfF?7gO;g?mV`kS9h_Om?eeTlN?#kjIg^7N_YAGW`9AL6?aO]feg>L^ToWL_8gl5keoNG7SfdbLAKI>gJkE;77lGNI[WU8=j3cHmKJkQGlgJWgZAmHe"
A$ = A$ + "a\MFGSfgeVN?>dZSmkZnVaf?E6EFHKmlZ5oUT_Veco;ncLbg?mV8lH=_=VTjj<NZ7PonfohNP7M?lnBWB^6cbkhk;OJikd[gBmoDk3Bbo[VogDnORbf:5IF?"
A$ = A$ + "WfNeca3aDkEZ?SfN<RoeL[F?jVl_WGJToWE>_ESjaZSIJToGgmM]YcS3]jHo^Z_IWoG[iFUkmTJKgk[EWoG]GkLKAnOfVCOnMShmcaRQogJGGh?n_cN`=\6_"
A$ = A$ + "NM?LnUWB^6cdkDnOSmQ`iO;eoC:[[DNF;7_BnO3I0FLmReboY`WAK_jY?<j[CdkHok=gVKaoCIlgJWgZAmHea\MFG3eg3o\BO_cLKEXV]D?fR73<S]OZ<\BU"
A$ = A$ + "]g<N?mlZ5ok9O>Y_oIonTFcWlmC_=NNYMMPoho>iIM]QGcbKGG:lN=NdM?>n7WeC\ogHOXDnOiloDbi:WWBco;Uog#nOQmTHZm:eWAK?6aoAOMjnoaJbKImk"
A$ = A$ + "Glh_dc;d`O[MNk>[7[>VYAMeCOokjiOojX_JMK=baQFM\OGeg<fnJUog:lWlofcmId^>`Ol7og[gNlio2om[oaiJEjiojVj5il[VoWFO8\nUVoG>o_Ylo6me"
A$ = A$ + "YhZDoCViEQe]LjnWjIj[fhMlWCK?Veho_6[Ol;ZoTjcXMMgc[IFgk\N\jHV6eE_mM=co;eWgbmH;M<`<fnk<o_Eko:co;lm>[]WTJfBg?miUfe1nSohoN8L="
A$ = A$ + "]aGcbBGK2oaoEhM=o_Yn#^<mTho9M<A?IoEboK93#[USPfnWLM:aHPlOVYom^fm`?[fN<jhOeeXVik[eh_e>_ESlo\fHV6eUGcocJSmkZnVafO7io]Jo7iEZ"
A$ = A$ + "iZE<gb2iXfCnSeNIYkWnh]fe1nSohonL>L=\WfJmaOlO4_[io=e7ZUoG9o?YS9j=o_LnOCio=3dfSAloGcioeW?K2oRPOO;>Om^6oSlig;6iOTIM:GEnO96k"
A$ = A$ + "oU[I>6#3o]fi]k\N\jHV6ee#mkPJYgGYfF[lh#[>f_[jK6Ko]Uog2mOTGBco;eliJMkdc[ENlI[llBkj0oaOlO?4N]_h[eIY[=Qoho:L^VogD_haWNmoDj3Y"
A$ = A$ + "V?WTll:ioeTog[GSa1hI9oOVcMZ\mB=gL;Tocd?68Wcebok`M?dOYIQdKf5C_V=di]k^N\jHf^[[IegkmU677JeanMEOS\mUnBBnOcJOfRoE_g\Pm[Fio9]n"
A$ = A$ + "\dmD_UkaSoh?n;giB?o;JGOh?n_JWUllOMjmRBN9eoCXGdBfO]ho=T1hg[O;J^YRaHcG]7ooN^i_T]Fhhgk9kOLOXUGgPgWZoFklF=Z7[>V]cjJFmmNOYeaQ"
A$ = A$ + "FM\OGeG_KOY_VAnO]nBRoaKg?>F:TPO_H?fEnOmDOFjnZ?_d^>`Ol7og3QGk;nJMFjJCh?n_2W[io]d;biLZinhelo6mcHinbC_Yge0N3iomM?Xclo>Mg3k1"
A$ = A$ + "m<n[MMkEo]fi]JD?M__Fdi]iF?_djBcnN__djh#[=f_kS1lNnOEcD;cgoaSEWog8eWU^_j==77l7oaojn6O=_DO?][Cl7oGQgBmo6j3Ybb[DfGUN_F^GdBVM"
A$ = A$ + "]ho=TogCoITeCYMm?]N`[fcoCkjNVnWFfoAVnPfembm_ba1JGcFjlfMG?ST1bZl?LOdJMYEOOdGJLLXe6kgma0[>o_AO]UloNUoiX;lk5nnNoJKioeImYmmE"
A$ = A$ + "2keWdlHaOl7oW[cin_e^>gQoUFo_fe9n_6WK=oWC^G<kl_dfWFlTlon\7]Ri[O:#nOTog9Nl_eZkMF?SV1d<k3Q[_GSa4]c3BS<?k]6U>fo[<JJhm_SnQfSg"
A$ = A$ + "[HO9eoha59Kg`gkfbo[Sjc2gC9\?OJcS5oaOlON>OKINdRoN9o;_k_7co[U<a>i\^JecAmoDj;YjC]nj4lZ5o9o?O?nORnK]jnDbokioNVTJO\jN`\j5SnjT"
A$ = A$ + "bokioF2Qg3gB73\[akDIS]ZmUUlGBnOcJO5nIdnn9amhCJ>\h?nSocagBioM[mSD>VJ^0hoMioSK]jo9g7b=oVFmgj7CdBFMc`Obok<Qlohiok4?n_gjNU\["
A$ = A$ + "nXfIN=cmQFioMRSkkL\g[iOmlbcn?bagWjmCRkaWdLHaOl7oWS_N;o_hehGKmm?_O][kE<fW:_SDOoK`oDIoeRoWJOXfij]h_U?N#JnOcbObok<Qlo8o_Cdo"
A$ = A$ + "AF7l<c2KT]idco[bHfZOYaaBJMLP6SkkL\OjiO=YS1`omho8IKWnghUY_OBL?nTV3;nSohoLl]6gFoPlojkOo7d^^W]g]joYf7bUME?nKi[9dJnOSjoYN]bW"
A$ = A$ + "[We:JGgCeoBcK?N=16LnjSjO?[aAkjNinKle[eki]?eo\N5^=geeA6=3PJGW?nUdg_FioYaa1J<^_canLO]f73PoSi_Tc;2OOmliFYokhn:oMllOekY<?fIk"
A$ = A$ + "och:nSog^o?N6_6g`okCJ=]]jN:oc]nnKLm_mToQfem\m^Eo?an#YS]kaO;WeU4OVYoiNoJg7TdWn:HjYRh0lZIo5\Fh`g[fem<moTG_b<m_UehIQj^WcKOm"
A$ = A$ + "BfajBOm[LPjXNfiHfkGaiE<j[`]W67;Yea1J<^_canNO_[nH0l_OoSG[GZi[5_]3ojBO^DWCMBg?9\oj]l?Bi_gco4omSoQGK;WoWdJJKekh[]WZOLcIP5OO"
A$ = A$ + "\LgOkdbf#Zgmho9f7bMlnXnK]n#YiZ]:o?e<0oNmKEV[jgH\i[>Co3O5?7m_oNGXo9Oi\loN6Koki\_nI=]QO_`g[5ZkN>_ME_fieAjM<keonncnELf7klH9"
A$ = A$ + "]?>HggoHGSm]ToEhfNe73Pomk_TiZml:nnoBo\WjmC2k_WfLHGQoQci7oaO][[EkKZec7nOOKG?#becUlNdfSEhOh_G]gWfN\ZanK9OWDN?Ko]FOX5oVUoWj"
A$ = A$ + "a7]\V`I\n=[A:oS7o_MoOmBnh_eF_b<moTF_F_WgnagO0T\?ZE?kL<ke[k>o_J_Vea1BfVefoknle`a99_NfN]ln3gG[jH0lWloFmmE>]i`Roh?n?7Ocio]e"
A$ = A$ + "?ZMmL9Lbm19g?kdcfHTaN9nOJmP7OV]oF[?8ihfIkoYNlA^eeUjEhkEkjNEnomac_NmcLe3WCoUko?3f_nhiokfmGbje\RomNNKlgOTm_Tma:^>B_SI_N]nl"
A$ = A$ + "ofmaBknh0=7ggeHo_f72l:LK_jS1`onmGjli2mXg?gYMoT`nkY=7Fl7oaoihK>o_]nQT[Y;iJnJk1n[SkWF?8diIk_ej5elKEnOj7OTJ=0aO?][cEjocHi_V"
A$ = A$ + "Kncle=fldGmhO^lod^>GjhOhJc28lH2][cJSKi>_=ekIFi`8IO]RSST>V5njmg_f[Fco8NKZaaBkjh0;<^_SanHO[mJg73Po]k_dLlBi_T?g>mOEh]l?`Olg"
A$ = A$ + "[n;9[_BO?][oIjm8[oGKO`OMmo4j1[<o__c=a8mQMWoGY]WEj9BjIacM=N>dWR;SL<cScoJlme[SJ\LdaoL_^Mo?ee[9ilfOmNVM><UfG;lj8[83TDeF]c=R"
A$ = A$ + "gVJWog>>>#camM>fKeS1`oiWoG=o[mIgYo[RKK]nh?nSo]iZd_WfeoX>?B>0aK7]m2oaO9N_:o]BOXU\oV]oUN_JgGTdgRWk:ioAnOBGOhYc9_N=9Wgnm_o2"
A$ = A$ + "L8<;8[WoG_7Ogjfabio=[S3dJLOgSmFlH0lGff?VAVSF]?o7\#oG5gdJmaOl_V[B^6A^gWfeo<m_dJIoHm#7\oiLYUemWZWY]Gc`oJgO3o?GoCih<mg:mQJW"
A$ = A$ + ";_Bo7I^UJc^GoVehkagGTogo=Ho?JL=RW:WljeTLNkZWcFhnHGG7IVIP<cl?dhH9]>>#SaM=6k]fa0h_\]_dedebnElj4GXo[RL[oGkj2oaoMhZD^QNR7m_U"
A$ = A$ + "e]gB>2Jk5nSoBlNEnKUn#[io=Co?i[EBnOTog_G0g;GVoGA<XoFklF=bo[fHF]Gc>o3=>FBkS3d:o_M>fKYS1`OIKoE\>FYKgCmn9O<o73FW[doCLnkcJL?W"
A$ = A$ + "ogha1N<o;?kO\_cJmoWBo0omYoilLVnKUn#;>]2o]H?AJOC2JGW[nh6boK^[ElDhdG_VE>_MWeSda\IG;RLLc7;Yma1kNo[eH_E>60om]o[ThioXMmXUkNZ7"
A$ = A$ + "TbkK_?8aiK^Gh=oSmM4o?an1nkCoWYWF_?\CG?UNB;m]`O=egCkjLinCnOTog1]N=[MNk>[7[>VYAMYma1kNoKeanMEOh__mOien4b8m4Qlo>kea\2__en#h"
A$ = A$ + "mXKeoC\7\b\1>Qn1nkCo9o?MAkNB;m=[TSP6n7BhHW7V;L\WQIniAocQfeIZjfBWg^mlo<hHV6eUf77XBnO6L\OGe7nkKoQe=^MRcOO5NkUnP4g_iNPGl?WW"
A$ = A$ + "]joYfG`OOjO=oVQoFY?dR;[boCL>NJ_nA]9UgYj3JGWkX?hYWk_CgO[MN[6eSE7cfIMYma1J]o]jHo^Z?lggn3cOlbJ[YIGNGJ]=WdJI`Ol?WSelKTOO]m3o"
A$ = A$ + "aoFmNFnKYn#Z<hfYo_Wbg?XOoXUSA\B>2h_Nm1?_NUCcO[ML;ioYCMYma1ToW>e7nkKoQi?N5>?oK8gSNMgKm0_koC?`R[YOVS_eFW_T_Gla6W#?2omYo]T7"
A$ = A$ + "f8nKUn#Z<hfYoTogi1nokSQ3G[RU>gN7mQCJmJFkhFboCWjBkS38o?MZ?lggn3[I<cCci9UogFf?h_LgSmo6k1Bb2hTcl9_cOV9b8nOBiLhEoo<CZEh_Mj3Y"
A$ = A$ + "coKOnORGO8O6VWY?mh_UbA1oe[?LB[GcJWgZAmHea\MWoWV77XengZSmkZn`OOk?0c6_<WOl7oSmmfbl;][aIRdVoOmA^:WC?aSnW?WZIi_]bok7W[UCgmjO"
A$ = A$ + "Om\HGn=JGO[nh5?WoUgm?\?LJ[GcJWg^kjaZSIk^^dnh0=foFM\OGe7nkKo100H>lI^1WOVOYM\NF8bblhlj=Ndoj>gSoWC_`kn;_?IS<4dih3klLDYQoTog"
A$ = A$ + "i^N=[MNk>[7[>VYAMYma1kNoKeanMEOh__m7000X5bWaAYWEZk9GD?joWN89C;9IUM6cYakn;_?IS<4dfK?e78o_Oj3Wjje\fa[N?38]Z;]?>HWkO[>f_[j3"
A$ = A$ + "om]o0000SBnWmYc;[;l_TSBcgBn__fNQo`L>n`OIomONCnO?m1F_fIQE7c\JMMCHmN<iOQoF^n00000O#]L>K5]m1oQiNlQ_bnkoLfgol?7f7HmJW5FM<cZe"
A$ = A$ + "e=QekaTo5nKij30000000OB^WmA?T3JL>WQ[EcCiONBHea<[FGg4F_7_jj3om]o00000000SR7cnkolVOnW?=\jHVE[[K2[gSGMmQonfO0000000PIPgbnko"
A$ = A$ + "LVe[MJHea<[FGg4F_7CnGh_U[?00000000_2[Gkl`ZSIF]^^9\N?Vl_`O;GO00000000N5F_fiQE7c\JMMCHmN<iOQoF^n00000000l:\N]c3[>VIejjV`jm"
A$ = A$ + "Hbo2o]Lm10000000hENFOf?llgoQl_GSF5[>VIejjV`jmhEGOh__m700000000jW_bl_maOiXoM#id`ZSIF]^^9\N?Nee7nkKo10000000PnQeZMNHea<[FG"
A$ = A$ + "g4F_7_jj3om]o00000000#o`Je>?\jHVE[[K2[gSGMmQonfO000000000000000000000000000000000000000000000000000000hdh[_nj_XMMPoh?n30"
A$ = A$ + "000000000cUo;kSWomjaOIPPo_5oeOa[nkeaoWL?SAkj2oaO00000000H^hiomjngIohc<PNbnk1][WmO<Po>noW\NR?foWc1^ic3`OOk?0000000Pg`ciOE"
A$ = A$ + "Km_JGOkZ74WoWGL?oa0g[oEcmiE4GF>#h__m70000hio7oo]_NcO0l<iF7Xfeejm^DfOgO>#?li2nmec0XW>n_jalY?DhkLPd^naOl700006SggCo?oi?9a3"
A$ = A$ + "g_7oojKG3Gc[Gl70_SWbohgNCnO_Qlolaao3Umc5T14nkKo1000Po3_VoELFGiloNG;`WImEjkYMm2`ZaS?g[NmWoEIIoiSn#^5kOcN;khPkaOA7_;9oW3=3"
A$ = A$ + "8lggn30000oP7co;N>nBbokVb0;UoebokVl7PHljonOjUl?JcKOe78o_kOLgkioPonfO0000`_?oKYVS_dlo^Qn#>oUTog=h?0Y`[7WWk_kC_mW5bJNCOh^m"
A$ = A$ + "fCngDFgGH6#h__m70000lkcoFjildFnOWLOXToBcokTm7PDTnhLO\nVonlOUie=g3:i]gj3NkiogKngfcjZ`LP>XN3nkKo1000l>SVoUfeoLMWlo8o?`kTK="
A$ = A$ + "#JGGkaMOWoG^[moP7j3gNnGNgo^boYF>#7D_1om]o0000N6?WoEnihd^oWH?XVo]Tog9j?0i`c7SkmloTljfk3gNnGNgO_Wo3nkKo10P#Jm_oG^][gQoncoh"
A$ = A$ + "LONXLnG?Lf[;ncifd_oWH?#RoinjK`O0BAie6MnGcGRoN=g;boc7iOiMoWNn?7fe6aOOk?0P_9>;WJoLOD??PcjjOh?n?RoWNNXcfO]m1oQEM<RfeanMVlol"
A$ = A$ + "H^GToW?bo2o783X?bmi<?O0om]o00nRAckidGC\Gm?EFEh?n_BgaOkh?dka<nKnmY>>fC7CCnO1nn?lFOXdehe^n`oiiiLbni<?O0om]o#^S9^oO^g`OohO;"
A$ = A$ + "[iEZoWDN8NfoA[gIi_f7kSoh_7m76mH7o=ong^jal_l^o9_Fgg[em\W3L[m1?To5ngA6#OTkcIO=1lggnkMR_WVdGgbm2aokcoFF[j\l_WeGSo[goFckHEn_"
A$ = A$ + "ccE`Olgcn_RNYfeQN^k_ihGjl0?d7lZoYlVWo_k>o;lO`o^Pk2j7h__mgCdklm[mbbi1Qon`oEVgE[n;Im`hoj>>`Zn_[lO`Olg[n?cnXGWWKje4hSNPGcob"
A$ = A$ + "kngjOn7JG_[\?TjJhFO]=cdoKhnGm<VgB^?gD_0om]oik7jW[a<mXgic?jW7oaoMhJ]elZQok<o??kO^nPUlGSlO`OlgCn?cnhG>;k[d^k[N#YScm#?hao`O"
A$ = A$ + "=loFkjCSaM?ML#^[m[mJIfYoYnc:kd^oeHSmN?g7lgKnGK=[aGC#kj]V3]Lo\BcIOdeB4_]GmJoaOOjO^jFJ]^2o;EChoj>7`Zn_SkKPoh_WmOVma`imZMm\"
A$ = A$ + "OgojGSSNY7DjHK?d3lZo]<WfK_?DjjoJGOhoNj1Y#kj2oaOYeJ[TkLN9c5N4VIOXgGShO_k_E<nOBnchol_>#_iO]:o;EChoj^OPEmgZioPoho]ho\jQOidW"
A$ = A$ + "o]7oC=FZMM]_anOo\_Ime0]jaN?L<#;cUmfk3U^V_fe7n_WNPW>V7oSLo]n9`RmPMWkA?[_^dnGcnPFn[]gJk_Ej3g`hOXo]FO[fO[Wog=iO^nPUlgJioPoh"
A$ = A$ + "o]io\jQTogWSUJGGJi^Wj1NeObokWn#Y[e[MmQokY7hYSiao?mo4ncnJUIo4kN_c1FBMXA_#CoebI[h_5j5g`hO\o]DKk`O;Wog]iO^nPUlgBioPoho=jo\j"
A$ = A$ + "QYLAkj2oeaM?e3lZo]lW5RGk3g\gho_k1NjLoLn7f7lPoeV[Web1L5iolhHZgO[[aFJMXA_#Co]LnO<nO>Soan?bJCGQoWHnOWZoij3FboC8o7l7o?IoWE?<"
A$ = A$ + "U;JGGh_>^kYNPGm_Ui`NkmQDGSoT^n=n?N?`C7ckMo[UkGZNQ5j7mVkb8iH<k<Pd8o7]mGklodfoh]7SocaOYee^lgZioMSnW[?H9o]Bn?h?nO[n?[NhS??o"
A$ = A$ + "gWB]?;oC=FZMMYUkNZ7hEoeNn[F1_WoUgmoY7hYSim\oU>No=FmjPmVgbCM?Jn5SliC]mfIo#Kog]_[XnIlo^boK5nOBioMjnW[?H9o]Ln?h?nO3n?[NH:Gd"
A$ = A$ + "^^`OMLgCm0_j_fcOe:hml_l^o?m0?M<_GmOT\od^_TkjemlWQMY]EYO_FWoLY]e\j7WPo[<_[C`oDOO6oWcebjIm_[boD_WE=?2_kO^nP5lO7NSoh?n?_NH:"
A$ = A$ + "Gd^^fYoQSm?ogJGGJ=fkYS1lZoBVoZGj3N:o[`[em#9oSAkjOem4?NmoBXMm=C?;UmWdlodjjQUVGJ]_>eieYf>]\ffD__JOm<kOQW[JMoWY_YZ;[kOZ]5So"
A$ = A$ + "cijIeFGj^mOGiOiMoce7\Pok<o3l7om\ocZ7VbG][;lO?^7bSk?XMmYaH_7>6XTgN[?4OMm`[_[Mm=KGO?\o9Y_gf_N?_n7GF?iY_hYSiSMg37oGbc7\le3W"
A$ = A$ + "En?UVKkc9iBW3l9VoS6n?COCECFgoDK76oWcecTDCkdoMUoUgm?GO`2nKilO`OloVlOFm`D^ZMMQojh^Gj1_mC2JGWkNLg;77hYaoocU4iim#`mfnhm6on_T"
A$ = A$ + "NBH_a;7cWbmK?o_B>6SE_VHY\DZmeBVcJl54jI^denjIfk2cFajn?COCe;]^oYZI6oWcedTjg^lOGiOiMoce7\Pok<o3l7om\ocZ76ojDZMlOn^kUNPTe5N["
A$ = A$ + "mPgNe2JG_<n?jHMQ\oNhkak2Io5lNef[IfOlfenNlf;7oGccHZmJgm5bo9Moh4lOVnVZGJMoCEc<n?W[Y9e_M^ng`OoEM?4_kO^nP5lWlO`OloLVk\GGo3nC"
A$ = A$ + "nO?[e;L=OQO_K]74kN\oNZ7DRK`mg>lE_ioEhmZ]Gc\ohe[m9QC_GdR[aHUk=^ZlO2O?lcoiJlOVnVZV\^oYf><n?W[YeCVD[dohOoEMo3_kO^nP5loTbo1o"
A$ = A$ + "aoCfoIe3CiZfe5n[SkNY7lmimINMBW3?Rka[e=l[m#?X4gPk_Mh[`<mbU[gGToWg^fW4>mNA;^6SE^gh\boAbLKU<ggLco]dG?cNG_ioXQocdgDeUem?efRa"
A$ = A$ + "oiL=]FcTJen7ok_ZkOhMoce7\PoF>o7l7o_9oWE?lQ7?>UJOfn7Rfee^L?g[K_7lLNJ^GWdi`Shncec2m>lgkfk1Uh6Loo^Nf[?iEHNNIbo;E6POMGGK`KGo"
A$ = A$ + "?W_e#kjN4O[MNN>\bm5bMOjBgo>lmDKn_?__BoNBf6BZ]Idk2W[J;nGcaJoNmho<m=gn#Zognh_Te^]:ocE;[hJ5a[e\Ue^^BogEnGNgoLm1;ho>co0oaO?k"
A$ = A$ + "o\jQYLAkj2oeaM_d3T>7F][cEi>ioillonP<ioUimZ]Gc\ohUckcik]OM#9W[G;o?=_V#?SIQSMY^^f^nlYfNk\O4WKgG_TUKFhWoicdKoc:SoJhOZ]gZj7B"
A$ = A$ + "GoGcn;LmO[bGYG?CKogeLX6eoFOI=oce7\Tok<o7l7omXocZ7Vb5][;lOmN;1][cM>^kUS38o?oTogS[ebcki1lCbkEKOVM_a;Wg7jKliiaiNMCW7dCnOQ_\"
A$ = A$ + "#_Xg<GJI]bclcVKk]kNaS3OWSe32m?ncdZoJhL:ooX7dZoC8o_Eg;4WoE[nOKio]8ogeLX8o_dm1;i?ioPohoJmOFm`D^XMMQokgK?e7l\oToW_bokagLiim"
A$ = A$ + "gako]#__GSP3bnkY_hUck3m=nllh\_^]c3J=3`Dm5=k3mVibcaci^nF^SoWMfO?KG=j5OTSg3El?gWi4LFT?]jOVgO;ea:k5Unn9MZ5o3f6]^_geebdfO;Vo"
A$ = A$ + "G\omnbBnW[?H9o]Bn?h?nO[n?[NH:Gd^^`omk]Wj3NfohloROAnOWee`KaiHNbl;<o_ON>0_oW5H_Mmo7OScm?ee0^]c3TL>_E_F`XcM]VKQDkm>BMXA_8KF"
A$ = A$ + "N?4O]^:_gC`I[ho>k55GogRmglio]1o]JnOkhUUcoC3o]Dn?h?nOSn?[NH:Gd^^fYo?mPKO]^e6gmda1NfObocWioQoYk3NjjoY^^G]\0_YnQT<^BU=VfeM^"
A$ = A$ + "a>Y_:]ndD[agZIoeKOXJ^6BXcm[E6oe`oMg7j>3\1l_Fm\R[3dJnl[foM>7RNlOU_f]oUj3FaO=bo1oaO?io\jQQm<;=OgMiOZaC][;=lfCm1?k_GcokSoL^"
A$ = A$ + "[<_]Hd^naoedClbimil=>o_`S3^enQdSoe^>CEcSB[io=[m[Ij3anFSKaKUlOEmQLcI;loNUnWJO6G;[hJ8U^fUFn_c[Q:eoMmJgnGZ?H1oG]gh?nSoc]?6j"
A$ = A$ + "RfeSF^kYNPTcC^inPWmoijE_OiUlo:=7]JO_KhhQokNB_B#Jooekie?[3#K?FAOa;WgWcG_NM`Wna:cZ`R8:;P;^GPoW_oBcoKEn;=o_Ej_TlofUoiZ5=mOG"
A$ = A$ + "_d`oLm1;ho>_V1nSoNfoIe3]nmkGYkY6?e^^d`K?e7l\oN;o_LiiUjjgYV;gYO<AfllNmcLmcVmGlko0m_F_a;Wgoca2jm\kH9n:i93o7gZcB?N#kj2oaoJe"
A$ = A$ + "M^i\ebeakeoC>o_Eh_5co[gke95=m?GO`2n_c[OPoh_Wm76ohWDXMM]3_[mjVk3NfoW[Gmne]WoGleV;=FWJNLWna5oWG5bnkQ__fGQ\o2N_JkeLk?nijoOO"
A$ = A$ + "^oG_nhGCmm>][1dbhI]igaa;0HCb=o]heU]SmOYJIUkoITog\lgZioM[nW[?T[^VA]4_mbi_Ubo9ehb<0oaO;h?0m`ca_QoJH^fgnjJ8o?bo;N\^Ug[fNeRo"
A$ = A$ + "MWoGQg[fN1mOl#Z<n>mlobUOOhLbbBac7n=efnJg70`3Xmlg\`n_fJCgQoeZ3lOmW7DboIF;Ybo;gnOeNgZo[:o7l7oedO0j1]WoRf^oLNKh_VkkYMm^2oOk"
A$ = A$ + "gkG?oJh[`O_CgoDGO>gaj^8o_2?COTogmc]UoG]LibMNNfS]cLNA[KO]k;0LcXmlG]`nGbJCG]oTo7ioAn?h?nCnO`iPfcOa2^o\n]`ea5om^aN#^W]ULXMm"
A$ = A$ + ">Z[Y^nMh[W[I;9[`Ckjk9co;>K__bToGZ<0oj>?W`;LCioEKnMe^gVT\o6Ik[Mo1PK5]Wk2kOfoFH^cQk[h<8FMnOifWk>o79n_RlO`OlGKo1X7NO<J]Ggja"
A$ = A$ + "a?^7WeGZ_g=f3T<fO;738mN0]LoRCZWT=o_?8CnOIN_Jk5doa3omJK7NnOST=GhefFAfOgbe>100`nDknEc>o?[=_hEVeC;I2Qoh?0F7boSlolbJHU<_U#O_"
A$ = A$ + "][aG?G_ON#oTlNef7H\S5nkef>hloT<G_F^nF[IoejfGkn5000g;ToW_co1om]o0d2To7ioiYe_Vkn3OW7B`hOYg[fN<Roibck_n7ToCYg[fN0chhPfAkj>f"
A$ = A$ + "QJc5[U[_5ngcOTo7000W4ToGmJK6LJn?;_Ud7\Xoc\G#nO`]0ioAnONKm[Y^VN^aO[W1bdl?ccoe=j?LndbO>_]L=^FNfo83#000\2To7nW=c[4ca9igCbkY"
A$ = A$ + "`LT\Xo5k5]h?io1G4BclFkjLE^7Ve3ioi[e^bho_cm;EnOQi0ZMm2`3]T?WdLjj=o_FfnJgg000h>Ql_`OboSlo00:3io#nO^OlWloP3TNbW[F>MSVoWT]_f"
A$ = A$ + "m=000^C8o;lWlo8o?0Pb#n?ToWk7o9o?h0Qlo0000nQWl;d:o;]oi53oCko^bocBnGjG7=o_RKKVW70V7boQloLoh?io178c>O^O=_`<c]M6KO]kK000L_XM"
A$ = A$ + "nGh_mlOWioI5oe:o?]m70X>To3ioinaObo3>Dj=S^hLin8k_Pin=c]_fm;000^K8o;lWlo8o?0Pl#n?ToWk7o9o?h#YWliBU=g<co[dfGkn5000g=To5nCnO"
A$ = A$ + "To70#N8o7lgmnCnO`1C[Id5W;Gf\oj<3`LKO]kC000Lo#nGho>Z[C>o?;^]10f7OWe_#d^NaOl7o1hgdccYWX\o6hi0dBc76000O`ZW7WeWW8n_WjjdlO6e8"
A$ = A$ + "[C200000K`cL_J:g_o=G]RI06nNjLk300000\Nnj_o<;U6;_]100000JSJidU;G>YoIifkf700000Hm\bli8k?00000\5[nW=3nIo000000Kb:cWS\o00000"
A$ = A$ + "000000000000000000000000000000000000000000000000000000000000000000`ZLbok]k9Gk000000000H5ncOnc7db__Ef7`l6o[Q5g7`WlCVI_BP]"
A$ = A$ + "cBkT[M000000000\4_G3mkGQi^lnecJ[[mkKUm1<aao_ZlecHlObk38MOoSLcN5##FJJG[gD]300000000Peh9KVWlINN5W=G^OO[\?Pi<nGSI<n_Rm1lI??"
A$ = A$ + "mc=GRld<F>JWL]300000000P59<KV`GYbV;e__Ef7`L6oUT;gXSo[HO0Ofc[VQFHFJ6ZGObe>000000000F4Nnol=YbNmmg;<C^L_7;]?POg_5WOfgIXE_Og"
A$ = A$ + "co>LdjWIEe>00000#K<bo6\aon]100f3Nnol=ibM;VI?n?km1lknMCIX5lgUNU8ec[i:n<To700000jBZiaejlo7ic300`lQWo?OC^Lg:mec:o_I^?POg_k="
A$ = A$ + "o_NngYiIb8e^fmM00000^58o?00hnPWo?OCZ\GcU=g<coMfk3hgmKglloAnO00000<M8o?00hnPWo?OC^\G[mJ6io>cm1lknm:b#;EFMbZU5ngoOTo70000\"
A$ = A$ + "1jI^6WllC8o?00hn8li^:lO3FScV;g__Ef7`HSoTogMa:b?kmiUUnjImIj93#]kg0000`mbCFFmToe9>OfBo<L\c]1000cWDGK^UOO[\?PfQOnO_CJ?3]fbo"
A$ = A$ + "CjiXa__eTo77W00000[QhL\Tnco`YViE]onP^7o93#00`N8iW=_DO_B<Sm1\falD?gMUnj`\iT<n?jn0jO\MViWmTMGl_>k?c:ZM0000HLZogQ_]mgC8FWNN"
A$ = A$ + "6f>iWk]Jif=RoWHo000^IJmNj[2]k3NRLi^Y1TogJ6OcWUFKW_eccbG??cP[Xf100HLJmJ_L]jk2YijL;IlDcgL?W3WJoXeagNloTj700`]C][1Wkjl]TUG?"
A$ = A$ + "k3H]SilloMo<SLfCmc\o:n<[Xf100XON^fK[[G?lc`e^?Kj9k_C>S7Yn6?oTC]OdkhKX;cHK0`<imZ;OH6OmYF3m#ZcEeHKX5g^oeZ]Mho9gO>iao`LgNGCU"
A$ = A$ + "bVkig_e\ifan0F?a7gfJnOFjhN000ZCZ<=j9o_h\Bdf[Ak7]Rfem<l^g\o>a<NVQ_WDoHDOK9kcCXO0g3F8k=;D3=Gc1[;oQNGoo8K3e>^ibm_F]]3o?inc]"
A$ = A$ + "<n7o:^FSOeKnO[JO0[WW\kRoeIoI000#Ob]NnAbokTG[_gNngVQgWHOH7IoIYna>mm4j7`MQ5bNc2e#ceLRWMWAFoO_K3e>^ibm_F]]3o?inc==n7nRloPH2"
A$ = A$ + "c^kILCbW9ncY]7000D7bo[^7gNf6[8K8;g7d8;<=k7F:k?;d?PkS_nn_g`O=U_nD[Qf[id[MO6[oo4>7ofm_F]]3o?inc]>nCnO#<aIg9=o_Fo<000X?ToGI"
A$ = A$ + "7^m\=FIf#F\?XIFHJd?\HfOFnhSKQCliOCCO]PolloY`i9G^olloahOZGQg7>e;bocOlNL:lo>l[;mIRoLJk1000eQlolgcof:mfbm1;T5f>k7F`G;e?l4WH"
A$ = A$ + "nGJj[5lGkloVmjo?Qc]_MoiioSaoD_2_7lZlOVk39e#<JgkgI]?S]akaYDoj\o<gdH70`iBZ[m<Cdf?9nWJ=im`9^fN_ml_]3_]HO`BIQ]SnQ4OgEn_FXOh="
A$ = A$ + ">al_ddG;h_fiomnLaAGoO_K3]hfmO7?KNkHO`hohn5n:ln_YNM:iomcj?NU0K_6\IDkcdoWaZ`_FbW9gWoV7k00>KfejOefcFlOTNbYU1XG7oe8;<=k3F:k_"
A$ = A$ + "Md?Tj[EboK5mSC<oWiN<`?cU^W_nDfWcJOK1oWIo#N=WN]kcHmoFlNONcoJef>loTk?gjhOhmNGUocLOTKonA^A_288;9]77FA]?KoO?>Ej[WeWid7k00>Kl"
A$ = A$ + "fco4nSokfK;d7\HfO[\OdR_F:o_Ig?LOnO>coAggF`oENl#fJ>H]k_?7\WeVKiWo9_k_GNnon8kP2O]FSomFScJl?lEhmMCmbjioUoi6;ANB6;7YIDk[`oDc"
A$ = A$ + "9K5OVCN\3PCUONNKe5;d7^QejSoh_emFcnP5lMWmSFmeJio=cna9VocD?fgIn?jnf2n_bS7bFcoK]kQW3fjJcWaf#;^Mo[EKk`oMdO2?gYFfJQ[3IGnoGJX6"
A$ = A$ + "WmhOl[hJ=neEToGHFB6hLaIFk[`ogSCUnjImIJZfobFSM0LRHYe2[iicNkiO2oaO]mFSnP4O]BnGC;c;bokGlNk=bGO:kcT7;4]FbC8o;=me2n_Reo;mHfHd"
A$ = A$ + "HKX5g^oeZ]MhoZk?]V]FhmIF]oOW3HSehDj;1Icm^VNbM;>7^`OoFcVK7kShmGCi7mdO[\oBm\Z8In:]ll]<SJOWn;K\HQnoU\J708=FJ]o[HMNWDO`kI0Qo"
A$ = A$ + "nlhnMf7Tj[UboJ6m3bokglNk=bGolm:a:fWh_>nJ1oGia3e8ocIRlOF>>ieYMkn;I]i[fO[dOTFkc`O]WcKl[LIc5omTjoXkSNLZg<T:a<WcCIfLnO3ho:n<"
A$ = A$ + "mFkJO=30>=\hJoGaJm>YnPgc02omiamkX?dR_F;o[Ak7Tog_AkS_UbZ>gGK_f]oa7[=k_Fbagch[gem6BeoV1JEohoNlcRmWFOfjd`iF[aI=VW:g==`2ioYm"
A$ = A$ + "mj6YfaochjSJOMN[LO1]mB3W]D_`2W_;ij1N\?\cS9`OOj_5mNUmQFmM7mWNZ9lO>7?lNk=bGolm:a:fWh_>nJ1oGia3e8eiN]>_F[?_O?kO]JK7n_ZnC;I["
A$ = A$ + "eB]?3oonmKXloTn\i9aoAg7mhdGMVQD9ViLN:SNioeZo[hc<Zo[jJScLlOUeZEmnDj3J\^hMg;>Qen_SNSUk3N?38lGgSk]Bn?cZ?hml_l^oalNk=bGO:kcT"
A$ = A$ + "7;4]FbFojCIO>[m]5lO5[oGja\aXaf#;^Mo[EKk`oEgOJ=K]`kc\Joo>W\6[aYdGN_Qog[geDY\iNnmK=K^M\?RgO[83YNb4DBV`c^fgYob6;f[ocVE<?H[V"
A$ = A$ + "meZmfjm1=c3HGm2;Wia>k=W#Ohd^^6nKOoUj]UboI6m1_WoUgmoGmR3<oWYN=0WioXkK;ho:?N8K=7\^l7jMmoS\=dRKgoJef>lgRmWMk_fSoa_R[ehGmVog"
A$ = A$ + "Zf7O^?]CnAm<VdJm_3oO?>Ej[WeWI6n?caRE>gG]?FC3_]JO`2i1LB?7[WL_iTj3N=kClGgSk]Fn?Sf7lNnGNgoOe;NMNio<e[oi<o]#fKFX6J^V3Fknkcoj"
A$ = A$ + "I]icHKX5g^oeZ]Mho>j?QWklg<3:le?ed>m_WJLfSoQ_2_WKZGf?o_Fc#Boc5WI]_2oC=O\ElI\dH7io]N\#O`Bi1\ZnQULDcNSTn`^?nOW7CPondO_WoSg_"
A$ = A$ + "nWgmoGmRhekehGO:kcl7;lclWki[?Umi\fgF`oIf?TGcYGkn<Fo_5Vg_gm_F]]3ogAo9lJYomLXROMio^[K5noGJX6ooJ_c5TSLDPPXWbnnODf=TSE[YUAl]"
A$ = A$ + "Xn0_>RGhAfSP<;4B#>JVIeSoY?cMEnGbnh]nejlS\DkBko[aYB7;eihYa^kiV[HM\Nlj^DO7]ed71_JE=aSNdRJC[e1_UoSDGCPo?GoCnOaoNPhOo^VY8acm"
A$ = A$ + "BfkaAY?UZ_mPoGano[ZiTm^O=oKfmo?JKH5k^oimo;OfJlnomkcLcm92ioMgg_WUTocPIF];Yo_7[B?^Uci]c?BSMBU3Xg_Vkf[WbjjmlNR4kMM`aNDcJC?e"
A$ = A$ + "1?Voc\GCPoao[BGJhM]m_71okke>55RHnGFjG?hO[coCjmo7Qibk^oKiMCKengSe7]m_g6oCOVkZl_TmA;Jh9FEc]#kBd6GSCinZdWSW7k6=7#[eM_Nl=m;a"
A$ = A$ + "jgO[mmfhXDNNVfOf[KfQmlEZf\ZjPGcoYGOSoaoN^6#nOmG_`oj]>QMU8VoUUne3ngjlo^Vo=kno7]=\RMgoedV6nGSjCjLW[^[dagJBCo?R6UNl?mCjcLcm"
A$ = A$ + "9Jio1ccehDj_>mhBWccccJO81ibT\4F[gNmfK[k^GOW[>HMnO]^?8YlL_e29ggcMkgcNoFUO[A?j[gJB_e1?jmAl=n7o?C=XeiTSRFN7oSoQcU?Onm_k#BLL"
A$ = A$ + "De#oJN_Oog>MoGCKJhO=Z?mT]fmJbddoo#7JLeSoY?kMEnGbn0F?GSCU>FZc1\UL[9Gdk5_hf_gn^dN>R^N6I?ONjj>Yf;XW[3N=o;lonhoA[1]N_YAQl_`o"
A$ = A$ + "JiOhLa3_kMN#3M[iTm^O=oKfmo?JKHfe=K^o[Y==l_6e7NooZ[]d?Y?k=g7boklhJL:mGWNLYciiiI]?PblL=i[HNX6mA;mkKk3abmoGBSSff]\?;?LofFeI"
A$ = A$ + "_jekeQEiKl?nOTJPg`Rl_l4hObo367?TmV7d#gJnofkNjLaAgoo<]QIGg\in_Vfd`oN\nX]o]NlOUIcAnOk1GSCinZdW3H;Yk?HUc1eZON[?c]o2[fSacno="
A$ = A$ + "=>JkFK?ONjN]]XeNeL4Z3[`ghofJk8hoIeH4cmAba7loIkOhLa3I_i1=<2iV7JAKH5k^o[Y==loZ[?SnnoYQombkogUV^cMkI>LYolIboKEm1\NNNMK;c3Nn"
A$ = A$ + "kgCgg3bSVoI][mO^neboc3koGklolhmI[YgNeMDZ3BkKlOmfe;e0boK]S?hocfo00`XTkN?GO_BdBKh5ZY==loZZ?mT]F?JG2oooon=>o_WIamfaYIceRoW]"
A$ = A$ + "?0I6W[M]I=^FoEYSUjLFQfQn[gkNoia[[TFK[8CA=[5_YiNeNTZ3[8SJl?ioMjioldoAXNTCchOk_750`IA]\>J5[maZmW7[?SlnoY]WmDnOF0io]bidoC6j"
A$ = A$ + "KnfmJ`B?^Uci]cGC]3`9BYmh5Qi?BYoXE7TF_hObo[efgc<chcCo7QjA>=So]onC00W5i^gC_IIiikOECKJhO_DOJEkBhO[Gci<_KN=U[iTm1<nHkOb=kIVb"
A$ = A$ + "OJ_>O]n[LOEjcI5J7PCTgfSGTVg8Q7RHM#B=So9o_8Tgc:7Ob]VC[mC;nEZe4Ojn700jULgGbRf`:oYQoGMmQomokUjBbcG_dDY\i^oimnLH=j3h_eloTOfK"
A$ = A$ + "iYeH>JYGcfjlPWonJiLFQf1h49gNlRhlUImAD[3BYKl?io5QlNFihcYWoeYkO00X7BcUhVAcoHVf`:oYQoeXndCfJiNgeF]ooQ>dXdSomnIdloFEO0o]VG=3"
A$ = A$ + "]d\dj<o_L7;ei\2]3`9bcmh5ii:chU8G7T#khojIMhQJb:eiKIYfbgCSLNJmk=Km=5[Z7mdgY8aeGW\o10PF9gk^d<iO<JKHUod`oJDO6=K==7o9o_ak3hkj"
A$ = A$ + "MciWm9ij[:ekW[5[UaWN?WEYM0>ABgCe><7IDo4mj`\j7oG>33?ECFUF9o?oD?\`_hO00XMN;k29bo`3gK[Vfd`oA^n\CSoG?_mFG?eIj?O6o_Zn0n^NgE6J"
A$ = A$ + "On=3]BlfjhTnL8o?0TQkiPkdlSAld>D7Va3hocnooC^KcL[1=ggCjlNJ9?XFeVTeH[Z7FhGl?00d>ib^Xgk;9AKHUod`oA^n\CSoYjZdachoEe7`gekAcoCk"
A$ = A$ + "emW?K`ad^eeM0l6gIZK]>\fGkBMHDOPoOo__SFkYBJ>oc79o?YZ_FE?l#nGW^o10PBTkNBmNO99J3[lW6n?beWMLl?gkTUdnGjn0n^N?J6JUhmlj<lmoSlo0"
A$ = A$ + "00X1Nn\6[eSfj]ncNm=[^nj=dnj;_Qeco00>G^^7dmWMomoRgo_cNl?EG]lWEWWj3hkjmW5TQf8[?[gcIEJ700000000PBT;G29bo`;iKDCKJho8GOf]aoB_"
A$ = A$ + "cnBioEd7`cJNLc?KT<0]Fc00000000#\iTNo_hmoSaoJ8QooYMnlMoUN\WZ?AUnc#c?ej8[M000000008VLWMac<#69oSIJ3[lW6n?beW]Ll_#fLBioFbId3"
A$ = A$ + "eW8CkiXi_jLTe>000000004CbU?Q5]QEnC3o7ijc>>nG3?f7`OigoMg;OfIN>o\8[M000000000000=9boO[FTe>00000000000000000000000000000000"
A$ = A$ + "0000000000000000000000000000000000000000000000h1nGP;%%L2"
btemp$ = ""
For i& = 1 To Len(A$) Step 4: B$ = Mid$(A$, i&, 4)
If InStr(1, B$, "%") Then
For C% = 1 To Len(B$): F$ = Mid$(B$, C%, 1)
If F$ <> "%" Then C$ = C$ + F$
Next: B$ = C$: End If: For j = 1 To Len(B$)
If Mid$(B$, j, 1) = "#" Then
Mid$(B$, j) = "@": End If: Next
For t% = Len(B$) To 1 Step -1
B& = B& * 64 + Asc(Mid$(B$, t%)) - 48
Next: X$ = "": For t% = 1 To Len(B$) - 1
X$ = X$ + Chr$(B& And 255): B& = B& \ 256
Next: btemp$ = btemp$ + X$: Next
btemp$ = _Inflate$(btemp$)
_MemPut m, m.OFFSET, btemp$: _MemFree m
BASIMAGE1& = _CopyImage(v&): _FreeImage v&
End Function
Posts: 2,700
Threads: 124
Joined: Apr 2022
Reputation:
134
I think I just found Star Fleet!
b = b + ...
Posts: 1,616
Threads: 157
Joined: Apr 2022
Reputation:
77
They sub-lease an operations base in the local Bed Bath and Beyond.... In the Beyond section.
Pete
Posts: 1,510
Threads: 53
Joined: Jul 2022
Reputation:
47
I'm having some problems with the weapon rotation... JDJ you made them 32 pixels across instead of 64 which is one thing. I thought it was easy to program but might have to settle for plain flipping horizontally and vertically with "_PUTIMAGE". The "objects" shown on this thread might have to be fit into the concept of my "dream".
Another thing is that I discovered "_CLIPBOARDIMAGE" doesn't work on Linux (which is intentional) so cannot paste into GIMP and have to work strictly with BMP screenshots manipulated by BASIC programs.
Posts: 545
Threads: 116
Joined: Apr 2022
Reputation:
39
12-06-2022, 01:56 AM
(This post was last modified: 12-06-2022, 02:00 AM by James D Jarvis.)
(12-06-2022, 12:26 AM)mnrvovrfc Wrote: I'm having some problems with the weapon rotation... JDJ you made them 32 pixels across instead of 64 which is one thing. I thought it was easy to program but might have to settle for plain flipping horizontally and vertically with "_PUTIMAGE". The "objects" shown on this thread might have to be fit into the concept of my "dream".
Another thing is that I discovered "_CLIPBOARDIMAGE" doesn't work on Linux (which is intentional) so cannot paste into GIMP and have to work strictly with BMP screenshots manipulated by BASIC programs.
You could do triangle mapping for rotating the sprites. Did you track down RotoZoom ? That works well.
Not my subprogram and not sure if it's the best version:
Code: (Select All) Sub RotoZoom2 (centerX As Long, centerY As Long, Image As Long, xScale As Single, yScale As Single, Rotation As Single)
Dim px(3) As Single: Dim py(3) As Single
W& = _Width(Image&): H& = _Height(Image&)
px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
sinr! = Sin(-Rotation): cosr! = Cos(-Rotation)
For i& = 0 To 3
x2& = (px(i&) * cosr! + sinr! * py(i&)) * xScale + centerX: y2& = (py(i&) * cosr! - px(i&) * sinr!) * yScale + centerY
px(i&) = x2&: py(i&) = y2&
Next
_MapTriangle (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& To(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
_MapTriangle (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& To(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
End Sub
As for saving the screen image have you tried using the saveimage example from the wiki? SAVEIMAGE - QB64 Phoenix Edition Wiki I use the clipboard myself because I usually have a paint app open and just paste a generated image into that.
Posts: 1,510
Threads: 53
Joined: Jul 2022
Reputation:
47
This is a rather silly program that simulates space vessels racing each other and sometimes crashing.
Code: (Select All) const numtrekn = 3
type trktype
as integer x, y, c, l, sx, sy
end type
dim shared e(1 to numtrekn) as trktype
dim as integer i, j
dim as long hv, fl, cred
dim afile$, ke$
randomize timer
afile$ = "trekn.bmp"
hv = _loadimage(afile$, 32)
for i = 1 to numtrekn
inittrekn i
next
screen _newimage(640, 576, 32)
cred = _rgb(192, 0, 0)
_display
do
_limit 15
ke$ = inkey$
if ke$ = chr$(27) then exit do
cls
fl = tert(fl, &hff00, &hff)
for i = 0 to 576 step 64
line(i, 0)-step(0, 575), cred, , fl
line(i + 63, 0)-step(0, 575), cred, , fl
next
for i = 1 to numtrekn
if Random1(3) = 1 then
e(i).x = e(i).x - 64
if e(i).x < 0 then e(i).x = 0
elseif Random1(3) = 1 then
e(i).x = e(i).x + 64
if e(i).x > 576 then e(i).x = 576
end if
e(i).c = e(i).c + 1
if e(i).c >= e(i).l then
e(i).c = 1
e(i).y = e(i).y + 32
if e(i).y > 480 then
inittrekn i
end if
end if
if e(i).y >= 0 then
_putimage(e(i).x, e(i).y), hv, 0, (e(i).sx, e(i).sy)-step(63, 95)
end if
next
for i = 1 to numtrekn
for j = i to numtrekn
if i <> j then
if e(i).y >= 0 then
if e(i).x = e(j).x and e(i).y = e(j).y then
polygonstar e(i).x + 32, e(i).y + 48, 48, 48, 4
inittrekn i
inittrekn j
end if
end if
end if
next
next
_display
loop
_autodisplay
system
sub inittrekn (which as integer)
e(which).x = (Random1(10) - 1) * 64
e(which).y = -96
e(which).c = 0
e(which).l = Random1(5)
e(which).sx = (Random1(8) - 1) * 64
e(which).sy = (Random1(4) - 1) * 96
end sub
sub polygonstar (x as integer, y as integer, wd as integer, ht as integer, rr as integer)
static s as integer, fl as _byte, time1 as _byte
static as single x1, y1, x2, y2, dr, d, r
static as long hh, cbred
hh = _copyimage(0)
fl = Random1(2) - 2
time1 = 1
for s = 3 to 24
dr = 360 / s
d = 0
cbred = _rgb(224, (Random1(25) - 1) * 2, (Random1(32) - 1) * 4)
do until fix(d) >= 360
fl = not fl
r = _d2r(d)
x1 = x2
y1 = y2
if fl then
x2 = x + cos(r) * rr
y2 = y + sin(r) * rr
else
x2 = x + cos(r) * wd
y2 = y + sin(r) * ht
end if
if time1 then
time1 = 0
pset(x2, y2), cbred
else
line(x1, y1)-(x2, y2), cbred
end if
d = d + dr
loop
_display
_delay 0.05
_putimage(0, 0), hh
next
_freeimage hh
end sub
function Random1& (maxval as long)
Random1& = int(rnd * maxval + 1)
end function
function Rand& (minval as long, maxval as long)
dim as long n, x
n = minval
x = maxval
if n > x then swap n, x
Rand& = int(rnd * (x - n)) + n
end function
function tert&& (valu as _integer64, one as _integer64, two as _integer64)
if valu = one then tert&& = two : exit function
tert&& = one
end function
It uses the program featured in this topic that creates sprite sheets.
On Windows follow the instructions provided in the code to create an image file.
Call it "trekn.bmp", must be 32-bit BMP, and place it in the same directory as this provided program's EXE file.
On Linux cannot paste into GIMP or like program, must run JDJ's program provided on the first post of this topic then use the "screenshot" feature.
Press [PRT SC] or similar key. If you're on an OS with KDE Plasma desktop environment, usually only the program window's area could be selected and could save the file as BMP.
Otherwise (like me on Spiral Cinnamon) must accept an entire screen "screenshot" saved either to the user's home folder or in "Pictures" folder.
The file created by the "screenshot" program should be opened in GIMP or other image editor and saved as BMP if it wasn't already.
If the "screenshot" is an entire screen then the image editor should be used to crop to contain only the program window's area of the "trekn" program.
Save to JPEG or PNG if you like, but I recommend BMP because the other formats do "dithering" which ruins the "pixel harmony" which is bad for arcade games. This is only a point of view.
The code then would have to be adjusted for an image file extension other than BMP.
This program creates no sound.
When two space crafts collide, the visual effect is rather very lame.
I couldn't do anything about the flickering while one craft is "on top of" the other, using "_CLEARCOLOR" turned out unpleasant.
At this moment a maximum of three space crafts at a time are active. This could be changed with "NUMTREKN" constant.
With more space craft this program might benefit from a much-larger screen but doesn't make a good screensaver LOL.
Posts: 545
Threads: 116
Joined: Apr 2022
Reputation:
39
That's a start.
I got an "image handle" error until I added a preview shot of the bmp as a screen (and somehow this made the image handle error go away).
Just added the lines under loadimage for the file
Code: (Select All) afile$ = "trekn.bmp"
hv = _LoadImage(afile$, 32)
Screen hv
Do
_Limit 60
Loop Until InKey$ <> ""
I'm a little baffled myself how that fixed the error, I was just trying to see if the bmp was loading right.
Posts: 1,510
Threads: 53
Joined: Jul 2022
Reputation:
47
12-08-2022, 01:10 AM
(12-06-2022, 01:56 AM)James D Jarvis Wrote: You could do triangle mapping for rotating the sprites. Did you track down RotoZoom ? That works well.
Not my subprogram and not sure if it's the best version:
Code: (Select All) Sub RotoZoom2 (centerX As Long, centerY As Long, Image As Long, xScale As Single, yScale As Single, Rotation As Single)
Dim px(3) As Single: Dim py(3) As Single
W& = _Width(Image&): H& = _Height(Image&)
px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
sinr! = Sin(-Rotation): cosr! = Cos(-Rotation)
For i& = 0 To 3
x2& = (px(i&) * cosr! + sinr! * py(i&)) * xScale + centerX: y2& = (py(i&) * cosr! - px(i&) * sinr!) * yScale + centerY
px(i&) = x2&: py(i&) = y2&
Next
_MapTriangle (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& To(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
_MapTriangle (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& To(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
End Sub
As for saving the screen image have you tried using the saveimage example from the wiki? SAVEIMAGE - QB64 Phoenix Edition Wiki I use the clipboard myself because I usually have a paint app open and just paste a generated image into that. Thank you for providing this example.
I have rewritten "SaveImage" to use "MID$" command to make it a bit faster, but I have to go look for it in my backups. I use it once in a while, and it does work on Linux. However, for your programs that create sprites, a better way is to use the "screen shot" function of the desktop. KDE Plasma has the best one, able to save to BMP as well as PNG, able to select only the area of the user program's window, and in a filename of the user's choice, rather than the entire viewport only as PNG into user home folder.
B$ = B$ + ... was very slow for 1024x768 when I first ran it on an old Toshiba laptop with WindowsXP and QB64 SDL.
Posts: 1,510
Threads: 53
Joined: Jul 2022
Reputation:
47
(12-08-2022, 01:10 AM)mnrvovrfc Wrote: I have rewritten "SaveImage" to use "MID$" command to make it a bit faster, but I have to go look for it in my backups. I use it once in a while, and it does work on Linux. It will have to be tested further, because it doesn't work properly with big image files such as 1920x1080.
|
