Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Trekn-mixer 0.2
#11
(12-05-2022, 01:03 AM)James D Jarvis Wrote: [Image: image.png]
   

And that would look great on coffee mug, t-shirt, poster, etc.
Reply
#12
updated to make more starships and have more output in a single run and to account for the version ubdate in QB64
Code: (Select All)
'Trekn-Mixer v0.2.5
'By James D. Jarvis July 2023
'This program uses BASIMAGE coded by Dav for QB64
'
'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.5 created by James D. Jarvis
'
'expanded graphics set from earlier version and wider output so there are more ships per program run.
'udated for version changes in QB64

Randomize Timer
Dim Shared ms&
ms& = _NewImage(960, 480, 32)
Screen ms&
_Title "Mini-Trekn-Mixer V0.2.5"
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 = 50
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 + 96
        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 an 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 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$, m.SIZE)
    _MemPut m, m.OFFSET, btemp$: _MemFree m
    BASIMAGE1& = _CopyImage(v&): _FreeImage v&
End Function
Reply
#13
This is REALLY cool... Some of the colour combinations would look great on a "Black Light" poster* but still a very nice job indeed... 

I am glad that you chose the "right" SciFi franchise and NOT that "other"one, whos name should not be uttered in public,except in hushed low tones...

Qapla'

J

* Black Light - If you are as old as I am, and experienced the Black Light craze, then you need no explanation - otherwise, ask your father or grand-father.... Moo Ha Ha Ha....
May your journey be free of incident. Live long and prosper.
Reply
#14
I was born before man first walked on the moon (but only very shortly before) so I am aware of the Black Light craze.   

I had originally gone with a more subdued range of colors and it made them all look a little boring or too uniform, so we have this (it's easy to change of course).

Keep on Trekn'
Reply
#15
High School during the moon landing... We all watched it on TV in glorious black and white...

Question. Is it possible to output to an image file?
May your journey be free of incident. Live long and prosper.
Reply
#16
If you are running in windows you can copy to the clipboard if you press "C","c",or "s". For now folks with linux or mac will have to do screen shots or write their own save routines. I might breakdown and do a more robust save scheme in the future.
Reply




Users browsing this thread: 2 Guest(s)