MAZEBALL: Tilt Maze puzzle clone

[bplus]

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]

1.  
2. SUB RotoZoom (X AS LONG, Y AS LONG, Image AS LONG, Scale AS SINGLE, Rotation AS SINGLE)
3.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE
4.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
5.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
6.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
7.     sinr! = SIN(-Rotation / 57.2957795131): cosr! = COS(-Rotation / 57.2957795131)
8.     FOR i& = 0 TO 3
9.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
10.         px(i&) = x2&: py(i&) = y2&
11.     NEXT
12.     _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))
13.     _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))
14. END SUB
15.  
16.  
17.  

[bplus]

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]

1. _TITLE "Tilt Maze Pathfinder" ' b+ started 2020-08-22
2. ' 2020-08-22 I am starting with mods of Dav's version of tilt maze as it was frustration
3. ' with the his 2nd level Puzzle that inspired me to search for solutions with AI.
4. ' Thanks for that Dav! ;-))
5. ' 2020-08-22 so far just a semi-3D version.
6. ' 2020-08-23 It now can solve all the puzzles, #9, #10 are taking almost a minute though.
7. ' 2020-08-24 Illustrate solutions
8.  
9.  
10. '============
11. 'MAZEBALL.BAS   https://www.qb64.org/forum/index.php?topic=2936.msg121950#msg121950  original post
12. '============
13. 'Clone of the Tilt Maze Puzzle games.
14. 'QB64 code by Dav, AUG/2020
15.  
16. 'The goal is to move the ball to the star.
17. 'Use arrows to move the ball.  Walls will stop
18. 'the ball moving so navigate around them.
19. 'There are 10 levels to complete and they get
20. 'harder as you go.  To help you (cheat) you can
21. 'jump to other levels by using the +/- keys.
22. 'Press SPACE to reset level and start over.
23.  
24. 'If you beat the last level, you will get a
25. 'smiley face and hear a happy song.
26.  
27. 'For those who get stuck, solutions are below.
28.  
29. '=======
30. 'CREDITS:
31. '=======
32.  
33. 'I didn't come up with this game - It's been around for a while.
34. 'It's mostly a clone of a cool game posted on THE QBASIC FORUM here:
35. 'https://www.tapatalk.com/groups/qbasic/tilting-maz-game-t39133.html
36. 'Also some levels derived from the original tilt maze game here:
37. 'https://www.mathsisfun.com/games/tilt-maze.html
38. 'There's other Tilt Maze games that influenced me.
39.  
40. 'My thanks to those original game authors for the tilt maze fun.
41. 'Please accept this QB64 version as a compliment from a fan.
42.  
43. '=================================================================
44.  
45. 'Solutions below, for those who get stuck...
46.  
47. '#1)  RDLURDR
48. '#2)  LURULDRUL
49. '#3)  DRULDRDLULUR
50. '#4)  DRURULURULDR
51. '#5)  URDLULDLURDLU
52. '#6)  RDRULDRULDRD
53. '#7)  DRULDLURDRULDRD
54. '#8)  RDLDLULDLURURULDRD
55. '#9)  LURULULDLDRDRURULURDLDR
56. '#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
57.  
58. TYPE xy
59.     x AS INTEGER
60.     y AS INTEGER
61. END TYPE
62.  
63. TYPE d4way ' clock wise
64.     d1 AS xy 'right
65.     d2 AS xy 'down y increasing
66.     d3 AS xy 'left
67.     d4 AS xy 'up y decrease
68. END TYPE
69.  
70. DIM SHARED bs, grid 'box or cell size, cells per side of square grid
71. DIM SHARED bx, by, sx, sy 'ball and star locations
72. DIM SHARED TruePath$, soln& ' AI found a path to Star, handle for solution screen
73. REDIM SHARED pdata$(grid, grid), AI(grid, grid) AS d4way
74. puzzle = 1 'start on puzzle 1
75. puzzlemax = 10 'there are 10 puzzles total
76.  
77. SCREEN _NEWIMAGE(640, 640, 32)
78. _DELAY .25
79. _SCREENMOVE _MIDDLE
80.  
81. 'check arrow
82. 'arrow 320, 320, 0, 200
83. 'END
84. '======
85. restart:
86. _TITLE "Level: " + STR$(puzzle) + " of" + STR$(puzzlemax)
87. setLevel puzzle
88. updateBall
89. _DISPLAY
90. DO
91.     CLS
92.     'get user keypress...
93.     k$ = INKEY$
94.     moved = 0: done = 0
95.  
96.     'if right arrow....
97.     IF k$ = CHR$(0) + CHR$(77) THEN 'right
98.         WHILE pdata$(bx + 1, by) = " " OR pdata$(bx + 1, by) = "y"
99.             bx = bx + 1: moved = 1
100.             IF bx = sx AND by = sy THEN done = 1: EXIT WHILE
101.         WEND
102.     END IF
103.     'if left arrow...
104.     IF k$ = CHR$(0) + CHR$(75) THEN
105.         WHILE pdata$(bx - 1, by) = " " OR pdata$(bx - 1, by) = "y"
106.             bx = bx - 1: moved = 1
107.             IF bx = sx AND by = sy THEN done = 1: EXIT WHILE
108.         WEND
109.     END IF
110.  
111.     'down arrow
112.     IF k$ = CHR$(0) + CHR$(80) THEN
113.         WHILE pdata$(bx, by + 1) = " " OR pdata$(bx, by + 1) = "y"
114.             by = by + 1: moved = 1
115.             IF bx = sx AND by = sy THEN done = 1: EXIT WHILE
116.         WEND
117.     END IF
118.  
119.     'if up arrow
120.     IF k$ = CHR$(0) + CHR$(72) THEN
121.         WHILE pdata$(bx, by - 1) = " " OR pdata$(bx, by - 1) = "y"
122.             by = by - 1: moved = 1
123.             IF bx = sx AND by = sy THEN done = 1: EXIT WHILE
124.         WEND
125.     END IF
126.  
127.     IF k$ = CHR$(32) THEN GOTO restart
128.  
129.     IF k$ = "+" THEN
130.         puzzle = puzzle + 1: IF puzzle > puzzlemax THEN puzzle = 1
131.         GOTO restart
132.     END IF
133.  
134.     IF k$ = "-" THEN
135.         puzzle = puzzle - 1: IF puzzle < 1 THEN puzzle = puzzlemax
136.         GOTO restart
137.     END IF
138.     updateBall
139.     _DISPLAY
140.     _LIMIT 60
141.     IF done = 1 THEN
142.         SOUND 7000, .1: _DELAY 2
143.         puzzle = puzzle + 1
144.         IF puzzle > puzzlemax THEN puzzle = 1
145.         GOTO restart
146.     END IF
147. LOOP
148.  
149. SUB update
150.     CLS
151.     FOR y = grid - 1 TO 0 STEP -1
152.         FOR x = grid - 1 TO 0 STEP -1
153.             IF pdata$(x, y) = "x" THEN
154.                 LINE (x * bs, y * bs)-STEP(bs - 1, bs - 1), _RGB32(144, 0, 0), BF
155.                 LINE (x * bs, y * bs)-STEP(bs - 1, bs - 1), &HFF999999, B
156.             ELSEIF x = bx AND y = by AND TruePath$ = "" THEN
157.                 'LINE (x * bs, y * bs)-STEP(bs - 1, bs - 1), &HFF000000, BF
158.                 FOR R! = .47 * bs TO 0 STEP -1
159.                     fcirc x * bs + .5 * bs, y * bs + .5 * bs, R!, _RGB32(220 - 220 * R! / (.45 * bs) + 35)
160.                 NEXT
161.             ELSEIF x = sx AND y = sy THEN
162.                 'LINE (x * bs, y * bs)-STEP(bs - 1, bs - 1), &HFF000000, BF
163.                 FOR p = 1 TO 0 STEP -.0125
164.                     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)
165.                 NEXT
166.             END IF
167.         NEXT
168.     NEXT
169. END SUB
170.  
171. SUB updateBall
172.     IF TruePath$ <> "" THEN
173.         _PUTIMAGE , soln&, 0
174.         FOR R! = .47 * bs TO 0 STEP -1
175.             fcirc bx * bs + .5 * bs, by * bs + .5 * bs, R!, _RGB32(220 - 220 * R! / (.45 * bs) + 35)
176.         NEXT
177.     ELSE
178.         update
179.     END IF
180. END SUB
181.  
182. SUB setLevel (puzzle) 'x is the wall, b is ball. y is the star
183.     IF puzzle = 1 THEN
184.         puz$ = "": grid = 8
185.         puz$ = puz$ + "xxxxxxxx"
186.         puz$ = puz$ + "x   xb x"
187.         puz$ = puz$ + "x   yx x"
188.         puz$ = puz$ + "x  xx  x"
189.         puz$ = puz$ + "x      x"
190.         puz$ = puz$ + "x      x"
191.         puz$ = puz$ + "x      x"
192.         puz$ = puz$ + "xxxxxxxx"
193.     ELSEIF puzzle = 2 THEN
194.         puz$ = "": grid = 10
195.         puz$ = puz$ + "xxxxxxxxxx"
196.         puz$ = puz$ + "xx  x    x"
197.         puz$ = puz$ + "x   xx   x"
198.         puz$ = puz$ + "x   y    x"
199.         puz$ = puz$ + "x     xx x"
200.         puz$ = puz$ + "x      b x"
201.         puz$ = puz$ + "x        x"
202.         puz$ = puz$ + "x     xx x"
203.         puz$ = puz$ + "x x      x"
204.         puz$ = puz$ + "xxxxxxxxxx"
205.     ELSEIF puzzle = 3 THEN
206.         puz$ = "": grid = 11
207.         puz$ = puz$ + "xxxxxxxxxxx"
208.         puz$ = puz$ + "xbx  x    x"
209.         puz$ = puz$ + "x    x    x"
210.         puz$ = puz$ + "xx   x    x"
211.         puz$ = puz$ + "x    y  x x"
212.         puz$ = puz$ + "x    x    x"
213.         puz$ = puz$ + "x         x"
214.         puz$ = puz$ + "x x     x x"
215.         puz$ = puz$ + "x  x      x"
216.         puz$ = puz$ + "x   x    xx"
217.         puz$ = puz$ + "xxxxxxxxxxx"
218.     ELSEIF puzzle = 4 THEN
219.         bs = INT(sw / 11) 'boxsize
220.         puz$ = "": grid = 11
221.         puz$ = puz$ + "xxxxxxxxxxx"
222.         puz$ = puz$ + "xbx   x   x"
223.         puz$ = puz$ + "x xx      x"
224.         puz$ = puz$ + "x         x"
225.         puz$ = puz$ + "x       xxx"
226.         puz$ = puz$ + "x x       x"
227.         puz$ = puz$ + "x x  xx   x"
228.         puz$ = puz$ + "x         x"
229.         puz$ = puz$ + "x xx  x xxx"
230.         puz$ = puz$ + "x     x  yx"
231.         puz$ = puz$ + "xxxxxxxxxxx"
232.     ELSEIF puzzle = 5 THEN
233.         puz$ = "": grid = 12
234.         puz$ = puz$ + "xxxxxxxxxxxx"
235.         puz$ = puz$ + "x x      x x"
236.         puz$ = puz$ + "x x xxx  x x"
237.         puz$ = puz$ + "x          x"
238.         puz$ = puz$ + "x x x x xx x"
239.         puz$ = puz$ + "x x xbx    x"
240.         puz$ = puz$ + "x   xxxxx xx"
241.         puz$ = puz$ + "x     xyx  x"
242.         puz$ = puz$ + "xx         x"
243.         puz$ = puz$ + "x         xx"
244.         puz$ = puz$ + "x   x x    x"
245.         puz$ = puz$ + "xxxxxxxxxxxx"
246.     ELSEIF puzzle = 6 THEN
247.         puz$ = "": grid = 13
248.         puz$ = puz$ + "xxxxxxxxxxxxx"
249.         puz$ = puz$ + "x     x     x"
250.         puz$ = puz$ + "x   xxx   xxx"
251.         puz$ = puz$ + "x           x"
252.         puz$ = puz$ + "xxx xxx   x x"
253.         puz$ = puz$ + "x         xyx"
254.         puz$ = puz$ + "xb    x   xxx"
255.         puz$ = puz$ + "x x   x     x"
256.         puz$ = puz$ + "xxx   xx    x"
257.         puz$ = puz$ + "x           x"
258.         puz$ = puz$ + "x   x   x x x"
259.         puz$ = puz$ + "x   x   x x x"
260.         puz$ = puz$ + "xxxxxxxxxxxxx"
261.     ELSEIF puzzle = 7 THEN
262.         puz$ = "": grid = 15
263.         puz$ = puz$ + "xxxxxxxxxxxxxxx"
264.         puz$ = puz$ + "xbx   x     x x"
265.         puz$ = puz$ + "x xx          x"
266.         puz$ = puz$ + "x         x   x"
267.         puz$ = puz$ + "xx       xx   x"
268.         puz$ = puz$ + "x             x"
269.         puz$ = puz$ + "x xx       xx x"
270.         puz$ = puz$ + "x     x x     x"
271.         puz$ = puz$ + "xx            x"
272.         puz$ = puz$ + "x   x         x"
273.         puz$ = puz$ + "x   xx       xx"
274.         puz$ = puz$ + "x       x     x"
275.         puz$ = puz$ + "x      xxx    x"
276.         puz$ = puz$ + "x x         xyx"
277.         puz$ = puz$ + "xxxxxxxxxxxxxxx"
278.     ELSEIF puzzle = 8 THEN
279.         puz$ = "": grid = 15
280.         puz$ = puz$ + "xxxxxxxxxxxxxxx"
281.         puz$ = puz$ + "x x     x     x"
282.         puz$ = puz$ + "x    x       xx"
283.         puz$ = puz$ + "x        b    x"
284.         puz$ = puz$ + "x     x     x x"
285.         puz$ = puz$ + "x  x          x"
286.         puz$ = puz$ + "x       x x   x"
287.         puz$ = puz$ + "x      xx    xx"
288.         puz$ = puz$ + "x             x"
289.         puz$ = puz$ + "xx       x    x"
290.         puz$ = puz$ + "x   x x       x"
291.         puz$ = puz$ + "x   xyx       x"
292.         puz$ = puz$ + "x   xxx       x"
293.         puz$ = puz$ + "x       x   x x"
294.         puz$ = puz$ + "xxxxxxxxxxxxxxx"
295.     ELSEIF puzzle = 9 THEN
296.         puz$ = "": grid = 19
297.         puz$ = puz$ + "xxxxxxxxxxxxxxxxxxx"
298.         puz$ = puz$ + "x x   x       x   x"
299.         puz$ = puz$ + "x x   xxx   x x xxx"
300.         puz$ = puz$ + "x           x     x"
301.         puz$ = puz$ + "x xxx xxxxx xxx x x"
302.         puz$ = puz$ + "x   x   x       x x"
303.         puz$ = puz$ + "xxx x   x   x   x x"
304.         puz$ = puz$ + "x           x     x"
305.         puz$ = puz$ + "x   xxx x xxx xxx x"
306.         puz$ = puz$ + "x     x x         x"
307.         puz$ = puz$ + "xxx   x xxx     x x"
308.         puz$ = puz$ + "x       x       x x"
309.         puz$ = puz$ + "x x x   x xxx   xxx"
310.         puz$ = puz$ + "x x x             x"
311.         puz$ = puz$ + "x x x xxx x   x   x"
312.         puz$ = puz$ + "x         x   x   x"
313.         puz$ = puz$ + "x xxx     x x xxx x"
314.         puz$ = puz$ + "x  bx       x  yx x"
315.         puz$ = puz$ + "xxxxxxxxxxxxxxxxxxx"
316.     ELSEIF puzzle = 10 THEN
317.         puz$ = "": grid = 21
318.         puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxxx"
319.         puz$ = puz$ + "xbx x     x   x     x"
320.         puz$ = puz$ + "x x x     x   xxx   x"
321.         puz$ = puz$ + "x x                 x"
322.         puz$ = puz$ + "x x xxx x x     x   x"
323.         puz$ = puz$ + "x       x x     x   x"
324.         puz$ = puz$ + "x   x   x x     x xxx"
325.         puz$ = puz$ + "x   x               x"
326.         puz$ = puz$ + "x   x     x xxx x   x"
327.         puz$ = puz$ + "x         x     x   x"
328.         puz$ = puz$ + "xxx xxx xxxxx xxx xxx"
329.         puz$ = puz$ + "x         x         x"
330.         puz$ = puz$ + "x   xxx   x x xxx x x"
331.         puz$ = puz$ + "x           x     x x"
332.         puz$ = puz$ + "xxx xxx   x xxx   x x"
333.         puz$ = puz$ + "x   x     x x     x x"
334.         puz$ = puz$ + "x x x xxx x x   x x x"
335.         puz$ = puz$ + "x x             x   x"
336.         puz$ = puz$ + "x x     x x x   x x x"
337.         puz$ = puz$ + "x       x x x     xyx"
338.         puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxxx"
339.     END IF
340.     REDIM pdata$(grid - 1, grid - 1) 'from text to 2d array
341.     m = 1
342.     FOR y = 0 TO grid - 1
343.         FOR x = 0 TO grid - 1
344.             pdata$(x, y) = MID$(puz$, m, 1)
345.             IF MID$(puz$, m, 1) = "y" THEN sx = x: sy = y
346.             IF MID$(puz$, m, 1) = "b" THEN bx = x: by = y
347.             m = m + 1
348.         NEXT
349.     NEXT
350.     bs = _WIDTH \ grid
351.     REDIM AI(grid, grid) AS d4way 'initialize to 0
352.     FOR y = 0 TO grid - 1
353.         FOR x = 0 TO grid - 1
354.             AI(x, y).d1.x = 0
355.             AI(x, y).d1.y = 0
356.             AI(x, y).d2.x = 0
357.             AI(x, y).d2.y = 0
358.             AI(x, y).d3.x = 0
359.             AI(x, y).d3.y = 0
360.             AI(x, y).d4.x = 0
361.             AI(x, y).d4.y = 0
362.         NEXT
363.     NEXT
364.     'now load AI
365.     FOR y = 1 TO grid - 2
366.         FOR x = 1 TO grid - 2
367.             'CLS
368.             'LOCATE 1, 1: PRINT x, y
369.             IF pdata$(x, y) = " " OR pdata$(x, y) = "b" THEN
370.                 tx = x: ty = y: moved = 0: done = 0 'right  d1
371.                 WHILE pdata$(tx + 1, ty) = " " OR pdata$(tx + 1, ty) = "y" OR pdata$(tx + 1, ty) = "b"
372.                     tx = tx + 1: moved = 1
373.                     IF tx = sx AND ty = sy THEN done = 1: EXIT WHILE
374.                 WEND
375.                 IF moved = 1 OR done = 1 THEN AI(x, y).d1.x = tx: AI(x, y).d1.y = ty
376.  
377.                 tx = x: ty = y: moved = 0: done = 0 'down arrow  d2
378.                 WHILE pdata$(tx, ty + 1) = " " OR pdata$(tx, ty + 1) = "y" OR pdata$(tx, ty + 1) = "b"
379.                     ty = ty + 1: moved = 1
380.                     IF tx = sx AND ty = sy THEN done = 1: EXIT WHILE
381.                 WEND
382.                 IF moved = 1 OR done = 1 THEN AI(x, y).d2.x = tx: AI(x, y).d2.y = ty
383.  
384.                 tx = x: ty = y: moved = 0: done = 0 'left d3
385.                 WHILE pdata$(tx - 1, ty) = " " OR pdata$(tx - 1, ty) = "y" OR pdata$(tx - 1, ty) = "b"
386.                     tx = tx - 1: moved = 1
387.                     IF tx = sx AND ty = sy THEN done = 1: EXIT WHILE
388.                 WEND
389.                 IF moved = 1 OR done = 1 THEN AI(x, y).d3.x = tx: AI(x, y).d3.y = ty
390.  
391.                 tx = x: ty = y: moved = 0: done = 0 'if up arrow d4
392.                 WHILE pdata$(tx, ty - 1) = " " OR pdata$(tx, ty - 1) = "y" OR pdata$(tx, ty - 1) = "b"
393.                     ty = ty - 1: moved = 1
394.                     IF tx = sx AND ty = sy THEN done = 1: EXIT WHILE
395.                 WEND
396.                 IF moved = 1 OR done = 1 THEN AI(x, y).d4.x = tx: AI(x, y).d4.y = ty
397.             END IF
398.             'PRINT
399.             'PRINT AI(x, y).d1.x, AI(x, y).d1.y
400.             'PRINT AI(x, y).d2.x, AI(x, y).d2.y
401.             'PRINT AI(x, y).d3.x, AI(x, y).d3.y
402.             'PRINT AI(x, y).d4.x, AI(x, y).d4.y
403.  
404.             'PRINT
405.             'INPUT "Ok  press eneter "; w$
406.  
407.         NEXT
408.     NEXT
409.     TruePath$ = "" 'clear last stuff
410.     CLS
411.     PRINT "Pathfinding... please wait"
412.     _DISPLAY
413.     explore bx, by, "D", ""
414.     IF TruePath$ <> "" THEN
415.         'CLS
416.         'PRINT TruePath$ 'before trying to retrace it let's see what it looks like
417.         'PRINT
418.         'PRINT "press any but spacebar to continue... and again after pic"
419.         '_AUTODISPLAY
420.         'SLEEP
421.         'drawit
422.         update
423.         REDIM tp$(0)
424.         Split TruePath$, ",", tp$()
425.         'CLS
426.         FOR i = 0 TO UBOUND(tp$) - 2 STEP 3
427.             x = VAL(tp$(i)): y = VAL(tp$(i + 1)): d$ = tp$(i + 2)
428.             'PRINT " >"; x, y, d$;
429.  
430.             SELECT CASE d$
431.                 CASE "R": arrow x * bs + bs + .25 * bs, y * bs + .5 * bs, 0, 1.25 * bs
432.                 CASE "D": arrow x * bs + .5 * bs, y * bs + bs + .25 * bs, _PI / 2, 1.25 * bs
433.                 CASE "L": arrow x * bs - .25 * bs, y * bs + .5 * bs, _PI, 1.25 * bs
434.                 CASE "U": arrow x * bs + .5 * bs, y * bs - .25 * bs, _PI(3 / 2), 1.25 * bs
435.             END SELECT
436.         NEXT
437.         _DISPLAY
438.         soln& = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
439.         _PUTIMAGE , 0, soln&
440.  
441.     ELSE
442.         CLS
443.         PRINT "Sorry, did not find a path."
444.         PRINT
445.         PRINT "press any but spacebar to continue..."
446.         _DISPLAY
447.         SLEEP
448.     END IF
449. END SUB
450.  
451. ' using AI(x, y) dim'd as d4ways to bounce around the maze
452. SUB explore (cx, cy, cdir$, cmyPath$) 'recursive explore until stuck in loop or hit target
453.     IF TruePath$ <> "" THEN EXIT SUB
454.  
455.     'will this new test be better than looking for single repeating nodes?
456.     IF duplicate(cmyPath$) THEN EXIT SUB ' a repeated line between 2 nodes
457.  
458.  
459.     'debug watch ball
460.     'CLS
461.     'bx = cx: by = cy
462.     'update
463.     'PRINT "explore"; cx; cy; cdir$; ", "; cmyPath$
464.     '_DISPLAY
465.     'INPUT "Ok press eneter "; w$
466.  
467.  
468.     x = cx: y = cy: dir$ = cdir$: myPath$ = cmyPath$ 'private copies of everything
469.     IF x = sx AND y = sy THEN ' found our target add it to end of myPath$  and go home
470.         TruePath$ = myPath$ + "," + TS$(x) + "," + TS$(y) 'stop found star
471.         EXIT SUB 'yeah!
472.     ELSE 'continue on unless we've been here before
473.         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
474.             FOR i = 1 TO 4
475.                 dr$ = MID$("RDLU", i, 1)
476.                 myPath$ = TS$(x) + "," + TS$(y) + "," + dr$
477.                 IF i = 1 THEN
478.                     IF AI(x, y).d1.x <> 0 AND AI(x, y).d1.y <> 0 THEN
479.                         explore AI(x, y).d1.x, AI(x, y).d1.y, "U", myPath$
480.                         explore AI(x, y).d1.x, AI(x, y).d1.y, "D", myPath$
481.                     END IF
482.                 ELSEIF i = 2 THEN
483.                     IF AI(x, y).d2.x <> 0 AND AI(x, y).d2.y <> 0 THEN
484.                         explore AI(x, y).d2.x, AI(x, y).d2.y, "R", myPath$
485.                         explore AI(x, y).d2.x, AI(x, y).d2.y, "L", myPath$
486.                     END IF
487.                 ELSEIF i = 3 THEN
488.                     IF AI(x, y).d3.x <> 0 AND AI(x, y).d3.y <> 0 THEN
489.                         explore AI(x, y).d3.x, AI(x, y).d3.y, "D", myPath$
490.                         explore AI(x, y).d3.x, AI(x, y).d3.y, "U", myPath$
491.                     END IF
492.                 ELSEIF i = 4 THEN
493.                     IF AI(x, y).d4.x <> 0 AND AI(x, y).d4.y <> 0 THEN
494.                         explore AI(x, y).d4.x, AI(x, y).d4.y, "L", myPath$
495.                         explore AI(x, y).d4.x, AI(x, y).d4.y, "R", myPath$
496.                     END IF
497.                 END IF
498.             NEXT
499.         ELSE 'there is one direction we can't
500.             'find$ = TS$(x) + "," + TS$(y) ' this solves many puzzles but not all 6, 8, 10 bug out lost 9
501.  
502.             'find$ = TS$(x) + "," + TS$(y) + "," + dir$ 'still trying to get all puzzles solved  bugs out except for 6
503.             'find$ = dir$ + "," + TS$(x) + "," + TS$(y) '<<<<<<<<<<<<<<<<< this is disaster! bugs out
504.             'p = INSTR(myPath$, find$)
505.             'IF p > 0 THEN
506.             '    c = 1
507.             '    WHILE p
508.             '        c = c + 1
509.             '        p = INSTR(p + 1, myPath$, find$)
510.             '    WEND
511.             '    IF c > 3 THEN EXIT SUB
512.             'END IF
513.             'ELSE 'carry on
514.  
515.  
516.             'Have we been here before search my path for x, y, dir$
517.             myPath$ = myPath$ + "," + TS$(x) + "," + TS$(y)
518.             FOR i = 1 TO 4
519.                 dr$ = MID$("RDLU", i, 1)
520.                 IF i = 1 AND dir$ <> "U" AND dir$ <> "D" THEN
521.                     IF AI(x, y).d1.x <> 0 AND AI(x, y).d1.y <> 0 THEN
522.                         explore AI(x, y).d1.x, AI(x, y).d1.y, "D", myPath$ + "," + dr$
523.                         explore AI(x, y).d1.x, AI(x, y).d1.y, "U", myPath$ + "," + dr$
524.                     END IF
525.                 ELSEIF i = 2 AND dir$ <> "L" AND dir$ <> "R" THEN
526.                     IF AI(x, y).d2.x <> 0 AND AI(x, y).d2.y <> 0 THEN
527.                         explore AI(x, y).d2.x, AI(x, y).d2.y, "L", myPath$ + "," + dr$
528.                         explore AI(x, y).d2.x, AI(x, y).d2.y, "R", myPath$ + "," + dr$
529.                     END IF
530.                 ELSEIF i = 3 AND dir$ <> "U" AND dir$ <> "D" THEN
531.                     IF AI(x, y).d3.x <> 0 AND AI(x, y).d3.y <> 0 THEN
532.                         explore AI(x, y).d3.x, AI(x, y).d3.y, "U", myPath$ + "," + dr$
533.                         explore AI(x, y).d3.x, AI(x, y).d3.y, "D", myPath$ + "," + dr$
534.                     END IF
535.                 ELSEIF i = 4 AND dir$ <> "L" AND dir$ <> "R" THEN
536.                     IF AI(x, y).d4.x <> 0 AND AI(x, y).d4.y <> 0 THEN
537.                         explore AI(x, y).d4.x, AI(x, y).d4.y, "R", myPath$ + "," + dr$
538.                         explore AI(x, y).d4.x, AI(x, y).d4.y, "L", myPath$ + "," + dr$
539.                     END IF
540.                 END IF
541.             NEXT
542.         END IF
543.     END IF
544.     'END IF
545. END SUB
546.  
547. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
548.     DIM Radius AS INTEGER, RadiusError AS INTEGER
549.     DIM X AS INTEGER, Y AS INTEGER
550.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
551.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
552.     LINE (CX - X, CY)-(CX + X, CY), C, BF
553.     WHILE X > Y
554.         RadiusError = RadiusError + Y * 2 + 1
555.         IF RadiusError >= 0 THEN
556.             IF X <> Y + 1 THEN
557.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
558.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
559.             END IF
560.             X = X - 1
561.             RadiusError = RadiusError - X * 2
562.         END IF
563.         Y = Y + 1
564.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
565.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
566.     WEND
567. END SUB
568.  
569. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
570.     DIM D AS LONG
571.     STATIC a&
572.     D = _DEST
573.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
574.     _DEST a&
575.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
576.     PSET (0, 0), K
577.     _BLEND a& '<<<< new 2019-12-16 fix
578.     _DEST D
579.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
580. END SUB
581.  
582. SUB star (x, y, rInner, rOuter, nPoints, angleOffset, K AS _UNSIGNED LONG)
583.     ' x, y are same as for circle,
584.     ' rInner is center circle radius
585.     ' rOuter is the outer most point of star
586.     ' nPoints is the number of points,
587.     ' angleOffset = angle offset IN DEGREES, it will be converted to radians in sub
588.     ' this is to allow us to spin the polygon of n sides
589.  
590.     pAngle = _PI(2) / nPoints: radAngleOffset = angleOffset
591.     x1 = x + rInner * COS(radAngleOffset)
592.     y1 = y + rInner * SIN(radAngleOffset)
593.     FOR i = 0 TO nPoints - 1
594.         x2 = x + rOuter * COS(i * pAngle + radAngleOffset + .5 * pAngle)
595.         y2 = y + rOuter * SIN(i * pAngle + radAngleOffset + .5 * pAngle)
596.         x3 = x + rInner * COS((i + 1) * pAngle + radAngleOffset)
597.         y3 = y + rInner * SIN((i + 1) * pAngle + radAngleOffset)
598.         ftri x1, y1, x2, y2, x3, y3, K
599.         'triangles leaked
600.         'LINE (x1, y1)-(x2, y2), K
601.         'LINE (x2, y2)-(x3, y3), K
602.         'LINE (x3, y3)-(x1, y1), K
603.         x1 = x3: y1 = y3
604.     NEXT
605.     fcirc x, y, rInner, K
606. END SUB
607.  
608. FUNCTION TS$ (n AS INTEGER) ' special for this app
609.     TS$ = RIGHT$(STR$(n), 2)
610. END FUNCTION
611.  
612. ' so every eight chars is a node, if 2 nodes in a row repeat then stuck in loop
613. 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
614.     duplicate = -1
615.     FOR i = 1 TO LEN(s$) STEP 8
616.         test$ = MID$(s$, i, 16)
617.         FOR j = i + 8 TO LEN(s$) STEP 8
618.             IF test$ = MID$(s$, j, 16) THEN EXIT FUNCTION
619.         NEXT
620.     NEXT
621.     duplicate = 0
622. END FUNCTION
623.  
624. SUB arrow (x0, y0, rAngle, lngth)
625.     DIM x1, y1, x2, y2, i AS INTEGER
626.     x2 = x0 - lngth * COS(rAngle)
627.     y2 = y0 - lngth * SIN(rAngle)
628.     drawLink x0, y0, .001 * lngth, x2, y2, .01 * lngth, &HFF00BB00
629.     LINE (x0, y0)-(x2, y2), &HFF00BB00
630.     x2 = x0 - .1 * lngth * COS(rAngle - .2 * _PI)
631.     y2 = y0 - .1 * lngth * SIN(rAngle - .2 * _PI)
632.     x1 = x0 - .1 * lngth * COS(rAngle + .2 * _PI)
633.     y1 = y0 - .1 * lngth * SIN(rAngle + .2 * _PI)
634.     ftri x0, y0, x1, y1, x2, y2, &HFFFF8800
635.     FOR i = .8 * lngth TO lngth STEP 3
636.         x1 = x0 - i * COS(rAngle)
637.         y1 = y0 - i * SIN(rAngle)
638.         x2 = x1 - .1 * lngth * COS(rAngle - .25 * _PI)
639.         y2 = y1 - .1 * lngth * SIN(rAngle - .25 * _PI)
640.         LINE (x1, y1)-(x2, y2), &HFF0000FF
641.         x2 = x1 - .1 * lngth * COS(rAngle + .25 * _PI)
642.         y2 = y1 - .1 * lngth * SIN(rAngle + .25 * _PI)
643.         LINE (x1, y1)-(x2, y2), &HFF0000FF
644.     NEXT
645. END SUB
646.  
647. SUB drawLink (x1, y1, r1, x2, y2, r2, c AS _UNSIGNED LONG)
648.     DIM a, a1, a2, x3, x4, x5, x6, y3, y4, y5, y6
649.     a = _ATAN2(y2 - y1, x2 - x1)
650.     a1 = a + _PI(1 / 2)
651.     a2 = a - _PI(1 / 2)
652.     x3 = x1 + r1 * COS(a1): y3 = y1 + r1 * SIN(a1)
653.     x4 = x1 + r1 * COS(a2): y4 = y1 + r1 * SIN(a2)
654.     x5 = x2 + r2 * COS(a1): y5 = y2 + r2 * SIN(a1)
655.     x6 = x2 + r2 * COS(a2): y6 = y2 + r2 * SIN(a2)
656.     fquad x3, y3, x4, y4, x5, y5, x6, y6, c
657. END SUB
658.  
659. 'need 4 non linear points (not all on 1 line) list them clockwise so x2, y2 is opposite of x4, y4
660. 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)
661.     ftri x1, y1, x2, y2, x4, y4, c
662.     ftri x3, y3, x4, y4, x1, y1, c
663. END SUB
664.  
665. SUB Split (SplitMeString AS STRING, delim AS STRING, loadMeArray() AS STRING)
666.     DIM curpos AS LONG, arrpos AS LONG, LD AS LONG, dpos AS LONG 'fix use the Lbound the array already has
667.     curpos = 1: arrpos = LBOUND(loadMeArray): LD = LEN(delim)
668.     dpos = INSTR(curpos, SplitMeString, delim)
669.     DO UNTIL dpos = 0
670.         loadMeArray(arrpos) = MID$(SplitMeString, curpos, dpos - curpos)
671.         arrpos = arrpos + 1
672.         IF arrpos > UBOUND(loadMeArray) THEN REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO UBOUND(loadMeArray) + 1000) AS STRING
673.         curpos = dpos + LD
674.         dpos = INSTR(curpos, SplitMeString, delim)
675.     LOOP
676.     loadMeArray(arrpos) = MID$(SplitMeString, curpos)
677.     REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO arrpos) AS STRING 'get the ubound correct
678. END SUB
679.  
680.  

 

[Dav]

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

[bplus]

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?

[Dav]

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]

1. '=============
2. 'MAZEPAINT.BAS v1.0
3. '=============
4. 'paint the maze puzzle game.
5. 'Coded by Dav for QB64-GL 1.4, AUG/2020
6.  
7. 'Use arrows - move the ball to Paint the maze.
8. 'Paint all of the maze to advance to next level.
9.  
10.  
11. DEFINT A-Z
12.  
13. puzzle = 1 'start on level 1
14. puzzlemax = 9 'there are 10 levels total
15.  
16. SCREEN _NEWIMAGE(640, 640, 32): _SCREENMOVE _MIDDLE
17. DO UNTIL _SCREENEXISTS: LOOP
18.  
19. 'load images...
20. ball& = BASIMAGE1&
21. wall& = BASIMAGE2&
22. pass& = BASIMAGE3&
23. face& = BASIMAGE6&
24.  
25. '======
26. restart:
27. '======
28.  
29. _TITLE "Level: " + STR$(puzzle) + " of" + STR$(puzzlemax)
30.  
31. GOSUB SetLevel
32.  
33. 'draw level
34. CLS , _RGB(229, 237, 243)
35. REDIM SHARED pdata$(grid, grid)
36. bs = INT(_WIDTH / grid)
37. m = 1
38. FOR x = 0 TO grid - 1
39.     FOR y = 0 TO grid - 1
40.         a$ = MID$(puz$, m, 1)
41.         pdata$(x + 1, y + 1) = a$
42.         IF a$ = "x" THEN
43.             _PUTIMAGE (y * bs + 1, x * bs + 1)-(y * bs + bs - 1, x * bs + bs - 1), wall&
44.         END IF
45.         IF a$ = "b" THEN
46.             _PUTIMAGE (y * bs + 1, x * bs + 1)-(y * bs + bs - 1, x * bs + bs - 1), ball&
47.             ballx = y * bs: bally = x * bs
48.         END IF
49.         m = m + 1
50.     NEXT
51. NEXT
52.  
53. _DISPLAY
54.  
55. DO
56.     'get user keypress...
57.     DO: k$ = INKEY$: _AUTODISPLAY: LOOP UNTIL k$ <> ""
58.     'Note: The _AUTODISPLAY up there is to make sure
59.     'screen doesnt go blank if user minimizes program
60.  
61.     'if user presses right arrow....
62.     IF k$ = CHR$(0) + CHR$(77) THEN
63.  
64.         'current ball location in x,y
65.         cx = ballx / bs + 1: cy = bally / bs + 1
66.         pdata$(cy, cx) = "." 'paint current square
67.  
68.         'check 1st to see if square is blocked...
69.         IF pdata$(cy, cx + 1) = "x" THEN GOTO moved
70.  
71.         'Move ball right...
72.         FOR x = cx + 1 TO grid + 1
73.             'move it smoothly, by pixels...
74.             FOR x2 = ((x - 1 - cx) * bs) TO ((x - cx) * bs) STEP 2
75.                 pdata$(cy, x - 1) = "." 'mark square as painted
76.                 'if come to wall...
77.                 IF pdata$(cy, x) = "x" THEN
78.                     ballx = ballx + x2
79.                     SOUND 500, .1: GOTO moved
80.                 END IF
81.                 'Draw ball image....
82.                 _PUTIMAGE (ballx + x2, bally)-(ballx + x2 + bs, bally + bs), ball&
83.                 _DISPLAY
84.                 _LIMIT 500
85.             NEXT
86.         NEXT
87.     END IF
88.  
89.     'if left arrow...
90.     IF k$ = CHR$(0) + CHR$(75) THEN
91.  
92.         cx = ballx / bs + 1: cy = bally / bs + 1
93.  
94.         pdata$(cy, cx) = "." 'mark current as painted
95.  
96.         'check 1st to see if if left square is wall
97.         IF pdata$(cy, cx - 1) = "x" THEN GOTO moved
98.  
99.         'Move ball left...
100.         FOR x = cx - 1 TO 0 STEP -1
101.             FOR x2 = (x + 1 - cx) * bs TO (x - cx) * bs STEP -2
102.                 pdata$(cy, x + 1) = "." 'mark square as painted
103.                 IF pdata$(cy, x) = "x" THEN
104.                     ballx = ballx + x2
105.                     SOUND 500, .1
106.                     GOTO moved
107.                 END IF
108.                 _PUTIMAGE (ballx + x2, bally)-(ballx + x2 + bs, bally + bs), ball&
109.                 _DISPLAY
110.                 _LIMIT 500
111.             NEXT
112.         NEXT
113.     END IF
114.  
115.     'down arrow
116.     IF k$ = CHR$(0) + CHR$(80) THEN
117.         cx = ballx / bs + 1: cy = bally / bs + 1 'current x,y
118.         pdata$(cy, cx) = "." 'mark current as painted
119.         'check if blocked...
120.         IF pdata$(cy + 1, cx) = "x" THEN GOTO moved
121.         FOR y = cy + 1 TO grid + 1
122.             FOR y2 = (y - 1 - cy) * bs TO (y - cy) * bs STEP 2
123.                 pdata$(y - 1, cx) = "." 'mark square as painted
124.                 IF pdata$(y, cx) = "x" THEN
125.                     bally = bally + y2
126.                     SOUND 500, .1
127.                     GOTO moved
128.                 END IF
129.                 _PUTIMAGE (ballx, bally + y2)-(ballx + bs, bally + y2 + bs), ball&
130.                 _DISPLAY
131.                 _LIMIT 500
132.             NEXT
133.         NEXT
134.     END IF
135.  
136.     'if up arrow
137.     IF k$ = CHR$(0) + CHR$(72) THEN
138.         cx = ballx / bs + 1: cy = bally / bs + 1 'current x,y
139.         pdata$(cy, cx) = "." 'mark current as painted
140.         'check if blocked...
141.         IF pdata$(cy - 1, cx) = "x" THEN GOTO moved
142.         FOR y = cy - 1 TO 0 STEP -1
143.             pdata$(y + 1, cx) = "." 'mark square as painted
144.             FOR y2 = (y + 1 - cy) * bs TO (y - cy) * bs STEP -2
145.                 IF pdata$(y, cx) = "x" THEN
146.                     bally = bally + y2
147.                     SOUND 500, .1
148.                     GOTO moved
149.                 END IF
150.                 _PUTIMAGE (ballx, bally + y2)-(ballx + bs, bally + y2 + bs), ball&
151.                 _DISPLAY
152.                 _LIMIT 500
153.             NEXT
154.         NEXT
155.     END IF
156.  
157.     IF k$ = CHR$(32) THEN GOTO restart
158.  
159.     IF k$ = "+" THEN
160.         puzzle = puzzle + 1: IF puzzle > puzzlemax THEN puzzle = 1
161.         GOTO restart
162.     END IF
163.  
164.     IF k$ = "-" THEN
165.         puzzle = puzzle - 1: IF puzzle < 1 THEN puzzle = puzzlemax
166.         GOTO restart
167.     END IF
168.  
169.  
170.     moved:
171.  
172.     IF k$ <> "" THEN _KEYCLEAR
173.  
174.     GOSUB CheckForDone
175. LOOP
176.  
177. END
178.  
179.  
180. '===========
181. CheckForDone:
182. '===========
183.  
184. 'see if all of maze cleared...
185. cleared = 1
186. FOR x = 1 TO grid
187.     FOR y = 1 TO grid
188.         IF pdata$(x, y) = " " THEN cleared = 0
189.     NEXT
190. NEXT
191.  
192. IF cleared = 1 THEN
193.     SOUND 5000, .7
194.     _PUTIMAGE (160, 210), pass&: _DISPLAY
195.     _DELAY 2
196.     puzzle = puzzle + 1
197.     'If that was last level...
198.     IF puzzle > puzzlemax THEN
199.         'show smiley face
200.         _PUTIMAGE (100, 100)-(500, 500), face&: _DISPLAY
201.         'play happy music
202.         PLAY "o4l8gfedcal4gl8fgabo5co4gl4el8defedefgagabl4o5co4c"
203.         PLAY "o3l8co2l16gf#gl8g#gpbo3c"
204.         _DELAY 6
205.         puzzle = 1
206.     END IF
207.     GOTO restart
208. END IF
209.  
210. RETURN
211.  
212.  
213. '=======
214. SetLevel:
215. '=======
216.  
217. 'x is the wall, b is ball
218. IF puzzle = 1 THEN
219.     puz$ = "": grid = 12
220.     puz$ = puz$ + "xxxxxxxxxxxx"
221.     puz$ = puz$ + "xxxxxxxxxxxx"
222.     puz$ = puz$ + "x       x  x"
223.     puz$ = puz$ + "x x        x"
224.     puz$ = puz$ + "x          x"
225.     puz$ = puz$ + "x          x"
226.     puz$ = puz$ + "x  x       x"
227.     puz$ = puz$ + "xb       x x"
228.     puz$ = puz$ + "xx         x"
229.     puz$ = puz$ + "xxxxxxxxxxxx"
230.     puz$ = puz$ + "xxxxxxxxxxxx"
231.     puz$ = puz$ + "xxxxxxxxxxxx"
232. END IF
233.  
234.  
235. 'x is the wall, b is ball
236. IF puzzle = 2 THEN
237.     puz$ = "": grid = 13
238.     puz$ = puz$ + "xxxxxxxxxxxxx"
239.     puz$ = puz$ + "xxxxxxxxxxxxx"
240.     puz$ = puz$ + "xb x  xx    x"
241.     puz$ = puz$ + "x     x   x x"
242.     puz$ = puz$ + "x     x   x x"
243.     puz$ = puz$ + "x           x"
244.     puz$ = puz$ + "x   x       x"
245.     puz$ = puz$ + "xxx x   x   x"
246.     puz$ = puz$ + "x   xx  xx  x"
247.     puz$ = puz$ + "x           x"
248.     puz$ = puz$ + "x   xx     xx"
249.     puz$ = puz$ + "xxxxxxxxxxxxx"
250.     puz$ = puz$ + "xxxxxxxxxxxxx"
251.     puz$ = puz$ + "xxxxxxxxxxxxx"
252. END IF
253.  
254. IF puzzle = 3 THEN
255.     puz$ = "": grid = 13
256.     puz$ = puz$ + "xxxxxxxxxxxxx"
257.     puz$ = puz$ + "xx         xx"
258.     puz$ = puz$ + "x         x x"
259.     puz$ = puz$ + "x x         x"
260.     puz$ = puz$ + "xx       x  x"
261.     puz$ = puz$ + "x  x       xx"
262.     puz$ = puz$ + "x       x   x"
263.     puz$ = puz$ + "x   x       x"
264.     puz$ = puz$ + "x      xx   x"
265.     puz$ = puz$ + "x    x      x"
266.     puz$ = puz$ + "xbx       xxx"
267.     puz$ = puz$ + "xxxxxxxxxxxxx"
268.     puz$ = puz$ + "xxxxxxxxxxxxx"
269. END IF
270.  
271. IF puzzle = 4 THEN
272.     puz$ = "": grid = 13
273.     puz$ = puz$ + "xxxxxxxxxxxxx"
274.     puz$ = puz$ + "xbx       x x"
275.     puz$ = puz$ + "x x  x    x x"
276.     puz$ = puz$ + "x xxxx xxxx x"
277.     puz$ = puz$ + "x      x    x"
278.     puz$ = puz$ + "xx       xx x"
279.     puz$ = puz$ + "x     xx xx x"
280.     puz$ = puz$ + "x      x    x"
281.     puz$ = puz$ + "x xxxx xxxx x"
282.     puz$ = puz$ + "x x  x    x x"
283.     puz$ = puz$ + "x x       x x"
284.     puz$ = puz$ + "xxxxxxxxxxxxx"
285.     puz$ = puz$ + "xxxxxxxxxxxxx"
286. END IF
287.  
288. IF puzzle = 5 THEN
289.     puz$ = "": grid = 16
290.     puz$ = puz$ + "xxxxxxxxxxxxxxxx"
291.     puz$ = puz$ + "xxxxxxxxxxxxxxxx"
292.     puz$ = puz$ + "x   x    x     x"
293.     puz$ = puz$ + "x   x         xx"
294.     puz$ = puz$ + "x    x   x  x  x"
295.     puz$ = puz$ + "x    x      x  x"
296.     puz$ = puz$ + "xx        xx   x"
297.     puz$ = puz$ + "x    xx   x    x"
298.     puz$ = puz$ + "x            xxx"
299.     puz$ = puz$ + "x       xx x   x"
300.     puz$ = puz$ + "x x   x xx     x"
301.     puz$ = puz$ + "x xx  x   x  xxx"
302.     puz$ = puz$ + "xbx       x xxxx"
303.     puz$ = puz$ + "xxxxxxxxxxxxxxxx"
304.     puz$ = puz$ + "xxxxxxxxxxxxxxxx"
305.     puz$ = puz$ + "xxxxxxxxxxxxxxxx"
306. END IF
307.  
308. IF puzzle = 6 THEN
309.     puz$ = "": grid = 16
310.     puz$ = puz$ + "xxxxxxxxxxxxxxxx"
311.     puz$ = puz$ + "xxbxxxxxxxx  xxx"
312.     puz$ = puz$ + "xx xx        xxx"
313.     puz$ = puz$ + "xx xx xxxxx  xxx"
314.     puz$ = puz$ + "xx xx xx   xxxxx"
315.     puz$ = puz$ + "xx    xx x xxxxx"
316.     puz$ = puz$ + "xx     x x xxxxx"
317.     puz$ = puz$ + "xxx    x    xxxx"
318.     puz$ = puz$ + "xxx         xxxx"
319.     puz$ = puz$ + "xxx         xxxx"
320.     puz$ = puz$ + "xxx     x   xxxx"
321.     puz$ = puz$ + "xxx     x   xxxx"
322.     puz$ = puz$ + "xxx  x  xxxxxxxx"
323.     puz$ = puz$ + "xxx  x  xxxxxxxx"
324.     puz$ = puz$ + "xxx  x  xxxxxxxx"
325.     puz$ = puz$ + "xxxxxxxxxxxxxxxx"
326. END IF
327.  
328. IF puzzle = 7 THEN
329.     puz$ = "": grid = 20
330.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
331.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
332.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
333.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
334.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
335.     puz$ = puz$ + "xxx     b     x    x"
336.     puz$ = puz$ + "x          x     x x"
337.     puz$ = puz$ + "x x    x     xxx x x"
338.     puz$ = puz$ + "x xxx            x x"
339.     puz$ = puz$ + "x x    x x  x      x"
340.     puz$ = puz$ + "x x  x      xx     x"
341.     puz$ = puz$ + "x          xx   x  x"
342.     puz$ = puz$ + "x     x            x"
343.     puz$ = puz$ + "x     x            x"
344.     puz$ = puz$ + "x  x    x   x   x  x"
345.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
346.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
347.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
348.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
349.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
350. END IF
351.  
352. IF puzzle = 8 THEN
353.     puz$ = "": grid = 20
354.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
355.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
356.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
357.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
358.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
359.     puz$ = puz$ + "x x     b  xx      x"
360.     puz$ = puz$ + "x          x       x"
361.     puz$ = puz$ + "x x xxx  xxx xxxx  x"
362.     puz$ = puz$ + "x     x        xx xx"
363.     puz$ = puz$ + "x   xxx  xx        x"
364.     puz$ = puz$ + "x   x        x     x"
365.     puz$ = puz$ + "x   xx   x  xx  xx x"
366.     puz$ = puz$ + "x               x  x"
367.     puz$ = puz$ + "x      x    xxx    x"
368.     puz$ = puz$ + "xx     x   xx     xx"
369.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
370.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
371.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
372.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
373.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
374. END IF
375.  
376. IF puzzle = 9 THEN
377.     puz$ = "": grid = 20
378.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
379.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
380.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
381.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
382.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
383.     puz$ = puz$ + "x                xxx"
384.     puz$ = puz$ + "x xxxxxx xxxxxxx xxx"
385.     puz$ = puz$ + "x xxxxx   xxxxxx   x"
386.     puz$ = puz$ + "x xxxxx   xxxxxx x x"
387.     puz$ = puz$ + "x xxxxx b        x x"
388.     puz$ = puz$ + "x xxxxxxxxxxxxxxxx x"
389.     puz$ = puz$ + "x xxxxxxxxxxxxxxxx x"
390.     puz$ = puz$ + "x xxxxx          x x"
391.     puz$ = puz$ + "x         xxxxx    x"
392.     puz$ = puz$ + "xxxxxx     xxxx xx x"
393.     puz$ = puz$ + "xxxxxxxx        xx x"
394.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
395.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
396.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
397.     puz$ = puz$ + "xxxxxxxxxxxxxxxxxxxx"
398. END IF
399.  
400.  
401.  
402. RETURN
403.  
404.  
405.  
406. FUNCTION BASIMAGE1& 'BALL.BMP
407.     v& = _NEWIMAGE(191, 193, 32)
408.     DIM m AS _MEM: m = _MEMIMAGE(v&)
409.     A$ = ""
410.     A$ = A$ + "haIkMVoN=M]67_o_DE[FUZgRJ>V9VM=FDS=J5a#44?RiDSG^RWHhJXXXD:]D"
411.     A$ = A$ + "JMEZYJ^EkoA[[?;?K=RLSCBfkmkJOfOoQ??iTTSS\F[_kmnMm^N7^dV6]kB2"
412.     A$ = A$ + "Q#842Q#842Q#842Q#842Q#84i#n[;G_k_namhNj5g]kYo`^Loa5fQk9OgfL?"
413.     A$ = A$ + "iLKacS?kVOY_b_kg?ofm_?NooiUZcoIHmh#8J>#SS6n^7MU^KDolMogM=Cg5"
414.     A$ = A$ + "ghXLWK]S`M\E<4gQGfPLkYlBLkjck[KkOF_MKMN?W=?WNjfbLkUoW]cig7GM"
415.     A$ = A$ + ";XO^3\h1hOoWNe3go_o:KKb^[^[?eM[3^4gm?iJmGOHmhET_Pk1oXc\9_nkV"
416.     A$ = A$ + "7X2gKl6^GRmFAomji=<cNhZIJMc]l9m?LE>Q?dEnHj\K1S^C^iEJ7McMh_WK"
417.     A$ = A$ + "F3mMO1cL8M`3_Nf3kml_W?ODMbonGlhkRoOoZVJGM[IjMgOM2Gk`e6=logK\"
418.     A$ = A$ + "g_`O=7oMac;\NNBDl0fNLoCDSkjeGVk\[YDgAZJ`^eoYO\[jYlA^I<X>hVHO"
419.     A$ = A$ + "O[GijPdP9e_fkFdhn0oeHl<5NnbEgidMgi`Ej]Obji=Af3d>=DSamL[H\MfO"
420.     A$ = A$ + "oiYDBkMS_g]c4]NcahjeKjV#OJWKj3lMLU=R>jFjo\;^omGd?_]CH_d_^o5h"
421.     A$ = A$ + "nS_OWV?g:2CNlgF[gfQ8md:Vl7i]m`JMM[5^FU[IaF<nNdogkh[bliIAH`M>"
422.     A$ = A$ + "BE^;EkHmj3\;7KH\FcVD`c[hj1f?Bd?CkK>O2kKUeOfk8f^7RfbT4`nY[Mfm"
423.     A$ = A$ + "doJlM4?_cje2Ab2nY9Jm7kQiNPF[3]6fW0nHRWk5Mo0MV25GPM^H_;[gh[`?"
424.     A$ = A$ + "I0_Sij^#2fK3n?UGS?C]NmBdf1o`ORZ7ZKnSlmmgScJ=FF0lGd>:[?^[\e9j"
425.     A$ = A$ + "?_>[G355>\o=f3kiGg8lWE:nj`JmDF3>W]Eo9Mm5OomnjEKnjZXi1KEoa_LL"
426.     A$ = A$ + "^jGH9NOaK]6ZH0^6h#E>#g3oVeKnj[hEQcco<eDZonl5cnYd:h\[aGHLna\O"
427.     A$ = A$ + "0>[K[Gc5?o<YR^oTdm9;hODnj]?dB=OM??3WA?g[Wh6cJ=AN3Rg>f?lMoZU["
428.     A$ = A$ + "W1TbP=>oBMce7CIjNmY?hc<doAO?a`]eJRRM`WKXiaOd4?`F[14>OlcAl]Nc"
429.     A$ = A$ + "mG^ijSRA`o=47a7Mi3f]YIeSLCl7TEPHYVLGPc?Da8Al2aM2i`TEa:_X`PL#"
430.     A$ = A$ + "SH3dJmBa04O9<GBlg8MOfPXh3Bf0efPWQR?k]NmDdbPh1We?bCO[e#I=`_1T"
431.     A$ = A$ + "[f=lLe5I;86Z8^1El#dbPlWRLdNZmo]=O=DdjQh:iWfnDlnY`J=EX3ncQHYU"
432.     A$ = A$ + "l_fje=Al0n05o0amoU=#==\_FRiH\EDg__h2R;JRa#UK0==\WFZ7=F_>9B6`"
433.     A$ = A$ + "?MLO=\oAa1ac1OgOi=?N__a\NmATl\_5=0oj]ej^#0R=LZ1IF_V8B?8NXcce"
434.     A$ = A$ + "#^OkHEk>Ie3Ci<N>Ue=S^k[KYF[3]P[EgLlel<[G34f0eDAR1mlFMQPc]ZZ9"
435.     A$ = A$ + "ZmeVg1oOBnGTGZAF<>9_78OX]N^GH?X3h\<]FGVdHml\8<QkmS??\FOVdJOR"
436.     A$ = A$ + "oN[W[5Q5T7`\ggRAKoYWjdDm[1QXY`JmJL2mO7>C3[WC5Q=TW6LnnF[GSC8o"
437.     A$ = A$ + "JI?mF?g:2O8fOXF4H]V]]2a^TecUR\7\W#ZYTF[OKCDkHmm##[W;5I;8f^XW"
438.     A$ = A$ + "9I^n]E2e_ARK?[W75ICR\A>[eW`8758GKEMSBdJ9ZVaWe\moWgaDeml5a6F["
439.     A$ = A$ + "WK9#<:YJ0^8>PhO9[dO8_bfV\bgFA\1m7:O=_:0df=7Ln]LMZlU_8>QHNPlm"
440.     A$ = A$ + "`JmMc1eR;I[S8Yh1WJMV[aK:\NNADL3a6`aFa#<GWooCkCm`gji8Aa9H7=aj"
441.     A$ = A$ + "Yejl63iSRjWQRT6Re7R7h#Z6W`i?XcaBTFl`C_AcelAfj84Y5TWgLnAF[kSd"
442.     A$ = A$ + "n:Ne4Y5AegO[em0Wk0fQImLR8o0egL;]kag3\NVMnT[=F?G8bGP?O8n1\:F7"
443.     A$ = A$ + "hLf8VedIh:\0b]a[\e9JcmnENY8<4ZUUFUO;7YZ1;kM4V2mT:;dndCP\N\;b"
444.     A$ = A$ + "g#o5o>7^bDEgCo3FiVR`JXol#olRNCHJXk9n5H?^Z_0921lifB:e;7a_B7NI"
445.     A$ = A$ + "3j5iCY#H9AfOT6JOZi>Z^i;2=B3]?oo#NTImHE8RPjMIJD;C\NL:4=V]>_NW"
446.     A$ = A$ + "heb4ZgDLN2F?F5R62e61RaQTDkOk3]DEol517;HdMbg7[BJKNdIi:2=Xn8Dk"
447.     A$ = A$ + "\kIRZkYWPbeHF?F5R62nKWLI?YdmLfI4kJb7?R#4bIfT:VnOlIg\_OH[cdB4"
448.     A$ = A$ + "ZL[3^T4AkOoCDSkc7U\gA4fT4niWJ3QZiJR#Wh>^>aFO[7C2AQBLK_SeS7Qh"
449.     A$ = A$ + "eAM;XOn_6WJoknE;glaU#ljPhIV_6WJO[7C2AQ#=C[K^jGH9Bk;bM`iK5gmV"
450.     A$ = A$ + "JnLS\UB82E8V3RklGW?GE?B4Q>TkjE>Q?<fen:n=5Q>4G3L_ohDkcn7DN::2"
451.     A$ = A$ + "Mh\GiNoaYfO?UGRg>:[7K2AcaTjGkMcNHa[f7oVZn6Z8dIlm^Mnj3KLZmIO^"
452.     A$ = A$ + "Dco]N\94=74Sa4SmaYfOccYW:O]4I2VHOO;Ym5iBTfGTG9^endGQTmnR\0h["
453.     A$ = A$ + "7]GGAN4laOLZmYNDYj]_8d99la9aaVdnR#7\eWN#JLZmicMmOj7KnHC8J>`g"
454.     A$ = A$ + "ndoASK]?em:[7K2Ac1fk4gab6O^:6V5Q>U=R>6keW=nLEmGF4jTDi^R#4jPO"
455.     A$ = A$ + "hYFl;]_8_ajVAgM7Ha38FenD[[\NL94_>RfCJLZmOdIfTiS;QX#9>enDO?]N"
456.     A$ = A$ + "l845:aYfgKgcAZbkoD[7G2Aca3>ejRM]_Z1iR\0oa5fA\[momc_MO]JH2mYM"
457.     A$ = A$ + "V?n4R63aa6fV4gjNPj#>W_e<7B7<OL:4=6Z=9dKPB2]?LRZ7ZjeLRP4>G[TB"
458.     A$ = A$ + "g3GKgcBeY7A`1eTWm]Xhm<]J<dgQD]9D4JP?HXogVTJOf_;WI\eSEQXQP]8o"
459.     A$ = A$ + "BMc=AenPeSCQXa#]Dh^7MUYRfGkgE4JTdjn8]_Z9cR#Sd#kOoC^Fon:dIL92"
460.     A$ = A$ + "1XGCLcmGNZXmOj5g]kjkIN:fN411hKc7n=[?Edn`SofJmi3_eSKAn6Z3EGN;"
461.     A$ = A$ + "C`7c1YUf78?1dmn5F2nLQh[?=em`oI93dEnHj\iSOAn5j7:Y]^7^FMcaMlE>"
462.     A$ = A$ + "D]WGQ9#M1Wh;c2]o]>hBLGZfaj[5FF??8bO#\eHQ^?2Ra1EOV5Y=d;AaGS9I"
463.     A$ = A$ + "<;G8#]:TJ0Zec7Rl3E<f>k^gG_JCemNNVM?dGF\Nn#T?0oJB>DI^^oILk3]D"
464.     A$ = A$ + "cW?4i7f`<kQkbKNlV[kQojbekeobO?RdROkHEK^^_Q#LT>_BkXic;RRG8WLO"
465.     A$ = A$ + "bg]=cej=VS^l1k[ocF?o8:>Qj`#BWC^]FDM;DTT#O_jZkLjV[cK:8NRh_Aja"
466.     A$ = A$ + "SF??9:>QmEJ]>_idok]RnkcKN[WW45?#^XoTc]5ceg_FZM\b^OA\1a<CLg?9"
467.     A$ = A$ + "BB\NnBDl0jnkMlEI^V^UXmEMlAdFQl3iRKLDV[WK9#<^mco[YYLKAdVPlS:8"
468.     A$ = A$ + "RKWF1kX\nXmm:JE\Xam1^7Nj=J^6^ebIZYDe?f5]H8Ne8>1\FofFPLYl^Oeb"
469.     A$ = A$ + "mS5[W?5I;2IOiGXP]oTCaS[G_YicWR`7R9bK\g_88SKWF3F?O:b6DcdjVo[F"
470.     A$ = A$ + "[GSCXF^aHBakPX#`JmJB`QGfPD]lDl:`m49?4]FOVT#oIWHN#iiRXQ\Wb;9H"
471.     A$ = A$ + "b5[T4R9YE=e^jVJoOKcWc5f3n0YH`W>5:TcIDGgdmocg`m0YNJJ]N<]i:KMR"
472.     A$ = A$ + "^5?n^Hnl_`FX^6K]Fd2XG][JKEnSXcjlYo`^<G3J9HkSdoi7`W>dKhBcJVOX"
473.     A$ = A$ + "2Wk;noAm[ml3gjP;bLMG8aYGm`miS\e[;RT1ZKbT7:iMkLJ:`gWDKWEMM^h6"
474.     A$ = A$ + "[eIQ<ojnGPi[?Rh3^G_dl56d;k#oC=hbje=AlP_G=40J[\2AehF]7h\9Aa]U"
475.     A$ = A$ + "ejX\:<gANOAmXcjeBAQ3g_RN`LF>W331`6XS]RQhZN:ZVo4jPO:hNEgmX[dL"
476.     A$ = A$ + "MCa2gXnik>kJ:e_70UoGQ9dkMX^:lmK8KECAb:LU]=IGm;\4cGW5_<d[??DU"
477.     A$ = A$ + "3dLmAa<oiUZcWkk<OCNl[W1H;4;Rd_elmm]LJ<YUf#N<Omj;Ci0OPPejQl8L"
478.     A$ = A$ + "=`?_SYj?o4i;XdQXh>??U_9Q:4?PWK]S`Ef8Do>:YQH`TJ]7_fjeMaO3a3:a"
479.     A$ = A$ + "78mkdi?bggLMBa2llDZomlJOnF70[eRG5\1RcD1m_f7#l0e5Cl[0aU0nJ`je"
480.     A$ = A$ + "Ha[7^75[M4k\F[ObJ#NE5e_`]NMDdbQJ1JdJ9jO5G#5VVWn4;n>PjNOF]nO;"
481.     A$ = A$ + "nK`F8NV=e1V:WPb?b6c<6D7liA8e87UCE5W#^a7]Ncmf:O<M>gFW4iiPXggi"
482.     A$ = A$ + "lkSkWfnDLgl0E8kic1#laMWSDe;j7fi]j44a55kOUNSCFZGF9RGX_Xf`W7#l"
483.     A$ = A$ + "RB]QdJmILZcIl\_5=0ogS==5;egKAl0e:JbG<ZI:Am:Y\^m#lg?eeKR_B>oK"
484.     A$ = A$ + "I;_X#QlW?B7am=Y6jaN42]c>HF3mMmoMQ6?jWmPC]>__^\N>DTMiAWIC^K^o"
485.     A$ = A$ + "bmn0i0;N0nW9`im#<DHM<4QoI`V6b?`6ZkE^S8BJhj2Z[^=D?RODa7Bh35lW"
486.     A$ = A$ + ":aJ:aH1nEQN^:fQ`N[ij6PG3DGZigS]FLM5a<6a5o6VI?N9M=#LT9O_;218F"
487.     A$ = A$ + "R8Vj8g287c^FMcaG[MiI5GHmSd7[MDk]8N;>n:7ZgoB`AZji`[iWc_WNC9_O"
488.     A$ = A$ + "nLoa_LLNOa`W7fZS?IDLb;42Q#842Q#842Q#842Q#842Q8?`o3#P%%L2"
489.     btemp$ = ""
490.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
491.         IF INSTR(1, B$, "%") THEN
492.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
493.                 IF F$ <> "%" THEN C$ = C$ + F$
494.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
495.             IF MID$(B$, j, 1) = "#" THEN
496.         MID$(B$, j) = "@": END IF: NEXT
497.         FOR t% = LEN(B$) TO 1 STEP -1
498.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
499.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
500.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
501.     NEXT: btemp$ = btemp$ + X$: NEXT
502.     btemp$ = _INFLATE$(btemp$)
503.     _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
504.     BASIMAGE1& = _COPYIMAGE(v&): _FREEIMAGE v&
505. END FUNCTION
506.  
507.  
508. FUNCTION BASIMAGE2& 'wall.bmp
509.     v& = _NEWIMAGE(50, 50, 32)
510.     DIM m AS _MEM: m = _MEMIMAGE(v&)
511.     A$ = ""
512.     A$ = A$ + "haIkJ7C3023504e68QZ0L1VZ>R9<1NPT^bF=#a0T#78Yg7^QW0^m[NFJe?Re"
513.     A$ = A$ + "lBXI7\LG7cYY#XW>>fg#c>Ha>Ha>Ha>Ha>Ha>Ha>Ha>Ha>Ha>Ha>Ha>Ha>Ha"
514.     A$ = A$ + ">Ha>Ha>Ha>Ha>Ha>Hi_eA4lD7ATM`bXonj=M1L<9%%h1"
515.     btemp$ = ""
516.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
517.         IF INSTR(1, B$, "%") THEN
518.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
519.                 IF F$ <> "%" THEN C$ = C$ + F$
520.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
521.             IF MID$(B$, j, 1) = "#" THEN
522.         MID$(B$, j) = "@": END IF: NEXT
523.         FOR t% = LEN(B$) TO 1 STEP -1
524.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
525.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
526.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
527.     NEXT: btemp$ = btemp$ + X$: NEXT
528.     btemp$ = _INFLATE$(btemp$)
529.     _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
530.     BASIMAGE2& = _COPYIMAGE(v&): _FREEIMAGE v&
531. END FUNCTION
532.  
533.  
534. FUNCTION BASIMAGE3& 'PASS.BMP
535.     v& = _NEWIMAGE(324, 155, 32)
536.     DIM m AS _MEM: m = _MEMIMAGE(v&)
537.     A$ = ""
538.     A$ = A$ + "haIkM^7eFEEW7WG^8gD#05O55443#1a;1Z##PPY6VJjb[YYFj8Y>RCVFfXUF"
539.     A$ = A$ + "jTY>#Y;<]1;]\\Y<_ARBZ8V>PGHQiUBdA6U9CId9=6eFSogIV?kmjg37Nhmi"
540.     A$ = A$ + "iiLfkciimfg_[eWU;4>km_mi\gOOfg>kC?jA?BjQ#8427BBBBMgUl3UTTTlB"
541.     A$ = A$ + "nQBBBBN9o#9999_TOXTTTTGb?DBBBb;i7:999iUl3UTTTlBnQBBBBNU7o`fk"
542.     A$ = A$ + "m<^#84QRl352AgMJYUFBjE?KYdl37fPjObh7i#BVjhgYTY?aA842A7F6HojC"
543.     A$ = A$ + "b0jK_;=o#l2?jY?fTcmXVLbGm4WR#84MHYeQ<0GOh:;o#jG8NQ;Lnc<i7MAO"
544.     A$ = A$ + ":Q#8j`bXKM#9kl#7HYi7BO#agUlJYGiA942A7FfSMIkC6i>^Mb?D84MkAnQ2"
545.     A$ = A$ + "Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hA"
546.     A$ = A$ + "nQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q"
547.     A$ = A$ + "#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAnQ2Q#hAn"
548.     A$ = A$ + "Q2Q#hAnQ2Q#hYcPOh1__S<IPm[?EBc#XUFJY=CkAgjPR>];C8^kX7SFLF4aH"
549.     A$ = A$ + "]N>UE:jkEa6?UE<VUh:VlY8ZgEDe9JV?Oj<h7^Oka>V<QA=dTadjPMaJNHW7"
550.     A$ = A$ + "j0C6#Ok]SR>]cBN_K3OkR:^YnD\aH<aAFScmN<3;jH\N?WJ6eEZ>N6fPjOb^"
551.     A$ = A$ + "^3K[[=Be`o6l;bC\=cmNGLagN]K3=IlSL81G_`R[653QL_X8ZgEDe9J6eGj<"
552.     A$ = A$ + "j7B<bmd7nj?cTEmCnji6;F:Sd^NlXgdijZC4jeKa=e;96Gn2?eXRSbZ<B<Ng"
553.     A$ = A$ + "GaW9ZHT[[N?WJFeEBG^`gQfMah9Uf;Lbkn>hl1=X<o\ggg?iEGeMUlGf`;Tl"
554.     A$ = A$ + "AOhVJcfB_ok\QTo[omW9i?l`oh:aUAmR1kNAX?7\[?_?C]d8fj4I]mAgAo#R"
555.     A$ = A$ + "aGna^S<Uge:Fhicml]>b2=][Wn_OmW?iOmbVG`G_5gcHBS`E_Wj0a47[KUgN"
556.     A$ = A$ + "`aBmBKRaOegHNA5S?n?jRZDNiIdmm]?bfUj:eBhGQW4YKeNB3NPmeeok6eW#"
557.     A$ = A$ + "j[4PGmOjiNTPSU?lmN[Tel[_VTQ^MmcA]RQldffd;^lOHUW3kcHgaPNVJ?;S"
558.     A$ = A$ + "]>ASDmJG;o`67;43oR;mCk^oe<l3O[e]jT[oLWEb7lGNSP^nU_XCc5go`oQi"
559.     A$ = A$ + "V<RQ]]9_h_M91U>oWon7f57?gm_hP^nj9:S4SghiO`^Hla_U;<Xda:[`Ml?N"
560.     A$ = A$ + "h9geUO41i9FV??C[=]aekl5]a\E;?AK<WFO2;bhjmnc_Lb3NMWL=SQ#l3Ogg"
561.     A$ = A$ + "HMEN><]mJW3b?cNFNcG`Lle9nom7;3E_feb?\aabELJ7TcKQOgZIdnieNjUV"
562.     A$ = A$ + "<o?cNW\Qe^lP^NZ?ALOIWb1Tdj#6#bOlA^ePBW7kOI1^hhOkf^TP^nj9:S4S"
563.     A$ = A$ + "Gha]o9khPkObS\hc>Xda:[`=LNcfi96b_ig\l3=mj[II9mKKJKo8jKX=GQ<V"
564.     A$ = A$ + "AjOIA[ofOMS^OkX]RQ#l3AGiI<=gcQ[m_K6^i6h9naGL^^NkIiGoTWZ[N;eo"
565.     A$ = A$ + ":3E_feb?\aabY>g9TLeWiW8if_T3[YdnQaN<Ua=lT7jjoR1MmgbGi#Lam9<["
566.     A$ = A$ + "ailJ8m2AOW_hdCVjhgYTUM=WH#GOmT=nZ3mS?ZTQ\]m=i1^fC:Xdi\VgTZlL"
567.     A$ = A$ + "2oO:kQlkm=Ko#dcmK^1WO4a>NBhSKcGXeg`gl?n4UFnch?Fb5>g]86Ra?lWl"
568.     A$ = A$ + "e><Gj#LCoknM;i;W[[gNFN\cH?LSU?dOS\AZN][UOHSS5JcBK]Kk[NX=Uf?["
569.     A$ = A$ + "m^_>glklc^T3?X[WahJcO8Yc6OiW<Xdi#foAilCSI^<[UX<B<Bkn][om9IYG"
570.     A$ = A$ + "eW=XdQHdN>]PSIOCn1;H>^nmdI`?4I?[0bO6W<n9LOiiOPKZdcOVOc_aYNPK"
571.     A$ = A$ + "aLZ5ZOhjObkeU6llTn7^RKlLbeeK?;Y]?o6i3mm?SL73IAe[M]l33;F:cf??"
572.     A$ = A$ + "c_lZBjM_jYkg93A;n_Of^hVnI`hPNcGJE1U><V5fWFlkn5]X<B<bl<aNdPn6"
573.     A$ = A$ + "5R>P9dJUWC<fN:kMVl3OeEMWEROjOfH7aP[\fZeJMS;JMoGma]5Nb43Qh7RV"
574.     A$ = A$ + "hX7FB_jI;93Ok7#^mc\WU\N<h7bl9F6Z8mHTOHca?TlUaZ6cecL#il33L<Gf"
575.     A$ = A$ + "nFUiT[XUl3g\Vg1<j:U1l2iN2kAVVUHmE\lWa>Ka#8b6c;S;IIOgS?GG[l3;"
576.     A$ = A$ + "gH]c^O8mA<V[O#3HKLe[2A_bSo;MY1oF?cgLA;i7^IM17kniRo]Ygmdi5aN2"
577.     A$ = A$ + "Tm>HcDWiWNRE^?bjZ4ZOX]WIHnohi#NTl3;gH]c^O8]?NSGHU1U6fh_hgYS9"
578.     A$ = A$ + "6`?TiDZXEG=o`#O>Q^^cNVEnm;^O`hE3A\n5LoPmfINEjiaTHPe39DAlSOh]"
579.     A$ = A$ + "NaOZLMMb?\LSe^2nQ?ob^aPB3K\?\6JQX[j;<m:mAUbKA[^JnQToOYSLb1M]"
580.     A$ = A$ + "\6WFm<Fo:fgeQ8kNacl[n>inJGcMNeE^?bJQ0QZcn8VTK^JnNWc\bee9o`b="
581.     A$ = A$ + "Fk8k7JYMm0_X#g7:hcPO8kU[#DJo#V_m#DF;SMEl31F_fl:f;jV?0cg;[UB8"
582.     A$ = A$ + "R[UdIQcOVinJ]OO2`CVeB;DaHViIjUoi?`LMM5UOHjj4e3i7V?eNj7bjH#o3"
583.     A$ = A$ + "3M?g`k80[a7kgi#TEWRHh1oW?UPBS\DW\_mYG^a9nKnW>VXRc>2nQl<kI_g5"
584.     A$ = A$ + "Uk[elRH?f`mR#g_Wfm1fSaQ630ca2eMRASKGgNglRV7e\m3?lY>JgN=BkgV\"
585.     A$ = A$ + "YVQO8cc2kg<F;Ib73f3G0iI8Rj4D_nB>YY4decljKnEQ^?`JDILFCNGLmYQj"
586.     A$ = A$ + "nQjifAb?TiJ=Tig`lR86`?LegnU5L<PWL8o6ZmnT3llPn86SH<cWaQ]GijJ:"
587.     A$ = A$ + "3o#V;CfCWdoPdem`;Te#RgU6^O9o`hRUR:]aWhXWnHC>gSJb^l`Pa[POFNWC"
588.     A$ = A$ + "JC<NGlJ2M]#\hSn7^R5?oXBSJE6a[Vi]WnR`kdK8ZSVOH8_[hVO8[[<o68oi"
589.     A$ = A$ + "HRQl^^^Y_NPj=aj7bL\LlOb?F^^Vb`?TmL=nNGda_oKAM?jG8NQdVn>oVi_n"
590.     A$ = A$ + "Rl3;7o#jc4n4<W?Tn6hC#M2l4oX?hmbMjSO8me8Tm:SeG1j[1m?LUgliWkd0"
591.     A$ = A$ + "eXb8Nmd?dHNgmkXi76bk:^i7BnSOhCm;nfA53Q>G\fmAZg#OjSA<?Z7a1>VL"
592.     A$ = A$ + "M=UQO8[W8]5H>4BGgSa8Co2a;\8>SKTOHa<OC<_cdG#jK#jc=D>K_i\7Tei;"
593.     A$ = A$ + "Tm?1_oKdf:4_<[m9mCPeT9D_Z6E6]g?=n_QNf>eEc?TkE?eML5A53Lnn4je3"
594.     A$ = A$ + "D_9Fo#DNW[WRf?TeZSniJ_c=Y[gE[cI=i76F\DD]O`_Qn0Vnl3e>3OiMkWo<"
595.     A$ = A$ + "WkFiEd6Sdh5N`K>gG;NYflnAJ4jiKCN:Sb?LckmX^:nQoiGlabeonRf?Taf#"
596.     A$ = A$ + "j`_5KWo]Mg?O\kXj7bc<N?]h<8Pg7>>;?J[c9h#c3JSQ?D8W90fN]QjAD_9d"
597.     A$ = A$ + "ig??UAi7faa?TH8dmaO<ZXl3YN0W=4l^3bI86Y3SaQjH\g>]bYl3cW:Co`jY"
598.     A$ = A$ + "Z?WP3Ym1SaVe2Qg=el:6[NAdn\NZX>;TUOhF73Mgm3[WNY7mWFYL6ciY^l3K"
599.     A$ = A$ + "NnQY?WPY?JQN>`aLg5R\jU\F7a\NWeC5eIQ\l3gjH#nQeFlMWa:WL^7ZeC9k"
600.     A$ = A$ + "Zmb?d>WPa?Sed8djVQ>7#fki0kC6F[AnVKDdZX>;TUOhF73b?\fRjIFiTmk0"
601.     A$ = A$ + "WUMjk5#fDkUOHjclIkM5Pcgml:fS;Q8;_InXaKL]gc23:MZW:Zc2Ii7^eaPl"
602.     A$ = A$ + "3[]HnI\b9_kFlmkAO_0bVJ_l3COV?SG8mOjMN]W;gY3WgoiEYO_]HmHXNi_O"
603.     A$ = A$ + "YGO^CW6YRj\#FnQKM<8o`J[dWS?lnc\X_dWdMn_;o`hRUbd?<MKLkM[Wi1>_"
604.     A$ = A$ + ":TcPodnQFkR#?SMZW:SmN[l3UOHST]g9PCnP7_kMDQ_aNb?<^HYIk76jg4Zl"
605.     A$ = A$ + "ZdeG\mQFIlMl#nQKFb?d;i7Fko]b?L;m3;[_5]E[;n4nhEbKkmfZ<lRUOhVU"
606.     A$ = A$ + "l3mBnQenO[l3g\O8DFW=Ve;_]g[oo`3M;UFn8o#i7JBnQenOKGMo#J3D;\cJ"
607.     A$ = A$ + ";Pj5a\WKb[X_XYcKF?W#of6UUbXl3UOXYRb?T_m?eZNgWK>C#nQM0m3]d^AH"
608.     A$ = A$ + "kg6lY2iLM8VhbbkGJ5gFdYE]`F3kOkR>mPb3i7^ea#gMo`\NN`bIO3OkJdj;"
609.     A$ = A$ + "W=eA`?TiccnNW]aGiY3:_bZhKRDjl>Vef6UUbWef;f_I8b?DnQEW>=2nNg`n"
610.     A$ = A$ + "_Ako`\YVQO8Wg6ko7Kh9cMo6Yk\?`hhViNhJOcgJ8kkQKIo]`<mN]QjDdg#R"
611.     A$ = A$ + "_e]bK?Xd;;UAKnAkZLN`:o``EIh7>aA?<gIX4W7fFm^SiC<fT_`Q?AgggUUL"
612.     A$ = A$ + "QcEW7\ID=3o#NNM2cJL^m:oELJ7D5HNOI_RBNbIgFXW[3iAhUHa5eQX_QhUE"
613.     A$ = A$ + "VUAk<HR_YBQ8i7^ea#kQOHXkWndZ<l3i<Yml>jmaMNHKek^bcHJ^a9cI4;cM"
614.     A$ = A$ + "XNoUcVJ6nQl\klo\kS[OklnUK`Ig;?[hg^8_`c8dc0V\Zd[m6_o8fgMbb\<J"
615.     A$ = A$ + "mmm9^e_F#iQl3gjHXm`?Tj>al=X6E6nQWnQ^W^aHaIaNjjMLncahTiMG^8>S"
616.     A$ = A$ + "KTOHiUfE3i3k3`Rh<j\Nb>W_\OGUcM6X<;SfmAMNOeig?<d_ARVjX]7\TOHf"
617.     A$ = A$ + "SUVYO8WcndFQnZmAOhV2:obRBG?RifSlDnQI_\fMg?l`Vb^5DnJBnQenOK75"
618.     A$ = A$ + "o`JmmoHbkn>h6[GImmCaRMnoW^\DVkiVd[m6k5QR`?\AUAknH\nQan]bXXl3"
619.     A$ = A$ + "gd6GO^_fZm3iKCG<a#8nQ\WmRe?<V_QmXVeg?UZKK9o`\9[nEKmmoPkUke^="
620.     A$ = A$ + "dB9]K[_c3FIiEGeM5Dne8Unk_;`gXAb_HFGk\D6]jWaj76kg:SRX^2]o2AEk"
621.     A$ = A$ + "76cg7?RQ#l3[nLl8_c=S=gc?i?obcMNKZIlmC9Mm2:Wb?<kRj8?km^8gHPf`"
622.     A$ = A$ + "JG^KooagAAPm72[1KITf`[m<gOUk55AI9;aSUOCIL3g]VLfnN\<;SDW<6o#j"
623.     A$ = A$ + "GcJ_k[cm>FoJ?mBCN[e]JWg>YOjc2iVQO8O?Y3A5UO8]kiK4A<SI72ik95nQ"
624.     A$ = A$ + "lkNO_cIFi>_=ET_O:eZ>QAF[G8o`\YENCWWkKhJX_;K=B_m[^V:g;HocKkiV"
625.     A$ = A$ + "bJ=VoM;i;_5gkikg]=_UUU7\E6IlbTo5]hK3_EVJdJ96KMUHROkkI8g[YO;o"
626.     A$ = A$ + "P5<WPB7F?<jCdK_ne6L<4SO8Gk<Vd8bMNKZIln;Kb:[\7>H^5SM?gdMg?TkO"
627.     A$ = A$ + "O[COJ^O7Z<dOjiOd:g;h<l5?3jWOXkKi6Ydke6JGaih?nQUIOB]b8n0QnnjE"
628.     A$ = A$ + "?ajBHUY6]Gc:knOG?UnN?nIL^2monn_K^C7j3DXonLKM^6U7IU1jOJXcaMkQ"
629.     A$ = A$ + "O8k1<nV14kj]dMg?lb>U3`]?g3mknASdjFi?_bm2Z[bHQH>h:[mLCjgcMf;o"
630.     A$ = A$ + "\gma3^<m8\b8U;f?H5]NP[mTZDVJdkR#75o#K]<n?NZk[Y63Y?7?\ceXl8[<"
631.     A$ = A$ + "POn:Fll3:6J?l3IOabHlYnWl33GlMoH2SJX9;kJ>a2?]AL6mWN]N]gE4hoi]"
632.     A$ = A$ + "Om2?oB_75>jY?FGmkbf?d:Sh1`gfWRFhoIUY6m^ZfNj7VnN?n0h7n8g`Iedb"
633.     A$ = A$ + "O>ocC_FJ43Qj7Bo33ikD1Zm`?Tjjl>[#O4UOHhRi9Qj]d?kb#[i>_j:g;>b3"
634.     A$ = A$ + "J<^aVKSO]<fc=YkO`9=kai>7T:Ko#[<BK8joFA[_kI=S]hgDZgIIBkYOXmm<"
635.     A$ = A$ + "d6[:#M;VgoVQfka<\]`?TaP`k^NNTi7bn[ReEi3O_g:gaAkQOh\Vl^hF7<No"
636.     A$ = A$ + "ETOHhRWMD_UnKD6:mjmakP>o6FIj?U^m0OWMH<4\6>=Sed6o#VoQRFii\o\m"
637.     A$ = A$ + "b?<mjHT^_Ih7bhmoKKj];elWn5U>oYMWMnbU7Ig[Ion`ja4bhmK?l3;2O6i7"
638.     A$ = A$ + "fnj7bn8Y8EjmR[=fBfCob?\L5ggCgg#kN_=GafnVl3Ngg\DboZ7W\=nAkmd<"
639.     A$ = A$ + "?b^G?^MMkM];Fa=N>i>NTOHi6WMEm3;jmLCjljPfcFC^PSMoL[7KcJ??fMd?"
640.     A$ = A$ + "\]l2IMmY>?[g>oMh7bH?I\L_ok\Q2=oilXYJ_#Jcag\KKOhW7Uf?Tn76bN6B"
641.     A$ = A$ + "nQUKLfEd?TeCIi;lD;dl:]_1kaLkn^l3;NanD<mJiW6RAVcC>oEH_`WfCTWo"
642.     A$ = A$ + "[jWNYAWoL6dTnLk`0?8bOKMd2e?48VY]aOm=OULU6b?\LScdWCF\_\Fc_nJL"
643.     A$ = A$ + "W3c<W9\NVl<<D\eOh\VgTLk_0>onH?dE4Y=T^=Si7bHHH^^Yn6WQo[mNFXKL"
644.     A$ = A$ + "9\G1h\B<dl:mjKbil5NC\Gc;ckOY;S<WCLnL^jOfgdiAbNHROWQe3>Vd?Mi:"
645.     A$ = A$ + ";nQUAIUm:5aAS>cV?ZY]k^ieWnUKk98cC<mo>^WaOojGmMW[foec7VgQLf_4"
646.     A$ = A$ + "GjWKZ^eTWi9a>WghK=;gCHO\cLXTUkefJ2AMCfO^I]>ZeV2o#[_6l\Pi7ZXZ"
647.     A$ = A$ + "CHdMd?Th3_SjE?\c0\?7i<\TbCe]?:JXM1eGX?:ME^o1L>hQ_F]FOif[bjD7"
648.     A$ = A$ + "o>iNnR_9n=E_WaaC\Faeh7i#Z\giI?^DMKNnkBo]9[]0O<>[Na;lV_PihlLR"
649.     A$ = A$ + "mN1eAIO86cm56c#chn_Mo[k`j;G_jBMVPn>aN5QOS]\;CLn8aJ;S_AGUkO0k"
650.     A$ = A$ + "kFlKZen?\IFFa3Jfkc^jFkRcn8VTK_6al]E_gO6J[ahV;ZHP_O3\_k9oI_LA"
651.     A$ = A$ + "oBiI>iO\g;H]PR=FSe?=[`_5`_M`i4KGMo`d`n4TdRO7Uf6dO163E<`nBQc0"
652.     A$ = A$ + "OVc7l#X?L5EJ3\WiHm6Ym2eGCgFVa_Po8SOPnFPWI<ieWo#fCgIh0e=hnDe_"
653.     A$ = A$ + "oBUam_Z;Sh9L;OU3ae?>^_bmgHCORCRGRkfZLe\Z[`HE9M`oQdTjfDOQWOdg"
654.     A$ = A$ + "4NffXgQFNo[acTi=94o6lQYo#h3cll#O2YN;c=2S1_]bOb?nM4RG>cSbkmJ:"
655.     A$ = A$ + "Gd_C>_nigJiiMFJCAM0lX8=hoFTe9<Xl#ibjGNg9o#NFc_oAjAiWk_<OBa0c"
656.     A$ = A$ + "72_KafIANAVf0m9Tf;<W>llRf3Eg^UaeR?2aB<i5a<a>U1[O2Umm_Z;Sh_CN"
657.     A$ = A$ + "`LfameH;CIYLe\Z[#iTbc=LNcfi?#Jcc^lNVeC\Qg5eg8M8]a[1_2nM5l;`k"
658.     A$ = A$ + "=]?<oF7nO;hHfGgLDJn`fmTZ[GeFea8_JdcSfjN]iQc_cAIWk3IY=5e1<?Jn"
659.     A$ = A$ + "_5IMRdi5U;:OM7NoUK[jBf_Iac;N>53T6TFTVlL_8CkdY_E_Xjf<lW9Oi_?f"
660.     A$ = A$ + "l<MIYFN65mm_Z;SDF\f#UacXlL6VDTUE^nfZLF4eU9ma[PO?1_8j_GJ?WHmQ"
661.     A$ = A$ + "cCM\JM_>?g;]d8mmXR^>AjlbNN4kg#U>SnQ2AGAX]LeN>V_Aen`5ag>9aFSl"
662.     A$ = A$ + "352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q"
663.     A$ = A$ + "`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl3"
664.     A$ = A$ + "52Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`"
665.     A$ = A$ + "Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl35"
666.     A$ = A$ + "2Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`Sl352Q`CIj7fB;]T<`neWT"
667.     A$ = A$ + "F7b0B6M[3bUG2Q#dAU9_kk#bHJM`UROH_jI;93X_m>IH3Zo9kl#7XcgE84R>"
668.     A$ = A$ + "ZPGh46e#;Lo#999Y^bBnQBBBBN9o#9999_TOXTTTTGb?DBBBb;i7:999iUl3"
669.     A$ = A$ + "UTTTlBnQBBBBN9o#9999_<o#Q#84m8io3\Pl%%h1"
670.     btemp$ = ""
671.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
672.         IF INSTR(1, B$, "%") THEN
673.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
674.                 IF F$ <> "%" THEN C$ = C$ + F$
675.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
676.             IF MID$(B$, j, 1) = "#" THEN
677.         MID$(B$, j) = "@": END IF: NEXT
678.         FOR t% = LEN(B$) TO 1 STEP -1
679.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
680.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
681.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
682.     NEXT: btemp$ = btemp$ + X$: NEXT
683.     btemp$ = _INFLATE$(btemp$)
684.     _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
685.     BASIMAGE3& = _COPYIMAGE(v&): _FREEIMAGE v&
686. END FUNCTION
687.  
688.  
689. FUNCTION BASIMAGE6& 'face.bmp
690.     v& = _NEWIMAGE(300, 297, 32)
691.     DIM m AS _MEM: m = _MEMIMAGE(v&)
692.     A$ = ""
693.     A$ = A$ + "haIkMfm\EETN6744##4icPX8OZPL>la1144H0oX6n#A5DI6M`AL01RO05C=>"
694.     A$ = A$ + "EVJVYL\HZA;]LB=Y8CUo1b]iRDi^DifTZb=YZLMZD9GTkB^:gk>n\>I]MMfL"
695.     A$ = A$ + "fWmN]gMg?__ModEm[VB75g[nmmmgZGmZGMgYSJZYVJZYVJZYVJZYVJZYVJZY"
696.     A$ = A$ + "VJZYVJZ5cfOkMN5Q#8XQlE2Q`;dVfc>a642QP6bG942_PlE2Q`;<Zn:f?7[#"
697.     A$ = A$ + "8:3T_B84N1i[42QG#n:Q#h5T_Bd6nT;ndM^k7Mb>ckKc1Hc_mmNf>GkUVTNO"
698.     A$ = A$ + "R8M8OUH^h[^faYkUJ3ghLkQNOV8N8OUhf_nDdm<Y0LMb^_F<N8OEi2Ko1CHg"
699.     A$ = A$ + "g;6=T_Z<P]O`3`>696<bGUg`f1hAH7c4m7i[b7^bIVPN]N>bkMj9X7K5CSlE"
700.     A$ = A$ + "i1\[Y;1H7S5bGiE:UgYWEiFG#_[A68OUoPM]ZhkPM^#YQlEfW?kM?2mjBaP1"
701.     A$ = A$ + "a9fi:i>bGICnU_m1YGo96Mn5_e1YW3US8OUmPM]V8<liGiXdcUb=T_b6leGg"
702.     A$ = A$ + "GOWNRf1n><IWSU38O5O`n<0kj9Ali>GFc_ehRlELhZWMBje?2NPef;kL#?Rl"
703.     A$ = A$ + "ELPMmRP?\c1m8bGU>`c3`^6AH?n=oh3C?gd;8OEJPM=Q`f`>od;8OELa:kM`"
704.     A$ = A$ + "2O0klE[SlEa5fio2o1kLF;SlEQ7fikRl0m>4_GT_:L`>oFT_`>gf:8OEhPM>"
705.     A$ = A$ + "]8OQM^]E#n:iY4n1fij\AnZA7\W]a>oEDNlQ_jNYWk;OU_PM>[#`^6#n:O0k"
706.     A$ = A$ + "lDQ0DRW36bG9GU`g`^V#n:K2klBQXO`^f#n:k`Wn>?3mlAQH#l[nA7RN]RlE"
707.     A$ = A$ + "LQM>X#dFHGc8OULE2AKPM]SlEbE94]1fe#bG9?U#d6HG?9OULE2AKhSO]lIm"
708.     A$ = A$ + "`;OULERl7feGbG5>dim^X40WIh\[eT_JlQMNT#T:HG[9OeXc_nBJMP::?nio"
709.     A$ = A$ + "P3#_fCnZf3kl6QP5\[mT_Jh1OGk\cG42f`^>DnZQ3fi92QEPM]XlEbE94]1f"
710.     A$ = A$ + "eTbG9GU#d6HGK:OULE2AKPM=ZlEbE94]1feZbG9OU#<\`^F]TmE\Sm2Q7QMM"
711.     A$ = A$ + "[lEnT]\nEdINcKN35GnDkRn_gLVZngQ8>\d5_`>?gnf8mO_S;\[M;=O5khMK"
712.     A$ = A$ + "II;in7Jgd`BeOV6hJcKXHad`^6Fn:ka>fh:3N]A_DmO33L]JNRLL`Ka2fe`U"
713.     A$ = A$ + "P_j[_naY7W74oEgjiCB]a\aaVL3d_n]4WH??:]HaOi7oLd_n74o^ObcB_V>W"
714.     A$ = A$ + "mE\S_32<o6\Z?ZiMNaWRNoP5Xjk8UL\X:O`0m5c5\[YcEO5khjL2ijRISm\e"
715.     A$ = A$ + "e`_OQ0ko9F7mnnk13d_<G`^f>glE\SWc5WnPKVOmPS[E2:\k[W3NQY\kkElV"
716.     A$ = A$ + "WOOd[aU_Z\[?JbNgfJigG5A>h>nCXg7kmkO`^6?GlE\SSmS]]QQOmCI2<#OF"
717.     A$ = A$ + "dPMOK;HC[Kilk_V5HGWW3n:fa`I3\_nc>WODi3OemB_oCaRieIQ;hnXgg=KL"
718.     A$ = A$ + "W;O4i[6A^jIWTNl[Gnl[LDjijS;odgHodk7E\`^a2i[bWaFa>o>H`^ODaR^D"
719.     A$ = A$ + "iMIgGf3bG9GUeh?NcWWOOZR5V=F8OUOmEKL];WN>MXIM?lBYg_ZHQMS5bGiC"
720.     A$ = A$ + "G5kLiHR7nnV:UHA5\kOk1i[LV[:c[AFbRFHWo`7L2nma:FDQeR5bGi<OU1bQ"
721.     A$ = A$ + "C2\kWE\X;OaE?6onj68Oe\c_j7M8jaVVLZ3\9ji^YRolodC#_oFnZYYjkOTM"
722.     A$ = A$ + "OM3^m[?UlEmP9gk=<#^KZHW?nZjlU__]^_NC#N8knXDReR5bG=CH7?:MO5hc"
723.     A$ = A$ + "NgS`_?OFXjk4f0m?UL\#n:Sk[<#>;3n;n`Cb__Ga2C6;T_bV^ZUo0QOomf;l"
724.     A$ = A$ + "Kna7^cMo8KEW`^?AaRdi\T_Be7]1l>?nZ[IWeTE9n\PF=F8OU1MEMB[_2OWn"
725.     A$ = A$ + "cEkOkOl_Ij_Uo4mk1S]lGOYWQO<`PaR>9ngSiR5MR_cBn:kFSlOn_lg?daSD"
726.     A$ = A$ + "FWPmX5;<g93kI2HXHHKWk`K9Ya2fa1i[\[[:5WA1gj2CeZHAcF:ZA`i1:>gD"
727.     A$ = A$ + "H7;\VWRE\`R[=>i[\1[HI;f\e7XMaClTAog7>CG`LmBO=aU0O0j?]N\`J[5["
728.     A$ = A$ + "BdGmcNCk]?UURJToQkNmF57V]6nc8fo>=aLmZHA5H]HEMVFb<Fd3GoUgMAi["
729.     A$ = A$ + "HgOcZ69D]HoklGlF7Ton8WR5ElY_ccHRiC\G:5O5knIES<HncnQ7XjI2E\PO"
730.     A$ = A$ + "\0ci^5OV`Hh\T_b>e8hJ?D]Zna8nKmWo3>0ogU^R5EPajJRgoa\PlEi[_:d]"
731.     A$ = A$ + "Hk[Xo^dE\X2<FG[mm4F:n:fm_Z6IhmEhnj:FHSH1V3;je6m1i[D=b`dT_ZLR"
732.     A$ = A$ + "5dOfliPLeGa^OEe8][61?7RR5f8FH]mbbHi\T_Be8bGioHQlEcMCnZ`cDKO]"
733.     A$ = A$ + "]:6<G=lWE\[AbiW7dKa2;olPiX_RMoY5ZA0QZ5kOWi^_bKa2[k[`j_GnZl[6"
734.     A$ = A$ + "iKnV_YEaQI[Qo<BA=B>_N6lD\`4[MgQPLaGa^OdBe8hkGMLKh?SDh[X?W9:F"
735.     A$ = A$ + "deGIeeOEXMFbGe>dn9cdkQ9X6QnJn91G[0[7;<agbi#RlEiIM2>SiJK[jLY;"
736.     A$ = A$ + "1of`NWQ5^WnRFHJfGE]N\0?G>mm:SQ4_k[HgoIEOE=FLo#^N^[<agH[QR5MB"
737.     A$ = A$ + "l_WjHQ9f;b6BT_:_[AJbodOmWfionohO]cokocoEWomoio^>[M5?#bo=l67O"
738.     A$ = A$ + "kMOODonKlm:bH1jgAo?R38NPh2SO7eaROkkIc_eiHh\Hj[Hg_=ZDbWWGXn0H"
739.     A$ = A$ + "Zm303d_`<FHam3Ii[<668OUE=RE>_9D\`0[YTA0i[B?;K9UgH\FbRFHgea`O"
740.     A$ = A$ + "lV6Joge0m=<S5dkoK9bGYjTD#mJJgJ_klo`7L2jm=:F<lPOcbG9OE<i:WIR^"
741.     A$ = A$ + "cc^5W_TBcIIiHa`PglE\k_2668g=Ee7H=GmeGg`[c73d?U2nhGK_f?F<0T_R"
742.     A$ = A$ + "3?bZF6mlgHc:O`5gmi?\fi6UR5lkg75`lO:O59<#NL\h\7JcM[?<eJHX0S50"
743.     A$ = A$ + "C^NB6AT_R3iljaZ^n0O[PEcAT1j_;eH1nfY[O^L?4;64bGaSZej]1bY39Gm\"
744.     A$ = A$ + "CfM\ENikmX4R5gibnH_HH#h5OeGLE3lMW53<#NMXh8kjAjN_Ljk335N\0dLL"
745.     A$ = A$ + "^NmM2f;hkNd3n:fmCa4\>nHWK?^\hkO1cHNBljljVKa2\FfmJ\XOHMOeeNY9"
746.     A$ = A$ + "Yg75KF`m=OjiiS:cOnc_kcM`NoRYdS5_bAfJGG5R5i`LFe;FgGU;SUM#TZmV"
747.     A$ = A$ + "Y#2f_DZ[?`HecUHU7S5Gl4?IgH1^gA^4;jUf^FgC]_RMoC:Y:7c0in33KK3["
748.     A$ = A$ + "H6^:fmMQVM]YEA_?NHif_nDMWk#4;<anfC4An:k0Vo1fio3RcOd]=SkUW[e7"
749.     A$ = A$ + "YH_\NLY>>0G5nFVceHACT_bPHPJQNI;[O5cXn0kkKVJOR92P[_]oX?<mnnNi"
750.     A$ = A$ + "3Oem>SkIhUmgh#PlEf3LObM_UEC_^XOg;7Ok\VJ?R9RDMMJPnoJfiS_ZIl>0"
751.     A$ = A$ + "cQgcAK#n:k2^_9nNEIEKPiaYimaQW:g7CEo0GgC\INg3YN=PFZNZJT_bfPjT"
752.     A$ = A$ + "KL^mTdge>n_EM]AmHZ#mQWo6o31hjO?KM=9eCQH1V;]Vgg0_W\Bmn6FeGE2["
753.     A$ = A$ + "mZf0FkOH>S`HLRalbgL]6FkX`maagG#YFKd?#o1NGLY<FPoKQhO^]6#K;FeG"
754.     A$ = A$ + "m9GlYYggH=`mgA>;bQ3imiaOFh\Y[ggg4Z9U[Jf1NlD5;`HZ`o]:mag2`cJH"
755.     A$ = A$ + "AO5kn5[cMoXCFU33_2bWANm=?onjLbmnHEcE?fk1`mYajj4O[nhmLmZ?kfZn"
756.     A$ = A$ + "WYim^KFC0o4nc4oIcnjcCD7;#oGcHaQfij[jgAo?R38NPh2R?8>eKL#aRQ3i"
757.     A$ = A$ + "[l;hN^Hn<`gfJ]kZ^V1d_JRjWg3okPiV2oIXJSa3doQnAdOfln83:>XHAk#n"
758.     A$ = A$ + "Zl3\W^PWU3[KN0FS4hK:3om:UeRPE0^WjH1R3ea4lgcCkm>F1i[42QG#n:Q#"
759.     A$ = A$ + "h5\V_:7f_Y52AL0ccWUlE\k?42QM1c7XlE2Q`;8OU#8l2bG942_PlE2Q`;8O"
760.     A$ = A$ + "U#8l2bG942_PlE2Q`;8OU#8l2bG942_PlE]WcMh]Da;m<CcI?dV[hd7LJ>e1"
761.     A$ = A$ + "fDW_oCohElRkOJNQYfH5?gnf8mOoVViJO]Sm_=;ch^W1bngo#RlE:g`4Xn_d"
762.     A$ = A$ + "eoihnDi[BO^Qf[Q3DO9kOkF2i[T_:Bi6H?Z7kQNd_>8chNVTRcbEfG3VQa<W"
763.     A$ = A$ + "l>Gn8^hLRFnZdWKl67OkEi7d_>LLOX77K#\0k9fSKO8fWVan6?k[U1QlES0S"
764.     A$ = A$ + "I^1V7Nh[:ecX9L6<4BOEeIdX1^^H1>kHT_BnZnbHVK\S=^bZcGPRLoD?TS[Z"
765.     A$ = A$ + "1Ee\\_f81Z_2Q_b3kGVbG=2<Vi6[Ji;YjLKZ8?c1RT_2hQiO96\QEoPSMO7>"
766.     A$ = A$ + "[N`ic3k[U1QlES01Xf2ci#amN2SX[ZVRlI\3#o6lEOikO<nG;30i[hTOPcIL"
767.     A$ = A$ + "Lf>AoJaImK3R_jJ5hIQLPlENX_Cn:>i7hLbd3i7F[OKHjGm`h4\Fo:lENhiY"
768.     A$ = A$ + "]T_b3cgGXb?`I0\7V_P#aUNQMV4OeagmSF=fEfG_N:O4__FT?JmiW`JW?>od"
769.     A$ = A$ + "gHodkCBAnA]_b3_oh#a^gbZCR_JS[MiESaRme[Wb7aj^5mIFomoLec>YYlE^"
770.     A$ = A$ + "iI23#M56o=N7Qd_FB4E[AZ4h[VolWOEO[e[m25GnDkJ\kc^bIV`5S9MHM8bG"
771.     A$ = A$ + "=CFk:NPa>71[g5?TS4:Flm_PTh[`cfPnF[o\=Q2<Nb#T;F]6i=`ecLQlES6O"
772.     A$ = A$ + "aE?fHWS\W]^6G<6l#1f;MBQ_2?g9Zol`L7742#O6j_l`g7VlES>H=O>>i8hi"
773.     A$ = A$ + "F`LHE:[Y1<GYY`GMQS]mZj_BYOMLk_FfB^o\J]]WJO5>cYIg_<<D=^X0LO]B"
774.     A$ = A$ + "jM4V2O5jCalGiUlXaQ7JY;J\k_`LGQn<[_fJnj[OLCj[`N]2knVQVa<GYnkN"
775.     A$ = A$ + "VneQCj_JS_Z8nf<3DoU76?:nn#]X_bC?CH8bGdL^7>Fd2WN^f[NfC3LmjQl_"
776.     A$ = A$ + "Jo^eo>VJSo#nZhU_Xe:Dhh3OemFEkiQgeUEj;Q_2cS:m[U1PlEf8O1eHUbk8"
777.     A$ = A$ + "<DmIm[^[N=RXg=Hkjgl`HlU_JlIe?dh_>\`j5bjceIX9d[MDlWGmceD:mUQh"
778.     A$ = A$ + "I[aleSn<\G\anjI#8Oeh36KD8Zgl`kB>h4QaFQW[ajc3SUjo`i>7jcl#nWlE"
779.     A$ = A$ + "f9_YXN6V6<^[=ke_bUfeEQi\ZDj33ajHXfckUme8i[23H_=NLcK`L^GD[3[V"
780.     A$ = A$ + "4XaEQeW3m[57dWE3fCBAO7NF#?<oYFfGMmGNgdkOBIn3F[kNH>?S5h\=k=oN"
781.     A$ = A$ + "?a0WG;loOmjG_NnZ`JGXh>Kd2dH[l`j45d6g13OUg6SE8bO:^ee#?Pj6L_N<"
782.     A$ = A$ + "WPH?\JY;NQE_;2lM?Qoj?hEfCgJ\JG5nWg3eKF<O[^?d3^Ni[\Gn3XDVoUi2"
783.     A$ = A$ + "\^dAo0FgoH>Y`h>aHX`o;foMZ?G?;Re_N4ceP_b;gSd3nZZm013dGUbL8?lN"
784.     A$ = A$ + "JB9H?Q1c5<lChoe3ccB<YJ>>3X_b3c11^7U7lEUhH\#>Da]gS;6N2X[b;k7g"
785.     A$ = A$ + "SRg#nZ1C8>cRaj?]XnnW5]S0hZZGK]hI\m`l?8OU]cWfnSn`l_>4VS3]ce7\"
786.     A$ = A$ + "aFiYma8i[R81JljN9GBT#2hc2jUmKWAaI`dGi^_]R0UCETWmcRiV0j[beg;8"
787.     A$ = A$ + "KOE9?6[Bj\cA<02X[b;WSLhI<T_:n\[=]ZPTKE]g?HP[71GN\elP19O2O[Ve"
788.     A$ = A$ + "cc^7nfU6EOQlES01jnQJN\4QL\E0_\^6U_bOiH_mc_CGlmB8R3EkCZ1dGiU_"
789.     A$ = A$ + "o6PGmENdI5RcW`JdjKX<Io?aj2F>dUNQMFiZl`jI_6i[B<1:G3hQgm\`^i?N"
790.     A$ = A$ + "JNf1`]jIOUGjWSEn6N^0g]f>4V8oYNN[`kKf;[AVaaEH1OU77SEXN?QeDTkK"
791.     A$ = A$ + ":5:Ho#;dn:?m^KT_R3HOK:T>;fG?R4#0cG`m<mdj3]6i[bSl??\^I4f9OYnM"
792.     A$ = A$ + "2j]eNL>h[L[c:TS_jK1kK`d_V41WKMQY2N^RgVg:#8l4FaGiEWebFbm7dl#_"
793.     A$ = A$ + "\6J4]P0VOPcV`jaFiYmh`#i8T_bFiS;IA;ToeS8H\l78\g?kC^hCgmK_QmeF"
794.     A$ = A$ + "K#n:3AP7[o[LT]boJBH^lRjW34S]b3W[P=An:k#ec`5hlbZil`0GKRASZgOB"
795.     A$ = A$ + "Pc9^jIWdU_C##>j[l\cZR0WONg?jTl_V4]VP_FGVgg]F[`c1j]e[G8m3FcGi"
796.     A$ = A$ + "]g?k<82SoGO_>nRZWU?B?780O?8NjkQ0oVcIOU6SembKmLkPoeUHP4Se]#]["
797.     A$ = A$ + "Znl^VmeHK9d^1i[2;E_Si8TcnNWN2jGKRn3N_Ma8^GOfGkY_YiVD2n:_k\Fd"
798.     A$ = A$ + "27oco[ISCO`=CoJCL_LaClTA9NOUc<AgaFi]i\243_PlEAR8To2#o=m[=AG>"
799.     A$ = A$ + "e1fDDRckN;[^kLFiag78XTlEbIeONXU^8nGKR>[HI;>JahJG5f_Ql`IOJ_4;"
800.     A$ = A$ + "WPlEAV8U?G1k[]BV85C?gQgBgW1dck=JUX_b;kOnc5kI[[A>[<RZeKC4SWeS"
801.     A$ = A$ + "[2k_aOikkclo?kM?BAj[0NLN6WERH>Nelkcnj[00O[aY`EQi[bCO;c=i>G>N"
802.     A$ = A$ + "^:?h[0\S11QH>6;=>;g73?iNO\^?7XW>k8jUHk2T_:M\nE^Di]l8A>V]ZU_T"
803.     A$ = A$ + "^S]jgmClejG_GT_:OlEY8gO][#WMdQT7IE;;ja\Lhi0[AnZlcI5bcLPnAekJ"
804.     A$ = A$ + "g0G[NUEnPaK]:D3b3ZMEH>ZmnNeH:l0bGAR8G;d5fGWNT45KZMEhK]aKkWEm"
805.     A$ = A$ + "B:L0NbGUS>[D<>;i]6>^aifCbR5=7G5VOmLh\6AnZk5LO8faUPCZlEO;NlkU"
806.     A$ = A$ + "=gR1=7GEmJ2UneoHb=?onT_Z#6S58VOG7mknkNoi?6G`NQHB7Okg2f;gKn<P"
807.     A$ = A$ + "JLEbGiFBlmh1NmkXMLYJm=AXo^Y[bek;U=#nZ1C^nL=_kgoYXD71fhJG>m[o"
808.     A$ = A$ + "HbVFgbYegRmLdLJ^e[1kOPbGEfScZjl_TDME=EOg96X_HL0c;DeIS6inbjcO"
809.     A$ = A$ + ";<GEhn\idNb?SjNi[\7YNn\j7EW5\6XoX=Pki7jc`fAUVc[>nMUKk5obGe>b"
810.     A$ = A$ + "nm8H3Dce;GoUg=onUoO`HE>fTKPNOB_P_aPLKNeK2[jM_k[bmaIQiiHQ;8>k"
811.     A$ = A$ + "]bQPZi4R#obVGo3AoJ_OPm\jVOO=Ho:PMNDXAnZAW[mBCB?n5K`gYaFFo:XG"
812.     A$ = A$ + ";fF`cU][=]Z>_c;nDMnI_inkkLgPonhoOl?g4KNeViiiJ[k^geEUWo^U]X[:"
813.     A$ = A$ + "7lEinH\Z9FWk>R`#CG5F_4NL?<fj^ZLaGE:>;P5NoQRIgCQiD_:nHPl4i[VI"
814.     A$ = A$ + "cJnZLjm4?8`nT[UW3WB0\NeJjZ`jod[kOaNaEUCnZJH7GC]gRMMKYa;^o7_X"
815.     A$ = A$ + "lDFbE9OU_1cYeDKO]d[Q;9JjZ`JE0W9:NO?fCn:i\B9HM8RJX5LOYmkg]D0m"
816.     A$ = A$ + "[Ol[]g^N:\>5`iPB^]n?]^[:GmEUXcZ6\oOOYGHWd[ac1nQWl9_WgkG^l]oi"
817.     A$ = A$ + "AGE>k[:emN00NGj<ofYc1N[WK7cH=ZW[[AQn1F?L\[Q;9O5PM<W=hiE`j[6O"
818.     A$ = A$ + "c]\[om0enYV[?1doE2?gGCHGgFZn:i\VfIQ_O=<n0;o]m`T;OZM=3GEmhY#o"
819.     A$ = A$ + "FYiZT_R?\SoF1lN\`l4SJaZ_EL3h:\PSZnMmQaBmiGiXdSC<QM]ZlEIdIJOP"
820.     A$ = A$ + "0c33VGN<7OWm#KV^k8UdlkA^iJXbkWCYQ0hZIG[:Oeg1kl1;2ZAAN:>ok`H<"
821.     A$ = A$ + ">oAg6MWB81G?mjW`e9^NaeMYkXZQM]YlEbGe6`c:RjG<F3D?kmeQj]^`DcZW"
822.     A$ = A$ + "2GOhj<gGSW]5feVbG9_eh0FWAH]KSm55lNb#m>ZkCaicn`2No1`[fd;ed=QO"
823.     A$ = A$ + "gH?86G7UhlV?<`^FDn:i[29hk87_W<<Gd`MQil2^0h4`i>G:o^[ai_5n_G_S"
824.     A$ = A$ + "MZike3>:lk4SQ:gfG?S1\[5U_Jh`Bk[_N4ha`lf3_`\ibZ7?F8Xn??lWMCWD"
825.     A$ = A$ + "mkc3o>`NJ8kn4?1kj?i[J?XFPMNC^2Nn;h#`cERg?;f33PK1PWA[6hLJnGGo"
826.     A$ = A$ + "?3nW7okQomQKD??Gh0S?UM]WlES6Ulg]SXl0gSVM=WlEbI9432_kZT_jkPM^"
827.     A$ = A$ + "T#4C^m[kgW1DnZIW[Nflo\fADN`^^BnZh1kL;Q8d`^VBn:i]4R11kJ8i[T_B"
828.     A$ = A$ + "86FHG39OUlF2aPPM=SlEbG9433HoVPM=SlElQMNX#<8HGS8OU]PMnX#d?HGK"
829.     A$ = A$ + "8OU=YT>SD4f7\7D`^V#n:k3klDQPM=PlEn2fi[Rb5finbGiGHWk::7HW[c6i"
830.     A$ = A$ + "[6OdN5W85Pm2<fij\AnZ`1klIAn2kLK[PlEQ7fifRl1fibF3i[R7\ce5n5fi"
831.     A$ = A$ + "^F5i[R;\ck5n3fi\F6i[B3\[14f7fiXN0i[B3Gi<C#_N#HGHWOj5T_:m`^f#"
832.     A$ = A$ + "H7HW;j=T_R7JoR_<1SeVM^WGAn:^`^fATNHWciIT_b6PcfHfeARh1R_\cab1"
833.     A$ = A$ + "T_bF`^^B4NHWCUC8OU=iFGH:jeIRA74oHW3US8OU]QMMWXMTkkOj\An:o0kJ"
834.     A$ = A$ + "AAoQM^AYPlEn3feV2iYHQlEn6fe[U6OnE>:mHN9SlEi1\[S;1H7S5bGU[`^f"
835.     A$ = A$ + ">7PM<DL_8OEN3kJN?2kHVXo8OEIa=?onXk3\4XoPM<A<l8OUXDf[KdgI\oAn"
836.     A$ = A$ + ":A_`f[4BHgG:2;bG9J3ghLkYj<#W]72l;Ok3B_o#TFT_B4:nR[N\XhU^m[[_"
837.     A$ = A$ + "5?ad8OU#8l2bG942_PlE2Q`;8OU#8l2bG942_PlE2Q`;8OU#8l2bG942_PlE"
838.     A$ = A$ + "2Q`;8OU#8l2Q`G942AZAn:Q#h5T_B84N1eDC=eDC=eDC=eDC=eDC=eDC=eDC"
839.     A$ = A$ + "=eDC=eDC]b]momjB%%h1"
840.     btemp$ = ""
841.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
842.         IF INSTR(1, B$, "%") THEN
843.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
844.                 IF F$ <> "%" THEN C$ = C$ + F$
845.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
846.             IF MID$(B$, j, 1) = "#" THEN
847.         MID$(B$, j) = "@": END IF: NEXT
848.         FOR t% = LEN(B$) TO 1 STEP -1
849.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
850.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
851.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
852.     NEXT: btemp$ = btemp$ + X$: NEXT
853.     btemp$ = _INFLATE$(btemp$)
854.     _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
855.     BASIMAGE6& = _COPYIMAGE(v&): _FREEIMAGE v&
856. END FUNCTION
857.  

 

[bplus]

Hey nice variation!

[FellippeHeitor]

Interesting twist!