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

Username/Email:
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 326
» Latest member: hafsahomar
» Forum threads: 1,758
» Forum posts: 17,919

Full Statistics

Latest Threads
MBA Assignment Help in Du...
Forum: General Discussion
Last Post: hafsahomar
06-11-2025, 07:05 AM
» Replies: 0
» Views: 11
лучшие песни медляки слуш...
Forum: Petr
Last Post: WillieTop
06-08-2025, 02:21 AM
» Replies: 0
» Views: 24
пинк слушать онлайн беспл...
Forum: SMcNeill
Last Post: WillieTop
06-08-2025, 02:20 AM
» Replies: 0
» Views: 22
скачать музыку российскую...
Forum: madscijr
Last Post: WillieTop
06-08-2025, 02:18 AM
» Replies: 0
» Views: 23
нежная музыка mp3 скачать
Forum: Keybone
Last Post: WillieTop
06-08-2025, 02:17 AM
» Replies: 0
» Views: 21
лучшая песня слушать онла...
Forum: bplus
Last Post: WillieTop
06-08-2025, 02:16 AM
» Replies: 0
» Views: 24
пикник слушать онлайн луч...
Forum: Spriggsy
Last Post: WillieTop
06-08-2025, 02:15 AM
» Replies: 0
» Views: 22
какая сейчас популярная м...
Forum: RhoSigma
Last Post: WillieTop
06-08-2025, 02:14 AM
» Replies: 0
» Views: 18
хит лета 2019 музыка на т...
Forum: Christmas Code
Last Post: WillieTop
06-08-2025, 02:12 AM
» Replies: 0
» Views: 25
бесплатная музыка mp3 рег...
Forum: Works in Progress
Last Post: WillieTop
06-08-2025, 02:11 AM
» Replies: 0
» Views: 17

 
  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: 56)
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

  Moon Lander
Posted by: ChiaPet - 04-27-2022, 02:29 AM - Forum: Programs - Replies (7)

[Image: lander-000.png]

Objective is to land softly on level ground.  Cancel the horizontal velocity
with left and right arrow, land by controlling the main thrust with up and
down arrow.

Has 10 surface features, including a McDonalds.  Several flying features,
like a Death Star, Borg spacecraft, and black holes.

Most of the files, in the directories stars1-3, are optional, only called upon 
if one turns on the stars with 1-4.

Originally written in QB4.5.  Translated to QB64 it's much faster, which
allows all features to be active at once - stuff like fancy ground, stars,
a rotating Death Star, etc.

Take a trip down memory lane with /, which changes the display to green
screen, amber, or black & white.


Oy vey.   I attached a .7z file twice, and don't see it.  

Will try again tomorrow.



Attached Files
.7z   L64.7z (Size: 2.72 MB / Downloads: 108)
Print this item

  GFX256 - Graphics Drawing and Animation Suite.
Posted by: Pete - 04-27-2022, 01:32 AM - Forum: TheBOB - No Replies

GFX256.bas by Bob Seguin.
[Image: Screenshot-643.png]
Description: Graphics-256 is a graphics/animation utility designed to create graphics specifically for programs written in QB64's 8-bit (256 color) screen. Files can be of any size.

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

Install: Compile GFX256.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-GFX256.7z (Size: 116.08 KB / Downloads: 83)
Print this item

  Gothic - A Font Demo Using Masks.
Posted by: Pete - 04-27-2022, 01:00 AM - Forum: TheBOB - No Replies

Gothic.bas by Bob Seguin.
[Image: Screenshot-581.png]
Description: A simple demonstration of mask usage to create typed text with transparent background in QBasic for SCREEN 12.

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

Install: Compile Gothic.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-Gothic.7z (Size: 2.99 KB / Downloads: 66)
Print this item