Welcome, Guest
You have to register before you can post on our site.

Username/Email:
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 308
» Latest member: Donaldvem
» Forum threads: 1,741
» Forum posts: 17,901

Full Statistics

Latest Threads
The QB64 IDE shell
Forum: Utilities
Last Post: JasonPag
09-16-2024, 05:37 PM
» Replies: 9
» Views: 762
Importance regarding Ches...
Forum: Utilities
Last Post: JasonPag
09-01-2024, 06:34 PM
» Replies: 0
» Views: 31
Chess and Analysis and En...
Forum: Utilities
Last Post: JasonPag
08-28-2024, 02:37 PM
» Replies: 0
» Views: 32
DAY 009:_PutImage
Forum: Keyword of the Day!
Last Post: grymmjack
09-02-2023, 02:57 PM
» Replies: 54
» Views: 2,032
Fall Banner Contest?
Forum: Site Suggestions
Last Post: grymmjack
08-31-2023, 11:50 PM
» Replies: 36
» Views: 1,261
ColorPicker - Function th...
Forum: Dav
Last Post: Dav
08-31-2023, 11:04 PM
» Replies: 3
» Views: 315
Goals(1) = New Tile()
Forum: Works in Progress
Last Post: RhoSigma
08-31-2023, 09:45 PM
» Replies: 3
» Views: 127
micro(A)v11
Forum: QBJS, BAM, and Other BASICs
Last Post: bplus
08-31-2023, 09:14 PM
» Replies: 90
» Views: 3,589
Updating The Single Most ...
Forum: QBJS, BAM, and Other BASICs
Last Post: bplus
08-31-2023, 09:13 PM
» Replies: 7
» Views: 254
QBJS Image Question
Forum: QBJS, BAM, and Other BASICs
Last Post: bplus
08-31-2023, 05:49 PM
» Replies: 5
» Views: 155

 
  Chopper - Build Your Own Custom Motorcycle.
Posted by: Pete - 04-27-2022, 06:43 PM - Forum: TheBOB - No Replies

Chopper.bas by Bob Seguin.
[Image: Screenshot-558.png]
Description: Build your own motorcycle from the ground up. Select from a wide option of parts, colors, and designs. In just a few short steps, you will have a fully customized bike! Once finished, you can adjust decals and colors in the Paint Shop.

Download: Download the zip file below. Unzip to either your QB64 folder, or for better organization, to a folder you create like "TheBOB-Chopper".

Install: Compile Chopper.bas with QB64 v1.3 or above, and make sure the compiler output is set to create the .exe file in the same folder. See the option in the QB64 IDE RUN menu and check the RUN option: "Output EXE to Source Folder".



Attached Files
.7z   TheBOB-Chopper.7z (Size: 193.14 KB / Downloads: 59)
Print this item

  Christmas Train - Animated Christmas Greetings From TheBOB. Pete Likes the Choo-Choo!
Posted by: Pete - 04-27-2022, 06:18 PM - Forum: TheBOB - No Replies

ChristmasTrain.bas by Bob Seguin.
[Image: Screenshot-578.png]
Description: Animated Christmas Screen Saver.

History: Originally Bob made the tree and greeting for The QBasic Forum. I replied, "What, no choo-choo? So Bob coded the train, to which I replied, "Pete loves the choo-choo! What? No tunnel? At that point, Bob jumped ahead and coded in both a tunnel and a train station!

Download: Download the zip file below. Unzip to either your QB64 folder, or for better organization, to a folder you create like "TheBOB-Christmas-Train".

Install: Compile TheBOB-Christmas-Train.bas with QB64 v1.3 or above, and make sure the compiler output is set to create the .exe file in the same folder. See the option in the QB64 IDE RUN menu and check the RUN option: "Output EXE to Source Folder".



Attached Files
.7z   TheBOB-Christmas-Train.7z (Size: 32.5 KB / Downloads: 52)
Print this item

  Clock - An Analog Clock with Alarm.
Posted by: Pete - 04-27-2022, 06:09 PM - Forum: TheBOB - No Replies

Clock.bas by Bob Seguin.
[Image: Screenshot-650.png]
Description: An analog clock with a timer alarm setting.

Code: (Select All)
'*************************************************
'
'------------ C L O C K . B A S ------------------
'
'------- Freeware by Bob Seguin - 2001 -----------
'
'- An analog/digital clock with countdown timer -
'
'*************************************************

_TITLE "Clock.bas by Bob Seguin"

DEFINT A-Z
DECLARE SUB Digital (x, y, Num$)
CONST Degree! = 3.14159 / 180

DIM FaceBOX(6500)
DIM TickBOX(6500)
DIM SHARED DigitBOX(1 TO 400)

SCREEN 12
GOSUB GetDIGITS

OUT &H3C8, 0
OUT &H3C9, 0
OUT &H3C9, 0
OUT &H3C9, 12

OUT &H3C8, 1
OUT &H3C9, 16
OUT &H3C9, 18
OUT &H3C9, 22

OUT &H3C8, 4
OUT &H3C9, 63
OUT &H3C9, 0
OUT &H3C9, 0

ON TIMER(1) GOSUB Clock
TIMER ON

'Analog clock graphic
LINE (235, 125)-(405, 311), 1, B
LINE (240, 130)-(400, 279), 1, BF
CIRCLE (320, 210), 60, 7
PAINT STEP(0, 0), 7
CIRCLE (320, 210), 63, 7
CIRCLE STEP(0, 0), 2, 0
PAINT STEP(0, 0), 0

LINE (240, 282)-(400, 306), 1, BF
LINE (240, 282)-(400, 306), 1, BF
LINE (290, 285)-(350, 303), 0, BF

LINE (310, 291)-(310, 292), 10, B
LINE (330, 291)-(330, 292), 10, B
LINE (310, 296)-(310, 297), 10, B
LINE (330, 296)-(330, 297), 10, B
LINE (10, 10)-(629, 469), 8, B
LINE (15, 15)-(624, 464), 8, B

COLOR 8
LOCATE 24, 23: PRINT "PRESS S TO ENTER COUNTDOWN MINUTES"
LOCATE 26, 32: PRINT "PRESS [ESC] TO QUIT"

FOR n = 6 TO 360 STEP 6
    Adjacent = 320 + 55 * COS(n * Degree!)
    Opposite = 210 - 55 * SIN(n * Degree!)
    IF n MOD 30 = 0 THEN
        CIRCLE (Adjacent, Opposite), 2, 0: PAINT STEP(0, 0), 0
    ELSE
        CIRCLE (Adjacent, Opposite), 1, 15
    END IF
NEXT n
GET (240, 130)-(400, 279), FaceBOX()
GET (240, 130)-(400, 279), TickBOX()
GOSUB Clock

DO
    Count$ = UCASE$(INKEY$)
    IF Count$ = "S" THEN
        DO
            COLOR 11
            LOCATE 3, 5
            INPUT "Enter minutes (Maximum 720): ", CountDOWN$
            LOCATE 3, 5: PRINT SPACE$(60)
        LOOP UNTIL VAL(CountDOWN$) AND VAL(CountDOWN$) <= 720
        CountDOWN% = VAL(CountDOWN$)
        Hr$ = MID$(TIME$, 1, 2)
        Mt$ = MID$(TIME$, 4, 2)
        Sc$ = MID$(TIME$, 7, 2)
        Hr% = 0: Hr2% = 0: Mt% = 0
        Hr% = VAL(Hr$)
        Mt% = VAL(Mt$)
        Mt% = Mt% + CountDOWN%
        IF Mt% > 59 THEN
            Hr2% = Mt% \ 60
            Mt% = Mt% MOD 60
        END IF
        Hr% = Hr% + Hr2%
        IF Hr% > 24 THEN Hr% = Hr% - 24
        Hr$ = LTRIM$(STR$(Hr%))
        Mt$ = LTRIM$(STR$(Mt%))
        IF Hr% < 10 THEN Hr$ = "0" + Hr$
        IF Hr% = 24 THEN Hr$ = "00"
        IF Mt% < 10 THEN Mt$ = "0" + Mt$
        CountDOWN$ = Hr$ + ":" + Mt$ + ":" + Sc$
        LOCATE 28, 27: COLOR 5: PRINT "ALARM WILL SOUND AT: "; CountDOWN$
    END IF
LOOP UNTIL Count$ = CHR$(27)

SYSTEM

Clock: 'update digital clock
PUT (240, 130), FaceBOX(), PSET
Hour$ = MID$(TIME$, 1, 2)
Minute$ = MID$(TIME$, 4, 2)
Second$ = MID$(TIME$, 7, 2)
Digital 294, 289, Hour$
Digital 314, 289, Minute$
Digital 334, 289, Second$
Hours = VAL(Hour$)
Minutes = VAL(Minute$)
Seconds = VAL(Second$)
nMIN = Minutes * 6 - 90
nSEC = Seconds * 6 - 90
nHRS = Hours * 30 - 90 + Minutes / 2

IF OldMIN <> nMIN THEN 'change minutes/hours
    PUT (240, 130), TickBOX(), PSET
    HAdjacent = 320 + 38 * COS(nHRS * Degree!)
    HOpposite = 210 + 38 * SIN(nHRS * Degree!)
    LINE (320, 210)-(HAdjacent, HOpposite), 0
    MAdjacent = 320 + 50 * COS(nMIN * Degree!)
    MOpposite = 210 + 50 * SIN(nMIN * Degree!)
    LINE (320, 210)-(MAdjacent, MOpposite), 0
    OldMIN = nMIN
    GET (240, 130)-(400, 279), FaceBOX()
END IF

'change seconds
SAdjacent = 320 + 50 * COS(nSEC * Degree!)
SOpposite = 210 + 50 * SIN(nSEC * Degree!)
LINE (320, 210)-(SAdjacent, SOpposite), 4

IF TIME$ = CountDOWN$ THEN
    PLAY "MBT120O3L32fA>fA<fA>fA<fA>fA<fA>fA<fA>fA"
    LOCATE 28, 26: PRINT SPACE$(30);
END IF

RETURN


GetDIGITS:
MaxWIDTH = 70
MaxDEPTH = 10
x = 0: y = 0
DO
    READ Count, Colr
    FOR Reps = 1 TO Count
        PSET (x, y), Colr
        x = x + 1
        IF x > MaxWIDTH THEN
            x = 0
            y = y + 1
        END IF
    NEXT Reps
LOOP UNTIL y > MaxDEPTH

Index = 1
FOR x = 0 TO 63 STEP 7
    GET (x, 0)-(x + 6, 10), DigitBOX(Index)
    Index = Index + 40
NEXT x
LINE (0, 0)-(70, 10), 0, BF
RETURN

DATA 1,0,4,10,10,0,4,10,3,0,4,10,10,0,4,10,3,0,4,10,3,0,4,10
DATA 3,0,4,10,3,0,4,10,3,0,1,10,4,0,1,10,6,0,1,10,6,0,1,10
DATA 6,0,1,10,1,0,1,10,4,0,1,10,1,0,1,10,6,0,1,10,11,0,1,10
DATA 1,0,1,10,4,0,1,10,1,0,1,10,4,0,1,10,2,0,1,10,4,0,1,10
DATA 6,0,1,10,6,0,1,10,6,0,1,10,1,0,1,10,4,0,1,10,1,0,1,10
DATA 6,0,1,10,11,0,1,10,1,0,1,10,4,0,1,10,1,0,1,10,4,0,1,10
DATA 2,0,1,10,4,0,1,10,6,0,1,10,6,0,1,10,6,0,1,10,1,0,1,10
DATA 4,0,1,10,1,0,1,10,6,0,1,10,11,0,1,10,1,0,1,10,4,0,1,10
DATA 1,0,1,10,4,0,1,10,2,0,1,10,4,0,1,10,6,0,1,10,6,0,1,10
DATA 6,0,1,10,1,0,1,10,4,0,1,10,1,0,1,10,6,0,1,10,11,0,1,10
DATA 1,0,1,10,4,0,1,10,1,0,1,10,4,0,1,10,17,0,4,10,3,0,4,10
DATA 3,0,4,10,3,0,4,10,3,0,4,10,10,0,4,10,3,0,4,10,3,0,1,10
DATA 4,0,1,10,6,0,1,10,1,0,1,10,11,0,1,10,6,0,1,10,6,0,1,10
DATA 1,0,1,10,4,0,1,10,6,0,1,10,1,0,1,10,4,0,1,10,6,0,1,10
DATA 2,0,1,10,4,0,1,10,6,0,1,10,1,0,1,10,11,0,1,10,6,0,1,10
DATA 6,0,1,10,1,0,1,10,4,0,1,10,6,0,1,10,1,0,1,10,4,0,1,10
DATA 6,0,1,10,2,0,1,10,4,0,1,10,6,0,1,10,1,0,1,10,11,0,1,10
DATA 6,0,1,10,6,0,1,10,1,0,1,10,4,0,1,10,6,0,1,10,1,0,1,10
DATA 4,0,1,10,6,0,1,10,2,0,1,10,4,0,1,10,6,0,1,10,1,0,1,10
DATA 11,0,1,10,6,0,1,10,6,0,1,10,1,0,1,10,4,0,1,10,6,0,1,10
DATA 1,0,1,10,4,0,1,10,6,0,1,10,3,0,4,10,10,0,4,10,3,0,4,10
DATA 10,0,4,10,3,0,4,10,10,0,4,10,3,0,4,10,3,0

SUB Digital (x, y, Num$)

    FOR Digit = 1 TO LEN(Num$)
        Digit$ = MID$(Num$, Digit, 1)
        DigitINDEX = VAL(Digit$) * 40 + 1
        PUT (x, y), DigitBOX(DigitINDEX), PSET
        x = x + DigitBOX(DigitINDEX)
    NEXT Digit

END SUB

Print this item

  Challenges
Posted by: bplus - 04-27-2022, 05:21 PM - Forum: bplus - Replies (15)

Not sure where this thread will go but I love the little challenges we throw out now and then at the old forum so...
___________________________________________________________________________________________

I threw a challenge out at Halloween 2021 and Pete was IMHO clear winner and I promised to get in Library Samples but Qwerkey (sp? he's not here as member?) never got around to it and Pete kinda disappeared for awhile...

Anyway this was an amazing answer to my challenge that mixes TheBOB and even Galleon's Invader's (I think) and QB64 IDE Screen? along with Pete's own razz-ma-tazz. BTW you were allowed to use only one key through out the game/graphic.

Pete used the alt key as his one key through which you do everything. 
Use alt to alter direction of rail canon, use it to input your 3 initials for High Score (works on timer setting letter if not changed after so many seconds.) There might be a bug or 3 initials might be required. When I was testing this game today, post date, I had a really good game, got through first screen but only used B for initials? So that score is gone, glitch or my error ? Anyway it's really cool what Pete put together here!

In zip I left in the Windows exe and ascii-invaders-high-score txt file, along with the needed 9 ogg files and One Key Halloween by Pete.bas source file.

Pete's High Score screen was a really nice addition to mix of Galleon and TheBob work.

Just out of curiosity how was the IDE screen designed? I imagine it evolved from a clone of old QB screen.



Attached Files Thumbnail(s)
               

.zip   Pete One Key Halloween.zip (Size: 2.79 MB / Downloads: 42)
Print this item

  Dice Demo - Two Versions of Rolling Dice.
Posted by: Pete - 04-27-2022, 04:23 PM - Forum: TheBOB - No Replies

Dice-Demo.bas by Bob Seguin.
[Image: Screenshot-609.png]
Description: Two version of a dice rolling demo. The first roll effect is square, the second is diagonal.


Code: (Select All)
_Title "Dice Demo by Bob Seguin"
Dim DiceBOX(6000) As Integer '6 elements of 600 integers
Screen 12
Palette 0, 5120 'background becomes dark green
Palette 4, 63 'attribute 4 (red) becomes bright red
Palette 5, 53 'slightly darker red for shine effect
Palette 6, 42 'dark red for shading
For x% = 102 To 402 Step 60 'draw 6 dice
    PSet (x%, 100), 4
    Draw "R37 F2 D37 G2 L37 H2 U37 E2 BD P4,4"
Next x%
SpotDATA:
Data 121,121,173,130,190,112,241,121,230,133
Data 252,109,290,132,312,109,290,109,312,132
Data 361,120,350,132,372,109,350,109,372,132,410
Data 133,432,109,410,109,432,133,410,121,432,121
'Draw spots on dice
Restore SpotDATA
For Spots = 1 To 21
    Read x, y
    Circle (x, y), 5, 15
    Paint Step(0, 0), 15
    Circle Step(0, 0), 5, 7, 1, 3
Next Spots
'Draw alternative view of dice
'LINE (462, 95)-(502, 145), 15, B
'LINE (462, 120)-(502, 120), 15
PSet (462, 97), 5
Draw "E2 R38 F2 d23 G2 L38 H2 U23 bF3 P4,5 BH3 c5"
Draw "D27 R42 U4 D27 G2 L38 H2 U25 BF20 P6,5"
Paint (500, 123), 4, 5
'Add shading
For x% = 100 To 400 Step 60
    Line (x% + 3, 100)-(x% + 38, 102), 4, BF
    Line (x%, 103)-(x% + 2, 138), 4, BF
    Line (x% + 39, 103)-(x% + 41, 138), 6, BF
    Line (x% + 3, 139)-(x% + 38, 141), 6, BF
    Line (x% + 39, 139)-(x% + 40, 140), 6, BF
    PSet (x% + 39, 141), 6
    PSet (x% + 41, 139), 6
Next x%
'Add shine to dice
x% = 0
Do
    xx% = x%: y% = 140: Hop% = Fix(Rnd * 20)
    For Span% = x% To x% + Hop%
        Do
            If Point(xx%, y%) = 4 Then PSet (xx%, y%), 5
            xx% = xx% + 1: y% = y% - 1
        Loop While y% > 80
        xx% = Span%: y% = 140
    Next Span%
    x% = x% + Hop% + Fix(Rnd * 12)
Loop While x% < 600
Line (465, 96)-(500, 96), 4
Line (465, 125)-(500, 126), 4, B

'a$ = INPUT$(1) 'remove REM if you want to see the dice before they're used

For x% = 100 To 400 Step 60 'GET dice to array
    Get (x%, 90)-(x% + 43, 153), DiceBOX(Index%)
    Put (x%, 90), DiceBOX(Index%)
    Index% = Index% + 800
Next x%
Get (462, 90)-(505, 154), DiceBOX(4800)
Put (462, 90), DiceBOX(4800)
Randomize Timer
Locate 2, 2: Print "PRESS [SPACE] TO ROLL DICE, ANY OTHER KEY TO QUIT"
Do
    For Reps = 1 To 10
        Put (40, 30), DiceBOX(4800), PSet
        Put (100, 30), DiceBOX(4800), PSet
        Play "MBT120O6L64a"
        For Pause = 1 To 5
            Wait &H3DA, 8
            Wait &H3DA, 8, 8
        Next Pause
        Put (40, 30), DiceBOX(Fix(Rnd * 6) * 800), PSet
        Put (100, 30), DiceBOX(Fix(Rnd * 6) * 800), PSet
        Play "MBT120O6L64a"
        For Pause = 1 To 5
            Wait &H3DA, 8
            Wait &H3DA, 8, 8
        Next Pause
    Next Reps
    LD% = Fix(Rnd * 6) + 1 'Left die value
    RD% = Fix(Rnd * 6) + 1 'Right die value
    Total% = LD% + RD% 'Combined value
    Put (40, 30), DiceBOX((LD% - 1) * 800), PSet
    Put (100, 30), DiceBOX((RD% - 1) * 800), PSet
    Locate 7, 7: Print LD%
    Locate 7, 12: Print "+"
    Locate 7, 15: Print RD%
    Locate 7, 20: Print "="
    Locate 7, 23: Print Total%
    a$ = Input$(1)
    Locate 7, 7: Print Space$(19)
Loop While a$ = " "


Code: (Select All)
_Title "Dice Demo by Bob Seguin"
Dim DiceBOX(6000) As Integer
Screen 12
Palette 0, 5120 'background becomes dark green
Palette 4, 63 'attribute 4 (red) becomes bright red
Palette 5, 53 'slightly darker red for shine effect
Palette 6, 42 'dark red for shading
For x% = 102 To 402 Step 60 'draw 6 dice
    PSet (x%, 100), 4
    Draw "R37 F2 D37 G2 L37 H2 U37 E2 BD P4,4"
Next x%
SpotDATA:
Data 121,121,173,130,190,112,241,121,230,133
Data 252,109,290,132,312,109,290,109,312,132
Data 361,120,350,132,372,109,350,109,372,132,410
Data 133,432,109,410,109,432,133,410,121,432,121
'Draw spots on dice
Restore SpotDATA
For Spots = 1 To 21
    Read x, y
    Circle (x, y), 5, 15
    Paint Step(0, 0), 15
    Circle Step(0, 0), 5, 7, 1, 3
Next Spots
'Draw alternative view of dice
PSet (460, 110), 4
Draw "E20 r3 F20 d3 G20 L3 H20 U3 D23 F20 nU20 R3 Nu20 E20 U20"
PSet (463, 110), 4
Draw "E18 rf19 d G19 l H19 u"
Paint (470, 110), 4
Paint (461, 110), 5, 4
Paint (470, 140), 6, 4
Paint (481, 140), 5, 4
Paint (490, 140), 6, 4
'Add shine to dice
x% = 0
Do
    xx% = x%: y% = 140: Hop% = Fix(Rnd * 20)
    For Span% = x% To x% + Hop%
        Do
            If Point(xx%, y%) = 4 Then PSet (xx%, y%), 5
            xx% = xx% + 1: y% = y% - 1
        Loop While y% > 80
        xx% = Span%: y% = 140
    Next Span%
    x% = x% + Hop% + Fix(Rnd * 12)
Loop While x% < 600
'Add shading
For x% = 100 To 400 Step 60
    Line (x% + 3, 100)-(x% + 38, 102), 4, BF
    Line (x%, 103)-(x% + 2, 138), 4, BF
    Line (x% + 39, 103)-(x% + 41, 138), 6, BF
    Line (x% + 3, 139)-(x% + 38, 141), 6, BF
    Line (x% + 39, 139)-(x% + 40, 140), 6, BF
    PSet (x% + 39, 141), 6
    PSet (x% + 41, 139), 6
Next x%

'a$ = INPUT$(1) 'remove REM to view the dice before they're used

For x% = 100 To 400 Step 60 'GET dice to array
    Get (x%, 90)-(x% + 43, 153), DiceBOX(Index%)
    Put (x%, 90), DiceBOX(Index%)
    Index% = Index% + 800
Next x%
Get (460, 90)-(504, 154), DiceBOX(4800)
Put (460, 90), DiceBOX(4800)
Randomize Timer
Locate 2, 2: Print "PRESS [SPACE] TO ROLL DICE, ANY OTHER KEY TO QUIT"
Do
    For Reps = 1 To 10
        Put (40, 30), DiceBOX(4800), PSet
        Put (100, 30), DiceBOX(4800), PSet
        Play "MBT120O6L64a"
        For Pause = 1 To 4
            Wait &H3DA, 8
            Wait &H3DA, 8, 8
        Next Pause
        Put (40, 30), DiceBOX(Fix(Rnd * 6) * 800), PSet
        Put (100, 30), DiceBOX(Fix(Rnd * 6) * 800), PSet
        Play "MBT120O6L64a"
        For Pause = 1 To 4
            Wait &H3DA, 8
            Wait &H3DA, 8, 8
        Next Pause
    Next Reps
    LD% = Fix(Rnd * 6) + 1 'Left die value
    RD% = Fix(Rnd * 6) + 1 'Right die value
    Total% = LD% + RD% 'Combined value
    Put (40, 30), DiceBOX((LD% - 1) * 800), PSet
    Put (100, 30), DiceBOX((RD% - 1) * 800), PSet
    Locate 7, 7: Print LD%
    Locate 7, 12: Print "+"
    Locate 7, 15: Print RD%
    Locate 7, 20: Print "="
    Locate 7, 23: Print Total%
    a$ = Input$(1)
    Locate 7, 7: Print Space$(19)
Loop While a$ = " "

Print this item

  Egg Timer - Spoof Program.
Posted by: Pete - 04-27-2022, 04:15 PM - Forum: TheBOB - No Replies

Eggtimer.bas by Bob Seguin.
[Image: Screenshot-649.png]
Description: Short spoof on what happened on the way to trying to code an egg timer program.

Code: (Select All)
'*****************************************************
'
'------------------- EGGTIMER.BAS --------------------
'
'----- Freeware by Bob Seguin Copyright (C) 2004 -----
'
'*****************************************************

_TITLE "Eggtime.bas by Bob Seguin"

DEFINT A-Z

DIM SHARED Box(1 TO 1900)

SCREEN 12

SetPALETTE 0
GOSUB GetSPRITES

'Borders
LINE (100, 100)-(539, 379), 8, B
LINE (110, 110)-(529, 369), 8, B
SetPALETTE 1

COLOR 8: LOCATE 20, 34: PRINT "PRESS ANY KEY..."
a$ = INPUT$(1)
Lay
COLOR 8: LOCATE 20, 30: PRINT "PRESS ANY KEY TO EXIT..."
a$ = INPUT$(1)
SYSTEM

GetSPRITES:
'Draw sprites using compressed data
MaxWIDTH = 54
MaxDEPTH = 120
x = 0: y = 0
DO
    READ Count, Colr
    FOR Reps = 1 TO Count
        PSET (x, y), Colr
        x = x + 1
        IF x > MaxWIDTH THEN
            x = 0
            y = y + 1
        END IF
    NEXT Reps
LOOP UNTIL y > MaxDEPTH

'Get sprite images to array
GET (0, 54)-(54, 120), Box()
GET (0, 0)-(13, 14), Box(941)
GET (20, 1)-(34, 11), Box(1003)
GET (40, 0)-(53, 14), Box(1049)
GET (0, 15)-(32, 50), Box(1111)
LINE (0, 0)-(54, 120), 0, BF
PUT (290, 200), Box()
GET (280, 200)-(315, 234), Box(1500) 'Neck in
PUT (280, 200), Box(1111), PSET
PUT (280, 200), Box(1500), PSET
RETURN

DATA 1,15,1,7,3,15,1,7,5,15,29,0,1,15,1,7,3,15,1,7,3,15,1,7
DATA 5,0,7,15,1,7,3,15,1,8,11,0,1,8,2,3,3,7,2,3,1,8,8,0
DATA 6,15,1,7,2,15,1,7,5,0,5,15,1,7,4,15,1,7,1,8,10,0,1,3
DATA 3,7,5,15,1,7,1,3,7,0,5,15,1,7,3,15,1,7,5,0,3,15,3,7
DATA 4,15,2,3,9,0,1,3,2,7,9,15,1,3,6,0,3,15,3,7,3,15,1,7
DATA 5,0,2,7,2,15,2,7,3,15,2,3,1,7,1,15,1,8,6,0,1,8,2,7
DATA 11,15,1,8,5,0,2,7,2,15,2,7,3,15,1,3,5,0,1,15,3,7,1,15
DATA 1,7,3,15,2,3,2,15,1,3,6,0,1,3,2,7,11,15,1,3,5,0,1,15
DATA 3,7,1,15,1,7,2,15,1,7,1,8,5,0,5,7,3,15,2,3,1,7,2,15
DATA 1,7,6,0,1,3,2,7,11,15,1,3,5,0,5,7,3,15,1,7,6,0,4,7
DATA 3,15,2,3,1,7,4,15,6,0,1,3,3,7,10,15,1,3,5,0,4,7,3,15
DATA 1,7,7,0,3,7,4,15,2,3,3,15,1,7,1,3,6,0,1,8,4,7,8,15
DATA 1,7,1,8,5,0,3,7,3,15,1,7,8,0,3,7,3,15,2,3,4,7,1,3
DATA 8,0,1,3,5,7,4,15,2,7,1,3,6,0,3,7,3,15,1,8,8,0,2,7
DATA 3,15,2,3,4,7,1,3,10,0,1,3,9,7,1,3,7,0,2,7,3,15,1,7
DATA 9,0,4,15,2,3,2,7,2,3,1,8,12,0,1,8,2,3,3,7,2,3,1,8
DATA 8,0,3,15,1,7,1,8,10,0,3,15,1,3,36,0,1,15,2,7,12,0,1,7
DATA 1,15,1,3,37,0,1,7,1,8,13,0,1,7,1,8,175,0,1,4,2,0,1,4
DATA 4,0,1,4,45,0,2,4,1,0,2,4,3,0,2,4,45,0,5,4,2,0,3,4
DATA 42,0,2,4,1,0,5,4,1,0,4,4,42,0,17,4,39,0,17,4,39,0,13,4
DATA 42,0,5,15,6,4,43,0,7,15,3,4,37,0,1,14,6,0,9,15,1,4,39,0
DATA 3,14,2,0,3,15,1,4,7,15,1,8,38,0,6,14,1,15,1,4,1,0,1,4
DATA 7,15,1,8,38,0,5,14,2,15,1,4,9,15,1,8,37,0,6,14,12,15,1,8
DATA 37,0,5,14,13,15,1,8,37,0,4,14,14,15,1,8,36,0,3,14,1,7,16,15
DATA 1,8,33,0,3,14,1,6,2,7,17,15,1,8,30,0,3,14,2,0,1,4,1,3
DATA 1,7,18,15,1,7,1,3,1,8,26,0,2,14,3,0,2,4,1,3,1,7,21,15
DATA 25,0,1,14,4,0,4,4,1,7,20,15,24,0,1,14,5,0,5,4,1,7,19,15
DATA 30,0,6,4,1,7,18,15,30,0,6,4,1,8,1,7,17,15,30,0,2,4,1,0
DATA 3,4,1,0,1,8,1,7,16,15,31,0,1,4,1,0,3,4,2,0,1,8,16,15
DATA 33,0,2,4,4,0,1,7,15,15,39,0,1,8,1,7,14,15,40,0,1,8,1,7
DATA 13,15,41,0,1,7,13,15,41,0,1,8,1,7,12,15,42,0,2,7,2,15,1,7
DATA 8,15,42,0,1,3,1,7,2,15,1,7,8,15,42,0,1,8,1,7,2,15,1,7
DATA 8,15,198,0,1,4,3,0,1,4,47,0,2,4,2,0,1,4,2,0,2,4,47,0
DATA 2,4,1,0,2,4,1,0,3,4,46,0,5,4,1,0,3,4,43,0,2,4,1,0
DATA 9,4,43,0,13,4,43,0,12,4,44,0,10,4,44,0,1,8,5,15,1,3,4,4
DATA 43,0,1,8,7,15,1,3,2,4,43,0,1,8,9,15,1,3,44,0,3,15,1,4
DATA 7,15,1,8,42,0,2,14,1,15,1,4,1,0,1,4,6,15,1,7,40,0,4,14
DATA 2,15,1,4,8,15,1,8,38,0,6,14,10,15,1,7,37,0,7,14,11,15,1,8
DATA 28,0,6,8,3,0,6,14,11,15,1,7,26,0,1,8,8,15,1,8,3,0,3,14
DATA 1,7,12,15,1,8,23,0,1,8,3,15,1,7,2,15,1,7,4,15,5,0,1,14
DATA 2,7,11,15,1,7,21,0,1,8,4,15,2,7,1,15,1,7,4,15,1,8,6,0
DATA 1,4,2,7,11,15,1,7,5,0,2,7,5,15,1,7,1,3,1,8,1,0,1,8
DATA 3,7,4,15,1,7,2,15,1,7,4,15,1,8,7,0,2,4,2,7,11,15,1,7
DATA 1,3,1,0,1,7,18,15,2,7,2,15,1,7,5,15,8,0,4,4,1,7,31,15
DATA 1,7,3,15,1,7,5,15,1,8,8,0,5,4,34,15,1,7,5,15,1,3,9,0
DATA 5,4,32,15,2,7,6,15,1,8,9,0,5,4,31,15,1,7,7,15,1,3,10,0
DATA 2,4,1,0,2,4,30,15,1,7,2,15,1,7,5,15,12,0,4,4,35,15,1,7
DATA 2,15,1,3,12,0,3,4,35,15,1,7,3,15,1,8,13,0,1,4,35,15,1,7
DATA 4,15,15,0,1,7,5,15,1,7,27,15,1,7,2,15,1,7,2,15,1,8,14,0
DATA 1,7,5,15,1,7,26,15,1,7,2,15,1,7,3,15,1,3,15,0,1,7,4,15
DATA 1,7,25,15,1,7,8,15,15,0,2,7,2,15,1,7,25,15,1,7,3,15,2,7
DATA 4,15,15,0,1,3,1,7,2,15,1,7,27,15,1,7,2,15,1,7,4,15,15,0
DATA 1,8,1,7,2,15,1,7,26,15,1,7,3,15,1,7,3,15,1,7,15,0,1,8
DATA 1,7,2,15,1,7,19,15,3,7,1,15,2,7,6,15,1,7,2,15,1,7,16,0
DATA 2,7,1,15,3,7,28,15,1,7,3,15,1,7,16,0,1,3,1,7,2,15,3,7
DATA 25,15,3,7,3,15,1,7,16,0,1,8,1,7,2,15,6,7,14,15,2,7,1,15
DATA 4,7,2,15,2,7,3,15,1,3,16,0,1,8,1,7,2,15,9,7,14,15,1,7
DATA 2,15,3,7,1,15,1,7,2,15,1,7,1,8,17,0,1,3,1,7,2,15,11,7
DATA 11,15,7,7,3,15,1,7,19,0,2,7,2,15,27,7,3,15,1,7,21,0,1,7
DATA 3,15,25,7,3,15,1,7,23,0,1,7,2,15,25,7,3,15,1,8,24,0,1,7
DATA 2,15,23,7,3,15,1,7,26,0,1,7,4,15,17,7,4,15,1,7,1,8,28,0
DATA 2,7,4,15,9,7,3,14,1,7,4,15,2,7,31,0,1,3,2,7,5,15,4,7
DATA 6,14,1,15,3,7,1,8,34,0,1,3,4,7,6,15,6,14,2,7,38,0,1,8
DATA 2,3,7,7,6,14,42,0,5,14,4,0,5,14,42,0,3,14,6,0,5,14,40,0
DATA 3,14,8,0,4,14,39,0,3,14,9,0,3,14,39,0,3,14,9,0,3,14,39,0
DATA 3,14,9,0,3,14,39,0,3,14,9,0,3,14,37,0,5,14,9,0,3,14,34,0
DATA 8,14,9,0,3,14,33,0,13,14,2,0,6,14,33,0,1,14,7,0,13,14,41,0
DATA 2,14,2,0,13,14,37,0,2,14,2,0,1,14,7,0,8,14,34,0,1,14,11,0
DATA 2,14,40,0,1,14,11,0,2,14,52,0,1,14,53,0,1,14,28,0

PaletteDATA:
DATA 0,0,12,0,0,42,0,42,0,45,42,42
DATA 63,0,0,42,0,42,42,21,0,56,56,52
DATA 21,21,21,21,21,63,21,63,21,21,63,63
DATA 63,21,21,63,21,63,63,40,0,63,63,63

DropDATA:
DATA 342,236,344,237,346,238,348,239
DATA 350,241,351,244,352,248,352,252

SUB Interval (Length!)

    StartTIME# = TIMER
    DO
    LOOP WHILE TIMER < StartTIME# + Length!

END SUB

SUB Lay

    FOR Reps = 1 TO 3
        PUT (280, 200), Box(1111), PSET
        PLAY "MBT255O1L64cde"
        Interval .1
        PUT (280, 200), Box(1500), PSET
        Interval .1
    NEXT Reps

    PUT (330, 234), Box(941), PSET
    WAIT &H3DA, 8
    PUT (330, 234), Box(1049), PSET
    WAIT &H3DA, 8

    RESTORE DropDATA
    FOR Reps = 1 TO 8
        READ x, y
        PUT (x, y), Box(1003), PSET
        WAIT &H3DA, 8
        PAINT STEP(5, 3), 0
    NEXT Reps
    PUT (x, y), Box(1003), PSET
    PLAY "MBT255L64O3a"
    Interval .4
    PUT (280, 200), Box(1111), PSET
    PLAY "MBT255O1L64cde"
    Interval .1
    PUT (280, 200), Box(1500), PSET
    Interval .5

END SUB

SUB SetPALETTE (OnOFF)

    SELECT CASE OnOFF
        CASE 0
            OUT &H3C8, 0
            FOR n = 1 TO 48
                OUT &H3C9, 0
            NEXT n
        CASE 1
            RESTORE PaletteDATA
            OUT &H3C8, 0
            FOR n = 1 TO 48
                READ Intensity
                OUT &H3C9, Intensity
            NEXT n
    END SELECT

END SUB

Print this item

  just a quick hello
Posted by: Coolman - 04-27-2022, 02:22 PM - Forum: General Discussion - Replies (12)

hello. glad to have been able to register in your new forum. i could never do it in the old one. it's fast and the visibility is better. for a few days, i thought qb64 was going to disappear. it's good that there is a new community. i see that there is a lot of activity even though the forum is very recent. it's good sign...

Print this item

  BASIMAGE1 Roguelikegraphics
Posted by: James D Jarvis - 04-27-2022, 12:43 PM - Forum: Works in Progress - Replies (5)

Made use of the excellent program posted here in the forum by DAV for containing an image file within QB64 code to share this.  This is just a tiny example program, I'm certainly going to be doing more with it.

Code: (Select All)
'Roguegrpaphics v. 1bit-v0.1
'EXAMPLE USAGE OF BASIMAGE1&
'===========================
Screen _NewImage(900, 600, 32)
pic& = BASIMAGE1&: _PutImage (0, 0), pic&
_PrintString (2, 390), "Roguelike graphics set. 1-Bit Pack (1.2). Created/distributed by Kenney"
_PrintString (2, 406), "This content is free to use in personal, educational and commercial projects. https://www.kenney.nl/"
_PrintString (2, 440), "This is a just my first step at using these graphics in QB64."
_PrintString (2, 456), "Using the excellent BASIMAGE program by DAV which allows image files to be stored"
_PrintString (2, 472), "within the program without need for additonal files."
Locate 35, 1: Input any$
System

Function BASIMAGE1& 'rl16by1600.png
    v& = _NewImage(784, 352, 32)
    Dim m As _MEM: m = _MemImage(v&)
    A$ = ""
    A$ = A$ + "ha9kk]\UT[SSTeooOL?cRNFUm96f0f30#AY8h2LLiBd`336Pl8_EmOn?oWok"
    A$ = A$ + "ocenCKoOoolOmolYRmC<_QhOjloTm\_^YfcN[fGWo>MnO][M][M][]JZ_O:k"
    A$ = A$ + "L^g_kIW:Vk0O7O[nlYnmg^onUZaWM?5lkZW\Km`ThILHfIbjiAOGiLIHOkOo"
    A$ = A$ + "TFWL0][[kO[A7\:hEfY]chg1_RoNcioO1lod7M`nTi_Z^JGhE`M:lO5;Kg[Z"
    A$ = A$ + ">PmNeCGOEje>iMfnFGnKbnHUJWEG:_C4i;6WaNFD^TYEEeRMi<WhcjIE`oTF"
    A$ = A$ + "glHBl[me\nMdeAm_X[E>gGbN;i=Z_aN?4K6^bk_#n`UKAhMf3X\km;Q7Y3j6"
    A$ = A$ + "OfncZm^CP_Bn7i[9V7EjkM[OfIfmcEi5E^X:n^kO>UYZ?ZZQ>Mme]^#WOM^;"
    A$ = A$ + "S?DSGd\[clG6n<OXX_IeXjILho\l8S;EgoVeS#jHD_A=n>V2n_blb>agmMCA"
    A$ = A$ + "mb8M<jL8]QRoMn>2?C?j\3j9eA>iRb>Z>J^^cJZccM`g=nW4_;>EolG7OdlQ"
    A$ = A$ + "clEfNW8o]kjgiICQgEK^3lMkmMVoDdDER[CN`dOMZQMJC`a:lZJ>PVMIJ?4n"
    A$ = A$ + "9j5XhWMV9e0In>S[c^WR?DV5LR_[_IhObI45=PjL`Tkc#c9\[cjIAg7eKLaX"
    A$ = A$ + "Nn:hGo4EKWBo\F;XI9Uc6MVZklbd<EZYMPWi;4_d5_Bm`R_JmkVoZk?AaeI_"
    A$ = A$ + "lK3OGm?:6WXnMjO\ch`Q:lIUM98mlJO:;N^lPK>ch?E\XLG=7j`gW`Rja:g3"
    A$ = A$ + "YgLS_Z>Q5c:c:CaKkjL\kk\o9jiAWEINd=n>nVQ_J<NZNNG<:n:K7UbeCT7W"
    A$ = A$ + "LWeG?_SV7oInU]3>C?UY;b>?RKZ>cXPWm>4f\^C_MJl^J[YaWegk\ok[S?Jf"
    A$ = A$ + "HmlEdLMbOFn`l1knC[oRh9WiG5lZW1aW8ni4hSh4D_DAgRjY<mWjNVMKZLWb"
    A$ = A$ + "mZXWWTOLW1kbKX_SdAZJ8TfCIg7[gDaG^HW`ZXWV#3D1Oel]JlES3K^6=okZ"
    A$ = A$ + "YLlKEl^im9]8^K=WcfWh\;`EcRRo4hInDYnEem8]eDhIjGGM7:NXhSdjMj7:"
    A$ = A$ + "aoThG[CWWifGDS?JF\CoG9gR`cjmXMA8>L2lIk[MfU?9N47Y<3QV5AmKUm>8"
    A$ = A$ + "mPcLdCHAL?j<^n4eKHmm<=83o>hh>eO4NV>;CkYHAjD6NV^X:n^??ZFDbS^J"
    A$ = A$ + "P:hWDgU]WAEoS`7eCIW;3kJ\EoN7l8]T27bhMFLL`6aS<oUQAMn^B]=mck<;"
    A$ = A$ + "LRIG6NV6dAWbR;BC\67eMO\mVZkS?5N7O`jY\m:IcMCG3>J[XlPMODnkLV9a"
    A$ = A$ + "cdgZhcRWClAg3US\NQb\MVN4i3fcfUYX;Ec=Doa5;Z_cVQAhE[GWWY\W9knC"
    A$ = A$ + "UC>k]bdW8<IiL7lMOn4eo>VIV2SR_HJn<^9[oShGdinBFgMD^?;ki8m8BkWY"
    A$ = A$ + "1VJNCI6Bao<LXcY>kbVcg=N7N\R6E9nEd?\kSd[ZJKUkQV7MVCEa[Fk[nQiS"
    A$ = A$ + "^f>VQD`[Xc#JI4gYR?;oHcRAm8TVg1?jN\Hhl\XW7a_?mnWCH\INeJ_CLMa["
    A$ = A$ + "\OBY7Rji:J7F]UMn\i;T6:;GM]^hkJCDoEeiEa<a\<B;eMn1=;VM^\Wg97V`"
    A$ = A$ + "bVKIkX#j6fn1WWGA?V=37U_\W5YW#eOF^VaUZOWaG8niY`Ga7<^BE_Y`G:J8"
    A$ = A$ + "D>UUGW2_CnShEFObE3QbOE3EK<o[`A:gCA?R>C4?e1_SQfGUY1Lf?FY7Z\SP"
    A$ = A$ + "YoDfCjf;[baM<WhUe;V87RjoCP?[?=9??U_Hk5MW?RZO7lInJGcWC7o9j=Mg"
    A$ = A$ + "i=YV0YacZm9eV?m^Y9hm<=2B_QZgZ?7Y7El5C3`N6B?QVWDacd[ILCD_PiKU"
    A$ = A$ + "ik^hch`>lW:OVUoCdoIhDaZPgA[kL>4WPhjYRO7;BWWY?Alg>`kdob`k^?AQ"
    A$ = A$ + "_f=N7]FF=RZk8oY<O`Zg\MVC[IAliTaS]O<SoDi1fiEgM^Sj\JLDd8XNWbmZ"
    A$ = A$ + "P?JFX3NUi\9SoDmkZk\HkAZ4o<=>R_RVo#c>XcQhig\EIWWj>8eW_bSXLBm\"
    A$ = A$ + "Ec?T^Y3Nen#D=X<kjR_JlEVOZ`OXhkZWIkoHl#gWk<cQbOWWUM6UmIC7oZeo"
    A$ = A$ + "dc_>hcdZEeMCZMo:??S7Z`=Ea5ekk\?YBoS5;5^C96ZiQ;gQ`GEKkdgDh^\N"
    A$ = A$ + "\2Ga^G4WUM_:hSddM`[<W=IlIjHgnmK0_[^>S;bVERn4Mm^gEEQ[bd4^LHdi"
    A$ = A$ + "LWe#L[C_W];fYfHkoIk#EaWa9:WW]oTMV^hMe5^jW<MQj^;emWE[1UW[ZMIi"
    A$ = A$ + "_ccV2O4GYbMMZOeg;QfYd5_CMZ`I^hMiTgdcG_Wkcb>Gfk:DaWi?WNCgnHVF"
    A$ = A$ + "1YQ#mQ>iO7MmC5?fmAL7cO\cilnSXLZjkOjRWM^M4o^cA_9l[eEFm6MMdcRh"
    A$ = A$ + "Ddifi>YMI<>#Q7AmR\In<MHF<Ii2J>0eOMeV>mHeMIAm3eMQMSG7l<^XBnWe"
    A$ = A$ + "_Zbo<oiTkMZk:n8SoDaR`[FOXgU\SjG]7eQODeF^kcW2?J7LdcO;hcd<XMgZ"
    A$ = A$ + "jH7LCd;VfDg5jFWESM7L^m0Wgin4e:[^Ld_Xi7ElAlT;NdmfMl?Qf<2_JNW]"
    A$ = A$ + "?QaQIW9:n[iHV_SR=bG_1CQ3#m3Fmf]?>U6TeSZhgYaSbMWkWe7f9N5Omdio"
    A$ = A$ + "DmOdiDlAGlMeO8nC=okR_KmO2[cnXYfYa`nfOnTjW\gmd]GnVePGk<6kgm`d"
    A$ = A$ + "RoeaObNfGgnbeAUOSEd_=[ClkJWV3_fe^fe^fe^fgf>m_iXKl?MnO]jmlCW7"
    A$ = A$ + "MckZom3olnIWOmcecNoK7^fe^fe^fKbjnNVCS?bO^af97Vnmf?mki?m_khgf"
    A$ = A$ + "Oo`YeoW2OUIVengonn?olT6k_G8[>RZY:om3Al3:FEV5D?[BoXc<g4c]MWio"
    A$ = A$ + "]So=<CM=]NhYcSYZUOniCSo[HClKG>m_kI=?>1nY[M7OEQoklNkW\nkZOWXW"
    A$ = A$ + "^Sh?=oOJmoG6OE>>Zo\N]Cn<iNcXl:kk8=Wk_WKmmV\lXCmPbMUJHegXI>Dm"
    A$ = A$ + "RV_E[=EnMGhk\cLgh[\7^ZnjRoI`cfKZdkEW[M[UOV3[OnDho2VJOFUWRfKo"
    A$ = A$ + "TebGJnaaG^k>kPYjk2V\noYoLeMMdQXl?KOW;?FQgIlJeNfebk]8^ndi[JMP"
    A$ = A$ + "bmZ_WWa3Aa8;^EV1Lj7CnN8FmjVKIlLUIg^coM`[ZgjPGI_WccRdQXHcZS:m"
    A$ = A$ + "nC7oYak^K9kmYAG[nN?fmM\^_?e1oGmmg>k_[hWCF;?9nYgo>Qf[;^^JPON?"
    A$ = A$ + "5L[lQBn?U6>;_Ana=nCICeo_V^VTYGk`eXIV>m?f\XkLMdmc>ojWIa]cIRRG"
    A$ = A$ + "D=c`Z>cYD_[WA]oe]gOBl:lOGl8^UeKSb3Ul<:_Dm_B^ObhWU7Z?;;F^Jo\J"
    A$ = A$ + "#9gcd<XkgA?gMN#Y7D=VMbGWN:Zoinl\Il\io>iI5^[;go4hEdnkBoa`eYFD"
    A$ = A$ + "WoS>C4f9ZSMa3^hkJ>J_9V]Z<7ne`W=3jLfWV[Aj0dgSZ3V6:CgUU78^1US:"
    A$ = A$ + "eSBlbN6RkRb=ej=3_ZV`MWe^`[Xo[boMaWe?DfG6Q5=_P^g_1lIlVbcHm#gN"
    A$ = A$ + "OD?BM6bQO#i=[fclS2NT>WYQch0VVG]_QVg[fgE?S2WcdG>eXBmGQkLeLZaf"
    A$ = A$ + "EkcdB<>d=7LdP>k2HJO7]KdliDeo4lP;f9\Y[OF_Xb<dG5o9SATNgI>b=_Ef"
    A$ = A$ + "iPR=JV4UkIa=;OEcSeHTM?6ohD_8>d]_EMV];n\NS2W5eWSdaCP?Jg7BkRb3"
    A$ = A$ + "UMTXc<5NVf2Mn:fTeGF^a^_RVe=f^hGe5ZJ[:hAmCV6>j\8m22?SgL`GIo#V"
    A$ = A$ + "f0ae>iPRVGA3iRGInM7aGA_X<7XHEbK7O`dT:l7:oZbmAJa>L0K>l9\XmCC<"
    A$ = A$ + "3Xf_LV5blKfgO:lMhQ8=#UM6Ic?^nR=gTiCE>1=Obh7F_Pe_#lSB=X>og1_J"
    A$ = A$ + "_fEWm5O^kLW3NUnGWinZk<?=NdlYSfV=SbbIWWaZi:LQc^Cdk:D>S3n\l3]7"
    A$ = A$ + "<kIXjK2lAOWES:i_2gX`g\n^bmEh=7]g9`c>_Z_Ha^J>hj3UJRaOIcH<\ZmP"
    A$ = A$ + ":jOF]D1OG[BLEVSDiLWi1fnRYoNFMcZ;Wj>[?TYaNJSYEL[i\cQf9X6GFo:j"
    A$ = A$ + "\XcX`3<=CgI7GNEYnIeWc\`^So>N>C_ifo#J#7]gK0OU_WU3:?[R6L7jo8=B"
    A$ = A$ + "UWUYaZTOE`WY]Sd7[?C]VLacR?BGYlL5mUZ6dY6MgM`R;c?<LZco>HLbW^e_"
    A$ = A$ + ":gXX?Z6Kflg>koZhclE5lM]MXoMhlg\E=o[<__[LfM6XCLDVMAkNbRcJ<LS["
    A$ = A$ + "BNPdi>kOHe_27`bKFo#QSZfKE`XDKIhk\3JRMG\lSeoEd?[n9C3S`7iSYRO4"
    A$ = A$ + "GbjQMeOM`[dWIWa5_Z^;Jo`jgcjE>hIiVS_Aac1?CGEI6C1GTF9C?iDgIiUR"
    A$ = A$ + ">0EgM[OWL`53jiCGoZm?5nYK<E`\C=#EohR_[=M_ogTE]VchFWc6=3E9?niW"
    A$ = A$ + "C`7:eXb^8T_AePCLShDVOLVEDbO7MU:o=Yn3eKG_7ZFIiXSNfMgCD_`]oaj1"
    A$ = A$ + ">Lod?[cIMmGf<2B?<UncI67e_cd[^k7V2Odi#lO7lZmKf^?4g[PGa#eG5LE^"
    A$ = A$ + "FQ7EigZioDhInYBLIjSMTo8]FEnG1;BKhR_R6^b\DGlM]:mn:lkOIS=cU=3d"
    A$ = A$ + "9N>ggMn8bO^kfZTc8MkJ>jN6D>bnND<j\3[J_];og1o4Fejg=WDV7[^g3M6f"
    A$ = A$ + "cDd?\JUYKWXWZ<k`VKEZOUWUM6FOMBlEVeEkI^h[6cMPgimNIlX2gVY?D^FY"
    A$ = A$ + "VDWmDZ15N]3nZfDaJbl_3V:a]C]cfMk^OaMF`=nCIEVMgY>ngPUa]C=Sd9G>"
    A$ = A$ + "A=ZT?8nImc\hjZQGSYB<DZ;UMH:k#blMWhSho>hSbOgM7ImJgM?8lM`fEOkT"
    A$ = A$ + "3<mSS>D9n:_;P=[^R5M?7>d=gM?g4h[d[V2_RFo]olObYIhI?;j\Ah#i8[_o"
    A$ = A$ + "U\ZJ9Ton:iOeiY^LFf^CeliDhEae5o9e_?]m4ioj>>dgOjJ?BKTa=IiMF=QR"
    A$ = A$ + "GWlHRN[B<Hc`\kEI7#UNWBlNShkFo<lkVo?=nEMKeMgC\gga7XILUNVK^=1N"
    A$ = A$ + "7]5ZO=5NUng:oNBlIHDW3DgS[RQmMG]\C_ldhk4_g#n[ZofQEEoNa_7mcY]Y"
    A$ = A$ + "bOfN\om\E>>kk?AM_niJ\AO7YKZl>PXLaEcjXUIe::OcNV;n^cMZlkOElOim"
    A$ = A$ + "B>l`G[>Ak7NceBUid9a[`A_mWG]o[^7G13[GlfeQGkL6kgoX>Od1Ogh_cloW"
    A$ = A$ + "ahJcZinR6kgHWQaig765SXO;H5kdlge^fe^fe^fenVfj_=>jgGTmkXWdj6oZ"
    A$ = A$ + "h?=ooGgnZmQYcKfOo0BgNok7^fe^fe^fTfCm^ReO[fDnKboMOM`ORgg>m_5A"
    A$ = A$ + "mOKDf_cfin\o]BEo^kmkPOWmd9jQWjgje=nZhEd=_1Ciga?QoAgOJ=<:VMgo"
    A$ = A$ + "mDj7ejJblGaGW\nW0_RO[ZgVXVVZNjZ[N[m_CSoJOK[knoZaKWnL7_[TaI?5"
    A$ = A$ + "?Zl>ZZ_3D=^^eo4LBWhoVjOk#?LbLnYNocK_WT]oI7o^<dmcn]G[ggI68K7C"
    A$ = A$ + "gIW^cMk4?ZfchDgNOUlGI?8B[hb?EeXMg9E5oTkakR]bn<eLn[SO7JVMe[f9"
    A$ = A$ + "nConk9coommZnYJ^Rn>jmUI_[\;?FIWod_7e]GQ^GUj#Q_ElQbmLic>hk4gg"
    A$ = A$ + "XMjl\KlEa_Z[Ocm4D^_;O5a?:k7#Jm8<\N#gmN:HWJVU]SQekDR;RSZToEjO"
    A$ = A$ + "kRoDm][f^J>\SjX2F6ND?Tekf1nXl]k^h^klLe=MdLMdZ^L7[6kZikPm9mA5"
    A$ = A$ + "nJU[IcH:koLm;[ga`Z^keQ7MOoQj<kT_o8ROE`SjEE\^h?Ui<CN=_m1_5S]G"
    A$ = A$ + "JZHP^Of>`XW_VcXcXV7\W5aC\m5\h4Uk>LIF]cb3FlAkAEZO4_c`[f7j`OXn"
    A$ = A$ + "JEMOVF\B\W87V6OFO6=7^;l8mXKlAj[Zl5b_IkiDR5bO:W]3N5=KEMV3N5mS"
    A$ = A$ + ":?f9oMd9XNOdLVS^<K7\Z>BQ3ILNUNA5LXm4:LP[nPYGHiOfg[bSEageHe3j"
    A$ = A$ + "kZmOeiXoJhchd>aNJCA[<A<Hg?;?Fc7gkaR7;7ImNG^JghInbM?1Z?Y6o^hM"
    A$ = A$ + "i_>mBG=MeIIUMf^iBFo[;n\i\\I#6GUa5:hW8n8>BQk#m=Vn7U?XL:b7:gcU"
    A$ = A$ + "OWHnS5O4gQlUBmabIEM#UL`QcDNVK^XXQLS=J?Uj><Un?;7bZ1DmEY?VeCEk"
    A$ = A$ + "OZJ>GNdAoda_MV=DV7Ld\?=NWnX:n>a?j\Edj?]=I^eAOShE6Wbf3Q^WK=YL"
    A$ = A$ + "NEl^nK7hInh=DoXhGa7Edk:J>WhG=7LkO>hEf]i<Ofmi>k=#i_3WXdgHJP\c"
    A$ = A$ + "ZX1j>o\b7\_?Y^=j<[LUJ?R57enJgi^\lgQgDjU\jd9gEeNZJ=Wj#=^:jI67"
    A$ = A$ + "jf7Ed^^m?eIM7>F5KflO5l^m]ecZ<3Z>ol4hEdF^hk4OGmL5[j\3KFZB?QUO"
    A$ = A$ + ">F6_6US8\ZcR:mmYNNghWa1XNQS^^JON2OcfkdE?VY;EmM4n>Hkj7gn\;n<="
    A$ = A$ + "[bLK4N6W``7UO>aG9OHc#\MEZl^Z>8[W4M=3OfcEe>^JG6?Ue;Mj;^lNGCQc"
    A$ = A$ + "E??ZgZd7L>Kf<0ZGFInZZ6BU7[P]RN0aE<nAiN8OD=nXiOGl:J5D]Zd3MW;g"
    A$ = A$ + "9N6oD1OWhWao^jl>h[PcilMfEXX3AcS\IHT60M_^e03OWWGY?`VaEV5[FkXn"
    A$ = A$ + "8[_5Y7IcO^c4EV7EbIgiQ:i#WIGElZm>d\WBNYR?:oDR?;NZJ#G]OUi1UH[l"
    A$ = A$ + "<WL_k<\:_eIVTQ_j\WBo;CCYXeDb1E]CVfe=V<nPeK#naYFZJ8mGUIAUN^jn"
    A$ = A$ + "WXnRclKUhDM6OZc5MNVfEEonDhIeM5lMR?kI>jKd\OdibZOVOEj9:jT9dg:L"
    A$ = A$ + "WjI#lD6gQZGFnP`k>g5ES8>;[G[TO<=_K\Ee3:c0>lSBlEVoV6oDi#UWYdSD"
    A$ = A$ + "gCX^KCMNaInFM_Q2O`bo8oiZicZ?eI1eJg1_bcbbMgio^i?Ckjd3bdf>cMIj"
    A$ = A$ + "C5O4a7Zh#m3eHUecDb9fl?ScEdQZmY\L]BO#A_hZMEVcZh_WfjDokFooK7OE"
    A$ = A$ + "oOJC9_cVeW>?Fc7gk5MOeW]V7AmNUiVYa[F[^a?CCGQoSRWZ^[Jncd^MViW2"
    A$ = A$ + "?Z?kj3WWYL>fmSd9A?3Q?kiZhk4ODod1_jnO4n<]\Rf3IZhM[UZ?GIfEM7HW"
    A$ = A$ + "j?b?:eEVn;kIZVB=SVA#k8Ei=G=XSNXJND]_i`U:lF6W[XoDii>nl9]Ze_cl"
    A$ = A$ + "`ehJc8NNmc\NFdgSVKbl_SODV1GS12SbmAi4ZN#WIeg[GcNVBODQgbR9:Gb`"
    A$ = A$ + "SVKAm:eii>aGQoHio>Zo:l#6f>k5W0o9R]jk##m_Y`7iWXcX`K^a_3OFEc^6"
    A$ = A$ + "oZc?W6_BmbfoYJZc?XN>K>0Y=[d7Ee>?]fc]GiT3Eb5eIFeNYJ=jXmD^W[N^"
    A$ = A$ + "3n^FejgY7fE3lK4ojcS`PN^bgGo<kiEl3JV;3[c\:;^An6YKAHHm4D^Z<7ah"
    A$ = A$ + "]W0Ogl7Q_3oY<KXNFFn[D3^FWM5MSmKa7XI#5o_3lAggYf[6o9j7<=<;GoJ?"
    A$ = A$ + "?[VEZO6>7oTmYknX<OjfgM`TM_9dREe_E`DMOZck0V8oAk\Hi#fgMmAehGM6"
    A$ = A$ + "JbjObIPoRh[joCKXl6]36i?fmAJ#WI_\lIeGAe::?AW9cgZLQS6QQO7aO7e_"
    A$ = A$ + "2_G=oIOgej>7g1o9S]Z_DSa_5lWLW^bkmOch[FcXL0MFVOV>gLia^jPW8GIJ"
    A$ = A$ + "PMfkEbQMaOIon4WkoG6o^d?oE`7M^_fgSVSDn<K><jn[aFA3ZdS#mT\_Ga_?"
    A$ = A$ + "5n8>FQoW>oOklgDJXg2n^c1McQ<Onfgo^;lGkkJXnnE;L]OJIo^XXgoa>kOA"
    A$ = A$ + "lW^ome]E^m[I[eRcWAHAg75g^ine^fe^fe^fe^fe^fef[=a_3o=mgoL][M]["
    A$ = A$ + "M][M:3m>9do6KIoKbYLOfoNaZWgY6IoK8ZLmDhoio^VEo=1WlgNXVooliMog"
    A$ = A$ + "P]37ajSCa9Wlgie=nW>oOklc?mC7Lk:fW^oOBlAkSLOo#7lO1[KmlK4Oggm<"
    A$ = A$ + "ek^j4G7OoGDgmGbNjN=:N:?[beI?3=3a`[FWAggijY`WEG^m]CZCEbS\nTKn"
    A$ = A$ + "?1?]KnZk_OjdaodioCb=MZAemFAk`ZRWYQkFOGlcY?NSFGmNG^hDk^AmBGma"
    A$ = A$ + ">`k>oG5[B?LWJoCXORdA_EKRm?C<_hf?RNo4jIIiZceXhPN_92_[6Zklg4hk"
    A$ = A$ + "X][V;kBohZYMbo8<_eIZM]om9RoYcoWPG#gcaOAlUc<o?od=V:m>gJ[:N6G`"
    A$ = A$ + "Zc^hWBODiI<>\[NJZJ_k<Mgm1M[U^L#Fn7m><deZm=enH5=B7>Q]kHjnnTj7"
    A$ = A$ + "GlAmV^e1;oZ6[M]oIgeL4o6MMd<Pj<GdeXhPVo#hg]6Nglo4m?5kYcOTna9o"
    A$ = A$ + "EkcZaOGmdWHfMGaodio^i4WWali?a[LfEL>OVM?F>in^W9`c^7SKLNNF_dY_"
    A$ = A$ + "bf3Yb3E[OD<VhM4>LhDa]J?LB\AeRK_gYo4iWM6oYNoITOcRE5]GWM\Ea[`m"
    A$ = A$ + "\HY6Gfnh<>MB;:Fk<NIj_eJ5YoHH#GSR3BkS`[Z7IL?kjY`gM7MGlC[ODhm8"
    A$ = A$ + ">Y:NWl\3n:ajTmT>aodio>iSenOf>>Eo^Z]HWM5WjcH_;T]3=23R[bn^[fAU"
    A$ = A$ + "K#iH5N^BMc`[b3EVORhlXNA7mO7\C5kWNgMUICTnEAOj>3Rf1a`[6k:i#Um7"
    A$ = A$ + "CfkkPg9gEi^>c1ImGeLa]FkV[EZY:LhDhEl7jlEeTAJCU[AhE^ojc[f_kRO2"
    A$ = A$ + "mSBlcVUkR_BOgIN\C\jdCj<o5E_^iDGl_5[B=[FO>cNIJNW?M_7k<kBoF1?B"
    A$ = A$ + "C7M6G^f]GV=CEAChnnY>hALAElChSgLn7ekGaSj5\m0^hMdPEW?cnNFmG9NM"
    A$ = A$ + "ce>hEWOI_;U]7B1_R6QEOEfmdMfi9<6W[d;DkQ:jKelUYSHG?9oEY>V2oCUo"
    A$ = A$ + "IcaMaGY_[lnT>cPCP?b?XiWZ?75oZhO;6J7>j<ZeXc\GVVGmI:HbdfZk`jln"
    A$ = A$ + ";Wigghccd=^Jm^c;C>_eM>]kknj4o9fchd_GS9jJ5lIe23O6_WQ7]g:kI^nP"
    A$ = A$ + "UoCg?ILXJ\DVQZ>OVeOHiRS>dUgIkngQQdHZj_9c5TEQoLi1e[g5oodhOZl?"
    A$ = A$ + "Cod5_[fB1OggM?5n8OQf_GiiXNJEl_1;;GSn>kMV<NZ2WFiCdmDd;XlT]kM2"
    A$ = A$ + "\InHJlEV7MfohXm>anS8MnG3OGOhP=Jn0M=3?K64QOm<XWU5k8OPbQ<OXPEQ"
    A$ = A$ + "oMeaIiP;NUI8dNBfmLjm:iOGl\NX3_WM]Rf?3?BKFiJDLHmY<l^Jc<m>kjY<"
    A$ = A$ + "UNd>aoDi?Bod1_CNZR_bLk^`7i_8m_jlKWM9MZYZm]ZaI:m2CCZXMGcQelBi"
    A$ = A$ + "I<<C\kSY_bhbekQd::kNEN?0C[Zl\Y`[X_Ek?M`Gi\GlhI9EmgjWIc=ZcOXm"
    A$ = A$ + "jMi:T?ZDoAn_kk9ZR_jkibhHD?e]giV;EZ5enJdmM_F9WEfW?AlcbU\nD6Ne"
    A$ = A$ + "N4RkE^fY?R^OFMi<_d1OGC=nZcW^hMbCElEVm_hO76:_EVmoigILPc\GVVgi"
    A$ = A$ + "CfmRjMIkAAif9acdO\n::n:j2fkG#J15CAgRhC5mOgiWCQORM=EggYd3Ijg9"
    A$ = A$ + "a7eoS`[6k^eP:gjXEIhMmCeHSZCD_QUgMbOGoPb[OjKgHf]VjFc\hcfG6eKA"
    A$ = A$ + "hEcG4o[LmDhImGUjY;n^ck:aGMn\2Nei;emPMWEn[SGE[=M<ZhOVV0iSXhX^"
    A$ = A$ + "c;;fI?C13:GR>k:6dcG?G6NUncdhWdHlWR>:3_Z>\2NUW[F3Mh]9hnW>ok>o"
    A$ = A$ + "\foF[5UM<XHSd0Ef1QVaAm25mGWNH7lMSMV_DmWbNo>n`If?km9Imd:i8coA"
    A$ = A$ + "G7YoDe]XiAEoQ>OWjORl_3n:eaThk>gZ4OTnY;NUl?3o^hTobhAl^bgk4W<]"
    A$ = A$ + "QBO?;7bh27oR`i^oJ53[6Il;KN<ji:mHenKGlAiM6N6_Z`m_AKRidCV3W>oc"
    A$ = A$ + "ViESaTj_\m_<]?;n:i0KnTaQC^on9`>YQhmZhEmURfPecL_nWn7][fI>HJng"
    A$ = A$ + "YGLJmCeJ>Z_lDhSdAk8nIjW^hEcO7mKWM0Gl?_][mCXMPMRcJNbfk5e?FcSY"
    A$ = A$ + "NoNeM_8>iYag=okl^7eNVC\Ai`YfkG]o\Sl_C^[T;Clk?j<Oj<g>1?GAk?Q6"
    A$ = A$ + "Xcnd_`kYZ`m^m=fgAgcmjO6SXMMXW=IlIkNM`GE[5a9X[W2OFMiXgn2hAjWC"
    A$ = A$ + "R7Mf>LbOIl8oUio\M=Em]BOfECcZ37[CnQ`bf]ifcjdW[f?kToEe1>m]W8oE"
    A$ = A$ + "agM6M2lEan6bO5]#7\ChSW>no6jQoE=D?obcGkJGk[Ikj_OhYNoHF<Wjg>ei"
    A$ = A$ + "_1iJGkJGkJGkJG[ZMjOcAghOjloJkcDok7LoK8>mOo`Yie[M][M][M]CIEN?"
    A$ = A$ + "h?a<=NUOghTaO7egYjSgonQgQMJmc>W?kZ=RjeolNAWgegCTgAi`KG7>e\Cg"
    A$ = A$ + "I^;ncROWnLRJZJLk4Oel_b\Sjk^DoM7Ik7IhDje_eMGGKFkYN?USfWm>e>hE"
    A$ = A$ + "lE4_X>Sa>OW[MhQg#_LGja^aOblnYVObRMV>i;4oCWoEbGdL]C=4];:jk_=C"
    A$ = A$ + "MfbQ;[DcEa?aIHeo>cODLN2nc9_Z\;=jcZLBWMBEOG`:gRhMWWiZ]Lkk:j0E"
    A$ = A$ + "\WJoeC7g^ek4o^S9maCg_nZFGMOWOSIF\R^OfeIi#ToVVgDh?WH[\?]JlEiJ"
    A$ = A$ + "fiLd#?]>^ZVl=4oMToXi5dlTSoIH[F;OQMiC^OLRgmUmMWhfM_EUJHRm7CRM"
    A$ = A$ + ":MGei[XMkMR]S>\RfEQGEe\ZJIUgoaZQ>c_Zm5gcm4j>f<_cl#4?kZi#mg>J"
    A$ = A$ + "dZl^jkejbMCdOSZEF_H:l:L1co^eldlHUNg4c?:k_De?Eb1gh?UiVkCgcEdG"
    A$ = A$ + "?ILgala^co9k?[nbe_Ah>QnYC??Jf<J_[27jFk_Ui_Yia9d#?5NVOWBGe9fE"
    A$ = A$ + "g9EA?^REmLIjg\gkPRWBOD9GgEn?M_Ra?Z?cm\:l[[>[RN[Jl[^oTQ3iWZcR"
    A$ = A$ + ":j5g[Ek]<l\j6Q_ZN^je^kEgikB[XOVB7F1OGKZi_Md7jX??MlgAnoDm1dNb"
    A$ = A$ + "ZcZ^iL7MGE]kj>]OR;JOWROL`=Io[ClW0OWM7CQ?kkMhd9`GMOBWio>ioJLc"
    A$ = A$ + "N_ATVAE;]N^\n?Z>RlQ:?T=kGI7#ggK6Q3i7fnJUcRbm9VQM`Dii:j7FoSQ5"
    A$ = A$ + "YYZHAJBU[M>G5lCUc\NMUJW5;Um?CgojZOjT;CD7M\Y[o>k?Ddg^n#MFXccE"
    A$ = A$ + "boZlHFm`f?deHl0J^EilZLGV_Eaj`AokiXnEUlXK_^2oeA_=QNMB]Ngio:HM"
    A$ = A$ + "d=Zhk`SW:oMgg5]_0M65>BMn;JnEU;Hm8WM0AiOeNE67bl?Kn1a3:_c\RFSm"
    A$ = A$ + "<em_:j7dk]Dh[^lPSU=kP^FM^ZB\DZKU[W^VAeMe[[dkIk8D`=Q6<KGaCJIc"
    A$ = A$ + "NMWMZXYf5nCHW>nCE3ZmLd<IE^;KNG=WMe^XM::me<>8kk<lMNND>kR?J?aC"
    A$ = A$ + "UoWhi<=A5K2lEmA7\[J0F]Xn>T<oPdHMb1enADlAG[bKEf1ibOIeI5NPeODe"
    A$ = A$ + "kZmm<]VkILdi:lUC?<km3IGGmIElM5oZDgZiRR>YKM[>cV]Sa]gSdPZhV#36"
    A$ = A$ + "egOJ3=c[bK>Je:chMaO2kdaObj8KNc1C5^;KNgEkXPGiL>k>H?W=kWQYk^[Y"
    A$ = A$ + "boM7o\NXCnQhBGMDeiV^cNM`oTe`j<K4nXc4m<TVQ=ORd58l8=Cde>L>kkI?"
    A$ = A$ + "3a1:khHkILkUZj5Un0jiEfOXj7elgMg5R_Hc0^GkL^:hcZg:iI5=Vjl_k<[b"
    A$ = A$ + "lC7=h^e^<OE]>jHCFo:jCEKJl\iR>?_KlOkFd<LDm5MfZa;:nElQ:f\JPEkM"
    A$ = A$ + "dK\h[`mIa_kcEbg>eOWh[FO[l62?C3>Q>nY`N2l8];ZGTQ7=oiTcZhEV_DlQ"
    A$ = A$ + "Ze5KVNgY?Y`S^n^b^CenOGm33Oen7KGXjeM?kDa:[FM_fE7bjQ\c[4gXckfk"
    A$ = A$ + "IjhZHkZ3kD;MiP^eMVn`ACMaoN=VVUMV>a[ZoL`^^S:K_5S3R`[T7Zij4aG5"
    A$ = A$ + "?RK#hIm_>aG5_kcIig>dLk:nMRMEO`VEDe?\gmPb]<oZP?;?cZ1F\Mdo<\<N"
    A$ = A$ + "PMNWmA\HXX1#i\BLEeI8mSJMEU3cjO:GcNVjlf^`[DgC5OGoX\WgEc?QY\o2"
    A$ = A$ + "U7^hcj7Eg5dM7RciWX?Oaom<VnOgcXWX>E[;eJgaGES?Kf5eoR>3jM7[g3UW"
    A$ = A$ + "XcX6Oel75KUL\[ni4HMdQk<g[l^SeWWQc]gE9nENoGegkVQE=GVfbVek^gRU"
    A$ = A$ + "gMh?GmadLGTOIG7]O[:7<5N5oQ>O5=6B_WU?8LZaNBncIoQRn]J?l9dBEd<A"
    A$ = A$ + "m>eIZZc[oeaoF=VVkdiGgJK]NDenXmPIcjXhkl\eh[dofAnWUW:k=RR_bcb>"
    A$ = A$ + "3[gRbmZJW^joCROZlGiM<\L_Sf[jcI_?da78mY;Ff\8j<<SU7ZHLcSMPGM7S"
    A$ = A$ + "cLRc>ETFVMmKbjdoOKee4kdVVofi<`CPOGa5YSZd3o[So=KMe6_M;ZFZZm[X"
    A$ = A$ + "7Fic:cNM`GYnFOFDmnDJTZknf9_hd_>5nYhP<mGgNPcILS?kLWN?gC6k>kgW"
    A$ = A$ + "hg?LbhSfKVQ?k<8\WngGPbC5nC]>IageW\l>B;`^7jn>WSaMZk0o[Ro;<OlE"
    A$ = A$ + "`of]:JR_RU]OI:l<O5][Nbh_cl_jcNblWagCXGLag=nW4?bW^_cHRgmD=n\l"
    A$ = A$ + "HBniJ_GkOmjOfg_mo[a\Cok_ojh_fO;kZ7^fe^fe^fe^fOACmg<cn]dMaOZj"
    A$ = A$ + "#eOW^_LJMbe^fe^fe^fe^FTYnKZfE<j6oMolWRoObom_oBom3CmOoPOKom3["
    A$ = A$ + "Wk;ngKhZ]V#_<5oo6\^jnWHGcKeF[C5^`IVdA_b`Ojg?mcL[37g=?Zh_Yf7h"
    A$ = A$ + "D?M[k9h]O3cao5g;Ua1_]h5]G8ZOaVOj<Kj4oYi`XJZc_mLRN5jjM\;^ZeeG"
    A$ = A$ + "Zi5jik8n:i`>\:i;R;NRLNRJFIV#1S:n9ioCKMWMIgg]7Z4?UNUjmR^_C=mc"
    A$ = A$ + "k]R9b?XLPEo:ji:lgCXaRhWZJS9djE`eYfMlCgne4mkC[IVbLg5_cMgZ_7Nb"
    A$ = A$ + "gQD1oCnN[XmR\mVAkP[bSZaOmnCUo:hEd1Ic[\ih^kGVHNXZ5aO^hW<Oj6OD"
    A$ = A$ + "m\cI`:c=Eli^[Q9[MUW=IM[V3WV[ZZK#ef?oLe_[G75O4WSfITM]36Un=ji:"
    A$ = A$ + "iJ6Wid?DkUENfDhIH[^3:S7[Zc[PK2^#97#cAEd0Mhl>nH2^OZNGWiY:hjdk"
    A$ = A$ + "EgkF]fMkoZk=Zl^37=VBng97DiW\MiIklcN>Sg[X_L^^:ge]gShYZnXZ_VX>"
    A$ = A$ + "jVoImAUc>UeUgZ\WH2mcK0_2OF]7Ph]gR=1o[bO^l^cl6;OZL65LXi3EMDfi"
    A$ = A$ + "S`GU3Ed1CL65\>nY:^<NYJN_fSfAmS^_CoAA;kfSk^ojYaW=kD9?j^oV=;ZX"
    A$ = A$ + "]Ld0Xg1YPaM?\jIkDOZ?_K?2mlZJgYR_JnYL][^ZjiMdZMdQW0oTi?SKN2]G"
    A$ = A$ + "ENk9V?N2S]O[3GfUoWNfKZno>b5UkUY1Eh#T_MdlXh7i?DlLboEo[f7gAn[>"
    A$ = A$ + "SdAkdAo[doZX9Mck>LPBngUkAa#=_[Z=DkOEi^ZhAcV^nXknCei_\IIeic\c"
    A$ = A$ + "Q`[nN3V?HiC7=^kc[b1EeQCWo:LLUNW:7XZmD``^^K=L:lCUo^cbM]9j1[JB"
    A$ = A$ + "gnn4jWYa[<?jdk#c]MVQgQFHJ]kdi3jl:LLfIGaUecEn^[fORh7YUEWIcbO4"
    A$ = A$ + "n<N>jLAn]RNHJ=nC6o\m>ESOEOh<W``[XAS`f9nCd3>QnY[6#]ocb_Zk]EZm"
    A$ = A$ + "^_k8K?Sb>4fn6UM`8l<>J7ag]o<Alk>KDij^hMeMIj`CQOZlGMNZJ_55oMUk"
    A$ = A$ + "\[g]nC9WLVAEhOVnZJOBUkk<o?M>hV[>jZ>jm<L:ma\i`>hAc4AjXXcF9oV2"
    A$ = A$ + "OF?BMVSe?kZ[[R_KlcjGCWoAkEGe>IjX\nD5lZHMhSgDo[RN:K_#WlW=kEI7"
    A$ = A$ + "Xb>86Nd>;V?bd<IjBD?:klAc9XN3ZFNRh[nLWh[Z[D^>:_L_^;NE=?C;O:lC"
    A$ = A$ + "Uo\iAdN3EOT5oYcMVV>K?e4j?7NaQ;Ml=RCkd[Din:ildmOGnFIF<j\Ie1J?"
    A$ = A$ + "S2?hl<EmNfLljmIcZIL0JVFY?d5?BCeIFZ[fn4HW8fZL7BSPfIZdgM`[REUK"
    A$ = A$ + "VPoV\oij?f^R:hEgOEI_M7lZHMfQjZKLf_YnLWMP^kGORlgmi>GWEG>Gg5_["
    A$ = A$ + "^;CKM:lCUo\ia\cQ<eh?9g5Ygbjkk#oi`;EhdZl=;^Me=CYkN36C_TMN6GXP"
    A$ = A$ + "Q=oQhOel<;GHcS:n#Qo#i_2oad?^m?UNZ;fO3hWL>]C_82?C3Qh3Uhg]fWX7"
    A$ = A$ + "d=nMlMehgIgo4_cXJMW]Sf9GD[?gW[Fo:n_SVJRhSZ?GcUOb>Of^5W[kF3Em"
    A$ = A$ + "e4lhDi?[_FE?Y4gYh=5]jj\D7mCUinZlI7nVe7cZYMZKWJ_d4hGc[XLeAoY6"
    A$ = A$ + "W<=IFNS>;ZW`>KfWXWUiCFo6=GbRO6NDNXP3a?EeLM`MBlEWgHm5UI#eNYK>"
    A$ = A$ + "hDCMkoEdLCdkDSIgWcbmZkmEOGS2gU]o>c7Cl^;ej[jcGcc:hS>Gfnf8nCQ3"
    A$ = A$ + "M[?f>n\L]J?dEK[f?ZH^c>CSORlGMG#G^Mbn0cG>i0J6QMm4h?Q>fUg#HWDk"
    A$ = A$ + "Y\_aUCVBWVM^^hIcM[J7TOE`[4OWW5YMjlL6GYfCM>OUc^3mJWLX;n9[QZn="
    A$ = A$ + "[6Lb[>i#gmbMeMC6oW6o4_kaiMDXkgMoA5>3]3>jiEa7mn75lIlkCWoMVCR`"
    A$ = A$ + "XZkDh4GlEa6a5W0o4i_b\LeN\3nZiL6?bRaK#o=i><WLB]OYboCFoMi7Gl^i"
    A$ = A$ + "5R[cf_Q>;jl:??;f[mA6oXVo8nQ5OTfc9oEjY>WgiLkb7?]^O7eOTOZ<?f]^"
    A$ = A$ + "ZhS^e?KVb9GoJJWYd=XgQQhVMl^GecV]_:kMY[eA5lMRodmi9Zo:f9eZMcmX"
    A$ = A$ + "Jh4hW<oILCG^MRn1CoVYSGe\of\EnYJOo;<c^3^;jJWcah9GND=W#mo\[IcA"
    A$ = A$ + "ZiUcIDfeDYO=Eo_S??=n^Lb>V]Me_CSO:OlDFggAmFdPMo=78oPhWYnM?XMU"
    A$ = A$ + "ZoNYkcmN^K_;Z_hnnS\gOkR]J^?UOV:?j6OF?E]gL2lokiolCU[Sd4^G?1nY"
    A$ = A$ + "\^mlYjOMRkY`7Y;ZLV_^YDo^naAc=aIZDcMlkK0o>kkWd__iJk]aEOMKbgO="
    A$ = A$ + "AO8kg;L][m?KZOomY`?EnchU^ljYkcGkJGkJGkJGkJGkJGkJGkMHWj_oMjo^"
    A$ = A$ + "i[M][M][M=GCmOCfYOnYO_fjomJDNgk>ngNOZnd9e>Eom;Zed^`O=lokC1m\"
    A$ = A$ + "WB;Ee?^imjn05lAiXbgE^WcI[4CUN#gNH7M`4JX_4n^jokOchkfjf?n;SoZU"
    A$ = A$ + "O>KjOGj^Nn4khjlkGGom2:HoY?LSmJ>\jGUH[nK<N:n[Cn?5o=E=4ic9hHUN"
    A$ = A$ + "`ZfBiICQGeo_ehSVW[f7jPGmkXkiLFgHRbOflb>a7iS>HOjl_2NUMX8=AV^="
    A$ = A$ + "2_3GN]mHMk3oUaklNP^aiDc;^kNbfCTM_MVc\hkPGYOh6W^ja>_K=2CfnJVE"
    A$ = A$ + "EW6Q7YmZdgLN7V:f\gSUa5IO^3l:m5gIj:6[?aN6ZFAo6R^hW<oEVIDWAj<K"
    A$ = A$ + "g9V_I[JMhbK\iNWL`]o=Ufi9`WaAXkY<3[n\M??=1n:cS_]lOZn`OEl^cPE`"
    A$ = A$ + "mcNMfg[jWM6o^_3HRgQ\^_:J_VbN#Gl^aQY;EhjZjb<mI5CE_XZWjXMLagIn"
    A$ = A$ + "4QOeoIme9aShHG^We_DVQZn\>aGAObfOd9oIj_:j\:kARbU>HMW]He^jIMjI"
    A$ = A$ + ":LVZ?jR_Kn7aE>JW\I5glg9n>m?4OXR_RN>jjW2?[^MkYMRMelo=`SOIlEgm"
    A$ = A$ + "?i>lWV[LR?K7BdI#aCim<InPUS>?GI7LFMZ4ceNTbiSbA7>L:mA5>Rac>_WJ"
    A$ = A$ + "bj_RY`5AO^ShS^_b<=ZoXZWAm#eIGUjK7a?[?Yl\\NM6_Y>_abGElEmAfLcC"
    A$ = A$ + "K^iLUW=5n8=P3F47g1k4nH2M6K6eij:jQW6_;oTQMmjW2oKQ7k\7Ljhk>;We"
    A$ = A$ + "?#W?Kg[JlnRhG?G4FWm#EgSmd??;_ElI6_cRWB?3aOAc3XN=Z?ZZA#eEgIb9"
    A$ = A$ + "ZO7;3O6?]FcC6o<o7=cX^obmICP7=S[<o?Alc>Wc>#TVcEWGAK<5N6oSdL[L"
    A$ = A$ + "EGl>i9bokVoDfmDY>ZfSDNFgjGM_;R;Df?kF3MN7c4h[bkAlO7]HEl8NXZFn"
    A$ = A$ + "[S_2>EMTjnAUnm4hknLWhWm^b\kiVK<l[n05O7nA1_:6F^g9NZJJd<1KoMf<"
    A$ = A$ + "AUia>e`^Zo9`7aQZLJWh7=KTmm>_;ig\U]_Wm\ecafmX`mMkEkX?[Vg>W_Kl"
    A$ = A$ + "V>?#cA^mNgNI7l^ngmiZ?[bIjb?AmmZ_SX;NgN2:nAG_KlIn[:GLbM0k0_KO"
    A$ = A$ + "#5GG>55?ULQ]_diiEcO7;3_B\IkoRb7UHD5ODoaM>VMne[[fk#jQXHT5[Xmo"
    A$ = A$ + ">a^C=TagCmn[:hchW\N?RoEVM#J^<mKUNeGbbh6fcRh<WWad9ZHAnQUk8O<="
    A$ = A$ + "oZNVCZcZbkXNXSn;KV3]ogaHjCfnU9S?JgFV^#ikEfQaR]J__3N6G[RWE[:e"
    A$ = A$ + "OWM0>L\C_X3nC7OgMPZJQ>mhO;hk\o;RWMgS?icEfCZ`MIn<K75jlZHEhNUm"
    A$ = A$ + "eZm`:kh#kXERW2o[nNV9`[f3RlKUmk8n:;oEWSZJIjCfcV2_Zog=NgmNZnYB"
    A$ = A$ + "oHbN][OfQ6C=V\MN8n2QGIG1J><c7MgoeIoC6gXT[Ie[Bman^jN=F\ZXMjXQ"
    A$ = A$ + "EeKZJhZhW87De4_Ml^m4DlMS[B>GAWnK3_jnG6N5[RfJG?G5cjeAn0MNE\Z_"
    A$ = A$ + "3YB_?2SkN^\gOYbo:eO6oQZo>hIjCdIjR?RCIab]OGAGDiI\nCVO>=n\NTj^"
    A$ = A$ + ";V_Zf;V\G_CMcDiGf^#6ODIo#6g`jkCSGIO2K7#ghWaSXkEEWjd7[Za?iLg4"
    A$ = A$ + "a^Kl[l<WclTa_RnZB?9;^\IOG>S]oh;RoWg?J6LZgmZ\k8bO:J0fIENg1Sgb"
    A$ = A$ + "hQ<>3aUEjMAHHm8F><enoZmnXN>bgXj_3NEnJ7hcfEYL>VfgM6Zjcj4OT>AE"
    A$ = A$ + "3e1OV>2YKDVALW]bd[o5\XmH\MKIJ<Ukad_ImoYaWM64NdlOWkU5KUik>i?b"
    A$ = A$ + "?EWIZROE?jZOALMEmOeL`=OficW8nE[OF\IcTZeGgncG5?K70RCWbDSodhE["
    A$ = A$ + "WEOEa7Ma6Q9:WbNNfIk\W5YUDV3EOg5:okRWYG#eCGlAL:;F:JOUWUegLNFE"
    A$ = A$ + "nIbh?9n<nGM>AAokj37\OMCEc?9o?ilGGl\mFC7OGo[hS8l\NIG]>;7LeMOA"
    A$ = A$ + "l8oZ<3hfgObhkDo^k?c`ZDO:i[kk>nJhcfIeiMQEgk?icEg=ZVSIHj`O\gKT"
    A$ = A$ + "mNT8lIn=R;fEOJGJk\c?5NTn6MVYa[VW:jBGMN7lZeo^RoTi_bLGVok\cdYG"
    A$ = A$ + "oKcDh_^l_:GfUkkP?Kni9`?a>j^ioeVA_dIWKd_IhDhM[o>cL:_7FeOMg1lU"
    A$ = A$ + "`7]W5M?UNIDO#97NjWcnM3Clk1Le^\h6acEcOgjIjj_B=lK3oe>[Y>cY^SYK"
    A$ = A$ + "?o_\N9KnjY`7e3jZYn:e?KofCboGC_OgIOcdhMkgk8nMi`CgCo;K[__mWgkJ"
    A$ = A$ + "GkJGk]ICngoMjgWO][M][M][M][M][M][mGb^o]CGkJGkJG[ZemM7?ekNLog"
    A$ = A$ + "^LjlZKl_hW7_B?ZJO\[>hdceXl_bIZDC_INh_^=E?NWic9RoYcSgReM?fO9l"
    A$ = A$ + "C5[ZkH?ekMVlmN_mgKnKeLimCmKO>m_ol[WooeaoTjOToNJMgKcDk9W>?_F]"
    A$ = A$ + "nCeNG7]oo`dIfiWnXC\c`_3=mZ?kbmMi`9jUoe`gM_odiI5mO4V>eNeg9GQ3"
    A$ = A$ + "^fcJWjg?eim:>a]jl\Bng9nOMlWfV:o?UnodhW#oh6ogTnIJMHeWo6<FnGUC"
    A$ = A$ + "j\gX:n^k^bdeCa=kVgV>gjV;oU`?Qf[S6H:MCf^n:io?_O5Od9nMZm_0n<NF"
    A$ = A$ + "E7Yn^Kf>`ZHkPg=gSddM`GI>h=IWVoNChSh5dLf9j3_=l^lA4ok6oMboWhi^"
    A$ = A$ + "mWY[m9i`enCWNfJ?_274iS:iP3fXhUa3\N^bmHmQ>JVZlNV?n;S_3W?Qnc5O"
    A$ = A$ + "Tfa]>RbSZeOEnC]fkn>^_8n\g7Sha8=1RWEj3XHYDoZ_oD9^>WYb>Q^c#^l6"
    A$ = A$ + ";oojhk`oCPgMn\CODagMVQ#nB]nD[IehnClAng]nAl_C]iFS:mnZhALQB<jD"
    A$ = A$ + "oCI:J4GoiXOIhMmATVCM>RYYEZEWihXMJZmM5ojh_\jZZVj_8n<]W[n3m93_"
    A$ = A$ + "jgMZOEmh4i_3ggm<OElAmU:kPbNNgMhEdIMfkjNV<>CA?chGF<Ekk8M`4h[H"
    A$ = A$ + "CRgEoUQG]^cl_CoLZigYWObR5KnUaa\I;5]0:?Z>ocb?eJPY5g9N4f\NbTeo"
    A$ = A$ + "DJ?eNK5O>5NE^_C>hPGMOSj<XKofY_eY7dEGm5aWeKZP]3o7M]2fX?EacZ17"
    A$ = A$ + "lE[OgJ]ZonbhAkJb^?JGSbn=VFYbNW^?_ZaV_R^fMo?Z>Hc7In5UC:ejdlhD"
    A$ = A$ + "l?kmHCGo:JF5M\blFgIWM>o`hHF_AY6#jOElAlhJ>SRK67<Ao[3NWjWY[[Do"
    A$ = A$ + "MWOAe13CT6#=F^hAJWZco:n05OTFAA7inM6WXD;:mD7mFGlXlo;R_B?HJlM["
    A$ = A$ + "YXib:hkDoCN^\cnUachHemO\mm:k?Lgk>1nekc`5mmekcfCk4?67VeW#hb`["
    A$ = A$ + "ZMDbOen`4h?Im?UY<_ado^cnZiPSoSdl:c^:J1d<E5^NBnG=oO:l[mSZmn:e"
    A$ = A$ + "_[nXKocMWQ;_S`_b=IkNHeoTiNfLGVoDhc9j5ZmE7<Im0Gl<^[ZNl9`clYKO"
    A$ = A$ + "8:Wbd_Zm4gjBIODE>]2n9>_cLdG1?J^aM?Jfcgm>l>hEaUiWg0NdlAdmc`[Z"
    A$ = A$ + "OR`GMFkg0n>m?FO<[_a`W=OoFWoLhn9kO>ePJ^5e;N[hcdb8lXnXZ6QYKAmm"
    A$ = A$ + "ecQVGDlO7lAc]A?SY5WL^3UkAn;jiZi#VnaMn9:oIjmg6Nei0Vff5OV_D^?["
    A$ = A$ + "WF9WHcW^i_3NUh[T3WPkW4_j^_9`WYMMd;XNCWMQ^JWZmLG[SFK7hEiO4Neh"
    A$ = A$ + "bRojcgMlkfo>IoGQ7EhXXcjR_clGEl_5n?K>aUkIhEkmZhS>OV6OmJd\4ZnI"
    A$ = A$ + "e0B7W5OEm5R3#a2io<mU:N5M\SfIRi>f^P:ia^fMTYoZ<GOJl8>F9fEa7U7?"
    A$ = A$ + "=fY`oUcoEODE;LBl^m1f>GfLUjnS^JSMEoCXE#_KK=ObNoIGlAL<jm:XhZD["
    A$ = A$ + "_QhOJ[Km[h7Uj>j\>hoZFgm[[g?JoW3gSd0Ejm^iAUM^C6ODN4Q?JG0[WUaQ"
    A$ = A$ + "Ie[2?Ph<GlkVcVXWcbS\kibOZkNjVo<=PKmG1OelNBlE`>1NUNl>ao6bogBo"
    A$ = A$ + "#MWjDa?kLC<CoEhOeg?TaMIm<fkC#kIEN7NfkObjQ\h[XCHa7YSV>nWfjFo\"
    A$ = A$ + "nXc_S8BWZRGE__;l>mOGL<<Zc#:m0TYbIEgkR>[ROjVoElQj^\\mRkR3MaWY"
    A$ = A$ + "YDbg>hEhl:J`XnA5]Wk^;E<:L_;NWjE9oM`GA[bhQW4o9SMUNfda7e?kT;Md"
    A$ = A$ + "2CXSjnN[ZLAUlO=_[D7EacbGgmSXMBI_cTi?6nXnTjkRMhggDl?]e]nInQQK"
    A$ = A$ + ":l^c3CSgMnf1733SkVL?B7\Ef?i`EC^gga?Zk7fQVJ:lXmgEf]iZiHGkD?\g"
    A$ = A$ + "5Ydkcl5;FEjAAjR>iL7^J2l>jlWN?mK3O7]cDao]b;MSmCW3XIP:cCEoM?E`"
    A$ = A$ + "[l^k\OoB5KBlMkCOIlWfV:oMn=6EcSg4_=En?Yn1]3`M7DdN8E<ENnDmPZeO"
    A$ = A$ + "Fmj\7>kgBE]?oU\ej\k>b_RMjOWe5oioM^MSOgHoKNnj[IMomoGkJGkJW`jn"
    A$ = A$ + "gWme]:eojoV6ZokNXh[\kM][M][M][M][M][M][m?ci_ihJGkJGkJO?[b>N6"
    A$ = A$ + "V:okF=E=Dmom3m6`?5?lfdDMdGo5d?OmlORjoWJU<MdjIo=JXJk[DgAiiG9g"
    A$ = A$ + "WT3VLNGaGAkLk\7Nglb5ond?8LCY7?Y>jYjGoE<E>2m^oe_WYQEdVkng<]6c"
    A$ = A$ + ">H>]fJ:^igbLBG]cCZmN3Fd_mn4hW0CUofSM`UE[c_>nCcOIjPMWgCc1Z__\"
    A$ = A$ + "[_ShGfk^MinMTkEgILbOooCVo\mS:aIRj7YcNkfGYGo6`[nNgEoemgWUm<ek"
    A$ = A$ + "?U>Y3VC??<mniCWWMOgIWgOUm>DDO>boXHW=3UE_Ai1J6AMf5U?<nIJlEdB:"
    A$ = A$ + "m=G]#eWm6`[DK:nXCngeV8nMVoW\>DS=KgQKMXn>K7\Zea^d?:koN2lEeC?M"
    A$ = A$ + "ncNoR[fIbLgE;4QOg6ZnEcEUkoK2oZVSM][n[bk?MRM7]B7<?mkVLiLen#EO"
    A$ = A$ + "<A\W\?bfoEa78\AHnigcNFVF2a_k#ceeGW0OfNR^J`Z?K]OoGliCHEho8]0["
    A$ = A$ + "W[^7XRn\RVCii^W3]3Tm>0de^m]9d4Zia>aGEoORl7mN<ELAa^JoK5_Z_DNW"
    A$ = A$ + "I5lEji>k<ZLVO3h[l^g<]:K7VZ6;kc:e#EN3QIWk>Ec54_jd7AkYb`?ak]jX"
    A$ = A$ + "obbMgL#=oDdoXLJ2m3ZoEQoj>3e1o4eOUM#CeoO;?7a3:ll4a_[aR_BNU=oa"
    A$ = A$ + "Z3d>=7]JUiVXhh>3iJ>i>3CgjGQGZhWY`G]>>EnW=3`f5PfSZZoIJ47Oh<ob"
    A$ = A$ + "h>WHWQ;c?EZYOKh[^k1YiDeQI??BocfmYXWZbMAHZ>C=UQfAhl^04GS`kdc["
    A$ = A$ + "fk#WC9GIJ8FoDAkRVW#W?S;IgK:m?:_Ee>M`gMnkWO_Cn?5oUeoEegEa[Zog"
    A$ = A$ + "Inc>7SkEeF\i9D?GINMGjo9ZMd\_jl=[_S`]SI?F^jRM2l:lnG8oSd7ZjT>m"
    A$ = A$ + "_eL`AWVQG9gSZMG\<>\J>UMfO3h[^o\bn3T?Fc9dILiP^LG4V:hWdbfch^7?"
    A$ = A$ + "3KV_Ld>Amc\H[F[AaG5oTco^c>Ijj\lSQAU3Eh8EmC5nM2^WQYbn[8oZ\cB5"
    A$ = A$ + "[Z?jRGYngIn[d?cd]MjoEdK\mG:c2CaoZe?JoQB^[hG4o4MFWI>EMXKncd4Z"
    A$ = A$ + "hIma:hk6oZhIe#WM1^JFVnE5OVn[RV`Q3Ee3kHghG1OWiO47[ZoF_?;>CFoE"
    A$ = A$ + "W=kPOBS]k7m9c?8OajOAld^dOE\\JGU[W\o=1VXnUknc\N^Z?#ci\m7MZOFM"
    A$ = A$ + "Rfk7YQEgKiZSEeGCPOU;DfKZ6OfL\ZnJWmOeLORm7AeGfe:m=5]QBmbnDa_E"
    A$ = A$ + "S?cOC`KXig^hMaf9nIlTC>X<[i<cQfQd1O7>I2l>lG4O>1WnK3OWMWIcM:ke"
    A$ = A$ + "RlAFNbd^ZkOkFk^k?O:lAGWm9R7RVE#m7Uhaj?CXoL<d^15=bKBohj76_P>S"
    A$ = A$ + "jccd9k\oijS:j#Fn4EoXIW9`ShHD_H:lMe?:k7#iB6oUeoDVmE_g4jWZWC=V"
    A$ = A$ + "\LA9n^hcd#Xn\jiDeF>hAmJElAJDghk<?XT?^J<Wi9Whg9o[`Y>c\<MTSN#E"
    A$ = A$ + "Ko4h[bKEROeM?ZJ]Xic<OXX9jD3CGoE`7=Od5Oeic>na=V<n_[?ZDg>JHTf]"
    A$ = A$ + ":og5o^jAIe^jNT\k?=o=9OPZGeMC<lIcNCS?K7a>R_J^X4KE]YB<MWOEcMVn"
    A$ = A$ + ">RkEW=D?SR?HLAE\:cO\NRK?fInmYaSVgD`65k:iOejF5_c<JeHOBlCiSCF;"
    A$ = A$ + "XMgEd0:HWHgQ3fZnPE?>im_5KRmoMd0MSKd\bJ_V]G];nXIV\J=3W:oT=OF5"
    A$ = A$ + "_KOH2]dTh[<G>Q?Hm`Em2SkEjQk2_2okFoES?:?Hm>5OSl1KnBE[XVC^jNVn"
    A$ = A$ + "_R?HWQEoAjMVo#lKEn?coZc_M`g=n>c8ZnX:nZHIm6eL[Kn_[Jh9RM4OeA;N"
    A$ = A$ + "Rj9J>HbMP\hY^3ZJ?OZNL6Gk\kd1OUmo>mQ_\Ynn>Eng5_SoWFok>SVMFEm["
    A$ = A$ + "J_XZ^[jn3GmBGOX`M8meCcM^cA>?KZl_Ko7e7R>GFmQlI7MBWjN2n?b7<m:K"
    A$ = A$ + "n93[b\#EN1MV^a8SCZP_J=VYA[d?ZhSZjg^JoC5o9`?U?VPCHkjN2lC_gOW_"
    A$ = A$ + "oA=fZk5MWWEi9fn_YdNEeY:lVB=hd3D?;RSN:ngmLZJNgiWXikZhEm3K6hDF"
    A$ = A$ + "gmSCDG:m0eHeIGPjn]ZaE=gMfijh3fl_jl1[VHm[M?7DUkVRoLjUIkYAk`E["
    A$ = A$ + "9eL?ZWh43Em_3giPGAWj6o:i#7]j4Jn^nh4fDeodnMRgSDMoSK_U]c2m^d>_"
    A$ = A$ + "OaQ_jnna^n6M^MY1gQ>kDePbko#JAeL_2n^eE7<MakhWgh>n9ZoYZ;UOWS[O"
    A$ = A$ + "j^KAmiW^ncZgE^#e7XkUUg\m3WL?MeNQ[nYjl4RWgmncCmk\F[_g#n?a_gkY"
    A$ = A$ + "co9e3?]mUf9lF]Z_S;kgWYlKh^m\[M][mV\Zok?lKaZDoEN70:6\gaL][M]["
    A$ = A$ + "M]__EIgnmm1GkJGkJGkJGkJGkJo==UoK<PngU2i7Wo=\^h_hkPWi_C?WeMVl"
    A$ = A$ + "=G3Eb]ORiOG_N__#]O]lnKWng4moYRM5oLjj_Cn_km?MmgOMlGkJZf?eJk#c"
    A$ = A$ + "i\W8k\^of_ehLao>`GACn6`cdX:JkORO7cD^eg>b[MIEb]\JdAcNjjnJimf^"
    A$ = A$ + "jo>hGmS;V:?k=EoM`WMfZmP<>\Z_n[SoJ_GcimGEm[;^X[[D;\ciRoWgodon"
    A$ = A$ + "a;nnhSjiXIPMPgEOSd\>?Sig^iU[_cbOUNZC?X:f<mCENbEodIGlKeD[Y_#]"
    A$ = A$ + "g]O=Ao^C\c`_cigY[o>m^9Z1GOOaO=V>gInk4k9Gk_IOfQ?Nbm0:kOFg?ZnN"
    A$ = A$ + "KfeZHAlDfID`kdGV<o?=nZeOUnOfLSc<FeI2VNaiNC>O>en?Go>Ao_JM>Ao;"
    A$ = A$ + "CoUm\>mX>LHfiV2_BON7aOWLYC<cfcEESG1G6nM=o^3n?RoZRMRJ`=?n[R_j"
    A$ = A$ + "c?]V;:fXMEXc[lk?V8ojD3Zmi\?W>GGcIde>e=K7BD<DjO\[Ea6Q?jn[mPZ_"
    A$ = A$ + "Ob9n8]12_R6JGa_Jm[h7DO:b?8=H4n>cDAlAfN77>fMgUR_[hS9l;R_N;hMe"
    A$ = A$ + "b^hb>WB?6MV^hIj?5=`4aO2KZmC^cNCPGim?>n`5kDhkDoI_;[Z^AAonG7OF"
    A$ = A$ + "?CYGFm\McSZiNUJHB\EW[SjYk`He::nC<oRl]CN[^7::?cdGAeRjcb^W3gX4"
    A$ = A$ + "O6_ZP?jC7lESOejGa?IiIF]6YK#hM<VnQU3\I4E]odVk\gDlgG3?RgjNVXnP"
    A$ = A$ + "JNf5OG]g4aO2c=gcfYi^[[jcN3m?WmWCco[L[kNCUJZZ6ZSfm[PW]g7e?Sh9"
    A$ = A$ + "GOd97Zj[Za^KNWUoXI>Wi`XNAD_2QM=^IW1=cXLOWI_<oFEk4]GA9oSjOCnM"
    A$ = A$ + "7^9S[Hj24n<NG5OWhG]nAJ0d\1ZnHJ6Ui1Wi<5M<S_Lh24gF1_b^5d<L7nk["
    A$ = A$ + "QWiGTf[J?d97ZR_SnIZl_:_[ZOSfYhRgiLEVMkDOZOg]gGMoPccEh87=Q;VX"
    A$ = A$ + "L]Zfm;QG]gW=o\nYb\VBlEd0AJlXM_^k_Rl=;nMkCXLWY9Sj3InWa[XL1Ec\"
    A$ = A$ + "m?>LR2?Sh>Vn=BKTa?XcPdcEak`=ZkZDR?Ck\khG]nIn1YOEbMdI[<oWY]Ef"
    A$ = A$ + "1j`a<OUa]E`cj[:cFMjoEioCP_B?X3fWXo_RO]Gmdj?GMZ[Q`[hKVfbQkZVk"
    A$ = A$ + "k4_bcb>CDmgA7GMn^:fXJ`5WKlGilZio4h[bI^k;Fa6Uk<MPcLKUlQY3#aB9"
    A$ = A$ + "^Ic8XIWEOj^OAAoeI6<B;_3m4RkHkoHkY#jc<]1BcXPgQKbR_BM_ClZjl9[O"
    A$ = A$ + "UIdX?Ee#\nL5m]Cm[^CYb\:J^cI7Pc\G5LInI2lMkOEik9ioEl8=kThcj5EV"
    A$ = A$ + "IjTo:l4BoXbo8lEnNF>ZNn:c0k2OUkUe3HjQ<M8BkPdB:WAYWYT[>na1Kel7"
    A$ = A$ + "e3Lak\_J7HMbI6?`d]CS_j\?kn<]AgiO5ODA;GA7WY9Hcl^e_bnZXkQja:mo"
    A$ = A$ + ":J4El^eK4NF?]BlMi8gjgYfIcF:jj9dg>cM8nS=kh<3gI7Pc\GE\XiYZnHRn"
    A$ = A$ + "W;N5>dIfldhcV1GmKTObV5#hZV;Ahb^7BcVEKAe0kl\NQSN4aE:L#GlALWbl"
    A$ = A$ + "VZ60ek[FO:JDeN#F>Ge?E`F=oIl[B>G9gkP];OYj?gIa:hAkJVhMD:k<kdSb"
    A$ = A$ + "Vk[\7;:WMhPZaFa#m75\I__HZ_kZ?EboOboE`[FoXi6En[Bm[jWXl<;oHLH5"
    A$ = A$ + "M]bLRKmG9VkbVH7BehFm\Cdof1o]f[Aa9Ck6YIbf1f1_BoGQ?k6OFNXZMHhR"
    A$ = A$ + "b=gl2mLekWa?Zk^g1NUjOJl8=DTFZRoE\>hEhi>J;ghG=f?9fWbLb]Y[S9lW"
    A$ = A$ + "jnGUNTC_d=gk^O`ECY\gS]7da7AeBD>R>S2N7>NblO2l<=j>ZO5oTUW[gSEk"
    A$ = A$ + "IhM\8mR3ok6?EL:m_MHM[o>hkfoVTGRbGE]m^i?E=BfcEVcEbOG>TiS\mKXM"
    A$ = A$ + "OAJ87l:m`<OchFUnk^akFokPoDe0[e]SFK2lAnP=WQdk^i#46gloJaJi_RY^"
    A$ = A$ + "GfYn[>7TY7Mec:eWbN7flUS?RZU\i^Xca`GAO>Mn?EmWe3gAmGYo7QGEKFI?"
    A$ = A$ + "OVN^Km7m\\jfao?9NGo?9n9jO^hAj:6oY`UEc96FfcjfWgYnEI^QY_D[a:i?"
    A$ = A$ + "C3XZeVNnh[QgE3dIN93OUj]c<KGlC\3kJOGCmg=mDi1jjZe2;N8OhVW\Mh[_"
    A$ = A$ + "?GiIIg[jk7Aa_KnO:lE[OeIPXM]CQgM>aIfmDccE\_Hnf]o=E>`feY6?dlV2"
    A$ = A$ + "V:?OB]CUnTjnY:j1gmCGlW3OTNR]7Z[fN2lEan6bo[M]_XilkDnBoVV[M][m"
    A$ = A$ + "gcHk_>Mnm6[o\om9nJoM\GkJGkJGki<don`:_Gidioe^fe^fe^fe^fe^feNF"
    A$ = A$ + "3monB#o_CTM5OgogOBGl_1[K^oG3oZ?>=ngZm4iIUH\>o^SHf]?MRnL5=g4l"
    A$ = A$ + "odjo^c:oea7iWW8nAHnJkljf[Li^9kaEWe>=7nKbjnnnoBhAWkOGoc?InlD_"
    A$ = A$ + "o[3nCKMOom5oIa7iWC[YV#S[Ro]=oncN#eNb:nW\WEU?D`5M>gHR>_k<cK5O"
    A$ = A$ + "GnMRl?bOk<nEgkYh[M?;D=?Ie]:nOnIUj\kcOC_cIRiWCQ?S_W#?eA?lFa?i"
    A$ = A$ + "k[Z^o9KG92o?mCelO2NHBN[Z?n[QO:=ldmnZ_7AEggiMKM[YYSadc_Ima:lF"
    A$ = A$ + "TflYNoL6_hd_Me<:l6kl>jhZinCP_SFo=ToEa?i^WXcj>ohR]k>bZH[>W6Q?"
    A$ = A$ + ";7LhKgH?YUaOEe_?=n\nQKO=;nEe3ERoCQOm<Zk>Rh4en;:OMZ]\jE=oGakb"
    A$ = A$ + "c^6:VZe0CONJlMW_DkQk2o4mGGOeUoVb_IhInXB<j>cQfSTE3EZ55\>J>5OQ"
    A$ = A$ + "li>d4CXojFk_1lMeNW>o?9NdlbjWZj[8O`j9>iZB]GA?hXU#i^j\IULfIfF9"
    A$ = A$ + "?FONF>YjoW6?ZOhfC[4cYSoCQ?B[Z\k8RCLeHAiKF^R>S37Q`Wmm9<D<DkcI"
    A$ = A$ + "LOf^JdNL4NgNOUiS:e_:oiXS[ToZm7D<ShS:ch>l\K]XR_B<#cOE[O5nEIn:"
    A$ = A$ + "S3Ak_ZHZJ8UNYjl9J_MWl_K]?5n:gcE3^[h?1N6WY4o:hE`Y`cEa^ZgMj]EV"
    A$ = A$ + "CEd3^j9Gn6UoZaVamXkGAC7Mo\jMBl8oj\OAQOD]M6oW4_;?DAKZ>oDi\:kI"
    A$ = A$ + "HW9bOkX6cRMDn5];AMn9CO``[F;k2_kWER?;OV#7SV_De9M>GgIF7lEmodhA"
    A$ = A$ + "cEIj<F>`VMDmUClRbEWnXklYjNOTVXcm#e[2okZQZ>KZVoW4?[G]Cn7Q9jc>"
    A$ = A$ + "n`InJ2m_[NbACRhm>i_jlP3?dAkVMn<]gDhIlIE^2QGQcDS_b<Mgl_ZVGa?X"
    A$ = A$ + "iIG\Ai6KgPBNg1_J?_Zi<oU];9jIC>oT5g\l83_3OPZoXNEf<SCnShW9jcZm"
    A$ = A$ + "`8L^LVjiM[=gm9C\oJ2lZjKehkXOLdN\HFY7dEgfInea7:k0[R_Rfi=UoCPW"
    A$ = A$ + "YI>ElcV=IhGaRje\JU=Wk`SZJ?E>Mm\AL#UmDZc4<oPlIgm78n_;n<mDT^#Y"
    A$ = A$ + "?We[HiE5lAjPMUo8]WKn[ZObR9:Obb[^cJM`[>kZ<3Q`65[\nBV_LVOHecTc"
    A$ = A$ + "O:L_cLUjW^i_blHESYKbdXMi_\ih\Lbao8=OVNF]6V6?[_Va38^DQ?VHoCF]"
    A$ = A$ + "TEKCJXm5:c;\mK8nl]PWeKHkON;hAc28lMh_XH[XaE[?5l>i9cO8]_Knhnl<"
    A$ = A$ + "NTEcC]O8KfG=7Dm?jnXhiRGI?Z;?7ecf5n8^0=K[^WDiL^ch<]CFlS`bdUIm"
    A$ = A$ + "_\i=FNWQSiW<>3mMejSmMFO5Uk8MQB_3YODh`MQGe?MR?;Ojj7V6QQcI>TU7"
    A$ = A$ + "^eWR>NjlO2l:i3BoTm<d<F6O[b_8M]3o?U^EUoDnNFMmFa[doIj7d><dIN3h"
    A$ = A$ + "k`OZi0bo^eQ[N^Z?D?K6F5OPVgL`[NNWJ_b^]9NNV6c5_2gDQ_Hc;CRGIO<3"
    A$ = A$ + "3;nEd\[GWi7UlF9OcN^b>7dIk^odA_bZ_^gCI?BDO8ZnRlQ2NF_7QGMfIGaG"
    A$ = A$ + "E3g9oEZ;WIBWL6=3Qd:ILWKM``D9gkR?BScfM\foc^>jkIhEd#\cFAo<Y^E9"
    A$ = A$ + "fZc?Zgo=P_CoS=GSlcK1O7n;SK#WaQOEaR>[2OE=NEl]R?EWiEjUMR_;_kXI"
    A$ = A$ + "#W[BM]R?KW?ZFAi?JOhK2_R=ElMc3gN0c7[mHUh7=cj<[5U3>LcT??[^DV;D"
    A$ = A$ + "a7ac8Ochn<l:FelG5_j<Celg9g>UY<cb`mfZ95>7]G0YOIW;BO5Q_bn[eJ1i"
    A$ = A$ + "[WPoLWoMd8\mSCQgMF?Cc[>;\SloTag5OTn=kI:a0e3MeeZcNE]MkgZem4a_"
    A$ = A$ + "3_Ge?_1l[hnJhOZjgiM7XgQPNG7jIAi[JlW2_3Ffng:hEe9<^G9?N;cWXlgA"
    A$ = A$ + "SG9n\lYSiZKZXMHJ`>e9KnEag>J_9j;Aj7Um48m8BGVMn\_[N6DN?UnL2m?B"
    A$ = A$ + "oa>Wb<0RWEdQAJ#D\SlOFLERMUj?[g[l<D\L^GWcZXQMeTEaRjYkHFJgcWOa"
    A$ = A$ + "lY;OOBl\moO1lMNoQClG?SRQbA7O\V_EjaCP_Kn?Am[XCHLOdI#?SY1RZ]Yd"
    A$ = A$ + "W\lg]okZQkToZe7CcDEkPd#XjB9GZTo>LX3GGaWAk5DdoIJ;Uc<Ao35kMKIi"
    A$ = A$ + "SkmIi?2CUi4D<#koDhRZc0:nO7hIiYj^S^lOUcjZ;[jW^iceNfngY`[\oo]S"
    A$ = A$ + "_SVg9nMhhYV3knng9Oom9\egaabi\jo=P_Rfa9nXno4hobfJ=4EGMjCCLf\c"
    A$ = A$ + "eIfm]\o#]nkllMYKVDGXbGIn[klZKlW4_[VI2lAWAmN[gWEoEhc[M]_TMbm7"
    A$ = A$ + "O=lXm4olCdI_fe^fe^fe^fe^fe^fO73m_;ajWgofQ[M][M][M][M][M]of6k"
    A$ = A$ + "oVY:ogcX3fZiiKZnoWOL^NZhOJlCdo_hgolc^gOLji?gH]SiWZiD7<CPga7_"
    A$ = A$ + "A=HGNEYVn2elefS]cM_MWOOCFgMfW6?b7MiPOShknNoZnX:VM<7?EnWm>m^_"
    A$ = A$ + "[o]KCmk_LSg5_WF^c__5=geMNL2mC5o?Qf_ZoSjoMWO>5n>J;6?jPeMFaAOG"
    A$ = A$ + "]NVNFKRHYNf9WAnbF7]NfNZ<Onc?Ge1[O^3MddLU;_MBl:_SSiooJhcd[:_k"
    A$ = A$ + "PYiE`jZ=ga<AeL9;_LOok_5l^ma:LI6Vg2nZjWXiAUkeMn_B_Je7C??fQoLd"
    A$ = A$ + "d^W_3FFngInk9bOeJZZ>hWJLUHYXEEemZaZjlSk\FUJG9ofMnoKdbZOgnBdW"
    A$ = A$ + "XcU]cU5GgIF7OdE_XhSY`7UkMf1DiiAG?YoO3?W]g6YURnd5kK`ZT;CVo^LO"
    A$ = A$ + "fnUCS7a=:WWYSR>K4>6?c`kZOMdd8l:e7CoaZoZjLd\;SgEeoZiIDl[XSIjO"
    A$ = A$ + "gW[>?Qh#gLOGVCo8Z6V8n^eLfIEl1[7bV1DlYKmjbWXcGYgl4j<4Oga?CVGE"
    A$ = A$ + "^_[6LRnbDk>V#3F]_<9n\[[XoZllX[Wdo_QWWEO:J`X?cRA6FG]P3n^cS^HR"
    A$ = A$ + "hEdeoF\<=5RK#J#Em#4NenfK4_SoGSEdgcf7hX1cVUEj;ERQ:NUMHILaCmLU"
    A$ = A$ + "MWCJXn2ZgG]NAmBf\\[f#eO8=O5OD]FjVgES?COn4iOG^ZZf1]O\S^Q5;FNT"
    A$ = A$ + "eGEaYFG\idZjX:LY3O];lZkKEdN^koSR_;n^ao9`SZ?T]REIf#]O6Yg[P_SN"
    A$ = A$ + "]S6GQcHLSb>84?YNmJ>UE3IWSi?WcWYMbZc8lZm=6N5nI7agMf;BSXj37]^b"
    A$ = A$ + "\Mei9gL:Zfk`1\kY<;d1?Z^bZEF?bYocb[ZcYEdJCh?FMjTkZm^9cIVfBMnX"
    A$ = A$ + "k<_B_6aI^mGT^_R?L[eZO?SgLdN[j;Tf3i34Wh`;CXMZ4g9ak^G[J=nG6?Cc"
    A$ = A$ + "Z\7=b78mHeL6E;ENg#fmMh04Wjl<47FiiZGWYU#mkX[IjAUc[fo#i\[^WM?W"
    A$ = A$ + "cf=n^JN4oZVk\i3F_<[_iDC\n^3WbV[AjAeM28l\HVa[MgmdaRb;D=[>W>In"
    A$ = A$ + "RlEfmbdU^i^CMX^oT5GFoaQ_LioXlF9gcbGWi2WIQXnOUIX8nfAoiX9#nGQ?"
    A$ = A$ + "AJ05]n^e?XIDeiWY`[ZQkdCO:lXM9C5oZkiRd;:cN<OPdR^L6Z6IL1SckboI"
    A$ = A$ + "LZcc#JMeWWiGfmWPoDeAXhGAkahFUn`K9n:iGVnCYWjZ9Hce:nDMFbI6\[n1"
    A$ = A$ + "=Om4hMh673iKfcFO>:WEjG8nZCmiX1IWG=_M[QZHAWgUoZ6k\[AmNWM7Xi7g"
    A$ = A$ + "iY8^YjlK7^Va[\[cZ1dgMeN?YnMRWW]oI7h[d_Ek7CQ?ZFV>n^mj<\ZcN<OT"
    A$ = A$ + "Y7[`IXJTiOFnE]nALJflOVnEYnDjaXI4gIk>gCY_VY5Md]>JI5lIkKDeGMbO"
    A$ = A$ + "ej;:FZn5Y1cZi\cZdoMVc[LNUn>K6f5W3nXc`j1:j7fc#iQ2ocVMLjC^k7Dl"
    A$ = A$ + "WjcDS_Z6b]VkR_b<2ZgYXY#aFA[if_ERG5O<QfbEkD9fAmg<nLgcNEe_^ied"
    A$ = A$ + "eO7lEkGGlmNg;c78]<B3`lWb\RjmDWKDb5Em[JMknl:G?Q5U?<mJdi[XmRdQ"
    A$ = A$ + ">jn\hWaIk<n:iG67gEoZXYDaRjm<mS:7FEo`j9C\3`EoZbC\cD5ODNQbIWm7"
    A$ = A$ + ":LVSYbm:gG=W[P5MMehk<K4=;cdoILL6WjdWA?GYFMVS[TO^nCQ7SNVjlKFn"
    A$ = A$ + "bbSXhX4K5]GgM?XcV]gaMgI5l:e9j<_ElAG?MlEiM6F7OhZgDV?bh>fmFmQK"
    A$ = A$ + "\Aco\[SR=ZoZlLUJRYObbIVncInEaoZj77=UCmmERoD6Jn#17CSTY9c>[Blb"
    A$ = A$ + "bMFMDUoEWYMc9E>O7hEeEXNXSfJ2=ZKLHL_S>F9nEk?:jX:L\Bmk4c:mO5nA"
    A$ = A$ + "9NEiOgL_B<EgidQ?EmSkNeXnPSf[Cn[^3NWhEWOn:?GIOFgh[bkXnP[?#jL6"
    A$ = A$ + "?dM><SS#J[8l>cL\IAUj5mLFnYR1eOHJ86_QbU9d?:m^\cnFR_SUeS[P[SoZ"
    A$ = A$ + "doEe38^3YaEZa\i;fLZce^iVJocMnVM>dnV9VgWBWXZ;chJFlEO^[Oj`Gk8o"
    A$ = A$ + "gQnkgZiD_<^gi<Ij77]?J6^R?ZFk:WEmM`k4?ZFoR??jjYS_:_Sj3Mg=bZCF"
    A$ = A$ + "<[b9AWE9WWNo9KNEmiE^6ai<=B6gQV_AWWY5AmOenRCmYT7C6OWjSaa:cMMV"
    A$ = A$ + "GbVMLgQT=kQn^CnahIULVa?:Gk`QE>G7lMjgE\W0;:7[>Wh<ODMFB9GZ>k[L"
    A$ = A$ + "FeIQO[FUj4m^Y>n#iMO>m`g0_]SmGCPOUgLNfOIlIjEUm8>_36YUGmIDLFS5"
    A$ = A$ + "3?cG8NXSncij\n3[oiFoX[AeEekUUo\cgAkmF`Sd>IWUi;6VCKXI>UM0XiaX"
    A$ = A$ + "JEM6a=n?5N67ZbeCQG5KecOJ]iTWo;EkGcg>Ao]BlNSJ`>koN3hInY;?lK4O"
    A$ = A$ + "7MhKD3O][M][M][M][M][M]mJMogOkJGkJGkJGK2kdok_M][M][M==;J?[jm"
    A$ = A$ + "R^o^n_3UKn_n9bO:_SIeWW^O=5o_kg_Z6o^ioY`[XIf]N#=VZJhgl_m:KfU]"
    A$ = A$ + "_j]ZOnjhIJXYgG\KlC[?EVg^fi<5]RjlSC\V:nZi`9V5nRf4k?V4kC_oc1oo"
    A$ = A$ + "^?B?6m<4FeL4UkZg7U[^LV26f\kT_oeY>k4oMmNFgh[Ri]QgESgYG[X;AWWi"
    A$ = A$ + "_Ye\?QajC:j_ENSM=J?S[f#1OUHlVj9MkW>nH2];ZohV7EaF9nXM0\iNehGY"
    A$ = A$ + "VNbm7^mn^cOEi3UNVBo]jlaC`k>mRg4NWW5eK#_CJWaoYagMo\2_YbSZe7Cg"
    A$ = A$ + "XZ_LWYbbmXIIUkeM^4Uk>cA^cIMbIWhoE`kZGE`]RGe?:eGWNFGMa4J9Ul^:"
    A$ = A$ + "O7=O6M=jN[m_XL;3_:o[T[IeYSNJRnUK?iThSVKDi\\i^\__Cn_CO[jckhkM"
    A$ = A$ + "fgIn:Jn3ik8MBWNDUgY<IlMh`^j>emC?=NGn7MOfNK6n^ao9a_RaAo\>;Y<o"
    A$ = A$ + "6=o]RUUk^cIIi7ZFLho^kOLZQ\NHF>Qj[EjiZVjlTS^i]RWa3Eh^YlSCNZZO"
    A$ = A$ + "[Z9ZDoZc^:ckkDoTm9:gb`[X3R`cd98<CYoWJVY:f9`GInI=^[hEcSXnRC_E"
    A$ = A$ + "AOajMCa7XN2SkLh<G=\b<U:??QEEK>5N7N\KMX^OZ3Nem^Ek18=4;n:hg]6J"
    A$ = A$ + "bHEim8Am;gno4k9LjWAnPM?ULGE_h<;Z^[eaoEb?WM7Zl1R3[lI4nC4OfLFe"
    A$ = A$ + "ic:nBI7;CCaj]kZfMjY:JKgh4UoXMN<=2C7^N>5M#eig^coZkUL`E=f:ci\k"
    A$ = A$ + "Ue3E^>[?ah6WIDD<k>CY>WGINBAGXX[MV]WBgjD;Cd?ZfKW<nZLY:^g`cAco"
    A$ = A$ + ":nEIW5kkXM=:k<ZV?EjC>mJUi8gi?E=MdIk>oblURoE[Q<^7e3bdbZl?[7k\"
    A$ = A$ + "kL2l>m8UJOmnZOFYg]Shk>Wab?F_fa?Z?cE[E9n>L1J^BAoF=>Im2Uc6mYb<"
    A$ = A$ + "#fm#mOG=QSF[bNPWJgSSoS^VYCHiHEneMV5QGInFAOjT_EeKZLWRnH]WjP_c"
    A$ = A$ + "\bOA[jnDFoi9a[XKRd4Zkk#J:Um<8l>iC5=]b>H5l:kHEf=[F7IkgV#Sbb1f"
    A$ = A$ + ">I7>CYG`^GF_`Y?D1GGl:l\[NLJKRH?ANkZ[c`h<SalQj\AFofa?XI56WcdX"
    A$ = A$ + ":?[RFYblCfW:c?<>F5OUNlDfC_kJZHhD;ZeOVnGaGI?_S^^B_DiN>JRYe#<\"
    A$ = A$ + "XN`TjnOcF7m3Z7lf`_n<5=GG=U2nO^[W]Oc]oY\Od9g#n9c_[a#Q7S>kTj3E"
    A$ = A$ + "MBVN#mm4:j=eMPIl_SN^SYTOZjZW8OkX?jhW:h[Ln:cc:afIfXjnZ<nCMO;Z"
    A$ = A$ + "FENFen<:7cVEc^7Ko02?S_MbEF?^Z^FQ?EWo[^kdMoZB>QdK:JOfN75=Jfc["
    A$ = A$ + "X]k>?XDg:JP>aL7JYMYko]IMd?XiPg6NfnJfN0VNT5CfIDf_EY7YD_Zi6b?I"
    A$ = A$ + "nM=6:eAdIWZnG[Q8nQYILcm9\8>5YWW<f>aQY[Ddkk>ocdFEROGn^kng^mMW"
    A$ = A$ + "I<em9\NOgNWbmgil7SkZXaHc1Ig3am:iZZN#M__ZNdilES]B^5M]RV>3_Sn["
    A$ = A$ + "ciIhIkNEdG^i[k^T:k\bVAHcG>j#Wli_\EUgb>_ZOHc_k0?KOM4FgiKD<MVW"
    A$ = A$ + "Hk^DkO[hMWELfaZ\KNWlWB?geoIj1eNYBoEQ7cj58=0kL8oSVGLR;RCIj6gN"
    A$ = A$ + "][V8:FER_k^c:jDE>\:gi\g5Y7EWGMgM`lQ2GT=;_[N4CKi>74=[QZ]\iKUN"
    A$ = A$ + "CWJfEcU]7aA_DM_ZbmHJX\L7mMDOd]?i>k?I?EYgajSMRI4GXDSAL63KejLB"
    A$ = A$ + "^n9`D]gkb=ClLdlkdhcVaAco:clZlP2n:i3JGWCmZf7Mf?G17[NjPOMVJJ]O"
    A$ = A$ + "FLVBohdgMe;AiNGoVY3RZ74g=YU]WPUg:nYBNg1S:W_3nSY9Lbk\j0eOLWMG"
    A$ = A$ + "aEY^WLoSbl<KoE6OS`cd8ZWK2MDenhY`Wam:mT<=HV^F=?DWm#J#fcDZGUWG"
    A$ = A$ + "]GYfkDm?KfDQkDj?C>oDMWeDhMho^eQJO#I_iThMg_LBl:j1UgG=E\De>:iQ"
    A$ = A$ + "jlMgMH[WaMf?3_b<B4FVf=km:8MOWNlTVjLHgio9bCD>gAWDM7];>UmS?1om"
    A$ = A$ + "Ti#4?SVIHcnEiLW?cVOcZ1dLPj^34n:fDhcjWEgWM:lZeUjcIOo9]WXnW\6["
    A$ = A$ + "XkDdb8^1M>UigZmS:Jd9SOGncESm6agM7aK2?Zg=MlGahXODcYZkUL`WU?ZL"
    A$ = A$ + "XclA5\:mP\ggXL_el:SkDjUXl<S3Dh1GNbeV:nXj^B>EY6Z\oNWL8:nZkZ#J"
    A$ = A$ + "W8nBI_7:nEZIg?IW1a=IJT<n7aCMdU<=W[F\[fm[SGIVa]oD1GVnD1W[nLRJ"
    A$ = A$ + "N:[RNEU3kfO#hEOgD4n:jkWRgk^gh4hMNfK2?Co?Mlk^OME?6MMfmRdcE`SV"
    A$ = A$ + "W#nP=GnDcNXNB6GafiiP?[fAcMIL#eIg9ib9Ro4imCD_?5?jbiolnAJ<Uig>"
    A$ = A$ + "kTVDc`dBZc6:eKghSR=2CWh[bWMk7?5n9VMD^geN7VRFQ=oYZaHh[4OeLh4c"
    A$ = A$ + "2OAkdkOVHoeTHAnhOg7Y7cNohE7N][M][M]OJWnmWWn_OhJGkJGk_R5]WEmN"
    A$ = A$ + "GkJGkJGkJCIWn_OhngOL][M][YIXo61dO7a:nec\nIfnhCS?ZVbhYOn9SoRR"
    A$ = A$ + "?So#edJNl6akH_5l>mfXcX<GMbIKel\;oOoN__OBmO5=a^doESgK1oeVa^ln"
    A$ = A$ + "e>UeMfo_2necXl>36VOjKeLMRNMGOXT;AaRa=\L\BnWmk7HmoXj\Zn:;F_QO"
    A$ = A$ + "oCgn?RcfmkdVZNgilgKZooK0o>eCEdNC[QOBmoYaoGg^loggZ`m\cZnLemVA"
    A$ = A$ + "hIj7UJ9Ko^;gmG0OeIceNBFO2eCGkk:J846V?#e\2?hX1Eh?6gNRmWEWM?YE"
    A$ = A$ + "EoRj]IJ4eheiMWM[cXJH2ob`X^oGMNMGhkVgk8o?9oeA7XXm[<3lUaoGgjZ]"
    A$ = A$ + "V#K>A_K:MCULI2<EROE\^kH[be:nG97O2mk?SeCZo?5n9eo:nfE3Yd?DlMdI"
    A$ = A$ + "DkcIHAnF9gGOF4GiTooliZmAWn?R3L_GUnod6RgLe8Ana=?ZX=Ae12O5>=CO"
    A$ = A$ + "]SNcdmiXnj9cm\INem`^h#k?bh:eg3`b?gND5]eYaoGgj>Om6V?MkmMVmDme"
    A$ = A$ + "^S?ji>HEf?5QgYg<MnclOUlkWa[KmmFa_FSZJ_8^QM6TnJ=7IG[LFUnJ4?XP"
    A$ = A$ + "7aQ:m5de8mOdIRj3AHEhOFnSZc\m6ZLLeWk<KTQaYgj^3JRMS^a=KV]ZOIeG"
    A$ = A$ + "em8>W_;nXL=KfjYco:nIZhSjWZhAjP<NW=WcRgK5_R_LhET_V:VCXQ#jY^kG"
    A$ = A$ + "VPckhS:ad]_]Nn\__[h[ZojZeImK7]ajmHe?2O7nk_:nENE]o7e?#WAA?\VG"
    A$ = A$ + "\[EO>kI<]E6?[ZgMVEHmgZaD=_j\o8C?a`R>?Cc=I]cdR>aV=_jPea7Mdo^V"
    A$ = A$ + "JODQ3E?_CoAEghT_?AnodfJ^DYoW=[VM_MYoO3hk<C55?WI`YRM5=0BCeECF"
    A$ = A$ + "5K7OhdkMkOEb5gl5U3ERQbiV#_d]oZ<?QZ9eia;nInk7ZdgEd0X[cRMUMJZc"
    A$ = A$ + "eXJ_;G`hEdI#mHecZdCGc17NZbiAJ>5m^R>>CGYLVMHZjGV?HekdiLD_Qm9R"
    A$ = A$ + "kM`kR5]?l4ioCX[DeLEe;XIGUmKCZO?=NT?Vf>I\Ia?kkEdTEeRES_;>4gDE"
    A$ = A$ + ";iPQeOHnB=_fel[kl9kNXHcn^:OmdhG_Njh75;6N46T>837ZfSnTM?ec6io\"
    A$ = A$ + "L#1_b\A5]?bWE^6UC\kkZOLhYXl\kiAJi:Ffl#FlLZm<^f13;Wc`kn\^l7BW"
    A$ = A$ + "l6<d^Zg#njZ[fElWR?ZZMW2OT?jfCVL6NBk]5o:kOD>G7\^nXbLPjnaZnLga"
    A$ = A$ + "g=>EdoEkKEd7XHcn>3o:VW2ojeC7oXHa`S`Pd1IhDR=:oIlKfIS^_J?cES[X"
    A$ = A$ + "9EV_LNVcNWZ6;6^i`dWOWL#Vn9BKEIoO5NX2NUIG5NU]oU]CaQWfYYTC?a\E"
    A$ = A$ + "5]gC6OUg1YZ7kXOW0oCXIZTok`NCaoWO?kL<^lWLn:NE\MROgIX>m=eibM4O"
    A$ = A$ + "eHEMfG1WklYJ_WY1RN>3_bgo;P?jJ5=0B?P>?JG#F?>jJD\EdM8ncM6b1;[o"
    A$ = A$ + "Y<OWYoIc;8l:l#GNZkiEh6gkY`A<nSY1Mh1Em[2?VY7#e^b^Q8nAMg`9<DM4"
    A$ = A$ + "U_WhkXnVblM5[Z6MJmgdhWZ6Rn\Cn_3k=5OV>VaSW6odJNUWmVR?;gDONE=["
    A$ = A$ + "k\9[g7UG8lMh_oZhGiEenODoXjLQ3NTfQi3Vfe]n[ZoAcUIi2Z>EVCAmZ9ZO"
    A$ = A$ + "4Ofml:n;[VE^G6o`h#Un9:V8\:mD7=^kc#cDILjDk3Vd#cEZL>[G<1ng0?iX"
    A$ = A$ + "cZXQO:lWfjToMWo?9o7=SU]Kh=R?S7VX_eY?nDa7mL7\:k7cjMZejdi?coMc"
    A$ = A$ + "_CP_S^gUcMdPAJk8mBT?Ac5^a7aIEcm^JHE\\mPEgideVJ_WSnUMNEo5US>g"
    A$ = A$ + "3YSc>S3?n4lO5lAl:JV3=oZX_OJ[jNdW>oL]Y`Ge?^eCGnhYk9AOn4ioG5Of"
    A$ = A$ + "^3ei_CS?S7jbKMk3?IlWJV_jc[b9^iXR>VM_g>n>jn:a_Zn;JGKf\LT6`YfR"
    A$ = A$ + "`hRO7a_cNQYboXL:j\CGoMeOIiXjgW`bVcRV1[<;EYofmm>^_g8kkXW5YYZ\"
    A$ = A$ + "cJGFf^9d\RkN`_>N5]SSNj4jggTMjjoThIjRg>nMX3NJmg4a_J_GI_PJ<[\g"
    A$ = A$ + "1i77=DdneZln_IlEeHAa8jIIm`eHNBlZjf<MLgnCT^V5[g6N4F5nQMFdckfo"
    A$ = A$ + "nIm7]W1m\OCV:ocNFeM:k^^bZSYVooZhEV7M`G9NCRO2mBdW?EnOao]e?Gkk"
    A$ = A$ + "KMe>oE`_N6UgILW9_fe^fe^FTmGogoMjjodh_fe^fO7[jOo`Yck[M][M][M]"
    A$ = A$ + "[M][M][m\Fgom9>Mn[TW^eTRMjJ[C^_SJXK\?=n9ZoE=7jjYkO_UNo:GhP_j"
    A$ = A$ + "gEk;AiZZN^3_dUG?1n^eoJoJBmfGPofILRV7LmKdlTB>\cMXWRoIeIEmoG2o"
    A$ = A$ + "YOok5og4oo^nWg7QImJglh9gOXRgUkjVGEc7di[4SW8WOkjOWJBAWiNmDj?W"
    A$ = A$ + "nIfIWPkMVkNZi_XLSa1\NF7]`G1_bmW2_cLVR6T=W==NWJDAokN67>_c^35<"
    A$ = A$ + "C=_F5O7[k>W_8n>kC_hoKS_kl]S>\KMF9oDZ_gdnc:i9KWaC\?^K\?=N5^FI"
    A$ = A$ + "o[keCboM?KENImI[O>]fYblTB>Y\?KWhAjZ:me^iOenOUhgEoRf9L:lMcOgN"
    A$ = A$ + "#EngIN]bLdCc?o\fMgEdI_cG5OUg5mC<GlGlokCEm7K?T3^8oh<gd5_c>FfI"
    A$ = A$ + "DV_Ek;>?kJe]eIQ:_KLEk[Nm?o^[aZQ\cWEOEWOS>SklJWNVbISZ]>n[KnhZ"
    A$ = A$ + "[nRh?=oM2nGIga>bo\ci>K=akObf_iT3M`Gaj\km[S_knG5oaNOeTa_3NE]f"
    A$ = A$ + "CS?JVh]PgE3bh4dl_:gj4GVOLjU8^a5SJlDcgYfMDU?[dcNbmW[n9bg<]OUN"
    A$ = A$ + "gZ_M^NZnWRoDdO<l\NgZOLV7Do\[_IlGE=`5OMloV\:lcKRojfOG?OUl]3n:"
    A$ = A$ + "__k=ln;d>l\cQ>OdeMgmaj?XL6QAYNN2mURFi4hEi_CRgAkSjY^?[[i>kVa5"
    A$ = A$ + "MZo\_7MnXcRVecNfKQoLk[\m1M`[\oZ:gUQ;ZoXNmTm#FoDY>Zb1AmPZi^cW"
    A$ = A$ + ">jk9dNM`lTVBoNZjog8oM]NfTj3Gl^ch\gIPNGBdI[lk?#oVP\W=9n9k?^oN"
    A$ = A$ + "QYaofeWoFakXkAcX^?3USMn==8lCon?UO343;[Ncho9fo=Em?Yf9bW<lEbm^"
    A$ = A$ + "hFc=W[Eh<gmYM[3WhRj?Zid4j?fibdBIg3i_MR?jnZW[3n\[E>GfmV#WFUCA"
    A$ = A$ + "aGUGHc7^JfMIk:o[FW<MXZ?ZXIZ4o:cD<ocfESRUkNh9bo:mH4NVF3QoOOoW"
    A$ = A$ + "HAkAbbODOOgeoG=nXn5kM1>jFTV0=Oi`E>kiVToIjm\_GI?e4loYgO\F3<<^"
    A$ = A$ + "J75=DghgA7^VK>GkdgAkTkP][5Y=MWckZoDkOZc4ZejdhcfKZL^>hc^FiLIg"
    A$ = A$ + ";CWFY_ibYXh[b;Xh<m<D7KGiOUjDIoK5Od1;kIEVYDVo[XoLjeIiZkk0j^o="
    A$ = A$ + "[OQZ;4NFnZ4OVnMgeoG=nXn5kM1>j>TV8COkbE>cD8=;;oWXn[>k>5n>FGmk"
    A$ = A$ + ":7bdL:J74>VnVegHe[;G?1om6<EnC1oKY6Ee>o6jOIiWRNOWno;bOGcgVHGY"
    A$ = A$ + "bnUYS_kkNAonR<OZNFUlG=F\jdQg#lXj_5B5oZOLSOgloR_6NWi6eO3Xc_o#"
    A$ = A$ + "97#eRb<KDN<akoRl_klZkN[<>8ZnDgoiH>mNE]C5^oWa=:Gb^WZ_EcY>LgYi"
    A$ = A$ + "o>c_IJOG^[jgMl?SojXo^h[SogTEQONClGenKgcLBlIk8Dg]eIgMTOc>_2Ng"
    A$ = A$ + "l_RNJ=WRbKfmLj9Za_KnS>_KnG1_Snh]QgAkSfahR;KVaIf[Cn[<?a>CULH7"
    A$ = A$ + "eOF^alCWk5EoXlRa_<]2BOgQoIjCFnjHAc\MZ1EmW2_jR=k<>LIgjWacAeFU"
    A$ = A$ + "n^RnM:l\I]g>nCcOWPoEf]\Sl?kL^kVj\KD9FMgm^;lZ_K0Y9VjiC4o:_kXZ"
    A$ = A$ + ">AaOXc<Mlg1nENKGhImgg8NG=8[WP`Y<OhnLFLIiAGmgJ\E^7[6Min>VJ>[\"
    A$ = A$ + "c8jc\WiPWYQLh6fIAL=Jo[jlIE=WB=iZmMi#WioMXE[b=ZkODkek0_S>l9bo"
    A$ = A$ + "Zmo:a_kl;jmIW2Oglg]7DUoMf9eM7lCZoZPGaHhSl5B?=MlMaGIGMfkg^hok"
    A$ = A$ + "RgAoQR_R^=3?KnKGeO5;bWMWocl5ZFc>72?R;An2ecEh0D=LBlIm3UNgK#o="
    A$ = A$ + "Am?Q^?CSibcMVSbhU<]LD^P^FYFn=PGinCQGY_jX1SRi>akDS:jOgch`i:HE"
    A$ = A$ + "jc>gG=>_1lMfil5ak\?=jlGloMakX=SdXZHfYaVIDVUjPE=ONRj?;7F?o>h?"
    A$ = A$ + "WlEiN?9nWF3nfho9eOMfW<e<HTocVEDbY>lBGNm4hkFo[kRVD_m5h_M6WXMm"
    A$ = A$ + "^n=kM5>j2E]cDk3N:lAnXJ?m[P_k^g;noVhogeoln8<[GkZ[_fe^fe^fe^fe"
    A$ = A$ + "^fe^fgeZlghF1ce^fe^fe^fe^fe^fennfdom3Wh_Y8;VXLA9?kF;M`7mOS8U"
    A$ = A$ + "nAUo^>UoK=mclHeoZogT2ig>h[F[Xjgmo6NCTCE^^J=dAGchdgdom9SbYkof"
    A$ = A$ + "7_?[[nmdhEmCGNHghAnKmnCfkMk1CRoJWOniRoKROmN:hDbSCXoMbOGof=_V"
    A$ = A$ + "hlI?[KMbjc[lkZ_ESITOW0OUj;K6#AgXRg=oZLmTjo9fmDYo\KCMgeKbZZUn"
    A$ = A$ + "RFUjKMn[;n:FUjP]O[C<HcVEf;Ui;DLRR;2OeNaDhMajdon2h[X;Rhl;noNh"
    A$ = A$ + "[^GQ]7`aDVUEahN67N^BM=1Wd97N:kWjY:WY;NVnQmn7fi#c;MfiGAWT=kiH"
    A$ = A$ + "<nUa3:mWgP^m=VCZi<kNoF<V^SY3W0o4_G8KVD]?Z<[Z<oih_9kQMfohf3ch"
    A$ = A$ + "UXMc:mk9bog4NWWo6Vo^ho^hMda8<C\ka]>bfCPZIULEY^g1NFoUao>m=7lA"
    A$ = A$ + "W93_B]=9NVf=CGXZiILJELCaoCT3EWk#c_Eg7<]Ua_W>_HjLfmDZIeJM:=L5"
    A$ = A$ + "lZJo\m4:k>#WMRi_\L2M]J?c1OfeCfkDfo4ae\L#]FEd#ZmkXl?kL>k0ImGU"
    A$ = A$ + "WmDaObi_<O5mlM5o>hEV9>1NUiTg4NT6<j\XiAGM]S>8:nIcGXWgmlCQ_BoA"
    A$ = A$ + "QkHaDUkG?O4NUJKJl8=GfcAagAoY^[#Y>EZOf<Tk\S[?DVO[>g<]Qj[Mi`MH"
    A$ = A$ + ":k0DW?ENFenDD^e5O5>bE_UQ_2obd?\koF`WiCDlj<o`j?MlCEl:iVB__;Ne"
    A$ = A$ + "nkTaOGcO\HQR?[fIhkVo_=lZlgK1?Boa>[k<oZF;;_Ij;TFb]>?UahXCWOMe"
    A$ = A$ + "5IWY3Ngm7\IR:hEgGPVEMZo8>XB]k`SMb_C[=IioK;OMV;Hc9:kNIL7B7XXa"
    A$ = A$ + "E[AE]KE>BInC9fXMHZGoF`S>[ZObf]XbM>jD5l^j4eMFXNo4hknLgNj:_dMn"
    A$ = A$ + "CIGb^ag=o_hOfm_:c9^cGIJLelBQODc3UlNBlXnVCOa9f<lXl9CGQRA4NG[Z"
    A$ = A$ + "nO7a?Boi<oeQoLh0D<L[k\IFUJiY<DOY2o]K3=;jdOclUSN0=g7UK>mn:e6;"
    A$ = A$ + "n:j=Ui?7n=[VHcY<>i9aW=K`dAIj4UNZZF[2NUI8D\EV5#aV=O`ROWW[Xocd"
    A$ = A$ + "4C<oYTo<lMOND_`=okFoOehcdK^cEAj0UcVE3:H#lV2>FmYDWO9;[nLfY``S"
    A$ = A$ + "j7Il>:>8]ZcLDTOcZ3ei[:ag=^CbOEZQYeOAJ5VfBAo=eWIJ4T6j4V2gXRWE"
    A$ = A$ + "oZJ^:iXZF^2gcR_c^>UmL8mMF=YDg_5lALIDMVM]J_3aM>j64N7=42KeW[`o"
    A$ = A$ + "<oc`Z4OeNj:_gMnC]n#hEh>Um7XNg^foleS?C_[R7e3AWM=7Ii^j\_KNQR[R"
    A$ = A$ + "oDdcZiD7lMmaCI:L[;oG9f<MPblUcLL5l[L0Kf0EWkT7EWMGaoV=FnOJ;K>A"
    A$ = A$ + "A?cV3R`G]_5UKMagInA=?DVoLhGGmOgiWMP_Ko3Yi#lHeI?d\KFOVYA#aYBn"
    A$ = A$ + "giiXJJ7hWLnSY?E`chOElEco;nWMo[jN0V^FI>CIOF4>fcIjmZfCP?SoLRQZ"
    A$ = A$ + "6BYoYXMV6_Zn_C_`Q;MWojDo>L0:6[??2Cf\UZnhdOo9e2Md#ImT>J`^jFT_"
    A$ = A$ + "jPgIn=KnAUSDVoDRM67hdKO;hMkM<=#de8Nc=7>=N5>\kcObh_[i?F\Ha7Uk"
    A$ = A$ + ":h[To<nNghIm[_2Nfn7ei#VN:SgIi1;_#J6Eo?E^h4c:hG[Agl>3?Jf;B[YT"
    A$ = A$ + "Wk2?:gAn::VIJDEl8M]klSjLa4jO5NDMnEaN;hOKVRnCa7OQJEAgadQCPGe7"
    A$ = A$ + "[Wg]7Y<3odhWHn9K?Sj\GG=j4Jl^k=nZhWNn;bGIJTgbl_ZNMghcjUO=l\iD"
    A$ = A$ + "Uc^V;:jn^co\kiFSE[g^lEWhO2C9?AWY3nXiG7MPR6I2lXmGMWWDgQRhHWIS"
    A$ = A$ + "[]?CAomKbZDKXi_:hWhmIZ_Wk]nl^m#73eCZjS^hAeCGnh=S_2_5=oMaog4_"
    A$ = A$ + "cNP:Jh9f?Y4;elGMNRM_g2n\ND4W4eG#lDVobjc\l45o>h[ZGN;hSZ=U[WBO"
    A$ = A$ + "UY3Df1XR3YC?9ngXmUbe9Ze>HNCjW^J^CSO2mJVnEQkLj7CS?[Vjb9_Ml^a9"
    A$ = A$ + "KniRo_7n:kFLW1EmKE353f^:UJ\B=lThcfEWe_bd?XcUmIfi#L>BoF5OFMXl"
    A$ = A$ + "n3GLMach?W[kT3C>omTlgdh_fi]^m^CSGaGMiRW2oYjo>mQYaoGg>mlc5og4"
    A$ = A$ + "ojmD`MW3_fe^fe^fe^fe^fenKJEnK1^om3GkJGkJGkJGkJGkJo==UoK<Pn_="
    A$ = A$ + "1b?En_1bCQWa1_mloR_noo?8;nCmMeL82_ke_9lOEmS[OLfUNaOaOa[Qo]IO"
    A$ = A$ + "]lmJo==UI<fIDej[W[kn1WHoF\8>h4i`YiQgB^D9n<=\ckaDdbXc\[h[LmDh"
    A$ = A$ + "kboWF3gEciD3IjS;n;n;nJhg]EigXdmgelenMA[i]bk^La^;n[C>[h_^LHUj"
    A$ = A$ + "UmMgHanm7[o6QOnLdiZTCAaj;<[PhWCT7_1;COX>?jR;2_SOjfo#cU\i?6n:"
    A$ = A$ + "mo\iAU[W2o4lo9e?^hFkG^lWb<Tc\oK2_jL`K=oojhIni[To>hGS=;7D]XM5"
    A$ = A$ + "ZHjV;M[QCQgIg[;fZi`4i\Jl[P=jM5AhAcd>VkL3j<\HXF?>inje>cWWbbjQ"
    A$ = A$ + ":LE5nUQYZfYClAibG9n<=gZoAcj:W_;nXWoFko>c#_9mS;^\n1[?VMVeWYh7"
    A$ = A$ + "dm>5n^i_S6J7hO;eoDhEZeOCeoo^>KFGe#hHiVb>7UHG]6jFo:kjk`MAJ]>k"
    A$ = A$ + "_WPoLlkdm_Xg]TQ?cOMh>fIZj3WWiX]HhZ<__K3]OCQ[[dODWSkfoEWab>[C"
    A$ = A$ + "oo9j=^W=C?ch07<MaSjo_5CMoW;^9WOV0ODMhfoEhP;nW7_Bol=WoIOnTeo4"
    A$ = A$ + "lG6FeLEIN?cg8oYDK<l\JCIWU2NUNI5l:mW<mLDMh\;VU3Ei_\cPZ5gNXJ\A"
    A$ = A$ + "hAn[ccRRKFmX>ca^OFN`hfZgkDFd^a<]<C3X`_8]Sb<WZ^N:m;BCMRnSkIAk"
    A$ = A$ + "f#lHfgg5NTF8Z6D^VYWAj=fl1B3oVd?CXeDZ1f^GGoh6OenKWhOJlMi_OCa?"
    A$ = A$ + "K_bK^n[P?cO\gg5MNDNafARlSZQb36WPZGehR`[^S1U[IL?:?D[96FUl2Y;H"
    A$ = A$ + "nPU7:WWQW=G[4WCXoDdF>jD5mHWi`Y\\L=C;[X3DhGf<C6NEn7Q?CoP`ObnU"
    A$ = A$ + "ClAm?el?SoLbgZhcboXi#U[cnNFLAW7YkMhoC>gcf5UUS:i^jlUZOb`[\[OG"
    A$ = A$ + "hIlh=ogKlE<Ul_;n>lWKmSfa5m^=7^fY6bR[knmZiSJmF5_jnID<Il?Ro#_S"
    A$ = A$ + "RQSe;jRWi?gn>Z^Ii_R?MeGkbZZCEeSW\FcbCTF>k\\I15M::V>l4CGUY?Aj"
    A$ = A$ + "dCf[LROdIMcKeIjMQ7eoM_VYWEdK:JN5n?B_oVfeabEVFBInb]gOaOaof`cl"
    A$ = A$ + "eda7]S;jMKIkIL=DniRI5[:GPRYSoD`[nNFD<chOeN1B3dYg=IoYZNA5?C3["
    A$ = A$ + "hGGme^\ZjDGmh9[;dWAG7MF5mPR6W5CeJ3Y[#a6=;O:MYClIm_>lgCQWYiL^"
    A$ = A$ + "NZl?CSTY]Dd?>ie>dNIkYcbEFNX<OU5Oeic;n;noJhAHGgo\j[\h<inB7<IW"
    A$ = A$ + "SQWE_Za5QGI7GF^ViKDlAf^`cZg:m1DLIj?5mXK^M2mWRfbMn#E?ZNVY<V>2"
    A$ = A$ + "=Ob`hb_ILPkn1V_Dd`AWe]?n4m;gcjVgIm_W2?ZoEI7j4hIJMd<oYe?Zm9D^"
    A$ = A$ + "jfoE_7R3_h_h_hWk_O`mn[a4m<46FN7U3:hAlC7l\JWaS\lYJ]SbOV?bZiX?"
    A$ = A$ + "ElSC=\Z]IhIJ\:?cM>#IVSMo\lPeO[PcEOZH:l3kcX[IJ_9hgZk7#i<:?SNF"
    A$ = A$ + "f\fCK>a7eoDe<Im_:GWm<ULh4L]ZVbi<_iJB=GEZ1f^g<<IcKGlGlGlo__Gf"
    A$ = A$ + ">c<;k\\mb:nb9?Hn#1KUjg1_CMchGelXJ^S^GeHYj7WN8CW]R?bG<LXlPMVZ"
    A$ = A$ + "n`iI8]eJLZPciLM\Xl:jc\I:E\^jk\hDUG#aGAkRZiWfZZoV#S<]V[;Ng[W2"
    A$ = A$ + "?BgTYSN:mcdmZ8OjbO>iHF\^h_h_hooonAkJD<eMGZ_W^C^\j7GLW0?[Fkh["
    A$ = A$ + "ZHAgKGmo>hDaShg:i_BNR>3;6\JA]fAhDe6EW5LVILn<jJ5\IHD[oX[kVc\n"
    A$ = A$ + "8JnLgm5WNVkIIjIdeGlejo8mkTJRWB[i4_XcNaOaOaG7oKdDO_n^`oeZgOj3"
    A$ = A$ + "d_1A5?jN^ae9?ZVkMaSN_>ZoX6W\c5Mo\g_7M^:iDF\HlCfeE<T_F[k8N0UG"
    A$ = A$ + "ZO>Emg=nAmDDoNJnORnWj<6[WkLm5oLom7Zc1Wd#iZ[^mRoRoRO>l_=k[U_G"
    A$ = A$ + "k_YY<Sa>SZFOmLMg?LJ^kJGkJGkJGkJGkJGkJ?WUmg4XL_kOo`e^fe^fe^fe"
    A$ = A$ + "^fe^fO?;k_EhWOVM^ec`RC6V\hbn<;7IHAhk4o:e_joMOAloG7_:?ZX;Sjc^"
    A$ = A$ + "io5_7NWi0fn7GmSK\bbe^amRoRoRO?c]GkJGkmIXikoMm?o<j\Zk4RlMFLDn"
    A$ = A$ + "L2O5M]KlEiP\HNJ[B^4aI^FF?C9^\h7e;AaoR_7n>Jj^j_:h#k#Z4k;n;n;n"
    A$ = A$ + "jhIW?J_cdH^fe^VWEMnJmgFXR9jjOnMg?S^F1;2_JLAeWKmOJ=`?i5VQh\^h"
    A$ = A$ + "MbeCcKGKVNBGmc4iJem=XJPU3_El<nm]WoOMl<olEbO7lAWQ]3`5;;Vk0_:V"
    A$ = A$ + "gBnSdLk^_=InOZh?1nCJXL=jIolN<^?j\okJeL3M]kWCh[X[ES;[6MZo:fTh"
    A$ = A$ + "[dogAlEiGD?cAk>5n9h_Zch_Ql_clAghk<7VQ7E?IORl;:o#hMgS<=n^io4J"
    A$ = A$ + "P>hO;eoDhEZeO3e_:G`fEZ\kP5k>hSlQ2VgBnWM^W>noEaGQcWb#i:knokJU"
    A$ = A$ + "HD1gjibfginIde:HAhIacY>[DoAi7S_k\OXJoWY]HJdYSOd<#d<A6obb1VnI"
    A$ = A$ + "RlGEOmfbOEl:iUJ?deoXL]jn6D=XT?GlcR7MV_#nSdM?Em?1oUQEegAkgDif"
    A$ = A$ + "\cZ^O;[nLg_=96EOmFaoDeOgljdlgTeLE>:J^YkL=j<ZeHf\\jk^cf]eaGAG"
    A$ = A$ + "k\;]:?UUc:k6EZi\mX:hEZ[gDlWdLO_YCoMWimdi_cILk9I_Go9joC^31iGg"
    A$ = A$ + "n#5>0M_ZaodhkbOoVROfk3NceOEl<\A_;9c7IWEMf25O6n^HfU_Dag]nOZl\"
    A$ = A$ + "R??Im_SjJ7Fd<3:g[<OE173Sjk\IaoWe:jC4n\hDYGhDoCY?IkgILOUn_KlA"
    A$ = A$ + "LNWh_V7Aa=K6QU3<m3CCYLf:J[Yco8^BIncI?`Tmo:lFem?:jKen0ZgL:l:J"
    A$ = A$ + "bKn__h[H^kgOjnGUjGU7IHE<6gTEO^kLZPQE7MlAgH[^O^C^?A]Wi_^loC`O"
    A$ = A$ + "_9cIViWOZLFGLIHSlSjWCh[X[M[[>elJ<Mj[\J6eS[f7Il7;nMeAIa?J>=jj"
    A$ = A$ + "XIRXNNVoDhO7]NEMVRV5UWkXo[^WAaW>a_2_=a>4UJS5[;n;ng6NfigAl[T7"
    A$ = A$ + "AHE<5OXNo:nZJ=de??E>d1OWN7bGCd3NjNh9=WiUX[IWg573Sjk\IaoWe<jC"
    A$ = A$ + "4NWJbY^EbIWNKfm#kgc`f]ok6oZLn>j?IJDWWaj_ZnHRl_ck>[`?Mk9CdoMg"
    A$ = A$ + "1EMo3S3#mS;n;n;N]M\Xg_Q`ZH:n#mnEledHN2onDhO[loYi_WdbVIAcholC"
    A$ = A$ + "V_[P;3KTOLNGNGO5MmC<oZ^?]BO0]g4Eo>mODnSRKGMDFlIeNdIb`[4kMUoE"
    A$ = A$ + "eBW>oMdaIJ1F_C]>McOFm`foP^WJ^OaOaoG7ojNYEOcViMfO`lQjm[h[Ya\["
    A$ = A$ + "l_2n^ao]boOUl_[5=WX>oXb?E`]N^E<[k8Do<jJ5\<l>kQZRaUo#LnJMW]c>"
    A$ = A$ + "B3X^OFQoEe8Ahk4o\J?S;V6_S>0UoZmngFnGE7?UnGU;cbEUM6>jkeliRoRo"
    A$ = A$ + "R7S?K?4boXhU]kJWhcZ9G<_Ql_B]lVbo_>ooDm\XL7ECIa#UOZPKmLAGkni4"
    A$ = A$ + "nb9oWdj6OF=WYMAe_Ko?Cg5iWXLKZhO]cJMk9\M^>kRIk<WL7B6Nfc^h_h_h"
    A$ = A$ + "S?Wk_i1i3eM6ZnXJ^lEcoZeBghOBno=UoM]Zi]ccnimMN_mjeZiGdeolk^O6"
    A$ = A$ + "M]2FD^lDmfZeN6oajSIjPZcH\lGYob`alCFmZ`9GlcQ_cLDVNUIMVkj<3Pdg"
    A$ = A$ + "GlGlGlnhoicZ>K7iWYlge^fenOKEW_Fo]5ZH#Gkni4njWeBeOob4hW:oAiCd"
    A$ = A$ + "IW^n[6OEMTJo;BSjdo^hoKmg?hT7M[S;n;n;n[M][me]\ike?AWmJGkJGkJG"
    A$ = A$ + "kJGkJGkJoM\\oVPXoFRkOk`e^fe^fe^fe^fe^fOKCmo^S\o>3UhTMmDa7mO3"
    A$ = A$ + "Ueo>X>L#G>LJno[SGE75Mf8oZN_ekWYCRlaKQoHceMg;DYW\SMDCjW8oeUg_"
    A$ = A$ + "h_h_hk_gJ7k>>E\_fen=KMVYn7FEOl4c_[i4kcoM]C^]Nn^h?]Y^g?km0CPG"
    A$ = A$ + "EOPjOod_ZgKmn[a8kNOQnOghXRgM?`4eEG\[n`]oe9W^h_h_he>ko>OUIn^k"
    A$ = A$ + "Y_fe^6fbn]E:of?gOg`CoKV#O>m_Oe1oKK?V[6XKm?=nCKC`OCogO45c:eeG"
    A$ = A$ + "]WhV[Zm`\j<2?;7N[hImbgNnoeaclcG9oM`S>KUMHIc]ZkcbVm[R]J=odaGI"
    A$ = A$ + "og>a?Em[NO7mC5[:oE=okT_:cm[?GIN?b?E`VaU<=7C?U][#iCdeXj^:n\h?"
    A$ = A$ + "ImOBl8o5MFGM4RoZLMFO5UkIml>j?5>8;oMVeL<E\\IZY<WLa9GShFV6ViGU"
    A$ = A$ + "n8jNW2Ogl_J?J:l_UjO:l:ej_QjORc^R[bn?Uio;ng?Nek?]nY[OR>g4e_K^"
    A$ = A$ + "Zn<WmfIHZZ;De<<]Dfc#O^RGA3WEcILJFO5eSIeWBOam<CboXHPZ?gl?:nE^"
    A$ = A$ + ">CGTekAmO7MWBnGAo`d_>V:>UnGUh_3;;GcjkXM0ZjK5^hRO6l:j]gLnWmiC"
    A$ = A$ + "FoC`OIHElMdnIWMHMfoY\om_8NEKGhOZjObJIRlO:m[3FD>PN_YCLL`bVWcN"
    A$ = A$ + ">cDl_bNi8>9jlIk8AjEFnhdkEN^:OhPSi7eJSaoZcG>WeaW^cJIlWR^;BoFm"
    A$ = A$ + "k^cK>eHWNBWMIE<V>WU[8^cI6RYYD`kZGcZW_6n^lg_YhW=olV[oZhG[If<8"
    A$ = A$ + "bR>[jN84WgiM>Ma[J_ehOJlElkT_oZ2oGiMgMbi:cO>_g:33KG1;?Dck:hcb"
    A$ = A$ + "Gd^5diSZITN=3KD<k>OSj7\W=5o[`KIl_JmWaoAi1jIk0?kc<lIj1G]RJ?CM"
    A$ = A$ + ">_J?a1oDVBl#iZ:oY<OQb36NFM\ClXcLcom7O5C9okR_3oEYnGSMfk9DZ]ZH"
    A$ = A$ + "G?Gfe^hMf3fMWI6n9boW6O5>\KoKbNA7ngEg<A>cd^AnFIN?:>:Hcf7`d8ZV"
    A$ = A$ + "CL#iL4W4Mn<N4=_bbS:mLd>2Dn`NV[F3aO\H4QGMn2QW]oh9`SdK>mOgkk<c"
    A$ = A$ + "eYojX]NKFF^V]g4=3cdlImZ;n;ng<Nf^YM4oONf\MF\MH\IGUMP\mo8\IHLf"
    A$ = A$ + "mj^WF5o4ioCS_27f]o=I_X3okZKV8WIcKXIIWH^R1YGEVSEWkkPO=OcfGVEO"
    A$ = A$ + "XJFYnIagUocR9:Ojd[DiOUhWaoZcG>WeaW^cJ\i15M4J^<K72ZokdgDiG6WG"
    A$ = A$ + "I7bY\\L=BObfSXXQbjOGlGlGlaW]jn[YfoQf]R`^ClZfK=nW>o[TGM[U^i_Z"
    A$ = A$ + "VMZLFMnJmNolCehP`j>7[Nn^hcbIWl?R7Ea[6OWN#FOQ5OV_LR_CmS`[>O5Q"
    A$ = A$ + "?ZgXLM4_5E3A?WQGic\laik\k[nLghYZkN;coXi0eJ#M62aQGlGlGlikMDWk"
    A$ = A$ + "W6ODNc^oO5lZf^`oDeo^`D=oEe]C`oZcG[gkWOZ6W<\Zc`Ead5OF?baGAHDa"
    A$ = A$ + "cR_K?8[_TU_8LESoDhEW_bhl:G7aK8>4eoEnd9ocVMAWYR^15;Dljdo?]Qf3"
    A$ = A$ + "j<kSl7Z7OaOaOa7?GbVoZRea7ZgOblog4NfiNjhkVG^aMWioCeoHW9;gniWZ"
    A$ = A$ + "LDfW>VJ=?=nejMRlg1OFlMWc#m5UhN:n7aO^J_>c3CaoCdoEZ[ehDY>Z`K<N"
    A$ = A$ + "l=XOjPgY7bVmDdPGlGlGlefUTQC1[S?D__C>``blA7\CPgYnE[eMEoMc[Zm^"
    A$ = A$ + "CWok#kSNnon^;g^nI5C]Vo;Pgic\n5[OD57c?CQgM65=[[N_ei2g[MV]c>OG"
    A$ = A$ + "lC^oQYOL>oGIn[jn_;n;n;nI`_nlZk7MVi_fe^F?;kgFY<7fmMhM`>E\[jS9"
    A$ = A$ + "a_F;>O^6KD^4MfCaok4_cmnim[LmKXncV[E?[bnPoO][EdB^>b:\ooojkCWj"
    A$ = A$ + "V];#89X]c<3?#=9f=P#8`>WM?eLMdnO[lGGNOmOmOmggo9]g8W[]fO=[c\e>"
    A$ = A$ + "G^fJ[]fJ[]fJ[]fO?SmOgPmgd_fJ[]fJ[]fJ[]fJAo^0f[a4g^hBilEnW5_X"
    A$ = A$ + "j:kkEaPmkEhWm<^ogGn]eMZJB7on9EcoV<Uom7jn_OaDoKMlfoo_ajojoOIo"
    A$ = A$ + "cRgC^gJ]eFSgngliiL:JV?cW\cX^3hCODfkdIo5[_IaHBoIZ_8^>[gP^FD?B"
    A$ = A$ + "mkC`oImO5=4;omTcGZVccIoV\_E\cX=DRejojojoLnS>Cgm9>?3J]eF[fLVY"
    A$ = A$ + "HNGLWhWm^a:cn^_S`K^o<kkOF_EoVQCnQmJIL\j_3HZWODmKCLSKeIVhgm<Q"
    A$ = A$ + "Ue[LW?IlOZcmChib<k\LRADOkWZoElag>noYkOELnYPO5oS>Sj^?UmN>?7P1"
    A$ = A$ + "3ZhHc?OnEd=\GOBoIVKLSaCGo\loieDlg9N8LGa7Zk4HalWGWYn[fOjjo9Nc"
    A$ = A$ + "n>[6\;gGUS9[O6\`DgEeOgM3>LU3_fIoYjm>cI57Pjo<j#T^FaDcC5FIe5Ec"
    A$ = A$ + "o>m1fmDgfo^hgES>UoO;eoDnkZOoF`?[oM=VmF<?3BMGbjogYo\GOBo[>CWH"
    A$ = A$ + "lde?;ooieDgMc\cB53:eSJ]Sh#UMJZePRoOng\MNEj3DM7a1:H_Zgc`mXN#E"
    A$ = A$ + "mGYEHZOVJQ1Sg`#e`ieMeF<l>kWSb[jL8kikj?37U5C5>VEW^n?_oXclC0oI"
    A$ = A$ + "om9[o9h_<O[RmiiH>;JWIf\?c^#G\\nkkOGk=a?cL?K<bNn6;nMmW=VIWS9F"
    A$ = A$ + ">G?KN^:_AnQjaEm[Zm6Al>3?>]oXjNji3FLc`[XMh<k^MeOMlGEg`^WXZObh"
    A$ = A$ + "[R6h\?`b?AcEWe;cmIjoEkg^]oXNNElHd#EJLFoW#3oCdo^lg_YlW=Wo=Go^"
    A$ = A$ + "nWM>Ui1UiNd^`\jS5;[oN_Wj4aj=[oZcXRQ<=l]m?;FEeTc\JUOAWSiia8NP"
    A$ = A$ + "]NLj]\FWHDa[<L_SFHZJ?Z>HfQc\kVEo=YoAeBFmUYOWdb`dI^bjQ<mIfIDe"
    A$ = A$ + "iG6LldF4VVFo6aA>J#fnh]l7MV5og?o\ji:lgeo>lWCmONo\I?Dlj\Om<g\G"
    A$ = A$ + "oVn[`1CWOeN0So\jKE<o]doRN63jk:lX;gijoI<He[<aDe_ZigXM_Al>3WdE"
    A$ = A$ + "okJMgo[bo>JUKc5:k_IdF:kmSdTAnVaO8mGF=ZFg:l3j_Xlc`OAn[bOIc_gL"
    A$ = A$ + "6K2m9ZWcd;AcP<iMmOmoKgoZcOSloimZVobR?[_<kgI_n=mWYf_EnIinK535"
    A$ = A$ + "<o]doDNnY:7Z`1Mh_Xl[Dc<aUe?4O6]_ZJ>_c^4Vj[JoC5OfaOeh7EcEeHfi"
    A$ = A$ + "#mX<lS`0[6R]gaf3Ii?Wi<D?\cL:R3Zh4Ui2diRhG4gW=oZZ3NJ3QCfIP\JD"
    A$ = A$ + "I^NmOmOm?O6]Jn;cW\HV5KUHYVSYmWebhJWlcl<5GLmdnhXA#GcAkjZCMk1M"
    A$ = A$ + "mcA_`LN6oRZm<n0e_H>?2O>eWC_7=cEQSZ_GMVZJ]Roc`8jJ^c><m>6mWj<C"
    A$ = A$ + "ENkPMgid:MT2?dY6DZa<m]B?l]<4>If7QZA5>KmOmOm_N6UmNZknZb1ZFblk"
    A$ = A$ + "fncJAncDgIn[hk4eo]laY6He<InEMmZHhf3VPoLdP\LDee#lO6oPlCI7f4k>"
    A$ = A$ + "LkoMb_JlWDoOboIe<RocjYAO^R3j<?h>oYDkEhZBgcf;HdVIlKU6`Io#5VW>"
    A$ = A$ + "^CK8LRfWPR3So\k^FoGoo[j?:>\gSebRaWaQmjZhPeoZcmTigaOglgU;V:o>"
    A$ = A$ + "nQ>oCYoNJnkc[aZ?>olie>cEdnS<=Jdm[l]Z?Yfk#nW5SClEEo8ocbIUoInb"
    A$ = A$ + "`OIW;kJEJEdWIkO^co^njVKUI<fLE=GRVOHZA5lc<OP`jgRQ`Y2^Ika:iJmO"
    A$ = A$ + "mo_\oM_go^oD?kPmj:hXCnE\Obeo4LaKUOfWONKnO2OHi`ZgU0ioicSA_O13"
    A$ = A$ + ">ngecl_RC>mYjcEl7jJ<LOeeAi=2cgRoRROU60Q1Wj_2[^cb^k>j<c5Qm\jA"
    A$ = A$ + "UcAl_jlkTe?kleKJ8LZZ]H^fjojoj?WoON_WNoeJ[]VWi<Kbl>R\gK:oIa6K"
    A$ = A$ + "MYnn_A_GHFn[ZoccPRmYoWO^jNOSfD?kh=[eXLg5?O[m^O3onQ?iGggQImOm"
    A$ = A$ + "OmggoZhlfk?FK]en_foV;?W?Ac^In\fJ[]fJ[]fJ[]fJon]XO[0keFK]eFK]"
    A$ = A$ + "eFK]eFK]oF6jg8PnM4Ea[k_gXk_CImoWUooTo_O>K^E=G^O2CQ_Rn\C^^9_<"
    A$ = A$ + "1>GK]eFK]eF;no_kIom3A?3nlLAoU5GWaC]^RnlCTOF^RYWhn>CCaOMOO]>e"
    A$ = A$ + "MeeEcWck3Sj9Em[mg?LGMR[Vf5W[iae_]mFHi]VQOkM9g<_Cmlhg#?\fg_UY"
    A$ = A$ + "EN3MCgLfiiTCm>G:n5mlIWgS>kMcLaVSo>i?SCDk5MOWb^lGDOcEK`VOdi?_"
    A$ = A$ + "FD\#j]XkUakXhWe7HkKM=WN`Dk#DdK>iRU;W<?\JhWdjfgo6\_9\oFHY[F]3"
    A$ = A$ + "fAk7ORLO;mKG<MnIVccj3CL^]EU?EllFc=Cm<`^LXZ^9:Fg\OZ`SM`=K<jlN"
    A$ = A$ + "<Ak;Sn;S6_3?TM>Ug3:2_WgS=fIa#iMVLk3^jX<\a`KEi?S7AJ4fN0K_3UKD"
    A$ = A$ + "oXkLc4VJo3M=Vi8Ui6Wl``k\cQZjj9ZM5^dQgW23Zh`ilIhg]7YL_KPU>lLG"
    A$ = A$ + "\OjSJO[CnW8_Mg9Ljk4m#eI`\_[T_WBcEaA>lgKRo^?3d5og8g?97>Ao;ZNc"
    A$ = A$ + "RSJMN>?WigimHj5WG;jM6HO^_bmRZW\m7Aa#mMAbR?;ocbO\l>K?PQkHb?R3"
    A$ = A$ + "[hBGm6bo^l?kN_^6[>FQgDjI<J6fLhR?eJA5WZe^:OjjKWlk4[>e_;oE]K[3"
    A$ = A$ + "nkF3>J<eka^Sd13^nZ<?T]k][6NRNhieDj1Md2C=k>A=OK\dUojNO4FNbN`9"
    A$ = A$ + "Fk\g_3nk<c`F3Ze9C\?_NfNU8ORn>S6DAORfAFESIcW:JQZiKdiIi?fLGYeH"
    A$ = A$ + "lWUcIR1B[PdY<JHFm:K_\RkjHZmOfNQK^IS[k^B5n_KN#n[Fk\nk4;G]Uj<n"
    A$ = A$ + "dL0BojLn9SU3oY`K^WAIfdi<CQOfhgQocRS:6Ak?ImIRM1^en4Lf4mP^iEii"
    A$ = A$ + "8IcmZlidk^LONS;_odm>D]o_[GES:kHZlklNE?OP97Ij8Em9S>=[6I`?clP2"
    A$ = A$ + ">I>OWi17\`j?KmDYGR>3bo:];K=>AmkHEc4XJ0aA^J?TOMi2gm?MhDF=[JlE"
    A$ = A$ + "d=:ad13>aj6HWeo9h_^H>CKXX=M>SJ?f]gO[l[\o]ZgaRiKY3b`QC>E`aTk?"
    A$ = A$ + "V`W9f1hdc>e:ON]>ma>JW^kn^5W=Mn?k1<k=HVmAmb\INFM8B[4E?XLZ`[IG"
    A$ = A$ + "[Jo82oAjFf_[JIiWA;`h?kl4Cn[dSWLOFog]oPj_^kHjh_bLVBmU=7`L66]h"
    A$ = A$ + "=h2gm?g\Wa^?Qa7UmCM`QjNSYmgEceEoe=W8MRR^VMnS=W:hC1Sg8oIk]MdN"
    A$ = A$ + "X_gI>#EgVmMG]kC>o=Q?MiAEk\OWY]^Enkfo_=>Llmfa8[WQRIVO^kHSRCFo"
    A$ = A$ + ";cOWILTN9[^AWW9^:LUBO^2_8m0[fPeO5N8C3DYmZdU8mAVo:F5o?E?EQoE`"
    A$ = A$ + "N5?GEcEJ]>ejDW]3>MfkViCWHaf3Hko:nbL?WhMSJOZL7e_Lb?ceD^?ciDVO"
    A$ = A$ + "^96RfMYTKVMhg#kh\kGA7mDFGL?MNEg1UecO:n_kloDmogdOWNVbnW\n:Sf1"
    A$ = A$ + "eOHfM<anmCoSZAde#i_J^92_Zl73fbfUGEoAe7BCafGHZQ:]J5NIe?EmKfi0"
    A$ = A$ + "GoER?CncVAZ^VBNIlY3GZ^oiVm<WM_Mgg75;fmhAne9WMR[3^[Ra4lgCUOVW"
    A$ = A$ + "Ohd_EV?D_GfIDeQA?_ichdEoZbSMe<MdAC^?`Y6HidKTK7n3]kaQ?WLgAWhd"
    A$ = A$ + "U?O3oMjIZ?o>K71SnYjID:j_\M]Xm`WcGIo5M_:N7M=4_N6oZLWMf<>?[ncn"
    A$ = A$ + "NFLAl9Z_UeCDl?3O\mo:=Meg[h_8^GIGTBmX<k`TOEOZj=:e:;^W8?Cb1Ijj"
    A$ = A$ + ">VZVI2L`fWEh]^eoDlgTm6E>lfje9cOWi<dcKDVijTkYeM^ak9eLEllC_7Y;"
    A$ = A$ + "nA?3mVJQ>?gLB]hKj_B][>_Ve;[NFO5FjhOenBek7ESEi4][TI_H7ocfGSja"
    A$ = A$ + "Ie?jnEcaEcNEJI5mgTnc`K8mPRFS5[>aTY7`b?AnQbYB?83cgjl^hdQoVfN["
    A$ = A$ + "l>1Vo6`mKP5WimYanDcTMmU=>MkCCfW[N>PKL^]alleWH?k4e#dcNn6fW\VF"
    A$ = A$ + "_cmIX>k_bbCEn[^6cmSN?9de>S9jn\_7FgnVBnShW<>[j\XHVaeg#oijo4?O"
    A$ = A$ + "6aaIGCabRi=<7N_;GjHMkIgRoFkkROOJ\<UNM:LlFL^J]g1[_I]^fgSemI6["
    A$ = A$ + "oj_kDWWiSb;cmV`oZJeimQDiN5>T]nIkSokk\eo96#a<2_XN#Uo\L_[>eeo>"
    A$ = A$ + "l?;>#nZX;IeI>6B;Q`^cL`=ioKQceFK]eFK]ebogV6mLk^?7O]eFK]eFK]eF"
    A$ = A$ + "K]eniJ^onQg6g[]fJ[]fJ[]fJ[iJ?aom_kRUKk_CMg5OIgKBNl9l_[ni_^o["
    A$ = A$ + "moia<mGG]hCRo\oM3HZig^7`fKHk3_9NoVicennjOkNkgYo=ic?WZgmC7o?M"
    A$ = A$ + "_NZcf]ncNo\>mLfnVJ\?OOQZj7mn4AWYKod9FIeb=e?oem?[7LSMHMdEMcM5"
    A$ = A$ + "6#c::l6keIao4L1SNhKni4:hl]OfgKWoY`nOE\dMVHbgm`17CZoVH7n4hAaO"
    A$ = A$ + "eM5Md7Wh[2oC[on6aodj=F>Piig>eXC_S=WXn^S>0aMWa`M75:^ClN;>a:jL"
    A$ = A$ + "\j84gMjKVnh_\oIJHF]kTWaaDeo<gCMnUUoEhLgm?:mMeJl]<FLZbmg0W_In"
    A$ = A$ + "Sd?^nlVj1d\hCTGWi_<NkVc_CUK6MA7=EWIQXNRRfaQcEN6JTF=[Vo=SOgWo"
    A$ = A$ + "Mj?keAj3dWMhMElWmIWN9;_WQKD<jZObbWj\NdiIR5cmZdR\e>BObZo[l7QY"
    A$ = A$ + "^m`KUo^c_:cGZmiKgo#c5Ac9^jEGm?;ojbo:ih==EL>an;WhYdkoFhZccb^_"
    A$ = A$ + "8[^E^g=aAglbToZM=:hg9o<lFGn`Y7FE?:a#Q7DiNfWMDm<4VHmC5oAWQM>#"
    A$ = A$ + "Yg7YgR^W;7X67Vj>3o:gKZj?JNQ]6L[_\[i\k2Y;cd?<J:gmO\6[f_Z6bjSE"
    A$ = A$ + "LIGmOglGYaVH?6C^IkECbOIg3=3jD78OHaMUfGEg6EcC>G=YEQCDOEY7``]\"
    A$ = A$ + "hEEGcTOFNRI^[bGFocVERn<C\L`0:n^iEIg;SVa53^nFMFF^TIgGT?MfOU5_"
    A$ = A$ + "Yeo<h3e;bbQZ>JBlGm<05lWU;eI\>cP\L0Sibm>J_>k_DdnEn`\oB]nRhc>h"
    A$ = A$ + "ol<\k?bR;:N8M=;G>Ya>3cd3O3oIRQj\gTiVYnE<d<[b<JeLEdLV:nc^?2SX"
    A$ = A$ + "?cjcgVQ`9k^2Do_b76n7Q9VcFeWH>CFm[PUXlY>KPnlTi6YADW1Lfo`j;kl?"
    A$ = A$ + "ZoUeoW038mKGlcfkMfieEo7ES<l1SoZl`4hG]oWQOdgAJPZnidm_<]:J6Z:o"
    A$ = A$ + "Iec=dOIigiNEmkZM7:eWbe#c`8oIdAIcL\OW]fAWUM6DY7Xj_RM3lc<KQ>3k"
    A$ = A$ + "l[S_\l_CoWIgCe>8DoWI>]RGR`6CmQVcD>cgPa\O9ROL__j<Hfl2ki^m>0Un"
    A$ = A$ + "KD\Hd#El[C<LV]E[m>kOHmU96IJRZcf=oXhEYUSR]j<3C<DkoX[aD_^gWYGZ"
    A$ = A$ + "<3hPO47cPo\iG4FD^OEo;jl\njZkMio<l[L_^i7=cbdGL`GEO]2;Il2:F\cW"
    A$ = A$ + "EO?;WAHVEKcfoHk1^JH7;KV1=;=Yo8^SYfOKlc<GPdNZnc<cDa[<ci<j]Zi^"
    A$ = A$ + "gfHg;Ta?<JP8M:jJ>h^jLMd`8<b>3b4?7MJ7oIa;c\2C^cj9EWEY?f96g:oA"
    A$ = A$ + "JF5^S13Zck>cKAcMEeAVOEe9SVCI6llNAWo=`?[nAin<HdaGWnOD<D_7JFP5"
    A$ = A$ + "oEm2E\YdgDZ_<mC6gS`3:F<eSSV9Kn\Zf[hJfn7C_ZbHdnX?cF[:LB5n#gGQ"
    A$ = A$ + "3Hk9:m_9ZOfIQ8]Wb<>[n_RKAa6am8l[d?MenZnWQ;deDge`dGHjC<lJEoei"
    A$ = A$ + "<C^o8B;a>gUY3kh?[_WW;KnUQKc`OWI?D]dInM:<PdB>JH6==KocAk`67D?W"
    A$ = A$ + "A;Shn8nQ57Ma?Ko_[oXi]8m0S62mI5oV:>\jh9l7aW<i]B;Sd?:cHEW5Qc<m"
    A$ = A$ + "WSoEL#fgAc#EO^bOeIW^VB<IgmXFoEJ=D_[Zo`doD\>aPEOZVG5mCen]\LR^"
    A$ = A$ + "NGmc=degH>YJ70j\ZlD7>Aeo9VORZCfMXONf>klHgiL3<TEO\mR\i#DnIjI<"
    A$ = A$ + "e#e>47o[>;KokYjMIoUI_=Rk#H1ecId2<m]\JTYgiROF>XKmc>SYd7S>?[N^"
    A$ = A$ + "Z?X676on6l_ZWQjKZh;;V\i[b7ViQ<m;KLch>UND6_TQ?6oEgOUa1X?cDCZe"
    A$ = A$ + "?JO7j<XHajc4F4fEe9<m?dlPjW[d?MkC:k#NbNUC_E5OM[5GoOCm_Z^9jLAj"
    A$ = A$ + "E7\PdK\nkPS>l?J>\Jn?c75lkTO6NCIGVKO;:OWHA96Md]Ik3SZ[:NRYG``e"
    A$ = A$ + "Xn8Z_EYS^1ncdh>c1\j>TV]B;`b18n_Kno6lWA3Rj1\cWIG;JfSI6TYFHWmA"
    A$ = A$ + "HAAoc>o5=KWa1gfo<NT]7jFoXNO5N#hPEcPdmAaBAkaRM6<`>OQjo\l62?_9"
    A$ = A$ + "oW=GnDnkf3[lK:k]co4HoD?=A\LlOZHYVCWiW<\kjkCWk^lK4NEjKIk>IfK5"
    A$ = A$ + "ec#cQIkWMl?3cXmMoV`OT6#M7H7mmjo<k7jZon<6XHcZoDa_Ra4S<LP^Ffl2"
    A$ = A$ + "Zf?m?SOIlO:l[ZoVh\EWW9FXJn9mGMoGDNbn\3nEk1>HWYn[V?^]o^L#7nLR"
    A$ = A$ + "N`CWoY`nO=\dMoeDmoXWOhbK\kMNcNGfI^5fWPOcZg:nhg6nWB[LZIbfoSh`"
    A$ = A$ + "eOmgm_ccFIb9ccbOBOW>oZcPgbo^h_So\hl_PeQcV`o^H?23>JDF=DgigYd["
    A$ = A$ + "Ie`K[SNKmlJjm\gL6n4;_=WlC0oOC?oLBOnYPo9jOM>kj_WoW__#EoolcgDC"
    A$ = A$ + "\fJ[]fJ[]fJ[]FVmfonYoZnklk3odWo71_Mm%%%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

Print this item

  Help with hardware and software graphics
Posted by: Ikerkaz - 04-27-2022, 11:08 AM - Forum: Help Me! - Replies (18)

Hi to everyone!

First of all, sorry for my terrible english, I'm from Spain Sad
I will try to explain myself.

I am making a Star Trek space game, some kind of mix between EGATrek and ST: Armada. I don't know if I am going to finish it, but I am enjoying the creation as a hobby Smile

Currently the game displays background space, stars, planets and several ships (allies and enemies). You have 3 allied ships, and you can move them with mouse (clicking on the screen rotates and moves the ship automatically).

My problem is that the game is a little slow when I paint nebulae or several things on the screen. I am using all software graphics, but I read several days ago that you can load graphics into hardware, with the "33" switch, and in theory the game would speed up.

I tried to recode all the game with this option, but I failed. The game paints some things, but others don't. Also, I tried to use display order, but I don't know how to use it, and sometimes the game displays only the hardware graphics previously loaded, or it only displays some points and lines (I drew them with PSET and LINE in some parts of the code).

Please can you help me? If anybody wants the source code, I will be pleased to send it to you.

Thank you !!!

IKZ

Print this item

  Fighter Planes - WWII Fighter Plane Graphics.
Posted by: Pete - 04-27-2022, 04:13 AM - Forum: TheBOB - No Replies

Fighter-Planes.bas by Bob Seguin.
[Image: Screenshot-644.png]
Description: Simple graphics depiction of two WWII fighter planes.


Code: (Select All)
_TITLE "WWII Fighter Planes by Bob Seguin"

DEFINT A-Z
DIM Box(1825)

SCREEN 12

RESTORE PaletteDATA
OUT &H3C8, 0
FOR n = 1 TO 48
    READ Colr: OUT &H3C9, Colr
NEXT n
RESTORE PlaneDATA
GOSUB DrawPLANE
GET (0, 0)-(89, 75), Box()
PUT (0, 0), Box()
PUT (348, 160), Box()

RESTORE Plane2DATA
GOSUB DrawPLANE
GET (0, 0)-(89, 75), Box()
PUT (0, 0), Box()
PUT (200, 160), Box()

a$ = INPUT$(1)
END

DrawPLANE:
MaxWIDTH = 89
MaxDEPTH = 75
x = 0: y = 0
DO
    READ Count, Colr
    FOR Reps = 1 TO Count
        PSET (x, y), Colr
        x = x + 1
        IF x > MaxWIDTH THEN
            x = 0
            y = y + 1
        END IF
    NEXT Reps
LOOP UNTIL y > MaxDEPTH
RETURN

PlaneDATA:
DATA 44,0,1,8,1,15,87,0,1,8,1,7,1,15,1,8,86,0,1,8,1,7,1,15
DATA 1,7,85,0,6,8,83,0,1,7,1,0,4,8,1,0,1,7,82,0,8,8,82,0
DATA 1,7,1,0,4,8,1,0,1,7,82,0,8,8,82,0,1,7,1,0,4,8,1,0
DATA 1,7,82,0,8,8,82,0,1,7,1,0,4,8,1,0,1,7,82,0,8,8,82,0
DATA 1,6,5,3,1,2,1,13,82,0,1,6,3,3,3,2,1,13,82,0,1,6,3,3
DATA 3,2,1,13,64,0,1,7,2,0,1,7,2,0,1,7,11,0,1,6,1,3,5,2
DATA 1,13,11,0,1,7,2,0,1,7,2,0,1,7,46,0,1,8,2,0,1,8,2,0
DATA 1,8,11,0,1,6,6,2,1,13,11,0,1,8,2,0,1,8,2,0,1,8,46,0
DATA 1,8,2,0,1,8,2,0,1,8,11,0,1,6,6,2,1,13,11,0,1,8,2,0
DATA 1,8,2,0,1,8,26,0,1,6,1,3,2,12,13,2,3,12,8,2,7,12,3,2
DATA 1,6,4,2,1,3,1,2,1,13,7,2,8,12,12,2,9,12,1,3,1,6,5,0
DATA 1,3,4,12,7,2,5,9,4,12,8,2,7,12,3,2,1,6,3,2,2,3,1,2
DATA 1,13,7,2,8,12,7,2,5,9,11,12,1,3,3,0,1,3,5,5,6,13,7,9
DATA 4,5,6,13,9,5,2,13,1,6,3,2,3,3,7,13,10,5,5,13,7,9,11,5
DATA 1,3,1,0,1,3,2,5,1,12,1,5,1,12,1,5,1,2,1,13,1,2,1,13
DATA 1,2,3,9,3,15,3,9,1,12,1,5,1,12,1,13,1,2,1,13,1,2,1,13
DATA 1,2,1,13,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,13
DATA 1,6,2,2,4,3,2,13,1,2,1,13,1,2,1,13,1,2,1,5,1,12,1,5
DATA 1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,13,1,2,1,13,1,2,3,9
DATA 3,15,3,9,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12,2,5
DATA 1,3,6,12,5,2,2,9,2,15,3,4,2,15,2,9,3,12,6,2,10,12,1,6
DATA 1,2,5,3,1,5,6,2,10,12,3,2,2,9,2,15,3,4,2,15,2,9,15,12
DATA 6,2,3,9,1,15,5,4,1,15,3,9,3,12,5,2,10,12,1,6,1,2,5,3
DATA 1,5,7,2,9,12,2,2,3,9,1,15,5,4,1,15,3,9,14,12,6,2,2,9
DATA 1,15,7,4,1,15,2,9,5,12,3,2,10,12,1,6,1,2,5,3,1,5,7,2
DATA 9,12,2,2,2,9,1,15,7,4,1,15,2,9,12,12,8,2,2,9,1,15,7,4
DATA 1,15,2,9,6,12,3,2,9,12,1,6,6,3,1,5,7,2,9,12,2,2,2,9
DATA 1,15,7,4,1,15,2,9,10,12,1,3,9,2,2,9,1,15,7,4,1,15,2,9
DATA 1,12,1,3,1,12,1,3,1,12,1,3,4,2,1,12,1,3,1,12,1,3,1,12
DATA 1,3,1,12,1,3,1,6,6,3,1,5,7,2,1,12,1,3,1,12,1,3,1,12
DATA 1,3,1,12,1,3,1,12,2,2,2,9,1,15,7,4,1,15,2,9,1,12,1,3
DATA 1,12,1,3,1,12,1,3,1,12,1,3,1,12,1,3,1,6,1,11,1,2,1,11
DATA 1,2,1,11,1,2,1,11,1,2,1,11,3,9,1,15,5,4,1,15,3,9,1,3
DATA 1,12,1,3,1,12,1,3,1,12,1,11,1,2,1,11,1,2,1,3,1,12,1,3
DATA 1,12,1,3,1,12,1,3,1,12,1,6,2,3,2,10,2,3,1,5,1,2,1,11
DATA 1,2,1,11,1,2,1,11,1,12,1,3,1,12,1,3,1,12,1,3,1,12,1,3
DATA 1,12,1,3,1,12,1,11,3,9,1,15,5,4,1,15,3,9,1,3,1,12,1,3
DATA 1,12,1,3,1,12,1,3,1,12,1,3,1,6,1,0,1,6,8,11,1,3,2,9
DATA 2,15,3,4,2,15,2,9,7,3,5,11,7,3,1,6,1,3,3,10,1,15,1,3
DATA 1,5,6,11,12,3,1,11,2,9,2,15,3,4,2,15,2,9,9,3,1,6,3,0
DATA 1,6,4,11,5,3,3,9,3,15,3,9,9,3,5,11,6,3,2,6,2,10,2,15
DATA 1,6,1,5,6,11,12,3,2,11,3,9,3,15,3,9,1,11,8,3,1,6,6,0
DATA 1,6,8,3,7,9,11,3,6,11,4,3,1,6,3,10,3,15,1,5,6,11,12,3
DATA 3,11,7,9,2,11,6,3,1,6,9,0,2,6,1,3,1,6,1,3,1,6,1,3
DATA 1,6,1,3,5,9,1,3,1,6,1,3,1,6,1,3,1,6,1,3,1,6,1,3
DATA 1,6,1,3,1,6,1,3,6,11,1,6,1,3,8,6,1,5,5,11,1,3,1,6
DATA 1,3,1,6,1,3,1,6,1,3,1,6,1,3,1,6,1,3,1,6,1,3,4,11
DATA 5,9,6,11,1,3,2,6,12,0,1,6,1,3,1,6,1,3,1,6,1,3,1,6
DATA 1,3,1,6,1,3,1,6,1,3,1,6,1,3,1,6,1,3,1,6,1,3,1,6
DATA 1,3,1,6,1,3,1,6,1,3,7,11,1,3,1,6,1,3,1,6,1,10,1,3
DATA 1,10,1,15,1,3,1,15,1,5,5,11,1,6,1,3,1,6,1,3,1,6,1,3
DATA 1,6,1,3,1,6,1,3,1,6,1,3,1,6,1,3,14,11,1,6,16,0,18,12
DATA 4,6,7,11,4,6,1,10,1,3,1,10,1,15,1,3,1,15,1,5,5,11,8,6
DATA 8,12,10,2,1,6,21,0,14,6,1,3,6,6,6,11,3,6,1,10,4,3,1,15
DATA 1,5,4,11,9,6,1,3,10,6,5,11,28,0,10,6,1,3,6,6,7,11,2,6
DATA 1,10,4,3,1,15,1,5,4,11,9,6,1,3,11,6,38,0,4,6,1,3,7,6
DATA 6,11,2,6,1,10,4,3,1,15,1,5,3,11,10,6,1,3,5,6,63,0,1,6
DATA 1,10,4,3,1,15,1,5,82,0,1,6,6,3,1,5,82,0,1,6,6,3,1,5
DATA 82,0,1,9,6,3,1,9,82,0,1,15,6,3,1,15,82,0,1,4,6,3,1,4
DATA 82,0,1,4,6,3,1,4,82,0,1,4,1,2,5,3,1,4,82,0,1,15,1,2
DATA 4,3,1,5,1,15,82,0,1,9,1,2,4,3,1,5,1,9,82,0,1,6,1,2
DATA 4,3,1,5,1,6,82,0,1,6,3,2,2,3,1,5,1,6,83,0,1,6,3,2
DATA 1,3,1,5,84,0,1,6,4,2,1,13,84,0,1,6,4,2,1,13,84,0,1,6
DATA 4,2,1,13,84,0,1,6,4,2,1,13,84,0,1,6,1,3,3,2,1,13,84,0
DATA 2,6,1,3,3,2,84,0,2,6,1,3,3,2,84,0,2,6,2,3,2,2,85,0
DATA 1,6,2,3,1,5,86,0,1,6,2,3,1,5,86,0,1,6,2,3,1,5,86,0
DATA 1,6,2,3,1,5,86,0,1,6,3,5,73,0,1,3,2,12,11,2,1,6,1,5
DATA 5,2,4,3,5,2,1,6,57,0,1,6,2,12,13,13,1,6,1,5,2,13,5,3
DATA 9,13,54,0,1,6,1,12,3,3,13,2,1,6,1,5,6,3,11,2,1,6,51,0
DATA 1,6,1,12,4,3,1,2,1,11,1,2,1,11,1,2,1,11,1,2,1,11,1,2
DATA 1,11,1,2,1,11,1,3,1,6,1,5,6,3,1,11,1,2,1,11,1,2,1,11
DATA 1,2,1,11,1,2,1,11,1,2,1,11,1,2,1,6,50,0,1,6,1,12,1,3
DATA 15,11,1,3,1,6,1,5,6,3,12,11,1,6,50,0,1,6,1,3,16,11,1,3
DATA 1,6,1,5,6,3,12,11,1,6,50,0,1,6,12,11,6,3,1,6,1,5,4,3
DATA 14,11,1,6,51,0,10,11,8,3,1,6,1,5,4,3,14,11,53,0,9,2,8,12
DATA 1,6,1,5,3,12,14,2,55,0,1,6,7,11,8,3,1,6,1,5,3,3,12,11
DATA 1,6,58,0,1,6,4,11,9,3,1,6,1,5,2,3,11,11,1,6,62,0,1,6
DATA 11,3,1,6,1,5,2,3,10,11,68,0,1,6,7,3,1,6,1,5,2,3,5,11
DATA 1,6,36,0

Plane2DATA:
DATA 44,0,1,8,1,15,87,0,1,8,1,7,1,15,1,8,86,0,1,8,1,7,1,15
DATA 1,7,85,0,6,8,83,0,1,7,1,0,4,8,1,0,1,7,81,0,1,7,8,8
DATA 1,7,80,0,2,7,1,0,4,8,1,0,2,7,80,0,1,7,8,8,1,7,80,0
DATA 2,7,1,0,4,8,1,0,2,7,80,0,1,7,8,8,1,7,81,0,1,7,1,0,4,8
DATA 1,0,1,7,82,0,8,8,82,0,6,8,1,7,1,15,82,0,4,8,3,7,1,15
DATA 82,0,4,8,3,7,1,15,67,0,1,7,2,0,1,7,11,0,2,8,5,7,1,15
DATA 11,0,1,7,2,0,1,7,52,0,1,8,2,0,1,8,11,0,1,8,6,7,1,15
DATA 11,0,1,8,2,0,1,8,52,0,1,8,2,0,1,8,11,0,1,8,6,7,1,15
DATA 11,0,1,8,2,0,1,8,26,0,7,8,13,7,3,8,8,7,7,8,3,7,1,8
DATA 4,7,1,8,1,7,1,15,7,7,8,8,12,7,21,8,11,7,5,8,8,7,7,8
DATA 3,7,1,8,3,7,2,8,1,7,1,15,7,7,8,8,12,7,14,8,7,7,10,15
DATA 7,7,6,15,9,7,2,15,1,8,3,7,3,8,7,15,10,7,12,15,13,7
DATA 1,8,2,7,1,8,1,7,1,8,2,7,1,15,1,7,1,15,1,7,1,15,1,7
DATA 1,15,1,7,1,15,1,8,1,7,1,8,2,7,3,15,1,7,1,15,1,7,1,15
DATA 1,7,1,15,1,8,1,7,1,8,1,7,1,8,1,7,1,8,1,7,1,8,1,15,1,8
DATA 2,7,4,8,2,15,1,7,1,15,1,7,1,15,2,7,1,8,1,7,1,8,1,7
DATA 1,8,1,7,1,8,2,7,3,15,1,7,1,15,1,7,1,15,1,7,1,15,1,7
DATA 1,15,2,7,1,8,1,7,1,8,1,7,1,8,1,7,1,8,1,7,1,8,2,7,7,8
DATA 10,7,4,8,1,15,1,7,1,8,1,15,1,8,1,7,1,15,4,7,11,8,1,7
DATA 5,8,7,7,8,8,1,15,1,7,1,8,1,15,1,8,1,7,1,15,7,7,17,8
DATA 11,7,4,8,2,15,1,7,1,8,1,15,1,8,1,7,2,15,3,7,11,8,1,7
DATA 5,8,8,7,6,8,2,15,1,7,1,8,1,15,1,8,1,7,2,15,6,7,17,8
DATA 11,7,3,8,4,7,1,8,1,15,1,8,6,7,11,8,1,7,5,8,8,7,5,8
DATA 4,7,1,8,1,15,1,8,9,7,15,8,11,7,5,8,1,15,4,8,1,15,4,8
DATA 1,15,3,7,16,8,8,7,5,8,1,15,4,8,1,15,4,8,1,15,5,7,14,8
DATA 11,7,6,8,11,15,4,7,10,8,4,10,1,8,8,7,5,8,11,15,4,7
DATA 15,8,10,7,7,8,1,15,4,8,1,15,4,8,1,15,4,7,10,8,3,10
DATA 1,15,1,8,7,7,6,8,1,15,4,8,1,15,3,8,1,7,1,15,3,7,17,8
DATA 8,7,8,8,4,7,1,8,1,15,1,8,9,7,9,8,3,10,1,15,1,8,7,7
DATA 6,8,4,7,1,8,1,15,1,8,10,7,15,8,4,7,12,8,2,15,1,7,1,8
DATA 1,15,1,8,1,7,2,15,2,8,5,7,7,8,3,10,3,15,7,7,7,8,2,15
DATA 1,7,1,8,1,15,1,8,1,7,2,15,8,7,31,8,1,15,1,7,1,8,1,15
DATA 1,8,1,7,1,15,4,8,6,7,5,8,3,10,3,15,7,7,8,8,1,15,1,7
DATA 1,8,1,15,1,8,1,7,1,15,9,7,11,8,1,0,20,8,1,7,3,15,1,7
DATA 6,8,6,7,10,8,6,7,10,8,1,7,3,15,14,7,8,8,4,0,3,8,22,7
DATA 2,8,7,7,4,8,1,10,1,8,1,10,1,15,1,8,1,15,6,7,14,8,14,7
DATA 6,8,9,0,21,8,1,7,2,8,7,7,4,8,1,10,1,8,1,10,1,15,1,8
DATA 1,15,6,7,7,8,19,7,4,8,18,0,16,8,1,7,4,8,6,7,3,8,1,10
DATA 1,8,1,10,1,15,1,8,1,15,5,7,8,8,1,7,11,8,5,7,2,8,26,0
DATA 12,8,1,7,4,8,7,7,2,8,1,10,1,8,1,10,1,15,1,8,1,15,5,7
DATA 8,8,1,7,13,8,37,0,6,8,1,7,5,8,6,7,4,8,1,10,1,15,2,8
DATA 4,7,9,8,1,7,6,8,63,0,1,8,1,10,1,8,1,10,1,15,1,8,1,15
DATA 1,7,82,0,7,8,1,7,82,0,7,8,1,7,82,0,1,15,6,8,1,15,82,0
DATA 1,15,6,8,1,15,83,0,6,8,84,0,6,8,84,0,1,7,5,8,83,0,1,15
DATA 1,7,4,8,1,7,1,15,82,0,1,15,1,7,4,8,1,7,1,15,82,0,1,8
DATA 1,7,4,8,1,7,1,8,82,0,1,8,3,7,2,8,1,7,1,8,83,0,1,8,3,7
DATA 1,8,1,7,84,0,1,8,5,7,84,0,1,8,5,7,84,0,1,8,5,7,84,0
DATA 1,8,5,7,84,0,2,8,4,7,84,0,3,8,3,7,84,0,3,8,3,7,84,0
DATA 4,8,2,7,85,0,3,8,1,7,86,0,3,8,1,7,86,0,3,8,1,7,86,0
DATA 3,8,1,7,86,0,1,8,3,7,73,0,3,8,11,7,1,8,6,7,4,8,5,7
DATA 1,8,57,0,3,8,13,15,1,8,1,7,2,15,5,8,9,15,56,0,3,8,13,7
DATA 1,8,1,7,6,8,10,7,56,0,3,8,12,7,2,8,1,7,6,8,10,7,56,0
DATA 15,7,2,8,1,7,6,8,10,7,56,0,15,7,2,8,1,7,6,8,10,7,56,0
DATA 10,7,7,8,1,7,4,8,12,7,56,0,8,7,9,8,1,7,4,8,12,7,56,0
DATA 8,8,8,7,1,8,4,7,13,8,56,0,1,8,7,7,9,8,1,7,3,8,12,7
DATA 1,8,58,0,1,8,4,7,10,8,1,7,2,8,11,7,1,8,74,0,1,8,1,7
DATA 88,0,1,8,1,7,44,0

PaletteDATA:
DATA 0,0,30,0,0,42,38,23,0,13,16,0
DATA 63,0,0,27,30,0,6,9,0,42,42,42
DATA 21,21,21,21,21,63,38,43,53,33,18,0
DATA 19,23,0,45,27,0,63,63,21,63,63,63

Print this item