Print Page - MAZEBALL: Tilt Maze puzzle clone

Title: MAZEBALL: Tilt Maze puzzle clone
Post by: Dav on August 20, 2020, 08:19:16 pm

This is a tilt maze puzzle game clone, where you try to get the ball to a certain place in the maze. I did not come up with the idea of this puzzle game, just wanted to clone it in QB64. Tilt maze is a popular maze puzzle. Someone on The Qbasic Forum even posted a SCREEN 0 version of one a few years ago which got me into it, and I've been playing other tilt maze puzzles online since then. Hope you enjoy this game.

This is a pure QB64 code only game, no external files needed, just the one BAS source.

NOTE: Please read the credits, as they were my inspiration and deserve credit for this QB64 version to exist.

EDIT: Latest version of this game is here:
https://www.qb64.org/forum/index.php?topic=2936.msg121999#msg121999 (https://www.qb64.org/forum/index.php?topic=2936.msg121999#msg121999)

- Dav

Code: QB64: [Select]

'============
'MAZEBALL.BAS
'============
'Clone of the Tilt Maze Puzzle games.
'QB64 code by Dav, AUG/2020
 
'The goal is to move the ball to the star.
'Use arrows to move the ball.  Walls will stop
'the ball moving so navigate around them.
'There are 10 levels to complete and they get
'harder as you go.  To help you (cheat) you can
'jump to other levels by using the +/- keys.
'Press SPACE to reset level and start over.
 
'If you beat the last level, you will get a
'smiley face and hear a happy song.
 
'For those who get stuck, solutions are below.
 
'=======
'CREDITS:
'=======
 
'I didn't come up with this game - It's been around for a while.
'It's mostly a clone of a cool game posted on THE QBASIC FORUM here:
'https://www.tapatalk.com/groups/qbasic/tilting-maz-game-t39133.html
'Also some levels derived from the original tilt maze game here:
'https://www.mathsisfun.com/games/tilt-maze.html
'There's other Tilt Maze games that influenced me.
 
'My thanks to those original game authors for the tilt maze fun.
'Please accept this QB64 version as a compliment from a fan.
 
'=================================================================
 
'Solutions below, for those who get stuck...
 
'#1)  LURDR
'#2)  LURULDRUL
'#3)  DRULDRDLULUR
'#4)  DRURULURULDR
'#5)  URDLULDLURDLU
'#6)  RDRULDRULDRD
'#7)  DRULDLURDRULDRD
'#8)  RDLDLULDLURURULDRD
'#9)  LURULULDLDRDRURULURDLDR
'#10) DRULDLDRURULULURDLURDRULDRURD
 
DEFINT A-Z
 
puzzle = 1 'start on puzzle 1
puzzlemax = 10 'there are 10 puzzles total
 
SCREEN _NEWIMAGE(640, 640, 32): _SCREENMOVE _MIDDLE
DO UNTIL _SCREENEXISTS: LOOP
 
'load images...
ball& = BASIMAGE1&
blank& = BASIMAGE2&
pass& = BASIMAGE3&
star& = BASIMAGE4&
wall& = BASIMAGE5&
face& = BASIMAGE6&
 
_ICON ball&
 
 
'======
restart:
'======
 
_TITLE "Level: " + STR$(puzzle) + " of" + STR$(puzzlemax)
 
GOSUB SetLevel
 
'draw puzzle level
CLS , _RGB(51, 51, 51)
REDIM SHARED pdata$(grid, grid)
bs = INT(_WIDTH / grid)
m = 1
FOR x = 0 TO grid - 1
    FOR y = 0 TO grid - 1
        a$ = MID$(puz$, m, 1)
        pdata$(x + 1, y + 1) = a$
        IF a$ = "x" THEN _PUTIMAGE (y * bs, x * bs)-(y * bs + bs, x * bs + bs), wall&
        IF a$ = "b" THEN
            _PUTIMAGE (y * bs + 1, x * bs + 1)-(y * bs + bs - 1, x * bs + bs - 1), ball&
            ballx = y * bs: bally = x * bs
        END IF
        IF a$ = "y" THEN _PUTIMAGE (y * bs + 1, x * bs + 1)-(y * bs + bs - 1, x * bs + bs - 1), star&
        m = m + 1
    NEXT
NEXT
 
_DISPLAY
 
 
DO
    'get user keypress...
    DO: k$ = INKEY$: _AUTODISPLAY: LOOP UNTIL k$ <> ""
 
    'if right arrow....
    IF k$ = CHR$(0) + CHR$(77) THEN
 
        'current ball location in x,y
        cx = ballx / bs + 1: cy = bally / bs + 1
 
        'Move ball right...
        FOR x = cx + 1 TO grid + 1
 
            'move it smoothly, by pixels...
            FOR x2 = ((x - 1 - cx) * bs) TO ((x - cx) * bs) STEP 2
 
                'if come to star
                IF pdata$(cy, x) = "y" THEN
                    _PUTIMAGE (ballx + x2 + 1, bally + 1)-(ballx + x2 + bs - 1, bally + bs - 1), blank&
                    _PUTIMAGE (ballx + x2 + bs, bally)-(ballx + x2 + bs + bs, bally + bs), blank&
                    _PUTIMAGE (ballx + x2 + bs, bally)-(ballx + x2 + bs + bs, bally + bs), ball&
                    GOSUB Done
                    GOTO restart
                END IF
 
                'if come to wall...
                IF pdata$(cy, x) = "x" THEN
                    ballx = ballx + x2 + 1
                    SOUND 500, .1: GOTO moved
                END IF
 
                'Draw ball image....
                _PUTIMAGE (ballx + x2 + 1, bally + 1)-(ballx + x2 + bs - 1, bally + bs - 1), blank&
                _PUTIMAGE (ballx + x2 + 1, bally + 1)-(ballx + x2 + bs - 1, bally + bs - 1), ball&
                _DISPLAY
                _LIMIT 500
            NEXT
 
        NEXT
    END IF
 
    'if left arrow...
    IF k$ = CHR$(0) + CHR$(75) THEN
        cx = ballx / bs + 1: cy = bally / bs + 1
        'Move ball left...
        FOR x = cx - 1 TO 0 STEP -1
            FOR x2 = (x + 1 - cx) * bs TO (x - cx) * bs STEP -2
                IF pdata$(cy, x) = "y" THEN
                    _PUTIMAGE (ballx + x2 + 1, bally + 1)-(ballx + x2 + bs - 1, bally + bs - 1), blank&
                    _PUTIMAGE (ballx + x2 - bs, bally)-(ballx + x2, bally + bs), blank&
                    _PUTIMAGE (ballx + x2 - bs, bally)-(ballx + x2, bally + bs), ball&
                    GOSUB Done
                    GOTO restart
                END IF
                IF pdata$(cy, x) = "x" THEN
                    ballx = ballx + x2 - 1
                    SOUND 500, .1
                    GOTO moved
                END IF
                _PUTIMAGE (ballx + x2 + 1, bally + 1)-(ballx + x2 + bs - 1, bally + bs - 1), blank&
                _PUTIMAGE (ballx + x2 + 1, bally + 1)-(ballx + x2 + bs - 1, bally + bs - 1), ball&
                _DISPLAY
                _LIMIT 500
            NEXT
        NEXT
    END IF
 
    'down arrow
    IF k$ = CHR$(0) + CHR$(80) THEN
        cx = ballx / bs + 1: cy = bally / bs + 1 'current x,y
        FOR y = cy + 1 TO grid + 1
            FOR y2 = (y - 1 - cy) * bs TO (y - cy) * bs STEP 2
                IF pdata$(y, cx) = "y" THEN
                    _PUTIMAGE (ballx + 1, bally + y2 + 1)-(ballx + bs - 1, bally + y2 + bs - 1), blank&
                    _PUTIMAGE (ballx, bally + y2 + bs)-(ballx + bs, bally + y2 + bs + bs), blank&
                    _PUTIMAGE (ballx, bally + y2 + bs)-(ballx + bs, bally + y2 + bs + bs), ball&
                    GOSUB Done
                    GOTO restart
                END IF
                IF pdata$(y, cx) = "x" THEN
                    bally = bally + y2 + 1
                    SOUND 500, .1
                    GOTO moved
                END IF
                _PUTIMAGE (ballx + 1, bally + y2 + 1)-(ballx + bs - 1, bally + y2 + bs - 1), blank&
                _PUTIMAGE (ballx + 1, bally + y2 + 1)-(ballx + bs - 1, bally + y2 + bs - 1), ball&
                _DISPLAY
                _LIMIT 500
            NEXT
        NEXT
    END IF
 
    'if up arrow
    IF k$ = CHR$(0) + CHR$(72) THEN
        cx = ballx / bs + 1: cy = bally / bs + 1 'current x,y
        FOR y = cy - 1 TO 0 STEP -1
            FOR y2 = (y + 1 - cy) * bs TO (y - cy) * bs STEP -2
                IF pdata$(y, cx) = "y" THEN
                    _PUTIMAGE (ballx + 1, bally + y2 + 1)-(ballx + bs - 1, bally + y2 + bs - 1), blank&
                    _PUTIMAGE (ballx, bally + y2 - bs)-(ballx + bs, bally + y2), blank&
                    _PUTIMAGE (ballx, bally + y2 - bs)-(ballx + bs, bally + y2), ball&
                    GOSUB Done
                    GOTO restart
                END IF
                IF pdata$(y, cx) = "x" THEN
                    bally = bally + y2 - 1
                    SOUND 500, .1
                    GOTO moved
                END IF
                _PUTIMAGE (ballx + 1, bally + y2 + 1)-(ballx + bs - 1, bally + y2 + bs - 1), blank&
                _PUTIMAGE (ballx + 1, bally + y2 + 1)-(ballx + bs - 1, bally + y2 + bs - 1), ball&
                _DISPLAY
                _LIMIT 500
            NEXT
        NEXT
    END IF
 
    IF k$ = CHR$(32) THEN GOTO restart
 
    IF k$ = "+" THEN
        puzzle = puzzle + 1: IF puzzle > puzzlemax THEN puzzle = 1
        GOTO restart
    END IF
 
    IF k$ = "-" THEN
        puzzle = puzzle - 1: IF puzzle < 1 THEN puzzle = puzzlemax
        GOTO restart
    END IF
 
 
    moved:
 
    IF k$ <> "" THEN _KEYCLEAR
 
LOOP
 
END
 
 
'====
Done:
'====
 
_DISPLAY
SOUND 7000, .1: _DELAY 1
_PUTIMAGE (160, 210), pass&: _DISPLAY
_DELAY 2
 
puzzle = puzzle + 1
 
'If that was last level...
IF puzzle > puzzlemax THEN
    'show smiley face
    _PUTIMAGE (100, 100)-(500, 500), face&: _DISPLAY
    'play happy music
    PLAY "o4l8gfedcal4gl8fgabo5co4gl4el8defedefgagabl4o5co4c"
    PLAY "o3l8co2l16gf#gl8g#gpbo3c"
    _DELAY 8
    puzzle = 1
END IF
 
RETURN
 
 
'=======
SetLevel:
'=======
 
'x is the wall, b is ball. y is the star
IF puzzle = 1 THEN
    puz$ = "": grid = 8
    puz$ = puz$ + "xxxxxxxx"
    puz$ = puz$ + "x   xb x"
    puz$ = puz$ + "x   yx x"
    puz$ = puz$ + "x  xx  x"
    puz$ = puz$ + "x      x"
    puz$ = puz$ + "x      x"
    puz$ = puz$ + "x      x"
    puz$ = puz$ + "xxxxxxxx"
END IF
 
IF puzzle = 2 THEN
    puz$ = "": grid = 10
    puz$ = puz$ + "xxxxxxxxxx"
    puz$ = puz$ + "xx  x    x"
    puz$ = puz$ + "x   xx   x"
    puz$ = puz$ + "x   y    x"
    puz$ = puz$ + "x     xx x"
    puz$ = puz$ + "x      b x"
    puz$ = puz$ + "x        x"
    puz$ = puz$ + "x     xx x"
    puz$ = puz$ + "x x      x"
    puz$ = puz$ + "xxxxxxxxxx"
END IF
 
IF puzzle = 3 THEN
    puz$ = "": grid = 11
    puz$ = puz$ + "xxxxxxxxxxx"
    puz$ = puz$ + "xbx  x    x"
    puz$ = puz$ + "x    x    x"
    puz$ = puz$ + "xx   x    x"
    puz$ = puz$ + "x    y  x x"
    puz$ = puz$ + "x    x    x"
    puz$ = puz$ + "x         x"
    puz$ = puz$ + "x x     x x"
    puz$ = puz$ + "x  x      x"
    puz$ = puz$ + "x   x    xx"
    puz$ = puz$ + "xxxxxxxxxxx"
END IF
 
IF puzzle = 4 THEN
    bs = INT(sw / 11) 'boxsize
    puz$ = "": grid = 11
    puz$ = puz$ + "xxxxxxxxxxx"
    puz$ = puz$ + "xbx   x   x"
    puz$ = puz$ + "x xx      x"
    puz$ = puz$ + "x         x"
    puz$ = puz$ + "x       xxx"
    puz$ = puz$ + "x x       x"
    puz$ = puz$ + "x x  xx   x"
    puz$ = puz$ + "x         x"
    puz$ = puz$ + "x xx  x xxx"
    puz$ = puz$ + "x     x  yx"
    puz$ = puz$ + "xxxxxxxxxxx"
END IF
 
IF puzzle = 5 THEN
    puz$ = "": grid = 12
    puz$ = puz$ + "xxxxxxxxxxxx"
    puz$ = puz$ + "x x      x x"
    puz$ = puz$ + "x x xxx  x x"
    puz$ = puz$ + "x          x"
    puz$ = puz$ + "x x x x xx x"
    puz$ = puz$ + "x x xbx    x"
    puz$ = puz$ + "x   xxxxx xx"
    puz$ = puz$ + "x     xyx  x"
    puz$ = puz$ + "xx         x"
    puz$ = puz$ + "x         xx"
    puz$ = puz$ + "x   x x    x"
    puz$ = puz$ + "xxxxxxxxxxxx"
END IF
 
IF puzzle = 6 THEN
    puz$ = "": grid = 13
    puz$ = puz$ + "xxxxxxxxxxxxx"
    puz$ = puz$ + "x     x     x"
    puz$ = puz$ + "x   xxx   xxx"
    puz$ = puz$ + "x           x"
    puz$ = puz$ + "xxx xxx   x x"
    puz$ = puz$ + "x         xyx"
    puz$ = puz$ + "xb    x   xxx"
    puz$ = puz$ + "x x   x     x"
    puz$ = puz$ + "xxx   xx    x"
    puz$ = puz$ + "x           x"
    puz$ = puz$ + "x   x   x x x"
    puz$ = puz$ + "x   x   x x x"
    puz$ = puz$ + "xxxxxxxxxxxxx"
END IF
 
IF puzzle = 7 THEN
    puz$ = "": grid = 15
    puz$ = puz$ + "xxxxxxxxxxxxxxx"
    puz$ = puz$ + "xbx   x     x x"
    puz$ = puz$ + "x xx          x"
    puz$ = puz$ + "x         x   x"
    puz$ = puz$ + "xx       xx   x"
    puz$ = puz$ + "x             x"
    puz$ = puz$ + "x xx       xx x"
    puz$ = puz$ + "x     x x     x"
    puz$ = puz$ + "xx            x"
    puz$ = puz$ + "x   x         x"
    puz$ = puz$ + "x   xx       xx"
    puz$ = puz$ + "x       x     x"
    puz$ = puz$ + "x      xxx    x"
    puz$ = puz$ + "x x         xyx"
    puz$ = puz$ + "xxxxxxxxxxxxxxx"
END IF
 
IF puzzle = 8 THEN
    puz$ = "": grid = 15
    puz$ = puz$ + "xxxxxxxxxxxxxxx"
    puz$ = puz$ + "x x     x     x"
    puz$ = puz$ + "x    x       xx"
    puz$ = puz$ + "x        b    x"
    puz$ = puz$ + "x     x     x x"
    puz$ = puz$ + "x  x          x"
    puz$ = puz$ + "x       x x   x"
    puz$ = puz$ + "x      xx    xx"
    puz$ = puz$ + "x             x"
    puz$ = puz$ + "xx       x    x"
    puz$ = puz$ + "x   x x       x"
    puz$ = puz$ + "x   xyx       x"
    puz$ = puz$ + "x   xxx       x"
    puz$ = puz$ + "x       x   x x"
    puz$ = puz$ + "xxxxxxxxxxxxxxx"
END IF
 
IF puzzle = 9 THEN
    puz$ = "": grid = 19
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "x x   x       x   x"
    puz$ = puz$ + "x x   xxx   x x xxx"
    puz$ = puz$ + "x           x     x"
    puz$ = puz$ + "x xxx xxxxx xxx x x"
    puz$ = puz$ + "x   x   x       x x"
    puz$ = puz$ + "xxx x   x   x   x x"
    puz$ = puz$ + "x           x     x"
    puz$ = puz$ + "x   xxx x xxx xxx x"
    puz$ = puz$ + "x     x x         x"
    puz$ = puz$ + "xxx   x xxx     x x"
    puz$ = puz$ + "x       x       x x"
    puz$ = puz$ + "x x x   x xxx   xxx"
    puz$ = puz$ + "x x x             x"
    puz$ = puz$ + "x x x xxx x   x   x"
    puz$ = puz$ + "x         x   x   x"
    puz$ = puz$ + "x xxx     x x xxx x"
    puz$ = puz$ + "x  bx       x  yx x"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxx"
END IF
 
IF puzzle = 10 THEN
    puz$ = "": grid = 21
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xbx x     x   x     x"
    puz$ = puz$ + "x x x     x   xxx   x"
    puz$ = puz$ + "x x                 x"
    puz$ = puz$ + "x x xxx x x     x   x"
    puz$ = puz$ + "x       x x     x   x"
    puz$ = puz$ + "x   x   x x     x xxx"
    puz$ = puz$ + "x   x               x"
    puz$ = puz$ + "x   x     x xxx x   x"
    puz$ = puz$ + "x         x     x   x"
    puz$ = puz$ + "xxx xxx xxxxx xxx xxx"
    puz$ = puz$ + "x         x         x"
    puz$ = puz$ + "x   xxx   x x xxx x x"
    puz$ = puz$ + "x           x     x x"
    puz$ = puz$ + "xxx xxx   x xxx   x x"
    puz$ = puz$ + "x   x     x x     x x"
    puz$ = puz$ + "x x x xxx x x   x x x"
    puz$ = puz$ + "x x             x   x"
    puz$ = puz$ + "x x     x x x   x x x"
    puz$ = puz$ + "x       x x x     xyx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxxx"
END IF
 
RETURN
 
 
 
FUNCTION BASIMAGE1& 'BALL.BMP
    v& = _NEWIMAGE(191, 193, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkMNfVDDdf6n_T77nE9WA#097Gb8ITL6TT1bI541141ET<8159YR0Ri\Ri"
    A$ = A$ + "L>W[WgcjimVWVeMW^WMkIZNVij3W7P^;cdMEGMegeMZ^n[ojMG_#842Q#842"
    A$ = A$ + "Q#842Q#842Q#842AI>g`=L3^6eX6iJFcJV[U]\U^FgjFkJOkK_kV^YKbea>f"
    A$ = A$ + "AGWjDWLM^cMfee^fEGgjFgldm^gm[i?iWeU^d5o_7onMX3M`oIdfffFoWGcK"
    A$ = A$ + "NcM=Y9=ae`6f`POo:4=X1=`edVfD_67=l07h0MSNdSf=Q9<1gLWkLM;H1;`]"
    A$ = A$ + "TU\4gbGnbM[KM[cM?gcmh^gkmNMKJCKbcVglVMggmMOnoOKH3K`]ne_NgZFe"
    A$ = A$ + "Zlongn]OknomCKJCc=a9>Ag`6f`Lm]_meol1?Oac1Qnn?;beMMg#`_6:GPed"
    A$ = A$ + "I=GF3^Wm\WNmg`7n`mJlI<SIheh;MY;e]Ve\6_NN[KM[^M\SMhNh7nQMkNgk"
    A$ = A$ + "f]om_Og1>`1L7i87amH?fSi>fa>fEih7ohNh_OdSNDo_c1?h1monkI?kao_O"
    A$ = A$ + "WkLW^7h1N0oc9l\3?K\`5^#ogkh6ghLSJDSbo<7GGlnRfdVfhJLSKL`7g4Uf"
    A$ = A$ + "PM<HkAojGoLSI<Sa[iFfbFVKKKKK^M][Mi>a9>QkdWnd^WkiN>g;nR_XkeOm"
    A$ = A$ + "G_Pb;ob_\k5NQG`mD?eCi>eY>UK_kM_nWahM:lnU9=Y9i6b#6Rgn9NNEf79B"
    A$ = A$ + "2H[n=NSgXGkP>7K>Fa:FQO=gm]_miGOn9ObWdMfcNFgcn\?[k2Gh2NM8JNdT"
    A$ = A$ + "_j[nZ5L]o[mJ_VokQ_cWoiONgU^dUlG7WkLWcMVcL6gSoh?^k`7n`^7mAODg"
    A$ = A$ + "MOgg]gf9\GJTSLT^KnV_Iok42mh\8k0f\S=2mX7m`Kk`lWolm[Qn#?d3i]mh"
    A$ = A$ + "INVWaMi;Oi2^^>]hUNYGbOmbcZl<;fR]h5_H_n_om_o^FdRF8KRZP1Khag93"
    A$ = A$ + "N`3f=kI?K_n0kba6VcOncO=[Yo:_b[DDFC?]Og0?3`mPm^1NO5??`nAhIQa?"
    A$ = A$ + "naOem=7ji3Aa1\Q_M][Mnm]R?DH_SHk>J3\K?=eiX3[?TVG7HG6?7`nYgbFf"
    A$ = A$ + "RgV>lM4__Cn<Zl5c?=gj]N[^5]X5i]7Ve0af0FOTef;DJ>NFZ^#JNM4mjQkE"
    A$ = A$ + "^WIo2\?1la4_gK>cI>ne3HL:dcGRj?\N6ffPM^H_;nR4O5n4?aCh]]Yn\6OB"
    A$ = A$ + "F_^^n\D]miTV_KPo]l\?n<RmfPoCimPhcDN_8[GP]QQN>DTodZFe:_Oh_[kj"
    A$ = A$ + "^L7j#7b_6GJi7bL]N^Y7Ocgl=_:_eKmF^gn]OKgkl>_SkMOgg]6QO6o>lk6m"
    A$ = A$ + "OKBonZ_`W5k?0o5]a=^AgdWndma[CjoB3`W=\o=f3;n[QHUR_>NjWnYm[aQ="
    A$ = A$ + "_egefiooKl6_Q7dZ`E^bEL_gkmN^?h3n0g7mAOTkCnT?amYOjWjn\?kcLOnW"
    A$ = A$ + "oiNnb_l;mlEOeGinj_n[_6hoWmc]OOngbW1OFlIbW=O7lMIO_feA^^FcWkEK"
    A$ = A$ + "?14W]7l1O#g:Gi:MSM\SeEEEEim1LXWO5e<HO3fZ>[I=;gJGkJmnRWm^FOGO"
    A$ = A$ + "?:XcH]HFW6=8ja?nSoH_F5mkgmMOWkkon_gm3o`?hnUOiGLoj_n[^Okgn=?o"
    A$ = A$ + "aOl7GUol?oCgOmGoU7nkAoIf_?oKicP?;n<icV_3n^hkT_K^6hJQ[9^fBcm:"
    A$ = A$ + "cn2HlSW18>7m^gmf7oS#??;nOP?j8Nn\7FFW7oDR=\lnKVoZ[fIKfZP]8_ok"
    A$ = A$ + "onNmfGl5OQOMJdSoh?nSGEKokon_kadeAefomOogo;nWoiO^6ZYOWX?KH?OH"
    A$ = A$ + "O?fc6L=`e2GCL]ae8G[L=Kf>ECkO8ON?0aaSHGS_`8na\O0ReMXWg[dQHfS?"
    A$ = A$ + "jVbDVROm9dmh3SlEW7moWICSIKn7nQOXgf3FcedlV>_jJhR=fc3fc0L=R]BL"
    A$ = A$ + "=KkQ8Z=AaMoW[g1P_1`oX4KPQ>dQjg;LXWo[4QhBB<jI]NbK<Rm:n\SeYBjl"
    A$ = A$ + "IeWkanId;HO=fEPFjWoiOnZjlX[Q7J=O]mN3km4L=ce>g3L_`m4gKL?FGdnA"
    A$ = A$ + "SGf5_h5miK7k7N#3J#jM059H_\V=>T3STCI\F_iOnlimifjkVVgfSjgl=OSg"
    A$ = A$ + "nJ\Y0=TYi3]n>ON>P[I^fiNPk5^W\m<K?3DK_?89P?c#oC^TB^?A>L[lTX`2"
    A$ = A$ + "nL3=?nSVl1fR;EMI_[H;<n=1K4#KP>Qeg[YefSJoMFWJjJ7hNSkA^GiNVkM6"
    A$ = A$ + "3Z;k=Vg1`kHIOEToLTO[SH4S8hjSbA`o=T7a4KZkon_OOn7`kNc7]NDkJHm?"
    A$ = A$ + "\QoKof_mZkI5K5ZYmLF:Yk[]mFK`mX]7I^gI<8jk2ZYa\L1[mP_P8GZYf58n"
    A$ = A$ + "Q\o[#[G:WPl>QJH2o=PMmi[MZVo9a78l^OlG8f3GC[C6J]KQRJjmH<6`H1S9"
    A$ = A$ + "<fHn9]^4c<RO2eP6i6Xb?Xj?TO9<FBngP^gb[bh\S?ZM=h[3FOSh6I[aKkM5"
    A$ = A$ + "<O8FYQMoKf2aH3SA<FaHFDkQBbn2<O1Ii74f09O1EgPm>ak#aWm4GflaNNKM"
    A$ = A$ + ";N?>[WIaMbfkJdeh[N\UZ4`dnA77H\aRO6SI<f5M\<Y_7Ph2CnPC^aAMj7JM"
    A$ = A$ + "DY4To8hg0baFlI?jnTjcN3Vg`>FRic?mCode4cYJR#[53Qf?GS5<VaH7SQAm"
    A$ = A$ + ";JB`b;2bQZ=_i=kZZZZlmJR#[[:5Pa9ZO:ZAkCNbCVG[gcOgR3[ISSik6FO["
    A$ = A$ + "BDWW???Hk5PoKc68;>aEOL>>XNI8_BVjDWZg?5QFGUU1KL`O>T;]DoeTC29="
    A$ = A$ + "gcRJO3n`cdlRj?<FbHJDkPBbLREW0h3Dl3DEoO[o;KPZIHO]TcaH[H^F__j["
    A$ = A$ + "m`NbH>QhhSO[I^RL0[BeNVd2KlSaB6C]LUPaJ;?QBbk2`n7b;Jba#b58R?IX"
    A$ = A$ + "eJI5X62Yo1`NJYOd4G>XEMO`IaWRi7;_bH^cb7BAm36;]lWcN6PalJJ^8G_3"
    A$ = A$ + "0odajJHoSb3Ro;hknI>cIjm=6a9\fZUZZ?nbJ?T7_ToRAc1QXijXXnCdaD;7"
    A$ = A$ + "9H<WanX[oW;oPboOFC3oF\jE_JolMUN>#`ko8g`Y7TaHCBf?[ign[LU[hm7G"
    A$ = A$ + "e]]?dJUbEZnN0H\WiPl9_8HmOFOSlQVN8GUZnO03H0^kl>_CO=SS=Q9YfI9^"
    A$ = A$ + "S4oMb=Al17[3927<7`L1c9F^a5gjG4OBFoOkKOknnFJUFmPANgC?CPNN6e6A"
    A$ = A$ + "BmQ9nJSmKQO78oL]eiIoHRR7fk1H>Pi2VCH^9Yn05m?mDAb1m:Yn21e#>a]j"
    A$ = A$ + "ANT79AeFEdLC0o=C>HIe3XEGORR?A7oI>QiVXi2ALcYhoJlo9eO1eHMXeU53"
    A$ = A$ + "hnTjNPjQ>9ffK[gcN[hM\fnJU^?lHc3<W`L3cAAGo?^g3#=7Q>PHIF^gOh8g"
    A$ = A$ + "kYVgR;_k=OWIe>8nEPeF8_3I<WH^;b>`L2c=<7aLUE[TaioCnIX3H]OliAXe"
    A$ = A$ + "W5287Mhijkh>^3OngWdekYN[9NRfjmfj=QN^Fl_enP]n?cI<gUdeoY>PI__H"
    A$ = A$ + "k?ak9djed4>CM8V]\_fLUGJASE2f=B^DaJ9fhKXWS5ao<0o9cI<gIfnWThOa"
    A$ = A$ + "nOIOPdSL3]N=]0Oj#MMB<=Xn6BR_<I<3O7Ha]2o9cH:oY8kR=7IaoRi`Z7o["
    A$ = A$ + "J3fk;eY1ag7K4:ek7LV]>DO]\WnTZk]hFAnTKSWh?=Af7kI0[F0\hOU4m?f4"
    A$ = A$ + "#^o#_8XD_?HA^;A_1THiakdRkmN\o8[OhHSS0SSRB7\i=V3I^TidT6k;\=Pm"
    A$ = A$ + "4R^9djgj3D_QL62VTc]46KHoAT[D\NAdek3mLY8o8jjoFobRifTXoI]Ob];>"
    A$ = A$ + "cT2]n]^0fi#oKTlf;Yfhck6Im16k\n?YXd7K^TiFVSCbJoFNoC_PVN#FXeci"
    A$ = A$ + "3DS2D[]dgXbUo]Rnc\NN9SE0n:#DjS=OJm:dZk;kJkI0joELFiQ]oQF?WDHo"
    A$ = A$ + "]dO<I=ObA]hlWYe3_iMSQNNBDHafk;ciaigClk3mP9R5JYBmnbe9iX4eZIBb"
    A$ = A$ + ";Ib1#[F3S>>ao]XdWZ?WbL=cia]^_eo?9oGhLc9djjhPc_B>gJXNKCbNKagG"
    A$ = A$ + "dGT\LDCjnbCR>gbL=cifI6#Lj4>OXXWGA>#6JmM^\eQhgbcY\?UL]F_U_2ln"
    A$ = A$ + "?c_>fhDe?CB4U7Hc_VOOH^?JN?DKj5jg3Tc3D_7Ienm6WYKd;^`F7jKPaIW?"
    A$ = A$ + "ik4amfdmlWRbO\iJVkA3TTlM0m4i6#OjCO2^>_VPJAQmUcnKS;Wl]J]e>7ZH"
    A$ = A$ + "\`>_Y4UgHce<gS]o99V_Hg?i60WgmQFWGMX^;Io]d?lS[7ZIiU\U_>fh1oMA"
    A$ = A$ + "i?VfWo^]fOLfmcJYH7=ijICKJC3^N?Z^WjAa>?3S;>FHS7nje\cg674E>H[g"
    A$ = A$ + "IWKNX9RK]Oli9ij3i3LFY7W`n_9n347;RQKLf^am9ihQMf4:]OU7AOG?JQTX"
    A$ = A$ + "m1jccdS3kE_jE`em`X7mXmWOc9i\P`lU?gcfI8[Xb5d0X5<On7WnQh5AMNSm"
    A$ = A$ + "eQFg3cH6c`W_JaMFfR=MGioo<YEJOAD]_MF17WMoT;`Fom?djNbI=Rk0fQ5G"
    A$ = A$ + "OSeb?IcFOQ`0=ABbcI;F0dOca^W#5_;Z]B\cWJ]9^N;UM>=cnjin4Kl423d4"
    A$ = A$ + "X=RNNHGKJOnCli3i?#Xbe1Rc6i\F^RQ[QM>=cm8acF8Z>X=\c3khdCh?AZ]A"
    A$ = A$ + "bai#Xm]jBQN\BLfj#Oke>Wg4RJ3d8XERcf7Rc;mbb#EO;;KI;cK_CLnga>O3"
    A$ = A$ + "Io<QN\ET]1=RMN?V;=5a?UNn1W9E5cNJ2mM1bCI>CPH=oL57Gc>Of73fc94a"
    A$ = A$ + "1JUTHg?ajUcGlQ<TQDd>?79?Uil3VJC9^nY9g3fIRBX7C5U6HW];99NGLnl#"
    A$ = A$ + "\^h\9\HXm9o5H?^lm6GnWbnF\j`=dSYRB3\jj=9ki5k>8Wii\lZHXma_BT_V"
    A$ = A$ + "D?UaM]anfI_;VfWoD8Z=<=2JVT4WGRW:fO#>4G<dndcMBJOcgdnfcd\G6QXf"
    A$ = A$ + "`d99EkcN=aOWL>FGXem\WJnNX>bbEmYHeSHdem]WW5RJSXj4d>aEGSF=mBo^"
    A$ = A$ + "\#g;C\c=Rhl_CeenfceQN\ET]9Z>99JOS=]Y=E#kU9L^`AoVRh9P^?Gi`PeS"
    A$ = A$ + "e<]_#T_Pf9Ymb=j=2TS35BkM6j#7J>kOnAm[_egM2mHXXd4[?nTTJJl07h0N"
    A$ = A$ + "kA:Dm^I\g1Km9F^aM]H[i;]_X^2J7K]ohdKdO4fbFfB1;6G4;G>C#iI\lAk;"
    A$ = A$ + "4eEBZf7o]C]\GXjKi4k<bM=laCB\gAJOAm5d#9a^7lc?e<KQZF6kNgk^ol`>"
    A$ = A$ + "^HJ5Ek;4eGBRf7O_`Il``6f`liLCJkSWne_ni>h1?H\adBJOAJBBdnTG=DoD"
    A$ = A$ + "L>]Wfni_=]Y=nN3ABj_\F^Kbe\#DO9^LjdPH]NKgf]ic[cdfFoa<VahO_BLm"
    A$ = A$ + "N:Ym5Y99EkcJbL6fBO39=enH_c<Wi<mkY8^n_SdnRdTTZmY7>\ne_NoJoYYf"
    A$ = A$ + "O#3J#n?cLU3?Bk;:4T?JObWid^gm<fa>FOoW:>Km=]_#Tf4W^3Kaga>fQK]["
    A$ = A$ + "M]YZfObCNbnjcEJOAX89JOR_5m_QdDk?_i=?_]DlN5Ym5QPhdMdKd8W3XneC"
    A$ = A$ + "C]?kOVHj6W?NTfGDX8>MWEkjkNgk>EenH_3i_YdnR#ABdnTG3\fOJZmIo3DW"
    A$ = A$ + "Raec=5R#1eC2aNUenCC]ojFgjlfA9]_8[2JoCMZCi>jA?JZZma_YDK<9aV7Q"
    A$ = A$ + "84Pfo\Wm\nn3KJZmIO^dcoUfGTE1]?iH<iHOJZmglVg\_N]TfGTE1]?m#QCO"
    A$ = A$ + "jC;]_XR2Ym5EZDXdnL^29km5II#kC?J3OmXmj:ZT0]?eG2nh?=end?ZXOk;o"
    A$ = A$ + "k;bZDXla9iaVdnR\<XmaFO>3BCC]o:Fa:LKKKKCfl8b\#nlP_mil7==enT;K"
    A$ = A$ + "dg[TfGTE1]?fkTfibVU3c99om5R#0Jo3Oh3k[OUdDk?oi?OonMUfGTEY#Ek:"
    A$ = A$ + "LnJQ=o9YV55R#0JOl3?mRodDkKeZNBjC32A8PmR^m]_MgZFeZBE]?mj:ZIG]"
    A$ = A$ + "^_8[2fScNBY?lWVJoNfcNj]ki2Gh2illdE825Xma^LdYYYfWnk9WSST_4:nF"
    A$ = A$ + "R\8HC2W?4HONJZmil\H`3N`NoWNi;OiPOO:4E7f;:m=cndWnTZJo6f`6NeN#"
    A$ = A$ + ">fm4jkCQ8:T?3GlRGd=a9>AGWkLWCE]?dU^d5O_Jh<Wi<1oNE8R2nhQlH3KC"
    A$ = A$ + "JJCKJZ[mY?TCl]>na?N`_G5RX`JndKBh\1:]em0Wo4hSoTLFc945C8_m9^F5"
    A$ = A$ + "ZcJ^Ve\Vi6oh7_?VaQnNE8R2mTWE_jEG#\g1JBCJRoL7RNC8Wo4aM6D845;`"
    A$ = A$ + "7<hOc2eI;]]OGRI<nBEahBTE0KA6gh6G1Cg7eVOlcYbUOAX1K?`oVd;56h07"
    A$ = A$ + "H1Ek3CJBCb_OG>k]2mm^Xb6dmH3bBGjBM]\U]\P[miL\3ol7gi\[#DX1K?8?"
    A$ = A$ + "KBkcG^JSnfgnjgGQRaU8dPOmi\VH4SH455]O7kH7mi;4if3_cAnkA4:`_nhK"
    A$ = A$ + "cNgkNGDdnHGE?jA?le3?njAJOAXPn#e<Va<liL#a#k3=ZA=bGW0\f_ZU;Aa6"
    A$ = A$ + "\g0KmaW;TOm5;M_a:Gi:MkOokgMY;MYP?F8Z\0k=8Gjil#Ql=XH[mYFFFlRG"
    A$ = A$ + "\fc[XX3kaUn2>aJZH[kQQ=\QiVm\W]_GHYLL#D<QN=>iFcLVcL2Rf_E]ZEnL"
    A$ = A$ + "LPlWShLQ=HQN<ADI0WUXh[a2E>;77\OGbIDjEQd3#E>>8:dP]5DCjkKOkcEE"
    A$ = A$ + "EEiJKKKK#dn6Hg3W;;Z>N55JX?9PO=Y6Z2YVgHX3MXnNg3ihP\kAD8QeGgjF"
    A$ = A$ + "gZ_Vd3]^7JOkK_GoSoNDN=;:T#n3cj\3H038hjNSFgjFkcSdSLTSXngS8e1k"
    A$ = A$ + "l]Jb][M][^6dP64L=_1kkUl8Uno\fc[8]a>?Q`WR]X5]8hjmZ3m]#\33knU]"
    A$ = A$ + "?Rd4l]3WkEDk8QFWGC#n4Q?Gi<NDihS8]`jkDdSIIOUQFWW;moJFcJle=OX7"
    A$ = A$ + "c4U7PM4D;jM[KM;hjkL1fRQon=knU??5eG8WIhlT8daa:9P?OhliRL^#kkED"
    A$ = A$ + "O1MOokOo3^^>9PoW`^ObeXcOnc7la>AY9D3jDO8cM^c]PecY:4#>^=i9?Ioe"
    A$ = A$ + "^Z];AnPUC`Hg0e75i]CXeci3dO\8??gh6gXOO_bf7ABQm8B^;\gm^GG_jE_b"
    A$ = A$ + "Daa:OHA;JAncSMliYFkGT4\lESl4PcmQ#[Q[[#]D>X1=8omRdoRT0nbWn]CF"
    A$ = A$ + "fGn91[nFXVR?gi>WliYXFab=Ob9bA=ZAicKW#[OC3XfNGh2GX>SB5e:H[c>f"
    A$ = A$ + "a>L;Oi;?hjed4jUKSI<SaW_3jljBDM`G8H[3eNNF=WMZ?P_OhIJjUWQN\FT]"
    A$ = A$ + "Pe4Y>4cRiXIJ1W?kTc3HCWj[?2Rm3fh_^e]^<C]HE8GkWLBJWkLW^CNbCZni"
    A$ = A$ + "I5>dO?`78hCWRA?4?dP?KYVcX_^ajolLOXW345GHm>fK;[1BodTJO:djbR5H"
    A$ = A$ + "GgdWndMkI?ka_gGUg3EF`jMd3UIoOdGS3]N\H3WOALF]CMXai7PZe[:78FW\"
    A$ = A$ + "fGWjDW2^><4P]?TCfHkSeKgDM^GN3c_hC7>KhXWiG:Wc2Y14gGlo3WGkHoS\"
    A$ = A$ + "mYl5lQo2F`2Lgb]L;1GgU5Xa=^anjMQjaTjAVJDCao]l2F_WnV<eQ2fi4Rn6"
    A$ = A$ + "NF6lm9mfIZA=5kgb;H_]\N?af?dj\\:h[[A>bAj7W`?0Z7OFj2a^QekI]NV?"
    A$ = A$ + "KBCJB`eGIMh\\3m?mP;doboWUFHeM5f]bk_WolW_omiQFGEZ0eW9aj3oobNP"
    A$ = A$ + "EonYd1F[7OfANK=[I=;ON\7JmDY6<V=a9>AOMOAoXSeADnoWMaRE;iY5[GaI"
    A$ = A$ + "`<eLHXeAUZPmoH3dBFbBLkJGkB[oWQQl#6oD`JE3LP3\TZg:TEQhO<jA?JO]"
    A$ = A$ + "_`N08gWDO_:kPeSTi\gQnZ0eKX\c9MQL0MJCKJ^e^fejg3Ujm3I3`>7>[?Ga"
    A$ = A$ + ":FA9A_C[DU>dQ>h[mMf3<ea?_3PmE5jio:=HM7lo<iR8WgJd;bZ4c9]#0ea<"
    A$ = A$ + "a9aZ1n#[5Zd0M?iO8aR7kA3]NXB3jIAl<`DVbDla?1O1ajA:F05>`7>\F?n`"
    A$ = A$ + "1O#[mc6F8O09^Q7n`7fW;#4oLU?dY7\F2nE0O<C>HB_fSejE>iTMPl1Ul3Tc"
    A$ = A$ + "kd3MX3YlQ>5`>[OXogCMFCnf6jiIao6Z5<\1Rg7SnWm1P_gD<ab?\HDA\DXO"
    A$ = A$ + "`BOa4o:#N9P_62ml\8g`N1H=:R96i>;?34J=EY2Hc8eE5[OP?UKGkJG`W?5i"
    A$ = A$ + "7d;#7gh6gEeo4WMl=1?7Xg3lo`\UWHVPVWc9FlM0mmNjog4GU#?G:ZkP]#l>"
    A$ = A$ + "Kj3<kNgkFm5g8P_a>a9>Q_>2Y7iXJZZl2b;8Rc>e6?nXPH#bJKkOokgkk2lM"
    A$ = A$ + "GUP_QH=Ndjln?N?8jm=\Q=hVjDWZKh3OhNki;Wk=JRoK=2<h1?h[NNHGYdWP"
    A$ = A$ + "hiKR;5i55kOUc6WBUcb:Aj2k9Vc5ENO0__7O4AnRB_Q4OLD:W_4l\\YcinIe"
    A$ = A$ + "[Nenh`R==H3XZS:1`niXGACmRA?Ca>[T\c9Kf;8J9lmGF[>bhJQ[9^f`N6^>"
    A$ = A$ + "ij5kJhjWnj=iG9ao6M_\YA47hK?ZONbC;b;GFgTNX7kAPH7`I8I8mG4JNFG7"
    A$ = A$ + "ocL\SM<oe5JLjSgHoNOjCOlnj:dSSRBC8OEjI?kYK4SH4NKRFeZFUoM24_7b"
    A$ = A$ + "Q2Ri9f6A^DP_CI?cHW4_[`PeQ1FC6HmiJ2kWKon\f]1O>lIcg1JMn>IMMl?3"
    A$ = A$ + "fd#m1R^WJLH2CH2nJ7QnnBYjidFFR[kjT?NS2eCCcKNcm?G#Oe5m6eV:fCSO"
    A$ = A$ + "Da7Bh35lW:iJ:iH1nEQcLE\3QmFcc=0oMPnB=oL\eRW[8Wa8_hgjFgZGG_\U"
    A$ = A$ + "]<glVgll[YCNTQ_giMCE2m_HAf3N_0[_B^4A>eA]5P?Di<FRn=9_[0m:iJ7?"
    A$ = A$ + "G`NYGlRG\goB0jIPo>ooiWcIC9oncI>caol4nRQ??\E7Ob#Nb;=_#842Q#84"
    A$ = A$ + "2Q#842Q#842Q#84RbMn?0fDo%%%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
 
FUNCTION BASIMAGE2& 'BLANK.BMP
    v& = _NEWIMAGE(158, 159, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIk37D3000334BDWoefV<j78QZ;EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
    A$ = A$ + "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
    A$ = A$ + "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEMf7?=jK%%%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
    BASIMAGE2& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
FUNCTION BASIMAGE3& 'PASS.BMP
    v& = _NEWIMAGE(324, 155, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkMN6[ED4666`2H35\0:ME`2Rm6F`^2::4kX8FA454\g[A15kPUPmJD80f"
    A$ = A$ + "kR6SXR6R]XH;Z9ZQ8AACDnoJNV9O7F>L?Wc^c^kiN^gkkKbC<8\cl=k>ckIJ"
    A$ = A$ + "k\][M];ZM2Q#8L8999eFGb?DBBBb;i7:999iUl3UTTTlBnQBBBBN9o#9999_"
    A$ = A$ + "TOXTTTTGb?DBBBb;i7:999iEJl3K^gch2Q#4:b?D84]eYm]_mAMX3MX`l3kL"
    A$ = A$ + "WkLD?kI?S6`06#df^]K[#84=\dY>eYX>fa>FHnQh5>h1?hXQ?lQ7ML7ga942"
    A$ = A$ + "A3;MY;Mae7^Rb?Tn5RGhH7kHS^P;h242QXQU^e]^5ee^fe2c?TnPR_;ieeOm"
    A$ = A$ + "G_#84=\\IKfV5]aKl6;o#Q#dV7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q"
    A$ = A$ + "7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:"
    A$ = A$ + "42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7"
    A$ = A$ + "i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42QWF2nQk`>\3AMZCMZDJ6"
    A$ = A$ + "2]_m]_9Ck^e]^Uid^8Qh^A?6]h<?Ra:mL:YTgg[bJlDDaHBR[\T?iAm^lZ>A"
    A$ = A$ + "mliC;1o`]H;fRXNe[N5em^gMG\V6jJGkJD7kH7MTgYMBbk=ICfT<5gDO:[aH"
    A$ = A$ + "FRST6Wm]_m=caHeN>E?Z[DNldi>giX=JSf8GKTbQo=hGTVHKkf^]c5Om^gm>"
    A$ = A$ + "ZWm\W1G_`R[J53QL_8?ZgUGe9Z7eGJ9j7B<bmdkj^^[X7kaN\DS5;5AJG=^g"
    A$ = A$ + "kmNMe92mj]hVjU4SCKJC;CaAAE696_V[iJbD<beE]WCe[j:a;Ghk#k^\h95g"
    A$ = A$ + ";\Om[O>O#3:c?ocolA;H1;8jGnUO9Ji;Oi=IKYU^dU6mmOog7mV_iKF:^<ZF"
    A$ = A$ + "<Hg;2miPMmYmIZU6I]>A]8?Z_dBe?THlmN_g;AiMUR5NnL]GkeV[YMed?oco"
    A$ = A$ + "LdEL5GA`G_5g3LP3dE_Wj0I9>VolWO`aBeBKRa[l:_b<5S?d3m#U:_l<jj^^"
    A$ = A$ + "[[IY^BU4nEh9AjF^Wdj\>[S[ogeZ?QdG90_j?ocolPSUU]\U5=kI?kXeKmF?"
    A$ = A$ + "7E:6BCKKC_f[mJUN>\iKnV7dcDkIIF[CD;E]feb?\fa2a`UOiG^knGm`?La;"
    A$ = A$ + "NaAWciL>AoiOnW1Mmgf]MK^hnl?oc?J3g`=<jeOmG?Xdicn\?c57_d;mB1Mm"
    A$ = A$ + "ECD696?_cklLah3nP?H#YSEFQ;kb^\X[nZ_jPl4;bWWaeBFbBLnRfHfZTWX="
    A$ = A$ + "VC[?QiILmKof_5M;gb]DaH84o`OmGoeB?7fV]IK2b?cNF>a9>AGM2l7;2E]f"
    A$ = A$ + "eb?\fabX7mXMN;lkFeSf?;LQ;<j`?l3?JA;JA1MmDORhNDSJDAMY;M9j]N[g"
    A$ = A$ + ":Xdi1NP7`57?jSnX1MmECD696?jSnXSFoeOmS^WkiN2:M\b:<na?NWWH8oVO"
    A$ = A$ + "mb?ddWnYOJdJ^V[ICj7AO3]i:Ta<Bo;cKmgomOkn]SV:62a?4=Va<6gcQcl<"
    A$ = A$ + "?CgL3l`?l3WZ[gNFN2W`9hZgBm_R#E[M]l3[M\LP7h16MjWnY7M9GbUDGJo`"
    A$ = A$ + "H?jOokOdMNWgI#GoTWlTMam#6b#LN=TNQXCkd>]X1<P14=UY<UP^nZ9KlEkl"
    A$ = A$ + ">_cA[kj^^ACMZC=XdIX3MXUN>Qo?Um#nmnj]O8j5OaGdi7A\SW4nhfl5Jm=l"
    A$ = A$ + "[oj_^`bO6oaTVdTFYH8;nQGl5Oa^dQhVng=cI>cDMmfcbmN_gKgHi3mg8[UZ"
    A$ = A$ + "FkJi7FkHQf\dFkR^X;Z^dnI>cI>^igiB_d;=X[WahJcO8Ycgn]OK#Yc>]CkT"
    A$ = A$ + "c?=;cUIU4UARAJg_F[eJ5M3g`=4Dj#<J?W6a86Ad4V`4LmkYUPO8bNF1To<>"
    A$ = A$ + "IlChnb[l:_BQWo<oVWd9MB[dLZ5ZOh7mAOT;=hi9m?L6cH6Yjj]WUdfWOSl>"
    A$ = A$ + "^Sk8ea#BDeJG;o``RUR\mccn\?KdZ]J[Vkg93AWkiN^^hVnI`hPnV_iK2:MH"
    A$ = A$ + "<;\?]hgmcKAITHTiIRmX1m=:4]EKeFEji4S]WbN;9o`?h3nPBa?m?KCgd=]d"
    A$ = A$ + "J[FYe=>_e=MCgd:i9C<4RO8Z?mY?AMX3M8J3fP=8enIfcBF?6l3In4;2UWN<"
    A$ = A$ + "b?\nh7BnbHEcbecL#QOHXSibfgZ<WLi]TOh:d^]KkFYb0NQL?Qm8CmB\n:Fn"
    A$ = A$ + "cHW]H84ISiUaULcgl=WZ[EnQ5K\fBg?Tn8VU[O]GkefE_:4mn_okkB3n]NV_"
    A$ = A$ + "ilFb?L5JTSLT^hOeGmEgi5aN2Tm>HmD7fQMHU^?bjZ4ZOX]WIHnohi#JTl3;"
    A$ = A$ + "fH]U^O8]?nb_l;3:=\aOa_CWUH0o#VCYlF]fl33mi4j\>[cZd_Oam36_J8Re"
    A$ = A$ + "_Pk7\g>C[R??V43\N8Q:ROl3_`;l2Cee9o`R=FK=h7nb_l;7DJHSmQe#;4MZ"
    A$ = A$ + "WjYFZ?ZDNcKeJc?Tlo8>RS8X[UehdZWajGan^>4Ig;N^WkiBme>[I=[Bg7I]"
    A$ = A$ + "#P#e`6f`LcEch6ghBee9o`R=FKTm3]d^JPGDXk35lI`?TmbE8:^O8cgN8:YU"
    A$ = A$ + "aF;nQ0[GKJ5k5Mc7PikUeB94aeBj<fa>fDO]f_?1h9cJY5ZH<cl<mT?iC>EG"
    A$ = A$ + "GNi76_>Ae#nQYC=WnQ\>6do`#gc=l>2`JlanM>4IeY86^eKmF3:=BBMbeH=F"
    A$ = A$ + "3gh4_aKl6cDLf8h7bc\i=_iUj[elRH?f`mR#g_Wfm1fSaQ630ca2eMbRjA?j"
    A$ = A$ + "QKNACSZgnQkj^^[^mJTf_=9Ce3o#VW5f_I\FbT?6\7^0bc#4e9XNmaOl7O#G"
    A$ = A$ + "?c[_iG5jn0[FUa1=X1ijC3em3ec]Ab?TiJ=Tig`lR86`?l9NRW8hH0?i#n=D"
    A$ = A$ + "km97hi1mA<;Ra<O87bQTZ[Y8l3I^<I?MBo3RGg3_#F39NGJhnUl3cF\TGY=n"
    A$ = A$ + "43N`3>Jh3Oh^l`Pa[POFJWCJC<NGlJ2M]#\hSn7>mY?m<U6EZ<RG=cK?m5Qg"
    A$ = A$ + "Yg#DSVOH8_[hVO8[[<o68oi\43YMMMSOm0eKbZO8cabn^_kKZ^VR`?TmL=nN"
    A$ = A$ + "7caL<[DM?jG8NQdVnZ^Z[BnQI<Fb[dVn<Q?1ci3Y_1n4DW0?aokon_DWnh7B"
    A$ = A$ + "O=2I_bHmEPnJ#o3_okonCMJPZEI4_Nj7JFNgmKdl33iM5gl39oa?lINVW9Ca"
    A$ = A$ + "#Xc5[MOTj=dWn\8V7eMOggmDM=5QO8[W8]5H>4RGgSa8Co2a;<?>SKTOHn<O"
    A$ = A$ + "C<_cdG#jK#lc=D>K_i\7Tei;Tm?1_oKdf:4_<[m9mCPeT9D_ZJE6]g?=n_QN"
    A$ = A$ + "f>eJc?TkE?mCodI:6hlm9d[7XNCFm3AYM^NbKo#F[>jW[m>g4_NGU>WeTOHH"
    A$ = A$ + "aBNen1o6j3Hlc?Dk<lUg]OncL^KUFAK<BSGmEOeDO]hUJck7YAXW_=YY<:o`"
    A$ = A$ + "E\gSJ]h7nEOeGUZomi]O8S]QdQO;f>oKK[OnHgXj7bc<N?]h<8Pg7>>;?JZc"
    A$ = A$ + "9h#c3JSQ?D8W90fN]QjAD_9dig?=UAi7fhh7B<4jnh?;:_l3YN0W=4l^3bI8"
    A$ = A$ + "6Y3SaQjH\g>]bYl3CW:Bo`ZYb?WP3Ym1SaVe2Qg=ed:6[NNdn\J:_>;TUOhZ"
    A$ = A$ + "63]em3[VNWgiM:E>cbiY^l3[OnQa?WPY?JQN>`aLg5R\jU\F7IIm>[Vb[c2I"
    A$ = A$ + "i7^ZaPl3[\hk>SE>iL?D[WBbEcUOXM>1SO6[YAXe=3M>P\gc1fW<\FSl=g8_"
    A$ = A$ + "ENMF8;o`E=6TOHU5ec\b9kg1>;kdg;PTYV;o`hWicfk:0W_kYE\7G2AFNclA"
    A$ = A$ + "SghLWkL3:MZVb[c2Ii7^ZaPl3[\HnI\b9_kFlmkAO_0BVJ^l3SOV?SG8mOjW"
    A$ = A$ + "nYO:eY3WgoYEaO_]HmHXNi;l2_#ZCWJYlj\#FnQ[J<8o`:[hWS?lncLfWmIk"
    A$ = A$ + ">ogUOHfRURd?<NKLkM[Wi1>]:TcPohnQFkR#?SMZV:RmN[l3UOH]T]g9PmOo"
    A$ = A$ + "gOgkX2OSmTOHfRUj]OHXOCXB[RGOaf7J5aga3i7^29o#_TOHUog:o`Ef?\Xn"
    A$ = A$ + "FdF^>fSmH;Ugfk]EAh5;o`E8i7jUl3[loFi7^2o#XX>K<[FNK_Go_aKl65Fn"
    A$ = A$ + "8o#i7JBnQEnOK[Mo#J3D9\cJ;Pj5II?gTFAOASWg\N>Qn]=:9UAi7:o#CiUO"
    A$ = A$ + "8OkOZDm^3h0>0i7f0j7JYM]`f_=hC5bij#FR;;_Okgn]cLJE9\e`nf_mK?Xl"
    A$ = A$ + "#nQ[J<dFg?<YW7\Lfg`g^6]nb9C=2nQ<ONfgk\_kkn^Pb[T:nV85?_cbJKSB"
    A$ = A$ + "BicJkUe_I8b?DnQUW>e2nNg`n_Ako`TYjQO8Wg6KiF^UAkh>^S^cn0SmIOf7"
    A$ = A$ + "GkKnF3IO?L;RiZ<^R_GKX>5m=ThKncOn1UN9Y<Jc?J[Uc3Fi76^:2o`ndWnh"
    A$ = A$ + ">3Uhl`fZg]GkeN5MX7jQjnn^<Y9=9MN`V#E?l3iie#6b#LkEnA?jAG2VgGf["
    A$ = A$ + "XTWLf]5jij#J4N9FLAM8jK8NI5IId>3VhKZD8BnQ[J<dLh76jnY?^:2o#>CJ"
    A$ = A$ + "?bSl8MW7fFm^a<Vah6W<WA\<gQjmG>IZNh7bc^SjX>:Gofim;gPc^GNFa_MA"
    A$ = A$ + "NQWAXW1<9EaGk=NoA\_kT5IIdjkkSl8?B#iQl3GeHXi`?Tj>IiK#=Z8l3?h3"
    A$ = A$ + "nPMSaRcRmhekhlWSa9ck^LNL6g8o`R;];7b7f7PiaIdIeTM>OIo^:Wk<#AF6"
    A$ = A$ + "]kSjlnZU_OHXOS4=eX]7\TOHbSUjYO8WcndFQnZ]lU_lPb_TXheSH^m8?UOH"
    A$ = A$ + "b;[]em3gUMIG2:O=9o`:o_]Aa?\BOo?jGojWK\N5AJ7okl0ooSGF:bmLCleN"
    A$ = A$ + "SmR#Nh7F[bXMO<[nQImKUANi7^TU\TDO]Uk7bgV^\43Qh7bNf;[nQIiKH?ZN"
    A$ = A$ + "mmCYlfFb?<IbZOeDOo?hNI_kM_;Td^Yn>?HUU5\P54DnE;5ok_;`gXAb_\\^"
    A$ = A$ + "f9Y<Je?cZOHFoFIT7eEXmG8ZLo`\lmaSH84o`b?7?BkLcHcmlCmD?EZcKCeS"
    A$ = A$ + "_O:a[G#iDnQ9GD7INcKN^a0]X5]8gnoS_SR0k?4F3fR8]Q?iCnTBg;bSbBBR"
    A$ = A$ + "7;ojOok_K=i\mmHAF6Y>IFl3YO=cI>cam>F_`5^`X5_h5klf9mSOF8G?l3ik"
    A$ = A$ + "9M8:_l3YM?OS8bbHfQ#nNBQO8o^gh6ghBMNK:?OoDZDM2STF_#nQ9CggmMO^"
    A$ = A$ + "_Q[Qn^\E;m3o`?DjN1kONK?gDD[al<Wi<GYkmlmkfVgbRb3f:S<NIbolFl]Q"
    A$ = A$ + "g:CeJ]4cJMU\4ofgc#^GCoFV`4V##Y3[76m9j7oaO<hH8;nQL]3LP3<ei]Yj"
    A$ = A$ + "ak_\9[\bNhPiF<[kiVfjnQLokD>UCamk#5QnR_h;:M_Pc`Gl<XOnQ^_U[UR_"
    A$ = A$ + "GKXM5WSoh7FTm9e:Sh34jk[Ge4[;QEVZeN=[XkoMeDlkmhWai:don_oKZC7j"
    A$ = A$ + "3DXonLCM^6U6IU1jOJXcaMcQO8k1<nV1TeeKY]^OhX6eXLkcm#o^OD;m^_kk"
    A$ = A$ + "FjN1eEI\#<7L5eN^9nki>kUOfknh1GTN4FITb5k7\lFCMZC]DIZF_;2=:nQf"
    A$ = A$ + "JIlaOl7GGSQhWS7fiJDJTE6`?OjCOj153=7nQ\_HI<nDoCnQQ;n^Od[Ne[XY"
    A$ = A$ + "<UYTkY=RcXoh[e[m^R0oaOl7iNn5O?:<h1?HGmkRf?d:Sh1`gfWlFhoIUYJm"
    A$ = A$ + "^ZfLj76oN?n0h7NggmMGgbO>ocS_FJ43Qj7Bo33ikD1Zi`?Tjjl>[#O4UOHh"
    A$ = A$ + "Ri9Qj]d?kR#cJFcZdmRmH?f3gHc]a_F4kiVhm?Hof_mcM>8EdnQFITf#do]l"
    A$ = A$ + "FWaIL6[d_YD]cbTVCo#kkIX=FEPjF<_oe3egnfgEb?TaP`k^NJTi7bn[ReEI"
    A$ = A$ + "I;KIY>>J>l37dP6TKM`hmGAnQQ;NfAmFj_AAXh[g7_3jlKH5YoDlf3lMfQa#"
    A$ = A$ + "`JhD?FCKl3In7bKUVcncV;o`h[SAlnVQO8SgoOnWoY#cOjGDllWfMfi;GJTM"
    A$ = A$ + "_Vmk3[7C8Sg_i`?<?lITOHc[O8kSTlDag;^fH;I?m;o`RELO?NO3]kmfL5Kk"
    A$ = A$ + "Kboj_n[29o;OLbfh7]gCcd8kNM?jA?L];Va<VAZS7i7F\aI[Eo`lN?g4?_fj"
    A$ = A$ + "]N[S6i87YKmH[GkiafRnQ=UG8[[?eiImfi_3o#6k9SUKY;MYiJnciACiNQdV"
    A$ = A$ + "S_Igfn`?=:^O8m?<Tm<Tl3;fh\eXO8[WbdVfdbel:^_1kaLkn^l3cOanD<nJ"
    A$ = A$ + "i77RAVcC>oEH_`7gCTWo?nSohI>oi<X9nifQ1N#TofjX5ZO8#<CKSOogomDU"
    A$ = A$ + "6b?\HSchWCF\_\Vm\W]kLHVi<QecTWQQR]n33MX3e]o2hlkSm#GNTf#lf<VO"
    A$ = A$ + "8SQQijVjKL6n?gi>GghBH_2`IUHXiElegTci;lVH_VGTgoRG6I>Whlil9ObW"
    A$ = A$ + "diAbNHROWQe3>;YOlbEBl3;Rb:kE:RSJMV=_WkiNjVGOjG^]WP<?ahokhN6o"
    A$ = A$ + "mOh7nQYZmOelQiM8Wm;a9NRWXK=iINB\ci=nFcbm4f7k<7:9iN]]V#DgTmWK"
    A$ = A$ + "B[SJ]Y`?dj[1?;HnQb[j46]5m39n`kXJe3K90kcA>3;YlDNkSl6JG#m5jSB["
    A$ = A$ + "UkO0W3Nh[EYeG^iZ\>P1<0gcGl=a_Ylm<>NRE:^jI?kIYm>?kaUbKccOGl_="
    A$ = A$ + "I=5hSaIe;NQCLRCdiiTek5D7UmQHF^_`H6Z7go]kO]5FOiZEGZU4dg9f[8lK"
    A$ = A$ + "\5MIRc79FKIl=J]Lo3HOgROCUfoQecb:N#Kof_m^e^HH3KH^mJ4cgFeNoIX]"
    A$ = A$ + "6SK>_R1nn=`n^WlWmb5m;UWiToImN1[5DFSe\jWVDhg2hg>hLR]e^OHLHO2B"
    A$ = A$ + "Ja_SBK3j_0SQ:;`nBQc0OVc7l#X?LiEJ3\WiHm6Ym2eGSgFVa_Po8SOPnFPW"
    A$ = A$ + "IFb[3jP>8gIh0e=hnDi_oB5am_b;Sh9<i9?IGohhn:gOcJjCLBlBLgDU[jEM"
    A$ = A$ + "56[:Y3n?TVDgVj;llSnV`cfJm>dbkO=NV<_9QhgP?<m72OHVW7jC8eKI^AH<"
    A$ = A$ + "h=EnCna_S#lbINDJ_GCiRnMbie?oF;?_CBK:Z3P75Y1ogl\>Q1U7:GFobK;i"
    A$ = A$ + "7bcJnm?B?:oLoUiC:;`lQ`kF\MFTWWY=#O2Ym2cY3?_Xm#i]KIL]hS#\TUlR"
    A$ = A$ + "HVHWbPe?QRnnGiUAlg9?H>khnJF;C9YLE_Z[#iTbch7ohMn3Tfl\;]WIm4Kh"
    A$ = A$ + "MAm=B7BKlJ`[POG1o2lNSk3c_eQog86a8LcAYi3KgC:_NECE7SlZF??JZkeV"
    A$ = A$ + "7>o>7UM^?TTfDD7`lXioVWe9RWGD^XleFhmG^YZ;IoV5?_hiDFPdPdRdTWki"
    A$ = A$ + "IJ7?m]j5UgVQo<i;omI=?SGFZTWANOo[lb8U5[=DAl<:=WQ9iIIU[_Y:WiAM"
    A$ = A$ + "IBOl:hgC`;Rnk5gc9[n`YY>FU^GWVkUFJ4oNDNGW8NNI??bjg#UFRnQ2A[AX"
    A$ = A$ + "]LiN>V_Ain`iag>9aZRl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`"
    A$ = A$ + "Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl35"
    A$ = A$ + "2Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`S"
    A$ = A$ + "l352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352"
    A$ = A$ + "Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl"
    A$ = A$ + "352Q`CAj7fnfgnX>eY>5eU^dUX^e]^ib;Q#8JDYOm[OAM_kM_#l3k#7j#D7k"
    A$ = A$ + "H7SjLWkLDGkJGMn^2Q#dX2NQmZGm:gm3UTTTJ=;i7:999iUl3UTTTlBnQBBB"
    A$ = A$ + "BN9o#9999_TOXTTTTGb?DBBBb;i7:999iUl3UTTTlbl352Q#d^Xo74NT%%h1"
    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
    BASIMAGE3& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
 
FUNCTION BASIMAGE4& 'star.bmp
    v& = _NEWIMAGE(190, 190, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkMNo\DD455NnWdL>QiL>;6:4#4##PRT05I99P92FP:15D11:1D05D\0OR"
    A$ = A$ + "PB##Paj[jZ[MN3c\k<kfcdmlfc?lE_E4N_memI_cY_cmNWXGiERS42Q#842Q"
    A$ = A$ + "#842QX\<UY47=i9kog72AMbFfBLdVg\oOO84e53OhaAWndaAocoHN]_Oo84e"
    A$ = A$ + "1cKNaAaa6VkLSSNiG^mhkg_2Q;H?kYU^OGkbX]OYG:KTfG<DPgl=SSn_o[U^"
    A$ = A$ + "o2G8>j=NShXGl5=l2_P1ko]Ekkkgg2A_`ZFE;=_UU_LSFoiN^hXWmI=`[i?C"
    A$ = A$ + "jNa#1>bA^BMoQ>TAWod?MLdCnT6heBk;6:`4V`EZiQ;OISoW7oaSSNT7a0_6"
    A$ = A$ + "]ocolBg;JfliONfjNhCnThX7nQSSNP7`0_n9N2SW7[?OOonG8j6>i9cGgOlS"
    A$ = A$ + "77MogOLdMOg6he?jSJRi;_>RV:cJFi[i]<bA67M7gQ1dn?d3IljS?ORi;M_X"
    A$ = A$ + "Ya>fAWemKH3aAgj]Jh>_CC<o7ka<NM\almm_72AAQlcOncgIM?e^`]MKaAgd"
    A$ = A$ + "=InjmL?VchZcg:JR\\UeI=_Ua=^hX[ojSS^iK>>j^^[hX7l1=W_ENM4==>h1"
    A$ = A$ + ";^^OkK?>jJ_fhXKl6SS^mK?>jn^?SGWWiIdiK5=76kH=iW_XjNZQ1lfC<Oli"
    A$ = A$ + "ciK9WV?eC9_>RV3[Om5GcKIVc<>jj^>S?On<0ic?I^lU^G4j<`0UGgOP347M"
    A$ = A$ + "=GCLd=L3VcgN_g[bU_Xi`dVFielF`C?NM^UK9>JH3CibGdLHKK[kem[H5Vcg"
    A$ = A$ + "RG7^?FT;OZI7Eg2R#VGkeRS>kIkNM?nS#gKmjXLi;J2\X5emJN;lI7>OKbLi"
    A$ = A$ + ";_>R#Vm]_NGgCmKJcU?NMD^l5Q<SNdaAGjBm^^oLWc4[GibGd4PJY_GelFVh"
    A$ = A$ + "4_B_>Z^54Q8on_k>M?cK1bUObjFPLi;_>R#2VmO^Bc3hG2]^=Gnb[S84QIoW"
    A$ = A$ + ";em`lWO[LiK[K1U;OAX0cl?VmO^Fgc<H#e]P8DQInW[elF8f>W_Ee]P8dHgk"
    A$ = A$ + "^jdmOl7?hLiW\^5D?8:l5YWoO^VCM:cIK]ibGe]P848[ioW[IDSBibG4FLh3"
    A$ = A$ + "Gmjn]^Ee3RR`QgiMZN=?P?:dkZ^54Q0KLSeS^7VndE?8:23n[oZndmkOoIW;"
    A$ = A$ + "OieADWlN_GmYi]PgV\j1AieADGlMOGm[kGjBE?8:l75MnoiJ>fa6\GWTibGN"
    A$ = A$ + "M4E=UInoiJhW_j1AQ?PiLS_dmOfWMUe]PbU_XZi]Okb=ooL=Wi<6omY[K1U;"
    A$ = A$ + "OAEbjFWodlF6ohEM;8ZGnSo`ojNbUTZK1AMaDWZoel0mP8eZPj1AAM`GoenG"
    A$ = A$ + "cKI>cYmmPXdm2G#_>ooL=ol?[N#DDmhRioW[Qlf[N#DDU\gmjOMNJFmZc_74"
    A$ = A$ + "EM;8jEXOW^h5m_>?=D?X4_7_>Z745^6j]KO[acSA<2Eg2RZQSNDo[_c3VGE:"
    A$ = A$ + "Gn2GcTVToef]3Z;DlhXN#DhBfdVl_f^C<UYTM?8:_>R^1VoOomOkOMMWh7nQ"
    A$ = A$ + "Fib7_>Z745m2EilocU#mQbiICg3Rb[SXKPI#__ed5U5_H=kT5m>TO`ZLnoiJ"
    A$ = A$ + "hI>QZK1A_b:GYoebU5R[KcU_ZK1Ag`_l;nG7GFFkJc^74C>kTUfGT7d?CnF3"
    A$ = A$ + "g=LjCKliXIW\KPIT4c^Un5fi>m_6^KIi;gl\#TWgFCKJaAcNfaAcKNVj9mmO"
    A$ = A$ + "ohXU\4o_njB#KFEjnA>BcLZcgkY2AB#CRf\ZSkSoAGlL9F8j5XfHGcJ<Nfj4"
    A$ = A$ + "^Bk?SI47MbCjoOg5mWPf3oKTOZlPcaH?;S[dolmPW]=kKOnO=#dO1mnc[nZV"
    A$ = A$ + "lCU6bE;`ig9gEYeo^#gcg;nnbcUNikADeP_6NN:amO>;X6l0^G5Tk:nL0jO["
    A$ = A$ + "f_Gemf[I`g;n<5OnRjd]>W3lRn;>a9RS6cH<g;R\PjaPJCRkA7i\U?7Pf7]I"
    A$ = A$ + "bkIA_XmC[kicEfi_NEn\\DdO2iC6m<g3^\Pj#RN<SN>Pjb0m?eV1Jbdg[>G4"
    A$ = A$ + "c?IlNZi?nIaWk8OZbgSXG1O=cOnVkkLN#mgAmH#]8QnWkA7J#dRX9C7_gUnk"
    A$ = A$ + "9>?eh=N[X7OX7gh<_3<PoGk4=C#kPfRj]8?\mB?JO^_d4c7]7J#dRX9MYond"
    A$ = A$ + "NM\JOlCQ_:^V4G_QOnnhi1RXIcfg^9nmEMEG9GmEKPJ>5M?alYG38F?J>dNF"
    A$ = A$ + "_mYel^:?nIYmC7gW?3^`56VcO3AH1J4VkQIYgCZkCZi;JLNGG?BYen9?W[e_"
    A$ = A$ + "?WgPW9>bgS8?HnBSF]CJNlg#mfQg6jUBdFFol9?7KEZicb_ObcjbeJXnGiJ?"
    A$ = A$ + "LN3nZlm8BCkleHQHlXia??nJ8?>F=5J\di\\>[iDikAD6X?fJ:nJLY_W#hIW"
    A$ = A$ + "P`?dDmeh:O?Okgjom0AmbffFcfGSlm8:3h[QnOIXP_6ikAD4H_Uhc3eleD6m"
    A$ = A$ + "_lmdOAEh[9dekMS_W5\0ikIX0mCnJLU_WGoeU_WV<7ohmWnJ:Sn??O?D?Ybg"
    A$ = A$ + "Cc3le#Lk^eGCEDklQ4bgc#;`Gc\VUled=Jollm`c?Cik9L1O=\_9O=M_n_Mn"
    A$ = A$ + "NnV_aokaR13?7[KW_6K<nnEO=U=fONnNX7LT_7o3nJH>U9O=^Gkg>O?L]EO_"
    A$ = A$ + "gg_ba>VleDejoTnN\mcUeg3e`Z_e0mKlEOUleDWanccg3ckdVdcVQV:bGSod"
    A$ = A$ + "nbgSOX\nJH678O=^EoWW_7FOU_7g3nJ`[BImeT^?_U_VNGk;O?E?bGCh#Amm"
    A$ = A$ + "`L3EnNjN`G3jEi[9\XCnNhJ\bgCgQle4f8O?^5FSVi<U_VV0iik9iljDnNj<"
    A$ = A$ + "^`G3[iIi[agJTQbDDO?DS\nFS5J\e]:O==I:Z_WE\2o[e25hIKXle<dP>iki"
    A$ = A$ + "Sn8o[g25HV];O=3M8?O?4OB?GFJ1c\Ddg5YOXT_VV1IikQlEhK]FX1c`UdJN"
    A$ = A$ + "i[YiCB]ogomnGW5J\Y==H_=F=?cnSQ=<i[Y93k?l<HAiao:i2G`Xa]WQ5_=4"
    A$ = A$ + "WgZiKjc_VnMn`?doJ\#5N>LK?7;m82niaKCbWCDbGCcTSNDo[_2E>`1JiaQL"
    A$ = A$ + "g`c=7ReSOnd?C0mmnXXh<i9kO]EX3eA6jNRgS^WnI3M_=F_dl=?fbFl_^:d1"
    A$ = A$ + "OPhcQcdR?7NN8C>;9N_eSS_g7557Z=WcL6o[[2M>eY<gS:>G;WcUNiQWmgLV"
    A$ = A$ + "FicYiaRFToeD=56cHJiaWli`mY2o?b[CcSm_Oo[WJ:`Li:YG7bY3iaTkEURi"
    A$ = A$ + "gLh]N[hX;M9o[WJ:`J5eP3nM87nlJ^?]T;C^7]Bgg<H][eoJYV6cM^iW?Cie"
    A$ = A$ + "YIPVU\UWOkgJMOKY6<YNdhnG9_>=3Vndm_6ZY2jKlj#]HVll]fjACjn`5=kT"
    A$ = A$ + "kNFoj7L=;XLig<PJ[mOoGo[OJZLfcJdlIU;OMnf`UU_Lo[MJj<a9fjl]D3nD"
    A$ = A$ + "g2:GnQ=7j#nGgddI?kYE^lil]:GnQ=SOlaAGnbnGgd>>i9=hkg7]3F396_bU"
    A$ = A$ + "OcP=^Ao[IJ7kNg6O30_fg_OJ7;I93^6=E^l3G2ehXL_#C?g>8?iX]lmk]lPk"
    A$ = A$ + "oQ]obil]fLi[JE;\H>caoJU\PIh0e5JNc\3VOoQjWGiIX=alCW;OMnf`QM];"
    A$ = A$ + "o[CB3_W`CCWV?ChO>4mmlUOIneU_RikO2]n6?;O=]K6lI[mmU]<ooN?9WolV"
    A$ = A$ + "liHkgLU;o`RE_Jo[A\d9O=YW7I4;5O4X[PA>b`bg3elAjLi[N#<<PjYbgj3X"
    A$ = A$ + "XnJ\WGd>3nhO3NM0N=WOTLXkkOOPOjWD^l3AVdTl_f0O=;NaMgLFUlT#<Db?"
    A$ = A$ + ">`[i?SoOO`746g?2R_K[E=U;o`P=_IoZ9`Gc`7Name#n`C>?b`_<j:dA0_Vo"
    A$ = A$ + "<>39oM6mXm__7lAJ[E=K^lE]Zi?`7mY?]od3UeGCbWSa4G7o2fI`7a>1k<LV"
    A$ = A$ + "oOlgQo^nfgCjn>Gibg_\`5j7M0nJXWeMilS?9I=on9f?c_OOikQ[kXn>?<HO"
    A$ = A$ + "k[ngokEO=9ONoUe\5>i<L>mc[AnN<ZAi7O?lLb;M^leiK[OlAOSc<Ef5nJB>"
    A$ = A$ + "WEC[G\JoTc_o#`gc5_XicMZFel;[I=egNNEh[YMcIeRlL;2=8mJ#Mjk9_n>G"
    A$ = A$ + "NMZ?Z[n6_ZmeTg_OUagCMmLLi87AmM^?IJC[NfWaG3aeJWV?[W;>UaGCWXXn"
    A$ = A$ + "NZ[jkQ?oYn>g?De?;b[KO=5Ak7:nNFgjDOWk3XfH[bn67?3lcY^med=Jo\lm"
    A$ = A$ + "#mmDUnNH>kZn>_nY:[IaM^Cok[Y8jOOkkI2C#mMNMc1?Xkg7aG3g3\#aGCAd"
    A$ = A$ + "nndg3gWJE[Je7SKL^OOl4W`lm>dled=Jojbg3k1lmGib_NH3K8lleTnimGM_"
    A$ = A$ + "Wk;O?dG=Z_c[7LEL[VV_VRXm;R_7>KT[^Nia?N[Li[JE[jHfcfMnJHoXYi[Y"
    A$ = A$ + "KdnE]_7j9NegiE;^hi=>nJ`WBCfGCAdoeU_W_h;DOWGU<RAdKm=>nJF`26jh"
    A$ = A$ + "[Y8Joj`g3mM>G;DmMNe`ZFUleh2]OEhkIZCEmMNEa_n[bGC_XokT_7RAg]cO"
    A$ = A$ + "XOl7E^l[2NggEnJLQf_8nNFjBk>O?hYGmM^KY\m=nOnWUgG3aYJjnJj6]OFn"
    A$ = A$ + "NH6LEFO?h3EmM^kX\m=n>fQleD4mOJO?lkL_hkQnNT[KZLik6`[BAme#M3CL"
    A$ = A$ + "Li[YHJoRjkYXmb9moRjkLg`NgKWG_iJbDKb43??MOoX_V^AkWW_7b9FWf7ff"
    A$ = A$ + "fDOWk2H^EdYH=L_G\?G>8F^leDNLU_W\jkLngYcgF>nd?]mnJFi:=nDhjZLm"
    A$ = A$ + "edajU_VRS[lm`cP0U;oN3ZkY\FKIfMAO?`IW\cXJdg9embGCia5nN>lQEOWg"
    A$ = A$ + ";TGOS_omKV]1LV9f3`gBJ?>bGC_A_jk9[n>gjeAalK?L6YdnJFkJ=aO8_`LV"
    A$ = A$ + "9dc4;gNNFi[aMDDO?lli:]_7V[AZ_c;?TKVcM^1k[I6c`\fCL7Re#<7Km#aJ"
    A$ = A$ + "LbWK8bGSKXKmmXn>_kPc>IG3Yf?X^YHMW[gbJ>G[eNNFdiXg]gc4i[amD4O?"
    A$ = A$ + "L=PTe9>WoRm6egi5W3L0ce>I>]HGcImV[cbJ=GSejaQeFkc:7i[YjX8nNH]g"
    A$ = A$ + "jk1_of[mbNUZE]fcH7[iNN?cIfJmVe8FWi\A\6Kmh`J:jMkc:7bGLJO=\6;="
    A$ = A$ + "_KX<nN6H0cNU]V^]GC#ib?K`7?nJB^FcJ<[_4KQ[GbJ;[UfW5JbGCmBAmm`i"
    A$ = A$ + "dH?bf;3fLi[n>_H[_9mhHSYPF7hebGSOfK:BnNB^?YjFXh[]F?>4?Q[UbJ7a"
    A$ = A$ + "C`C3OEnJlknCWlm`N4JNn:kMfJdDNMJojZ=?>h;Te<^F9[O\VBL5b;\lehom"
    A$ = A$ + "Y\lm`N3kA\GaN6kM\7JWSRb[Cn[WFM_MMTl03LmBR[8O=Q1]cg3kEfm]TaYT"
    A$ = A$ + "^?kead[Q4W0]>`JWle4FTFkcN3kA\GaNVmIEJFaZlmkm#QT[Qf[MbJX5FgT_"
    A$ = A$ + "V`TdnN\nn]TdCZREUojW=fABD<n`V\RmWgnW_O_6JTL];;TV?\AkOmnJGFhk"
    A$ = A$ + "gK2]7:42Q#842Q#842Q#842Q#842QX#loLUV%%h1"
    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
    BASIMAGE4& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
 
FUNCTION BASIMAGE5& 'wall.bmp
    v& = _NEWIMAGE(193, 192, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkMVoDKKl66?094`LK<H3H\aVS#`4P090QLA^94BPLl=9CKcdIji?eYMjd"
    A$ = A$ + "[IjOlkgmIIUA\`F]j`[TIOoQ?S5Bkka^jiaBfH3e[GWEGBU:EHC?md\A6I4f"
    A$ = A$ + "#3=4[gNkUeC?m`^jE_Z0\=1Ak6#7W;G>FnliIS?nh\5GLIFS6[b^i=_=Kmeg"
    A$ = A$ + "DXm[E[VP9VH2FYBUH3>hP\nk_OQ^_k^kF`E^bEJ^=1Ak6#;?`038Nnm:EZaV"
    A$ = A$ + "Mf5Hgh6[aFMeeIc=gLRWo_Lib2_26OWMf9[S>jPMY;M92R;<0==dfhJ3`?\`"
    A$ = A$ + "2;bFJYUIc?ol\YVJ:ae0PGibGnbYN_B#d:1JLLoAE[R[7<?oNSFT=l`3;^o7"
    A$ = A$ + "hABknSP`60]>dmhe8dXASVgo?Mo?4^2#[3=?dn[\b:Rk?2g7DJgG44f4_G[l"
    A$ = A$ + "J[]FcgoWd^W88\9N_GW[_njT7P`91_fHh38?0Q[RW7HS=fPNm04>99Q70_oB"
    A$ = A$ + "MeEGWjg7=0KC#dZ`_>3J?X1Sbk[OLm0hmF2m0nm]Q?W5hggl2;\P0\=1A[2o"
    A$ = A$ + "j<XmP64Ja`nNk77?0lL8FlkG6ONSfNk]IgkNg[9gm^gUPXUQO]6dN#32]8dT"
    A$ = A$ + "Qij1Ae3hmloS>jX\mgOOfWolWIoaOl7\oiOn7fOmGo5k?ocoTPXU3dJ#c1]7"
    A$ = A$ + "dP#;2=IH^N#Dm0`WQOgJhcGd7oh7IOogom\on_oKfon_o[XW88\5#c1]7dP#"
    A$ = A$ + ";2=IHn<o4E?0Nm7hj>GojGWmcol?cnmOogKb_mKo61Qe`_f3JAX9Qf4JdFY7"
    A$ = A$ + "0aQ?We;]dB\OjWn9f_n[oZXO`Sob_l;44F3oJ?X5QV4JCCo\?7G?0nlVn]Ok"
    A$ = A$ + "g:lONlSoh?B#H=l[mPF4JBKh1`eIll0OmGoe\Oh7nQVlMOggA#H=l[mPFdc3"
    A$ = A$ + "dZ_G8To9WLBagmV?mY?9lONlU_l522[QO]7dR#C2]Y=l0hkLl\c>;komQ?`n"
    A$ = A$ + "bgl==kY_j[n:22[ACo0G32]8dT#KJ3?#aR5Ie[ESMdQ7bn<go1nT4lNDA#dZ"
    A$ = A$ + "aC_iYoPF4JBX=]U7XVd3l9OmCJ_^#hFhYkP64JaJYP7heljn1Omd7hG?RP`F"
    A$ = A$ + "dDgaieI4?`kimUAlN52KLV>n\:ZcS0WG_GB;:oZW?Rjj\US;=m0SEL<FeJEI"
    A$ = A$ + "_ne_Fj9oXPgagf8NW2Q=>C7OF5eiAPc[g9Y5UOec7AMMfbaioJ2#;F]JEfHS"
    A$ = A$ + "=VEm07L`1Lokk?a3`gf8NW2Q=>C7OF5eiAPc[g9Y5UOec7AMMfbaiYoQ64JA"
    A$ = A$ + "[j1he1ekE_jElNoM=k5\=1Q]`_^3Jadd30Ohk5nidOMQ`M`_^;]l0_TGgSle"
    A$ = A$ + "C7MdABNW27YQP>^Yicdj5el7G2Z_ee7QMm9Yj[TNM:YGG?>Onm3I1?`KOkac"
    A$ = A$ + "a3?4l>5hkckH7iOKO7o`Sn_7WgH5K[<f33jhW3n?fAWCoN^SCGomOToSlUOe"
    A$ = A$ + "LMX_mOZOnLV?jZWGLZckPjCehdQ^eiCeg1]N4T>8Xe_cf7`30=GZk1Ni;Kj;"
    A$ = A$ + "?^_<#c5ei^AWC=8ojdfV>^4iLhoANeEW`>_3kjUANPH\NTDj0ia?BjQm^n2d"
    A$ = A$ + "Rfb3dYd3DYBEfNljNbcOmFfKhmfKNcQji#52kh2:NCc_jh3khRkl8XlZ;n`>"
    A$ = A$ + "_3KLQ]NaMM?>[O2_`KKNm8X5QV4Jc>]P7X0_>CO:?0h#f1l7?PgOJi#52kh2"
    A$ = A$ + ":NCc_jh3khRkl8XlZ;n`>_3KLQ]N1D7E=MR^n9eLNGO0JAX9;H3?#WM:m0EH"
    A$ = A$ + "_h5kM:oj1_i=Y:_BBJg7]KdZFgNS29NnmMm1X5QVDh1JaOOR5NP254oO;kI?"
    A$ = A$ + "K?f17hc3L`1Y:k;9]kSf=JGGg>AgMX#;2=9dVfd3ldWm2f[>h4O>N]iY9k;9"
    A$ = A$ + "]kSf=JGGgJZkhJ#X5C3?`CNfc>ecOPo6_##H;lOM<X5C5?`COjYNnSdN=Q`]"
    A$ = A$ + "`oeaPF<=l0?j9?Q]W_NJ_mfCbn7cn1##ScdlHJL6gGbiQ^heMlh>O=>nmT4S"
    A$ = A$ + "LIdlGCMJNN>R[36_N8[_VjdDga1JAKk1:kc3hO]i52foHf?02JLVVWPRkUB<"
    A$ = A$ + "^_Tc3MiEgaSklehhgCB<bUAcO=eYiii8^>X>Ol>oLVa8[oiD7XgNY4??#I;j"
    A$ = A$ + "1bc[cTlj]kSN4kilNkiliaa\GfSGX#Jg?49biWCmL]l]QF4Jblfd3D^laN0A"
    A$ = A$ + "_oB9HkGTmhiBBknP8i>o0?0Gc1N^W7P[9]V78ONaO7GN`^kbNjc?I>lD1?WP"
    A$ = A$ + "Xe3g7h7X5QV4JCKj1^?_^?Qg??S[m1HKR<8?CR][G[^^L]_0nfg?Ul0gk1?P"
    A$ = A$ + "mhWnDR\>?FR][W5[;dRfd3<2_>C0?`m_?kalG?>A6W7;afecRe5JAKj16VGW"
    A$ = A$ + "Blj]cm^7Kg7oh;>\[Td^?BkiEDG7fE3FX_QFdfNPRB?`3ie?fl89aMLVNLMS"
    A$ = A$ + "KG9a]?==^XV_`6O#c;MS?\mg^J8Zc_#4?dRhiU7afNPMfQgSk6?NXV]3kh<m"
    A$ = A$ + "h?DIkT^?==^XV_T:nd>o9<#;2=i`fb3<b8\RU:a^3_^?hQ?<nl09aMLVNLC["
    A$ = A$ + "GDkCCS;Zi;YR?]cO22dR#C2]YEl03?\h_YMKa[kmhe?fl09aMLVNLC[GDkCC"
    A$ = A$ + "S;Zi;YR?]cO22dR#C2]Y=m0KNWk`^k3NPiLO=4VLH3deWImn=Y6GKhiCX5C3"
    A$ = A$ + "?`]gJ;a[5aHfA3Q97f0MmIF_OCZae6Nn4JaDa3\iV\M^kMKbMDh<kO7=XKl1"
    A$ = A$ + "\oF6bnJ79jjGKeWkXP^nediEB_>MVe[#>_BRe5X5]Y7H`17V=fH5IKLkKcfV"
    A$ = A$ + "OOH0LoHK]m>\=U\U2K60j6oi^oMTH#NS:RjM>c[`fo9BO`IK99MnCjn<FW_3"
    A$ = A$ + "aiE_c?Nj?X5QV4JCKi1:8m0=e9gAfOKM2K9IC3Agh5kg;ghakhKm84i?DXNn"
    A$ = A$ + "96mOLI;5JIci4Z?SdhEeiVLni>WllD#;F`ZNP15o=\HMN\K^mf7cFKc^5Hcc"
    A$ = A$ + "bVB>_SI<KYP1aT8e=19[d?a]?DS_E=_dUGangBRDo1]8dT#KJ=?#Q27k1h_F"
    A$ = A$ + "4?fHccWK;Aga=V]THhhC\jV#TEjWhf7ZagZVGjb[gnm[m4N0^VdfNPeFOM^_"
    A$ = A$ + "LcV\n]8J_iFBBkn`<l[mPFdFNP>li1FQGg=hegSeghf6bVB<MlQ=?VVo=e##"
    A$ = A$ + "i;Xh2:OVf7jbKHSgdnL391=?<Mm:Xi_Y[oWolg_fK5ONP>\X7h6[]V_WkhF2"
    A$ = A$ + "_XIL;9V>n`V7Cco]d##i;Xh2:OVf7jbKHS?ZmIB7GDGo?oiOCM7W6L]Xel0M"
    A$ = A$ + "d1K0NM6UG_UGI5f=U?g1N4meZ6a6B<MlQ=?VVo=d##i;Xh2:OVf7jbKHS?Zm"
    A$ = A$ + "IB7GDGo?klGh3PVCB3^F4OGRQf4JDKh1#mJLSKL:MoJL_hZ>5[;iRJmbhmY?"
    A$ = A$ + "]7dRFe3<`0\lS>:K9NMGa[?^i=I[`k[EFME7QeDhRFmbhm9dJ#caeN0X5QV4"
    A$ = A$ + "JCKh1jSGWQieKa6=H;ck5lj2^1__`f;S798JehYe`SLPF4Jbn\Y78ONfehe]"
    A$ = A$ + "1_?J2oNb88\6ndN#;2=Y]m0;Lm6l[1]j9\lb44f3OJ?X5C5?`eFR]DSElA32"
    A$ = A$ + "2;b9J?X5]Z7X_n4O6EWKQ5I;^dbnH922;b9J?X5QV4JCKh1ba[cP2?`eHGKY"
    A$ = A$ + "6nH922;b9J?X5QV<WUl0mb[c0lj=kLcaFHa5KbLaTT:?IMLUiI[Nm`_f3JAX"
    A$ = A$ + "9keVNPQ6jH?`e^FCV=V<_ThVW\>^bl\E_NL:]7l0L=Y]m0eVMFnePFX9e98\"
    A$ = A$ + "8neN#;JE?#^LROWdc`[k\ljkAmiS9Nc_hVW\JOXVg\bl]=5oJ?X5QV4JC[h1"
    A$ = A$ + "j]Ga_CjY[ES=3oJ#eU<CmHbLBRKNbZmQJNc:cgfDZkCkEU[5QV4JCKi1j7NP"
    A$ = A$ + "IVAhoZ9IVjcbZ67VEBLcCF]?DcKFInf62dJ#cEGZmZ`eRYR7XJEN_DWgC7c<"
    A$ = A$ + "c`Od?N7CMo4]FJGFgSAO>S_hafC?MEQVdfNPbL?#5_iA]jL_H=FUZ0\]lW5D"
    A$ = A$ + "ohmY5Oa5YSK:ZiYV6RKMB:R#o<S29jjH2^nL^mYYioHM5dL#kQh;KI?`Eie9"
    A$ = A$ + "7_Nho3PUiG32gC4^V0f^LeI4NSSao??S62JLVVWP#=?EEfFMOA]>959el>Yb"
    A$ = A$ + "GBg?A=obS9eL#kQ]QF4Jb[JC?#omcVPGgYhmACZDABE9Zo\>2JLVVW`FW:J8"
    A$ = A$ + "^e9Y8YkWhV_FmjC8e;ndN#;2=Yel0laV;G>FYYVVkoZbV\ZTbETDERj?[SP6"
    A$ = A$ + "WYiIJ9VVW:J`dj4DmD?^^a[KLA]OdE7_l5dhdMLeh3Z_2KO7BmRW^SC9h1hJ"
    A$ = A$ + "BX=]Z7HRb\9WRg;ET0?AXXRTTJLC99^iadj4DmD?^^aKjh<]O<]_2ZO<]OSj"
    A$ = A$ + "iMCkG=WoldMCGQolaUC5?`hUVTEJbb\BUU<iTQTbBBZaI[l#T>W7DR[Y^[\#"
    A$ = A$ + ";J;?`UTN0lkSK\BC`:>iD\RC9QgGQSYTTDScFiQ8M>?X4GCMgD\a:>Q#CN\>"
    A$ = A$ + "^ek1jV?fNhe[`hU4n_CX41Q5i4]GQa:ajYgL\^kf2N0>2?0_Nh_c_SGTg3L?"
    A$ = A$ + "hh5;9Y81Q50J=XkVD0dRmdSW7`<ML\l0Mg=?VNIi;<6oJ15U<>1Q5aCgEB0d"
    A$ = A$ + "R#C2]Yml0m`6QGgAimaXlNRP`nD\9S8l0mHM?``i;`mOSkS24]ELail6nndW"
    A$ = A$ + ":NPA6UUOdah<^TA9J[`klF19YMo4M`oGR]Y7hbljd=?6lMH6n?LmPS9?AK55"
    A$ = A$ + "D8]kWX3dR#CNI;j1^Rd3<4_n3UOD9i9J[HD5Bkn9j0]hE\Y70ab[5noOf#3c"
    A$ = A$ + "k1h58R1iE8]kWf?`og1PV4JC[i1^Bg\16L8fP3=2WQma#nNllHH=KKjh<=NK"
    A$ = A$ + "A#mSoeTcKmaKoSX\FVeWGA=OaEWLni1OGRQNf^NP[8ZKb=g^hi1jG#HGOb:#"
    A$ = A$ + "N0Sl03<PhJ#3R[7L:6<0Rkh<=NKaig?m;9l[?I5Bjn=Yd9W=?#;V6NPnjK0F"
    A$ = A$ + "omc??go#:<H04gaIJlfRPjW`^nTE8YkgTBWLfl0]X=m0MaSmblHca[KOXnZd"
    A$ = A$ + "W2jf_Y7?[7Wjn3JLV^NIJOZ;_VF?CcCD?_ZKm9^eaG<#;2=IGFb3d9?f^haR"
    A$ = A$ + "oVNQ_oJWQL:XKoVNl\NLZk?XaIjjUYmY^lJJm<=?AmlZ^eWhF7Oa0]8dTMJ;"
    A$ = A$ + "?#GM9lKhc[=nklkI8W2jf_Y7?[7Wjn3JLV^NIJOZ;_VF?CcCD?_ZKm9^eaG<"
    A$ = A$ + "#;2=9dVFa3dIW\^he2OoUagS02Rd6X5QVddo7eg:l0GegSGEIOoGKWH[1:K7"
    A$ = A$ + "gj5Dl]jl[KlZ[_1]^KM]H4kWH_NVFN0lMYQ7[8N9M;akWE?^jnC:DcOL[G#a"
    A$ = A$ + "gZc_^a[^n6dj^]9ZmC\G?iJAKk1086od]2j>^jnC:DcOL[G#agZc_Y[_1]^K"
    A$ = A$ + "KRJo4gngCGJC?0nLZB#TEPl04^>YQ70O>E98b:#N02G7Kj1^4Z3l0hc<11A6"
    A$ = A$ + "1?MY=m0hmRRP8[PEm0:gC41AFP`ZO9?0a5=B3?#c[mL1Wc\FWabGH[KB=ndJ"
    A$ = A$ + "NX5b3dbe>T78K<?dBJh188JSQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl0"
    A$ = A$ + "4^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7"
    A$ = A$ + "P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl"
    A$ = A$ + "04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T"
    A$ = A$ + "7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQ"
    A$ = A$ + "l04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>"
    A$ = A$ + "T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`ea_78G^L\Nk]GF7MdAZgG44"
    A$ = A$ + "fR^k^Kacm3?#nliI3?l`\>k\cD__88\1hikacmgOom;l0C<a4\a7OLae6X[5"
    A$ = A$ + "#LA7XakZ[^H3>hPRWk7NP[Om6\iWoJ\nj[?am7Ufm81A[4lLmhNP:EZ4KZYV"
    A$ = A$ + "Bh1FNiEinPUIS>J1^gH8Q?0S3gK4l<44G40?g?dehen>`038doC?md2?`=_i"
    A$ = A$ + "]I[]f]H;^hb\iVKAFQ25H3=d#Rg_8lj6PWPPXM6XSamiPko1gk?doc<c<\Je"
    A$ = A$ + "ZaFOm=hLK^?hFR[7\hR=HU;GVE\HAam:QHPW1_f12RfAPn5<b8S`_GWA5jk:"
    A$ = A$ + "EZ8doe[GWmo1OR53%%%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
    BASIMAGE5& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
FUNCTION BASIMAGE6& 'face.bmp
    v& = _NEWIMAGE(300, 297, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkMV0eLDEU7_b>9Q\#24P<12Q\_72RA6A#1G?ZSRh9IHD>A<:PA>RkSSjX"
    A$ = A$ + "h0Z7L2<X7S:P2ZP8<jX\916A9\4PX\JRB#F2[RPAU=A7GB=m__bGjZjdOmG_"
    A$ = A$ + "lZjNOEMo>WO7dT_^CGgkmm_O_kkn^_XXXh83333333333333333333333SlS"
    A$ = A$ + "hH3333i`d[<<<25<m:33S#Q^D_j0?`3d```8gad[<<<25<m:33S#1C_b``8D"
    A$ = A$ + "`d[<<<25<m:33S#1C_bXCH:[I=aSM3K#nmb^6ka5OaaCoT>9a]9657VNUAoa"
    A$ = A$ + "B?X3:N2GiE6?XodOBL]Yf1nL>m?`7X_?gBKk<b7<m:SmmD>UhMin_OaeKbCh"
    A$ = A$ + "iSWCY]e6m6VNEeTUlBN9a3j?oW5G7ATiQEkiVWOYm16M>VNEiW3HI;CL=2]c"
    A$ = A$ + "`Oh7FLoTa0SYGENI^o;o;R[34R<WSnX5ggIdL<mZb3cl4>1a7[G6I67oa7_d"
    A$ = A$ + "U^Dam_6VNEIPioVNCR?V^:`l>bSDLOME7C_:<IZo7o7R?n]:cnnYnDfL^40C"
    A$ = A$ + "_:\h0NA_8a7[JDWU\\UIjF58VNUnIBG`58nhBS16lCVfEnRYGYCVlGj;9nh?"
    A$ = A$ + "S^WmN][ed^b1<m:mQdSe<l3ChB^4Cc:?7KHjERa^MEGUhS_<b?6ojFWYMi1<"
    A$ = A$ + "m:iI?^X;BlaC6i?kngnKKJFm8VNU<<SgmkFla?6badGmZ=][^P<fAC_Z#HA_"
    A$ = A$ + "bGYhSG<TW5lbOiVVE7B6KXYGU[<Y;l25O<RQnHg]jPX]9S]cd[:6k\QA3<[g"
    A$ = A$ + "bKad\jdaAVNUgA;m>HS`P3h0>0CgZ5TaNIjENUIO\7[hao6Q7cLU[dd\j7bH"
    A$ = A$ + "[<m:_``NRW#lHNS`WYMRWHOjFVfEMbHS<mZNRQoX?Zhah6U?6fSl8V^e1JjE"
    A$ = A$ + "nTi]RE8NL]AiUIoVOcVNe1JjEm:F_AgX8IA_PG#UFg:Sm`d[j8f_?iWDlhGS"
    A$ = A$ + "Z7kc7oSGIe\bH;<mZf2[WiIX1ZRen#6KPYGeif<33QHo>aC\bYIUa6HjEVFU"
    A$ = A$ + "A`aRGlR[<JFINf=mZn5^?PU>^d`XoH17l1G9d\blLKjE=Umll>?aS7=<68fS"
    A$ = A$ + "_fG;N9;I9UJM[<?cVNe>aX^kkFlh#3SfUMIcK^DGKYINN=mZngfHH4#\X5]X"
    A$ = A$ + "BYVEVWCC_bdZ<:=D6gk`<?SVNEl#omoNaSc<<l5CO5[XDYIUii[R[G5]m];N"
    A$ = A$ + "lUQQ_I_>eC]d<G[<?KEHm:YSY<<bCFh2GHY#c:ccE5E_J??ocGlh93SlV9L^"
    A$ = A$ + "WK`[IUiIZRZG9MLTQAA1e2?JFB?Vcd[jLfkcn\5?na`XXIgGkJ3fiIUiIYRY"
    A$ = A$ + "G9MLSQQD#mI5Rcc:ccA5A_JF7ga9NlRQQd<eE^bPKNFIN6Z8jEB7WHHX52]N"
    A$ = A$ + "k#V?oULmZUN#7Tha766JSi]`56<Wi`<Of;ijEB7GHHXE2Unj#V?gUHm:k>1d"
    A$ = A$ + "`XoIXojOMl2F`2D_VEV?gUDm:YS5<<25FhOO]QB?V]ZZG=og`K#lH03S#QYo"
    A$ = A$ + "ZNEZN?3cli]TYGIWOI3S>Wi=_iYfm=<cWebVNU2lmM=oZOELdBFBkk?nLO^T"
    A$ = A$ + "GSdO^;SPM5kKkh76cHRS>VS9Xm53K[K=NncOnZL?3clI]4YG9]?_SIlS_c\o"
    A$ = A$ + "]3SKLfL<=OAGS[W>8mHIC_BA`M_Z_7Kd8;KI1gH5A8_m31V_H^cM^Z[_:gen"
    A$ = A$ + "[D_>YO6Bc4Fgj4g??PL?gCa<fXI\lU7<SG:4>jSF>Oa?oW77mgnKbK3J1Sib"
    A$ = A$ + "^<EEKFInlE2d[Tfo>P<fa:gh37OV?CLdOm_:_]#Jn?o?UgG#n^D^VUVFGHV?"
    A$ = A$ + "K1\Ne2OE_:MgkeUNLAch`?lhXo_o_Zgl]Z5[8^]_A^_k;>j_lGTgfd46l_mg"
    A$ = A$ + "fgN6ZQl_geSYBmjTF[JWN>d67oa;ohQF1SCZ:JFBK[K5[LU9ceBQnRMod>=E"
    A$ = A$ + "\^`^fGVje9]Fe\FeZ4gOfDN^WCna0];_lGNiFgjenJUg6g^l`?\:GSX6boNV"
    A$ = A$ + "?C1ZNe`Od7ELOICYVOElHo>QohODUSCl2BKKk4F`2DigM<cJac^cHXDJFM]?"
    A$ = A$ + "=e[CB]:YmQ=U;iBT?V_Ki\>;eV7U:U_HH3;>RcX_bd]6cgok;Jng3ImZI^jE"
    A$ = A$ + ";^oKWhj_NiSekE^P;8>j?oWEehT:]_hgmkDU_Hb[LUkXng=mZ0N^EL6<T>nf"
    A$ = A$ + "GlKo]9JFBKC=OALdeMMZkk?Vm\W]8ca:De[TfOeDT>^fg\U]X^eSDYm5D_>:"
    A$ = A$ + "bG8aL\<m:?alVWladnVY>ehXWnY3_J;]\j;^gk=aGX4=;gL\:B=[#C_JYJD["
    A$ = A$ + "BjHilT=^ah8foEU<6YBk;0l5\?^BKWok`L\X^\<mZVc#9_::`?EI6S\[kJLd"
    A$ = A$ + "ML7Z;o9EBO1P_h9OBeh;VcLVCQfCB3=m:Ym?E^a7>N`7<>j?l7TgNKnRhXKl"
    A$ = A$ + "6EU_HFcJF5fj239mZ9oUobRkKb`klM:O\KAa]MK9e3TBnNm:]N5WoA5i;V`o"
    A$ = A$ + "eoEQEgkQRNeH_iKFLoBUMl1L`7LLd=MCaAoYoTJ6WTQSjXTg6ETX<OAA]^`#"
    A$ = A$ + "A_BJoAUG_2^j[>Yf5efn5nfNKbKKZhnRI<kI_SNh#EG_Ja7fQ9^oXb[EihWm"
    A$ = A$ + "cDGmF;^=AJOQdfoo>Ck0>PLoNZ84d[Tf?\C<Q98O\ZDLEGELdVg\NF;2kKYd"
    A$ = A$ + "f4Ym5:j<ZkjQ3VNUR#jhD9iB_dh8bUhcl<jHL2m<:Y]9Bk;DD?GTm:<?_WXe"
    A$ = A$ + "^NU:6C8XNe#6b#RKe?KH3KX_OW2kc4c]l:^RhX7h1RSNnWgl5=lCQZGil5KK"
    A$ = A$ + "KZ9?F<NMVcLViF_mCcjEco8?Bi]o2>6if_mKO07O8bhT_og?9g9BgoY?]C[#"
    A$ = A$ + "O^KgOF6g1>5Y_Pnk7[?GBOA:fWSh8b]jK#cjEBKgK:5`MD`Kl=n6Kka6=nCQ"
    A$ = A$ + "<6Qk3d[mJCVSUT[3AIjDRi;ZmmJA:kLO#m=T7JFVNE7bTVTJ7O`?7jQNXioH"
    A$ = A$ + "4^SO8G_BOODE0j1H?E__H3K8>jaN<i7KT2FCHNdo6dZNen`LmEPM_X7Sl5n2"
    A$ = A$ + "OQ^IXAVOhm8g7W#^N_UKAfNAZi;Bhomo=i>]D9iL7fmCnTcUngPFe[TfN;eH"
    A$ = A$ + "4OmC^?6ikmmBjOWBVg4cGT`?h747MGgUjfKZI<SIhmjaBSjEJc^KSAJ2OW_C"
    A$ = A$ + "bJ2Y^6Tjke=OA2TcMFCXfj7\e67C=_kcn=S:e[Tf>g:bah^C^fLXme?lNU[S"
    A$ = A$ + "An_o_Cf;MZ_JYnn5cGT`ocoCLdjG_ZfS#7\V#OVgMC_B?SAlm?i^N5gm<?nS"
    A$ = A$ + ";G>\<OA2<GG>?Q?kcZZLH1COjC__m:\\ZG9]me6Sd1jET3;9[m7cGDgG#>\X"
    A$ = A$ + "NhDH^DlIN\dTNeLGa:4gfJSAjPa8\>4jSOVNUln2YGKN;H:_VGCOWA7OLOjX"
    A$ = A$ + "9m:Y][fHT>L<bgmkVDcXBe?a=OAMOaUMI9e<ZF>G>=P_bSUYGISAj9mZkon="
    A$ = A$ + "m:=h;D^NU_ZOD]XG]h3o`5gV:mH4b=Y_nQg[LO<2[7L[K]D^N`PcGLiG^JG?"
    A$ = A$ + "8<eJjD^nlNI#_JDgmM;^=Eja8P_n9_oL^3mZ7jQ:UjE1W_PlGYdl]33OCKZ_"
    A$ = A$ + "l^g[eRU6d[V3WIC5HCe`HT]_m]gAS5Jf?lND8SAX>5iNOGZjDdl59XQJg]=H"
    A$ = A$ + "b_Qg#?gK\dPNe`n=o6a]UJI<b86a8jTQ3=m7N?:4m:>3QL?]D2[oZPbG#N4i"
    A$ = A$ + "<4bMlURe[6B]H5joXQ^NUdfa>Re\VL?n;8jW<lMjGiE67mD?EY\nfCSjm5^c"
    A$ = A$ + "b9mID9l3M0mJ_lCJmZUn2OQRK3k88VX0R3I]nMj?lJ:Ta8Gh5FokdO^WC^_C"
    A$ = A$ + "_8VkB8h;hL6#OAFbNUAKB_FkXB[G9]m[[X8R3okXbnQ\;gEJh<fZ8OAL1oiI"
    A$ = A$ + "7n2=d;bJCfkU_lnZ[Q^=_kVNU^7STVcol?oh]^e]6_]]]]h=^a=6?^a=^Roc"
    A$ = A$ + "aojoJmm?oF_Ei[g71l3HganSO0o1n5AR9LnROl?>Y>hDL^[L<T7kaj;7FMkL"
    A$ = A$ + "\TD_:4\_=UZlmi5S?0=d?TQ2JmiZ4W_#Qm3iFA_DkXRZGY0KGGAA\7eJ5gJ1"
    A$ = A$ + "e`m=Ag4gFV`i;Dfm=a01e?;W?W^9_kVNEGbh7_la[5=SNde[SQ]\UTnGRdnQ"
    A$ = A$ + "ZZNEJO1md7YcSH7`n_okOOejNg\V#C_Z;Y:>7;G?Tij^>MMFe^ckDNKSTn2>"
    A$ = A$ + "oVB_^l>PA_^eegL\jVNfPDjEcQkUG5Hkj9T>V]8id?mjWkSKkfdE]9bWSZVV"
    A$ = A$ + "EJOA0D73=2jEMC_B^[7oUjeEiVKUS7mAU?^]87O#=RnCn9aAojO]nfklZdlM"
    A$ = A$ + "?Wc9[_#;O_A7`N^ZEegJ2Gh2GH7]V`<_?VNEW1SIckcN_6H_f[jW_iOi_DUm"
    A$ = A$ + "MgnXZj;Tf^g5<lkj^jZm9<ckSYGeiPVUda`i9[NeecE2e`0ec^fVKEEaG0Y["
    A$ = A$ + "W4=k;J3LkCXYGEP`l<:ceSUKl1WE`kh>BbER6WKEE`G<VaD_?9ZMOAKPKO2k"
    A$ = A$ + "TkDe<_75TNE#dWfk4HObXF_U>NfgLVWImiFm;n59W]IY]eV_8>jJ^V``G<0l"
    A$ = A$ + "?lJN=Mli9<ckA1YG=A>OV:`Ni=hkh:KeImANTeo^LVK5ie=0>ooUBO1TNN^\"
    A$ = A$ + "WPQP_H0H<eNNH=QMBOM?ckA1YG9]M:ghYOjTjhCjHkNUA>bjS?hNhTljZUJ]"
    A$ = A$ + "Z:k;hkiaG`cVdfG?1[9\C>ocINm5PNed?YCBLKD^Qkkf;bnUP_I`3^nn?aM`"
    A$ = A$ + "9mS_#lkb;3nRgkk]^F5n2Za<NV2hLFe8DG3LOZbJ2eXNehi\T[0kD^>>QN4l"
    A$ = A$ + "^\;b7_gY<lQGOlajFGbj>2\JW^dh;nHO\jn2n^3l5l\4ZnRnQAMEGEOkA8eQ"
    A$ = A$ + "U6e[TfnD8`N<CmOC<Vdam];;MYIeZNT79iI#JKY_l57bQ8_=^MiKn=[GO^h;"
    A$ = A$ + "nYodTWQ0^f5J5MBMHUieJjEnML2Wa^A=:iSo78nPO`jJE\oC\oJUYa7lLPnK"
    A$ = A$ + "1d;[kILn1dZh>54O1Of;;nRV0kAHkfGgclJ=m:o2cMWmMVNYVdS3J6;NaI7O"
    A$ = A$ + "`JeY?all?_lf>O3SgiiRW_G`;#NKOSLFWEfeoAo=Vh6n<GReZP>Y^AclJ=m:"
    A$ = A$ + "o3ed7WI2nNbGj;Ena5Ya=nPJFPc>;g1TLG5EF7O`c5?OlL:]]?=oSoSem5d?"
    A$ = A$ + "[X_hC?]RhVbZ_85Y[KDC_B9#oDSe7N;gBLdGm[:gHSGl;>kgSCO=ViLlH?F`"
    A$ = A$ + "G_d]5llac9?_lLOX7ZLn2G=PjdYH?0_gk=9>Y2XCi0m:gMYj0=7[<_FC_:o7"
    A$ = A$ + "W#?MPa9[M]aA3MX5gH3ngb=f`=W:nNl=^ahX]]]4mdb^FEJO1?_lLccoQOh5"
    A$ = A$ + "[>5n2bUFjL6BO\Rh2VCE0fOHj5LjE]CM^WieVcjEUjJ_ZMaYKAM=A]omSnA9"
    A$ = A$ + "ca9?b;?_W=ZAA=7N3g#bH3b]F9[NNjHO1?o\f;\7L?cDDn2bG8oKQoWh0fOS"
    A$ = A$ + ":V>U3Z1;bQEkdKIblJcImZY`gYX0kSh`h4>KmL6GX76A<k5OanmkiimRkV^d"
    A$ = A$ + "S?XgibHB6Kn#?DbL<Z#[kXY`co_kgUH?^aK\hl5<W:ngbe3[Z2[5_OHRWbYd"
    A$ = A$ + "gL\#_JPbQEVGK>[G=HZm#5HOD34OBOg6][7l1SSfdVBfS>f7KRW9^n[meRSN"
    A$ = A$ + "[_eTLeC_7P_WVjjL\S=IO^No_oTOWdOg]K^DlN#mk`k9_gD_Q<W:>K=Eda6]"
    A$ = A$ + "dGPnMSn2\OH7aNRMnOjO:a^Sm7o0n3l;hO`?eXOXol5l_1oKQo_Rk;6dcolk"
    A$ = A$ + "hLiX9m:Y];Z4RE1dbMen0iDQlIl3n1ee^8ghXO1=K<1oi<^Plfb[QLCak1S="
    A$ = A$ + "hmd]f_ZnlYjDO1f?\SH?a^RO0kL[l3]S_`M^1ZhJE>#_ZMj?bINMVNUlhb_5"
    A$ = A$ + "OG?gGF?iCVD_PLGoA?MQebam=7e>?e81m1Ykj^BfSnkknBfg;N=lMg^ekIS9"
    A$ = A$ + "jNO1f?gl^`^blR`>_i=WHgMn1n_hG`oPObl5M4XGe>WS`<_^LD_Ja7fQ9^=9"
    A$ = A$ + "ha=n1H=MPko_mMebh7<OQGHZedYXVAYgbX1mZI]ZE9^=a``#W\g;OikhnW#3"
    A$ = A$ + "jEk>[WG1f5333maHnFO[n>gcLW4fZJJ8c[;7e[6=[eG1f5333ma8^eK]]jC3"
    A$ = A$ + "INMiXNUdf3333M3eh>kAXYGIHHXMJWn:CVGSYGIHH84LVLXV6<m:333]SYGI"
    A$ = A$ + "HH4:d>m]_<_6C_b``#8LjE]j<4VieHjE6662AkdWAclJ<m:333Q`d[<<<25<"
    A$ = A$ + "mZ^Pgck9QCl4CHe[>>jMm^RS>QC8>jh?nhXSkhRSN7_Sh8>?T_mgNLdaN\aA"
    A$ = A$ + "_]gFLd:GILdaL<boiG[#?a[EaClg;mWA=2WKj>ILi0<FEcPN5eh^YGe1d[a6"
    A$ = A$ + "Lo;IW?o^gVJf]\#ObZGS9Mm>2UKK=mZ^PN=fPnO4mVM^g0DNlQZ]UF?#=1^["
    A$ = A$ + "LjeHBjAPL?Wld?]l??]0C_Z;XGS=^X;:Y7jA_7^:g;?kekTdU\TZeMfCo1mm"
    A$ = A$ + "_N=VlJ^VTkdNjOPBold2<mZ^PN=fhSlARSnQo`TkA>VSPd??QX=<=Uik_ef1"
    A$ = A$ + "j9fmZ=Tnd<g]5dSJUniY5HjEM1mJ\1iR7m:^SVZRjE3KHnE_RkZ?^[[ZRfBP"
    A$ = A$ + "kYBOXGamLaFgZl??]0Ko1k2jeHSU]\TkYGjWjE]kC>OZCUV_dG:i>2\:>?[S"
    A$ = A$ + "jXlSNejGObMFVd??]0C_Z;XGS=fkm>i>nSkL0^[VTni9T\M]2boRk>UAjWcR"
    A$ = A$ + "TJSOkIK7gG?GoeWXi;mcC;`d[j2laH;bi0mCEbG\d??QTMKPhN^7e_7GZd^R"
    A$ = A$ + "Ne6f#bN09mcC;`d[4:nPkIL^KWZBg?\5QNe=Oc9k;OEJ>FnB_2K7gSdBold2"
    A$ = A$ + "ddiMNXQBm;kShS;iBRS^UK9iNWCjWW#b^e>fEVW0gk[E5=;OHgh^NQk8a]]="
    A$ = A$ + "iONj76L]?KJZOb4<g?>n8nPkSI^?Oin>EjWWRPCmD;6mZoioiTi^B=>DEf_`"
    A$ = A$ + "NeV=lQW4?BM<cm:]d??m3LohXYnegnlIo\RKC:Th3Pk\LfoHZ=IYON:2NY_d"
    A$ = A$ + "RA_JNc;i>NWkkJVSUd?gQ#lhRGLR=SmoiIN6iONj7VhonoNOjEJYo]7<g_cn"
    A$ = A$ + "HL5i;HM[CmeC\gH83YHd[6lPC\]olO^Z7ki=nLO^NgVM6WAbLBi<iXhlYbmk"
    A$ = A$ + "\V^OL2VL^__kK_7S#m^L5GALd3nPbolD4<bAF<jE\f6\]\g[EQeJGK^6N9FT"
    A$ = A$ + "m[VJ_BakG=k=XYGe5LSgH_7SLh7NbL`IN0EQl2CodY8d[HMW<nSL7G5F[]?\"
    A$ = A$ + "IH_hlF`I`Gae_\k\hXUkgiPA_2VlTk]HT1=XTLHA==D5b;lUMI5SNe7n3W<n"
    A$ = A$ + "kf^]b_N5[g]G]GSOl9f[[mJC\G:>FdEkEXGefJ8i\NeHI_XEP]I0Qi5iS_GS"
    A$ = A$ + "J:fb;\o0K:i_JCKZlGgXCLRm^mRLGQ=cEK=:M^nSLm[_?m:ZUQ5]X5Y6mZY\"
    A$ = A$ + "Ve8^]Y]YGSEXoSBOl`eonTniAkf[fE_RjRI;KYlGKKnbN1^JGFYaQClD>Und"
    A$ = A$ + "[XF6dTNE#]V#O4_`nb#=jYhiQk=6eXbG]ZA<RTaNGjU67mh?Nio\IjCmMjE8"
    A$ = A$ + ":?gE0eb`RGlR=m:YRGXN\YV6:kS]0>W<iYNeIMF9[5l:_bTm6\\g[6lUN5e:"
    A$ = A$ + ":kC]R]G>m:fK`U\TUHjEB5_`H\ZB]2i;KFo=^cES8\gP:N^2N1OYmS=c=7OU"
    A$ = A$ + "^F#`YGA^fKeI7dd[J1CI:mNl2e;4ijDiWcD_1eg3mG?OZEA]XjbcNEil>kSe"
    A$ = A$ + "FCnjI]Pd;fh^4#jWYF0JEDKk;LQ;\UebPYGe2>kcf?SgX?YAOM\\?63H=7\_"
    A$ = A$ + "MiaL[HM=EUn9S?\KL_cA=e#]<XhjJ7LjET[MC_Bhh6V?NEH=<>#GVLfe[eVM"
    A$ = A$ + "]HhMXEA>[Z:m[?OD73>MNFoL0D3P^JKWLGIjEm0_XGD_7g#M^CMHEU^[GXO["
    A$ = A$ + "C_\d7c[Ri8lCn9EWnQ\?dZVi<C\M\F#>Wc:?^;mm<Qfd[Va9MBRKO:dh7>S^"
    A$ = A$ + "E]NP2S?hIUiIMWgILd7mS>`ieRon?d7Z^>5iNQjVWGOEjnV`Gc]28OODk7Bo"
    A$ = A$ + "<e2f[E]ZfZ_G9UNE`=7;O4o`L\Hn1:nlVV;`jg#WVa=lMmTC#jQESM\9k51W"
    A$ = A$ + "k9nooEn:e7SidZhgWGGEknlbGjE\o4Xe[lnTY;gE3DO_BDm:U?oD_7o0To5>"
    A$ = A$ + "cYBolDdP_6MJZI:Z;MbU7em?m<0Vg9cQRo;gA7lWcO?oNlkGUF3]?Se#_:4n"
    A$ = A$ + ">bJnFgJ1WolW_Je[V8eAYdfZR>6Z:]?Q=9^\_ecanZclUh>;VN23i26m9n_D"
    A$ = A$ + "WJlWcO?oNE]kSNbaY?e[LiP#akccHZmi<miLF[jE1eJ2I<S?RQ^h;>>jV^YZ"
    A$ = A$ + "E_7_EfDFS7P^4oGncZbf5OZEij7g:OoDMe9:[5LP>7>VNE70iJYGSSXnCY?4"
    A$ = A$ + "aL7ZBiSaXm`7JE\W5XGaJ\9o3:N^E#WL>L<mZ>0O=7;N^Y_dbnM9mcTQNheo"
    A$ = A$ + "jmgL[0VK5WI#5?g:`YGAM]?#W37C_Z3aGcG?#RU<:#lE\UK_E_kkFmWIemLE"
    A$ = A$ + "[J7e9:[5\MbMUTjEk:m8B5Hg:lH:ZEKbeLEYNR<6HlYNUkn3Bck;HLmiFaN3"
    A$ = A$ + "f>ee^djE1gL\leJ21^kLX^H<=;3OZEaI1h7mSBbgPRWonX[5okZkZf]>A=mZ"
    A$ = A$ + "^P3i#lC\5iNWk[4UO>D=bIVcLlCl4g;S^l\_a=Znn]fnLH7f>F;h0MO3JjEm"
    A$ = A$ + "0nL>FD_=Eejab81O>g:h6^QTJ4EiaD^e2BMGe>m#6C_B1aHOZ?ELdML79ki\"
    A$ = A$ + "bS_<b1XnnmYNUklg40gK#Y[kZ1ZO][9mZiLd7]hf^>6OLo4j0k?mb_ZbMXSA"
    A$ = A$ + "2_jG]oRQ>eC=A[RN7cCnTZ_V[0G^[JWn9ZVd[2biHice42\gcEQN#WAMlIlC"
    A$ = A$ + "jl\[hk\;7SmL?gM\_P]CoiCKjEk>fK5H75;NSe5`mGREckE3#CaWJE0kgLPD"
    A$ = A$ + "S<YgG`>Y>6dRNe1L#7Thf`>VGl;f_JFdSg[JmRPZ:LgOkKm:fkV0Y6TC__P]"
    A$ = A$ + "CoiCKjE1kJ2Ga:l[V5WCWbnM0JE7O6_#]ehZ?DdZhNiEjW_f0gmhLW^_PJB_"
    A$ = A$ + "JXTW#5H;k8H^gn<nSNnk_jG54O7YAGR?SGLk98[5Tm4<0F;h#NRW8cmRJXZG"
    A$ = A$ + "aWKY]UR7o1oKoKZoLOId5LNWWoSE#_RNLh?kW54JE#jk][>MO1eTN5\XGf;C"
    A$ = A$ + "LkI73a9SKLn=>TJbbjAFU;lIl1g=Q^ce<mh`WjYToi[=HZeVCBgLN1eZNE#>"
    A$ = A$ + "7;dDh\JichaMMGC>KQ1#MdHd6\KkVOS?^X;ZnI_Qkc3UO^VMhZADbMEgTWM]"
    A$ = A$ + "YG]COF25lMmH1_ggKein[Z<S_S;0GN[XoV`i4<#V7NjkLn^E[BKjE3>DgO<>"
    A$ = A$ + "74n>^l[oe]JL8TQcM\_S9>cc\nN2n0?#`4K<XWmIcL7>k]id8\NE#^V#`M7`"
    A$ = A$ + "hkhc=]YTmnaVWEH1gAIialZL[3dE_NBoLfVTnl=g]iIGSjE`Tn6O3a]_M5XY"
    A$ = A$ + "hkHDPkf:jk<VVEH0g7`iALPC_j7oS3Zc3ah>kc^[kM<QPNE`>7;0MUl8FmT?"
    A$ = A$ + "iTcbJP<oo:;iAM;hdZ8WE<g:b[I0egdBWWm^il2ZMmZMjcD81eg`_hGT?a\["
    A$ = A$ + "I=FM>XInfOkla_oUobe_S^H^ELfh3Tj]2jVk0W#C_JV[JERKWkJ#?IGfUl9f"
    A$ = A$ + "mh?nhX]]=CcBKlaohiSon<>Sjc]jV_iTnbN0ikgkE\R^j>U8dd[2je42DSji"
    A$ = A$ + "Al;LD7U=?;=aaMLiSOn`>\ji\Rm3lN_gPk\?dHNf;[jE1_VEN]OQ>Vh4]lIY"
    A$ = A$ + "1VdTb?O\C[Rn=d]N[1G]]Tnn_IncOnNA[BcjEkdW]#TlDc2^_k[nMi^d?[E9"
    A$ = A$ + "h>j>_lY_WgCmcK3gmK\GP1HoLdgi]:4d[f];ob5g^gCPF2W;blDcRJ\=PboJ"
    A$ = A$ + "`3WahldOjVG5angd=UDoM1fIcJGoNO?_LfV3=m:V3i^Aob#1nP^6Rehl0VWa"
    A$ = A$ + "hSH41eIc8HITS\HdZ8OE\?c4g48eIUSAOYGJVN8Z_bKEXXG=ggdKBLO#?1aK"
    A$ = A$ + "nn<AKccB6bCogKi]DO_0I^ELoDZlkmdVaDN5_RMXGamO3SQ[:jE>=;Ym1m<4"
    A$ = A$ + "cAOoXVO<ge]8WI1fg9[NbKOfTWLmiFM]GKLdmL?1kmlFSgEGnD[:4d[P178m"
    A$ = A$ + "jeF2[GSLATgankkn6TO_\JYfl4bMOFje1B?]RhT0do=XJaM>m:fC#OVWm#B_"
    A$ = A$ + "ZD<7;PH#^_17lPcoa0\GkXc7PamZPmJ_bOO4a1>]Z[nZCjES1FM;h`e[SmA?"
    A$ = A$ + "icd[D4Lf_X?]WgS5LHiQ_cYXl=>]:^o0YOFALAP^FnY=SI\SJI??bKE8YGEj"
    A$ = A$ + "d\8VTcFQ?_KW682PkBCAI][]hl5hgMJEDWELGS`Jh3D]:`=g:j13mJ?^Z\XG"
    A$ = A$ + "]g4CY0OSGPhC>[m5eH4Pk0HK?4gI:BO0TF[RJ2=`kU\kfYOjmdM<OID_Zd=7"
    A$ = A$ + ";V[3J74[VWW[Snkkg_mK_J?O;j5R5AN4Cc4V#fe0blZ`o7`O7bDNe_jL]N[2"
    A$ = A$ + "Im:HX\g9:`?i5#_PeYEdccb1k7E0omjM=GaE8Sm>]F5e1=nm0OMjYca>WmVl"
    A$ = A$ + "D[:4e[`N<Ali:`Gi=#cPkjT?kWEVaA`LWK#?^I0IncG>K;gO8>]:jSE<gFlg"
    A$ = A$ + "1ngE<V;h2bmjG8de[LJFBk[l>4kbN7NGgULS[L`MLGX[MAO=HdSFNKYkngRj"
    A$ = A$ + "FWn]7[3]TdO[M[3dWm;VbXN5\;d?PDP?c[P6a_igDlicZoPk2f#CgjB_dhXa"
    A$ = A$ + "?Ni]M#jlZC_<n^_k4oKXICK23K;KY#G7HX[GQmIjW`98^Ock#\<m?T]^Ei7_"
    A$ = A$ + "e<nROAm<NKcK>>Ji;GNKBS`I<8mjoh^m2oIPN6KJTmjH>V2OMPU1mZBij21f"
    A$ = A$ + "_8b3;iiHh3GnaOm7TCXRn\BaoN;LQbo\gO`gQVnlel3oQ9eJGPWGmdhdZlIO"
    A$ = A$ + ">^\[GiHJT;C5h3c5X_7cnQbidXFLQhS5kDHmT7bQ47mYodaAO[_EB^K8?cTo"
    A$ = A$ + "6V[1SQOl7?i?o2_`TO_Gb;9ie9mWm>U5\PjjDT[:bO6mJ_Bfm7YC[b=gZRD["
    A$ = A$ + "Z<XGQmJHlmG:`GjMhkSILmCl4igm^SQO8M^ZXN9X76cjj3\N]G[HoZ=_fdc]"
    A$ = A$ + ":?jo2UMm:WVUdnb2AgRiVXQm?dXijDTCMl?hW2XkOifRJ??iE?I_:ZG=J^S^"
    A$ = A$ + "UfWVgJF\>:fO9jC^J>7>E1Vglb^n?ZoCl;hO`?EBbEUSY=mY_SjG`M61=mZN"
    A$ = A$ + "CcRJ0AJoJQXKA>WinaQa7B?^]ZaaN\=GW2oA9DW2B_6#jm2iE_RYZYGEjGGX"
    A$ = A$ + "3G^ZYg^m:OUb?6^:AJ]:ZEQKh6Bl3h?:AiZZIjE^J]ZXZ=db\NU3\U3Z<d?B"
    A$ = A$ + "K7X^78GlKI;9SQ6b#TOlLI4\[Oe_JMM:ZC1^_Ua^COf8P?_b]267idZBOGg8"
    A$ = A$ + "UFEID_ZB=?;PeO`nUcMY2eT8mokCmDUO<NIP?aW8klYHOoXVh`>G1jCn=k\<"
    A$ = A$ + ";YFEID_bYI]7Wci8^o^#Q_SWiEbMXj?mW:kIW^<`WlCV]O:`MF3fEbWN5X?C"
    A$ = A$ + "?ne^fLo^S`d[bZIEfSYJ:lMnd3TY><Im:GceTLVKUNlO8PCOb=O:Z?1\OH7a"
    A$ = A$ + "NFAj]dYG38WUI9c_NEB_JADCh:`oGh`H:Z=nWiIB6[aiGSi7XicfSTLJWFF]"
    A$ = A$ + ":bS>f;\KHo`>Rm\2XEUF_BC[3\\[Gid\Z4eh#[`=O;b;?kS5eY6S5GcJTGW#"
    A$ = A$ + ";JD^mjSiBMMGGbJZaNQM[TWSZnC[RJG`ggUlVNEkYI=6>cY:8F#<HN1<fSc7"
    A$ = A$ + "2g1;LFAFojSS^T;9>jMm^TGkX89miAfEGjD3EH?hN:m1O`Tml[R\f_d<Z[jZ"
    A$ = A$ + "bdKSedj0[:jE>=[5GEGKHSh>K?TcH>g8<6mj_nTko>VSa7l3:_VR?QWW6c;5"
    A$ = A$ + "?Wllbc=?oonOORmPiBEadXLT>WE\6`R^_;HjEIe[Zl[;\ALihjIOfhX7jQB>"
    A$ = A$ + "?e\FXJO7KOSWO5_2ieJj5njOmMNNDlLac7?Wllbc=?o\gZEDM:7YcI5JEJKM"
    A$ = A$ + "PE9m:7h3V;m[454OX:Le`5WW4b]<SSY>S^aK<inVRm9SakGl577=SI8_FT3f"
    A$ = A$ + "o0Z_odjBYW35O^i><SW3j]WlLaJRMmSh:^65<eJS;J<WEJLNEEAm:KNF30>M"
    A$ = A$ + ";Z5b]]]hX7mACj=EL_CA>0AkRJkVjA2=QcmLSSFdR:>m9^7bhLNONWg>[AiZ"
    A$ = A$ + "C:dXhc9[eS?gTkLN>HND^JlddYf1=Nf0ejlZZRjE>=;bShDn8O4aSE22Hl=i"
    A$ = A$ + "kRL#oD?EbHokonCda8_m\f:fG=j?MToNVG3c53m\VYYd=`k5PNTKNCl_WKol"
    A$ = A$ + "hc1md#nLai>V?WX=EBjo`i1kakkmU9WEL?WZal[Gee[LJFmE3lUYk;jR4gl`"
    A$ = A$ + "8_?X;#^Z9WeDCUdk4i^0QjFj>_chXKkfBZQ2jQ1<W7dGhNRQeY1Xi`oUo<Po"
    A$ = A$ + "NnmhgWG7_NjCklnaiPQgOZaLG>biOOnLHcKZ]IlWiI^3]:Z7DG_\BkJEEEm:"
    A$ = A$ + "WV5iEL2\V65435dhd_Hn<T3OdAHmGXY#o0VJIbYUA>T#gi1NPTi3iPoolWcO"
    A$ = A$ + "?oNlkc[SG?iLRg?bk4_oVnDGch>Wc9Hf;#C_JWe\HmjVVUAEPdJEJXg`HjEM"
    A$ = A$ + "WVUEKF6UM6oWoc7dc[bd[bZIai?ObOh?\haE66nVdgY=QjlZ<mZ\PocVWUAI"
    A$ = A$ + "S1m\?KYHNEVNEFLk?2e;g<>RS#lh<3SNUmi#>4Eeke=m:o[IQodVWUAIPdc["
    A$ = A$ + "2]:G][KjEboLhKM;d\X^DT>Vc`XC9MnZ#[Rhh#=OEVNEk[IaL]61eZX2R1=<"
    A$ = A$ + "J76nVfDVe0Zen2SYGUOJF<?JYS3=<68JLO09^]<YEIjE]WV5cUNF=J[<<D4k"
    A$ = A$ + "G=]YdJEL7<GFF3XYGeihZgQAaiKC1aW66`8GojgYk72=goZ<mZR3gj3WU]n#"
    A$ = A$ + "35#EHmOVNE_[IA]`cl]U>NeXjBSJEUeeoIjEnAc2XW1=KK^F658CKfcNWZ1d"
    A$ = A$ + "#^Ne=mZRCcb]gQSTNeT2RU=:g\;KH3IbE5cYZ<D3XVNEaZKag_aL]6j3o`R7"
    A$ = A$ + "CKDnPhZdjD<_:RgZ2[ocd[b7=;V[5OOgTinlC1ah6U3fcSkhbT[:fo?Rc:ki"
    A$ = A$ + "Egd[:HM[E^BaSe=2GB[AU>WjEEM:C_:Od[LkO8WI[Y\lU;NL_AhaTOc_i<JE"
    A$ = A$ + "\n?RW8^Z:U[:C_ZHe]LceJo[moFja06:W]_mhY^h5W9?E<W:CW:;I\IVNUG9"
    A$ = A$ + "mL]VTMoQId2J\W:`iDVhVZnjoJT<f=C_bkhnNAgN8>mJ<XWki4OlQQl#L`na"
    A$ = A$ + "l_KX?EEEgk_fQ<f#C_:g8mJ4YVIHONfS?f7Cla<65?kn7mS^CiWbE;EV>E[9"
    A$ = A$ + "S]dd[bELmj1V[5aWXI9mH7SRW6gk?R3H>E^jDgd[jObH;=mZ23gL]875T[RA"
    A$ = A$ + "OiG^hSS<b?`oJiXZgad[TQ6GO8a^\^0Y7GIhOJLnD^nnIEXO:hK<m:i9mj4i"
    A$ = A$ + "nFRhiMk<>3a7WIdmPo[IcWbMOJIiYZk`d[d1Yg7ARY9fNB__gWhSk<j<6nVg"
    A$ = A$ + "LldVi<kgiCIiXZg`d[d7^iKAl=JGT?fnF[hfg^hS7=J2el;=^V?KnDi3VNU>"
    A$ = A$ + "aYIAn=H_SHo4AcJo]n4XZHJcI>kT>U[_DU>oDVFUO`d[d?YG[8S1H\0ciJo["
    A$ = A$ + "]^3Y7_FeHdGiE6?=nNS6dX`OhdX\elUOHjEQ3^iLaIlY_NKJ]eK`HUYL47Qh"
    A$ = A$ + "SS[2PM^Im=1l3h?`_hFgWYEU?HjEQ9=CkRa>XO]G_egZhS];3PM\IeRP[g^P"
    A$ = A$ + "MWekIiVZh`d[2GLO?^;gl^J?eYKm?ljNMR?V?41kFcbO^CW2kLjLXKJE57VN"
    A$ = A$ + "EiPdJG^J#]Am;bkb^MjW^hj1J2\7=Z=UFObE3jF^ce1VNEiT6e_Lme6giFTe"
    A$ = A$ + "e`HB6Kbi_MHobOYhJ7i9llehi<^amd3]9GoA0kEjejIJDj0C_ZLSK\Vk\ohj"
    A$ = A$ + "[=^JBe=g;WfenN`7Ll#OT7ALm5O0?7lldOJD^i#Q65f3dXJ<WiV>U^`d[ZNT"
    A$ = A$ + "N^G^c1T[fDKfl_Bc4?UCY_k0MYeRPan=oVakiZFECeSJV^Tk^JPWCGM7HcO:"
    A$ = A$ + "\`d[Zfdhj6KVf5Sek?m;7CJe[>NDGmE7?d7h1lkLTZmn=n?oW__goFY;e<m9"
    A$ = A$ + "gLWLi8gYAI[c;Lad[<J6=>7\dJI\NB6oSV6j1\^BW^FJ]]6YMdKJDg9=^J9`"
    A$ = A$ + "=G9GnVhc1hbkDcdT<MYb1VNUa0AjalYe_LJHXAhf?BG>m1dBLjI>==7>MWdT"
    A$ = A$ + "n_gmJL_7^eaak?jBl_GJ]YVY?IJDU?<m:3OASJ5=CW[CXoN_Tnid#><m:33S"
    A$ = A$ + "#1C_b``8D`d[<<<25<m:33S#1C_b``8D`7jE66665>VNUQQAXPYGIHH4:d9j"
    A$ = A$ + "E6666666666666666666666666666666666666m;oo`>%%L2"
    btemp$ = ""
    FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
        IF INSTR(1, B$, "%") THEN
            FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
                IF F$ <> "%" THEN C$ = C$ + F$
            NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
            IF MID$(B$, j, 1) = "#" THEN
        MID$(B$, j) = "@": END IF: NEXT
        FOR t% = LEN(B$) TO 1 STEP -1
            B& = B& * 64 + ASC(MID$(B$, t%)) - 48
            NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
            X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
    NEXT: btemp$ = btemp$ + X$: NEXT
    btemp$ = _INFLATE$(btemp$)
    _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
    BASIMAGE6& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: johnno56 on August 20, 2020, 08:59:18 pm

Cool game. Pro: No dying! Con: Now I have to think!

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: bplus on August 21, 2020, 01:24:31 pm

;-)) Yeah my brother put some Christmas money in a 3D maze cube that you have to solve for the metal ball to open the latch. That one took a little longer to open than your average Christmas present.

Well I gotta see how you handle the tilting!

No tilting, just plain old maze game where you can't stop the ball from going in one direction until it hits a wall, no fun!

I think it could be coded better:

Update: never mind, that's the way it's supposed to work, the ball rolls until it hits a wall. Level 2 I didn't see the wall it could approach from but now I see it. OK

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: FellippeHeitor on August 21, 2020, 03:19:05 pm

Gorgeous game, Dav. - Frustrating at times, especially when I manage to get stuck in a repeating-never-ending path, but some games are just there to show how inept I am with them.

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: bplus on August 21, 2020, 03:24:06 pm

@FellippeHeitor

Are you talking about Level 2? :-))

This sucker takes a different kind of pathfinder! ;-)

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: FellippeHeitor on August 21, 2020, 03:28:01 pm

I got stuck at level 5 first, then after quitting I got to it again and managed to get the star. Then I halted playing, got back here to post and then got back to work :-D

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: bplus on August 21, 2020, 03:35:57 pm

@Dav

Do you build these puzzles by hand or in code?

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: johnno56 on August 21, 2020, 09:47:28 pm

I finally got to level 5... Wrong first move... Endless path... My brain hurts...

Is it possible to have a 'restart level' instead of having to go back to the start? Can you imagine getting to, say level 20+, then getting caught in an 'endless path'?

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: bplus on August 21, 2020, 09:55:19 pm

Quote from: johnno56 on August 21, 2020, 09:47:28 pm

I finally got to level 5... Wrong first move... Endless path... My brain hurts...

Is it possible to have a 'restart level' instead of having to go back to the start? Can you imagine getting to, say level 20+, then getting caught in an 'endless path'?

Do you know about the space bar? And you don't have to worry about level 20+, yet ;-))

Man I only got past level 2 when I decided to work on a Pathfinder. :)

Update: there is also + - for level setting. Made it to 8, 9 I'm wondering if there is a soln.
Update: OK 9 done 3 times in row, go up on first 2 decision points at the T intersections.

I literally had a break through on 10:

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: Unseen Machine on August 22, 2020, 06:04:46 am

Hey dav (and everyone else)

I love these type of games, simplicity in design often leads to great fun and infuriation for the end user! I made one like this myself a long time ago and ended up making a GL version which you can find here.

https://www.qb64.org/forum/index.php?topic=2561.msg117920#msg117920 (https://www.qb64.org/forum/index.php?topic=2561.msg117920#msg117920)

Great work though, i look forward to seeing more like this.

Unseen

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: bplus on August 22, 2020, 12:52:51 pm

Quote from: Unseen Machine on August 22, 2020, 06:04:46 am

Hey dav (and everyone else)

I love these type of games, simplicity in design often leads to great fun and infuriation for the end user! I made one like this myself a long time ago and ended up making a GL version which you can find here.

https://www.qb64.org/forum/index.php?topic=2561.msg117920#msg117920 (https://www.qb64.org/forum/index.php?topic=2561.msg117920#msg117920)

Great work though, i look forward to seeing more like this.

Unseen

Here is link to more of Dav's games:
https://www.qb64.org/forum/index.php?topic=2434.msg116509#msg116509

Collect them all! :)

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: Dav on August 22, 2020, 05:48:38 pm

Wow, I didn't expect to come back to all these replies! Thanks for trying out the game, everyone. It was a fun game to make. Made it first in smartbasic, just wanted to port it to QB64. I guess calling it a tilt game wasn't a good idea, since it doesn't tilt at all. Sorry for that confusion.

@johnno56 , @FellippeHeitor , thanks guys for your encouragement!

@bplus - If I remember right, some levels are enhanced versions of levels I found elsewhere, and some I just worked out on paper first. I have just made some new levels using some graph paper, so I guess I will be updating this game post soon. I may do levels where you have to collect several stars. (And thanks for making a link to all my puzzle games on that other thread.)

@Unseen Machine . Thanks! I will download and try your game.

Going to make a level editor next.

- Dav

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: bplus on August 22, 2020, 11:21:15 pm

I started to simplify this code for a pathfinder AI and so far have a semi-3D version:

Code: QB64: [Select]

_TITLE "Tilt Maze Pathfinder" ' b+ started 2020-08-22
' 2020-08-22 I am starting with mods of Dav's version of tilt maze as it was frustration
' with the his 2nd level Puzzle that inspired me to search for solutions with AI.
' Thanks for that Dav! ;-))
' 2020-08-22 so far just a semi-3D version.
 
'============
'MAZEBALL.BAS   https://www.qb64.org/forum/index.php?topic=2936.msg121950#msg121950
'============
'Clone of the Tilt Maze Puzzle games.
'QB64 code by Dav, AUG/2020
 
'The goal is to move the ball to the star.
'Use arrows to move the ball.  Walls will stop
'the ball moving so navigate around them.
'There are 10 levels to complete and they get
'harder as you go.  To help you (cheat) you can
'jump to other levels by using the +/- keys.
'Press SPACE to reset level and start over.
 
'If you beat the last level, you will get a
'smiley face and hear a happy song.
 
'For those who get stuck, solutions are below.
 
'=======
'CREDITS:
'=======
 
'I didn't come up with this game - It's been around for a while.
'It's mostly a clone of a cool game posted on THE QBASIC FORUM here:
'https://www.tapatalk.com/groups/qbasic/tilting-maz-game-t39133.html
'Also some levels derived from the original tilt maze game here:
'https://www.mathsisfun.com/games/tilt-maze.html
'There's other Tilt Maze games that influenced me.
 
'My thanks to those original game authors for the tilt maze fun.
'Please accept this QB64 version as a compliment from a fan.
 
'=================================================================
 
'Solutions below, for those who get stuck...
 
'#1)  RDLURDR
'#2)  LURULDRUL
'#3)  DRULDRDLULUR
'#4)  DRURULURULDR
'#5)  URDLULDLURDLU
'#6)  RDRULDRULDRD
'#7)  DRULDLURDRULDRD
'#8)  RDLDLULDLURURULDRD
'#9)  LURULULDLDRDRURULURDLDR
'#10) D R U L D L D R U R U L U L U R D L U R D R U L D R U R D
 
 
DIM SHARED bs, grid 'box or cell size, cells per side of square grid
DIM SHARED bx, by, sx, sy 'ball and star locations
REDIM SHARED pdata$(grid, grid)
puzzle = 1 'start on puzzle 1
puzzlemax = 10 'there are 10 puzzles total
 
SCREEN _NEWIMAGE(640, 640, 32)
_DELAY .25
_SCREENMOVE _MIDDLE
 
'======
restart:
_TITLE "Level: " + STR$(puzzle) + " of" + STR$(puzzlemax)
setLevel puzzle
update
DO
    CLS
    'get user keypress...
    k$ = INKEY$
    moved = 0: done = 0
 
    'if right arrow....
    IF k$ = CHR$(0) + CHR$(77) THEN 'right
        WHILE pdata$(bx + 1, by) = " " OR pdata$(bx + 1, by) = "y"
            bx = bx + 1: moved = 1
            IF bx = sx AND by = sy THEN done = 1: EXIT WHILE
        WEND
    END IF
    'if left arrow...
    IF k$ = CHR$(0) + CHR$(75) THEN
        WHILE pdata$(bx - 1, by) = " " OR pdata$(bx - 1, by) = "y"
            bx = bx - 1: moved = 1
            IF bx = sx AND by = sy THEN done = 1: EXIT WHILE
        WEND
    END IF
 
    'down arrow
    IF k$ = CHR$(0) + CHR$(80) THEN
        WHILE pdata$(bx, by + 1) = " " OR pdata$(bx, by + 1) = "y"
            by = by + 1: moved = 1
            IF bx = sx AND by = sy THEN done = 1: EXIT WHILE
        WEND
    END IF
 
    'if up arrow
    IF k$ = CHR$(0) + CHR$(72) THEN
        cx = ballx / bs + 1: cy = bally / bs + 1 'current x,y
        WHILE pdata$(bx, by - 1) = " " OR pdata$(bx, by - 1) = "y"
            by = by - 1: moved = 1
            IF bx = sx AND by = sy THEN done = 1: EXIT WHILE
        WEND
    END IF
 
    IF k$ = CHR$(32) THEN GOTO restart
 
    IF k$ = "+" THEN
        puzzle = puzzle + 1: IF puzzle > puzzlemax THEN puzzle = 1
        GOTO restart
    END IF
 
    IF k$ = "-" THEN
        puzzle = puzzle - 1: IF puzzle < 1 THEN puzzle = puzzlemax
        GOTO restart
    END IF
    update
    _DISPLAY
    _LIMIT 60
    IF done = 1 THEN
        SOUND 7000, .1: _DELAY 2
        puzzle = puzzle + 1
        IF puzzle > puzzlemax THEN puzzle = 1
        GOTO restart
    END IF
LOOP
 
SUB update
    FOR y = grid - 1 TO 0 STEP -1
        FOR x = grid - 1 TO 0 STEP -1
            IF pdata$(x, y) = "x" THEN
                FOR p = 0 TO 20 STEP .5
                    LINE (x * bs - 20 + p, y * bs - 20 + p)-STEP(bs - 1, bs - 1), _RGB32(55 + p * 5), BF
                NEXT
                'LINE (x * bs + p, y * bs + p)-STEP(bs - 1, bs - 1), &HFF999999, B
            ELSEIF x = bx AND y = by THEN
                'LINE (x * bs, y * bs)-STEP(bs - 1, bs - 1), &HFF000000, BF
                FOR R! = .47 * bs TO 0 STEP -1
                    fcirc x * bs + .5 * bs - 7, y * bs + .5 * bs - 7, R!, _RGB32(220 - 220 * R! / (.45 * bs) + 35)
                NEXT
            ELSEIF x = sx AND y = sy THEN
                'LINE (x * bs, y * bs)-STEP(bs - 1, bs - 1), &HFF000000, BF
                FOR p = 1 TO 0 STEP -.0125
                    star x * bs + .5 * bs - 5, y * bs + .5 * bs - 5, .16 * bs * p, .46 * bs * p, 5, _PI / 10, _RGB32(255, (1 - p) * 150 + 105, 0)
                NEXT
            END IF
        NEXT
    NEXT
END SUB
 
SUB setLevel (puzzle) 'x is the wall, b is ball. y is the star
    IF puzzle = 1 THEN
        puz$ = "": grid = 8
        puz$ = puz$ + "xxxxxxxx"
        puz$ = puz$ + "x   xb x"
        puz$ = puz$ + "x   yx x"
        puz$ = puz$ + "x  xx  x"
        puz$ = puz$ + "x      x"
        puz$ = puz$ + "x      x"
        puz$ = puz$ + "x      x"
        puz$ = puz$ + "xxxxxxxx"
    ELSEIF puzzle = 2 THEN
        puz$ = "": grid = 10
        puz$ = puz$ + "xxxxxxxxxx"
        puz$ = puz$ + "xx  x    x"
        puz$ = puz$ + "x   xx   x"
        puz$ = puz$ + "x   y    x"
        puz$ = puz$ + "x     xx x"
        puz$ = puz$ + "x      b x"
        puz$ = puz$ + "x        x"
        puz$ = puz$ + "x     xx x"
        puz$ = puz$ + "x x      x"
        puz$ = puz$ + "xxxxxxxxxx"
    ELSEIF puzzle = 3 THEN
        puz$ = "": grid = 11
        puz$ = puz$ + "xxxxxxxxxxx"
        puz$ = puz$ + "xbx  x    x"
        puz$ = puz$ + "x    x    x"
        puz$ = puz$ + "xx   x    x"
        puz$ = puz$ + "x    y  x x"
        puz$ = puz$ + "x    x    x"
        puz$ = puz$ + "x         x"
        puz$ = puz$ + "x x     x x"
        puz$ = puz$ + "x  x      x"
        puz$ = puz$ + "x   x    xx"
        puz$ = puz$ + "xxxxxxxxxxx"
    ELSEIF puzzle = 4 THEN
        bs = INT(sw / 11) 'boxsize
        puz$ = "": grid = 11
        puz$ = puz$ + "xxxxxxxxxxx"
        puz$ = puz$ + "xbx   x   x"
        puz$ = puz$ + "x xx      x"
        puz$ = puz$ + "x         x"
        puz$ = puz$ + "x       xxx"
        puz$ = puz$ + "x x       x"
        puz$ = puz$ + "x x  xx   x"
        puz$ = puz$ + "x         x"
        puz$ = puz$ + "x xx  x xxx"
        puz$ = puz$ + "x     x  yx"
        puz$ = puz$ + "xxxxxxxxxxx"
    ELSEIF puzzle = 5 THEN
        puz$ = "": grid = 12
        puz$ = puz$ + "xxxxxxxxxxxx"
        puz$ = puz$ + "x x      x x"
        puz$ = puz$ + "x x xxx  x x"
        puz$ = puz$ + "x          x"
        puz$ = puz$ + "x x x x xx x"
        puz$ = puz$ + "x x xbx    x"
        puz$ = puz$ + "x   xxxxx xx"
        puz$ = puz$ + "x     xyx  x"
        puz$ = puz$ + "xx         x"
        puz$ = puz$ + "x         xx"
        puz$ = puz$ + "x   x x    x"
        puz$ = puz$ + "xxxxxxxxxxxx"
    ELSEIF puzzle = 6 THEN
        puz$ = "": grid = 13
        puz$ = puz$ + "xxxxxxxxxxxxx"
        puz$ = puz$ + "x     x     x"
        puz$ = puz$ + "x   xxx   xxx"
        puz$ = puz$ + "x           x"
        puz$ = puz$ + "xxx xxx   x x"
        puz$ = puz$ + "x         xyx"
        puz$ = puz$ + "xb    x   xxx"
        puz$ = puz$ + "x x   x     x"
        puz$ = puz$ + "xxx   xx    x"
        puz$ = puz$ + "x           x"
        puz$ = puz$ + "x   x   x x x"
        puz$ = puz$ + "x   x   x x x"
        puz$ = puz$ + "xxxxxxxxxxxxx"
    ELSEIF puzzle = 7 THEN
        puz$ = "": grid = 15
        puz$ = puz$ + "xxxxxxxxxxxxxxx"
        puz$ = puz$ + "xbx   x     x x"
        puz$ = puz$ + "x xx          x"
        puz$ = puz$ + "x         x   x"
        puz$ = puz$ + "xx       xx   x"
        puz$ = puz$ + "x             x"
        puz$ = puz$ + "x xx       xx x"
        puz$ = puz$ + "x     x x     x"
        puz$ = puz$ + "xx            x"
        puz$ = puz$ + "x   x         x"
        puz$ = puz$ + "x   xx       xx"
        puz$ = puz$ + "x       x     x"
        puz$ = puz$ + "x      xxx    x"
        puz$ = puz$ + "x x         xyx"
        puz$ = puz$ + "xxxxxxxxxxxxxxx"
    ELSEIF puzzle = 8 THEN
        puz$ = "": grid = 15
        puz$ = puz$ + "xxxxxxxxxxxxxxx"
        puz$ = puz$ + "x x     x     x"
        puz$ = puz$ + "x    x       xx"
        puz$ = puz$ + "x        b    x"
        puz$ = puz$ + "x     x     x x"
        puz$ = puz$ + "x  x          x"
        puz$ = puz$ + "x       x x   x"
        puz$ = puz$ + "x      xx    xx"
        puz$ = puz$ + "x             x"
        puz$ = puz$ + "xx       x    x"
        puz$ = puz$ + "x   x x       x"
        puz$ = puz$ + "x   xyx       x"
        puz$ = puz$ + "x   xxx       x"
        puz$ = puz$ + "x       x   x x"
        puz$ = puz$ + "xxxxxxxxxxxxxxx"
    ELSEIF puzzle = 9 THEN
        puz$ = "": grid = 19
        puz$ = puz$ + "xxxxxxxxxxxxxxxxxxx"
        puz$ = puz$ + "x x   x       x   x"
        puz$ = puz$ + "x x   xxx   x x xxx"
        puz$ = puz$ + "x           x     x"
        puz$ = puz$ + "x xxx xxxxx xxx x x"
        puz$ = puz$ + "x   x   x       x x"
        puz$ = puz$ + "xxx x   x   x   x x"
        puz$ = puz$ + "x           x     x"
        puz$ = puz$ + "x   xxx x xxx xxx x"
        puz$ = puz$ + "x     x x         x"
        puz$ = puz$ + "xxx   x xxx     x x"
        puz$ = puz$ + "x       x       x x"
        puz$ = puz$ + "x x x   x xxx   xxx"
        puz$ = puz$ + "x x x             x"
        puz$ = puz$ + "x x x xxx x   x   x"
        puz$ = puz$ + "x         x   x   x"
        puz$ = puz$ + "x xxx     x x xxx x"
        puz$ = puz$ + "x  bx       x  yx x"
        puz$ = puz$ + "xxxxxxxxxxxxxxxxxxx"
    ELSEIF puzzle = 10 THEN
        puz$ = "": grid = 21
        puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxxx"
        puz$ = puz$ + "xbx x     x   x     x"
        puz$ = puz$ + "x x x     x   xxx   x"
        puz$ = puz$ + "x x                 x"
        puz$ = puz$ + "x x xxx x x     x   x"
        puz$ = puz$ + "x       x x     x   x"
        puz$ = puz$ + "x   x   x x     x xxx"
        puz$ = puz$ + "x   x               x"
        puz$ = puz$ + "x   x     x xxx x   x"
        puz$ = puz$ + "x         x     x   x"
        puz$ = puz$ + "xxx xxx xxxxx xxx xxx"
        puz$ = puz$ + "x         x         x"
        puz$ = puz$ + "x   xxx   x x xxx x x"
        puz$ = puz$ + "x           x     x x"
        puz$ = puz$ + "xxx xxx   x xxx   x x"
        puz$ = puz$ + "x   x     x x     x x"
        puz$ = puz$ + "x x x xxx x x   x x x"
        puz$ = puz$ + "x x             x   x"
        puz$ = puz$ + "x x     x x x   x x x"
        puz$ = puz$ + "x       x x x     xyx"
        puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxxx"
    END IF
    REDIM pdata$(grid - 1, grid - 1) 'from text to 2d array
    m = 1
    FOR y = 0 TO grid - 1
        FOR x = 0 TO grid - 1
            pdata$(x, y) = MID$(puz$, m, 1)
            IF MID$(puz$, m, 1) = "y" THEN sx = x: sy = y
            IF MID$(puz$, m, 1) = "b" THEN bx = x: by = y
            m = m + 1
        NEXT
    NEXT
    bs = _WIDTH \ grid
END SUB
 
SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
    DIM Radius AS INTEGER, RadiusError AS INTEGER
    DIM X AS INTEGER, Y AS INTEGER
    Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
    IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
    LINE (CX - X, CY)-(CX + X, CY), C, BF
    WHILE X > Y
        RadiusError = RadiusError + Y * 2 + 1
        IF RadiusError >= 0 THEN
            IF X <> Y + 1 THEN
                LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
                LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
            END IF
            X = X - 1
            RadiusError = RadiusError - X * 2
        END IF
        Y = Y + 1
        LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
        LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
    WEND
END SUB
 
SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
    DIM D AS LONG
    STATIC a&
    D = _DEST
    IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
    _DEST a&
    _DONTBLEND a& '  '<<<< new 2019-12-16 fix
    PSET (0, 0), K
    _BLEND a& '<<<< new 2019-12-16 fix
    _DEST D
    _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
END SUB
 
SUB star (x, y, rInner, rOuter, nPoints, angleOffset, K AS _UNSIGNED LONG)
    ' x, y are same as for circle,
    ' rInner is center circle radius
    ' rOuter is the outer most point of star
    ' nPoints is the number of points,
    ' angleOffset = angle offset IN DEGREES, it will be converted to radians in sub
    ' this is to allow us to spin the polygon of n sides
 
    pAngle = _PI(2) / nPoints: radAngleOffset = angleOffset
    x1 = x + rInner * COS(radAngleOffset)
    y1 = y + rInner * SIN(radAngleOffset)
    FOR i = 0 TO nPoints - 1
        x2 = x + rOuter * COS(i * pAngle + radAngleOffset + .5 * pAngle)
        y2 = y + rOuter * SIN(i * pAngle + radAngleOffset + .5 * pAngle)
        x3 = x + rInner * COS((i + 1) * pAngle + radAngleOffset)
        y3 = y + rInner * SIN((i + 1) * pAngle + radAngleOffset)
        ftri x1, y1, x2, y2, x3, y3, K
        'triangles leaked
        LINE (x1, y1)-(x2, y2), K
        LINE (x2, y2)-(x3, y3), K
        LINE (x3, y3)-(x1, y1), K
        x1 = x3: y1 = y3
    NEXT
    fcirc x, y, rInner, K
END SUB
 
 

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: Dav on August 22, 2020, 11:49:16 pm

Hey, I like it, @bplus! Looks cool, and nice and tidy code! Pathfinding algos are beyond me right now, but I have been wanting to understand them for another puzzle I'm trying to clone.

I was just about to post a small mod of mine which grows and fades the star out when reaching it.

EDIT: Updated code again - fixed a bug that was messing up the ball. Added RotoZoom method found in the wiki to animate the star when reaching it.

- Dav

Code: QB64: [Select]

'============
'MAZEBALL.BAS v1.1
'============
'Clone of the Tilt Maze Puzzle games.
'QB64 code by Dav, AUG/2020
 
'New for v1.1: * Fixed bug where ball gets messed up,
'                and runs off screen (bad math calcs)
'              * Added winning star animation & fade out.
 
'Follow this programs development here:
'https://www.qb64.org/forum/index.php?topic=2936.0
 
'=====
'ABOUT:
'=====
 
'The goal is to move the ball to the star.
'Use arrows to move the ball.  Walls will stop
'the ball moving so navigate around them.
'There are 10 levels to complete and they get
'harder as you go.  To help you (cheat) you can
'jump to other levels by using the +/- keys.
'Press SPACE to reset level and start over.
 
'If you beat the last level, you will get a
'smiley face and hear a happy song.
 
'For those who get stuck, solutions are below.
 
'=======
'CREDITS:
'=======
 
'I didn't come up with this game - It's been around for a while.
'It's mostly a clone of a cool game posted on THE QBASIC FORUM here:
'https://www.tapatalk.com/groups/qbasic/tilting-maz-game-t39133.html
'Also some levels derived from the original tilt maze game here:
'https://www.mathsisfun.com/games/tilt-maze.html
'There's other Tilt Maze games that influenced me.
 
'My thanks to those original game authors for the tilt maze fun.
'Please accept this QB64 version as a compliment from a fan.
 
'Used the RotoZoom program from the QB64.org wiki under _MAPTRIANGLE
'which was written by Galleon, the creator of QB64.  Thanks!
'=================================================================
 
'Solutions below, for those who get stuck...
 
'#1)  LURDR
'#2)  LURULDRUL
'#3)  DRULDRDLULUR
'#4)  DRURULURULDR
'#5)  URDLULDLURDLU
'#6)  RDRULDRULDRD
'#7)  DRULDLURDRULDRD
'#8)  RDLDLULDLURURULDRD
'#9)  LURULULDLDRDRURULURDLDR
'#10) DRULDLDRURULULURDLURDRULDRURD
 
DEFINT A-Z
 
puzzle = 1 'start on puzzle 1
puzzlemax = 10 'there are 10 puzzles total
 
SCREEN _NEWIMAGE(640, 640, 32): _SCREENMOVE _MIDDLE
DO UNTIL _SCREENEXISTS: LOOP
 
'load images...
ball& = BASIMAGE1&
blank& = BASIMAGE2&
pass& = BASIMAGE3&
star& = BASIMAGE4&
wall& = BASIMAGE5&
face& = BASIMAGE6&
 
_ICON ball&
 
 
'======
restart:
'======
 
_TITLE "Level: " + STR$(puzzle) + " of" + STR$(puzzlemax)
 
GOSUB SetLevel
 
'draw puzzle level
CLS , _RGB(51, 51, 51)
REDIM SHARED pdata$(grid, grid)
bs = INT(_WIDTH / grid)
m = 1
FOR x = 0 TO grid - 1
    FOR y = 0 TO grid - 1
        a$ = MID$(puz$, m, 1)
        pdata$(x + 1, y + 1) = a$
        IF a$ = "x" THEN _PUTIMAGE (y * bs, x * bs)-(y * bs + bs, x * bs + bs), wall&
        IF a$ = "b" THEN
            _PUTIMAGE (y * bs + 1, x * bs + 1)-(y * bs + bs - 1, x * bs + bs - 1), ball&
            ballx = y * bs: bally = x * bs
        END IF
        IF a$ = "y" THEN _PUTIMAGE (y * bs + 1, x * bs + 1)-(y * bs + bs - 1, x * bs + bs - 1), star&
        m = m + 1
    NEXT
NEXT
 
_DISPLAY
 
 
DO
    'get user keypress...
    DO: k$ = INKEY$: _AUTODISPLAY: LOOP UNTIL k$ <> ""
 
    'if right arrow....
    IF k$ = CHR$(0) + CHR$(77) THEN
 
        'current ball location in x,y
        cx = ballx / bs + 1: cy = bally / bs + 1
 
        'Move ball right...
        FOR x = cx + 1 TO grid + 1
 
            'move it smoothly, by pixels...
            FOR x2 = ((x - 1 - cx) * bs) TO ((x - cx) * bs) STEP 2
 
                'if come to star
                IF pdata$(cy, x) = "y" THEN
                    _PUTIMAGE (ballx + x2 + 1, bally + 1)-(ballx + x2 + bs - 1, bally + bs - 1), blank&
                    _PUTIMAGE (ballx + x2 + bs, bally)-(ballx + x2 + bs + bs, bally + bs), blank&
                    _PUTIMAGE (ballx + x2 + bs, bally)-(ballx + x2 + bs + bs, bally + bs), ball&
 
                    'fade out star
                    _DISPLAY
                    SOUND 7000, .1
                    temp& = _COPYIMAGE(_DISPLAY)
                    d = 100
                    FOR trp& = 255 TO 0 STEP -5
                        _PUTIMAGE (0, 0), temp&
                        RotoZoom ballx + x2 + bs + (bs / 2), bally + (bs / 2), star&, d / 100, angle
                        _DISPLAY: d = d + 10
                        angle = angle + 3: IF angle >= 360 THEN angle = angle - 360
                        _SETALPHA trp&, , star&
                        _DELAY .01
                    NEXT
 
                    GOSUB Done
                    GOTO restart
                END IF
 
                'if come to wall...
                IF pdata$(cy, x) = "x" THEN
                    ballx = ballx + x2
                    SOUND 500, .1: GOTO moved
                END IF
 
                'Draw ball image....
                _PUTIMAGE (ballx + x2 + 1, bally + 1)-(ballx + x2 + bs - 1, bally + bs - 1), blank&
                _PUTIMAGE (ballx + x2 + 1, bally + 1)-(ballx + x2 + bs - 1, bally + bs - 1), ball&
                _DISPLAY
                _LIMIT 500
            NEXT
 
        NEXT
    END IF
 
    'if left arrow...
    IF k$ = CHR$(0) + CHR$(75) THEN
        cx = ballx / bs + 1: cy = bally / bs + 1
        'Move ball left...
        FOR x = cx - 1 TO 0 STEP -1
            FOR x2 = (x + 1 - cx) * bs TO (x - cx) * bs STEP -2
                IF pdata$(cy, x) = "y" THEN
                    _PUTIMAGE (ballx + x2 + 1, bally + 1)-(ballx + x2 + bs - 1, bally + bs - 1), blank&
                    _PUTIMAGE (ballx + x2 - bs, bally)-(ballx + x2, bally + bs), blank&
                    _PUTIMAGE (ballx + x2 - bs, bally)-(ballx + x2, bally + bs), ball&
                    'fade out star
                    _DISPLAY
                    SOUND 7000, .1
                    temp& = _COPYIMAGE(_DISPLAY)
                    d = 100
                    FOR trp& = 255 TO 0 STEP -5
                        _PUTIMAGE (0, 0), temp&
                        RotoZoom ballx + x2 - (bs / 2), bally + (bs / 2), star&, d / 100, angle
                        _DISPLAY: d = d + 10
                        angle = angle + 3: IF angle >= 360 THEN angle = angle - 360
                        _SETALPHA trp&, , star&
                        _DELAY .01
                    NEXT
                    GOSUB Done
                    GOTO restart
                END IF
                IF pdata$(cy, x) = "x" THEN
                    ballx = ballx + x2
                    SOUND 500, .1
                    GOTO moved
                END IF
                _PUTIMAGE (ballx + x2 + 1, bally + 1)-(ballx + x2 + bs - 1, bally + bs - 1), blank&
                _PUTIMAGE (ballx + x2 + 1, bally + 1)-(ballx + x2 + bs - 1, bally + bs - 1), ball&
                _DISPLAY
                _LIMIT 500
            NEXT
        NEXT
    END IF
 
    'down arrow
    IF k$ = CHR$(0) + CHR$(80) THEN
        cx = ballx / bs + 1: cy = bally / bs + 1 'current x,y
        FOR y = cy + 1 TO grid + 1
            FOR y2 = (y - 1 - cy) * bs TO (y - cy) * bs STEP 2
                IF pdata$(y, cx) = "y" THEN
                    _PUTIMAGE (ballx + 1, bally + y2 + 1)-(ballx + bs - 1, bally + y2 + bs - 1), blank&
                    _PUTIMAGE (ballx, bally + y2 + bs)-(ballx + bs, bally + y2 + bs + bs), blank&
                    _PUTIMAGE (ballx, bally + y2 + bs)-(ballx + bs, bally + y2 + bs + bs), ball&
 
                    'fade out star
                    _DISPLAY
                    SOUND 7000, .1
                    temp& = _COPYIMAGE(_DISPLAY)
                    d = 100
                    FOR trp& = 255 TO 0 STEP -5
                        _PUTIMAGE (0, 0), temp&
                        RotoZoom ballx + (bs / 2), bally + y2 + bs + (bs / 2), star&, d / 100, angle
                        _DISPLAY: d = d + 10
                        angle = angle + 3: IF angle >= 360 THEN angle = angle - 360
                        _SETALPHA trp&, , star&
                        _DELAY .01
                    NEXT
 
                    GOSUB Done
                    GOTO restart
                END IF
                IF pdata$(y, cx) = "x" THEN
                    bally = bally + y2
                    SOUND 500, .1
                    GOTO moved
                END IF
                _PUTIMAGE (ballx + 1, bally + y2 + 1)-(ballx + bs - 1, bally + y2 + bs - 1), blank&
                _PUTIMAGE (ballx + 1, bally + y2 + 1)-(ballx + bs - 1, bally + y2 + bs - 1), ball&
                _DISPLAY
                _LIMIT 500
            NEXT
        NEXT
    END IF
 
    'if up arrow
    IF k$ = CHR$(0) + CHR$(72) THEN
        cx = ballx / bs + 1: cy = bally / bs + 1 'current x,y
        FOR y = cy - 1 TO 0 STEP -1
            FOR y2 = (y + 1 - cy) * bs TO (y - cy) * bs STEP -2
                IF pdata$(y, cx) = "y" THEN
                    _PUTIMAGE (ballx + 1, bally + y2 + 1)-(ballx + bs - 1, bally + y2 + bs - 1), blank&
                    _PUTIMAGE (ballx, bally + y2 - bs)-(ballx + bs, bally + y2), blank&
                    _PUTIMAGE (ballx, bally + y2 - bs)-(ballx + bs, bally + y2), ball&
                    'fade out star
                    _DISPLAY
                    SOUND 7000, .1
                    temp& = _COPYIMAGE(_DISPLAY)
                    d = 100
                    FOR trp& = 255 TO 0 STEP -5
                        _PUTIMAGE (0, 0), temp&
                        RotoZoom ballx + (bs / 2), bally + y2 - (bs / 2), star&, d / 100, angle
                        _DISPLAY: d = d + 10
                        angle = angle + 3: IF angle >= 360 THEN angle = angle - 360
                        _SETALPHA trp&, , star&
                        _DELAY .01
                    NEXT
 
                    GOSUB Done
                    GOTO restart
                END IF
                IF pdata$(y, cx) = "x" THEN
                    bally = bally + y2
                    SOUND 500, .1
                    GOTO moved
                END IF
                _PUTIMAGE (ballx + 1, bally + y2 + 1)-(ballx + bs - 1, bally + y2 + bs - 1), blank&
                _PUTIMAGE (ballx + 1, bally + y2 + 1)-(ballx + bs - 1, bally + y2 + bs - 1), ball&
                _DISPLAY
                _LIMIT 500
            NEXT
        NEXT
    END IF
 
    IF k$ = CHR$(32) THEN GOTO restart
 
    IF k$ = "+" THEN
        puzzle = puzzle + 1: IF puzzle > puzzlemax THEN puzzle = 1
        GOTO restart
    END IF
 
    IF k$ = "-" THEN
        puzzle = puzzle - 1: IF puzzle < 1 THEN puzzle = puzzlemax
        GOTO restart
    END IF
 
 
    moved:
 
    IF k$ <> "" THEN _KEYCLEAR
 
LOOP
 
END
 
 
'====
Done:
'====
_SETALPHA 255, , star& 'reset star&
_PUTIMAGE (160, 210), pass&: _DISPLAY
_DELAY 2
 
puzzle = puzzle + 1
 
'If that was last level...
IF puzzle > puzzlemax THEN
    'show smiley face
    _PUTIMAGE (100, 100)-(500, 500), face&: _DISPLAY
    'play happy music
    PLAY "o4l8gfedcal4gl8fgabo5co4gl4el8defedefgagabl4o5co4c"
    PLAY "o3l8co2l16gf#gl8g#gpbo3c"
    _DELAY 8
    puzzle = 1
END IF
 
RETURN
 
 
'=======
SetLevel:
'=======
 
'x is the wall, b is ball. y is the star
IF puzzle = 1 THEN
    puz$ = "": grid = 8
    puz$ = puz$ + "xxxxxxxx"
    puz$ = puz$ + "x   xb x"
    puz$ = puz$ + "x   yx x"
    puz$ = puz$ + "x  xx  x"
    puz$ = puz$ + "x      x"
    puz$ = puz$ + "x      x"
    puz$ = puz$ + "x      x"
    puz$ = puz$ + "xxxxxxxx"
END IF
 
IF puzzle = 2 THEN
    puz$ = "": grid = 10
    puz$ = puz$ + "xxxxxxxxxx"
    puz$ = puz$ + "xx  x    x"
    puz$ = puz$ + "x   xx   x"
    puz$ = puz$ + "x   y    x"
    puz$ = puz$ + "x     xx x"
    puz$ = puz$ + "x      b x"
    puz$ = puz$ + "x        x"
    puz$ = puz$ + "x     xx x"
    puz$ = puz$ + "x x      x"
    puz$ = puz$ + "xxxxxxxxxx"
END IF
 
IF puzzle = 3 THEN
    puz$ = "": grid = 11
    puz$ = puz$ + "xxxxxxxxxxx"
    puz$ = puz$ + "xbx  x    x"
    puz$ = puz$ + "x    x    x"
    puz$ = puz$ + "xx   x    x"
    puz$ = puz$ + "x    y  x x"
    puz$ = puz$ + "x    x    x"
    puz$ = puz$ + "x         x"
    puz$ = puz$ + "x x     x x"
    puz$ = puz$ + "x  x      x"
    puz$ = puz$ + "x   x    xx"
    puz$ = puz$ + "xxxxxxxxxxx"
END IF
 
IF puzzle = 4 THEN
    bs = INT(sw / 11) 'boxsize
    puz$ = "": grid = 11
    puz$ = puz$ + "xxxxxxxxxxx"
    puz$ = puz$ + "xbx   x   x"
    puz$ = puz$ + "x xx      x"
    puz$ = puz$ + "x         x"
    puz$ = puz$ + "x       xxx"
    puz$ = puz$ + "x x       x"
    puz$ = puz$ + "x x  xx   x"
    puz$ = puz$ + "x         x"
    puz$ = puz$ + "x xx  x xxx"
    puz$ = puz$ + "x     x  yx"
    puz$ = puz$ + "xxxxxxxxxxx"
END IF
 
IF puzzle = 5 THEN
    puz$ = "": grid = 12
    puz$ = puz$ + "xxxxxxxxxxxx"
    puz$ = puz$ + "x x      x x"
    puz$ = puz$ + "x x xxx  x x"
    puz$ = puz$ + "x          x"
    puz$ = puz$ + "x x x x xx x"
    puz$ = puz$ + "x x xbx    x"
    puz$ = puz$ + "x   xxxxx xx"
    puz$ = puz$ + "x     xyx  x"
    puz$ = puz$ + "xx         x"
    puz$ = puz$ + "x         xx"
    puz$ = puz$ + "x   x x    x"
    puz$ = puz$ + "xxxxxxxxxxxx"
END IF
 
IF puzzle = 6 THEN
    puz$ = "": grid = 13
    puz$ = puz$ + "xxxxxxxxxxxxx"
    puz$ = puz$ + "x     x     x"
    puz$ = puz$ + "x   xxx   xxx"
    puz$ = puz$ + "x           x"
    puz$ = puz$ + "xxx xxx   x x"
    puz$ = puz$ + "x         xyx"
    puz$ = puz$ + "xb    x   xxx"
    puz$ = puz$ + "x x   x     x"
    puz$ = puz$ + "xxx   xx    x"
    puz$ = puz$ + "x           x"
    puz$ = puz$ + "x   x   x x x"
    puz$ = puz$ + "x   x   x x x"
    puz$ = puz$ + "xxxxxxxxxxxxx"
END IF
 
IF puzzle = 7 THEN
    puz$ = "": grid = 15
    puz$ = puz$ + "xxxxxxxxxxxxxxx"
    puz$ = puz$ + "xbx   x     x x"
    puz$ = puz$ + "x xx          x"
    puz$ = puz$ + "x         x   x"
    puz$ = puz$ + "xx       xx   x"
    puz$ = puz$ + "x             x"
    puz$ = puz$ + "x xx       xx x"
    puz$ = puz$ + "x     x x     x"
    puz$ = puz$ + "xx            x"
    puz$ = puz$ + "x   x         x"
    puz$ = puz$ + "x   xx       xx"
    puz$ = puz$ + "x       x     x"
    puz$ = puz$ + "x      xxx    x"
    puz$ = puz$ + "x x         xyx"
    puz$ = puz$ + "xxxxxxxxxxxxxxx"
END IF
 
IF puzzle = 8 THEN
    puz$ = "": grid = 15
    puz$ = puz$ + "xxxxxxxxxxxxxxx"
    puz$ = puz$ + "x x     x     x"
    puz$ = puz$ + "x    x       xx"
    puz$ = puz$ + "x        b    x"
    puz$ = puz$ + "x     x     x x"
    puz$ = puz$ + "x  x          x"
    puz$ = puz$ + "x       x x   x"
    puz$ = puz$ + "x      xx    xx"
    puz$ = puz$ + "x             x"
    puz$ = puz$ + "xx       x    x"
    puz$ = puz$ + "x   x x       x"
    puz$ = puz$ + "x   xyx       x"
    puz$ = puz$ + "x   xxx       x"
    puz$ = puz$ + "x       x   x x"
    puz$ = puz$ + "xxxxxxxxxxxxxxx"
END IF
 
IF puzzle = 9 THEN
    puz$ = "": grid = 19
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "x x   x       x   x"
    puz$ = puz$ + "x x   xxx   x x xxx"
    puz$ = puz$ + "x           x     x"
    puz$ = puz$ + "x xxx xxxxx xxx x x"
    puz$ = puz$ + "x   x   x       x x"
    puz$ = puz$ + "xxx x   x   x   x x"
    puz$ = puz$ + "x           x     x"
    puz$ = puz$ + "x   xxx x xxx xxx x"
    puz$ = puz$ + "x     x x         x"
    puz$ = puz$ + "xxx   x xxx     x x"
    puz$ = puz$ + "x       x       x x"
    puz$ = puz$ + "x x x   x xxx   xxx"
    puz$ = puz$ + "x x x             x"
    puz$ = puz$ + "x x x xxx x   x   x"
    puz$ = puz$ + "x         x   x   x"
    puz$ = puz$ + "x xxx     x x xxx x"
    puz$ = puz$ + "x  bx       x  yx x"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxx"
END IF
 
IF puzzle = 10 THEN
    puz$ = "": grid = 21
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xbx x     x   x     x"
    puz$ = puz$ + "x x x     x   xxx   x"
    puz$ = puz$ + "x x                 x"
    puz$ = puz$ + "x x xxx x x     x   x"
    puz$ = puz$ + "x       x x     x   x"
    puz$ = puz$ + "x   x   x x     x xxx"
    puz$ = puz$ + "x   x               x"
    puz$ = puz$ + "x   x     x xxx x   x"
    puz$ = puz$ + "x         x     x   x"
    puz$ = puz$ + "xxx xxx xxxxx xxx xxx"
    puz$ = puz$ + "x         x         x"
    puz$ = puz$ + "x   xxx   x x xxx x x"
    puz$ = puz$ + "x           x     x x"
    puz$ = puz$ + "xxx xxx   x xxx   x x"
    puz$ = puz$ + "x   x     x x     x x"
    puz$ = puz$ + "x x x xxx x x   x x x"
    puz$ = puz$ + "x x             x   x"
    puz$ = puz$ + "x x     x x x   x x x"
    puz$ = puz$ + "x       x x x     xyx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxxx"
END IF
 
RETURN
 
 
 
FUNCTION BASIMAGE1& 'BALL.BMP
    v& = _NEWIMAGE(191, 193, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkMNfVDDdf6n_T77nE9WA#097Gb8ITL6TT1bI541141ET<8159YR0Ri\Ri"
    A$ = A$ + "L>W[WgcjimVWVeMW^WMkIZNVij3W7P^;cdMEGMegeMZ^n[ojMG_#842Q#842"
    A$ = A$ + "Q#842Q#842Q#842AI>g`=L3^6eX6iJFcJV[U]\U^FgjFkJOkK_kV^YKbea>f"
    A$ = A$ + "AGWjDWLM^cMfee^fEGgjFgldm^gm[i?iWeU^d5o_7onMX3M`oIdfffFoWGcK"
    A$ = A$ + "NcM=Y9=ae`6f`POo:4=X1=`edVfD_67=l07h0MSNdSf=Q9<1gLWkLM;H1;`]"
    A$ = A$ + "TU\4gbGnbM[KM[cM?gcmh^gkmNMKJCKbcVglVMggmMOnoOKH3K`]ne_NgZFe"
    A$ = A$ + "Zlongn]OknomCKJCc=a9>Ag`6f`Lm]_meol1?Oac1Qnn?;beMMg#`_6:GPed"
    A$ = A$ + "I=GF3^Wm\WNmg`7n`mJlI<SIheh;MY;e]Ve\6_NN[KM[^M\SMhNh7nQMkNgk"
    A$ = A$ + "f]om_Og1>`1L7i87amH?fSi>fa>fEih7ohNh_OdSNDo_c1?h1monkI?kao_O"
    A$ = A$ + "WkLW^7h1N0oc9l\3?K\`5^#ogkh6ghLSJDSbo<7GGlnRfdVfhJLSKL`7g4Uf"
    A$ = A$ + "PM<HkAojGoLSI<Sa[iFfbFVKKKKK^M][Mi>a9>QkdWnd^WkiN>g;nR_XkeOm"
    A$ = A$ + "G_Pb;ob_\k5NQG`mD?eCi>eY>UK_kM_nWahM:lnU9=Y9i6b#6Rgn9NNEf79B"
    A$ = A$ + "2H[n=NSgXGkP>7K>Fa:FQO=gm]_miGOn9ObWdMfcNFgcn\?[k2Gh2NM8JNdT"
    A$ = A$ + "_j[nZ5L]o[mJ_VokQ_cWoiONgU^dUlG7WkLWcMVcL6gSoh?^k`7n`^7mAODg"
    A$ = A$ + "MOgg]gf9\GJTSLT^KnV_Iok42mh\8k0f\S=2mX7m`Kk`lWolm[Qn#?d3i]mh"
    A$ = A$ + "INVWaMi;Oi2^^>]hUNYGbOmbcZl<;fR]h5_H_n_om_o^FdRF8KRZP1Khag93"
    A$ = A$ + "N`3f=kI?K_n0kba6VcOncO=[Yo:_b[DDFC?]Og0?3`mPm^1NO5??`nAhIQa?"
    A$ = A$ + "naOem=7ji3Aa1\Q_M][Mnm]R?DH_SHk>J3\K?=eiX3[?TVG7HG6?7`nYgbFf"
    A$ = A$ + "RgV>lM4__Cn<Zl5c?=gj]N[^5]X5i]7Ve0af0FOTef;DJ>NFZ^#JNM4mjQkE"
    A$ = A$ + "^WIo2\?1la4_gK>cI>ne3HL:dcGRj?\N6ffPM^H_;nR4O5n4?aCh]]Yn\6OB"
    A$ = A$ + "F_^^n\D]miTV_KPo]l\?n<RmfPoCimPhcDN_8[GP]QQN>DTodZFe:_Oh_[kj"
    A$ = A$ + "^L7j#7b_6GJi7bL]N^Y7Ocgl=_:_eKmF^gn]OKgkl>_SkMOgg]6QO6o>lk6m"
    A$ = A$ + "OKBonZ_`W5k?0o5]a=^AgdWndma[CjoB3`W=\o=f3;n[QHUR_>NjWnYm[aQ="
    A$ = A$ + "_egefiooKl6_Q7dZ`E^bEL_gkmN^?h3n0g7mAOTkCnT?amYOjWjn\?kcLOnW"
    A$ = A$ + "oiNnb_l;mlEOeGinj_n[_6hoWmc]OOngbW1OFlIbW=O7lMIO_feA^^FcWkEK"
    A$ = A$ + "?14W]7l1O#g:Gi:MSM\SeEEEEim1LXWO5e<HO3fZ>[I=;gJGkJmnRWm^FOGO"
    A$ = A$ + "?:XcH]HFW6=8ja?nSoH_F5mkgmMOWkkon_gm3o`?hnUOiGLoj_n[^Okgn=?o"
    A$ = A$ + "aOl7GUol?oCgOmGoU7nkAoIf_?oKicP?;n<icV_3n^hkT_K^6hJQ[9^fBcm:"
    A$ = A$ + "cn2HlSW18>7m^gmf7oS#??;nOP?j8Nn\7FFW7oDR=\lnKVoZ[fIKfZP]8_ok"
    A$ = A$ + "onNmfGl5OQOMJdSoh?nSGEKokon_kadeAefomOogo;nWoiO^6ZYOWX?KH?OH"
    A$ = A$ + "O?fc6L=`e2GCL]ae8G[L=Kf>ECkO8ON?0aaSHGS_`8na\O0ReMXWg[dQHfS?"
    A$ = A$ + "jVbDVROm9dmh3SlEW7moWICSIKn7nQOXgf3FcedlV>_jJhR=fc3fc0L=R]BL"
    A$ = A$ + "=KkQ8Z=AaMoW[g1P_1`oX4KPQ>dQjg;LXWo[4QhBB<jI]NbK<Rm:n\SeYBjl"
    A$ = A$ + "IeWkanId;HO=fEPFjWoiOnZjlX[Q7J=O]mN3km4L=ce>g3L_`m4gKL?FGdnA"
    A$ = A$ + "SGf5_h5miK7k7N#3J#jM059H_\V=>T3STCI\F_iOnlimifjkVVgfSjgl=OSg"
    A$ = A$ + "nJ\Y0=TYi3]n>ON>P[I^fiNPk5^W\m<K?3DK_?89P?c#oC^TB^?A>L[lTX`2"
    A$ = A$ + "nL3=?nSVl1fR;EMI_[H;<n=1K4#KP>Qeg[YefSJoMFWJjJ7hNSkA^GiNVkM6"
    A$ = A$ + "3Z;k=Vg1`kHIOEToLTO[SH4S8hjSbA`o=T7a4KZkon_OOn7`kNc7]NDkJHm?"
    A$ = A$ + "\QoKof_mZkI5K5ZYmLF:Yk[]mFK`mX]7I^gI<8jk2ZYa\L1[mP_P8GZYf58n"
    A$ = A$ + "Q\o[#[G:WPl>QJH2o=PMmi[MZVo9a78l^OlG8f3GC[C6J]KQRJjmH<6`H1S9"
    A$ = A$ + "<fHn9]^4c<RO2eP6i6Xb?Xj?TO9<FBngP^gb[bh\S?ZM=h[3FOSh6I[aKkM5"
    A$ = A$ + "<O8FYQMoKf2aH3SA<FaHFDkQBbn2<O1Ii74f09O1EgPm>ak#aWm4GflaNNKM"
    A$ = A$ + ";N?>[WIaMbfkJdeh[N\UZ4`dnA77H\aRO6SI<f5M\<Y_7Ph2CnPC^aAMj7JM"
    A$ = A$ + "DY4To8hg0baFlI?jnTjcN3Vg`>FRic?mCode4cYJR#[53Qf?GS5<VaH7SQAm"
    A$ = A$ + ";JB`b;2bQZ=_i=kZZZZlmJR#[[:5Pa9ZO:ZAkCNbCVG[gcOgR3[ISSik6FO["
    A$ = A$ + "BDWW???Hk5PoKc68;>aEOL>>XNI8_BVjDWZg?5QFGUU1KL`O>T;]DoeTC29="
    A$ = A$ + "gcRJO3n`cdlRj?<FbHJDkPBbLREW0h3Dl3DEoO[o;KPZIHO]TcaH[H^F__j["
    A$ = A$ + "m`NbH>QhhSO[I^RL0[BeNVd2KlSaB6C]LUPaJ;?QBbk2`n7b;Jba#b58R?IX"
    A$ = A$ + "eJI5X62Yo1`NJYOd4G>XEMO`IaWRi7;_bH^cb7BAm36;]lWcN6PalJJ^8G_3"
    A$ = A$ + "0odajJHoSb3Ro;hknI>cIjm=6a9\fZUZZ?nbJ?T7_ToRAc1QXijXXnCdaD;7"
    A$ = A$ + "9H<WanX[oW;oPboOFC3oF\jE_JolMUN>#`ko8g`Y7TaHCBf?[ign[LU[hm7G"
    A$ = A$ + "e]]?dJUbEZnN0H\WiPl9_8HmOFOSlQVN8GUZnO03H0^kl>_CO=SS=Q9YfI9^"
    A$ = A$ + "S4oMb=Al17[3927<7`L1c9F^a5gjG4OBFoOkKOknnFJUFmPANgC?CPNN6e6A"
    A$ = A$ + "BmQ9nJSmKQO78oL]eiIoHRR7fk1H>Pi2VCH^9Yn05m?mDAb1m:Yn21e#>a]j"
    A$ = A$ + "ANT79AeFEdLC0o=C>HIe3XEGORR?A7oI>QiVXi2ALcYhoJlo9eO1eHMXeU53"
    A$ = A$ + "hnTjNPjQ>9ffK[gcN[hM\fnJU^?lHc3<W`L3cAAGo?^g3#=7Q>PHIF^gOh8g"
    A$ = A$ + "kYVgR;_k=OWIe>8nEPeF8_3I<WH^;b>`L2c=<7aLUE[TaioCnIX3H]OliAXe"
    A$ = A$ + "W5287Mhijkh>^3OngWdekYN[9NRfjmfj=QN^Fl_enP]n?cI<gUdeoY>PI__H"
    A$ = A$ + "k?ak9djed4>CM8V]\_fLUGJASE2f=B^DaJ9fhKXWS5ao<0o9cI<gIfnWThOa"
    A$ = A$ + "nOIOPdSL3]N=]0Oj#MMB<=Xn6BR_<I<3O7Ha]2o9cH:oY8kR=7IaoRi`Z7o["
    A$ = A$ + "J3fk;eY1ag7K4:ek7LV]>DO]\WnTZk]hFAnTKSWh?=Af7kI0[F0\hOU4m?f4"
    A$ = A$ + "#^o#_8XD_?HA^;A_1THiakdRkmN\o8[OhHSS0SSRB7\i=V3I^TidT6k;\=Pm"
    A$ = A$ + "4R^9djgj3D_QL62VTc]46KHoAT[D\NAdek3mLY8o8jjoFobRifTXoI]Ob];>"
    A$ = A$ + "cT2]n]^0fi#oKTlf;Yfhck6Im16k\n?YXd7K^TiFVSCbJoFNoC_PVN#FXeci"
    A$ = A$ + "3DS2D[]dgXbUo]Rnc\NN9SE0n:#DjS=OJm:dZk;kJkI0joELFiQ]oQF?WDHo"
    A$ = A$ + "]dO<I=ObA]hlWYe3_iMSQNNBDHafk;ciaigClk3mP9R5JYBmnbe9iX4eZIBb"
    A$ = A$ + ";Ib1#[F3S>>ao]XdWZ?WbL=cia]^_eo?9oGhLc9djjhPc_B>gJXNKCbNKagG"
    A$ = A$ + "dGT\LDCjnbCR>gbL=cifI6#Lj4>OXXWGA>#6JmM^\eQhgbcY\?UL]F_U_2ln"
    A$ = A$ + "?c_>fhDe?CB4U7Hc_VOOH^?JN?DKj5jg3Tc3D_7Ienm6WYKd;^`F7jKPaIW?"
    A$ = A$ + "ik4amfdmlWRbO\iJVkA3TTlM0m4i6#OjCO2^>_VPJAQmUcnKS;Wl]J]e>7ZH"
    A$ = A$ + "\`>_Y4UgHce<gS]o99V_Hg?i60WgmQFWGMX^;Io]d?lS[7ZIiU\U_>fh1oMA"
    A$ = A$ + "i?VfWo^]fOLfmcJYH7=ijICKJC3^N?Z^WjAa>?3S;>FHS7nje\cg674E>H[g"
    A$ = A$ + "IWKNX9RK]Oli9ij3i3LFY7W`n_9n347;RQKLf^am9ihQMf4:]OU7AOG?JQTX"
    A$ = A$ + "m1jccdS3kE_jE`em`X7mXmWOc9i\P`lU?gcfI8[Xb5d0X5<On7WnQh5AMNSm"
    A$ = A$ + "eQFg3cH6c`W_JaMFfR=MGioo<YEJOAD]_MF17WMoT;`Fom?djNbI=Rk0fQ5G"
    A$ = A$ + "OSeb?IcFOQ`0=ABbcI;F0dOca^W#5_;Z]B\cWJ]9^N;UM>=cnjin4Kl423d4"
    A$ = A$ + "X=RNNHGKJOnCli3i?#Xbe1Rc6i\F^RQ[QM>=cm8acF8Z>X=\c3khdCh?AZ]A"
    A$ = A$ + "bai#Xm]jBQN\BLfj#Oke>Wg4RJ3d8XERcf7Rc;mbb#EO;;KI;cK_CLnga>O3"
    A$ = A$ + "Io<QN\ET]1=RMN?V;=5a?UNn1W9E5cNJ2mM1bCI>CPH=oL57Gc>Of73fc94a"
    A$ = A$ + "1JUTHg?ajUcGlQ<TQDd>?79?Uil3VJC9^nY9g3fIRBX7C5U6HW];99NGLnl#"
    A$ = A$ + "\^h\9\HXm9o5H?^lm6GnWbnF\j`=dSYRB3\jj=9ki5k>8Wii\lZHXma_BT_V"
    A$ = A$ + "D?UaM]anfI_;VfWoD8Z=<=2JVT4WGRW:fO#>4G<dndcMBJOcgdnfcd\G6QXf"
    A$ = A$ + "`d99EkcN=aOWL>FGXem\WJnNX>bbEmYHeSHdem]WW5RJSXj4d>aEGSF=mBo^"
    A$ = A$ + "\#g;C\c=Rhl_CeenfceQN\ET]9Z>99JOS=]Y=E#kU9L^`AoVRh9P^?Gi`PeS"
    A$ = A$ + "e<]_#T_Pf9Ymb=j=2TS35BkM6j#7J>kOnAm[_egM2mHXXd4[?nTTJJl07h0N"
    A$ = A$ + "kA:Dm^I\g1Km9F^aM]H[i;]_X^2J7K]ohdKdO4fbFfB1;6G4;G>C#iI\lAk;"
    A$ = A$ + "4eEBZf7o]C]\GXjKi4k<bM=laCB\gAJOAm5d#9a^7lc?e<KQZF6kNgk^ol`>"
    A$ = A$ + "^HJ5Ek;4eGBRf7O_`Il``6f`liLCJkSWne_ni>h1?H\adBJOAJBBdnTG=DoD"
    A$ = A$ + "L>]Wfni_=]Y=nN3ABj_\F^Kbe\#DO9^LjdPH]NKgf]ic[cdfFoa<VahO_BLm"
    A$ = A$ + "N:Ym5Y99EkcJbL6fBO39=enH_c<Wi<mkY8^n_SdnRdTTZmY7>\ne_NoJoYYf"
    A$ = A$ + "O#3J#n?cLU3?Bk;:4T?JObWid^gm<fa>FOoW:>Km=]_#Tf4W^3Kaga>fQK]["
    A$ = A$ + "M]YZfObCNbnjcEJOAX89JOR_5m_QdDk?_i=?_]DlN5Ym5QPhdMdKd8W3XneC"
    A$ = A$ + "C]?kOVHj6W?NTfGDX8>MWEkjkNgk>EenH_3i_YdnR#ABdnTG3\fOJZmIo3DW"
    A$ = A$ + "Raec=5R#1eC2aNUenCC]ojFgjlfA9]_8[2JoCMZCi>jA?JZZma_YDK<9aV7Q"
    A$ = A$ + "84Pfo\Wm\nn3KJZmIO^dcoUfGTE1]?iH<iHOJZmglVg\_N]TfGTE1]?m#QCO"
    A$ = A$ + "jC;]_XR2Ym5EZDXdnL^29km5II#kC?J3OmXmj:ZT0]?eG2nh?=end?ZXOk;o"
    A$ = A$ + "k;bZDXla9iaVdnR\<XmaFO>3BCC]o:Fa:LKKKKCfl8b\#nlP_mil7==enT;K"
    A$ = A$ + "dg[TfGTE1]?fkTfibVU3c99om5R#0Jo3Oh3k[OUdDk?oi?OonMUfGTEY#Ek:"
    A$ = A$ + "LnJQ=o9YV55R#0JOl3?mRodDkKeZNBjC32A8PmR^m]_MgZFeZBE]?mj:ZIG]"
    A$ = A$ + "^_8[2fScNBY?lWVJoNfcNj]ki2Gh2illdE825Xma^LdYYYfWnk9WSST_4:nF"
    A$ = A$ + "R\8HC2W?4HONJZmil\H`3N`NoWNi;OiPOO:4E7f;:m=cndWnTZJo6f`6NeN#"
    A$ = A$ + ">fm4jkCQ8:T?3GlRGd=a9>AGWkLWCE]?dU^d5O_Jh<Wi<1oNE8R2nhQlH3KC"
    A$ = A$ + "JJCKJZ[mY?TCl]>na?N`_G5RX`JndKBh\1:]em0Wo4hSoTLFc945C8_m9^F5"
    A$ = A$ + "ZcJ^Ve\Vi6oh7_?VaQnNE8R2mTWE_jEG#\g1JBCJRoL7RNC8Wo4aM6D845;`"
    A$ = A$ + "7<hOc2eI;]]OGRI<nBEahBTE0KA6gh6G1Cg7eVOlcYbUOAX1K?`oVd;56h07"
    A$ = A$ + "H1Ek3CJBCb_OG>k]2mm^Xb6dmH3bBGjBM]\U]\P[miL\3ol7gi\[#DX1K?8?"
    A$ = A$ + "KBkcG^JSnfgnjgGQRaU8dPOmi\VH4SH455]O7kH7mi;4if3_cAnkA4:`_nhK"
    A$ = A$ + "cNgkNGDdnHGE?jA?le3?njAJOAXPn#e<Va<liL#a#k3=ZA=bGW0\f_ZU;Aa6"
    A$ = A$ + "\g0KmaW;TOm5;M_a:Gi:MkOokgMY;MYP?F8Z\0k=8Gjil#Ql=XH[mYFFFlRG"
    A$ = A$ + "\fc[XX3kaUn2>aJZH[kQQ=\QiVm\W]_GHYLL#D<QN=>iFcLVcL2Rf_E]ZEnL"
    A$ = A$ + "LPlWShLQ=HQN<ADI0WUXh[a2E>;77\OGbIDjEQd3#E>>8:dP]5DCjkKOkcEE"
    A$ = A$ + "EEiJKKKK#dn6Hg3W;;Z>N55JX?9PO=Y6Z2YVgHX3MXnNg3ihP\kAD8QeGgjF"
    A$ = A$ + "gZ_Vd3]^7JOkK_GoSoNDN=;:T#n3cj\3H038hjNSFgjFkcSdSLTSXngS8e1k"
    A$ = A$ + "l]Jb][M][^6dP64L=_1kkUl8Uno\fc[8]a>?Q`WR]X5]8hjmZ3m]#\33knU]"
    A$ = A$ + "?Rd4l]3WkEDk8QFWGC#n4Q?Gi<NDihS8]`jkDdSIIOUQFWW;moJFcJle=OX7"
    A$ = A$ + "c4U7PM4D;jM[KM;hjkL1fRQon=knU??5eG8WIhlT8daa:9P?OhliRL^#kkED"
    A$ = A$ + "O1MOokOo3^^>9PoW`^ObeXcOnc7la>AY9D3jDO8cM^c]PecY:4#>^=i9?Ioe"
    A$ = A$ + "^Z];AnPUC`Hg0e75i]CXeci3dO\8??gh6gXOO_bf7ABQm8B^;\gm^GG_jE_b"
    A$ = A$ + "Daa:OHA;JAncSMliYFkGT4\lESl4PcmQ#[Q[[#]D>X1=8omRdoRT0nbWn]CF"
    A$ = A$ + "fGn91[nFXVR?gi>WliYXFab=Ob9bA=ZAicKW#[OC3XfNGh2GX>SB5e:H[c>f"
    A$ = A$ + "a>L;Oi;?hjed4jUKSI<SaW_3jljBDM`G8H[3eNNF=WMZ?P_OhIJjUWQN\FT]"
    A$ = A$ + "Pe4Y>4cRiXIJ1W?kTc3HCWj[?2Rm3fh_^e]^<C]HE8GkWLBJWkLW^CNbCZni"
    A$ = A$ + "I5>dO?`78hCWRA?4?dP?KYVcX_^ajolLOXW345GHm>fK;[1BodTJO:djbR5H"
    A$ = A$ + "GgdWndMkI?ka_gGUg3EF`jMd3UIoOdGS3]N\H3WOALF]CMXai7PZe[:78FW\"
    A$ = A$ + "fGWjDW2^><4P]?TCfHkSeKgDM^GN3c_hC7>KhXWiG:Wc2Y14gGlo3WGkHoS\"
    A$ = A$ + "mYl5lQo2F`2Lgb]L;1GgU5Xa=^anjMQjaTjAVJDCao]l2F_WnV<eQ2fi4Rn6"
    A$ = A$ + "NF6lm9mfIZA=5kgb;H_]\N?af?dj\\:h[[A>bAj7W`?0Z7OFj2a^QekI]NV?"
    A$ = A$ + "KBCJB`eGIMh\\3m?mP;doboWUFHeM5f]bk_WolW_omiQFGEZ0eW9aj3oobNP"
    A$ = A$ + "EonYd1F[7OfANK=[I=;ON\7JmDY6<V=a9>AOMOAoXSeADnoWMaRE;iY5[GaI"
    A$ = A$ + "`<eLHXeAUZPmoH3dBFbBLkJGkB[oWQQl#6oD`JE3LP3\TZg:TEQhO<jA?JO]"
    A$ = A$ + "_`N08gWDO_:kPeSTi\gQnZ0eKX\c9MQL0MJCKJ^e^fejg3Ujm3I3`>7>[?Ga"
    A$ = A$ + ":FA9A_C[DU>dQ>h[mMf3<ea?_3PmE5jio:=HM7lo<iR8WgJd;bZ4c9]#0ea<"
    A$ = A$ + "a9aZ1n#[5Zd0M?iO8aR7kA3]NXB3jIAl<`DVbDla?1O1ajA:F05>`7>\F?n`"
    A$ = A$ + "1O#[mc6F8O09^Q7n`7fW;#4oLU?dY7\F2nE0O<C>HB_fSejE>iTMPl1Ul3Tc"
    A$ = A$ + "kd3MX3YlQ>5`>[OXogCMFCnf6jiIao6Z5<\1Rg7SnWm1P_gD<ab?\HDA\DXO"
    A$ = A$ + "`BOa4o:#N9P_62ml\8g`N1H=:R96i>;?34J=EY2Hc8eE5[OP?UKGkJG`W?5i"
    A$ = A$ + "7d;#7gh6gEeo4WMl=1?7Xg3lo`\UWHVPVWc9FlM0mmNjog4GU#?G:ZkP]#l>"
    A$ = A$ + "Kj3<kNgkFm5g8P_a>a9>Q_>2Y7iXJZZl2b;8Rc>e6?nXPH#bJKkOokgkk2lM"
    A$ = A$ + "GUP_QH=Ndjln?N?8jm=\Q=hVjDWZKh3OhNki;Wk=JRoK=2<h1?h[NNHGYdWP"
    A$ = A$ + "hiKR;5i55kOUc6WBUcb:Aj2k9Vc5ENO0__7O4AnRB_Q4OLD:W_4l\\YcinIe"
    A$ = A$ + "[Nenh`R==H3XZS:1`niXGACmRA?Ca>[T\c9Kf;8J9lmGF[>bhJQ[9^f`N6^>"
    A$ = A$ + "ij5kJhjWnj=iG9ao6M_\YA47hK?ZONbC;b;GFgTNX7kAPH7`I8I8mG4JNFG7"
    A$ = A$ + "ocL\SM<oe5JLjSgHoNOjCOlnj:dSSRBC8OEjI?kYK4SH4NKRFeZFUoM24_7b"
    A$ = A$ + "Q2Ri9f6A^DP_CI?cHW4_[`PeQ1FC6HmiJ2kWKon\f]1O>lIcg1JMn>IMMl?3"
    A$ = A$ + "fd#m1R^WJLH2CH2nJ7QnnBYjidFFR[kjT?NS2eCCcKNcm?G#Oe5m6eV:fCSO"
    A$ = A$ + "Da7Bh35lW:iJ:iH1nEQcLE\3QmFcc=0oMPnB=oL\eRW[8Wa8_hgjFgZGG_\U"
    A$ = A$ + "]<glVgll[YCNTQ_giMCE2m_HAf3N_0[_B^4A>eA]5P?Di<FRn=9_[0m:iJ7?"
    A$ = A$ + "G`NYGlRG\goB0jIPo>ooiWcIC9oncI>caol4nRQ??\E7Ob#Nb;=_#842Q#84"
    A$ = A$ + "2Q#842Q#842Q#84RbMn?0fDo%%%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
 
FUNCTION BASIMAGE2& 'BLANK.BMP
    v& = _NEWIMAGE(158, 159, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIk37D3000334BDWoefV<j78QZ;EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
    A$ = A$ + "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
    A$ = A$ + "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEMf7?=jK%%%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
    BASIMAGE2& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
FUNCTION BASIMAGE3& 'PASS.BMP
    v& = _NEWIMAGE(324, 155, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkMN6[ED4666`2H35\0:ME`2Rm6F`^2::4kX8FA454\g[A15kPUPmJD80f"
    A$ = A$ + "kR6SXR6R]XH;Z9ZQ8AACDnoJNV9O7F>L?Wc^c^kiN^gkkKbC<8\cl=k>ckIJ"
    A$ = A$ + "k\][M];ZM2Q#8L8999eFGb?DBBBb;i7:999iUl3UTTTlBnQBBBBN9o#9999_"
    A$ = A$ + "TOXTTTTGb?DBBBb;i7:999iEJl3K^gch2Q#4:b?D84]eYm]_mAMX3MX`l3kL"
    A$ = A$ + "WkLD?kI?S6`06#df^]K[#84=\dY>eYX>fa>FHnQh5>h1?hXQ?lQ7ML7ga942"
    A$ = A$ + "A3;MY;Mae7^Rb?Tn5RGhH7kHS^P;h242QXQU^e]^5ee^fe2c?TnPR_;ieeOm"
    A$ = A$ + "G_#84=\\IKfV5]aKl6;o#Q#dV7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q"
    A$ = A$ + "7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:"
    A$ = A$ + "42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7"
    A$ = A$ + "i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42Q7i7:42QWF2nQk`>\3AMZCMZDJ6"
    A$ = A$ + "2]_m]_9Ck^e]^Uid^8Qh^A?6]h<?Ra:mL:YTgg[bJlDDaHBR[\T?iAm^lZ>A"
    A$ = A$ + "mliC;1o`]H;fRXNe[N5em^gMG\V6jJGkJD7kH7MTgYMBbk=ICfT<5gDO:[aH"
    A$ = A$ + "FRST6Wm]_m=caHeN>E?Z[DNldi>giX=JSf8GKTbQo=hGTVHKkf^]c5Om^gm>"
    A$ = A$ + "ZWm\W1G_`R[J53QL_8?ZgUGe9Z7eGJ9j7B<bmdkj^^[X7kaN\DS5;5AJG=^g"
    A$ = A$ + "kmNMe92mj]hVjU4SCKJC;CaAAE696_V[iJbD<beE]WCe[j:a;Ghk#k^\h95g"
    A$ = A$ + ";\Om[O>O#3:c?ocolA;H1;8jGnUO9Ji;Oi=IKYU^dU6mmOog7mV_iKF:^<ZF"
    A$ = A$ + "<Hg;2miPMmYmIZU6I]>A]8?Z_dBe?THlmN_g;AiMUR5NnL]GkeV[YMed?oco"
    A$ = A$ + "LdEL5GA`G_5g3LP3dE_Wj0I9>VolWO`aBeBKRa[l:_b<5S?d3m#U:_l<jj^^"
    A$ = A$ + "[[IY^BU4nEh9AjF^Wdj\>[S[ogeZ?QdG90_j?ocolPSUU]\U5=kI?kXeKmF?"
    A$ = A$ + "7E:6BCKKC_f[mJUN>\iKnV7dcDkIIF[CD;E]feb?\fa2a`UOiG^knGm`?La;"
    A$ = A$ + "NaAWciL>AoiOnW1Mmgf]MK^hnl?oc?J3g`=<jeOmG?Xdicn\?c57_d;mB1Mm"
    A$ = A$ + "ECD696?_cklLah3nP?H#YSEFQ;kb^\X[nZ_jPl4;bWWaeBFbBLnRfHfZTWX="
    A$ = A$ + "VC[?QiILmKof_5M;gb]DaH84o`OmGoeB?7fV]IK2b?cNF>a9>AGM2l7;2E]f"
    A$ = A$ + "eb?\fabX7mXMN;lkFeSf?;LQ;<j`?l3?JA;JA1MmDORhNDSJDAMY;M9j]N[g"
    A$ = A$ + ":Xdi1NP7`57?jSnX1MmECD696?jSnXSFoeOmS^WkiN2:M\b:<na?NWWH8oVO"
    A$ = A$ + "mb?ddWnYOJdJ^V[ICj7AO3]i:Ta<Bo;cKmgomOkn]SV:62a?4=Va<6gcQcl<"
    A$ = A$ + "?CgL3l`?l3WZ[gNFN2W`9hZgBm_R#E[M]l3[M\LP7h16MjWnY7M9GbUDGJo`"
    A$ = A$ + "H?jOokOdMNWgI#GoTWlTMam#6b#LN=TNQXCkd>]X1<P14=UY<UP^nZ9KlEkl"
    A$ = A$ + ">_cA[kj^^ACMZC=XdIX3MXUN>Qo?Um#nmnj]O8j5OaGdi7A\SW4nhfl5Jm=l"
    A$ = A$ + "[oj_^`bO6oaTVdTFYH8;nQGl5Oa^dQhVng=cI>cDMmfcbmN_gKgHi3mg8[UZ"
    A$ = A$ + "FkJi7FkHQf\dFkR^X;Z^dnI>cI>^igiB_d;=X[WahJcO8Ycgn]OK#Yc>]CkT"
    A$ = A$ + "c?=;cUIU4UARAJg_F[eJ5M3g`=4Dj#<J?W6a86Ad4V`4LmkYUPO8bNF1To<>"
    A$ = A$ + "IlChnb[l:_BQWo<oVWd9MB[dLZ5ZOh7mAOT;=hi9m?L6cH6Yjj]WUdfWOSl>"
    A$ = A$ + "^Sk8ea#BDeJG;o``RUR\mccn\?KdZ]J[Vkg93AWkiN^^hVnI`hPnV_iK2:MH"
    A$ = A$ + "<;\?]hgmcKAITHTiIRmX1m=:4]EKeFEji4S]WbN;9o`?h3nPBa?m?KCgd=]d"
    A$ = A$ + "J[FYe=>_e=MCgd:i9C<4RO8Z?mY?AMX3M8J3fP=8enIfcBF?6l3In4;2UWN<"
    A$ = A$ + "b?\nh7BnbHEcbecL#QOHXSibfgZ<WLi]TOh:d^]KkFYb0NQL?Qm8CmB\n:Fn"
    A$ = A$ + "cHW]H84ISiUaULcgl=WZ[EnQ5K\fBg?Tn8VU[O]GkefE_:4mn_okkB3n]NV_"
    A$ = A$ + "ilFb?L5JTSLT^hOeGmEgi5aN2Tm>HmD7fQMHU^?bjZ4ZOX]WIHnohi#JTl3;"
    A$ = A$ + "fH]U^O8]?nb_l;3:=\aOa_CWUH0o#VCYlF]fl33mi4j\>[cZd_Oam36_J8Re"
    A$ = A$ + "_Pk7\g>C[R??V43\N8Q:ROl3_`;l2Cee9o`R=FK=h7nb_l;7DJHSmQe#;4MZ"
    A$ = A$ + "WjYFZ?ZDNcKeJc?Tlo8>RS8X[UehdZWajGan^>4Ig;N^WkiBme>[I=[Bg7I]"
    A$ = A$ + "#P#e`6f`LcEch6ghBee9o`R=FKTm3]d^JPGDXk35lI`?TmbE8:^O8cgN8:YU"
    A$ = A$ + "aF;nQ0[GKJ5k5Mc7PikUeB94aeBj<fa>fDO]f_?1h9cJY5ZH<cl<mT?iC>EG"
    A$ = A$ + "GNi76_>Ae#nQYC=WnQ\>6do`#gc=l>2`JlanM>4IeY86^eKmF3:=BBMbeH=F"
    A$ = A$ + "3gh4_aKl6cDLf8h7bc\i=_iUj[elRH?f`mR#g_Wfm1fSaQ630ca2eMbRjA?j"
    A$ = A$ + "QKNACSZgnQkj^^[^mJTf_=9Ce3o#VW5f_I\FbT?6\7^0bc#4e9XNmaOl7O#G"
    A$ = A$ + "?c[_iG5jn0[FUa1=X1ijC3em3ec]Ab?TiJ=Tig`lR86`?l9NRW8hH0?i#n=D"
    A$ = A$ + "km97hi1mA<;Ra<O87bQTZ[Y8l3I^<I?MBo3RGg3_#F39NGJhnUl3cF\TGY=n"
    A$ = A$ + "43N`3>Jh3Oh^l`Pa[POFJWCJC<NGlJ2M]#\hSn7>mY?m<U6EZ<RG=cK?m5Qg"
    A$ = A$ + "Yg#DSVOH8_[hVO8[[<o68oi\43YMMMSOm0eKbZO8cabn^_kKZ^VR`?TmL=nN"
    A$ = A$ + "7caL<[DM?jG8NQdVnZ^Z[BnQI<Fb[dVn<Q?1ci3Y_1n4DW0?aokon_DWnh7B"
    A$ = A$ + "O=2I_bHmEPnJ#o3_okonCMJPZEI4_Nj7JFNgmKdl33iM5gl39oa?lINVW9Ca"
    A$ = A$ + "#Xc5[MOTj=dWn\8V7eMOggmDM=5QO8[W8]5H>4RGgSa8Co2a;<?>SKTOHn<O"
    A$ = A$ + "C<_cdG#jK#lc=D>K_i\7Tei;Tm?1_oKdf:4_<[m9mCPeT9D_ZJE6]g?=n_QN"
    A$ = A$ + "f>eJc?TkE?mCodI:6hlm9d[7XNCFm3AYM^NbKo#F[>jW[m>g4_NGU>WeTOHH"
    A$ = A$ + "aBNen1o6j3Hlc?Dk<lUg]OncL^KUFAK<BSGmEOeDO]hUJck7YAXW_=YY<:o`"
    A$ = A$ + "E\gSJ]h7nEOeGUZomi]O8S]QdQO;f>oKK[OnHgXj7bc<N?]h<8Pg7>>;?JZc"
    A$ = A$ + "9h#c3JSQ?D8W90fN]QjAD_9dig?=UAi7fhh7B<4jnh?;:_l3YN0W=4l^3bI8"
    A$ = A$ + "6Y3SaQjH\g>]bYl3CW:Bo`ZYb?WP3Ym1SaVe2Qg=ed:6[NNdn\J:_>;TUOhZ"
    A$ = A$ + "63]em3[VNWgiM:E>cbiY^l3[OnQa?WPY?JQN>`aLg5R\jU\F7IIm>[Vb[c2I"
    A$ = A$ + "i7^ZaPl3[\hk>SE>iL?D[WBbEcUOXM>1SO6[YAXe=3M>P\gc1fW<\FSl=g8_"
    A$ = A$ + "ENMF8;o`E=6TOHU5ec\b9kg1>;kdg;PTYV;o`hWicfk:0W_kYE\7G2AFNclA"
    A$ = A$ + "SghLWkL3:MZVb[c2Ii7^ZaPl3[\HnI\b9_kFlmkAO_0BVJ^l3SOV?SG8mOjW"
    A$ = A$ + "nYO:eY3WgoYEaO_]HmHXNi;l2_#ZCWJYlj\#FnQ[J<8o`:[hWS?lncLfWmIk"
    A$ = A$ + ">ogUOHfRURd?<NKLkM[Wi1>]:TcPohnQFkR#?SMZV:RmN[l3UOH]T]g9PmOo"
    A$ = A$ + "gOgkX2OSmTOHfRUj]OHXOCXB[RGOaf7J5aga3i7^29o#_TOHUog:o`Ef?\Xn"
    A$ = A$ + "FdF^>fSmH;Ugfk]EAh5;o`E8i7jUl3[loFi7^2o#XX>K<[FNK_Go_aKl65Fn"
    A$ = A$ + "8o#i7JBnQEnOK[Mo#J3D9\cJ;Pj5II?gTFAOASWg\N>Qn]=:9UAi7:o#CiUO"
    A$ = A$ + "8OkOZDm^3h0>0i7f0j7JYM]`f_=hC5bij#FR;;_Okgn]cLJE9\e`nf_mK?Xl"
    A$ = A$ + "#nQ[J<dFg?<YW7\Lfg`g^6]nb9C=2nQ<ONfgk\_kkn^Pb[T:nV85?_cbJKSB"
    A$ = A$ + "BicJkUe_I8b?DnQUW>e2nNg`n_Ako`TYjQO8Wg6KiF^UAkh>^S^cn0SmIOf7"
    A$ = A$ + "GkKnF3IO?L;RiZ<^R_GKX>5m=ThKncOn1UN9Y<Jc?J[Uc3Fi76^:2o`ndWnh"
    A$ = A$ + ">3Uhl`fZg]GkeN5MX7jQjnn^<Y9=9MN`V#E?l3iie#6b#LkEnA?jAG2VgGf["
    A$ = A$ + "XTWLf]5jij#J4N9FLAM8jK8NI5IId>3VhKZD8BnQ[J<dLh76jnY?^:2o#>CJ"
    A$ = A$ + "?bSl8MW7fFm^a<Vah6W<WA\<gQjmG>IZNh7bc^SjX>:Gofim;gPc^GNFa_MA"
    A$ = A$ + "NQWAXW1<9EaGk=NoA\_kT5IIdjkkSl8?B#iQl3GeHXi`?Tj>IiK#=Z8l3?h3"
    A$ = A$ + "nPMSaRcRmhekhlWSa9ck^LNL6g8o`R;];7b7f7PiaIdIeTM>OIo^:Wk<#AF6"
    A$ = A$ + "]kSjlnZU_OHXOS4=eX]7\TOHbSUjYO8WcndFQnZ]lU_lPb_TXheSH^m8?UOH"
    A$ = A$ + "b;[]em3gUMIG2:O=9o`:o_]Aa?\BOo?jGojWK\N5AJ7okl0ooSGF:bmLCleN"
    A$ = A$ + "SmR#Nh7F[bXMO<[nQImKUANi7^TU\TDO]Uk7bgV^\43Qh7bNf;[nQIiKH?ZN"
    A$ = A$ + "mmCYlfFb?<IbZOeDOo?hNI_kM_;Td^Yn>?HUU5\P54DnE;5ok_;`gXAb_\\^"
    A$ = A$ + "f9Y<Je?cZOHFoFIT7eEXmG8ZLo`\lmaSH84o`b?7?BkLcHcmlCmD?EZcKCeS"
    A$ = A$ + "_O:a[G#iDnQ9GD7INcKN^a0]X5]8gnoS_SR0k?4F3fR8]Q?iCnTBg;bSbBBR"
    A$ = A$ + "7;ojOok_K=i\mmHAF6Y>IFl3YO=cI>cam>F_`5^`X5_h5klf9mSOF8G?l3ik"
    A$ = A$ + "9M8:_l3YM?OS8bbHfQ#nNBQO8o^gh6ghBMNK:?OoDZDM2STF_#nQ9CggmMO^"
    A$ = A$ + "_Q[Qn^\E;m3o`?DjN1kONK?gDD[al<Wi<GYkmlmkfVgbRb3f:S<NIbolFl]Q"
    A$ = A$ + "g:CeJ]4cJMU\4ofgc#^GCoFV`4V##Y3[76m9j7oaO<hH8;nQL]3LP3<ei]Yj"
    A$ = A$ + "ak_\9[\bNhPiF<[kiVfjnQLokD>UCamk#5QnR_h;:M_Pc`Gl<XOnQ^_U[UR_"
    A$ = A$ + "GKXM5WSoh7FTm9e:Sh34jk[Ge4[;QEVZeN=[XkoMeDlkmhWai:don_oKZC7j"
    A$ = A$ + "3DXonLCM^6U6IU1jOJXcaMcQO8k1<nV1TeeKY]^OhX6eXLkcm#o^OD;m^_kk"
    A$ = A$ + "FjN1eEI\#<7L5eN^9nki>kUOfknh1GTN4FITb5k7\lFCMZC]DIZF_;2=:nQf"
    A$ = A$ + "JIlaOl7GGSQhWS7fiJDJTE6`?OjCOj153=7nQ\_HI<nDoCnQQ;n^Od[Ne[XY"
    A$ = A$ + "<UYTkY=RcXoh[e[m^R0oaOl7iNn5O?:<h1?HGmkRf?d:Sh1`gfWlFhoIUYJm"
    A$ = A$ + "^ZfLj76oN?n0h7NggmMGgbO>ocS_FJ43Qj7Bo33ikD1Zi`?Tjjl>[#O4UOHh"
    A$ = A$ + "Ri9Qj]d?kR#cJFcZdmRmH?f3gHc]a_F4kiVhm?Hof_mcM>8EdnQFITf#do]l"
    A$ = A$ + "FWaIL6[d_YD]cbTVCo#kkIX=FEPjF<_oe3egnfgEb?TaP`k^NJTi7bn[ReEI"
    A$ = A$ + "I;KIY>>J>l37dP6TKM`hmGAnQQ;NfAmFj_AAXh[g7_3jlKH5YoDlf3lMfQa#"
    A$ = A$ + "`JhD?FCKl3In7bKUVcncV;o`h[SAlnVQO8SgoOnWoY#cOjGDllWfMfi;GJTM"
    A$ = A$ + "_Vmk3[7C8Sg_i`?<?lITOHc[O8kSTlDag;^fH;I?m;o`RELO?NO3]kmfL5Kk"
    A$ = A$ + "Kboj_n[29o;OLbfh7]gCcd8kNM?jA?L];Va<VAZS7i7F\aI[Eo`lN?g4?_fj"
    A$ = A$ + "]N[S6i87YKmH[GkiafRnQ=UG8[[?eiImfi_3o#6k9SUKY;MYiJnciACiNQdV"
    A$ = A$ + "S_Igfn`?=:^O8m?<Tm<Tl3;fh\eXO8[WbdVfdbel:^_1kaLkn^l3cOanD<nJ"
    A$ = A$ + "i77RAVcC>oEH_`7gCTWo?nSohI>oi<X9nifQ1N#TofjX5ZO8#<CKSOogomDU"
    A$ = A$ + "6b?\HSchWCF\_\Vm\W]kLHVi<QecTWQQR]n33MX3e]o2hlkSm#GNTf#lf<VO"
    A$ = A$ + "8SQQijVjKL6n?gi>GghBH_2`IUHXiElegTci;lVH_VGTgoRG6I>Whlil9ObW"
    A$ = A$ + "diAbNHROWQe3>;YOlbEBl3;Rb:kE:RSJMV=_WkiNjVGOjG^]WP<?ahokhN6o"
    A$ = A$ + "mOh7nQYZmOelQiM8Wm;a9NRWXK=iINB\ci=nFcbm4f7k<7:9iN]]V#DgTmWK"
    A$ = A$ + "B[SJ]Y`?dj[1?;HnQb[j46]5m39n`kXJe3K90kcA>3;YlDNkSl6JG#m5jSB["
    A$ = A$ + "UkO0W3Nh[EYeG^iZ\>P1<0gcGl=a_Ylm<>NRE:^jI?kIYm>?kaUbKccOGl_="
    A$ = A$ + "I=5hSaIe;NQCLRCdiiTek5D7UmQHF^_`H6Z7go]kO]5FOiZEGZU4dg9f[8lK"
    A$ = A$ + "\5MIRc79FKIl=J]Lo3HOgROCUfoQecb:N#Kof_m^e^HH3KH^mJ4cgFeNoIX]"
    A$ = A$ + "6SK>_R1nn=`n^WlWmb5m;UWiToImN1[5DFSe\jWVDhg2hg>hLR]e^OHLHO2B"
    A$ = A$ + "Ja_SBK3j_0SQ:;`nBQc0OVc7l#X?LiEJ3\WiHm6Ym2eGSgFVa_Po8SOPnFPW"
    A$ = A$ + "IFb[3jP>8gIh0e=hnDi_oB5am_b;Sh9<i9?IGohhn:gOcJjCLBlBLgDU[jEM"
    A$ = A$ + "56[:Y3n?TVDgVj;llSnV`cfJm>dbkO=NV<_9QhgP?<m72OHVW7jC8eKI^AH<"
    A$ = A$ + "h=EnCna_S#lbINDJ_GCiRnMbie?oF;?_CBK:Z3P75Y1ogl\>Q1U7:GFobK;i"
    A$ = A$ + "7bcJnm?B?:oLoUiC:;`lQ`kF\MFTWWY=#O2Ym2cY3?_Xm#i]KIL]hS#\TUlR"
    A$ = A$ + "HVHWbPe?QRnnGiUAlg9?H>khnJF;C9YLE_Z[#iTbch7ohMn3Tfl\;]WIm4Kh"
    A$ = A$ + "MAm=B7BKlJ`[POG1o2lNSk3c_eQog86a8LcAYi3KgC:_NECE7SlZF??JZkeV"
    A$ = A$ + "7>o>7UM^?TTfDD7`lXioVWe9RWGD^XleFhmG^YZ;IoV5?_hiDFPdPdRdTWki"
    A$ = A$ + "IJ7?m]j5UgVQo<i;omI=?SGFZTWANOo[lb8U5[=DAl<:=WQ9iIIU[_Y:WiAM"
    A$ = A$ + "IBOl:hgC`;Rnk5gc9[n`YY>FU^GWVkUFJ4oNDNGW8NNI??bjg#UFRnQ2A[AX"
    A$ = A$ + "]LiN>V_Ain`iag>9aZRl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`"
    A$ = A$ + "Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl35"
    A$ = A$ + "2Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`S"
    A$ = A$ + "l352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352"
    A$ = A$ + "Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl"
    A$ = A$ + "352Q`CAj7fnfgnX>eY>5eU^dUX^e]^ib;Q#8JDYOm[OAM_kM_#l3k#7j#D7k"
    A$ = A$ + "H7SjLWkLDGkJGMn^2Q#dX2NQmZGm:gm3UTTTJ=;i7:999iUl3UTTTlBnQBBB"
    A$ = A$ + "BN9o#9999_TOXTTTTGb?DBBBb;i7:999iUl3UTTTlbl352Q#d^Xo74NT%%h1"
    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
    BASIMAGE3& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
 
FUNCTION BASIMAGE4& 'star.bmp
    v& = _NEWIMAGE(190, 190, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkMNo\DD455NnWdL>QiL>;6:4#4##PRT05I99P92FP:15D11:1D05D\0OR"
    A$ = A$ + "PB##Paj[jZ[MN3c\k<kfcdmlfc?lE_E4N_memI_cY_cmNWXGiERS42Q#842Q"
    A$ = A$ + "#842QX\<UY47=i9kog72AMbFfBLdVg\oOO84e53OhaAWndaAocoHN]_Oo84e"
    A$ = A$ + "1cKNaAaa6VkLSSNiG^mhkg_2Q;H?kYU^OGkbX]OYG:KTfG<DPgl=SSn_o[U^"
    A$ = A$ + "o2G8>j=NShXGl5=l2_P1ko]Ekkkgg2A_`ZFE;=_UU_LSFoiN^hXWmI=`[i?C"
    A$ = A$ + "jNa#1>bA^BMoQ>TAWod?MLdCnT6heBk;6:`4V`EZiQ;OISoW7oaSSNT7a0_6"
    A$ = A$ + "]ocolBg;JfliONfjNhCnThX7nQSSNP7`0_n9N2SW7[?OOonG8j6>i9cGgOlS"
    A$ = A$ + "77MogOLdMOg6he?jSJRi;_>RV:cJFi[i]<bA67M7gQ1dn?d3IljS?ORi;M_X"
    A$ = A$ + "Ya>fAWemKH3aAgj]Jh>_CC<o7ka<NM\almm_72AAQlcOncgIM?e^`]MKaAgd"
    A$ = A$ + "=InjmL?VchZcg:JR\\UeI=_Ua=^hX[ojSS^iK>>j^^[hX7l1=W_ENM4==>h1"
    A$ = A$ + ";^^OkK?>jJ_fhXKl6SS^mK?>jn^?SGWWiIdiK5=76kH=iW_XjNZQ1lfC<Oli"
    A$ = A$ + "ciK9WV?eC9_>RV3[Om5GcKIVc<>jj^>S?On<0ic?I^lU^G4j<`0UGgOP347M"
    A$ = A$ + "=GCLd=L3VcgN_g[bU_Xi`dVFielF`C?NM^UK9>JH3CibGdLHKK[kem[H5Vcg"
    A$ = A$ + "RG7^?FT;OZI7Eg2R#VGkeRS>kIkNM?nS#gKmjXLi;J2\X5emJN;lI7>OKbLi"
    A$ = A$ + ";_>R#Vm]_NGgCmKJcU?NMD^l5Q<SNdaAGjBm^^oLWc4[GibGd4PJY_GelFVh"
    A$ = A$ + "4_B_>Z^54Q8on_k>M?cK1bUObjFPLi;_>R#2VmO^Bc3hG2]^=Gnb[S84QIoW"
    A$ = A$ + ";em`lWO[LiK[K1U;OAX0cl?VmO^Fgc<H#e]P8DQInW[elF8f>W_Ee]P8dHgk"
    A$ = A$ + "^jdmOl7?hLiW\^5D?8:l5YWoO^VCM:cIK]ibGe]P848[ioW[IDSBibG4FLh3"
    A$ = A$ + "Gmjn]^Ee3RR`QgiMZN=?P?:dkZ^54Q0KLSeS^7VndE?8:23n[oZndmkOoIW;"
    A$ = A$ + "OieADWlN_GmYi]PgV\j1AieADGlMOGm[kGjBE?8:l75MnoiJ>fa6\GWTibGN"
    A$ = A$ + "M4E=UInoiJhW_j1AQ?PiLS_dmOfWMUe]PbU_XZi]Okb=ooL=Wi<6omY[K1U;"
    A$ = A$ + "OAEbjFWodlF6ohEM;8ZGnSo`ojNbUTZK1AMaDWZoel0mP8eZPj1AAM`GoenG"
    A$ = A$ + "cKI>cYmmPXdm2G#_>ooL=ol?[N#DDmhRioW[Qlf[N#DDU\gmjOMNJFmZc_74"
    A$ = A$ + "EM;8jEXOW^h5m_>?=D?X4_7_>Z745^6j]KO[acSA<2Eg2RZQSNDo[_c3VGE:"
    A$ = A$ + "Gn2GcTVToef]3Z;DlhXN#DhBfdVl_f^C<UYTM?8:_>R^1VoOomOkOMMWh7nQ"
    A$ = A$ + "Fib7_>Z745m2EilocU#mQbiICg3Rb[SXKPI#__ed5U5_H=kT5m>TO`ZLnoiJ"
    A$ = A$ + "hI>QZK1A_b:GYoebU5R[KcU_ZK1Ag`_l;nG7GFFkJc^74C>kTUfGT7d?CnF3"
    A$ = A$ + "g=LjCKliXIW\KPIT4c^Un5fi>m_6^KIi;gl\#TWgFCKJaAcNfaAcKNVj9mmO"
    A$ = A$ + "ohXU\4o_njB#KFEjnA>BcLZcgkY2AB#CRf\ZSkSoAGlL9F8j5XfHGcJ<Nfj4"
    A$ = A$ + "^Bk?SI47MbCjoOg5mWPf3oKTOZlPcaH?;S[dolmPW]=kKOnO=#dO1mnc[nZV"
    A$ = A$ + "lCU6bE;`ig9gEYeo^#gcg;nnbcUNikADeP_6NN:amO>;X6l0^G5Tk:nL0jO["
    A$ = A$ + "f_Gemf[I`g;n<5OnRjd]>W3lRn;>a9RS6cH<g;R\PjaPJCRkA7i\U?7Pf7]I"
    A$ = A$ + "bkIA_XmC[kicEfi_NEn\\DdO2iC6m<g3^\Pj#RN<SN>Pjb0m?eV1Jbdg[>G4"
    A$ = A$ + "c?IlNZi?nIaWk8OZbgSXG1O=cOnVkkLN#mgAmH#]8QnWkA7J#dRX9C7_gUnk"
    A$ = A$ + "9>?eh=N[X7OX7gh<_3<PoGk4=C#kPfRj]8?\mB?JO^_d4c7]7J#dRX9MYond"
    A$ = A$ + "NM\JOlCQ_:^V4G_QOnnhi1RXIcfg^9nmEMEG9GmEKPJ>5M?alYG38F?J>dNF"
    A$ = A$ + "_mYel^:?nIYmC7gW?3^`56VcO3AH1J4VkQIYgCZkCZi;JLNGG?BYen9?W[e_"
    A$ = A$ + "?WgPW9>bgS8?HnBSF]CJNlg#mfQg6jUBdFFol9?7KEZicb_ObcjbeJXnGiJ?"
    A$ = A$ + "LN3nZlm8BCkleHQHlXia??nJ8?>F=5J\di\\>[iDikAD6X?fJ:nJLY_W#hIW"
    A$ = A$ + "P`?dDmeh:O?Okgjom0AmbffFcfGSlm8:3h[QnOIXP_6ikAD4H_Uhc3eleD6m"
    A$ = A$ + "_lmdOAEh[9dekMS_W5\0ikIX0mCnJLU_WGoeU_WV<7ohmWnJ:Sn??O?D?Ybg"
    A$ = A$ + "Cc3le#Lk^eGCEDklQ4bgc#;`Gc\VUled=Jollm`c?Cik9L1O=\_9O=M_n_Mn"
    A$ = A$ + "NnV_aokaR13?7[KW_6K<nnEO=U=fONnNX7LT_7o3nJH>U9O=^Gkg>O?L]EO_"
    A$ = A$ + "gg_ba>VleDejoTnN\mcUeg3e`Z_e0mKlEOUleDWanccg3ckdVdcVQV:bGSod"
    A$ = A$ + "nbgSOX\nJH678O=^EoWW_7FOU_7g3nJ`[BImeT^?_U_VNGk;O?E?bGCh#Amm"
    A$ = A$ + "`L3EnNjN`G3jEi[9\XCnNhJ\bgCgQle4f8O?^5FSVi<U_VV0iik9iljDnNj<"
    A$ = A$ + "^`G3[iIi[agJTQbDDO?DS\nFS5J\e]:O==I:Z_WE\2o[e25hIKXle<dP>iki"
    A$ = A$ + "Sn8o[g25HV];O=3M8?O?4OB?GFJ1c\Ddg5YOXT_VV1IikQlEhK]FX1c`UdJN"
    A$ = A$ + "i[YiCB]ogomnGW5J\Y==H_=F=?cnSQ=<i[Y93k?l<HAiao:i2G`Xa]WQ5_=4"
    A$ = A$ + "WgZiKjc_VnMn`?doJ\#5N>LK?7;m82niaKCbWCDbGCcTSNDo[_2E>`1JiaQL"
    A$ = A$ + "g`c=7ReSOnd?C0mmnXXh<i9kO]EX3eA6jNRgS^WnI3M_=F_dl=?fbFl_^:d1"
    A$ = A$ + "OPhcQcdR?7NN8C>;9N_eSS_g7557Z=WcL6o[[2M>eY<gS:>G;WcUNiQWmgLV"
    A$ = A$ + "FicYiaRFToeD=56cHJiaWli`mY2o?b[CcSm_Oo[WJ:`Li:YG7bY3iaTkEURi"
    A$ = A$ + "gLh]N[hX;M9o[WJ:`J5eP3nM87nlJ^?]T;C^7]Bgg<H][eoJYV6cM^iW?Cie"
    A$ = A$ + "YIPVU\UWOkgJMOKY6<YNdhnG9_>=3Vndm_6ZY2jKlj#]HVll]fjACjn`5=kT"
    A$ = A$ + "kNFoj7L=;XLig<PJ[mOoGo[OJZLfcJdlIU;OMnf`UU_Lo[MJj<a9fjl]D3nD"
    A$ = A$ + "g2:GnQ=7j#nGgddI?kYE^lil]:GnQ=SOlaAGnbnGgd>>i9=hkg7]3F396_bU"
    A$ = A$ + "OcP=^Ao[IJ7kNg6O30_fg_OJ7;I93^6=E^l3G2ehXL_#C?g>8?iX]lmk]lPk"
    A$ = A$ + "oQ]obil]fLi[JE;\H>caoJU\PIh0e5JNc\3VOoQjWGiIX=alCW;OMnf`QM];"
    A$ = A$ + "o[CB3_W`CCWV?ChO>4mmlUOIneU_RikO2]n6?;O=]K6lI[mmU]<ooN?9WolV"
    A$ = A$ + "liHkgLU;o`RE_Jo[A\d9O=YW7I4;5O4X[PA>b`bg3elAjLi[N#<<PjYbgj3X"
    A$ = A$ + "XnJ\WGd>3nhO3NM0N=WOTLXkkOOPOjWD^l3AVdTl_f0O=;NaMgLFUlT#<Db?"
    A$ = A$ + ">`[i?SoOO`746g?2R_K[E=U;o`P=_IoZ9`Gc`7Name#n`C>?b`_<j:dA0_Vo"
    A$ = A$ + "<>39oM6mXm__7lAJ[E=K^lE]Zi?`7mY?]od3UeGCbWSa4G7o2fI`7a>1k<LV"
    A$ = A$ + "oOlgQo^nfgCjn>Gibg_\`5j7M0nJXWeMilS?9I=on9f?c_OOikQ[kXn>?<HO"
    A$ = A$ + "k[ngokEO=9ONoUe\5>i<L>mc[AnN<ZAi7O?lLb;M^leiK[OlAOSc<Ef5nJB>"
    A$ = A$ + "WEC[G\JoTc_o#`gc5_XicMZFel;[I=egNNEh[YMcIeRlL;2=8mJ#Mjk9_n>G"
    A$ = A$ + "NMZ?Z[n6_ZmeTg_OUagCMmLLi87AmM^?IJC[NfWaG3aeJWV?[W;>UaGCWXXn"
    A$ = A$ + "NZ[jkQ?oYn>g?De?;b[KO=5Ak7:nNFgjDOWk3XfH[bn67?3lcY^med=Jo\lm"
    A$ = A$ + "#mmDUnNH>kZn>_nY:[IaM^Cok[Y8jOOkkI2C#mMNMc1?Xkg7aG3g3\#aGCAd"
    A$ = A$ + "nndg3gWJE[Je7SKL^OOl4W`lm>dled=Jojbg3k1lmGib_NH3K8lleTnimGM_"
    A$ = A$ + "Wk;O?dG=Z_c[7LEL[VV_VRXm;R_7>KT[^Nia?N[Li[JE[jHfcfMnJHoXYi[Y"
    A$ = A$ + "KdnE]_7j9NegiE;^hi=>nJ`WBCfGCAdoeU_W_h;DOWGU<RAdKm=>nJF`26jh"
    A$ = A$ + "[Y8Joj`g3mM>G;DmMNe`ZFUleh2]OEhkIZCEmMNEa_n[bGC_XokT_7RAg]cO"
    A$ = A$ + "XOl7E^l[2NggEnJLQf_8nNFjBk>O?hYGmM^KY\m=nOnWUgG3aYJjnJj6]OFn"
    A$ = A$ + "NH6LEFO?h3EmM^kX\m=n>fQleD4mOJO?lkL_hkQnNT[KZLik6`[BAme#M3CL"
    A$ = A$ + "Li[YHJoRjkYXmb9moRjkLg`NgKWG_iJbDKb43??MOoX_V^AkWW_7b9FWf7ff"
    A$ = A$ + "fDOWk2H^EdYH=L_G\?G>8F^leDNLU_W\jkLngYcgF>nd?]mnJFi:=nDhjZLm"
    A$ = A$ + "edajU_VRS[lm`cP0U;oN3ZkY\FKIfMAO?`IW\cXJdg9embGCia5nN>lQEOWg"
    A$ = A$ + ";TGOS_omKV]1LV9f3`gBJ?>bGC_A_jk9[n>gjeAalK?L6YdnJFkJ=aO8_`LV"
    A$ = A$ + "9dc4;gNNFi[aMDDO?lli:]_7V[AZ_c;?TKVcM^1k[I6c`\fCL7Re#<7Km#aJ"
    A$ = A$ + "LbWK8bGSKXKmmXn>_kPc>IG3Yf?X^YHMW[gbJ>G[eNNFdiXg]gc4i[amD4O?"
    A$ = A$ + "L=PTe9>WoRm6egi5W3L0ce>I>]HGcImV[cbJ=GSejaQeFkc:7i[YjX8nNH]g"
    A$ = A$ + "jk1_of[mbNUZE]fcH7[iNN?cIfJmVe8FWi\A\6Kmh`J:jMkc:7bGLJO=\6;="
    A$ = A$ + "_KX<nN6H0cNU]V^]GC#ib?K`7?nJB^FcJ<[_4KQ[GbJ;[UfW5JbGCmBAmm`i"
    A$ = A$ + "dH?bf;3fLi[n>_H[_9mhHSYPF7hebGSOfK:BnNB^?YjFXh[]F?>4?Q[UbJ7a"
    A$ = A$ + "C`C3OEnJlknCWlm`N4JNn:kMfJdDNMJojZ=?>h;Te<^F9[O\VBL5b;\lehom"
    A$ = A$ + "Y\lm`N3kA\GaN6kM\7JWSRb[Cn[WFM_MMTl03LmBR[8O=Q1]cg3kEfm]TaYT"
    A$ = A$ + "^?kead[Q4W0]>`JWle4FTFkcN3kA\GaNVmIEJFaZlmkm#QT[Qf[MbJX5FgT_"
    A$ = A$ + "V`TdnN\nn]TdCZREUojW=fABD<n`V\RmWgnW_O_6JTL];;TV?\AkOmnJGFhk"
    A$ = A$ + "gK2]7:42Q#842Q#842Q#842Q#842QX#loLUV%%h1"
    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
    BASIMAGE4& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
 
FUNCTION BASIMAGE5& 'wall.bmp
    v& = _NEWIMAGE(193, 192, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkMVoDKKl66?094`LK<H3H\aVS#`4P090QLA^94BPLl=9CKcdIji?eYMjd"
    A$ = A$ + "[IjOlkgmIIUA\`F]j`[TIOoQ?S5Bkka^jiaBfH3e[GWEGBU:EHC?md\A6I4f"
    A$ = A$ + "#3=4[gNkUeC?m`^jE_Z0\=1Ak6#7W;G>FnliIS?nh\5GLIFS6[b^i=_=Kmeg"
    A$ = A$ + "DXm[E[VP9VH2FYBUH3>hP\nk_OQ^_k^kF`E^bEJ^=1Ak6#;?`038Nnm:EZaV"
    A$ = A$ + "Mf5Hgh6[aFMeeIc=gLRWo_Lib2_26OWMf9[S>jPMY;M92R;<0==dfhJ3`?\`"
    A$ = A$ + "2;bFJYUIc?ol\YVJ:ae0PGibGnbYN_B#d:1JLLoAE[R[7<?oNSFT=l`3;^o7"
    A$ = A$ + "hABknSP`60]>dmhe8dXASVgo?Mo?4^2#[3=?dn[\b:Rk?2g7DJgG44f4_G[l"
    A$ = A$ + "J[]FcgoWd^W88\9N_GW[_njT7P`91_fHh38?0Q[RW7HS=fPNm04>99Q70_oB"
    A$ = A$ + "MeEGWjg7=0KC#dZ`_>3J?X1Sbk[OLm0hmF2m0nm]Q?W5hggl2;\P0\=1A[2o"
    A$ = A$ + "j<XmP64Ja`nNk77?0lL8FlkG6ONSfNk]IgkNg[9gm^gUPXUQO]6dN#32]8dT"
    A$ = A$ + "Qij1Ae3hmloS>jX\mgOOfWolWIoaOl7\oiOn7fOmGo5k?ocoTPXU3dJ#c1]7"
    A$ = A$ + "dP#;2=IH^N#Dm0`WQOgJhcGd7oh7IOogom\on_oKfon_o[XW88\5#c1]7dP#"
    A$ = A$ + ";2=IHn<o4E?0Nm7hj>GojGWmcol?cnmOogKb_mKo61Qe`_f3JAX9Qf4JdFY7"
    A$ = A$ + "0aQ?We;]dB\OjWn9f_n[oZXO`Sob_l;44F3oJ?X5QV4JCCo\?7G?0nlVn]Ok"
    A$ = A$ + "g:lONlSoh?B#H=l[mPF4JBKh1`eIll0OmGoe\Oh7nQVlMOggA#H=l[mPFdc3"
    A$ = A$ + "dZ_G8To9WLBagmV?mY?9lONlU_l522[QO]7dR#C2]Y=l0hkLl\c>;komQ?`n"
    A$ = A$ + "bgl==kY_j[n:22[ACo0G32]8dT#KJ3?#aR5Ie[ESMdQ7bn<go1nT4lNDA#dZ"
    A$ = A$ + "aC_iYoPF4JBX=]U7XVd3l9OmCJ_^#hFhYkP64JaJYP7heljn1Omd7hG?RP`F"
    A$ = A$ + "dDgaieI4?`kimUAlN52KLV>n\:ZcS0WG_GB;:oZW?Rjj\US;=m0SEL<FeJEI"
    A$ = A$ + "_ne_Fj9oXPgagf8NW2Q=>C7OF5eiAPc[g9Y5UOec7AMMfbaioJ2#;F]JEfHS"
    A$ = A$ + "=VEm07L`1Lokk?a3`gf8NW2Q=>C7OF5eiAPc[g9Y5UOec7AMMfbaiYoQ64JA"
    A$ = A$ + "[j1he1ekE_jElNoM=k5\=1Q]`_^3Jadd30Ohk5nidOMQ`M`_^;]l0_TGgSle"
    A$ = A$ + "C7MdABNW27YQP>^Yicdj5el7G2Z_ee7QMm9Yj[TNM:YGG?>Onm3I1?`KOkac"
    A$ = A$ + "a3?4l>5hkckH7iOKO7o`Sn_7WgH5K[<f33jhW3n?fAWCoN^SCGomOToSlUOe"
    A$ = A$ + "LMX_mOZOnLV?jZWGLZckPjCehdQ^eiCeg1]N4T>8Xe_cf7`30=GZk1Ni;Kj;"
    A$ = A$ + "?^_<#c5ei^AWC=8ojdfV>^4iLhoANeEW`>_3kjUANPH\NTDj0ia?BjQm^n2d"
    A$ = A$ + "Rfb3dYd3DYBEfNljNbcOmFfKhmfKNcQji#52kh2:NCc_jh3khRkl8XlZ;n`>"
    A$ = A$ + "_3KLQ]NaMM?>[O2_`KKNm8X5QV4Jc>]P7X0_>CO:?0h#f1l7?PgOJi#52kh2"
    A$ = A$ + ":NCc_jh3khRkl8XlZ;n`>_3KLQ]N1D7E=MR^n9eLNGO0JAX9;H3?#WM:m0EH"
    A$ = A$ + "_h5kM:oj1_i=Y:_BBJg7]KdZFgNS29NnmMm1X5QVDh1JaOOR5NP254oO;kI?"
    A$ = A$ + "K?f17hc3L`1Y:k;9]kSf=JGGg>AgMX#;2=9dVfd3ldWm2f[>h4O>N]iY9k;9"
    A$ = A$ + "]kSf=JGGgJZkhJ#X5C3?`CNfc>ecOPo6_##H;lOM<X5C5?`COjYNnSdN=Q`]"
    A$ = A$ + "`oeaPF<=l0?j9?Q]W_NJ_mfCbn7cn1##ScdlHJL6gGbiQ^heMlh>O=>nmT4S"
    A$ = A$ + "LIdlGCMJNN>R[36_N8[_VjdDga1JAKk1:kc3hO]i52foHf?02JLVVWPRkUB<"
    A$ = A$ + "^_Tc3MiEgaSklehhgCB<bUAcO=eYiii8^>X>Ol>oLVa8[oiD7XgNY4??#I;j"
    A$ = A$ + "1bc[cTlj]kSN4kilNkiliaa\GfSGX#Jg?49biWCmL]l]QF4Jblfd3D^laN0A"
    A$ = A$ + "_oB9HkGTmhiBBknP8i>o0?0Gc1N^W7P[9]V78ONaO7GN`^kbNjc?I>lD1?WP"
    A$ = A$ + "Xe3g7h7X5QV4JCKj1^?_^?Qg??S[m1HKR<8?CR][G[^^L]_0nfg?Ul0gk1?P"
    A$ = A$ + "mhWnDR\>?FR][W5[;dRfd3<2_>C0?`m_?kalG?>A6W7;afecRe5JAKj16VGW"
    A$ = A$ + "Blj]cm^7Kg7oh;>\[Td^?BkiEDG7fE3FX_QFdfNPRB?`3ie?fl89aMLVNLMS"
    A$ = A$ + "KG9a]?==^XV_`6O#c;MS?\mg^J8Zc_#4?dRhiU7afNPMfQgSk6?NXV]3kh<m"
    A$ = A$ + "h?DIkT^?==^XV_T:nd>o9<#;2=i`fb3<b8\RU:a^3_^?hQ?<nl09aMLVNLC["
    A$ = A$ + "GDkCCS;Zi;YR?]cO22dR#C2]YEl03?\h_YMKa[kmhe?fl09aMLVNLC[GDkCC"
    A$ = A$ + "S;Zi;YR?]cO22dR#C2]Y=m0KNWk`^k3NPiLO=4VLH3deWImn=Y6GKhiCX5C3"
    A$ = A$ + "?`]gJ;a[5aHfA3Q97f0MmIF_OCZae6Nn4JaDa3\iV\M^kMKbMDh<kO7=XKl1"
    A$ = A$ + "\oF6bnJ79jjGKeWkXP^nediEB_>MVe[#>_BRe5X5]Y7H`17V=fH5IKLkKcfV"
    A$ = A$ + "OOH0LoHK]m>\=U\U2K60j6oi^oMTH#NS:RjM>c[`fo9BO`IK99MnCjn<FW_3"
    A$ = A$ + "aiE_c?Nj?X5QV4JCKi1:8m0=e9gAfOKM2K9IC3Agh5kg;ghakhKm84i?DXNn"
    A$ = A$ + "96mOLI;5JIci4Z?SdhEeiVLni>WllD#;F`ZNP15o=\HMN\K^mf7cFKc^5Hcc"
    A$ = A$ + "bVB>_SI<KYP1aT8e=19[d?a]?DS_E=_dUGangBRDo1]8dT#KJ=?#Q27k1h_F"
    A$ = A$ + "4?fHccWK;Aga=V]THhhC\jV#TEjWhf7ZagZVGjb[gnm[m4N0^VdfNPeFOM^_"
    A$ = A$ + "LcV\n]8J_iFBBkn`<l[mPFdFNP>li1FQGg=hegSeghf6bVB<MlQ=?VVo=e##"
    A$ = A$ + "i;Xh2:OVf7jbKHSgdnL391=?<Mm:Xi_Y[oWolg_fK5ONP>\X7h6[]V_WkhF2"
    A$ = A$ + "_XIL;9V>n`V7Cco]d##i;Xh2:OVf7jbKHS?ZmIB7GDGo?oiOCM7W6L]Xel0M"
    A$ = A$ + "d1K0NM6UG_UGI5f=U?g1N4meZ6a6B<MlQ=?VVo=d##i;Xh2:OVf7jbKHS?Zm"
    A$ = A$ + "IB7GDGo?klGh3PVCB3^F4OGRQf4JDKh1#mJLSKL:MoJL_hZ>5[;iRJmbhmY?"
    A$ = A$ + "]7dRFe3<`0\lS>:K9NMGa[?^i=I[`k[EFME7QeDhRFmbhm9dJ#caeN0X5QV4"
    A$ = A$ + "JCKh1jSGWQieKa6=H;ck5lj2^1__`f;S798JehYe`SLPF4Jbn\Y78ONfehe]"
    A$ = A$ + "1_?J2oNb88\6ndN#;2=Y]m0;Lm6l[1]j9\lb44f3OJ?X5C5?`eFR]DSElA32"
    A$ = A$ + "2;b9J?X5]Z7X_n4O6EWKQ5I;^dbnH922;b9J?X5QV4JCKh1ba[cP2?`eHGKY"
    A$ = A$ + "6nH922;b9J?X5QV<WUl0mb[c0lj=kLcaFHa5KbLaTT:?IMLUiI[Nm`_f3JAX"
    A$ = A$ + "9keVNPQ6jH?`e^FCV=V<_ThVW\>^bl\E_NL:]7l0L=Y]m0eVMFnePFX9e98\"
    A$ = A$ + "8neN#;JE?#^LROWdc`[k\ljkAmiS9Nc_hVW\JOXVg\bl]=5oJ?X5QV4JC[h1"
    A$ = A$ + "j]Ga_CjY[ES=3oJ#eU<CmHbLBRKNbZmQJNc:cgfDZkCkEU[5QV4JCKi1j7NP"
    A$ = A$ + "IVAhoZ9IVjcbZ67VEBLcCF]?DcKFInf62dJ#cEGZmZ`eRYR7XJEN_DWgC7c<"
    A$ = A$ + "c`Od?N7CMo4]FJGFgSAO>S_hafC?MEQVdfNPbL?#5_iA]jL_H=FUZ0\]lW5D"
    A$ = A$ + "ohmY5Oa5YSK:ZiYV6RKMB:R#o<S29jjH2^nL^mYYioHM5dL#kQh;KI?`Eie9"
    A$ = A$ + "7_Nho3PUiG32gC4^V0f^LeI4NSSao??S62JLVVWP#=?EEfFMOA]>959el>Yb"
    A$ = A$ + "GBg?A=obS9eL#kQ]QF4Jb[JC?#omcVPGgYhmACZDABE9Zo\>2JLVVW`FW:J8"
    A$ = A$ + "^e9Y8YkWhV_FmjC8e;ndN#;2=Yel0laV;G>FYYVVkoZbV\ZTbETDERj?[SP6"
    A$ = A$ + "WYiIJ9VVW:J`dj4DmD?^^a[KLA]OdE7_l5dhdMLeh3Z_2KO7BmRW^SC9h1hJ"
    A$ = A$ + "BX=]Z7HRb\9WRg;ET0?AXXRTTJLC99^iadj4DmD?^^aKjh<]O<]_2ZO<]OSj"
    A$ = A$ + "iMCkG=WoldMCGQolaUC5?`hUVTEJbb\BUU<iTQTbBBZaI[l#T>W7DR[Y^[\#"
    A$ = A$ + ";J;?`UTN0lkSK\BC`:>iD\RC9QgGQSYTTDScFiQ8M>?X4GCMgD\a:>Q#CN\>"
    A$ = A$ + "^ek1jV?fNhe[`hU4n_CX41Q5i4]GQa:ajYgL\^kf2N0>2?0_Nh_c_SGTg3L?"
    A$ = A$ + "hh5;9Y81Q50J=XkVD0dRmdSW7`<ML\l0Mg=?VNIi;<6oJ15U<>1Q5aCgEB0d"
    A$ = A$ + "R#C2]Yml0m`6QGgAimaXlNRP`nD\9S8l0mHM?``i;`mOSkS24]ELail6nndW"
    A$ = A$ + ":NPA6UUOdah<^TA9J[`klF19YMo4M`oGR]Y7hbljd=?6lMH6n?LmPS9?AK55"
    A$ = A$ + "D8]kWX3dR#CNI;j1^Rd3<4_n3UOD9i9J[HD5Bkn9j0]hE\Y70ab[5noOf#3c"
    A$ = A$ + "k1h58R1iE8]kWf?`og1PV4JC[i1^Bg\16L8fP3=2WQma#nNllHH=KKjh<=NK"
    A$ = A$ + "A#mSoeTcKmaKoSX\FVeWGA=OaEWLni1OGRQNf^NP[8ZKb=g^hi1jG#HGOb:#"
    A$ = A$ + "N0Sl03<PhJ#3R[7L:6<0Rkh<=NKaig?m;9l[?I5Bjn=Yd9W=?#;V6NPnjK0F"
    A$ = A$ + "omc??go#:<H04gaIJlfRPjW`^nTE8YkgTBWLfl0]X=m0MaSmblHca[KOXnZd"
    A$ = A$ + "W2jf_Y7?[7Wjn3JLV^NIJOZ;_VF?CcCD?_ZKm9^eaG<#;2=IGFb3d9?f^haR"
    A$ = A$ + "oVNQ_oJWQL:XKoVNl\NLZk?XaIjjUYmY^lJJm<=?AmlZ^eWhF7Oa0]8dTMJ;"
    A$ = A$ + "?#GM9lKhc[=nklkI8W2jf_Y7?[7Wjn3JLV^NIJOZ;_VF?CcCD?_ZKm9^eaG<"
    A$ = A$ + "#;2=9dVFa3dIW\^he2OoUagS02Rd6X5QVddo7eg:l0GegSGEIOoGKWH[1:K7"
    A$ = A$ + "gj5Dl]jl[KlZ[_1]^KM]H4kWH_NVFN0lMYQ7[8N9M;akWE?^jnC:DcOL[G#a"
    A$ = A$ + "gZc_^a[^n6dj^]9ZmC\G?iJAKk1086od]2j>^jnC:DcOL[G#agZc_Y[_1]^K"
    A$ = A$ + "KRJo4gngCGJC?0nLZB#TEPl04^>YQ70O>E98b:#N02G7Kj1^4Z3l0hc<11A6"
    A$ = A$ + "1?MY=m0hmRRP8[PEm0:gC41AFP`ZO9?0a5=B3?#c[mL1Wc\FWabGH[KB=ndJ"
    A$ = A$ + "NX5b3dbe>T78K<?dBJh188JSQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl0"
    A$ = A$ + "4^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7"
    A$ = A$ + "P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl"
    A$ = A$ + "04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T"
    A$ = A$ + "7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQ"
    A$ = A$ + "l04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>"
    A$ = A$ + "T7P`eQl04^>T7P`eQl04^>T7P`eQl04^>T7P`ea_78G^L\Nk]GF7MdAZgG44"
    A$ = A$ + "fR^k^Kacm3?#nliI3?l`\>k\cD__88\1hikacmgOom;l0C<a4\a7OLae6X[5"
    A$ = A$ + "#LA7XakZ[^H3>hPRWk7NP[Om6\iWoJ\nj[?am7Ufm81A[4lLmhNP:EZ4KZYV"
    A$ = A$ + "Bh1FNiEinPUIS>J1^gH8Q?0S3gK4l<44G40?g?dehen>`038doC?md2?`=_i"
    A$ = A$ + "]I[]f]H;^hb\iVKAFQ25H3=d#Rg_8lj6PWPPXM6XSamiPko1gk?doc<c<\Je"
    A$ = A$ + "ZaFOm=hLK^?hFR[7\hR=HU;GVE\HAam:QHPW1_f12RfAPn5<b8S`_GWA5jk:"
    A$ = A$ + "EZ8doe[GWmo1OR53%%%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
    BASIMAGE5& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
FUNCTION BASIMAGE6& 'face.bmp
    v& = _NEWIMAGE(300, 297, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkMV0eLDEU7_b>9Q\#24P<12Q\_72RA6A#1G?ZSRh9IHD>A<:PA>RkSSjX"
    A$ = A$ + "h0Z7L2<X7S:P2ZP8<jX\916A9\4PX\JRB#F2[RPAU=A7GB=m__bGjZjdOmG_"
    A$ = A$ + "lZjNOEMo>WO7dT_^CGgkmm_O_kkn^_XXXh83333333333333333333333SlS"
    A$ = A$ + "hH3333i`d[<<<25<m:33S#Q^D_j0?`3d```8gad[<<<25<m:33S#1C_b``8D"
    A$ = A$ + "`d[<<<25<m:33S#1C_bXCH:[I=aSM3K#nmb^6ka5OaaCoT>9a]9657VNUAoa"
    A$ = A$ + "B?X3:N2GiE6?XodOBL]Yf1nL>m?`7X_?gBKk<b7<m:SmmD>UhMin_OaeKbCh"
    A$ = A$ + "iSWCY]e6m6VNEeTUlBN9a3j?oW5G7ATiQEkiVWOYm16M>VNEiW3HI;CL=2]c"
    A$ = A$ + "`Oh7FLoTa0SYGENI^o;o;R[34R<WSnX5ggIdL<mZb3cl4>1a7[G6I67oa7_d"
    A$ = A$ + "U^Dam_6VNEIPioVNCR?V^:`l>bSDLOME7C_:<IZo7o7R?n]:cnnYnDfL^40C"
    A$ = A$ + "_:\h0NA_8a7[JDWU\\UIjF58VNUnIBG`58nhBS16lCVfEnRYGYCVlGj;9nh?"
    A$ = A$ + "S^WmN][ed^b1<m:mQdSe<l3ChB^4Cc:?7KHjERa^MEGUhS_<b?6ojFWYMi1<"
    A$ = A$ + "m:iI?^X;BlaC6i?kngnKKJFm8VNU<<SgmkFla?6badGmZ=][^P<fAC_Z#HA_"
    A$ = A$ + "bGYhSG<TW5lbOiVVE7B6KXYGU[<Y;l25O<RQnHg]jPX]9S]cd[:6k\QA3<[g"
    A$ = A$ + "bKad\jdaAVNUgA;m>HS`P3h0>0CgZ5TaNIjENUIO\7[hao6Q7cLU[dd\j7bH"
    A$ = A$ + "[<m:_``NRW#lHNS`WYMRWHOjFVfEMbHS<mZNRQoX?Zhah6U?6fSl8V^e1JjE"
    A$ = A$ + "nTi]RE8NL]AiUIoVOcVNe1JjEm:F_AgX8IA_PG#UFg:Sm`d[j8f_?iWDlhGS"
    A$ = A$ + "Z7kc7oSGIe\bH;<mZf2[WiIX1ZRen#6KPYGeif<33QHo>aC\bYIUa6HjEVFU"
    A$ = A$ + "A`aRGlR[<JFINf=mZn5^?PU>^d`XoH17l1G9d\blLKjE=Umll>?aS7=<68fS"
    A$ = A$ + "_fG;N9;I9UJM[<?cVNe>aX^kkFlh#3SfUMIcK^DGKYINN=mZngfHH4#\X5]X"
    A$ = A$ + "BYVEVWCC_bdZ<:=D6gk`<?SVNEl#omoNaSc<<l5CO5[XDYIUii[R[G5]m];N"
    A$ = A$ + "lUQQ_I_>eC]d<G[<?KEHm:YSY<<bCFh2GHY#c:ccE5E_J??ocGlh93SlV9L^"
    A$ = A$ + "WK`[IUiIZRZG9MLTQAA1e2?JFB?Vcd[jLfkcn\5?na`XXIgGkJ3fiIUiIYRY"
    A$ = A$ + "G9MLSQQD#mI5Rcc:ccA5A_JF7ga9NlRQQd<eE^bPKNFIN6Z8jEB7WHHX52]N"
    A$ = A$ + "k#V?oULmZUN#7Tha766JSi]`56<Wi`<Of;ijEB7GHHXE2Unj#V?gUHm:k>1d"
    A$ = A$ + "`XoIXojOMl2F`2D_VEV?gUDm:YS5<<25FhOO]QB?V]ZZG=og`K#lH03S#QYo"
    A$ = A$ + "ZNEZN?3cli]TYGIWOI3S>Wi=_iYfm=<cWebVNU2lmM=oZOELdBFBkk?nLO^T"
    A$ = A$ + "GSdO^;SPM5kKkh76cHRS>VS9Xm53K[K=NncOnZL?3clI]4YG9]?_SIlS_c\o"
    A$ = A$ + "]3SKLfL<=OAGS[W>8mHIC_BA`M_Z_7Kd8;KI1gH5A8_m31V_H^cM^Z[_:gen"
    A$ = A$ + "[D_>YO6Bc4Fgj4g??PL?gCa<fXI\lU7<SG:4>jSF>Oa?oW77mgnKbK3J1Sib"
    A$ = A$ + "^<EEKFInlE2d[Tfo>P<fa:gh37OV?CLdOm_:_]#Jn?o?UgG#n^D^VUVFGHV?"
    A$ = A$ + "K1\Ne2OE_:MgkeUNLAch`?lhXo_o_Zgl]Z5[8^]_A^_k;>j_lGTgfd46l_mg"
    A$ = A$ + "fgN6ZQl_geSYBmjTF[JWN>d67oa;ohQF1SCZ:JFBK[K5[LU9ceBQnRMod>=E"
    A$ = A$ + "\^`^fGVje9]Fe\FeZ4gOfDN^WCna0];_lGNiFgjenJUg6g^l`?\:GSX6boNV"
    A$ = A$ + "?C1ZNe`Od7ELOICYVOElHo>QohODUSCl2BKKk4F`2DigM<cJac^cHXDJFM]?"
    A$ = A$ + "=e[CB]:YmQ=U;iBT?V_Ki\>;eV7U:U_HH3;>RcX_bd]6cgok;Jng3ImZI^jE"
    A$ = A$ + ";^oKWhj_NiSekE^P;8>j?oWEehT:]_hgmkDU_Hb[LUkXng=mZ0N^EL6<T>nf"
    A$ = A$ + "GlKo]9JFBKC=OALdeMMZkk?Vm\W]8ca:De[TfOeDT>^fg\U]X^eSDYm5D_>:"
    A$ = A$ + "bG8aL\<m:?alVWladnVY>ehXWnY3_J;]\j;^gk=aGX4=;gL\:B=[#C_JYJD["
    A$ = A$ + "BjHilT=^ah8foEU<6YBk;0l5\?^BKWok`L\X^\<mZVc#9_::`?EI6S\[kJLd"
    A$ = A$ + "ML7Z;o9EBO1P_h9OBeh;VcLVCQfCB3=m:Ym?E^a7>N`7<>j?l7TgNKnRhXKl"
    A$ = A$ + "6EU_HFcJF5fj239mZ9oUobRkKb`klM:O\KAa]MK9e3TBnNm:]N5WoA5i;V`o"
    A$ = A$ + "eoEQEgkQRNeH_iKFLoBUMl1L`7LLd=MCaAoYoTJ6WTQSjXTg6ETX<OAA]^`#"
    A$ = A$ + "A_BJoAUG_2^j[>Yf5efn5nfNKbKKZhnRI<kI_SNh#EG_Ja7fQ9^oXb[EihWm"
    A$ = A$ + "cDGmF;^=AJOQdfoo>Ck0>PLoNZ84d[Tf?\C<Q98O\ZDLEGELdVg\NF;2kKYd"
    A$ = A$ + "f4Ym5:j<ZkjQ3VNUR#jhD9iB_dh8bUhcl<jHL2m<:Y]9Bk;DD?GTm:<?_WXe"
    A$ = A$ + "^NU:6C8XNe#6b#RKe?KH3KX_OW2kc4c]l:^RhX7h1RSNnWgl5=lCQZGil5KK"
    A$ = A$ + "KZ9?F<NMVcLViF_mCcjEco8?Bi]o2>6if_mKO07O8bhT_og?9g9BgoY?]C[#"
    A$ = A$ + "O^KgOF6g1>5Y_Pnk7[?GBOA:fWSh8b]jK#cjEBKgK:5`MD`Kl=n6Kka6=nCQ"
    A$ = A$ + "<6Qk3d[mJCVSUT[3AIjDRi;ZmmJA:kLO#m=T7JFVNE7bTVTJ7O`?7jQNXioH"
    A$ = A$ + "4^SO8G_BOODE0j1H?E__H3K8>jaN<i7KT2FCHNdo6dZNen`LmEPM_X7Sl5n2"
    A$ = A$ + "OQ^IXAVOhm8g7W#^N_UKAfNAZi;Bhomo=i>]D9iL7fmCnTcUngPFe[TfN;eH"
    A$ = A$ + "4OmC^?6ikmmBjOWBVg4cGT`?h747MGgUjfKZI<SIhmjaBSjEJc^KSAJ2OW_C"
    A$ = A$ + "bJ2Y^6Tjke=OA2TcMFCXfj7\e67C=_kcn=S:e[Tf>g:bah^C^fLXme?lNU[S"
    A$ = A$ + "An_o_Cf;MZ_JYnn5cGT`ocoCLdjG_ZfS#7\V#OVgMC_B?SAlm?i^N5gm<?nS"
    A$ = A$ + ";G>\<OA2<GG>?Q?kcZZLH1COjC__m:\\ZG9]me6Sd1jET3;9[m7cGDgG#>\X"
    A$ = A$ + "NhDH^DlIN\dTNeLGa:4gfJSAjPa8\>4jSOVNUln2YGKN;H:_VGCOWA7OLOjX"
    A$ = A$ + "9m:Y][fHT>L<bgmkVDcXBe?a=OAMOaUMI9e<ZF>G>=P_bSUYGISAj9mZkon="
    A$ = A$ + "m:=h;D^NU_ZOD]XG]h3o`5gV:mH4b=Y_nQg[LO<2[7L[K]D^N`PcGLiG^JG?"
    A$ = A$ + "8<eJjD^nlNI#_JDgmM;^=Eja8P_n9_oL^3mZ7jQ:UjE1W_PlGYdl]33OCKZ_"
    A$ = A$ + "l^g[eRU6d[V3WIC5HCe`HT]_m]gAS5Jf?lND8SAX>5iNOGZjDdl59XQJg]=H"
    A$ = A$ + "b_Qg#?gK\dPNe`n=o6a]UJI<b86a8jTQ3=m7N?:4m:>3QL?]D2[oZPbG#N4i"
    A$ = A$ + "<4bMlURe[6B]H5joXQ^NUdfa>Re\VL?n;8jW<lMjGiE67mD?EY\nfCSjm5^c"
    A$ = A$ + "b9mID9l3M0mJ_lCJmZUn2OQRK3k88VX0R3I]nMj?lJ:Ta8Gh5FokdO^WC^_C"
    A$ = A$ + "_8VkB8h;hL6#OAFbNUAKB_FkXB[G9]m[[X8R3okXbnQ\;gEJh<fZ8OAL1oiI"
    A$ = A$ + "7n2=d;bJCfkU_lnZ[Q^=_kVNU^7STVcol?oh]^e]6_]]]]h=^a=6?^a=^Roc"
    A$ = A$ + "aojoJmm?oF_Ei[g71l3HganSO0o1n5AR9LnROl?>Y>hDL^[L<T7kaj;7FMkL"
    A$ = A$ + "\TD_:4\_=UZlmi5S?0=d?TQ2JmiZ4W_#Qm3iFA_DkXRZGY0KGGAA\7eJ5gJ1"
    A$ = A$ + "e`m=Ag4gFV`i;Dfm=a01e?;W?W^9_kVNEGbh7_la[5=SNde[SQ]\UTnGRdnQ"
    A$ = A$ + "ZZNEJO1md7YcSH7`n_okOOejNg\V#C_Z;Y:>7;G?Tij^>MMFe^ckDNKSTn2>"
    A$ = A$ + "oVB_^l>PA_^eegL\jVNfPDjEcQkUG5Hkj9T>V]8id?mjWkSKkfdE]9bWSZVV"
    A$ = A$ + "EJOA0D73=2jEMC_B^[7oUjeEiVKUS7mAU?^]87O#=RnCn9aAojO]nfklZdlM"
    A$ = A$ + "?Wc9[_#;O_A7`N^ZEegJ2Gh2GH7]V`<_?VNEW1SIckcN_6H_f[jW_iOi_DUm"
    A$ = A$ + "MgnXZj;Tf^g5<lkj^jZm9<ckSYGeiPVUda`i9[NeecE2e`0ec^fVKEEaG0Y["
    A$ = A$ + "W4=k;J3LkCXYGEP`l<:ceSUKl1WE`kh>BbER6WKEE`G<VaD_?9ZMOAKPKO2k"
    A$ = A$ + "TkDe<_75TNE#dWfk4HObXF_U>NfgLVWImiFm;n59W]IY]eV_8>jJ^V``G<0l"
    A$ = A$ + "?lJN=Mli9<ckA1YG=A>OV:`Ni=hkh:KeImANTeo^LVK5ie=0>ooUBO1TNN^\"
    A$ = A$ + "WPQP_H0H<eNNH=QMBOM?ckA1YG9]M:ghYOjTjhCjHkNUA>bjS?hNhTljZUJ]"
    A$ = A$ + "Z:k;hkiaG`cVdfG?1[9\C>ocINm5PNed?YCBLKD^Qkkf;bnUP_I`3^nn?aM`"
    A$ = A$ + "9mS_#lkb;3nRgkk]^F5n2Za<NV2hLFe8DG3LOZbJ2eXNehi\T[0kD^>>QN4l"
    A$ = A$ + "^\;b7_gY<lQGOlajFGbj>2\JW^dh;nHO\jn2n^3l5l\4ZnRnQAMEGEOkA8eQ"
    A$ = A$ + "U6e[TfnD8`N<CmOC<Vdam];;MYIeZNT79iI#JKY_l57bQ8_=^MiKn=[GO^h;"
    A$ = A$ + "nYodTWQ0^f5J5MBMHUieJjEnML2Wa^A=:iSo78nPO`jJE\oC\oJUYa7lLPnK"
    A$ = A$ + "1d;[kILn1dZh>54O1Of;;nRV0kAHkfGgclJ=m:o2cMWmMVNYVdS3J6;NaI7O"
    A$ = A$ + "`JeY?all?_lf>O3SgiiRW_G`;#NKOSLFWEfeoAo=Vh6n<GReZP>Y^AclJ=m:"
    A$ = A$ + "o3ed7WI2nNbGj;Ena5Ya=nPJFPc>;g1TLG5EF7O`c5?OlL:]]?=oSoSem5d?"
    A$ = A$ + "[X_hC?]RhVbZ_85Y[KDC_B9#oDSe7N;gBLdGm[:gHSGl;>kgSCO=ViLlH?F`"
    A$ = A$ + "G_d]5llac9?_lLOX7ZLn2G=PjdYH?0_gk=9>Y2XCi0m:gMYj0=7[<_FC_:o7"
    A$ = A$ + "W#?MPa9[M]aA3MX5gH3ngb=f`=W:nNl=^ahX]]]4mdb^FEJO1?_lLccoQOh5"
    A$ = A$ + "[>5n2bUFjL6BO\Rh2VCE0fOHj5LjE]CM^WieVcjEUjJ_ZMaYKAM=A]omSnA9"
    A$ = A$ + "ca9?b;?_W=ZAA=7N3g#bH3b]F9[NNjHO1?o\f;\7L?cDDn2bG8oKQoWh0fOS"
    A$ = A$ + ":V>U3Z1;bQEkdKIblJcImZY`gYX0kSh`h4>KmL6GX76A<k5OanmkiimRkV^d"
    A$ = A$ + "S?XgibHB6Kn#?DbL<Z#[kXY`co_kgUH?^aK\hl5<W:ngbe3[Z2[5_OHRWbYd"
    A$ = A$ + "gL\#_JPbQEVGK>[G=HZm#5HOD34OBOg6][7l1SSfdVBfS>f7KRW9^n[meRSN"
    A$ = A$ + "[_eTLeC_7P_WVjjL\S=IO^No_oTOWdOg]K^DlN#mk`k9_gD_Q<W:>K=Eda6]"
    A$ = A$ + "dGPnMSn2\OH7aNRMnOjO:a^Sm7o0n3l;hO`?eXOXol5l_1oKQo_Rk;6dcolk"
    A$ = A$ + "hLiX9m:Y];Z4RE1dbMen0iDQlIl3n1ee^8ghXO1=K<1oi<^Plfb[QLCak1S="
    A$ = A$ + "hmd]f_ZnlYjDO1f?\SH?a^RO0kL[l3]S_`M^1ZhJE>#_ZMj?bINMVNUlhb_5"
    A$ = A$ + "OG?gGF?iCVD_PLGoA?MQebam=7e>?e81m1Ykj^BfSnkknBfg;N=lMg^ekIS9"
    A$ = A$ + "jNO1f?gl^`^blR`>_i=WHgMn1n_hG`oPObl5M4XGe>WS`<_^LD_Ja7fQ9^=9"
    A$ = A$ + "ha=n1H=MPko_mMebh7<OQGHZedYXVAYgbX1mZI]ZE9^=a``#W\g;OikhnW#3"
    A$ = A$ + "jEk>[WG1f5333maHnFO[n>gcLW4fZJJ8c[;7e[6=[eG1f5333ma8^eK]]jC3"
    A$ = A$ + "INMiXNUdf3333M3eh>kAXYGIHHXMJWn:CVGSYGIHH84LVLXV6<m:333]SYGI"
    A$ = A$ + "HH4:d>m]_<_6C_b``#8LjE]j<4VieHjE6662AkdWAclJ<m:333Q`d[<<<25<"
    A$ = A$ + "mZ^Pgck9QCl4CHe[>>jMm^RS>QC8>jh?nhXSkhRSN7_Sh8>?T_mgNLdaN\aA"
    A$ = A$ + "_]gFLd:GILdaL<boiG[#?a[EaClg;mWA=2WKj>ILi0<FEcPN5eh^YGe1d[a6"
    A$ = A$ + "Lo;IW?o^gVJf]\#ObZGS9Mm>2UKK=mZ^PN=fPnO4mVM^g0DNlQZ]UF?#=1^["
    A$ = A$ + "LjeHBjAPL?Wld?]l??]0C_Z;XGS=^X;:Y7jA_7^:g;?kekTdU\TZeMfCo1mm"
    A$ = A$ + "_N=VlJ^VTkdNjOPBold2<mZ^PN=fhSlARSnQo`TkA>VSPd??QX=<=Uik_ef1"
    A$ = A$ + "j9fmZ=Tnd<g]5dSJUniY5HjEM1mJ\1iR7m:^SVZRjE3KHnE_RkZ?^[[ZRfBP"
    A$ = A$ + "kYBOXGamLaFgZl??]0Ko1k2jeHSU]\TkYGjWjE]kC>OZCUV_dG:i>2\:>?[S"
    A$ = A$ + "jXlSNejGObMFVd??]0C_Z;XGS=fkm>i>nSkL0^[VTni9T\M]2boRk>UAjWcR"
    A$ = A$ + "TJSOkIK7gG?GoeWXi;mcC;`d[j2laH;bi0mCEbG\d??QTMKPhN^7e_7GZd^R"
    A$ = A$ + "Ne6f#bN09mcC;`d[4:nPkIL^KWZBg?\5QNe=Oc9k;OEJ>FnB_2K7gSdBold2"
    A$ = A$ + "ddiMNXQBm;kShS;iBRS^UK9iNWCjWW#b^e>fEVW0gk[E5=;OHgh^NQk8a]]="
    A$ = A$ + "iONj76L]?KJZOb4<g?>n8nPkSI^?Oin>EjWWRPCmD;6mZoioiTi^B=>DEf_`"
    A$ = A$ + "NeV=lQW4?BM<cm:]d??m3LohXYnegnlIo\RKC:Th3Pk\LfoHZ=IYON:2NY_d"
    A$ = A$ + "RA_JNc;i>NWkkJVSUd?gQ#lhRGLR=SmoiIN6iONj7VhonoNOjEJYo]7<g_cn"
    A$ = A$ + "HL5i;HM[CmeC\gH83YHd[6lPC\]olO^Z7ki=nLO^NgVM6WAbLBi<iXhlYbmk"
    A$ = A$ + "\V^OL2VL^__kK_7S#m^L5GALd3nPbolD4<bAF<jE\f6\]\g[EQeJGK^6N9FT"
    A$ = A$ + "m[VJ_BakG=k=XYGe5LSgH_7SLh7NbL`IN0EQl2CodY8d[HMW<nSL7G5F[]?\"
    A$ = A$ + "IH_hlF`I`Gae_\k\hXUkgiPA_2VlTk]HT1=XTLHA==D5b;lUMI5SNe7n3W<n"
    A$ = A$ + "kf^]b_N5[g]G]GSOl9f[[mJC\G:>FdEkEXGefJ8i\NeHI_XEP]I0Qi5iS_GS"
    A$ = A$ + "J:fb;\o0K:i_JCKZlGgXCLRm^mRLGQ=cEK=:M^nSLm[_?m:ZUQ5]X5Y6mZY\"
    A$ = A$ + "Ve8^]Y]YGSEXoSBOl`eonTniAkf[fE_RjRI;KYlGKKnbN1^JGFYaQClD>Und"
    A$ = A$ + "[XF6dTNE#]V#O4_`nb#=jYhiQk=6eXbG]ZA<RTaNGjU67mh?Nio\IjCmMjE8"
    A$ = A$ + ":?gE0eb`RGlR=m:YRGXN\YV6:kS]0>W<iYNeIMF9[5l:_bTm6\\g[6lUN5e:"
    A$ = A$ + ":kC]R]G>m:fK`U\TUHjEB5_`H\ZB]2i;KFo=^cES8\gP:N^2N1OYmS=c=7OU"
    A$ = A$ + "^F#`YGA^fKeI7dd[J1CI:mNl2e;4ijDiWcD_1eg3mG?OZEA]XjbcNEil>kSe"
    A$ = A$ + "FCnjI]Pd;fh^4#jWYF0JEDKk;LQ;\UebPYGe2>kcf?SgX?YAOM\\?63H=7\_"
    A$ = A$ + "MiaL[HM=EUn9S?\KL_cA=e#]<XhjJ7LjET[MC_Bhh6V?NEH=<>#GVLfe[eVM"
    A$ = A$ + "]HhMXEA>[Z:m[?OD73>MNFoL0D3P^JKWLGIjEm0_XGD_7g#M^CMHEU^[GXO["
    A$ = A$ + "C_\d7c[Ri8lCn9EWnQ\?dZVi<C\M\F#>Wc:?^;mm<Qfd[Va9MBRKO:dh7>S^"
    A$ = A$ + "E]NP2S?hIUiIMWgILd7mS>`ieRon?d7Z^>5iNQjVWGOEjnV`Gc]28OODk7Bo"
    A$ = A$ + "<e2f[E]ZfZ_G9UNE`=7;O4o`L\Hn1:nlVV;`jg#WVa=lMmTC#jQESM\9k51W"
    A$ = A$ + "k9nooEn:e7SidZhgWGGEknlbGjE\o4Xe[lnTY;gE3DO_BDm:U?oD_7o0To5>"
    A$ = A$ + "cYBolDdP_6MJZI:Z;MbU7em?m<0Vg9cQRo;gA7lWcO?oNlkGUF3]?Se#_:4n"
    A$ = A$ + ">bJnFgJ1WolW_Je[V8eAYdfZR>6Z:]?Q=9^\_ecanZclUh>;VN23i26m9n_D"
    A$ = A$ + "WJlWcO?oNE]kSNbaY?e[LiP#akccHZmi<miLF[jE1eJ2I<S?RQ^h;>>jV^YZ"
    A$ = A$ + "E_7_EfDFS7P^4oGncZbf5OZEij7g:OoDMe9:[5LP>7>VNE70iJYGSSXnCY?4"
    A$ = A$ + "aL7ZBiSaXm`7JE\W5XGaJ\9o3:N^E#WL>L<mZ>0O=7;N^Y_dbnM9mcTQNheo"
    A$ = A$ + "jmgL[0VK5WI#5?g:`YGAM]?#W37C_Z3aGcG?#RU<:#lE\UK_E_kkFmWIemLE"
    A$ = A$ + "[J7e9:[5\MbMUTjEk:m8B5Hg:lH:ZEKbeLEYNR<6HlYNUkn3Bck;HLmiFaN3"
    A$ = A$ + "f>ee^djE1gL\leJ21^kLX^H<=;3OZEaI1h7mSBbgPRWonX[5okZkZf]>A=mZ"
    A$ = A$ + "^P3i#lC\5iNWk[4UO>D=bIVcLlCl4g;S^l\_a=Znn]fnLH7f>F;h0MO3JjEm"
    A$ = A$ + "0nL>FD_=Eejab81O>g:h6^QTJ4EiaD^e2BMGe>m#6C_B1aHOZ?ELdML79ki\"
    A$ = A$ + "bS_<b1XnnmYNUklg40gK#Y[kZ1ZO][9mZiLd7]hf^>6OLo4j0k?mb_ZbMXSA"
    A$ = A$ + "2_jG]oRQ>eC=A[RN7cCnTZ_V[0G^[JWn9ZVd[2biHice42\gcEQN#WAMlIlC"
    A$ = A$ + "jl\[hk\;7SmL?gM\_P]CoiCKjEk>fK5H75;NSe5`mGREckE3#CaWJE0kgLPD"
    A$ = A$ + "S<YgG`>Y>6dRNe1L#7Thf`>VGl;f_JFdSg[JmRPZ:LgOkKm:fkV0Y6TC__P]"
    A$ = A$ + "CoiCKjE1kJ2Ga:l[V5WCWbnM0JE7O6_#]ehZ?DdZhNiEjW_f0gmhLW^_PJB_"
    A$ = A$ + "JXTW#5H;k8H^gn<nSNnk_jG54O7YAGR?SGLk98[5Tm4<0F;h#NRW8cmRJXZG"
    A$ = A$ + "aWKY]UR7o1oKoKZoLOId5LNWWoSE#_RNLh?kW54JE#jk][>MO1eTN5\XGf;C"
    A$ = A$ + "LkI73a9SKLn=>TJbbjAFU;lIl1g=Q^ce<mh`WjYToi[=HZeVCBgLN1eZNE#>"
    A$ = A$ + "7;dDh\JichaMMGC>KQ1#MdHd6\KkVOS?^X;ZnI_Qkc3UO^VMhZADbMEgTWM]"
    A$ = A$ + "YG]COF25lMmH1_ggKein[Z<S_S;0GN[XoV`i4<#V7NjkLn^E[BKjE3>DgO<>"
    A$ = A$ + "74n>^l[oe]JL8TQcM\_S9>cc\nN2n0?#`4K<XWmIcL7>k]id8\NE#^V#`M7`"
    A$ = A$ + "hkhc=]YTmnaVWEH1gAIialZL[3dE_NBoLfVTnl=g]iIGSjE`Tn6O3a]_M5XY"
    A$ = A$ + "hkHDPkf:jk<VVEH0g7`iALPC_j7oS3Zc3ah>kc^[kM<QPNE`>7;0MUl8FmT?"
    A$ = A$ + "iTcbJP<oo:;iAM;hdZ8WE<g:b[I0egdBWWm^il2ZMmZMjcD81eg`_hGT?a\["
    A$ = A$ + "I=FM>XInfOkla_oUobe_S^H^ELfh3Tj]2jVk0W#C_JV[JERKWkJ#?IGfUl9f"
    A$ = A$ + "mh?nhX]]=CcBKlaohiSon<>Sjc]jV_iTnbN0ikgkE\R^j>U8dd[2je42DSji"
    A$ = A$ + "Al;LD7U=?;=aaMLiSOn`>\ji\Rm3lN_gPk\?dHNf;[jE1_VEN]OQ>Vh4]lIY"
    A$ = A$ + "1VdTb?O\C[Rn=d]N[1G]]Tnn_IncOnNA[BcjEkdW]#TlDc2^_k[nMi^d?[E9"
    A$ = A$ + "h>j>_lY_WgCmcK3gmK\GP1HoLdgi]:4d[f];ob5g^gCPF2W;blDcRJ\=PboJ"
    A$ = A$ + "`3WahldOjVG5angd=UDoM1fIcJGoNO?_LfV3=m:V3i^Aob#1nP^6Rehl0VWa"
    A$ = A$ + "hSH41eIc8HITS\HdZ8OE\?c4g48eIUSAOYGJVN8Z_bKEXXG=ggdKBLO#?1aK"
    A$ = A$ + "nn<AKccB6bCogKi]DO_0I^ELoDZlkmdVaDN5_RMXGamO3SQ[:jE>=;Ym1m<4"
    A$ = A$ + "cAOoXVO<ge]8WI1fg9[NbKOfTWLmiFM]GKLdmL?1kmlFSgEGnD[:4d[P178m"
    A$ = A$ + "jeF2[GSLATgankkn6TO_\JYfl4bMOFje1B?]RhT0do=XJaM>m:fC#OVWm#B_"
    A$ = A$ + "ZD<7;PH#^_17lPcoa0\GkXc7PamZPmJ_bOO4a1>]Z[nZCjES1FM;h`e[SmA?"
    A$ = A$ + "icd[D4Lf_X?]WgS5LHiQ_cYXl=>]:^o0YOFALAP^FnY=SI\SJI??bKE8YGEj"
    A$ = A$ + "d\8VTcFQ?_KW682PkBCAI][]hl5hgMJEDWELGS`Jh3D]:`=g:j13mJ?^Z\XG"
    A$ = A$ + "]g4CY0OSGPhC>[m5eH4Pk0HK?4gI:BO0TF[RJ2=`kU\kfYOjmdM<OID_Zd=7"
    A$ = A$ + ";V[3J74[VWW[Snkkg_mK_J?O;j5R5AN4Cc4V#fe0blZ`o7`O7bDNe_jL]N[2"
    A$ = A$ + "Im:HX\g9:`?i5#_PeYEdccb1k7E0omjM=GaE8Sm>]F5e1=nm0OMjYca>WmVl"
    A$ = A$ + "D[:4e[`N<Ali:`Gi=#cPkjT?kWEVaA`LWK#?^I0IncG>K;gO8>]:jSE<gFlg"
    A$ = A$ + "1ngE<V;h2bmjG8de[LJFBk[l>4kbN7NGgULS[L`MLGX[MAO=HdSFNKYkngRj"
    A$ = A$ + "FWn]7[3]TdO[M[3dWm;VbXN5\;d?PDP?c[P6a_igDlicZoPk2f#CgjB_dhXa"
    A$ = A$ + "?Ni]M#jlZC_<n^_k4oKXICK23K;KY#G7HX[GQmIjW`98^Ock#\<m?T]^Ei7_"
    A$ = A$ + "e<nROAm<NKcK>>Ji;GNKBS`I<8mjoh^m2oIPN6KJTmjH>V2OMPU1mZBij21f"
    A$ = A$ + "_8b3;iiHh3GnaOm7TCXRn\BaoN;LQbo\gO`gQVnlel3oQ9eJGPWGmdhdZlIO"
    A$ = A$ + ">^\[GiHJT;C5h3c5X_7cnQbidXFLQhS5kDHmT7bQ47mYodaAO[_EB^K8?cTo"
    A$ = A$ + "6V[1SQOl7?i?o2_`TO_Gb;9ie9mWm>U5\PjjDT[:bO6mJ_Bfm7YC[b=gZRD["
    A$ = A$ + "Z<XGQmJHlmG:`GjMhkSILmCl4igm^SQO8M^ZXN9X76cjj3\N]G[HoZ=_fdc]"
    A$ = A$ + ":?jo2UMm:WVUdnb2AgRiVXQm?dXijDTCMl?hW2XkOifRJ??iE?I_:ZG=J^S^"
    A$ = A$ + "UfWVgJF\>:fO9jC^J>7>E1Vglb^n?ZoCl;hO`?EBbEUSY=mY_SjG`M61=mZN"
    A$ = A$ + "CcRJ0AJoJQXKA>WinaQa7B?^]ZaaN\=GW2oA9DW2B_6#jm2iE_RYZYGEjGGX"
    A$ = A$ + "3G^ZYg^m:OUb?6^:AJ]:ZEQKh6Bl3h?:AiZZIjE^J]ZXZ=db\NU3\U3Z<d?B"
    A$ = A$ + "K7X^78GlKI;9SQ6b#TOlLI4\[Oe_JMM:ZC1^_Ua^COf8P?_b]267idZBOGg8"
    A$ = A$ + "UFEID_ZB=?;PeO`nUcMY2eT8mokCmDUO<NIP?aW8klYHOoXVh`>G1jCn=k\<"
    A$ = A$ + ";YFEID_bYI]7Wci8^o^#Q_SWiEbMXj?mW:kIW^<`WlCV]O:`MF3fEbWN5X?C"
    A$ = A$ + "?ne^fLo^S`d[bZIEfSYJ:lMnd3TY><Im:GceTLVKUNlO8PCOb=O:Z?1\OH7a"
    A$ = A$ + "NFAj]dYG38WUI9c_NEB_JADCh:`oGh`H:Z=nWiIB6[aiGSi7XicfSTLJWFF]"
    A$ = A$ + ":bS>f;\KHo`>Rm\2XEUF_BC[3\\[Gid\Z4eh#[`=O;b;?kS5eY6S5GcJTGW#"
    A$ = A$ + ";JD^mjSiBMMGGbJZaNQM[TWSZnC[RJG`ggUlVNEkYI=6>cY:8F#<HN1<fSc7"
    A$ = A$ + "2g1;LFAFojSS^T;9>jMm^TGkX89miAfEGjD3EH?hN:m1O`Tml[R\f_d<Z[jZ"
    A$ = A$ + "bdKSedj0[:jE>=[5GEGKHSh>K?TcH>g8<6mj_nTko>VSa7l3:_VR?QWW6c;5"
    A$ = A$ + "?Wllbc=?oonOORmPiBEadXLT>WE\6`R^_;HjEIe[Zl[;\ALihjIOfhX7jQB>"
    A$ = A$ + "?e\FXJO7KOSWO5_2ieJj5njOmMNNDlLac7?Wllbc=?o\gZEDM:7YcI5JEJKM"
    A$ = A$ + "PE9m:7h3V;m[454OX:Le`5WW4b]<SSY>S^aK<inVRm9SakGl577=SI8_FT3f"
    A$ = A$ + "o0Z_odjBYW35O^i><SW3j]WlLaJRMmSh:^65<eJS;J<WEJLNEEAm:KNF30>M"
    A$ = A$ + ";Z5b]]]hX7mACj=EL_CA>0AkRJkVjA2=QcmLSSFdR:>m9^7bhLNONWg>[AiZ"
    A$ = A$ + "C:dXhc9[eS?gTkLN>HND^JlddYf1=Nf0ejlZZRjE>=;bShDn8O4aSE22Hl=i"
    A$ = A$ + "kRL#oD?EbHokonCda8_m\f:fG=j?MToNVG3c53m\VYYd=`k5PNTKNCl_WKol"
    A$ = A$ + "hc1md#nLai>V?WX=EBjo`i1kakkmU9WEL?WZal[Gee[LJFmE3lUYk;jR4gl`"
    A$ = A$ + "8_?X;#^Z9WeDCUdk4i^0QjFj>_chXKkfBZQ2jQ1<W7dGhNRQeY1Xi`oUo<Po"
    A$ = A$ + "NnmhgWG7_NjCklnaiPQgOZaLG>biOOnLHcKZ]IlWiI^3]:Z7DG_\BkJEEEm:"
    A$ = A$ + "WV5iEL2\V65435dhd_Hn<T3OdAHmGXY#o0VJIbYUA>T#gi1NPTi3iPoolWcO"
    A$ = A$ + "?oNlkc[SG?iLRg?bk4_oVnDGch>Wc9Hf;#C_JWe\HmjVVUAEPdJEJXg`HjEM"
    A$ = A$ + "WVUEKF6UM6oWoc7dc[bd[bZIai?ObOh?\haE66nVdgY=QjlZ<mZ\PocVWUAI"
    A$ = A$ + "S1m\?KYHNEVNEFLk?2e;g<>RS#lh<3SNUmi#>4Eeke=m:o[IQodVWUAIPdc["
    A$ = A$ + "2]:G][KjEboLhKM;d\X^DT>Vc`XC9MnZ#[Rhh#=OEVNEk[IaL]61eZX2R1=<"
    A$ = A$ + "J76nVfDVe0Zen2SYGUOJF<?JYS3=<68JLO09^]<YEIjE]WV5cUNF=J[<<D4k"
    A$ = A$ + "G=]YdJEL7<GFF3XYGeihZgQAaiKC1aW66`8GojgYk72=goZ<mZR3gj3WU]n#"
    A$ = A$ + "35#EHmOVNE_[IA]`cl]U>NeXjBSJEUeeoIjEnAc2XW1=KK^F658CKfcNWZ1d"
    A$ = A$ + "#^Ne=mZRCcb]gQSTNeT2RU=:g\;KH3IbE5cYZ<D3XVNEaZKag_aL]6j3o`R7"
    A$ = A$ + "CKDnPhZdjD<_:RgZ2[ocd[b7=;V[5OOgTinlC1ah6U3fcSkhbT[:fo?Rc:ki"
    A$ = A$ + "Egd[:HM[E^BaSe=2GB[AU>WjEEM:C_:Od[LkO8WI[Y\lU;NL_AhaTOc_i<JE"
    A$ = A$ + "\n?RW8^Z:U[:C_ZHe]LceJo[moFja06:W]_mhY^h5W9?E<W:CW:;I\IVNUG9"
    A$ = A$ + "mL]VTMoQId2J\W:`iDVhVZnjoJT<f=C_bkhnNAgN8>mJ<XWki4OlQQl#L`na"
    A$ = A$ + "l_KX?EEEgk_fQ<f#C_:g8mJ4YVIHONfS?f7Cla<65?kn7mS^CiWbE;EV>E[9"
    A$ = A$ + "S]dd[bELmj1V[5aWXI9mH7SRW6gk?R3H>E^jDgd[jObH;=mZ23gL]875T[RA"
    A$ = A$ + "OiG^hSS<b?`oJiXZgad[TQ6GO8a^\^0Y7GIhOJLnD^nnIEXO:hK<m:i9mj4i"
    A$ = A$ + "nFRhiMk<>3a7WIdmPo[IcWbMOJIiYZk`d[d1Yg7ARY9fNB__gWhSk<j<6nVg"
    A$ = A$ + "LldVi<kgiCIiXZg`d[d7^iKAl=JGT?fnF[hfg^hS7=J2el;=^V?KnDi3VNU>"
    A$ = A$ + "aYIAn=H_SHo4AcJo]n4XZHJcI>kT>U[_DU>oDVFUO`d[d?YG[8S1H\0ciJo["
    A$ = A$ + "]^3Y7_FeHdGiE6?=nNS6dX`OhdX\elUOHjEQ3^iLaIlY_NKJ]eK`HUYL47Qh"
    A$ = A$ + "SS[2PM^Im=1l3h?`_hFgWYEU?HjEQ9=CkRa>XO]G_egZhS];3PM\IeRP[g^P"
    A$ = A$ + "MWekIiVZh`d[2GLO?^;gl^J?eYKm?ljNMR?V?41kFcbO^CW2kLjLXKJE57VN"
    A$ = A$ + "EiPdJG^J#]Am;bkb^MjW^hj1J2\7=Z=UFObE3jF^ce1VNEiT6e_Lme6giFTe"
    A$ = A$ + "e`HB6Kbi_MHobOYhJ7i9llehi<^amd3]9GoA0kEjejIJDj0C_ZLSK\Vk\ohj"
    A$ = A$ + "[=^JBe=g;WfenN`7Ll#OT7ALm5O0?7lldOJD^i#Q65f3dXJ<WiV>U^`d[ZNT"
    A$ = A$ + "N^G^c1T[fDKfl_Bc4?UCY_k0MYeRPan=oVakiZFECeSJV^Tk^JPWCGM7HcO:"
    A$ = A$ + "\`d[Zfdhj6KVf5Sek?m;7CJe[>NDGmE7?d7h1lkLTZmn=n?oW__goFY;e<m9"
    A$ = A$ + "gLWLi8gYAI[c;Lad[<J6=>7\dJI\NB6oSV6j1\^BW^FJ]]6YMdKJDg9=^J9`"
    A$ = A$ + "=G9GnVhc1hbkDcdT<MYb1VNUa0AjalYe_LJHXAhf?BG>m1dBLjI>==7>MWdT"
    A$ = A$ + "n_gmJL_7^eaak?jBl_GJ]YVY?IJDU?<m:3OASJ5=CW[CXoN_Tnid#><m:33S"
    A$ = A$ + "#1C_b``8D`d[<<<25<m:33S#1C_b``8D`7jE66665>VNUQQAXPYGIHH4:d9j"
    A$ = A$ + "E6666666666666666666666666666666666666m;oo`>%%L2"
    btemp$ = ""
    FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
        IF INSTR(1, B$, "%") THEN
            FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
                IF F$ <> "%" THEN C$ = C$ + F$
            NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
            IF MID$(B$, j, 1) = "#" THEN
        MID$(B$, j) = "@": END IF: NEXT
        FOR t% = LEN(B$) TO 1 STEP -1
            B& = B& * 64 + ASC(MID$(B$, t%)) - 48
            NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
            X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
    NEXT: btemp$ = btemp$ + X$: NEXT
    btemp$ = _INFLATE$(btemp$)
    _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
    BASIMAGE6& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
 
SUB RotoZoom (X AS LONG, Y AS LONG, Image AS LONG, Scale AS SINGLE, Rotation AS SINGLE)
    DIM px(3) AS SINGLE: DIM py(3) AS SINGLE
    W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
    px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
    px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
    sinr! = SIN(-Rotation / 57.2957795131): cosr! = COS(-Rotation / 57.2957795131)
    FOR i& = 0 TO 3
        x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
        px(i&) = x2&: py(i&) = y2&
    NEXT
    _MAPTRIANGLE (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
    _MAPTRIANGLE (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
END SUB
 

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: Dav on August 23, 2020, 07:56:35 pm

I just fixed the last post up there of the maze game. It had a bug where the ball got messed up. I also added the RotoZoom method from the wiki to get the star some animation when reaching it. I'm adding more levels and a save progress for the next update.

- Dav

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: bplus on August 23, 2020, 11:16:04 pm

I finally have an AI that can solve all 10 puzzles! It even found an alternate to puzzle #2.

I want to illustrate solutions before posting code.

Also this fixes the line in the Star, there is probably other ways ~~but I like to advertize Rotozoom3 that has advantage of rotating or scaling on x, y axis independently.~~
Nice effect with Star BTW!

Just needed to add _SEAMLESS

Code: QB64: [Select]

 
SUB RotoZoom (X AS LONG, Y AS LONG, Image AS LONG, Scale AS SINGLE, Rotation AS SINGLE)
    DIM px(3) AS SINGLE: DIM py(3) AS SINGLE
    W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
    px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
    px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
    sinr! = SIN(-Rotation / 57.2957795131): cosr! = COS(-Rotation / 57.2957795131)
    FOR i& = 0 TO 3
        x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
        px(i&) = x2&: py(i&) = y2&
    NEXT
    _MAPTRIANGLE _SEAMLESS(0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
    _MAPTRIANGLE _SEAMLESS(0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
END SUB
 
 
 

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: bplus on August 24, 2020, 01:41:48 am

Illustrated Solutions, just hit the arrow key you land on :)

Pathfinder takes just under a minute for #9 and #10, the rest are pretty quick.

Code: QB64: [Select]

_TITLE "Tilt Maze Pathfinder" ' b+ started 2020-08-22
' 2020-08-22 I am starting with mods of Dav's version of tilt maze as it was frustration
' with the his 2nd level Puzzle that inspired me to search for solutions with AI.
' Thanks for that Dav! ;-))
' 2020-08-22 so far just a semi-3D version.
' 2020-08-23 It now can solve all the puzzles, #9, #10 are taking almost a minute though.
' 2020-08-24 Illustrate solutions
 
 
'============
'MAZEBALL.BAS   https://www.qb64.org/forum/index.php?topic=2936.msg121950#msg121950  original post
'============
'Clone of the Tilt Maze Puzzle games.
'QB64 code by Dav, AUG/2020
 
'The goal is to move the ball to the star.
'Use arrows to move the ball.  Walls will stop
'the ball moving so navigate around them.
'There are 10 levels to complete and they get
'harder as you go.  To help you (cheat) you can
'jump to other levels by using the +/- keys.
'Press SPACE to reset level and start over.
 
'If you beat the last level, you will get a
'smiley face and hear a happy song.
 
'For those who get stuck, solutions are below.
 
'=======
'CREDITS:
'=======
 
'I didn't come up with this game - It's been around for a while.
'It's mostly a clone of a cool game posted on THE QBASIC FORUM here:
'https://www.tapatalk.com/groups/qbasic/tilting-maz-game-t39133.html
'Also some levels derived from the original tilt maze game here:
'https://www.mathsisfun.com/games/tilt-maze.html
'There's other Tilt Maze games that influenced me.
 
'My thanks to those original game authors for the tilt maze fun.
'Please accept this QB64 version as a compliment from a fan.
 
'=================================================================
 
'Solutions below, for those who get stuck...
 
'#1)  RDLURDR
'#2)  LURULDRUL
'#3)  DRULDRDLULUR
'#4)  DRURULURULDR
'#5)  URDLULDLURDLU
'#6)  RDRULDRULDRD
'#7)  DRULDLURDRULDRD
'#8)  RDLDLULDLURURULDRD
'#9)  LURULULDLDRDRURULURDLDR
'#10) D R U L D L D R U R U L U L U R D L U R D R U L D R U R D
 
TYPE xy
    x AS INTEGER
    y AS INTEGER
END TYPE
 
TYPE d4way ' clock wise
    d1 AS xy 'right
    d2 AS xy 'down y increasing
    d3 AS xy 'left
    d4 AS xy 'up y decrease
END TYPE
 
DIM SHARED bs, grid 'box or cell size, cells per side of square grid
DIM SHARED bx, by, sx, sy 'ball and star locations
DIM SHARED TruePath$, soln& ' AI found a path to Star, handle for solution screen
REDIM SHARED pdata$(grid, grid), AI(grid, grid) AS d4way
puzzle = 1 'start on puzzle 1
puzzlemax = 10 'there are 10 puzzles total
 
SCREEN _NEWIMAGE(640, 640, 32)
_DELAY .25
_SCREENMOVE _MIDDLE
 
'check arrow
'arrow 320, 320, 0, 200
'END
'======
restart:
_TITLE "Level: " + STR$(puzzle) + " of" + STR$(puzzlemax)
setLevel puzzle
updateBall
_DISPLAY
DO
    CLS
    'get user keypress...
    k$ = INKEY$
    moved = 0: done = 0
 
    'if right arrow....
    IF k$ = CHR$(0) + CHR$(77) THEN 'right
        WHILE pdata$(bx + 1, by) = " " OR pdata$(bx + 1, by) = "y"
            bx = bx + 1: moved = 1
            IF bx = sx AND by = sy THEN done = 1: EXIT WHILE
        WEND
    END IF
    'if left arrow...
    IF k$ = CHR$(0) + CHR$(75) THEN
        WHILE pdata$(bx - 1, by) = " " OR pdata$(bx - 1, by) = "y"
            bx = bx - 1: moved = 1
            IF bx = sx AND by = sy THEN done = 1: EXIT WHILE
        WEND
    END IF
 
    'down arrow
    IF k$ = CHR$(0) + CHR$(80) THEN
        WHILE pdata$(bx, by + 1) = " " OR pdata$(bx, by + 1) = "y"
            by = by + 1: moved = 1
            IF bx = sx AND by = sy THEN done = 1: EXIT WHILE
        WEND
    END IF
 
    'if up arrow
    IF k$ = CHR$(0) + CHR$(72) THEN
        WHILE pdata$(bx, by - 1) = " " OR pdata$(bx, by - 1) = "y"
            by = by - 1: moved = 1
            IF bx = sx AND by = sy THEN done = 1: EXIT WHILE
        WEND
    END IF
 
    IF k$ = CHR$(32) THEN GOTO restart
 
    IF k$ = "+" THEN
        puzzle = puzzle + 1: IF puzzle > puzzlemax THEN puzzle = 1
        GOTO restart
    END IF
 
    IF k$ = "-" THEN
        puzzle = puzzle - 1: IF puzzle < 1 THEN puzzle = puzzlemax
        GOTO restart
    END IF
    updateBall
    _DISPLAY
    _LIMIT 60
    IF done = 1 THEN
        SOUND 7000, .1: _DELAY 2
        puzzle = puzzle + 1
        IF puzzle > puzzlemax THEN puzzle = 1
        GOTO restart
    END IF
LOOP
 
SUB update
    CLS
    FOR y = grid - 1 TO 0 STEP -1
        FOR x = grid - 1 TO 0 STEP -1
            IF pdata$(x, y) = "x" THEN
                LINE (x * bs, y * bs)-STEP(bs - 1, bs - 1), _RGB32(144, 0, 0), BF
                LINE (x * bs, y * bs)-STEP(bs - 1, bs - 1), &HFF999999, B
            ELSEIF x = bx AND y = by AND TruePath$ = "" THEN
                'LINE (x * bs, y * bs)-STEP(bs - 1, bs - 1), &HFF000000, BF
                FOR R! = .47 * bs TO 0 STEP -1
                    fcirc x * bs + .5 * bs, y * bs + .5 * bs, R!, _RGB32(220 - 220 * R! / (.45 * bs) + 35)
                NEXT
            ELSEIF x = sx AND y = sy THEN
                'LINE (x * bs, y * bs)-STEP(bs - 1, bs - 1), &HFF000000, BF
                FOR p = 1 TO 0 STEP -.0125
                    star x * bs + .5 * bs, y * bs + .5 * bs, .16 * bs * p, .46 * bs * p, 5, _PI / 10, _RGB32(255, (1 - p) * 150 + 105, 0)
                NEXT
            END IF
        NEXT
    NEXT
END SUB
 
SUB updateBall
    IF TruePath$ <> "" THEN
        _PUTIMAGE , soln&, 0
        FOR R! = .47 * bs TO 0 STEP -1
            fcirc bx * bs + .5 * bs, by * bs + .5 * bs, R!, _RGB32(220 - 220 * R! / (.45 * bs) + 35)
        NEXT
    ELSE
        update
    END IF
END SUB
 
SUB setLevel (puzzle) 'x is the wall, b is ball. y is the star
    IF puzzle = 1 THEN
        puz$ = "": grid = 8
        puz$ = puz$ + "xxxxxxxx"
        puz$ = puz$ + "x   xb x"
        puz$ = puz$ + "x   yx x"
        puz$ = puz$ + "x  xx  x"
        puz$ = puz$ + "x      x"
        puz$ = puz$ + "x      x"
        puz$ = puz$ + "x      x"
        puz$ = puz$ + "xxxxxxxx"
    ELSEIF puzzle = 2 THEN
        puz$ = "": grid = 10
        puz$ = puz$ + "xxxxxxxxxx"
        puz$ = puz$ + "xx  x    x"
        puz$ = puz$ + "x   xx   x"
        puz$ = puz$ + "x   y    x"
        puz$ = puz$ + "x     xx x"
        puz$ = puz$ + "x      b x"
        puz$ = puz$ + "x        x"
        puz$ = puz$ + "x     xx x"
        puz$ = puz$ + "x x      x"
        puz$ = puz$ + "xxxxxxxxxx"
    ELSEIF puzzle = 3 THEN
        puz$ = "": grid = 11
        puz$ = puz$ + "xxxxxxxxxxx"
        puz$ = puz$ + "xbx  x    x"
        puz$ = puz$ + "x    x    x"
        puz$ = puz$ + "xx   x    x"
        puz$ = puz$ + "x    y  x x"
        puz$ = puz$ + "x    x    x"
        puz$ = puz$ + "x         x"
        puz$ = puz$ + "x x     x x"
        puz$ = puz$ + "x  x      x"
        puz$ = puz$ + "x   x    xx"
        puz$ = puz$ + "xxxxxxxxxxx"
    ELSEIF puzzle = 4 THEN
        bs = INT(sw / 11) 'boxsize
        puz$ = "": grid = 11
        puz$ = puz$ + "xxxxxxxxxxx"
        puz$ = puz$ + "xbx   x   x"
        puz$ = puz$ + "x xx      x"
        puz$ = puz$ + "x         x"
        puz$ = puz$ + "x       xxx"
        puz$ = puz$ + "x x       x"
        puz$ = puz$ + "x x  xx   x"
        puz$ = puz$ + "x         x"
        puz$ = puz$ + "x xx  x xxx"
        puz$ = puz$ + "x     x  yx"
        puz$ = puz$ + "xxxxxxxxxxx"
    ELSEIF puzzle = 5 THEN
        puz$ = "": grid = 12
        puz$ = puz$ + "xxxxxxxxxxxx"
        puz$ = puz$ + "x x      x x"
        puz$ = puz$ + "x x xxx  x x"
        puz$ = puz$ + "x          x"
        puz$ = puz$ + "x x x x xx x"
        puz$ = puz$ + "x x xbx    x"
        puz$ = puz$ + "x   xxxxx xx"
        puz$ = puz$ + "x     xyx  x"
        puz$ = puz$ + "xx         x"
        puz$ = puz$ + "x         xx"
        puz$ = puz$ + "x   x x    x"
        puz$ = puz$ + "xxxxxxxxxxxx"
    ELSEIF puzzle = 6 THEN
        puz$ = "": grid = 13
        puz$ = puz$ + "xxxxxxxxxxxxx"
        puz$ = puz$ + "x     x     x"
        puz$ = puz$ + "x   xxx   xxx"
        puz$ = puz$ + "x           x"
        puz$ = puz$ + "xxx xxx   x x"
        puz$ = puz$ + "x         xyx"
        puz$ = puz$ + "xb    x   xxx"
        puz$ = puz$ + "x x   x     x"
        puz$ = puz$ + "xxx   xx    x"
        puz$ = puz$ + "x           x"
        puz$ = puz$ + "x   x   x x x"
        puz$ = puz$ + "x   x   x x x"
        puz$ = puz$ + "xxxxxxxxxxxxx"
    ELSEIF puzzle = 7 THEN
        puz$ = "": grid = 15
        puz$ = puz$ + "xxxxxxxxxxxxxxx"
        puz$ = puz$ + "xbx   x     x x"
        puz$ = puz$ + "x xx          x"
        puz$ = puz$ + "x         x   x"
        puz$ = puz$ + "xx       xx   x"
        puz$ = puz$ + "x             x"
        puz$ = puz$ + "x xx       xx x"
        puz$ = puz$ + "x     x x     x"
        puz$ = puz$ + "xx            x"
        puz$ = puz$ + "x   x         x"
        puz$ = puz$ + "x   xx       xx"
        puz$ = puz$ + "x       x     x"
        puz$ = puz$ + "x      xxx    x"
        puz$ = puz$ + "x x         xyx"
        puz$ = puz$ + "xxxxxxxxxxxxxxx"
    ELSEIF puzzle = 8 THEN
        puz$ = "": grid = 15
        puz$ = puz$ + "xxxxxxxxxxxxxxx"
        puz$ = puz$ + "x x     x     x"
        puz$ = puz$ + "x    x       xx"
        puz$ = puz$ + "x        b    x"
        puz$ = puz$ + "x     x     x x"
        puz$ = puz$ + "x  x          x"
        puz$ = puz$ + "x       x x   x"
        puz$ = puz$ + "x      xx    xx"
        puz$ = puz$ + "x             x"
        puz$ = puz$ + "xx       x    x"
        puz$ = puz$ + "x   x x       x"
        puz$ = puz$ + "x   xyx       x"
        puz$ = puz$ + "x   xxx       x"
        puz$ = puz$ + "x       x   x x"
        puz$ = puz$ + "xxxxxxxxxxxxxxx"
    ELSEIF puzzle = 9 THEN
        puz$ = "": grid = 19
        puz$ = puz$ + "xxxxxxxxxxxxxxxxxxx"
        puz$ = puz$ + "x x   x       x   x"
        puz$ = puz$ + "x x   xxx   x x xxx"
        puz$ = puz$ + "x           x     x"
        puz$ = puz$ + "x xxx xxxxx xxx x x"
        puz$ = puz$ + "x   x   x       x x"
        puz$ = puz$ + "xxx x   x   x   x x"
        puz$ = puz$ + "x           x     x"
        puz$ = puz$ + "x   xxx x xxx xxx x"
        puz$ = puz$ + "x     x x         x"
        puz$ = puz$ + "xxx   x xxx     x x"
        puz$ = puz$ + "x       x       x x"
        puz$ = puz$ + "x x x   x xxx   xxx"
        puz$ = puz$ + "x x x             x"
        puz$ = puz$ + "x x x xxx x   x   x"
        puz$ = puz$ + "x         x   x   x"
        puz$ = puz$ + "x xxx     x x xxx x"
        puz$ = puz$ + "x  bx       x  yx x"
        puz$ = puz$ + "xxxxxxxxxxxxxxxxxxx"
    ELSEIF puzzle = 10 THEN
        puz$ = "": grid = 21
        puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxxx"
        puz$ = puz$ + "xbx x     x   x     x"
        puz$ = puz$ + "x x x     x   xxx   x"
        puz$ = puz$ + "x x                 x"
        puz$ = puz$ + "x x xxx x x     x   x"
        puz$ = puz$ + "x       x x     x   x"
        puz$ = puz$ + "x   x   x x     x xxx"
        puz$ = puz$ + "x   x               x"
        puz$ = puz$ + "x   x     x xxx x   x"
        puz$ = puz$ + "x         x     x   x"
        puz$ = puz$ + "xxx xxx xxxxx xxx xxx"
        puz$ = puz$ + "x         x         x"
        puz$ = puz$ + "x   xxx   x x xxx x x"
        puz$ = puz$ + "x           x     x x"
        puz$ = puz$ + "xxx xxx   x xxx   x x"
        puz$ = puz$ + "x   x     x x     x x"
        puz$ = puz$ + "x x x xxx x x   x x x"
        puz$ = puz$ + "x x             x   x"
        puz$ = puz$ + "x x     x x x   x x x"
        puz$ = puz$ + "x       x x x     xyx"
        puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxxx"
    END IF
    REDIM pdata$(grid - 1, grid - 1) 'from text to 2d array
    m = 1
    FOR y = 0 TO grid - 1
        FOR x = 0 TO grid - 1
            pdata$(x, y) = MID$(puz$, m, 1)
            IF MID$(puz$, m, 1) = "y" THEN sx = x: sy = y
            IF MID$(puz$, m, 1) = "b" THEN bx = x: by = y
            m = m + 1
        NEXT
    NEXT
    bs = _WIDTH \ grid
    REDIM AI(grid, grid) AS d4way 'initialize to 0
    FOR y = 0 TO grid - 1
        FOR x = 0 TO grid - 1
            AI(x, y).d1.x = 0
            AI(x, y).d1.y = 0
            AI(x, y).d2.x = 0
            AI(x, y).d2.y = 0
            AI(x, y).d3.x = 0
            AI(x, y).d3.y = 0
            AI(x, y).d4.x = 0
            AI(x, y).d4.y = 0
        NEXT
    NEXT
    'now load AI
    FOR y = 1 TO grid - 2
        FOR x = 1 TO grid - 2
            'CLS
            'LOCATE 1, 1: PRINT x, y
            IF pdata$(x, y) = " " OR pdata$(x, y) = "b" THEN
                tx = x: ty = y: moved = 0: done = 0 'right  d1
                WHILE pdata$(tx + 1, ty) = " " OR pdata$(tx + 1, ty) = "y" OR pdata$(tx + 1, ty) = "b"
                    tx = tx + 1: moved = 1
                    IF tx = sx AND ty = sy THEN done = 1: EXIT WHILE
                WEND
                IF moved = 1 OR done = 1 THEN AI(x, y).d1.x = tx: AI(x, y).d1.y = ty
 
                tx = x: ty = y: moved = 0: done = 0 'down arrow  d2
                WHILE pdata$(tx, ty + 1) = " " OR pdata$(tx, ty + 1) = "y" OR pdata$(tx, ty + 1) = "b"
                    ty = ty + 1: moved = 1
                    IF tx = sx AND ty = sy THEN done = 1: EXIT WHILE
                WEND
                IF moved = 1 OR done = 1 THEN AI(x, y).d2.x = tx: AI(x, y).d2.y = ty
 
                tx = x: ty = y: moved = 0: done = 0 'left d3
                WHILE pdata$(tx - 1, ty) = " " OR pdata$(tx - 1, ty) = "y" OR pdata$(tx - 1, ty) = "b"
                    tx = tx - 1: moved = 1
                    IF tx = sx AND ty = sy THEN done = 1: EXIT WHILE
                WEND
                IF moved = 1 OR done = 1 THEN AI(x, y).d3.x = tx: AI(x, y).d3.y = ty
 
                tx = x: ty = y: moved = 0: done = 0 'if up arrow d4
                WHILE pdata$(tx, ty - 1) = " " OR pdata$(tx, ty - 1) = "y" OR pdata$(tx, ty - 1) = "b"
                    ty = ty - 1: moved = 1
                    IF tx = sx AND ty = sy THEN done = 1: EXIT WHILE
                WEND
                IF moved = 1 OR done = 1 THEN AI(x, y).d4.x = tx: AI(x, y).d4.y = ty
            END IF
            'PRINT
            'PRINT AI(x, y).d1.x, AI(x, y).d1.y
            'PRINT AI(x, y).d2.x, AI(x, y).d2.y
            'PRINT AI(x, y).d3.x, AI(x, y).d3.y
            'PRINT AI(x, y).d4.x, AI(x, y).d4.y
 
            'PRINT
            'INPUT "Ok  press eneter "; w$
 
        NEXT
    NEXT
    TruePath$ = "" 'clear last stuff
    CLS
    PRINT "Pathfinding... please wait"
    _DISPLAY
    explore bx, by, "D", ""
    IF TruePath$ <> "" THEN
        'CLS
        'PRINT TruePath$ 'before trying to retrace it let's see what it looks like
        'PRINT
        'PRINT "press any but spacebar to continue... and again after pic"
        '_AUTODISPLAY
        'SLEEP
        'drawit
        update
        REDIM tp$(0)
        Split TruePath$, ",", tp$()
        'CLS
        FOR i = 0 TO UBOUND(tp$) - 2 STEP 3
            x = VAL(tp$(i)): y = VAL(tp$(i + 1)): d$ = tp$(i + 2)
            'PRINT " >"; x, y, d$;
 
            SELECT CASE d$
                CASE "R": arrow x * bs + bs + .25 * bs, y * bs + .5 * bs, 0, 1.25 * bs
                CASE "D": arrow x * bs + .5 * bs, y * bs + bs + .25 * bs, _PI / 2, 1.25 * bs
                CASE "L": arrow x * bs - .25 * bs, y * bs + .5 * bs, _PI, 1.25 * bs
                CASE "U": arrow x * bs + .5 * bs, y * bs - .25 * bs, _PI(3 / 2), 1.25 * bs
            END SELECT
        NEXT
        _DISPLAY
        soln& = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
        _PUTIMAGE , 0, soln&
 
    ELSE
        CLS
        PRINT "Sorry, did not find a path."
        PRINT
        PRINT "press any but spacebar to continue..."
        _DISPLAY
        SLEEP
    END IF
END SUB
 
' using AI(x, y) dim'd as d4ways to bounce around the maze
SUB explore (cx, cy, cdir$, cmyPath$) 'recursive explore until stuck in loop or hit target
    IF TruePath$ <> "" THEN EXIT SUB
 
    'will this new test be better than looking for single repeating nodes?
    IF duplicate(cmyPath$) THEN EXIT SUB ' a repeated line between 2 nodes
 
 
    'debug watch ball
    'CLS
    'bx = cx: by = cy
    'update
    'PRINT "explore"; cx; cy; cdir$; ", "; cmyPath$
    '_DISPLAY
    'INPUT "Ok press eneter "; w$
 
 
    x = cx: y = cy: dir$ = cdir$: myPath$ = cmyPath$ 'private copies of everything
    IF x = sx AND y = sy THEN ' found our target add it to end of myPath$  and go home
        TruePath$ = myPath$ + "," + TS$(x) + "," + TS$(y) 'stop found star
        EXIT SUB 'yeah!
    ELSE 'continue on unless we've been here before
        IF myPath$ = "" THEN 'this is start point of myPath$ so can go any of 4 directions as long as AI(x, y) direction point is not 0,0
            FOR i = 1 TO 4
                dr$ = MID$("RDLU", i, 1)
                myPath$ = TS$(x) + "," + TS$(y) + "," + dr$
                IF i = 1 THEN
                    IF AI(x, y).d1.x <> 0 AND AI(x, y).d1.y <> 0 THEN
                        explore AI(x, y).d1.x, AI(x, y).d1.y, "U", myPath$
                        explore AI(x, y).d1.x, AI(x, y).d1.y, "D", myPath$
                    END IF
                ELSEIF i = 2 THEN
                    IF AI(x, y).d2.x <> 0 AND AI(x, y).d2.y <> 0 THEN
                        explore AI(x, y).d2.x, AI(x, y).d2.y, "R", myPath$
                        explore AI(x, y).d2.x, AI(x, y).d2.y, "L", myPath$
                    END IF
                ELSEIF i = 3 THEN
                    IF AI(x, y).d3.x <> 0 AND AI(x, y).d3.y <> 0 THEN
                        explore AI(x, y).d3.x, AI(x, y).d3.y, "D", myPath$
                        explore AI(x, y).d3.x, AI(x, y).d3.y, "U", myPath$
                    END IF
                ELSEIF i = 4 THEN
                    IF AI(x, y).d4.x <> 0 AND AI(x, y).d4.y <> 0 THEN
                        explore AI(x, y).d4.x, AI(x, y).d4.y, "L", myPath$
                        explore AI(x, y).d4.x, AI(x, y).d4.y, "R", myPath$
                    END IF
                END IF
            NEXT
        ELSE 'there is one direction we can't
            'find$ = TS$(x) + "," + TS$(y) ' this solves many puzzles but not all 6, 8, 10 bug out lost 9
 
            'find$ = TS$(x) + "," + TS$(y) + "," + dir$ 'still trying to get all puzzles solved  bugs out except for 6
            'find$ = dir$ + "," + TS$(x) + "," + TS$(y) '<<<<<<<<<<<<<<<<< this is disaster! bugs out
            'p = INSTR(myPath$, find$)
            'IF p > 0 THEN
            '    c = 1
            '    WHILE p
            '        c = c + 1
            '        p = INSTR(p + 1, myPath$, find$)
            '    WEND
            '    IF c > 3 THEN EXIT SUB
            'END IF
            'ELSE 'carry on
 
 
            'Have we been here before search my path for x, y, dir$
            myPath$ = myPath$ + "," + TS$(x) + "," + TS$(y)
            FOR i = 1 TO 4
                dr$ = MID$("RDLU", i, 1)
                IF i = 1 AND dir$ <> "U" AND dir$ <> "D" THEN
                    IF AI(x, y).d1.x <> 0 AND AI(x, y).d1.y <> 0 THEN
                        explore AI(x, y).d1.x, AI(x, y).d1.y, "D", myPath$ + "," + dr$
                        explore AI(x, y).d1.x, AI(x, y).d1.y, "U", myPath$ + "," + dr$
                    END IF
                ELSEIF i = 2 AND dir$ <> "L" AND dir$ <> "R" THEN
                    IF AI(x, y).d2.x <> 0 AND AI(x, y).d2.y <> 0 THEN
                        explore AI(x, y).d2.x, AI(x, y).d2.y, "L", myPath$ + "," + dr$
                        explore AI(x, y).d2.x, AI(x, y).d2.y, "R", myPath$ + "," + dr$
                    END IF
                ELSEIF i = 3 AND dir$ <> "U" AND dir$ <> "D" THEN
                    IF AI(x, y).d3.x <> 0 AND AI(x, y).d3.y <> 0 THEN
                        explore AI(x, y).d3.x, AI(x, y).d3.y, "U", myPath$ + "," + dr$
                        explore AI(x, y).d3.x, AI(x, y).d3.y, "D", myPath$ + "," + dr$
                    END IF
                ELSEIF i = 4 AND dir$ <> "L" AND dir$ <> "R" THEN
                    IF AI(x, y).d4.x <> 0 AND AI(x, y).d4.y <> 0 THEN
                        explore AI(x, y).d4.x, AI(x, y).d4.y, "R", myPath$ + "," + dr$
                        explore AI(x, y).d4.x, AI(x, y).d4.y, "L", myPath$ + "," + dr$
                    END IF
                END IF
            NEXT
        END IF
    END IF
    'END IF
END SUB
 
SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
    DIM Radius AS INTEGER, RadiusError AS INTEGER
    DIM X AS INTEGER, Y AS INTEGER
    Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
    IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
    LINE (CX - X, CY)-(CX + X, CY), C, BF
    WHILE X > Y
        RadiusError = RadiusError + Y * 2 + 1
        IF RadiusError >= 0 THEN
            IF X <> Y + 1 THEN
                LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
                LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
            END IF
            X = X - 1
            RadiusError = RadiusError - X * 2
        END IF
        Y = Y + 1
        LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
        LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
    WEND
END SUB
 
SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
    DIM D AS LONG
    STATIC a&
    D = _DEST
    IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
    _DEST a&
    _DONTBLEND a& '  '<<<< new 2019-12-16 fix
    PSET (0, 0), K
    _BLEND a& '<<<< new 2019-12-16 fix
    _DEST D
    _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
END SUB
 
SUB star (x, y, rInner, rOuter, nPoints, angleOffset, K AS _UNSIGNED LONG)
    ' x, y are same as for circle,
    ' rInner is center circle radius
    ' rOuter is the outer most point of star
    ' nPoints is the number of points,
    ' angleOffset = angle offset IN DEGREES, it will be converted to radians in sub
    ' this is to allow us to spin the polygon of n sides
 
    pAngle = _PI(2) / nPoints: radAngleOffset = angleOffset
    x1 = x + rInner * COS(radAngleOffset)
    y1 = y + rInner * SIN(radAngleOffset)
    FOR i = 0 TO nPoints - 1
        x2 = x + rOuter * COS(i * pAngle + radAngleOffset + .5 * pAngle)
        y2 = y + rOuter * SIN(i * pAngle + radAngleOffset + .5 * pAngle)
        x3 = x + rInner * COS((i + 1) * pAngle + radAngleOffset)
        y3 = y + rInner * SIN((i + 1) * pAngle + radAngleOffset)
        ftri x1, y1, x2, y2, x3, y3, K
        'triangles leaked
        'LINE (x1, y1)-(x2, y2), K
        'LINE (x2, y2)-(x3, y3), K
        'LINE (x3, y3)-(x1, y1), K
        x1 = x3: y1 = y3
    NEXT
    fcirc x, y, rInner, K
END SUB
 
FUNCTION TS$ (n AS INTEGER) ' special for this app
    TS$ = RIGHT$(STR$(n), 2)
END FUNCTION
 
' so every eight chars is a node, if 2 nodes in a row repeat then stuck in loop
FUNCTION duplicate (s$) ' path nodes have 2 char x, a comma, 2 char y a comma and a Letter = length of 7 and another comma
    duplicate = -1
    FOR i = 1 TO LEN(s$) STEP 8
        test$ = MID$(s$, i, 16)
        FOR j = i + 8 TO LEN(s$) STEP 8
            IF test$ = MID$(s$, j, 16) THEN EXIT FUNCTION
        NEXT
    NEXT
    duplicate = 0
END FUNCTION
 
SUB arrow (x0, y0, rAngle, lngth)
    DIM x1, y1, x2, y2, i AS INTEGER
    x2 = x0 - lngth * COS(rAngle)
    y2 = y0 - lngth * SIN(rAngle)
    drawLink x0, y0, .001 * lngth, x2, y2, .01 * lngth, &HFF00BB00
    LINE (x0, y0)-(x2, y2), &HFF00BB00
    x2 = x0 - .1 * lngth * COS(rAngle - .2 * _PI)
    y2 = y0 - .1 * lngth * SIN(rAngle - .2 * _PI)
    x1 = x0 - .1 * lngth * COS(rAngle + .2 * _PI)
    y1 = y0 - .1 * lngth * SIN(rAngle + .2 * _PI)
    ftri x0, y0, x1, y1, x2, y2, &HFFFF8800
    FOR i = .8 * lngth TO lngth STEP 3
        x1 = x0 - i * COS(rAngle)
        y1 = y0 - i * SIN(rAngle)
        x2 = x1 - .1 * lngth * COS(rAngle - .25 * _PI)
        y2 = y1 - .1 * lngth * SIN(rAngle - .25 * _PI)
        LINE (x1, y1)-(x2, y2), &HFF0000FF
        x2 = x1 - .1 * lngth * COS(rAngle + .25 * _PI)
        y2 = y1 - .1 * lngth * SIN(rAngle + .25 * _PI)
        LINE (x1, y1)-(x2, y2), &HFF0000FF
    NEXT
END SUB
 
SUB drawLink (x1, y1, r1, x2, y2, r2, c AS _UNSIGNED LONG)
    DIM a, a1, a2, x3, x4, x5, x6, y3, y4, y5, y6
    a = _ATAN2(y2 - y1, x2 - x1)
    a1 = a + _PI(1 / 2)
    a2 = a - _PI(1 / 2)
    x3 = x1 + r1 * COS(a1): y3 = y1 + r1 * SIN(a1)
    x4 = x1 + r1 * COS(a2): y4 = y1 + r1 * SIN(a2)
    x5 = x2 + r2 * COS(a1): y5 = y2 + r2 * SIN(a1)
    x6 = x2 + r2 * COS(a2): y6 = y2 + r2 * SIN(a2)
    fquad x3, y3, x4, y4, x5, y5, x6, y6, c
END SUB
 
'need 4 non linear points (not all on 1 line) list them clockwise so x2, y2 is opposite of x4, y4
SUB fquad (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER, x3 AS INTEGER, y3 AS INTEGER, x4 AS INTEGER, y4 AS INTEGER, c AS _UNSIGNED LONG)
    ftri x1, y1, x2, y2, x4, y4, c
    ftri x3, y3, x4, y4, x1, y1, c
END SUB
 
SUB Split (SplitMeString AS STRING, delim AS STRING, loadMeArray() AS STRING)
    DIM curpos AS LONG, arrpos AS LONG, LD AS LONG, dpos AS LONG 'fix use the Lbound the array already has
    curpos = 1: arrpos = LBOUND(loadMeArray): LD = LEN(delim)
    dpos = INSTR(curpos, SplitMeString, delim)
    DO UNTIL dpos = 0
        loadMeArray(arrpos) = MID$(SplitMeString, curpos, dpos - curpos)
        arrpos = arrpos + 1
        IF arrpos > UBOUND(loadMeArray) THEN REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO UBOUND(loadMeArray) + 1000) AS STRING
        curpos = dpos + LD
        dpos = INSTR(curpos, SplitMeString, delim)
    LOOP
    loadMeArray(arrpos) = MID$(SplitMeString, curpos)
    REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO arrpos) AS STRING 'get the ubound correct
END SUB
 
 

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: Dav on August 24, 2020, 09:11:54 am

That is amazing work, @bplus! Man I wish I had math skill like that in my brain. I'll have to put on a pot of coffee and sit and study your code. Thanks for commenting it.

I was reading about the A* pathfinding method recently, trying to understand that. Have you made one of those in QB64?

- Dav

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: bplus on August 24, 2020, 11:10:22 am

Quote from: Dav on August 24, 2020, 09:11:54 am

That is amazing work, @bplus! Man I wish I had math skill like that in my brain. I'll have to put on a pot of coffee and sit and study your code. Thanks for commenting it.

I was reading about the A* pathfinding method recently, trying to understand that. Have you made one of those in QB64?

- Dav

:) Yes I've been studying PathFinders for some time. Someone mentioned A* a long time ago that got me going on my own path.
https://www.qb64.org/forum/index.php?topic=410.0

There might be more up to date one with regular maze
https://www.qb64.org/forum/index.php?topic=1997.msg112246#msg112246

There are 9 pr 10 references with Advanced Search using bplus, regular search sucks!

I used what I learned for the 3rd type of Paint Fill that I adapted and showed Ken most recently.

Steve McNeill gave me an invaluable clue for more efficient algo early on. (Kinda like he helped with clue on String Math.) Plus he worked his own versions along with me, that encouragement very helpful. Thanks again @SMcNeill :)

I don't know if this is math so much as playing around allot with recursive procedures, more computer science in my way of categorizing things.

Can you tell I am kind of proud of yesterday's accomplishments?

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: Dav on August 25, 2020, 07:19:13 pm

Cool, thanks for the links, @bplus ! I have some studying to do, but it will have to wait a week - I have a couple composition/recording deadlines to meet and have to put programming on the back burner a little bit.

Here's a little twist to the maze game - instead of reaching a star the goal is to color the whole maze. Not always easy, especially if you start off in the wrong direction. The graphics are simple, and could be drawn in QB64 easily, but I left it in as using images so I can update the images later to better stuff.

Thanks for your interest/help in my little puzzle games, bplus!

- Dav

Code: QB64: [Select]

'=============
'MAZEPAINT.BAS v1.0
'=============
'paint the maze puzzle game.
'Coded by Dav for QB64-GL 1.4, AUG/2020
 
'Use arrows - move the ball to Paint the maze.
'Paint all of the maze to advance to next level.
 
 
DEFINT A-Z
 
puzzle = 1 'start on level 1
puzzlemax = 9 'there are 10 levels total
 
SCREEN _NEWIMAGE(640, 640, 32): _SCREENMOVE _MIDDLE
DO UNTIL _SCREENEXISTS: LOOP
 
'load images...
ball& = BASIMAGE1&
wall& = BASIMAGE2&
pass& = BASIMAGE3&
face& = BASIMAGE6&
 
'======
restart:
'======
 
_TITLE "Level: " + STR$(puzzle) + " of" + STR$(puzzlemax)
 
GOSUB SetLevel
 
'draw level
CLS , _RGB(229, 237, 243)
REDIM SHARED pdata$(grid, grid)
bs = INT(_WIDTH / grid)
m = 1
FOR x = 0 TO grid - 1
    FOR y = 0 TO grid - 1
        a$ = MID$(puz$, m, 1)
        pdata$(x + 1, y + 1) = a$
        IF a$ = "x" THEN
            _PUTIMAGE (y * bs + 1, x * bs + 1)-(y * bs + bs - 1, x * bs + bs - 1), wall&
        END IF
        IF a$ = "b" THEN
            _PUTIMAGE (y * bs + 1, x * bs + 1)-(y * bs + bs - 1, x * bs + bs - 1), ball&
            ballx = y * bs: bally = x * bs
        END IF
        m = m + 1
    NEXT
NEXT
 
_DISPLAY
 
DO
    'get user keypress...
    DO: k$ = INKEY$: _AUTODISPLAY: LOOP UNTIL k$ <> ""
    'Note: The _AUTODISPLAY up there is to make sure
    'screen doesnt go blank if user minimizes program
 
    'if user presses right arrow....
    IF k$ = CHR$(0) + CHR$(77) THEN
 
        'current ball location in x,y
        cx = ballx / bs + 1: cy = bally / bs + 1
        pdata$(cy, cx) = "." 'paint current square
 
        'check 1st to see if square is blocked...
        IF pdata$(cy, cx + 1) = "x" THEN GOTO moved
 
        'Move ball right...
        FOR x = cx + 1 TO grid + 1
            'move it smoothly, by pixels...
            FOR x2 = ((x - 1 - cx) * bs) TO ((x - cx) * bs) STEP 2
                pdata$(cy, x - 1) = "." 'mark square as painted
                'if come to wall...
                IF pdata$(cy, x) = "x" THEN
                    ballx = ballx + x2
                    SOUND 500, .1: GOTO moved
                END IF
                'Draw ball image....
                _PUTIMAGE (ballx + x2, bally)-(ballx + x2 + bs, bally + bs), ball&
                _DISPLAY
                _LIMIT 500
            NEXT
        NEXT
    END IF
 
    'if left arrow...
    IF k$ = CHR$(0) + CHR$(75) THEN
 
        cx = ballx / bs + 1: cy = bally / bs + 1
 
        pdata$(cy, cx) = "." 'mark current as painted
 
        'check 1st to see if if left square is wall
        IF pdata$(cy, cx - 1) = "x" THEN GOTO moved
 
        'Move ball left...
        FOR x = cx - 1 TO 0 STEP -1
            FOR x2 = (x + 1 - cx) * bs TO (x - cx) * bs STEP -2
                pdata$(cy, x + 1) = "." 'mark square as painted
                IF pdata$(cy, x) = "x" THEN
                    ballx = ballx + x2
                    SOUND 500, .1
                    GOTO moved
                END IF
                _PUTIMAGE (ballx + x2, bally)-(ballx + x2 + bs, bally + bs), ball&
                _DISPLAY
                _LIMIT 500
            NEXT
        NEXT
    END IF
 
    'down arrow
    IF k$ = CHR$(0) + CHR$(80) THEN
        cx = ballx / bs + 1: cy = bally / bs + 1 'current x,y
        pdata$(cy, cx) = "." 'mark current as painted
        'check if blocked...
        IF pdata$(cy + 1, cx) = "x" THEN GOTO moved
        FOR y = cy + 1 TO grid + 1
            FOR y2 = (y - 1 - cy) * bs TO (y - cy) * bs STEP 2
                pdata$(y - 1, cx) = "." 'mark square as painted
                IF pdata$(y, cx) = "x" THEN
                    bally = bally + y2
                    SOUND 500, .1
                    GOTO moved
                END IF
                _PUTIMAGE (ballx, bally + y2)-(ballx + bs, bally + y2 + bs), ball&
                _DISPLAY
                _LIMIT 500
            NEXT
        NEXT
    END IF
 
    'if up arrow
    IF k$ = CHR$(0) + CHR$(72) THEN
        cx = ballx / bs + 1: cy = bally / bs + 1 'current x,y
        pdata$(cy, cx) = "." 'mark current as painted
        'check if blocked...
        IF pdata$(cy - 1, cx) = "x" THEN GOTO moved
        FOR y = cy - 1 TO 0 STEP -1
            pdata$(y + 1, cx) = "." 'mark square as painted
            FOR y2 = (y + 1 - cy) * bs TO (y - cy) * bs STEP -2
                IF pdata$(y, cx) = "x" THEN
                    bally = bally + y2
                    SOUND 500, .1
                    GOTO moved
                END IF
                _PUTIMAGE (ballx, bally + y2)-(ballx + bs, bally + y2 + bs), ball&
                _DISPLAY
                _LIMIT 500
            NEXT
        NEXT
    END IF
 
    IF k$ = CHR$(32) THEN GOTO restart
 
    IF k$ = "+" THEN
        puzzle = puzzle + 1: IF puzzle > puzzlemax THEN puzzle = 1
        GOTO restart
    END IF
 
    IF k$ = "-" THEN
        puzzle = puzzle - 1: IF puzzle < 1 THEN puzzle = puzzlemax
        GOTO restart
    END IF
 
 
    moved:
 
    IF k$ <> "" THEN _KEYCLEAR
 
    GOSUB CheckForDone
LOOP
 
END
 
 
'===========
CheckForDone:
'===========
 
'see if all of maze cleared...
cleared = 1
FOR x = 1 TO grid
    FOR y = 1 TO grid
        IF pdata$(x, y) = " " THEN cleared = 0
    NEXT
NEXT
 
IF cleared = 1 THEN
    SOUND 5000, .7
    _PUTIMAGE (160, 210), pass&: _DISPLAY
    _DELAY 2
    puzzle = puzzle + 1
    'If that was last level...
    IF puzzle > puzzlemax THEN
        'show smiley face
        _PUTIMAGE (100, 100)-(500, 500), face&: _DISPLAY
        'play happy music
        PLAY "o4l8gfedcal4gl8fgabo5co4gl4el8defedefgagabl4o5co4c"
        PLAY "o3l8co2l16gf#gl8g#gpbo3c"
        _DELAY 6
        puzzle = 1
    END IF
    GOTO restart
END IF
 
RETURN
 
 
'=======
SetLevel:
'=======
 
'x is the wall, b is ball
IF puzzle = 1 THEN
    puz$ = "": grid = 12
    puz$ = puz$ + "xxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxx"
    puz$ = puz$ + "x       x  x"
    puz$ = puz$ + "x x        x"
    puz$ = puz$ + "x          x"
    puz$ = puz$ + "x          x"
    puz$ = puz$ + "x  x       x"
    puz$ = puz$ + "xb       x x"
    puz$ = puz$ + "xx         x"
    puz$ = puz$ + "xxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxx"
END IF
 
 
'x is the wall, b is ball
IF puzzle = 2 THEN
    puz$ = "": grid = 13
    puz$ = puz$ + "xxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxx"
    puz$ = puz$ + "xb x  xx    x"
    puz$ = puz$ + "x     x   x x"
    puz$ = puz$ + "x     x   x x"
    puz$ = puz$ + "x           x"
    puz$ = puz$ + "x   x       x"
    puz$ = puz$ + "xxx x   x   x"
    puz$ = puz$ + "x   xx  xx  x"
    puz$ = puz$ + "x           x"
    puz$ = puz$ + "x   xx     xx"
    puz$ = puz$ + "xxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxx"
END IF
 
IF puzzle = 3 THEN
    puz$ = "": grid = 13
    puz$ = puz$ + "xxxxxxxxxxxxx"
    puz$ = puz$ + "xx         xx"
    puz$ = puz$ + "x         x x"
    puz$ = puz$ + "x x         x"
    puz$ = puz$ + "xx       x  x"
    puz$ = puz$ + "x  x       xx"
    puz$ = puz$ + "x       x   x"
    puz$ = puz$ + "x   x       x"
    puz$ = puz$ + "x      xx   x"
    puz$ = puz$ + "x    x      x"
    puz$ = puz$ + "xbx       xxx"
    puz$ = puz$ + "xxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxx"
END IF
 
IF puzzle = 4 THEN
    puz$ = "": grid = 13
    puz$ = puz$ + "xxxxxxxxxxxxx"
    puz$ = puz$ + "xbx       x x"
    puz$ = puz$ + "x x  x    x x"
    puz$ = puz$ + "x xxxx xxxx x"
    puz$ = puz$ + "x      x    x"
    puz$ = puz$ + "xx       xx x"
    puz$ = puz$ + "x     xx xx x"
    puz$ = puz$ + "x      x    x"
    puz$ = puz$ + "x xxxx xxxx x"
    puz$ = puz$ + "x x  x    x x"
    puz$ = puz$ + "x x       x x"
    puz$ = puz$ + "xxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxx"
END IF
 
IF puzzle = 5 THEN
    puz$ = "": grid = 16
    puz$ = puz$ + "xxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxx"
    puz$ = puz$ + "x   x    x     x"
    puz$ = puz$ + "x   x         xx"
    puz$ = puz$ + "x    x   x  x  x"
    puz$ = puz$ + "x    x      x  x"
    puz$ = puz$ + "xx        xx   x"
    puz$ = puz$ + "x    xx   x    x"
    puz$ = puz$ + "x            xxx"
    puz$ = puz$ + "x       xx x   x"
    puz$ = puz$ + "x x   x xx     x"
    puz$ = puz$ + "x xx  x   x  xxx"
    puz$ = puz$ + "xbx       x xxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxx"
END IF
 
IF puzzle = 6 THEN
    puz$ = "": grid = 16
    puz$ = puz$ + "xxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxbxxxxxxxx  xxx"
    puz$ = puz$ + "xx xx        xxx"
    puz$ = puz$ + "xx xx xxxxx  xxx"
    puz$ = puz$ + "xx xx xx   xxxxx"
    puz$ = puz$ + "xx    xx x xxxxx"
    puz$ = puz$ + "xx     x x xxxxx"
    puz$ = puz$ + "xxx    x    xxxx"
    puz$ = puz$ + "xxx         xxxx"
    puz$ = puz$ + "xxx         xxxx"
    puz$ = puz$ + "xxx     x   xxxx"
    puz$ = puz$ + "xxx     x   xxxx"
    puz$ = puz$ + "xxx  x  xxxxxxxx"
    puz$ = puz$ + "xxx  x  xxxxxxxx"
    puz$ = puz$ + "xxx  x  xxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxx"
END IF
 
IF puzzle = 7 THEN
    puz$ = "": grid = 20
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxx     b     x    x"
    puz$ = puz$ + "x          x     x x"
    puz$ = puz$ + "x x    x     xxx x x"
    puz$ = puz$ + "x xxx            x x"
    puz$ = puz$ + "x x    x x  x      x"
    puz$ = puz$ + "x x  x      xx     x"
    puz$ = puz$ + "x          xx   x  x"
    puz$ = puz$ + "x     x            x"
    puz$ = puz$ + "x     x            x"
    puz$ = puz$ + "x  x    x   x   x  x"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
END IF
 
IF puzzle = 8 THEN
    puz$ = "": grid = 20
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "x x     b  xx      x"
    puz$ = puz$ + "x          x       x"
    puz$ = puz$ + "x x xxx  xxx xxxx  x"
    puz$ = puz$ + "x     x        xx xx"
    puz$ = puz$ + "x   xxx  xx        x"
    puz$ = puz$ + "x   x        x     x"
    puz$ = puz$ + "x   xx   x  xx  xx x"
    puz$ = puz$ + "x               x  x"
    puz$ = puz$ + "x      x    xxx    x"
    puz$ = puz$ + "xx     x   xx     xx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
END IF
 
IF puzzle = 9 THEN
    puz$ = "": grid = 20
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "x                xxx"
    puz$ = puz$ + "x xxxxxx xxxxxxx xxx"
    puz$ = puz$ + "x xxxxx   xxxxxx   x"
    puz$ = puz$ + "x xxxxx   xxxxxx x x"
    puz$ = puz$ + "x xxxxx b        x x"
    puz$ = puz$ + "x xxxxxxxxxxxxxxxx x"
    puz$ = puz$ + "x xxxxxxxxxxxxxxxx x"
    puz$ = puz$ + "x xxxxx          x x"
    puz$ = puz$ + "x         xxxxx    x"
    puz$ = puz$ + "xxxxxx     xxxx xx x"
    puz$ = puz$ + "xxxxxxxx        xx x"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
    puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
END IF
 
 
 
RETURN
 
 
 
FUNCTION BASIMAGE1& 'BALL.BMP
    v& = _NEWIMAGE(191, 193, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkMVoN=M]67_o_DE[FUZgRJ>V9VM=FDS=J5a#44?RiDSG^RWHhJXXXD:]D"
    A$ = A$ + "JMEZYJ^EkoA[[?;?K=RLSCBfkmkJOfOoQ??iTTSS\F[_kmnMm^N7^dV6]kB2"
    A$ = A$ + "Q#842Q#842Q#842Q#842Q#84i#n[;G_k_namhNj5g]kYo`^Loa5fQk9OgfL?"
    A$ = A$ + "iLKacS?kVOY_b_kg?ofm_?NooiUZcoIHmh#8J>#SS6n^7MU^KDolMogM=Cg5"
    A$ = A$ + "ghXLWK]S`M\E<4gQGfPLkYlBLkjck[KkOF_MKMN?W=?WNjfbLkUoW]cig7GM"
    A$ = A$ + ";XO^3\h1hOoWNe3go_o:KKb^[^[?eM[3^4gm?iJmGOHmhET_Pk1oXc\9_nkV"
    A$ = A$ + "7X2gKl6^GRmFAomji=<cNhZIJMc]l9m?LE>Q?dEnHj\K1S^C^iEJ7McMh_WK"
    A$ = A$ + "F3mMO1cL8M`3_Nf3kml_W?ODMbonGlhkRoOoZVJGM[IjMgOM2Gk`e6=logK\"
    A$ = A$ + "g_`O=7oMac;\NNBDl0fNLoCDSkjeGVk\[YDgAZJ`^eoYO\[jYlA^I<X>hVHO"
    A$ = A$ + "O[GijPdP9e_fkFdhn0oeHl<5NnbEgidMgi`Ej]Obji=Af3d>=DSamL[H\MfO"
    A$ = A$ + "oiYDBkMS_g]c4]NcahjeKjV#OJWKj3lMLU=R>jFjo\;^omGd?_]CH_d_^o5h"
    A$ = A$ + "nS_OWV?g:2CNlgF[gfQ8md:Vl7i]m`JMM[5^FU[IaF<nNdogkh[bliIAH`M>"
    A$ = A$ + "BE^;EkHmj3\;7KH\FcVD`c[hj1f?Bd?CkK>O2kKUeOfk8f^7RfbT4`nY[Mfm"
    A$ = A$ + "doJlM4?_cje2Ab2nY9Jm7kQiNPF[3]6fW0nHRWk5Mo0MV25GPM^H_;[gh[`?"
    A$ = A$ + "I0_Sij^#2fK3n?UGS?C]NmBdf1o`ORZ7ZKnSlmmgScJ=FF0lGd>:[?^[\e9j"
    A$ = A$ + "?_>[G355>\o=f3kiGg8lWE:nj`JmDF3>W]Eo9Mm5OomnjEKnjZXi1KEoa_LL"
    A$ = A$ + "^jGH9NOaK]6ZH0^6h#E>#g3oVeKnj[hEQcco<eDZonl5cnYd:h\[aGHLna\O"
    A$ = A$ + "0>[K[Gc5?o<YR^oTdm9;hODnj]?dB=OM??3WA?g[Wh6cJ=AN3Rg>f?lMoZU["
    A$ = A$ + "W1TbP=>oBMce7CIjNmY?hc<doAO?a`]eJRRM`WKXiaOd4?`F[14>OlcAl]Nc"
    A$ = A$ + "mG^ijSRA`o=47a7Mi3f]YIeSLCl7TEPHYVLGPc?Da8Al2aM2i`TEa:_X`PL#"
    A$ = A$ + "SH3dJmBa04O9<GBlg8MOfPXh3Bf0efPWQR?k]NmDdbPh1We?bCO[e#I=`_1T"
    A$ = A$ + "[f=lLe5I;86Z8^1El#dbPlWRLdNZmo]=O=DdjQh:iWfnDlnY`J=EX3ncQHYU"
    A$ = A$ + "l_fje=Al0n05o0amoU=#==\_FRiH\EDg__h2R;JRa#UK0==\WFZ7=F_>9B6`"
    A$ = A$ + "?MLO=\oAa1ac1OgOi=?N__a\NmATl\_5=0oj]ej^#0R=LZ1IF_V8B?8NXcce"
    A$ = A$ + "#^OkHEk>Ie3Ci<N>Ue=S^k[KYF[3]P[EgLlel<[G34f0eDAR1mlFMQPc]ZZ9"
    A$ = A$ + "ZmeVg1oOBnGTGZAF<>9_78OX]N^GH?X3h\<]FGVdHml\8<QkmS??\FOVdJOR"
    A$ = A$ + "oN[W[5Q5T7`\ggRAKoYWjdDm[1QXY`JmJL2mO7>C3[WC5Q=TW6LnnF[GSC8o"
    A$ = A$ + "JI?mF?g:2O8fOXF4H]V]]2a^TecUR\7\W#ZYTF[OKCDkHmm##[W;5I;8f^XW"
    A$ = A$ + "9I^n]E2e_ARK?[W75ICR\A>[eW`8758GKEMSBdJ9ZVaWe\moWgaDeml5a6F["
    A$ = A$ + "WK9#<:YJ0^8>PhO9[dO8_bfV\bgFA\1m7:O=_:0df=7Ln]LMZlU_8>QHNPlm"
    A$ = A$ + "`JmMc1eR;I[S8Yh1WJMV[aK:\NNADL3a6`aFa#<GWooCkCm`gji8Aa9H7=aj"
    A$ = A$ + "Yejl63iSRjWQRT6Re7R7h#Z6W`i?XcaBTFl`C_AcelAfj84Y5TWgLnAF[kSd"
    A$ = A$ + "n:Ne4Y5AegO[em0Wk0fQImLR8o0egL;]kag3\NVMnT[=F?G8bGP?O8n1\:F7"
    A$ = A$ + "hLf8VedIh:\0b]a[\e9JcmnENY8<4ZUUFUO;7YZ1;kM4V2mT:;dndCP\N\;b"
    A$ = A$ + "g#o5o>7^bDEgCo3FiVR`JXol#olRNCHJXk9n5H?^Z_0921lifB:e;7a_B7NI"
    A$ = A$ + "3j5iCY#H9AfOT6JOZi>Z^i;2=B3]?oo#NTImHE8RPjMIJD;C\NL:4=V]>_NW"
    A$ = A$ + "heb4ZgDLN2F?F5R62e61RaQTDkOk3]DEol517;HdMbg7[BJKNdIi:2=Xn8Dk"
    A$ = A$ + "\kIRZkYWPbeHF?F5R62nKWLI?YdmLfI4kJb7?R#4bIfT:VnOlIg\_OH[cdB4"
    A$ = A$ + "ZL[3^T4AkOoCDSkc7U\gA4fT4niWJ3QZiJR#Wh>^>aFO[7C2AQBLK_SeS7Qh"
    A$ = A$ + "eAM;XOn_6WJoknE;glaU#ljPhIV_6WJO[7C2AQ#=C[K^jGH9Bk;bM`iK5gmV"
    A$ = A$ + "JnLS\UB82E8V3RklGW?GE?B4Q>TkjE>Q?<fen:n=5Q>4G3L_ohDkcn7DN::2"
    A$ = A$ + "Mh\GiNoaYfO?UGRg>:[7K2AcaTjGkMcNHa[f7oVZn6Z8dIlm^Mnj3KLZmIO^"
    A$ = A$ + "Dco]N\94=74Sa4SmaYfOccYW:O]4I2VHOO;Ym5iBTfGTG9^endGQTmnR\0h["
    A$ = A$ + "7]GGAN4laOLZmYNDYj]_8d99la9aaVdnR#7\eWN#JLZmicMmOj7KnHC8J>`g"
    A$ = A$ + "ndoASK]?em:[7K2Ac1fk4gab6O^:6V5Q>U=R>6keW=nLEmGF4jTDi^R#4jPO"
    A$ = A$ + "hYFl;]_8_ajVAgM7Ha38FenD[[\NL94_>RfCJLZmOdIfTiS;QX#9>enDO?]N"
    A$ = A$ + "l845:aYfgKgcAZbkoD[7G2Aca3>ejRM]_Z1iR\0oa5fA\[momc_MO]JH2mYM"
    A$ = A$ + "V?n4R63aa6fV4gjNPj#>W_e<7B7<OL:4=6Z=9dKPB2]?LRZ7ZjeLRP4>G[TB"
    A$ = A$ + "g3GKgcBeY7A`1eTWm]Xhm<]J<dgQD]9D4JP?HXogVTJOf_;WI\eSEQXQP]8o"
    A$ = A$ + "BMc=AenPeSCQXa#]Dh^7MUYRfGkgE4JTdjn8]_Z9cR#Sd#kOoC^Fon:dIL92"
    A$ = A$ + "1XGCLcmGNZXmOj5g]kjkIN:fN411hKc7n=[?Edn`SofJmi3_eSKAn6Z3EGN;"
    A$ = A$ + "C`7c1YUf78?1dmn5F2nLQh[?=em`oI93dEnHj\iSOAn5j7:Y]^7^FMcaMlE>"
    A$ = A$ + "D]WGQ9#M1Wh;c2]o]>hBLGZfaj[5FF??8bO#\eHQ^?2Ra1EOV5Y=d;AaGS9I"
    A$ = A$ + "<;G8#]:TJ0Zec7Rl3E<f>k^gG_JCemNNVM?dGF\Nn#T?0oJB>DI^^oILk3]D"
    A$ = A$ + "cW?4i7f`<kQkbKNlV[kQojbekeobO?RdROkHEK^^_Q#LT>_BkXic;RRG8WLO"
    A$ = A$ + "bg]=cej=VS^l1k[ocF?o8:>Qj`#BWC^]FDM;DTT#O_jZkLjV[cK:8NRh_Aja"
    A$ = A$ + "SF??9:>QmEJ]>_idok]RnkcKN[WW45?#^XoTc]5ceg_FZM\b^OA\1a<CLg?9"
    A$ = A$ + "BB\NnBDl0jnkMlEI^V^UXmEMlAdFQl3iRKLDV[WK9#<^mco[YYLKAdVPlS:8"
    A$ = A$ + "RKWF1kX\nXmm:JE\Xam1^7Nj=J^6^ebIZYDe?f5]H8Ne8>1\FofFPLYl^Oeb"
    A$ = A$ + "mS5[W?5I;2IOiGXP]oTCaS[G_YicWR`7R9bK\g_88SKWF3F?O:b6DcdjVo[F"
    A$ = A$ + "[GSCXF^aHBakPX#`JmJB`QGfPD]lDl:`m49?4]FOVT#oIWHN#iiRXQ\Wb;9H"
    A$ = A$ + "b5[T4R9YE=e^jVJoOKcWc5f3n0YH`W>5:TcIDGgdmocg`m0YNJJ]N<]i:KMR"
    A$ = A$ + "^5?n^Hnl_`FX^6K]Fd2XG][JKEnSXcjlYo`^<G3J9HkSdoi7`W>dKhBcJVOX"
    A$ = A$ + "2Wk;noAm[ml3gjP;bLMG8aYGm`miS\e[;RT1ZKbT7:iMkLJ:`gWDKWEMM^h6"
    A$ = A$ + "[eIQ<ojnGPi[?Rh3^G_dl56d;k#oC=hbje=AlP_G=40J[\2AehF]7h\9Aa]U"
    A$ = A$ + "ejX\:<gANOAmXcjeBAQ3g_RN`LF>W331`6XS]RQhZN:ZVo4jPO:hNEgmX[dL"
    A$ = A$ + "MCa2gXnik>kJ:e_70UoGQ9dkMX^:lmK8KECAb:LU]=IGm;\4cGW5_<d[??DU"
    A$ = A$ + "3dLmAa<oiUZcWkk<OCNl[W1H;4;Rd_elmm]LJ<YUf#N<Omj;Ci0OPPejQl8L"
    A$ = A$ + "=`?_SYj?o4i;XdQXh>??U_9Q:4?PWK]S`Ef8Do>:YQH`TJ]7_fjeMaO3a3:a"
    A$ = A$ + "78mkdi?bggLMBa2llDZomlJOnF70[eRG5\1RcD1m_f7#l0e5Cl[0aU0nJ`je"
    A$ = A$ + "Ha[7^75[M4k\F[ObJ#NE5e_`]NMDdbQJ1JdJ9jO5G#5VVWn4;n>PjNOF]nO;"
    A$ = A$ + "nK`F8NV=e1V:WPb?b6c<6D7liA8e87UCE5W#^a7]Ncmf:O<M>gFW4iiPXggi"
    A$ = A$ + "lkSkWfnDLgl0E8kic1#laMWSDe;j7fi]j44a55kOUNSCFZGF9RGX_Xf`W7#l"
    A$ = A$ + "RB]QdJmILZcIl\_5=0ogS==5;egKAl0e:JbG<ZI:Am:Y\^m#lg?eeKR_B>oK"
    A$ = A$ + "I;_X#QlW?B7am=Y6jaN42]c>HF3mMmoMQ6?jWmPC]>__^\N>DTMiAWIC^K^o"
    A$ = A$ + "bmn0i0;N0nW9`im#<DHM<4QoI`V6b?`6ZkE^S8BJhj2Z[^=D?RODa7Bh35lW"
    A$ = A$ + ":aJ:aH1nEQN^:fQ`N[ij6PG3DGZigS]FLM5a<6a5o6VI?N9M=#LT9O_;218F"
    A$ = A$ + "R8Vj8g287c^FMcaG[MiI5GHmSd7[MDk]8N;>n:7ZgoB`AZji`[iWc_WNC9_O"
    A$ = A$ + "nLoa_LLNOa`W7fZS?IDLb;42Q#842Q#842Q#842Q#842Q8?`o3#P%%L2"
    btemp$ = ""
    FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
        IF INSTR(1, B$, "%") THEN
            FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
                IF F$ <> "%" THEN C$ = C$ + F$
            NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
            IF MID$(B$, j, 1) = "#" THEN
        MID$(B$, j) = "@": END IF: NEXT
        FOR t% = LEN(B$) TO 1 STEP -1
            B& = B& * 64 + ASC(MID$(B$, t%)) - 48
            NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
            X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
    NEXT: btemp$ = btemp$ + X$: NEXT
    btemp$ = _INFLATE$(btemp$)
    _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
    BASIMAGE1& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
 
FUNCTION BASIMAGE2& 'wall.bmp
    v& = _NEWIMAGE(50, 50, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkJ7C3023504e68QZ0L1VZ>R9<1NPT^bF=#a0T#78Yg7^QW0^m[NFJe?Re"
    A$ = A$ + "lBXI7\LG7cYY#XW>>fg#c>Ha>Ha>Ha>Ha>Ha>Ha>Ha>Ha>Ha>Ha>Ha>Ha>Ha"
    A$ = A$ + ">Ha>Ha>Ha>Ha>Ha>Hi_eA4lD7ATM`bXonj=M1L<9%%h1"
    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
    BASIMAGE2& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
 
FUNCTION BASIMAGE3& 'PASS.BMP
    v& = _NEWIMAGE(324, 155, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkM^7eFEEW7WG^8gD#05O55443#1a;1Z##PPY6VJjb[YYFj8Y>RCVFfXUF"
    A$ = A$ + "jTY>#Y;<]1;]\\Y<_ARBZ8V>PGHQiUBdA6U9CId9=6eFSogIV?kmjg37Nhmi"
    A$ = A$ + "iiLfkciimfg_[eWU;4>km_mi\gOOfg>kC?jA?BjQ#8427BBBBMgUl3UTTTlB"
    A$ = A$ + "nQBBBBN9o#9999_TOXTTTTGb?DBBBb;i7:999iUl3UTTTlBnQBBBBNU7o`fk"
    A$ = A$ + "m<^#84QRl352AgMJYUFBjE?KYdl37fPjObh7i#BVjhgYTY?aA842A7F6HojC"
    A$ = A$ + "b0jK_;=o#l2?jY?fTcmXVLbGm4WR#84MHYeQ<0GOh:;o#jG8NQ;Lnc<i7MAO"
    A$ = A$ + ":Q#8j`bXKM#9kl#7HYi7BO#agUlJYGiA942A7FfSMIkC6i>^Mb?D84MkAnQ2"
    A$ = A$ + "Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hA"
    A$ = A$ + "nQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q"
    A$ = A$ + "#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAn"
    A$ = A$ + "Q2Q#hAnQ2Q#hYcPOh1__S<IPm[?EBc#XUFJY=CkAgjPR>];C8^kX7SFLF4aH"
    A$ = A$ + "]N>UE:jkEa6?UE<VUh:VlY8ZgEDe9JV?Oj<h7^Oka>V<QA=dTadjPMaJNHW7"
    A$ = A$ + "j0C6#Ok]SR>]cBN_K3OkR:^YnD\aH<aAFScmN<3;jH\N?WJ6eEZ>N6fPjOb^"
    A$ = A$ + "^3K[[=Be`o6l;bC\=cmNGLagN]K3=IlSL81G_`R[653QL_X8ZgEDe9J6eGj<"
    A$ = A$ + "j7B<bmd7nj?cTEmCnji6;F:Sd^NlXgdijZC4jeKa=e;96Gn2?eXRSbZ<B<Ng"
    A$ = A$ + "GaW9ZHT[[N?WJFeEBG^`gQfMah9Uf;Lbkn>hl1=X<o\ggg?iEGeMUlGf`;Tl"
    A$ = A$ + "AOhVJcfB_ok\QTo[omW9i?l`oh:aUAmR1kNAX?7\[?_?C]d8fj4I]mAgAo#R"
    A$ = A$ + "aGna^S<Uge:Fhicml]>b2=][Wn_OmW?iOmbVG`G_5gcHBS`E_Wj0a47[KUgN"
    A$ = A$ + "`aBmBKRaOegHNA5S?n?jRZDNiIdmm]?bfUj:eBhGQW4YKeNB3NPmeeok6eW#"
    A$ = A$ + "j[4PGmOjiNTPSU?lmN[Tel[_VTQ^MmcA]RQldffd;^lOHUW3kcHgaPNVJ?;S"
    A$ = A$ + "]>ASDmJG;o`67;43oR;mCk^oe<l3O[e]jT[oLWEb7lGNSP^nU_XCc5go`oQi"
    A$ = A$ + "V<RQ]]9_h_M91U>oWon7f57?gm_hP^nj9:S4SghiO`^Hla_U;<Xda:[`Ml?N"
    A$ = A$ + "h9geUO41i9FV??C[=]aekl5]a\E;?AK<WFO2;bhjmnc_Lb3NMWL=SQ#l3Ogg"
    A$ = A$ + "HMEN><]mJW3b?cNFNcG`Lle9nom7;3E_feb?\aabELJ7TcKQOgZIdnieNjUV"
    A$ = A$ + "<o?cNW\Qe^lP^NZ?ALOIWb1Tdj#6#bOlA^ePBW7kOI1^hhOkf^TP^nj9:S4S"
    A$ = A$ + "Gha]o9khPkObS\hc>Xda:[`=LNcfi96b_ig\l3=mj[II9mKKJKo8jKX=GQ<V"
    A$ = A$ + "AjOIA[ofOMS^OkX]RQ#l3AGiI<=gcQ[m_K6^i6h9naGL^^NkIiGoTWZ[N;eo"
    A$ = A$ + ":3E_feb?\aabY>g9TLeWiW8if_T3[YdnQaN<Ua=lT7jjoR1MmgbGi#Lam9<["
    A$ = A$ + "ailJ8m2AOW_hdCVjhgYTUM=WH#GOmT=nZ3mS?ZTQ\]m=i1^fC:Xdi\VgTZlL"
    A$ = A$ + "2oO:kQlkm=Ko#dcmK^1WO4a>NBhSKcGXeg`gl?n4UFnch?Fb5>g]86Ra?lWl"
    A$ = A$ + "e><Gj#LCoknM;i;W[[gNFN\cH?LSU?dOS\AZN][UOHSS5JcBK]Kk[NX=Uf?["
    A$ = A$ + "m^_>glklc^T3?X[WahJcO8Yc6OiW<Xdi#foAilCSI^<[UX<B<Bkn][om9IYG"
    A$ = A$ + "eW=XdQHdN>]PSIOCn1;H>^nmdI`?4I?[0bO6W<n9LOiiOPKZdcOVOc_aYNPK"
    A$ = A$ + "aLZ5ZOhjObkeU6llTn7^RKlLbeeK?;Y]?o6i3mm?SL73IAe[M]l33;F:cf??"
    A$ = A$ + "c_lZBjM_jYkg93A;n_Of^hVnI`hPNcGJE1U><V5fWFlkn5]X<B<bl<aNdPn6"
    A$ = A$ + "5R>P9dJUWC<fN:kMVl3OeEMWEROjOfH7aP[\fZeJMS;JMoGma]5Nb43Qh7RV"
    A$ = A$ + "hX7FB_jI;93Ok7#^mc\WU\N<h7bl9F6Z8mHTOHca?TlUaZ6cecL#il33L<Gf"
    A$ = A$ + "nFUiT[XUl3g\Vg1<j:U1l2iN2kAVVUHmE\lWa>Ka#8b6c;S;IIOgS?GG[l3;"
    A$ = A$ + "gH]c^O8mA<V[O#3HKLe[2A_bSo;MY1oF?cgLA;i7^IM17kniRo]Ygmdi5aN2"
    A$ = A$ + "Tm>HcDWiWNRE^?bjZ4ZOX]WIHnohi#NTl3;gH]c^O8]?NSGHU1U6fh_hgYS9"
    A$ = A$ + "6`?TiDZXEG=o`#O>Q^^cNVEnm;^O`hE3A\n5LoPmfINEjiaTHPe39DAlSOh]"
    A$ = A$ + "NaOZLMMb?\LSe^2nQ?ob^aPB3K\?\6JQX[j;<m:mAUbKA[^JnQToOYSLb1M]"
    A$ = A$ + "\6WFm<Fo:fgeQ8kNacl[n>inJGcMNeE^?bJQ0QZcn8VTK^JnNWc\bee9o`b="
    A$ = A$ + "Fk8k7JYMm0_X#g7:hcPO8kU[#DJo#V_m#DF;SMEl31F_fl:f;jV?0cg;[UB8"
    A$ = A$ + "R[UdIQcOVinJ]OO2`CVeB;DaHViIjUoi?`LMM5UOHjj4e3i7V?eNj7bjH#o3"
    A$ = A$ + "3M?g`k80[a7kgi#TEWRHh1oW?UPBS\DW\_mYG^a9nKnW>VXRc>2nQl<kI_g5"
    A$ = A$ + "Uk[elRH?f`mR#g_Wfm1fSaQ630ca2eMRASKGgNglRV7e\m3?lY>JgN=BkgV\"
    A$ = A$ + "YVQO8cc2kg<F;Ib73f3G0iI8Rj4D_nB>YY4decljKnEQ^?`JDILFCNGLmYQj"
    A$ = A$ + "nQjifAb?TiJ=Tig`lR86`?LegnU5L<PWL8o6ZmnT3llPn86SH<cWaQ]GijJ:"
    A$ = A$ + "3o#V;CfCWdoPdem`;Te#RgU6^O9o`hRUR:]aWhXWnHC>gSJb^l`Pa[POFNWC"
    A$ = A$ + "JC<NGlJ2M]#\hSn7^R5?oXBSJE6a[Vi]WnR`kdK8ZSVOH8_[hVO8[[<o68oi"
    A$ = A$ + "HRQl^^^Y_NPj=aj7bL\LlOb?F^^Vb`?TmL=nNGda_oKAM?jG8NQdVn>oVi_n"
    A$ = A$ + "Rl3;7o#jc4n4<W?Tn6hC#M2l4oX?hmbMjSO8me8Tm:SeG1j[1m?LUgliWkd0"
    A$ = A$ + "eXb8Nmd?dHNgmkXi76bk:^i7BnSOhCm;nfA53Q>G\fmAZg#OjSA<?Z7a1>VL"
    A$ = A$ + "M=UQO8[W8]5H>4BGgSa8Co2a;\8>SKTOHa<OC<_cdG#jK#jc=D>K_i\7Tei;"
    A$ = A$ + "Tm?1_oKdf:4_<[m9mCPeT9D_Z6E6]g?=n_QNf>eEc?TkE?eML5A53Lnn4je3"
    A$ = A$ + "D_9Fo#DNW[WRf?TeZSniJ_c=Y[gE[cI=i76F\DD]O`_Qn0Vnl3e>3OiMkWo<"
    A$ = A$ + "WkFiEd6Sdh5N`K>gG;NYflnAJ4jiKCN:Sb?LckmX^:nQoiGlabeonRf?Taf#"
    A$ = A$ + "j`_5KWo]Mg?O\kXj7bc<N?]h<8Pg7>>;?J[c9h#c3JSQ?D8W90fN]QjAD_9d"
    A$ = A$ + "ig??UAi7faa?TH8dmaO<ZXl3YN0W=4l^3bI86Y3SaQjH\g>]bYl3cW:Co`jY"
    A$ = A$ + "Z?WP3Ym1SaVe2Qg=el:6[NAdn\NZX>;TUOhF73Mgm3[WNY7mWFYL6ciY^l3K"
    A$ = A$ + "NnQY?WPY?JQN>`aLg5R\jU\F7a\NWeC5eIQ\l3gjH#nQeFlMWa:WL^7ZeC9k"
    A$ = A$ + "Zmb?d>WPa?Sed8djVQ>7#fki0kC6F[AnVKDdZX>;TUOhF73b?\fRjIFiTmk0"
    A$ = A$ + "WUMjk5#fDkUOHjclIkM5Pcgml:fS;Q8;_InXaKL]gc23:MZW:Zc2Ii7^eaPl"
    A$ = A$ + "3[]HnI\b9_kFlmkAO_0bVJ_l3COV?SG8mOjMN]W;gY3WgoiEYO_]HmHXNi_O"
    A$ = A$ + "YGO^CW6YRj\#FnQKM<8o`J[dWS?lnc\X_dWdMn_;o`hRUbd?<MKLkM[Wi1>_"
    A$ = A$ + ":TcPodnQFkR#?SMZW:SmN[l3UOHST]g9PCnP7_kMDQ_aNb?<^HYIk76jg4Zl"
    A$ = A$ + "ZdeG\mQFIlMl#nQKFb?d;i7Fko]b?L;m3;[_5]E[;n4nhEbKkmfZ<lRUOhVU"
    A$ = A$ + "l3mBnQenO[l3g\O8DFW=Ve;_]g[oo`3M;UFn8o#i7JBnQenOKGMo#J3D;\cJ"
    A$ = A$ + ";Pj5a\WKb[X_XYcKF?W#of6UUbXl3UOXYRb?T_m?eZNgWK>C#nQM0m3]d^AH"
    A$ = A$ + "kg6lY2iLM8VhbbkGJ5gFdYE]`F3kOkR>mPb3i7^ea#gMo`\NN`bIO3OkJdj;"
    A$ = A$ + "W=eA`?TiccnNW]aGiY3:_bZhKRDjl>Vef6UUbWef;f_I8b?DnQEW>=2nNg`n"
    A$ = A$ + "_Ako`\YVQO8Wg6ko7Kh9cMo6Yk\?`hhViNhJOcgJ8kkQKIo]`<mN]QjDdg#R"
    A$ = A$ + "_e]bK?Xd;;UAKnAkZLN`:o``EIh7>aA?<gIX4W7fFm^SiC<fT_`Q?AgggUUL"
    A$ = A$ + "QcEW7\ID=3o#NNM2cJL^m:oELJ7D5HNOI_RBNbIgFXW[3iAhUHa5eQX_QhUE"
    A$ = A$ + "VUAk<HR_YBQ8i7^ea#kQOHXkWndZ<l3i<Yml>jmaMNHKek^bcHJ^a9cI4;cM"
    A$ = A$ + "XNoUcVJ6nQl\klo\kS[OklnUK`Ig;?[hg^8_`c8dc0V\Zd[m6_o8fgMbb\<J"
    A$ = A$ + "mmm9^e_F#iQl3gjHXm`?Tj>al=X6E6nQWnQ^W^aHaIaNjjMLncahTiMG^8>S"
    A$ = A$ + "KTOHiUfE3i3k3`Rh<j\Nb>W_\OGUcM6X<;SfmAMNOeig?<d_ARVjX]7\TOHf"
    A$ = A$ + "SUVYO8WcndFQnZmAOhV2:obRBG?RifSlDnQI_\fMg?l`Vb^5DnJBnQenOK75"
    A$ = A$ + "o`JmmoHbkn>h6[GImmCaRMnoW^\DVkiVd[m6k5QR`?\AUAknH\nQan]bXXl3"
    A$ = A$ + "gd6GO^_fZm3iKCG<a#8nQ\WmRe?<V_QmXVeg?UZKK9o`\9[nEKmmoPkUke^="
    A$ = A$ + "dB9]K[_c3FIiEGeM5Dne8Unk_;`gXAb_HFGk\D6]jWaj76kg:SRX^2]o2AEk"
    A$ = A$ + "76cg7?RQ#l3[nLl8_c=S=gc?i?obcMNKZIlmC9Mm2:Wb?<kRj8?km^8gHPf`"
    A$ = A$ + "JG^KooagAAPm72[1KITf`[m<gOUk55AI9;aSUOCIL3g]VLfnN\<;SDW<6o#j"
    A$ = A$ + "GcJ_k[cm>FoJ?mBCN[e]JWg>YOjc2iVQO8O?Y3A5UO8]kiK4A<SI72ik95nQ"
    A$ = A$ + "lkNO_cIFi>_=ET_O:eZ>QAF[G8o`\YENCWWkKhJX_;K=B_m[^V:g;HocKkiV"
    A$ = A$ + "bJ=VoM;i;_5gkikg]=_UUU7\E6IlbTo5]hK3_EVJdJ96KMUHROkkI8g[YO;o"
    A$ = A$ + "P5<WPB7F?<jCdK_ne6L<4SO8Gk<Vd8bMNKZIln;Kb:[\7>H^5SM?gdMg?TkO"
    A$ = A$ + "O[COJ^O7Z<dOjiOd:g;h<l5?3jWOXkKi6Ydke6JGaih?nQUIOB]b8n0QnnjE"
    A$ = A$ + "?ajBHUY6]Gc:knOG?UnN?nIL^2monn_K^C7j3DXonLKM^6U7IU1jOJXcaMkQ"
    A$ = A$ + "O8k1<nV14kj]dMg?lb>U3`]?g3mknASdjFi?_bm2Z[bHQH>h:[mLCjgcMf;o"
    A$ = A$ + "\gma3^<m8\b8U;f?H5]NP[mTZDVJdkR#75o#K]<n?NZk[Y63Y?7?\ceXl8[<"
    A$ = A$ + "POn:Fll3:6J?l3IOabHlYnWl33GlMoH2SJX9;kJ>a2?]AL6mWN]N]gE4hoi]"
    A$ = A$ + "Om2?oB_75>jY?FGmkbf?d:Sh1`gfWRFhoIUY6m^ZfNj7VnN?n0h7n8g`Iedb"
    A$ = A$ + "O>ocC_FJ43Qj7Bo33ikD1Zm`?Tjjl>[#O4UOHhRi9Qj]d?kb#[i>_j:g;>b3"
    A$ = A$ + "J<^aVKSO]<fc=YkO`9=kai>7T:Ko#[<BK8joFA[_kI=S]hgDZgIIBkYOXmm<"
    A$ = A$ + "d6[:#M;VgoVQfka<\]`?TaP`k^NNTi7bn[ReEi3O_g:gaAkQOh\Vl^hF7<No"
    A$ = A$ + "ETOHhRWMD_UnKD6:mjmakP>o6FIj?U^m0OWMH<4\6>=Sed6o#VoQRFii\o\m"
    A$ = A$ + "b?<mjHT^_Ih7bhmoKKj];elWn5U>oYMWMnbU7Ig[Ion`ja4bhmK?l3;2O6i7"
    A$ = A$ + "fnj7bn8Y8EjmR[=fBfCob?\L5ggCgg#kN_=GafnVl3Ngg\DboZ7W\=nAkmd<"
    A$ = A$ + "?b^G?^MMkM];Fa=N>i>NTOHi6WMEm3;jmLCjljPfcFC^PSMoL[7KcJ??fMd?"
    A$ = A$ + "\]l2IMmY>?[g>oMh7bH?I\L_ok\Q2=oilXYJ_#Jcag\KKOhW7Uf?Tn76bN6B"
    A$ = A$ + "nQUKLfEd?TeCIi;lD;dl:]_1kaLkn^l3;NanD<mJiW6RAVcC>oEH_`WfCTWo"
    A$ = A$ + "[jWNYAWoL6dTnLk`0?8bOKMd2e?48VY]aOm=OULU6b?\LScdWCF\_\Fc_nJL"
    A$ = A$ + "W3c<W9\NVl<<D\eOh\VgTLk_0>onH?dE4Y=T^=Si7bHHH^^Yn6WQo[mNFXKL"
    A$ = A$ + "9\G1h\B<dl:mjKbil5NC\Gc;ckOY;S<WCLnL^jOfgdiAbNHROWQe3>Vd?Mi:"
    A$ = A$ + ";nQUAIUm:5aAS>cV?ZY]k^ieWnUKk98cC<mo>^WaOojGmMW[foec7VgQLf_4"
    A$ = A$ + "GjWKZ^eTWi9a>WghK=;gCHO\cLXTUkefJ2AMCfO^I]>ZeV2o#[_6l\Pi7ZXZ"
    A$ = A$ + "CHdMd?Th3_SjE?\c0\?7i<\TbCe]?:JXM1eGX?:ME^o1L>hQ_F]FOif[bjD7"
    A$ = A$ + "o>iNnR_9n=E_WaaC\Faeh7i#Z\giI?^DMKNnkBo]9[]0O<>[Na;lV_PihlLR"
    A$ = A$ + "mN1eAIO86cm56c#chn_Mo[k`j;G_jBMVPn>aN5QOS]\;CLn8aJ;S_AGUkO0k"
    A$ = A$ + "kFlKZen?\IFFa3Jfkc^jFkRcn8VTK_6al]E_gO6J[ahV;ZHP_O3\_k9oI_LA"
    A$ = A$ + "oBiI>iO\g;H]PR=FSe?=[`_5`_M`i4KGMo`d`n4TdRO7Uf6dO163E<`nBQc0"
    A$ = A$ + "OVc7l#X?L5EJ3\WiHm6Ym2eGCgFVa_Po8SOPnFPWI<ieWo#fCgIh0e=hnDe_"
    A$ = A$ + "oBUam_Z;Sh9L;OU3ae?>^_bmgHCORCRGRkfZLe\Z[`HE9M`oQdTjfDOQWOdg"
    A$ = A$ + "4NffXgQFNo[acTi=94o6lQYo#h3cll#O2YN;c=2S1_]bOb?nM4RG>cSbkmJ:"
    A$ = A$ + "Gd_C>_nigJiiMFJCAM0lX8=hoFTe9<Xl#ibjGNg9o#NFc_oAjAiWk_<OBa0c"
    A$ = A$ + "72_KafIANAVf0m9Tf;<W>llRf3Eg^UaeR?2aB<i5a<a>U1[O2Umm_Z;Sh_CN"
    A$ = A$ + "`LfameH;CIYLe\Z[#iTbc=LNcfi?#Jcc^lNVeC\Qg5eg8M8]a[1_2nM5l;`k"
    A$ = A$ + "=]?<oF7nO;hHfGgLDJn`fmTZ[GeFea8_JdcSfjN]iQc_cAIWk3IY=5e1<?Jn"
    A$ = A$ + "_5IMRdi5U;:OM7NoUK[jBf_Iac;N>53T6TFTVlL_8CkdY_E_Xjf<lW9Oi_?f"
    A$ = A$ + "l<MIYFN65mm_Z;SDF\f#UacXlL6VDTUE^nfZLF4eU9ma[PO?1_8j_GJ?WHmQ"
    A$ = A$ + "cCM\JM_>?g;]d8mmXR^>AjlbNN4kg#U>SnQ2AGAX]LeN>V_Aen`5ag>9aFSl"
    A$ = A$ + "352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q"
    A$ = A$ + "`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl3"
    A$ = A$ + "52Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`"
    A$ = A$ + "Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl35"
    A$ = A$ + "2Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`CIj7fB;]T<`neWT"
    A$ = A$ + "F7b0B6M[3bUG2Q#dAU9_kk#bHJM`UROH_jI;93X_m>IH3Zo9kl#7XcgE84R>"
    A$ = A$ + "ZPGh46e#;Lo#999Y^bBnQBBBBN9o#9999_TOXTTTTGb?DBBBb;i7:999iUl3"
    A$ = A$ + "UTTTlBnQBBBBN9o#9999_<o#Q#84m8io3\Pl%%h1"
    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
    BASIMAGE3& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
 
FUNCTION BASIMAGE6& 'face.bmp
    v& = _NEWIMAGE(300, 297, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkMfm\EETN6744##4icPX8OZPL>la1144H0oX6n#A5DI6M`AL01RO05C=>"
    A$ = A$ + "EVJVYL\HZA;]LB=Y8CUo1b]iRDi^DifTZb=YZLMZD9GTkB^:gk>n\>I]MMfL"
    A$ = A$ + "fWmN]gMg?__ModEm[VB75g[nmmmgZGmZGMgYSJZYVJZYVJZYVJZYVJZYVJZY"
    A$ = A$ + "VJZYVJZ5cfOkMN5Q#8XQlE2Q`;dVfc>a642QP6bG942_PlE2Q`;<Zn:f?7[#"
    A$ = A$ + "8:3T_B84N1i[42QG#n:Q#h5T_Bd6nT;ndM^k7Mb>ckKc1Hc_mmNf>GkUVTNO"
    A$ = A$ + "R8M8OUH^h[^faYkUJ3ghLkQNOV8N8OUhf_nDdm<Y0LMb^_F<N8OEi2Ko1CHg"
    A$ = A$ + "g;6=T_Z<P]O`3`>696<bGUg`f1hAH7c4m7i[b7^bIVPN]N>bkMj9X7K5CSlE"
    A$ = A$ + "i1\[Y;1H7S5bGiE:UgYWEiFG#_[A68OUoPM]ZhkPM^#YQlEfW?kM?2mjBaP1"
    A$ = A$ + "a9fi:i>bGICnU_m1YGo96Mn5_e1YW3US8OUmPM]V8<liGiXdcUb=T_b6leGg"
    A$ = A$ + "GOWNRf1n><IWSU38O5O`n<0kj9Ali>GFc_ehRlELhZWMBje?2NPef;kL#?Rl"
    A$ = A$ + "ELPMmRP?\c1m8bGU>`c3`^6AH?n=oh3C?gd;8OEJPM=Q`f`>od;8OELa:kM`"
    A$ = A$ + "2O0klE[SlEa5fio2o1kLF;SlEQ7fikRl0m>4_GT_:L`>oFT_`>gf:8OEhPM>"
    A$ = A$ + "]8OQM^]E#n:iY4n1fij\AnZA7\W]a>oEDNlQ_jNYWk;OU_PM>[#`^6#n:O0k"
    A$ = A$ + "lDQ0DRW36bG9GU`g`^V#n:K2klBQXO`^f#n:k`Wn>?3mlAQH#l[nA7RN]RlE"
    A$ = A$ + "LQM>X#dFHGc8OULE2AKPM]SlEbE94]1fe#bG9?U#d6HG?9OULE2AKhSO]lIm"
    A$ = A$ + "`;OULERl7feGbG5>dim^X40WIh\[eT_JlQMNT#T:HG[9OeXc_nBJMP::?nio"
    A$ = A$ + "P3#_fCnZf3kl6QP5\[mT_Jh1OGk\cG42f`^>DnZQ3fi92QEPM]XlEbE94]1f"
    A$ = A$ + "eTbG9GU#d6HGK:OULE2AKPM=ZlEbE94]1feZbG9OU#<\`^F]TmE\Sm2Q7QMM"
    A$ = A$ + "[lEnT]\nEdINcKN35GnDkRn_gLVZngQ8>\d5_`>?gnf8mO_S;\[M;=O5khMK"
    A$ = A$ + "II;in7Jgd`BeOV6hJcKXHad`^6Fn:ka>fh:3N]A_DmO33L]JNRLL`Ka2fe`U"
    A$ = A$ + "P_j[_naY7W74oEgjiCB]a\aaVL3d_n]4WH??:]HaOi7oLd_n74o^ObcB_V>W"
    A$ = A$ + "mE\S_32<o6\Z?ZiMNaWRNoP5Xjk8UL\X:O`0m5c5\[YcEO5khjL2ijRISm\e"
    A$ = A$ + "e`_OQ0ko9F7mnnk13d_<G`^f>glE\SWc5WnPKVOmPS[E2:\k[W3NQY\kkElV"
    A$ = A$ + "WOOd[aU_Z\[?JbNgfJigG5A>h>nCXg7kmkO`^6?GlE\SSmS]]QQOmCI2<#OF"
    A$ = A$ + "dPMOK;HC[Kilk_V5HGWW3n:fa`I3\_nc>WODi3OemB_oCaRieIQ;hnXgg=KL"
    A$ = A$ + "W;O4i[6A^jIWTNl[Gnl[LDjijS;odgHodk7E\`^a2i[bWaFa>o>H`^ODaR^D"
    A$ = A$ + "iMIgGf3bG9GUeh?NcWWOOZR5V=F8OUOmEKL];WN>MXIM?lBYg_ZHQMS5bGiC"
    A$ = A$ + "G5kLiHR7nnV:UHA5\kOk1i[LV[:c[AFbRFHWo`7L2nma:FDQeR5bGi<OU1bQ"
    A$ = A$ + "C2\kWE\X;OaE?6onj68Oe\c_j7M8jaVVLZ3\9ji^YRolodC#_oFnZYYjkOTM"
    A$ = A$ + "OM3^m[?UlEmP9gk=<#^KZHW?nZjlU__]^_NC#N8knXDReR5bG=CH7?:MO5hc"
    A$ = A$ + "NgS`_?OFXjk4f0m?UL\#n:Sk[<#>;3n;n`Cb__Ga2C6;T_bV^ZUo0QOomf;l"
    A$ = A$ + "Kna7^cMo8KEW`^?AaRdi\T_Be7]1l>?nZ[IWeTE9n\PF=F8OU1MEMB[_2OWn"
    A$ = A$ + "cEkOkOl_Ij_Uo4mk1S]lGOYWQO<`PaR>9ngSiR5MR_cBn:kFSlOn_lg?daSD"
    A$ = A$ + "FWPmX5;<g93kI2HXHHKWk`K9Ya2fa1i[\[[:5WA1gj2CeZHAcF:ZA`i1:>gD"
    A$ = A$ + "H7;\VWRE\`R[=>i[\1[HI;f\e7XMaClTAog7>CG`LmBO=aU0O0j?]N\`J[5["
    A$ = A$ + "BdGmcNCk]?UURJToQkNmF57V]6nc8fo>=aLmZHA5H]HEMVFb<Fd3GoUgMAi["
    A$ = A$ + "HgOcZ69D]HoklGlF7Ton8WR5ElY_ccHRiC\G:5O5knIES<HncnQ7XjI2E\PO"
    A$ = A$ + "\0ci^5OV`Hh\T_b>e8hJ?D]Zna8nKmWo3>0ogU^R5EPajJRgoa\PlEi[_:d]"
    A$ = A$ + "Hk[Xo^dE\X2<FG[mm4F:n:fm_Z6IhmEhnj:FHSH1V3;je6m1i[D=b`dT_ZLR"
    A$ = A$ + "5dOfliPLeGa^OEe8][61?7RR5f8FH]mbbHi\T_Be8bGioHQlEcMCnZ`cDKO]"
    A$ = A$ + "]:6<G=lWE\[AbiW7dKa2;olPiX_RMoY5ZA0QZ5kOWi^_bKa2[k[`j_GnZl[6"
    A$ = A$ + "iKnV_YEaQI[Qo<BA=B>_N6lD\`4[MgQPLaGa^OdBe8hkGMLKh?SDh[X?W9:F"
    A$ = A$ + "deGIeeOEXMFbGe>dn9cdkQ9X6QnJn91G[0[7;<agbi#RlEiIM2>SiJK[jLY;"
    A$ = A$ + "1of`NWQ5^WnRFHJfGE]N\0?G>mm:SQ4_k[HgoIEOE=FLo#^N^[<agH[QR5MB"
    A$ = A$ + "l_WjHQ9f;b6BT_:_[AJbodOmWfionohO]cokocoEWomoio^>[M5?#bo=l67O"
    A$ = A$ + "kMOODonKlm:bH1jgAo?R38NPh2SO7eaROkkIc_eiHh\Hj[Hg_=ZDbWWGXn0H"
    A$ = A$ + "Zm303d_`<FHam3Ii[<668OUE=RE>_9D\`0[YTA0i[B?;K9UgH\FbRFHgea`O"
    A$ = A$ + "lV6Joge0m=<S5dkoK9bGYjTD#mJJgJ_klo`7L2jm=:F<lPOcbG9OE<i:WIR^"
    A$ = A$ + "cc^5W_TBcIIiHa`PglE\k_2668g=Ee7H=GmeGg`[c73d?U2nhGK_f?F<0T_R"
    A$ = A$ + "3?bZF6mlgHc:O`5gmi?\fi6UR5lkg75`lO:O59<#NL\h\7JcM[?<eJHX0S50"
    A$ = A$ + "C^NB6AT_R3iljaZ^n0O[PEcAT1j_;eH1nfY[O^L?4;64bGaSZej]1bY39Gm\"
    A$ = A$ + "CfM\ENikmX4R5gibnH_HH#h5OeGLE3lMW53<#NMXh8kjAjN_Ljk335N\0dLL"
    A$ = A$ + "^NmM2f;hkNd3n:fmCa4\>nHWK?^\hkO1cHNBljljVKa2\FfmJ\XOHMOeeNY9"
    A$ = A$ + "Yg75KF`m=OjiiS:cOnc_kcM`NoRYdS5_bAfJGG5R5i`LFe;FgGU;SUM#TZmV"
    A$ = A$ + "Y#2f_DZ[?`HecUHU7S5Gl4?IgH1^gA^4;jUf^FgC]_RMoC:Y:7c0in33KK3["
    A$ = A$ + "H6^:fmMQVM]YEA_?NHif_nDMWk#4;<anfC4An:k0Vo1fio3RcOd]=SkUW[e7"
    A$ = A$ + "YH_\NLY>>0G5nFVceHACT_bPHPJQNI;[O5cXn0kkKVJOR92P[_]oX?<mnnNi"
    A$ = A$ + "3Oem>SkIhUmgh#PlEf3LObM_UEC_^XOg;7Ok\VJ?R9RDMMJPnoJfiS_ZIl>0"
    A$ = A$ + "cQgcAK#n:k2^_9nNEIEKPiaYimaQW:g7CEo0GgC\INg3YN=PFZNZJT_bfPjT"
    A$ = A$ + "KL^mTdge>n_EM]AmHZ#mQWo6o31hjO?KM=9eCQH1V;]Vgg0_W\Bmn6FeGE2["
    A$ = A$ + "mZf0FkOH>S`HLRalbgL]6FkX`maagG#YFKd?#o1NGLY<FPoKQhO^]6#K;FeG"
    A$ = A$ + "m9GlYYggH=`mgA>;bQ3imiaOFh\Y[ggg4Z9U[Jf1NlD5;`HZ`o]:mag2`cJH"
    A$ = A$ + "AO5kn5[cMoXCFU33_2bWANm=?onjLbmnHEcE?fk1`mYajj4O[nhmLmZ?kfZn"
    A$ = A$ + "WYim^KFC0o4nc4oIcnjcCD7;#oGcHaQfij[jgAo?R38NPh2R?8>eKL#aRQ3i"
    A$ = A$ + "[l;hN^Hn<`gfJ]kZ^V1d_JRjWg3okPiV2oIXJSa3doQnAdOfln83:>XHAk#n"
    A$ = A$ + "Zl3\W^PWU3[KN0FS4hK:3om:UeRPE0^WjH1R3ea4lgcCkm>F1i[42QG#n:Q#"
    A$ = A$ + "h5\V_:7f_Y52AL0ccWUlE\k?42QM1c7XlE2Q`;8OU#8l2bG942_PlE2Q`;8O"
    A$ = A$ + "U#8l2bG942_PlE2Q`;8OU#8l2bG942_PlE]WcMh]Da;m<CcI?dV[hd7LJ>e1"
    A$ = A$ + "fDW_oCohElRkOJNQYfH5?gnf8mOoVViJO]Sm_=;ch^W1bngo#RlE:g`4Xn_d"
    A$ = A$ + "eoihnDi[BO^Qf[Q3DO9kOkF2i[T_:Bi6H?Z7kQNd_>8chNVTRcbEfG3VQa<W"
    A$ = A$ + "l>Gn8^hLRFnZdWKl67OkEi7d_>LLOX77K#\0k9fSKO8fWVan6?k[U1QlES0S"
    A$ = A$ + "I^1V7Nh[:ecX9L6<4BOEeIdX1^^H1>kHT_BnZnbHVK\S=^bZcGPRLoD?TS[Z"
    A$ = A$ + "1Ee\\_f81Z_2Q_b3kGVbG=2<Vi6[Ji;YjLKZ8?c1RT_2hQiO96\QEoPSMO7>"
    A$ = A$ + "[N`ic3k[U1QlES01Xf2ci#amN2SX[ZVRlI\3#o6lEOikO<nG;30i[hTOPcIL"
    A$ = A$ + "Lf>AoJaImK3R_jJ5hIQLPlENX_Cn:>i7hLbd3i7F[OKHjGm`h4\Fo:lENhiY"
    A$ = A$ + "]T_b3cgGXb?`I0\7V_P#aUNQMV4OeagmSF=fEfG_N:O4__FT?JmiW`JW?>od"
    A$ = A$ + "gHodkCBAnA]_b3_oh#a^gbZCR_JS[MiESaRme[Wb7aj^5mIFomoLec>YYlE^"
    A$ = A$ + "iI23#M56o=N7Qd_FB4E[AZ4h[VolWOEO[e[m25GnDkJ\kc^bIV`5S9MHM8bG"
    A$ = A$ + "=CFk:NPa>71[g5?TS4:Flm_PTh[`cfPnF[o\=Q2<Nb#T;F]6i=`ecLQlES6O"
    A$ = A$ + "aE?fHWS\W]^6G<6l#1f;MBQ_2?g9Zol`L7742#O6j_l`g7VlES>H=O>>i8hi"
    A$ = A$ + "F`LHE:[Y1<GYY`GMQS]mZj_BYOMLk_FfB^o\J]]WJO5>cYIg_<<D=^X0LO]B"
    A$ = A$ + "jM4V2O5jCalGiUlXaQ7JY;J\k_`LGQn<[_fJnj[OLCj[`N]2knVQVa<GYnkN"
    A$ = A$ + "VneQCj_JS_Z8nf<3DoU76?:nn#]X_bC?CH8bGdL^7>Fd2WN^f[NfC3LmjQl_"
    A$ = A$ + "Jo^eo>VJSo#nZhU_Xe:Dhh3OemFEkiQgeUEj;Q_2cS:m[U1PlEf8O1eHUbk8"
    A$ = A$ + "<DmIm[^[N=RXg=Hkjgl`HlU_JlIe?dh_>\`j5bjceIX9d[MDlWGmceD:mUQh"
    A$ = A$ + "I[aleSn<\G\anjI#8Oeh36KD8Zgl`kB>h4QaFQW[ajc3SUjo`i>7jcl#nWlE"
    A$ = A$ + "f9_YXN6V6<^[=ke_bUfeEQi\ZDj33ajHXfckUme8i[23H_=NLcK`L^GD[3[V"
    A$ = A$ + "4XaEQeW3m[57dWE3fCBAO7NF#?<oYFfGMmGNgdkOBIn3F[kNH>?S5h\=k=oN"
    A$ = A$ + "?a0WG;loOmjG_NnZ`JGXh>Kd2dH[l`j45d6g13OUg6SE8bO:^ee#?Pj6L_N<"
    A$ = A$ + "WPH?\JY;NQE_;2lM?Qoj?hEfCgJ\JG5nWg3eKF<O[^?d3^Ni[\Gn3XDVoUi2"
    A$ = A$ + "\^dAo0FgoH>Y`h>aHX`o;foMZ?G?;Re_N4ceP_b;gSd3nZZm013dGUbL8?lN"
    A$ = A$ + "JB9H?Q1c5<lChoe3ccB<YJ>>3X_b3c11^7U7lEUhH\#>Da]gS;6N2X[b;k7g"
    A$ = A$ + "SRg#nZ1C8>cRaj?]XnnW5]S0hZZGK]hI\m`l?8OU]cWfnSn`l_>4VS3]ce7\"
    A$ = A$ + "aFiYma8i[R81JljN9GBT#2hc2jUmKWAaI`dGi^_]R0UCETWmcRiV0j[beg;8"
    A$ = A$ + "KOE9?6[Bj\cA<02X[b;WSLhI<T_:n\[=]ZPTKE]g?HP[71GN\elP19O2O[Ve"
    A$ = A$ + "cc^7nfU6EOQlES01jnQJN\4QL\E0_\^6U_bOiH_mc_CGlmB8R3EkCZ1dGiU_"
    A$ = A$ + "o6PGmENdI5RcW`JdjKX<Io?aj2F>dUNQMFiZl`jI_6i[B<1:G3hQgm\`^i?N"
    A$ = A$ + "JNf1`]jIOUGjWSEn6N^0g]f>4V8oYNN[`kKf;[AVaaEH1OU77SEXN?QeDTkK"
    A$ = A$ + ":5:Ho#;dn:?m^KT_R3HOK:T>;fG?R4#0cG`m<mdj3]6i[bSl??\^I4f9OYnM"
    A$ = A$ + "2j]eNL>h[L[c:TS_jK1kK`d_V41WKMQY2N^RgVg:#8l4FaGiEWebFbm7dl#_"
    A$ = A$ + "\6J4]P0VOPcV`jaFiYmh`#i8T_bFiS;IA;ToeS8H\l78\g?kC^hCgmK_QmeF"
    A$ = A$ + "K#n:3AP7[o[LT]boJBH^lRjW34S]b3W[P=An:k#ec`5hlbZil`0GKRASZgOB"
    A$ = A$ + "Pc9^jIWdU_C##>j[l\cZR0WONg?jTl_V4]VP_FGVgg]F[`c1j]e[G8m3FcGi"
    A$ = A$ + "]g?k<82SoGO_>nRZWU?B?780O?8NjkQ0oVcIOU6SembKmLkPoeUHP4Se]#]["
    A$ = A$ + "Znl^VmeHK9d^1i[2;E_Si8TcnNWN2jGKRn3N_Ma8^GOfGkY_YiVD2n:_k\Fd"
    A$ = A$ + "27oco[ISCO`=CoJCL_LaClTA9NOUc<AgaFi]i\243_PlEAR8To2#o=m[=AG>"
    A$ = A$ + "e1fDDRckN;[^kLFiag78XTlEbIeONXU^8nGKR>[HI;>JahJG5f_Ql`IOJ_4;"
    A$ = A$ + "WPlEAV8U?G1k[]BV85C?gQgBgW1dck=JUX_b;kOnc5kI[[A>[<RZeKC4SWeS"
    A$ = A$ + "[2k_aOikkclo?kM?BAj[0NLN6WERH>Nelkcnj[00O[aY`EQi[bCO;c=i>G>N"
    A$ = A$ + "^:?h[0\S11QH>6;=>;g73?iNO\^?7XW>k8jUHk2T_:M\nE^Di]l8A>V]ZU_T"
    A$ = A$ + "^S]jgmClejG_GT_:OlEY8gO][#WMdQT7IE;;ja\Lhi0[AnZlcI5bcLPnAekJ"
    A$ = A$ + "g0G[NUEnPaK]:D3b3ZMEH>ZmnNeH:l0bGAR8G;d5fGWNT45KZMEhK]aKkWEm"
    A$ = A$ + "B:L0NbGUS>[D<>;i]6>^aifCbR5=7G5VOmLh\6AnZk5LO8faUPCZlEO;NlkU"
    A$ = A$ + "=gR1=7GEmJ2UneoHb=?onT_Z#6S58VOG7mknkNoi?6G`NQHB7Okg2f;gKn<P"
    A$ = A$ + "JLEbGiFBlmh1NmkXMLYJm=AXo^Y[bek;U=#nZ1C^nL=_kgoYXD71fhJG>m[o"
    A$ = A$ + "HbVFgbYegRmLdLJ^e[1kOPbGEfScZjl_TDME=EOg96X_HL0c;DeIS6inbjcO"
    A$ = A$ + ";<GEhn\idNb?SjNi[\7YNn\j7EW5\6XoX=Pki7jc`fAUVc[>nMUKk5obGe>b"
    A$ = A$ + "nm8H3Dce;GoUg=onUoO`HE>fTKPNOB_P_aPLKNeK2[jM_k[bmaIQiiHQ;8>k"
    A$ = A$ + "]bQPZi4R#obVGo3AoJ_OPm\jVOO=Ho:PMNDXAnZAW[mBCB?n5K`gYaFFo:XG"
    A$ = A$ + ";fF`cU][=]Z>_c;nDMnI_inkkLgPonhoOl?g4KNeViiiJ[k^geEUWo^U]X[:"
    A$ = A$ + "7lEinH\Z9FWk>R`#CG5F_4NL?<fj^ZLaGE:>;P5NoQRIgCQiD_:nHPl4i[VI"
    A$ = A$ + "cJnZLjm4?8`nT[UW3WB0\NeJjZ`jod[kOaNaEUCnZJH7GC]gRMMKYa;^o7_X"
    A$ = A$ + "lDFbE9OU_1cYeDKO]d[Q;9JjZ`JE0W9:NO?fCn:i\B9HM8RJX5LOYmkg]D0m"
    A$ = A$ + "[Ol[]g^N:\>5`iPB^]n?]^[:GmEUXcZ6\oOOYGHWd[ac1nQWl9_WgkG^l]oi"
    A$ = A$ + "AGE>k[:emN00NGj<ofYc1N[WK7cH=ZW[[AQn1F?L\[Q;9O5PM<W=hiE`j[6O"
    A$ = A$ + "c]\[om0enYV[?1doE2?gGCHGgFZn:i\VfIQ_O=<n0;o]m`T;OZM=3GEmhY#o"
    A$ = A$ + "FYiZT_R?\SoF1lN\`l4SJaZ_EL3h:\PSZnMmQaBmiGiXdSC<QM]ZlEIdIJOP"
    A$ = A$ + "0c33VGN<7OWm#KV^k8UdlkA^iJXbkWCYQ0hZIG[:Oeg1kl1;2ZAAN:>ok`H<"
    A$ = A$ + ">oAg6MWB81G?mjW`e9^NaeMYkXZQM]YlEbGe6`c:RjG<F3D?kmeQj]^`DcZW"
    A$ = A$ + "2GOhj<gGSW]5feVbG9_eh0FWAH]KSm55lNb#m>ZkCaicn`2No1`[fd;ed=QO"
    A$ = A$ + "gH?86G7UhlV?<`^FDn:i[29hk87_W<<Gd`MQil2^0h4`i>G:o^[ai_5n_G_S"
    A$ = A$ + "MZike3>:lk4SQ:gfG?S1\[5U_Jh`Bk[_N4ha`lf3_`\ibZ7?F8Xn??lWMCWD"
    A$ = A$ + "mkc3o>`NJ8kn4?1kj?i[J?XFPMNC^2Nn;h#`cERg?;f33PK1PWA[6hLJnGGo"
    A$ = A$ + "?3nW7okQomQKD??Gh0S?UM]WlES6Ulg]SXl0gSVM=WlEbI9432_kZT_jkPM^"
    A$ = A$ + "T#4C^m[kgW1DnZIW[Nflo\fADN`^^BnZh1kL;Q8d`^VBn:i]4R11kJ8i[T_B"
    A$ = A$ + "86FHG39OUlF2aPPM=SlEbG9433HoVPM=SlElQMNX#<8HGS8OU]PMnX#d?HGK"
    A$ = A$ + "8OU=YT>SD4f7\7D`^V#n:k3klDQPM=PlEn2fi[Rb5finbGiGHWk::7HW[c6i"
    A$ = A$ + "[6OdN5W85Pm2<fij\AnZ`1klIAn2kLK[PlEQ7fifRl1fibF3i[R7\ce5n5fi"
    A$ = A$ + "^F5i[R;\ck5n3fi\F6i[B3\[14f7fiXN0i[B3Gi<C#_N#HGHWOj5T_:m`^f#"
    A$ = A$ + "H7HW;j=T_R7JoR_<1SeVM^WGAn:^`^fATNHWciIT_b6PcfHfeARh1R_\cab1"
    A$ = A$ + "T_bF`^^B4NHWCUC8OU=iFGH:jeIRA74oHW3US8OU]QMMWXMTkkOj\An:o0kJ"
    A$ = A$ + "AAoQM^AYPlEn3feV2iYHQlEn6fe[U6OnE>:mHN9SlEi1\[S;1H7S5bGU[`^f"
    A$ = A$ + ">7PM<DL_8OEN3kJN?2kHVXo8OEIa=?onXk3\4XoPM<A<l8OUXDf[KdgI\oAn"
    A$ = A$ + ":A_`f[4BHgG:2;bG9J3ghLkYj<#W]72l;Ok3B_o#TFT_B4:nR[N\XhU^m[[_"
    A$ = A$ + "5?ad8OU#8l2bG942_PlE2Q`;8OU#8l2bG942_PlE2Q`;8OU#8l2bG942_PlE"
    A$ = A$ + "2Q`;8OU#8l2Q`G942AZAn:Q#h5T_B84N1eDC=eDC=eDC=eDC=eDC=eDC=eDC"
    A$ = A$ + "=eDC=eDC]b]momjB%%h1"
    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
    BASIMAGE6& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: bplus on August 25, 2020, 08:21:20 pm

Hey nice variation!

Title: Re: MAZEBALL: Tilt Maze puzzle clone
Post by: FellippeHeitor on August 25, 2020, 08:21:59 pm

Interesting twist!

Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Dav on August 20, 2020, 08:19:16 pm