Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - Dav

Pages: [1] 2 3 ... 6
1
Programs / New 10x10 puzzle version
« on: February 11, 2022, 09:10:27 pm »
Hello everyone!  I'm saying this late, but Happy New Year!

Today I started working on the 10x10 puzzle first posted last year.  It's a Woody clone, if you know that iOS game.  I upgraded the graphics to prettier wood grain, and added some sound effects.  The needed PNG and WAV files are created on the programs first run in the current directory.

All you need is the 10x10.bas code.  It's attached and in a code window (if it fits...).  The game is still not finished - but I wanted to start programming something again and picked this game to work on.

- Dav   

Code: QB64: [Select]
  1. '=========
  2. '10x10.bas - v1.6
  3. '=========
  4. 'A 10x10 lines puzzle (Woody clone)
  5. 'Coded by Dav, FEB/2022
  6.  
  7. 'v1.6 changes:
  8. '              Added wood grain PNG images for better look.
  9. '              Added WAV sound effects for piece moving & clearing.
  10. '              Removed updating the _TITLE with score - not needed.
  11. '
  12. '              NOTE:
  13. '                    This BAS code makes/saves all needed media
  14. '                    PNG & WAV files in the current directory.
  15. '                    They will be created on first run.
  16.  
  17. '=====
  18. 'ABOUT:
  19. '=====
  20.  
  21. 'Clone of the Woody puzzle.  Drag pices onto the board
  22. 'to make completed rows or columns.  Completed lines erase.
  23. 'Bonus points are given for clearing more than one line at
  24. 'the same time. See how high a score you can get until you
  25. 'run out of space to make a move.
  26. '
  27. 'Hitting SPACE will quit and restart current game.
  28.  
  29.  
  30. CALL CheckForAssets
  31.  
  32.  
  33. SCREEN _NEWIMAGE(800, 650, 32)
  34.  
  35.  
  36. CLS , _RGB(193, 94, 47)
  37. ShowScore
  38.  
  39. _TITLE "10x10"
  40.  
  41. DIM SHARED rows, cols, size, piece1, piece2, piece3, score, hiscore
  42.  
  43. rows = 10: cols = 10: size = 60
  44.  
  45. DIM SHARED box(rows * cols)
  46. DIM SHARED box.x1(rows * cols), box.x2(rows * cols)
  47. DIM SHARED box.y1(rows * cols), box.y2(rows * cols)
  48. DIM SHARED litesquare&, backboard&, pieceup&, piecedown&
  49.  
  50.  
  51. litesquare& = _LOADIMAGE("10x10-piece.png", 32)
  52. backboard& = _LOADIMAGE("10x10-board.png", 32)
  53. pieceup& = _SNDOPEN("10x10-pieceup.wav")
  54. piecedown& = _SNDOPEN("10x10-piecedown.wav")
  55.  
  56. '============
  57. Restart:
  58. '============
  59.  
  60. score = 0
  61.  
  62. 'Init the box values
  63. bc = 1 'counter
  64. FOR c = 1 TO cols
  65.     FOR r = 1 TO rows
  66.         x = (r * size): y = 50 + (c * size)
  67.         box.x1(bc) = x - size: box.x2(bc) = x
  68.         box.y1(bc) = y - size: box.y2(bc) = y
  69.         box(bc) = 0 'set value to 0...means empty box
  70.         bc = bc + 1
  71.     NEXT
  72.  
  73. DrawHoldingPens
  74. UpdateBoard
  75.  
  76.     t = _MOUSEINPUT
  77.  
  78.         mx = _MOUSEX: my = _MOUSEY
  79.  
  80.         'if clicked holding pen 1
  81.         IF mx >= 610 AND mx <= 790 AND my >= 60 AND my <= 240 THEN
  82.             IF piece1 <> 0 THEN
  83.  
  84.                 'grab background in case restore needed
  85.                 undo& = _COPYIMAGE(_DISPLAY)
  86.  
  87.                 'clear holding pen 1
  88.                 LINE (610, 60)-(790, 240), _RGB(105, 14, 0), BF: _DISPLAY
  89.  
  90.                 back& = _COPYIMAGE(_DISPLAY)
  91.  
  92.                 'pickup piece, drag it around until mouse up
  93.  
  94.                 _SNDPLAY pieceup&
  95.  
  96.                 DO
  97.                     'show piece in hand, over backgraound
  98.                     IF INT(RND * 3) = 0 THEN
  99.                         _PUTIMAGE (0, 0), back&
  100.                         '_PUTIMAGE (_MOUSEX, _MOUSEY), litesquare&: _DISPLAY
  101.                         DrawPiece piece1, _MOUSEX, _MOUSEY
  102.                     END IF
  103.  
  104.                     'If user unclicked the button (let go)
  105.                     t2 = _MOUSEINPUT
  106.                     IF _MOUSEBUTTON(1) = 0 THEN
  107.                         mx2 = _MOUSEX: my2 = _MOUSEY
  108.  
  109.                         'see if unclicked over an empty box
  110.                         FOR r = 1 TO rows * cols
  111.                             IF mx2 >= box.x1(r) AND mx2 <= box.x2(r) AND my2 >= box.y1(r) AND my2 <= box.y2(r) THEN
  112.  
  113.                                 'If the piece fits...
  114.                                 IF Validate(piece1, r, 0) = 1 THEN
  115.  
  116.                                     _SNDPLAY piecedown&
  117.  
  118.                                     _PUTIMAGE (0, 0), back&: _DISPLAY
  119.                                     AddToScore piece1
  120.                                     piece1 = 0 'remove piece from pen
  121.                                 ELSE
  122.                                     curpiece = piece1
  123.                                     GOSUB PieceReturn
  124.                                     _PUTIMAGE (0, 0), undo&: _DISPLAY
  125.                                 END IF
  126.  
  127.                                 GOTO doneamove
  128.  
  129.                             END IF
  130.                         NEXT
  131.                         curpiece = piece1
  132.                         GOSUB PieceReturn
  133.  
  134.                         _PUTIMAGE (0, 0), undo&: _DISPLAY
  135.  
  136.                         GOTO doneamove
  137.  
  138.                     END IF
  139.  
  140.                 LOOP
  141.                 'please release me, let me go....
  142.                 _FREEIMAGE undo&
  143.                 _FREEIMAGE back&
  144.             END IF
  145.         END IF
  146.  
  147.         'if clicked holding pen 2
  148.         IF mx >= 610 AND mx <= 790 AND my >= 260 AND my <= 440 THEN
  149.             IF piece2 <> 0 THEN
  150.  
  151.                 'grab background in case restore needed
  152.                 undo& = _COPYIMAGE(_DISPLAY)
  153.  
  154.                 'clear holding pen 2
  155.                 LINE (610, 260)-(790, 440), _RGB(105, 14, 0), BF: _DISPLAY
  156.  
  157.                 back& = _COPYIMAGE(_DISPLAY)
  158.  
  159.                 _SNDPLAY pieceup&
  160.  
  161.                 'pickup piece, drag it around until mouse up
  162.                 DO
  163.                     'show piece in hand, over backgraound
  164.                     IF INT(RND * 3) = 0 THEN
  165.                         _PUTIMAGE (0, 0), back&
  166.                         '_PUTIMAGE (_MOUSEX, _MOUSEY), litesquare&: _DISPLAY
  167.                         DrawPiece piece2, _MOUSEX, _MOUSEY
  168.                     END IF
  169.  
  170.                     'If user unclicked the button (let go)
  171.                     t2 = _MOUSEINPUT
  172.                     IF _MOUSEBUTTON(1) = 0 THEN
  173.                         mx2 = _MOUSEX: my2 = _MOUSEY
  174.  
  175.                         'see if unclicked over an empty box
  176.                         FOR r = 1 TO rows * cols
  177.                             IF mx2 >= box.x1(r) AND mx2 <= box.x2(r) AND my2 >= box.y1(r) AND my2 <= box.y2(r) THEN
  178.  
  179.                                 'If the piece fits...
  180.                                 IF Validate(piece2, r, 0) = 1 THEN
  181.  
  182.                                     _SNDPLAY piecedown&
  183.  
  184.                                     _PUTIMAGE (0, 0), back&: _DISPLAY
  185.                                     AddToScore piece2
  186.                                     piece2 = 0 'remove piece from pen
  187.                                 ELSE
  188.                                     curpiece = piece2
  189.                                     GOSUB PieceReturn
  190.                                     _PUTIMAGE (0, 0), undo&: _DISPLAY
  191.                                 END IF
  192.  
  193.                                 GOTO doneamove
  194.  
  195.                             END IF
  196.                         NEXT
  197.                         curpiece = piece2
  198.                         GOSUB PieceReturn
  199.  
  200.                         _PUTIMAGE (0, 0), undo&: _DISPLAY
  201.  
  202.                         GOTO doneamove
  203.  
  204.                     END IF
  205.  
  206.                 LOOP
  207.                 'please release me, let me go....
  208.                 _FREEIMAGE undo&
  209.                 _FREEIMAGE back&
  210.             END IF
  211.  
  212.         END IF
  213.  
  214.         'if clicked holding pen 3
  215.         IF mx >= 610 AND mx <= 790 AND my >= 460 AND my <= 640 THEN
  216.             IF piece3 <> 0 THEN
  217.  
  218.                 'grab background in case restore needed
  219.                 undo& = _COPYIMAGE(_DISPLAY)
  220.  
  221.                 'clear holding pen 3
  222.                 LINE (610, 460)-(790, 640), _RGB(105, 14, 0), BF: _DISPLAY
  223.  
  224.                 back& = _COPYIMAGE(_DISPLAY)
  225.                 _SNDPLAY pieceup&
  226.  
  227.                 'pickup piece, drag it around until mouse up
  228.                 DO
  229.                     'show piece in hand, over backgraound
  230.                     IF INT(RND * 3) = 0 THEN
  231.                         _PUTIMAGE (0, 0), back&
  232.                         '_PUTIMAGE (_MOUSEX, _MOUSEY), litesquare&: _DISPLAY
  233.                         DrawPiece piece3, _MOUSEX, _MOUSEY
  234.                     END IF
  235.  
  236.                     'If user unclicked the button (let go)
  237.                     t2 = _MOUSEINPUT
  238.                     IF _MOUSEBUTTON(1) = 0 THEN
  239.                         mx2 = _MOUSEX: my2 = _MOUSEY
  240.  
  241.                         'see if unclicked over an empty box
  242.                         FOR r = 1 TO rows * cols
  243.                             IF mx2 >= box.x1(r) AND mx2 <= box.x2(r) AND my2 >= box.y1(r) AND my2 <= box.y2(r) THEN
  244.  
  245.                                 'If the piece fits...
  246.                                 IF Validate(piece3, r, 0) = 1 THEN
  247.                                     _SNDPLAY piecedown&
  248.                                     _PUTIMAGE (0, 0), back&: _DISPLAY
  249.                                     AddToScore piece3
  250.                                     piece3 = 0 'remove piece from pen
  251.                                 ELSE
  252.                                     curpiece = piece3
  253.                                     GOSUB PieceReturn
  254.                                     _PUTIMAGE (0, 0), undo&: _DISPLAY
  255.                                 END IF
  256.  
  257.                                 GOTO doneamove
  258.  
  259.                             END IF
  260.                         NEXT
  261.                         curpiece = piece3
  262.                         GOSUB PieceReturn
  263.  
  264.                         _PUTIMAGE (0, 0), undo&: _DISPLAY
  265.  
  266.                         GOTO doneamove
  267.  
  268.                     END IF
  269.  
  270.                 LOOP
  271.                 'please release me, let me go....
  272.                 _FREEIMAGE undo&
  273.                 _FREEIMAGE back&
  274.             END IF
  275.  
  276.         END IF
  277.  
  278.         doneamove:
  279.  
  280.         'Get new pieces if all holding pens empty
  281.         IF piece1 = 0 AND piece2 = 0 AND piece3 = 0 THEN DrawHoldingPens
  282.  
  283.         UpdateBoard
  284.  
  285.         IF MovesLeft = 0 THEN
  286.             LINE (200, 175)-(525, 325), _RGBA(0, 0, 0, 150), BF
  287.             LINE (200, 175)-(525, 325), _RGB(255, 255, 255), B
  288.             LINE (199, 174)-(526, 326), _RGB(255, 255, 255), B
  289.             PPRINT 240, 200, 20, _RGB(255, 255, 255), 0, "NO MOVES LEFT!"
  290.             PPRINT 275, 240, 20, _RGB(255, 255, 255), 0, "Score:" + STR$(score)
  291.             IF score = hiscore THEN
  292.                 PPRINT 230, 280, 20, _RGB(255, 255, 0), 0, "NEW HIGH SCORE!"
  293.             END IF
  294.             _AUTODISPLAY
  295.             'wait until mouse click
  296.             DO: k = _MOUSEINPUT
  297.                 IF INKEY$ = CHR$(32) THEN EXIT DO
  298.             LOOP UNTIL _MOUSEBUTTON(1)
  299.             GOTO Restart
  300.         END IF
  301.  
  302.  
  303.     END IF
  304.  
  305.     IF INKEY$ = CHR$(32) THEN GOTO Restart:
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312. '============================
  313. '============
  314. PieceReturn:
  315.  
  316. 'animate sending piece back to original x/y
  317. cx = mx2: cy = my2
  318. xdone = 0: ydone = 0
  319.     IF mx2 > mx THEN
  320.         cx = cx - 12
  321.         IF cx < mx THEN
  322.             cx = mx: xdone = 1
  323.         END IF
  324.     ELSE
  325.         cx = cx + 12
  326.         IF cx > mx THEN
  327.             cx = mx: xdone = 1
  328.         END IF
  329.     END IF
  330.  
  331.     IF my2 > my THEN
  332.         cy = cy - 12
  333.         IF cy < my THEN
  334.             cy = my: ydone = 1
  335.         END IF
  336.     ELSE
  337.         cy = cy + 12
  338.         IF cy > my THEN
  339.             cy = my: ydone = 1
  340.         END IF
  341.  
  342.     END IF
  343.  
  344.     _PUTIMAGE (0, 0), back&
  345.     DrawPiece curpiece, cx - 20, cy - 20
  346.  
  347.     _DISPLAY
  348.  
  349.     _DELAY .0075
  350.  
  351. LOOP UNTIL xdone = 1 AND ydone = 1
  352.  
  353.  
  354. FUNCTION MovesLeft ()
  355.  
  356.     'Checks if moves are left
  357.  
  358.     MovesLeft = 0 'default none left until a move found
  359.  
  360.     'if there's a piece in holding pen 1
  361.     IF piece1 <> 0 THEN
  362.  
  363.         'run piece check on all open boxes
  364.         FOR r = 1 TO rows * cols
  365.             'test piece on box if empty
  366.             IF box(r) = 0 THEN
  367.                 IF Validate(piece1, r, 1) = 1 THEN
  368.                     MovesLeft = 1: EXIT FOR
  369.                 END IF
  370.             END IF
  371.         NEXT
  372.     END IF
  373.  
  374.     'if there's a piece in holding pen 2
  375.     IF piece2 <> 0 THEN
  376.         'run piece check on all open boxes
  377.         FOR r = 1 TO rows * cols
  378.             IF box(r) = 0 THEN
  379.                 IF Validate(piece2, r, 1) = 1 THEN
  380.                     MovesLeft = 1: EXIT FOR
  381.                 END IF
  382.             END IF
  383.         NEXT
  384.     END IF
  385.  
  386.     'if there's a piece in holding pen 3
  387.     IF piece3 <> 0 THEN
  388.         'run piece check on all open boxes
  389.         FOR r = 1 TO rows * cols
  390.             IF box(r) = 0 THEN
  391.                 IF Validate(piece3, r, 1) = 1 THEN
  392.                     MovesLeft = 1: EXIT FOR
  393.                 END IF
  394.             END IF
  395.         NEXT
  396.     END IF
  397.  
  398.  
  399.  
  400. SUB UpdateBoard
  401.  
  402.     _PUTIMAGE (box.x1(1) + 1, box.y1(1) - 1), backboard&
  403.  
  404.     bc = 1 'counter
  405.     FOR c = 1 TO cols
  406.         FOR r = 1 TO rows
  407.             IF box(bc) <> 0 THEN
  408.                 _PUTIMAGE (box.x1(bc), box.y1(bc))-(box.x2(bc), box.y2(bc)), litesquare&
  409.             END IF
  410.             bc = bc + 1
  411.         NEXT
  412.     NEXT
  413.  
  414.     _DISPLAY
  415.  
  416.     'Check for completed lines...add score
  417.     '10 points for clearing 1 row or col,
  418.     'bonus points for doing several at one time
  419.     tallyup = 0: bonus = 0
  420.     'scan for completed rows...
  421.     REDIM rowdo(10) AS INTEGER: rc = 1: rowhere = 0
  422.     FOR rw = 1 TO 100 STEP 10
  423.         IF RowDone(rw) THEN
  424.             'RowClear rw
  425.             rowdo(rc) = rw: rc = rc + 1: rowhere = 1
  426.             tallyup = tallyup + 10
  427.             bonus = bonus + 1
  428.         END IF
  429.     NEXT
  430.     'scan for completed columns...
  431.     REDIM coldo(10) AS INTEGER: cc = 1: colhere = 0
  432.     FOR c = 1 TO 10
  433.         IF ColDone(c) THEN
  434.             coldo(cc) = c: cc = cc + 1: colhere = 1
  435.             tallyup = tallyup + 10
  436.             bonus = bonus + 1
  437.             'ColClear c
  438.         END IF
  439.     NEXT
  440.     'Now do the erasing...
  441.     IF rowhere = 1 THEN
  442.         FOR e = 1 TO 10
  443.             IF rowdo(e) <> 0 THEN RowClear rowdo(e)
  444.         NEXT
  445.     END IF: ERASE rowdo
  446.     IF colhere = 1 THEN
  447.         FOR e = 1 TO 10
  448.             IF coldo(e) <> 0 THEN ColClear coldo(e)
  449.         NEXT
  450.     END IF: ERASE coldo
  451.  
  452.     score = score + (tallyup * bonus)
  453.  
  454.     IF score > hiscore THEN hiscore = score
  455.  
  456.     ShowScore
  457.  
  458.     _ICON _DISPLAY 'update app icon on taskbar
  459.  
  460.  
  461.  
  462. FUNCTION RowDone (row)
  463.     RowDone = 1
  464.     FOR r = row TO row + 9
  465.         IF box(r) = 0 THEN RowDone = 0
  466.     NEXT
  467.  
  468. SUB RowClear (row)
  469.     FOR r = row TO row + 9
  470.         LINE (box.x1(r), box.y1(r))-(box.x2(r), box.y2(r)), _RGB(255, 255, 255), BF
  471.         _DISPLAY: _DELAY .02
  472.         box(r) = 0
  473.  
  474.         IF INT(RND * 2) = 1 THEN _SNDPLAY pieceup& ELSE _SNDPLAY piecedown&
  475.  
  476.         _PUTIMAGE (box.x1(1) + 1, box.y1(1) - 1), backboard&
  477.         bc = 1 'counter
  478.         FOR c = 1 TO cols
  479.             FOR r2 = 1 TO rows
  480.                 IF box(bc) <> 0 THEN
  481.                     _PUTIMAGE (box.x1(bc), box.y1(bc))-(box.x2(bc), box.y2(bc)), litesquare&
  482.                 END IF
  483.                 bc = bc + 1
  484.             NEXT
  485.         NEXT
  486.  
  487.     NEXT
  488.  
  489. FUNCTION ColDone (col)
  490.     ColDone = 1
  491.     FOR c = col TO (rows * cols) STEP 10
  492.         IF box(c) = 0 THEN ColDone = 0
  493.     NEXT
  494.  
  495. SUB ColClear (col)
  496.     FOR r = col TO (rows * cols) STEP 10
  497.         LINE (box.x1(r), box.y1(r))-(box.x2(r), box.y2(r)), _RGB(255, 255, 255), BF
  498.         _DISPLAY: _DELAY .02
  499.         box(r) = 0
  500.  
  501.         IF INT(RND * 2) = 1 THEN _SNDPLAY pieceup& ELSE _SNDPLAY piecedown&
  502.  
  503.         _PUTIMAGE (box.x1(1) + 1, box.y1(1) - 1), backboard&
  504.         bc = 1 'counter
  505.         FOR c = 1 TO cols
  506.             FOR r2 = 1 TO rows
  507.                 IF box(bc) <> 0 THEN
  508.                     _PUTIMAGE (box.x1(bc), box.y1(bc))-(box.x2(bc), box.y2(bc)), litesquare&
  509.                 END IF
  510.                 bc = bc + 1
  511.             NEXT
  512.         NEXT
  513.  
  514.     NEXT
  515.  
  516. FUNCTION Validate (piece, num, checkonly)
  517.  
  518.     'This function validates if pieces fit
  519.     'if checkonly flag is on, then it just checks to see
  520.     'if checkonly flag = 0 then it checks and marks box() filled
  521.  
  522.     Validate = 0 'default not validated
  523.  
  524.     'one dot piece
  525.     IF piece = 1 THEN
  526.         IF box(num) = 0 THEN
  527.             IF checkonly = 0 THEN
  528.                 box(num) = 1
  529.             END IF
  530.             Validate = 1
  531.         END IF
  532.     END IF
  533.  
  534.     '2 dot horizonal
  535.     IF piece = 2 THEN
  536.         'don't validate if on the last box on right side
  537.         SELECT CASE num
  538.             CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
  539.         END SELECT
  540.         'validate if this box and next box over is free
  541.         IF box(num) = 0 AND box(num + 1) = 0 THEN
  542.             IF checkonly = 0 THEN
  543.                 box(num) = 1: box(num + 1) = 1
  544.             END IF
  545.             Validate = 1
  546.         END IF
  547.     END IF
  548.  
  549.     '2 dot vertical
  550.     IF piece = 3 THEN
  551.         'don't validate if on bottom row
  552.         SELECT CASE num
  553.             CASE 91 TO 100: Validate = 0: EXIT FUNCTION
  554.         END SELECT
  555.         'validate if this box and box below is free
  556.         IF box(num) = 0 AND box(num + 10) = 0 THEN
  557.             IF checkonly = 0 THEN
  558.                 box(num) = 1: box(num + 10) = 1
  559.             END IF
  560.             Validate = 1
  561.         END IF
  562.     END IF
  563.  
  564.     IF piece = 4 THEN '3 dots left/up
  565.         'dont validate if on top row
  566.         SELECT CASE num
  567.             CASE 1 TO 10: Validate = 0: EXIT FUNCTION
  568.         END SELECT
  569.         IF box(num) = 0 AND box(num + 1) = 0 AND box(num - 9) = 0 THEN
  570.             IF checkonly = 0 THEN
  571.                 box(num) = 1: box(num + 1) = 1: box(num - 9) = 1
  572.             END IF
  573.             Validate = 1
  574.         END IF
  575.     END IF
  576.  
  577.     IF piece = 5 THEN '3 dots right/up
  578.         'don't validate bottom row
  579.         SELECT CASE num
  580.             CASE 91 TO 100: Validate = 0: EXIT FUNCTION
  581.         END SELECT
  582.         'don't validate if on the last box on right side
  583.         SELECT CASE num
  584.             CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
  585.         END SELECT
  586.         IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 11) = 0 THEN
  587.             IF checkonly = 0 THEN
  588.                 box(num) = 1: box(num + 10) = 1: box(num + 11) = 1
  589.             END IF
  590.             Validate = 1
  591.         END IF
  592.     END IF
  593.  
  594.     IF piece = 6 THEN
  595.         'don't validate bottom row
  596.         SELECT CASE num
  597.             CASE 91 TO 100: Validate = 0: EXIT FUNCTION
  598.         END SELECT
  599.         'don't validate if on the last box on right side
  600.         SELECT CASE num
  601.             CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
  602.         END SELECT
  603.         IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 11) = 0 THEN
  604.             IF checkonly = 0 THEN
  605.                 box(num) = 1: box(num + 1) = 1: box(num + 11) = 1
  606.             END IF
  607.             Validate = 1
  608.         END IF
  609.     END IF
  610.  
  611.     IF piece = 7 THEN
  612.         'don't validate bottom row
  613.         SELECT CASE num
  614.             CASE 91 TO 100: Validate = 0: EXIT FUNCTION
  615.         END SELECT
  616.         'don't validate if on the last box on right side
  617.         SELECT CASE num
  618.             CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
  619.         END SELECT
  620.         IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 10) = 0 THEN
  621.             IF checkonly = 0 THEN
  622.                 box(num) = 1: box(num + 1) = 1: box(num + 10) = 1
  623.             END IF
  624.             Validate = 1
  625.         END IF
  626.     END IF
  627.  
  628.     IF piece = 8 THEN '3 dots horz
  629.         'don't validate if on the last 2 columns on right side
  630.         SELECT CASE num
  631.             CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
  632.             CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
  633.         END SELECT
  634.         IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 THEN
  635.             IF checkonly = 0 THEN
  636.                 box(num) = 1: box(num + 1) = 1: box(num + 2) = 1
  637.             END IF
  638.             Validate = 1
  639.         END IF
  640.     END IF
  641.  
  642.     IF piece = 9 THEN '3 dots vert
  643.         'don't validate bottom 2 row
  644.         SELECT CASE num
  645.             CASE 81 TO 90: Validate = 0: EXIT FUNCTION
  646.             CASE 91 TO 100: Validate = 0: EXIT FUNCTION
  647.         END SELECT
  648.         IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 THEN
  649.             IF checkonly = 0 THEN
  650.                 box(num) = 1: box(num + 10) = 1: box(num + 20) = 1
  651.             END IF
  652.             Validate = 1
  653.         END IF
  654.     END IF
  655.  
  656.     IF piece = 10 THEN '4 dots block
  657.         'don't validate bottom row
  658.         SELECT CASE num
  659.             CASE 91 TO 100: Validate = 0: EXIT FUNCTION
  660.         END SELECT
  661.         'don't validate if on the last box on right side
  662.         SELECT CASE num
  663.             CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
  664.         END SELECT
  665.         IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 10) = 0 AND box(num + 11) = 0 THEN
  666.             IF checkonly = 0 THEN
  667.                 box(num) = 1: box(num + 1) = 1: box(num + 10) = 1: box(num + 11) = 1
  668.             END IF
  669.             Validate = 1
  670.         END IF
  671.     END IF
  672.  
  673.     IF piece = 11 THEN '4 dots horz
  674.         'don't validate if on the last 3 columns on right side
  675.         SELECT CASE num
  676.             CASE 8, 18, 28, 38, 48, 58, 68, 78, 88, 98: Validate = 0: EXIT FUNCTION
  677.             CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
  678.             CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
  679.         END SELECT
  680.         IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 3) = 0 THEN
  681.             IF checkonly = 0 THEN
  682.                 box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 3) = 1
  683.             END IF
  684.             Validate = 1
  685.         END IF
  686.     END IF
  687.  
  688.     IF piece = 12 THEN '4 dots vert
  689.         'don't validate bottom 3 rows
  690.         SELECT CASE num
  691.             CASE 71 TO 80: Validate = 0: EXIT FUNCTION
  692.             CASE 81 TO 90: Validate = 0: EXIT FUNCTION
  693.             CASE 91 TO 100: Validate = 0: EXIT FUNCTION
  694.         END SELECT
  695.         IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 AND box(num + 30) = 0 THEN
  696.             IF checkonly = 0 THEN
  697.                 box(num) = 1: box(num + 10) = 1: box(num + 20) = 1: box(num + 30) = 1
  698.             END IF
  699.             Validate = 1
  700.         END IF
  701.     END IF
  702.  
  703.     IF piece = 13 THEN '5 dots horz
  704.         'don't validate if on the last 3 columns on right side
  705.         SELECT CASE num
  706.             CASE 7, 17, 27, 37, 47, 57, 67, 77, 87, 97: Validate = 0: EXIT FUNCTION
  707.             CASE 8, 18, 28, 38, 48, 58, 68, 78, 88, 98: Validate = 0: EXIT FUNCTION
  708.             CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
  709.             CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
  710.         END SELECT
  711.         IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 3) = 0 AND box(num + 4) = 0 THEN
  712.             IF checkonly = 0 THEN
  713.                 box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 3) = 1: box(num + 4) = 1
  714.             END IF
  715.             Validate = 1
  716.         END IF
  717.     END IF
  718.  
  719.     IF piece = 14 THEN '5 dots vert
  720.         'don't validate bottom 4 rows
  721.         SELECT CASE num
  722.             CASE 61 TO 70: Validate = 0: EXIT FUNCTION
  723.             CASE 71 TO 80: Validate = 0: EXIT FUNCTION
  724.             CASE 81 TO 90: Validate = 0: EXIT FUNCTION
  725.             CASE 91 TO 100: Validate = 0: EXIT FUNCTION
  726.         END SELECT
  727.         IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 AND box(num + 30) = 0 AND box(num + 40) = 0 THEN
  728.             IF checkonly = 0 THEN
  729.                 box(num) = 1: box(num + 10) = 1: box(num + 20) = 1: box(num + 30) = 1: box(num + 40) = 1
  730.             END IF
  731.             Validate = 1
  732.         END IF
  733.     END IF
  734.  
  735.     IF piece = 15 THEN '5 dots left/up
  736.         'don't validate bottom 2 rows
  737.         SELECT CASE num
  738.             CASE 81 TO 90: Validate = 0: EXIT FUNCTION
  739.             CASE 91 TO 100: Validate = 0: EXIT FUNCTION
  740.         END SELECT
  741.         'don't validate if on the last 2 columns on right side
  742.         SELECT CASE num
  743.             CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
  744.             CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
  745.         END SELECT
  746.         IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 12) = 0 AND box(num + 22) = 0 THEN
  747.             IF checkonly = 0 THEN
  748.                 box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 12) = 1: box(num + 22) = 1
  749.             END IF
  750.             Validate = 1
  751.         END IF
  752.     END IF
  753.  
  754.     IF piece = 16 THEN '5 dots right/up
  755.         'don't validate bottom 2 rows
  756.         SELECT CASE num
  757.             CASE 81 TO 90: Validate = 0: EXIT FUNCTION
  758.             CASE 91 TO 100: Validate = 0: EXIT FUNCTION
  759.         END SELECT
  760.         'don't validate if on the last 2 columns on right side
  761.         SELECT CASE num
  762.             CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
  763.             CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
  764.         END SELECT
  765.         IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 THEN
  766.             IF checkonly = 0 THEN
  767.                 box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 10) = 1: box(num + 20) = 1
  768.             END IF
  769.             Validate = 1
  770.         END IF
  771.     END IF
  772.  
  773.     IF piece = 17 THEN '5 dots right/down
  774.         'don't validate bottom 2 rows
  775.         SELECT CASE num
  776.             CASE 81 TO 90: Validate = 0: EXIT FUNCTION
  777.             CASE 91 TO 100: Validate = 0: EXIT FUNCTION
  778.         END SELECT
  779.         'don't validate if on the last 2 columns on right side
  780.         SELECT CASE num
  781.             CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
  782.             CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
  783.         END SELECT
  784.         IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 AND box(num + 21) = 0 AND box(num + 22) = 0 THEN
  785.             IF checkonly = 0 THEN
  786.                 box(num) = 1: box(num + 10) = 1: box(num + 20) = 1: box(num + 21) = 1: box(num + 22) = 1
  787.             END IF
  788.             Validate = 1
  789.         END IF
  790.     END IF
  791.  
  792.     IF piece = 18 THEN '5 dots left/down
  793.         'don't validate top 2 rows
  794.         SELECT CASE num
  795.             CASE 1 TO 10: Validate = 0: EXIT FUNCTION
  796.             CASE 11 TO 20: Validate = 0: EXIT FUNCTION
  797.         END SELECT
  798.         'don't validate if on the last 2 columns on right side
  799.         SELECT CASE num
  800.             CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
  801.             CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
  802.         END SELECT
  803.         IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num - 8) = 0 AND box(num - 18) = 0 THEN
  804.             IF checkonly = 0 THEN
  805.                 box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num - 8) = 1: box(num - 18) = 1
  806.             END IF
  807.             Validate = 1
  808.         END IF
  809.     END IF
  810.  
  811.     IF piece = 19 THEN '9 dots big block
  812.         'don't validate bottom 2 rows
  813.         SELECT CASE num
  814.             CASE 81 TO 90: Validate = 0: EXIT FUNCTION
  815.             CASE 91 TO 100: Validate = 0: EXIT FUNCTION
  816.         END SELECT
  817.         'don't validate if on the last 2 columns on right side
  818.         SELECT CASE num
  819.             CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
  820.             CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
  821.         END SELECT
  822.         IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 10) = 0 AND box(num + 11) = 0 AND box(num + 12) = 0 AND box(num + 20) = 0 AND box(num + 21) = 0 AND box(num + 22) = 0 THEN
  823.             IF checkonly = 0 THEN
  824.                 box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 10) = 1: box(num + 11) = 1: box(num + 12) = 1: box(num + 20) = 1: box(num + 21) = 1: box(num + 22) = 1
  825.             END IF
  826.             Validate = 1
  827.         END IF
  828.     END IF
  829.  
  830.  
  831. SUB AddToScore (num)
  832.  
  833.     IF num = 1 THEN score = score + 1
  834.     IF num = 2 THEN score = score + 2
  835.     IF num = 3 THEN score = score + 2
  836.     IF num = 4 THEN score = score + 3
  837.     IF num = 5 THEN score = score + 3
  838.     IF num = 6 THEN score = score + 3
  839.     IF num = 7 THEN score = score + 3
  840.     IF num = 8 THEN score = score + 3
  841.     IF num = 9 THEN score = score + 3
  842.     IF num = 10 THEN score = score + 4
  843.     IF num = 11 THEN score = score + 4
  844.     IF num = 12 THEN score = score + 4
  845.     IF num = 13 THEN score = score + 5
  846.     IF num = 14 THEN score = score + 5
  847.     IF num = 15 THEN score = score + 5
  848.     IF num = 16 THEN score = score + 5
  849.     IF num = 17 THEN score = score + 5
  850.     IF num = 18 THEN score = score + 5
  851.     IF num = 19 THEN score = score + 9
  852.  
  853.  
  854. SUB DrawHoldingPens
  855.  
  856.     'Draws 3 holding pens, smaller version of pieces,
  857.     'and assigns random piece to each holding pen...
  858.  
  859.     'holding pen 1
  860.     LINE (610, 60)-(790, 240), _RGB(105, 14, 0), BF
  861.     'holding pen 2
  862.     LINE (610, 260)-(790, 440), _RGB(105, 14, 0), BF
  863.     'holding pen 3
  864.     LINE (610, 460)-(790, 640), _RGB(105, 14, 0), BF
  865.  
  866.     FOR pens = 1 TO 3
  867.  
  868.         'Get a random piece
  869.         'There are 19 total pieces to choose from
  870.         piece = INT(RND * 19) + 1
  871.  
  872.         'y offset vaule for the pens
  873.         IF pens = 1 THEN yo = 50
  874.         IF pens = 2 THEN yo = 250
  875.         IF pens = 3 THEN yo = 450
  876.  
  877.         IF piece = 1 THEN '1 dot
  878.             _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare&
  879.         END IF
  880.         IF piece = 2 THEN '2 dots horizonal
  881.             _PUTIMAGE (670, 85 + yo)-(700, 115 + yo), litesquare& 'mid
  882.             _PUTIMAGE (700, 85 + yo)-(730, 115 + yo), litesquare& 'right
  883.         END IF
  884.         IF piece = 3 THEN '2 dots vertical
  885.             _PUTIMAGE (685, 100 + yo)-(715, 130 + yo), litesquare& 'mid
  886.             _PUTIMAGE (685, 70 + yo)-(715, 100 + yo), litesquare& 'up
  887.         END IF
  888.         IF piece = 4 THEN '3 dots Left/Up
  889.             _PUTIMAGE (700, 100 + yo)-(730, 130 + yo), litesquare& 'mid
  890.             _PUTIMAGE (700, 70 + yo)-(730, 100 + yo), litesquare& 'up
  891.             _PUTIMAGE (670, 100 + yo)-(700, 130 + yo), litesquare& 'left
  892.         END IF
  893.         IF piece = 5 THEN '3 dots right/Up
  894.             _PUTIMAGE (670, 100 + yo)-(700, 130 + yo), litesquare& 'mid
  895.             _PUTIMAGE (670, 70 + yo)-(700, 100 + yo), litesquare& 'up
  896.             _PUTIMAGE (700, 100 + yo)-(730, 130 + yo), litesquare& 'right
  897.         END IF
  898.         IF piece = 6 THEN '3 dots Left/down
  899.             _PUTIMAGE (700, 70 + yo)-(730, 100 + yo), litesquare& 'mid
  900.             _PUTIMAGE (700, 100 + yo)-(730, 130 + yo), litesquare& 'down
  901.             _PUTIMAGE (670, 70 + yo)-(700, 100 + yo), litesquare& 'left
  902.         END IF
  903.         IF piece = 7 THEN '3 dots right/down
  904.             _PUTIMAGE (670, 70 + yo)-(700, 100 + yo), litesquare& 'mid
  905.             _PUTIMAGE (670, 100 + yo)-(700, 130 + yo), litesquare& 'down
  906.             _PUTIMAGE (700, 70 + yo)-(730, 100 + yo), litesquare& 'left
  907.         END IF
  908.         IF piece = 8 THEN '3 dots horizonal
  909.             _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare& 'mid
  910.             _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare& 'right
  911.             _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare& 'left
  912.         END IF
  913.         IF piece = 9 THEN '3 dots vertical
  914.             _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare& 'mid
  915.             _PUTIMAGE (685, 55 + yo)-(715, 85 + yo), litesquare& 'up
  916.             _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare& 'down
  917.         END IF
  918.         IF piece = 10 THEN '4 dots block
  919.             _PUTIMAGE (665, 75 + yo)-(695, 105 + yo), litesquare& 'top left
  920.             _PUTIMAGE (695, 75 + yo)-(725, 105 + yo), litesquare& 'top right
  921.             _PUTIMAGE (665, 105 + yo)-(695, 135 + yo), litesquare& 'bottom left
  922.             _PUTIMAGE (695, 105 + yo)-(725, 135 + yo), litesquare& 'bottom right
  923.         END IF
  924.         IF piece = 11 THEN '4 dots horizonal
  925.             _PUTIMAGE (640, 85 + yo)-(670, 115 + yo), litesquare&
  926.             _PUTIMAGE (670, 85 + yo)-(700, 115 + yo), litesquare&
  927.             _PUTIMAGE (700, 85 + yo)-(730, 115 + yo), litesquare&
  928.             _PUTIMAGE (730, 85 + yo)-(760, 115 + yo), litesquare&
  929.         END IF
  930.         IF piece = 12 THEN '4 dots vertical
  931.             _PUTIMAGE (685, 40 + yo)-(715, 70 + yo), litesquare&
  932.             _PUTIMAGE (685, 70 + yo)-(715, 100 + yo), litesquare&
  933.             _PUTIMAGE (685, 100 + yo)-(715, 130 + yo), litesquare&
  934.             _PUTIMAGE (685, 130 + yo)-(715, 160 + yo), litesquare&
  935.         END IF
  936.         IF piece = 13 THEN '5 dots horizonal
  937.             _PUTIMAGE (625, 85 + yo)-(655, 115 + yo), litesquare&
  938.             _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare&
  939.             _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare&
  940.             _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare&
  941.             _PUTIMAGE (745, 85 + yo)-(775, 115 + yo), litesquare&
  942.         END IF
  943.         IF piece = 14 THEN '5 dots vertical
  944.             _PUTIMAGE (685, 20 + yo)-(715, 50 + yo), litesquare&
  945.             _PUTIMAGE (685, 50 + yo)-(715, 85 + yo), litesquare&
  946.             _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare&
  947.             _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare&
  948.             _PUTIMAGE (685, 145 + yo)-(715, 175 + yo), litesquare&
  949.         END IF
  950.         IF piece = 15 THEN '5 dots left/up
  951.             _PUTIMAGE (655, 55 + yo)-(685, 85 + yo), litesquare&
  952.             _PUTIMAGE (685, 55 + yo)-(715, 85 + yo), litesquare&
  953.             _PUTIMAGE (715, 55 + yo)-(745, 85 + yo), litesquare&
  954.             _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare&
  955.             _PUTIMAGE (715, 115 + yo)-(745, 145 + yo), litesquare&
  956.         END IF
  957.         IF piece = 16 THEN '5 dots right/up
  958.             _PUTIMAGE (655, 55 + yo)-(685, 85 + yo), litesquare&
  959.             _PUTIMAGE (685, 55 + yo)-(715, 85 + yo), litesquare&
  960.             _PUTIMAGE (715, 55 + yo)-(745, 85 + yo), litesquare&
  961.             _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare&
  962.             _PUTIMAGE (655, 115 + yo)-(685, 145 + yo), litesquare&
  963.         END IF
  964.         IF piece = 17 THEN '5 dots right/down
  965.             _PUTIMAGE (655, 55 + yo)-(685, 85 + yo), litesquare&
  966.             _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare&
  967.             _PUTIMAGE (715, 115 + yo)-(745, 145 + yo), litesquare&
  968.             _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare&
  969.             _PUTIMAGE (655, 115 + yo)-(685, 145 + yo), litesquare&
  970.         END IF
  971.         IF piece = 18 THEN '5 dots left/down
  972.             _PUTIMAGE (715, 55 + yo)-(745, 85 + yo), litesquare&
  973.             _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare&
  974.             _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare&
  975.             _PUTIMAGE (715, 115 + yo)-(745, 145 + yo), litesquare&
  976.             _PUTIMAGE (655, 115 + yo)-(685, 145 + yo), litesquare&
  977.         END IF
  978.         IF piece = 19 THEN '9 dots big block
  979.             _PUTIMAGE (655, 55 + yo)-(685, 85 + yo), litesquare&
  980.             _PUTIMAGE (685, 55 + yo)-(715, 85 + yo), litesquare&
  981.             _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare&
  982.             _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare&
  983.             _PUTIMAGE (715, 55 + yo)-(745, 85 + yo), litesquare&
  984.             _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare&
  985.             _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare&
  986.             _PUTIMAGE (715, 115 + yo)-(745, 145 + yo), litesquare&
  987.             _PUTIMAGE (655, 115 + yo)-(685, 145 + yo), litesquare&
  988.         END IF
  989.  
  990.         'Assign the generated pieces values
  991.         IF pens = 1 THEN piece1 = piece
  992.         IF pens = 2 THEN piece2 = piece
  993.         IF pens = 3 THEN piece3 = piece
  994.  
  995.     NEXT
  996.  
  997.     _DISPLAY
  998.  
  999.  
  1000.  
  1001. SUB DrawPiece (piece, x, y)
  1002.  
  1003.     x = x - 30: y = y - 30 'center the mouse on a block
  1004.  
  1005.  
  1006.     IF piece = 1 THEN '1 dot
  1007.         _PUTIMAGE (x, y), litesquare&
  1008.     END IF
  1009.  
  1010.     IF piece = 2 THEN '2 dots horizonal
  1011.         _PUTIMAGE (x, y), litesquare&
  1012.         _PUTIMAGE (x + 60, y), litesquare&
  1013.     END IF
  1014.  
  1015.     IF piece = 3 THEN '2 dot vertical
  1016.         _PUTIMAGE (x, y), litesquare&
  1017.         _PUTIMAGE (x, y + 60), litesquare&
  1018.     END IF
  1019.  
  1020.     IF piece = 4 THEN '3 dots left/up
  1021.         _PUTIMAGE (x, y), litesquare&
  1022.         _PUTIMAGE (x + 60, y), litesquare&
  1023.         _PUTIMAGE (x + 60, y - 60), litesquare&
  1024.     END IF
  1025.  
  1026.     IF piece = 5 THEN '3 dots right/up
  1027.         _PUTIMAGE (x, y), litesquare&
  1028.         _PUTIMAGE (x, y + 60), litesquare&
  1029.         _PUTIMAGE (x + 60, y + 60), litesquare&
  1030.     END IF
  1031.  
  1032.     IF piece = 6 THEN '3 dots left/down
  1033.         _PUTIMAGE (x, y), litesquare&
  1034.         _PUTIMAGE (x + 60, y), litesquare&
  1035.         _PUTIMAGE (x + 60, y + 60), litesquare&
  1036.     END IF
  1037.  
  1038.     IF piece = 7 THEN '3 dots right/down
  1039.         _PUTIMAGE (x, y), litesquare&
  1040.         _PUTIMAGE (x + 60, y), litesquare&
  1041.         _PUTIMAGE (x, y + 60), litesquare&
  1042.     END IF
  1043.  
  1044.     IF piece = 8 THEN '3 dots horizonal
  1045.         _PUTIMAGE (x, y), litesquare&
  1046.         _PUTIMAGE (x + 60, y), litesquare&
  1047.         _PUTIMAGE (x + 60 + 60, y), litesquare&
  1048.     END IF
  1049.  
  1050.     IF piece = 9 THEN '3 dots vert
  1051.         _PUTIMAGE (x, y), litesquare&
  1052.         _PUTIMAGE (x, y + 60), litesquare&
  1053.         _PUTIMAGE (x, y + 60 + 60), litesquare&
  1054.     END IF
  1055.  
  1056.     IF piece = 10 THEN '4 dots block
  1057.         _PUTIMAGE (x, y), litesquare&
  1058.         _PUTIMAGE (x + 60, y), litesquare&
  1059.         _PUTIMAGE (x, y + 60), litesquare&
  1060.         _PUTIMAGE (x + 60, y + 60), litesquare&
  1061.     END IF
  1062.  
  1063.     IF piece = 11 THEN '4 dots horz
  1064.         _PUTIMAGE (x, y), litesquare&
  1065.         _PUTIMAGE (x + 60, y), litesquare&
  1066.         _PUTIMAGE (x + 60 + 60, y), litesquare&
  1067.         _PUTIMAGE (x + 60 + 60 + 60, y), litesquare&
  1068.     END IF
  1069.  
  1070.     IF piece = 12 THEN '4 dots vert
  1071.         _PUTIMAGE (x, y), litesquare&
  1072.         _PUTIMAGE (x, y + 60), litesquare&
  1073.         _PUTIMAGE (x, y + 60 + 60), litesquare&
  1074.         _PUTIMAGE (x, y + 60 + 60 + 60), litesquare&
  1075.     END IF
  1076.  
  1077.     IF piece = 13 THEN '5 dots horz
  1078.         _PUTIMAGE (x, y), litesquare&
  1079.         _PUTIMAGE (x + 60, y), litesquare&
  1080.         _PUTIMAGE (x + 60 + 60, y), litesquare&
  1081.         _PUTIMAGE (x + 60 + 60 + 60, y), litesquare&
  1082.         _PUTIMAGE (x + 60 + 60 + 60 + 60, y), litesquare&
  1083.     END IF
  1084.  
  1085.     IF piece = 14 THEN '5 dots vert
  1086.         _PUTIMAGE (x, y), litesquare&
  1087.         _PUTIMAGE (x, y + 60), litesquare&
  1088.         _PUTIMAGE (x, y + 60 + 60), litesquare&
  1089.         _PUTIMAGE (x, y + 60 + 60 + 60), litesquare&
  1090.         _PUTIMAGE (x, y + 60 + 60 + 60 + 60), litesquare&
  1091.     END IF
  1092.  
  1093.     IF piece = 15 THEN '5 dots left/up
  1094.         _PUTIMAGE (x, y), litesquare&
  1095.         _PUTIMAGE (x + 60, y), litesquare&
  1096.         _PUTIMAGE (x + 60 + 60, y), litesquare&
  1097.         _PUTIMAGE (x + 60 + 60, y + 60), litesquare&
  1098.         _PUTIMAGE (x + 60 + 60, y + 60 + 60), litesquare&
  1099.     END IF
  1100.  
  1101.     IF piece = 16 THEN '5 dots right/up
  1102.         _PUTIMAGE (x, y), litesquare&
  1103.         _PUTIMAGE (x + 60, y), litesquare&
  1104.         _PUTIMAGE (x + 60 + 60, y), litesquare&
  1105.         _PUTIMAGE (x, y + 60), litesquare&
  1106.         _PUTIMAGE (x, y + 60 + 60), litesquare&
  1107.     END IF
  1108.  
  1109.     IF piece = 17 THEN '5 dots right/down
  1110.         _PUTIMAGE (x, y), litesquare&
  1111.         _PUTIMAGE (x, y + 60), litesquare&
  1112.         _PUTIMAGE (x, y + 60 + 60), litesquare&
  1113.         _PUTIMAGE (x + 60, y + 60 + 60), litesquare&
  1114.         _PUTIMAGE (x + 60 + 60, y + 60 + 60), litesquare&
  1115.     END IF
  1116.  
  1117.     IF piece = 18 THEN '5 dots left/down
  1118.         _PUTIMAGE (x, y), litesquare&
  1119.         _PUTIMAGE (x + 60, y), litesquare&
  1120.         _PUTIMAGE (x + 60 + 60, y), litesquare&
  1121.         _PUTIMAGE (x + 60 + 60, y - 60), litesquare&
  1122.         _PUTIMAGE (x + 60 + 60, y - 60 - 60), litesquare&
  1123.     END IF
  1124.  
  1125.     IF piece = 19 THEN '9 dots big block
  1126.         _PUTIMAGE (x, y), litesquare&
  1127.         _PUTIMAGE (x + 60, y), litesquare&
  1128.         _PUTIMAGE (x + 60 + 60, y), litesquare&
  1129.         _PUTIMAGE (x, y + 60), litesquare&
  1130.         _PUTIMAGE (x + 60, y + 60), litesquare&
  1131.         _PUTIMAGE (x + 60 + 60, y + 60), litesquare&
  1132.         _PUTIMAGE (x, y + 60 + 60), litesquare&
  1133.         _PUTIMAGE (x + 60, y + 60 + 60), litesquare&
  1134.         _PUTIMAGE (x + 60 + 60, y + 60 + 60), litesquare&
  1135.     END IF
  1136.  
  1137.     _DISPLAY
  1138.  
  1139.  
  1140. '======================================================================
  1141.  
  1142. SUB ShowScore
  1143.     LINE (2, 2)-(_WIDTH - 2, 48), _RGB(64, 0, 0), BF
  1144.     PPRINT 313, 13, 20, _RGB(255, 255, 255), _RGB(64, 0, 0), ".::10x10::."
  1145.     PPRINT 625, 13, 20, _RGB(204, 104, 56), _RGB(64, 0, 0), "Hi:" + STR$(hiscore)
  1146.     PPRINT 35, 13, 20, _RGB(204, 104, 56), _RGB(64, 0, 0), "Score:" + STR$(score)
  1147.     _DISPLAY
  1148.  
  1149. SUB PPRINT (x, y, size, clr&, trans&, text$)
  1150.     orig& = _DEST
  1151.     bit = 32: IF _PIXELSIZE(0) = 1 THEN bit = 256
  1152.     FOR t = 0 TO LEN(text$) - 1
  1153.         pprintimg& = _NEWIMAGE(16, 16, bit)
  1154.         _DEST pprintimg&
  1155.         CLS , trans&: COLOR clr&
  1156.         PRINT MID$(text$, t + 1, 1);
  1157.         _CLEARCOLOR _RGB(0, 0, 0), pprintimg&
  1158.         _DEST orig&
  1159.         x1 = x + (t * size): x2 = x1 + size
  1160.         y1 = y: y2 = y + size
  1161.         _PUTIMAGE (x1 - (size / 2), y1)-(x2, y2 + (size / 3)), pprintimg&
  1162.         _FREEIMAGE pprintimg&
  1163.     NEXT
  1164.  
  1165. SUB CheckForAssets
  1166.     PRINT "Checking for needed assets..."
  1167.     IF NOT _FILEEXISTS("10x10-board.png") THEN
  1168.         PRINT "Decoding 10x10-board.png...";: Save10x10board: PRINT "Done!"
  1169.     END IF
  1170.     IF NOT _FILEEXISTS("10x10-piece.png") THEN
  1171.         PRINT "Decoding 10x10-piece.png...";: Save10x10piece: PRINT "Done!"
  1172.     END IF
  1173.     IF NOT _FILEEXISTS("10x10-pieceup.wav") THEN
  1174.         PRINT "Decoding 10x10-pieceup.wav...";: Save10x10pieceup: PRINT "Done!"
  1175.     END IF
  1176.     IF NOT _FILEEXISTS("10x10-piecedown.wav") THEN
  1177.         PRINT "Decoding 10x10-piecedown.wav...";: Save10x10piecedown: PRINT "Done!"
  1178.     END IF
  1179.  
  1180. SUB Save10x10board
  1181.     A$ = ""
  1182.     A$ = A$ + "ha9ijEfDL5ddf;\hF`M=4l58h>4818h98;;nRk>4L=89h>1?0180;`bRk;TP"
  1183.     A$ = A$ + "K18\81G3^K1kQkkWO2_Ohi3_MM=cdCGcY?WCEC?cEGEoigYYb4R7]h10002E"
  1184.     A$ = A$ + "i]_AK00#7bC=3`1hCFDHSfD300P0NWjjZhCC3mof2mo>4joE3iCb28;MXSE5"
  1185.     A$ = A$ + "0>\000G008000BlO0>:ldSoD?>0D5`C07EOBQH0?iN]1PSfh0#kWdY6PQ0N2"
  1186.     A$ = A$ + "hH8>0<TH06B=0;1l4`aBL0H9a0\TJ0>2h9PSSh0`AR1h8e0l4`C07?a1PWhP"
  1187.     A$ = A$ + "SW43`CZ140PW0>1P3P0`1W086#0?IQJL2P501`2>1`5aA00#40`92L041a0R"
  1188.     A$ = A$ + "PJ0A`bC0W8h2#4LmD?aa10#Lh08>R147e0RS50aaeC0Wh40#J00T6>0BSH0Y"
  1189.     A$ = A$ + "A=PdH1#JLm4`9=10T;>0bUH0iB=PLi2#^?=E0Z;170U#<PBX6#92PC9B#M9J"
  1190.     A$ = A$ + "cBE43X:Z1DU2DGUfLEUQ\d0e0J#EFJ#kW0G=X]0=H8G=HX0=HY0=hhC#R62#"
  1191.     A$ = A$ + "Q>X6#7\0X3]iZ3]5X33iZ335X3;O2BdQU:dQSBdQS:dQW2dQWBdQWZf7e0jc"
  1192.     A$ = A$ + "#Zkc#Fjc#^jcB1jcA9jcA5jcAEkcC9jcC5jkY54P4m5PZSI9GSIY0SIY2SiX"
  1193.     A$ = A$ + "4SiXZSiY4SiY2SiiC:J?F0B<F0:<fC[92E7;>96;>56;=9#IX0XLDEDN:1:?"
  1194.     A$ = A$ + "E0UWZR:09#5P2X2#EDAX0Z8d6ELZ^TWB\TWZ^D0ZnhooPLkaOm[O;d#3maWf"
  1195.     A$ = A$ + "Po8P7o_3?nOeNB0Qi#DoTQoiUfJZco7oMnoM2PUPZ8[0#7SmEi=b[[_c_O7V"
  1196.     A$ = A$ + "D9K:o1f=N69lNfjio=jVe05S33A[n4WXMkO6iU9mmbn3Ln]i[Dg7Ef\b5447"
  1197.     A$ = A$ + "fJ5b8aijl#VLPOQSj]#gn:il=m8Jckhb]ndi912KP5lFE4KgS?B2aUMb]S?X"
  1198.     A$ = A$ + "TBbfR519]SEaA8WNahc8gSh9WFb6bmYF`McIfMkGF8g<e9WMF8M?>oQl`DMm"
  1199.     A$ = A$ + "`LbeI`g_^I1m#3k?32cNn]EFCHGd`nM5en0#]M=?NL_n7B85HdX\UH12o`jb"
  1200.     A$ = A$ + "b;GWHfee1B=J3i]O>T#leg[_OLIO<7nUmIc]mM2oH<JUi9:jm#XbeaBXoQ7X"
  1201.     A$ = A$ + "L>3EeiZd=VdF3cSi8NnI4aWWlREG]gL#dZMC_IO:[Jn8bB>fLdjWm\[J2aMg"
  1202.     A$ = A$ + "f\GfO0V?P?CB^H=^Vnb?ngFOF;=FA>Cjmh18B`]4hjNL3FG2Z4UWQQ0RLi4k"
  1203.     A$ = A$ + "R_CfIcf7ONENHHS\ZQ_oJAgn<C_QS=K\C51gTE9S9n1^N[TgI0okl3LdDnbd"
  1204.     A$ = A$ + "jK`BfkSg83096ZfSHOZdBf7gT9I<;3K]7MNjE?diadG6B_?^a7og]Q#=E4=g"
  1205.     A$ = A$ + "V2bWd?T0f]\RAh=Q`DjICK042b1^nXjLRAaD4J3Wl97[n^5FLa9E]jF5^V1D"
  1206.     A$ = A$ + "fhniOL4D100C3P9nmn?lT=^mNVK9b_YC>TA<NZ4VLX[E;E`j9HHA>lYV^74G"
  1207.     A$ = A$ + "foUMmn[T\cJj#l1chFDBj3?KJ]5X1Mm;SKIChc7O^3hS]dU1W]XRMeohF_#K"
  1208.     A$ = A$ + "biCg7]MCkTIVKJcXkHjh\J0ZgI#:G>`T6;iSGXQ1b8K#QAeW>jckY]_[\k>C"
  1209.     A$ = A$ + "]iXkQW7F6IV]E6E3WOX16nV=O;58<CjKjmaV[ImhI:Fj6:lJ<?VZ85^fBnIZ"
  1210.     A$ = A$ + "FeQfGhIe4bMabb`1]aJ`UU?S#>9k9bAT7ail96GoiEVCEi;m[OCCXASdFDN3"
  1211.     A$ = A$ + "Jgoo`;mbP^Ve^AefNgRD;e_PQekha7;`I7NBdQ0iWnRD7`hWBhlEUMn]nQnA"
  1212.     A$ = A$ + "fIAeREBg0J`BR2b3hXee`>oXaW#iHT6852PFcgXC[CfZS=nFY;0_m?5dY4SS"
  1213.     A$ = A$ + "gcg[J0MIo4G1<Ahe[beEf]IH4b3QG#H<_9oU]goVnLb6ehEH[JY5#RPi3MDe"
  1214.     A$ = A$ + "Z?_m[mAi_T9005;OjLV3O<b9?Q#OBjnCBMLcFHm2952#mWM3o>N7<9IBO;Xi"
  1215.     A$ = A$ + "hSdfi__>i^nlcH9f^RSO6b\WY?NE<DW2IKjTKUZSc49OYTU44YkFObA373g\"
  1216.     A$ = A$ + "hYoZ^[31Z]H:J8Kjbf[gj9P?e8eFGe>L:#JBCMBQOJPZ[CSF4OjdB>B7DhLR"
  1217.     A$ = A$ + "5nM=H0JP#KN4Ii:0gSD<X1B6U6meCMH:S6`8<QOg;cdbJjk8nK2i#Abl47en"
  1218.     A$ = A$ + "NaJ:]X=<R<52na^;35^d\`PYD94MRiKUYj0`U###iegk`2L<l#27nQ;dA_eT"
  1219.     A$ = A$ + "a#fJK0K^DGRo7olfnR^fSK]0I_I:c2QMX\1\b]Z[_CW\U_bf91F\TMdE8G=U"
  1220.     A$ = A$ + "L<P82j?<]<WZAMg=ljCC?JMdYX3[T>8b0dSmARmCLT6F:AoHZb;DiS_e9XJ<"
  1221.     A$ = A$ + "7M#K83<1]4kSO>N#Yh>OV#2ieA940KU3XM?fYhJF6g<BMXh>d=]Ld`G30HFn"
  1222.     A$ = A$ + "P#Vamj8\j8QOFSK\LYK>;?fG:M#=OjmnMb96VgYd[H[a6WW]?;W^nm?k>jAV"
  1223.     A$ = A$ + "=RV]Zm:DIg3fI:QP[=eB:=n7U`NX^SBXl:FKeC=Tc2ViKg9eSjj<H[V7K`k;"
  1224.     A$ = A$ + "EN7D==eafE9A;TmW\G?N8CQ4b0\g1NbRgjRjmi0>hg7Q[bkSf<9ekD6OB;IH"
  1225.     A$ = A$ + "Mj[BbIag:8m#BKU2h0A#gYE^LB>P3G1UBA#kjFQ2B_E?\a[o8k\j6Qd_8GhH"
  1226.     A$ = A$ + "9Y[gTk4VF25jbDR0cn<K^iA5P0YL8OHXCYT>\f#TU9_5VQ0Hk?O:Tc3;C45d"
  1227.     A$ = A$ + "WeB4JhQ4h[R4V;eoG>6G:cb`B;i#lJMmj>O=U7MEmg>>B3A_W6]amnTnNalI"
  1228.     A$ = A$ + "HoZI=;T4cClD`QFKX>oG_8moN3A^K#A^4a`;e#Y3E?RJ`M0k92oib8#7oKG1"
  1229.     A$ = A$ + "20oQ_`6jOJ=S3P7Ab[<P7GBV\5gHBK=Q`nY]c89O_?Xg#<o>C]nhcDka9RCK"
  1230.     A$ = A$ + "k^9Ia>jXJf^JJ]UnAFAkiYmFgS>TF^\a[>P0#O?[JSElDM7dYdM\P^?cfI_n"
  1231.     A$ = A$ + "`l_4WlDfVnZleWNlEH3gd#X1neQIhmX:ALbPWlX?m:i7H62;g1M04B=<1L_3"
  1232.     A$ = A$ + "e0:3E7U;kcgNH:KX::FeW:>NoM6j\2GCn`Zh2C;O=?XcjMYNa83#8\f`_L3U"
  1233.     A$ = A$ + "#BS][?^5Ce^I?^co^CNkibFEn=]O8o8]Bdcb<5X1NgaBhocNXEYaGF]kGmXf"
  1234.     A$ = A$ + "?kJbnH:I;aDaoAiZhk_i#ojdO>H`4Hen2S8QjMJh7KMd_lIZH6=8jnc\[HmT"
  1235.     A$ = A$ + "5Q=00XF?h49k7]V^=o\Xj>`33:U=Qeh;L=lS\Ga6>[5dNAC\lWAElSE=GnUl"
  1236.     A$ = A$ + "A3;dd;M<ZS>H03;:UN9iQFC]IJmhXCII=[IH4;00U>0fC#NQI?BSZ59gOMO>"
  1237.     A$ = A$ + "`PbLYGjI4<\d[kIT^CI6^ff0#iJPgA1B3M=D53an?O5GAjD:a:Q`Xl5QaQn`"
  1238.     A$ = A$ + "4FFX2dP\79h`<KPIa#H17UEa?MDC>]SHGRPiO34die4dSeaLWAS>eg1V#7oB"
  1239.     A$ = A$ + "OE5bXe12Hb4h2J`Z1:QgOI72[=6WI3>mOI0WMlH<bFG:3g18J9iQRUGXKFET"
  1240.     A$ = A$ + "bIZA]^0j3cd6oQO3NP3TPll21;`>Rn8m1kfG<3^oIVjnKjQhi4MO8nG[omU#"
  1241.     A$ = A$ + "nf<lkCm;Uhf]mCE`=A`8cfenH5:J1odAIG?X?UG[Q=\G6UHWW3Bb`CFLi4QC"
  1242.     A$ = A$ + "DIBdZ75\n:K^ZThjWP3`eAAf3oVWfNliE^Z0fU#OP96?7_YUo:o2D_E=#j7`"
  1243.     A$ = A$ + "7I:?OVTOQ10SeeA5?knZ5KX[b2;dobd`MlIMf4m=ANJ7NV89;L>niIDFJbJe"
  1244.     A$ = A$ + "Wko=ZU34m<nH<Mb7S^\7#80=eT\Ql#gQJG=dTMLXT:\dAIaCALZ9kZh9VNVk"
  1245.     A$ = A$ + "OJiCd736Me6Co1D##QVGo#Elim^]i#\NQJ`]PQg9hO4]TifTd4eH_3aY`ITA"
  1246.     A$ = A$ + "m_cblVQn2aCY]QEkTF6?5A_jDUa1d9N5AS[>b:<oWKo7VJaG;;V9IU8dNS_`"
  1247.     A$ = A$ + "jZd]OjQfW4k8?V:=2H]i5_BP3CDA9H=<UZG6kikkWjDEaQO4>eNc]V#HRl0["
  1248.     A$ = A$ + "H3WJgg;ZZFZjTHP9KneGO[R4EegIfY5WgS4dFC[8D;V]RV:?:N7P5Q7Q[ZAP"
  1249.     A$ = A$ + "aXA\FQ0HZURo^28SJbY<AHSJTFj0?VR48T4\FAL4bZBR_o^Ag=fVCaP1j#n^"
  1250.     A$ = A$ + "[C`U7VgB\8o9Z`O<GXULk4m#CKV:R<8m;4NTIC]:7PP88R7ObbMDBQnNVCOT"
  1251.     A$ = A$ + "L0ESoH0JEF3jPk0=`SUI_^Zh6Ve\_oTDbCiOh1m9gVJScWISE#?2Im^>2\Af"
  1252.     A$ = A$ + "n_99j3aK_L6#U7H==6U`cFGH7`[3S6GFdY\jIYS`#i6jZ1^`#NEb[e;Bol18"
  1253.     A$ = A$ + "\Zj_72P5FMFOP]#eHAM82JE\a`3i6W:XcCNQUbJoji`iS<8nj_S>ZB]\4Bnm"
  1254.     A$ = A$ + "m06PoWf#S\]_>^5f2Pi^D43DTF>UX_W7XONQinYl02anFAOHdP=<^#:oTT]F"
  1255.     A$ = A$ + "FSi5T4D7TC7_3f<5[HcjGhS`CO18nbO`?bSiWJEPG^heGQ75^:;\n]7^d_e>"
  1256.     A$ = A$ + "ldSfI`2L1I;X5RhAZm7LRKg:OEa[:bOGAgGCS;dP#mW=9o\89`8fbU8I9B0A"
  1257.     A$ = A$ + "PGiUk>]oi0MUI[`>3lRkL2oBhBEI#e#1bRd<NmmHRVBHiafcO?[cBQe\0nFX"
  1258.     A$ = A$ + "\?I>?CF`>G]lXH3KAe4iDB\=nd9:N:H?];]n`do0N<IDj1IbTNQOd]4\:lTD"
  1259.     A$ = A$ + "Y1d9VX4nB]o6fJB[JZ=6I#B`S>H0BPXeGKW<>J>VWHd_c?EKF8L0mT4hNMYl"
  1260.     A$ = A$ + ";;>^;]66gNXCC6Lb;17XjaX1FCm<n93`Q5;j4O16_aa^GZP`:i_`<Kc;`0FL"
  1261.     A$ = A$ + "0Xa2]k8mMeUd`lf?jP?DkVm]2PVB?Ih1mO1Y2aD_80Sm6YL]_[O`_53DbH`0"
  1262.     A$ = A$ + "DOoi_oDa7jWV>ZOP_8aUd4RcJP7eW<SA#;I7eI4YT7jcW3L2gITAG:<\=afI"
  1263.     A$ = A$ + "XEe4Bl`O8T]>2?lb1QdPd#<1]a^m]UV#]FBQDU>VTbHG^b?W#5[kVkh5T[BI"
  1264.     A$ = A$ + "0=81YieB\[XmAUn<fHQ>IihIV78NdV:;X_W46>;1<YkoV;`gVRe;=gEYWUb^"
  1265.     A$ = A$ + "TeBQ7fdDWM516AT[FDP3T#Za6]=Ybo8H`E6CNJ_8SIQ_]Lb[7LFLC_7bL6m="
  1266.     A$ = A$ + "4mF=m:9Qo]c<#l7b:0AVR6_lOcJ8jMCH?LIbU3h9iE;PjGfW]Cj9PUj8:DhX"
  1267.     A$ = A$ + "nC\;Wa5RcfJT6Eg;H[Li84lM1TaIaCTEc5Q1l14R?jLiKDUh0e49NloR8=]5"
  1268.     A$ = A$ + "R=A;Fh1:5ULYG?4ONh:m9X=c=k3dhS9NZj42nT2JFVh2Rk2R\lhY5iYS:G>a"
  1269.     A$ = A$ + "2>>7A?fWI8CNlBh:]_^\DVOV4iDDm2Pk`k4WlV0A8HVik^5FCG?jUEFLI4dE"
  1270.     A$ = A$ + "oQiF2cHaHo>2P^X<HAISf<dTO8JmO;C`gB4#UZN2:YVc6Z]#j;`Ekj;UR#4L"
  1271.     A$ = A$ + "ggHV>kS[<L<oTEGf^B5D#S4^n^6V5NoG4K\iKID2CGm<k?LjMfhdQUi1GGP["
  1272.     A$ = A$ + "eU4W7VHC4ieh;;cCoE:jlh3Z<bTRfeZ3I#F_PbdRUK7<eS>Q=ZPGAAhVHHYk"
  1273.     A$ = A$ + "BXm:7Q[ND#7A0<_0<L\P\5:3:QRD4LA0ed0AAEBVD1lNf;h0jdh2bTI`mQLG"
  1274.     A$ = A$ + "9T;#g7?Tnh=^S0#>6iJkofEB=SNWhIaSY?QbWEa:UJVQ><`:8Z`POmKJd;[i"
  1275.     A$ = A$ + "N3ea6NfRPb;^e:0_[L8HJY6oT1ie?;M93cK3dlZmX7YhCFBX`\m;=FAb76[H"
  1276.     A$ = A$ + "XYBA]<nDG7cc<G8XL]89jH;D^<bGaZQ>JM<OEOnHdSjfhkc`1f>KT[1DSkN<"
  1277.     A$ = A$ + "[XWP68H]0^j>YbSKJPg9:diHfj39<ZYGl5LKWmW[9_i#?aS:k`aXY\RWUU:C"
  1278.     A$ = A$ + "g1>nNXN#Qi5>bNIcIhed>MfN3Hhk7gklU5ZDH^1c8]d^8F7<he3n9nRC3M33"
  1279.     A$ = A$ + "oS48hM[e^ngQgQ?G8dRhAc<LhYjWWf1^SiEkd2aXiL#l4B[FTI_e:VGVUU[h"
  1280.     A$ = A$ + "Z[;EMIDH0;AP#T^Ml3U]VfTmOoQmOd[bDhBTBlQ]804kFOVeHYO621o5ilJc"
  1281.     A$ = A$ + "nk_ghmfEV:8iN^Xj8#e8>ZXf_O]2nH7a6nG>D3[W^=Mna;mVje`0d\4n<V^7"
  1282.     A$ = A$ + "j0bRN6<b=jjS>:C`;e2BTZKJ>YP83RNYmbNSW\LK#b`Hc^Y8>3WnBJZ?cUl1"
  1283.     A$ = A$ + "=Nj\;^;P>10:iOAjo>Q6H6h716:1TP>nA?BV0ha:L1m:NHQ8`0Q<B9P]9mO:"
  1284.     A$ = A$ + "91#G5ThXX?j_5FjG<I7h2;#0kiane5F9_>492ET2RAfYDUXLIh:7QFE7:VK["
  1285.     A$ = A$ + "c:O?i;3FX\NXNL:B=4BT<2ckG:PZ=fWPh_oQ4QP9dPXWb_faa`JG<P9;Q9lj"
  1286.     A$ = A$ + "S9O>90bCN>3chNFQhQh0^=HL80:UQF3oUE\o3NMJjgD=JITb>e:`FJiFg4US"
  1287.     A$ = A$ + "Hd?c;PC\4_8jT:7j66C^6h9CUjLm\fU<9lhWToPj?F_57]S7]#Og]aL9e34b"
  1288.     A$ = A$ + "[Hii7^0o]BP=Ad]A#CQIkJf=\Lch<b9CFRkL5jg;E`[3W?]C`_IJeHUWa:lZ"
  1289.     A$ = A$ + "LXZI1nG6D83[1ZA;iaN0N4EVUo=;[YD`NWB<^6EVJ?U9iNG2A^#NQIm7BYQ>"
  1290.     A$ = A$ + "M6fVR?U=m\_2HnY^d2jkKj\>dEjC0TA?;5=9J[ZEU^<FPbk#\bPE;bLhOk]\"
  1291.     A$ = A$ + "MUPHGk1FI\6Q_RDFaf]Z81hJo`eif]bY52N63:Ul#`=AL4H2:A>46P3R0Hf#"
  1292.     A$ = A$ + "a07YT_``4nY9G[D0[<o`V67#lVMWLjnTH2[FLThK1n62WHn7`2nM?<HaFIZg"
  1293.     A$ = A$ + "1Fhkjf[h34?HghR4XRSHLm4cZHBNRj?O]_>lH0_CQInj;10F?85a0bNDU?\Q"
  1294.     A$ = A$ + "KGNVhR`Ihj_B<AT6b8JlX5DCF2#6;j::LNG]oj]ImNFDL[H>H8a2;MMn25^="
  1295.     A$ = A$ + "g1:k#9H0FBdLD2kKc:X[2Ylh45jN4kcK#Ec`o<L>70_G=\A<VBXCcPBAk`A["
  1296.     A$ = A$ + "Am:b]B\MQ9TfeUM;1^TUe#BQ<QjflF=4>]U_Ca0TahI;dRKajhekL3C`KW<Z"
  1297.     A$ = A$ + "FcAOVJG2VO:Q^fR0oJ6g9237i5EZJKl?L>dZVa`?\<14>TCXQDU8>lXdd8Xh"
  1298.     A$ = A$ + "Zc[cTEGNQJER74OYTI8JE=3;C9TZ>S6mj5WB3_]g0WU#YHRBS]lBFWiP80d7"
  1299.     A$ = A$ + "O;B^9hGBnWN2:ca;8?E2V4GCiEjZ30enKMR=Z3aH_ac_AMk;=NTM0?n3Fg4R"
  1300.     A$ = A$ + "gD7bD?2c1mMBYW1f`m5m3fkJK`gY0lJ?nKQC4mL?aZ1DFmPDcB=9Q8k1EYE>"
  1301.     A$ = A$ + "mlb;#i[i;[85\6l_0[NoM0mafVD\F5l8hT4X8cbaKh:=\aSJlITHIhcXJd4e"
  1302.     A$ = A$ + "6QehflcXgOTn7iE[nD=WFW;=?g4a`c_5]F[bcPB17lOCml>lekAZ;jA9JZ`U"
  1303.     A$ = A$ + "i]KR4L^^GUTS#FkNGE9XC_KM5C0b7ma>f;DU:81>c1dH]_E3K<?b#I[beaQS"
  1304.     A$ = A$ + "P`5nn0S>B8\3gGNhNZ1;l_OcM]X[:SN_KMbI5HhfT3X`KnMe4DlRKF5B39o<"
  1305.     A$ = A$ + "76KTO5eF<8_UDPES3UiC1f<;BRcBX65f_ef#_f`LGf_E=a:R]M=F5^#b:\g7"
  1306.     A$ = A$ + "iKK;QNRmbe80VdQeKMZ>21TB#N2>H][Wl5RSVSh2U2d`?0ke2E]12Vj8:d;\"
  1307.     A$ = A$ + "0S7ON6a]W]1]oe=LFg0kO:5J2YXM<TJVVmW<8oknYD6YofVL<`m#QSmdLQco"
  1308.     A$ = A$ + "Q8?Ul^WI0KQ6dY070_`K?E7fB9A>1e5Bm[QW2CEm7O^Z4:5Q[e_N`OJX3d5Y"
  1309.     A$ = A$ + "<2<J;c`BbGDhZR_1W#L:4Wj=\?\3E3^mOBCaWXXbMk^9mR?0#TJfe7YZ8DA1"
  1310.     A$ = A$ + "<NENWLbe7Rkn5aFR560H3\XZF9;O3mOWgDFe:M^>>O1QjcJL6_5^fY65_b3E"
  1311.     A$ = A$ + "RAL=HOU\:3l?iJNcNNgGRJ6a9Ic#6almODkhWnl3N3H?5kc5#;\?]o6bk^O3"
  1312.     A$ = A$ + "D[n\]i?bckig2n[e2iT\h7;`Um6[0\GN00o:LHZgLj>Y^Y1Rkbb\fO3o^F?G"
  1313.     A$ = A$ + "9>Pj\RJjgK=kGR981NnBHPB:99AbNfd<\PAX_XaUJ\OgCFhe4n>ScA`SZSIa"
  1314.     A$ = A$ + "VLJfTQCGdf#3UD?GkImb:<jlCDKV9j;LHYS>`cJ5O`3bo<NhJXC?84QQk[[o"
  1315.     A$ = A$ + "d`1hVKoa74YBK86hoY47<Gi#K?6Z#897]<?XJRLXG;J7o0?bL9dQi3UWl#YJ"
  1316.     A$ = A$ + "=>D>MSji:>WOoG2Q_dZDRRE=4VLDCeFC0fS?QAQ;THY?gG;AbYoI?E^li`56"
  1317.     A$ = A$ + "=;4fhnH7<QMfcBY^b#h`e9N1_]:adfNJlmIag2=SVFPkM`6H\4AWcPb3`?22"
  1318.     A$ = A$ + "QC?aVOeI>V06KTok2]`HgMSW]QH23^4Ij=LWgD5<PY[]M?Ob:Kf6D>V8IFe]"
  1319.     A$ = A$ + "HbiUbjLI\FadF_AlQ`#YdjiK`hPOo1;mlib_JBS0OJZE8fRU9[4Fm=mJ]YRU"
  1320.     A$ = A$ + "ETIAST]9nnnMLb40b1iSNY]mflm<]dKbOT]jRCOIX#oKI8lH0d>9YA5[Mboh"
  1321.     A$ = A$ + ";ROeNT3nI[cnG]W=I`o;_=EN^eW96P[`FXCO:>#ThhB?VS;9RFNVQl_]YELc"
  1322.     A$ = A$ + "TIme40lKDDY5ZmM`Q2>Sie9Z[TQYIL?H;jajdB0XdS?2PbI3J52eaeOOWe8G"
  1323.     A$ = A$ + "Sa6YME3\?MjAfJ^QV^6of1KQVlaCSKah5j43ELl:2m4nXf;[4i]BMTNlinUF"
  1324.     A$ = A$ + "Gf\=\?#6G]UF>M50IPCZ=?e9[mJ9h<Jme2YQ0PYclK#08U2B_Y8^m5gT[^I_"
  1325.     A$ = A$ + "CSM\a8Onf1<#:S6`a_iI#iZ0Q]TcWbl03`KR?AI^Xb<^\YccdIP\:o2a3RjY"
  1326.     A$ = A$ + "[IlKBm?;\F]Mk5d7AXeXZ5hjW03KN1W\H5H8h?B8_PYlnXmfMZ7OnUaN4LQh"
  1327.     A$ = A$ + "8e7a9dGTbYn^5lJm7GXmb3]BTg=QBQ7EekV:_0H<GM4P=K>niiLKFWN?c307"
  1328.     A$ = A$ + "Gbd[Hm8?D#bSNKgQZkfmG7>J]aE1#`QEcB[1JS[n5U`ig[IEa3\##J5RW#2T"
  1329.     A$ = A$ + "W]am4nGlcQYk>JbPWAF1Y88PJYmMoY<OR9bAc98lQC]oMQ9ZlhIOFmn2fQCD"
  1330.     A$ = A$ + "l:6OB_7OV=^L[:iLoa:3aT0M3SFNJOHMd0Y_R7[44>f7?HfAX7MJng1>YGm]"
  1331.     A$ = A$ + "n:\DlGf:K`oEQDNlDY;IHgOAj6DXJBYJYOVXOGmo6`R]L?3fUdij_jMnoBkd"
  1332.     A$ = A$ + "=I_cgKl6dY36j7G<kOCHBbLkNLH^I6UUjHdSm>DR>C10Ff4>bR72F?QaE?#O"
  1333.     A$ = A$ + "=R;4<\d]^SBhTLI\7Do]TT;AgGfcINoRBSPVA_n3[V4?MK6Z141G5o`cWJe:"
  1334.     A$ = A$ + "K^JZMO>jRW2U5Z#67\7Jb9?hCnHKhCgNgll\5oiA:SY:8SKm59S0[L\RG]5B"
  1335.     A$ = A$ + "_=EQ7Tch4:#5?a<oEFB]c>kgl]Td`M6XEge=gI2doTh:JaOO:_`;M;OCPK7O"
  1336.     A$ = A$ + "4V52KE:GR#QjoFD1S;lligM>lf`oP=lRbF]JEcK2nnDJjOW3hKVgc7dYoVU?"
  1337.     A$ = A$ + "Sa^Gj]ZkdD5I;5^=0h5M43jXFGWATMY9W>=<CcBZNlG]XV_?6]MmlQU6Q3BX"
  1338.     A$ = A$ + "`^00kQhQTUXX>KcOnm`6ka^0Pj<f#o9OGZIOb7R4[c_14bWjP>8QLJPVKZN2"
  1339.     A$ = A$ + "dGAOPZeH>n<Imm_W>mM_iG4P:Q8XEaNF0LYlOR1fX\\LlUbd=KWe>ca>`N#D"
  1340.     A$ = A$ + "O7PYg`HcS;abclPa4SVKP;=6iMo33:]bCM9nf6XXYHXhO>k=NhQ_Ug3m`W?V"
  1341.     A$ = A$ + "j649>UG^O7eY8g=iRhLZjEK>[=B:2ehKZ;MT>eW:gNbOX:Fal1bDlOm7a]ff"
  1342.     A$ = A$ + "Je>3D^MXYm5PElAm]WbD]4bb`^1<X_h>k9U8K\fXBFiPd;GFmI[:Gm?acVSl"
  1343.     A$ = A$ + "YoX1W[L9eSge4:;T]ZDDdT]VLd]UjSB4_50hko<4UThJL3XRQo=4i2\c1JfO"
  1344.     A$ = A$ + "<0a#T]83FP95N`GoJdLTa8;U9FZZ[HN[m#o<gTHLD9YWY9GbClN\IP?>`:[i"
  1345.     A$ = A$ + "N?`=9l`HK>[C9BfQo:chgIS\5U#Q>M6`UPCjX<PVIKdd2MGKCIBB8I0\QcLK"
  1346.     A$ = A$ + "TOd_9n?O0PS=VSib0QK2LAP1<F3F9H>MEhIkhgo8G2PEJ7o2B6=Om3S:2?9H"
  1347.     A$ = A$ + "=hefL74O2JN?akKOeTh#OBW<mdPDEDe52`NMBPKcd3k^9=am0__e?0PWb02A"
  1348.     A$ = A$ + "2374T>FNoaniQA<nd6EZeK[64OYOY815TNTLe_=eFm_KY:VKCW<O671_iEaA"
  1349.     A$ = A$ + "W7>om>?30UMJM31]McCB3TTiQDh^MH4nPeLjE>iWU3gV]51:IkQi#]?WJO\Y"
  1350.     A$ = A$ + ">lP;aI=Z=nD9YMkCQdRcGQdTSb:3aLEkW[GI9j[=L1=OgUVoCD5I`MX4>lV7"
  1351.     A$ = A$ + "H1NXcZWC5K1\gW7l[jFe6=KP6Ykij]o\i4nTICKLX34[Bnk[OT1a0:bBW6g:"
  1352.     A$ = A$ + "#[:o=k]b3;\8_L\4QMPUO>eh1=[O;Ice>4?GT6d]RKdJJSLDRA`fHm:4L3M2"
  1353.     A$ = A$ + "LFm502K5Yh15AK9_iKNoM>[dI]\]hRUWBP3#dA2fBFO3a^;0[7K34M`\lC3n"
  1354.     A$ = A$ + "398eFhj#\U3OYUn94k62[P8Z3;XR08fd2gVYdHT:]F2d66V_mIj9KdDl5B^="
  1355.     A$ = A$ + "XUFhR0?gZ8bF5Af3Ym?NY7\K<a9lI<hP34To^RH1YkNgcKAHeaUoBjAK3WS<"
  1356.     A$ = A$ + "EVKM7l?kmVX<DZ<1hn[M[_oYHLCbfDoGmQgYV=67^Q34YQ_9N2EROnLU=NKV"
  1357.     A$ = A$ + "mN69f`QYZ=KCJ3WJhcC8g<3lM^Lj>LfNImQ7MiUAd2WQFI283ZeQ3X1Mg?HQ"
  1358.     A$ = A$ + "W^TlY4l?B;0>:3JaRAEh2J8fYEh43S]NMWH<Fei^Of7CT24TlBR6FK1FBCi6"
  1359.     A$ = A$ + "AdRcE3719g;ZZ58F>g0kVChdL10`h15c0hd:ZhnhE]aYMmEN`W`mEY_]k\FL"
  1360.     A$ = A$ + "no4TY:fGK7:VD_[VJ\ehngDnjB#mEKmU?NSPo]eoiX><VUlW9FXYW7?j>\0:"
  1361.     A$ = A$ + "UUUehDH2mgRo934:?mANaeO>1=3OPdZJDi;BHIjB\#mfOBS=aNBD>6AfJCF;"
  1362.     A$ = A$ + "R#RYQOA=ePTknWFKnGKle[F\k[NK:Sd<hL:YLGj>DB0jdP7^=UBo;JAl^;VK"
  1363.     A$ = A$ + "DYI]6UbgDBhA=JTcoB]T[oX4S]IMM_6m]6MU0Plh8`al7GaK<aWb_i>d=59W"
  1364.     A$ = A$ + "dDOQ#G6NN^4dW3e[aJ\C3nQ8c##8XSDkEhMhAImPDI44^`lbAcO^REo;7oPW"
  1365.     A$ = A$ + "Ym9Je[T>6;V`c7>WTb=Oi<S9S`#iK<dBVh;5CK=iH7^N2eN4[;`ARE47Z8PP"
  1366.     A$ = A$ + "mRMobiD^c>Om`Gk4lPHJMLjA2#n^5[agTV:__jo51kQ8]8cNQL5]<882`^TT"
  1367.     A$ = A$ + "gX3Ff`NMkYE3FP_a3XUdnoFh;DeSf>#omm:_QXGI^QB1_XOORhdWRRDL7oie"
  1368.     A$ = A$ + "NYf0oni5B7B?jYiTdaK0aVhj7beK?OTG<=[B40<3XXBY[=PJJT?e8G^ZoV<g"
  1369.     A$ = A$ + "M6BE93Rh`?aiRlTAT2:ei40:m\I^o[eMDQYbmR<YJO1XVR?B6Tfi<EhjYZ9b"
  1370.     A$ = A$ + "McQ8b#7VEaJ?EHR5hiNgUhikWHHKn9DK:0l0AY13m:5k^O8UjUlLd0`4]LE^"
  1371.     A$ = A$ + "7Ko[\DE[Xol>OE3[GVIWYATJIDRdmQo^HQEHQb5Ve#U>fW6m6CSB^]m>73bN"
  1372.     A$ = A$ + "X_WE;SmGBcgG:X[o>EJ:GZYOSn2gkXKj9`0Y2;m?`[RF`1F?23E_?`8M=Y9D"
  1373.     A$ = A$ + "FD^`0II\gUU:c]CeZn?c4R2ISm4A>ZYO:TZe][:ZciBegNBU:>=921l6ZCH7"
  1374.     A$ = A$ + "`7A19h<RV`Mb_1_H3ejU2HT]<^GBSbA1Y\KJ3?nT#fme6?WQOIllSKbYb>f0"
  1375.     A$ = A$ + "`QFSY:bUdYe9P#6TDUgO\0Cm9U:B^W>iDfcckSn8l5;eM10c15iAW?JjV\2E"
  1376.     A$ = A$ + "_nlN;2]eXA>CKCV57XQmRi:Rbj;#TBLRC9HUZNd1YfO;]a5Zl?<2B9C#1dSM"
  1377.     A$ = A$ + "KJXF?8f=>9[`2lDjIiNK<09MTX>3N8Bn]=#5PmZoHk2:OZD#h9f<B7IkUXE^"
  1378.     A$ = A$ + ">klXBL`OC2MF0`JOU]RRZMh]E?>I6:adE>g?nD2bShOUGlBjN[FOaioHgFQf"
  1379.     A$ = A$ + "Po64CUYNJgl;#8gaCHN?1^OmMi9T2jDlRZHimomQ>IRf:7ikjaKC8ULkRHHS"
  1380.     A$ = A$ + "kV8A0Pb6f?<\efnV7iVi3]f?b:Rf9kPKZ=<hn<dXc2BecndQMi]9SZ3d9J`X"
  1381.     A$ = A$ + "Wf:;lObDi;iAa8Z`fDFL;_agO71#g0U2]Z:feLg>U4h3=Bl:0fM#LD0>?Ojm"
  1382.     A$ = A$ + "bBd_o9j\07d0U<I=Xodao2fQCj^>g#H><Mb4;Pk^??YOfZ162m:ge2cU=3b6"
  1383.     A$ = A$ + "K\UCX<GincQimlKSHGhWKNo9I4#]<iP>79JD[GjF6_]\ldZgZ:ZDaE2m=cha"
  1384.     A$ = A$ + "9Gg;Q_25X3aoL;9BmNR=<oC1iDlN<#d[lkKUU:moFZ7NW9mS=XS:Ie9A8CDa"
  1385.     A$ = A$ + "ohE`9YS4[;<6;A3UkKjWZcP7UCb`#T0QDiM2#=?=8e2QJCX>aEdAiP1_OOiV"
  1386.     A$ = A$ + "aVJKe[G5F1Ee1ZV[25#8LKXf?kj5f>KZDZ[V6TE[K[KL1Yh2IkoU2R7J^n1C"
  1387.     A$ = A$ + "5SK>G[?QZTSDGkj\DFB7aJ5E#0To`:I_DD64gfDn;f2<kdFdHD7C11Vi_H^O"
  1388.     A$ = A$ + "Q`kD?b?B1dES8a4ghFC`GZ]ghEWJ_Ef;i>D_54Q=LM>Xk[;1D5`b]K[E`WGM"
  1389.     A$ = A$ + "HF_d8?B1lUH`EcW\68Ic=`GV#MkSSfP_=:a2mR33ZmV53i^E_P>:J[5Y6lf2"
  1390.     A$ = A$ + "B4d>208\J;PW8m5F53HNPCYj?Rm0jd##2VKND\CISQ^9[Qc[MJRTda;PkJRL"
  1391.     A$ = A$ + "o95MN8;^AFK9JZ00k\7U#C8j7?fYkf0K94l9]bE>`ldNEcfOWWle:4lUfd9R"
  1392.     A$ = A$ + "K:VA#3T02_O3MC?K`gU>TnOE`Jk1k`S9\N?4?Y=CNSWL:SnneKU=7`OR#8k2"
  1393.     A$ = A$ + "9#>`5`0d`2ec`6NSW`Z]bO9YYQHXkX6WhFQ[2PXWFO0cOQ5lL_20LEU=QN0T"
  1394.     A$ = A$ + "Qo1U?T`;_aTdXA;fQ7a3Z]MBcLnYjDko[J=i2S^S[1eRV>^CfG;AMVnHVEgk"
  1395.     A$ = A$ + "4;5UAlH2M4SH`EOOfc7]b;HWU9[^fnYPnABT7SiiXhS<]L<9NWaoi9O^W#nB"
  1396.     A$ = A$ + "j8EEJZ^=]daKLfU?f>:Wj2DXW_9df\?3HCB93o<9k1R7=i=H8#C?`R]kPBWU"
  1397.     A$ = A$ + "8k[PG\5LY1Sm7kS5Z6lBEWe>BOCBBOK>Gm#UMIH9mRU_S\Hmb1HF>[6NfWbM"
  1398.     A$ = A$ + "?]FiO7lf_R2TYHbSH1o;N\JTW5`m0#=Y=Sf:WL5hZEJbGE6YZ7]8PHao_MWg"
  1399.     A$ = A$ + "ZdFAXRl01G5KV=iTOJ=31#=9SO4fX=Q<UEkC`W?8Z[#T2_X1k02PE4Z7iJ?d"
  1400.     A$ = A$ + "D>hO?c17A24N2`QMXUP\i]Lj?QjM<YYTLR<8k8cYniQTXYVXN:1#e4XiPa7f"
  1401.     A$ = A$ + "Mi;\V25k2j9fG3MR_#>46HA6m_nhFOoOdndEGf7dL\gPWkV3SiWCDogMOa:b"
  1402.     A$ = A$ + "^^i6mV0Y\DjP>]J2W;^#C^V97V[6CRRb;6_CjT>c`c`aceTd]`kI6]HJ2?^6"
  1403.     A$ = A$ + "LKX__^=6f<]YARXX<bheL;IVj^V=hEXSkU\]904]h5idj<l#2>M;:`LACcJG"
  1404.     A$ = A$ + "ZogGn]=7UDkIZPMRK7QNe[bfD0lX\YU4Y4K\W;a:<Udj[]42#KVdN;^Je_co"
  1405.     A$ = A$ + "d8lDX^^oCa9DA:n^C]okH69D;d>RDBXb?:MLLDKELK=3nP]4PcYh_k4I`gH="
  1406.     A$ = A$ + "hoFhQ4GAN>CFFgL0e3EGUcjn1b#:1l53Hm9?AamaB]\VXfcXW1]4L\2ChWnn"
  1407.     A$ = A$ + "Ak6A?61m2n2nHd05e`eIJW\GloXo542ERX:Ic_TSgLFUM[[4I#XD2W7]5kbh"
  1408.     A$ = A$ + "J>;Y^\5HUmLo<7daNMa5j5=G=Q_3L:liHg[360\dO:VWjODC0ZYlJ;L6j9=c"
  1409.     A$ = A$ + "\_5OfeeQg;J^PHKG\DbjYeokI04REeGg8VFF=kFfYK\Bm34Jlm[Cm0jRP:>R"
  1410.     A$ = A$ + "ImMXdnVUYbfmK`GKch[8M<fU#P#88>ASnfIEUXM^4F>[WE<ZI:OC#\KX[F#["
  1411.     A$ = A$ + "XkVkk6dLI:F7>CLgR0=cWfVGB8CSK7eYY7[FS>424oHoZ<F3XfX<UZYQSgh2"
  1412.     A$ = A$ + "[:>JSPhFlPX<BmgDRFeC9AIh_<n#l6M7_LZ:5X_gD^N]5k#SHXXaD99:iV`D"
  1413.     A$ = A$ + "oHg=hF^T9UaaG7LJPl:]<V:NncKkllL;3#6B[fFIhnT>WWILW14HIUhcdD9f"
  1414.     A$ = A$ + "ngo4>9hAj46l`fcQF;c3Sh_0=\k`82o^9B<?MICL>A#aBCE2GW14VCogc0]K"
  1415.     A$ = A$ + "`2VCa[c2gO843E0J90QLU;OM]_bbHJL53DiC>mnnBNc1a0AL\jon_anWZO^Q"
  1416.     A$ = A$ + "=:dB^kcIjCXWbh7\RekdjGaDLB8[#NCDo`UUD4Dbl<Y:7Jodmko=W8\L`;UG"
  1417.     A$ = A$ + "Q<OI3W^fhH2B#d;NKEOjlIE7i5A>aimRhD#6IQBC6e[2HZOeccOAZ>HXX82J"
  1418.     A$ = A$ + "ZBOKRkSn`CjoWGRKW2KYdE9j`W7YnDoX>ST^MdigHIPYA>ii[Ak=V`CaV9=\"
  1419.     A$ = A$ + "XAb=DEdB\oD=KF5m=TD6_<nn[JFhc6bGQiVkVKhWV6E_Vb2Z5\ZBNVgdQbf_"
  1420.     A$ = A$ + "DVDfRK=OF`TRO6ElG\=6IXSeZ<Oj_gO:PSR6Oi3\^?Wka4I_FTR<3\ZBYh`m"
  1421.     A$ = A$ + "]m`Rl9#N;8Fje_96^=:5JO3VndG4PZeZ19FbLkCACGeFna6n[RBm1197`:5:"
  1422.     A$ = A$ + "gIDCR#g\;\Q;k]kKjd3o?3oSA96JjN8EXAJ4lmi5>e^:HP40[mWIRXS\BWoN"
  1423.     A$ = A$ + "5=kek?cal#Zf9;7Pk#W6C#^oloB[o``dJkeIkoj\J#Wn;JQ9NLe3k2nV\CR<"
  1424.     A$ = A$ + "TQ__e<\L2cl5gCF3IFhl>5>b?^4AP>D?MYGOkEWFO?oCgf9V`k[hIem_o0#h"
  1425.     A$ = A$ + "Fo<XKRSDKO>k`gmmVU<#8#>S#h8TRSWH=Gn7T2H\>JcFaP<5oJVNTZn27`7b"
  1426.     A$ = A$ + "1l4650<LJHVJRW9#NASoJUTi[7R1<7PJ=2l2o0S8gE[OV0WK5K#\hnDZJ;BR"
  1427.     A$ = A$ + "9n#YHXgfm7VYdRTbV<4_l1]4MNoc\XmYJhM`MDKfahUfRS4gGl\gKRE\Y6Vd"
  1428.     A$ = A$ + "RLghl:fEWdY9hnb_ki[=1K3K0dNhedF<CPKL\HAQJLFLH^i=Phd<l\65\DaK"
  1429.     A$ = A$ + "b<>iQS1f8n#OY3GmLIFI<d3AVKH?lIOQ78onJH2ki70^XPRBc>eM[\]]K_Z="
  1430.     A$ = A$ + "nYEo?_BlA\>BG0X>C;RUhGZZ:aa\C5PWnF3YGVce1M;h9fGh[UH<Mn:YcK_0"
  1431.     A$ = A$ + "QPmP5Z\A:RnN5?^\1`7Ij_EWEZYAGkM#maWEg_=I`iT^1gF3DPSW<]#b]M5P"
  1432.     A$ = A$ + "Ma;mc\`56;gFdWoBUhB;O\_[b4dd5dTW5O<3N3]gmFSh1O?1Z9XUCkoV2M\_"
  1433.     A$ = A$ + "_l]ohJ7H1OX5F<1QOTR8Adg#Gj6i>^e?hWkgS[1SM?89lW=hRXQmhMX;X1c`"
  1434.     A$ = A$ + "WGN6ZGFDkcF_HPY1j9hNa\;[:N4Q>>Nh3Cj]d[hMH3OoJ[[PG9lU42ETP^M1"
  1435.     A$ = A$ + "N`82]#>47#;WI=^B#UO9^#H:Xg0]K9WeH6L96j]eWoBH^ig6<Sjh`F?nS2g:"
  1436.     A$ = A$ + "1SCZ0OAW=R5412:PAIYHC\DYXlogc6h\BIoV2<9iQFm5I6?\EXU4Y53CJ#b]"
  1437.     A$ = A$ + ";Uc;d2ETT4:C#2W70HU_[SS[:[IRD:^fk4ZIf:2iXh0he5HOC[g<>>Xejn0="
  1438.     A$ = A$ + "P^JI3Z8LD8=HSE;hoWilI6^biRQ^]1UFieXCnGoGOGPR_NRPW\Y7f8IK99[l"
  1439.     A$ = A$ + "f:>XTKSCi#<#hRhd#VN1CAFW2jKXb85T:3U#OBSDJem3#\SJ43`8<Vc`05#I"
  1440.     A$ = A$ + "n40`2c1hA[KGMP1cAgnVV8o7Z0l_g1lo\mnL;^Hb>ODdHkah?]9J>MdmmG##"
  1441.     A$ = A$ + "RJ5?nUckY5bndZXE=4KlX<lg_oClc42=X]FmW^Xc<PE\n]_ND<7bAo;OkW68"
  1442.     A$ = A$ + "V9IJHKZ_[QEne`;lUf[I][WWCVW_N0Qhl1kV6U8nI5dfZRE>4SB?7J;Z6OK]"
  1443.     A$ = A$ + "TR1CIIVH\n8mh_M<\RYbNhONF5So`o>1fBZPB33S;736b;`ofUBclOiR:Ff`"
  1444.     A$ = A$ + "Jj??B4>YJLV?TFG5X`eY7[MaT<`l:ZN`^FWB:`PbNNM8Q\;#`gX<DVfIe<]6"
  1445.     A$ = A$ + "Ak<jm>An<GnieVM2bcHbl]E=A]?S9JA8G0WZOGGU_h>f4B;d4fWHoFLPlJYT"
  1446.     A$ = A$ + "Y]7M]V7MH0:_TJBWj[`U]4<MMAD:IC\oRid#32;i4[UdG?YE4J34jHa]leR9"
  1447.     A$ = A$ + "2c^W7S8iIe8e`0PEfBidZY5`J69dc;D3Y2nJC1#Y2S`BUm9LMd9fDRYWie?_"
  1448.     A$ = A$ + "g3h1GkRe#f0l\FggTON[U_]NjP`M_4_NjQEgHioU\#V]SPe`GRD5m^nhf]73"
  1449.     A$ = A$ + "NYh?DA`FMLQUT6\S[]6aHVF?iG94Vo2_3`9Fm`3icZ=EX_joQK;De<alF5Sk"
  1450.     A$ = A$ + "D7FS#?3i\FK2YQMB>4RheLdB:Xkg8f7OPgiQhEbm0BNZ3baa>9ChoYg#WI^C"
  1451.     A$ = A$ + "^CZ7gS3c8`0jW#FlBE]E=bMASLaGe=4l7g4lJ:BW8R?<RV`e<iPn`PH2aR4k"
  1452.     A$ = A$ + "><#=\6[<MfDODLeVl8IedeC9EVHU5;Gdcjm[WfKB5ABD0oJi3WMQBYJ654=#"
  1453.     A$ = A$ + "cMZW>LNk^<f2lJ#hhY:l9[\jG<UGDVFM=SgDInchTa:<kiSSa_eh#U5][Ygj"
  1454.     A$ = A$ + "IlWLX]fh`f1Z8;]OAHOiEk5WSKJPjSD5TdkXkmgY]TbSGF69=QDC1T3i#dfd"
  1455.     A$ = A$ + "CY5=o[Q>d^`gLP`fdZfZTL37cnOg_DZhGHko45a3NlVJjjRLfC\PMf_]W[>K"
  1456.     A$ = A$ + "_Jl>5hQ[2KMmUiBOIdQO1JBk_jZ[jjTlNlV^NL7GGVMYn=X14>i4YE[8EbYc"
  1457.     A$ = A$ + "enJEWcMF<>cZ;c1jDlXgTH#?L0?FQ]hZ0#biRPPl3om2Uo5j?T=3Lj8e89N;"
  1458.     A$ = A$ + "NGg>cOGJCYmC5`L;#6TealEI2?B;?^cM3f8dJY]TTKI<Qe7LIY92chZ=XVXh"
  1459.     A$ = A$ + "Ol4m<VM<ZEj6:#4HDAbJml]?AN10oXODOcXJfVA3\NHYi0h=G8nOZ?QLk><m"
  1460.     A$ = A$ + "`fQLUDMMFN^6bN6]loFLik?Hi7>`ek_ma8:ha_FP[QHkMg]deMgEPd9gj^^l"
  1461.     A$ = A$ + "3l;gecEVIg]h<8<KhPoloYfZooQZ<oa^IoikLmfK:>W;7M]gMj3[fk`Da?S<"
  1462.     A$ = A$ + "Bn<fTHlVoMITFjkN`f2NLDZ:8jmE3;LgAFYOG6m1<46;bZNfJ]OlSH=J>ZPU"
  1463.     A$ = A$ + "QeLN#_GKoA?Km[kMh<ig\5F?PMJi:G7:JOmmjE0OY\;#bl2b_M]\^JVfnM[0"
  1464.     A$ = A$ + "<`S^la4`\[7U]XeC\jKA6aER5[RcO[UQaOko=P8IHhKoVPoFI4l;O_c1m`#>"
  1465.     A$ = A$ + "KcHa61XmJVc6M8#bHEHY:S5;[AFO?;hUmiW]:;1O6eblOoV#hgEakHiU:[:U"
  1466.     A$ = A$ + "5jfEGMCjLl`:Hdo2n`_6nTJ_j?Z1;D7i[19oVIC1i\k[Joc4^cLWB^KKnghc"
  1467.     A$ = A$ + "nGGk37A2gnG#N[0WY4]ZO^eo?KOgi_LY^4`j59I>1B<96DNEnOl_OLEF^lF2"
  1468.     A$ = A$ + "=G^dCTZBlZE:WdVBk19j1\cZ7mXi6OMVQLNP3\E0TC<7eULfBj[K>ljV75=#"
  1469.     A$ = A$ + "B^e1mZBS;`j_i4Ji5cdlNI>G>Qo_5B:c\U^e=jaENaO>\^f3bjG0JLecYXdX"
  1470.     A$ = A$ + "[HE7M\O=JfhSg0D[g7n1NJIlhFS97_Y3=YfSg_af[^E[oXcU>AbG:gPJC\A;"
  1471.     A$ = A$ + "dV4F3Z]2[C4G>j3S6OeBiWcim2mnV4ZTKTl^?Ln:?4L2;_JJKYjBk]:n9^ZQ"
  1472.     A$ = A$ + "11jL9C8N#6C1DXE][POidhMbS2IEW:VKDoTVH3;\_M1SUKXOX[5lNcRFo_H8"
  1473.     A$ = A$ + "iC9UnO_?>RAigde_J7FBg_fPlo#obPGORM1[oUKG::W0ifRhoE0C3P6OYho]"
  1474.     A$ = A$ + "4fYS<f<h;k^T1JffWYfNGJeo:\TdGI?;EZ^EoTjR`#3ICQcAcCnboJCX5:;1"
  1475.     A$ = A$ + "4Q^lDg2cVcXYYid_SH8#U\ngJFDP^mj_#3I<li8hk:oEnSH8;l3];hL#ha:G"
  1476.     A$ = A$ + ">f\HmPbChGbLWmGFoGg^kkDc<g[N^ek3eaC#RO0If634IMd[HCUn99ggiFIW"
  1477.     A$ = A$ + "JdUoMmhiSYScT_TAj<el;oIZOOVJBA?;YFdneLRV5`1k5H07L?JdAmaFMmW;"
  1478.     A$ = A$ + "Hkcd`Da?4b[?:U]e;WPn[QLjCA_=CY6hQ[7LKn?<[k\XcGjQ0kGRW066oCT3"
  1479.     A$ = A$ + "MDo_5a>?#ek`<ZhA53;7TNDXV_W5l:fbW\MBg]M>K>#GKd^7Y#L8Oa2cji<f"
  1480.     A$ = A$ + "e#;iCTTo_n5TYU?j>C]1_1<<R_8oQ_EE9j#RASFV#;Y`UDnBG7Beb=KJ?KSE"
  1481.     A$ = A$ + "[6^YdUg0OH5GXEAKo]>Z8ihHWEhJLdfDQ]kCa205Z07f:GU=5:Q?ZYA:UK1Z"
  1482.     A$ = A$ + "92ClUl?A5_em6a`<eSL8SmoUU>2nZ\12Id`6Ga;<ESY3fJdi1en?GBmmXILT"
  1483.     A$ = A$ + "#h<:jVH\]Bd`lOOCn;WRS#ngNSk5?5UK>Mb^QiEN7_gI8\[2Y^WT?bMoD?mO"
  1484.     A$ = A$ + "H]kG_#>KA0\elS>mLW5DT4=\7F:7Y`ERfJZU5aR7#Mgf\RaaY#WSN4R`M0Bd"
  1485.     A$ = A$ + "M<\WOH\mQW;8oXH3;]6P?S\UVAD_jfZQ^;M6ChNDQ47nk2`a03:BO=7cP1Ua"
  1486.     A$ = A$ + "jLD:hodl^Gh`BZkn`5n13mLJac=md9^D]##fPnj=4=NCEloR[Z`Lmdi3N[HH"
  1487.     A$ = A$ + "fXG9OUm:o3iP]4j>HVIOZV2K:PF1N[a2DadMn;ZR\J13R`VVX1b<mm2?=\fW"
  1488.     A$ = A$ + "C5^<[GSK3IUiZE[Xg>F:gOnPG]<;`oP0DM1[7;XAd8DRijA=5fAD7oO:`meT"
  1489.     A$ = A$ + "<gJ;]^>#e4jZ5SQoNd5D#dQXV2mfF>fl8BThGW=lJcj_4#;A2[Qh;^7aa8=E"
  1490.     A$ = A$ + "\g2YG3\XDK[#>;NWLHEV=b6K:WF0kbK05K_]`KWo99NRnhd:kOVcjknWk=4m"
  1491.     A$ = A$ + "MkM_[U3e[?JSm7D1NRAf3\g1K[Y5O<aY[F47Q^HebmZEd[3:d_PG9akG4Rm_"
  1492.     A$ = A$ + "Ygdak#=0]UVOcnmQZoF2Y]XHQLN[YnDOGa^<fGFiog^C>M7V;;[=RPEY05`\"
  1493.     A$ = A$ + "eZ\1LI#7Hm6E68?TnOol8Wo3oY6QKHPgg3ICnQ8;:k=<3]m^87TTZcQFIi>3"
  1494.     A$ = A$ + "VCGRFOHE_`[1W^foKna2gkb1mAYXQ\ODdkKdWU7:]he]9EUCJGB^E;\d0<H8"
  1495.     A$ = A$ + "I=n\\\POb1<8Ok_HBN_AXD>K?j]Z6oU`4fN?m_YIGFn:WgfaaG`k2_]ObIAQ"
  1496.     A$ = A$ + "3cY>i7:^dP5GHFE9]hDLbn:>F7>O4^MKOiUm0:LVToN`nT]\PTS9Un^iJOT9"
  1497.     A$ = A$ + "]l7m8;``gbFfmH01Im7S\46X#miO=\9T072S6:Q?o1Yo>3MWY7[jdbGTGM3Q"
  1498.     A$ = A$ + "#K#RG40j>>Pcc`8bD2SEU\i39W#4GTXPQoj[Cm8lC;;m84dl2_GaIG2KLomD"
  1499.     A$ = A$ + "^TMO:lO2IE90GUHm#:_`hi06\UD<QeYDUPQD7WD_Y;j5_EOMh;53nP\U#hVA"
  1500.     A$ = A$ + "l62`IXZ6?c`#TiTfAelQVVBaA[8W\PV7Xb?m3_iL^JGKFlhI4T1:I`ioYciV"
  1501.     A$ = A$ + "U=ccojifjn`c]1kg7<a>kma]AC[b`\H^bliN>P7o>mFAc^gJQfm=B<:AOAdK"
  1502.     A$ = A$ + "i`Ye2M8og?AB;N;N_S=hK[5Bka9UJIO3;U3olLJn`Qd5no2]bTfa^mikH:]N"
  1503.     A$ = A$ + "UQ6a0]_<enANJXRj#efDWSA1>VBU0=8MMB]QUnBX3SAmn[K1]XkGP1X1E]#J"
  1504.     A$ = A$ + "PDUBCEnRK]9M8YUWIASX1GK?J0ai4;<;B;jA;T5mJao:F>In]_>3Th]9m:kl"
  1505.     A$ = A$ + "9]DfUFdk_SdPWA3RILf>#4oinY0<EjmUi;Ti_Vb0;R\X?C=2ChE[Of[K^4bb"
  1506.     A$ = A$ + "]go[]B31L=VdD9=XS]G55W=^TC_ob4oZTnSj\PalakPETj]IHEEJHM3mnPLG"
  1507.     A$ = A$ + "Z\`F=N#O9BGRogKglQIS1\G<d^H0FM[5a\^VNO^I^nhX61CbM3O^lU6]lm<c"
  1508.     A$ = A$ + "3NlP^E1de1YZh3Hem9;NdJR?<jI8<LCKb#KXPC3[;F2]`7VgDD[m6ek5Yh]3"
  1509.     A$ = A$ + "?O4I[UgW#61GD4[NhZ>GVN>CjjJi>e=mMZHX4704Y6HWFnNI\n\<CZ32\TBS"
  1510.     A$ = A$ + "cFfbXdZd_j;o>PFDKO:FSYd88mTH09]_K2EGdbDW2[]=jE1hfO8OPe4`SmC?"
  1511.     A$ = A$ + "haIm5kj7LYCnmiPC6fo?lU>O50C_CPK:iLZe>`BV8j=D2ZT`k2f]\fEV?7[O"
  1512.     A$ = A$ + "_8MTUdEag5H#i8U7IEE[ZGFRWZJ4cN41gWWEkgBD7RRLCcO92Ze>]<CW<hTg"
  1513.     A$ = A$ + "VP`mJ1=P:24AM5CDoP3S?_IUYhjYa5V\6e7I<<W`5KC:ZPoLF8JLT`iXe[BR"
  1514.     A$ = A$ + "WS<gdH[c?dob:l1aV3Ook]10TbZch3kl5e[iePlZVR4D[[NanE8f^dHPJmJB"
  1515.     A$ = A$ + "XA_hZi`F?BD\#FA8XR4I>fO1LkVn4cG5#Xl:[Jg\UYUc5KRTajDK7Q;CS;oe"
  1516.     A$ = A$ + "2g[\3IOVB076Aj7<25^]g6o^AjoQmH2JgN49>50GXQOXIiMLl]J^R43;DfjS"
  1517.     A$ = A$ + "iij2[<T]fBKn#0DBQRdLT2a7lJ=Qlil8MfKmZNOmUTQF\iUol5Fk?YOJ^Jn2"
  1518.     A$ = A$ + "0:2Xbl35ckS]=8i4^I=4EQMim?4F[h_0;hjF3LWC82RQ<i_U<#7oNH`GE;TI"
  1519.     A$ = A$ + "CaDCL4KKKi=HPB9Ng7[Qd#Yj3;MaMa`B;>Q7VcH09^mQCFA#Xi::dPIR[]1Y"
  1520.     A$ = A$ + "jASdOWbC6N^HJ=]?`Gdn9[7L\iU5KkmDfnjCOddoVgY;[b_^[ki`?b>1Z4W]"
  1521.     A$ = A$ + "VH63OoHlLVcK[WR<Z7n_aT:[WMFnOife7W[#TQ_cO9i6Lo0KmalSQUXg33H8"
  1522.     A$ = A$ + "\kOT7]G]9V3WK7>AUIXKVD_X1[n9F8bI:aJFMIkOX>>fS=lFAoEW4Z8>1d4W"
  1523.     A$ = A$ + "XaNG8Y=WA9eiGAY6gDG:Sjl#R2\b?CScnhFMel9jHY;SCd9j:MDA]fLa_Pbn"
  1524.     A$ = A$ + "k\WR=:RC\_IOD4\kmM`^eA52edE]?8liT]\F5:\7EfOYBd8Z6idnW1]TAS^1"
  1525.     A$ = A$ + "9nU^ojd3^hknGkhOLcG5oUUk]E1FI;QTAF2=BmE>4oTK6bcChkd16M#FIYXU"
  1526.     A$ = A$ + "[:K6DQ;#KiK9]9Wk^kA?Hoj=U2_oBBAoj7#TSg_L5RFL_T84SiTD5lLcdVlj"
  1527.     A$ = A$ + "AldSH[V[blk92#d856Pc3f2h2[3i`2L\Yd^;fe5J`4Ad:IG<^mI?;NmKAYB0"
  1528.     A$ = A$ + "40bZe]X>HDnUHUo35Y1dbMdldaebnmZ]3_]m3MC\[;EGIOkoN;0`1#6ThhLo"
  1529.     A$ = A$ + "MWPH4XW0g6IKoC28SiiFDj>W<8\<\Sh0A4^n0<LLSf^j`5d1SY5RMPIBEM0H"
  1530.     A$ = A$ + "UaBU_Jl6OccM0>SQVnP70^JQm<h63[1j93g_??i^<J#n7VN9;dSBic<14Ifk"
  1531.     A$ = A$ + "YHah2okdo[d=#OQUFl#;Aefm^CT9#lJL2Z9T2bBf;^jh8=4CHF;O^f=3#g=<"
  1532.     A$ = A$ + "bEIjn:I]1gMQCh29mG^UZekIg_7NACB_N5?ZC#k\SZ3`P5B=a5EOGFRU<7nS"
  1533.     A$ = A$ + "INo<Kak]=KWNC<:OGE3lgh#>80B>?YH_8Q[TbBQYAb:]CTGl\=T>;hCJWDnf"
  1534.     A$ = A$ + "hg<5OUf>`2nSiLC=ib<j4kW:4YP>oQ`ighMn<=^IVC?_WCH3M=?=k?#P:VX8"
  1535.     A$ = A$ + ":_VBfnfXkoOZ>7;GbSGAcJKBT[o_l:^E\QG?XXCmk;:BAUMnPjGWXdcjaWK0"
  1536.     A$ = A$ + "1F?B5^ilFOEiD9HV_nlT;Q?<<#SAgfko4eYJ^_Z5EU84?`3oQZU4T^Pi<_fn"
  1537.     A$ = A$ + "b3_DcQCgk8a0l[KFnZ3?f49g_b\_><[?k`je`<\eFXcE:?Ua7a^2XB`9bj[^"
  1538.     A$ = A$ + "T3[ZcWI:L0QPCo3;CoO[=LJL]_jJNeP^`:d0FiOZ_^EI5:G<db`FAP1NPSGD"
  1539.     A$ = A$ + "NP<a=#YBnNjO^F7YMLG\UB5ZYDF9F#R4H;N?WHd#Qdhi]=jH9;FDdg9dT2Cb"
  1540.     A$ = A$ + "432Seh;Y>X0QgSE3LcKCnGI`4lQl\VDl`FQG9FSfFddRi=5Q]4\CkA4UT5:d"
  1541.     A$ = A$ + "^EN2`ada<KF]04D^B;d_Obl_lmA`QC6CeNUhJ>R?E:\F43Y<1<:C\UHFJc0U"
  1542.     A$ = A$ + ":OdP\ljfhl<J#W=7XYe5bj0NkUkTVmk#OeS2B[Zl7AdfFbl_NL6hb9Pan>mX"
  1543.     A$ = A$ + ":JBA4[o]k4KhieNPN7olInB?og_Y[0i<VTHhaPA7e\ZA#e`UKIM_BImn9hK<"
  1544.     A$ = A$ + "J]f4]VfNWDWDo;#6X=oPc`SoRcga3PP01bZf^?5RH7GYR#OPZUH<9ckO3IB6"
  1545.     A$ = A$ + "gP`2^\2bSWgQinA\O]5;WG7ER5Z0Sg0Q8316I8R`iT824Oo5=9Y^^f5[UE\o"
  1546.     A$ = A$ + "P7dV4gbL=F3eR4mdISInI:1ih;d03R>DXnM`cUNRR]IJP^UJ[<3ok61QZ]c_"
  1547.     A$ = A$ + "T7=Abmmada:B5hRS#=JO[iD83NfU;d\`Bd_OLZ22CVaHKWEN7g?A]#aYX>eR"
  1548.     A$ = A$ + "Z8^6XXaR^gVkW0c4=lYHng;iC<3<`XW=W23miKC75VHUm`6iKY>?j>o?0T2#"
  1549.     A$ = A$ + "Fok9fa?jLL8>Gc;;QO944\gS:b^Sgk:XWnEI[>2ecLC3hk#Fk>33o;\07AfU"
  1550.     A$ = A$ + "N:YT8i8_aR`WmZMT\VCg_e3PEQQ4Y]mZMNV0S?Qc=43g4E`WVbVTQT5aS1fA"
  1551.     A$ = A$ + "3XmME5Z]\3TEJ>dL#\1T\^FF1`ZHEokkJS]`iC:P\T71<gB<dkckGf390`:S"
  1552.     A$ = A$ + "NT9S]bL6ETLclD1MCV3]BPe7oa?i7l[M3`Z?<?0_2;=kR=;WKg<<V`EJln7m"
  1553.     A$ = A$ + "36b^X>YME<nYijO^5cN]83LN6<:K82IEGQ_\i>BYb2^cTBTQIMVRX[7ECHI;"
  1554.     A$ = A$ + "Vc8aIA`IH7d;HTg^SZZ0F=FKIKc[KJC9bGPP]^;5AVdjan;j#Fd<I6g5>=7J"
  1555.     A$ = A$ + "Q\]Y6;YeCJVFdTG]CXB[i^k#1AVLh]hljFW0[RXD7QR0HQgW=`:?SP8X3bDF"
  1556.     A$ = A$ + "<=3\o#A[bPi1YJGRX3J^5AZZRMlKU\CP5?CPDYPZ9E3JL1:5hXYVWeBG9B;c"
  1557.     A$ = A$ + "kg^jh#SGa<oS>ENQg2\DB4GYQoOd79P5lUO?lfWa#YfL`I?e64H\eTek]3PE"
  1558.     A$ = A$ + "ECKUThChdF<cO_FgLiacV7\KM8[<hFQCMfB1]=7RVA0b]kHcO6Ha6mScj2MT"
  1559.     A$ = A$ + "K\Wh7hSmUemX4k5[[DhOVPb\[0a=4K\MVB9QF`FO_LgRm_]k:#4Q<dbjGeXE"
  1560.     A$ = A$ + "DDWQcYcB>bmUNMJck9UC0JMj>7LTnU^>c?`>?YHoXK\]Ai91\2II[6#3PaJE"
  1561.     A$ = A$ + "]3X=>bMbASf_4]jK=9=8kn\\^aTbG_I3E8RbHF]UV8`5V?XeC0[bVKJX[9VP"
  1562.     A$ = A$ + "oJEML6ND8oeIA5[UUiTJjA0[=5_1m8]9mcA4:?0F\=;DN3PE:8ZjQ?IKCPEn"
  1563.     A$ = A$ + "H0^0Pe9IS8_CmBAoBRQfd<QV4lhZI2gfS0FRgd^?V=3Wj`HQcjDP]CL[L2>b"
  1564.     A$ = A$ + "`M<LCC7l^b]J^VI_FXLAF<9RA8Z?L;`b6WeE[1QD26lXNCV7fi4LBI6^f?1\"
  1565.     A$ = A$ + "jVQZl67VfQ_5\]g?1\LnLEKL9M6HYDaM0\DI0;W`=`JbB:#AHDQ1F3=K\1N4"
  1566.     A$ = A$ + "JdS\9a<\dZ\_hY>8W1FiC0[<RC=>^Q=8^=eS[<gTIXSV0;2Wi1RCPeh]Vm[k"
  1567.     A$ = A$ + ">oAd=\BX#F#KIC]k]1idIP5eNj4l_TV\[J6_LGYZjG;JIEW0;eLEffLe`Sk_"
  1568.     A$ = A$ + "]N0dhh_TA1IWX^MVPiSgngQa[Rg:fDeR_\mfjfAJQ0>8aNVe1`R_19G2`Y2^"
  1569.     A$ = A$ + "WBR`:=P2[GXYD]ld]fC7m7I7H;NQc=A5U4LW\NA5gBaA1INMe\8dN?\7Q31_"
  1570.     A$ = A$ + "#gaAQZQ:ddHm#lR:MHf#cc=;jGc2JIhR[ZAKd^G>0F#W8JaVCPUXS8cl6KSA"
  1571.     A$ = A$ + "Q?F3UP;J0:[aoK<fiB70jE=`mTQ>CPeMGl`;0WmE8`B3hbg:`JGX;hPBLBO#"
  1572.     A$ = A$ + "KVC0[5g8bl5VVaL3`jPCE7]l1GLgEgPJWfWI^<c#U`0IX`Ub;5[V22\X;l4f"
  1573.     A$ = A$ + "7bRGe=UV7K]<8`JhMC5E4He]?^PGF<P_CICK1GIkb\8AChn>c5nj55AGUNSZ"
  1574.     A$ = A$ + "bFH8;2#aIPEa0[UXGmHJHfL=>\Y18P^^eY6[6c[RlJUVI=fj;ZKh?k=W4H5b"
  1575.     A$ = A$ + "6]NnZj8DGN:Y`Noj[46fc5^5=:j0b2>RTNa1`B]66mNHc1h#h4kD;<4;kn=G"
  1576.     A$ = A$ + ">MllUmZi:c[2?g97eH?EC_RjgPZiBeVkT>ZKcL6HMEj]XBVffQoH=5QJWPjX"
  1577.     A$ = A$ + "?RJEU<cHZW_TTb:Wml8nGRTS5cW[n9PeRJKf3_ahA;ZCO3]DA8C;K:_dKb9V"
  1578.     A$ = A$ + "aGi9PeNTH6=S=5emTne\dk9c98Qo>3\ji[K1mY2Ed5VjHN^<1F2>9WP[i3`1"
  1579.     A$ = A$ + "RLM0\JA69Lo<\>=KHfX9CH54bFEHR9a7Ci3^#`c3gfL06kJRZHVL>1FEe^HJ"
  1580.     A$ = A$ + ":\X;?E9fg^[7Snf5A]:Vk0hcRU=kakX8USZYON7c4Ok##bCbDWQYN0\ZhYBI"
  1581.     A$ = A$ + "U^9HPe\m[9JA6C>4ldgj65`jMF^2WB6ZS1`2f`;RMiHC:_LfHh9I>FZYXUJo"
  1582.     A$ = A$ + "36bjie\7Yj6H58;MH:7KB^mEcO2IE?YMCY:S1_BdY8LHX[bP3^6O]k8J6bb3"
  1583.     A$ = A$ + "^RZESNZ<3\<HKW9OZI#NW5=eDFXaJB9W#cZL>0a=?Mg23Uh<RN6HAIgAM0YH"
  1584.     A$ = A$ + "PIFbZG[FhYiX7o9U`DS#U\aN:K]j:U2nh]bK]>7o?JgZHZhYd1fml#fbZfj2"
  1585.     A$ = A$ + "#EPVOJBHJfQLTAWE7iM7XeQ6;9K<n8BLO970;X11QZA^Y>kF9TRZcmZ=eNHM"
  1586.     A$ = A$ + "4BKT:HaPeAM?O?2EhY_;6Hm9Ob0Hm>0>]KPeemX=SnV0;gVCMc:aGhgaDG90"
  1587.     A$ = A$ + "F6CL3`Rm7fX\9>1\N7g\SgUV<1\L^F<G`X8HI\KJV4?TNWg4H=`2bP6ZP5En"
  1588.     A$ = A$ + "R7KZj[RF;?UMAVH77X9#T16=<OdQAFjhAaQ^9`jM^f5Vd0;5K12\fe2^VEHN"
  1589.     A$ = A$ + ";bjbC0[gAM79jEHQAZ01_R1ag0;NVT7\j>gQQ\fK?eJgcIf1NGe84bm?OUeb"
  1590.     A$ = A$ + "DIfkn:6Hm>dl:Gn5K^bNjJnOZ^7;KnPY0Xh^kQTU=T?enhZ6H=k4Y;bf<><5"
  1591.     A$ = A$ + "XQ<a\Hd0[5PZ^2R6mZ[d>;RZ7?_U9G4U\[6^jS0FJX1P_E1\2bj9n[59GdQI"
  1592.     A$ = A$ + "AQF:OXa:51W8:\QB[Mld6\nVE[G?6l:^ML;=FZ<nTN6>A1c>2Y]hoY\5AnX#"
  1593.     A$ = A$ + "K[W_5>>#3D<B6;]K>ggSc_`4bKAFWaQTIfS<HMM1dMW^lV5aT=7UFIZY0i1`"
  1594.     A$ = A$ + "igK1`ZNBSUJDPZ?BSPcS_9`8a=cSJECGR5W0^Rj>MZ];BhS<12mcBLb8HdU6"
  1595.     A$ = A$ + "WG\\QP:9=bFIY=TmeU3kZ5?IiRJ757jV=`2cDK#g_D`C`3=FR3E8lNYn\j5W"
  1596.     A$ = A$ + "]H=VgYTk2A=gQo^5H]?0<X<1LM2Tg^2WE`;BcT8jH3Dob1F:6?M_CICn[^L:"
  1597.     A$ = A$ + "SnToiS2E^Hgb1c0k>OQF]IEI0hOFP5i1PHWXR2VVA:R1am^S:oIP5ci6nKD7"
  1598.     A$ = A$ + "]jhE>5jiC0;iMGile5b`8RTE[3TUl=OYZhR_#=BBaG1lG?1>V4h[;2nAP5ce"
  1599.     A$ = A$ + "Akj#]oUX_IA>KhQd4U=7IPF?2I5<[Q1WWB7bjYT;ZejS1FZE260[n6><n0HE"
  1600.     A$ = A$ + "f6FW_^lf0FnPSg:`BCKKaEjHF:L3`2i[oFPeH7Wg`h5km8NS]`VfS=;V]_V6"
  1601.     A$ = A$ + "^[R9iQIk2He2SB[ig:`R2T;VEaA4IU2[lTGhm`NY#FX5]EVYa4TgYHJ_b7ZR"
  1602.     A$ = A$ + "FjA#W4OA?0FT?<JfT`0ha4VklA?dXOa=;HM:=YTklj:KR6Jgg<=K9OOB\]5R"
  1603.     A$ = A$ + "7G<LJ:BLMI=lDFF#CLFV`V<8l7M7Pd[:Xm0H]DC1]JMQ57b:^^7mLABlCb#["
  1604.     A$ = A$ + "Tih>M;<629<:[<9dFCYWAi:ig:2YT\SA7j7SU6EhZj;KNM;bTb67S?Be#m6P"
  1605.     A$ = A$ + "59fZX4gi^R]1F3[\N5HkQRhP0Fn#A1\NS\#Ol#R>`^ECZE#[h<:=EKKnlUl1"
  1606.     A$ = A$ + "`BTfNJ#JR6GemAQK]PU<V2H:MlBYS2>k9PeHAg;kTh;ZnFC>GSbC9n^PeHa0"
  1607.     A$ = A$ + "`?N:>GcX^bI[K#QlVP`ZY<K5?eB\GaYA7FE5Oj1`BDkmjFLP[JiIi^6;?lkI"
  1608.     A$ = A$ + "GZ[9`jdmKfm[h18QJ\`92GgYo]HIbZh#n#GM]>T?T]T:1[II^2E?HFM;0[Wa"
  1609.     A$ = A$ + "cY>noEf7oEoR4mF;aE9OEVdEZUHk1eJ\BE?cfEm#O6HElXJadKWS]D3\bV:n"
  1610.     A$ = A$ + "fO#?LG=`ji4HMmESclfYMEnX`=5786Qj]]`9j^J;8NcjiXR1AnPC2i[45kPL"
  1611.     A$ = A$ + "^9>:ZVF^b;`I=F?Oa6C\YlFCSYHc8V?ZI?9X#]HbS2YX8T]SC#Jk1oh5ggTJ"
  1612.     A$ = A$ + "NjUiV1FTK:E`]l[G3I1e`iY`j4kMC9?RYKZREE>GbX;IGIfVWGGYHb7H;k3h"
  1613.     A$ = A$ + "P5<;]kBg3Yi7YofQ6[Wch][9BeHChZ:g3B[T[lmA3\ZV\7JV??g[X1JeZk?h"
  1614.     A$ = A$ + "XXJS>b]7YP:P3ejR1FXj9T\Z6LZZ[D:VfCfReU32>Y96HEDl\S[;eKdZ>9m2"
  1615.     A$ = A$ + "4TS9<7?3DaM=o8PeObcG#h[6J\05Be6R>:Dih`N1eD?#dmA6=KInC6bFD=Qj"
  1616.     A$ = A$ + "ATW8QR3P_LUdS:7nNVjg`U#f:9fY2F]nCJ3VaT6MDO7o1PfICfOC?PQ\2a80"
  1617.     A$ = A$ + "o>i;>I]3RJ:0Zm#S5cG2:MRa=I8;3Y3YikfeMiLXdeEDO<FJ\41ld1]]im[i"
  1618.     A$ = A$ + "nL;HAU;8>#SfPYd=2\HgZ?QAg`DfTVCCbTg^:#=HVahHE6_=g:E=Aj5YL3Ic"
  1619.     A$ = A$ + "^hj9iPd\D=[I=LFUK8J^d[<7`\m=VHhHmeE5Y>iQCg<aV]?5b0=e`7F`49J9"
  1620.     A$ = A$ + "=kXYcmiF`ibJ4d<gFLI:8ATk;ad]6QNHMNDh?40;TcZXj=NCPUSPP=TflYc3"
  1621.     A$ = A$ + "]XWK>F[jIH9g?3\Jji5:F23\T5gCI[NZ^il_iRaN2\RFTMg\G7<8]7bZOIg:"
  1622.     A$ = A$ + "jH`g70[QF<VVe\eID89=7OS<#gce<JH1`jT>S8Lgihf864PD2\4eo9`:6\D?"
  1623.     A$ = A$ + "OA9O6AFCLoPF<cH312N[QPBYHKB?1\dN5WQV1`ZC_0`A4\#XHl6B>GfZYeS?"
  1624.     A$ = A$ + "[UUaJ`>b9PU6K_S;b:OUXZN1Bj=0F#f\[J#jH13N?:[lN67Y4QW03>kDLVR1"
  1625.     A$ = A$ + "F#FiUoaX[59;N90F\EccXH#km;\oWVV0[4=bPfS\74j=W4i=I66hcn\\e]k>"
  1626.     A$ = A$ + "A]_`boDj;l2YeSi>7YiTk_FKcaYKGWE=UEZTKARMS0[jmLJNW<lJ;0AKQ\6S"
  1627.     A$ = A$ + ">9EWNX<^X8]BXbG`1XD?>QTT#oQ\\amXIohfn<1OUXnAZAP[5SjYmfe#FN#o"
  1628.     A$ = A$ + "f[67OajZUef7c#l:N1RTSl:\aR_HXQ=C0X9EL4`Zaf?D;RUceMjZ0Re4K^6<"
  1629.     A$ = A$ + "[707]60[T:1nBcj#;:>j<1?j1>>#>?[:;Do45Hl>gW?j0gR=aMIB>]3W9bQ7"
  1630.     A$ = A$ + "oQf312kVh<GLo6EO;b`RL_Zh1D13^#=O`o;IEo=0;Ua4jVR<Mh]0\Ha>8PE^"
  1631.     A$ = A$ + "N2H5aCV=\gc0;fJTL==XXP_[BFh6PUC7YLJ`EUT\KR3393\^ZBiiA0;B`4N8"
  1632.     A$ = A$ + "4mU6Yb]1ENSo_QAEd^<\k_QD=N3`:YRmdg_ZjGMXB1`:;>MZNM59BRUUVoQN"
  1633.     A$ = A$ + ":cE7DTF4M:e6^e_UF?aaY382flj60;4e04OGiD;LCRWoaXSS:a0dVH7cC_Y6"
  1634.     A$ = A$ + "[D`#4CDe2;]EaJ_B4#o`b75d1TJm0HeR\fj>B6>S7Z:IC:bCD^VCXCW61>_O"
  1635.     A$ = A$ + "MB#h0GBJ0:aDZcSBUlG2`jn4L`R1]BDWYk`nkNOP3207?]=I?R0FO<6cJUPD"
  1636.     A$ = A$ + "1[;I;T85QM_L;BT^J#N=3\X\nnTEInEoagfj71MXICIRP=]aS2Y\MG0mb=#>"
  1637.     A$ = A$ + "#BAY5:M_2]BUNKK[TTZXP^WGG53A5f[=71nPAYRg_f]LUKC7g>:;bb8d5:PE"
  1638.     A$ = A$ + "g=#Cf];h^5MCdLdPMOZfQ\<[Yj5NcS3]Mk2QZ[\8:b9Sk>`U_#fZW1;^`a9`"
  1639.     A$ = A$ + "ZY0ajImZhO\mFKPf##PmmKedR?Y5HgE9lVXlV6S]Ie#I#ZA[YeieMc120Z4K"
  1640.     A$ = A$ + ":bQl`CEJn7CdCa#HE:7#f?N0\^70;b=567[MAKVJgV2[YB?W19]iCa1`jQ?J"
  1641.     A$ = A$ + "LQ_WX<J=fR9oXCVS>FE1P2FhhgDHLb]\Im=nZM6<k>kD;:>1mPj<>XF<#KT#"
  1642.     A$ = A$ + "]Q\d#W`b8j=WB\PM``J=;<SBTaXKH2N5GgaFiZXn]><D10>B^3IcMT__VkH5"
  1643.     A$ = A$ + "Ff[KENd50FAM[22[V8gAHP_PK>KJRBcD8N\GY9n5OCGi9KGaPNc5IOBUHOea"
  1644.     A$ = A$ + "`Dej^GcbbX^e[F1Q[Z:AgnUF<5ZV0[]EfG8]\AmF`NI7YSAIKcE=C<<ihHY#"
  1645.     A$ = A$ + "lAULR>fWE`LDg0Dmd^RJSBGVCJ<=0?0[3e0M;AJc40;5Famg0HaN]9O8IPUZ"
  1646.     A$ = A$ + "CcjIPEFAFhFPUI>C0\<8QS`XY\:fJ]Gm:L=fh123=1G=?oh3fj<9A`1^[GW0"
  1647.     A$ = A$ + "[=c<OCaP=WOc=7>NaS^mh0V=H?mi7`8Qm<BV:<`nd85AG>?A<`Be?Fn#FTfh"
  1648.     A$ = A$ + "=\O9PURSE1>d]BnAXhJ]e3P5;kWg4HIfKaX]9Z=4Mf0Ue6][=O81IGDVNE]<"
  1649.     A$ = A$ + "eEg6]Z?DdEb4`RDW9gD8[ln\S\:KaZ>GC:lNjTLGk14H9jHEV[iFdWV4Y8ZV"
  1650.     A$ = A$ + "?ca8g4bX2o?Rka=0[a3<m8I\;ckEJ<7MX;KN#eWUVT6:7[g0\XNOcKU8gc6H"
  1651.     A$ = A$ + "AMWRBNSgZ8eDFW0;6VIHH7SY4]d#9BbO3UFDQF:E:\PE5`JOcdXZk0ESKGIj"
  1652.     A$ = A$ + "oFTjJIV8R:NJM[O\VEnSUak_jjFOB3Kme1PeAV`gXkic[;SH>ji<A`TImB]`"
  1653.     A$ = A$ + "N`1<LYXB>Paje3egieMfQ5H15eLeDPKH2QY_eNFPdEI6V2IAPVDIFA=DTOX\"
  1654.     A$ = A$ + "bV:AWlXY1F5ceLVA#;g2PUNTk:?P1XC56GeIhS71ZJ\ad:KM2\Z`hUEL?^JF"
  1655.     A$ = A$ + "_[HlOa5U?bX5=8E9i<9F_nF0Fl]]C0;5[A?D\W0[iKQUC0[Z9=EHgB`?#NJY"
  1656.     A$ = A$ + "<L70[Yjmc0;8QW`C1`JoFPUIg#LDHOkX7A8W>akQKAeZ]I[]#J<a`om\6;VB"
  1657.     A$ = A$ + "#gi7fgVJI=_IKL#edR22_YQ3M0\hjU0[9VVQ?8aVRHWJMg?3\b77W9^1W8I;"
  1658.     A$ = A$ + "YUkkV:[K\R3GC9?\ji6^2>G0\8K^DO=f3:[l4H9c_4`:c`0dIM5f=`:m60;4"
  1659.     A$ = A$ + "bB4hGU>8eHlDC`8:#obQ6;fI8`F3ZG4iMS3TEB5Ch1`BQPgJ\nA4H]a0BjJ8"
  1660.     A$ = A$ + "4H<EUbAFF8`ZF<E2RL5nSnAXkRWDae#;gJ70;K[T>\`c#L6D^eL8[VJ]d[8E"
  1661.     A$ = A$ + "APAheMm9SGMPYEfFXNT[#8KgA38NlfH5nig?L_1R6g2n6Tf#0L:ce<jRA9Oe"
  1662.     A$ = A$ + "fRcMSh;g2P5k?#55DQY\b^jG]Y<<X61FZ3j63PEaMe<5n0BGQCkEZj^dh=T5"
  1663.     A$ = A$ + "[bHon:]QM?6UN;NlF[NE#Bi:4bbQ;>fP5M_IccSMhSZ[jNHJ^Xh7Q_d6[V_^"
  1664.     A$ = A$ + "I?H?EdkYkfkKdo?0=H_^:kQ`;b8H#b08[9G;6Pe3]nQV54a\;;>KB4HaLNGS"
  1665.     A$ = A$ + "S_QGQo8L\b>O;\I^9OmE_2E\O4TWV[0jXk6C_3aLoUP3glo#0jPO3QaXKGWf"
  1666.     A$ = A$ + "He:IC5;Ya:7bZaQXJlE5g_e4fVA;RkGKGKZTH\WCQ\lMTDY5VCAc=:JN:_e2"
  1667.     A$ = A$ + "^TSXI9Pe:MJ`[iFRE<ndiEknYW^Y70[RkBh`I7;;kScUQekLCKl02YN[_AVn"
  1668.     A$ = A$ + "9g19SG5eeDk\XM\GM0\diPDImj636LD>iZ5F::?CP5UMA]B2A3OTlcT>:l<`"
  1669.     A$ = A$ + ":R^4e<AoeU\hENa>5Jl^BbeF5<Zd0[\WV_4PAfE<O6YId9nb<`Bmb2Tn9V^K"
  1670.     A$ = A$ + "V=YB;V_]b`O<CXoA_km<A\P3Y<Kdde##B2[ea4h]EEVGldBFGhgmNEVZ:9o="
  1671.     A$ = A$ + "fbEDemL0:5`Zk8>^O]D2IUK\fBGP3PKN0O5]f\QOR8#TAkDZ;FP:I1B8\deM"
  1672.     A$ = A$ + "89eQdSf6[le3:Rc;kiEjEXTMhjA?WLUh[ka8:YlB=0FThQVHlT:MQ\MJObEB"
  1673.     A$ = A$ + "g5HPdE5N1dK=X25ePaQK:<2=4V4bBJSeRdUSd4LUlemj`k5dl?5gSdDbFTWW"
  1674.     A$ = A$ + "YdQbZLmDlPfVDEG5mNam>8>^dTGQT=l\9d8IaCOmLS3`LZLFS34:Oj2:nOZb"
  1675.     A$ = A$ + "?dHEW?S2n>2KaFS]3llGJ\L6_]ABf1B1\nQ_km4D]A=F4HI^P\e<`BM11JE9"
  1676.     A$ = A$ + "dI70[?i7n39`bdXLhDO]XVBV??=:iV6;7;1aPbYY\cQ;Z:3DI3_>0EDDh:6X"
  1677.     A$ = A$ + "Y1OSWDC6bB]JYH248SXE=#k6CXY9_b\beljh8a#fa^nVJH?:c?m8N\ZEhbBP"
  1678.     A$ = A$ + "AeI\BBJLd0T5A1M[\Oeab]_cgOg:Jn9`FZEf=N32\F:7kEmX>hYo4`bFmUlZ"
  1679.     A$ = A$ + "[l0AU9Mf4bgdk9I=\aQ\RnXFmDA3DCa]7=D7HQH4S^A#`5fRUU\PFYRKH\]l"
  1680.     A$ = A$ + "]S7VMaQF6TZ;Xa\eD8UDG#YNl<Z6]4IZ[QQ<Bekg4H]X>jFXaB7Oo9?i7^oN"
  1681.     A$ = A$ + "1`ZP65T8dH3=MfI3KA0[RKYIWbEHnmTEn6H=c93]?;j;BPBLnX#bjB79j[_W"
  1682.     A$ = A$ + ";;<bQC5#c8^E^:\Al2Lh>SOT\]g30RMl>DEeQ8EAGQKI1fT:>ge4=N0\^^iX"
  1683.     A$ = A$ + "WgO?dh49_I#1PCfnkC\9hL[Li^4[cHFf?^Q`7[I6ITbN`VKf#Wc9HgKeYPFW"
  1684.     A$ = A$ + "XZNkSJ`faeMOUDWJASVdn[^jfUae[8=jK1`Rf0kIB[1FYgSAfV]A2neGUakM"
  1685.     A$ = A$ + "1\#9<bH4\Hj\PL#Qe]N6QIE2SS[JH=Z83HmmZGf_0fblF1Fmg;0F\Oc#298P"
  1686.     A$ = A$ + "5J9gAC0IL8Ye`FWiI40;aQAJMbN0\6VRYCb\3FMg<VKAY?X;<2QBbN#=PRl0"
  1687.     A$ = A$ + "=5ona?HkG]QQeTkZjJ>U8IgDVU9HlEk6HaPWYFm^\F_d<56\5m6HAKbfTabK"
  1688.     A$ = A$ + "kR:1I5bCU78Q_QQSDM7ZSgHcR3n9gjL1OQfMn:cVc;[XfZHTaHjAagMT>XGM"
  1689.     A$ = A$ + "MG3GeG922ZdX9fN;m7K^<:eIF=E6WJ=3bCcj#1LP14WIGFD2O<^ZEP<9FEZ<"
  1690.     A$ = A$ + "O650[5=Q44[ikd>mL4WQ:cZF<f0RLj`De0IM]6f;NLeG3gX=[ODa8j`#T=1F"
  1691.     A$ = A$ + ">f[4gJiHHJE<>AcRK1\hX<R:>:>dZIUGe1`Bf3YW6^`2?1\D1kB]>jX6?IKd"
  1692.     A$ = A$ + "5V7B8B8EZ<EPCP5H;U[J<M`ZjP]\Ok;Pe0jU=`2737YPAa=[dR^`Rkn::idn"
  1693.     A$ = A$ + "1<[8\]QUCkKAQeBoTLkl<PKRJ:=f;[J1`JL3Xdjk8M]CNEh<Uc>3bM2HAnTk"
  1694.     A$ = A$ + "L:5JI_bViFK0\\IoM1\Zdo?jSXWP32JACVlN5IX0i10D#DV]7>1\j70[Ld_F"
  1695.     A$ = A$ + "_5HED=9CEIe3P5NVCC]V8;M<IOM]O0\0ikM>KlEe]P`fd`>WS16<kK0F>K_3"
  1696.     A$ = A$ + "OP>1\BBS5n?4`Jj`H0\n`MFZ4`UoXNXg8Q^M6BMb\812I\Uh`_#GHh=JZjY2"
  1697.     A$ = A$ + "3<OJKFf[_2>C;=Fmbbjn_e[4l[7DOi3_nogeVYPUd6APU[hiI0YKAMk8cgle"
  1698.     A$ = A$ + "U7cMML[NeiNg]D2#ifR20VHBWJC7KJ\CKI[hkMIEiMfN`^]IPECE3Z?2^INE"
  1699.     A$ = A$ + "h[k7^KZKA?MRnU:3W3Ij7<:]jVKBAfH=CXkmj1X0FbQ753=NEhNC==MR_YgE"
  1700.     A$ = A$ + "FN3IE3`PWjafk7[2`Pk2YY6;A#J4^1:;3SE]C?5E#SHAL:KF45BE1cYV8;l?"
  1701.     A$ = A$ + "Nnl=J9EKk<IQ]C0;M`IMY4:0EjNbW0FS7\GOe=J\4`bghKR=XRIDJdD0;o7G"
  1702.     A$ = A$ + "HdQ2R8O?NVFMN\7OQ8[7k:fCX^oYV?jKiNgbB3]3_gTIkPaV:j2RQNFOeQAC"
  1703.     A$ = A$ + "Q\5W=0WnHW4FefJDWj5Lnee#_9mNcbR<;#P5m5MgT][k7W5F=XiPEKkZZ^ZB"
  1704.     A$ = A$ + "f?T_[`>e5e=kJgP?XcSU;Rd<1FdYfeD>0FhjVSQn=<YY\eM?]K;^CigbB0\8"
  1705.     A$ = A$ + "7PIEjlW;PUj4==5GP<K9JZE[#J3WKA9f7MYFl8abb?5b5IEE4[ZICg<SmbZI"
  1706.     A$ = A$ + "6=ZV\C=fWIQMcP3BPEW5SMVLVmR[TmD=ZCQ^K`Ud[`?k3gEBXOEGTKO;:1Ug"
  1707.     A$ = A$ + "0Hi>a6AHJSncn\kEB5E`Ya_VUA63:fEfCa4`:CGM2[g;FF2cRToP619jRW8l"
  1708.     A$ = A$ + "Gk675eO]>FSAY^KIEUJTFg>hUPDIA^4S#h_MmE>]<8SakA8Bn\?kUTd6IhG6"
  1709.     A$ = A$ + "SUJ0\R:HYFAePJjUg5`ZKIo0`Am6]=k8SXKXnH7f=SR4LO\oGmQa`20VCWH="
  1710.     A$ = A$ + "WRb?P<7^K>k\ahkdIaXJPEYMCL\6bR\<9PEFV8cNc^Zg4akkf[j:0Y07e<bB"
  1711.     A$ = A$ + "b^`8GJBYZR0f5`#XaB=ggP8]VA6#FEm?l8`a]3E[HNfW2B\jT4Kb[GEa<CP5"
  1712.     A$ = A$ + "9l^:j5BN5VkZCM54mVEcnJf5i#Pj>2\RQN1nh>NbZ65JZ:hkZiAg2RX2T?Um"
  1713.     A$ = A$ + "5R<Aj9O?S?<X#gemP1ZF1gVJ>J8;d^H:h3h^c8[e2__Yll_1VAn:43NnmIP5"
  1714.     A$ = A$ + "3]_Gc_TKP[X1J_k\iPG\`QU\IJAPEf1X=2bknlj^kNA0;^W]X5V2g2eDlY;_"
  1715.     A$ = A$ + "2fX6[a^ORa03kEIem4bR33kAV[Ta3j[9MAC:==NY:Vck3I_hS8IMW07a8`R7"
  1716.     A$ = A$ + "\bV2RBb\6oG;>9;SkH:[E2Z9hE^OZnSiRg4RFn;hJ4:fW_geT[IdBEa]NS9K"
  1717.     A$ = A$ + "2gJ<BTRAcN4]EMQHl9CP5:j5jh;1Fm\7QFmIl:3nNAf:cNg007RY5ZiEc84>"
  1718.     A$ = A$ + "g]JT_cg0\PcHRSA3IOX4M^XM6g7Vl6FG<c8][OQSDk0HM]KIo0E9#UTcC4Im"
  1719.     A$ = A$ + "S[=SaiLGMl`DX\^ZA401FO40FP:#g0\h;3:M9Sc][S7_RF9CPef^_^mg0H]E"
  1720.     A$ = A$ + "\IPXnchL7;HSCAYjSE11Umi9geEiAQ]X0:MhIgf=E`LHiSalVUm2Kc5IEPZ^"
  1721.     A$ = A$ + "_QVM`<KnWRW[L#oCBadSbBFj43cYlTDAA?G<<NGI:8AJ]DlNecmPIQQ5XYDL"
  1722.     A$ = A$ + ":oPWJ\#PI[7SX?3\nX?20[=5eMNLcn]J\Jf\I74BjAJ^[R;P0[XZB:Z3BgS2"
  1723.     A$ = A$ + "[GE<W7D<Z6Fd;gmf4H]fETZ5`BDBV5Jf^mJPcC;ElOKZCFem3HSa=3RE0EMD"
  1724.     A$ = A$ + "af#]O6aaRDXWCogBo4`2IJNedUGQgHHKZbC>d7L1f4fRDRCK2T\OXJ51SEb["
  1725.     A$ = A$ + "^:_>IL[H_g;9n:X>0KKWE3O>k2hd0;UkTUeNFlQU_c4eDAWD1C7hYYEl1XTe"
  1726.     A$ = A$ + "56kDC\#_B^22m9JRDYc8Tj3<7gW6H]hQMhZ6i#]X;_XT\jl8afbAB3RQBl<:"
  1727.     A$ = A$ + "K>i`?LF]\:Gmo;J^#DKZV>2\M[kV2bWm]N?dd6RLi8>T^iadT0F:6RQ?CJ`K"
  1728.     A$ = A$ + "TN_oSo\?K8;;7YVRR:[T7ODHW0[m3PeF?\lX4bBWS0`ZifDTSlAKnZ\HIXjb"
  1729.     A$ = A$ + "?``]a3H;[NZXBQf<VGniPGg^JUVb2XMVQB0\2IYG0:1h2HQ#Ej6LKC5fI?VE"
  1730.     A$ = A$ + "JlTfQ6;;kV8IS2?ZKDBP8iME5C1;[j_Bm3=FEYQ\ZOgaFZIB=BOchMKHK[dR"
  1731.     A$ = A$ + "n0L_j#84b^h^GELP3:W?6m9ghFS>jW?:\ZDgh[khDne\j;JJFof\[DdA\5Y9"
  1732.     A$ = A$ + "UIQV\?5ojhjbhT9WWKb[`J]<1F\EB<c1`4H=TmWmToZO_a6]1FDSUJAFiSfH"
  1733.     A$ = A$ + "FGVN]5ec2=ZjIgoOkeoE3IegUY9cJb0;jdde9`BMFmI;o8TU=f06j8I7eN0\"
  1734.     A$ = A$ + "d41\aacI;Rl0>\NkJ8;mTe?8=[\ZYRk9QV:<V?kS3#1mggVGGN6;C5EA14[o"
  1735.     A$ = A$ + "Z==:9HTfi0NX=]_U18MO:[J;hj[?LM06GaTaS:9b_B#V?`nAFINoBP5>[XTL"
  1736.     A$ = A$ + "EKSki[_jEV?HjQ\mR#mBU#FEC<Ef]Qh3FgbkRb5g=H8Bd?4>SJ7KiBF5n\ZK"
  1737.     A$ = A$ + "O=:jTk]YMjQ7WbYD1\jcW_^O0AkS;`#XJI2\hil[lXF==GhYGI8k[ObGlOoK"
  1738.     A$ = A$ + "5EJNW9;T`RH`bAN]=oaNGSPYll_co[ObG0I=KkT1[9oQgg5MR=O>IK#_53NZ"
  1739.     A$ = A$ + "Y\L6AgkC=ckQM\1`JcC;EI54E]4bZPhFj^oQ[D2F]B4W58WAYQ;Q\FSk7[ID"
  1740.     A$ = A$ + ";H\8kgd];^PZ==1HjZ6VG]F;dbfWbb]f^YSUcb9K?1ZBB:ALIggMS\:M\GAn"
  1741.     A$ = A$ + "Wa^D[MkPKBTI\^TPcCNc865TWb^h>ZlNENgY>?4K>MJ4XBmS9e4fA3iLP0WG"
  1742.     A$ = A$ + "GEcmP_G0HYneLd?<H764e>7J#59=[UJ7[iJa<J:HO0kJfJ8Ya>Y4^N5c>R2K"
  1743.     A$ = A$ + "h2E8k?i9o]oOn_nKmK^^m[]l>?kI?knWm=6o_?\S1Jd9PUkoZAX8^onko=n>"
  1744.     A$ = A$ + "o?oOo?mg:Io6g:kn^8>lV1Fhl[3PeGY\KHn9[T2_5L4DeBaEXnk[DF>[L^Jn"
  1745.     A$ = A$ + "S:GOXG8leT]]_BIkHh?]YI\BWC^Ci5AEHd_BIi<^6Ff^45KKk4`:m?ceM7TM"
  1746.     A$ = A$ + "^Yf#QAF9KKAk[NONlh4lg5H;1\j^]O`PbFoZGchk>d9gD==cGfHiEoEOof`g"
  1747.     A$ = A$ + "]1FI=<=C>EMibaJnOj9oMo]OjOhoioMo>o>OW_mgjKm]nMoMo]o]o]oFoko?"
  1748.     A$ = A$ + "QOn?XOnfOWa?oNSO`obg6o<nKOko;oPOfWn5oMO]\O]\O9bn5?icOm?iWlWm"
  1749.     A$ = A$ + "GlcnYoUoda?olo5lc_lWoCo[oIoS_neohOeWoebnebnU8k_j[1FO]\o[Q\3P"
  1750.     A$ = A$ + "eWojo`G\><?AcV2Hbm7n1O`3<;h_lU_l3nP?h3o`?dn::gcK?l`3onOfWogl"
  1751.     A$ = A$ + "5ON8k7\I;KNof#TGBKc`o2TnURB=^U8fOhQ?hFIOIWU[>\NOlYo0JYh;Oi;N"
  1752.     A$ = A$ + "1U7F[L]5LBm3NhUg:k;LG4NHHi#Tkc_ohO5GCnSKg7``W_IOkAbN?jZBoKi7"
  1753.     A$ = A$ + "2OJ4bQ6Uk5gc:ac6Z1cMNT\OPJSA`8#\Bkm_I56VLohOo3o`nkG5cMPG5_o3"
  1754.     A$ = A$ + "?lRKUmQVjYC3C``m83;3^EOaHQoRFkmcc2R_lHI[dQOhb?^Le_iFooWk7?=N"
  1755.     A$ = A$ + "h5SO:A[SQO3?jIdcI_hVl^i5_H\c1WMaem1l=UZ\3Q`::<WOh=_OOIg3PkFI"
  1756.     A$ = A$ + "8`;6?Wa0LdoT7Kka?mF\V775n;oSNnbbcf_oEd8GBBIf1OU_NWSIS7JC<FF_"
  1757.     A$ = A$ + "h_oOHLQU\Uk3W\[fXkI9P9`h:WCTVZ03<g]bbOoE>O`W48=BlleOc23BjLJ6"
  1758.     A$ = A$ + "l1Ff?L8KonVZ9:E8\eTk?G526U3V8bkK9ahZc[inm<e\AbAAj=EQL`j5KaUo"
  1759.     A$ = A$ + "aFdWDJaJn3hNUR[IceVOo:kXQTj9S_6\<41CZ<:kgLM[8;H[E=BWEc<MCcJH"
  1760.     A$ = A$ + "16cCF<`^kj=bV__j<W`J8\FB:cT:DFIe1=4E50SZFOh6IeH1fS61EEjK<B9\"
  1761.     A$ = A$ + "KkfZ\1H#P5NBnbKFcKaNLIc5lJ[6C]W4;dlPfLh_2IoRWl;nOLoV21i^lnS1"
  1762.     A$ = A$ + "h^TCcf:\nCAY9kV[gm?ljOl_H8[Ve0<^a:PU=S92PefS0FCIE5WjaZD7UEE;"
  1763.     A$ = A$ + "H<_cPd0T8:GMUL8NhE^Um3INSA0Z[Ao_YC7cDn7^Boh_^[bo[WD:0>FcS?fj"
  1764.     A$ = A$ + ":RdWB=3:bjGQWA>;\IU_>6a^>kUjmhjNMCaZ2aW`coE\WVcV:N3_1Y7FGk>>"
  1765.     A$ = A$ + "VS7baeMS11RTiF=Z:F<5=e8;=_c8O8HWmACd[#FmDD3\D=<>4ihAXIE^J3R2"
  1766.     A$ = A$ + "kJ1R5c\TE1Z#cDJmQ7Oi2HYb]6igZdIhABZDUSkgkEI`gR6GZVN?]Dd90IN`"
  1767.     A$ = A$ + "EDJSb\BbnSObWo2G<5>nTR?YAOfi<`ZM0\ZikOfO`Wni3I5`b<Z:bCf1`BmK"
  1768.     A$ = A$ + "_3P5k>XQ\8>RGgRGH1`JllhDiSZ2LhZJ``:Z7kQ\4HQLefWC9P6kKH=5NB3\"
  1769.     A$ = A$ + "XR[FRL]X7bbT7_^2BW^kO02\b^E;djRNASiZGcimldeUK`\NagDN4E3[U=:V"
  1770.     A$ = A$ + "60F9eQ\Hj21]IVg_DQA5UGSJj:kHTHYH871SSE<VjOETKNQ\RCm5VXO2i<`R"
  1771.     A$ = A$ + "3\#E=HiXiPVld;<TU_V\Yn81]MPY:XZPD`1G>K0Ee=>#bETaW?OS`T70;>MR"
  1772.     A$ = A$ + "VG8FaZZWV6]mA9kWnTodOmW=gLAlA]FNOWKJ\7T_CEN>BGemgo^OjOj#FE[J"
  1773.     A$ = A$ + "llRmV6U4MU6IEjMKVIT57?J41a3IUf]F<0k<g:jAGjRLMB9Z49F2oC8[kAL]"
  1774.     A$ = A$ + "L;joA#SUJ_Skl8<FI8Rj2E>\3WGG2Me<P_[J7QF1`Q2DCiQYdSV`Tj3CCIgf"
  1775.     A$ = A$ + "eP6ICSihMEXI[i275VhF0]:RMg8R#M_L\GAF`aJI^7=OeQj`>9Z_J\7N<0c3"
  1776.     A$ = A$ + "9gD_Gabj4HghDFPT6Ul[QMhV>307#JYHP5b0a7bBb>_cAMYZjhB<d[DX2A1G"
  1777.     A$ = A$ + "g8?\aoZB<hDfhl7EJN08Z61hba0;Dim<6Y2Bf?m9OogQ0[[lmK2\8Hha0[]3"
  1778.     A$ = A$ + "Peh[J8lOlgO8KQCE<5^mY6;C1^]XQ\#PU#cX1j6bJfFIP57=_:njR<Y\35=>"
  1779.     A$ = A$ + "k7imWUR>blD8kNoa0;=^G6WZ=?<VA8mZ>Gmhj:U#>bkkZULS\#Slfbn;P71B"
  1780.     A$ = A$ + "^1YbecDFIVhhdfFgT40M4U2CZm>79>XBoUfFfkIQQfN_ZZV[AFMYK^YMm:jm"
  1781.     A$ = A$ + "[k>ZfJ<RW3^j>#?Q\2HQlZjBE>[1jWJ4cXZWc2HYR\?KP5UE33Jdk5bNXd4L"
  1782.     A$ = A$ + "6glHSL`#5W01FK7?OGSJIAm<64fOb#Y:W:dQO6408512HmjG;Peh9f[dkgVl"
  1783.     A$ = A$ + "J^?6M0\<3lijY:Pe[9h#J\DjN:ib\7e6c`;g=W:QQ#BS5UU9U:P5MB7<BeUM"
  1784.     A$ = A$ + "ElFR52X3^D7W7RF_k[>TUc3>Da8RbOJ`kZ>]d0He3^kXFN]B=lDF13Icl`5?"
  1785.     A$ = A$ + "2a]AWPPSo#e6=<Sgg8`B[ID:A#7hEeTi4Yn6OBd[8Q;0kUX6f41o7K9Q\5Ao"
  1786.     A$ = A$ + ">YfRMJe=FP>Hi8]HZGMC6cdHS[95bJ5I=>nFl;[I=WGj5U`Pd\J:#aA8P5U5"
  1787.     A$ = A$ + "MDJ1ZH3hX7T0GhZ5UKj4OeTe[FAJ\dJFV];blZbJWngTeh6Gm\[RIUV\Mha0"
  1788.     A$ = A$ + "[I;K]cFe`TDD^RDRR05C`>0\n4n#ZVY_ZBO6Kh3RaY<MmF7Z:HoNhnO8k6Y1"
  1789.     A$ = A$ + ";9e\P#GgV]AMM\9;XoQ1O[k>F8m#FZ1M_X6PWKnJI?0MgmlXX;RbOU4HTYRB"
  1790.     A$ = A$ + "b>>1iZZnR^hRS:F6cY]QN\5aVlVO=1f25b2PE6f]_KRChI9=6U<\OG^=k;:="
  1791.     A$ = A$ + "=Sh8`jC2=FEeS2Z\=E^cVK#UDWVM^2N^DFUS\jGYQ\AWdF3Ne6C0[SKQjZ5L"
  1792.     A$ = A$ + "Z`Ig2EYQUWg_XEUcdCbSjL=Lh1TF9Y^XMRKfJ`S?fb3IG?Bb_:I;EIoPWOW1"
  1793.     A$ = A$ + "FRGcSofZUmC^1HElV2\gF=`?Y]jFPEG0[OS?nFPEG4dG_8?eHYED>ZYHJTN8"
  1794.     A$ = A$ + "[SZ0kI4^E4jZGNCTBHP]FUE9R1kM0\T\\]h\GO4`R7j5CJIAU\[Xl15`Bb>d"
  1795.     A$ = A$ + "F8P5iIZ0FQUj<9nN3[[B75FYM\VA9#]CSgkHBQ[9L00SYRKklj8HFg0ZiZ4b"
  1796.     A$ = A$ + ":K\\Uf:d>6HA:Y`<EN6H1CI2Ie9OZ?B<WHmZ\[jZ\EcZ1ZIS\`UI:[0F9da:"
  1797.     A$ = A$ + "8=0Mc_Og=]<eDnR2V]#Zl=Gc6Hi^Cn`KJB9;ejeF>dHM2Ha[k7oT_k0H]IOc"
  1798.     A$ = A$ + "QnOW>oe5??VWM?63Bf0i8e=lgmkRScb;iPLA=e9?IM_N4h[^76Za4b]5bf<Y"
  1799.     A$ = A$ + "gMSl;caZenVXK8LZZce1J:o\#J0B?TU5GcEYP>XGQ6288H3^Faf3MAZYd4bb"
  1800.     A$ = A$ + ">g;KR54HYI05;c3Rn1_O9g^AgFOG6T]7bbN;hnEiXAG]d3F_TL2EeVdhQ=:C"
  1801.     A$ = A$ + "e0KVg_bKO?EUJbELM>1Ye370Qd^HfJe95NV[IbOH#UQNBeBHVeg<nG5IJ[TW"
  1802.     A$ = A$ + "XXk_[N3JY=O61MISGiH_M0T`8j4okHT?^]ib#Te<#FlOodJfD4WWc1fiBSjH"
  1803.     A$ = A$ + "_3lRZUBOD8nc[9h\MJ2\<onfgHl>^1H96TNdb[`Q<k2Hm`W<1FZ#8T:IC6TP"
  1804.     A$ = A$ + "JE>\9YR3cEW0;9;1F]c0[m0HYZCVeogj6K`WZ6Yf2IQ2\[G?8=5KZP6HmZm9"
  1805.     A$ = A$ + "?ZMATYch3I1ele85a=N=>K8b][BW5HZ0KM:eB4e30\le5U\jfE?OQfePBo4`"
  1806.     A$ = A$ + "B=G7NS\kiFbim:g168[Wg\EF`eX[E0\8cn8;Ckf^UiJV0;HdVV\IT#F70;=4"
  1807.     A$ = A$ + "3BJVB45FH9T=3Kbkg2\lHES4[E=Y=loOEC2ZQnUic8OZ^YONY8P5Z\]#SEdS"
  1808.     A$ = A$ + "l9Y=5`jQaAQ6HaO:ACbPk8>4hg6I:FiNW_`XM_ef5W=;7Tb\IF6KjHWL3LLk"
  1809.     A$ = A$ + "6PU7<5J2l8c:JjX#U:6nK1gEB#i3ke1Q\\WkOEm\OEF0TMR<E<_jJi0H5UoG"
  1810.     A$ = A$ + "o0HE<ilBIm`];B3VFYM[KTP`ZoS]e<YU>^^X1N8S1Q5oXI0aM[FR=75>eahK"
  1811.     A$ = A$ + "8d<n=F`3CPUWlFaPDSj3EQ\\cibU81ZWAL]KN9D6TG1?[dfKC=o31\8mgI`="
  1812.     A$ = A$ + "[>hkUbQ\\I5]gEC3I2\h[cPIaZA`AbRa^e>SfeaJ><G4A3HCA8BD=m2K]B6H"
  1813.     A$ = A$ + "iB\MLBII2\BA0Bg]nA5RPK0F78[^jm8n2WDXHkkaAQl;82RO?R5KC\Pc6a4b"
  1814.     A$ = A$ + "fLKhfLZV=6Cel?JVRmZ<lA#i0=cQfW#FRl^f;aXBU^n7];^G5dnEmW4W_Yna"
  1815.     A$ = A$ + "J6?CYYKKZ;kXQY76RcHI^60[flESY\X]1TK:^NMeGNk<ZUTneRQal<mM=5W0"
  1816.     A$ = A$ + "bJNofY[8\W#XHjbA#:M?0>mRT0BKYZIE=emi;`9Ggl]RS;[1F<lCR:D::FAK"
  1817.     A$ = A$ + "1YLJ=S>Nd:2k;kIX^#TE6BLYTQCAGbJ^eX8]Ll<bNO=^Z\Y5B:DO0\dH7cUn"
  1818.     A$ = A$ + "UJ#KiC0[=GUYf?:1\XWMVdigP\`GfZ_`8D=17BESGgZL2cW]i?b5IM^bjLAG"
  1819.     A$ = A$ + ";ALM1]j:JLB8ME>d9JHHno?kmnmbVULMNXceKVV?\_HXj9Dk?Eed^6CS;XiD"
  1820.     A$ = A$ + "W6\L>Kj9B6fGT0_4R942b91R3fBFi7g<6[Ib4#<PHR44;6U9GH786K7ogiYN"
  1821.     A$ = A$ + "naZf_Om8=TKbMZ?WH;iIFmNo^g?kZFeJm\NNX3Q#6l6afMUclZX2nVI5J1Qc"
  1822.     A$ = A$ + "I9226YjJNeGgc=j4?G0;VPY<N?LK^[Ald73BoU7aReecmH4[S6cSE\Pab1n8"
  1823.     A$ = A$ + ">JBdjT?NfZk[HY8[GZBQb:]X?\LIC=Q\5EN:;9Chicnm0;E`Q:CiY>c6B6O7"
  1824.     A$ = A$ + "[S5TZ3Yen1`jji<Vf<:bOTfkeX\AZ1[d`OWYJ\S3<\K_Y_LmnU[OECB58K^="
  1825.     A$ = A$ + "12Hm#B]M:6g7EO^6T:B0\ff2mFk<De59O7ZZF1eTSN\XgOc;l;WGHJNbYbb3"
  1826.     A$ = A$ + "X;Qa^5WVEi=?_Xkl7QZYH4KKE]>>HXDSSJQ4U4ZZ0f?YglFQ0HYH7ZO=;^Y["
  1827.     A$ = A$ + "G_e\\oDFm;m[B2ddY<ZL5KVnT9><TaoJ4Mi<5[_?gBj5k8JTe:FXHYU[12DO"
  1828.     A$ = A$ + "F0anOnG;6#=L?Ae#RgkjKhe_GjFYbV[HgeXFg8bP_<\aTE1=N4\jji\6O7lb"
  1829.     A$ = A$ + "Wkji:>el8OPJ0HePDeaRJ?cjM4Uk]>W];F92=U9F2[I96HcXi<2:k`Lm>ZH1"
  1830.     A$ = A$ + "I8CUgeiC9Pekn<K>5n?Pde\dMkL^2W1[?dXN=ML1\ZSH_\N`eO3]X:LmLOCS"
  1831.     A$ = A$ + "bP\_ZaNaZ^T7_RFhYkY=>NHDd[jA\ASmF0[V8Ha]A;J7d9JF86:^QMgP8fQ6"
  1832.     A$ = A$ + "[X_6`:cn4boZHV4H0TVkNQOP[H1`RSCJf;YaKOnAOQZC`C0FZm=[[K81UMGY"
  1833.     A$ = A$ + ">R=IQ=[LB^U]o`MPU0j>o7iH;ddOHNS\_c\WCJXZAmgK6HYU<h:UeB4;WK1V"
  1834.     A$ = A$ + "Pf5`R3<5WY?2\8[8Tn=`5gBGa2>4Ob9;5KeaiBA]=Xg5FBE5^DL70[[g_T<4"
  1835.     A$ = A$ + "lT2EU4WQSg3\jGNEU4mUW3Pe?HcnE8Lb1?d4L8SSR<Z1F\=R1nWc_<o1o3n1"
  1836.     A$ = A$ + "LVNi85i4a<dCVA`aeQ:CK=;o3cL9RH]4je]g08PE<6SMCiUNUd7?6OXE\:_`"
  1837.     A$ = A$ + "NY458C6]:KT7Tj;OO3InLN:A>jn[kIn=;5TFOd<ZeLUh#aI<T_2H599^ReeT"
  1838.     A$ = A$ + "`V1U;94NYbA6STY#M[hTedUUo9R]<?EA;;Ek?Gl\eCUKHLCCa6inCn>5iNmL"
  1839.     A$ = A$ + "F6DNQe75F06JYBh94RO4daLTknYC5VFaBkiZYE\fhEVWmQ5cec_Q4Ngm=Lh#"
  1840.     A$ = A$ + "J7m[WED<KbfEO3Y52oMm\WiVCeTZJba4Qm7o]1FgFCSC0\8U42A^eC5k2Hm9"
  1841.     A$ = A$ + "l2WehX60[#fO\R4d\#c^SV5fY`DaE>n43\li9DcCdY>L[YRR=>fA?MPiMMLC"
  1842.     A$ = A$ + "0[?90Fh9cJQH>8`DZgM]EE=6hic>9`J5KE9_oDPEK1\:>5FlgP=fTfem\]:S"
  1843.     A$ = A$ + "UoOYlA5`B6]3=:^32\TPU4ab3FAE;SBJ5f[Nn<_[6hg^YL53PEcBm^SEcZOF"
  1844.     A$ = A$ + "fK2D811\ZNhV[59HOi#O\Z2HaHWh1h1bNSbTMhMko1i#9Ai9Zib4dMgRg_#V"
  1845.     A$ = A$ + "CIUMY8c#O:G^4;0FBGK4=\dBnDk6N>LVROh_Y0F3Cc4GTmVDTH?V=74Z9]gA"
  1846.     A$ = A$ + "P<XUgo`I\EnU#\ePm6mfe0UeU<6_3I^D[H=JA\[A7C^?2jcQX>`RGO=NnY1e"
  1847.     A$ = A$ + "=XnlcjSSE\2mQc3PT`jf4RH_MWO?^K_1R0[32\HRo<fb5`Jh1NS[Hij3CZ6A"
  1848.     A$ = A$ + "jhD][5?_a_^^ZR^7R2PdQ3F0[H^V1oBa6TE9h^[[;f]NVSO?;AjGFV\H6B7:"
  1849.     A$ = A$ + "a\=gaHAHL:b8f7Nff^dAfl:IZTNW[Ri[>DD^K5[]8F=lGc4?g]o:;Y=#_`X:"
  1850.     A$ = A$ + "T^;leNI;CCF]]nmFKFMe`IcgRaHF0[gM1\DO:fibaBShoA?1HYI=EKQAU\RO"
  1851.     A$ = A$ + "8;kY2RPSD9]am0;#X\=Je7^YIBX<6mUWW#aa?=OZ:R6f>F0;>_EZG#JJNc^6"
  1852.     A$ = A$ + "Z^W#=9O7D2j`B4g^3L#PLSRGEndkb[G:\URi#6eUd4gHSKnJ0[=9<>SH:k`U"
  1853.     A$ = A$ + "k#0;bdVJEeDKd^nH`[QOXEb;Ik3KcCo_k]aYJd#A9YAJcLgeeTB`]RLaI\NX"
  1854.     A$ = A$ + "`U1`:j=g5`jI?Cn`B]IP5f_VW^<\]EFgm;PEi2HY\f2Sk>g2WEgJ0EASPO6N"
  1855.     A$ = A$ + "hh6jdQ>\ROoBeiXbDnciBdQ5L0d7NGIV>2HA7_SDA:oF0;ITmVXVdDcLnhc_"
  1856.     A$ = A$ + "onN7dfc=aK^7HEZ>7[k1F;bcLSSH\\Jd9`R[TOLg:FiW0\JI=Zm;P57UjLF7"
  1857.     A$ = A$ + "4[ab`6a:6lamN;g6FHNRE\N2`2OY`]M^o5\GaZM8m6i#LcP:#i#0;jN95Odb"
  1858.     A$ = A$ + "k1FJGj3]U]BbYBPEcR`LS7jP[Ma6]D^K5[VJ<WZZXKYc#9VIm8gk95j3jM[H"
  1859.     A$ = A$ + "and#M855UFBe8gGEnFMe;L^9MT4RldC0F=3\4W#Gi?;]I^89g20;Y76[kIAl"
  1860.     A$ = A$ + "29DA[TSH9cNhI?\EUS3`AP^cZeD_3HIMlSM=;DEWV;dRZT>ceC2]#WZ2Cm^E"
  1861.     A$ = A$ + "MTWB9DHh]Un\Tl]6:P=nX00;ngj:Fj7AD2nYSETQFY;cdI\Z=kL=1HWO7\cb"
  1862.     A$ = A$ + "mSkGaj#7F8OZFhPNMRbJ#6`fSS1`IHWMUnh^[KGjgCA<5Be^0\FXBOkD70?B"
  1863.     A$ = A$ + "AR[M^^^ZkNBao7F2BEZbB];?INMWf^SCQUW`GB5U7Xa>mCCKGToHgFSHCnF:"
  1864.     A$ = A$ + "FQVT;O1>LM^MIialRn0UNB>[XD_c89M\EHFQR`nF0;FZR\miEcV<aJCA?E:j"
  1865.     A$ = A$ + "^IE]Ze7BcW#TFIfdOE7o6lLRcE\41;LIg8`J\WNKP5UiE[3Il[eHL4DKoXEU"
  1866.     A$ = A$ + "fEYiUVYKPE[64#Rll87e2G5YXA=CF9_ODEe7^R5kg2OJSK22b5flB>n`ETc2"
  1867.     A$ = A$ + "2H1b5OBMKJU[Sej[LgRgUUV<VkUEX0EMDX^PW7GGG8UHhLfPDDBDgh__ZbX<"
  1868.     A$ = A$ + "0FV?TBS5RH5aE7;CbV4573=_DW[Kn__N0\\:2[GBI9;kTo15X5HL0_1djfAA"
  1869.     A$ = A$ + "BJ2J9lM[W\N>33^GYNEUUjhC5Z>?^0FeT1FbHYNi5`Rf<Y0F17ohFR<GVInK"
  1870.     A$ = A$ + "g1\\dHZWETEOFWR\:\DXEMTf^0FfY<UTPHeV10[C1\>]U5Z2SF6b8T\>4kF6"
  1871.     A$ = A$ + "jBJU_3L4bU>OeV\Q[4k6BP5Z6=Fab0^e3J:8fdj:iG`L;jR461gkH8X2YCbX"
  1872.     A$ = A$ + "IYNTG0;U:HFfMQbhaB04IiI?:>>[O?[FdjNVW8[#:R<\]#cEUI5B7\V>=C=I"
  1873.     A$ = A$ + "?T3[H99mG>[0eDEV`:GPIn`kVhP[m^E^nDijjFUL[_AYA_ONkfYjCii=>S#h"
  1874.     A$ = A$ + "n5ceSE62T#e2Ll\=b`P\T2=XeB?80:=VU\H[^6bn\8:EJ5[k#U?fHA<Xdm\8"
  1875.     A$ = A$ + "c:I9Pe>>S5EgQbek8kPVVfEZTBBHKNf3bAQ_Z#:HS5=CN0\N_]K2HAUlhlNP"
  1876.     A$ = A$ + "eH\\FYXN>^BXIibi_W1FS^M5e:1F6DaCCRLc4`Z6md;R5m6SIUOX^P#ZX][J"
  1877.     A$ = A$ + "=hN8BU6iL#>]`KX8F9dR=Z3Wcm2SeLT?3NHAja70XCa_jjjRi10_2C2H9cIQ"
  1878.     A$ = A$ + "FX7CjCTNGo`\cIDjA\3YP8cT7EMbZ6mR>cgLnY;MgZ_CORKm\ZjSe?OgUiIR"
  1879.     A$ = A$ + ">?kD7V_MkF_OC3naF^hIO;<iL4k<7;Y\]Dk]1nLno5a?68BEE3\Th;0iAfRi"
  1880.     A$ = A$ + ";Rm>P5GDJa4AV816251\`Y2Aag]6cjgA2H9mCJA5Q0HQZaG3m7>a91CoNod9"
  1881.     A$ = A$ + "`jmh:Fm#RH^O5;9G<<ei:U9YVK=G0\N?GK[eVAPQ^[1Y#5bR0;Yb9[E\L\d9"
  1882.     A$ = A$ + "ia>79M>Od?P#4BLEoWoc>51U9[JRH3=JSIbjl:?dTYYO:N1?9dWWi`CXA\m\"
  1883.     A$ = A$ + ">X15TF:?E\bDUfBc2IkE;nA6oKJ5KWkgQJnedYF5]j3IVFLO]iEefePGiHKB"
  1884.     A$ = A$ + "0P#6fk8U<TK5DGJdTSS2<4DdJ1JVQFaOG_PW8[D#?5WR?D:ED_O:4g<;8FZ9"
  1885.     A$ = A$ + "]JUD_b8F=bSNm<:UQZOH5J4#2HACNJ^REnQ`EHmk8>C8`l2:RD2Z77IJ5VRN"
  1886.     A$ = A$ + ">TF;hI4:QbL=l0H]]VCZ#n#EVS:M2jUFXU3eZ[\6=Ma5RFN5j`BDk65?heDC"
  1887.     A$ = A$ + "cgfDgc8MU<Q<_nJX:b]=4`B5^e:?UO7QQ_1M<YAPeeG`7F`Mg;RD=ZFXQYKB"
  1888.     A$ = A$ + "2Ce8W;DnJ5Dfbe:7LT<IVD[2gaA1Y:]eY6SoE]>2JFL]ReP;Ja4=K[AR44Ah"
  1889.     A$ = A$ + "hlJ7Lifh`fP]a\c[klIJfjV<>nl<c:\gIGVDNQkI?bZKN7V90A\Y7B]PZV=F"
  1890.     A$ = A$ + "VM3\XNX;beWe9lDMDcB;#e:Fd2\AKOdoD;[^\Jd4Hm0[IORJM50F]e:FZ]al"
  1891.     A$ = A$ + "`Ob:e;jeobSEQSK[4<kho2V7]k0FW7VV\?1Hid;`KYCY;nl;9B3][7FUJk2H"
  1892.     A$ = A$ + "QNl?:V`=N_CP65_1KD<[?^^Y;6H9=cTbhDNHAYM5n6i>36`inhNPUC_]ecnD"
  1893.     A$ = A$ + "5TJ[d]UIBOBDNIi6^E^K5[=LD1MTilRj60lE[d=I5`BB2U:iCo2Hem<ZMRN<"
  1894.     A$ = A$ + ";C^6omS\Y>^IeYC[kQZQ#Mdk2H=_eXf;RSh013oVh\QKn85=cAFbiHGSeaji"
  1895.     A$ = A$ + "<?iFEgC4H17oAiHYi1CIH9Q<2E8?M7`2KjcJeBKSbC8DXVJc7`cME[D;BgW#"
  1896.     A$ = A$ + "\OI0[29bc2Hi1Yl1Fb\25c8loiTehb;PU:Se=HV4ZGkj`dL?o6gGi6:_C9ZZ"
  1897.     A$ = A$ + "FWWFAoPc^J\adYWUQb=\=jh\j;\m9\2:[]EfTCTcBF]c6\BnN?\5FJQ]MVgC"
  1898.     A$ = A$ + "o6iLGM<^07B#;KVJ\7bG=DY?JDMn>\i7X^Ea4P^OUS>W\0JLhTLES3;>n=a?"
  1899.     A$ = A$ + "BN28IJaTjB;P5oELBGF]8Y\UnGHc]Xh\73W48;21FU[l2YfGFd9jARJW7WO_"
  1900.     A$ = A$ + "o`SVBPT=;L4co5[REj:?YW]E5cBIaWbdV3B9K?B;iOG=ANS4g:Og:Flmd^JM"
  1901.     A$ = A$ + "McS]XYVgihQ9`R^Sc4Hm<lOn>P5kbTf\=lY0f6CCjm]T8<=W6A\_\e=e5`B7"
  1902.     A$ = A$ + "i5T^mL1\4goJbeoHAVk^3c?5HEGT<UcHb2H9kGBc_CVjBV6EZaC1F\#VkcLc"
  1903.     A$ = A$ + "0AVV;iQQ9N?HY7Fk9g^1;5jY0;F61e9bn2H9^Tg3PEkj#4lNoJU3^PZ:WliJ"
  1904.     A$ = A$ + "YjX:9`f:T18m=2\hJV6H937D]Y<nj35CGRElM[^o4PelCicKO?VcN_LhM#3c"
  1905.     A$ = A$ + "<aU?i>PE^40;F?:FhKkQB=?Bn;PE[G:iW^E8?;2e^?YUP6He_M2PEWDVIn;o"
  1906.     A$ = A$ + "[1\h\Aff5UIdi`e<150;RU^3HIihn7nnKLW`n1f]GkL4eabl4RoSkiX>XLRJ"
  1907.     A$ = A$ + "d5nmgZFlhkf9hf;1Q1_fUYcQ?ak\=g[;RE5PT=oPCKfl8QXg?c?e9mKUDmST"
  1908.     A$ = A$ + "oA^acoaW;Pek_i=kXK]dLk#>#km5;gk1e:lA1XVD6abjSP4DCDeFUOSg^4mb"
  1909.     A$ = A$ + "FSkAJc8E7;OMMiYm>_<U2iQEWSZZ`i#be[ZGOG:LkjgKdbMIRmH5[KhIo9Nb"
  1910.     A$ = A$ + "Ce_PcB8<S5I0WXn0>f]gmQT1FHVLZ>7;0\DmckZ;dZbk0Z]_NFaZKDZcG==U"
  1911.     A$ = A$ + "l^Y]]Zo;\4?0\ZJf8PI=^b]KN?Ci^4n8WOK99H]5n[2?FZk4=kLH^iE\ncV0"
  1912.     A$ = A$ + ";FY>llEn6:MDRBAMI]I`ACde>>^92n?K6K9WGmMVl<b0;Gb;W4?hX2CM77DZ"
  1913.     A$ = A$ + "_RUfK6732Eo;Tb#ZLhS<hlgQGKQ>=O`;A4[7GJQOXbhbF[YaZ:8aCge4kHD3"
  1914.     A$ = A$ + "k\30F0Djofm<WHA0\D]H59ZJBCCi0fVeg?EE[I_J7RMHPUe00ZT1cO5CPUJh"
  1915.     A$ = A$ + "0o9^C55_C;=Uc9_RU0;jSmbSV>eO0hJDR_1UK?;:4De>38FE=BiVedC:XaXF"
  1916.     A$ = A$ + "ce`MUHU>3bHQ8_N>_aZ2`[<1FaI0jZhDDe7KAe_HQGUW3bWE]\If#;<LdVb5"
  1917.     A$ = A$ + "jRiGX2ZdjmXk8\7NY30Fco`nFeF]GSS>\M?HW5OPcG0[?nS9`ZjTM<G42K_g"
  1918.     A$ = A$ + "FGYjV:D2V#fLJA\geb4l<[::QCVehM[4cbWiHeeTdL\RUCg5=c4_BhhZ3^Bm"
  1919.     A$ = A$ + "`eXcYF\8O;IMMcR\;9?LO<O9BEB?Q]IFTB[kkJCe8F=WZWm0HEUk[;nIYC=`"
  1920.     A$ = A$ + "YXl#CXDjbFi0`RI2CWQe=H0e8UE[OM08fVJRZ9a5RHgNGF<Bak4][7<E0953"
  1921.     A$ = A$ + "EjelF5SfdP9FC[HCneOA=_fL=Ce;_b13jQ74M[h`jPZC]NoV;Z5CJ6W_hnFn"
  1922.     A$ = A$ + "90;f:LH1[XES;PEBOePE]JVXhW3?BF#GE>S16gohaSJk>D_O`839<\5k;bFQ"
  1923.     A$ = A$ + "IGmlKnlPY3k1i=R]K^3>>9SEX00?GAC3_C[KANO^Va]f1?EH;\X]g?Y3la3e"
  1924.     A$ = A$ + "GdhG[^7QRZO6Vac=1bW_\15D;[kiZJ0A:InWQi8CfaYX]3ZC8cTP4866Ra:F"
  1925.     A$ = A$ + "^ngLcJAf:MdeZZU3nG53>?6m3>:IlP^U`BjNoTdfU2MHRR4IliOEXAmHPeT7"
  1926.     A$ = A$ + "2H;^LXWDi[Wc_kV>VT<:9PQVkIad4KJnTUcKYL\Bd;`RH1_VjbbjiDCTZNN]"
  1927.     A$ = A$ + "<_4PKf9n7:UGfnoSRE3MkB6;llR[RR]9OkEB8_X>CJ;ba20[KNAI3\DVY>E["
  1928.     A$ = A$ + "ZWIC9<3mg6HQ?Gm<Be]SOHV160;B][VIXm:QDnP^iSd?l46dT:G`>lh:_2fW"
  1929.     A$ = A$ + "VA>F\L3]aM0;=L=3_6WCP;K29`D`>EcQ>iDJ=Jg1\D:jKm;PUW>]f5`bL]SI"
  1930.     A$ = A$ + "n\RmD0;H^IG:GoC0F3hX`53\Zifee=>[7;;>[UdP]0Ze^MdRF9L7`ZNgc:DL"
  1931.     A$ = A$ + "Q<oE8n5RL\N`ZW=CV[6^;?;iP:EjC0FHkcZImN<R8:coMF_QR>7F[mf0;f#T"
  1932.     A$ = A$ + "L;<<Q6mk=F6Oi\iG0[bC0F?V`6Q\o27Di[Ei9k>E;:I57\mk]H4l7<Qd?iSW"
  1933.     A$ = A$ + "aZ:mkRFCV2e3agcIJiEoeHgQ^?dRH=GYigl<oQ2m[Af5XB`h?D:R1KA;XDK?"
  1934.     A$ = A$ + "RUiAMLhQX=jE<mY?El0ab?k_^df7GaR:b=HeLKjOUC1ClkJVl^M:_E2mA\RJ"
  1935.     A$ = A$ + "Agh1JDAXi#22773##>Um0HY5Ba7SWo^[WE6HaUaHUF_MLSScm=kU6Q2IE^O5"
  1936.     A$ = A$ + ";6kfkb=M:MiN;5FMP47VURnNE\bREF8]FaRaBP5kAAFH1]gQn9B?FE5bZjbA"
  1937.     A$ = A$ + "]90=SUdl3F`Ie5mW;#;Rb4b7Xg=TEn1UO0an9CPeS0HaadC0[C9#kj8kEI1Q"
  1938.     A$ = A$ + "3:=B1`RO1oROdl2oXZmLfKlF4aM2#Unoe<`bBo1:i_S][44hWCFB0`?T3<]_"
  1939.     A$ = A$ + "5;]80HQ9k10;X3S>fE2j3aZ;?9hB:Fl#nhI3AiLQ^UhHmdPBMlPO0ACkd273"
  1940.     A$ = A$ + "_9e\SG4cDi?X8FaY7dR?k^H113YeWMBgFQ:kW1F#W8RH327CBO>>e7cDkG_M"
  1941.     A$ = A$ + "j98];=m;[Q\RFdVR=1PU5aZRVC\U7mJfMG\==9B:0hUS5b:9iQAE<GFcOE90"
  1942.     A$ = A$ + "Fcoa?kIX=8`3EV?TcbHYD\lGFALlU3a]fjZ]Z]17\OiSAT\OILP3#K60\#c#"
  1943.     A$ = A$ + "iP89PeYBVeiB66NBkG1`Zk99J8UR<7JoCdaj3BS?>Jg7j^j2HYVkeUi#[g3T"
  1944.     A$ = A$ + "T0XWCV]OPc2XdmPoYcKc8faH9Z4]]B<CZX7hJd<4`BJn1GDP[fi7d6HUBBOf"
  1945.     A$ = A$ + "hX`6[Hae^F0[Q8Wn5`BDi7TD7[8jSO8IlPR94JK?1FR_d`fZFoN;ibJA;:D9"
  1946.     A$ = A$ + "7c_X9`b=2Wn`GFl]WcDFMm2N^R579RI:1<?1W;4Ua1:98FO>4NKKWco#lLV0"
  1947.     A$ = A$ + "]ZUL1\kIe3KB;F`R]hF<_IN^`T074HUd4QG;nOk0HUFeK0]=9II32kCFF0[_"
  1948.     A$ = A$ + "g=fK1<DhMR[`jC17QiHob_XE?NL1#f_k[`R_R75]RdR^?JBkk<[Y]BDdR[HU"
  1949.     A$ = A$ + "f`BPEGkk8k#kXE2K\39>QN1^S?G=eT9`2gCWnClNHIV:IffRQ`Rc67NnBSHm"
  1950.     A$ = A$ + "YodZ[P6J7ZUVV1ITM3^jQahNdSH_MJ2PHoAETH993D24TX;^2SANZI=BmjjZ"
  1951.     A$ = A$ + "_OX\f96fN:PUGJUV>^JFX8_K=__0FKZch6HYLWeT_2]jXh4OhNQX3>mlfn5`"
  1952.     A$ = A$ + "2e7GILWhI9[=3\T_\#nYbToVoEo`cBR8W2HIcFGe`RCC5BeCD>Ec6KREJPO:"
  1953.     A$ = A$ + "bDUg_O5;BjaOY0;keL7>Y2nYH[LgbkDK:T<d\0FjA_Yo>j[l^n>TW?nJUSn2"
  1954.     A$ = A$ + "HQ2k7<ELH1^[;AC3Uf2UoRSgmj[#D1E<8THfk\NTdI_^AcQ9iZD?`S1\2E9M"
  1955.     A$ = A$ + "]l>[SaC1F]_>`:baRJ4`m0[ccUBVXDdgcEGf5IAN\_k1hM5K[525[d]E2\#S"
  1956.     A$ = A$ + "dP_M:>6M8PUn^RI8O?`BS2]jM\1FTd9==i?L20CLBia>Vk[Wch0TJ8_a2MeR"
  1957.     A$ = A$ + "COgdo3e#oIL4`8`Z#PejNN78BZZ;l;\3^7j1IXdbIciE_7fH_Gaj7SL\llh>"
  1958.     A$ = A$ + "Fl`^70;D^Q`XXUoK[E\#VoohI\<Oi1K5=Le5We]g9:>ddlolNRYEcGV[HiC?"
  1959.     A$ = A$ + "9C=30?dX85R<ED:<N#CXZ5MAd?5;=];`[0cIdAD7fn86I>aVLhOVNHGM\\0Y"
  1960.     A$ = A$ + "`SWbZmNTF2L?ZC]DFR=DSK1heHFaB:WR2#5cA9A;<Ei\_W?TF]eRQ[Z5aZTX"
  1961.     A$ = A$ + "hIWD1P1X67L2EDi4b3BgLJ#JAP0F:FFPdZ[XT>V2?mVeQi\IjUV`8jMAUm8F"
  1962.     A$ = A$ + "GJZF<#mjoL3RB:mO^<:MaNV9j>gkN3M><R=_YUfRMaMY998:4?#lAEEmWCn#"
  1963.     A$ = A$ + ">?Ehg<`Rk0N\bVYM?`jWP;<[]iPN#L]Y^XgMe`2jeB_4NWTeQW#L4aN1\jb6"
  1964.     A$ = A$ + "NAkj]ghYh9e80`jX\cU3Fab_M#nChXXf2HQ#6YQK2>nES>C0Io[\UcN4KaF6"
  1965.     A$ = A$ + ":;#Z#NN>D_=4`BcQNa3L:^?RH]e9f?_LFI86In;23\:2I;Fb`C1[kI9DaFEW"
  1966.     A$ = A$ + "#k_E>FdR5A?eHEo:IibY=A0H7kfcBK[BEnDPU8#ZiR7FoI_8o6OmkE0;VJ]\"
  1967.     A$ = A$ + "YJn[SR3EUENg>i5=_c5`babMS6NXd\\a#G;<0FJl>:lHaL81UW#oSoF?RboZ"
  1968.     A$ = A$ + "IL[e]n9;O2UTEYhZ?4:aPX4S^`O[0HAfQfYlkjAkK4mM[YT_3o6O1\nF?:1`"
  1969.     A$ = A$ + "Rig[M9i\]AJ563E9g=F66;FiSD^QaRSEAF?=fUdVB\XdTbRd`UQ>:b=M#^SS"
  1970.     A$ = A$ + "eeeWd#bV85Gi3_fc]CE=\=kGTMF=cVH^:SMn_;[Dn80F69VZibjS_R85?FaS"
  1971.     A$ = A$ + "2GELMGj85kYYTAAdko3>1BZkm<]Hm_XkI7SmQWaJFI9hj2H9o?Um1f]36kca"
  1972.     A$ = A$ + "3C\7abM=5]IZ9kd1^j_]k1FD4R:mTBNGaZLcXd>D^6TQR8CQ;g0WP6DB2[c5"
  1973.     A$ = A$ + "2HmaCP5?88;XlRckRo8Tge;;NHX?FTdGc2XM1\DM\:kk=]1C\R35G8bnYR5<"
  1974.     A$ = A$ + "_XBd4LXjXNklfO85`O=3:LX?D[]9o>6^MAcoN>Ga2ZlBk\0o8GbB9CNYh1jZ"
  1975.     A$ = A$ + "aQ`ECe6V#`8Fef9fhK2\LKc=`jPbV<=UENVEFe`em\F#o8:UZkT;Ed\\_7Ln"
  1976.     A$ = A$ + "G\ZUB2EGGGAJ1fCW^JE8JZ3[bQ<kC9A#I9odl\O>f7XjG7Umf_FiP5R\KZeA"
  1977.     A$ = A$ + ";Iil7eZ00G2\H\IYJKH=YFR5NOYg2\`kQNRZY]I\3>5^N>c1APSDQelNNR5d"
  1978.     A$ = A$ + "Z4VT5Do=LHPDIHPEg<8mSkO`i=Y6gD>G2]CVW8UWfBJG1I>N#Wm0Heo0eV?Y"
  1979.     A$ = A$ + "<O`3_G0[eA3YlD3A=mTY=\0Fm?0OAc>\AKlQm\MGBC6KWk2H9g?_`]hD\S?X"
  1980.     A$ = A$ + "YfbA_b<G3V<g1k>D5#dL9:RK#^gLhH;O0>VY\\mV7O4=04E>jI7\AoRIWl3j"
  1981.     A$ = A$ + "F`PDLM]ned_BhTKf[2j4\dA6GQd]MiAbcHKOPY?6;NB_?LUM`VPWb[Ei#=:P"
  1982.     A$ = A$ + "Ei90[b74mU[G]N_\FaZJAlGc\376Nn=C0\JO0;^5=kGV]Ra]B\5;a:FaNMif"
  1983.     A$ = A$ + "<M^0HEoP65D4^QBY5ZX]HDJ;KP55gQnA=k1;;0FJS#lkkXIWGfBZA?TgK96j"
  1984.     A$ = A$ + "7ahShTgW?XIM5cRL9]3BORiG^27f<eR[Ln8fC7A94l?hV>dGCB=<Ij;VbkZg"
  1985.     A$ = A$ + "fE3bQTHdQfM\dmZ>V8G2n=Od^dNg<NhQQ=eJg<5RAlN>G>_i[k<c51\H_g6N"
  1986.     A$ = A$ + "LnE_T?ULe_]iSg9Y:f3Ca<FEI20\DBLjT7faMKn`2lAgLiOBYlLeP3F\>ZUi"
  1987.     A$ = A$ + "\ZN^TQ\0YPaBF3bTD]k9O\5O0[RA25<^WI]a<`RRdFBVKS\=0eU7Z><^GQdh"
  1988.     A$ = A$ + "EfPJOTf518bL9[0He5eZ2GSORmNg7Znm;mTN>jD=B;8Ak]QU#4Y#==YbFh]?"
  1989.     A$ = A$ + "?9`2He>_m63\`QR8`be1FG8mA8[8T5_HCd_?nSa1_[ZM;0Gcfkn4P5?N:KQ0"
  1990.     A$ = A$ + "ZfDC>SR17M9\R=G#:\K7Y`MaS:Zio3gICk;VSG`G0;eO=Ul=6l2<j?hDX3bj"
  1991.     A$ = A$ + "7T#\D\?X?^;0MFDL?5LO]Ki8XYKT>XW;k#4Ul^koHhld3[8=RUia8kF7kQNh"
  1992.     A$ = A$ + "iSi`_JWiUcd_a1hO2`BJ8cVbNG0;DiG]m:G:JK=O0U;Pe61FM1\h>C4HAN>S"
  1993.     A$ = A$ + "9R_Z6bh17T0;g[`2hL05j?ZjOVfOEaa7CD22\bN`bFW:L2\JG0;UOUZdLBY\"
  1994.     A$ = A$ + "\0FXOR7LIfb5`j=HWnKX9k\;dBU<DMXeJgZnXb;SLS4SU:Oc9712=C3LYP6O"
  1995.     A$ = A$ + "=ck1K^mJQ7<;dM?0H:f7[Nd<8NC^<QVoL?88aY#V78Td#154;REmRalAFMda"
  1996.     A$ = A$ + "]YIOhc3XbGMXn522>O4GgJf8Y\V=<]>J;YihH1\hQ6ZfQMD\_BSRZIcLg2cf"
  1997.     A$ = A$ + "<0\ECa45Bg:RXHlHZamLIM#Bl1_jN6;;=7iOEo2]RE^jNEiEkNDdF#ZV9Y>S"
  1998.     A$ = A$ + "f9Dm2>;BCUTA0TB>CN_ReS40#P9==<f\`F<cFLdaHm8bZ3?ijfcNHg0[7gEO"
  1999.     A$ = A$ + "4V9?W_CE7ckT8l5M?`gE5j^jMZB:;Pe=F=Uc;P57DE>D<5G?09H1=?c;\PQ_"
  2000.     A$ = A$ + "lW8P5?9FFb=>Mi#]58WLjFaC?ZjD1=G#^Zc?QoPkj<iN[>`PXDX96VCQ\4:9"
  2001.     A$ = A$ + ";:8MMCSHkfi\H]Z5Q[h[]m=Yc<BL[lXQLX^#OhH[i;PU8NCC_6WK9ao=KCPU"
  2002.     A$ = A$ + "FKQ5d^JnHa[[g:T>2FOE`1FJkR\Q^AhLjTk6N^2o91`BA01o\anmS\#hXR8G"
  2003.     A$ = A$ + "?7?=ahbH]HFW:L1\X6fBdYCaZ#nfUGCRBR^C1=B0GZRI\jO;i2L^aaVf0=[9"
  2004.     A$ = A$ + "Bi0HaadH2\H]Xdk8mD00[UdO>cUnPE1f0[Q1F<=kLLZ`?W0;nCDcH_>n]J9K"
  2005.     A$ = A$ + "Y>o?9PV>7m8Z#52ncolgLXN0geLF[nPFDFglTk5cKd>W`gZH;VRm^E\Taa8="
  2006.     A$ = A$ + "LS^DgHm]=CDUWJR4dbanJ?P]]^=Ac3FiL=APFVo:FcT=e5Mi6VGGm?BnUa`2"
  2007.     A$ = A$ + "C1G38?L:Icc5iS<YAd^5oNOdC0TD7nQh>]l^_\9`2GaZZf>b=9i0AX[KGBLX"
  2008.     A$ = A$ + "KK30EmKB7]>TUXcN]Bf9dm9jM\QA4V<OkZaImE7EHDJLXim2fFG0[I\I_O7["
  2009.     A$ = A$ + "D5CD_4UmeIL#:h4C`A;=o_\^WI9G:eQh4[?kFAeUVT2\\0Fl1U?L61FX[2l5"
  2010.     A$ = A$ + "0VhkF?8#Zh\4T;OUS5GEY4f76F^K2\lc2^HXh7CYIcDE4D^YQVS3RIc7FFan"
  2011.     A$ = A$ + "Xd99Q3aQ08gJiDRn4P5h29W_5>`EnjJNn961<#]mE3H#EJ\DGcimCNUCG3<Q"
  2012.     A$ = A$ + "_^PmlBo]EUgYbkaJTgm1GB;PE<19njnBmPm0MRY7=G0k=`C75>4C7U\UDZPO"
  2013.     A$ = A$ + "C7oNKZPL=aPQMmTTMC[Oi>FMS1L=5B>F;IJ^kIV?Nf4:hVB`I4I_QcQh8GRH"
  2014.     A$ = A$ + "IO1b:gNBZ_]RLg2_n9JTkch\J`l\j0HUGaZY=O#5bXiJKBV\P5ZOhIL02Vo3"
  2015.     A$ = A$ + "SmGfMNQO:0FPK3P\Uh0:5Gf:ONOeGeHVDjaVRB`9V[L#ZMcY9Uf407]8>LXZ"
  2016.     A$ = A$ + "nVFcD8IeG0;7kk;Nd8PU==9dA6=DkLg?;gS9e?gV9jg?j>PEgZECCm:P2NLW"
  2017.     A$ = A$ + "T;Hh5HI:SHehc35k[Dm?Hn?MgYZCik7=ofE_Th1k[QXKZHGMfnDBmNCUS13I"
  2018.     A$ = A$ + "T?>^TS5FR:lFPRd:SmUT7`FBZ5`BZ2gXk4K?mHWPM]6f^;mcZd2Hii\?0FR#"
  2019.     A$ = A$ + "Z\bX4IlF0[I\_#=L:IA>=:]0VRb^1;X;dD=KH2lI3\`eUT:1T:[I]4QB0SWJ"
  2020.     A$ = A$ + "M21Y:nZF#9=>Cjn`?20[iAWH92_m?oX7F80kS:5=eR;OGh]Pj#Rn5<gE4LVX"
  2021.     A$ = A$ + "JCc#eaL\ZXCH#=5B[A9^fa3j^VS2a7Qa^6eBRUG[H:27;K0[LDRHOcQ[E4O="
  2022.     A$ = A$ + "=bUXoRU=:835m?[XQFV22j]S0HQOl7b\`Hjf7R;jTRQj4RIYFonkPV?fo?RK"
  2023.     A$ = A$ + "1CLU`=31\HYdTO]=dUUBZ6j^LWMB`oN;R04h30>oSjH5Wg\jjPN5N8WBRS;8"
  2024.     A$ = A$ + "O;5_PE>Fk>1DehO9M3:KNF7;a_K^jIZ]nhoU#V]A:kMeOMEUmNg[HQmT8`2_"
  2025.     A$ = A$ + "6Ie#C?kIYZ1U\XHX4hX2cf:CcA_j;K_kV6Bo\]:WB`#H0\nX?P0;#O]oi7N\"
  2026.     A$ = A$ + "4JoZ1F^ZnY?hOj_hcWajShW=KZ8oHe8B]:7fM0;Z:i[H]Vh9a\7lOPe\T5Jg"
  2027.     A$ = A$ + "2?\gMPC:D:OF^?f#5oa`KjIBW0;:9il55W4DTl8>0fLQi8FDA3^ODBM;oG2`"
  2028.     A$ = A$ + "B\d\eF3VB4[6kb3GWl3?Q9dbT#Uk?jaT=Q6TU;2HiHUM>;?MVci>0OL0YTbT"
  2029.     A$ = A$ + "LHM>QRZEEI_7aV]RLG2=YE[<1PEGhjRD0^Z6F6FDS8FAHI9nPVZ;;9nP<gSR"
  2030.     A$ = A$ + "XFBDW?9PE4;=E8:biT_^=9223Uo8V9=N34ZUm1f:7an;NWoRoP?HnY26D7<_"
  2031.     A$ = A$ + "cjeY6]fa1Ej2]Ub`[EYnP=j?oao]OaOa<F\C5j0PB9EbBeaB7dMI;ISJ]Da="
  2032.     A$ = A$ + "oolE\T#2J;fS2YJMRZHZ6:hQ;l5_T7kIL0`8fQMhGBG;NnBn5HIKOG0;GfEF"
  2033.     A$ = A$ + "GOflPcc8FFK>fD>[U8j3=bi1ND^lFEWZc#[i]D4kQ6X\cECbES7KjTLXHW0H"
  2034.     A$ = A$ + "Y;?GmIngmjjb3^[mb4SMNSK2mh67W2]4_]8ElC?WSH3;i]9U_K#UW8;7oY#i"
  2035.     A$ = A$ + ":V<>ENZSfC\4aj4mIknTiCD2PUJLE5dK#mCL^>gnlDQ[kIFf<J[:QE\gLM:A"
  2036.     A$ = A$ + "5kOg7fBJ:gZM?1?CL5Rm;NW_jOg7MN3i#NCRd2F6#0;0oB]aM0[nJ9[nkoMo"
  2037.     A$ = A$ + "?lcnZI\2HaC6cTQ8`j96IQW`hm=ialc7hGab>n86[3^DUUZhPbKJ^e[oE8C6"
  2038.     A$ = A$ + "`an[]E\2XCUnZFJaP?GfHGnSNUcoWP[I\5k[HI6f5?4]4HYdFIkPi:FkLJo8"
  2039.     A$ = A$ + "YL5`:RUk3>6ZoR;e;I^N:i>7L#F]f^lX:^ReemL;X4S<80i^`4cOCd^g:YJE"
  2040.     A$ = A$ + "WE10[8FR7bE_FNO8?n5#=Y2gBd8Y;=A=d6OW4aZJYB3fD;I5cZR9U5:Qn3J^"
  2041.     A$ = A$ + "<X2Um`3GaJ62jTaX<iU=Y4BK4HAM189UNF;:RHoI_cOioio=o^ofkSao`gki"
  2042.     A$ = A$ + "?oi?nlOS]gki_X1OHQY=WT?P?FMc7?XOla7o]n^oko?ngoGZHo=n=gNkHkA5"
  2043.     A$ = A$ + "]K;g=O^a3nkjK<fMhDFbJ^Jjl:j8\hDLW`P5o6RM0CHZE<;iHdFG8h:FOSaF"
  2044.     A$ = A$ + "Pon`_TDkH:KV`TeOIoN7?9f>^^HD[A9l>h:FBM\TNKn=NMk`:RU\TaVeZl:A"
  2045.     A$ = A$ + "Rf8ObagH\cSjohSXBFU`R3E57h1SQa#m=4;MmEY<?LPX#5BYP_efYaBl=o\:"
  2046.     A$ = A$ + "Sg_#IZfNPbEY;9X>6K4kOoklGmGnIoAo;o7mkmkmMo>Od7mAononOk_mgnSn"
  2047.     A$ = A$ + "7o?3oiORncgik>ocO`l?ho`g1oIn?kkl_n7n;n\_j_jG7k_>fO5anE_cGn5o"
  2048.     A$ = A$ + "\OfoUo[oROno]Onl?oeoO`OnKo[oiogo5o_oR_hWngmUojHoean[8fo^O=`j"
  2049.     A$ = A$ + "G7kog8f9`j;oRoXG>gFm=\[>\FX_ie_ne\^c_4oiE_lE_FS6QBC]dNa;NeoR"
  2050.     A$ = A$ + "?o;oOlEOI4k;U^mPdgNi[OmKHAYOcKN5oc;UPXG8QFJmGmRGodHOa7Rc:lQ8"
  2051.     A$ = A$ + "UVG>og6I^>Nm[VGfGmZiM1KGcoOb3Wo`GlfanJb]5>;U_ne_jE\QSck64klN"
  2052.     A$ = A$ + "fVN>7ghalgdK5;4QMNl`nlbm:4:o;1oi5BVaJN#FnJoNOcH4EMONCn68B8oo"
  2053.     A$ = A$ + ">C^h5<hI2ROHkLhacm5_h5_e_gBm3KTEEc7A_i=X4Ko3W?dN=^f_VDe0T?:o"
  2054.     A$ = A$ + "QccSleRmA`]LZEEcOVP;kc<LNl5?bolRi3a<cdn311HnJgc_?[619D<nGWeD"
  2055.     A$ = A$ + "lU?jo`I9C7`\DV?WOl]Oob6fQoNWgZ_0bHMkUA`cLJo#jRFThAA\c]2oKoSO"
  2056.     A$ = A$ + "cffc?NTL8GN5o`F^PTe>=K4BC^ESOW#UGmoloel2ogn7ojI\Y7e96TZhXIdO"
  2057.     A$ = A$ + "9VAEkBe9j_N<hGNG\U7UIf6jV00FF^I4EoVYD;AG_An2nJ7kk?SMPY;\#3Na"
  2058.     A$ = A$ + "^7?M\AG>NkAUBZ>HW3NcCSe2m>X7DGTd=DX6F78MnI<c5hPH_j^H?4?Bm0c>"
  2059.     A$ = A$ + "8352Y3E<6\MJSd9STjOaMafOTF7CUc#e9MSk3>5Rd^HiiLXd;`ZG>QHg7KnA"
  2060.     A$ = A$ + "E`ZRL5Jh4UT4Ec3J^CS3S>Z3WbA<f5?iN>m8[jE5Z9S:868hNC32AaN\3o;0"
  2061.     A$ = A$ + "7PoIY7_;ffSZD2LDM6\Ld=9CN#:UZb[E8GWe`JPHoZgi_i?iDRK;=E>;Y]7f"
  2062.     A$ = A$ + "R9ij#7]AdE7;G2hTO_h;nYo=o=o9XDdb\32FjfSIjA^Pb`mfZ`Fj8?VcanXI"
  2063.     A$ = A$ + "HRd=<\f3Y<F9DFPRH_Eo8U#U89kR7>fg8o4#FkTVnJE^QTYMSWXTfH1\>>R["
  2064.     A$ = A$ + ";^B3I6CD9_58HEOD:[HQg#hIQNM?g3flMkPc=1==UScQDLQA`[KJWGdJiaRX"
  2065.     A$ = A$ + "aeU5:VgNZdkg#3MVO=G`\GJPEVb=S^dcKZ8f<>065DKAgURXTP4eS4;k^]O["
  2066.     A$ = A$ + ":785li#4Kan>E=DCVDACUA;ZoAFFQ2dF6HQ8ClB4kFdLjVY\37PHAc81\:i>"
  2067.     A$ = A$ + "UV]1;X6:l?RmWn>Oi;OTDB6o`^0FahAdPc8eO2`J#cOkaWo_jcnbI\lHWQDT"
  2068.     A$ = A$ + "<dd4;S7BD_K=C55do;aTm8FA=0E?JFA2^A`jm[40ViU;U>X][QKQ8f3=;El_"
  2069.     A$ = A$ + "j`c>MC#BLoJ>O[QViXNW4aF4e3[6He?]<`L1\T5L5o1KA\^WKLehCAQ<F1G>"
  2070.     A$ = A$ + "7JP\:ZL[ZakgD_M4`baBcc8;aZ0m^3c8<7Eok1FeB:NIRjL7a2P5ZDYHFO#_"
  2071.     A$ = A$ + "1=N0k9Ye#9jk5E^2>n>I5[<U`\j4Hh8Q=K90Zge0U^CPERR_F4[=?A=]2\A`"
  2072.     A$ = A$ + "S\d#_6l0E:Lb2Ha6=aVSSHo\gi?oO`c?e7NhYDY`aE5=?VcEdLiJ#ZUKN4;2"
  2073.     A$ = A$ + "2XPjnl]n\olI\##T3PEc;LIWl8ZU:Y\NC>2Z0F>F=3_=A>`Q7mO>nQA_Eh?n"
  2074.     A$ = A$ + "c9Daba2ZITReBP37Fie`GC;U1dgR\aRm]QJV35:=D;;5kL?P3:5#hcD0?Xdg"
  2075.     A$ = A$ + "J5lG0[kXW4kKjjjBbYk1kAD[6g8g6YT_;HYT;ePd#9V?Tom2hn>g7QRA5];S"
  2076.     A$ = A$ + "SK0G35EBMRS[];?46[i5a2IM7E[>ISB[jEIhNGI<0Jd<1IW2IEhZG?WCRDnB"
  2077.     A$ = A$ + "NdZK;[mecC1jU8FA[2U50mi2N>A4K<J#bVUiWZLB#J\eAKd21hGNZd^Tn48f"
  2078.     A$ = A$ + "?kMnCO_W0\bjYVm881\6;PUH>4Z1h<hoCoYcHoj0[B^7\fJ1\j;P5^5SHIkH"
  2079.     A$ = A$ + "egVEeMB>SVb?0S>N?g:^\e?5QN8`RabQc65=OVNQTGKb>N^FSIP7k#SID=U7"
  2080.     A$ = A$ + "d8f9`2<O5Lmf0;<j[G0;dVX0HE]=?6af]mTKPEg3<Gi90[6EgBR`B\HTa_Gi"
  2081.     A$ = A$ + "BFV0PPAbRD3Lk;?aLBD#RI9[4aVIZATP4Bk#hCDYkI5XZHd910`:70[E\9fd"
  2082.     A$ = A$ + "6i>:]XIQF`Ih\#C]4iQIPLOhFjI4HaHYS56Z6XXMBf3k9H[8FaZE]MIXBoCP"
  2083.     A$ = A$ + "eGl52HQceLCj]GHM#Mk?UWRaTb?CK]XM_8HnP^GG3IZVkPLJ4S8e8PKT;1KZ"
  2084.     A$ = A$ + "[0Le^_#?XI0EJRRnOC=IBG3E8hOJI[8YMIN;4a>2L#S3O]dZ1C>^FK=3TR\6"
  2085.     A$ = A$ + "B8?>_^^5?XEb\b0XSlOIe88>CKMio<JbJFGGAG]Kl#17>5Q1=6EmHoDMgD72"
  2086.     A$ = A$ + "PKBD^kN>hHFf^Yc=RAKDQ<?Gmn:Ii]MLm\R0[Mc19RZgcJm2Z`>k9>8jfREf"
  2087.     A$ = A$ + "DjVA\9ZokLY=KkcBLO4IiHNJE#]:B``if3H8kSH11icQ:iDMWSY[I#MWTC2K"
  2088.     A$ = A$ + "fF]#F=\<_0Fhn4B9VX\eYg\C_K6ghcmcEcod\[RO`OZ0FiTUkYReGWTbOoX7"
  2089.     A$ = A$ + "Tg]cKT]]^i?E4;gVQ#YF:\mPPHhQiOA7:?]OHKLK4aJ6Oej]#JgegDjGGleH"
  2090.     A$ = A$ + ";VZ:>PEA\FY?X4RHN;N8mCH1X9`ZH;A2[cLmkU_F3PECm;\aVe]\>UQE0f:9"
  2091.     A$ = A$ + "cbecZX5MZ]=HR;T9=1VM25WAYKZ66CeDMLm\j1j8LL:8#F^#9PgN#4m;3]CS"
  2092.     A$ = A$ + "Y0QaH4d;PC8F:R=aTXZb;kh2MkEAF9>7Ab>aQeGPFnEL>F>F`QjE[5YWTJ9`"
  2093.     A$ = A$ + "?gaB[hDQb?OdGST8c8f?=0F7<5F0^>GkjaG]WjL?VPDnU90FoFORn2n^E\T0"
  2094.     A$ = A$ + "kTdJe7M;hC2H=o>BJoNO5;UaRHdPSVR:VP6jX[6U71\hOFGgH2M:jHP11^1A"
  2095.     A$ = A$ + "U\Fe`DjH:SDe#A_gD\FHdI]9dRRPZ]DfAm\59W;fNB;oG?REZgAo6M2c#\3Y"
  2096.     A$ = A$ + ">#DKfXGJaZ_E^e#IM?gTFod\HY>\K9[AcYk5\d8o`A5L<^NF1P5fQS5;\fUj"
  2097.     A$ = A$ + "mmPXj7:g`6i`;>73UP?TDAN5;k6HQcN:=h41\jbmJ]JGaAS4FFHVJjF4Kj>P"
  2098.     A$ = A$ + "UbjS5FP_U`:FbWV2e3WSK=_WoTgik?1FhY^FaBI8[67[eRQ3TgSM1=Jc0[_o"
  2099.     A$ = A$ + "ggK5FSQFGNbH`C_#K1e2#`?CEU0RHib[]HVLTnF:5FRB6JDPB\N6i?Lo^H?3"
  2100.     A$ = A$ + "Ve81VCbFSlKDKoJ=;XGbO:^=G1?RE?6ZLo;AE08IXb2cH6dd1`2#U8Xljg[0"
  2101.     A$ = A$ + "FW8g_SNH4Oh^A:\L;D#b>?H2;Jee_G`=PMM6O8>=L4Qa^Jc?k;WnA[lbbHPe"
  2102.     A$ = A$ + "SH=3BYGHP5WFb2Y8A:THQ:E`e^5ndlem\dmSV[LUVGWZV#HlEKBJKPDC4Z35"
  2103.     A$ = A$ + "kX1gnj2PEMY\GDW[e4[cSJ:PE]8nhIcDl2HQd[JDNQK?5HQAL^\LK9_24gOk"
  2104.     A$ = A$ + "a7OaWZKjZV1hQCaQDeCTURS0c`0[jfFHI\A\G0;n`BFBOECj]7W;?Aj5<:;h"
  2105.     A$ = A$ + "FL5kQ0FMiS;fHE4?TR5o8OH\4m2_`lljjZUY:P61h_30\Fo`Y^ZAO19PEJ[#"
  2106.     A$ = A$ + "5Kg3I9FRoXo76Z>>[OkQW?jRnGIXYb[Og_gAV7FG_2`A:>iI7WI8QR3I?M?0"
  2107.     A$ = A$ + "F4F7ajBHZT6lKA=g>I3\ZF4=H5BYZQ^^^L4LU0;SLMc<I=[bkmT6f2BchlVD"
  2108.     A$ = A$ + "O=0\D\H3hZ0FF1V4;hgUi>m0XK3m`URdfBLjD4kW2PUL59Z>FbR]dcMULGon"
  2109.     A$ = A$ + "jn]d1S[7dMGL=bdC><>NIPQV7a8=;Jfm:9R[HKf[ibk42_cbgZYN;8T]V5ei"
  2110.     A$ = A$ + ">^e3`eYE\J>:`g^L`P8iNaZdR#Gd919e#?LbkcOLA\E9c#=JgaMJFi^XK>Mo"
  2111.     A$ = A$ + "i9MAf:BheHI^[[[kQW8LXf5MkN>PhJI[o=FM1`4U7;NLo7BMKIlhM5cE2B=U"
  2112.     A$ = A$ + "lh89`=eDLX]VFQfa2OPP\MB0[ZfocIjGcfZeUdG`TX_N>G=[DEJcLNki[Amg"
  2113.     A$ = A$ + "TL`X2MMjlVVX7Lb>3\0ki9=]9ciJ6=fT0M=G`RVLMECkZDif]0HU\dlL0#EQ"
  2114.     A$ = A$ + "OgMHP5]mhW0\R:6i;LRLI<9P57JFH>IaDmL]E81FEEJ[hQEj#Z<2fQ0OReaP"
  2115.     A$ = A$ + "TV]HGnDP5j\b4H=F0[TGoTb02:fT>LnC0FBOQEfe`hK>RHcQZ_P\LII>=heU"
  2116.     A$ = A$ + "81VT9o<X50[bjN>V8LMV#VM:0Fl#N0=ImGZ[QYh90[TTb=>Kjd0mJ\K7WJ4Q"
  2117.     A$ = A$ + "l9M6FA4257I5;0Fk2HedZ3P^\b9PY1JeH?6]6gN?`BBXlF>VVR7TNL?6E[6g"
  2118.     A$ = A$ + "l<690BX3;cZc7aBVaZbTDfEgE49e2PeU8b;iJ4coA0\TXO`9gCm0QKmaQE5E"
  2119.     A$ = A$ + "`_iVd0S7dl<^3?3F0[3=TLD]lgaOgMjcBFRgGW2P7fa2BK4k1UKHPWJ9fCBZ"
  2120.     A$ = A$ + "P6JfRFBcPmfKDQ=\Menj5\BRC58DBZ9WCW=>d#J_e1ci1[M#Bd5aFJn<\lR="
  2121.     A$ = A$ + "<AEK[_J>>;HkRH0d`cnE\hLVWhDQMgj;=K=`D]:4HYFnP\j>hJRi[[[NYXcT"
  2122.     A$ = A$ + "WX4JLb46H>;D:VHYld8Xj^_^^W1`Bk>f]^i2PUMYBNN<^REBC=?C4JM?k>j#"
  2123.     A$ = A$ + "]o3]HDUQNX1PPI__W4UUcJ3b]W5a^A6U;PEFeIS?hT>j2lJL02Y[OXZJk2H]"
  2124.     A$ = A$ + "]YI[Dl1>j;80F3f\TZ7Yh31\Jj`lk?nbi56:U>f;T[H1C20A`YZ:jJmbVV#5"
  2125.     A$ = A$ + "OM5CSHYh4H9:hg6jLel3eM^<MNIbgV#l7L6ik`XbmeEj21Ch_V\NDaZ0]W;B"
  2126.     A$ = A$ + "_DK;>gKim:R5eS1=7_5Sc_aXl4X\c1M8OIAe1<`:^WQJ?AMeTf4CG5RAnR:7"
  2127.     A$ = A$ + "oK=;SJU8I0AA\2kc?][\dn`De\h2D^JS?OAEkBm6FgcLe1m\AWiMN?QQVW`:"
  2128.     A$ = A$ + "[#k5E3L>T>DoBmcZRE8;\W8OAXomEWKKlLdI^]6X^>BoJkMSHghdmH=LGSh:"
  2129.     A$ = A$ + "mMZVb1RH;\D:4K<]GLVgc4H9ao57Pn<jAa#BJJe:3bM0[^NYUNNl2VecP80T"
  2130.     A$ = A$ + "GjNK1\Dc55oAF0;j80A\LVM8\K6bNUJ20nLZ_dbXHn;VgLBKT_^^Lo;FCb:<"
  2131.     A$ = A$ + "9Ag\01\jMI9L=;\G#6MVgH>fRTRWFD6Dk8Lh5iQV`0jX=L`]=bJmkU>_Wl3A"
  2132.     A$ = A$ + "Zf8=eR?>gjld?;a4CEY6YZ5a:eIBEK#J9`Ymcc\e;CV3:T_>jAPl\dA\L5[J"
  2133.     A$ = A$ + "CVU5C6SoFA1a\=EFH[4K1`Jno<R]46USmmBJ3D>K9Y7KJ\`0`R5GIkMSHM2I"
  2134.     A$ = A$ + "g1\HeoUTPl`3X\]D^BXGW8#N5anY_c?HKSOhgT4H]lCRZU9\AF_IY1<Xef2P"
  2135.     A$ = A$ + "e?0a>hGHLdoZDC0Jd1ijN<FLfkh]ofVeKf8f>?X2OcViVPJ?JhHbi`6>5`Ri"
  2136.     A$ = A$ + "X]0F8fSHKF^mG:dSK1<;AE\j1`2MjM5K?d8XJBF084hDmCG5OO^kd^Tl5^`9"
  2137.     A$ = A$ + "OKkHa\mjaVlDE8UK<]Y67?l:#59?GgdPV4aZ^jkcdaZnYfSiVM^TMm\Y3676"
  2138.     A$ = A$ + "77[f:TY#UU69PZ2<cf>Z:I52=?V1GZmJBF\M\\aRYRemhR>\E[XS8A:217lB"
  2139.     A$ = A$ + "5TG^MjfcRHCQQB7j#JEL]AR6?VJ<9O=:I_g2HM<<`J\0FZC9g1\hi7:Ji7\["
  2140.     A$ = A$ + "c<h?i>Penm0[TEjU^JO=c_1n`gVZ]`8Re0;f9AVN#VBIaFNDbF#]3O5KnTG>"
  2141.     A$ = A$ + "JK4[U0<9PF0HYZJ09FVfjC[dSMiTJV0OB<^^6HaITb3NQGYJ1\b8iM?n8Lj]"
  2142.     A$ = A$ + "M\W\oF\mBg>JQjg70[h85f;28`R[#o91`B=UYA2ke2]7cRJA8aARK5ZhmA\f"
  2143.     A$ = A$ + "5i0`27U57UL_#5S8K=bg0[19[3Mfn8FlNI_j5PIiW`i8V8A=8`IVYZ0FEIMl"
  2144.     A$ = A$ + "4Hm9;PEi>P57O=i5HcE\NVl\`k1FE0\nT?iMnQoVK3klOm#7\>L>J=Y1`]0H"
  2145.     A$ = A$ + "52JLQ9XmSnQcH?6Dd<INMh3_RdLD=MDXmeT?>3e\#]4`H5;OkcGl\DO0HaVM"
  2146.     A$ = A$ + "dU3nX^YSLLke1<KHUl>S=T918_4=:C[LAlQVR9:iA[2E62kD4[dnd[R^A=aT"
  2147.     A$ = A$ + "7^C2H2k2=ZO3?AQ`FA\W<]LN]?eX0fACWL92liIm1;8;HVHfem\i94OAj>6<"
  2148.     A$ = A$ + "FToAd>ZHe8Z:AAZ7aRF^TUjcVKA3TgXi[]<?0FFQ>i^208e8f2WCJ\DaNHY5"
  2149.     A$ = A$ + "XRkTB96_T]O4hUofNHMMI2OZZg2ADcNdTkc5AAM\f`I9gEUJ1`:;MNW_T`SD"
  2150.     A$ = A$ + "KcXnldMe=YfjKhk0FH]k[7Fdjj4`B3^MiNP5W1?6?k2=AB?5HA\U0FHGLnGF"
  2151.     A$ = A$ + "d5JFg3LhY:lI9Tkd5`:J6041TTGL[=<;i01Wl2CJg#LP[5`Z8EOYH]oVJbna"
  2152.     A$ = A$ + "BO;IgHH6^U1k16HKbMoN]#F<^M1\Xoc8QMgjlgaAd=kFi>#Ige7<DR_^ZOHg"
  2153.     A$ = A$ + "^<<WMJIecFm3SHC4HASk[62=<1FboeXLQDIj:LU3FThe_GKbmRHETg<H8#;V"
  2154.     A$ = A$ + "J>IEW;A271\Ti3PHg5MKF0;]V;iED_PE\h<;F<8#=\h>P5n>d6^#ccQYVJNO"
  2155.     A$ = A$ + "#Lm<GBT0gG>Ome_Zn61FkMH=9\bcZ>1Lh>eg_6Hedane;9KRK#iKBD3S[IY0"
  2156.     A$ = A$ + "a1MeM:`7#KmX\K_RE_jHGZkJTVefRkR2Yl<7UXOW^VJA\D3;JbcUMJHAUg\j"
  2157.     A$ = A$ + "H>`Qb;flBiKY[kiV[2j8jWS4EhZ4;]R:NaZK[h4hGgcMKU55jIFBTl>6Ie<C"
  2158.     A$ = A$ + "Tc094UXi\#Q;PU>dFhX4boATeYfDMaL3cK\>hIGB8oQT6aL^BVU8;`C?M29j"
  2159.     A$ = A$ + "AhiTn13\;:_eM0;BDJZC>V]jhY2Wkk6ChOcJo]6JE\Tj2He5G\8iP<IE\V:D"
  2160.     A$ = A$ + "UYZif1WKN1nk1FRSZLZ40]IgPT1R_m<jbdL8f:\mf0;FMDd]\4;F1;6Bbf\N"
  2161.     A$ = A$ + "#>HfQ:J0HGPSea2XV5cBA`3XG]HF?\I`:IJG]`nn]6\T^E<?:LCHhc1TjDU?"
  2162.     A$ = A$ + "W[Vm^?1HIZZ?J`l#1iRkTWP\gN`YDmNhFAo`R7;0=?h>;;IEd;Gj2R:D1MH="
  2163.     A$ = A$ + "1\TAf[FBL]EXLVRV6[Q6miHZTP^Bn<[]ZV5IJfO[[;UAb4EKKbc1efaTZ;50"
  2164.     A$ = A$ + "FDNhOh1XMkB0i^Fa2o[_gDG84YReFQIi^CTFPB91]UAkd6^0FQ7\em:F59hl"
  2165.     A$ = A$ + "5E]AU0KTdRE15]e0>[=A2XbkkKUS:EieVUC?U41e6X0H]RU60c#79<1HI1R^"
  2166.     A$ = A$ + "\<VUN<K1^CRWZZYA\m`jjLE8MYKQ520PUL>2Ye4mP^EA\iOI0;ig47LQ`iR8"
  2167.     A$ = A$ + "kT20e[?AM\B=#XQFYA]WK93PU\FF:WXJ#X960IJ7aBPEEB8DZL1\dgG7l<3\"
  2168.     A$ = A$ + "#bHF8XDSdF?W9`Z44jBJR5goRk:U5cnZ=i>cbi7GgcbZGmX5D=o0aFIQX98A"
  2169.     A$ = A$ + "Xi1L[50[eeEBO3JnQk7BAUG?[>#^gE5Bc9O0O;iCJ[#J2k3W<b<UVKM9WJ=m"
  2170.     A$ = A$ + "TES7`XVTgQ9>b5P3fC7JVEP5:I0\BUUcL5DkB0;kgm;`1gA7]U];;3a^fPdT"
  2171.     A$ = A$ + ":;TjREih#4Y6m3WhUdH9hB<U4Fgj6E02GejkXej9E;Ue3[#UIIUgUV>BiQ1U"
  2172.     A$ = A$ + "XR;MUBkj#iJ5R6EAh5`BDXW4OGcMBQj0Fa[lCUVFeH>c\oRHGnH4eXRV4>IZ"
  2173.     A$ = A$ + ":=MmG5:^6c6RJ8SjVQSUN6?j7Yi0LFWkCnK2bWWR8UFMUZ=LmjS#JL]9aVEb"
  2174.     A$ = A$ + "i?ED[UgZcJB91^]Te01\_^^#\U3MieRF:eZ1Q\YT9U4?FcjHMQnHm3O_=jS4"
  2175.     A$ = A$ + "1`bm0QYZG2P5]c<:fXc_Y>YNQBG>omfFZ[1gl4BHkPlcBKNjbTf=`bcaG4[4"
  2176.     A$ = A$ + "?gIJAP1TPL^D5fb[mo^`F4H]aNakH_0FSn2HQBM_YfSXI>[5OVAId>RUFo^8"
  2177.     A$ = A$ + "kJcm97oVUNfCN12jLO?`ZdFoN]3db=>?_3HE[;V2e\=a#V2;`1Se0;Zf2b#K"
  2178.     A$ = A$ + "P`0bV:LCZD9BHTh4`BQ:iRXS=mP;#ZUn3feG:J3Z<R6Heb>[`\5IF4;F9:_5"
  2179.     A$ = A$ + "VEi5`bI;`<fcE`d_Xdn4HYWEH[#KkO^=aEAO>L?XBSXNj#7::0FOjW>1F_74"
  2180.     A$ = A$ + "OdVNk9;9lT6gPJn3dejQn8#]PB[7j;lk=lAcakej>VNXSBMaB`^K?4oK#EWN"
  2181.     A$ = A$ + "\N#oN7<?FFMJkQC\9\A;F6=ICRR5HceR^3HmNm#AG`nFIO\RVTK62\Q3nHO^"
  2182.     A$ = A$ + "5#cc;0mkafafYXXkS8`m1k76XN<f:R^M<E5VGdjgkUe67g0\XFZC;N#DTZg="
  2183.     A$ = A$ + "dF6Uec:J<iEULbL]\m6[LQLQ:ML5HM40Ha:_cOiA\L<JX[;SF>cnSFYd[EbQ"
  2184.     A$ = A$ + "c1TeYb[Rn:Ufe_g4j#8hlEASG6UbF>;W;PE]l`k^me1F_7EeE]gZg1P46PJT"
  2185.     A$ = A$ + "ZL\#Je5B^:UHl_0F<7;V0:hoAQ0;T89B`OnaXbHRKYRa41TC3WJb8Je[`InM"
  2186.     A$ = A$ + "L5=L>E_hW:mIC:H;4g<9:hSneGB7JiH1\Z=iIP5Y[h\jo7Ak2U<7E^K5;1HT"
  2187.     A$ = A$ + "^S?G^SUj6=k\1^bZVUf\QCcjSSjN\njg6ck<AOg8aaR;6JYFDf3U9RfbhGb:"
  2188.     A$ = A$ + "FJQ#YQ]M<=54HYl\ZHXKi_I^Ugj[oL<FGX_<h<d3^89?g_hPIR>0P;g0f>O5"
  2189.     A$ = A$ + "[ZZISd42T=B0;#icTJ2X:[:hL7kacM[DB_[oMO8V2GB_Mdf<oTUl1]8_WSFQ"
  2190.     A$ = A$ + "8D1_eZ\INMGRa:BgT[;BWE=42E^UAF2dO[M?`R9KSmKT5;5YDF9K`E_Y\l8["
  2191.     A$ = A$ + "GXU[]274HEV98SYR57T]fFDMWLS#RJ<7D4NPhk0FIm=XLbLZ7E5JCI:gW3cP"
  2192.     A$ = A$ + "?VeBQ2\eeFQF4]I]1dV_Le=Zhjl3AcRJeIIl3jj5\l8A9#F3m_`5`2I59mZU"
  2193.     A$ = A$ + "jjZJ_bC0FZE>d=jhC:EaO=LAnX\JfCX]CO1\Ha0TUX:G=Q75W\mE3\6gIS_Z"
  2194.     A$ = A$ + "ZRHno:0FHMUjC1FRi<<odZM?j;Pe4]l`3hG4O_3VGAZ5fS95PR<icfZJ`ZoJ"
  2195.     A$ = A$ + "0[N0\h26Y>7`5N[BLU6W\iMTi8e2H9OjXkY3o`J^_XkY<_Fi60eJDJinM?X?"
  2196.     A$ = A$ + "Z2HM4n:A?D;I\CAeUnSMH?[LFF[j`fC<J:k#aT2dC#YhN\613=d4LR\ig5;P"
  2197.     A$ = A$ + "E[kM:UB96<=O^EBAjAKK9RhJc^[E>Zf]We237GcMZmTSiiLUAE<T_lEkGaRj"
  2198.     A$ = A$ + "==TDSbmal9YUaGkC\dTmWM<TgVD^baR#:\[?bBBF?6bM_fU9S:6`XU0N[E\Z"
  2199.     A$ = A$ + "F8nhj;=[i[<57<hXjTR=fYX17_5lgiJ5J#nH`LZ<;_j2HeFc_2k4ccX41B5T"
  2200.     A$ = A$ + "kjS1FnAfncZ9#LUDFRJb9?kP6JE<boIET^g2HYfLYY:FWUCO7YiWK\CJDka:"
  2201.     A$ = A$ + "]mT_P5`2KCQCl:>7HPUOMkVMnf0;TO5;\JBBDNOXCld4CM>IB`m0H=H;e_7H"
  2202.     A$ = A$ + "aAg677Ejf\1F9ML7ZFKRb[JPQ:mW0\RmViI<bHdC]99b<ihF;UV64cJiY0;:"
  2203.     A$ = A$ + "efM>kB6HI;YU6>8\T\C:Dc3i9RG9_cE#3^FF=`j\YGU^C?:_\Vh#je_glK1\"
  2204.     A$ = A$ + "dijiT<TRQnUM9UBBJNibJ8F`lUT0FHaQ4dKd4k?n`CM2;6f36HQL8f_Bl?_5"
  2205.     A$ = A$ + "ebA7f6ogKLB:d0H#AFVcHMD:;3\No=[7nj3?cGDY^]FAKA?Ehh[C^0d7;`ak"
  2206.     A$ = A$ + "_eUKmAJNST\:TET7fnPIJcloL[^UT4U6_TNO8ghHkVMNheiB^3eBSi?M#2I>"
  2207.     A$ = A$ + "SZ^B;Lk::Cm[[;mQ7FC9<G:jNm`6b9YBJAk_g=m8>^^W[Ld;kk6H9S[9Z??o"
  2208.     A$ = A$ + "n:Ajfa>OINc4abVO[EYXF2XdnM]1hl##NdLCjZ\Z]ojg[LdYRg:LGWHH8o7Q"
  2209.     A$ = A$ + "<TBB8JZ67BjjN^54H1;MP_o[DJ]1E#TUkfdVfnd^\DiA\DTH]VfFKTW4llTD"
  2210.     A$ = A$ + "#niOPL<??gIRj8Kk9_S4o=KB<4d:4<a<Vg3n;jQgmIDYEIQ?[GW:l?30;ihe"
  2211.     A$ = A$ + "l]G0\j=Go<jWTMfT:VTe5`j?k?30;>]VP082HeLi52:T;[ZI1\R]AA\Ia8GI"
  2212.     A$ = A$ + "Y2#Pf?hL8E7LdX^=^\MCaJWDI__^^]QIIZ:NRJ>Yi`EGV]XVIF3\6GgciZ1F"
  2213.     A$ = A$ + "Y5`JeIb87;DQJU\WVnW8F3\hG<B5]I57DQ9?TTVZYlPmi\V\ooPH;jh42H1^"
  2214.     A$ = A$ + "5k3AjQD#0[\L50^:FojN^QnmN1\d4g`1;\\Xk^Vk]W2\hee63NR2f#Ee`G7R"
  2215.     A$ = A$ + "l>FbVd8kWd=hjjBfZHPU[02o<JSCHo3Y]Wm^_;cn]42fZ1FO\Fajdi?JMLW="
  2216.     A$ = A$ + "gCY[aJH[C56lAgeajSoH1\`?TH5[`W1M93DU:i[EEiV0HaH5SJ:\[0KKE:fc"
  2217.     A$ = A$ + "He?^^9iVb#SRZ<7\dbm_No]0DYbFSMP73SOJ:Q;JI23]E8o7\R=;Q7IG7?Tj"
  2218.     A$ = A$ + "ORf_>LP:Db<fDl`iR:U8FkLSMj;`7F>PAe6dOEZ3FX0l#E28`Z]nmFdh\cFj"
  2219.     A$ = A$ + "Uh8CYAc#CJXXdZTehT6[`aecZ6LUTPeQB92PT4iRCZFkXBiBF]`S3_R5U_09"
  2220.     A$ = A$ + "IEdJ=L5[Z<llEg=TINFXi1E;GGG2\XY^[>1FD=fi4[QoVN#0[#i#6g1\BLWN"
  2221.     A$ = A$ + "WMA<<0LL;SE_H^GX6<1n>\M\g?IG<^Xn<GS^FO=?4MYWfc=U[R?k[7F9?:[9"
  2222.     A$ = A$ + "DXR<WNQi=k>\U>?:E]`eae\L<o=O\^^=;mEMfSNTTUHh>Y]7eikl80FVF1A\"
  2223.     A$ = A$ + "h0E3e]kZh7QF\;Vn3^REUV_6I2DYMmkm`j7=Jb46gDgj8[Y2^N[]XBGRaGA\"
  2224.     A$ = A$ + "heNED?XTT7T9oAD\AQMbe9_GJnQmjN6[>8V=;MROV=E0\\\YabORm<`W:UNH"
  2225.     A$ = A$ + "NW_OBdLk1CI<aXh\]THEY?NUTnN;Ne_nmB_n[;gGRUiP7nSc#:mXli]eknP<"
  2226.     A$ = A$ + "bS#TA^0F7Q<Y]Nlj>=CPUL?PX\^R>A[E\nE0\6fh34W1H:j4Ha]Ak[Hiofed"
  2227.     A$ = A$ + "X8CE4W>A6M1WEX3eWb`V;HW;kg1\dn8TbDMi;mfBQT9Z0fkXQUFKaE;G0;>P"
  2228.     A$ = A$ + "NJbY`##7fUjZYFi3\b1;8M_MW[`>OF=^0Fg^e>nN7>gdTVH0?GBb8Z1`:Moe"
  2229.     A$ = A$ + "=;?kQ:S>?VD0\DQ?cbChCJF;Nb;H>A<5OF8b7_67;NPoUDM;J9T4?4H5c^0F"
  2230.     A$ = A$ + "0fl0giGMQFU:Gc?WJ6FG0[Z[LgjjR2LQC:1j`Yn#kQP2EV5HZ7TMR9MMAE1a"
  2231.     A$ = A$ + "0[7CB;X7QJ?jiP#fP#H?C9JNN:EnQL8m?1fM6=EGic0mRGM]gFco\TC:26Cb"
  2232.     A$ = A$ + "M04`RaZAQ_`_Wf[Db_\EkaLP>5`Rca:>36dPZE\ZG`1172jh9mMAOjD;n]L<"
  2233.     A$ = A$ + "SmUeeEYWVEkKUUkdKj4N391lMb^THZZU[SYO_B>8`H^O<^ASYVn?6HQ?;a<g"
  2234.     A$ = A$ + "0\KMW_dXMKhHQOCPEJHgH0`BIYM`gFd9QPSkFijgIcIW8FdC7i_HN>ZICWd0"
  2235.     A$ = A$ + "gTDQ_D_2e`cFL1BI\TX:Bl7llBAAo;lBBY6D==5OeTfDK5;M]c^L?`aHeIWm"
  2236.     A$ = A$ + "4BFkMO#c?MEEk`N^1RmCV0[7US#cb:Ha<Q:4TdB7nAb4HeYco8L6Gaj5oXi5"
  2237.     A$ = A$ + "nA0\dS:bmL?J=7FQf51KIFh]TDBLfN45KSL2UUaM2\PMiZiN7IVRS5FhdI;m"
  2238.     A$ = A$ + "R4:0WBNGaJ2i\hlF;jR4=j9f;`X`;6H1V2XHiaWTY#B;2_f=`blCTO6me0Fn"
  2239.     A$ = A$ + "g[JE5?8iP70VODBeWK^eHgc:[b#l0R9ENm\2dMQf>_1FMiH]\A83aMUDcFNJ"
  2240.     A$ = A$ + "AGRB4[h8LF>\C1>Z:]<c]`;i#Y[DCX7bd315QM\\DX\J2JcZ=9A<:mEETA;j"
  2241.     A$ = A$ + "O#h^RB25gc2He:V[7>iF::8?l^N>Mb:IbRdDP4Y=30F>7[[fK`CeTeLPZIWD"
  2242.     A$ = A$ + "VgPi23GabP3:dDKklM:WFW3U]\iSBh9QPJlVg8U;PEQl;74`<1agQ4oPk6Pe"
  2243.     A$ = A$ + "b>]mDH==0dK8_n1[ZY[JA<RT_aookldjN#<RnP;E`ljQUTS;1\XT;80H?HD<"
  2244.     A$ = A$ + "kY:eL\RCI=Rm#kbCaYmhVlaG\V<nZQTSPEZbWeCRlieeUR;KF79WN6j#lPDK"
  2245.     A$ = A$ + "Q[2#UM?Bl4]_0FKB`>jQ6=0f59Al`FPIQJC4Kk8;0de7`\VH9J]P\I#KN:D7"
  2246.     A$ = A$ + "FW9dX8CEX1Dfb]`bgcXJI\`h^1`Q2=EACPNG=mGKn>F7#]N7`bNPYHV\j1]\"
  2247.     A$ = A$ + "5kAX[?Q:MH^AB2X9P5b_#6OQJjRbnaBlPJ^JAV=_IjFI5;]6V1kP`61FE>Y`"
  2248.     A$ = A$ + "=FEJi#eSPNaXdkiDOO1\TYbXCL60[61FGb?SnAIPe:fRd28DBFA?DGCSSX7A"
  2249.     A$ = A$ + "S\fC^J;EZOM?KF>SdX?`M8=dN=[;]#OJYNKZJFRRF^REb;2?N5IU^>NY4?A:"
  2250.     A$ = A$ + "3S<iI[b6N\;RHIniHE>d2JBg:^5blFT\h;cYZHnHKWd^VF7cE\k6H][QEdCN"
  2251.     A$ = A$ + "S0F>96fLD]VH9Xel2H]4l=?mJMV>Me0;EomD>H9VI#:1F31\4ITR>b:oHB6i"
  2252.     A$ = A$ + "U>kE<C=XHi[7d4H1Q=F[H5\lY[b[fLcQAR;K^<_[E\:BkI7##lXLQaYPPZ=3"
  2253.     A$ = A$ + "dCYVG1A^k9KId8mDPUd[1=R;jDXZ`eJPUhhAXEf#m`GGGf3d^XN#Y43;B\l8"
  2254.     A$ = A$ + "5`Bj4IIO<hneFo=GX:#KDhcS\[Q=mfNeHC>o7Te\Z7=[O_<kAnhCK5:U1#43"
  2255.     A$ = A$ + "]8VU];R``TY#YJ_3H15QDnf<?JibeDa>652\:FfNPOeGGY=\U5`RjA2Fab6e"
  2256.     A$ = A$ + "[8M[`9UV;O65ZQ[E\0C4fd\?KR#4SC4>k`ch#5:1P[#P55^62\na?nhK>d8W"
  2257.     A$ = A$ + "8GgNHQ\mX5[j9QLY;N_Z5]HVoohO<biH8oaN#E7030J?_hSU`D<Wfij=K=Mf"
  2258.     A$ = A$ + "m8ffB;8:JIM94HLIJYYBj_7V4?V5Eca84[;KZ58^h`SF;MdH:Em2NBXQ>jGG"
  2259.     A$ = A$ + "G=YHdd8gKJWj^Mg:?4T=EYBCbkV<mKnkUiPAN4MZAQViX0iO[hYWCCo[?HMB"
  2260.     A$ = A$ + "ngW_^l0V=k?_UQWFTTlYZHA8bcGmYaHM?WXP>PCjbe[bTEF6HeH?a:N`ODoF"
  2261.     A$ = A$ + "5`BaBRUUX\;g<mlhZafd^mdM8mB_:AkNMMcB5W;jgG;5dWTW^Dk32<;Qm6Gj"
  2262.     A$ = A$ + "C5>3ndSNILDJ9oQl4RVD32HaM5hZ:Tn:o43\Z1`ZB>>:N`h4LL2eP9LC4>?n"
  2263.     A$ = A$ + "Co^H3P5bU5O7UZD7]hEKiXG3e4CL6LiWdn5LKAF[beXE`Bl`oghdgJZT7bnU"
  2264.     A$ = A$ + "Gab<W0`:YV1DR3aiQfoPMO<FjK1\H\R38T01J:1dXC`>9iACB]`Rbb4Khhjj"
  2265.     A$ = A$ + "^TPDfH=:l7F\;3Pe^H=G=9UVB0;6;=[NbU>lZ^60[=ZDT#X8[6HYniakWE\L"
  2266.     A$ = A$ + "NhOf3IA8NWCVbdaMHE^2VUoXV0F:fLe0;egnnK3\BLFJ9kg3maBN2m?nKmh="
  2267.     A$ = A$ + "a8GA:RH>X8C7DAM`GDH]iTmXjf2Ll]`;H1\2eFU=7]Xgk3j#k7S:D8OdO;]I"
  2268.     A$ = A$ + "aMaZMFAjCEM4WV8NSOX[gfmXYUUh7lgjaV408\^:LC?V^<[3[h8[7A7E;N>Q"
  2269.     A$ = A$ + "4SaE\boV1A8d#C7iFiNaO<b\nOZM9d3Oc[kiQkLd<O?`[H^A:UHTB;Z6hL1\"
  2270.     A$ = A$ + "K^90\<eA\R9<83K\:PT[^cAg2PVE_mdFN=1HZI`<F`VVin<PE`Ddm`QnRcej"
  2271.     A$ = A$ + "A5Pf6#iXXmTd:7jjbF`X6id8[>f\9YYMXTXO89MHnbNL1\hm<g:TNN1EINUW"
  2272.     A$ = A$ + "<I7[n3EIBGNEfG11\nh_eSO__g]SC=W:1`Rd<:<JKYhcSFJ=`^Aeci3JLZ`4"
  2273.     A$ = A$ + ":K6[l6>Wl<Kaa2H5U#_TTXK758mY0[MJ1[Z9\BFB]UNfIe\iA_k]bjjZ^bEh"
  2274.     A$ = A$ + "GW5Yn21`R=QSLR:j3^I7E4KUOb0PU]jbnZPGjh\hdW4H9f=#gNhjg[V^[21F"
  2275.     A$ = A$ + "gJZfE4HY1b<FQfOFg_^^IElb6;BVBJA0[2M31IJ8LAXT9SheeE^JLNL7`:Sa"
  2276.     A$ = A$ + "4=D122\8SOSY1;:RM0\<k8j^[PifJZ0DEUUB`Sc^gbgmLN1\\<PJP5cOLcb2"
  2277.     A$ = A$ + "25c8]hICOlS2TNn1g#_hiL5b:n`:UNb=_dAkTHBXA[#5<8ZZKo3TnKR_]W9J"
  2278.     A$ = A$ + "ZW7TD8JLAA9_L2hhLCRTASE\^RjTZNkQmbVM;]Jf<9i20L2#Ho[3FKJe<h?n"
  2279.     A$ = A$ + "S7d]BUB9HQY967nm[<DLnEJ>fG0[n7TmIQ`c#AknN8^Ulh`0<W9YDhGPL8S_"
  2280.     A$ = A$ + "nmZk:\SY\UF0:dFQ7Sh#dZ;LTni[WE5hFYEkeT#[IGmmV;7X10P\QW;KIaEG"
  2281.     A$ = A$ + "afn09n#E9FL6H9e7?UR<]h8Pe\\\^NFUoPZ:NeV;K^Zg#Z5R?\VdA9TPhjcS"
  2282.     A$ = A$ + "^6gcHeJ<oG6;8GldB<aNjQ7la2Ig7KVQ\1`JmWSh8QlMAH6=5cUaVIAX4C#o"
  2283.     A$ = A$ + "PFSS^6gD>^4Q^aE:1`BB^LAeJiNPUT?;?``ZJOZ3ZYXJWJXSY>>U1e1dFB0H"
  2284.     A$ = A$ + "a<gRYd9VKJn#J?E^:gPTb8ZYOJ[#LMY`XCZD^9i3ZL8bD73m:b>W36bJjC2P"
  2285.     A$ = A$ + "EcWJFSJ=l5Ee0L<dS4H9o:#CT1?G7nFa_Th4j`:5`E\lYAiF[DoPHE>[l\kl"
  2286.     A$ = A$ + "3dBKeSB^CV8:=bd4MoAEMP=C>3eYYiOfJaTBI1X]F9#3BQecACFHf\3Hhelc"
  2287.     A$ = A$ + "aDQY:]jkI=9RD\#XJJUmTQ[94b2_Fe23BG;`g=`j#Vb>9#TNoL4T<B_]lITe"
  2288.     A$ = A$ + "LBfkJnlm?H\NRjmdl>]:P5a:E?ZG\N?6>VO:`j`bAUnD0gWj8j\g`SedfYR\"
  2289.     A$ = A$ + "22Eka>S0J[g4n9I?401iT#f[IEFFf?M^0FD=Z8eO\V<F>ZGf^S=m0hT8L:kI"
  2290.     A$ = A$ + "I7O:`2k<?jDbo?;Z?Fd9CPWQSjf`MQ9CT^7HajJiYSa[6JF[N`bYA428`Md4"
  2291.     A$ = A$ + "ck1F=eZ_2kTXX81IA<OWS\]<ABkm0H]jEXEn4El:Bj;^#CaRW0fE_M1\#MFW"
  2292.     A$ = A$ + "hd[?6h1EHe?i20LIDBHeDTlN\RUEmVB0\NcaQ=Vhc#1f>FDCZh^3:BnJfWaA"
  2293.     A$ = A$ + "eWGHjk#E^HlllEf\dIa[d:FM=bn<]5D[oJ__n1oV3OX8aQN`L6?#1IaHh#_H"
  2294.     A$ = A$ + "JJ6fk#_0;[[;Y^b1g7a9:g\:0E:J\T=U79RQW>aaV9]^kJ0VHNhM^9A`hMJV"
  2295.     A$ = A$ + "hXP7BV<4Ib_nmZW;c??#Wb?:jQMf0;=d[=C_QNU4e:R5WD]ZnSV57335edLZ"
  2296.     A$ = A$ + "20ZP4NibZL38f=#kCn==#ZIC^?I7ddekmbD3=?Yi;VAlXB2[PZ9XaKg70<Xe"
  2297.     A$ = A$ + "DgMUD3989PN\ReS5EV<nmP;W9ii;[:dV_I;1Q9hW>efC1FWg>7^hN?1HMhS8"
  2298.     A$ = A$ + ":fMXTi5WXo9n1MfUN90F1]Xl1TXKQ9jAH]oDanVhJL1\bF82d9QG3=3BjW0;"
  2299.     A$ = A$ + "D6EOME]W>hU7\f:jRCAfiWE7FA7MZaa:9J4K^I]9<__Wh0^XQhO1\jBe[G0;"
  2300.     A$ = A$ + "_b1R=>_alkmb>[m>WCFY2Z1`BdU4;DGS]Ehm\0o\nbPk\QGUg_:0gm0;F7[S"
  2301.     A$ = A$ + "8F>8d5:>^\J1I=aEIgB7bKRV[cQ[hJLMClC3<_`dED8AB\fl;VXHfEXE:YVQ"
  2302.     A$ = A$ + "ESH9?LT#]E<mALfP9<gGZI>UZBRWWiLMZ`?oebhU>^MKHFbZokbaPD:N<AUR"
  2303.     A$ = A$ + "I:<Mh?4lWoi?^^S8mU83e81335Qg0;i^F3ka9:fG7Cd?FSPIQBmcZJM#Bdlg"
  2304.     A$ = A$ + "?e7W#DIPXKNMMUJL<8EKF9RJWY`BVFdH7OIL\INNGX34Kb35e#mHg[1Y?Y3U"
  2305.     A$ = A$ + "FLZ>a`5<SmEM_h7g;UW`QgXEGOTcXP3[Zm0Nm^^WE9\h4VWU^O<\>WSe?1Ml"
  2306.     A$ = A$ + "l`O]4<VhNVCIZb?CB=jLEfZ1HI[T2eUF\C=4H\nm:IXAECXX9SW5`K45EVOE"
  2307.     A$ = A$ + "JCf9150\6gcTlh45bf`d3jfccR5=:D9]iB2\ZSe2H9^nUePPRlB=`Zh>[L4Y"
  2308.     A$ = A$ + "J70[?mcolG2Z#EYdjJPEC39GGV#V7TiVli<Y0?jdICPET?3T_592d<k3LO2\"
  2309.     A$ = A$ + "P;9[ZeoiLAhm:fdMMMIm5>D2UUelabTJ43dkQ\R8OaC4O3_P?:J`5giTfj4="
  2310.     A$ = A$ + "4Mo6A_6h:LKB:Z]N4lY;PUiW=BSBbbZ<IAZlgaIm<ChAOjRkIA3>8>72kXY3"
  2311.     A$ = A$ + "b5MScJ4fVBVoUE?>o\BFP:Mf7O\kLGch>FQYjILF:T_4knZ0F8F946L5;i=5"
  2312.     A$ = A$ + "TPPUUb1kQkb\G>A=;=^^#U#D1_U3\`9kWO:DUdAX<nCL[:n_G=ZlnLU3=8Qg"
  2313.     A$ = A$ + "<`BeaR7BTSJC96<D[^`4QA=5`0[B0\`N7XC:1ee2Z_Z67#a:9XKk<fG?6a7="
  2314.     A$ = A$ + "73AkmRXRD2f88OkZWF=eF7#=S\RmE:i9NCQFL7:3Xbm?_>CXHl`9YW21FcHO"
  2315.     A$ = A$ + "A1CG:_?BFn6IY=cfIcjRCY=OnDMHlJlkEm94MTUUI8__nV_]Ta`^dRDaFF1\"
  2316.     A$ = A$ + "hmLAU3b3GJhA:=Ob6ZCX\K0dEid2U>fg?;Ih39`TdbKBdRhT#;PUJcWBjWDY"
  2317.     A$ = A$ + "[5oNI5Ta;7Nha6<Q9MXDca0=PBF5JjhIBfann\HoIg<YQkIOciT5C2=9F>`l"
  2318.     A$ = A$ + "fH>Uf=li_AU3EjSe<U29jkWg^96fMDTF`FHWI3PeHmP^cCGaN8_c:6DSaG>D"
  2319.     A$ = A$ + "CM]_HQlUMHRn50[eV6TZg]R;hGeQ704LHPQnFTanVSXd0Z_iZFFj709\F_4R"
  2320.     A$ = A$ + "gJGloMX:n;P5\jRQ>9J;<DCULja=^GOBfjHb?YdfghgKfSbF1l8#:DNl[XIW"
  2321.     A$ = A$ + "h`oX5Q9JLd[<`277WCo:=4EkM?M=3i:5hT5a8VjDa9ASkiM[_Si67bf>76SZ"
  2322.     A$ = A$ + "D_QTHRCEjS4WQ6aEoekXZ6\PIZBDXSfaP5j9\g\URB_1KlGW:8C9NFQLiiI1"
  2323.     A$ = A$ + "XDkB6e?Dcm^f0TI6:?3>JY30FOd78a]h>P5gHlfi`=jc>`[=Q]i;IXj;O`od"
  2324.     A$ = A$ + "OaW?SUI?[E\HfF\\]VmiFi4^0FAN7>fEniH5#LcAPeVHTJg;ij]2W_[gIMKF"
  2325.     A$ = A$ + "GGm]FK==PRf139A4M_L0oo4ed\k^Wa:F7N5[^=h2>_gB[87DHKD9#b]HFiR["
  2326.     A$ = A$ + "K;HV7]dbJIUEU0Fdg0:QdlRa_[_^^RfE]5`B^=F0\\0Kh6^iDkFGG=mGCdP<"
  2327.     A$ = A$ + "[10\DGXAMTF0;\3U]RJ0\RWc#==ZJ8LJTM3`d^N2`Z8>4P?dXh2_RM1\TF=["
  2328.     A$ = A$ + "6I81M7dU>`FD6iG0[I\oRgi_h?h3X:PLZj6WbLPVHSk_lF>lK_^9VC0f:=6?"
  2329.     A$ = A$ + "oao]OaOa<faQ>E8JAOZ2EJWB:C#1_N?X=\X?>Y8F4[?h6no4;g3<f\RDA\RJ"
  2330.     A$ = A$ + "ln8:EjISDL9U^Re=gD5lZ7W2U5<_Xjb[1L4mDThZf:fX<bI:=bZCTBEGE;>="
  2331.     A$ = A$ + "3H:lEQbc;RUT^h#Jb6\]`^D_GlX6e4mlfiA?D:HY]fUE\\^5j8EYR]e4=WBC"
  2332.     A$ = A$ + "P^CaYj<F<YYGa^AokBk2baIZ9eI?EMZnIgFcDclYYVG_ShQ5i>]T[l92\bN4"
  2333.     A$ = A$ + "78Yd[L:;d\DB7:LmkUWXL7C[lPNIQhIVL=7=_?1f2lHUd42an5_cGm_kSLBE"
  2334.     A$ = A$ + "BMibBVjT0?ERFSPA9MS<C^`S4=No_koQOfGQH?jFdCVk5W9`Z47R^5KPgJ1c"
  2335.     A$ = A$ + "d9=hRHmWj<;<[#RJ?PbJN\Td8`jA#UXNO5k`S8=KnL#W7WI49`[V#;c#HnCK"
  2336.     A$ = A$ + "5kNB4oGf?1[cj1]EN1\>X9AIPU?0A4[Dh#in3hQV6\9>OcH;GLX7j\ffeEhX"
  2337.     A$ = A$ + "Q\Re6a<7OOjT5NHiVohXRaAQfC;2YWGG?[f`Bi\jTb\UhY0Qf>GAe4bB_G^3"
  2338.     A$ = A$ + "HQZI]nmBPEMCEEOnEk3D1VU:\[:;QmCZ:Al=^RE4[K_X1FQAIKnC[:_7o1WR"
  2339.     A$ = A$ + "SI?RHoI_cOioio=o^ofko6oVK_gcOncOlio6cog_HRZ0modG[J9ki?9#=6B1"
  2340.     A$ = A$ + "Z7OlaO[_konoSomoUobRM?E0Mh:F[\S5C43OQIDn=4k6L>Z\W6;FXR##0iTn"
  2341.     A$ = A$ + "l=6;]P=2b\?#6ZO6dA>h^ZOCaRO_5G<H\_[eZ9Ib8]_aHYW2:=[mfY:e<KgP"
  2342.     A$ = A$ + "B5kKnNNPkI=UQMG;XR4I3X4DU_aHQ3goh^j_:UK]ZELU:Uj__iWc`X;eiI5a"
  2343.     A$ = A$ + "TdA[Tnf23JjKjI5lA9]RU0F197HI7bA\om_cOeOiWm7m_lOd_g_ggmklAOd7"
  2344.     A$ = A$ + "mkoko]ofOk?jOlo<lWo9j?OW_kl?o1coPo3O7lWio\_cojOh_hcnZoZOM\oj"
  2345.     A$ = A$ + "HoE4kGm>OiGlcnIoGn_n;niognicolGoo1oi_m_nWoOoGlon;nROjOgGn[Sm"
  2346.     A$ = A$ + "G7k_RHokne0[OM\oOSHW0[_l;nSNi>9n>>;8Bkle_ne_Q]1iU?nRGmZGlRGo"
  2347.     A$ = A$ + "Jf:gZTnZSf;Na;oGliOioS_j;SHOI3CjfhgINVg7ao=T=n[Ne[Woo=oS[CYT"
  2348.     A$ = A$ + "Pjn[Oa[NJ\_N<noaSTf<f7IS^N1^^_lU_le7A9F?JOHkh5_M\_bY`?c`iUc["
  2349.     A$ = A$ + "79[b[aO;_H6<>6o76MTJlj_N\bHVWIc=SmESf7FJ_boie]P7hl8ZO]O__Xhi"
  2350.     A$ = A$ + "KmhfilOKBeRiOS_6oiEDn2YE4RB\le^WOYEbaIBhcOS_RIPnb7eONEWe#HGj"
  2351.     A$ = A$ + "_Ci[7[Bn44J0o4aY?V9elB4n;Nal7;>0g_COn;YVW_eN[O_7o>c3hmQ5nJma"
  2352.     A$ = A$ + "7CYic6l<Vo1oLo`:?nDjGb_gg7]S[2=`j3W?[NA]lk<SmE_#gdIY3Zn<]_h5"
  2353.     A$ = A$ + "?bHWK5ngn7oV]]WOnXD>8[G3D?8Q#_eEGl9`ZZ3WbSjnRoWo_VGH5KjAFM4<"
  2354.     A$ = A$ + "]MTJ2SH\_DA<]E?SnaXCGo:7kk?SMl86PAEA2>VLE=k<lX`5oG37l4XFImf;"
  2355.     A$ = A$ + "M\_N6KoA=f?\=I3aHm1?QO5b6\VZ91\h9ONiMGgfS^>E]h\5IG>E9nY=Y1VY"
  2356.     A$ = A$ + "ZVPTj;NB\5:UeCPl=k>2LR8F>`P8k<?91:Dn[NB\0HABGYi7#j^8:28l#;0h"
  2357.     A$ = A$ + "Bkk9A\]fC_W;?JJYRK:FSB=_=\A>b1[Q6f85RH^:#LMO5OFaBZ[SK^cj4HK\"
  2358.     A$ = A$ + "CjO3N19F?\1=i<mhMGglSKd9:ES[hd]>4CX#5abB::IjkbgQacZ_jMnKnCNS"
  2359.     A$ = A$ + "8TeC0Fg>ilfSG`Ic\b19N4>W5:TkS_h;nYo=<fBA<aLNXa\8NV<]dah90[\0"
  2360.     A$ = A$ + "FPC9>f7ECRV0;iFaTTSE[PL?5HeXi;QW:>fG?\m;gT:iYJRXJK8P5[6I^5C7"
  2361.     A$ = A$ + "2GDaGgRhdC;KZNXI1dV1AgRN4]N;NZMD?YJ4[Ul<0\:fa1h?BD>49mhlMdP["
  2362.     A$ = A$ + "JGU[9\^^bF7ih90VPJPEAFPC14?:e8`:kgRG?[T227<DW2F^P2YZi=LIG;cf"
  2363.     A$ = A$ + "53?JS[WEMFm4f[6FE2em6YYd^3VmPe3#4IV_<S[[;_5UUP<MS>JnO3=N;KdF"
  2364.     A$ = A$ + "i:N1;9n8cCf?SmWn>Oi;O<0F7g]RegSc\gZGQhMV1Fj]nS?oOeWmU<FJDY`b"
  2365.     A$ = A$ + "NfH=hUD4KB1?2^_fU22;bX7ab1:m`Zo5]<_TWAAc4?YFZSP=8P2jA\Nn:HMP"
  2366.     A$ = A$ + ":fiKUg3:PU:FJeElDN9#4[U272\d_^1mNXH#K7ZifMj^S=Y]WGaj?daGLg>2"
  2367.     A$ = A$ + "j=`9kGDaRO49a#Q[oFFGG]VBES0J9lTA:F>9ZW7Mi^GRVNJ6YRHcBCD=`:Co"
  2368.     A$ = A$ + "XW<J91WGRB<T<Q#>ebH5]NMm>J`I_WU^W\BG[H5JBUndWhMBIWMXId[gADD8"
  2369.     A$ = A$ + "UYdUU>oS^2cVU#9`iQ0HURFAWA\OfklWo?hiV1YBcb=3:_Md9m6PAW#5FP6:"
  2370.     A$ = A$ + "XX:2N5nhSO[?k?O6kL[b:H:3V19>ooD<Dkbbb=`B4HQjR?CM;RUmTfdFUB=g"
  2371.     A$ = A$ + "fnXVDE9UfgemDdZfS0nO4aJIcRoKXZE:9U_YNk;jdEZfBOhnTGaf^HPDfUcU"
  2372.     A$ = A$ + "TfE>lk#m5SL>Jc]:\\nmbFj`RK^]?O8M\0FiX]gQBk#mc5MN;REnF>WLI=OG"
  2373.     A$ = A$ + "]5C6eXVBaRZ#RGYQ2[\^WCFMa>h6OdEj#KENHS<Pg4bQ\>#:h3JSmji<If31"
  2374.     A$ = A$ + "F8?5;faK5=4RFjjV_OfenIkHD1_N7eX^1:a1`0;ABRL`GV4E3N=3gh?8f?kM"
  2375.     A$ = A$ + "nCO_W7DNgbF>gkh65CcREfMV6AJG2E#g0[oCoYcHW0;JF9I=9j05WJN2k\d;"
  2376.     A$ = A$ + "BNWHP5c1I5;JWbYWoH^Ehn15GiVZ8=DG0Yj\n3H1\H\RP;B[oXY4a9lbBAi_"
  2377.     A$ = A$ + "DPEO5[IPTHI#A]bb=HHHjhHo:QTS;0Fjjf2igK20>i>Ng3\2EmDZ>36V=1\H"
  2378.     A$ = A$ + "\1`ZJoV?L2B=VRfA0[Y;PE751EaB5>R<0X;U06MA2VHh2HiWBB2U3P5SeNa#"
  2379.     A$ = A$ + "JKO^HdXh1BTIaEEG=EWN4<YfW9eLgcZ>JoS\<>3\87WaMjbSE3P5kc;^WoR_"
  2380.     A$ = A$ + "00[PekB:STR]BORASFIc#4kH=Z3O8H1\X6Ydd4ReAZOIj?Fm5SZU^Z#InWJi"
  2381.     A$ = A$ + "N;RUjb>h[25EI>\MDIiT]ba?=e`681FT=GOMMKNX]U0bFSIO]YAjdCJZoV#Z"
  2382.     A$ = A$ + "WCk^HEZDR7hco3WLl]=\HdQ;2CW?V4=0;?\^^3_h0I>e`I1b3#:E=dB\99N["
  2383.     A$ = A$ + "63NDmM5K`7;=S=];bM4DXP;:CQRY>lT[\R=iWO7L<YbF6LgTc=aMlSnNSKIJ"
  2384.     A$ = A$ + "cCA\ZoETgRdW1Ibf9jFVeH`iXMC#n[WkYdh:F<#bNdl:V5QKRkZ#FDOhI?kI"
  2385.     A$ = A$ + "9Ae?>A=DkH^3H=DFF7BU38k6j?5HY]2ec2\6f<h?m[1\`1kPg=g_g6adJdLR"
  2386.     A$ = A$ + "EKJcfE\b5VC<[i25#<Z:_YJ]jLc<`ZaQP5GSE\;P5B_Y\T[M3\J;PUV?;N3M"
  2387.     A$ = A$ + "G\1`BR0FkFOD_3H160GUURL7`jC5`B4n09IWD>B7l0BhT9a=UT54#E4:;;A\"
  2388.     A$ = A$ + "1`ZJk_iNVVJF;WU;:JRne_^WM;#7d_IZVI=2HY3[=\54DiD8AhfjjfS1hXVf"
  2389.     A$ = A$ + "KRMcKNXO\c1fY9a[UMXoY^RUllK1\jTblZaII2\Hb?1`BM?7anY2H]baR>m`"
  2390.     A$ = A$ + "QGaRScSj8L0\TkEP4`OlgjCh3jSMJGPkTXn8a^]kNTeTPgd\YWddE8RUgW4H"
  2391.     A$ = A$ + "aQDO8ifWfG\B1ebY0W>QmbHWejBabojUA3g8en6AS97]Xl5d_Q0RjVDD]E\a"
  2392.     A$ = A$ + "`>jG`\Z1eBXS9#I`j\I]G>CaMGge9AYQJijXU[a<E;JeDd4ofij;A\5;>]BI"
  2393.     A$ = A$ + "7SQFKh1HC;JebfLLRC56aVUDn`Am^8PEeN=GeVg;7n2BA`6gXM5k#:>2ZU`n"
  2394.     A$ = A$ + "LKRZ#TEIQ:1kTj9=c29:8FA\R7dhXOCT^C;HSUQSCY3JF8ie#`N6b5cI\Obk"
  2395.     A$ = A$ + "lm1h#cCQ<L8>CQ4VeSW[4OX1CW4MXgi=mgokSE\f9Q>bdVCa9bfBQFO<R^?G"
  2396.     A$ = A$ + "TP28YWl:F^k>W=3V1>4cA<;CXL8Ek4_l#GL8Q910Jm8FBm2Y#>M;gnMIL`Tc"
  2397.     A$ = A$ + "lR6iJRW7P3a7L5;7[VIJjn4Bc_PG2AUGkPTQ0IgD5US2UG;RM8_kD\XH_HQ8"
  2398.     A$ = A$ + "SdmYiiMaFV08S2_UGaF5ID==S]ZD[Y8Re6QSUWC]GfMdeeEJQEI=mMB768cZ"
  2399.     A$ = A$ + "8eZThTfU47;MKO5KA5oRDM?Ci>A\A8IGQaO6VDM\`o[mekXBK=cWL#P009YV"
  2400.     A$ = A$ + "NWRb=82=[D]#5N_0F3IGOHM:a9B=FdM9N8Q`4ECJcWb>CNo5O:1FHQEZR>]<"
  2401.     A$ = A$ + "GlhNPUYBV>T41FN;95KCe;b[TW;Kb3d9Cc1o8:kLDWYN6eUGT_REjF\dCi\["
  2402.     A$ = A$ + "`Q:9DfRXM#RE<QABn>RH536U_^:1DfF;7;maLg60Ie<l9aGSMD`oNINmZn9i"
  2403.     A$ = A$ + "Pkcl#acS1LH]1JhdEAAPf_nmBPEEB?^1FJUFUm>>hEeS8AekFDRH3=kXD<G0"
  2404.     A$ = A$ + "IVdI\ET6^E3\b9C=iiOM[Wc4Hi1P^DKNBCcBMgDeNXPiHmJNkQmec:#6j]]5"
  2405.     A$ = A$ + "`ReL0RT49AF=ITE0ESE\NaL[#0\TcM#h5YCEkPj?Cg7Sa05#IB8OjLLHS;\6"
  2406.     A$ = A$ + "4JBjCZO>L]D?Da3[;]FI0Y0]0Tee?HEOY\0FI9=V9oi<\3P3;0<8QJXB\UfM"
  2407.     A$ = A$ + "0[NGRg0lT>=D0RZ#5YheLI`Vifi]k1FJF6a<WVmi46NLe>lFQdC6[i\Ee_ij"
  2408.     A$ = A$ + "8[HUn##E_?S17LhmnBLF87BJPDBMPYWKi[kI>^Z?5HEDSOVIZjY5D;8AQmPh"
  2409.     A$ = A$ + "Qk1FDJTK:eO>BTCPekZo?cAJCe#QJk6;9#4;;7HQiRb3_Wf47BciP2eVZ`J["
  2410.     A$ = A$ + "\FjQdee5B29Ga2DC_:=6EB37Im:n;J=bZfH[2PEj8dSKBAHGYJbnB?E9VgNL"
  2411.     A$ = A$ + "?;1\6n2Wd:FYRMR3\#:1FV5Un5n5`BeaBa>^KM=J19<7a]XBP4HY<\\NPO1\"
  2412.     A$ = A$ + "B44PUF^1<W>RUGHT^;UBoGY7FH9^>FGGIK6=]7ZBdc^?`i=f[6IN7n#i5bDm"
  2413.     A$ = A$ + "[[K?0FDX#e?PJh`XL9FNHFh1TdUkFPSDc[8mF0[VV[jR_DZQ=bQK_nmZUC#U"
  2414.     A$ = A$ + "5ThVme1FJB:kJL9`2P[HgK2HQ=F`DDF^7HeFTdGZ52\jR]mk^^BMB5`Bl`<0"
  2415.     A$ = A$ + "FDVQNf3F7BCFc9Zg1\J;3k[aIj7ZJOCDC6JFX6S;:NNF;IYg<k7dLV`KJDII"
  2416.     A$ = A$ + "O`BN\E6fm865cGCGm`N4[7jR^?9UjXPWkF:7O5>nij60?5V?>GGG2=VgUg>Y"
  2417.     A$ = A$ + "Hf9A`AE5Bj;66MN:iTF]?>^kNVgBS^4>?JB2Jo=VOe`[FXDBU`]DRHU=VW8a"
  2418.     A$ = A$ + "7Y2dBOXPL2MA?JMNW3NXJlX9REC5?c>WIYdSnDFY3=K?kfM2DCSoE\JNN;F]"
  2419.     A$ = A$ + "\UNaWAQ\TTFZNHQe8kZ=N9j5ejN>8miNS]QMNWo\9NP<0g20LK8W<L3BhJ1M"
  2420.     A$ = A$ + "]LM??JBNVeBh5[9UBg]C9CkMYPE5EQdM1\ff>kf9DWHY]4eNL:h<JkP`H03i"
  2421.     A$ = A$ + "eW:;alUd;WGH8g2b95:JfjWO_APUbQYL7`2:ZR:=C?RM8WTA:]\1FJj_:BWQ"
  2422.     A$ = A$ + "f1EOKJRB9`2?XM\Bh[Jbg9UfWbbTYAC\Xic:kij0UImhhjNNXBPVC]#5T;6H"
  2423.     A$ = A$ + "IeZLlDPeeeEY5VYCcQnMEX[ZKPU7>196nDc^A6We8fB=VoQL;4ALF592\fg<"
  2424.     A$ = A$ + "ieYQAGTVi\NFAAWVnAID:<B\m9`ZaJcF49FM^UJ:kGa:P5ZePViBcmCId_m`"
  2425.     A$ = A$ + "j8DiLid7TFGGXgZ^1c<Mm2G=?A1P^hc5^5k5BZf[WE4HMHC_6>9K9l[8J674"
  2426.     A$ = A$ + "SJkZ#oohGIef8mLoB2cC<>OT6GAE#7[OSF^h6J_oi;3fBWBK5ke1lm?G\g3F"
  2427.     A$ = A$ + "_NOGHaIF`gTVA8Y:HVO#4KCBg`#bXT<Y9ZRNUTCh3f=MA;:ZQ\o:F2\#?Lgi"
  2428.     A$ = A$ + ">871L#0[i1MQ<eF;BfGh<[6a6;4cJE19UCEHToZkbH`haP5`J?C35daBg4AW"
  2429.     A$ = A$ + "jcMcdZC1NEe:\bBkIYN<bNWJ[[[DHKB2I:ZgZ<F`_9\4[GFjJ\7iR[WcAo0e"
  2430.     A$ = A$ + "T9PEIQnnYY#]5j;MCm9`C9ajIU\oLf1XV8NBR:1>m?h5`blC>iolL0\n12H="
  2431.     A$ = A$ + "6fkJiD<a35NJPE;LHRAoB^5#`oPO`M0;<55M;]4NjNl>MNN1`6DS5`2a:E[Z"
  2432.     A$ = A$ + "C_MEmECFUL^9]EXbDSMe3YdK\_^^7a0;B?XdoKa\F`lSUHNVe^nDF3VEOMM5"
  2433.     A$ = A$ + "`2UZ2;`?4`R7YdBiK1WJHHmNeZSgjg;FlViL;IhZcTBSc2CeEi#WLH8Uf8_R"
  2434.     A$ = A$ + "EKPXf\k<RDMf`;m6h_>c0SMbUiae_N>WUnabN\ABK9G\?mPBLPC\=cVEJId2"
  2435.     A$ = A$ + "HQHSI<=7Z[CW50[HfOd2PEGR_6eTZ8fJfBn1X60c95hkMVB80JYg6H1LiM0["
  2436.     A$ = A$ + "c3In;XLBh]`]3=n6];3#:<Y2AJQI`O2O#;_fDcRoPc\jF<oPffM7FKaZ:iMn"
  2437.     A$ = A$ + "EXReBU4EZbH[`=f^Cf1?Jdd[=[XFJ<RH?Tm<QVb1>R85N10;8n#2Hia2Knga"
  2438.     A$ = A$ + "a9?kgem<;X#Uc`Hi#mOa0[NhG3d^`hPnAk7=RE?4h2ZY\eCJGmOETOBARnQe"
  2439.     A$ = A$ + "JCVDO4K90Fc5HEFk;IQNnE9JEJVnF0[SUMgT8F9e^MCZ19K8R7Dl\5\59M=I"
  2440.     A$ = A$ + "Z]f5`jC4`ZHU:BRJK0\dh7fSjHUkB5^hdc6aN7`BERVI`_WLbkiT5Pd#AShL"
  2441.     A$ = A$ + "5nLh<5o`Oc=j_^N6NYX=AQLPE9GEaJHIQbf;0nD2Jim?4afRJZ`jQ\c<iAhn"
  2442.     A$ = A$ + "XNn87Rc19I;#[H]0ja;=[_ReUbRU54_c[HaDVe_?RedNP^=L]hQZGSF:0F51"
  2443.     A$ = A$ + "\XJVgZH>Mjg7;?cjlO;lTXg>]7Lan1QiF]EMUMHKm1`Z4afRl7e>#c4B[`=E"
  2444.     A$ = A$ + "`1Y4A9HUCJgHYKbb8JRHE]KTj\[VGg5mLVo=:Zo91=SENg2bbjjJSQP^o[e5"
  2445.     A$ = A$ + "T<ok_:eMV=kd4KCBMkee][YkG:j3cf2iLWiTXFL;;Xd]CMP59I]nmZ]21fZA"
  2446.     A$ = A$ + "33Jnf30;QPTh[id\Dm\`L>:MNO6l1iO45DAdoEFE;>2[7mW2\8HC;IM1\:Bk"
  2447.     A$ = A$ + "a4[afYLbg>^3Hin5BP5eTQnMPSW2\BDLWT4JjejlTb;3ZYM7P>LZ[i:Fe^>B"
  2448.     A$ = A$ + "VJ3bG3H9n>f?^0dMEVL0\`cW3=e\^;ocOgkY0HaCFG;g1\Tb\[A;\1#Y>a0J"
  2449.     A$ = A$ + "aF94nB8EgF>TaCSe;Ho56[fP\6V[D;HM\8bb2FKm]1Flj999ReKPMKFko8mK"
  2450.     A$ = A$ + "DbSQFL2;_M7`RM8LCb4=KKh3JXhg_3HEI]#;BRT^3H1cDMn_o^D6=3\HBP\V"
  2451.     A$ = A$ + "l;DUZ#jlfo2H91]hD]d1UcQCL?GaB2SoA?:PZm3Uk0FIIQMj]77Km4VMCYIa"
  2452.     A$ = A$ + "5MPcV5mNbd_;PeH4RTdP0;XNnLm7;;VM_#2;F;9Ocj7lJbfaFJSL#J4ZA<87"
  2453.     A$ = A$ + "]<[gVkRV^6];0=CPQ0;`B^A85b\A>c;fnVbX=am:Y9GN?PFZaJ9XgS61A^L3"
  2454.     A$ = A$ + ";n>FaBYFdh^Y[HKb9LBQHne\J=cAa?;7[8k<Ql2e[O_5k<mE=\hEeMlR8i<?"
  2455.     A$ = A$ + "E#^ElHKGU6B^^^k<=5V_W?#JV0[<eF4?CaX\>l_>:Bfe8f\CNGjQm48fgYb<"
  2456.     A$ = A$ + "]CG^B<]iQho1?`kfe:FW<[JRNDffB97XQSGYLS;7ffjk`#73f_PEafAVH=e3"
  2457.     A$ = A$ + "3l=j#U`ndd?mXkYbFZVmMK5f[nX1H=NIgId5S4]]Ue^>8`Z:K;k2H=2P5ZEL"
  2458.     A$ = A$ + "#?00G8`ZBPe:3=Fe`W0\\oO=CFXBfJe5Ya9S:bEmOWR<8MRk;PEG5E38HD:J"
  2459.     A$ = A$ + "CLeR9_;C<LNi?A]nkb[9F_T<[bDc[ka;DncWekBZI89aYc0Hd^N17F98\7\M"
  2460.     A$ = A$ + ">_h`FRH;o4i\8cB3gMkn[[]2]R64NFLg0H]gbV4[3`D[MYLbU[?2U8291k[3"
  2461.     A$ = A$ + "MoVUS62N#ff=nVf:l1g6jdM0[3i3]JI9gL7e7JfJB2\<7HFN^5DD4n2^;U]5"
  2462.     A$ = A$ + "Ob`N53mLF3e#[7?hT6d2G1UT0>RUFIhB8[X?YUh24:58\ebi#S9aAgiA]Rm8"
  2463.     A$ = A$ + "T#Cj;lFoA5`joOfkkkE=k8kjjW?X;G\OXYj>DWkDU^^d#S;X95=Ta97JUI<L"
  2464.     A$ = A$ + "N81n84o#88B29>H?o8oh5=hAMDP112UIPh1=AiQa1RaSSok<We?feikNkFJb"
  2465.     A$ = A$ + ";i=M1;[AM__W__cIMZJGkmJ_F5]REOjLZV>;cHE1L2iD_JZGKQ^RZ1R<m_TN"
  2466.     A$ = A$ + "=enTh30Fh6<UGH9jK=Q5:RgfH5[;D<BKFAo2P5fFUW?fZMV;S4Ga:0Fil\S0"
  2467.     A$ = A$ + "]ieeZ^M\dOeZePTC]Vd16ZU=b1PUfl5GG9>ITYOYRDQ[5[L_?4HUea2cWgWE"
  2468.     A$ = A$ + "NLRfkba8EQL9amEo0dNQjdQZDTD]I8h#baR\C^]=[ck#Q\jl\l:?NhK<l?Z9"
  2469.     A$ = A$ + "]ad[L0[E>IBeea;Ch<?]`6[MCK\m[8M_:Re]Nd23B^J7UU\PKOSdX=P?JNeU"
  2470.     A$ = A$ + "bji[;g;1Bn_mhTCP5>h4KYSDmUQ6hoCPenJHW#Rn9<G7c]#bk?lmQ[F_`W2h"
  2471.     A$ = A$ + "InE0;a=Dhl_ZIGdUc5JY9cS1;eNAb;FYN2>TT`D`2B^enQ5n#F98eeV]i;an"
  2472.     A$ = A$ + "Md:W?P;YZoJjJ^[Lmc1CoJA=N:Jn1^6H1U_06\8U54>T=5aL:T:Ki:PE>IP5"
  2473.     A$ = A$ + "VAOOM3mESeK0_aad3#b?FFhM^kg2oQF5;g0[WbZHSSl_;MbJgbkW>WHRfn7B"
  2474.     A$ = A$ + "A1ZMadkUT;WodU]Af0;Be<Ddhg2He3P5VT5k=c8F>1CDQ6<`B2UHjhgb:47b"
  2475.     A$ = A$ + "b`5FJCieL\1cie5W_P6=VL\c^?`=XBRUO\#347A;aWa>1F8A5TnQ^4MGIc0H"
  2476.     A$ = A$ + "IWUSmM;RmJPeBXlA=B[3a^?J_fjLe=B8Pj<FU5H9LP=kGPlLQLU7k9dDkP;N"
  2477.     A$ = A$ + "<MVg[BFZ2Ki9`RT^mA0[^e7nL=GVGG8hG70;BeCCK;Vk>C]ZHiJI2\Xli>_^"
  2478.     A$ = A$ + "eLT85BTN59k`j=l^1F93\NcK>0F?MCc81B;PDa2Fiaaok;BLbTB>a:oHbei]"
  2479.     A$ = A$ + "E`5nY39C:\ZhD`kYSofT:nM579kb`4Xa?6aV5;_IOG#>DfJ48cJkDfmTC\`b"
  2480.     A$ = A$ + "fRk=fl]ieUU`]K_2Gna#WWeKi6OlZ6W#1e4Kdaj]I\R1OllSdd:mne<E5cL<"
  2481.     A$ = A$ + "]SH:IMEZ6af;aQi;`BZfU2`=dZ#KP1okllclGHCR>D4[\QUR][^B#\PVl[Ml"
  2482.     A$ = A$ + "e]6253?J<j>#4;VEV\i5Tf;TL:91gk]F2_n^hFY9No?_?gOOjj_IB_9Nl\E;"
  2483.     A$ = A$ + "?<IYgcMfFTF`G_L:=_^#75G]1mbEgc^2HDmJF4C9`o00;<?6W0[50J8`RZ5Y"
  2484.     A$ = A$ + "eM=]ZU1FZTl=9b^S[0F;NnbJ:?Fi3EfDjN<`2]ZPYL?OK#Ec3[<a3d40;:AC"
  2485.     A$ = A$ + "B4[f3iGT0[n4HaR[2NjjjT60;lghfTM0<i?6S73\F\[c8PEi:PU<a7>:H6HU"
  2486.     A$ = A$ + "51Y:cgn7jUl\6I`NH1OW0[V:d<c^#;;n`E\hnMR;>6HafDRI8A3^U1FTURBG"
  2487.     A$ = A$ + "kim:3\jQE8M2\LUgmPj<Hi\dVZ>FDiC1\bf5Gj[HI6USEfj17UbL;ZXYc[;I"
  2488.     A$ = A$ + "M1GE:AGF14fX0fW9Peb4H]HPEn4HaE\PB[91^]k<hUhBaNG`BA=:3;9A7WEN"
  2489.     A$ = A$ + "n0NCJ;]WgcR=YM?dWm7\EH22QDoLiME=DJC?DUST[D9UhDJUHcU?35_hA0;c"
  2490.     A$ = A$ + "?Ej]0=J9hESC_=E5O>[ea8Je[=7:OMYRBe\JO:?[6H2JT6M=oWJ^3Mi6>o<_"
  2491.     A$ = A$ + "eWkbCGBFP8l25k6fVdU;MG4j^7FNjJPUH;^=5`9Kgi76ZieRIfI8;JU[1Fm["
  2492.     A$ = A$ + "Ga:IPE>CWR>63aVknMgbWkljN\05BNOE4fSj1W0FllRM3\bAAfA5L?1Fi9`b"
  2493.     A$ = A$ + "M6?i49F_N5[K^A#Bf:ji:FMhN7H[`MZfQNb:fgTY1BF\OLTQAQTH2UM_Oe:F"
  2494.     A$ = A$ + "\fND`nL[Kli<l#oIG91?<?`d\b3W[L8?UB7l^#SAR5HUJkma[Ufcfd:PiYC="
  2495.     A$ = A$ + "8`aV7U1h:4iIMgIWQ:b?0:IE>3e3`[FU]C?lX]8kQ`0;^B3bCJ\Vj1`B5HnJ"
  2496.     A$ = A$ + "PU70Ki\RB?FI;MH_jg\7;jneS^AV:?6HamG[6H9;_6ehUfe81FNR^:QJ=O2\"
  2497.     A$ = A$ + ":dC3U`^;KK8TomPRaR8eb56>O9DD7[XY9T0[K^Ud`QmBGc05?JQ1FWaJPUbN"
  2498.     A$ = A$ + "7m8\g59kcRbRT[OgRYeAimchW0[FWVjXf:De[b7_Q\T05MUZ;K8mSYc4`A_M"
  2499.     A$ = A$ + "5`:kYY9;Z2fT9H^]k6mMl9IiVEhgVcE>J<=XVLL0dJ^R0FH?N>P2L>CaAB;b"
  2500.     A$ = A$ + "Cb[cLMFT4Y_50[XlX<kMJZj5n^0nUkVWOVl^llI2\XXD[iaFUYUZ=<?jT1FU"
  2501.     A$ = A$ + "73\l2`I>M9bhNi9=D7;D_6kb<6h:FU7LH5EQ0`h??FcB>^anDDTd1U:VS:he"
  2502.     A$ = A$ + "_4j?;G3\DJe9M0cXjXZOdL_d[1FRYO99ii4HA3MYgWJ4>WKcPl;G1\BaT\J2"
  2503.     A$ = A$ + "5B9dXI7NU5Uo[1Hml52R^8A]ECT>WgIFPD0?I?1PPSPLCKfJZi5Va^TFC[n<"
  2504.     A$ = A$ + ";HAgVi:cFAIPdXJ>N0fG^MMO_gVaZY>Z5n3F?8[8n^Ya=UZ5;e07XL4SJ\ln"
  2505.     A$ = A$ + "cGf\MI#Ff1c>Vf#R1FTBfZ<05b1EVhH;R5#n2WPC>T>`JW]b1R671cCdKeYM"
  2506.     A$ = A$ + ";8SDRHS]_`k2e3PU9mAAcl7=F>0\^<XHTbZQ>SeDWFD0PNQA#NCLX<8l6TP>"
  2507.     A$ = A$ + "Q0T:QX8RU33Z=:W8iM93XnDQ6MH9=>Oec8d=2dfkVURMDJ]KelmhbdXSjPgm"
  2508.     A$ = A$ + "U[6NNON]V3iAnf4]E>Z50P:KiH5[SOGgL3g\dF]81Fod_FP5\];1\Fi`<hIA"
  2509.     A$ = A$ + "o4HmC?R]70;i_N4HE\``[<#JEVa1D7gKC<IW8F<4c4#\Y9bK2\Fh#kGdF_:c"
  2510.     A$ = A$ + "k>D?aZB8mWb?cQZOc1APEiF0[J0\Pdaf;b8^HYF?o<OLgmH]6ia:Hm6ASJMT"
  2511.     A$ = A$ + "SmNfFlD8i61`2a>1FPTWYfU;Z6=XLO3EV6^Zn5mJYDKV8FeJi_6PEUjQJkA0"
  2512.     A$ = A$ + "[iWiVDCjJ_iZSJ]RWc2HDJUc42RRLZ__Z3nB5mIf\jhOC?_f0;`BcKUo>?_^"
  2513.     A$ = A$ + "[UCPEVH:2<1D=Ue4^2De=g:PUb#FNYccGlP42[QIGYHMibFD_KDESEbN9mT\"
  2514.     A$ = A$ + "YYO#Vhc1hHOSM3_JBA9mkGJ7ZB#be#N=g?NMH2\#\MUUOaWQLDFW:U:mRF?Y"
  2515.     A$ = A$ + "23FRSS[oN9WWGg=o[FkWbN8Y^l\bYIY7<oe=P6kLNNMU]GLLgOU>`;[oTia:"
  2516.     A$ = A$ + "9R^4NJTC2UKSLOnmMF?AJ7iMHIQG^P23gdR[#d;\\n:1A=Onm]XSHVUTo3;>"
  2517.     A$ = A$ + "c6_];CP\2TC>PeV6oi1`27iBCSC0\HEhhH2l0o>c0;_B9SE5g`37?cUBBc>M"
  2518.     A$ = A$ + "c=B9BKc>5j5D;CK3liPIl]Ddh6I]JDA`QX098GV0[KRYe9UV0[4Kh<0F<5n]"
  2519.     A$ = A$ + "^VF:E?JbIYE>P1Z2iBXIS_`P8cH47i13mg8fS?EI2k3#HWlSGf0`ZO2\hbZm"
  2520.     A$ = A$ + "=GG2I5ca4O8NKJI>RiYOP0fW>YecCFNShAPZRcfV#YU5KNgZAoVBHSAHWM7O"
  2521.     A$ = A$ + "OiS<VlYWL8L^5UWBf]j_8MNGbDedAIONBc\E_8eDO0c]RUo[Xe[fU\Vg4=bE"
  2522.     A$ = A$ + "o?VOOM=IYU0c1W`=U#9Ncb0:?1`57]DV0[T:h]B]I>1HZ:5\hK1`B3WVDXYI"
  2523.     A$ = A$ + "\LFCYiDTUJREGD=f1N3>P5Wn<^EhABmcE\#\;5<bm6HETP?#aM6\U>3K6oA0"
  2524.     A$ = A$ + "[U71\H17_4bHd6;k01F91\6[b^ZNKPe6iX_X7[GXWdVafYZWM>F>QU_6PEcJ"
  2525.     A$ = A$ + "HO98E6?<6E\2U:5j:CIKL0^W0;?jRTIiJ0DIN?KSbB#O]R4;^^i<Lo4HAeWV"
  2526.     A$ = A$ + "^IZ7:j]H5#]^;7iPZm>i2>Milc<iWaVVla<Jl50F3905:O[Xmh2HU^2L8baA"
  2527.     A$ = A$ + "nCi1<Ek24Vo3Lb:]RU9afi3HdVk\[RUTg1JYZ0R#e5aK1:A=SdColn\4S_>f"
  2528.     A$ = A$ + "#8B7C9LXI\G0[6E\]UgkFB^nj4HU1`bVNY:1GW[X]T:RNOI:P3NHMTA`9PeM"
  2529.     A$ = A$ + "9^58k2hnP3^1GaAFD;g;O5TI:GRJEJPeW0;;CVl=fSbDRR<chD#T2PUoj`Kh"
  2530.     A$ = A$ + "A\RmlZMQLMR`VQMk;:L8ZjZ<785ZJJNMk^:2b7C;j02lPI=bBHA_dQ[\3?KI"
  2531.     A$ = A$ + "?RMS5O>:C5oCi:dbWDjFa:TELYE\6mc[kV]SA\Rea_D0\f?nJ_JWGLC>I]lg"
  2532.     A$ = A$ + "B^REklkKFllCB>H;D7[VjIGCWoDBg#fbK#4[doo6c4bk4R39kZ:?eC;?n0D1"
  2533.     A$ = A$ + "]>S]HJ4U2`Y\mBIE#EET8jl_U4g:\#S>UaRoBQ91\`J4DkNIGO4nZT6TK4De"
  2534.     A$ = A$ + "9no9Ob1`j>kRLD3BG9`JL=`2:ac4HAP21Fgoc>^`gmHPeJ2fMLSWOdL]A5bl"
  2535.     A$ = A$ + "4HeSHi>?P<dJSPal0\AOa>>?WF=#6m46^o8F1\`NhdE8V0[M\eL]aIkCcFQj"
  2536.     A$ = A$ + "DHW0;5[\78I8\0HQmc6CA#CDjd0[\G;ilk[ZAUgfOS>Y:X#:WiTVZK1K?YBN"
  2537.     A$ = A$ + "g0;5;1F<;4HiA]Y2hKP5M^T0HYSoG6A\E[E<\DbanPe\1Fn3I]HaWS<BONMI"
  2538.     A$ = A$ + "i;:6HY1i_;:;`j;bNE:78h0HM31#iic8dZ=KcGHICcjnLHl?HQ;_Te]g>1FP"
  2539.     A$ = A$ + "f<hQ4^=\?2EUY;QkW<M_9Q60<k;cI`D;LgWOQgLcdUA>gUIha<G3PUK8VdmV"
  2540.     A$ = A$ + "nh:PUVBTR7`M:7Wl;`]RT84<49Y]Sa5V[H50;mIM#]6cnN9\TL`S7k8M0^Q<"
  2541.     A$ = A$ + "_S==W?PEf=RjHjd1kN\HWTm15347VG^11HEQ1Fn<92HML1^\Oi8j2oZ8RMiT"
  2542.     A$ = A$ + "M`E#L<In#bni#:F>:dVGLb421GM?]:Ro>mcHC:e[>>8Q57g\L:]471m6nSR:"
  2543.     A$ = A$ + "UZF9E?1FBK3;Vn8URWl6J2X>49[YiK_=;ZQjHSa7D<WQ4OXbcdR^3]DicZ3P"
  2544.     A$ = A$ + "ekYj=`RP]N2\\^3Ae\R#OA1Ifl_\1Fe<YaMaMXIm4HeYgZkWO=`Q<?YP_3Pe"
  2545.     A$ = A$ + "8XGL0\:Ce8j]0F^TkVKkLnV5G\e:7J3F:lJS`WPYGBcila0[>79J3\VGG2\J"
  2546.     A$ = A$ + "e5YV83aT#iS`ASFLQU_=[a9InINhAkf0[AOW^L21F53\Dm80_;8[bWg[JWE9"
  2547.     A$ = A$ + "80Fn[>?jU<eB3\dZIUL4;?450FR\OJ^FefAAbkW0;Y;WeeiZ>bXP:9;>3JVW"
  2548.     A$ = A$ + "9=6Cld[T_cDYC^m62MB[G1\XD3\8IE[ddjO52\TmBO2\dDf_60;g9EKld=[G"
  2549.     A$ = A$ + ":Je0nXNU[H9m8#gg_J5;<keM?GM<PKG:AgbLY_83b9Gm9eb?Ga:5Z7ZinMVd"
  2550.     A$ = A$ + "6kFj5Xe=g:GE;1[gEc[kd;DH?<3I:6oOXU>BOd8?l;\9chGbi:FBWWH?9W7K"
  2551.     A$ = A$ + "D9?iSJdIWLBaaCKG]BI?6;m29TPDE<=akW0[^0F3BGddE0;;BT\UBm^MDCb_"
  2552.     A$ = A$ + "6jg81i3iQ7DUgM\Tg85mi^jS56JoYU]1[lAMYaBWKWI3Lb0;_\9?n=0Fd_C:"
  2553.     A$ = A$ + "bfY:I:O=G]R51BldO;B:IH[Da>WH[#Y;F[2IMeY21`jWkg25NJdRCaKM\U<T"
  2554.     A$ = A$ + "JEU3H>`ZRIS_iWocYke`9PT0[QVWiUB8_?A;X[D1;[HD2kG7KbZISX35^J\o"
  2555.     A$ = A$ + "0dmh;B6TMc2i:;i[RmdW0mE:doA#QdR[f`#LaPUImbN4[=Tm\6o;MhE\ReUY"
  2556.     A$ = A$ + "BIZ:?PKCFBX:A\jk?iJ=J`lVj2IC_Phb\:FPaN>8k0?R]j1gB>LF#?I=d95g"
  2557.     A$ = A$ + ";;U36BlT_b=o<K_J^[VQ4\mCDn<K1V[9Q?\<1F:F^gW^4RISY0HMLoDSkFDg"
  2558.     A$ = A$ + "<bIi5c^1NM973<`ZZ\o`\j;efB7f2IImN_gkM[Y6Q?EX0FVG#AKeT#>Pm7`i"
  2559.     A$ = A$ + "=1`Bc[4g<4RG2m<H1>4W41`B3ECb0[#4CllOU5`2eahjHKDY<2g^G3F;J\:="
  2560.     A$ = A$ + "X;eWI`hNV6h6\^>7K<5aNWi=_a8I_lBY67Bb5dRU8H;Re7:T[`;1#SYHffVZ"
  2561.     A$ = A$ + "`Z1F;#kHUHE<_^4`8N1MlXNG5Hh]1FBl6h_UL4KC0[Ef:_JLcA9#XM_2P5CA"
  2562.     A$ = A$ + ">KfL`HYYK3MPWCCC[4SSOJNZ`=O>PXo`WGgehl1;>iM;_]P?S;BQX=aK>N4M"
  2563.     A$ = A$ + "3K2MM6Ko:P8FX]B9n[ij=`51G5`BHEommcOb?ok8Y]6d3M[KKifKc\IeDL]k"
  2564.     A$ = A$ + "J5Yk1MeRSS;lgi>HJT=>T\>E6hgj:U7[h4R_kle\dBg[HaHYR\E75MTZCPUV"
  2565.     A$ = A$ + "oaiPodUVER0CcHkNKi>W5N[XOJfHEmU[n1\E72Ce7MMm:Fe\m3ba6UN=W:mP"
  2566.     A$ = A$ + "S<6BTVOE4?Q^jj6;`C2Mh29GEcQDmoD1UHNYJO;7K;hT#=7:6^d><:LhBN22"
  2567.     A$ = A$ + "EaS:iVV?06;GVS2J_:;_f=<5[HYRRICl>jhC4kBE5KebD4nT^:Y#V42dl0Rh"
  2568.     A$ = A$ + "Z3PUTHW8fTV?F2JBLG#fdQe4iF3LEGn[jH_`gSAjFjL0\nh_cMlm\=:e\FaD"
  2569.     A$ = A$ + "6Aa22PE_D\<IIQfE5#30[<;d_UaWCPUUg>M:;9C:#C0089R595TaKJEm:nE0"
  2570.     A$ = A$ + ";=WBG9l2ZQMYI\V<MFoMb:]#I7jTK7Ub<G7eClNDimS7`eVHQ7_8<imS=:UC"
  2571.     A$ = A$ + "4:ih5ZGO0\hIhgVGG^GYdHEjhWLdWIj?U#kRhgj;3meF0;omEh:FV5FIPjK1"
  2572.     A$ = A$ + "\b6HEIV?SB4;XJ<kVGamkaDfG]YXM2\hO9GN07kBe:jnS0F#MTCR`_^Nm70["
  2573.     A$ = A$ + "3lQ1F<f[0F9=iHHk92\H9;e`:bT\N?idZcN5^mnl5eSgjVI[#jma=n:T1Y[l"
  2574.     A$ = A$ + "85iHbVgJA;>J_oaoM>7SiDd`Z<MbJ`K7KSVLjAT=e_`B;XH;dQEc`dI4?]U<"
  2575.     A$ = A$ + "6cnUCAFe6CY7SU6GaJNM7^Xl2FYmc<CXF9Ko5`JX2[c1`fPSmS?cHG_RV]EK"
  2576.     A$ = A$ + "d1P??\ck\8akk=_EHcR5llkKCJR<W899lF7HBbJ0=1U3c6b;K4n`BR>_GIQH"
  2577.     A$ = A$ + "Ve2]HA4;bJXHYfQCTV:#LYkG6fNoTW[`6U^G9O3I=V<b6Ch6W\WOeIJm<fdk"
  2578.     A$ = A$ + "W496jN4:8nPb]#R\Lb3<0[TONiVg3eJ;7?S>f\3m5OAmVfncY8iK#7NNa^mV"
  2579.     A$ = A$ + "KN_KO#>FOl^ZKe5j8_KnM#Tkc:EA5Fe592XMGMXM=]<hVEi:PU;gM6TJd0[N"
  2580.     A$ = A$ + "KbX3NZ`D?8jgA\TTT4HA6C<1FF:<;a>M^AJM=GC<FES0UD_T\A?G]8;L;a_3"
  2581.     A$ = A$ + "IE:CPE\ZcnaIh:G3\HBBH48XBUR2VWaT8APEZ9]mf?PIM4#aSI]0BI2\`8NT"
  2582.     A$ = A$ + "iZG3?Gd\H3kLLIAf^>FMR>e`VR6F2kZ[G3\T:fi1W80Fml9U74`bKgE5I4Q4"
  2583.     A$ = A$ + "Xd5aHKF[mBa:FJ9=^j]ZQ6=O7a41FCDYhZE3\^m6ZR<ac8f9bSOIgXcDHbE["
  2584.     A$ = A$ + "68DLC_T5EL\VUFGK^RUboLO#I]]dggI?XQjDeU<LVKN5;MLNd2Vh]#l`V\6>"
  2585.     A$ = A$ + "WdN0J34=mVehLJ5C[A0\Ja=jEZ>:JQh1c8]g4gI5YPdmRnl8dLLnL?\T9fHj"
  2586.     A$ = A$ + "YfjK>?Nb#N`L7T4S>QGYYbjRgF<`RB^7[P11FT\F=>FBJH5YhhB]K3[HY:Bk"
  2587.     A$ = A$ + "H[D\bEo_QPF9k9P5KPDlQ^4\?[g>9jd9k6l9AeDeXN^d2iKf2400F\CaA54V"
  2588.     A$ = A$ + "a:f<`CMPZFEMM;4e8i8V[ZCG[lCnJnL5[5=0#L#5DNiT63LQ6>IcEUF6Y[=e"
  2589.     A$ = A$ + "nAja4ni[j[TLoIbXjT4=]2[<[TG6^R5ZnnREUK1\N=;S0eGVSk[[m;FJ^A_O"
  2590.     A$ = A$ + "E=?bb5=:f;#VDVmSoHTb1HA5]I8EHaLF>;E<jL2HAZX^P]2W0[kTO[ci4QEV"
  2591.     A$ = A$ + "\`aM=AhEBe^\i>OHmT\6[Hm::Y;Z>^=^n2FSX9iQKMYSCbJ=Y_Z^6_=g:lET"
  2592.     A$ = A$ + "0bkDnOGXII#^XbeYidL9KAG7M:Y\?bNUSk>FHgei0h^lf>m:1b0?[DU\]SDK"
  2593.     A$ = A$ + "TD:?7;9?_G9QiPlR^bUO2CoX;WVRkCab5YaDL2\^S9j`Q3G25VWVYLeo2eLo"
  2594.     A$ = A$ + "fHcei`3c5TD\BB<8MWhb>PaL7I2cd_;V[F\R4\T`g#PE4[7gYPJ0PElM]V;h"
  2595.     A$ = A$ + "UCeNL2bNgT8m:nHM2\H[S1Wo2PeVJJ`9`b#51\nl?nSO9LfLfIVLbe750[d\"
  2596.     A$ = A$ + "MkMkl<L22CW0[?G0[Z>ZS>aKEcAM>nJDjQ6WYF<aGZM\d5CHRi7WNP=H10;Y"
  2597.     A$ = A$ + "0=G3\X_Y0Z_^;PeWO2\#RC;RYnD9SjPi<b^dHOo4IS#NA#F5Vaj2ob:fM2\H"
  2598.     A$ = A$ + "1:kJEd;kTd\R\4#^:R?cmiVAEYIQcLJk5Y;`2HaQ=UJcF[5g[05Z`YmAQaFa"
  2599.     A$ = A$ + "YNT9T8WUSK\:^0U?9SNbabJc3NNgba9>[=^g61FnQU:LW:TX0F8Fa=olB8BA"
  2600.     A$ = A$ + "7;5fG4=YbDlVdACi:JgNS4PbZ>EhW9PE79I\AjJ_[Q^\CRV;eSY5g^Ib=5Eh"
  2601.     A$ = A$ + "^?ocn\GB[<QN\FRka;[>;G?[S5P3Z^NTLHPU;:Fd]O>XG4HQS?1f4VV]B?=e"
  2602.     A$ = A$ + "aaLFm37m5HNMYl_?4kc=`b:N9EZhUT;o?:X4n[N\DRRmElK0EI4D^1[L4J5;"
  2603.     A$ = A$ + "ZQ3j4UJ:k8A?;JPE?RmeKm#UK8?1?`WKN>?jRM?7oR^`5oE1;?fj#0[S__Vn"
  2604.     A$ = A$ + "XPDVH5[VWWFGPdHg>iQFDlm`7WhN5MSR2WC\TDEoT<l9\e57j7=RDlXhldWZ"
  2605.     A$ = A$ + "<77aB[kBBI7[h;cF;]4j`5U54F=88H_gN5`2OVIgYcVF_X#FPW5Dj6XbnTTj"
  2606.     A$ = A$ + "i40;bodD0\f_XS3=D;Mh]HJ2km=YEGU0H9e#?d1Qg8P58J50n=j5:b`1]i`4"
  2607.     A$ = A$ + "=_W?K`\c^`WL:fkBJj==`2^C8g[cc4BZF3mF>;AA>gfefXhjbS^b1S77P0U]"
  2608.     A$ = A$ + "C:AH0\BIc5WiX#CPeK0`Z;P5GLPY?CPUL71O2D^M?d5I#KnR?`a1`:<98W3;"
  2609.     A$ = A$ + "fn]K9jIcRiifU?J7cYiVk]KKcOOoM0\T8gWS2`GW0;N_RZLFeSm[0FEF>;d3"
  2610.     A$ = A$ + "6G7oRe=4]?>7CN5[>4:KQhR76FU=4aQE]T0_?:QDciWM4K9ho\B?aoNia2;F"
  2611.     A$ = A$ + "#BOW0[S]2?^IYI0#cd;gK`Zf75]EV79i\^dTlF?hln?c0[2E4SdJcSUZVKTX"
  2612.     A$ = A$ + "?Z=9L\R4f;\:j:fWS4N?>^3Y;OKE<>C^LQ794CD`^kYL6DL8^^DEU7kD=ZFC"
  2613.     A$ = A$ + "D:J6VjjdB>\;640[VCNoW1P5j><gFG:643JCKO]e<GceBBDKGEfO<fG__k^9"
  2614.     A$ = A$ + "bj=VgUS\D\6NakQkkoKgKTkk5:;j=OMO1aC`eA\CS4MUeLM]NFV0>iPL^ORk"
  2615.     A$ = A$ + "EBY#:BEA>^bEL\>Y4mgjB_[VmXi_cJc\RelXR3dRL?2e]#A_0iS7ICD01\`c"
  2616.     A$ = A$ + "#o<BeQ=0FQXA8REP55=`R<14k4jYXnWmchFQDoAI66Q_Th9^doRFI>BQIYbF"
  2617.     A$ = A$ + "n6?TTjD35CBMQ^`Lb:5[dQVjgBW]:Xbk]hQd;2bISfKd9CM7dh8;f_>;Z195"
  2618.     A$ = A$ + "^BHA9;ER[KgmBYcAl_HkjA]jTT#;64K^Eh0c>aU[0FD77=`BSo=Wl2UoX?6Z"
  2619.     A$ = A$ + "JEHGNBP1F^]U:SnU\Kc^Z3PWX`;GnXGg6kj<OA>FlkKEMC9O5`bZ2eE:\]U:"
  2620.     A$ = A$ + "bXh2:fkCb=0;bX2:noY>XOj4HY69W3Ud90FXYX87#FWNZgAV3hJ<1kR4^LDD"
  2621.     A$ = A$ + "]#G]LNMcQ\PTTT]POIJPIiDfA7AAo5#>F^>F0HmQ_?_il#PUlK`^kcIBOL[Q"
  2622.     A$ = A$ + "ljQ?3_oo\OmWM4;ETj52\:Z4bXl8Jm7mlIhU\Xji`WCA\5==CEAg_#WhY`;a"
  2623.     A$ = A$ + "aUc\FCBg8?>DMNM5gleT\JKT;LLT2KRJa=A#K32PeN4;1FMIAO7oB1G\P:Ub"
  2624.     A$ = A$ + "^5b_2LB::HJjZ>WUiWim0H9joBU<_9<0UbA<MV#2agKAia?FaJnm]iAU8dJ1"
  2625.     A$ = A$ + "C1>iZ:BIKW4#0[_M0\L\IGlKFKML2A;a2e9`BW]SN`[0Fi8f59nn6HaMDRYY"
  2626.     A$ = A$ + "70[e^U1`H5;2\VGgL:H31U1=lQ\VHgQYRdcJcIFa[U\hemGoToboTgOC=OFm"
  2627.     A$ = A$ + ":^:efOSEHAI^1<SIRPc\]dOfMoknRobSHaZ<Ln`FU8n_VYRJC?KX#]FE;LAU"
  2628.     A$ = A$ + "9[XAL:R]iaT[T]m2#iK\[?WHk?fW?#foE2\#OIWGGF;DCI\ZOkG2<90F9NVJ"
  2629.     A$ = A$ + "Ce;LPADHm8F>Rd3E7l:EEK<dG0E^Kk0dLbBdaR]T:R=4B`F;6k<FYD:Q;\^8"
  2630.     A$ = A$ + "Hj:HnJ:gJ<RdA\PKjBWR\ioia8ZX1_?If:HaC#60F4[iJGb]eVISal;8`B27"
  2631.     A$ = A$ + "C;<BJ9ZLi8F[VT2H]bbKNT_[VJN8VJTVPQ\BX:FURH55Mh\G`bGMlZ=6RR<Y"
  2632.     A$ = A$ + "lDcESC>1fR:UEVGg_h9Oeon?dk[HB8hAJQU^6#b:iFR88LAcFnaZ8?o7lOlG"
  2633.     A$ = A$ + "nE7afa\e\`2Iafn^Rd3GAZ9:?BYSiE;\RL25kA\Jc?FMAO`:3\dAA;DjTiA>"
  2634.     A$ = A$ + ";M3\VaZNh8OnFhZ:eF4bLJn^P8_R\MU=>1?A\X;cdWkhcH]T6[?5nWBPjY#N"
  2635.     A$ = A$ + "I[9QYP<SMR[`H5Vi9YY>AJPEWf`#SJb=XekAJ2c[;FIS_OG;a;37;cAQNei4"
  2636.     A$ = A$ + "8Q4:IMo0k#4a60[Z1F0i0nheU6XXlK;G1\>nK7aZOU77>BLQ0IaV5oHX[5IP"
  2637.     A$ = A$ + "5CjdGUcHO;PeaAdQYk=J9g=0ZlQG1\BI4k_l9oVo;oKn7lMGomnmGNjcNfc^"
  2638.     A$ = A$ + "kIoN7oo_ohEL#a;Yo3Yh^[l=#HJggMgO`?ho`oYo^Ock:fS_kgMgjZjl\NZP"
  2639.     A$ = A$ + "S=B;07b^dgD\=h7QA5T0S_EC_i4R=Pm\m=4K7>U5g>Ejn_i^R70TngH\dhX>"
  2640.     A$ = A$ + "^DDCDDo#?`RRCl]FkgM\YB;lI2Bkn>E1S>M_[_QH;`=cl\1I=j;ilPblNagD"
  2641.     A$ = A$ + "\`U]#Ndg:1b:bgPc7HmgamIH9`g8=D><6A6XfCkK<fLJ#R7M\404I?XaEEMT"
  2642.     A$ = A$ + "3\6h]A\oM?i_jglYoYo;o7o7m7m3nnOh7nQoaoaO__ggk3oWl?7ol?Eolmo1"
  2643.     A$ = A$ + "7olWLl3nGnnhWSo\_oojOb_nCoZoZ_=f_=f_VHoZWlUOa_lG0T4#fn[oGo_m"
  2644.     A$ = A$ + "[oEogoE7olGoo3olKo[oEo?neoOnR_hGlgnUOK\OK\O=angn]0[_=fooA\70"
  2645.     A$ = A$ + "[_l;nCOajMgmB=B18o_GMl3i8g[^ColBU`ZD0fAoUgobo5OfGnol[nb8fWSJ"
  2646.     A$ = A$ + "\m1\TX_h><I7U?XmbSONa;>n7FL\>ncAVOgOo;NH\_#F?0<a;LYZb0Va?gO?"
  2647.     A$ = A$ + ";Geo`M?B6USo3?:F9mo8ecS;d[8_0Oi;Dd_BOHm8CfOe[fOH\_Ld8o>?b:kh"
  2648.     A$ = A$ + "[[n6njGo:lYVg;j[d2F`YI^oaOOOA8iaS]GS_QX0E_hU_6ok_jERkAkKo395"
  2649.     A$ = A$ + "8^onkOdmZDN]n1<IILkQ7eo57o`?dR=kX>2O`a]QgjNeMZVmXIQhn3WXBNW2"
  2650.     A$ = A$ + "o2JFHYicQgnnlmZ`0#[biER]]ih7NU9ENSf#W^onkNde57Q;a7QgSofil7dR"
  2651.     A$ = A$ + "?bXU_O`Y`L7OO?f:lgnWmZUUWe^cBhA:I_nRSN7KVYVQeR7nHaAUGnojoma5"
  2652.     A$ = A$ + "ngnWmB6;;T5cfFcIB<Y0fHi57C3fPDNQSmi<fVh`<XR:=D6b:GenGF>lbnX\"
  2653.     A$ = A$ + "KMG_<NUSme>fnT=PNb9JenjRhaRHBSLD3>>^>fGL4Ki>9N=i^T<4MhAYmT7g"
  2654.     A$ = A$ + "1hiH1UgY2DOlAlN7[^GY3aDaQo03:4SRfYTC6RJ^ZLA62[heOOCgAVV5LPLc"
  2655.     A$ = A$ + "TLTST\]g[T4oJ:HU][SMi>LB#fXSRMfG[T2MAmX\ZC2Ulk34d3S]<\7L:]X<"
  2656.     A$ = A$ + "dB=YWFRe4FRTI]E_:fbMbOB1eXXAH:UHDWC7d#9K5gPLbjHaSSHoZWlglWOW"
  2657.     A$ = A$ + "7H`Y]aekb<>ff:VdLBK;kb];idhLgmOa_h_i8FdcJh_MZ>GQa;Hah8hM[]0L"
  2658.     A$ = A$ + "C2YI\f^HHoJeYoKG3\8]5XHJG^8c^1N2]RmERjE]0D9PECSTCQmODDCGP::X"
  2659.     A$ = A$ + "Lk>fG_CjKF2PUX^GG<nCNd:ZG;[EXG6HDR?c1UgEQ8ebQ=9:A15aDcFgeX#3"
  2660.     A$ = A$ + "8blk[MPDMn?F<VmCPUlFB3\h8iPWjA\D99#]9YJ4ERORf]cI?[HUDC^hDJnI"
  2661.     A$ = A$ + "fTjK4Mb9MB5VB<N[ZP?A3J`dOYHAI91R?M5`:KjLX9K]l8PE:SHo5?i;OQ0F"
  2662.     A$ = A$ + "BDm<[<=IN93N>Ee`6;#VX[bM?kOeWnU7aRgb9`Bja[Jj_YJLC=RCUc:V[TSO"
  2663.     A$ = A$ + "RH;Q:RfYEbgEE9`[SZJoIBI13\`cJ0\L\Qk[XFLZagFn<7nX\V=M^T6e;Q6O"
  2664.     A$ = A$ + "?RMGTFAjY803kSQ<o7Z?VIFGi2W#BkoHmblk[^Xd3gbF?MJBn_9YDUj0?T4d"
  2665.     A$ = A$ + "d;3DSe8FZ`:]9`R5e]i^egTN9eVRO6UFXFklNUT`_\:hUWA7DbEJ2i5i6>BT"
  2666.     A$ = A$ + "g5gkbc?c;7gCGFZDnkPY>5mdAC:8]n#hLHJn_LO1SHIG_bZnJEYjm0HU8Q`C"
  2667.     A$ = A$ + "BSW3YLIIQ\8UanY?i_h_gcT1#8aBS<SB3155VJk`X2HUTh]#PeMOW?m_0a2Q"
  2668.     A$ = A$ + ";0KO2JTJ2mS5:g2QG\;c^]G\f#EQW1[HS>E?K6;UOAfP=1\>NoC>[l^e`hfl"
  2669.     A$ = A$ + "jNji[B_PdlebA]1ONBQML:OoF:gK4kF=Jb<aOD?oT5_8N6CP5DNhKYaIaB?N"
  2670.     A$ = A$ + "NMiLi#j8`6kbFb`925K560[m?RbIDI3#Y8FlHU\5PfnD`<FG69b_J>7>4HEI"
  2671.     A$ = A$ + "eE;cHcUH=SL<bdEYH6FJCDMLYN?9A2nlc<#N7;>A=kQ`3LgRojF0e^8c0m4n"
  2672.     A$ = A$ + "#bY#b=4GgCP5Yo>kf9f=>hf#>J?dE0[SHodWlSOjc8;o:NdLjm#XGYl`^X90"
  2673.     A$ = A$ + "a0;cgW>1FoWoa7aBk^i:PUUUo2[^]6\Kd3?Eo>`5FFd#5K=:RIWL][F<a4EK"
  2674.     A$ = A$ + "jdmn=9=P3>H9\#WnjJmk`d?gU3G4LXHnDglHnk6F_5a>TGXD\>^gdnUL;<d0"
  2675.     A$ = A$ + "RH5oRJ\TJYc<fQMECg;`SG5;Bo04g3kDMP1`J`Yd>;P5SEKdO:ZJ6IYaaTZO"
  2676.     A$ = A$ + "5ck#MP_:c3:R=[faTG7bN^Z^A`5bgH1\:N5;Y]Kl5H6k2eS50\0d>;ZV3mF6"
  2677.     A$ = A$ + "ViKaSH>kC#W>06PVc[;^C:b`W:DHWc#OW_2HUkCmbkF9j<7an5O10Fd554;="
  2678.     A$ = A$ + "icYBHK>ZCSn][LWNAPNR>#`h2GfYiT0V39U30OWFINgMA[Y6WPIf::?2LA\B"
  2679.     A$ = A$ + ">Xe;\P;FTH79[__Pk;3I#c]:JBnAd32\H\lQhNG6OBhGY^jgHmL>AXE]j:IF"
  2680.     A$ = A$ + "j6jVPS5k4><18a6>fSPfDnoX19EK7O^UN4L`HgS9c^9G]D6U20Xc9c6UNob7"
  2681.     A$ = A$ + "]9[l<SL\L\Pg#9;leFcTdKY=jAL9?O4L`nPXCDHg6D\bK5?ncija0fUd18k\"
  2682.     A$ = A$ + "oEEe?^2eH[\MQP8f5b1N:nX9=OP\W?DR<JF8^\hLE[f:WV?SdLIc1A#TJ6\M"
  2683.     A$ = A$ + "Y\`M#53;J^9dYg5`B\TIH>V?UMQ2MhJOcm:P5gBj=4H]mf0;Z[XRX1]`#Kh;"
  2684.     A$ = A$ + "hBZ_:A\eP]KZ3bJj];NVM5`ZBFa3PeNKY8P5SUUAP20Z]SVRm]4nE8_8?Hc["
  2685.     A$ = A$ + "78=PI<S]969GBnL9K6H15=:0Fbf_:>IaF4;]RR#`DJiR4B4nk9T05\j7UP6<"
  2686.     A$ = A$ + "iQ6HaHKJbdh`6baeXeR5<PJOTRQKf]#W_a4aVb1`B4ThQ0[:E[G>i6R]7LEg"
  2687.     A$ = A$ + "8F9DJ1`:c1?E3I75?QCPU\[3`>idli[V9o<]eLil_#c5dl9^82:5iUAPea_H"
  2688.     A$ = A$ + "4kK0`2:4Yd43gcYNlf7^C40[S4HF82R>JdMgm7l94LPi6S__ZInR4>ZKAjHD"
  2689.     A$ = A$ + "3E?G<DFD5K6;[3CeiH;AP`SS9;hB^]Y=Gi`M>>>n31F>fnh2J;796\bo_;>F"
  2690.     A$ = A$ + "3:O91[\[ESjFZ>Va^Ia^^0f4BAY]?ElH^5YVY\R9h2I\C4k^bE`fL]b<8>_R"
  2691.     A$ = A$ + "H]<U8[;ZJ3TbXWOOKBj4bQW\4R8>W>b2<InTf163ZPnSRHC1?]dhEc5;iX6B"
  2692.     A$ = A$ + "oV#MYG>b^bF5On?S=;2DZMg?BcBBd4VANgmJ=<7TE<4H]<o<cUV`Rg#Ih15\"
  2693.     A$ = A$ + "hXY1`<DK6IMjW9_c9e1an9?i7BPU8o_L6::6#?4HaRS<P^L?X:K:Pe?l7n>0"
  2694.     A$ = A$ + "FZL<BMG5`R7RWd<ACgH>REVXY0FBQTX4?DLMj4=]533A5OX7<7aNPc_0id37"
  2695.     A$ = A$ + "GT^;H]IaJGCfZ0F5k^cW0;NMI=K:fm:W0;Ea2>JWLdV=COeV4A\d01<IkU;U"
  2696.     A$ = A$ + "Pk=d<ol;#33\2:OUWg[8=Mb>QgB<I:UPV]BUGP9X]hk;]ckcT0F2HE3PUZ\S"
  2697.     A$ = A$ + "do8>Pa=KY6L]Yjlc<71FJgAI9DJDLIFXd?f\NJA2Tg5`JQ[Hikc?4HaR<DY_"
  2698.     A$ = A$ + "mU=`JiQ0[KG>1Fb>ifU\[ehc8LgaljADc]87?2oel:Fgo6NQg1`2C`C2CNDO"
  2699.     A$ = A$ + "E7:^`LZg:a1bE_g5_1GSHIj9a0^85i[4375[j==_9Y^gdJCZ0Hi[KCOXgXWc"
  2700.     A$ = A$ + ";NOaCRb77<e#0\d<I5eNca>jjE7;N]N:<hl]Bm13DEERbRMA<nf_Se[H9i?9"
  2701.     A$ = A$ + "[KJEnVOh<WhcdUMb_E<QDiie]`aU:DjO_ePBP_9iB6eF6<U\b\g`OblkKOAl"
  2702.     A$ = A$ + "gT#BR]dJ73TlNUJG2N6hC`WFAi6L\DOi8e[`6ZL<<PoW#aZeODhdcbUVW0[h"
  2703.     A$ = A$ + "cLEZNZh_5ca2>I\4S7_REjj\gaZMgO\E8_IIO_L8]`\i:5f99H9m=mdW92TS"
  2704.     A$ = A$ + "WNC`aafXhL2l_iAZ3l<l9hF979h<ZBR\EQRmA6CU73\jF83hM4iL#93\`:YF"
  2705.     A$ = A$ + "4fQhQL5`bidPR5Q4MZZRER7Nj<7^0JJdM`1iVPS=e51k9KR7fdf?IK5hQ;ak"
  2706.     A$ = A$ + "_[;IAKnlEOOmX:ee>PJRI[d<<D50YoF=^LQSld31FD5lT1K85B[70;NdK9<\"
  2707.     A$ = A$ + "IIk[U73\XV#FU6jd87We>`H6fBai[BBTJhY4Z][1FbgkX[gcE6cJbDS]2aP^"
  2708.     A$ = A$ + "ZSHQBRL[07LUB?9o9jU5J\j[TCGcIUUT><7\CnfUD0\BfFNUCjXS#IAJ4E2S"
  2709.     A$ = A$ + "J]XVn<Ak8NfAOQC=:e:bRPKB1E33d3n=UMbbVGeG74>RUKd]Zb5`>TP7fE[V"
  2710.     A$ = A$ + "da:F5iWF`m7F?>LO4K8PGd6[i0c;PUX`UD5?_XPd`Smi3YTTG>N#mZ87?LCX"
  2711.     A$ = A$ + "m==3L3[ffhLX9]lBN^2MbESUOdK[i=iH9D`<d>Qb5Rf^`9X\ecW0;NP>]E8W"
  2712.     A$ = A$ + "k8Y<GQT9;cB]T3PUY9E4;KfEEi0;U<BCdd4H9>c[mo9`J^R5cI[^40[21FEi"
  2713.     A$ = A$ + "=5XkELPT4`B[HQljSHWR#864A3\:`MjDKQB6H5CLa=Z>F6H5697B5NG?QPP_"
  2714.     A$ = A$ + "?R>o9noFXiTImO1BfXn2?Xli_2Mk7SMLA5G960Jfh<NCD[oaORH[BTgX_IQ1"
  2715.     A$ = A$ + "EGlDfbR27WJNVbBGce5d0\N4k6UTF9S2==DFDldD5JUZ4`BGKAK38gI\N`[B"
  2716.     A$ = A$ + "LcP_[:d55;B<L=dcRha?\[g`j76a6]lB7C^XiY]XS]c]cimBN[D]gDV=^N9\"
  2717.     A$ = A$ + "#X<;hOg0[=YjIM94^adD4RB#ONOVK_kVhHo9c0;EI:T5O>FVFf:GNm:PEA6="
  2718.     A$ = A$ + "`AVEE:PJE;W7n8kW0[Rl9e8Ff79Z^B#AlB5=#S5ikiaBFa0GTh:F<f3Pebbn"
  2719.     A$ = A$ + "^VZn3<26ZP[1FEA#JYUY4HYda?^ImRS;lb2cQNMI57JCbcA9K>S;Q3EN2Wij"
  2720.     A$ = A$ + "_D7Z8FWIe1`Z:EQPM9#c^YNoDcPf4HE;c[kE0[Bf>2oE0;iOXF=d`8;R?fcH"
  2721.     A$ = A$ + "eAOK7g[>^?mMm9ijBcUal;R2P=1F\9NcHg?1F[7Ym91DQC\B8mh_;PU_G=1F"
  2722.     A$ = A$ + "jkkE0;bBiZf>cn^4C[m<fF:6U2aPLi?Me0HEE]gd=nL0\D\T2bPF3XUegbRl"
  2723.     A$ = A$ + "9b]?Kle31FX6]A\YUX88Db?Jdb2dk6J:WbDL_5gTe1:I\4H9_jHX\OIC#HR2"
  2724.     A$ = A$ + "]`AQhT5Q2FHN>0PEjIn;<J2B5e3QWF6I:i?^dYZd82cGaFY:USK<cHUX5Dj^"
  2725.     A$ = A$ + "9OdR?H;Mh6fh6TEH3RVYl_5ab=[YBNLlGOgB\^4l8^RUlWd\]lH=NFA\3O6o"
  2726.     A$ = A$ + "3PeJ;mM3aIF]No8e:N^#fe3IhFdRGR[kY4HZA>S^>\VkJEb\alD5=ic4cHY6"
  2727.     A$ = A$ + "DK[4??e<dPI`>WnLdhOVHJ=REZbFEK5bYFec0dPI=9ScdBckdQEM\gZ]2i\["
  2728.     A$ = A$ + "\L;:bGC;Ia9b]8ecRTYPLWHQ?eOF0:MUKQTL`I;9_D][lX]=CJFdBW0;4kKN"
  2729.     A$ = A$ + "b?2?TXo4:P5CfR8]Nc^G[L;8X\_BKF2Pe?j750;Z?ch[3[9XPRDaFihRYN6`"
  2730.     A$ = A$ + ">Xc6U>S5E^db?T>KDEfI]VFU6WmIYoKhf5[9O4k66meMemhl>Q2BP7H?QGD9"
  2731.     A$ = A$ + "V:BMOD3ZKcHi4igiPZL0\Jb:9ha2YFSHYIYg<`B2ZC4k8Ba2CQ#AcW?i=Sf;"
  2732.     A$ = A$ + "4;TZS2]a\63PUnn>cgU<CgFWD;nYXI2QDK9ijW6aFSE9J2HaC3afb2C]Q0[R"
  2733.     A$ = A$ + "]HeF\EH4;U:IkkU<7;;hlIJH:EcH0F7;9Ll91\#\93\H1E_U6eBR;]QQi=0F"
  2734.     A$ = A$ + "FmeNKP5PAd8i#j[kG2P5:nX0F\[6[=G51JhA?k5O2^`5dWA0\HM3BF52:B=["
  2735.     A$ = A$ + "DG67a\f3ah`0;6KCW83_Q[iHgV5CB7j=cVBg\[JN\R5h_D4kP2C4eNXFNh9d"
  2736.     A$ = A$ + "KCNH7EJ^<[nA]8T07:gI\RF1Bk1Cnl5ZGSDJk]AgAe<d[H=on6oUI_l6JBQJ"
  2737.     A$ = A$ + "^e84L9nOaY;WSAR0FjNEEj`<c1WB?#G5kbh:=5l5Mh[Zf^>REMMf30XXNSjZ"
  2738.     A$ = A$ + "o10Y9K1c[i9[jPN>XSU=NeJaLJQ^<:V32F\P\[gP0F\?=J6oM\Y`SXGXjTbY"
  2739.     A$ = A$ + "c7nfKVGF:R;_;PeWl9?iWlk;PUFa2^;WGaR>kQKW[NiOD]<TNl#5Jim?i8FD"
  2740.     A$ = A$ + "SB:HB[dTcY\?ZBZ:idPeW\5RM;#MeI\J:b9_F8EcDUZY;5[<=P^VS4\D5ea;"
  2741.     A$ = A$ + ":Kc[[TfUMVRSMPJAlPN=kCVW]nfb;afiWiQ]hNZM]Bh0SAoV70N=;PUh66K:"
  2742.     A$ = A$ + "h8RmhhN:]4e#Rh8>iFH4_kQE=]]SJ9RlB>onVDBFQl>IA9l4HY<5>bB973QJ"
  2743.     A$ = A$ + "4[01DaE[bLD`K>IB6:NSSU^a:=0c][<_^0H1nJ0SFA0[R?UI>iYE]XXE5[0`"
  2744.     A$ = A$ + ":ReBD21=FThc\l47WY3SgnZW8k[1FBWg?2Ng0;ZPAKj]=9^Mj1<g4^2W]\IY"
  2745.     A$ = A$ + "Z^O2\0UK<`R2B3KTY63jJcl\Bj05=0>NJei=jX[Tn<g6He8PF<;XRDZimo:D"
  2746.     A$ = A$ + "=haieEdZkHGI\X3Ed_MiQDL_T\6>NBU>^UifXm#PEEJ2Bb6Pc\;F=B>5ZUY9"
  2747.     A$ = A$ + ";GgecG6>>PC#<?<hf6HAi?gU]0C\J0\bJ^`_2HIWQ`e4=XCB?0FF8Hbad=?N"
  2748.     A$ = A$ + ";P5C1gbW=5]X9`b:oAoM1\bL3#TS50FD[6>nghW^RF;PYkne0\2aKHATeaBT"
  2749.     A$ = A$ + "?WjdRJC#D^1><d?0HM\38bIIo28\fX5>8P<P>A9Snd<Dkmi7jRH`TLKLd72h"
  2750.     A$ = A$ + "V0<aTf#U`GU4HhRGL=`2EZBHHb>F^Y79BT8bh2]]D8?XbPLCX`Vc7`TBY0_D"
  2751.     A$ = A$ + "Pb[aiKWKCaLYG<W<DRYdJPN[E\Z:7:9i47GR=jo?K#GVZN4[U2DCRQM^2=Mf"
  2752.     A$ = A$ + "l8SZ`9YEYo9EDgVod5EUN8`ZhB_cC]\9Cc>Ba:4lH[08T\#1`RMSQk2FMj#B"
  2753.     A$ = A$ + "jL[Z2E9>;\b81JDNV;UCPea7INR>EP[eVlEL?_Y=;Q;LGF?ToCP5bd?j6h]d"
  2754.     A$ = A$ + "R3HkLXKNcVk#FdW\<k^#7alA0[MjUmG:V_]Zj?IG_C:X1W^fhHl0PEX>:8IT"
  2755.     A$ = A$ + "J;L4TME3PMIm<_3P5X]UN4dV:#V1FDM;;\_<R2n7?jQoAM^REoR\_j]b`::J"
  2756.     A$ = A$ + "KccFAfNeN\#0g<mM2\F<`2;L\C>;>N8`Bi#W?_^7;OFUHdPZc=HRjS:BnDlA"
  2757.     A$ = A$ + "nbe0;EA^[1Fl0I:kYNH26BlJ<?B]i0HRRUoM1\X8RRR]UH5Boj0F[PI:BoF<"
  2758.     A$ = A$ + "`ZJehSB^e4HigX]]UhE\N8`Z#:_W;:=nEdEXYoDWN4`JSf<>N1KS`;3\\:kW"
  2759.     A$ = A$ + "T0K2ICab65#9#AA4`RT66kaE7mZiG5[RPP;2H=TZLWTj:iHM^^2H9_cT\AEB"
  2760.     A$ = A$ + "Q;1FEF=2^6j5LlPmI\d?_Y64:iM6Zi<UcO>:d^d#bbiaNl=I[L6He\23B?lD"
  2761.     A$ = A$ + "el5GT;M:>h9e0HJT3:Iinlkk`][W5WY=E3gZ[Pe`4U#MKRR6higGjn=VeDM["
  2762.     A$ = A$ + "[Z=?L05K=cIfgP`O_:mcH=g2`;:R82IENn^;dDD_R>i7S=#P0L0:;aGge0DT"
  2763.     A$ = A$ + "MiHiZ1MeBNNRd9`jjHeYdYkNQbB\8AdUdPZ#IH;IJABoQnfKUJc`KFk2HQB="
  2764.     A$ = A$ + "HIkg]mP[ebjiFcQ^aD]Jn6[H=dBSY<CEj4H9c2dFOXMeX70\HUi1A0^#:4?\"
  2765.     A$ = A$ + "^#8]GY#=2CEhT0[mScLBAVE0;A4[=Md09_j\CDX_QD[?TlZ9NU^]gUP_IPUl"
  2766.     A$ = A$ + "BELR6D2UAlc5fBA#Qo^ja2iC>[ae9PV5LAD7\]YMYYLc`A=c25\bH5[Cof0;"
  2767.     A$ = A$ + "m]<Zn_;gJYhlV\W?#Ul^e?_?7j^=gRg\5c;;;7KZdmi;9QKDkkL\[BE\hk8b"
  2768.     A$ = A$ + "NPh2FTHXDcP9iQ82cS_c]G1\XAWHPERE5]PVIQ[=n4UG:Jf?4WV_2Hmd5>6L"
  2769.     A$ = A$ + "Kk]ETTEa7N_[2^K9gYTGS?jZ42bUcOjBMPV#c5;97kKeYIB:Nc_i:_:iK90F"
  2770.     A$ = A$ + ":F:J`#7\3B_;fZYEei:FDlSeA6^LTTejF4;>m7=T>P44`B5hTRiVZISDK2dD"
  2771.     A$ = A$ + "X3X[LV26k#>J2bkL]WERB4MaE\`:6h_`:U=3k<9mie=hJ?o073S3BXNC8;\i"
  2772.     A$ = A$ + "_J9`e[HaH;2HaNR^kZXdL33M:QJ=3]P;G>:RE4m[9_\EY>BE4B]SDMeVU^Wo"
  2773.     A$ = A$ + "o4MnSHG5Y#iBJF4DeT##Y>]0MHFO9[NfT4`Ra:UT0]M6\KPCgdRHZba]o5>b"
  2774.     A$ = A$ + "9^:j?0HmVgL0\NZXf`USe3P1YEl]iRHSXCdlTLJTNeaGhWV?fVQT9P7>1=S^"
  2775.     A$ = A$ + "`i;DN28O8PWnZDXINHkJ4;gV[OLdCh`Ub[7HkAIZQ5ZRdBhCEYXji]Bl#jYZ"
  2776.     A$ = A$ + "k]#Ge1eCgU6:[2L2>HOLM#Q:dj2BZmffVGg^X70WK#kJ5\L3GTlZ2aT2g0_Q"
  2777.     A$ = A$ + "0;F[YigGC_8=k6=j8`TCWUh0^=Y#FJ_OXLmYaljN:R<dH?WV\B?TaN^9X>QO"
  2778.     A$ = A$ + "AVmflnLA:M2BIf^?8?X8jd_6Y<UTR4:>DCP9`jYRbDf8kI=D`Fgl<NQAC[>Z"
  2779.     A$ = A$ + "8SdJjZ58f5Yk?i:mY9>e6;[a1#AkLa:FTT8AA9^M90F;4Hee:FKlE?JS75]R"
  2780.     A$ = A$ + "UFbF7VA0[bE_1Ol#M3U8iH[G`5RCPEM2\XnDm>0F;b_h1`Z[SK25eIUUf]`:"
  2781.     A$ = A$ + "3cN[6Ja=T;]FmLU3fj2=MQLG7E?::b;I;QWRIVQ72?GaZIQb>0FA=?`b8TI0"
  2782.     A$ = A$ + "In;B0;kIdWGgm=W>8GQDIXWL944Ug?0FlDV6H=_GM=`RmL?Vn=M^UZT<XZZ>"
  2783.     A$ = A$ + "_;Snln\6]3NF\RLPE^UHGJ1JDmD[7AefE0[UeKGN8`BTXPdOA0[Rj?BEkEbf"
  2784.     A$ = A$ + "C7[D2O=]XUjDak9c62P5YWe2o<DU`nM=`RS^ka;^[ReaQE>XN?GM?B[L8SU`"
  2785.     A$ = A$ + "#M=`ZOI[89R3IN_bWH5KAQMcX>YDfT2ZU[FRN34\ZX>abM;Y87f`#kEdKXZ0"
  2786.     A$ = A$ + "N1EMB8OR0D^a=dfXHRbS\CK\RSV:KoDA?hTRNYe\V?Pa?[BSllXe:fW^cWc["
  2787.     A$ = A$ + ";hGK_`:2jfhe>1F:3mPd;LCNAM>b1J;mJ8WeMDY=\XbljJF5SMi`0gEVSH0C"
  2788.     A$ = A$ + "NFnm#0\:JB0VgWcfY<A]cE=j;JjAYS?cQ??VWTRMUn[0Fd`;J\U>BRWX8<[\"
  2789.     A$ = A$ + "^Y_FD25^=in3N2\bTV8FiTK=YWYBdTGUoVFi#UZ2YNeFQ;ZnQdgi5=:]UIKN"
  2790.     A$ = A$ + "X>50I;m^U72\>>`_>e;1F=gENabZFfc[?I7j#FHa9h8CP5?oTZD5TT<JLA5A"
  2791.     A$ = A$ + "lfYa]bCkQ>A>1U#EfYOU1S7cfX3=<Y>F1=F1ISc[7nSg_2HQ7S2HUSbRnF0;"
  2792.     A$ = A$ + "<QmgB39VOmWOVIIlULQAQOSN_g9`Re\MWCo5kMak6HANiL2\6W0;i9IA[F6W"
  2793.     A$ = A$ + "gWM;6cMKJ:MY<kEja`B##W0;FDRc[[6Q6UhV<FeR6nC1\JJiAMdd73\hRfVV"
  2794.     A$ = A$ + "=gN2\FC1`2OoV:elS1FTQfHB0e:FlFc>73deTWW0l\]6ek]Mn#RVP[j=YbaR"
  2795.     A$ = A$ + "R5LWi^C>WbOURHeD<h_2HeUBd9V]055T_CbYR]#SJ1_CI[2PmW\M2\jb>:#^"
  2796.     A$ = A$ + "C#B7jBiDeTCdb=O[7kON\SaV:jkE0[VXVcb:=O#:malL4bI;PPo]2F[iRZE>"
  2797.     A$ = A$ + "GiPR01977[?S7#A=jZJ9<MgS0[BoQ[HIahccRA;LS1]REG=VDLc#0;YFc2HE"
  2798.     A$ = A$ + "=`bIM[9AT0;[\NZZk5_8=]RP71\Z\bkFfTccE\0_6h8[DD9kUXn=S=55F7_W"
  2799.     A$ = A$ + "AV6`ZXEK^SS9gobgJ5[W_`Ca\cLE>baR`;dCJTe2VG9W?1cFf:JALSni;LnI"
  2800.     A$ = A$ + "HOE[6H=8aN:iME39``D^k9[MbH<1F?OA6`3k=3E5T^lN>D[kE=H1]eVTC1fb"
  2801.     A$ = A$ + "A^VXSeb=a>e#bRJXbVJP4TA2NJ7n1U7:DcOkljBo\S_4^:W?CLOV0[]11FPC"
  2802.     A$ = A$ + "hgX2g#0`eOOYcTC#CgSk17amPJbR?F7odUj]gVaFV]ZQRHLCYfDT2W?2Z`;P"
  2803.     A$ = A$ + "5i1FO6[WZNZ9727U]NH#QVFLQ7lNXc1d4?TGWa:7WWj:#jF_REE3W`Rg>:#7"
  2804.     A$ = A$ + "A>hA\WJ`=0FL]B>D;lk<[?:j39McGgCa0HmCO^X=3=AP0HaZ`PeCFGLoEm:F"
  2805.     A$ = A$ + "DK?[>YbOjA\=3\dXSaZnX\kFgTl2?PA91=mLmHWhEDTYj<F0\`20k3M;VKNR"
  2806.     A$ = A$ + "9i^TSTEk1kkI>FSF4;YT<1F=aE1[f4LKZLCToU]T5LKVEKHnI6m#]QK:;DCD"
  2807.     A$ = A$ + "gDId1`R7MI=Qm>GGRGAKaYPA\mHJLPTTWTA;PGO75kia\8FKZi[Jf4WOVkJ8"
  2808.     A$ = A$ + "V95i4mWU^#H12AS^[][T\Ema8f9`:9?gAj]0hHAUCml4HYA#:5W\Sa^`IcQo"
  2809.     A$ = A$ + "5#nFJ:MDV6;IGOXRlkPZeGg8F3\<RA2ePTR3nVkJF\kR:V[]B03\nhSE\f>>"
  2810.     A$ = A$ + "9S:Flf>BXNh6haA_cIgbE\X3ZdSgPoh?>0FdCC`B59kj?78`QT=m^XV68d5="
  2811.     A$ = A$ + "EWB:7aZBF9c2DE<VTlC57DL;8IobQ;<60;4;7^2\M3H9S:g8k_2kn]jDQ5kj"
  2812.     A$ = A$ + "2VI6>KAc[;WG3NkZ`405KK2=60TK0bl\cY#C2oljjiXWU7;k2daL5S3m#Xe5"
  2813.     A$ = A$ + "nV:=OTbI\]ci[G5CF]P9H\^g<RCXDEWALnI>:_^eY6UcNeNI?Wm2GbaY\J7>"
  2814.     A$ = A$ + "hecUP^32\:PUnF91f_6N:V<maY9J>O6m0P5KE6:L5E=5D2]EZdg5OdDe^`9`"
  2815.     A$ = A$ + ":]ceZf9`JcS30GkjJP5KTA;B#8^IUj1`BMGSUXPFllJo]1FFjISHEOW?n7GH"
  2816.     A$ = A$ + "Qi[T<G[1`R\Q:c2\Z:=E`iNSH1]6P_e\1eQQ[HiJ68PU6mMaY2HKBG3\BlcY"
  2817.     A$ = A$ + "^MUYVUXMSAWXa:GeLGbWak0HUDYWJ][0FX>dj#8La=Bb_;lnIo10[D?LECa:"
  2818.     A$ = A$ + "BDgYQg0b0;Bm13\8JInI>?cNW683_79k?AmI8kSFYnhA_KJNOn[3HEhHGGN7"
  2819.     A$ = A$ + "0[KGV?S>Yd>Wo;l_e4`R6;3[HQV5lHl2_2HAIFIOcFBQ9Te6n6T\j;eMI:5g"
  2820.     A$ = A$ + "djQ3[nlD?T`OmO]L:NA3C`_#8oej?T\n>FkD80:ccjb]eF=c4PiJA64YaM4i"
  2821.     A$ = A$ + "ePDiRH9Oaf7G>f8UKMEEEgeDj#WQdS5=nC^\CMfN2:KaM;D>1`I2bENZYLb6"
  2822.     A$ = A$ + "b0]2CCPEDiM2\lYhhB=9n9gk:I7`UST9H>STKWTCNWg[:aQEKFhb:ZX>b3Rh"
  2823.     A$ = A$ + ";C;EAV5P>#c>^j1LT^3g3UiKGefNb0YS6NX9Zna0[\\Pm]2IoRTPQ6Q9>7[\"
  2824.     A$ = A$ + "TG3_hdlI4Um6>S\W0[R?:JeBe]V`hX=SCPeM9T]i#Y5\I:3\[]2;b6SdHA`5"
  2825.     A$ = A$ + "mGelORKFOb7O4Kgl<ElT1LOGSDAgF=jTIV=LUac=VH8S]4T0NdmD52PEB[B0"
  2826.     A$ = A$ + "mUW3;PF90[KETkZcHgXGk2:90[Qe0;96FMEOW#2aI[e9QHSH7bXR4`RJ1B>h"
  2827.     A$ = A$ + "mNa2m>^H;LdOIEjggRH5fA\8NU0;MdMJZLD\]dQZ_HCfa0;5KEWkcDES_2:o"
  2828.     A$ = A$ + "L[9F>2fKZie[8cV_<o<WU1kDYW5NlAR>=Ha0[4e\:k4;8M7FKPD4;;RENQ<;"
  2829.     A$ = A$ + "Zh38nHPEgnWkdhLRH[bd<PZP8c`4_1Ha^AJNT4ARU`n3hFQObWL0\^KXiKFl"
  2830.     A$ = A$ + "6U[UC:`Ce=H9=I?6m?6?oN7g\^oWMLQ_[50;No6>eDYV>Y`VGbRbN7>>Q1F:"
  2831.     A$ = A$ + "fBHK5=?T6lJTR17IAcX0GhQ4IA>c^RUbf0jL>H]BUe`OK497JJ6e2OGQ^D?<"
  2832.     A$ = A$ + "Y9oI>ci6PmeEEo2ToA;a`^#c_^jUNb:ZbnH6[FTe];n:PUlZl^bNg9FdK6Hi"
  2833.     A$ = A$ + "HEM9:fDT`80d[V^;LAFXNCMJ#l^bUH;H5;iNnJQcSR=ELdlHLDlE:J>mJ<bM"
  2834.     A$ = A$ + "1K>CWaReXXUSScTh1H<UTE>Iin9kO]CPUS=G<ko<`B3O8QJE>Pm;C3B<cf[N"
  2835.     A$ = A$ + "c=9BKV0HiYX0iT0nn1FVXYG<4O>goM?nma5^Z]2Cb7i]X`EL_`DNnJB4QG3b"
  2836.     A$ = A$ + "ec^2HYJhD55B6B=cTHeP?n;\N[ZRTD:IX[N=1F0CYBZC]?E2m8G\5jXZ6X:m"
  2837.     A$ = A$ + "FL3kHn8PEG_KVjB\[X;=Rlh8`RSm9CCIAlbN<O0c\=9c4YYaBWOVfiA8cV\B"
  2838.     A$ = A$ + "=<iR=e6aBo4DVSRLC3NYaLn5M4Uo=]8mK85TP[=_?[YUYJe:S_FhLmKTm:e`"
  2839.     A$ = A$ + "WJkeC3OL6;kU[nFC:T:KkYAUO`m2R_\El<fOklID>5b[TCbRI;CP5g]F\\=7"
  2840.     A$ = A$ + "3Z3MG^9`b_QiM<He\HBa<7;EeW6KZkE0[e73\dH^<1F6E5InCYG09dSE2F?G"
  2841.     A$ = A$ + "aZRF5Z9?dmmY6=R99[<n:P5^C\N2\>N3PD:#0[=U0>NP>BY>]D\Ja3Q=gJJK"
  2842.     A$ = A$ + "mJPUJJ4ZSe1f#\WW0;i=ahC;FDWdn5kZ_N5`BeKP\a3R6Ian4SFPViD0?ZUD"
  2843.     A$ = A$ + "ZVelm<fi4iXg3eFQEZ`[NR2inHZ[^l3bje0;^N1G9SIX9f_C7Y7[NddfhEE?"
  2844.     A$ = A$ + "DCF?_R56\#JQS\gnIK1Y4HU[^]:RL9EU2n<FeX9FhdKEOXa0_j6<beHA[2Gm"
  2845.     A$ = A$ + "\8CPeJ0\feQV<=QkF`XhJ[`E;[LNG:CP5N6GW[H9dPd#B];Oe9BZ2S`72LM5"
  2846.     A$ = A$ + "Ll=U1al=HnkR;fLl`M_i1eB>_7_kZ:\:enX[Z9[Hg^LY9``^LKWQ5j1B`X<c"
  2847.     A$ = A$ + "]dlVQMj1?XW[DR1\Y9nC8NL<TTA_?2^W3<I2j[2kN9TjV9h88#8c]ICmG8GR"
  2848.     A$ = A$ + "n7<lHU_KafJmHEg[GaZe<OLEQ6fLj5hSYM8l\MlUP^>CP5WIS^J0=5U794#e"
  2849.     A$ = A$ + "R86^8cFaEQ=MmFQl#:Fc]lH2Qg[dD4B`JGcILC6I::PgL[#beRZKY3GB50;="
  2850.     A$ = A$ + "IafJ9YGNW:W5850[On1`R[NkIXPTVQY0gTTn9P55i33\RC5ncoiLk\P=A1EP"
  2851.     A$ = A$ + "AZ1E9HC]e:K#\Hj9GmF6UXSe^J4>XOaS96;oEa7j>AfZbdb?n`#bIhH?>VHA"
  2852.     A$ = A$ + ":jg6L9<cHN?N[RORD_K6CPU:#:RU??:9A<WSOa[\h\hTa3cFH\Bb00;NdmXl"
  2853.     A$ = A$ + ":8FE5dA`Y1::?nIBg3H?0kl`2kP8:YflNeE0;eT\6;0gLnU]XdJ5AAe\=R=5"
  2854.     A$ = A$ + "nA7G^B5E80FLZNl8QY3KDVeaROO5MYh>NEf5j:nKUHJMY9`B8N^EZ>E8_^ni"
  2855.     A$ = A$ + "#>5SYcAJl2Hedh\APeR0FGG7;Nc2bajN0]RV^anVaEIA1EJAbQ<W3l5nci7J"
  2856.     A$ = A$ + "\4S5W=B=i>ebB=]UHMNfWHLd[JGl]#N6<_A[Ne#PUOTZaR^[^YSQ5QX3UFNS"
  2857.     A$ = A$ + "Z1USm8TBSJ5dA^jKKeF8BbZDhR7;RT639i7m[n<c6:BCHRBPLSO2gM_2kNMc"
  2858.     A$ = A$ + "d=Zb7ICh^??0FJ4Jagj^dQ0GfcBQFf;KWhU=QZQna>o<[9KS;G8Q:PZTKfeT"
  2859.     A$ = A$ + "QEFZh9YR\m^LNM3mJ30[ZVn;Nb<LEUkFb:FDT3fkbW7abC##=;#;7VTb;0am"
  2860.     A$ = A$ + "VS4iDZ8PXRKMK>RE?7l4[RZQ8[kBn?Yc[RLVPSGH#d_?ocOb?okL7H2iEc0#"
  2861.     A$ = A$ + "\SXD\j5F3HT:Dh`ZDQ?d5nkL7iF7eQR^j:[TA?niT2ZQT51MZ#?S^cH5[48K"
  2862.     A$ = A$ + "eYcQ[NGGXkW:968;iZb0;MdM6kHoB[mAK#OHbiaNeJ;TD<1BDOmOR[]0TkFK"
  2863.     A$ = A$ + "nIF:0XX=SL]G<F4hU[^o4a_;YKGbnDoUc[[N30OFGa2Db#k=`2Eo_3^F3YR4"
  2864.     A$ = A$ + "U?KCB5[SE\8f:_V0F\GWB\61ekJiJX\oRG9WOVUDmD9`JZ6gRF0#eKiUG^0F"
  2865.     A$ = A$ + "fi5=_?SR<=bTIcNi#fl6GEZ\UO4;aP3AD]8feRl\gZLb#VNEBdKB3A1WImH;"
  2866.     A$ = A$ + "lLDZR3Pe7OLcZ]mFoh>GP<e`7Olblf`6CO^55K4?TfTf4Zm4O;PUX_TZ9hj`"
  2867.     A$ = A$ + "eVH6k`7:S7JKH3F#U1[VV=igimeib]>F2\^dkG2P5?OH0\P:IXQF4[JD`:Kk"
  2868.     A$ = A$ + "WOV[D`7XdiQnJc:Tc5Y_<jB:8IJT;1`ZZE:I\\NGj4_CPEY>c50KkNQP::UM"
  2869.     A$ = A$ + "`16FkA\\BLZ9Pj3GX1`=OO=eF3c39Lgb8fVUY8F`mHK?GdnU5GnNa?RY#`?_"
  2870.     A$ = A$ + "?SjfPF?3hC0\:E1O=EEkDe^4W]cgNkicXF\RUhFJX8Q=NBDY\U9V3?7C\[KY"
  2871.     A$ = A$ + "ComgAafm<0\IimSFiACD=R\4#DlDEb[7]7IlnlV;7I4;H5=Yc[AO[DNcICOn"
  2872.     A$ = A$ + "ZVQ66KomU0SXUS`D#`c11W0W[EBd?CZP]WT33Cf0[]g__mATE2Lhc>bkWC3m"
  2873.     A$ = A$ + "#KKRK]mFb^B?n_G8^AafNo<XbQFaBBlh5X1G\FN=;_gHc>:V65:EUA[Ej__9"
  2874.     A$ = A$ + "k>M[2jDWDigL_9YD>`]17Gh]a=LJlnI\D6]E93hGWlV;939TUHNT>inBUOUM"
  2875.     A$ = A$ + "\UgGMQB^<#F2ZYmV2f]>U>_Z;\5_]0HeOOK0dLDG[F;CQ6FKo3Wd31k2Z\X?"
  2876.     A$ = A$ + "P;g6EN?I;3VhH1\<NRJ\1nXDA5mIE\:Qbn50[]M93M>o0FjHTd3kI\UjiQLE"
  2877.     A$ = A$ + "0NKFJgPN0SWh70WB=>N\1FK^C>Z:nX^SZnZMF<Jm5FMLQYTXViAjc\YJ?dU`"
  2878.     A$ = A$ + "Na>i3FjA\m9`RBKFOC=16fKok0He<=[TOZ:G\70;DY^[0F7alAK=Bhh];ZGS"
  2879.     A$ = A$ + "?0HY5SmWIcCJMfC=3eBG9ehcXb^CPeN0\4K>D\5Zng<Y6jd>]MFaQ^[LGB3L"
  2880.     A$ = A$ + "W0FRD96H5FRBc<J?KQF[N2\JEC:;^>2GWA_lg2GX0GLAkQ:L<0SHB5YOBBhU"
  2881.     A$ = A$ + "O4`:oF0;e872\dbW2HUUIN[JMIPUl]QcD[XHY\cNnSZ>El#kD\2e:Co`?PK:"
  2882.     A$ = A$ + "o8E9HE7E05EeP4m2HilalGQ?j5Zi?6H9MbVVBZld8:Q^KTY0LYoU5OHl]1]G"
  2883.     A$ = A$ + "Tibklc;PODCoF;kFhQD6M\ZbJP1SiojA0[=9_cZBbL#1_0ERIob8>E8<TgKH"
  2884.     A$ = A$ + "_?X0I^M=`Zd]0B^917ED`4oSAKgSEh5X2YS]eei3H=>^QdZ;PEM4LEg9_CR["
  2885.     A$ = A$ + "TXU]XAee0;Ak;f87=mO^_eRPAB:dZT;0=ZnRUCf=0mVVl6MI>MG:IGW:7imH"
  2886.     A$ = A$ + "Gk>[=D?1FZ==DWKHI8h#ZTd\JG4Yk?0FI:oiYJ>Dh11\NeHfX#]#36eZ;LQ3"
  2887.     A$ = A$ + "b]N;RJX0YlYme0[GMlOBL2D;WJ6>8G^P5nS5<DD>G30#>bajE3?hOHHDg\e7"
  2888.     A$ = A$ + "EYjLGiQf`3N8\0MYobTg1[:fGcYL]8eNIC:fXHf``3CQfGQO7ZI[5=:fkJB\"
  2889.     A$ = A$ + "dV0[>6f7B?_GOQOLdhR#aA\:FAe_:f`JX:<Qo9`RLPID^ha;lb^b\\=gB2fL"
  2890.     A$ = A$ + "6EERRL#3^k5;TkD1AeT#EEYgIkFmmik4iLd<MB[>9f9Tc79MCJae1\l<765_"
  2891.     A$ = A$ + "U4REiFc33Z7ndm?\4\jJ0;PUCAK2\^;9PUbUjFBe_Z8g;I15KLNe0;96PC6T"
  2892.     A$ = A$ + "Nl0N`L\\4NbIRUdnSl?=5NNRU8_ZYg0bloh2OlDP;cEZ[QPT9^V?loTK6joT"
  2893.     A$ = A$ + "ZMU<5K0\hUGBeHLn4HLmZF<D5oH\M]kZRE0[Z0FS3PUJ;\`GKJn5GFKFKZ5g"
  2894.     A$ = A$ + "<hhOmil1\<m0YFRlm8Ol5fZDfiBFk_KL[a<`RaJZiTa#N<DOP#M#<iJjU;ZI"
  2895.     A$ = A$ + "QMnZ2g>W[Hmil1\0FbE2\j`H]Bef=>CTnH9QEi8im]hn\TBBE_KflWj4HE4e"
  2896.     A$ = A$ + "ee15Y[h`3]YE\#\eRMd[dJSkcU4OdBJ23Qc2DEe79OiY`g^hHeImdNO9PIZJ"
  2897.     A$ = A$ + ":3Y?TEiE22Bj9`:=?EhWm:eV`SEa_#F?Vm<5[jN2^Mad7haga^hZNC8h?k8F"
  2898.     A$ = A$ + "><ZF3a>ihZnk<6BkegWjY=Fh[VVaV]P8_53XW:C6:4FFiI^^ZAA67K3lG_[H"
  2899.     A$ = A$ + "9`ZTUn3M4eNc6_3W8[Fbl6ZK[FaF6WRU]6mH_EM09>5#HGeMZ2[Km#9N7XSZ"
  2900.     A$ = A$ + "iR5\XQRm5fD4kP`;iR<W#J[CN06AYeP0SQgC#:2ZPW<fGfm6DNb^HSOKf22h"
  2901.     A$ = A$ + "MHbU2[M;\>EUhnl;YVAk3kY2:D9ON9nR<[REC;c9MQKCUFlmikZbljaIZIQe"
  2902.     A$ = A$ + "_=Y4fH_[ICoUPniJ0:G=daV5Q[dn]DXjhITI9Xa<>VEb?^SRZEBgN5`B7;CF"
  2903.     A$ = A$ + "IJATOGUH^;2BGLmQO0`j=2H=>1FFm2WbVh#RnQdg:jo0ZQj:F>1=MVaMI`::"
  2904.     A$ = A$ + "JUlPWQ\8P5n=OTjC[RZ2Y26N4k[gO0`:?Xm`e]F4eH5X4S;4IhiiAfD\_XAW"
  2905.     A$ = A$ + "n:ka=W<JVO>3PEiQ0;^le8n<70[6C9TL]I[iI^hH5dVd\71\fkfQgH\`<EIe"
  2906.     A$ = A$ + "UlXag8=^PV=mk0HQHAQN]T=jciSl[8`R:]]74S0HU9HBaN7Gn:Kk#PZ2VKb_"
  2907.     A$ = A$ + "VM\<[;JS^3YXjEFPB4Kj:PEmF:]VJd;B6He53>bR3=CPeaFQ7_mCAl3<;QL8"
  2908.     A$ = A$ + "9C94V]VWY`6NfHXbcFf5_k5o<NcBmN6;cJmdV2ag#eNJHI2EWkQJH?kE8RmE"
  2909.     A$ = A$ + "fM`>N>QW6#gYTD2X1FU5WU0[:N2QMP?bPOCa2VD_]EkF`ABMG:KeZ#GeN;n6"
  2910.     A$ = A$ + "Bo>f4`j8fGD#=ifKJDiB1eWiYC5Kfi:LPiB;EYk<FD#n<mB8iX::;2]m>21C"
  2911.     A$ = A$ + "bWBelIR4gM>[CP5_G5bR27?;f5kVDFO]<IA4kVc>?E7=DN05kc]DbFYAhD30"
  2912.     A$ = A$ + "VOW?7;3ZA:2KW6[jXWA[L5;NR4j0IBbYRa4<[l3ICk5;FGRHOn2cOB0[l]gl"
  2913.     A$ = A$ + "N;UT:N5kBdafPhESTTjVZbTCanc4`R30fn^1FK>SKbeZ9`RWdEV_RfJ`0;]V"
  2914.     A$ = A$ + "Ab6`EO5Z`g#bKP<l2eIh3XAnM0\fPZaPTP3PEc0[fe0;?OX7[_L=`Zd5ma69"
  2915.     A$ = A$ + "Y>Zmg=`RMXi:PES3<BC4491LbFalKD0;EVT[1F37k[j6HE1`2EE1M1Z`Ib_9"
  2916.     A$ = A$ + "iK0LYhb>[f`P6a79Wh9`:cFa?1FNEj72\hbj\hPnkkm42#UX:7dOe3iIAYfh"
  2917.     A$ = A$ + "6cXYE]H^gL2\BB^U?1Fjm:NlAaMd>K2If:0Bj]1F70WK^IAn31k]QhW=1FD2"
  2918.     A$ = A$ + "hZ<=oCPe7nn^Ol#mlQ`I:jT^;MWE[HYlI1X#cnb1`jmoWm[o\SH=On#ZbZIM"
  2919.     A$ = A$ + "[I;=\Z5PbFL5]<:FGTRH;L>hm5oRhlEcZV>h0WXDK^baK^AIVNNMEUjUWJ<B"
  2920.     A$ = A$ + "h5L_RU4XK>ohNl_jFhg>SU0JeJneQFdLc0[ATReagLL68KTBcH=`270T_Ca2"
  2921.     A$ = A$ + "UYGg#GWY:cQAQVMeGm`Y<_Ge4Ck]TmXF662B;KS:WMlR?E8bOJ;RUY6_RDUK"
  2922.     A$ = A$ + "a#j40;Ab>]B[8V=5[Wckc]RNdSE7[BXca9g;g:I8:;jk:QnF0[SPS[[1FT4b"
  2923.     A$ = A$ + "gBC48IC^`EbQ[H]bieOa58m8fOmCn;oCNomMe3J0\6U\nOMAm5^He\Gm9=9;"
  2924.     A$ = A$ + "4hhggc^kOgGlGN4K#>YUT:g0DCdRBaBWIKOc^mFAFfjagT8f#ZNd9bjN4ZeY"
  2925.     A$ = A$ + "J:\MBhKha;gkj\M7[<]5aZN;:B^Co;ZCK;1`?\hGVTb#WP^I56]7a^CaEJdI"
  2926.     A$ = A$ + "K^fDWZg3E]:0FK]UKdfFdZ<SH]`FbJRXQlN#9^WI^?>fDg<Km2iMXJKilNUg"
  2927.     A$ = A$ + "5cCGM?lZARBIgS[=k0J\Vfh^#4;YD^?QDi1[HYldc3aKVV4Z0jJ<A\<mnPnU"
  2928.     A$ = A$ + "BE#hKKgBgK2Hbi=:8h<LD\SH[j8fZ[PgnNgbf5A]n>i>#01l]JZj`9Fm64kG"
  2929.     A$ = A$ + "lT_jOo7RlR=_TA5N^HZ>P27RUi]8VPY8Sk:cOO?o7lOlGnE7ajlde:S]IU3g"
  2930.     A$ = A$ + "VB4jnV;MY:X>hiJ4[FHbU_N3SdLVUNWB0<GaRM[C0[^0FA\XK>LV]i3f5JlN"
  2931.     A$ = A$ + "HcLB6R^hMKcF_2jI30FA\8#Ya370;^o_6=9^PU1FK#D#4`RW_=R]7Y<:k2E4"
  2932.     A$ = A$ + "Ug0[2Tm:Xi=Gff=`R:hL4Ka6YZW1fA;:ZL#a>YSkFa247ARHCBc]k6=IE0Y9"
  2933.     A$ = A$ + "^9_#^bK2U>X0R3b_<_?CNCTDkKi1C9;U;X\DL5[CZfbYM5bNdli;[AEf0[K^"
  2934.     A$ = A$ + "U;U:aUa_OXbMHe<QZ59RmGnTOcoUo=o3n^[SOoUWn\Wm\kNf_gaook?^ULgM"
  2935.     A$ = A$ + "LP#7MY4hIFfl2kJKk^k^k?h7lOhodOg_AankmPHiOn0UPV]cQ5:TX79><OSa"
  2936.     A$ = A$ + "BkKk87MaM6nb58^c^Y]`gH\l?gZ74e_Ld4<cdYaU77kSnnRHS>?D2?^Q0;l^"
  2937.     A$ = A$ + "l_S[kagg49HMFc#2K8V6_`AmKnkKIPkcR3JfZeT4ObEfn6S=3KS329<fhOMM"
  2938.     A$ = A$ + "IB8>f5o_iHQY]OgXcCmBPUl=m^0Fo^^^E#EB<bKTU1DU=8^3[d]4angmToZO"
  2939.     A$ = A$ + "cWnWn_lOlOdOd?hkoQOh7n7o7omnNO_?lOboLlcoDmcgo7LlcOba?hOikSO>"
  2940.     A$ = A$ + "ncnno[o9oj?m[n[nfHofHoJRm[NbGn5obOioeoKojOeomOea?oeoo`?ofojO"
  2941.     A$ = A$ + "eoSOmoW_h;n5o]Oig6kg6kGC\o]O;`jKSmoO4k1`j;oRodG\NgM_NWbG#o?l"
  2942.     A$ = A$ + "Odf[Oe[N=ef_GnbGN7o1JKfh_ONUCZdhEgojo5OfGnol[nb8fG`^bC=lkU_h"
  2943.     A$ = A$ + "5_h3`YgOe;?nG?n5XJ:^en0E?nk_on75;h7QlcI40HH7B<inS`1aHcY?X5Jj"
  2944.     A$ = A$ + "g;OlemEBK67om7K7G^GbQ3lh:nZk_3oNo0;0RLFQ>n:m`HO99>3kimA8_V9_"
  2945.     A$ = A$ + "ojGojGmRGLgm_P]8Fl]m8fgjjnBbfJbAWGmZGmbBm?\SO9_2O8N]VcY;\i[m"
  2946.     A$ = A$ + "fmgoZ76km:7KTci;_o^G#:MP?^_0OXQ^nm1B:B?>fik:fRJEOVO3a_Zk_coD"
  2947.     A$ = A$ + "[Nh`#gNb_emiWWSn<^`WXXd7>bGlRfOHohf5nLm17Gjk_o^7MMIMBH15`OOn"
  2948.     A$ = A$ + "K:2m^?8>U:Y_L4kaFQofo\G^\l\nMkBJYCi`RT9kGX>0RB8`>G0o2M#acneo"
  2949.     A$ = A$ + "_nOOLQo]oI_RaZCf`JB#E#?ZQ]h^5OlWE_P`a9^ganlSHCg1nAd<oFd9N5YL"
  2950.     A$ = A$ + "UAnT8IS2a5N[oB7k[?R]`4^aA=m`GMIGDeGc[N^IKnZCgVO<o<S[knMJ`2:Z"
  2951.     A$ = A$ + "IU3e?7:VGUR62WUKmDERC2NM\mkh#1YkBLRCbSCQ<E:XeVmAUBNMlZ[R]NWE"
  2952.     A$ = A$ + "kH=1nR\\Ikf4TGGf=Di8TFN#\;g9;OFRHSU6Be\`\[SQJVME2Tnm?8FB<NYZ"
  2953.     A$ = A$ + "3Bah;Bk7]8#=l<MPF9MlenjHcgE4`R5b:9]eBEn_Af=XF#]4Rg`M7anE?i_i"
  2954.     A$ = A$ + "?o>:E#GX;=]351E=0ID[^>F#b^ZD6F2PeHo^koROaOcOcOn[X4_XB6F5`b3="
  2955.     A$ = A$ + "g30FBlRg9Od:I7kM\HcX9EK5e_JO<>J`XVn;THBklEl3<dN;^^XN1eQ;#0Eh"
  2956.     A$ = A$ + "Q]><<:NAKRBB=GKV=Ab\]hj:kD]1=d<]B2FYRo_A[<[8PEC0[ZoE4a>Tf1D8"
  2957.     A$ = A$ + "ICiBT4H9M;QCh8^gMajgLSjSoie]AifWloTRKAX_[joT7PC3\HOG6A\J8N4`"
  2958.     A$ = A$ + "B4\M2\\G0DUIR9Ac252?=SEMacUWWDGWUZ#_gT43=7fTk8`JI6[i=QHX]\kg"
  2959.     A$ = A$ + "RESYJEZl<YP?hk^j5da93?RmGlT_l5gagl^#[KL\3PU6d4Z]O\nH0\#Ii#mO"
  2960.     A$ = A$ + "hHo`]kNfoZ?m;A\hmlQjKljdT_J]P60fRUJBagi0hWSHA;hFTRbba=eDZ_`9"
  2961.     A$ = A$ + ">QMgDbg]HK?W2\flj^AeBVZQ]Z66P?kBD#j5YC6LX7H[0aWSm8FBe7NQZ9^b"
  2962.     A$ = A$ + "Q;ifP2>CQm5^#A`#f31:RJ4[X2TM<FegNFe\AfC2>gPlbNXlThaliggV:T#a"
  2963.     A$ = A$ + "Ba;[eIODVMmS<YTcGJ8NFc[k#feWMjjYKU#ED#ec_KnWIEK<UVOOM=aCZA>4"
  2964.     A$ = A$ + "HY91CEk<DTU^5GDl8?Rejb5UQ;M;aCJ4WFXZ=SPXVkF<0?RmCObOaO_W=1FH"
  2965.     A$ = A$ + "CQeU##m;2HYjdFjk1MSA]>6gMggiCo;#\0HeEYglL<M5`:<#0bW?DAl6DTY8"
  2966.     A$ = A$ + "FHkbh9kfE0;]50e^D3\b6HAkWkljR?JU=FV<:=mDaIAA_]d0R2T>N4`baB7c"
  2967.     A$ = A$ + "AZOmBaB5i#n9m6Y0h0FA8;?k9`:RMKH>1AP5YCQ0Fj;0G6[cbgaEX1[0>onJ"
  2968.     A$ = A$ + "9\df[^X<[VoS#J[JF?^;B_<jA\jS[Y?\GTS;`8\JeFPi31FA\5I?LR]mDB:8"
  2969.     A$ = A$ + "a2YGF50;=X_=SCFRHcCM<b:IDfl=40;F_gTlce9bBanY?i7odWaUXl;o3:OS"
  2970.     A$ = A$ + "D`3I7cjQClb5geSNLch8hocohO<L4nM^IRfSGEig>PCgFLa#eiFN[;JRE4;7"
  2971.     A$ = A$ + "KDE7Jdh?kX<\EQE2\Fm:FZ?;LSW8Fe8V=YaA]=YLbBZGfX7Y?elFJdJl3a<F"
  2972.     A$ = A$ + "e60Bd?3\VjG:K5na^n7GM8SnBLAH1DM\B^^4EE5IJY`]<8AjY<:3RRLib>DI"
  2973.     A$ = A$ + "9YNEA\F`STVWXkE3g[e^<Q?93KLW6QojWg[4S2Di^kZjl^ia1`RgXZFieH1F"
  2974.     A$ = A$ + "S[[WX<fZ81\L[jCIk7U5Y2EBA?5hPaV2DU6L#YDhjg4iDHXDUF<^3PeGl50H"
  2975.     A$ = A$ + "AYaJGeMV2#KgbVLG9#XE\T1VRA#5?TA`j1l^hD\d_QQl<C>;VRQ3Q6ZkNiaI"
  2976.     A$ = A$ + "Y`abgWKVcVE=7El=CmZoao[5=Mh3i7QXoNA\B<GTPNMTLEV4TRi>aaK0_KWT"
  2977.     A$ = A$ + "iJA=MPYDO6[n4SF#\Ze[T28aibV3U14mfUKid=8cchlk[1FngYY\`aWFd]C<"
  2978.     A$ = A$ + "M^dDNXWGMI8[>M6;mHTVe<ia8dBc^^3J83DJSLh8GSckERcB>;<K8CF9C;CC"
  2979.     A$ = A$ + ";QZGCH_>cH=`Bm0RiKaeWlDB81OJBOA]GL4kG;`b7FP4KYU279W;=>1F<KMa"
  2980.     A$ = A$ + "OkS=WZNbj6aLKVH__m:F8;N\LbA`_i7[Ekd:F#kjlm::2;\W>f7U<Ok#_l`:"
  2981.     A$ = A$ + "9A\Do3\>51:BY9fXWU=E<D;j1`R;T8nj5a^[iFfMQ1Jn2cEFd[^GFGANODFR"
  2982.     A$ = A$ + "hDQ#AN8RU9L70;_fJCZIXjm7U>LJ>bJ3[=^bQo<g]kYCZ5jMk#bkG^XC6ZE\"
  2983.     A$ = A$ + "`[FG6U0HYH[eRcLOD;bP;:caZ=d^mRdX1AfP[_^DEWZQ9jT5G6\B7C:S[GZ["
  2984.     A$ = A$ + "f1V>_^P?FBH#DR[XcRJ[`T=j9fOB=`Xe9`j=?2HU]BMGe:Fe8;_T\8j8A>dF"
  2985.     A$ = A$ + "W_cKNcCdKQKBO\f`lVcWajN44c8c]?I:>8143\n3n4_ePbSV62=co]W:XK`G"
  2986.     A$ = A$ + "jKa_SRb_N#O540;5;IRCHW4DTKiP8I4:2SNZ>C_bFnnljREHehFM07IFNa9l"
  2987.     A$ = A$ + "7\Am`I>a0Pe4`2OFfWGG]Q^dP3NDKYgLfUEKbGGJ;g\:A>3<QMNM7fQN0=TE"
  2988.     A$ = A$ + "AEbYED^1F^2:A^_VNYCoh\Q1`Ba^;Y?BW#YXm4]4=d\h9_8i<B:cPba:n<G8"
  2989.     A$ = A$ + "=n;b4b5#`M7TDhdbEGQbeQV9nicXe5?3\C9k3gP:fJRe2PT<hhE:983A\Z#6"
  2990.     A$ = A$ + "dbDlTd:Y7Z8FbCJf`][BVL39MMoTWl3a3H]V56IY=j29Bg8i81BX^DXc0HQ\"
  2991.     A$ = A$ + "jA`o`O80FbUR^6HEYeLMYKi1LW:TMW9919H?5aJJ8;P5M40^MOFG?XC8DJZi"
  2992.     A$ = A$ + "1]HaahFBnjf71`ZUQk:e>1FDk:=`BSX?iOeiWImh#0;:aSJ9=1\VFBcb=Rf^"
  2993.     A$ = A$ + "XTJS8fMZ9>H1W^V3J<BdhV2:E1#kGHSggUPccGXccHi<`8YPb^DHgVF;9KfF"
  2994.     A$ = A$ + "?[Ad:5TGXeRH1[#1=M;=?SFb6W262N2\PnfYU#>_?;6TJkIB0[^dlM\Re2Ee"
  2995.     A$ = A$ + "XAF062\^M9Rm]0F;LRHhbL?6HUih0UFV0[NhLmGfTT7ZZlaUKjTGGDG=0[d?"
  2996.     A$ = A$ + "NTQ:hP4Q_o=h2SiKY;]==eSQVXY]2eidhQ]JfUNK[X>F>FYAkJ4<0]09;Mi^"
  2997.     A$ = A$ + "1dBJl;SU`o7h6TA\TXOJZ^Jim;ZLU=A2d=IWVT;;3^AJQiL7a:b79M9?;?\D"
  2998.     A$ = A$ + "3OSLW5Kf8MBd??WQcHgMmi:n3iPZMPVQb=9MPdaC0c`f9AeAbk>FKoSI9TY<"
  2999.     A$ = A$ + "aA:N[]^mcS\T[O`KCi>Uc__jTN5;0RZ\0f4`T6:DSCFFD5<9`bOO5QQi9EbJ"
  3000.     A$ = A$ + "VEIFRZ04E:TAIZ<XEIF>L5;5[l>A`T_\f453>5g1]BSNCBkW\HeTCV3an60\"
  3001.     A$ = A$ + "2L5VBEBR3cC?RChV\Rok=3\`JI?2HE?1F#>;gH54fdlT:G_XHaa^o0PE;K];"
  3002.     A$ = A$ + "2TSceBAKC8MZ]`BHBVQ9b?M5`JCl2mh]V;CPUCYWc`9nj;Pe<iMOSVbISX_k"
  3003.     A$ = A$ + "9`RLkb0[b4HIcO^O2\d1D49EN4`2OA^`98PT52f`8N8<S]GW>8#A46L8RHRo"
  3004.     A$ = A$ + "RD:RA5V4`bR1aE0[Te;dRbI>V41c<_9`Z=UloiggR5\f9`:ag>dT6FC\l53k"
  3005.     A$ = A$ + "eiEiCS?4HU?Efd[0FCa5GUT#0[d9`:9ABF^L2mVB=E22I]:MjU:A4c\FS<]_"
  3006.     A$ = A$ + "`9aZm#h_4JHUR;TBKKCdoVbYReDo0HU2=:UW5kR6QO=Y8QVgZQhL49[M^ZCb"
  3007.     A$ = A$ + "[_XR1=GabW24_>XQMA25RZEblc\TG`SCOYgd7VRn3kGZA7TT6TRG[hFQnk[N"
  3008.     A$ = A$ + "m8nLc2h_VTi1YN3]5Sa::mk0U28RM_KO=5U[Z;Y`Pc9:nB#aOB2X8>UIe>6A"
  3009.     A$ = A$ + "4K8R]1ij:CgnZfT9Hk4^Z5=oZW0[4=k2968M_2`<0al_H1RK^9Z`;VgWeGk\"
  3010.     A$ = A$ + "]CeI\VaXFGAT#BkD\l\29mhQIV5ENo:PU4;<BmJ]<CGgM`#FYF5H;R0<#70["
  3011.     A$ = A$ + "eh6mf^J3BAR]bFDJRE=4d:SS=kD?bJKF?O0GLQ8J3AhN9a6L4SH1^iG\^JX;"
  3012.     A$ = A$ + "FNHNM3[RSI5][3TYQ]QWB=igUl<=b2W^_n#P5ZT5>je^:QW4ckQ<[EloIIFQ"
  3013.     A$ = A$ + "5?I<on:f;gmdE?41kIIajl47`>4HO^T<DPWCA\3g^FM><=Pi^dT\acL#L6L1"
  3014.     A$ = A$ + "XB8NR[CPUL]ZRI?]eCZ>mPNjOfFNY3G2;C33Gg[lTTRdEG5`RW8R3i<PKSVJ"
  3015.     A$ = A$ + "k=jYBU68n<FZnf9YjfI1\ZEm=#ZHTjCI8:^TBl[2H]\\;8dUMGHUAH#kdf6d"
  3016.     A$ = A$ + ">kig2HmRS;l2=ZlnJLK`0[Q0FM?]NS]nS0F:F9dDRU^MZ=E5>O`ULia0[^7W"
  3017.     A$ = A$ + "j;A\Lm_X9`K6HemL[151YgUEV[aj03SkU[^^2HEB5GNDJJ2Fci<`2;[GCI;2"
  3018.     A$ = A$ + "VA\j\a4HeL^n#2B:=9\ck=YRMdBQI1D8`bGg^DKQ#5#\o49EGEoAR8hcI?\?"
  3019.     A$ = A$ + "_??1FA=_TNBaf1=1FM_1_Bh>M6[FaJiJP5VAC1\F:WEn_DV0;5;9O_eQD9k]"
  3020.     A$ = A$ + "\fXQ[<af4Hm_a5K#aBPU4bJ8nRL]IUhRmW6<Y2CEdW3_;;0nFjIa=JJ;Te#2"
  3021.     A$ = A$ + "#Taj\1Pe#CBQJD;EV]SEFPEI4abAUf5TQRk0M>GI03jmaVgi`Jea1><R]dlT"
  3022.     A$ = A$ + "0RDI_LQMhKS72PRV0NdD;N[iS5#`XnMInI^[MPH_ZMefXQB`9A;DCVeSL\ZC"
  3023.     A$ = A$ + "W4:RMHi=agA6JP9Rlbh7W>eK6d0d3h5O47a:kK>[jP64f^?EKCEcMF03_2ba"
  3024.     A$ = A$ + "=PhN5MX^RT_8ZaRJN>8]3HZIQT8Jkh37CcaV8;f;CK6OjXURH#LZ8cZ533;h"
  3025.     A$ = A$ + "F;ckc059LJAfLY]bWRLC:<I\LljE17FHR[?30[OdbRZS9Md6dADicaMKkYe["
  3026.     A$ = A$ + "\W1nAG_GSPoAo82\f\XHYcXei#g50;;\#Blda3U\1F8FT4]DK4n42?b6=ObY"
  3027.     A$ = A$ + "Fg:h;ePjQ:TV_AcHMQehiYf8m7f5`B[HA9^\jJSRE\N]0FlclHCePQMm<fAU"
  3028.     A$ = A$ + "4WA3JkE0;F#0<en>f0H1;nD_?:aaDD\B5]K#e<_cf_60;4k^UaZFh6[Zci\D"
  3029.     A$ = A$ + "[U`iAl<bIPEOnm=0F=AZ0jJ7NNZc_5`2<G?_6aN5`ZDW0[3\`]DP\HS[bdkO"
  3030.     A$ = A$ + "kSfE0;4;U9R[0F;G1\:b=N^2HYo_9`BBU<47?jJPKjMGM0o1j1>IeVJY579?"
  3031.     A$ = A$ + "<SN?k5O2_Ia17]5g7HU\b[`;1L7M2Ij^#l1WMV8fV:MJ]5c78[]3NWZIAc#g"
  3032.     A$ = A$ + "bT90c50VGG9AAlCN=QmAk3_]gV>lJfYmQeAJd][gSHahiG<VD<1LCo^f2P5M"
  3033.     A$ = A$ + "^WUK3AoL#0=SM>8?I;3RMMlOkZUDcC]O5be>aVQc[;KHMfB]FX5`UiccR;o2"
  3034.     A$ = A$ + "X\`E[HaHI_=Cf<V:eRUmEe>7VcOY5RF=1MIn0VaBib:KAQRV\nRTn1Z41Ze<"
  3035.     A$ = A$ + "IZI7MY<fhH;>f4Mh4YHcI]REH`[DMMCJ[#WmXKkccPcDlCnmG\KZNA]FSiYX"
  3036.     A$ = A$ + "gMi=HN62US]h\1W4OXUgoTSH?NgLgJhS1F7YC^R1ZV?i]D0R2MGI1U0`:RE\"
  3037.     A$ = A$ + "k<k53e9\XlUWe9`5O<lT9[Cf=RHIi?hR64H=D9gII9IGXiaD]0h\CSJNKnIF"
  3038.     A$ = A$ + "0;i5YRKOKkNUEU50^=`b4bIl<SVL=o<;:4#;nD6hQjeY4lABX3bOD8WA_V79"
  3039.     A$ = A$ + "X>onJPEC<Q\=Vb1Rko^dCXVG`ZhLkleUj8MYUmQlMBR:SkTMPY#eZ]J45aVY"
  3040.     A$ = A$ + "dfZBId4`RS\j1`JU<gRdDbJ#OUnlnB4KaZel4HI_OEeB3McMa]<<kRd9MloW"
  3041.     A$ = A$ + "9Pe#e5g3?j^>bl9`Z66YMGC5Oo4H9QF_U_N5[:f=]#?J^O2\P#7<HWVVP3FK"
  3042.     A$ = A$ + "RJ`9Q1UC6jXRl14lh6Z:iR]U<K]ne0;a911\j3?j[FC;iBF>a`;HKYST\RH7"
  3043.     A$ = A$ + "N5;ZYNL9^M3\8c?UNKCPES]U575olk[D<l9`J>9RACUk`6ke:FDVLbc__X^F"
  3044.     A$ = A$ + "V7ED5^j1o8Wn#IEjHRd]FFWf[0F0I8ZZ8Hhda##63BBMdb`Hcbb30FE<YaLZ"
  3045.     A$ = A$ + "mU<T;dAjfKGQLlYiMD[oIgDM2\TRVFh1XC2HiN2dX<4]`ViF2M1PocCP5KjU"
  3046.     A$ = A$ + "V6>Ml`]`FM`01OlR;hMWFl^BEOl4Had<b^0jBL8AeTIF?R6LjF^TQ=]To9hX"
  3047.     A$ = A$ + ";BZ\]ib9#Mm]8SG5RKd:=eC=7kZ#CW[LHD4DN3ZW9NSGA\;?Z`l:f^HoRHNM"
  3048.     A$ = A$ + "ghX;21`IEm9TBG2:VfV9R1KFk]d]KUTTm0Pe6mOPNX2`5Y\7JKa#43m4kSSZ"
  3049.     A$ = A$ + "7anZ1<AQJ?LH89]O5YfBMWLEOH?TRK_>o<KaebRoW<NDZalFI]hR_RkPEF6["
  3050.     A$ = A$ + "Jn4Ha]2KIJQ0I1\`_NT595=6YU;R;L5KI7a:Ff0>=U[^mFAZFAfd28f4eQGn"
  3051.     A$ = A$ + "RlZD]T71\^FLK3CQF0[5<^jmQfdZle2\\b^`1;7SHNc0;k586HQk2G1\jCP5"
  3052.     A$ = A$ + "Zhe#]d1LC6]hi4H=LKRgO4`JCm9_OI4M?RYZ_eTZIF^6HM5X4^9<GQ;0Fd3W"
  3053.     A$ = A$ + "T0`=l1n8i`[D22AIbWOOUdBB]mb5]=0Fj;:nHMiSfeaFfN0`jS6d45\jG4E_"
  3054.     A$ = A$ + "Gk:[fI9M]kM1\0=C2I<#8;IGJ2H]T#KFg\FToF0[V:MR4dUD9VB41\:?0Hae"
  3055.     A$ = A$ + "bNW0;e\`K]YUKFACcoeea:icHN2\^LICnH\TDc=EJcM_f>M9QBhoSE^eQD^5"
  3056.     A$ = A$ + "m5V9Y8OEC;m#IUM[Y=ch_<ZA>FMe[B5Dh7JV4AZIR6NTIBA2S0KR4ecAZoc\"
  3057.     A$ = A$ + "hYkJ4?>_^=i;0K#\IHibai:A2>TDWBlZEIYfTSVdSHAo]iSX1;Ba67HKHbPD"
  3058.     A$ = A$ + "FJ7JT>8`Z]b5gJmI\489Vd<i]VUKEMh1N_kS03BY6`UU4RcHgYEEdXY?edL0"
  3059.     A$ = A$ + "8IZ;D:NBb:XQgCgGMNM?n0]bcAC?7XW]Z\SmS4g8[^?4DLUaaRUZnPHQAj\\"
  3060.     A$ = A$ + "VU#0D<iFXMW\bEgdYMl:FIiTmA\\J6R_4\0Yg\4FRACRJC=KWH98TUDZ62\\"
  3061.     A$ = A$ + "UD#I<:B;b>;7WV2j=ZMEE^ZdY_[N0C9mC0;^U2FI3Y7GUhcbV2CmSUn^:V7S"
  3062.     A$ = A$ + "73\85VT3AY1c8aFcB2gS44jkJP<^6Him^8m4GIkNaZ>GjDD>>B5CIQbV8eS>"
  3063.     A$ = A$ + "Z7afX7WA658Pe`MI#;M;5\\BPEA>]ci3HJTSB313WMDj7D?TD<jkV<i;\h9d"
  3064.     A$ = A$ + "hcc?cnHOiV5SR^5S3W6?C\2=kXi>ag>o<C9EPmF3iUh<83Y;B4eB[IfioN8S"
  3065.     A$ = A$ + "A6H1=7P7?\?]YN9lLG1\8fVD:i:PEUJeE>:Ce=g`f09JZBQ^AEj_hS4VBW0["
  3066.     A$ = A$ + "W^8bSR:_?mofn8B<U5^_YTO6FiM\24oC>RMSn^5EdfQ8I:N74ncJFWdCLLPL"
  3067.     A$ = A$ + "VPTAG[HaHUNJUIgS`CQMfeO<QHIBWHZHH9cbT^Zg#4k^58Q=BQ<FFCjN=3b["
  3068.     A$ = A$ + "U6D0B\FgV\l4F8Qmie=VU7DZ3=Y=kSHWEDBTnVD0e5MB;LOHnmMWU;3HC0U`"
  3069.     A$ = A$ + "m\F=:?:O12g8aI#7Ta[6H5g[T>hJBjeXGDGmii:J:`H1:JI[VTc__E>E=Ilj"
  3070.     A$ = A$ + "M^Z:MIJZINc#OaHXd^ZZH[A\9EKNI?CCCh]dXLTF^2QBhB;LV26KQNCMbFDo"
  3071.     A$ = A$ + "]gLSZ#JEC3T8g7Im7KMH:dF[glV3PeCiRCd1kK17<YHAJm];]H9B17Ua^QDl"
  3072.     A$ = A$ + "5nY77UOO8?YB>#3I1baV[]ZE4d=cM>:\RXIjaGhWBNiZ2WbMFfEC>\l5BD7["
  3073.     A$ = A$ + "hRDZDX8<cKd?EKOZQh[E^Xb9ANRBSMV]OG:8>MClaE0[WRj?\6l?ANF\eK9E"
  3074.     A$ = A$ + "kLD#kZi3g#]S_MeeUI7aCaR:jgUN0[L\HC\g]Pn1d:\lXeI\TOAlQG<4^fD="
  3075.     A$ = A$ + "mD52nFaSQbiZRo:SH[bAhPK`#UhPEOJhA[YMFE6kOIbYKL\h_`]b;kIJl;V`"
  3076.     A$ = A$ + "N[JJAHC[d0;jdU>1F?U3[6EoDI]G0HEEk3De]hV:N4`B;?0H]`5^9YI:CGLC"
  3077.     A$ = A$ + "=VNhI`RE7ge9I:D\JUS>Zo5lUiBGSU3]GRm9Ab=eU5U[TK67abDEX;<AP5lQ"
  3078.     A$ = A$ + "6J]Z59Bfh_mR?EXd`ZCPe2CKV;eQmo8k6LG>IC7mGN3\DcYWOV1`:[bic5Jf"
  3079.     A$ = A$ + "3YGKceE_a^jU4`RR7olcl^mkb]MaiemN`R6l65goS:5i^=mAD]QckEJ#:U49"
  3080.     A$ = A$ + "b?`\fN6HQWOh34Wk6==dSi:U5nFFQUD^#24[:Cd\g>VJcbfY>_EZcE\#a2^M"
  3081.     A$ = A$ + "amN>M2\lP5:Nldfl<aDBQnURH59T?id>;m^W?f:i3[ETIiSCY71\f]KmFHeR"
  3082.     A$ = A$ + "fWNGh`J4N9LXZV=\`i399MMSBYJ9lWcMi8lW>G1aQf[H8jCL5`BV]=:dPhU0"
  3083.     A$ = A$ + "fF9gAO_g899U[d^91YLk:PECF\jV\F9ObCWU>]jGLgV:W[jN>n2N6;>eO[i>"
  3084.     A$ = A$ + "fQRE\?TOn\KU^WM83EjVcfmfi3hX9d3jA<ZfJdB2d`PA`>GaJGZTIUnEXOI`"
  3085.     A$ = A$ + "VgFLD#?1IR]J]ZUaH:>MI^dFiljNlI6;O?ddCd\;`i:Qa93XD=?AX?o`UHV0"
  3086.     A$ = A$ + "[SWRgHb9G\=NQaiUcQ4O=^5MR0kW9G`=0FJV2Y[YX=Aa7D9OceYQEhA:Li:;"
  3087.     A$ = A$ + "?1_950[1KDl[3PU>:577h\ccanFeL9j9`Je0[`N94`:daH^FEWTWAJbI0\Dm"
  3088.     A$ = A$ + "_i4?\Q9##9e2Pe>=G5nR#aEYJlAS[1FD7:1RAYiMb>i9`Z9jIRoL8ZZc[;=?"
  3089.     A$ = A$ + "U[1F0KM2\Tn8<1FUg=`RjVjH;<FEN\DZ?g1`RTW9WN`:d5RX]fKj::;P5?`N"
  3090.     A$ = A$ + "U^Ka4HU?cYlhG>1F]`8;lhiGTG3Z1AD:K>P\?6HUGm`TjDXFDQ]FHGnbmADI"
  3091.     A$ = A$ + "]bk0HYE[\R8C[CAmB?me0\>GajdLVTjg_=RjHYYaTThPK0#OeT9Y?_A?0UD6"
  3092.     A$ = A$ + "dPA6NYHZHKhoZG]#BKLMUi_LmBdL`=LF\7?Zn8]:WiS<Wc<b_WZFe[gOm9`R"
  3093.     A$ = A$ + "[8`MQa`;[D;H[1h<dPYDlh3n8Vn_1U^gc]A7NjY>^#\NkMG<393iB\i_N5[]"
  3094.     A$ = A$ + "[SE#_=MT0k8J=[3PkT8ZK_nR<:?DNQLiZE\6TG[ZVXMFd<YF4N`hQVgJQIPS"
  3095.     A$ = A$ + "KOojG6PVk?dDRIdEhi]h6FK]f2b]1PE>MmmI1\hjDI;Kf2H56JQ>01NMdIP?"
  3096.     A$ = A$ + "1FLK>OP?ahZLa2h`i91=\m1[Hml70\6KkcM2]RFVSAL^XDCH^^j2ol5Bc>0\"
  3097.     A$ = A$ + "JmCPe\k:G1\jLFZJEKBC8fZfJgSfjV>:5f>T]=8;P5:SV:Y=;0J4;Kj4Z]0M"
  3098.     A$ = A$ + "YdQ78fQ0F5<#O4HeWmQlh[E4;UJC>A:7IJ`T\kJe:B7FAUbVU4K:gcK1Pni;"
  3099.     A$ = A$ + "]CAo[77dY`aV`U`ReJNoR[kfdabhmZS_TB16JjEP^Z3Skk6CPWeVQEBW9C=^"
  3100.     A$ = A$ + "jN50jSE?cZIOHBBBI:\kE_[2kFDj4HmLd[#=ocLRGcNjoRL\X9VgVMH:GBiI"
  3101.     A$ = A$ + ">F?G<1dLX?<BaTl5QHbLRYP>id`l:FoD3\f9Bb]Y`bD^flSf_Qk1MeNE<GNo"
  3102.     A$ = A$ + "WnC9`2b92VXi9`RifBSVN4m^CU72_1KP5R]g]JMXJLHUjXKSiS\LRO`KQJCj"
  3103.     A$ = A$ + "]PA\2HaU?l_iVHN3WUi=9V`B;^EOVfdY2A\h8MZbfdSVf4`2k4;P5K68o=l#"
  3104.     A$ = A$ + "PUnnZCc9oPJ_;2E_g;V8<j[cU;a6[oOI_ggGe\T[c3]ol;YiPm76fC7fkSZM"
  3105.     A$ = A$ + "g^DXAeU6Gd#Tm]h<AbL[;T0K2a82Qg99daAnG:oP;8Se<I286#<A2R5SbT?8"
  3106.     A$ = A$ + "786;7ogi]NnaZf_W^WAaO9OKJS6?oh\>kggmnIGeZF[WecC0\hWi:G7M>o8^"
  3107.     A$ = A$ + ";D^i_^NYe#a?HjXc[;IFn9`RDIaWVR\46^MB`o\\HXnln\eS1^96<a6]YEVN"
  3108.     A$ = A$ + "9P0FYhDGZL36HQHioP0FfQ>YAj4LI#CWcb9^Rh<iU>lQT[?YA4^=dB9GfYgL"
  3109.     A$ = A$ + "Reng=ALXSE#Cl1g\4`J=bI#[5;ml>VIeJ9FbQLN?ReoKUJ]gPNgX9KSnd>7A"
  3110.     A$ = A$ + "QT\84gWbCO34_<8YaBT#Eicaa_^c]2cdH;BUCWhe7hPGGDhB8Q9#aPUJ2di>"
  3111.     A$ = A$ + "jM_R5=JM]1S:g#KnmEBF[XO5M>C^e?=IA=_^IVmEGE>[cG5WOVIeS_T\=\<O"
  3112.     A$ = A$ + "EdiPK6dDi;c^obc__kJl1ckNNVGEKdb17QGfcAW`Y6<]V2c`JlR40ggiaH^X"
  3113.     A$ = A$ + ":2#77aR7\CkC3ljJ<aZ:F#P1WXUbbb8:=L7SCl^HCBhRD=IGaO2\FJJRhXV3"
  3114.     A$ = A$ + "OXUJ<`BVWZNf2PU\6XldD9Of2[LT0FW8[P>hCaKP]`#5b7?>M\f;hhR<EjCB"
  3115.     A$ = A$ + "\oeL;10\HYK`m<]^Ai6Pe2Ec[R:R;:#:5_1:`3E9c?h#hUj4HQc56anHP5K8"
  3116.     A$ = A$ + ":IhP0FLL>FY4i^HYC_<1F;e^=Jf\B#RkJ>Fa2Ook7D^AJ7Zd]B5WgGcc?cd0"
  3117.     A$ = A$ + "c^HgV_4CZ[jJH0\Tk_^jD6SG6\QNaQ:UC29b1l6P5ZMJHUR4Ha:?5gWajDgA"
  3118.     A$ = A$ + "iK7K2hQ1Km_;0[51\45Ti:FKZ3QVLmK#cdB1`:nC0\ZafOSk;7Ga#aAZc86P"
  3119.     A$ = A$ + "7I_SCX\h<?[Uji39L\\lfBTnWfVXb1#^F<_kl2IQ;G5ajlV861?Cj]iaNCbB"
  3120.     A$ = A$ + "MLN1]J#eTK0FmXcPYa[3D0]DK1cVCcLN8i6QNUh9h0EAIE]LeeeD[bPTfZZ>"
  3121.     A$ = A$ + "AJ\4fW\<Kn#:kgE497H5:U`I[^Kf:Jeo:EC^>kEb9`:GAAjhPaGVS8Kc9oci"
  3122.     A$ = A$ + "G5]g:]^KW5X>_^Y#>^i`eCJRUMJlBOJbNd6eKfL0]Va>n<09Pn2mAPi6G[`A"
  3123.     A$ = A$ + "6E9M2L=YImS1F^2Xc<YD1gF`lZYNC_[U_<OgSLk60[k?1FHV6^2TeLc#>Ucb"
  3124.     A$ = A$ + "944`RIK9Pe71K73gH>ZJn0UJ#GC6HALS:P?WfH^FBBiHaHMk^WkG50[R]LX4"
  3125.     A$ = A$ + ":gP7T6gB]ieE0;f1L<edJBYW<7YUehMFS2E#Q5:R5;cm>0;JJGhS[ZAY0FYi"
  3126.     A$ = A$ + "#?4a>CfcObm0cHe\R9C`ek5<O^RUnn2alA>:TH3aG:`Rjo^1=gLMYoG:Z0nF"
  3127.     A$ = A$ + "0;IS<1`ZN>dmA\8Ia5X5OF>ADM\f9`2FVXHo]1F;iXGQOT\E>1\VWi;9[jDj"
  3128.     A$ = A$ + "31K;C0\^L3`jSnX1`jN1P\12LLP<?kbOM#JFKRcLNb6FW0[GlS6GhkY^Ged9"
  3129.     A$ = A$ + "1S35Z4Kejjlf\44ZSNfV\N4[8NB#WNaI#1\XIjPi5QVZGB3THQ>MZR]Cck5G"
  3130.     A$ = A$ + "KY\jcijSl87UjEkOCPU\anN4;WEJ=bZ[CKCA7aS]O`?J7kFVJJ[5DiM5k<3M"
  3131.     A$ = A$ + "TLNV36`hiM=YGhZRQl]3J^db>#GWabUgXP`W:^PafobbVUaIY29TmaIkQ?nj"
  3132.     A$ = A$ + "V]9^:V1NJ_ARgkDOJLF7a4_?_?ca9n>jWUTNZGLI\4`BRNT4^B<77bcTSHiF"
  3133.     A$ = A$ + "QgZnE[ba0\e#3Kja9La=;=`2dVi7JYc?<3C=_FfgVXTKXIgeI4:jcmHP5C:="
  3134.     A$ = A$ + "7Lj[8VWg8_?e<PA:gDinElaIl5FDJ:D4XNCF#1GaJGD3OAV\bHMYmR[ho9`R"
  3135.     A$ = A$ + "DMAm\[N3`B^IIfOBMeX7OG>N4`R\IWEjf<AEF<lAS[A9KlVLPP[Llf0[2[EO"
  3136.     A$ = A$ + "9OU5fH_BGLUU:Pkjba7`4L4V=n9`B6:4=]mH7EabNj47[nDQLe9>L6WgW;jm"
  3137.     A$ = A$ + "03\2[A#E95DeRWNE:JFD9PCPeNd^hdjbj4PPL\fe\?F:nSf:9:`<f5IZG[C9"
  3138.     A$ = A$ + "k3iMbeh4kIF?1Fn0T[g0\HB1N\Ei\;Y6d[G0\f62NK`NS[AnKKn5FFc;McNO"
  3139.     A$ = A$ + "JKUBCN:VIj4L\[H81\m]iKQh2LT]5oNdelagdX\`BA\JMPCW>X;N[?GaROLY"
  3140.     A$ = A$ + "H2Ie6]8fZXfU]JB4`7a0H=o<K>5l8PEAZG2BHdB]1=WAY6JRBdn1l9c460[6"
  3141.     A$ = A$ + "9C]l]\T7DPV<R8V7>NNONMea9;BOS3e`]Jjg3;`:_C1bP;S#IoIN_B?lBN5;"
  3142.     A$ = A$ + "WgQKf1Yli9`23acRiNN0\B\7Q\mN[N;]]2CNW2Gk\d52H9B2RH_HgnBk4BEV"
  3143.     A$ = A$ + "Tj]RXTEJ:29bI:DI^f>1Fh9oA_7=SX0QWi`^FDX]8LKHlF5OFMnFHWdRHA4n"
  3144.     A$ = A$ + "3[<8ebXWS<L4aDTLca\A>SUoGE:IHJYZBnTbd6\:B[LGcjO7JBcAMNMKb^9A"
  3145.     A$ = A$ + "]WX;ekS=`ijGnnS0FNlNh43N^5\fI=fIGGn#6DLUPTNG8]1ha[LHT5hdo:Yh"
  3146.     A$ = A$ + "?OHTD9?eHIL8J:ghUhlNUVN[BeI:inMEdLDXlKB]Tl>UTJRjLUBblg=Zm5B="
  3147.     A$ = A$ + "9h1iJjlT[LR6ZJ]jMXG7a:74HY>_#]e9i2MRN4VYjDTVJXFFnO>#>cE\6iRY"
  3148.     A$ = A$ + "1aG4Cn>O4Ad:EDCFDK=#:IEK;YRAGd:FoH3\h:h:_MT8kk0\:CeO8G<]Inao"
  3149.     A$ = A$ + "Hnf_da8^Y69VnK1\hA`each94C[cH9aBD^cL<lP6<#J3:=2[FL:R1`Z[bLPH"
  3150.     A$ = A$ + "1i1ji9`R<m[9P5;WJ0\:BATPOLeRHYAUWM^5Oe0;INclcaie=O2\ZRC6eE3\"
  3151.     A$ = A$ + "4i_N<`2;#LN_JW34Hai9GLMO3CX60;`ZE:0J0HQcB5aFAec1S4HUadhVM;`R"
  3152.     A$ = A$ + "7ITm:Tb0Q1F:Fc^5aInI5d7`GD>nel=0;DFWZ\HE7;0FcjHM3`BWl9a9FD0;"
  3153.     A$ = A$ + "PoD]GeY25`BjK8Gc0c[<[lNTPRBN?9VH;^FCPe?a0;>TZ[cVW`E38?MkaIb4"
  3154.     A$ = A$ + "5VRYDH=R=;5E^Y1K=;i3Eb#lVW[jRIFQlBcNMNM?8`2B92XTA2U#RO7TMSa:"
  3155.     A$ = A$ + "I1_FCY_[Amklc<oBagCBcA0Yja:DKX[_^9]\IE4mSaJgG4541[ef:Feihk=T"
  3156.     A$ = A$ + "7[Q<M;Rj?fTH6KQWXBN3H^HJVAMf]:nOPGJYbB_;3R?OnmEFHiJfB`DBWL4Z"
  3157.     A$ = A$ + "^PjQ;M=e#e]l4V6abDS1?\DBbQ0Z]Bbd\KmUgTT>1M<9A`1SESgl>??P88hR"
  3158.     A$ = A$ + "hPUeTKbZ:=0n;jH1jjnCNb?nKL_<An:C[Rl58hAUf1Gdi8]KPEj6PeghnHlg"
  3159.     A$ = A$ + "Mk4IocVC[7S_[=WB_=`jKLo:MWIB:0FBR9`BReAeBMmZ9K59Y#4;k13\V#0\"
  3160.     A$ = A$ + "JIFCb>GIRYb;Z_^B9dbj5HO6KA?I;a4D1Ui:;ac5Ak=\ULA;bh50[am:C<=m"
  3161.     A$ = A$ + ";X`d2M7Ah:#FT\8kT;4H]>S]hNlYBC\;3M<lhH[J;Amn:<CZjlnL9ICmcMSe"
  3162.     A$ = A$ + ">9]mfMEML[dD9?3G;WgWg2PUD^KF1MVS^HBS4PIa3]mRZC_SMA9>92>4;Ha\"
  3163.     A$ = A$ + "eHWnh<QAN_7BjfU`5koQ6HeKNJ2[ZbkJ`P5B#ZWc^8U]D_:E0=m#ZBM7edg6"
  3164.     A$ = A$ + "0;bd?A^_Z9kn\`lN[#4;khJ9YMLES[eK`kDO:E[[7o=\ZWH7TSXRoOSkUDFe"
  3165.     A$ = A$ + "HJIY^4bQnAFf:^XA90F[BW^cQemj?cTo4N46`XjZBkb_b7P8HlEU;\>FBnIc"
  3166.     A$ = A$ + "A\J8>85\ZJ2gD2_BJCHBMSKNDZ8Xh8^;PUn<7R:SX\SDg;=8SU:Y:e^i2cnZ"
  3167.     A$ = A$ + "4[jjlcL>U_1H9[c<V[`\T\_e\YNAB;2\4abcGX]2G?1FblN_5H9K]\BUE>Re"
  3168.     A$ = A$ + ":JkbTj2[:;m5:j\TZchgaVV_nKIg`?\llJ0\4_KkZHYMcE?I#4bWFD;M>1Fe"
  3169.     A$ = A$ + "W7M\kBdA?ZC3Xo8<CQRj2]IHiS0FeWW4C]df?LGUVFaCTgDNmPZW8UZfL?Z4"
  3170.     A$ = A$ + "MiiT^>E;99MnQ65kF0;]P3hKCb4^1K;k7BiWSF1CC2TOObldLX8[=_RejNCS"
  3171.     A$ = A$ + "aW1F8c55KoiFAjBBo_UE[SjHY:]Vm8IPiNREH30;7KkiB>:DQgejANXlcJ^>"
  3172.     A$ = A$ + "fFTnRPSUi^6eR__hWH2\bbA<CA_P4`:IIb=IYTdgWC?7719kb=\J?aQTBNeZ"
  3173.     A$ = A$ + "3RLL5iU:XH2;1`:ml10B0;?kGB<95`RloF=RNk2U84g]#3\Z6HmPd4X\[2?m"
  3174.     A$ = A$ + "dH1\Rc5:VHO3`:cA80KKRBh6>N3cMGbXWeha_<PE^;43j<20FM=>2XdZdUJc"
  3175.     A$ = A$ + "b4DXV#U`nC\LDn6]daVR6]1TaJ0\hJHLb[a=#]=FGSiM0\:RnMDjPl47GXaU"
  3176.     A$ = A$ + ";_N1<1[E490:Ve2A_2KUHZJfgYFHYVY^gX4Tg:F?70W5ARU=biM3\>8ECClD"
  3177.     A$ = A$ + "QB_JdB?ROa8oZ]Ef:;NL9Ejc9`R;JR9XETUIgWJdE9E0;G9aB8n]1`RKZF`d"
  3178.     A$ = A$ + "D\hJgIGdITSeMGTFATWVdcS1FUm`2Vfi>Q;R#YcE\H38A56^\9UNo6PU:o[e"
  3179.     A$ = A$ + "Q>X`7hIcQMbFN6;]RUPE9?a]nQDedBZ^9o^Fd#<c>8V\F4KU2SlFCIEkHYY1"
  3180.     A$ = A$ + "`4h;QSh:bV>N1HCjJ5k#V67N>IYa3H>4T7=9ZKI]<;YkNX3ATF6[5EFeT6j8"
  3181.     A$ = A$ + "OcRU7CcTZdMMA83NbDZmL\5dPIL;EY^PiVkcXh4_0FR\VBkBJ^c3iV=hj>i_"
  3182.     A$ = A$ + "CSeB<FaZ9A0WJE>9>IM2\Debf`3KBJ=E1=lVV1F\ah\CcIcRoDf3d8FcS9HW"
  3183.     A$ = A$ + "=mIIZ;\Gb<fMX;3[T>a#eUU7kBb^3aKH0`P[HYNZcS\Tg36Tn3oQ^0kk[1Mn"
  3184.     A$ = A$ + "Ff=c\X6n9B;;Z1^LBI[XGQVcJRgJ4HE2Q8Si`[aZe]307Z1?2d5>RM0\P4;H"
  3185.     A$ = A$ + "PenK1\dk2Vm:UEgLdG;3[UL\[8]UBbY4FDPVW4><mZD3lh4WnQd38cM3\Tj5"
  3186.     A$ = A$ + "m#;dODi:DB?O3PU>DRo<351BVR`JB7ZbEPR7TUB:Hf0[H^X2Pe3FoDDI\:Rd"
  3187.     A$ = A$ + "nk?2HE3P5Ji<;GRY=c3M;FAh[E0\:W0[4LYhm85[73\^gV_nZ_APZBH2DaYn"
  3188.     A$ = A$ + "B[HiWSR0ZcVmO?0FH3]EaNeTlKN]R5dUST:jMd_28?4a:Fgof0;>85\Kck2H"
  3189.     A$ = A$ + "QoC9\Eh6[PUZFV1FQf^ZNACPEQYbg=aIFU^]IWdH?8Lg?Q0[ZBL>YaldWIQW"
  3190.     A$ = A$ + "2;g4S^]WNDl:9X0Y8fG;1G9a>7YAI#m#RTC>95<VD8=gLgJK<9J4;XUG]Kl?"
  3191.     A$ = A$ + "f_jPKmbc>d[Bb^fa0hY:IARBgmWIfhRmMGE>=lCbFdYBkD8F;4]J_PF?^^eP"
  3192.     A$ = A$ + "6EL[#A?^eEi#LBl`\\Z8f260[O20UEe\NEJ1LZ#];k^KRMNKc24TfO>f:TOV"
  3193.     A$ = A$ + "AD;dA^]F6`PfMELD>FbBPhH5PFF_kHIKGGMVB<_BMZ`mdVdA=NB6G^8=QcGN"
  3194.     A$ = A$ + "ZSMU:Ed<SObF#YNbT^=l#2Gf9Nc3HoJD^Q?mEndHVMbkN5;ITm^?ZjlUF[hR"
  3195.     A$ = A$ + "9BnWlYOj[XYKP5KfbWEBNG0;ZnS1g5<=]hj4:fGSdn7_0eZJ8mDKPe94QP[Z"
  3196.     A$ = A$ + "Y9gZ1^JDK_Vle]dOPYCMXIkI0\>dlUIFW;FFJnoV9`Zk?cgCA2VJUf]ZPF0\"
  3197.     A$ = A$ + "jH:4[=1\<I`Ic_mWi#d#fgQ6AHCEXDLf>BBEl2_hNC0\nd?e0[XCTVZOR5D:"
  3198.     A$ = A$ + "SkP\2QAPQcLh?clWA0;c44:Nfk^4OZ<UEY=_\3>LneL\kRI=XN3b`^TEP=>W"
  3199.     A$ = A$ + "0ehSE[gj5_O8iCSSUD>MAeaR`92\FTZHAPe0K#Xh6`6kZ]R2Hmjj=ck5FaRS"
  3200.     A$ = A$ + "o2eZlX#F0F:>hC7;\Y7BO<^A;k6HTkScm2_=_ZYeS?W?:1mA;F5hEBU<FeSj"
  3201.     A$ = A$ + "2:eHeJoGeeT=kkBD4ZSYmacg71FRI?TVlS38VKm#d]9hD\g^46W87Y6oInN>"
  3202.     A$ = A$ + "P4VlA2EY3PeUTnZ<odKek5:f[^2h4HeL[mfaHHT>JDg0VYAGY0Tbjbjk5V?F"
  3203.     A$ = A$ + "4HAe3PE2I?EV7F^j4Ci#Dh4lcbiZ:ncl;e8R;G;A:JG<AnZ9O8[iK0Fh4OJ;"
  3204.     A$ = A$ + "H4[VmV;BaQ2P5I2oMAFh^86TQT[6Hma4HiA`c0[dJ\ReBTSEJ\ReFBld:Jn="
  3205.     A$ = A$ + "f:lCOP\SYkE<#F\h\bN2kiSI1\RTg^TlDjlS`=[RD#T:B:Z91f:[V`L812b5"
  3206.     A$ = A$ + "bfcV5?a]RmeR0V9>jGBSA?JV79Ye\g76Z=ABED;X8l?B0;fIc3UAU9EGA=>_"
  3207.     A$ = A$ + "99fE_?[nPSI0jQ8flD[c85IDYZZb;QZJb2iH_MA9lP?k7nc\]m7^Z<D=2:]H"
  3208.     A$ = A$ + "IgAFR?k1=AHVmHZ=b:F`8Wm0H5>8#>BfX8ZP^[lLF59CENQo80>JfdNB1m:b"
  3209.     A$ = A$ + "11W=`2n7RTh2NV4Zi2nk;W1OgB7:[0L5[EEfPUMiFBVDcbm39`J4kcf=]IR>"
  3210.     A$ = A$ + "1]]`m>_8MlC316hScH5;^_87dMYM3g2\XRLG>nNlIVV6<e8#<h]YH]`71\2="
  3211.     A$ = A$ + "dcj33OXZjV70;KTHW58=5?Td\83P5?I>1XE;c<NjMjE\m]dF4ZE1A\7Z:TMf"
  3212.     A$ = A$ + "4`\VIE=:m_5`b6\a0HM4OV]f9T5`:URn>5dQi6PU;b;Gih]1F`e#E;6fO<`2"
  3213.     A$ = A$ + "EaBdV<9=8M2\`hcXYTX4:f#f5g:aY8I2\\J:ikc_L_Z6glf0;k:TlHQ>AY\d"
  3214.     A$ = A$ + "7[iemeEdo81\fHCK6WBP=RQebWLT99O;[XYo?Yb=<Rm5^?=QAiL95D#FNcb]"
  3215.     A$ = A$ + "0;c^#OM70[?hia\`C]<BT]dC6=YlBH0aNHH77=1lRjioCo5O:ReIESM=Rckb"
  3216.     A$ = A$ + "R03NcDBNlkd12eYk60n8FAocZlB9<K2=E7==]:Hcd68>cBA:G9:DE4kQ>Na1"
  3217.     A$ = A$ + "KF#fVDARD15?K;Zj<1]bA_4>^6afBff=DiAg5SlUTXDjF^E_X9?c22mSnnRc"
  3218.     A$ = A$ + "2^\A^9cB6#kA<j9R4[0E[I]_flcL1FQd6QlLX_:aIB]W#:mB4moKE<g2F#VS"
  3219.     A$ = A$ + "U5kRMJfII9A<bBIjf51\hQkFm1hgSHQ9a;Z3;[5T>0:BnKS5NWl1]8[85CcY"
  3220.     A$ = A$ + "ZHF4K8>=R#FK[GB1gVGM9nU]76SG1n[SHo5?i_hgoiCAG3gn7?U^1H9eGQbK"
  3221.     A$ = A$ + "hZnXAPE_mngo_icn;#\5Ae?FC0[7^<1O2\fmD^TcN8M9`J6K[H9M`2HE0\dj"
  3222.     A$ = A$ + "KMZRb;6HaZ]NDRHm`49PEZZNFKPe1Ffal``RafhSc7NM6[>WA]599WdH[b=`"
  3223.     A$ = A$ + "j:Ko<?0dBbM2lAOO9`BF3S\`EIKUFIfI?G3P5B8_>S=CP59oW<ScMNlRj=0;"
  3224.     A$ = A$ + "ZFPD7S4`:RU74LQ_nVm9_=`R6:Q0F\UB`fBTc_5aR25_HE8=KP57C7JdX1`Z"
  3225.     A$ = A$ + "9iPSb#lUkVabRF=Y#jbj5O2A?2HV#>>1OTgbj2RmcNbGl_m3ZeY<A2R[Dm92"
  3226.     A$ = A$ + "i2=jLLB;OEM`h:FmWmMogocnRA\Jd]PGRf:N>I0gh5]>]3lDmLbXj5UGSHe\"
  3227.     A$ = A$ + "\Hh8n9E>FBLJej<Rh95U`5H9C4[7_D^[CAKTb5Nd:FbfCIZNLQH<j<G?RH?H"
  3228.     A$ = A$ + "EIcFmm1gjTJN#m1AEbZ9PeZllka?jiWIl#UEJW]EP0;^gZk]lQU6H9GF0HeV"
  3229.     A$ = A$ + "g[bkIUndN8F2N:ZMI38amelmWmQX_iNEee587R3Cidja]\RRjfCMLU_G5a2P"
  3230.     A$ = A$ + "Ug;KS[Ha1_Ilg_AK#IOEfIUE`HL`V;GVa^43WZKEh2e6`i^N[6C8?2CZM4Rm"
  3231.     A$ = A$ + "WmTOioYoeo3o7\Eo=_lN_okongoneaooG<NWknkY^_KooC2e;][\U;ik_onO"
  3232.     A$ = A$ + "[_ko^o3o]oB5k_A4k_1RMlemnkGbNNGmlGYYY0LHj]R]nXHk`1EM=I5A1`ld"
  3233.     A$ = A$ + "0QLPm0lGK\dhX#=bU41XYCZ<gTonkkOeafPUca?aM9eUdmViQ`0dkGogGHmK"
  3234.     A$ = A$ + "Nf7ajG7F=4K\8mko_oNU#Gn`Vc^mQkIo_ojJNObdO];dcBT]o[?f4<B90BAg"
  3235.     A$ = A$ + "o\7>HjnRR8n[=FjoRfQjT<dLAmQFK76angnTobOiWl7l_hOd_c_cgmkl1O`7"
  3236.     A$ = A$ + "lkmkm]ofOk?hOlo<lWo9j?OW_kh?onSoPoV_3nchofgiOe?hGl9OaOiG7kG7"
  3237.     A$ = A$ + "kGA\OaCnl?kWmcn?oOiGlco_nc7oi_j_3oiGmGmco_m;nOmIOf?m_icojHoj"
  3238.     A$ = A$ + "Ho:Rm_i[1FOM\oORH70[?ocn3NifmgoPHiGjg^fNXgaodAoQGnbGN?nOXBaD"
  3239.     A$ = A$ + "R2gGFoVUGoj7nWoYOnom_hcSHAiMnFZ?V_NlWa^_Ocl[OhQGmbGnZGmJdZIe"
  3240.     A$ = A$ + "fELbSGlRGlhHOY:?:>Df3?ljGcS2l`;^onGljGoZ7`A[TZJS9ZjE?lfGG:QB"
  3241.     A$ = A$ + "8oiSa7eGABPo0oc[OimJ2Ld<kD:_j]o<o:UTlgZDnoJlQle\3f<dGnbGojTW"
  3242.     A$ = A$ + "RZ=b9naGY77k3L#:9m[6ogN98LLnE_2OM7OV[l`Z7=E>]GlRg:fG`c3`fHmb"
  3243.     A$ = A$ + "GPoYABA_l5SKb_l5_hEVb3OceDkg=?^GmFOV_oK6FoI2Q`>I>^5?^bgcihAC"
  3244.     A$ = A$ + "Z4CJk5_hU?>fWA2]`oKSOhk9Sm^WoILYcAn`\UA_ccXGHUGSiGMom<]mkmON"
  3245.     A$ = A$ + "AjKVgRDlgGSH7K5n[n3OeU;_OiN9DDUM>D5bH<Y4NX1[=7I9>BNW:0eoSoWS"
  3246.     A$ = A$ + ";l_j?leSH[gCKQ?V91Z1DIIImZa5TV7kL0[`iBOQSmIljbN7GTI\Y1<^aC;D"
  3247.     A$ = A$ + "E?\i46R3e9cS8^^?`[KS0[2=X9B#MZg\\hTDL`:^0IL>\k?lX[[>NoNUn1Wn"
  3248.     A$ = A$ + "Y`hldi9FhInIK?D?#[_nVH7GgiTVA6\jahUb4=e_BdA<:XbhNf<FL_JiNljI"
  3249.     A$ = A$ + "B\]>J:h>[GRTT?lmIO?eHi?K?jjV^gN:57kei0ED:Z=RZL7FV^aooGMC\kg;"
  3250.     A$ = A$ + "Y]JOg2I4nbA6L`:ZDMUaDUl7o0gOC\[gWB[QfHA2D9_fDC4Mj2ePhPNZSoPW"
  3251.     A$ = A$ + "_OaCn[oS^g4eFUb9KmV137WMC?LldD9V<b;T9PgoR?kWnGoGo7mJa^Fb7iY0"
  3252.     A$ = A$ + "ncnFPNSHFPF\\Eei83>0kA\5gB\TnE45kGB6U\O`>mi>fJ0Fo17k3MA\1fXL"
  3253.     A$ = A$ + "F7FNdK=`]DK23MGD]dQ0;7kmB_=Ud:U4`b2GBUF8VIh;_GaaANl=8ReT0PdP"
  3254.     A$ = A$ + "R:71NoQRkDSllXG_b5kiBFdF[GSHOXEgTN#\;jWJSdQMeTFPa^4`LHS_=JbU"
  3255.     A$ = A$ + "]c[[\?G=R_XDHU#bJZ9BlQ;XnoF#5cBm;RHCRo3GDeWX==AKPDj>cJHWA^f7"
  3256.     A$ = A$ + "6HiHg]?V40[Y06UTh91c:_\MB?ED>;4k?m9On;_GMdPR3U8iW6n[a]\M[USb"
  3257.     A$ = A$ + "[G[\IWG`Ajkgono;oT?O4[jk2:mN^:^cCWZ8l=#[8RbDWkR2D;A\f2gj]mPK"
  3258.     A$ = A$ + "5NdNJZDQjV8]FFe]#0XM\\G>MI]L\8JIC79^SnhG2iK39eSjedh;D4[8D\LR"
  3259.     A$ = A$ + "YTIKOh47TQN=enK#_12\6oGRHIAmI?P=`ZMD97=UW1?n[_iQ:1FXEnbE]VOO"
  3260.     A$ = A$ + ";f\PC[^5UbbbQieaIjO?i98IUS12F0NNMCKBUBhjhDo6:5?X>X[mbO:=CaT:"
  3261.     A$ = A$ + "U>_^cBX>F`I334h6gE[#^]_TbciLcDZ4=A<R=I7ba;IAJ2^:IhU:n6:jEa>3"
  3262.     A$ = A$ + "Lh1W8f?i9oiomOOZaZR[0M#N>R]`RFBYkI7382QSZ_1Fgo=nToL4KUBOd31`"
  3263.     A$ = A$ + "R5HDJ#n9`ZZF^di>V3PUSEV01T:V73\HO\U_82]ShbBi\\HcH_1H9QCcF<#g"
  3264.     A$ = A$ + "=VjM0Fmf<Fe:9nRnZe\a6U34Y^mI>5]dN9Yne;oTfOOE=k;VBQDPME3Xd:FX"
  3265.     A$ = A$ + "m1X<c0HePoL2PE4KV\3Q4Y]>5Q7\fHVFn:j4fQH=d2m]Pa_e8fljVj0BcE#6"
  3266.     A$ = A$ + "0n#5E7OHUJM4K5B;XH=REV2<M\`=F>B2\FPXDO7T9XM[ajBINXX^MINMC\LX"
  3267.     A$ = A$ + "bNEG<`2`01\H37cJjZWcM1RmCNbOjkmnFbm`Me7d`5jT\TRYCG\EF6[hEIV5"
  3268.     A$ = A$ + "[lKlOl?M4;ckn#fP3ML#LCKI3JJ7K;LVS16UR=Z3;51\H\d4=A95G;17iAW:"
  3269.     A$ = A$ + "eKTVnQP[AX7BEidbc[[<KH_ZfAAJ407AV3feP:Nm\Hk\#<T_7af=G9`kikJb"
  3270.     A$ = A$ + "A5K4BFA8JbcOLA7IkIVOO5gedlIdm?\UA[TXAA=:#:B60D^KnI^Ha5EKVJA4"
  3271.     A$ = A$ + ";4i:jT6m3]1=mOC0QRHU9PKM:?DE`D0>C;gMGRfYR\8EYU1A\LloU<3amCM7"
  3272.     A$ = A$ + "Y9`JIAL3[::UQ558m6>_^B2IdNQ[[b<UY:CXRh_BR_#<UD^mEllmcn<2\TGY"
  3273.     A$ = A$ + "9aGc6J?kGHA>M2M:_9`Bbf92FgXI;P>Z`Nhh^94H1N3GJ>oZHdnDOG:;A\Ra"
  3274.     A$ = A$ + "ZI\R5WL3JZKm[Ti=6HEAf1kE3\jmie];^CY]\YZ2:=m<<KaV9L;WEE>:5g4K"
  3275.     A$ = A$ + "g<hA0[mP#aU9`ZIAWR<56R#C;RUc<Q4B>VP^HfhnD1lUS?A=hQ:Oinh[B4[4"
  3276.     A$ = A$ + "[iTDG9GUmZiI8Ab[:K?[8b0d<o<W=UZF=1bf9kR2mY<_LgCUB_?1F92\n<1\"
  3277.     A$ = A$ + "BNBXi>H9[#84>^8clb=lTWH5KdMI6KJ90FdXa556^L3`JW<NQmQLA\kJ2\h2"
  3278.     A$ = A$ + "7LP23m;R;IM`UQ:blPgheV:jOf[LlaoY2DBU?Z3?aQ;BAPEBVQ3G?Q72^9mI"
  3279.     A$ = A$ + "1TVJO6[NSmhP[:DD?nJ7`X0FcJNGiakfQ95LX?PA\bI80nUJH4EQ3APDIE[I"
  3280.     A$ = A$ + "3;dVLJ`S^ic\j1lZBhQ]i4JQBBYWaD6ekPTKjhET8FYb;LIH2\hUP[;[Aa6h"
  3281.     A$ = A$ + "`3Yfk<oL<8gA\Ik>Zi`[Z[f<[d<::PEY<5R4#<fiWIb?lk4iT3IELbPb1`j_"
  3282.     A$ = A$ + "g5=jdJl?1NNNM=KZFT?83EIQo3H1[kXK3bDYGY`A]ZaXnb<fm#KR<`JM2\XR"
  3283.     A$ = A$ + "[1P5fYLk^;kNo#0\nh?F0;YH;]0HMLUDMjXVV\YL:Z];;`]W7i=lKmANE7YU"
  3284.     A$ = A$ + "8H00E;U7_1[In<4PdZ\J`A^8SOU[ie8F3\jmmT4Y::n0TBcJ;8D]7T`1XdNG"
  3285.     A$ = A$ + "9`M6[fMel0V3>ZPN=3\hR3lG8K0h8nI\FFh9QR#VdLPGAR;=X3Y<C39>RYm="
  3286.     A$ = A$ + "e<lI\4D0QJN0\VC87AJbcVbDb1ZllZ5Ae_d<f\6VlD8=?ZilIJ\KDg=bNUDj"
  3287.     A$ = A$ + "Y>LkfimINJRkFR9hflbb0[EI;GN:59U[g1`BaBkFmR48;^jUdVK=`Z\L3T0P"
  3288.     A$ = A$ + "[FogfABHA\[[QJZ9R^Wl0[:1AR0;V26B3G2ki2SmSNbO<1FIj2QMMR#Q\hk]"
  3289.     A$ = A$ + "6HQc>Tmd__#YF41o7o7c]EHD3P5lO[<MV8EI4A9TJAS2:F#2B\`hd]A\6H1="
  3290.     A$ = A$ + "5B5`b3\JcMdM\m6dkF<5F#Y6ZHQ[8Fl4MTK5g7D:c[0FRlOPR5LDfUhSFXSi"
  3291.     A$ = A$ + "EWGGI^AFYS8`RC9D;QScI=<Ufm`>1F8Kn8F]J3UFNl[EnS>1FRL>i8SnVl]F"
  3292.     A$ = A$ + "TRk<F=VCD5Ae#VKgUK=kY::0F9=NW<iMom]GdJXij4H9:ZS8f\3E:enEBgni"
  3293.     A$ = A$ + "c8:>Q>eK0bf=`ZH]3VDYQjjR:G1Xo#4kk2\hQ25`J?91W1UaHPKcJ1[CP5CL"
  3294.     A$ = A$ + "^3Qb7H:<EE7B8B;FCbGG\B4F9Qa`kQgOo;nH2\>LBISCMZY6U^mXHf_=1URM"
  3295.     A$ = A$ + "19TLlhOJ?RE33o8U]Mbk59KaVC3BV\7[VAS0`7]_PLkD\X8ISOKb;j:0Kcim"
  3296.     A$ = A$ + "QR#3;dZdB:Y?GfKDVGG:fKVTYSmJQKlHb\Odmh=:;eJG\\XFWaZimo05?ZYd"
  3297.     A$ = A$ + "k8mcU2ZIUn;6M>9e70HiHU#a4\SQ;FEihJYlVFCNe?IYElfglc<U1JMPTd4H"
  3298.     A$ = A$ + "91G50[W>fXRTdSU;PJ2i=GGV4T<^MXALPg6ST[:JJ_URfVGU_]0HI10;5;74"
  3299.     A$ = A$ + "jd4H]UTT=8?hA^#V4nF\YZ=0:4k7;P5N`mU3\b1`bjl5fNFDHaOQe#=<1FLH"
  3300.     A$ = A$ + "4h1LR9PHOe3kG7HXaM[eK1FHoWVh5ST]hfS0F77HC9];3OB>1F8[OZlJha7Z"
  3301.     A$ = A$ + "7i0PL3`Z:cNcC84oD>17UCP5CN_JG>#[d8WV:I3RBCLg9`BbWK;lZNB2jM>m"
  3302.     A$ = A$ + "8JZ`Zg0\J_3`Jm;1HU]S1Ve9FHQ2XVLE^5HE2PE<A?VVKB;gF5`Bc`CF6Rmn"
  3303.     A$ = A$ + "ln<n_CZGAPER0;i46Lf9912iYS[6FN;`Bfb]]60U16eK51\#U:fCQJ##Peb4"
  3304.     A$ = A$ + "H]#LE?M;`B6SFaCf\D\I^Wnf0NFKcE>F#F9\:mYURD>1<DGXda#:5;Q1eJ16"
  3305.     A$ = A$ + "U#Yh6mRBA1[H9_QZCb8c=V;>=T>1gF8]#oJRH;LLR4?P78JZAlL:i39XP3IN"
  3306.     A$ = A$ + "Bc=FW\TZ=o<;EIA9I1RYc=`Tbo[bUCiWMAcTTT5k8F[T79YO=BcSfe_VRjEP"
  3307.     A$ = A$ + "o4X5jhImVaVUmdW>=mW\93XdVB=BfE]R3?<#InmE0;ZUgiI^kJ:mc4HYYUW]"
  3308.     A$ = A$ + "HB>Ohln\eNF`]?hSVK5<Bd[BP_7`Q6fg?E;JIGVbg4HI9;:52<ZLbC:`[LNO"
  3309.     A$ = A$ + "d#[Ib:WUPn]lF0;\U5O9l1Ic#jUGV3P]CH^K^1FKa39eKUSndh;YfL^UJfmn"
  3310.     A$ = A$ + "LBV<gl=ZGY[A\D0A;S]fiX:fU6mQ7<1`R<mLC0;;P8Kc7BIY><L<I`:\5=NR"
  3311.     A$ = A$ + "n?IM87U:c0HQUBVOVWn#<C[A0;YiJ\:aZX9J[#[MKc__E3\8eYIgEhKlHX<L"
  3312.     A$ = A$ + "9^jB\BT250PEJk[2H9M]80FL4:XOkPZbZg6;A\UM0\^k2[7_k:H>L#\lH[`a"
  3313.     A$ = A$ + "oGF]GTY[QmIfN<`REORTcMQ0;icXXZZ[N#e=`JK0\f^5HaRjai_h6PUok4`J"
  3314.     A$ = A$ + "iFPeV0FG^4VXPddfF8ckLJ3hlP;eNFERS0;XWW_LLQ_LQolH78<W6:]:ldLK"
  3315.     A$ = A$ + "SLX^eSI7\JV>SKHcHInASKWD8#YSgB;1XkRO9;C=iE\XHBfSHa9V>D:mX_17"
  3316.     A$ = A$ + "GKXNDA]g=`:99jJlf878o8f`7FTfZ14AfjDJijQeZ[DF>F[:XFZ>SUQBAJVk"
  3317.     A$ = A$ + "4GT79I1]\<I2=WKEL818f7>F3\bA7D5g];kFT6GFmdmY:X;]6K6kZLB2X\>E"
  3318.     A$ = A$ + ";j#ahU3oKjYg9PU6B4Z<^;gLMiRM[bBTI;[97MIE97g2dh1WRS38PUReUFhF"
  3319.     A$ = A$ + "PeZLDBXjB4H];MMC0[52\NY1FLb_8Ig?<M]?dk]4HQcLLa3Nd61F`]BOOMQ7"
  3320.     A$ = A$ + "gM9]3J9G56i\=3Pe1j0LGEc2:I5h5_0FA\Z^0k\GOE=;SE;^l4?fQX9`9cCK"
  3321.     A$ = A$ + "QR3gMC\L[AE5M89cSG5IEBeX<06=_[35PkH\LhA\bTR;JBk;F84D3X_N4VIa"
  3322.     A$ = A$ + "^m^8fAQLMNMi7]>BCJL?Z#Ui5Ufa0;iLidDX4m6`Q>SH5`j\DZ=IodL_Nn0c"
  3323.     A$ = A$ + "4CFFh;aEc?cD3[f6KgQkU5k#IiHHZG9`bl^G0[FIiV[;BER\`PU41P0X;U9U"
  3324.     A$ = A$ + "k^BI`[0RI9;]MG4[koP0F9=De<7^BFcV4g#C]cfEgo2RmSObObU;N::LjXQh"
  3325.     A$ = A$ + "3<1Fiea7j;Z3WKh:QUP#`o9SHaZ6JJ2]`BdDZHKXF05fFJGX9D2;2\bA\UVi"
  3326.     A$ = A$ + "JbJFbaEG^6HgS]chYfhgb:k^6FP7Y:7aBPEhcR99#k[4HaC0dcj8MTJ;P3?X"
  3327.     A$ = A$ + "=EA\M1\Xn2KP5g6KPK?2ko1Kl#3ibc:hlc\1FH[#8YPHAWEnJ_7VKIT>75iB"
  3328.     A$ = A$ + "V0H=o<WBQ0D[^bS6LAPe>?1`ndC8Gidk`MFSHY\hR7O5X^Laa25Q4N7P5:#:"
  3329.     A$ = A$ + "VmRhj^>^d3<9Z=#0\TQnLQEAF;`9gSDC[mbMA\Jl:i44`iF5=lAUY1CoN:>\"
  3330.     A$ = A$ + "0e_Xg1HQkE7JV_>6_bVZl#Qj#gh]:FL]X4_D\aKh;l7Y7B]`=:U]oZeXBK`L"
  3331.     A$ = A$ + "TU`X`DA`QnQMd39G9R=;AIKLS#mMkX:?;Y:^i=#33PEMLKN[Z5l6oCA\hQMU"
  3332.     A$ = A$ + "WN5`TS>D6Q<k3<kPCWbDcZi2PLjjc?cM;7L#O\:H?D?>?mbEg]7f3J:J;DBA"
  3333.     A$ = A$ + "bcHEc#[JJj7GhS2Ua]TeZD>87S?EGU9MfhQXRHYjDa6nBAm1o8DMXg]DGeTe"
  3334.     A$ = A$ + "FcO8a[7^j>SM?TnoY;F4K4:6nldWbR9TTbA:1cINMQomPQ=MQji>en;IdVT>"
  3335.     A$ = A$ + "FJ8Sl0bBo78CPe79Peb5;mT^e>L:_H1>GW^;5n8CPUVA\g7>Ca?hgl2;]W1F"
  3336.     A$ = A$ + "SkDKj1VdC8\YkZFaTo:#jI011]ln7<REN9ZKW\kA1l_#1\#kg[DnUAa_Cl#S"
  3337.     A$ = A$ + "eD4[6`EX3J\6ZP0:VC3jN66H#h\<;kBmJb:1L6;K0=aE0HAUEWIOj29IPEZi"
  3338.     A$ = A$ + "977=NZ?Sem302LIR0;ad#3\b:?5^:Q>Lf8e_8F3Z^1HaiEe0[:k5>^EJ]:TL"
  3339.     A$ = A$ + "I9RmFPUe5\#md`OM[bEBU>gYfWGWOO;l8oGT4IM2\:?2H]Kk#aFFaljRC1nF"
  3340.     A$ = A$ + "0[]0H]70;GH63\RHGGN4`Je6?fJ>VVBS[#gYCfY<U>_SKdBQ=JRkXI`e0F7["
  3341.     A$ = A$ + "Rdg7f4LS[F#:PXcNW?P9II8k[:FAiXLIa]2;B^O:LO6[Dob01V0[27nG=k`L"
  3342.     A$ = A$ + "0G=]01Y?QYAeBJ9BVkeA9RU9S9Y;1_2LLXJEBn[d8`ReIF9]0EQYN;`:4EAN"
  3343.     A$ = A$ + "L>#39b[7j\VdIDUOVZ>n:YAj6PEa[2RCG#BW]CW^9L2U0HaO<nnh9`:f;\Z>"
  3344.     A$ = A$ + "KZdTH[j6W5KISh\MK48BVBVg[Fm`8cck=kYSh[8fCi^kHGXQf7BJ`0eJgaBK"
  3345.     A$ = A$ + "<K\F7IgW:D?0FNL4;B_0V74PcEh9`RfJP5^F\VBBN<Z<K0^0YD?;l_c2jg4H"
  3346.     A$ = A$ + "ESV4:cjPTHA>l#F2Y0?V;_b#[9YG1<O8ANY39lFN]7>V7[e7Yo2Nc?gRgUKf"
  3347.     A$ = A$ + "ABWgX3IE_DW3U^<9AIKV#JAkTdYV_FUcEkhV>V56=jeQH6^KbMj`oV=FNCaE"
  3348.     A$ = A$ + "#TFbhShLEF?R\kBRT#Keh9F7;oLXBNDM?64Cj`6lWGGYjZ0_a3aFU7aUTckY"
  3349.     A$ = A$ + "D5MR4XWDXJ2C`1cN_8S\;KgTKZPcXDhB2FFI^iZ:nW0;[3Xc285[HIPeUW^J"
  3350.     A$ = A$ + "Y^5MQ6`edi:FSOSZnUBL[mY2a3F2\BRZl9EPfdK1\F2W[kbnjFAOIG\n\_C9"
  3351.     A$ = A$ + "<efDHNIF^13\jQceCPEZJAGSYm:PeBl2bHmF:4JCP5ij2IKJ8#C[:i\^XiD^"
  3352.     A$ = A$ + "X\^DeMhZFW[H5c;=;c::b9=Q73\JmTl``CPeiZM<iM#<AF;G18bM[4AdQ0X2"
  3353.     A$ = A$ + "6Z=W5`ZM;`BVibbR]>Gn>daEig5TI<JO21\:m9`BU0f_ZPTk8O61=ee6^1`R"
  3354.     A$ = A$ + "_SQ3ST^5H91g>4M0GaP<KEZK2<e9B=[llKl9`RK1AaIU5#:72U5Z?0bnR0;9"
  3355.     A$ = A$ + "mFIQdWa2:iMI[#f=D8mjfBDRVR^JG\IAaN9]__Mg4H][EWTfMWfXG#A7N#jL"
  3356.     A$ = A$ + "J:D_8fZ_eg2HYW>5Ehm^lX2Mdo<7<h]hMGeeo;P9a#AAD>F2HaYGfjP25h?R"
  3357.     A$ = A$ + "h0`ZB12TB`Wh`#=R50Q^DB3MV#Y`8dDUh53RdoHoamEk^_H_H7KE:jBoZJjl"
  3358.     A$ = A$ + "EFQDF5\3RihAEH977O4>Dg0SH3fXbjlYIJG>mjeFgj=IFV99WT4LjfS8fRfY"
  3359.     A$ = A$ + "T;Xh]>I?SY`eXRoAV9G]SHS=3SHic0iQRR7X^RF9B1PeD<:3Zm:BVNVg[#`k"
  3360.     A$ = A$ + "RF\L:OV;HY^HCU_=C:jb9P10eI\T8<G`2:TUQBKK]Md]TV^8<E95Jf>gmdiW"
  3361.     A$ = A$ + "I>`4iEG`R=gKBD;WM3\V2l^TRVE;SASP5;IH579i7M7MNGP5ZVh26CWn4H5["
  3362.     A$ = A$ + "H=FdNAjAe9`R5hjG3`:aj2THa8JJM?e^JeZT6:L:n5?FhaRg`S0Fl1hEfV#b"
  3363.     A$ = A$ + "7HAFG;OBW0[:;WOaB2T?`Am4HEURPBfBd3P592V<Y;li;?1FZF_#7V[?d>DB"
  3364.     A$ = A$ + "Uk4HII<D;U91QREOk6Pe^mgWBa>[V[89U8^\I1S:]KBe^H2\:DgI1WR9VY6;"
  3365.     A$ = A$ + "IYYmiA0;geam9`Bjla5NN6;K#RXN8XUM3\:Nm>F6m9`Jo]1FB1moB1F[GN4`"
  3366.     A$ = A$ + "jm^HjRbcFMXS6ZU3XjWG8?KfUQj0eA6iHI7Qom^8IPQ_g60;Nfe0[#JBET[e"
  3367.     A$ = A$ + "I;N_6aVKC9]E<BP4L24YAGIY2WRa]\>lh0H>FA:D8e7DQ79]giQ]:^:LBRX<"
  3368.     A$ = A$ + "i#EYdRH3QdQMiGIe`=UDkYJLKBVhRJ<7bekHNM]aC9WlX:1C2<LPJGV:KW>N"
  3369.     A$ = A$ + "]:[5JHclk[T`EGU0EROe:jLh;NjhLIBcA^JF4[\D0Bm9ZJB[Z851`:adEfYO"
  3370.     A$ = A$ + "SIaV<=_^LY#TQ4g:4]8l>Z==DifiLAT]c[#i9A53=RUJ[BAM5J5JUCAdXbj9"
  3371.     A$ = A$ + "8o7m#l4K5:5mk7lN_WBKWT?Q7cBE7jh1E[LHHRGfRV9_=F?n6PekYTlE>fbU"
  3372.     A$ = A$ + "M:B[XDRjh<UbebE387geOH6;aKFaIh?DVhKJGgDZJCf?1fWM4:=_^7TXk7O8"
  3373.     A$ = A$ + "1FIIgQD7>hFA]JJ90FFaITL?bHKF8MT;\b3?Wgeh9i5M`GS5Mdn71\N_ZmPA"
  3374.     A$ = A$ + "l=25aZCN=fDSW2>cFYh[aC;We:F<F9>`RTjYl\U>UPX>ZFBJl]\Oa40[g30A"
  3375.     A$ = A$ + "0]k_0`:12GPdVi`Gl>0[;kb#]i\PN3`jmHRL6Ha=g9`:W_8;1PDK0O9UgEE^"
  3376.     A$ = A$ + "5HmN_3`BTXnBbE99WUZJOALNGE:e0;_RU5Nd^6gBnoX]LTCa\DX^5\C[eH^R"
  3377.     A$ = A$ + "5[U0Zb4iH^40a4U1mZ\lX\:#:7gQ6gXLn6LEV^5UA8I6i]3EgXZj]??bMfbA"
  3378.     A$ = A$ + "4B>O6KaO>1S4I96`CIJNQJj>ZbK6]BNcE;_IE7YdXkBGP6?_KTM[Zh5g0\F<"
  3379.     A$ = A$ + "5G6[j>SebR?iie1Xl7HgPFeY8c73GMC5oL[L2\^`R=8WA#jcn=0[LhBV4HET"
  3380.     A$ = A$ + ">oT;g\R5W^VEjD7[\GVIk=Dh9=1;`9JU]V1I1VB5ii:Fd]a_XRj;:kQY;LP`"
  3381.     A$ = A$ + "D]Bi:TD0W;[QCd?GaRP7=ER59]PGfm<VQ1EC[HA7?IMIiFPU6m;CoB_^5n7:"
  3382.     A$ = A$ + ":7[4=PT\>b6?9e=K5:Zj2JZK;bD[W_S1IRSTLF=SeR6eS0FVHYRE=LOTF_4>"
  3383.     A$ = A$ + "K\4NmVV7Kb9`d=Gg<GCPOBAC[E5B]XDB]OOGS`7[oHZAJJ=o<cU7afGXnPH["
  3384.     A$ = A$ + "#V7hELZ#9cT<a7^AY\>fLkA0;G:hHPAXLG9;e[HAkb:TIR]QlL[`M>4OBfn\"
  3385.     A$ = A$ + "<e>e#CY?FbcDE7Q[W[HM9;M]2Nf5]M^T]B:ESB1\6gdU=c]CkQjV]2AOJ^S?"
  3386.     A$ = A$ + "hY^i^40;=:dTFPdjdYF>_BIe>0d;TIZbo<U`#a\dFcQZYF]C5>U?[eK1FfU2"
  3387.     A$ = A$ + "ka`D8J>L2\baHX#O0m]0FbHBGMGDmPV<FKUJ=;babKfi]P:g0\JBHJiR4M=D"
  3388.     A$ = A$ + "Rb>;aAljj4ZbhJjJM]K0FGKf0[?#QD?LQb:\Z3BTFggUVCYBAM^REa93J_JJ"
  3389.     A$ = A$ + "G5amjKn#fi7Egf:=7VRFkXl>[HEYk^fiK4bGiHi?bZ3nLND6OTQj5WVOOA]U"
  3390.     A$ = A$ + "2PE[4caed;We>Q]Y4CCBEO6;>\h2FiZD=`:7DN_h]2GS=DU5:lHPU4N=jB?C"
  3391.     A$ = A$ + "PUT3CF`e:mkZjK_R5Ze7MSF=jPKL#ed4#APEBF:Y8Tek0\4We\;`LX1G]K^L"
  3392.     A$ = A$ + "Fe:F\_5TkAiU`H8mKo2:`B6Gl<i=N72`b3_9X6Qo\6^cFoLk<AOGdi<V>LUm"
  3393.     A$ = A$ + "0fUDEfX;nGUHOdhP3V?CN_O]5kLkl^Il\TEm6O4FTKT9:DEW0;EbKPnU8S^;"
  3394.     A$ = A$ + "=Nl=GOcE?IH\IjfRA8?I>1F5=5>JhYkB81QgmbjEdBE]R?nOX>PXHAiC`1[I"
  3395.     A$ = A$ + "P8o9ccXCmZ<kC8^::]Q4`TgEe?GUUc6:O\]ac=J5OFOEl`B\TDA4IQeBWg[4"
  3396.     A$ = A$ + "JHAFOeRH<h6b1K4efnR]gDl57M=5Tjnb4H9j]KMGN46WWe4ChW7F4oR]IWho"
  3397.     A$ = A$ + "g4Hm\9`bK3j94WMcUZ2ZV`N^mlh]c:_E[;lc^XePRcQ9P5;^Km00[V1FjmlZ"
  3398.     A$ = A$ + "jnB4Ke7L\IiVY83_WSSUMnLWmNRd^1[45aRCJDe1Hk7SE5?^JG7>926Wf2PU"
  3399.     A$ = A$ + "V]d1jMNMIVHkZT4NXGXIXOlm_fKR_#H7JN#KG<dflc<e>4GCTJm4HInCE=;9"
  3400.     A$ = A$ + "?hf]XZ1Yllc\:=Na0;]30ka#cdUQM8T0[V61UN4;kc;Vgi_BP5B3G79W[iUR"
  3401.     A$ = A$ + "C#o<f:Y4W[dU9`2[HYU`FTIgEUdCRdjfW0[WARbWUDP70[MA7[RV\#?2n^6Y"
  3402.     A$ = A$ + "Za?4HmWAP5g8A0;Z``7FPnIQaI>F5B4=mPc0[o<4KW7P1;XTm0GZJkdhAVdX"
  3403.     A$ = A$ + "[DSMh8`Z7aF3Um`<iE[X150]83WQ_eB]<0k5Bob9R]#BDO#05V;aaoOI94ZN"
  3404.     A$ = A$ + "oH0S`khf^<hb7mc?c59U69i:RL#PAk[onG5Cdh77^g^LNUK_^fodEcXTcMTF"
  3405.     A$ = A$ + "fUSKFkGk:QRfeZ;W#F9_c__B4UQ[kEDbb5i?abFJC;KEEj2E5#nbN4KVN0>:"
  3406.     A$ = A$ + "291FB7BL^I6HMIW4Tfo[f;c[;IKXlV[DIN4^\56JDC\Mj\V6H=0=:1L4k2Il"
  3407.     A$ = A$ + "Lhh_Zd4im;[f5[5TJ?LHP5F2GkU>2HM<1F7]Y[SCPEe0;lEB0[CCU4aRI<m="
  3408.     A$ = A$ + "#REZRdfEEdL\<?gBm4He93kjm8Ff8W`:XL?#bTle\cd4EPCN=^I\Ai:IjGQc"
  3409.     A$ = A$ + "E\#Q\hY7TMFCE1a^iT]BLIZG78SXI\l4HbeI<KPIAd#];lMRZ4;JEI^fdBjN"
  3410.     A$ = A$ + "f5kMKm8]8]DCbFiJejC#[NXSS`UXRH]=g0>2j\<dI8XOjQ<Xf:fnLYhh`U\V"
  3411.     A$ = A$ + "GG\DaZj3<>Fh>I4EX<gkLHFCkF[MI38;c[;;HZ93:__#O65:o<TR3JXeS#Yn"
  3412.     A$ = A$ + "lb3aV<`2a^mDIl;BN64]gYX9AIYgj_mZla;UlndTVNfR0F]CPeQT><2\J6HE"
  3413.     A$ = A$ + "cVYS=NhMOQGT8FSj1:2O<`2dHS5`ZKj3[Gc?HI3WPbU`Oa8_ei16el<Sb2ET"
  3414.     A$ = A$ + "]?=N<AklNSD<Hj`Z?KQWID9:Se?>^n6Vn^jn8b^Qg4BlQ;eJXKn<;aY2^SD:"
  3415.     A$ = A$ + "57=CJ`5c=B[HIPEFMfN6Ki<imVLJHJS_eMYRCJ`B6o:`QDaLFVCCPeR]i6]o"
  3416.     A$ = A$ + "Lm6WACOPTR:kB?hDN3P5KT3ncV6`DYn_A^kdQ7iY2kIO<[K0F8kl<Wi?>9GF"
  3417.     A$ = A$ + "o50`R;=]VUEY:j`[ZP]\6a^mdkl40bI\G0[EBEMcZ18N3XjhdD`TdQ40[VWT"
  3418.     A$ = A$ + "QideO`YXbN:#=dM=mBbNU]hK2\J^C=J61a38BDD<AG5IbbTEZUZjH4J4c4HM"
  3419.     A$ = A$ + "Hk<2iWg8IZJIiZUPmOV6ESoU^=dmfi=;NdCYZ;Td43#a1mOb`;<T8Qelh8fb"
  3420.     A$ = A$ + "f5kE\\X45G0W^[mM_o6N7PUeEVnCZ427mlcL;4[4U?9eM=l`adXQgk#GaM1D"
  3421.     A$ = A$ + "PV^?17IVi;^V5WODA24=`6<im9GJT2hL2\4;]FeFA0HULI_D=YiX#SaKdlVS"
  3422.     A$ = A$ + "\7l6P5Ga:a9iJgVN?5]K2\TIE]cSDbb_VNGPe2mlNaSH:O19K_dl<0dN=Q<M"
  3423.     A$ = A$ + "[ZMIKUKYM3bBUBTD#i;5HU7YCPn3>2nSnQSHE;0]EZ:RlbCR]Zl?m4U9oQWW"
  3424.     A$ = A$ + "<#0;6KcM0\N`9WfnE#GBX#MED[0#S5c_1EG76;iAaA0\J7Q6jAGUSIlCIAAL"
  3425.     A$ = A$ + "i77:XN<_^Tbi9BWNdRP^;3JgjH8ZkOd3O3\Jc[[m3mV8081FhXhJV0aj^L5?"
  3426.     A$ = A$ + "g0NL82IBCjjR9[:73a\V<8[M9S3CTh:OLY;>FQeH[#6;gHW?7O4`bRH`HCUW"
  3427.     A$ = A$ + ":PEf7#XXnZZHAFK1`R7IoRDa8`jK:X9dTm4`Z0G>P[j`HCG^;a\kg5`RWmH9"
  3428.     A$ = A$ + "4d8fK7IXQSe1_1HmAOd0HM?WFdSC[_TM#Ek[0JMZiEMSbd7^g]GYKUnROd?4"
  3429.     A$ = A$ + "a>IDE;NUSSP4H\BaKH<bX`W8PUfn8REc8E;eK[d?g;=a_V2E9ZEZkMHFW[<9"
  3430.     A$ = A$ + "KM:\K^^b9MPobAGHVeeR;Cfh`eQ_mKj\K\PCWGG><nXjdTkXH=]47WS[7R9J"
  3431.     A$ = A$ + "#80fiHP^:;#UMJ#ab54ahmZQZWUMR7HCM[V9D#1E2E^3R6b8kU8FMnC?W4b4"
  3432.     A$ = A$ + "GTKCh1`TleU=OT9Ac?jA\J^AGe4_VRIbXHQC9G^ldoNgU23VffA`<fl6XV<4"
  3433.     A$ = A$ + "b?Y\J[S33:aQa=_TnXPBmLT;=kemljNg^[83g:TTZE>N9bi3MSV3m;>di^d`"
  3434.     A$ = A$ + "16k?B0;]\[7T;]k5EZ9BPV:;1=7a>Fm0>gbC`Q;T#m#eNG2g8jYHYiCZSk_M"
  3435.     A$ = A$ + "gn\3UOVO8Y64_f`CI^6Y9^5HX#KKW[2RIQQ;I:g<ll1LoT:689[^jT2;[8g3"
  3436.     A$ = A$ + "RjIX1F7LCZI\h;08k>D9B>knkdBX_NXAfW3i0kYcUg1HYDh#1[TmmdHb6RcV"
  3437.     A$ = A$ + "EV0Q:hV\n7e_P9P>dLd\CP2=oT9;1Q78;6o5F^bG6`JeRXAJMg33]1F`TBNj"
  3438.     A$ = A$ + "5?nZCXE4kh9nF6mWBe36[H]1FISTSB[J^_iHhE<`:M2\`#jH;2FiHQmbWn:g"
  3439.     A$ = A$ + "5]A:F^j2k#^>aI0\>Jg8\Dj>K`9?Z6?Ri4DGW04T=HNK2\JAkhDgNZB=#gFh"
  3440.     A$ = A$ + "h1baek#S2AFDPCTVC?PIYYBMEF?g74RF6oMKD6C9C7H?mdW_8FeZ#R3ajEJf"
  3441.     A$ = A$ + "jiBN5CE_\D#RV5DQSc[KC2_KS=bP7#Q7j0jo#U3AKWZR:X]DAbbPX8\FUUdV"
  3442.     A$ = A$ + "AdPf::ABITKooEK9cYlF7;InIfSgIFdJf3dQd8=N>2nOB^B]>=Amlk;BlVU?"
  3443.     A$ = A$ + "?5T2>5bQ4oU\P1Fe3NNf=j9RU3030FKGl0j3giLOOS`2Y?E0HY\T7g;f^\^M"
  3444.     A$ = A$ + "2\<cfUBR`ZUZE\BJTo=gFGb;Fn#<Wg9`J>9EBb43O3QiN[\HClF<_G`Tc_M5"
  3445.     A$ = A$ + ";Nf6THR:;4[UBJQd=F6UYU=BNR9F\ahQ4OTW?`8BV]]Dc7dG17EQ4M#Z>Pf8"
  3446.     A$ = A$ + "QT\j?LNMe9=d0A2Y>CFSDG=LDKA\aanX;jhPL`>g:TUmU3A0Pk50\`gJDj]>"
  3447.     A$ = A$ + "IP?>h6^aI1TmL[OMT`NETI^Z2m91TQCYS>1a3b7Aig^LIia0;Z>bn=GA?0a5"
  3448.     A$ = A$ + "ZH2DQJ_HEAjlkk2EiWM;XfR:DU0HQ9]P=Qf[]84FJ^J7naEi6d<nP4kHFghg"
  3449.     A$ = A$ + "D`]#>FXXNU[Eh`cW0JYW3F60i9UEa#gGRO=;B=^GT<TjE\na8OUBP\\P]ZB7"
  3450.     A$ = A$ + "gEI0cT<n5f`^K0F_lSoaoH3\h4h#k[<<#8l20[3PKD7`<i#R_SHeB;SMYBK5"
  3451.     A$ = A$ + "928EkCg6HQ4lhBQJbPRjHa[[ZaQ;i4c9\9mZYhaG744DV1]WbjS8F>jE\=5["
  3452.     A$ = A$ + "Ze>HXR`I<1`2U8##c\OKU4i9REkk70;cf7^lQX9T:YR:L3o?k2TRH3PUb=_j"
  3453.     A$ = A$ + "1j8;EQTUGQH]T0F53\D\P1MF?ZmhFI_6[8c>JANVJ`SNnoVaR;kM\9d2H9VS"
  3454.     A$ = A$ + "V^\9R#CPEJe6OdjV0F:FU>P\XGe_Ve0HAVD2OdLMR\X7SiC5>2FICIUUZCV8"
  3455.     A$ = A$ + "dSi\_i\E0B^8E9SCS5lmG2>JUfDN:4S\DS#GKF;HHfal9UdSFfDF7;0[=8md"
  3456.     A$ = A$ + "dScI0m[7DRSQkUB9DNTXljfUTX#c<fIM<`N?P9AllO7bHh8e1a<mU5Mnkj\9"
  3457.     A$ = A$ + "A\T:dP^;;[T6?SU<A50<TP]4RWoUJ`QhKAONMIoH>:Rb?=Y:mYd\WRGIQ`h`"
  3458.     A$ = A$ + "5biQfENGGg\U5aTj^?k`:Ge4I>_;H7cTVK0cLdRH771K0n1gO9igilAT3iV4"
  3459.     A$ = A$ + "i>oD9IkT2>eRLmN7K:;3oRFNYhF5IIeBR5[cWFHI?JX=dfQiem26V:#5bdHo"
  3460.     A$ = A$ + "A\<eZZ3_>98]fGEjQXSQLQSOb?i9oh_am7BoGO;PU>hmk0\6[\_=1FOSkefL"
  3461.     A$ = A$ + "JJ7i:Z1Y]GEa#W0;HiKSKj?<1Fhj^;P5:N5gPY:fj#A#>YcD`Ai20;YV]c[["
  3462.     A$ = A$ + "iU?7hH<Rd7Ga7nCPe3=>eV^12MGk=6[XH:mEaV0F5Y9]7:5C>M=5E\JGYmSI"
  3463.     A$ = A$ + "\Ug1H9a]E0[Z_[eh<2f9oXVOO]Q`9IkZI5V>[EL8[PgeH#0m<S:n^=8M4[fd"
  3464.     A$ = A$ + "B5Wk]0F\;]0H5<L>KGM?RM\4e6XEcRV?EFal4;a>1FH4[CNlC7GGfnWe8fE>"
  3465.     A$ = A$ + "PF<3`;kZ2XHJXGTaX9[;OEBn>dQBfbJ1\nQh1LEZV9_YbYMY;=`G3RZZQgH9"
  3466.     A$ = A$ + "b:KB<HMY;fh8FFKRlV\8IbTG=fK[J[0`aQ>[88ZA9IJJN6[W:^JZ4b4Jd5l6"
  3467.     A$ = A$ + "5mZ<Q07SDP^XY;hHNMkZ]cBkQjD9Ck5>d<L4k1:TO\=`R7GkVHIoZAg?YQ^B"
  3468.     A$ = A$ + "R6dDG2XFW>n\ZLDaQaaDZ=SE59_k]]JlSJX57jd>Qc6Xbka3A5aNVm^WK[Vj"
  3469.     A$ = A$ + "o5BR`S=oH]:>ZNB^_kc__9fnh5iAhb\12P5;6V:bTKTLFb8o<f<][B1\8afY"
  3470.     A$ = A$ + ">nU^TdQB9DEC?[ViE_E8RMQ0;jEMGLJFD0KGT^F`6;\b=Wc[Zm>[AUgK??:a"
  3471.     A$ = A$ + "`a3R;XiHNk=`B7MHO[9QD6cRWo2gN>=lKd6PVjc7?R3[^;k?7:ie1WWLXIfX"
  3472.     A$ = A$ + "?LYUD4kgC4D1BF>JhGi`l1[bCFEP<gZZ2aJPc2Rj[kacWN2=^0T03mZX#:UO"
  3473.     A$ = A$ + "]Z<mL2eL5D3PEmiBoU[DX_Q[VcG7d8:Yn29OQ6ce9dfQD]40[fcIf#e3T>Y>"
  3474.     A$ = A$ + "`iAeNhL]6C#GCW3VJf4X4FLM[V<ji##]iNQ<M[4#b4H]GM2hL]NomMmiSWlL"
  3475.     A$ = A$ + "5;N>\mRWYW\kfXWWdTB4ASFFd]PmWC^;SiV#^o<CbRBCDF<BQkZIPeZl8H3\"
  3476.     A$ = A$ + "B?Oi^5G5Se9`BNNB>IPe5<8SY#49?1FVOOf7L7?kFQLC9;YQLad:1`:4[J<5"
  3477.     A$ = A$ + "l[W0;aX]Z:3=5fEV>:n6^F^Zc]IRFAaHOl?_5];PfSCFR:mHk>0\R:oc;n07"
  3478.     A$ = A$ + "Ve2I7\4i5FYMOMI[RKfMF^Fe15bUPM>B2Q#:OLZTUgfhf#EEE1j51\B=KP`P"
  3479.     A$ = A$ + "dPTS4\L3IA>^Mj#_i0H9N<VKGc9k=j0Q^c>3?;^<jDX:JbEb8;O_RE]=9ajW"
  3480.     A$ = A$ + "=0S5KYJW8P9_cJOb5i:F3XM\KH`>PaENA^n:WljI>F5=eOGHYF9G5DOQD\Jg"
  3481.     A$ = A$ + "_dH_Bf<?bmI[iE2HARPHP5J_==OJ3\f`#`[Y=LUDGPcVh^M9L8QA3PUl8EIg"
  3482.     A$ = A$ + "9?2HeeloJ5DKLM>>>UM6<U<J?h45lLd^b71\HkF;V8aRh^h;fV1F5[Noeg5H"
  3483.     A$ = A$ + "AaB3<l29feEA>e5mP7M__a5jA2oDP?ZcgPEk<eTQfjOoS:GUHjW[ZUTIY>JB"
  3484.     A$ = A$ + "YB_>K2]eY1dEW5hW<bb`5AoiFQ8;]E>_:PJgR8>6H9bm02jU[FW_K0H]BmH`"
  3485.     A$ = A$ + "\`UESEC:9>li4HIiAJg60CAnlTj\9MZ:aGMIC:I9SLn5YTT=LgIM0XfYIjDl"
  3486.     A$ = A$ + "i85`JI_f\ZN#FViE\TJYMiYd:jQg1AihNUUcNSI?WU=nX1_5k:OI9^^LhOXZ"
  3487.     A$ = A$ + "KjU5G\faAU8<SB3?^9]9OdAZ>C`^Q7HGfJ9i`ASm]2PUX]6;eXV4m<7210\:"
  3488.     A$ = A$ + "n;l3B5XZ6HIal<]QHbg2\`jAlQl9`j1=;SLD6>`bEX`e7TR;L^m6gfG[BMQ`"
  3489.     A$ = A$ + "1LGi#idRHWDaH4`KjXW_MnlBJV0el5ZM601BPeA0>^G38[0FEYl;E?\^mK0F"
  3490.     A$ = A$ + "#`49`2h87k[I9OA:S29YaI3?<>1F=b]Qg5Hm#CnES0FJj2EfkBR<\5h#P5c\"
  3491.     A$ = A$ + "[O2\P]O]:I7JELb#iJGRE\dclT:=fS1FgcACMG0[eM3\FE2>J?aK1FS7cW0;"
  3492.     A$ = A$ + "FGf71\X_j4JXTTTD#^Q_DPUf#99QeQjZ]?HSWL:Bh8L;Q3o`^TUOTi_0F<UO"
  3493.     A$ = A$ + "ERNYDeD<j:Ki[aa<e]O=OehXH>FDWP1LKMUSC<caRcd5h<0MakFf3<HUdGUK"
  3494.     A$ = A$ + "k<_^X1>_AChj0:NDU1=Yb3aY9Tec7Di6[6B6aXH__H3=7foTd92f<YSS`?hZ"
  3495.     A$ = A$ + "#g;c[L#MaGU^898o<[gNhcPJg5iTUl<[2:Ol6LldS?dS=0I^WS5_cbZRKI_T"
  3496.     A$ = A$ + "MEXT\c8e=_4X6];E_B]`ROVaQ01Q`_KA=P>KbfX^:I_077G_HE61K`iHe0JM"
  3497.     A$ = A$ + "i>XXZSgR;d<a1H2La14J7dV8dI#^LWVd64k2Dik\XTa^7;ERcHfL4mVL5]FM"
  3498.     A$ = A$ + "U\D\oTWlY6HUYlFYS]I^Xh9bk4H928cQ971oYOj3:1Olcm#GW4o6PUXdYfHc"
  3499.     A$ = A$ + "0[34_SU;DQAUP7FDce8efZ6?FJZh2QeINhd4Xda_oDmI^D_6K8RllhoIG`D2"
  3500.     A$ = A$ + "\ZKJNEXZ_QO>5;L0cj3D8<AI\`Y2I1L7oBNC<PUI:6oR#KDHBkc?c5iZKI>5"
  3501.     A$ = A$ + "T1i2TfmgU1j08o7NXCFSb=<o<S1607PDT5bM3<_YS`ecQ9b_kl`V0[?mC_W\"
  3502.     A$ = A$ + "Z_Fg^`ZX[>b60;bQe5YLkEmd6?i9GkA\JD570;Fn:Df=>Jkbj^F`ai8`R7#E"
  3503.     A$ = A$ + "S7Z17SH1`:53jU6I2alVCPe8ANdL8[]4>7;0\N]NRTX:4C]eX#hBGWNn4H15"
  3504.     A$ = A$ + "T1]JNMC0[?>0Fm9]gXoPXaiIKWeIZ`:jXilB[HAPe7cKdMf<O^c[DX_Sf9`:"
  3505.     A$ = A$ + ";P5g7e[H=>0#4;:0IBlAVYMK?McFHS:f??oTU`X3Ccg?Mlm]BUU42XX>>Y\4"
  3506.     A$ = A$ + "^aG^g`S?P4o0B1R]8]K[P3I8F]__^Q`Y9RmIFU?P_lLU=3o3i7KZUciFlI^\"
  3507.     A$ = A$ + "AaWFcf1c54VF#RBmJH3:XVABDBeaND\4H1b?R]MTb9N:?F5YP9Z8EU\1FeT_"
  3508.     A$ = A$ + "?O_`I#o?0`2#?F]DjiChYaV1FF>CG0`JeaZIV>UD]g7ILM7#TkI[oODVKmQ1"
  3509.     A$ = A$ + "Ugc9GJ2K5>N3VILTf]0JVeha[T\ViHA560h>2\:?PicW[L4RiA<TLldb8UQd"
  3510.     A$ = A$ + "3VRUR3a5E[l:YA2S]CjF=n\9fMcmCIGLKdANc#9?4`Bj0<5TB5k[[TTmRZ[Z"
  3511.     A$ = A$ + "615?m[DX\HMab;bR<k1E[RHI7\`[;kJ5e\h0fHob[4k?^ZPV6m<f6#cVfE5k"
  3512.     A$ = A$ + "[\aOUTHRPeN>hD#;^`XJF0die#?JlhOa__P5mZ^E]HfBXkZ19Z_<en<[mEYJ"
  3513.     A$ = A$ + "871SHO67=N8W7;#UYcUCPU^]7UK#Bg8eK6YM3SHelK082F#QR3?]3EJ2>;T4"
  3514.     A$ = A$ + "8KC6dG5cTgM\;jgJbY#MQ:UfJ8CU5Y[T4CA]OO2\nAo80\jJ#ld68DF^=eI\"
  3515.     A$ = A$ + "DCAP5eh4\Q>=bcNLcBR\L=n6Jk:RSXZT4]Jc^eZZ]?>0D0:]iQTHWLO4`29j"
  3516.     A$ = A$ + "Pl_X[PEOPS65Y0C0\:Z3>mHdJ]^19??Ab\E0\#7]?<MMD\5]RARo:;0HMP2I"
  3517.     A$ = A$ + "=n]mV[^`ol<Xh6LB0[S0Hi\HH15annHVAbNl5[Q[mf[W0[dNN2\fW0;kjVS#"
  3518.     A$ = A$ + "XLQ^E;fh?id8c1F#[1ZHO1i76U^?>Smi#I\TnO52iNTkCV^>V1F_Tk\FF2PE"
  3519.     A$ = A$ + ">0FD1\5`JU[HYi`P0;7k;R2W]kDcI[^g=k9XK9JcP>W2PeN0\nPWCa]P5:Zh"
  3520.     A$ = A$ + "13G<oc\62bW3HGUd7?l#6K5nloYoR?5aBbf9M637?2J[_Z>E^;[VA:T6EHU^"
  3521.     A$ = A$ + "[l^S5WITjkjQeGI;d7TdYelNKGWKZGHA89G0SH[Qlhd2=i]:WgENm6^OC_?R"
  3522.     A$ = A$ + "V?W\JSiWiZ7GbEa\>fSaDA[mM`WW=f:7l2EVREc=aJn4W4#FU?KgV8IWSCah"
  3523.     A$ = A$ + "P2hM2UD9Z[m<fdNHkVZiahN7FNYWU?mFSV7:Y>2i96a^ZBB^XjHi=^4D\Um\"
  3524.     A$ = A$ + "GI>>C2MQjL5abM?70[]T42JB0NF:OZlW;bX9V0[MfB77kMd<#EK1]]W8QBRn"
  3525.     A$ = A$ + "86jOSl3hMB3O=:H8fOaCn;nmO>WhH<DBZNO\c]2HeMIJlXEgXdTbb\ongo_i"
  3526.     A$ = A$ + "cn;H\g0\h62fKVA]9_nHP5FcJ0A:A\Wb85YlF^Y1S#Rebhd;N5[D;M2\RHYP"
  3527.     A$ = A$ + "dLHk=ACZV0Fb?gH[RFUV^M8O1hXMC\ljZY:45UR=JNLfb[G_bNdMT=`Rb^60"
  3528.     A$ = A$ + "FcH;FkkDc2EkC3P55D0R>aW12kC3PE4K17U`niZT2\#X8bJ2;8`:WTiS#:;="
  3529.     A$ = A$ + "o<_Z^`011555#NX^<#Q9`b>g[Z0ahW:RUR4bH]V=I:B`=G^0NO>#JG8cRYgQ"
  3530.     A$ = A$ + "7cRm27E\8fkh54EL#MJFN:NRLHUf:3E7#e6JfZWaO#\OfCnRo]O0dKfDH<5m"
  3531.     A$ = A$ + "VGRe[H5C;0nf[j7POU]WmMogocnRA\^b4nf\dcI=:D5GkDi<ZB55k<UjI\b6"
  3532.     A$ = A$ + "FQH8CEFciT1RVN55Z];6_WjIdg_E>4hA\08Eh\5EmhKOELJXBmbZdDUGi`g;"
  3533.     A$ = A$ + "F?LdWGGEH=bTJi:IEaalAfk7P3>NH91`Rl\Jl1JNMU7S`QICWe58DiUT\DJM"
  3534.     A$ = A$ + "en8>WK=\dgjN4[bSZj4eY\7ec\^^9E52FneRmG2U3F4kR\Y;8c;I=8\nad0#"
  3535.     A$ = A$ + ":]J40;[?FN]W8FNXETg=MR3ZaXXhD50\fFMoSgS1BL9Q2l5andkX#P`VLR9E"
  3536.     A$ = A$ + "U\MWjb=JnT8C3?6KVZd=1F8fOfCnUoWnGo?lO`f_a_iUgkmOogong_>noo2h"
  3537.     A$ = A$ + "Jkg?1FT;V2HQG6Q7]Lo_egmOgoQofOYR]6anKPH[ho>Yc#cR_0Km6OoSVAi_"
  3538.     A$ = A$ + "VHYe_A1Pl::UZnMD70[>Z4cK7kSo<?f?7TYQV8VdPblZE8TBkJoGke=1CH2V"
  3539.     A$ = A$ + "YgKXVeXI[Vb5==Yb_Z[;S]SkEkW0;[4DM9=gmO]aBoG4k1\;n^[i_D6]>O6l"
  3540.     A$ = A$ + "[9f2<`9Ff`ZeZA9lJF^Yne6K2nMc8Gg]lh8Qb[Ng3Ka8]Tne6;m:7:GJBWI`"
  3541.     A$ = A$ + "T9Z:X2CoL9Rm_m9oUob?i?hOaoXOWOW_kgi3nP?hgkgkKo]ofO`ohoIh?oCd"
  3542.     A$ = A$ + "On>OgaOnm7o1o=O7lWao]_coZO`_hCnRob_>f_>f_RHoRWliOf?kWmOnob_h"
  3543.     A$ = A$ + "WoOmW?ncOeO7nc_j_jWoOkGlojcn\OjOcWoeaneanE4kOcG3\njHoo4a>0FO"
  3544.     A$ = A$ + "nWm7lb]k_oEIEIDLFVGmZGcl[N0oie_lUg35TZGoo14_]coeocod?oonGlic"
  3545.     A$ = A$ + "HSmWCk_lQ7h_Yj3_nemnhWTmNSmVU:e#o5_laanP63`BnoKNi#ONh?g3?lRa"
  3546.     A$ = A$ + "_GDcbJig]EnF[ofegijBEi]JA<Yo0WYja7hGmZaO1oCU_Eh_U8cWgnc<=c4T"
  3547.     A$ = A$ + "nmhSj[a?b8oX7`Oo[OXCUi=WoFUb_M^lZGm>aRbDL]okF;h64kQe[eONh1F`"
  3548.     A$ = A$ + "3=DdGKiGlRGlhHOYWm[AZEhWVEIlE_NlINlGNX9]U\8MOJl_haan2h7BTUjO"
  3549.     A$ = A$ + "[a?o;i8bnbAX_Ll8jneRjfTZ`d;Na[NL\?cCAh>cAnNfcakiONi[NIJF6[Bm"
  3550.     A$ = A$ + "g>m>OVOa87Z_Y:Ueh7oUU_in^SmN<eRZ:GSC5\UgSH7K5n[n3OfU;_o3LL:3"
  3551.     A$ = A$ + "NTV?=n?LLJg#UBo=H#fYZal`oSoWS;l_j?lQA\Uk?1FI[bd\kK\USL2JDcZ?"
  3552.     A$ = A$ + "HYXgOQSme<F=D\5=JZ2H[Yl7obN3=gV4j4DFljaanZA\ik]N=H[\6W4[:mO#"
  3553.     A$ = A$ + "2GEIeVf4>Vih?>Flm]N_dG]\io>1FGM9lKf>l:[R`aPRR?jc<7o?L3aM]`HQ"
  3554.     A$ = A$ + "^7C7LKKlamjEZM3YGNce=O_0FEgObLb2`6]#_Vhb\?Q8nDm`=aV^glV1UB\="
  3555.     A$ = A$ + "U19BTZU#MCSQ:LloNe=a^O_dKDD:cMiccDin#UTHQ>[>H8];[;YGlXkETgYZ"
  3556.     A$ = A$ + "6YBnM9[nBjgS5MVm479f183an5?i_n?2LaVMGP6A_\E1e0JE:1GdR6EO1bUQ"
  3557.     A$ = A$ + "agjkOaWmCo[o[oSNPT4oD`O938\`dYBRSbFhZSS7_=LZ35kmEc8R:1F9?4GP"
  3558.     A$ = A$ + "D4P:?H276?K>XIf;PehOYSmEXD3dJYjBcA3>UA:MFTEAAE^8XIfhW8^^ffKU"
  3559.     A$ = A$ + "\^dTY3`YO#e5S]MH:h\DYMkM7k[[VA3FL0D7BC[iYdTRcd:UmR4U0?5VGGIm"
  3560.     A$ = A$ + "cBhVhHj;f?8BT:96X5DGF3oD=RmBHdYD\R#78=?DYYDCf`W>aEI>#;A\Ud6H"
  3561.     A$ = A$ + "5oMR62X_Ob9_`A9G95?\4cc2:WfZ[W?SPa]Zok4>ajncR;#O;WCAK:\#M>]5"
  3562.     A$ = A$ + "XPoSHoY?icOimT^2d20b5?B5NV2iBflgTL8^n\i9gono;oT?O4[V<cRJA5e4"
  3563.     A$ = A$ + "4g5J#J19X?M^B0WnQ[PE>[A\IcQ;R5Z9XYDZaOL9RS<;2U4E[jFRMMlhlj2m"
  3564.     A$ = A$ + "^nX7]gVUFWocX:jDdmZIG[XVW[`8FYCLbMW[1`B2^Dg33^h[LNE>[ih:5aF3"
  3565.     A$ = A$ + "V9DKFSJZg0\hjHHU<>gJT]HSk:c[[Tn#a1R>aUEaG>gV>>X]QO?[OeA\4Ha2"
  3566.     A$ = A$ + "DBE4M?3KX]YIh#0;jL_UHQ7\FklcLR]Ln^;ZCaDM7Yn[=02J=XMREUYUV70["
  3567.     A$ = A$ + ";[gLM9M^BNN6Y]#k6h8oHg3B1dM4>6?[<f?i9oiomOOoN]J]ZV^#KJCbjE9o"
  3568.     A$ = A$ + "NH=Y>LoRA=Fn6ObOn8f0HaU[DO\EYDfFi2DTojG?2OjZOT_\4a6T34[HE5kT"
  3569.     A$ = A$ + "h^UFWMidah1a1TRP`Sie5CGFQLOV`#=O4BW;Y5Z`]4cRdC1`baV5bBFGBcmi"
  3570.     A$ = A$ + "V<R^iOH;Y^J9=nS<_^\#i[TAEBSS8oKb298`9kk=ZXee6jXajlkKe2g;UA;9"
  3571.     A$ = A$ + "7PT=GY9`RM_?VZ;lk>REcdn]0[Ckgc0[5KX5EEnnBNNM9]QmL:CV=3=b44C#"
  3572.     A$ = A$ + "0;1Z\e60Pebic8jT9[kNVn1oTY0Q8P5o_Pm81]Il:FS_>8f?i9oY_gkWUoc#"
  3573.     A$ = A$ + "QCkA0;mRLAS6977CK[O`5ko6o7oC7afQdbZij6L4Sm6VmWOMU=0ZIPE?Nb?^"
  3574.     A$ = A$ + "lA\T=aLDYZB?^MGJ`bL#V]ceP?nLQ>Ho4c[;<k4fLI:W4L<8Z:m6\DGHEjIc"
  3575.     A$ = A$ + "FD]PI4KB[Cec;Z1O=e;j6VCfHHa>891897hh0<_^L#Eg9PS6eT8fU6D7ZN[d"
  3576.     A$ = A$ + "VkT8\m60`bkA\JDN1LPl>[9QJPK]E2AR_9c<aM[8?on2RJRe6lFQ[9c#RR=#"
  3577.     A$ = A$ + "71\2WkF?BRHcFM5dDU:Y^MQbT51Ff_FSEUBYj52\H\GT_FhQ0AMcA^J1XCcb"
  3578.     A$ = A$ + ">mJ<#][MHO03Pe8nA\OfW1PEaC]4Zb\WLYF<DQd6#CRWhEMR]33\n<1\4onl"
  3579.     A$ = A$ + ">Q`IChDTS\]4`Z?iP07N51\n\CP5BHOTi>7PC3\`LORfEKjhO#enN5LNX7aR"
  3580.     A$ = A$ + "i^RbhGSb4S0Fh_K0hX\h:>_IPUTgT8fH5[dB9k^DKPUWU33\4UjT:A4aFX0h"
  3581.     A$ = A$ + "T91:h<S9=JS?LiLG;I51]^njaK0759`BGG;bkb>IKNn9Qg5caEbmBcF:W<RX"
  3582.     A$ = A$ + "B4;V;DjB^GXJB]iSE#V8;YLlbZW<jL8>8c[kZ<bT9`:M2\f8`:C=NW?57W]["
  3583.     A$ = A$ + "8PeW9PeUDhd5bQH?1FIY6WVhX8a]g6H9k7n#BA#e77n8H[^63KNcW>BKg[Ll"
  3584.     A$ = A$ + "ah2Ode^j<;EBbdj>1FiTbNM:;4MU9O67IEaRlgT2#^R6dAe3m#3S`E>YH5aZ"
  3585.     A$ = A$ + "M]cd>O??Re6M0oUZ<\>DFQhBhTSiDb:ETTo\A\YTe2Bb4bh`_BS]^Rl1cF6i"
  3586.     A$ = A$ + "HBW4WM=RUV5;Z:0iSeQDh2e4`L<>iR6\m[_i=Ln8ccHU<j62D]4`fS<]1DY3"
  3587.     A$ = A$ + "KB\;bVB<hMf8F<9#H;`M2=Jb5kJFB05ecUmkDV\ONNM5MWU3YB[cAm`QB5b5"
  3588.     A$ = A$ + "ZX^i\=;3H4aTDPA\dZ<W8;CjMIU_JQ#PafBXa>[L0leFQOl7O2\>i\WM5JoF"
  3589.     A$ = A$ + "3>EHBW:gFM\0FoFOTN0G=aA9]JQLVI_k9e\ZPjQFF0[3NSFaRdPX#aD9mW:="
  3590.     A$ = A$ + "On>?QQeEn[#D3^X\M^ijZ1FS3fC0\2[UB\AWU=9WJa`]M4a^KPU440aW2>14"
  3591.     A$ = A$ + "XX44HYa=b0;LXf[c?c:kk:ImP47]V5?bBLf3?A67#N_AVCA\FZSmmJ^C7nJ_"
  3592.     A$ = A$ + "Jc=nFPEh:MUc?cRHD:mkFBF`Z\[1Z9bLb^2oCDK8>_^P:3TO;LM6YhJRINhO"
  3593.     A$ = A$ + "GIjO?J4k=`BaZ1gGf7GJo]1Fdi41P26lk^T?I\`a_e7mA?i?V0;?ZG=MP7?A"
  3594.     A$ = A$ + "Qam#BeN\`LSJR6W<74lOl8F:n\J`Ci2YDoOInFT8cRRGn0G0H1Vd<S]K_^E0"
  3595.     A$ = A$ + ";G9C1\PBG]BORS[;d;BkOZWGg0H=nULUemZfOcQ\<;An`^6#DBGH2nRH=`23"
  3596.     A$ = A$ + "b#A[B;3^PUj00[TdL:8cfb#:?^6aJMQX8EF[LHYbDiQ?^:?8P5>E:0FT<4A\"
  3597.     A$ = A$ + "^objVKGDX>gXlYDXWU9e`WfK^_<c__[dhGbJ#fQ47;PE9VF6jmZRf46ULNMU"
  3598.     A$ = A$ + "Tj^49_GXWmbaQVVcS5eTH:J7hC3\#\1`27nKG[H]85P;0Fk[f`N3YmKo4H=c"
  3599.     A$ = A$ + "EW`2ilhB0WX;WTDm6`NSDS30fjnkOa7;`A;ZI[1Fl4NXfGJV35?`KAFh#<G^"
  3600.     A$ = A$ + "=f6WGJ:]kb[k]d`RoK[EVjEN4S\eW30\D\W7clPfP9W<n?l#C6iAh4`Z#:m?"
  3601.     A$ = A$ + "TJ=blc<\Q1NhFJDVl\P0WRlc>hZO9N6h\<h=bJVI\RNoBEXU#4#i2U7oDB;8"
  3602.     A$ = A$ + ":h>Y>9FmS[X4a:;g<V?lCPE6iF:[K]eD=K\l^EVOOGiK1D#W0MlC9KOU6HU3"
  3603.     A$ = A$ + "oPU7[dD6K6;C5R;fLABM6XO3Hm7ZkT:iYXWQhcEViHYHGX6o_Wd93U[V8o67"
  3604.     A$ = A$ + "bRJRYL1HeZZU1;D:RmS5`ZO;`2SJ`dH:_5HaD;TlJg?171bRB^FFUc4kRT6?"
  3605.     A$ = A$ + "YDe9kl_QSG561RK1F:im:_IFPEm:_2iP[J^Igg1>9bK3\>eRg[MVZ2NDhCO2"
  3606.     A$ = A$ + "A_]Y3^_b]5a?ge[GSHgCBXB;da3dUlP5IcFM11Fe9`2O\WGGWG3E5jVd0RF9"
  3607.     A$ = A$ + "fcUWkmjen9`ZM3`BbjRhln=0;F\c[2_BPE8bVg2\fU[6BIRQ0;9<PeK0FJ9;"
  3608.     A$ = A$ + "`k_\lPaK0FkbE;8kYHE3FTi[8k43W:`c3R1FKg2\`ZgDIMCDCT_8a7UUa70;"
  3609.     A$ = A$ + "ZfFkd]aEQb2PebY4Y0QK<]F\B4c6NdR9PDe<:4Q6OQGjg^T5nlEmAChQ_Ic="
  3610.     A$ = A$ + "\bSZndd[cKF;ai?KPJ^HPFcZFEB6B9YUkDZ?Zlf?C>if[;UNB0\h1>Kf1:Ab"
  3611.     A$ = A$ + "kZo:`0ii>?b3B2Peh=>=:TSEfcJ:]U>gL#g80;Zf?nNFZP1`JlanogiWInj5"
  3612.     A$ = A$ + "6^Z3GHRZTl0:L5LI\3Nb3L4A\5L9URH[Q:AjnJPmPIHX`3bH;d0\ZjXnX__<"
  3613.     A$ = A$ + "kJZ\Th0g\<hfbLJb8<Im6D]iD7Mf;c__PRNRlWG4ADIIAGi:FkF]7][fbchS"
  3614.     A$ = A$ + "2TjH9`ZT>1FTF]lHPk;LkA1\hBGBhgGOGP5N8_=n4YY:\7>j17QlRleKZ`1S"
  3615.     A$ = A$ + "7;KOI0[BN2\HCh4`R9`LH7f4Lf=ReiJdeTV=`CY]ZfBBm;4i2a]h:DDf9Q=S"
  3616.     A$ = A$ + "He4SabTEc_a0;U4oQ0F7X=#6Ha=Q?RHQeGDHi6FJdPGlH5NhTg7kcIP56YCi"
  3617.     A$ = A$ + "32c?cH1#jM6CffCQ=`Bcn1[m67DbJk:1Fidf]0[B[6Z`9^Z6HU\Y_ZTLCYJ0"
  3618.     A$ = A$ + "\VOVY^:8QE=JJCfj]P0Fg9P5Z681F[ckc<MkD0\PCJ60[41FYCPU6;]1>Ik4"
  3619.     A$ = A$ + "HQQg5EKG0;:V][B\eV0;Z;?JDMFD\3PeU;]#VeXZ]F2C\D:mXdVTR_Oi5NbS"
  3620.     A$ = A$ + "_`_LLQ_L9b5K2\:N5[mliaaLRfSobg3B7b=ab64kAH\bCNgECk`5c7\TBO66"
  3621.     A$ = A$ + "2#T?K4;1FD`I6K^Nm#B6_:DjAA[eB1SAd7FZb#4K>Cm;90FTHoL6R0eTa1>B"
  3622.     A$ = A$ + "HcdRHTMAE<KNMa_^lNGmGdJD;]]7T31ZDAAK9B390#fmm8FaJK7V6m2f4JRV"
  3623.     A$ = A$ + "XVfYc42c3]jUf>o<7^Oj:F^DiFi35Rm2SE\:>5L\RE4[LjCZk2DL7IUhU#VZ"
  3624.     A$ = A$ + "aea;M43nc0H=o<[L\hTB<b8jRMl`THQlZLMZ5I=1SG3i:S;KL^271K]eP?3["
  3625.     A$ = A$ + "YJ#[O=;9d4QC5Cm4jN=PP3;_oG=`BSdIF>1LcSQ\FZSBIeI\DW6^ZI8K\ZfJ"
  3626.     A$ = A$ + "R^lJG6GIKOc:07=AdEV?F4kA\E8f\T0;F4<ZB9NCLdR4jB;=VndeS8fCPeUj"
  3627.     A$ = A$ + "ADBh^fFeK^1>hTX<TCgnZ>S5[<>0FBeM]YJPNYi2Tf;BW]j\`[#6LZkkA\fi"
  3628.     A$ = A$ + "Xm`?9j=PbSJQ1#>EPeVB9L8]j<F#iLjPhf#gl4WaI^3b>4caZb3O9f=\GVOO"
  3629.     A$ = A$ + "9Q8P5;A?[TF0:1FFUAbbhf\a5#ZXWRHULI^bQDe0;N\b5ghi4[Y?BPKW65=m"
  3630.     A$ = A$ + "dng70[oT;G\[E9=h>99HPcBNGJ>89SOYYU3`CYZN0oWlW<1FeI>FVj0S<eJ^"
  3631.     A$ = A$ + "ZUBJo1QbkW0;5;eBZ[j4NSTQa9ZY6;bM8[Hn9>HNiTd6LlESHeTlX5#YT9Sc"
  3632.     A$ = A$ + "E4eWT_hR?l`QJhhAO=0F8FJ2lXo`3PUV<9eMbVbaR3l:W6Y;N5;<9daeUlmX"
  3633.     A$ = A$ + "8[4G7^X`3RaSTanPgeL_Q>2PSeVfSH_5HY6MGY`O[1\=LG7Obo#heL\Z6HiX"
  3634.     A$ = A$ + "IOkL^YlTI\K?IFc\f^9Aanln<ZSEQ]Y6bUlZLeI>D5DfId:#2CF\of=SE7fL"
  3635.     A$ = A$ + "OGMXD::HFFBN87Zb:X9#C[H=1FW5K`H4=S>TJCjh7lKEGRVU6TWA`OT1FmJd"
  3636.     A$ = A$ + "=N:cHJ0`a<g8GUY6S1oe>Ke;1FOD0\DQ0D[IXF1RJCHgjNMSFPkEaA02\>RH"
  3637.     A$ = A$ + "_NXiFn036OC733PW7Hk[3id3?n?LRQ7cHYViSI:KIQRJ3KTnQ]B\KdRi];bW"
  3638.     A$ = A$ + "g`9lRHMeAeBRD>A8UO45L8WedbVD0BO3molmI\LP0[e`WkkZ8^LfLYH:Qe^\"
  3639.     A$ = A$ + "CIjRFgRHI3kT7^];W2<VLI24^LgMlDQ<C\Z<CWdljbm2G^X1C=YJJ:S<QN;1"
  3640.     A$ = A$ + "e19\IE:76TklIdUkF=08[i]F\TQE3=<JhX`Xkl#23Xhk3WYh7lKNYZDIV0;l"
  3641.     A$ = A$ + "[G>gAcjk\1FeV[NDUj?n?H4kS0FFDm;JNlKalTZF339P4]k[TSHEb?0>LEjl"
  3642.     A$ = A$ + "`]0[ADY=e##b26:XX8G75ke>E9=lii:[]9FcQoN8`Bf9FRS;hA0\RHQ:1A9I"
  3643.     A$ = A$ + "#nP7CX^<9H8[ii=0;N2]I\UfS1FHSCB?Q\1F]n37GMkgO3#NiigGECl0HeN;"
  3644.     A$ = A$ + "P57NFD34=U\FQNRHcbE:T=f;gKFmDD4_Ki^W2RC9Kle0[mieUfaj2EHVMYPY"
  3645.     A$ = A$ + "GT6Rb5JHMGgK1_:Hk;WOVA^kEGEn9`2Xk0H194HacJ8h0aj5[ckj1\iN6WC="
  3646.     A$ = A$ + "JA;CPe>UO9B9Vn<1nJi6PETR5[SUB<SG?N>bf=J`HSU^\O3Xd0;fP^JF4=l="
  3647.     A$ = A$ + "fGk0`ZcU0:B\iIJ;A\>O?^g<bC3imea^]LVnH[MhlnW4GOh?J4kj2:f6>FmB"
  3648.     A$ = A$ + "A;j42PjdSUZ?6HMNMIiD3a:655UlEKG>h\fPcFg[49CD>\i;BfhfZ<_nN`f="
  3649.     A$ = A$ + "::T5IYe<cImdEWNL2\BRW:D?\U^:kNdbb<^NiY?5bZ#9TQI`cQ9`R^Bb:Ea?"
  3650.     A$ = A$ + "8Tgi#47fi:?D40g=1=aQ?>:[W0[k^\65R5^c4g>5B?`JHO:#lj#Ma8cJ`eIm"
  3651.     A$ = A$ + "]1FNja9?EU:MZFlD3P5<jA^V`h4n_5`ZN2\Zg2\dKoQ9CS:XG>:W[Hij0PEJ"
  3652.     A$ = A$ + "6kSRb:e3^E126TT9h#Ze]^l8PeEFD2V5Wj2=hCjKNCGDEPk0CKIOT?ek0\fG"
  3653.     A$ = A$ + "Ag_5`Z8P5Wia7djNejL5[5C>Fi<5g2\RjRb2401EYZZ97Cb]8o3>PJjM1FaA"
  3654.     A$ = A$ + "I<`JLAjj#66HU35>YM2>XK6RL[^1H9NcTH_2OjCI1BI2akd5_b?6HQYD=;AN"
  3655.     A$ = A$ + "D0;]`fRdoZTiA7>V6l<[CPej4HU3PUihP1F0B]8WY32AQ^^1`bMlR3b<]XgF"
  3656.     A$ = A$ + "HJGBY24Oh;V?1_=`BmQENjXnKI<^;dZoKjPl0T\M^]217ZhA=<\fEK\[ZVJS"
  3657.     A$ = A$ + "LTN8hFBB2kkl1\PELM`3QM1`jo?]>#V44EcblN9JVdaif:T0HPH>1A0=C9`R"
  3658.     A$ = A$ + "M7eB0\FF<7D^IEFAQ#VdOY6fQ=M039D47U`ZZ98]O;`b7VCn;P]5;iWkMeDB"
  3659.     A$ = A$ + "USEf3fOeF;3_GARhYB_WY=dj]9^1H9E]UiPac9LcfXhO7:InJ0\`j#H[<fiH"
  3660.     A$ = A$ + "P9hF6dNb6gTI]XH\#k6R9JPe2S5QQDBE=T4W3TcU?aX\5gW0;cS1d?dZ7kIY"
  3661.     A$ = A$ + "lZR6^jP6T?Y1`RBcc4HeIGR]iZ:0:>cQ4[:jUPNk1lRNM=R]476#[H91UAlf"
  3662.     A$ = A$ + "RK;Q717ZAdI9`;B:R#\LaZ[\6gZm9H3cS_?;fPLC0e#GDT2I_=7cH;[To2PH"
  3663.     A$ = A$ + ">TncDUS?lA84?PjbbgfUZ6GXB2j[[jR3o_C9YE0;m]VUHX7MV^B=kUba]N0C"
  3664.     A$ = A$ + ">0W2WoP5ii`kefbJ9;KRRTfShAblc\5g=jBZL?nl]0[mUWndU9`:;EWLNM9`"
  3665.     A$ = A$ + ":AG`L79H:PU4cFD#CT^5NLCS?15YiblId=0;i>CW0[Rm]7fMjIaK;d>k^1Ha"
  3666.     A$ = A$ + "So^BcjLUEaS^^MAD?AbRLgl[lh]0FT;LTF4Q[MTU24XS5fjOE0[#L[`1l4CO"
  3667.     A$ = A$ + "3nP[]2a3::RJ#jMfaL3<_AC89k=8LeLTb_Df]3ail^]cB0\ZD8i6GTK0F598"
  3668.     A$ = A$ + "LDk#]:=S=GiUUTM^92KeTQAG?1FB#Ah;<I=#4f#:cZ01GmJc\>j75dHY8FHD"
  3669.     A$ = A$ + "=BSokB;W1179Oi3P5TRCJG>\<RD]I2`1gfXDS:?MZETTf<YAfk;bmjI:h?6H"
  3670.     A$ = A$ + "A:P:S#U:\3iUUN\BfB0`9m\12\XbTN;`:?7Y1dlJ3\X?7:4\5>neH5;3\N_H"
  3671.     A$ = A$ + "k<^gCSECCN4NC_A40[#^YiFQbUcA\TD2T=0`oEY^3hZJY<fKbV:UlXY52L\5"
  3672.     A$ = A$ + "OJ]3928I8CDZabJD1Y5ITI3S;fiPKA\BQ4lQ0YGSG:A?TI1FAA6I7e`fJG]9"
  3673.     A$ = A$ + "=YHcXX=iaoBX5DLGW3?>6T=ZbAdaQ:Q_8UUjiLnmUbI1C050[Thb1]E0NGkQ"
  3674.     A$ = A$ + "VchCB5<UDUhjV28XlI?Zb4b`05AoT28_#;QVW:\gSH9eG:QU47eMG71OG0;j"
  3675.     A$ = A$ + "1N4LPENfU04c[;O6^3f[_hVg`VYPG:h:F5g#K>GIIZHkA\gQRcHY?3mjQU\:"
  3676.     A$ = A$ + "O:XFT=TX#[D:KHM<cBAon1_gkImRATWZJ7XA28Y4oTMAB[n9`Zh;lkQk`O90"
  3677.     A$ = A$ + ";BC>if=Rgk22`:B4OXO_b\1RGU:RVDFLZLB1`RbO41lI]E8SUmcFKTNE=9L0"
  3678.     A$ = A$ + "\dY;kNaPRLTXg1HmN4HA[B05M^fSMT95dTnJMHk67]m53#D0\N?b<61\hU1d"
  3679.     A$ = A$ + "i^H6`CaBn1em:YOQBAEVOOca#3:I;TMDlFP5ce=9IZDmBLNM]=UGl:FJ4kZQ"
  3680.     A$ = A$ + "PUU?1FIjbC#^^3Pek]WYZH19VIU6<TLeInS_1=5U=7_:S90R2f9`jm#KWEbk"
  3681.     A$ = A$ + "0H]QTgi\D\7T[OWB5^GaB<Z?0FG\>Pal6dbFV^;]0DV]0k[UO0iQ34]em?AT"
  3682.     A$ = A$ + "DWWTD^H<F=lEGWYjQboYV_M5;3\hCcdhVBV39VbU6]<3Y>9EP2;hgZcEM`RL"
  3683.     A$ = A$ + "e[fEdUVDUeIoDjFdgah62X:H7d`<W_mCKE4F1>D?oF0#e`OM#NZc39?F:#:c"
  3684.     A$ = A$ + "d=[L`=>mKMI8NilhUj`Q:i[3cCOK?IUKGa:Ac2V6FUk21i<6MY`:9=DCNX6K"
  3685.     A$ = A$ + "M#_L^Z3;UNRN8`:5XdDfY6SiaPF8o2EgX`ZYCcGn_#U96=LNKeKoT4`R>l:H"
  3686.     A$ = A$ + "^`^l2YM#<i1`JkL5;FiME19:EUblOCQaH8SUFSmSUf__DP5YYB:XTM?JD3^\"
  3687.     A$ = A$ + "Z<3E[QiiKgJX=e^?1\D5QGgNGPU\o`gN[#m:N6D600[fEE32==5IiT8hmY\T"
  3688.     A$ = A$ + "5K3\NcAm3?RbCXAH`Ef2JoH_6nh=FaBT1Ln0N99:Z`TAZf5PIOOJ=b81KQUF"
  3689.     A$ = A$ + "KOT]oNnRT[=O9=BbSIF5FM:gOkZZ56Fbi=L7ei39fH:fe]Z6b\ZDKaJ0\dT#"
  3690.     A$ = A$ + "_jL\N4`J>0RTBW93\jZdk99`j9:GXJ;B\Ce4HQBN2GVOKA\^2V7kRV:fdR:]"
  3691.     A$ = A$ + "5=NHFgN;RTCPe:UNLYZNDYhCN#3mDET8S^F3V9_;Aem4HE35l\\G>k_S1F^7"
  3692.     A$ = A$ + "d]##f>cCBE1Z77QTVJZYhjRZ2PVOJo`oA0[J04ha1bT`7TCN6:2BkbA^A0;l"
  3693.     A$ = A$ + "[nh<7;2\ZN4P4mW_j;3ndF\MSZ:W0a2mhFPE<gYnQLCm62\=]E4`Z`6O[9gk"
  3694.     A$ = A$ + "<F?I0dIGcjm9lD\HN^<0CGo#FJ=\>ge_gAkVkEhU3INL`B2>jQCWP>GBPEAj"
  3695.     A$ = A$ + "Q]JgZL4X9XdRXEnbU`ai[BDY]ZFA78<In^SD3?1FhF11FT]X4>MA0;nMT]hS"
  3696.     A$ = A$ + "jcU\lTedK3\:N[#iRd9iGRFWTGBZLYRfcld1W0;E4:ZQelXBb9?LBhZNnLe7"
  3697.     A$ = A$ + "_IIoVE\ja0BGeHlBA<TW`KMe[TY^WYeUHk7_1H5[Hm0e\aNFiAKhFEc`ZfF6"
  3698.     A$ = A$ + "Z0LnV]2a#kMm#DWi`nEbK2OKB0;iC;ZL6enaSFaRLJSU]SLR5e9P5_hQgdUi"
  3699.     A$ = A$ + ":b6O_4M>m6PeiMQ\hnXGm#SgdaK`9LU7H:?9hL5;fE3^J^kb>ZQ[=k`FX2bX"
  3700.     A$ = A$ + "m3ij\7gWPSMe:#YbSFccSJCG4KdCJ5[\INclk;e=kMbFDHL:l7O99adS=3>="
  3701.     A$ = A$ + "1F9^[9eiM6;LmUHD5?1FJB`d8#;gUS>PYKIX1F?kbdX#Jn<h?6HIeZc:d]N#"
  3702.     A$ = A$ + "jg6Nf5k=4no79WlG=`BN#G:Re6AZW><h70BDB2RneiDZKP5>ZKYdVGg[PMOG"
  3703.     A$ = A$ + "S3Lbj<8jDY9HTUV4[IaZdNU39M4;Of1PUXiP<NCbbRA`OOB?\^<YQU\mmgN4"
  3704.     A$ = A$ + "[1FZf_<YC0\:FFlaKV_i=GU^PD5YoSL\6aZ9#TJm:bCK2\#>M1cShT9;PEMV"
  3705.     A$ = A$ + "lnc^H5C]RN9cCe;KLZ6lAPC:]Mn2mo2Pec<`Jm]1F9EKgT[UPJB<j7aF>0F?"
  3706.     A$ = A$ + "S[H5LRRRf<Y_e^lhE1\\g2`DgESb9`j?3OX3UVQWaK9K1YeJ8NBN5HH^mLe4"
  3707.     A$ = A$ + "2\ncncNFTl^j]UT7TVVSbT4RHFPd[7_i3k0;<1F8fj438PeaQ4oU#2A2E[E>"
  3708.     A$ = A$ + "?1n\WWGgSS?\GEQW43AQ]3lQ0L`CigiN#hANEdKXh4`A\X>a[L:TiSE0\`C:"
  3709.     A$ = A$ + "iS1_YGd9n:P#0:cmA^Dc__\]gJ6\eHSQ=Y8GK5O17WmhZBK0e01S_kblk;X0"
  3710.     A$ = A$ + "FR7YTmI26V7\3kRm^`R8Igj^YSECe?SaBI[NWWB5;B#^NbglI939`REEgU7R"
  3711.     A$ = A$ + "?dRHY1KZanK9CmBUD1MQmBW5TEe]EW^5;=:o`1aB2T:>RiV#K?BA]L4o699N"
  3712.     A$ = A$ + "HA\fUlPH_diIbY3O4`B];CD#cKK?W>#M8>IR??kRC6cKTn>0;V_?V3Za[aJV"
  3713.     A$ = A$ + ":<`2aFe2B8AY>g:\5[<ZefhZOeK0F[Qi#1P5Wm1a;39flIELb3aJN0\HfaMG"
  3714.     A$ = A$ + "JfSS8FfeD:\a4HQQKT656W1\g`ZPa^9<ffac[jKVa:[<YZOhV><LjA0[V[\R"
  3715.     A$ = A$ + "6nfX>FljF8cDXUCCfN0WJMc>GYe?JT<dJbCgY1F8fTFeYffO<`:KkBRD`S>Q"
  3716.     A$ = A$ + "[dPM\#D4[Bb6e\G[ZTY[4_BP5=n4eR#?3eW0;4[4^kd4HYmKiDNIPEj]0FA>"
  3717.     A$ = A$ + "Fo`W]XR3D\^=QZ3CCXEi`f:VMJND<m>En2_d234PC]R6RGmV4OVb4nI[G2>g"
  3718.     A$ = A$ + "L2\F<YE?T#k_F3U0g7H7jXL`gh>Kn#:\c^W]XAFPEd7=9PTf\mmMi6<N3OHf"
  3719.     A$ = A$ + "a2AJJo>VGGdAR\4Al\DV;JEW<9#<d?L831`J93F`dW>kjcF\AIZ3a`?GdhMm"
  3720.     A$ = A$ + "0EK^WYBfQU=_5H]#O81RcDC^Y0=9MnP:T]63\dI6X9o<S=Q]Vab#L^nXf9kk"
  3721.     A$ = A$ + "cUb9`2P0[#;CP57<W\4cZ59_F4HM9YYbEFn4_I`e<gY>?hHYQZ6CZ8Yg7GaC"
  3722.     A$ = A$ + "0;>[>kVm=Q3PM^RU0FiZW?gR?SS7n;i?E:=ZSi1l>N<`R0PB8Rdj\:6He3XQ"
  3723.     A$ = A$ + "5YZJHU]4HYbCSQ?>U4_?e>Kdo:UJV;^><Ne65Di4#;Nh`5ImTJDJOOUW4cjj"
  3724.     A$ = A$ + "1d[ADG6O4c73\#SD#ITZF#JBiP3eGIM?[j4:;V0bQ1L>0dZGVLI>MJF\KBej"
  3725.     A$ = A$ + "IEmHnEUcC9n9?1FDf_E]4J=;\b5_mEaIociFOEY#eT3P4ab10[LQ7n2fRI^6"
  3726.     A$ = A$ + "UGR3:hUPh3R9_kUimi5=e>W0;D?Z;k;U#dhHMTS1kW=dI2\0WSWBg0;4ZDVk"
  3727.     A$ = A$ + "CPUYeenL^2M>Fo`kGd;^CF_7RXS][43\TDGM;`jSP]SeUF7YQjAU3C3ieS1F"
  3728.     A$ = A$ + "7a`Be[[U8fi#LL`RP[emjCE4Y^37FE5l1<0K9;P5S=dOSP5QS][Je_oQ7IeF"
  3729.     A$ = A$ + "0\d<Mh<lWOV5`ZE<YV6[Za^\#>62PUVLKb`DIBU4HYHeXKCa2Qcg5TfREEU7"
  3730.     A$ = A$ + "gl:\So7bRdN5_A`TII\iEYXkEaj6f1X2]1Z\:SHQUaJMO=<m9^R5S5<C4]1>"
  3731.     A$ = A$ + ";5HS4WBRUFnA0;>e1\HZ\#U<Fe1XTn9XoYc^9_TVkUBV:jYE8;:\kHGd:Fn?"
  3732.     A$ = A$ + "TNOV;[4H1MKP0;9GTJJ3A\Od0HMOPTlAe[a:F:o2Ec=O\>B`H1\Na?JLQQH="
  3733.     A$ = A$ + "jEgH^>5?Bm=EQX^eM_[RANf^:SHE=QXFYealNR3YdW4=XBMMi#:S4X#ZIg#4"
  3734.     A$ = A$ + "[gekk=C\ZCU\TeOH4c3d^YHe4>hdXN<o<SN4^3FC8_T?]RQC2OI_ZI4:<BQb"
  3735.     A$ = A$ + "6F_3K#L]=onbgS#ET>l0CbE\hROfC=dU3EEm=TQXY8F<eH[LHXYFFB6LaZGU"
  3736.     A$ = A$ + "fkZ^mh]iih^CN36aROmPhgihLJB;19FX:?J23Zc6Kk>IR0>XSRMAmcT=32^B"
  3737.     A$ = A$ + "C]HPUWe7fD8MnB\2f:\ZnI\2:Qi]PRMc29PLf>;>;Re>gPToE=7[;Tf<1`b>"
  3738.     A$ = A$ + "GU<8i0HaCmlU1\jWgX=`R]=Y9f6MXE\LAE]2PjNQD;c_`fK<YNf285^9O8FS"
  3739.     A$ = A$ + "clXI3Nba0EPQQm]1FaOY[LQOcK8e_hRS?#REABYP?dg2\6I<A1ZD[a>FTH\<"
  3740.     A$ = A$ + "EZI=be7B]=1FdMHW_<dEG2C\R3D8LHa85`BNbi4HDXIQo`QSOHL>edCM<6K<"
  3741.     A$ = A$ + "]C<aVJ<MgL>midMc`dcd=WYkl>LWLjcded=cdV^76Konnkco3??_ONoje7dU"
  3742.     A$ = A$ + "W\>;lJD22N3na1\DJ3_lYS><5lDNg^6G`>F:oN<6aAEeC77;D`a28k^G?M6k"
  3743.     A$ = A$ + "`?fcPB9#eFH[ClneoE0ieHf08>S3b2\1mn9a\l][;<cMZ>dFGbVEJYdk\Sd3"
  3744.     A$ = A$ + "IBM:1Yab9Z=^DjPV_=KmkZJ?OJS=>boFo7o^CCmd<3_iBf:g3VT_Y?gF1Jjc"
  3745.     A$ = A$ + "OHEHaNYX2g7ImGQbOF#Fen;d=NbE91Q_Mh<]#C1aUJHRA_00::6;O>bYTLAL"
  3746.     A$ = A$ + "X:ehogg5k`1UbPFJW]m\i7Gm<[[ZkOdb9eHl_c=XK<?#N=H3e6BC7Y;PcS5?"
  3747.     A$ = A$ + "Z:e;2Rj9N<:kQamT^0VaC:lMZ>7b<DB9nNiZ9o7OF#D5UG_:DPBZ3WkRDaUl"
  3748.     A$ = A$ + "=jQ\MI]K><A;c=^<2?XmY>nlL95WGAEQTh^;KFJaNQQP^2:T9APPjJ:eabJH"
  3749.     A$ = A$ + "kR=j5kLfG6TY9Hlil8BkZg<A9#o7mb`_CDmnW9_;7mEeOCPIhhldAZBg2=G^"
  3750.     A$ = A$ + ":>E=mb^U2M;mQ8RhA4CSNA0`iZ3O23h[46DZb#9[<Sd7^dL9Fk11C<0^C:Qg"
  3751.     A$ = A$ + "3=jo]R?Zn`:cB1kPeekk^WPDZbCCU057;R5i_R_NMa5ePGg?C^6JTJPWDMXV"
  3752.     A$ = A$ + "DHY6ajN\2c9Uk_miQI#EUf2T1RXf\bi`cIcYK2PIFa3I_SPncBlcb]11f>Qh"
  3753.     A$ = A$ + "7OOM3o354h2U_DDdCIe2DCO1#a<;[#iJd^7Ce594Y<H6i]V8mPT1j;]7][jb"
  3754.     A$ = A$ + "kO6Kl>k4GATfKRTbi8QDadMm2D^L:n;ZZhLd<n8aWcZK50jjP8Um#QDDjdmf"
  3755.     A$ = A$ + "50aBEi=RKN>>`gT=Il0<D3fI63n04j4[:SgFo<h]H^K0R3aBfKa`2K^[NfIF"
  3756.     A$ = A$ + "Vi\jD9mjPPXHELQ^`\?domD4Z1RhkX5;feCLOUK03j_nBWGC3aIm_T<6Y]18"
  3757.     A$ = A$ + "f_S;XhaC92oi^KFYfVg#OaUhTa;2ZiS[_EQ`J2mbAS\4gWPj^cP0<?UXc7iK"
  3758.     A$ = A$ + "8`RS^_NY#A_FC87eh8Ob\K10ZHhMnZA32IPHf2>0MiQ:CmO^\FY]EO;?=_Md"
  3759.     A$ = A$ + "cmP6ZVO6iAeNd>E:m\ndZL^\C6Hae__gO6R0Zb[0ZVgdL7VI<e=a3n8Uki0Z"
  3760.     A$ = A$ + "]842g?kU_9C_a5XCF2gNQ#9IH\M?S:Ui[0Z?^gVTWmcmTf^LHUaln\N2F62J"
  3761.     A$ = A$ + "fYnN5<A<:f3cW_=2W22>E=kmYC[#e9h3d=d?JbANL7[L:GKM06F\bBKT`8<j"
  3762.     A$ = A$ + "fe5?#EHmB64TdcBTLZ]9jLQi6B1fUnV]mWSKjni8BUZO;1k_1G`6DLgjjI:3"
  3763.     A$ = A$ + ";Z9OfMlBWFANQkHiT#CgcgP1h3kTHL;O7A[oBkidMc_^][?\F2m<<ZWmWnmn"
  3764.     A$ = A$ + "IklUWEH?D1L_AXhRj?IQ<X80>id6EX=R[bdOXaGG:EK<2`Pj_HTATMZj2jG9"
  3765.     A$ = A$ + "io=]>_>_bj]=]9RAJl4ZfW]98ZCl<;52S8nnk:NJVjUU;#\ZkjY^dgV#d2J2"
  3766.     A$ = A$ + "GLLa2DhX8_ii_H3?>B7[Z_;F0oZklog#b#MBE_GD?ZYieCiNWZTK3MeWnkDV"
  3767.     A$ = A$ + "hGZOa[^dhJBGB84o5jO`JT^LNDNAmS0h5UnCfhT`Yc=AS8`D3BZnZMT2hCe_"
  3768.     A$ = A$ + "JdG?obO6=D;oL=3oA\hQ0DoX]E4>n#Y1A0^ZmBSgK_ZW?9I2hSg9RKOee<3N"
  3769.     A$ = A$ + "=KDanbeWg_g#H=miQnDROKf>EB:FRGA#G;e0;g_jHUV9#[9XkG0c8DXVEVfa"
  3770.     A$ = A$ + "[6QF?Z1dLK=E3UUFLQe4M=#1Rojn1H69kLo4KVH#MmSIJFiA5RXXMLLjYXXT"
  3771.     A$ = A$ + "J>BSn9a5hlfR]J\h<f8KY[W0a:\8N5VYET9CK6:PlROZhU5MYc_?eF6R4V\J"
  3772.     A$ = A$ + "^Ki[RR7kSaDcIA04AnIIoZOhfSaaiD4E=Uhm0MUUoi3?jMTlM^n_N1abEZ>B"
  3773.     A$ = A$ + "\TMAUc[FQjG6^_#dOOX^\n4O?gi>^N7K34Eho347GFL3mjIW<m3_2\m:]T=?"
  3774.     A$ = A$ + "N2Am[]8=I#Y_hK_FgdaH7mL^;mX73g9Z_d2Y7;YVjIB\PYUncf^Q`k_IhJoJ"
  3775.     A$ = A$ + "=?NYSbWVlDb]nGHAZ>oNkaKBhbBV\ZU2ehUBd\U4];k4X2E[E3K0_6PWG?YS"
  3776.     A$ = A$ + "39Ri^i^ml0M6P8=n1BF_k88QgKF=5:C78NKD4ZR^ABiAbQa]oeSQFEab\Ke#"
  3777.     A$ = A$ + "gBk^VRKblfBO2CHYK:dD8?_n79gk?a3V4b42EUSJa15l:#8YfmadVHY3Ji;U"
  3778.     A$ = A$ + "XBEKBXmUeVgV4\IVITG_c=3BncCVgRnjVU`DQeTPgRPbcnZE;LPL`clGX]cY"
  3779.     A$ = A$ + "m;BPPkR[2Aj0Cc<n3_jm<:PL]?Hhnilj^aoLnAbhga2BL\SSag]XaJIc`BNQ"
  3780.     A$ = A$ + "g?;L5h1Nc=0dT2RMYZ>?Kj>[Hlh#KhVS7h_^H8WecE2KRT#`\YnMKlL\DhAH"
  3781.     A$ = A$ + "nFbA\]=\gORJe3SZ;GiGlS93CQR1XFI27ig]E0g=C5iT\433C4OP6fW7Y9]6"
  3782.     A$ = A$ + "QD:7K]`b#F>Jm`OBK[Sl32#9#BZPoHMLe<9n2DbCO9e`Y><jaP\ULIL;GjTJ"
  3783.     A$ = A$ + "HF0h4HIFG]^^8jHKX]Q^C?iCA7`Wb:c=DeU:5NSea3U1VBPGELci5FCbHiXT"
  3784.     A$ = A$ + "l8\ml2k9#CL#l=7ALa<a\3e5:K[X#mfBfId7HmkjZk=[CKZJU>f[`6X^S0c<"
  3785.     A$ = A$ + "[5#9MVUF#H\ag;k>P]ob<YeC4MUQH_h=ZToKo`#\B`P5TiabO0SaMNaiSjXS"
  3786.     A$ = A$ + "Hc_8T1og]Z:4jORco\1doegUIj6_BTI>MZ_BUCQY;N7Zjk>6[iEf52Dig91<"
  3787.     A$ = A$ + "J[O<OBE[f0TKkc[^]O_mSAljbM5QecXjCS3T?ZS?F]k9^cGmWoBg?Jn`cng="
  3788.     A$ = A$ + "T7Se#KEjB2`ZWNOY4^?3^L<[9Jf6885#LEfWVgHXQZEWTj\[340O^g[NO:EP"
  3789.     A$ = A$ + "kWk[XCD\Lo:1JVBTb\W:N0o74FeF5HCUC_RU5_T4De00h7NmAeJ]=ZM8IP\="
  3790.     A$ = A$ + "_Uf4R`NQ7SHejK3T]RN9WTYIPMV=>#:UWBXXV8::k`0NcGfS?^[nedo\B091"
  3791.     A$ = A$ + ":EcScg13J<Aon?=B\hn;=a:>edo2O29Q^D3?3ZH#>#IjfXm^n7Z<NhO^;HNl"
  3792.     A$ = A$ + "NFJF7I]Eg3bH7[87:j6Cinjg9oR>ZO=3Zof8VeiNN9G`GOaeS^?f?I#g0[VH"
  3793.     A$ = A$ + "<dn;giVGBUQI4R]hUS>MEOP3>UO32KX\HAhJY[AkJd0=6YfiiD`T2bZYC:=="
  3794.     A$ = A$ + "gf>\A6#6O#^5E1SEk4`eACBc<oa4LRcUUgIC8hka5JIC1nj884D:TgBFh=T7"
  3795.     A$ = A$ + "X8HEb0afY7h<oeG#i9b\[OLjfK1F7e?:S#n=X>]>4o6o[G;8njH2]BXbnY1n"
  3796.     A$ = A$ + "bY[;`:jQ_gM5E;A4mQ<T^eS7Z:eYO5OU?\h5F4cV0A?^feWS;7P5#bh#1Bjl"
  3797.     A$ = A$ + "EX:EWZG\_RMR#XTndn;kC[3eSW2P7`PN<no3\RX3E9EO;Ne`::T:CnkXB4#L"
  3798.     A$ = A$ + "<ZHbg5HoIc[VUUjJY?nT5OFQESe5fUM=QLbRoIb#CJ3NX^l\FdHI]Um5I]PN"
  3799.     A$ = A$ + "VWBV\gd<=a6KmePOm21?dOnfaclRh_LH6_^5iX<eNlk]DmO09Ab6Oh>M5k;G"
  3800.     A$ = A$ + "l^0Dk9[RckS]CCGH7VhB^GTKcQ7bKh`2h7PPjEEnSGGeC;8CiZE?>_#N]Rb#"
  3801.     A$ = A$ + "S50f0W^KYZLe?Q`i=Te#eRoFfK>B>VXDV6RD\0^]<OUh;LnG;V27G=ehbZlI"
  3802.     A$ = A$ + ">`STKP9:hG:JN6aNCS3^lkc0VH<WR=;d;kGEe>GKTgIYCPl\Qj9O^2WKWTd4"
  3803.     A$ = A$ + "\c#A?Z9LSGZBP2B0eM>NY6<:_QBa3W?8n`[TMMDh6?bA9\VZ<_7:WgQFLN^i"
  3804.     A$ = A$ + "7\1i]9oJek^j<8N:jDA6l9M<<C3NX3[WUNRdkJLe6Q\`TjEXFQE?Rj\8QDFj"
  3805.     A$ = A$ + "_iKHSA\TLYlU3EU`8EhZ?WlFf#Shfl2GXQ7XiYdOgXcWSHGRZc5=cYZG::oC"
  3806.     A$ = A$ + "iiPI>5V_]7Y;G:^G;1ZWBXUkS3ZZC:?eoQ9P2e0OQZR6kZFHR0Ok3Y4bb4eK"
  3807.     A$ = A$ + "ICR1F;CNAA<2iSa10H]B0YfXa4>gA76NhemE10=?B#fREA:XYn`W0X4m=>`8"
  3808.     A$ = A$ + "aB_K[T7BcAeWL5YaOKk=A_1#386k3UEUS>PQePIa]CnBWAkYd>En`ICBe8Qa"
  3809.     A$ = A$ + "L[>2VkVY9<i:^_SkO:EY47kRDiEJ^ecNYE2:BUO`C]?jP80MW;=3D6BKLTKL"
  3810.     A$ = A$ + "mh1a:ecB]<W_12mAXB[d^`WYQ0665nRVJEAE<<i<2Uj0iG2BBHB7a=UVhDC_"
  3811.     A$ = A$ + "oDdC1:X9EFYZ[;#2:RE=ng_01gU:k[HJ9;DO98WEGnE:nL4hD6H#=3SMPO7K"
  3812.     A$ = A$ + "T5ESeHSDg_ELhA#KR\=7gYoUh:\Da[<VCVd[L81iDEa#;O;Y24ZY;HBcb?^b"
  3813.     A$ = A$ + "JK\Lla5iBgURmL]<hPO:6?GBZ#;ken?NRMB28nH9fPd92EZ[<BHKdH`YP<ie"
  3814.     A$ = A$ + "a5F6?KbGHm4Of5fQn?HDNB?Xm5_:^=?gHcMSMKO6OZFo3iG6lgUfcj?0LjL2"
  3815.     A$ = A$ + "?OR\CLh>]i;DKL90L123_fcmKR4ec3BB5nSaZfXYF#SjW_UjY^iUjN_baVJf"
  3816.     A$ = A$ + "?URD5\<F`34AkDO^fC0kmgE<NhPHF[YiXc]S<k2fDC=>6HWkU^7i5YZGHoN9"
  3817.     A$ = A$ + "^#l_P55mi\;EbW2g5KZ>[lBcZ\TEU?Fo1K3MIJR0b74ESTacO2Q8m]bP3hDe"
  3818.     A$ = A$ + "c^<FQN6N6n`=S>HcGf95_<2n6kSMH?`^5_QAFBgPo`KADOec1;#N:J?6ZAe4"
  3819.     A$ = A$ + ":cVcLY8>9Le51kU1=a;GF=`GEC3fZ=^O\N_IP#O?nENbgg=fg9=Nfo8GLCYM"
  3820.     A$ = A$ + "LllMCRTf`NKnhID3>M_fn6jUob[3[TVn:EgSKUbjmkW99GSMcW;aaAF67Cm3"
  3821.     A$ = A$ + "=^`8NGOP^PA0hR`HQ^3`m8dVLIiGd7fh3CcESoD2DiK9<cGY0KE5G#6`H3SX"
  3822.     A$ = A$ + "kaaTOJ:Y8KmFiR]4igBaj_T[e<mBY9dU0<fcWX=L_5#TGP1VNN4K<2>20=WU"
  3823.     A$ = A$ + "6[g8o\VoUJ<m?QM<V0f[:a1;R:OU`SMcShn82<dWce<JR4Gjg7^O]9TbEdi;"
  3824.     A$ = A$ + "aCVA0^GE9;585go^ac2S6U:WJ:<A>EeVE\0XVoVn[f9df01EMlMDdE7f<]MH"
  3825.     A$ = A$ + "nLkNbJbVJ_;nBSMfNSDL:ofg>:AWj4m?b[cg>m07GHA2LjNEXn>`kEMEnO>Z"
  3826.     A$ = A$ + "0JKh=Ik\C^QMFCUj>B?8mMWe\;dOci;DcOk[l]?mVB=[bjZGR`e]jXEVG5n6"
  3827.     A$ = A$ + ">G580SRN<?TgAV?Tk:<k]L;Fk?3F\27j>#FR2S;;XR?8J7?UN2_blbG>H2PK"
  3828.     A$ = A$ + "UBT=TZ#TB7P^?=G#IY0_Y[oIXg?X=M<jn3nVmiHMZ#mNb;X\LLF]1D67fcSh"
  3829.     A$ = A$ + "MWcJ0iOAn[nhDE8]3XQ?h5o>S3GSeK0>;_E_8o2>odh?GQN5M2mBU=NKG223"
  3830.     A$ = A$ + "F<h^k3>XhCGHDQR5hJgfINoD:;1AHf8NjGi9kh#Lg9\H6i:o3RENCDljjlaT"
  3831.     A$ = A$ + "i7]LhK51SFbCf<fakck?nTb242i#NAIMgoRK1Cj5R?UjEIA;FSX]iCfA0`5e"
  3832.     A$ = A$ + "eG:SP1W01Tfln7A7jU`<BnP;FT46SE7AkHmQ5I?f2n[10b64?1D2BFIQ^kY#"
  3833.     A$ = A$ + "3HSG>HV>5d4fl0;9<YnBodmGl4:Kl=?IPRVmFFD[G4dOihdd3ffbC<B[_[JL"
  3834.     A$ = A$ + "KE6DG^X_cnXbLoQ;k\koNnNl2VSjW>\n3C]lSNgDZoHRg1AOSI]ZVO8cPeh5"
  3835.     A$ = A$ + "ZC=<K=Z4bAjl5b[`8B\l2P:`^]1BaXb^0hn6LI0##O^iRmRNkPT\NmhUO8mX"
  3836.     A$ = A$ + "[lRNU3V3H:f5CO:69o=gja89OS=QoA[GLeQCW_kNfZCY\gCXNRbH]h>8lX0;"
  3837.     A$ = A$ + "hS_\ni\B<Nob\bJkjQ5E_=gG>noY=M:1FEC?2X#]NXC=SWb#99i725e8\?4k"
  3838.     A$ = A$ + "D9b#SY`chURA[V#fC?[jd:keQ56A1BG<?eX=GflFY75;g02ZomU?ojTZ1d7?"
  3839.     A$ = A$ + "KgYCOB]hOI4]d1OE3QLK_[o`eG^#8GOe0YaQFWTo\gl_9fWH>3L^n_d2jaR:"
  3840.     A$ = A$ + "DWL2Lgjhg66bUaE0G=[hA;#a:nj>:h9K:WJTG=#i0jJogeglFiLTmTdG6gin"
  3841.     A$ = A$ + "X02]0UDPM_E1d=elRdXXZ8V5kFQ>VA=96C[^KV`j>h;cOUEJG?CbQAYh52MV"
  3842.     A$ = A$ + "amHIe5W`oMeo\9d[2n>I>G2S>M7jKHNnkV?e[HT:Ag7Tb47e8I>P]gnBlAQ2"
  3843.     A$ = A$ + "fkHJ\Q2_dacL`YI=]IifU?[OBi:>Z^4n6L_\26Q01iL\X?G_2F8W_oNBoWmC"
  3844.     A$ = A$ + ":ToeBgGGc_oA#kUWOMmha^5lUiLj3Ood=fc_[_lT0?N_0?VPoM1O1_lYoha8"
  3845.     A$ = A$ + ">=TKVJ?Yo7ggPHAnSna7VB;YOllTng:Ql_S:h_3:MC54bOmkQ7>Djo=coNhX"
  3846.     A$ = A$ + "o5lmoBjo^RFM7kSLO3a`ngal0=8JncoNEcHOH55lgc_lbeFShV`e3WmgS#ZS"
  3847.     A$ = A$ + "UING8V;IP<mm3h>bFTn?JmRoME81mgIR>XC8<=OC]Mgb1TN7o7JM[k7OCa1b"
  3848.     A$ = A$ + "Hj3?3?XoM0cM_9l6G0W_Yia_o=]LKBD^VkFgb_FZQFLc:5dHN_GZ]Eioe;4e"
  3849.     A$ = A$ + "T1flhRlbVf\4T]Pf]6Zl:6B?hN#^8Aha2n:bM<K75gZFG7keR:>IK3X2J4Jg"
  3850.     A$ = A$ + "i]4iVao1eah\jX==YLRnKnkN_mVm4K]Z`7madMO[W1V0]CD#gOhlgdQVYOBQ"
  3851.     A$ = A$ + "FOo=8#S4o7<n?3NY_nm[gngRO\SeLmne\Jg9D?WU=JcUJH_F#kG9ZEb<cng]"
  3852.     A$ = A$ + "NF[4N\5i;M81KW]][Ha[#JPgLdB8F`6=`Fa=_MU?B1^=GP5SVF5NMfU7]4SF"
  3853.     A$ = A$ + "]2hK[;TkgmGGajj6TUQ7P;ha_f:7:71aObHGT0ZdoImoEQIgJao^Z[nW_M\0"
  3854.     A$ = A$ + "nYQ;Z=;fm_DN7FP0gjXN6BdVMZ`E8:7Zl]SlE74BX#e1K0L6DeoE#[FLVMRj"
  3855.     A$ = A$ + "GkYoQbag^id<[6];2K1^8I94E7\[O^GI6\kkQJVX68gVRh<lJYgg]DYZQhd["
  3856.     A$ = A$ + "^2Q[Vk4Te>G5:CM8RQ3ffiZPcJGDUkgl^=^T?o0<oVCUQ2FAmce\_?UCXA:G"
  3857.     A$ = A$ + "4R:binONl38Q?4#ED=kHdlnbJITXG8=kn?QYO7>6]VP<dgAV?hW>bBoG1V:D"
  3858.     A$ = A$ + "QGCI`J>\2J7k>T=hRNcQ2n90MJ2WW_a:c[9h0_>YGoAPodAd58mmI:mF[`[h"
  3859.     A$ = A$ + "?Ve85I[WGUQ>j[6lFb0O=dd_9Tja13i^<UF_Gm62fPRMVC63dT#5SU:^S4OO"
  3860.     A$ = A$ + "3FP8Y7=84F<^TJ:3#n1RWUj\^`BnJh_<UO2iJh]MDgL>ifQHFVGK\\MDSZZ1"
  3861.     A$ = A$ + "O]`LiHd#[KbAl\AI:fKF8gZH[l`l9#b^<j127\;XUIVjdn[NWYI0VZW6m<LX"
  3862.     A$ = A$ + "HHOKmkDeFGWWPiE7>^BiS6;OKP5D0O70`ncF\`7d]f\JHoKa[#3>FC48Klod"
  3863.     A$ = A$ + "F3_`kOjk>l;:]oE#b>=?8cm#WGjVHT3EYdVUZ9aBNWd=h85O1]18_fV]CnH^"
  3864.     A$ = A$ + "J8\_MBe=[fLToM>cKg1G<T?Ne<kiGF_Z:`hDe[KmFjQn[0EDT;JWSo]C95dl"
  3865.     A$ = A$ + "R;m#G_2Unc<m;jG0#B`Hm`;8##mG:\V<JleZNGFL:i?#FW_5;4MZOOeNRLnQ"
  3866.     A$ = A$ + "nmoJhic8S?OWSJ:LPM49XI`7dPlM<GOSS?T_BT#6h;kFFXOSZT_R9:dYA#Ue"
  3867.     A$ = A$ + "mN7lj4L>k\D=g\NUl=HOA65T;2b?Fm`DkZZiXSdlm0WS;:<moP<kSmWh?E[8"
  3868.     A$ = A$ + "7S^YPAHYKQ4;EWi`]7;4mDbPWP9E[8DibNNT?IW_XSL#E8`=4n8d\:]bY[Aa"
  3869.     A$ = A$ + "_Lj=bV<<5kkhKe5\4RoamWJmo557Om;>;UJTLCfoS[LeiP<o=Xn0jHK]7hQU"
  3870.     A$ = A$ + "d]KX3Zd5nX]H[6?5#cVanl>M0Dh1L?UXIf[S8;gH4KZeKJje=E>]PS#fn>`]"
  3871.     A$ = A$ + "_bGK]F>Q[KA]QNi^I>90eGQm?8[4`;oGJ=cdQe4m#<HeGW`49i8=aN?Z1WGZ"
  3872.     A$ = A$ + ";j_IBjbAk`>^olR:nVLOaP>W:j<nT6I<CNDgnFnjegSZ]_EY\0P\46?M>EM;"
  3873.     A$ = A$ + "`b<:AbZGfGL8He^?BN=YleFoKFP;BP?aB;IgSj7DGjIZP_:5KjY5KBd;?=n_"
  3874.     A$ = A$ + "4Q0c>RNZG`3Q4fTV\dTif1L>[KUi8UBj_GT07kOj`WCClEDl>6L_Pe^8K9bd"
  3875.     A$ = A$ + "7\>aFZ0_o]#g>S^QoLF3L8#Q:CNiB[25LY4;HNH4lkbYn\Uh4KSOUI8F5n;U"
  3876.     A$ = A$ + "ofhXBNDoPV2MCFGkO:kn27oHWM3Il[KGE;N`_db=mZG`;2\QXMi3:o5O]0^`"
  3877.     A$ = A$ + ";>3XQRdW28BoG705Xf=jMJ9F`6iX[jm6Kg^S<4l61T?[BX`\kklP]H]]leR]"
  3878.     A$ = A$ + "mo7oma=K<GOlVUFS\XFg6ZR[_hEf]6jNn^Aj5IS?m;JB:4>412[2Z_f>k;8k"
  3879.     A$ = A$ + "M=d9nn#b>15H4g;[mAk;LmM:Cb:ao>OCo\DLQcU1P?D=ZWbGmaRjnM[^=4N_"
  3880.     A$ = A$ + "I6]`6DG9MBL49KFZLjKB?_93^jkLVSlF2cmGI0damRPiI1Z3\JL=:i3a42J0"
  3881.     A$ = A$ + "P_bW9VY6m>N7KcPdFYCC3b3Mde4<_lYQQfNVQ9CEcAYAcJ1>NVi7^]H^TBd7"
  3882.     A$ = A$ + "kYNhSJGZ=QiMD_^LfmXg=EBFoJMXGP5l9Yl\[mR[>4BK_RDdmic=6;Y=SeEK"
  3883.     A$ = A$ + "7D^0n7Y:cU]<AVgEZj:#<I5J;5OG9E]dSEfogSX^e14l<NG2m#fVb6:[g>bf"
  3884.     A$ = A$ + "8mFI<13[O8NJc_2j0oMh<6<6GlgNh893Z7GFTf[_HM1bDh8D0Z3?H4609iCa"
  3885.     A$ = A$ + "BXWd0cge#ST\V:5GUO9em3NKMhY^RJ?35a9^aG3h3mB68_L9^^go084dOFlH"
  3886.     A$ = A$ + "99PmR81PeOiXRiic`Sm:Lg33MJPkhn2>_de\2E<`B#[N2G;TE`all>J6NQG?"
  3887.     A$ = A$ + "g^8KG0J1j0V_2COIiU71Md5SfHoYLU0SXmWJcgonK0L2JEk^4oh^T`IicF_C"
  3888.     A$ = A$ + "8fk[_`=ZT;N8JcjoJUIg9e4UV<R\nAdEeaX;QUTPWTP4`5\CHG5J8nWKL]nV"
  3889.     A$ = A$ + ";>>C>`FoSkR[7iOjHIMe^h]YQ<kF0DOMF<SoYbG`ek\Y^DVEcWOO#`_VBK3_"
  3890.     A$ = A$ + "nmhBI>]^2M\5V;A`jM\;nWaJ7b3QCXJDl#2V4gHSLX\IkIXg^1_L4HkWLBGW"
  3891.     A$ = A$ + "_15#fa6XAn^M7[T\Jk_do5SOeK6l0Qci<Sl5J[W24Cah0Icg21MjTEU[dIaM"
  3892.     A$ = A$ + "2c?TN7Bk5AnMd:cC>Tn[F_j`P][VNmo_GCa3IR3:9[J0JLRRiJ8OE^m;XGV;"
  3893.     A$ = A$ + "`bg`83f6>>i8QB>4cc1c;h\Wnf6N2JlQ[7FM97SiI8g;5K>>R5KfdiSBI8IY"
  3894.     A$ = A$ + "=;8XdPcXA97F8fHK#M1He]X<\M2<bQe_HX40ljTa5YPR96EXF6Pj#_kI90lL"
  3895.     A$ = A$ + "4]PQni22O>#\34Ff8n:`Jng:e3W=E1h0QKc<PhZiPdIlWM\cm4C;3JC3<E2_"
  3896.     A$ = A$ + "mn9nG^HX<`Q`4NOLF1WfbCbY=_=Uc9YkR;XnnlOgNc`f_<[O1>62DT[W8h#g"
  3897.     A$ = A$ + "lFkCZViC9jh9b4;7]>VHjUC1jOjRR>gQW]3ZojOOH`4PTCU9nk=N3;>PDX1n"
  3898.     A$ = A$ + "_]e>G\0bGDO>dg1N=lOES718E4VU7Ce<b5ZhB0eal]\E\I>ob`4QR>UXHk:0"
  3899.     A$ = A$ + "3`AUKRYMl02CQOV>iiZ8G>JO7Ah11V:RnTVko:4P5<=0C4?0;l^cC0a_FjN["
  3900.     A$ = A$ + "JNCO5IoTYMLNO4#Bj#OgHg]88\7YB>iLYm<MPmKUO\hAc8a6i`Q39O]DA\#;"
  3901.     A$ = A$ + "C44YnI;QjORem^B]CJ91`3ATI#5P1M1jgYZcb7#A?_[OQFZUWiI3SA`I<K#Q"
  3902.     A$ = A$ + "JMQZ_#5XQAJQ#nC;=Oe82nMaIhk;LHc^HX6Cf8]HN;a4;_>^FaRa9lJ;GRHL"
  3903.     A$ = A$ + "XkA=BY5coM`:PGlG1?V?cY#dAF\\MNDH^XWTf<FBQPSJU2k87FW390GQ\QH>"
  3904.     A$ = A$ + "Y95cE^2PB:OcljAK6F];>XhfXWlg>4>cO6fj2FL;H4g7X3;cCT<;V8VF>hSo"
  3905.     A$ = A$ + "lI^?IieQK3c1:5S2SU`S]kOF_CjM>Elj6ONY]FPgL3BgAbVmY?F[\CInH_6Y"
  3906.     A$ = A$ + ";AnNKdiI#<h41gaeb;ib^2U=L:;iYJ7K`oZi9[e1SBEDi;KUF>?HS8C<h`LJ"
  3907.     A$ = A$ + "K3OMHHF32L>JPHmfF>R=eJWD0d`kO39?1<2BN;3ef\8LSDMo#GDc;\XhRNUU"
  3908.     A$ = A$ + "XNIEGDKgMa[D4kn`UBgTLFANnOb?Obj;=WOf345DOkKHK0b0#ba22N82i7T1"
  3909.     A$ = A$ + "R1Fo92CGfQjK[4MfF:n0D9IJnhU`1ed;?88lA9<akGD>F:X]#Bj;cleei9ET"
  3910.     A$ = A$ + "f;Z[68MR0U28:[a?iShhcYdgUT1bA9P8#<E>?5FFhVh<W:LDe^jfTAjW=Fco"
  3911.     A$ = A$ + "Dj;mNhIXm^i;GjY?8Pk=[FMNG\48iHiC6aQI:]ZIG2>5Y7AYLX5EiCA[cXF8"
  3912.     A$ = A$ + "<GUeCoDfFB`8V?cHV1g#RSC3I4PgL8#]]SbTjOgkMg\hOCe9?5E<aF]A743?"
  3913.     A$ = A$ + "kJ1;H5`RV^2J8mlo8cSYoEa<k:RZQjTG87dR6aZkMYSe8kiA5Uhb`=ldL[JH"
  3914.     A$ = A$ + "Z#PZlXMg6JJLR#CQdcPR20eVg;c7;8n>1OQJcKXm8ZRS\e_N9cFf;=M=hjAR"
  3915.     A$ = A$ + "`KmYU9k^Z:^^:F<V:hWn`JPKEKa\aA2K32QbfUiJ4SkoKSjJkO#L9#;S#3B0"
  3916.     A$ = A$ + "7:PDkK]_R?b;:kK<MeF;<l#g[e#_^NF;U:;00^;\WGGinQ^hLKCC`cYX[^7E"
  3917.     A$ = A$ + "g=U82`X=5T7Qj46D;7Ni`li7Q59ciMM01A8TToJWn^NiH1\;ZGhBNAYmcTMD"
  3918.     A$ = A$ + "=Jd107N?DL><QGM:1#EhXV[\U>G5;WLnF1#1_3_Q><O=<XS`]#]8fES2=#<7"
  3919.     A$ = A$ + "kOIca6HBc^73#e0`lNS;HM2B5<doC[EaT0]O0_QJij\TWFU[6S#h\4ZPX_cG"
  3920.     A$ = A$ + ">4^lTiS?;?^RGnV<m\]8_<]a6AAgJ3dl`3Th<>O#?GFb6TA`7OY#jQPn]BM<"
  3921.     A$ = A$ + "UnCK[o>gXEZln6;S1JYG>j8U9[WkXfH?lQWd`P7h7RbcjG:bmB2YC0[aQY;n"
  3922.     A$ = A$ + "1[^8ZRE^?P:WAcd\K0[1:fhKbad\L4f>hV]M#8ZjidGMcKGIPXUBebk8:TlP"
  3923.     A$ = A$ + ":RJ7mJ7k=MGjQ`SBgF2[7kW7[=ioRNYniNGf2\YT>K?#6dR#639n;g018cc2"
  3924.     A$ = A$ + "#oPT3`=GnWE3O_UH7g6k5adWE55amM2a:2mHNE5Al\CGZ6hH=OY]ZGZ1o:`l"
  3925.     A$ = A$ + "<kWVQETO8;TE4fV29`^f<=Yml67aCIQTlgfU>a<SKL2hLXL[;95YC4MbO1UJ"
  3926.     A$ = A$ + "^goG:nMB3HdfH:eBG?\VhK\#[PB7UQ5O8G[^X3RY]]k#D10R7k1W=H^5FC[R"
  3927.     A$ = A$ + "UJ\B<>Z5=kX^gWA30;PE0Tg>5P7E<AfRn\?:=RX:NTO0_?5>6:97gNAi\U7`"
  3928.     A$ = A$ + "P8To;oX_d;1:FNCXd#MP1?XUK=65YWENlo\IQIZLbV658D=QMiUHY5j_jV_1"
  3929.     A$ = A$ + "YHS53R9kH3c0FVgkKBfhjN_;a0^8_#B6X4ZoV3I?f?=iD]PSC\l6b`0CFYKj"
  3930.     A$ = A$ + "Je`4;4ASWlL=Lf7R<<O82J2c[j?R2b[e0KX?R7O>OL8kN6c?>CAR8ddgXRTE"
  3931.     A$ = A$ + "KifMPgojg2jP<gX2Zf7m_nDIfPi7?f\OW:SG67`lQ>c:>l?=FTi6IeXIT`F4"
  3932.     A$ = A$ + "h`YgV>Gm[_V74`iU#Z]^?JKoV83ij54PJA6ZmEG_ej9]8?TiVkeSE=:nX<jA"
  3933.     A$ = A$ + "olSGZo1XE^J5Cm?MXi^g7S#XVUk6[FREOS2O^90bLanaGbW;0a^obi[PRHkc"
  3934.     A$ = A$ + "`UZnFnWj`REFoQ3g]SZoT5dPnoBl2DD5>X\Am9bHoZ6:Z>\_d:6404^GR:8B"
  3935.     A$ = A$ + "J8A4Q;HMU;IRZ`D`_\RMQl`hF^lSH_<ammM2V3c`YEM]]f=0#9]QZ<:nJU3Y"
  3936.     A$ = A$ + "i=`J5I2BBfURgKk5;`=e?Q8\ge_YF0:J3SSTN=<2a[nX7RJRhIbUS0C9aVHS"
  3937.     A$ = A$ + "Sb9WL[bBg<0;=gIVZI>\^D\GackbY3;B2Gl^PgmKjM_?_=FYL??<M4gCKR`l"
  3938.     A$ = A$ + "4J4bV^[Nl^l]_[iVT7DTTb#`8_C1X\=78d_Q3_VJo]CO]h>mdUR9TY?1ARQ>"
  3939.     A$ = A$ + "WQcS5#`56Fic9LI911kh\:B`TGckFRclL\2c]Lg;T7j_TR18bA`l^[83hCWH"
  3940.     A$ = A$ + "L#F?T=fjk2KQ_MC09VgC6BWWadIh#OoTQT^`^acb\dnn2nfmoCg1<RiAX#F4"
  3941.     A$ = A$ + "2EQ?7iY_kg7EK3Q6;E=fAg[3cV74YM56S5Bjb#fEcj4ZK2;=P?_6:JNK^^L:"
  3942.     A$ = A$ + "97Bn>acTf2HShkR^PlP0S4OT88?BmKZcCd#Ao4A2D^_T8`J11^9^b>YBm7Hc"
  3943.     A$ = A$ + "15:[Fg3Ii`jO[M2f<mMYQ[iISCdOf0e;fnKeP[kPfAncdAmbCX1]nkPlmY#M"
  3944.     A$ = A$ + ">T1RA8EKE2h34\63>]fOLkLk8<3^7<T_U5\TK_1Si]\1eM#6?C<LP4>08QTT"
  3945.     A$ = A$ + "=dGa[34PC\oE]3;j5g>XdCW0\RCHR>>#oO17a7OnoSgll30Ra\la8M\A1\>O"
  3946.     A$ = A$ + "Z7SVjWmZMeNGWJQIn<]\ODCaa:_b:eVMC06O[KAadI8VE>QLEfY11PEBlCjX"
  3947.     A$ = A$ + "RccmFPGYDDC69GLT?:j2LM`En=?U8T_HoknJ0\A49WU19P>h7n2e<;EHjO^L"
  3948.     A$ = A$ + "ZO<PmG<AUbPHNo01#m8RS;8cSOO^LdQeFZcc4`f_[5bTDVM^VQS0Rh62<U=_"
  3949.     A$ = A$ + ":B^=DTGkc6ZG9`GoHPaK3#jX=;JiMQe0MnR=88A=LM=11_D[MmF7BjOR5bo3"
  3950.     A$ = A$ + "VeBN=[Z6E`Y25ifkZn;BKlcmQUf;c\ba9^H=Ih_KnAZ4laX=4D[iV;9P8lCM"
  3951.     A$ = A$ + "#4XFNh00NT3d^a3E7`^cf_iVUFPV4#IPS7d;5Q#VFRL[QUVL\f>IBVZfMFHd"
  3952.     A$ = A$ + "Mf6YJhBeXkAfgjl66FTloAPXJLEdolTj[l_EZ#:1Eog;YiQRnaTX[B2NMNEe"
  3953.     A$ = A$ + "P`kB8bbRc4V_deeWZ]fhb<;00lG8^5ATAdJU0a?59N^NPc:RVOgn0Q`^7ZIY"
  3954.     A$ = A$ + "NHP=01>ZbDIY]DH1;PO7Hok6KHm_Jeh<:m7jiL64i30QT>J6I[1KQR6Bgh4W"
  3955.     A$ = A$ + "jC:;R]6KcNa6BQ2e1^P<\Q#iS_do;>eI2S#4>gHFn^`g:\i64\#YU:KU\#Wl"
  3956.     A$ = A$ + "\^KGilNH?Gf2=7^ZT3QLYgL1>[EYLSeo3cH^\##<NDa=B?Ml>_4\A#Ikb0dV"
  3957.     A$ = A$ + "F_K;LDKUGHLWU6Xh_CG;4kQ4ok\\BYGm5\OSSIWa6Pa9#ddG9IP4L#>79=\2"
  3958.     A$ = A$ + "dWDhgQ5Xa4Kk5IAWiE7WMNZW2#mNR9>\<f^V>L;bnV[_96G7WnebG<ZNfCQf"
  3959.     A$ = A$ + "=BER\VMU2C5?c;_SYOc[ciH]o:iR4]eWoO1lBeWiIn?FMY\#58kR1=a4?F_M"
  3960.     A$ = A$ + "2;QBedbFf8iPkNRC4O5MZma1gbRNR]oHaI=3Q`[?1=ZdlG3TUWUif;9PbWQJ"
  3961.     A$ = A$ + "F7G#aBBJSiebmIhAjQ6CA>1eOFHaKIXU[FX3Bm:Na0=E[CM[Hdg>Z=A^fbS8"
  3962.     A$ = A$ + "I_X?Vle[CLPZFNSm\1;n?#LV\2D[?C=ME\CGo_FYSLVM:X_QmYXHF2?WiJnK"
  3963.     A$ = A$ + "N[JA0d2KQ=SF=f:KL1mnWJ73hXV1aEfFaJNPa#65WWoBG`:Y26Z2Kn26[jmn"
  3964.     A$ = A$ + "ENkJ#0HNO\]G:5SQJcaC[2PekTeJQI;F8Fg>VN2ad\B_WaNTZB_cN:>Z:WDA"
  3965.     A$ = A$ + "c][?1SZhcRJ<2nLc`<J4UQG;Xg^:0eLD8eW\_L040^P:AIRF83R1?hLb2fDC"
  3966.     A$ = A$ + "GLG>MD4PGhXFfejCM0kSLELWdJdo<n5QSRQ?DSIQTnj1bj9Ccli?So[c1_cV"
  3967.     A$ = A$ + "bY;2#W0ToD2m]>nQAFm49Em696ga4kRW2jIKBf\jXeLPHT]Co1eY#_1XabP0"
  3968.     A$ = A$ + "hR0X5Q[]_BQhhT3YdZfQbQ3lnJ5dVbcl5:JGUDVbK:e9eNX_[RYDMNoVG<85"
  3969.     A$ = A$ + "ZjC;E_6MHXH?h4naT^Se[dbo3YFa8SZ3H[^Wj610GAiFIkdS>4m3Bm<8fUET"
  3970.     A$ = A$ + "ZmIm3#9gi<N81>0j54eS_^W7SY1M#FmCUlb#`MN6`2LfEKFGRfPf>^>aIfOc"
  3971.     A$ = A$ + "5:A]^[JZSN73H3:fKeg3Bdb>:Wl:b1XfK=foH03JPi]b0[FJ#Gj;Q_aD?[RT"
  3972.     A$ = A$ + "l8bheG3ifFDiOf6gW9;=gX4\mmeK2a6\Rf<[JbOT?LE8>2BQj4LN0>m;TNb\"
  3973.     A$ = A$ + "`XHMNdFTIlB=i0>Fi2=8QYFW]^PfI`KX=fc<0>7aJ6[<B\466LPO9:II]j5?"
  3974.     A$ = A$ + "NHhZ=3WV=FK3FOnB=\S2ZbKba>gcnk=d^jZ>VlFPM]`dEC[AnAe;dj?I=9L:"
  3975.     A$ = A$ + "jN##_Xc_P<<S<d8E4=S]KBM_3L4EO`mh;O;Jf[oRJo369bMoa]>T1ZU841UW"
  3976.     A$ = A$ + "[CLI6nmDGaSN<NQ_>UKN3e6_4eL201GK30PSML1c<nGI1Ia6a##E23UQIHLo"
  3977.     A$ = A$ + "Gff=TlPhYW:aPNbeXdPLDOB3^QUmnAcMNGOCR;fLH^8<QO5_im]cZc]YPN=Z"
  3978.     A$ = A$ + "ODX<3T]:b?i:iK3I:76?1DSk:7>6F^^\8fRdFo8[0SOG=2lSjb?EeJ_bRFU="
  3979.     A$ = A$ + ";Gf?ICg1Qd67]b#JBPj\#6KaHX4HKXbI=07BJ;goN5a2EiI6FI22n9L4AGBS"
  3980.     A$ = A$ + "7ZO\HHRTBc2A:gFCJMH??dc72[i7^n=J<AIbK]IZZfIk;oViWG2PVW]LiV^#"
  3981.     A$ = A$ + "9X<JL>Be5mZ=bhn0Lo3=W\kmQ?:7Wmej;I1iIUo\n42lRGL7TVhHgCXTij[A"
  3982.     A$ = A$ + "M`35lILGaAkL0XC;dWjME7Te=c^iU]7=dPeg6]>?lcRRgUd`L^m#aFbPb`PX"
  3983.     A$ = A$ + "<S0cbRSm9Aa;RJk<7O3ZH^]]3:bba^QbnR=04J6KETEKG^?m?<ZZgRKU8Y68"
  3984.     A$ = A$ + "U<nnhAoL:RX3n60T4YiU9YZZ^RWn=7bbP4YVkWIKU:TNNdbf8kDOE8onc5Z0"
  3985.     A$ = A$ + "?\0MlP^;^FZ4;hjgaL[o\KTfOlPH0mYLL[5`>?=ZDRk<e<hPjVSAB=fl`HXn"
  3986.     A$ = A$ + "0XHiKTjCEHWZGDaAa6b3`Fh4c#SSJ2c9>4oi`:eXBo8FckYIEg026Q4G#O0X"
  3987.     A$ = A$ + ":J;H?VAHT<2QgNF>i286RcMMV<Yao4lY3Y#7^Toc2O2nS1B7[QUJ>kWO5>\6"
  3988.     A$ = A$ + "c:`Yo=D7<7WeQ^FR\<?9M[0fPRSF4C9Ng0Q`lBf=<4`df8=i;TI3UF7ll7O6"
  3989.     A$ = A$ + "VYl:fOeIgcHHS7f`a9_?^hjKn\na4`ci1^HADBkBJeG6iH<e;XL<Sj0SBKWg"
  3990.     A$ = A$ + "TA>_3T5:\CS7>7f#hKkZT;bU06<aQ;W58DjDCMoWY[#OJBYEU;Ih21_YG<?2"
  3991.     A$ = A$ + "A>MiIJO<S^\f1Y1aka^[ZCYT=UXmYATT]1<PSfVf5BEWB#ghD?oaCmQ?eG64"
  3992.     A$ = A$ + "OMf#9?nbJ2AHG92aA\M\Hf<EYUdZ33a8VRhI^;POoFo^Y`ZFW>`QHbITLiJ<"
  3993.     A$ = A$ + "[8_c?MR=ih28T7fCO[JI53KoS\c`RZdh4AZneR8`4ZX[ad0\5EI1HU2PZBXL"
  3994.     A$ = A$ + "7Kk1<27ZZLf`[>;^;k2\AfcW^]Z9PJOhWkMmFb3Yl[I:]<:E]QSJBl6YMO3\"
  3995.     A$ = A$ + "JVP]fS<#1BML^i>a8edeOn3Y7bhik:FC_GHYj\?`O02jn<7R_#?^jdhd]3f`"
  3996.     A$ = A$ + "53WG#ValfSEYACN]kfUGN]]B]1dLe=C<Q=^O<DBXElCoQi8bi_6a8Mg#KcO\"
  3997.     A$ = A$ + "<1<Pn1R#L^>MQV<ZQIT50aGG:g_NkTMX6j5[3\Q_JK9;Kk_ReoVMem>fLa9X"
  3998.     A$ = A$ + "_OY`U3nGXdeaLCGeTO^[WU01XLn99C2XhTPY#cP55N1Y8O=N:d9SL]V]2W5D"
  3999.     A$ = A$ + "RlS#L#`VKZ?Yl98U3Qoj#]Yk:`JnOQ5bgj7d=>b\BOOMAHin\W9S>lF<1LIS"
  4000.     A$ = A$ + "=l`gJfH<IS3TZCNn_8N1TS>g=YU#gn56RZX47_QBQl4N0kZP8<?0OD_1L>B;"
  4001.     A$ = A$ + "\V^B_3]570SCCcbmaMUA8H]<G4>SXS=YU919CJJmQRcTBHH?5SS;\3;]8JTK"
  4002.     A$ = A$ + "eLVOaIRc5VRSQ=b062m?T4mf4?n0Xol;Rmi=Id_fcKNZXhG_jVCEQgAK0AeL"
  4003.     A$ = A$ + "OKYG[2Z??:9hQ0F_Z<TLk#Bk4;gOFl#5Qa`R\OUa#_Rjda5DocgSdoSdMD=`"
  4004.     A$ = A$ + "6I#mo]LGjG#6l0<ggnKeR]QV9g`nY^IGBKZH^OKHJd;ZOZg]=U?jG8]P3?f`"
  4005.     A$ = A$ + "o4fag8:\j82l^D<ZXbXCen>PVJVcIXj#J_BU[8QfDfaKTmW<dRn3cSPTa0_O"
  4006.     A$ = A$ + "cXCXWl2Q;c_QX`\OL8fJd7Dl8OiMi6K^<RH[OO0aZMljI3nQ;?KUk7f_0JMF"
  4007.     A$ = A$ + "Ge\`AIQ^A?eFj1al_Ch#REPK8?4LJ6fb1EnDV=J:lP\FLK_cPN58V_g1bR>6"
  4008.     A$ = A$ + "=;W]T:L#gYD6]:6cog9lcZnB6BkgohD38RAU5lm:53Sn]3NH[F#\n>UAFeS?"
  4009.     A$ = A$ + "[8_QWkLZXFYHk49oAP;ngmNj3>89?A<bn7[6Cl=Wc2R#B^DOPDDYJ[d:[_Ll"
  4010.     A$ = A$ + ">PJ:Q5alHho]aP=W940T;?R`lZEMQMJ<diX:A#F9E21=^>M00iHaO;K#InVj"
  4011.     A$ = A$ + "I3n#X\BSnOQW]kZQh#LJc10hQW##3UjkJIM`dZFQXV:L3bh6i_K21RQ;CT4o"
  4012.     A$ = A$ + "E?UVXhh9P^^cT`XkY]]:0NH4fM430a#h4MOR=]DYadA?1J6V0UI`HbFaAkYm"
  4013.     A$ = A$ + "LZ1ickm100ob5]PICQH1EiFgoCd723ebiK3QU3]DbRE]o6aJnOB2AVJVfFkI"
  4014.     A$ = A$ + "1e5c;LMIm8TGPZKkmO;2_#J2DA0Y7TbodUQf63CM#d#Z5X8]B#=hH6_W#jbI"
  4015.     A$ = A$ + "m=JJ:fGo2WYSRfKd`O`d7hn8UDm5TJgL_`jW;BJkF<K\3[5ARadi_Af2oDJ<"
  4016.     A$ = A$ + "`J91dOKfkjXjiaTcMbY?[iOb6^oXb3klUnKGad5>99oK`GZ:0QYP7HP^QldS"
  4017.     A$ = A$ + "]ZB;kIFb0IJ_hZm[>F^j;YZoK^Yb37L_2D;nIF?530V[KRKoiBB0diXLnBn4"
  4018.     A$ = A$ + "lm6EL1#2AICA?0WkSPG9;;h2D1W6g7nb9;5k:cA`Qkf<Z<HXiAn;`T:o_j=d"
  4019.     A$ = A$ + "kbfCUHRjaLYnFO>_0oiO#]#chho8\:]YTN0JhRVI0Z1]njFhYcjB][nBEFf]"
  4020.     A$ = A$ + "fGb;LiGEZdU^74RKITe#\lM`>nOJ1#mDBo93:JdA4MW0P#KaAH>MOKanad6V"
  4021.     A$ = A$ + "DR2?#VT4:]X6]XBN86#jLKFHXG4=6jCTW5LAAk<m[QELV;VLR?1<Xd1aLkhe"
  4022.     A$ = A$ + "n2IHH=o5f#VLEY`:>Si8kL;:oVMD5Pc\k[n8N#PN4JVOU5YBmLPYkm8:nOR3"
  4023.     A$ = A$ + "e8Sfe6XE=TV3h9F7njZn>1#GSdD=YJVkLk=3_RRWUdB\M=7S<B#k=1iBK?jP"
  4024.     A$ = A$ + "X]\9ONY5IdV9WPBkj1dl2RB1#1?jV>[PFObOCE=h>AVbNANjf8V[O<68l9^C"
  4025.     A$ = A$ + "k#RlR\Goh;Qn[=MLPXgSEMI7jRS6W0n>Y2]YY>YR7CZ`EeobO6^L^l^`C5M6"
  4026.     A$ = A$ + "e_R763UR?I^9A22EL>4E3ZKEL6GND#>;F=o5b`:c0HL78KIWI9[6b6LniWgQ"
  4027.     A$ = A$ + "g5PP[da5<lADlkdge6LNe_`2Dmn=H`5#eiY]Fbj4PefYfHKFPR;E^]^f2bCe"
  4028.     A$ = A$ + "R29>o]YI=P62C4_UPa<V40T:H>d[g8:BQhG^A<N#;mJ5l_PYCAoI;U2;nN6_"
  4029.     A$ = A$ + "L_?LC4n^AkC7Re33aPGT54PT1d`L9<>Q;S5`R1O<GY]YoR587C1DHlT7VZEm"
  4030.     A$ = A$ + "F\P3SF8hfB5nEV5iiWl=C6Ji3?FEQA]IF5TcVn:PMEaZa;j7EPmGOI37kIIW"
  4031.     A$ = A$ + "bokEEmQHL]Mc;FJnQXddX:2DHh4TIL4I__GW;GQfPmHeDgf5lB5^PXjK0^WC"
  4032.     A$ = A$ + "`cO9U=gGI:KM1U\M;YceYoFeZ=<6_P8>]0_n^joX^7;1caBE2l488h_\3#Qb"
  4033.     A$ = A$ + "6MXD[gdIT<fUS<IRjXjGlYX7fjJP\FihHDj8]U8ImFEhQQgbZC<kl`>EdgSO"
  4034.     A$ = A$ + "QP7TH:o::YFL08l5ZAS8;V=9::a=3=^j#MUVSglPbg#J:#d#YQ=QEA:kK]=l"
  4035.     A$ = A$ + "0BDLI041<[l1JH\fd`SjCAU7>9JU8V_1^_:n21ngSISiIG>BAYJ5GHm7^LQ<"
  4036.     A$ = A$ + "QJ40GakGacgB1TCg:=GLe\g05=5lMNH_25A\M]ZY3YW^_FC>C#5e5`[n=>il"
  4037.     A$ = A$ + "a8`ZT;:3#hBbf<M[WaeFk`L?5Q32cNeaHnFJ<J#Tj:VGZKi>A>ENb\c4Li5O"
  4038.     A$ = A$ + "I3G<9#=0S#JTfEd:T5MS=aZRMOcT5BQn\]4M=KKZ]`C2Z]:W1WQBS4gVSG40"
  4039.     A$ = A$ + "fna;L`HbkOSe5fP]j8<`IHZ<WJVSXP1m3dCY<cS?9G;k;\7n_kRL_>]DLbC9"
  4040.     A$ = A$ + "V07L^#WYgRlZ5aD]HnDK\S0jD4WcLP>o=j>M5VoPeFU:=\oROLn<hj;7Zc;7"
  4041.     A$ = A$ + "<XWA13h1bGb[K:Ugl\WJ8X^Fk#TN\`MLCPcSDbeC<Zag9_LnjEnl\4Td7D63"
  4042.     A$ = A$ + "oXV4fA?YbVCj;_cbOdGPm#L5kLfW>MK2GoENS;#S>\eeAD5>>M0VYCV7jN]k"
  4043.     A$ = A$ + "P:=4fCA>de`:#>[;#L0EVnU7g1lV#ZN:#4Yo49F7[hHLlU<NH;9jh>J;O^\J"
  4044.     A$ = A$ + "CYXk5ge5\FcTc:]CILjT<8ZmDUGhM_Q\l?R^9FYl8d?##Fbh;F=_i\1I7Ql7"
  4045.     A$ = A$ + "6#m9f0G0`D`Kk?4>IG>7?0c[HCOca;#:DN]YWHS4f:RL_HffEMEOJ\AeiIXV"
  4046.     A$ = A$ + "f##iYG9BChdDWo=c7H6h>oWCHN<]IfJL#9ORSbA\RClFW33g\<Uj1eoVj5dc"
  4047.     A$ = A$ + "PXbUC]hVBNnPREc`2GSU4<o#\l=W2=3m:RlIZTigThjADcDe9aAV`Lo:m71J"
  4048.     A$ = A$ + "DblmVbma0K>miInT00I\J2g]W6?>^49F0;5Snc_1Eb]ko:i5<?XPVlSl;hUn"
  4049.     A$ = A$ + "gPI:geC^ReZGeK#6nD=[8AA#MfkIM7I0fGAj`E<jP3RQlPJd^DaTUgB]dZMm"
  4050.     A$ = A$ + "HEWo=AD:ZJQnIYREahkmdSn`=ec>S`3Y\hkXJ[UG6AUTMnZe??co<M?Q^jkI"
  4051.     A$ = A$ + "=jBTkYBGOV9]k;W>=VU:nj59^He0ZDHN1VTa`Wn^a4>hJEoc#N^l332F5P6N"
  4052.     A$ = A$ + "IF1d^CT:#hFeSnHP9F\FHW3>Z4XJnRk1X^>dP94A]IH[:8a:h_L2`SAe2_Bf"
  4053.     A$ = A$ + ";ZV82T^j=l^^TkPI3;BmfP<#afoGO;M<DTGkOi?oe<>BXe18kO\M^_H8=BDS"
  4054.     A$ = A$ + "g#e#PgK5C7lWmIC0HViU8XeOIillUcVBSd3a9WS<3=<JPJM7EDb#GZUT`n]5"
  4055.     A$ = A$ + "`K6TKa4FS_i?lM2ojcbOQUB<f\l1TiTZfjGc\S`RCOkRC#EYEIYY0eG_jTST"
  4056.     A$ = A$ + "UJU?WEbk;X]3>7lL^QSn\?e]\WW\[QdmNEmEmh4jj7#EWVk2K3NUgiAH2R=T"
  4057.     A$ = A$ + "GQb?#>ei:<[d>QKQafW3765EW7OQ:b#5TH3DcUaOD2DOXno\mC0aT:GR=4^U"
  4058.     A$ = A$ + "km2E_L7X]ooKkdDBj0D3Ce\KV3?1I5W00n8?^fH^Kn7;IM:AM4k>3mLiS=Ej"
  4059.     A$ = A$ + "d#BARU::MZSkXP1<K6jS>6RN>L`g]D6>HRDfNcG^A1W=II1DG_nlJZTCTl#J"
  4060.     A$ = A$ + "lSh9FJ=n9FAWU1l0d:39V3IZ8`Ba4N\F\#D^4GAb[mYR2l;DZ5YDL8YgkH05"
  4061.     A$ = A$ + "a]Ff[>WR8TBAlWLVb<ECb0]<^nkEKkWko?00ii:H[PU:52a9=n<X_NSm5H>l"
  4062.     A$ = A$ + "^:9L=LbTa3#R`_Icl1dPOIWCFM#7:UXRG>b6KD2D:F7ThgY0>>=InaNd0:WO"
  4063.     A$ = A$ + "\M2EL?BPK[UUaVhL^V_M#e_^H=kmHR5:D_o5NCgB^_=I:LI^?c]QB8Z:TTnK"
  4064.     A$ = A$ + "Z:>\Y4B2#6_10<9TQTlGhaAUQ8=bAS>a\fO;SXScHVAF;n9ih=HBDI2YdSbc"
  4065.     A$ = A$ + "S;R>D]SG#Q0dZLRRCkQJJA<oXI24_bEAdVhba<feBU`4LbYI1K=WX[6D_IRZ"
  4066.     A$ = A$ + "mLXinNiOQGebDXC?eO:L;1O34A72dC1AA5n3;AF?KAUaC1EK#n`^Z69d;2=`"
  4067.     A$ = A$ + "YaJC^a9emi4I4jL;e31lGRoln9lCD7nACSbP#91kb4hIn?P5LKcWANfL>QS9"
  4068.     A$ = A$ + "aid:blf?::V_`>6lfT8^dIdKldKeCiXHY<3=bWE^AZVL;H6A[^a5R7Dg5NPM"
  4069.     A$ = A$ + "kGZ[U4X<5_7Q1U[IfBM9]JDm#Zfc__?Z0geFj^XREAZA`Ee_VkliREF\[mg;"
  4070.     A$ = A$ + "APY=cm7Dj77ZQP`>^I^B<H;DQo==ikm6oQIk7QEfaBZOW=UoPMB4d=4A4;B8"
  4071.     A$ = A$ + "0P\Z[o5c6Z1F002Yhm>A`TJi]kCMPRi1R#=#5BPJJ\\;mc513;:F>FP?0=0h"
  4072.     A$ = A$ + "O4Ofmgj3Nh^Ca2^jQ=[0\fmjOcY_;bChh=Lj`##g#9cFDUomOFdBhnkC^cci"
  4073.     A$ = A$ + "\0SAK7[=C9iL9D6f4361feK^MLcRNd#[^?]oEjDU2co2Q1Hl\V?^YIP<W6k:"
  4074.     A$ = A$ + "OH7Q<:NeWhXKFRe56na8SkF?\[Om\fDX3=ZLSU?5Za9:X_4F4<4S<Zlg4m?B"
  4075.     A$ = A$ + "WB^j_XCL?n]0bn^7eU1W>kZmb#PBYT[43JVijRmPOa8UoLN#X>CK2;H<8MOW"
  4076.     A$ = A$ + "JG7Z[eOS2dOn9KIA9gF\b=C=2=8fl;Cn:W`0k]hgA=b4lF;MaYL`fFYCcend"
  4077.     A$ = A$ + "0_l92Ph`meg_fmjUBNoiVmE9_GQbGcDBUcY72RooOmCC>iO4VZ[S0hP1aRFN"
  4078.     A$ = A$ + "nBA3n`nfc02nf\FP5bo\VN_<Dlj_#bBlJlQ\BoVF[8dm1WKT604_N`X3QaoD"
  4079.     A$ = A$ + "h>alW5i6JEMdVIeBkOPk7Dlbc6a`2Qm5F#5BOCAEI`lfI7]oZ:7I2^[\;1:P"
  4080.     A$ = A$ + "LigXRH21jQ<W53h]OPMZPD:fMP;8O9#TmUjJG[M4H40=_dXda\oX=on?hWQ8"
  4081.     A$ = A$ + "L8j2Zo54Q#8TIk\NWE7;N>53UoTMfoGMHidZQEfMifcFFL4=gP]b\Xd\C\2="
  4082.     A$ = A$ + "aY;dLERKMBJb8?en>;b6aS:NfTf^R7khmcD?WDL_BgTP708^j=^kKd9X<VVC"
  4083.     A$ = A$ + "mZE:JjlZ3XM8JkYjTiUQ8G2_hn]Q6^_1cImNdEGN]FCjGS2?;T<fW0UG7]bg"
  4084.     A$ = A$ + "Y`GcOkn7E4CZ4CLfA6KW^=hk^PKm=K;R]jd1W^=lLc>f`f4QfNO63TWBi`0:"
  4085.     A$ = A$ + "4Y<kAV`S<?1Q^Ph0mD##]EmL[fi[m2iUn93=HlAng<5oX3S3E_m>Za<2f8U`"
  4086.     A$ = A$ + "a?15R?YgAmOm0k<boQc<lAN]PV2X_0`i?JZgg_]63AfA>J7_>1Cg4LDb8MC2"
  4087.     A$ = A$ + "DBg3SdGgQc?]R7EFAc5D\:j;Q?HPTgL9>fQCLF8RP<dJ`iKgg_bf\>Rc\<0_"
  4088.     A$ = A$ + ">4m6l>84Mn9;B6KcYX1V\Mab2o6e4j[Z?8M?b1[0K<il6i3TEno6oYhI;oA["
  4089.     A$ = A$ + "bn5ORa9ZNaA_^W3JYOOVLIa6fnM;\CiLE696j`e?k]KefCU?3W4Va_`9Mb=5"
  4090.     A$ = A$ + "N>iM<ZgPDJ[Z6V_GoX_]dTOBTg[DI::DPCZRVhR?`6YZLZa0Sb7S9\bJU`Cl"
  4091.     A$ = A$ + "jn4[XbH;Si43H_dbmXd^3BdIdH6Bfo6<6TS56Nlj#YQ9a`j9;\kYHCeY]EK<"
  4092.     A$ = A$ + "YbLWDMG5hT1Lbf_b#[AVgEk5jHm_mleZ<619^ba_Lf`jO6:^>fo3kNSe9O]D"
  4093.     A$ = A$ + "gMkFB#emFPglAOi5Yc9iPW5OcABjA#`b9QAEZ^V\LnO^RL]c#OaZgUFE\H;]"
  4094.     A$ = A$ + "Za2KAa7l6^Pj`?DkiEJ0UV[0UmeO_:2Hn1OQ5<a4Ce^b5DRjmD_:CN_Lkh1V"
  4095.     A$ = A$ + "=]d7m_W]Cf#Un_MYADdYKnFmE:8fl8KM=I5;SZ;2ooC<FLOJ`iF`9^Gi3n0;"
  4096.     A$ = A$ + "[jj[Q`P:P#TBV_3TUl_0_O]TA`8KZoGjCF3I18j0N`12VgJoHc1>k]374]Ek"
  4097.     A$ = A$ + "TkV?U55A;2Zj3]oh8UA8gU9F4goM??3Z>HmFeKOIBmEXj0V3ll`]KeB9okik"
  4098.     A$ = A$ + "ZOZZRa7Q2cP?heN]^b[7_f>`ii]n8_>0Ug==[nnKQ?j<0mAMHmeed1CbE1^f"
  4099.     A$ = A$ + "#c`T_j4lbn7m^j]1mYVVG=MJKL6=4MV7^^D>7gKEgeCBG^0n#Xhn[bo\0A^J"
  4100.     A$ = A$ + "J1d?UdXoA?Zn5MRkVX\2P27c5ejh`b43mc>K#4Qe:W1TakJ^ccbb:j5HMZE3"
  4101.     A$ = A$ + "n_7KcEoT^gXLeM=XAXmS[D2#lhifG=GFh<j;2GWcVdd:k:g0CTF]D9?Coh90"
  4102.     A$ = A$ + "k[>_#eMn9C`nQLXg79M7]=>B^07HNo8MCD5OP9Rc`ULc<Y\?]T<MB[CMAJg["
  4103.     A$ = A$ + "aI0DnblePWJ4i9:h1]RglTK>NPoAHA^#>j6o1N3ePlhdTSR[EjPXcSIY0=E8"
  4104.     A$ = A$ + "ZmY\ih7=UVLGG9KQLa0Oc]JkCeNaOHilcf<o983LJ]51^21gKcLmV#;SI`7h"
  4105.     A$ = A$ + "JJOL6c?f]R#5Y;T9gYjB#=ZBB8c\P=LEbo;0oD0`j;`CZ=Vg2\Pf_1FB<kmb"
  4106.     A$ = A$ + "i1Zcehm<6lXAJZ8]gXk0;gD7:DgTUDB7gk0[F\_ih8e]ZACQZ\llF]EXdi_C"
  4107.     A$ = A$ + "FHQ8`JRb[]SmU0FDN[#5_6`PKAPeH8afb0W<`RGGm;Wf1FSMPeh>`JLOL:4`"
  4108.     A$ = A$ + "j7l3J0;kJDZX;MODfURAlB`7LD4O_^3\NQVo=[C_Bhj9c#>=DdhVDL9:RD\4"
  4109.     A$ = A$ + "gVh=JQC9i_G21MWMl=GFk]#CkC8KfZ^fSU<U7>5#]4NJ`RUbD<^H``UI:J:O"
  4110.     A$ = A$ + "a4^dGj0[fNQ\PTT87Xk8E=?eG^LeU>7]?\UhOeK`:6TBPUJnP;gQ8C=41k\i"
  4111.     A$ = A$ + "YX6ZSijFW2\J[#niUK5ZR4beII1EbWIaj:a:FbgM;DKFj0[W1CPTB<;YR#OB"
  4112.     A$ = A$ + "X;5EjBcJVaQXm;\bC>fA:ha9=XHB[7e8E0OJj4HbPYZ^Z;e043Rahj>4LF`7"
  4113.     A$ = A$ + "K8]kocR]3CSRgO^DFNPE1`jMN:i8Hfccg\Z=UW:9[c_9_PE7H=?ld_kWma]H"
  4114.     A$ = A$ + "A>T4HYbWQVPE8CODbFD<Yl4k_3\L\5?\5[fgIL]gGaCE?#FbkCH:BLheGSH1"
  4115.     A$ = A$ + "cC`>GTjVmaH`[K8W\40[TDVYENR?7kko`6MJ0NX>V6D1YYQ=a^JY<ULI\M2^"
  4116.     A$ = A$ + "eXJYm[k\8b_0FRkE#hYV:mMSIMdF3:`2eT_7;<8A=VicLLKamUdIY`bFDjCB"
  4117.     A$ = A$ + "Tc:B`WK027;dbH3\6]Z8;PUjEc#`4ma0HQIB<^G5EA0;olH3\`c8NBB9\A4H"
  4118.     A$ = A$ + "Mf=Z10;7k#8g8Sg2\h6WCd<ML:GkmV6anI?jWlm8`b>U6k;X;mPFaj8`BVJ9"
  4119.     A$ = A$ + "G4h9gm7mYoTF\E=Gf70F8QiaCWeXEgbZE];]jA60_\A\Z;oEeOSZ<lK^mK^g"
  4120.     A$ = A$ + "DT`c1V]GR\6a>IPE^dWddiXocGIVJZVnbn_97lfL\_oEl#5c]1T9[FjbYb3#"
  4121.     A$ = A$ + "jSJ[YAPe6e96:ZOBig#FPaeElEPOGhN]:lL6YoVF][M#^6F;MZ:ffG_7KKGN"
  4122.     A$ = A$ + "hPELPL8Ol9`R\O>;OQ:ibC6^GcH4[FaBc5HWGkRIbSa3f1=DYDFJ#Z9A\LPF"
  4123.     A$ = A$ + "CR>a]D\nJWd^IWJ;EmhCWi:M6HMbi`UWRHSE\VT;34n>Pi0Q:Af>`BH;4kWn"
  4124.     A$ = A$ + "X?o?iM645NDZEJ=h`R`WUT8[nNJ;EQ=oi=O_ojOlWgRE=Q_HV_Ve8#G>S:HH"
  4125.     A$ = A$ + "PU]1<A6HND_8FF#eHJeIO#HU5i#KEk=0BRE;G5Ym74a2V9OYUJTm^[P\;cVB"
  4126.     A$ = A$ + "Fe;ZK?bGi5WBkaNUD?0FB9Fa:eBJj1U2XF9Se[TET]6\VJM=RENdDOEBFeZc"
  4127.     A$ = A$ + "3ifj>n=:OW<70;j;]mkELTKegVbb#WZe9T>om0HENM0[nWGC7m4f:Tl`R79\"
  4128.     A$ = A$ + "[Da\6UCj_2GHYm[kabEKTeMePBo:?VWYK0eOjaO=IbcfgU6>c9a_5O4kH0\2"
  4129.     A$ = A$ + "fE<8:MAMnKP3^oYaG2HQHoa?jWm?l7nKn[On[o[Nj=NbCNbM?i[gnoO6mH_>"
  4130.     A$ = A$ + "`ZN;`2o^kn6_gOeOc_hWmjR]23=:CP59joL#hU:Y1cGJ\;`0WFiFQ>An0Hae"
  4131.     A$ = A$ + "aNYH[eO[56KUa2SSRe3SB9j5=7<l0H0HenMg4k]_W_RH9=9\23bd_BF2BoRN"
  4132.     A$ = A$ + "?G[hj^dnlfbDbkf7LY90FOYONY]aU^1HY]27beOIgWW#\_2`J<0FOYaBo^Q["
  4133.     A$ = A$ + "HmenJVXNj8Wd[37nbSmdYk^[3\HGF>2\RHo5?jWocnXohOoOk_egjmNggiMN"
  4134.     A$ = A$ + "W_mgnKn=oV_c_c_7nigEol^_GkW_Gk7l_l^hWf_kMo3nnOf7miol_:f_:f_P"
  4135.     A$ = A$ + "HoloOljo7lfHM<<=00000TDA>AT[21VPgP]l%%%0"
  4136.     btemp$ = ""
  4137.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
  4138.         IF INSTR(1, B$, "%") THEN
  4139.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
  4140.                 IF F$ <> "%" THEN C$ = C$ + F$
  4141.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
  4142.             IF MID$(B$, j, 1) = "#" THEN
  4143.         MID$(B$, j) = "@": END IF: NEXT
  4144.         FOR t% = LEN(B$) TO 1 STEP -1
  4145.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
  4146.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
  4147.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
  4148.     NEXT: btemp$ = btemp$ + X$: NEXT
  4149.     BASFILE$ = _INFLATE$(btemp$): btemp$ = ""
  4150.     OPEN "10x10-board.png" FOR OUTPUT AS #1
  4151.     PRINT #1, BASFILE$;
  4152.     CLOSE #1
  4153.  
  4154.  
  4155. SUB Save10x10piece
  4156.     A$ = ""
  4157.     A$ = A$ + "haIiEfoG=Tf60o\Zd;j=:LX\mLZ47dj<BUSXHDZ69IDDS=R1kFC]QQXWA_8c"
  4158.     A$ = A$ + "cA_<5]WYGhc9_f92SdVYeA>R]j4:3UeXGhhMEZNb6Ek:Lfia?_o7lLmikmg["
  4159.     A$ = A$ + "[kk[[kOkncWk\2;d0]bRYJQ8AR\:hPl7F8kU`bKc<B`K_aPQ49b8AQ5Bh18\"
  4160.     A$ = A$ + "=m_^Bo[YdoJe=4R7OSb^ck`PTP2J;:\4DH0D40<#c`0]53D<6X4<#Y2MaPUR"
  4161.     A$ = A$ + "13P1;7CX;RL<DihPRa1UR3I;>40>\DLH1;77107A>^#GD#2aVA8A4Q4c8TJ;"
  4162.     A$ = A$ + "1XH2894`B9P18PUCP8U01P0A>1:8Y4ATB<SDZ8BY2fFB8YT`R9AT#R8U41P4"
  4163.     A$ = A$ + "A>Y`<HPTh20A9A4UD1<S2#45\4:49DX0DXbY#1Y`40R27TBH<28JYRXUJ6=P"
  4164.     A$ = A$ + "8J40JDidHPdH#dh20[2#\:D#EHbEQ1Z2G^:L13YR0D]LaZaPDS3ZFXV0B=1\"
  4165.     A$ = A$ + "JB8eT8ZYAHPUbP9W1G0#6L862#6213c#P`#2a#2c#90235:S``dX<Z#IQUb2"
  4166.     A$ = A$ + "3`R8U51P57R57VU4TU4RUDX0QU2VUB`X\d8\d26SE5ZFHYJQ1dR8E;2PFL8]"
  4167.     A$ = A$ + "TPJ9QdB1[U2A;]0XJYadZ2E7RHM8BdQ;G7>T>2ij8PdA2ZS4F75T>:4Md2PZ"
  4168.     A$ = A$ + "C5R>eXLXBi#1h#1i`TcQ;087>47><7QL>2#>28>B#>:iLDPLdbiXQiXAhXAi"
  4169.     A$ = A$ + "DQ`YB`HLZahaPha1iaQh9Ph9QiEQb[2SGhLehl<Hl<2VPWE0BN]4lJ9eS3YG"
  4170.     A$ = A$ + "=ZNehjI4P#?3YNFLm\4jI9e[U#_`0j4PZ;Fb^dBfU>1X6#7i0o?C?07e0LdS"
  4171.     A$ = A$ + "XSL4MDS`90m8lDS`;HE6hX<`AKPG0E6d[b`oH<jk>a9:=mdCgP`3L3R<leTQ"
  4172.     A$ = A$ + "_F949HXUi8L`7g5LX[iOnjoO#8BO<1hR8AVl]1koB3O_MDBQg3kkS`n6[I]V"
  4173.     A$ = A$ + "GJ[iWUOIFbE1RM5AKNeanh<C2ZZ3KohSM9iT`hgM[UVo^V^c:_o^Waf:YK3b"
  4174.     A$ = A$ + "J^CmeURgCjiek[IDXKkiFFl;Lj`Ud51Wf4;;ZQ_\A:mI0lJkjHKLTBFHZBlI"
  4175.     A$ = A$ + "gkCUEfH8I_4Ki3oRM>LWmlG4bF`D_ANiY#mWk<=_ndXf4C9WAkC?HJFEcWob"
  4176.     A$ = A$ + "cgD5?Jbm>\R1[hAm?DO3TJ]WQoQ5DgomhcYhA<m;?;f7=a0^XQLbHL\O:[RC"
  4177.     A$ = A$ + "amSeGom?Ao3hH7lIAEIo6M?mn0<gI[gD_lBF=imn1c?0PMFO;6?J2?Pgn3\S"
  4178.     A$ = A$ + "`2YIUa#_e_Md9To;gWCmjn=C5IoIj`VN^a_IN31:c2=IWP5E_c0CJ#cM1V=6"
  4179.     A$ = A$ + ">KMdeG#28kNfH<fSeEG`F^naX<5l=7g?\m1L=Y0_d09fk]WGG15n;KO1S\g<"
  4180.     A$ = A$ + "j8QHBUlViNR8Akl5M_UX16KQ>Dm\7gfMIcaYP9nckH0#o^oFgiH;k9C;AOSL"
  4181.     A$ = A$ + "VEjF=^AAUSi]=I??dm_dCC8od\n0AfS[7i#:B>GonI^[eI[?;?IA=>CLn_BX"
  4182.     A$ = A$ + "^HMeS\C6?cBK]_MheRVf1^PhI?Ld6ei=_m<MkQVKideEBdIMMScJc#kXJKQ2"
  4183.     A$ = A$ + "iQO:XEbEFbgZ3O?k?_LH0WZL[f<G?jbU0EDNPGd:?K_PCSl=Gh8b`KM1]VM8"
  4184.     A$ = A$ + "R?G>16g;FbZWIegiMc[Z>b>oj7#cn22XRYTMTcPl^I:_Wl47hUCoL0oR[eHB"
  4185.     A$ = A$ + "13b9CQb\MOL_YY<]MckO2fkYLoTMgSN\X7eMoWAJ;ed]9]cBml8_egCW>d`?"
  4186.     A$ = A$ + "nTWe=o<JDP=YnXlV^IKgi0cl7oLPa_AO>Ah>D1CVWlm^VeA5=5OVVC0O3jHP"
  4187.     A$ = A$ + "coOIbYZNS5Gd62SJJIXl8Yn4K><aQU]Z:oeYKW2CLGNFKAU5MTklhd1TEYi4"
  4188.     A$ = A$ + "eY[>gPMc^m0\#[?#CO<1b2No1?[9cYkfQJfQ2mkPE6cdVlRg]RGGm13ehmIG"
  4189.     A$ = A$ + "cU[<<ZNhCM53EkY3m>Fl6CWeBaF5hA3>ThW`?Q=VMMEjh>Dk#J^o=ck??ib<"
  4190.     A$ = A$ + "6g<e:NUa:FfEJDcH=fUEWglo]`:X`F0VSe[;i]dh2GBSEoWa^E#O?`LEHB<i"
  4191.     A$ = A$ + "6AB_ihCjhHAEk[oAAAeD#aV`F[3\]iA5dkET>`WQVZ17]bdV;_R[7bN4Gg]2"
  4192.     A$ = A$ + "`C=^7^k?JIM[m<RCZjo`iM?IP0KaL=C`^99]>Hfg6]mFRiVUZiJMY[5iOKn="
  4193.     A$ = A$ + "JJn^:MhD^YRT;2J:5oPbM<AcCNn;kcM:[bIIndGN\GM\l>e`ho^CEDDmYOek"
  4194.     A$ = A$ + "8gbkiJ^LgeL\Gnh2SLliV`LGLY5OXNV4UcUEdEhJdi\_]BTGEH6_J;=MYOA["
  4195.     A$ = A$ + "MUeoM_UVkeO0ko1\F7_7K:_h;\nHMlYf7^k=eVne]LaO<1=gFoKmIQf=hYfG"
  4196.     A$ = A$ + "M7^Q;hBCJlmUmWZ7aSfgJmgfFKb^5^X=]XTLOBGKF]Ed8];k<o`fWNIEiHam"
  4197.     A$ = A$ + "OV83K6YWbe[o?6jg^JWb\^hGg]G?Z5cjdh;GUW6?j7j8jalVU;6[Qa6QBW3#"
  4198.     A$ = A$ + "lYEVd[FO6J7m;gEM5Y]QW4g?ahUgahg=lRWg[SR]]Na\I0VWBLUZo^Qk^UWd"
  4199.     A$ = A$ + "`jMb\QKYgRlCc`=dH>i\RemF_kMX?>D_3YAS676jlN3EcEUiG]b<ll?Ua5BI"
  4200.     A$ = A$ + "]e^gagVgNDEENDEROOaGo3_m3oWNne6fPMW?RIa67[cN104aRG7CX[<TE^b["
  4201.     A$ = A$ + "]V5?RNe5ifC[_V1GWBUNDdZ>NJmnYNRec5]nbSPkgKnL?\SSPHbaSS1Qheme"
  4202.     A$ = A$ + "n];JX9>J0mUFR5LUY4FT_^=Qo;45L0Qjo51S9So6^Q]4%%%0"
  4203.     btemp$ = ""
  4204.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
  4205.         IF INSTR(1, B$, "%") THEN
  4206.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
  4207.                 IF F$ <> "%" THEN C$ = C$ + F$
  4208.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
  4209.             IF MID$(B$, j, 1) = "#" THEN
  4210.         MID$(B$, j) = "@": END IF: NEXT
  4211.         FOR t% = LEN(B$) TO 1 STEP -1
  4212.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
  4213.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
  4214.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
  4215.     NEXT: btemp$ = btemp$ + X$: NEXT
  4216.     BASFILE$ = _INFLATE$(btemp$): btemp$ = ""
  4217.     OPEN "10x10-piece.png" FOR OUTPUT AS #1
  4218.     PRINT #1, BASFILE$;
  4219.     CLOSE #1
  4220.  
  4221.  
  4222. SUB Save10x10pieceup
  4223.     A$ = ""
  4224.     A$ = A$ + "haI7FU0G>Uf5oLOKC;3JABQB8VJ<FV\5bD=T\_W4COVIbD3e8YX1SARB:n`g"
  4225.     A$ = A$ + "<I[5O<6k<J\TUQI2OII8CIBS#B4C;DZNk]gkmLnnWOWOgkmimiiL?WoWoWUk"
  4226.     A$ = A$ + "kd3J\SmTFCD`n=ka\`XFVKMT8B1bWLDRBI>:T>ZSdG\PU]PdP>U`e`2C2cF:"
  4227.     A$ = A$ + "MALC\G<G\ELBJ_H3FIYlN_KUU#\AjTdILRkbk;mC6T<HIhb85OQ<<YoRWBO4"
  4228.     A$ = A$ + "?`IMCLEj:dbEYW#lDn0a;Xk7Q[n0[k:^L7Wg;IV`N^:>Sga1ldC\OgTN0kK["
  4229.     A$ = A$ + "H7lXe#\1Ha5aA\b4A74=F?g<Tjh:hg0iNLaLULYlM`ZoRoKl[Rikc5R[oV_;"
  4230.     A$ = A$ + "dY6^:XEUhNELIlC`_=`=RX\S`nMFJWH:Ri6A\K0BkTViGb?7FkI_C[j`jbPE"
  4231.     A$ = A$ + ">6_GNglZh`i0HWhZdRAcK==e3ZFZ1?NCmEflc<FY^b;j1>n7YM]nTo?MimME"
  4232.     A$ = A$ + "eRVJ5W[^ZDSbZ_b^4LnRNT`07g8HoOoa_fY4aDGnDDW#`ObF7Fnm=LW\el`N"
  4233.     A$ = A$ + "cmNH7:X;WeW36`^?c?Te>:9WT>E]gh0?cB^f^\]1[O2jodhG\Wa\fX_`WOjY"
  4234.     A$ = A$ + "]]Qmk>obF_m3VGND>M:=WGKT[]d=eJFnNnROhCiUgSkjW3c;lXSHif4OjOE7"
  4235.     A$ = A$ + "W]nQgOWTg^Q2SmTG>S:BYhT6NJ?:[iLndOh54_j9iO?VKVA^gX_H4V7BAO\3"
  4236.     A$ = A$ + "^K7ek7?P;_U3hH6A_=[fY^3kCnlCK#W?^Gj8geDm=d74Z^I4VO;^_>IMVeHG"
  4237.     A$ = A$ + "QWlL3i#SHOgi0KhG^j=GacW\>SMk\NomSIVCN`Cjn1TmPleUEZ4LE[o^GoB["
  4238.     A$ = A$ + "9gclcM>_fG`n;;d6WU=Vhn;6DeS<`A?8ORh3C^KKeb>dD>E4Ga9MkEM[gFH8"
  4239.     A$ = A$ + "UmTZ3A;YfGOG[eS4mZGNn:gI7EJgSdGa;;_\#^o::JJU<Xb_J=OZAE;_\S3d"
  4240.     A$ = A$ + "=Gk]Imf6gZcASFM=]NEOA_`^bcjAki9Kni[X^2JYkVHS=Cc>_jdgh#JM\F;g"
  4241.     A$ = A$ + "_bP=TDm5GmBnW<Z>[j>AC9`IIfF\FW]G`^3gQ>HCPV?;emfHI_fooalG^aZc"
  4242.     A$ = A$ + "oeQgDgUkKaRN?;]Of>^L7VM7;eZ8e]#3Ag#Be<VGnKE5boL^jJYA?DgX^mHQ"
  4243.     A$ = A$ + "MFkR=W`ZD]`P^mZUB;S^aCGo4Zoh=LkVL\eTiMYkFV]<;VS5EJf#<91I76kO"
  4244.     A$ = A$ + ";YfTO=6AS_ZY4KiH6K_D^B3Vd?c2`\9HjRdI;MA]CILZ]VYQ5KX#37]e[H\H"
  4245.     A$ = A$ + "e[Y5?O9n0LH\3\el`iC`;DlU\BIe:kDaCUF4oia[>YFgI;YZOXj;#O062chc"
  4246.     A$ = A$ + "dRTBCWYVV\Y6<I1jNUXZJB[cAoBJ:k6]_Y3f\W62D=5IkjdIff<g2;2bld<e"
  4247.     A$ = A$ + "NMn9aYFRQBeOYVC^I_eWH;ndj7Zj>GQd2]:U\D2BI7D6BlLTJKD]FSYJ<6S7"
  4248.     A$ = A$ + "aXcZ5YNF]\i_GnLj]dhD6^Bid7B18SUk\FM6KXE_KmA6N^QXJ=LSkGe1>29M"
  4249.     A$ = A$ + ":6UG[H#9MU[CG#bVo9]C[JRjA=V]A36g^JPJm0MFKANVXG:#FZl:NVlEen0]"
  4250.     A$ = A$ + "cX^Je8DGWjmDmEk2J1`ic^:CAV_h]Xbo1omlLi>a?Gk9JRV?XC\#f9IlbRTi"
  4251.     A$ = A$ + "RNhCaCT[C;C]hdRB;1]SZYG;#Nml?c5aeRI5e`GWo_LbL\LX\WLCJUXM7]c1"
  4252.     A$ = A$ + "]^Xf=dJ#kSh5`KV_6cLOUQRi?V8gW?;_3NI#o_UCW?<`aObecF8VQi5f:FQi"
  4253.     A$ = A$ + "D]=kZ?H>UC`g<G=>ohL>Hn`Fi=0T5;79VC<KNJlliXi_QC2kW=VOlClYa<Yj"
  4254.     A$ = A$ + "HKU9:9:i;F#3SRTf>]?:K:6bBJcR5bBiBd6[FYZkB=7ebEWXfOYU>_0I#DeD"
  4255.     A$ = A$ + "l:gCY9UK[<?UlXg0o>2>NXG<ZQX^IEc#d4;k_H?MG:HUSXl[:KGiSDf3E=Vf"
  4256.     A$ = A$ + "^N^6`;3FKPJQ[EPfDH59GiCXcB=BFZd4MJ:8j6#[\hjen<]e0NO[JgD;5FSS"
  4257.     A$ = A$ + "CLQV?]1joA?Q><]8ZWD^bTaG1^9_>>5>?`ZSFb#^UdRh>i2I6m:iHbG2NY4>"
  4258.     A$ = A$ + "C`K[Vg7Vlf?IMB=bLPgJVLCa35CE^<mIh[>I:O<bjI3^96>>`>o>V6?C9CYB"
  4259.     A$ = A$ + "Y;D0d2XiASRLVZE^Rl3bG;A8;FRAf^T7>g5b?:<`FAQkO<I3MK99a?<1oYH6"
  4260.     A$ = A$ + "mm`<N5TEl5_a?:o]H:eGHW`X_5Aa6XhXI#m7O_k1B>`NN9=a?4Im[R9m]CVU"
  4261.     A$ = A$ + "L8YmdbYR8WE6RB0:SBa5UG#YAmR>Y<Ji9Xj9MN;li`GA6UTUd\h7]<jOCI#K"
  4262.     A$ = A$ + "2F_KDAbg931i^6hFh^2>JcbM4[XQBQB;URV2V68I2EZLDICBd8JB1[^?bmmT"
  4263.     A$ = A$ + "24ajWBnCe1TN3\kU03^2DKM?DcjV49dZ>IPdh#Eb`X1#f2\g18:DIbIUM9KD"
  4264.     A$ = A$ + "B3lo?:WA^^l04]U85REoR\?Ig`CO[4^42jN65nj\ohI4b6TmS\ec5A<3lFk`"
  4265.     A$ = A$ + "o4X6PcKQ8OOPk3CLU2B^4O6ImP=?8fObbB0k?GDYnWb_:?FJko>H4EHf#jU6"
  4266.     A$ = A$ + "U:P_b5Nj[UP#^dKI4b<T_#BF>]l8hQ?0XNjd2AFJaX6b?ZcDU8fRCV>hYn93"
  4267.     A$ = A$ + "#lA24LNDbFTC0<d\H9i4e3LI1ab[Q5:D:B:EZ2Fjm879g9_8?QdCbNbDHY;S"
  4268.     A$ = A$ + "<hZN7G^B4YkF>WlGbK1SgMb=T=j:h8Sb;Q=bEf;ZJfTT:`e^#LV_L4LWU4YO"
  4269.     A$ = A$ + "WR5e\FC36mO9Co7TS:#fYLL4ei9[E25LgZ`KN8ig#LJ7=9TUS0eL[4E8;V2Q"
  4270.     A$ = A$ + "62#:;_0ESU1VoabC1V=Uj4`gXXIQjkHY4A]C6d^Y=C9P<lha\BcAFkhXKHY`"
  4271.     A$ = A$ + "j1;c1LE:8cE5ZgW>dMoDQX?[LHoQBe1dM84590]60#L3X;#Ed43bTQmG9U3M"
  4272.     A$ = A$ + "NDWV9]4Do[#E9g5ie<#4^EDIV;#Tid802BW>6M5HY2Xc#KU2W6=\XA`\50fk"
  4273.     A$ = A$ + "JPMO6\YC#cIQ:dfj?B48=Jdg=N`9mTL5\SkdkC3WV=fMSdN`4PSRiDkTBRnB"
  4274.     A$ = A$ + "XSghd^2n^G#kYRNQ]Co8M4:G:O87TB5InaCS4We?8SRV6Z3B5fhT0iGQb3f1"
  4275.     A$ = A$ + "OO0LnhXaPJ3O1o6:hgE2Mf6`JJd:Xo5f]gXZaJZmDG#]o<XhYMAGUN<E3YWN"
  4276.     A$ = A$ + "=m0HUO0MdC6H\]:BkANO0dD#f9M`MWW^6mKdYX30n?Fh7o0[j5#Kg9?#^KR`"
  4277.     A$ = A$ + "KQSiIA3fN=dZPUG5HP_QF=negQk]M5?#Lh#_a0N;8PcIP\HKLj9XKB5CEB_R"
  4278.     A$ = A$ + "ZRZ0cJ??U5]N4;QPHLB`o13T75fI?P]n58W2?g3U2Ng#Y9PnmfhTQBn0MW?h"
  4279.     A$ = A$ + "a_6nMC_SGJC_<Xem>F9#Xco78J[=%%%0"
  4280.     btemp$ = ""
  4281.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
  4282.         IF INSTR(1, B$, "%") THEN
  4283.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
  4284.                 IF F$ <> "%" THEN C$ = C$ + F$
  4285.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
  4286.             IF MID$(B$, j, 1) = "#" THEN
  4287.         MID$(B$, j) = "@": END IF: NEXT
  4288.         FOR t% = LEN(B$) TO 1 STEP -1
  4289.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
  4290.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
  4291.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
  4292.     NEXT: btemp$ = btemp$ + X$: NEXT
  4293.     BASFILE$ = _INFLATE$(btemp$): btemp$ = ""
  4294.     OPEN "10x10-pieceup.wav" FOR OUTPUT AS #1
  4295.     PRINT #1, BASFILE$;
  4296.     CLOSE #1
  4297.  
  4298. SUB Save10x10piecedown
  4299.     A$ = ""
  4300.     A$ = A$ + "haIEHU0G>Wemol;]X4BU]TQ8U2SU\T]\Ff2IWH<VajP86<cHiefh5_S]an``"
  4301.     A$ = A$ + "TMSR#FcnJRTRbFfen2UBK??o^goO_WW7cWioWkWkminkN_WmcmL>gW1gW028"
  4302.     A$ = A$ + "<g8J4MKhn?Y#VCmMP8B3]N61A[JTJT5T3d4n^ilM;4W91ABR7;N^8IAlRg:b"
  4303.     A$ = A$ + "GTY8MA1lH6LkMRWPNfR?9:EDTXLAeT>8[TdII=Uf;]AJ]TTU9n<FWTUSme`N"
  4304.     A$ = A$ + "U:b3`WZhURW18;6kEXhSH]da:Y8^WhTR38f[HWRe:nIaT5SDdFQ;2;4GGOFj"
  4305.     A$ = A$ + "MF_1jBSAKdASO\dAmYSVe;Oo]NOiY^XD7oKf#:Qnh77gU_mJ^e#^n`_jI_Zm"
  4306.     A$ = A$ + "gJB9\fDfbkgD^eZh5;e\=]Zn0WfI]7F3n:_mXU[fgFiW3mH9m>b0SHPW8Xd7"
  4307.     A$ = A$ + "XO3<e0WN_WJg[J7NMcGYkSZf;\b[A^dlKckR>97SI0G`RC\_3^]MEhf^cF=^"
  4308.     A$ = A$ + "]K_cg\_jLl3OUUT#mOGk:JUFolJgRV5ROU6Hc3>R9fg#B8dk6J`QHLR62fYn"
  4309.     A$ = A$ + "o;MLFNNJ7GUa1UfXS_3WO\7bb]ghOk];CK9f^\bFUUKn5kmg?m_O_OimS`Pg"
  4310.     A$ = A$ + ">]C_7LGWi#bnkW`<>kLMmWGoLWl<^jggZQd\^fJ_K_SS[\4NCESe_XNIHA\a"
  4311.     A$ = A$ + "1\J7GQn:6oJlLkci`1OaDNHUca6;3eedKeO5#m6AhSo8CKWc8hYge9N]AeQn"
  4312.     A$ = A$ + "jCkF_KC`^GlYDCI2gNfAiankkO<Y=mX=^d]ijNJMT9NE_B^WiTRfi[I<=I`M"
  4313.     A$ = A$ + "Nkmkm3KkSNMSafAeQ15XoG\=1g`_^ZmYl`C;P7jee6GDKo_mJocKOej#C<b8"
  4314.     A$ = A$ + "_HTaU`[VjW:aZfFK?l^9nV#?>#oBL0k^oQdkedUjjc1JhTMl6d=n#_Ni[__O"
  4315.     A$ = A$ + "Gckc5g97i96mYFl5^o]dOHP_K]Obc:hQCKf]<KF_KW3M>h^DGo6KkgL;k\W?"
  4316.     A$ = A$ + "d5?ZLUT]_P`CefWo\4OFL^O_O:^TCX:?MI_M5i>WBGUUUFE7MYQ=8??[GCFK"
  4317.     A$ = A$ + "Cl`;bmMhj<LBcfBdM\#[cjkOcFOVg97bSV#BdCCoUAVfkn#jUjL5RaniDmmk"
  4318.     A$ = A$ + "Jf^ERkk^AUg`ZGofhbCLLDf=4]QGJYOlfIjekWb[?g;MoE[i=g<eIU];5dfB"
  4319.     A$ = A$ + "o>YWFKWm7dQHMZmE_8WKQCUFeOZB^JMOYiFNUn\SikK^;?k`cNYihBNc?ocl"
  4320.     A$ = A$ + "ih<<E]?KUEfiDE2]J9ihnZVUEM[f_KK3bbPdm[TNGXci7#^??c:UYkIgSl\8"
  4321.     A$ = A$ + "oeGXoUe7JZFOJk2Z:M`aIDm1ESkiLMLdnZjBU>UE3#fWb6KAe9O_cef\f#6i"
  4322.     A$ = A$ + "WADIecL3oS6;l]UN:m:HAdFM[:F^MEfnGDYmIgOEa\]JGFT_H`6:XTB::j?]"
  4323.     A$ = A$ + "h2l[PT;XW5>o?goB7[Q98j^FBEhAFeHKfU=m`VQKm;\lVFh;]4m?Fn>;Mk5k"
  4324.     A$ = A$ + "bW3ZXFDDD5mZ?_bBFOIga#=4mRLdREDQmJYOF=D[BgBbbX\XnJ;CV^nd=fN3"
  4325.     A$ = A$ + "3[lkEf2;KjUM`bZGiG_lUJX[6;aHHjNRkOGDL6L?LBRV8\CH[`CaX4WFlebc"
  4326.     A$ = A$ + "976m>ZOJ[Dk?eVWVAZaDUTgA?4SfIhBU]WB_O93[T>DbZ;9`BWEIYDnB=f;Q"
  4327.     A$ = A$ + "D^I]\]h]EHFF^8;]cbJEQCYmAiWdcd`K;C[dIGl0nLD55IAMmc3]hGDB<UU["
  4328.     A$ = A$ + "Q6;63=5;JQUKcZ=I]5fTVe]cJW]J[EhNJ_#VS^E6k#i7_deDB25_lRgCaNGB"
  4329.     A$ = A$ + "IUHIIMZleI87SMB<OIXTMJo0hY]Xm=JUASW>]lSR6;VWNB6k_a?Hh06VWQIK"
  4330.     A$ = A$ + "H76BfPG6?Ta^Yo:m58JXlfb1CGQLB;0]nXe#]GAcPNR\ebE:RE_#SNJ<43aE"
  4331.     A$ = A$ + "No:_TbNJI_]\6GnQ;?H3=eHMd[]`6iKTkVjVfIe:BCcR7Y=C]dX>AoRl\2K4"
  4332.     A$ = A$ + "SGob6K]aGIhX6f^QcJ`JSCeh[=n]jUZ_>Qcb5;_Y<?I9bg9?]L>bj:?]88AN"
  4333.     A$ = A$ + "j[Fg=mh=^MSo\a9KLV6G_aKJd>mA[7U^mRY8^V`:`?3B>FdKU\Rbd5g6a6WW"
  4334.     A$ = A$ + "H0R_BDXnkdO]NNj>8J?\AK5aY]AfDL^99W^LHb6Rc^Ka84eBlDm`dG\NXjQX"
  4335.     A$ = A$ + "?KmEXO<mg[G;0olQUmdR7PHjZ8g5Rhaa:RDl7REQX^Q86]XM2715NUn3dSGo"
  4336.     A$ = A$ + "RjA0h^Xn=dC#oS#n3#<>aR4k1#T?Rgk]dGIKT=BJ[<;P_X574N>cC4:X`R4["
  4337.     A$ = A$ + "4lEhR;9^;bBTQ#:ZTdB85EEF=IUAcAY[bj;KPd;0MMTe0J4WTF8;6ICNThZ0"
  4338.     A$ = A$ + "?kE\;a>4KB\Jab0^VSHVRY29M\#Z22ma2mc_8n?H_e8f2Tem2>j0RX0T?6HX"
  4339.     A$ = A$ + "DA=UMG>5iJPoJNBWXF#SPnIJmDHd1XMCoGJ08;gaT3EFTH3R69^XN`jFYO7S"
  4340.     A$ = A$ + "k`hV=69\H^Yo;j?CO8Rg82EZAo69YaY5^F:J5ZUQfidVTVTF2ERL2bHQN:2M"
  4341.     A$ = A$ + "OPmkoJ<HSOSaUJl66[WnVeM1LC[TGG>0:>ZiJ;0`N=]CY]F]1XE4]LbNJMbZ"
  4342.     A$ = A$ + "8gYXYRk[_#MoeKVN;e3BoGeS3gjfRXZbe9;C>LjPd[Yb8KeZPFfdUXiB=T^W"
  4343.     A$ = A$ + "Ll8OjF4^;2GO<jCC?Lmc3J]3mLdWYh52WPU?3Y_D`d2YoP^5U95?]7J1DPTC"
  4344.     A$ = A$ + "dMTo\d?XMcFLFa:4;D\=aiA>MKQ6JYbC9SCn1Ie0n[;bk[AO#NGi>TCEfIHY"
  4345.     A$ = A$ + "N<l9F[H10RE;>4d[F9K_l7UWGJ5eOJSD\DaTSJNXi^F=dn0M6JAhF#AbC:WQ"
  4346.     A$ = A$ + "d7I9`Z_AaR5c6F]i9F^8<h;oIQ7bA9G]lBbLU>#=Sj;m=d4XA1XlTL4dm1bX"
  4347.     A$ = A$ + "TK5Lj?8W8`a<0UF[lPb[9C1f0?Y>C3RV25:=CJZdg2YZiT=d;TA:W_\oBgAe"
  4348.     A$ = A$ + "5_7lG2X:UD#]42AeUN:kR<HioAngb4Q7P]D38OX^3]c\Q5hGYo76W7mMD?Y_"
  4349.     A$ = A$ + "VLU<:OTlXbo7d_nRjFn0\ka;^^h6lm3KTM0LBhblUM4Fm;2KBmdJUFGdl7mV"
  4350.     A$ = A$ + "YE=]<YX#L3?XTQTe98gG3bjJQ?i6Q^;9Q^`70mYU58K<=Dj7YEBK1FW=2Kd8"
  4351.     A$ = A$ + "YV2jNKi6T3GfH^^X25U8\Gf<8?cCN8`e6TO5e10eDYi0:<9JPD[YJ#6T?3J`"
  4352.     A$ = A$ + "m:o=iLUCC>CH1g\lh#gU_dJb=bGZ7D_Q_nPQ5Z6de1EoPL1bg2Kf:UY1ljU<"
  4353.     A$ = A$ + "#IdRH4=5EWi[l?Q]neBK0Nk<Pb?HCj2i=Pc>d[6I=6]TBGnD`ok7DIE07K0n"
  4354.     A$ = A$ + "6kF6Q<JHGRGn2HKN<hW7Q8KgBN6LZmRmgXLib51NK\#o?8Yo`c[]`_aO8GSF"
  4355.     A$ = A$ + ">KPS]0OTk;OYlSBR\RZ8E9#?[81nnI#>^3he8PO`o5`=0IU07DOii5N:_<PZ"
  4356.     A$ = A$ + "18:cFT_7N5S#>4i_2J5ZL`hTg3ba5Q6[LYSP[;5h]J`Gf><[#dN;XfE0dk7j"
  4357.     A$ = A$ + "\Y1>ZK`cX]8^JG`lAQEFYLO#JNYlCbZ2=#gQVKX`c84XgW6=IhOfM\ZMD6#2"
  4358.     A$ = A$ + "o34gnKTm2#gDI;#4if1Le;`1O;\5o6`oITa:cDZ;]3gin:ZNDM85oH1hS\1G"
  4359.     A$ = A$ + "l8XaN\l9#:C7I1\RZ2i<E;L_[9TGXgDZADmYJCf2=AFPS?;`g:0NWU<4XeF4"
  4360.     A$ = A$ + "Tb=833g#^5di50Jh0X#miV[`>i8ZQ_8#kTQT45K5f4lWE]E:G?\H73hkJh^n"
  4361.     A$ = A$ + "V`HMPGoUY7BSQn1ZbDJ8:U7dHADaIPnb0F_7dn75bJRPCG7`fg0Kgo3iDF^l"
  4362.     A$ = A$ + "8bU9_:\eGEJ9hnF3=d#QOiLQFJ9do1`oShnLoQ?[7HGRb3bL6`ojY0?YPLV_"
  4363.     A$ = A$ + "GV3R\I3hEGQGFW#<hARldCUV?^?^2jgYM#o9]=LcLA#_7<^Qg9XAZ8U=dK73"
  4364.     A$ = A$ + "b`2PFhKQmJ4bA2oZ91^i_PEmmb:0Z54hQ=CQSLigWBRN4M7Lg^Nh>VSJ9QKL"
  4365.     A$ = A$ + "aQkh;DNHIO#6Wi:g6h6[XX0FK2mAHek8hHOXASL3:<4?>MDHfdaZ]2geB3jd"
  4366.     A$ = A$ + "H0\Q1o^E2KlVQV=Lh;V<TTJQKKSWF:]FJO8^`UY[Ag3aM?7MHTOI:PWJ=\of"
  4367.     A$ = A$ + "A50jm#HeR6mk;C2j1UO_c`RgMJ8#O=K`W:iOi8FmLQ>LLHen0MXg8RE3Po#M"
  4368.     A$ = A$ + "Q7B3Ad>OihUQ2;d6PNj`daX80Mo;J[dZ0LSSeG=WL7ddEH3M3eUeFLWNL8[g"
  4369.     A$ = A$ + "Jh\No=59MF`Sg2LjAX=A;VV8hAo1Nm5BJCP>b7PQQPH[o8\1K6i>>1MJLf[C"
  4370.     A$ = A$ + "GP>>Xd614c4jYnCm2n?mPj6RIdC4WId#7<3H3G5]>H3E]O3BddamVN0Lj6l`"
  4371.     A$ = A$ + "[2^QG5LSX1P>nCO?>k606SUN:U6E0E2m9:7jid=`JK7nAC6BB[PecA6>WQdh"
  4372.     A$ = A$ + ">e>ZOP_V3`LHP[>?TRKBG5oND`GK1JTI2OiN3>Z]D;iKAe5`gH#m^0h65PL2"
  4373.     A$ = A$ + "POV:>e?3MlRQoe?Ao2V]#hcZFI9HUUcS;1k^0\k?Rc?9Xk6:T`^0lfG:0PYQ"
  4374.     A$ = A$ + "1Z<9`5[Vf5MB:6j1dSYDYLY<#^fDQ4T8dE75f6Ul?3LfQ0]c00L36aS73dBQ"
  4375.     A$ = A$ + "0L_>\oQP<L:hUYd_APllk4jk50^K\82OOP6Z7#NK;e6dm3O=L`7C0g8V=dK["
  4376.     A$ = A$ + "PQo8PjA1[i1Q\_:`e:YOP0:OQ?C]a=JKA<c:Ph>f0mGMa]SF2l48hN5FnF4U"
  4377.     A$ = A$ + "HSBG1WGA]=1;b_RlIWPZ>mH4cbELcOY`Cg5VRC1ba^Pgmd`GS4h_C0?=7A2k"
  4378.     A$ = A$ + "4\#c1BDWQgcH0oi6Pc7lK;1fl5bJ#h4n2Y>881e5NR^3kQ;`Nh5P]9P3K5P\"
  4379.     A$ = A$ + "C`o^k06oQnEej6h#eJO=>CKa_]0LMShi]2S]0gTJ3`O[`Ze3N4F#U;;2idC3"
  4380.     A$ = A$ + "AC_;Rmo04Y:NdOYlc8?O=aIJ1`NPLLlAb]0QE\ePoL0JVb#DXd#V[h`maKQH"
  4381.     A$ = A$ + "IG7m7P_OU<E4=9CT_X4^E:RbZRJW<Xb3#NjH#VYkbW?FI2h6Mb82R:^FZXJV"
  4382.     A$ = A$ + "l0oXP#:58^#QHUd0^N6P<ALj[PknG4aM_2Wel^0j4a>_6W8;4;X#`e5c#o1T"
  4383.     A$ = A$ + "GhUHW40OMFT3l#8^m>#\h]P8M70ATS4imS3HmEP_:7e4I3KS]VTPVU0lT1fk"
  4384.     A$ = A$ + "nP;EI0nK0anQ]<<T[lT8omU1>O8CggQlLURJ;:2oV7h1Eli4PDMF4M?<ifQg"
  4385.     A$ = A$ + "a_SX]K2So>6g9hSC2nnV0fWRHGI0]BQ\>Z08iY0M`eAe7k7lh:#VZa;73ZV9"
  4386.     A$ = A$ + "8i0ahXTS3Eb=K4gN]#:>8Z3ofViPWcDl>PWR6`^GTGKa8^L8b_7Af79ZAH\X"
  4387.     A$ = A$ + "?Alm?QeG;ZAi`hLa0K#B8gi;0\92Kn=P<M<#g=QHb[4N]c5_ji7#E[C7E4=O"
  4388.     A$ = A$ + "T[L[bm0M`iP>oJ`2l0#?UGb3QObmQVhBP^76lDH#3oG#Vg4joYLGPG>:bQO9"
  4389.     A$ = A$ + "LRkQCV2d=_5JXg`BJb03a0]da1N33jUM18f=PH_#C71dhW7lTbjlBXSb1FXL"
  4390.     A$ = A$ + "A;70KR#^_6hTSHVB[5_9I]#3_AXEf1F;LPc[3L[lXN:CcG0i<58]92<ZXG4P"
  4391.     A$ = A$ + "2k1dKk#Cmk#C_IT3k?1?L0`97Wm;DdoRb;0Z4=6_86_<bA7=JW7il?>>aa0M"
  4392.     A$ = A$ + "DHi_0TK6DOm\mMM\UNSXYTWm1?^8h:5>;6g;[Kf=CeE0=jZT;1fSUR:ZE]O5"
  4393.     A$ = A$ + "E4\>V?f;dTA2]fePf9>XgR3]kPiG7laIh<WK4E6_L0k2Q_`21FF6nJ5#;\=H"
  4394.     A$ = A$ + "o>6KKC4bLF`K<?Xgb6g2N>dS91LM5`mo=\C72lVZ]7`?kV_=49;WG7jFemoh"
  4395.     A$ = A$ + "Qm=1nNE\`CmbXM5d^0nm2P7R0dAef7SY32=QJd4637HBYo>2Fk8h[o6LLh#W"
  4396.     A$ = A$ + "N<leAH]A4lZ71mSRmDHIg#Km7Vm0f;SU31>j#HoSROg7OgCiCXd:G4]c1Oec"
  4397.     A$ = A$ + "alkEiZW^3kAL=hWYFkl\=<LV3>8JkWYVR_>5K9>7;=a`jEUGbCPfA5k99LC:"
  4398.     A$ = A$ + "Ih=OGP]KcB]:fdE<SEUOoeaNa`agD`6;>K2L=M?1]73<XF=6h[[PnVHO5OM7"
  4399.     A$ = A$ + "#SW2[aKhHQO4a8DAV:1aX:0cEAMcTS]mFLWhe<NDHjAPWN1FEMnRU6Ad9MDS"
  4400.     A$ = A$ + "UM8CDE#<GCIb[8RK[fY4LV?`Fj\HKMfLD`?Qg_T7F_0<?ONlCLDV2=_BNlmY"
  4401.     A$ = A$ + "liHbIb`X``714ZFnlio4OJC[D4ci53NG0>a:T?D3an]QdA\B3<7J0A[=PcH0"
  4402.     A$ = A$ + "WYH8O5aSOfl>4P`FVgEeXG;TGEEGUZJkja]jRLJe6iJLV?SSXjVZ1YdNF>E_"
  4403.     A$ = A$ + "WYRTRZF2If2<J=nf6PAegZ<cFRZSUB[hE]7HXJ\>ZJX>NWH=V30_^`egg8Dk"
  4404.     A$ = A$ + "Wk87[78oISi:2mTGYnHFmiGHDMcLX;hG7aGZF=`je7Wc3^fa61HmRcSf<dnJ"
  4405.     A$ = A$ + "T5_YlHCHYX6XEMl[;PZE7hY6#^Db[BjLel;<J8h0g1NlTk=4d^A0gNb[[hY6"
  4406.     A$ = A$ + "bLS[07EWU5W1d^ainE#XPAAO_INa=#EGiJD[;Je1dZjPBe4#h:_BSHNFQG_0"
  4407.     A$ = A$ + "Of<^g<n=BO=Vk1J=V[>#][jK_aX?XRYFQFkY>RaFRZ5J3FaG^eNDIAW#nOE="
  4408.     A$ = A$ + "[M7]NbENd;dDeXd;Z[hkNQEj:>C7A]7nROm3m>Sa^c=E5PZ_k8`Z_0_n`h]M"
  4409.     A$ = A$ + "hkNbe270G9C?`\>cWZS<gdL`W:kTBnZ:\bF1K]ML=I>`FJEM]Nae3i3KIJ:n"
  4410.     A$ = A$ + "bC\FmH_:EELE4=EfMMhCJ1W[_b`o`9f6i2d?^S^K\M`=0UjEP>0jXl2]7W\b"
  4411.     A$ = A$ + "HFE0]MPO;L]Pn^>0ZJbjHU]EI[M5S>RiZg?F36_:OXJaFaZ`HYBXI?kSj4kU"
  4412.     A$ = A$ + "[leEcMV?I=16MU[ffdmR_Ra];\E]VlKGZ3k9E7nLe1WXA\Lf<ffY\P=V]dZE"
  4413.     A$ = A$ + "mlOT6_P^CeDE1k3\O]U[6fGHKj<KImQ[7DYeJ>>]gXeLfjk3gJ3PX[\5Fm6U"
  4414.     A$ = A$ + "0`k2DfmN`FEUM];0C]6=OQGA[1>J7k[X\L:hj13IOQ_Ao1Tm5S1RJbk3GG^b"
  4415.     A$ = A$ + "3Z[0W:LeN`=M4h[WlogBO1<m6e8?#LjnQ_Dn2Zg<40VeIV_EnAMUK:?6oI_V"
  4416.     A$ = A$ + "^cNE:_aNcNBm7_HHXdP0>j;gj=c9mUa^R>:n_cPGK7[;J;ci]1BQOh;Eec]3"
  4417.     A$ = A$ + "SMWUJ5?i?;=:nZo<>j7;5m5m0<;9mTk:Lg7f7FMb1a=eoNTB>2TOoB_IMB0P"
  4418.     A$ = A$ + ">MSiDCgS2PUSN`J<CBG?a^m1W_G<\30]0IMRZ=4d3R[9OP#63RGIXVGM`hg0"
  4419.     A$ = A$ + "icfOcb]o\^cTNEAkn`[fKVO60PH#0Rnbd88<KHX=HDUogSGd>9dnFlVdPa;D"
  4420.     A$ = A$ + "69Nibha[EV4N=c4`\aSa9SGV5:=;lF\#`kVDcV9NIUjOELJH5egCWn1nOn9D"
  4421.     A$ = A$ + "dnAdF0NQel`K2W7NchR`;kF4N_i2YCRLkW2iV?7n=:d?=WUodHVJ]CaeL756"
  4422.     A$ = A$ + "?5nmDbCPIWToBmm9hERRc^[baONTanlLmKZIAK^JQ_D9Gd0WWQ?KdHMEm2WW"
  4423.     A$ = A$ + "gkBL]5:X^Pi_^2okUhZnDWi\o[cO6co6=foLHVY:5?[i:#<1_ZVaKPj6^9Z:"
  4424.     A$ = A$ + "hVHf=`h]oWIa`o7Oa`EKL7<o^VKgQOGTZjRhi::De0NOD5amhgVIj<abc^?6"
  4425.     A$ = A$ + "_7V7;`B\L5faScIZfl7`eVl8d=E3YYMCPGonXm#6kace_o0^V?CEcXf?N\[Z"
  4426.     A$ = A$ + "6TTiEBTWU4ZRAmNQ7IN_4=?;I^:kWQnCa^9cEJo4^mL^Yfkilkj<=o9LU=_0"
  4427.     A$ = A$ + "Eeo:<nL<n:DgSZjXgQfKiagconFNVYiYQNZXf6E?CdC3_98M\GJXYF=Clmka"
  4428.     A$ = A$ + "_YR_C5ebT3GAC>XW5f9CndIPmbRKIckT1GKL6X:X\=GkTYIi`kT5Pb4Fb5cb"
  4429.     A$ = A$ + "Tgi;hddYEW?;NWlhii``J2WVNabGP:Kc_N9GD7E^licQOS[Ya?HNW_#]\iCT"
  4430.     A$ = A$ + "7GQF6l:ZCVSiMDlBFVU`LiOca<GKRGbdl:in_f9McJQ<I]#jl9cd\F9=FGVQ"
  4431.     A$ = A$ + "I=IjlH6l>Yo?jiDImnG>CJooPj;`JJNV<7W1gblO=c4nbblIB5SV\IVf;C63"
  4432.     A$ = A$ + "Vn>;F6bkOdfIbL[9Io3\Fh;]Ln7;W9mC>V]0Im?f1CjgL=K]bAno1#Ll%%h1"
  4433.     btemp$ = ""
  4434.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
  4435.         IF INSTR(1, B$, "%") THEN
  4436.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
  4437.                 IF F$ <> "%" THEN C$ = C$ + F$
  4438.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
  4439.             IF MID$(B$, j, 1) = "#" THEN
  4440.         MID$(B$, j) = "@": END IF: NEXT
  4441.         FOR t% = LEN(B$) TO 1 STEP -1
  4442.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
  4443.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
  4444.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
  4445.     NEXT: btemp$ = btemp$ + X$: NEXT
  4446.     BASFILE$ = _INFLATE$(btemp$): btemp$ = ""
  4447.     OPEN "10x10-piecedown.wav" FOR OUTPUT AS #1
  4448.     PRINT #1, BASFILE$;
  4449.     CLOSE #1
  4450.  

   (288k)

2
QB64 Discussion / Error compiling sound programs on Linux. Error log...
« on: December 17, 2021, 03:49:36 pm »
Some of my programs won't compile under my linux, programs that use sound.  I'm obviously missing a sound library.  When compiling a program that uses sound commands I get this compiling error below.  I've googled some possible solutions, but want to ask here first which libraries I should install to correct this.  Thanks

- Dav


Quote
../../src/alsa.c:29:10: fatal error: alsa/asoundlib.h: No such file or directory
   29 | #include <alsa/asoundlib.h>
      |          ^~~~~~~~~~~~~~~~~~
compilation terminated.
ar: temp/alsa.o: No such file or directory
g++: error: parts/audio/out/os/lnx/src.a: No such file or directory

3
Updated this editor to work under linux, and also use a built-in font for larger editing screen.  I'm discovering some of my posted programs which I said would work under Linux actually doesn't.  XE was one of them so I've have fixed it.

- Dav

Code: QB64: [Select]
  1. '============
  2. 'XE.BAS v1.12
  3. '============
  4. 'A simple File editor/viewer.
  5. 'Coded by Dav, NOV/2021 with QB64-GL v2
  6. '
  7. ' * FIXED: Fixed FileSelect box to work correctly under Linux.
  8. ' * ADDED: Uses a resizable Code Page FONT to allow a larger SCREEN 0.
  9. '          (FONT is extracted/created temporarily then deleted after use)
  10. '
  11. '==========================================================================
  12. '* * * *          USE THIS PROGRAM AT YOUR OWN RISK ONLY!!          * * * *
  13. '==========================================================================
  14. '
  15. '
  16. ' ABOUT:
  17. ' ~~~~~
  18. '
  19. ' XE is a simple Binary File Editor (also called a HEX editor) that lets
  20. ' you view and edit raw data bytes of a file.  With XE you can peek inside
  21. ' EXE/DLL files and see what information they may contain.  XE also has the
  22. ' capacity to change bytes by either typing in ASCII characters or entering
  23. ' the HEX value for each byte.  XE was first coded in Qbasic - now in QB64.
  24. '
  25. ' Since the very nature of XE is to alter file data you should always use
  26. ' EXTREME caution when editing any file - AND ALWAYS MAKE A BACKUP FIRST!
  27. '
  28. '==========================================================================
  29. '
  30. ' HOW TO USE:
  31. ' ~~~~~~~~~~
  32. '
  33. ' XE accepts command line arguments.  You can drag/drop a file onto XE.
  34. ' If you don't specify a filename on startup, XE will ask you for one.
  35. '
  36. ' There are TWO ways to View & Edit files - in HEX (default) or ASCII mode.
  37. '
  38. ' Files are first opened in HEX mode displaying 2 windows of data.  The
  39. ' right window shows the charaters while the larger left window shows HEX
  40. ' values for them. HEX mode is best for patching and is the only way to
  41. ' edit the HEX values of bytes.
  42. '
  43. '
  44. ' Pressing ENTER switches to ASCII (non-HEX) mode, showing a larger page
  45. ' of raw data bytes - the ASCII chracter data only.  This mode is best for
  46. ' skimming through files faster.  ENTER toggles view modes back and forth.
  47. '
  48. ' While viewing a file you can browse through the file using the ARROWS,
  49. ' PAGEUP/DOWN, HOME and the END keys.
  50. '
  51. ' The currently opened filename is shown with full path in the title bar.
  52. ' and just filename is displayed in the FILE: area just below title bar.
  53. '
  54. ' While viewing a file, press E to enter into EDIT mode and begin editing
  55. ' bytes at the current position. If you're in HEX mode (2 windows), you can
  56. ' edit bytes either by typing characters on the right side or entering HEX
  57. ' values on the left window.  Press TAB to switch windows to edit in.
  58. ' Press ESC to save or disgard changes and to exit editing mode.
  59. '
  60. ' Press M for a complete MENU listing all of the Key COMMANDS.
  61. '
  62. '==========================================================================
  63. '
  64. ' COMMAND:
  65. ' ~~~~~~~~
  66. '
  67. '         E  =  Enters EDIT MODE. Only the displayed bytes can be edited.
  68. '
  69. '       TAB  =  Switchs panes (the cursor) while editing in HEX mode.
  70. '
  71. '         S  =  Searches file for a string starting at the current byte.
  72. '               A Match-Case option is available.  A high beep alerts you
  73. '               when match is found. A Low beep sounds when EOF reached.
  74. '
  75. '         N  =  Finds NEXT Match after a do a string search.
  76. '
  77. '         F  =  Toggles FILTERING of all non-standard-text characters.
  78. '               A flashing "F" is at the top-left corner when FILTER ON.
  79. '
  80. '         G  =  GOTO a certain byte position (number) in the file.
  81. '
  82. '         L  =  GOTO a specified location (Hex value) of the file.
  83. '
  84. '     ENTER  =  Toggles HEX and ASCII view modes.  The ASCII mode lets
  85. '               you browse more data per page.  You can EDIT in both
  86. '               modes but can only enter in HEX vaules in HEX mode.
  87. '
  88. '       ESC  =  EXITS out of editing mode, and also EXITS the program.
  89. '
  90. ' ALT+ENTER  =  Toggle FULLSCREEN/WINDOWED mode of the XE program.
  91. '
  92. '==========================================================================
  93. '==========================================================================
  94.  
  95.  
  96. '==========================================================================
  97. 'SETUP SCREEN MODE
  98. '=================
  99.  
  100. SCREEN Pete: WIDTH 80, 25 'Use Screen mode 0, aka the Pete...
  101.  
  102. 'Font size based on desktop resolution - it expands SCREEN 0 nicely.
  103. 'You may have to adjust it a bit to look the best on your screen res
  104. FONT (INT(_DESKTOPHEIGHT / 25) * .88)
  105.  
  106. _DELAY .25 'Be sure window exists before calling _TITLE
  107. _CONTROLCHR OFF 'Printing all 255 characters on screen, so this is needed.
  108.  
  109. _TITLE "XE v1.12" 'Everything has a name
  110.  
  111.  
  112. '==========================================================================
  113. 'LOAD FILE
  114. '=========
  115.  
  116. CLS , 1: COLOR 1, 15
  117. LOCATE 1, 1: PRINT STRING$(80, 32);
  118. LOCATE 1, 1: PRINT " Load file...";
  119.  
  120.     File$ = FileSelect$(5, 10, 15, 55, "*.*")
  121.     IF File$ = "" THEN
  122.         PRINT "No file selected."
  123.         END
  124.     END IF
  125.     File$ = COMMAND$
  126.  
  127. IF _FILEEXISTS(File$) = 0 THEN
  128.     COLOR 7, 0: CLS
  129.     PRINT "XE v1.12 - Binary file editor."
  130.     PRINT
  131.     PRINT File$; " not found!"
  132.     END
  133.  
  134. File$ = LTRIM$(RTRIM$(File$)) 'trim off any spaces is any...
  135. FullFileName$ = File$ 'make a copy For TITLE/OPEN to use...
  136.  
  137. 'If filename+path too long for display, strip off path
  138. IF LEN(File$) > 70 THEN
  139.     ts$ = ""
  140.     FOR q = LEN(File$) TO 1 STEP -1
  141.         t$ = MID$(File$, q, 1)
  142.         IF t$ = "/" OR t$ = "\" THEN EXIT FOR
  143.         ts$ = t$ + ts$
  144.     NEXT
  145.     File$ = ts$
  146.     'If filename too long, shorten it for display
  147.     IF LEN(File$) > 70 THEN
  148.         File$ = MID$(File$, 1, 67) + "..."
  149.     END IF
  150.  
  151. '==========================================================================
  152. 'OPEN FILE
  153. '=========
  154.  
  155. OPEN FullFileName$ FOR BINARY AS 7
  156.  
  157. _TITLE "XE v1.12 - " + FullFileName$
  158.  
  159. DisplayView% = 1 'Default to 2-PANE view
  160.  
  161. ByteLocation& = 1
  162. IF DisplayView% = 1 THEN
  163.     BufferSize% = (16 * 23)
  164.     BufferSize% = (79 * 23)
  165. IF BufferSize% > LOF(7) THEN BufferSize% = LOF(7)
  166.  
  167.  
  168. '==========================================================================
  169. 'DISPLAY FILE
  170. '============
  171.  
  172. COLOR 15, 1: CLS: LOCATE 1, 1, 0
  173.  
  174.     SEEK #7, ByteLocation&
  175.  
  176.     PageOfData$ = INPUT$(BufferSize%, 7)
  177.  
  178.     'If dual pane mode....
  179.     IF DisplayView% = 1 THEN
  180.         IF LEN(PageOfData$) < (16 * 23) THEN
  181.             PageFlag% = 1: PageLimit% = LEN(PageOfData$)
  182.             PageOfData$ = PageOfData$ + STRING$(16 * 23 - LEN(PageOfData$), CHR$(0))
  183.         END IF
  184.         'show right side
  185.         y% = 3: x% = 63
  186.         FOR c% = 1 TO LEN(PageOfData$)
  187.             CurrentByte% = ASC(MID$(PageOfData$, c%, 1))
  188.             'show a . instead of a null (looks better to me)
  189.             IF CurrentByte% = 0 THEN CurrentByte% = 46
  190.             IF Filter% = 1 THEN
  191.                 SELECT CASE CurrentByte%
  192.                     CASE 0 TO 31, 123 TO 255: CurrentByte% = 32
  193.                 END SELECT
  194.             END IF
  195.             LOCATE y%, x%: PRINT CHR$(CurrentByte%);
  196.             x% = x% + 1: IF x% = 79 THEN x% = 63: y% = y% + 1
  197.         NEXT
  198.         'show left side
  199.         y% = 3: x% = 15
  200.         FOR c% = 1 TO LEN(PageOfData$)
  201.             CurrentByte% = ASC(MID$(PageOfData$, c%, 1))
  202.             CurrentByte$ = HEX$(CurrentByte%): IF LEN(CurrentByte$) = 1 THEN CurrentByte$ = "0" + CurrentByte$
  203.             LOCATE y%, x%: PRINT CurrentByte$; " ";
  204.             x% = x% + 3: IF x% >= 62 THEN x% = 15: y% = y% + 1
  205.         NEXT
  206.     ELSE
  207.         'One page display, Full view
  208.         'Adjust data size used
  209.         IF LEN(PageOfData$) < (79 * 23) THEN 'Enough to fill screen?
  210.             PageFlag% = 1: PageLimit% = LEN(PageOfData$) 'No? Mark this and pad
  211.             PageOfData$ = PageOfData$ + SPACE$(79 * 23 - LEN(PageOfData$)) 'data with spaces.
  212.         END IF
  213.         y% = 3: x% = 1 'Screen location where data begins displaying
  214.         FOR c% = 1 TO LEN(PageOfData$) 'Show all the bytes.
  215.             CurrentByte% = ASC(MID$(PageOfData$, c%, 1)) 'Check the ASCII value.
  216.             IF Filter% = 1 THEN 'If Filter is turned on,
  217.                 SELECT CASE CurrentByte% 'changes these values to spaces
  218.                     CASE 0 TO 32, 123 TO 255: CurrentByte% = 32
  219.                 END SELECT
  220.             END IF
  221.             LOCATE y%, x%: PRINT CHR$(CurrentByte%);
  222.             'This line calculates when to go to next row.
  223.             x% = x% + 1: IF x% = 80 THEN x% = 1: y% = y% + 1
  224.         NEXT
  225.     END IF
  226.  
  227.     GOSUB DrawTopBar 'update viewing info at top
  228.  
  229.     'Get user input
  230.     DO
  231.  
  232.         DO UNTIL L$ <> "": L$ = INKEY$: LOOP
  233.         K$ = L$: L$ = ""
  234.  
  235.         GOSUB DrawTopBar
  236.         SELECT CASE UCASE$(K$)
  237.             CASE CHR$(27): EXIT DO
  238.             CASE "M": GOSUB Menu:
  239.             CASE "N"
  240.                 IF s$ <> "" THEN
  241.                     GOSUB Search
  242.                     GOSUB DrawTopBar
  243.                 END IF
  244.             CASE "E"
  245.                 IF DisplayView% = 1 THEN
  246.                     GOSUB EditRightSide
  247.                 ELSE
  248.                     GOSUB EditFullView
  249.                 END IF
  250.                 GOSUB DrawTopBar
  251.             CASE "F"
  252.                 IF Filter% = 0 THEN Filter% = 1 ELSE Filter% = 0
  253.             CASE "G"
  254.                 LOCATE 1, 1: PRINT STRING$(80 * 3, 32);
  255.                 LOCATE 1, 3: PRINT "TOTAL BYTES>"; LOF(7)
  256.                 INPUT "  GOTO BYTE# > ", GotoByte$
  257.                 IF GotoByte$ <> "" THEN
  258.                     TMP$ = ""
  259.                     FOR m% = 1 TO LEN(GotoByte$)
  260.                         G$ = MID$(GotoByte$, m%, 1) 'to numerical vales
  261.                         SELECT CASE ASC(G$)
  262.                             CASE 48 TO 57: TMP$ = TMP$ + G$
  263.                         END SELECT
  264.                     NEXT: GotoByte$ = TMP$
  265.                     IF VAL(GotoByte$) < 1 THEN GotoByte$ = "1"
  266.                     IF VAL(GotoByte$) > LOF(7) THEN GotoByte$ = STR$(LOF(7))
  267.                     IF GotoByte$ <> "" THEN ByteLocation& = 0 + VAL(GotoByte$)
  268.                 END IF
  269.             CASE "L"
  270.                 LOCATE 1, 1: PRINT STRING$(80 * 3, 32);
  271.                 LOCATE 1, 3: 'PRINT "TOTAL BYTES>"; LOF(7)
  272.                 INPUT "  GOTO HEX LOCATION-> ", GotoByte$
  273.                 IF GotoByte$ <> "" THEN
  274.                     GotoByte$ = "&H" + GotoByte$
  275.                     IF VAL(GotoByte$) < 1 THEN GotoByte$ = "1"
  276.                     IF VAL(GotoByte$) > LOF(7) THEN GotoByte$ = STR$(LOF(7))
  277.                     IF GotoByte$ <> "" THEN ByteLocation& = 0 + VAL(GotoByte$)
  278.                 END IF
  279.             CASE "S": s$ = ""
  280.                 LOCATE 1, 1: PRINT STRING$(80 * 3, 32);
  281.                 LOCATE 1, 3: INPUT "Search for> ", s$
  282.                 IF s$ <> "" THEN
  283.                     PRINT "  CASE sensitive (Y/N)? ";
  284.                     I$ = INPUT$(1): I$ = UCASE$(I$)
  285.                     IF I$ = "Y" THEN CaseOn% = 1 ELSE CaseOn% = 0
  286.                     GOSUB Search
  287.                 END IF
  288.                 GOSUB DrawTopBar
  289.             CASE CHR$(13)
  290.                 IF DisplayView% = 1 THEN
  291.                     DisplayView% = 0
  292.                     BufferSize% = (79 * 23)
  293.                 ELSE
  294.                     DisplayView% = 1
  295.                     BufferSize% = (16 * 23)
  296.                 END IF
  297.                 GOSUB DrawTopBar
  298.             CASE CHR$(0) + CHR$(72)
  299.                 IF DisplayView% = 1 THEN
  300.                     IF ByteLocation& > 15 THEN ByteLocation& = ByteLocation& - 16
  301.                 ELSE
  302.                     IF ByteLocation& > 78 THEN ByteLocation& = ByteLocation& - 79
  303.                 END IF
  304.             CASE CHR$(0) + CHR$(80)
  305.                 IF DisplayView% = 1 THEN
  306.                     IF ByteLocation& < LOF(7) - 15 THEN ByteLocation& = ByteLocation& + 16
  307.                 ELSE
  308.                     IF ByteLocation& < LOF(7) - 78 THEN ByteLocation& = ByteLocation& + 79
  309.                 END IF
  310.             CASE CHR$(0) + CHR$(73): ByteLocation& = ByteLocation& - BufferSize%: IF ByteLocation& < 1 THEN ByteLocation& = 1
  311.             CASE CHR$(0) + CHR$(81): IF ByteLocation& < LOF(7) - BufferSize% THEN ByteLocation& = ByteLocation& + BufferSize%
  312.             CASE CHR$(0) + CHR$(71): ByteLocation& = 1
  313.             CASE CHR$(0) + CHR$(79): IF NOT EOF(7) THEN ByteLocation& = LOF(7) - BufferSize%
  314.         END SELECT
  315.     LOOP UNTIL K$ <> ""
  316. LOOP UNTIL K$ = CHR$(27)
  317.  
  318.  
  319.  
  320. '==========================================================================
  321. '                              GOSUB ROUTINES
  322. '==========================================================================
  323.  
  324.  
  325. '==========================================================================
  326. Search:
  327. '======
  328.  
  329.     DO
  330.         B$ = INPUT$(BufferSize%, 7): ByteLocation& = ByteLocation& + BufferSize%
  331.         IF CaseOn% = 0 THEN B$ = UCASE$(B$): s$ = UCASE$(s$)
  332.         d$ = INKEY$: IF d$ <> "" THEN EXIT DO
  333.         IF INSTR(1, B$, s$) THEN SOUND 4000, .5: EXIT DO
  334.     LOOP UNTIL INSTR(1, B$, s$) OR EOF(7)
  335.     IF EOF(7) THEN SOUND 2000, 1: SOUND 1000, 1
  336.     ByteLocation& = ByteLocation& - LEN(s$)
  337.  
  338.  
  339. '==========================================================================
  340. EditRightSide: 'Editing Right side info in dual pane mode
  341. '============
  342.  
  343. Pane% = 1
  344.  
  345. x% = 63: IF rightx% THEN y% = CSRLIN ELSE y% = 3
  346. leftx% = 15
  347.  
  348. test% = POS(0)
  349.  
  350. IF test% = 15 OR test% = 16 THEN x% = 63: leftx% = 15
  351. IF test% = 18 OR test% = 19 THEN x% = 64: leftx% = 18
  352. IF test% = 21 OR test% = 22 THEN x% = 65: leftx% = 21
  353. IF test% = 24 OR test% = 25 THEN x% = 66: leftx% = 24
  354. IF test% = 27 OR test% = 28 THEN x% = 67: leftx% = 27
  355. IF test% = 30 OR test% = 31 THEN x% = 68: leftx% = 30
  356. IF test% = 33 OR test% = 34 THEN x% = 69: leftx% = 33
  357. IF test% = 36 OR test% = 37 THEN x% = 70: leftx% = 36
  358. IF test% = 39 OR test% = 40 THEN x% = 71: leftx% = 39
  359. IF test% = 42 OR test% = 43 THEN x% = 72: leftx% = 42
  360. IF test% = 45 OR test% = 46 THEN x% = 73: leftx% = 45
  361. IF test% = 48 OR test% = 49 THEN x% = 74: leftx% = 48
  362. IF test% = 51 OR test% = 52 THEN x% = 75: leftx% = 51
  363. IF test% = 54 OR test% = 55 THEN x% = 76: leftx% = 54
  364. IF test% = 57 OR test% = 58 THEN x% = 77: leftx% = 57
  365. IF test% = 60 OR test% = 61 THEN x% = 78: leftx% = 60
  366.  
  367. GOSUB DrawEditBar:
  368.  
  369. LOCATE y%, x%, 1, 1, 30
  370.  
  371.     DO
  372.         E$ = INKEY$
  373.         IF E$ <> "" THEN
  374.             SELECT CASE E$
  375.                 CASE CHR$(9)
  376.                     IF Pane% = 1 THEN
  377.                         Pane% = 2: GOTO EditLeftSide
  378.                     ELSE
  379.                         Pane% = 1: GOTO EditRightSide
  380.                     END IF
  381.                 CASE CHR$(27): EXIT DO
  382.                 CASE CHR$(0) + CHR$(72): IF y% > 3 THEN y% = y% - 1
  383.                 CASE CHR$(0) + CHR$(80): IF y% < 25 THEN y% = y% + 1
  384.                 CASE CHR$(0) + CHR$(75): IF x% > 63 THEN x% = x% - 1: leftx% = leftx% - 3
  385.                 CASE CHR$(0) + CHR$(77): IF x% < 78 THEN x% = x% + 1: leftx% = leftx% + 3
  386.                 CASE CHR$(0) + CHR$(73), CHR$(0) + CHR$(71): y% = 3
  387.                 CASE CHR$(0) + CHR$(81), CHR$(0) + CHR$(79): y% = 25
  388.                 CASE ELSE
  389.                     IF (ByteLocation& + ((y% - 3) * 16 + x% - 1) - 62) <= LOF(7) AND E$ <> CHR$(8) THEN
  390.                         changes% = 1
  391.                         'new color for changed bytes...
  392.                         COLOR 1, 15: LOCATE y%, x%: PRINT " ";
  393.                         LOCATE y%, leftx%
  394.                         CurrentByte$ = HEX$(ASC(E$)): IF LEN(CurrentByte$) = 1 THEN CurrentByte$ = "0" + CurrentByte$
  395.                         PRINT CurrentByte$;
  396.                         LOCATE y%, x%: PRINT E$;
  397.                         MID$(PageOfData$, ((y% - 3) * 16 + x% * 1) - 62) = E$
  398.                         IF x% < 78 THEN x% = x% + 1: leftx% = leftx% + 3 'skip space
  399.                     END IF
  400.             END SELECT
  401.         END IF
  402.     LOOP UNTIL E$ <> ""
  403.     LOCATE y%, x%
  404. LOOP UNTIL E$ = CHR$(27)
  405.  
  406. '==========================================================================
  407. SaveChanges:
  408. '===========
  409.  
  410. IF changes% = 1 THEN
  411.     SOUND 4500, .2: COLOR 15, 4: LOCATE , , 0
  412.     LOCATE 10, 29: PRINT CHR$(201); STRING$(21, 205); CHR$(187);
  413.     LOCATE 11, 29: PRINT CHR$(186); " Save Changes (Y/N)? "; CHR$(186);
  414.     LOCATE 12, 29: PRINT CHR$(200); STRING$(21, 205); CHR$(188);
  415.     N$ = INPUT$(1): COLOR 15, 1
  416.     IF UCASE$(N$) = "Y" THEN
  417.         IF PageFlag% = 1 THEN PageOfData$ = LEFT$(PageOfData$, PageLimit%)
  418.         PUT #7, ByteLocation&, PageOfData$:
  419.     END IF
  420. COLOR 15, 1: CLS: LOCATE 1, 1, 0
  421.  
  422.  
  423. '==========================================================================
  424. EditLeftSide: 'Editing Left side info in dual pane mode
  425. '===========
  426.  
  427. COLOR 1, 7
  428. x% = 15: 'y% = 3
  429. rightx% = 63
  430.  
  431. test% = POS(0)
  432. IF test% = 63 THEN x% = 15: rightx% = 63
  433. IF test% = 64 THEN x% = 18: rightx% = 64
  434. IF test% = 65 THEN x% = 21: rightx% = 65
  435. IF test% = 66 THEN x% = 24: rightx% = 66
  436. IF test% = 67 THEN x% = 27: rightx% = 67
  437. IF test% = 68 THEN x% = 30: rightx% = 68
  438. IF test% = 69 THEN x% = 33: rightx% = 69
  439. IF test% = 70 THEN x% = 36: rightx% = 70
  440. IF test% = 71 THEN x% = 39: rightx% = 71
  441. IF test% = 72 THEN x% = 42: rightx% = 72
  442. IF test% = 73 THEN x% = 45: rightx% = 73
  443. IF test% = 74 THEN x% = 48: rightx% = 74
  444. IF test% = 75 THEN x% = 51: rightx% = 75
  445. IF test% = 76 THEN x% = 54: rightx% = 76
  446. IF test% = 77 THEN x% = 57: rightx% = 77
  447. IF test% = 78 THEN x% = 60: rightx% = 78
  448.  
  449. GOSUB DrawEditBar:
  450.  
  451. LOCATE y%, x%, 1, 1, 30
  452.  
  453.     DO
  454.         E$ = INKEY$
  455.         IF E$ <> "" THEN
  456.             SELECT CASE E$
  457.                 CASE CHR$(9)
  458.                     IF Pane% = 1 THEN
  459.                         Pane% = 2: GOTO EditLeftSide
  460.                     ELSE
  461.                         Pane% = 1: GOTO EditRightSide
  462.                     END IF
  463.                 CASE CHR$(27): EXIT DO
  464.                 CASE CHR$(0) + CHR$(72): IF y% > 3 THEN y% = y% - 1
  465.                 CASE CHR$(0) + CHR$(80): IF y% < 25 THEN y% = y% + 1
  466.                 CASE CHR$(0) + CHR$(75) 'right arrow....
  467.                     IF x% > 15 THEN
  468.                         SELECT CASE x%
  469.                             CASE 17, 18, 20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 38, 39, 41, 42, 44, 45, 47, 48, 50, 51, 53, 54, 56, 57, 59, 60, 62, 63
  470.                                 x% = x% - 2
  471.                                 rightx% = rightx% - 1
  472.                             CASE ELSE: x% = x% - 1
  473.                         END SELECT
  474.                     END IF
  475.  
  476.                 CASE CHR$(0) + CHR$(77)
  477.                     IF x% < 61 THEN
  478.                         SELECT CASE x%
  479.                             CASE 16, 17, 19, 20, 22, 23, 25, 26, 28, 29, 31, 32, 34, 35, 37, 38, 40, 41, 43, 44, 46, 47, 49, 50, 52, 53, 55, 56, 58, 59, 61, 62
  480.                                 x% = x% + 2
  481.                                 rightx% = rightx% + 1
  482.                             CASE ELSE: x% = x% + 1
  483.                         END SELECT
  484.                     END IF
  485.  
  486.                 CASE CHR$(0) + CHR$(73), CHR$(0) + CHR$(71): y% = 3
  487.                 CASE CHR$(0) + CHR$(81), CHR$(0) + CHR$(79): y% = 25
  488.                 CASE ELSE
  489.                     IF (ByteLocation& + ((y% - 3) * 16 + rightx% - 1) - 62) <= LOF(7) AND E$ <> CHR$(8) THEN
  490.                         SELECT CASE UCASE$(E$)
  491.                             CASE "A", "B", "C", "D", "E", "F", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"
  492.                                 E$ = UCASE$(E$)
  493.                                 changes% = 1
  494.                                 COLOR 1, 15: LOCATE y%, x%: PRINT " ";
  495.                                 LOCATE y%, x%: PRINT E$;
  496.                                 IF x% < 62 THEN
  497.  
  498.                                     SELECT CASE x%
  499.                                         CASE 16, 17, 19, 20, 22, 23, 25, 26, 28, 29, 31, 32, 34, 35, 37, 38, 40, 41, 43, 44, 46, 47, 49, 50, 52, 53, 55, 56, 58, 59, 61, 62
  500.                                             e2$ = CHR$(VAL("&H" + CHR$(SCREEN(y%, x% - 1)) + CHR$(SCREEN(y%, x%))))
  501.                                             'reflect changes on right panel
  502.                                             COLOR 1, 15: LOCATE y%, rightx%: PRINT " ";
  503.                                             LOCATE y%, rightx%: PRINT e2$;
  504.                                             MID$(PageOfData$, ((y% - 3) * 16 + rightx% * 1) - 62) = e2$
  505.                                             'dont advance cursor if at last place
  506.                                             IF x% < 61 THEN
  507.                                                 rightx% = rightx% + 1
  508.                                                 x% = x% + 2
  509.                                             END IF
  510.                                         CASE ELSE: x% = x% + 1
  511.                                     END SELECT
  512.                                 END IF
  513.                         END SELECT
  514.  
  515.                     END IF
  516.             END SELECT
  517.         END IF
  518.     LOOP UNTIL E$ <> ""
  519.     LOCATE y%, x%
  520. LOOP UNTIL E$ = CHR$(27)
  521.  
  522. GOTO SaveChanges:
  523.  
  524.  
  525. '==========================================================================
  526. EditFullView: 'Editing file in full display mode (one pane)
  527. '===========
  528.  
  529. COLOR 1, 7
  530. x% = 1: y% = 3
  531. changes% = 0
  532.  
  533. GOSUB DrawEditBar
  534.  
  535. LOCATE 3, 1, 1, 1, 30
  536.  
  537.     DO
  538.         E$ = INKEY$
  539.         IF E$ <> "" THEN
  540.             SELECT CASE E$
  541.                 CASE CHR$(27): EXIT DO
  542.                 CASE CHR$(0) + CHR$(72): IF y% > 3 THEN y% = y% - 1
  543.                 CASE CHR$(0) + CHR$(80): IF y% < 25 THEN y% = y% + 1
  544.                 CASE CHR$(0) + CHR$(75): IF x% > 1 THEN x% = x% - 1
  545.                 CASE CHR$(0) + CHR$(77): IF x% < 79 THEN x% = x% + 1
  546.                 CASE CHR$(0) + CHR$(73), CHR$(0) + CHR$(71): y% = 3
  547.                 CASE CHR$(0) + CHR$(81), CHR$(0) + CHR$(79): y% = 25
  548.                 CASE ELSE
  549.                     IF (ByteLocation& + (y% - 3) * 79 + x% - 1) <= LOF(7) AND E$ <> CHR$(8) THEN
  550.                         changes% = 1
  551.                         'new color for changed bytes
  552.                         COLOR 1, 15: LOCATE y%, x%: PRINT " ";
  553.                         LOCATE y%, x%: PRINT E$;
  554.                         MID$(PageOfData$, (y% - 3) * 79 + x% * 1) = E$
  555.                         IF x% < 79 THEN x% = x% + 1
  556.                     END IF
  557.             END SELECT
  558.         END IF
  559.     LOOP UNTIL E$ <> ""
  560.     GOSUB DrawEditBar
  561.     LOCATE y%, x%
  562. LOOP UNTIL E$ = CHR$(27)
  563.  
  564. GOTO SaveChanges:
  565.  
  566. '==========================================================================
  567. DrawEditBar:
  568. '===========
  569.  
  570. IF DisplayView% = 1 THEN
  571.     LOCATE 1, 1:
  572.     COLOR 31, 4: PRINT "  EDIT MODE: ";
  573.     COLOR 15, 4
  574.     PRINT " Press TAB to switch editing sides "; CHR$(179); " Arrows move cursor "; CHR$(179); " ESC=Exit ";
  575.     LOCATE 1, 1
  576.     COLOR 31, 4: PRINT " EDIT MODE ";
  577.     COLOR 15, 4
  578.     PRINT CHR$(179); " Arrows move cursor "; CHR$(179); " ESC=Exit "; CHR$(179);
  579.     LOCATE 1, 45: PRINT STRING$(35, " ");
  580.  
  581.     LOCATE 1, 46
  582.     CurrentByte& = ByteLocation& + (y% - 3) * 79 + x% - 1
  583.     CurrentValue% = ASC(MID$(PageOfData$, (y% - 3) * 79 + x% * 1, 1))
  584.     IF CurrentByte& > LOF(7) THEN
  585.         PRINT SPACE$(9); "PAST END OF FILE";
  586.     ELSE
  587.         PRINT "Byte:"; LTRIM$(STR$(CurrentByte&));
  588.         PRINT ", ASC:"; LTRIM$(STR$(CurrentValue%));
  589.         PRINT ", HEX:"; RTRIM$(HEX$(CurrentValue%));
  590.     END IF
  591.  
  592. '==========================================================================
  593. DrawTopBar:
  594. '============
  595.  
  596. COLOR 1, 15
  597. LOCATE 1, 1: PRINT STRING$(80, 32);
  598. LOCATE 2, 1: PRINT STRING$(80, 32);
  599.  
  600. LOCATE 1, 1
  601. IF Filter% = 1 THEN
  602.     COLOR 30, 4: PRINT "F";: COLOR 1, 15
  603.     PRINT " ";
  604.  
  605. PRINT "FILE: "; File$;
  606.  
  607. LOCATE 2, 2:
  608. PRINT "Total Bytes:"; LOF(7);
  609. EC& = ByteLocation& + BufferSize%: IF EC& > LOF(7) THEN EC& = LOF(7)
  610. PRINT CHR$(179); " Viewing Bytes:"; RTRIM$(STR$(ByteLocation&)); "-"; LTRIM$(STR$(EC&));
  611. LOCATE 1, 71: PRINT " M = Menu";
  612. COLOR 15, 1
  613. 'Draw bar on right side of screen
  614. FOR d% = 3 TO 25
  615.     LOCATE d%, 80: PRINT CHR$(176);
  616.  
  617. IF DisplayView% = 1 THEN
  618.     'Draw lines down screen
  619.     FOR d% = 3 TO 25
  620.         LOCATE d%, 79: PRINT CHR$(179);
  621.         LOCATE d%, 62: PRINT CHR$(179);
  622.         'add space around numbers...
  623.         '(full screen messes it...)
  624.         LOCATE d%, 13: PRINT " " + CHR$(179);
  625.         LOCATE d%, 1: PRINT CHR$(179) + " ";
  626.     NEXT
  627.  
  628.     'Draw location
  629.     FOR d% = 3 TO 25
  630.         LOCATE d%, 3
  631.         nm$ = HEX$(ByteLocation& - 32 + (d% * 16))
  632.         IF LEN(nm$) = 9 THEN nm$ = "0" + nm$
  633.         IF LEN(nm$) = 8 THEN nm$ = "00" + nm$
  634.         IF LEN(nm$) = 7 THEN nm$ = "000" + nm$
  635.         IF LEN(nm$) = 6 THEN nm$ = "0000" + nm$
  636.         IF LEN(nm$) = 5 THEN nm$ = "00000" + nm$
  637.         IF LEN(nm$) = 4 THEN nm$ = "000000" + nm$
  638.         IF LEN(nm$) = 3 THEN nm$ = "0000000" + nm$
  639.         IF LEN(nm$) = 2 THEN nm$ = "00000000" + nm$
  640.         IF LEN(nm$) = 1 THEN nm$ = "000000000" + nm$
  641.         PRINT nm$;
  642.     NEXT
  643.  
  644. Marker% = CINT(ByteLocation& / LOF(7) * 22)
  645. LOCATE Marker% + 3, 80: PRINT CHR$(178);
  646.  
  647. '==========================================================================
  648. Menu:
  649. '========
  650.  
  651. SOUND 4500, .2: COLOR 15, 0: LOCATE , , 0
  652. LOCATE 5, 24: PRINT CHR$(201); STRING$(34, 205); CHR$(187);
  653. FOR m = 6 TO 20
  654.     LOCATE m, 24: PRINT CHR$(186); SPACE$(34); CHR$(186);
  655. LOCATE 21, 24: PRINT CHR$(200); STRING$(34, 205); CHR$(188);
  656.  
  657. LOCATE 6, 26: PRINT "Use the arrow keys, page up/down";
  658. LOCATE 7, 26: PRINT "and Home/End keys to navigate.";
  659. LOCATE 9, 26: PRINT "E = Enter into file editing mode";
  660. LOCATE 10, 26: PRINT "F = Toggles the filter ON or OFF";
  661. LOCATE 11, 26: PRINT "G = Goto a certain byte position";
  662. LOCATE 12, 26: PRINT "L = Goto a certain HEX location";
  663. LOCATE 13, 26: PRINT "S = Searches for string in file";
  664. LOCATE 14, 26: PRINT "N = Find next match after search";
  665. LOCATE 16, 26: PRINT "ENTER = Toggle HEX/ASCII modes";
  666. LOCATE 17, 26: PRINT "TAB   = switch window (HEX mode)";
  667. LOCATE 18, 26: PRINT "ESC   = EXITS this program";
  668. LOCATE 20, 26: PRINT "ALT+ENTER for full screen window";
  669. Pause$ = INPUT$(1)
  670. COLOR 15, 1: CLS: LOCATE 1, 1, 0
  671.  
  672.  
  673. '==========================================================================
  674. '                           FUNCTIONS/SUBS
  675. '==========================================================================
  676.  
  677. FUNCTION FileSelect$ (y, x, y2, x2, Filespec$)
  678.  
  679.  
  680.     '=== save original place of cursor
  681.     origy = CSRLIN
  682.     origx = POS(1)
  683.  
  684.     '=== save colors
  685.     fg& = _DEFAULTCOLOR
  686.     bg& = _BACKGROUNDCOLOR
  687.  
  688.     '=== Save whole screen
  689.     DIM scr1 AS _MEM, scr2 AS _MEM
  690.     scr1 = _MEMIMAGE(0): scr2 = _MEMNEW(scr1.SIZE)
  691.     _MEMCOPY scr1, scr1.OFFSET, scr1.SIZE TO scr2, scr2.OFFSET
  692.  
  693.     '=== Generate a unique temp filename to use based on date + timer
  694.     tmp$ = "_qb64_" + DATE$ + "_" + LTRIM$(STR$(INT(TIMER))) + ".tmp"
  695.     IF INSTR(_OS$, "LINUX") THEN tmp$ = "/tmp/" + tmp$
  696.  
  697.     loadagain:
  698.  
  699.     top = 0
  700.     selection = 0
  701.  
  702.     '=== list directories
  703.     IF INSTR(_OS$, "LINUX") THEN
  704.         SHELL _HIDE "find . -maxdepth 1 -type d > " + tmp$
  705.     ELSE
  706.         SHELL _HIDE "dir /b /A:D > " + tmp$
  707.     END IF
  708.  
  709.     '=== make room for names
  710.     REDIM FileNames$(10000) 'space for 10000 filenames
  711.  
  712.     '=== only show the ".." when not at root dir
  713.     IF LEN(_CWD$) <> 3 THEN
  714.         FileNames$(0) = ".."
  715.         LineCount = 1
  716.     ELSE
  717.         LineCount = 0
  718.     END IF
  719.  
  720.     '=== Open temp file
  721.     FF = FREEFILE
  722.     OPEN tmp$ FOR INPUT AS #FF
  723.  
  724.     WHILE ((LineCount < UBOUND(FileNames$)) AND (NOT EOF(FF)))
  725.         LINE INPUT #FF, rl$
  726.  
  727.         '=== load, ignoring the . entry added under Linux
  728.         IF rl$ <> "." THEN
  729.  
  730.             'also remove the ./ added at the beginning when under linux
  731.             IF INSTR(_OS$, "LINUX") THEN
  732.                 IF LEFT$(rl$, 2) = "./" THEN
  733.                     rl$ = RIGHT$(rl$, LEN(rl$) - 2)
  734.                 END IF
  735.             END IF
  736.  
  737.             FileNames$(LineCount) = "[" + rl$ + "]"
  738.             LineCount = LineCount + 1
  739.  
  740.         END IF
  741.     WEND
  742.  
  743.     CLOSE #FF
  744.  
  745.     '=== now grab list of files...
  746.     IF INSTR(_OS$, "LINUX") THEN
  747.         SHELL _HIDE "rm " + tmp$
  748.         IF Filespec$ = "*.*" THEN Filespec$ = ""
  749.         SHELL _HIDE "find -maxdepth 1 -type f -name '" + Filespec$ + "*' > " + tmp$
  750.     ELSE
  751.         SHELL _HIDE "del " + tmp$
  752.         SHELL _HIDE "dir /b /A:-D " + Filespec$ + " > " + tmp$
  753.     END IF
  754.  
  755.     '=== open temp file
  756.     FF = FREEFILE
  757.     OPEN tmp$ FOR INPUT AS #FF
  758.  
  759.     WHILE ((LineCount < UBOUND(FileNames$)) AND (NOT EOF(FF)))
  760.  
  761.         LINE INPUT #FF, rl$
  762.  
  763.         '=== load, ignoring the generated temp file...
  764.         IF rl$ <> tmp$ THEN
  765.  
  766.             'also remove the ./ added at the beginning when under linux
  767.             IF INSTR(_OS$, "LINUX") THEN
  768.                 IF LEFT$(rl$, 2) = "./" THEN
  769.                     rl$ = RIGHT$(rl$, LEN(rl$) - 2)
  770.                 END IF
  771.             END IF
  772.  
  773.             FileNames$(LineCount) = rl$
  774.             LineCount = LineCount + 1
  775.         END IF
  776.  
  777.     WEND
  778.     CLOSE #FF
  779.  
  780.     '=== Remove the temp file created
  781.     IF INSTR(_OS$, "LINUX") THEN
  782.         SHELL _HIDE "rm " + tmp$
  783.     ELSE
  784.         SHELL _HIDE "del " + tmp$
  785.     END IF
  786.  
  787.  
  788.     '=== draw a box
  789.     COLOR _RGB(100, 100, 255)
  790.     FOR l = 0 TO y2 + 1
  791.         LOCATE y + l, x: PRINT STRING$(x2 + 4, CHR$(219));
  792.     NEXT
  793.  
  794.     '=== show current working dir at top
  795.     COLOR _RGB(255, 255, 255), _RGB(100, 100, 255)
  796.     CurDir$ = _CWD$
  797.     '=== Shorten it is too long, for display purposes
  798.     IF LEN(CurDir$) > x2 - x THEN
  799.         CurDir$ = MID$(CurDir$, 1, x2 - x - 3) + "..."
  800.     END IF
  801.     LOCATE y, x + 2: PRINT CurDir$;
  802.  
  803.     '=== scroll through list...
  804.     DO
  805.  
  806.         FOR l = 0 TO (y2 - 1)
  807.  
  808.             LOCATE (y + 1) + l, (x + 2)
  809.             IF l + top = selection THEN
  810.                 COLOR _RGB(0, 0, 64), _RGB(255, 255, 255) 'selected line
  811.             ELSE
  812.                 COLOR _RGB(255, 255, 255), _RGB(0, 0, 64) 'regular
  813.                 '=== directories get a different color...
  814.                 IF MID$(FileNames$(top + l), 1, 1) = "[" THEN
  815.                     COLOR _RGB(255, 255, 0), _RGB(0, 0, 64)
  816.                 END IF
  817.             END IF
  818.  
  819.             PRINT LEFT$(FileNames$(top + l) + STRING$(x2, " "), x2);
  820.  
  821.         NEXT
  822.  
  823.         '=== Get user input
  824.  
  825.         k$ = INKEY$
  826.         SELECT CASE k$
  827.  
  828.             CASE IS = CHR$(0) + CHR$(72) 'Up arrow
  829.                 IF selection > 0 THEN selection = selection - 1
  830.                 IF selection < top THEN top = selection
  831.  
  832.             CASE IS = CHR$(0) + CHR$(80) 'Down Arrow
  833.                 IF selection < (LineCount - 1) THEN selection = selection + 1
  834.                 IF selection > (top + (y2 - 2)) THEN top = selection - y2 + 1
  835.  
  836.             CASE IS = CHR$(0) + CHR$(73) 'Page up
  837.                 top = top - y2
  838.                 selection = selection - y2
  839.                 IF top < 0 THEN top = 0
  840.                 IF selection < 0 THEN selection = 0
  841.  
  842.             CASE IS = CHR$(0) + CHR$(81) 'Page Down
  843.                 top = top + y2
  844.                 selection = selection + y2
  845.                 IF top >= LineCount - y2 THEN top = LineCount - y2
  846.                 IF top < 0 THEN top = 0
  847.                 IF selection >= LineCount THEN selection = LineCount - 1
  848.  
  849.             CASE IS = CHR$(0) + CHR$(71) 'Home
  850.                 top = 0: selection = 0
  851.  
  852.             CASE IS = CHR$(0) + CHR$(79) 'End
  853.                 selection = LineCount - 1
  854.                 top = selection - y2 + 1
  855.                 IF top < 0 THEN top = 0
  856.  
  857.             CASE IS = CHR$(27) ' ESC cancels
  858.                 FileSelect$ = ""
  859.                 EXIT DO
  860.  
  861.             CASE IS = CHR$(13) 'Enter
  862.                 '=== if .. then go up one dir
  863.                 IF RTRIM$(FileNames$(selection)) = ".." THEN
  864.                     cd$ = _CWD$
  865.                     IF INSTR(_OS$, "LINUX") THEN
  866.                         cd$ = LEFT$(cd$, _INSTRREV(cd$, "/"))
  867.                     ELSE
  868.                         cd$ = LEFT$(cd$, _INSTRREV(cd$, "\"))
  869.                     END IF
  870.                     CHDIR cd$
  871.                     ERASE FileNames$
  872.                     GOTO loadagain
  873.                 END IF
  874.  
  875.                 'see if directory
  876.                 test$ = RTRIM$(FileNames$(selection))
  877.                 IF LEFT$(test$, 1) = "[" THEN
  878.                     test$ = MID$(test$, 2, LEN(test$) - 2)
  879.                     CHDIR test$
  880.                     ERASE FileNames$
  881.                     GOTO loadagain
  882.                 ELSE
  883.                     IF INSTR(_OS$, "LINUX") THEN
  884.                         IF RIGHT$(_CWD$, 1) = "/" THEN
  885.                             C$ = _CWD$
  886.                         ELSE
  887.                             C$ = _CWD$ + "/"
  888.                         END IF
  889.                     ELSE
  890.                         IF RIGHT$(_CWD$, 1) = "\" THEN
  891.                             C$ = _CWD$
  892.                         ELSE
  893.                             C$ = _CWD$ + "\"
  894.                         END IF
  895.                     END IF
  896.  
  897.                     FileSelect$ = C$ + RTRIM$(FileNames$(selection))
  898.                     EXIT DO
  899.  
  900.                 END IF
  901.  
  902.         END SELECT
  903.  
  904.     LOOP
  905.  
  906.     _KEYCLEAR
  907.  
  908.     '=== Restore the whole screen
  909.     _MEMCOPY scr2, scr2.OFFSET, scr2.SIZE TO scr1, scr1.OFFSET
  910.     _MEMFREE scr1: _MEMFREE scr2
  911.  
  912.     '=== restore original y,x and color
  913.     LOCATE origy, origx
  914.  
  915.     COLOR fg&, bg&
  916.  
  917.  
  918.  
  919. SUB FONT (size)
  920.     'load/set built-in CP437 font
  921.     A$ = ""
  922.     A$ = A$ + "haIgm]0MLEMMXkS^ST\\T]lHiaboe<Nl8c71HYa3f0VPiWa9H07n5a_0bn:K"
  923.     A$ = A$ + ";#FB8;c773hBD8T42E_#C:=QBC39PSQB=DB2UhdhVBB^9=_D2EQ#Ala?JFmi"
  924.     A$ = A$ + "ejeGKNiYTV4\UNkOWcmL791Y0Iefg<NdmNWiLfWmIoO_?WkeP10H6`NP0HS["
  925.     A$ = A$ + "KMGj5l9Nf7lH0HC;3of5MAGb9ef>>V6V60Vfa[_^=_m>j[Y]NOC7PDY`?kKc"
  926.     A$ = A$ + "gd0IQB1o20VfnaO?eFkH7m=nh8TP=]8ljY]e^_e]DhRj<;0CoG1`5>lfj\S`"
  927.     A$ = A$ + "IOn5Z6o]G6oLbK3oRZONcW6QoL`[Gfffn0gBQ5]P_=NmC3#5__^kMcMlg=[o"
  928.     A$ = A$ + "a=RPjY`[?W]ga]dWICVEPonZafW]W>fNWObWOGk3P[h7POg7[_Nga07oM<8f"
  929.     A$ = A$ + "f[2agZnF0=g`?kjkmmOT[]nel;PVZJ]hg0?OKcLadaGiKoLOB06[_P\Y8lOJ"
  930.     A$ = A$ + "#5Pl2kCZm?FO04TU^4o[1Bn:5m=VLhOH8jj9mj4UF4Te<4D9R7[U6eP\fS#H"
  931.     A$ = A$ + "5]c]X6G?2l1mUORGl9Rl3CcgPP3Yf?27leNXQi017VViP9PXlI5<D`Bg[8lC"
  932.     A$ = A$ + "8OFXkk2MW7jMNL?lKIT21l_VF:3>F2D;LOV8TRaP9n:<aIA^f=aF7iJaK2<#"
  933.     A$ = A$ + "L8<Ak3Q9<_mJcKe[TDPTc\936fA:ngRlXaf?Q:5<^GQ:NaoU>Jo437Vj6iV1"
  934.     A$ = A$ + "CjiCm;DJYL^oDO^mEPnIARTN`G4_b`GW:h^aS?8:nE5\4h>P72nB`S0?6lT`"
  935.     A$ = A$ + "G3n6`g4n^`g3nA`;PJd_>l_2S2oK`APa=OZPk;hn3NXP7>h;7l41OUP36l\1"
  936.     A$ = A$ + "OW\;=kJbN7IOTLOjLkMY;HY=]dSMY[OYM\d>cGAnIU?G1X#55Z[`\:<W2c[`"
  937.     A$ = A$ + "R:\\2]DHU5FCQ^;\W23Fh^;L?5^_2On2?FQW\`cDh05Nf2o]5n7JN==_fV?["
  938.     A$ = A$ + "V_^VgLcKYiK0]l#_nl<n]?Ho`G1N64oNF7nmJ`?5no0oBhG?1lkY#lk_a3o6"
  939.     A$ = A$ + "2a_i_dUXhG8SOIW2lKS>lKXb`_G\iCeQOMfleChgho?6o#SoJSo:SoBSoRSo"
  940.     A$ = A$ + "2SoS7o7=nc=ngKl_mh7LloZao6SOPaojSo<SodSglAKnX;mXckXcmXciXchX"
  941.     A$ = A$ + "eNDcA6o8SMX7j#Ol3]n3Uke>UGKi_jGkEOZGmAOe?i[^cGM7_b?iEnn_bGOT"
  942.     A$ = A$ + "GITGNTonAN^An_?bgOT_k87LTobANbANdA^oAn8SLWSL7S\kA^eAfn8KJT[I"
  943.     A$ = A$ + "T;OT;KT;LTe?bJNYGnUn7NYGlUnj_dOi;md_dG1if?hKUTeoQnbPBTY#kYE1"
  944.     A$ = A$ + "ESFZ[1V>D;D7jiJVX]gjQI1YQI3=0c1b0c5J4V7<OH1`2Aig5SB]=QF<c1;5"
  945.     A$ = A$ + "b3;3:0=3;7>6hHQS3>NX5h4#keW4\2XEX=X8\BX4Lb`ZPE3W2LZ`Y1[1>Mhm"
  946.     A$ = A$ + "0W1JUo<Qc2>KhLPc5F7LN`jQg;lnPc7f0L1`52G4\Ahm3G<L9`U2G6Li`70J"
  947.     A$ = A$ + "7^2h:Q[2^JhJP?8L]`e1M0K2f<Zke9\5H[`fP^P[7^1XKHk#?#_#O`=2m3k0"
  948.     A$ = A$ + "60f9LC`=3g2L[`^P?4\KhfPK7ejf3B0Z2o4TZbZZNJe<mJ[K6c\RjWEjIg`L"
  949.     A$ = A$ + "b<g6WglG`2GdRGBCIc]dl;[#c;oH>fSkhKi4>aCJ5]fFaEFjTGeZ?UCmdFcY"
  950.     A$ = A$ + "oN>SeNVWeIO>Wkj>_eoNOOWo6^P;lRfhkoR_T;mb^l?#kGaENEGmel1_f[[S"
  951.     A$ = A$ + "=]i`>gbFgFGGo=dmfkYgn^anga0klV^iKiFge7Jggf]O7kiCoI^ooX?kWk1n"
  952.     A$ = A$ + "CN`?oO:l5nR?lGjAfknnb?jSmWmWohko9PWj_h[lEQ?n7N`kjKO_oa2;k?4N"
  953.     A$ = A$ + "n?a?i5o8X?Fh_6nX3m=N8h?h>oHoXWn73gmo=hgcSeBVBdGon_Ub1Ll68O[5"
  954.     A$ = A$ + "Tn_7d>d?4niViJ>Ec5J^NcmJN6coD5c\REDAgEL?ElHEllElc2VE`E7\]P?E"
  955.     A$ = A$ + "`S5lM2NmD#ZIUJUYf#Z#lmNBMoYNfDoZ:?V:_^:k_bQZlaZliZlWFi_\Z:ZJ"
  956.     A$ = A$ + "VEeFEQE][ZfKE?GEoZZWGe[Yj[^jk^j7_j3Fm;<]:VfLWfI=]]<]kJJ?nd6N"
  957.     A$ = A$ + "JSECfJFG=K[Vk_VmGcgYV3=mY=mU>me>m?hdgedo\Co_Jj_N]cZfFZm\Z=\f"
  958.     A$ = A$ + "k\f7_fOH]7Y^IFg:[KMe]Ujj_^1[K_emm[k`cX^I\RILYcHgch1VaGM63?SO"
  959.     A$ = A$ + "c<Wi<?^I^^I^YINGcLOc<JVobjWKm]Eo6Zoj[ocDoG]nG]naVe\Ve9>[e?[^"
  960.     A$ = A$ + "aggm\NlIm2YQdK8MgYO`d?NjXd_n\[JfIWmJWm5>knVmGHf_D3;ZQef`0=lH"
  961.     A$ = A$ + "=llcYZidfLfdL^WilhcIh<EUIeIj9c3TIhi2cmHVkE>g?nL?hLoI=>k6GISG"
  962.     A$ = A$ + "ISkZamfhcghAVga=_;MNM?_?cl>hlnGVoLWoI=o]=oM=om=oGL1YF`:F#k;h"
  963.     A$ = A$ + ">G`3_P3\PGL1S^`U^`CNQGj2kKQ?h2?`2OQ5ncGDM;J5;jbGdNFdm^Xm]XO`"
  964.     A$ = A$ + "RNi5mcGlBFlZGLhR_g5oT;nK]hGLao;;ng\TY]Ti]TSI9WjBf`B^^U<`B^[U"
  965.     A$ = A$ + "lIGbC]TXUlB;iWeDE=U]YEfdjKjjJjVJjNJjQKj0=ml=m?W=Ef5UmmTmbcfG"
  966.     A$ = A$ + "fk=k3Wm0IOi\obLc<g9VKSij;g3TKOiNjLOWL3WkeGj3^\Y]\WJIO[Um3Gfo"
  967.     A$ = A$ + "DQZ:\T2_W2KZ`]GHO5>DceeljK^_VOPV?HcodUGeb?^U_nUOmXESBXnd[Vjh"
  968.     A$ = A$ + "#k:E3WhCHPCJ=?IeYPog]m4EEi;_VW<X2lDh92X_^Bj[ObZ[bLTelT6jk;V>"
  969.     A$ = A$ + "Gj2iBW[Ti;?fmH>San[CML_a;D:hPP69H#F<>]JAkB#YRUX6W;Mn<i<I:F:4"
  970.     A$ = A$ + "SnK\n27KHc#AAQELPa6nXk=<H`#fYLe^n6`m^1dBf2A[G#Yd5Cg#YLIbW9OY"
  971.     A$ = A$ + "PB5cT;OYR=T?MAC^<iBSOOHXIX`8l_]4B7>jiDAk7M_EdNH#fSL8jkTO1oNj"
  972.     A$ = A$ + ";TQ;U7N:S3=:8\:BXJY6bD4afRU:D\Dn:;U?3RfHog;1N4mYQ31NH82=nLNH"
  973.     A$ = A$ + "i917o06WJF4V`l=8<b`O#Xb_;A_aFc]WA<Yo4DE#``8TQ1REY9BH966lk4`a"
  974.     A$ = A$ + "oU0WhGalR1AJY5K4h#<Td1jE4b4=f`AdTPR9S>1I#]<f`S=L8bUdHR8h<5h3"
  975.     A$ = A$ + "bA`_QaW8QHPCW8T5;H2?KIhPa_EAkHloe2#1J28P9_ID^1J39lFc:9PTQV_9"
  976.     A$ = A$ + "GJS`>`nT9O#FTA49SBE[mGO`:>0gIJn6Bd]:>02OLn^ZHniYkgOQDAH8?Rj5"
  977.     A$ = A$ + ":CTWZ96o5ZH0=7CWWT2CgPRg4KP`678laZf]SS:EZl3>76[D]B;AXVVA]<5E"
  978.     A$ = A$ + "i_CcT>O2^:Q^Af[6[_8ETQc=RVg2LIiHBc#Whi]H9=8[2oV85RAd;jPIdHT?"
  979.     A$ = A$ + ":D08RWSo0\^1Y32\6<2UdjARBPTIJVRb7\43ZG]KFDnXWCH`QYiJE>IV0E;>"
  980.     A$ = A$ + "?6g1#<RUc65`g2bQBRi;QOG63nQd^[4IE4f55ZoQ\E4=FMAR#29HBcND2U^d"
  981.     A$ = A$ + "Z>jYkPdRDKPT0J=]E:eCc1O;<KFj<e6BXbT\o>IM6S5M>jMDLG<S:7OSWBPP"
  982.     A$ = A$ + "AT1IN<\:R`W>_Wn2B4EmGNfa2<j7a#5=a\cUD>n:ISV]W^:\kXNLj6eS2STN"
  983.     A$ = A$ + "IJYR3PDOmXWMhIPa62iHb<=58I3\SXL[P1H[AcJ13NTMSC5478iE#U1Hj#A<"
  984.     A$ = A$ + "n?XEbZ[Kn[ZBUHa\<iiojK=P>R>7\:LT=6QII9IATTSNiHeIWiFM`9LQdi8?"
  985.     A$ = A$ + "n3:V6#lgLYYc7[?V^;dZVNcXkRUZTdnS^g9BnEI1;<A:O39PFndZfN4ImQNQ"
  986.     A$ = A$ + ">M>#imIEZL^eRMXXd5BNn#NU_<K4KgZ1BVSXcNB\hX:NgHkcN6i;_O2nQDn<"
  987.     A$ = A$ + "2GQ\7CmP]dUXSNSIkD=J8o[i#NdXXZ6>oCRCaflcD<1NYc9oGZ]5WnU__\jI"
  988.     A$ = A$ + "]o4n>L\IA782:[mY5On>oMFJM5]K=OQbYH_ZXMKl6=TFmfVVD?bTGlXPLYf9"
  989.     A$ = A$ + "n;iA3=OdG4KcTVMXlMUTgX6HeK3KcT=b#n^B]1TdaVKR]M?XHknd=ZlUBCDi"
  990.     A$ = A$ + ";VVD`:MXl<AfWn3Qd\?EbD>2GIn>nZAlHoF[SX4:6HEndNBK\o1[1MQVCc2;"
  991.     A$ = A$ + "UV2VBXgReMNTHCS3[^=0]6KJ<5T]H`gdF9OSST9IbJLa<iC`KYiADTcU^SA`"
  992.     A$ = A$ + "TC?OK5`L;EOK>;4TVG9U:EB=3aF84KaR^WXB:aN8RBjg8fhKQ?#SX8O6BJn8"
  993.     A$ = A$ + "o3SJd`Z9HlPTNB45H6K3chT=J#R6#WXY]DE;la>A^[U8l\j7Nm=fnOa<fHiR"
  994.     A$ = A$ + "B#6\MFdK2b6[gTGUA4Ga5EI4a6ThQ;:JBRMS\S4YabDN\Bj;=f\XaO0d9N;4"
  995.     A$ = A$ + "M8W#6BCB_ZWBEGf<4B]6UT28M:RbAh:Gk]AaI:nm5`n:`f;6f5nV;WDVlAR3"
  996.     A$ = A$ + "NbL4=DTiHN#>7=T\dMJDJ15U`OJ0AO[dPe>\85hcN4j]8fiI_M6<ObJe7iaF"
  997.     A$ = A$ + "?[LOahCLc[3ChB[YSWF<Mc9Y:_Ao4Rm9:bH[GND3`9[6;kh5gQhgWdS9]HB["
  998.     A$ = A$ + "EQ<>OU8kR8^2ma2eaZ;dZf6JeI3mdWbT8ZKNV9J?5C_lRUD^P6?HTed53FR4"
  999.     A$ = A$ + "bfNBPO=h`_dDjCil`[j`4bZSS7D`941W8n#I;ihT<UBQ#A4H<9:D11KjD\IK"
  1000.     A$ = A$ + "CK:9N8aCb^CUY62#^mA2M?h`D_`8B6RW8#IbD^\fR3h=6C:aHC<=fBf]TJMR"
  1001.     A$ = A$ + "aGU`nE3fLUbiTB9J]>oHhaad[n64?;RgLl<2HE#eMg<:Zo#a]AJ_\HYXMaVA"
  1002.     A$ = A$ + "1a_5gVZI=l<R2>g^Q4S2BhiAabh3Bb]=<1EAG\G9R?e575ORE0>QAV:Xjccf"
  1003.     A$ = A$ + "HHlTb`f#IC;I?c6QKaJ;b=n[bUcR6;h4S_f5OLBLXlQ_LJNjHM#EP8GV68_#"
  1004.     A$ = A$ + "<b;ncXh]TT\h`oY\2RU]7TcF9>[?j<B6_431DNRlDRR2T869A<D4afBR7;dc"
  1005.     A$ = A$ + "b#6eJOjLH2PfL7UiShS:<>h?:<;>=f4bXB=<XXWi<7]BX5Hi1:3?a^6RJ43W"
  1006.     A$ = A$ + "LLEVHYWnBCnf?c;XCJ9]fRZ]DK0Haf3Hh7I=M69fU[`3ola>ENOiZmH[DS`l"
  1007.     A$ = A$ + "8TC=0S0=Ym>52B6BYe^[Zd2AbI_413IFRVVb<5MA53[6WBHUa3>C4:ncYi3i"
  1008.     A$ = A$ + "V2:5CSZ<_0N?J5IDHD^#0UA_TX>Z;9OXFF21=MaB6YiXR6KHbDUIXS<?cXff"
  1009.     A$ = A$ + "77G:DXHLa38KZ^DF9RZ?\[GR5gFW1f^LT]L5Te6KAWVLj_TG][>2<UcEE\Hj"
  1010.     A$ = A$ + "_6D[Z4A;bJIhPER8V7ZIPH7NGL5afbeL]U8UBcaYVF\QAmk`dhOTi9EAKZjK"
  1011.     A$ = A$ + "66kE>ObnJJ19]3YM^2?NAm9[KWc6]emS5SY59fG^_QTJU8];CPCSTT]BX?BF"
  1012.     A$ = A$ + "3ULRGM\NClhFTmALJ6>e3[?RQU8HLh#TVhg4\kEVe1JnCYfK]>4iQ;A\_#d?"
  1013.     A$ = A$ + "=S?9RWAlY7WQNIIVKmac\A_<`AjDT4CCTV76?k;;ggdiLa\C#B#<>Ll3`DIb"
  1014.     A$ = A$ + ">:ZNF^NB9[NR<fAdXAEJPnT#6Flh:FcBW\FYNnbdBL4WlLHIbAR^SlfV=VdO"
  1015.     A$ = A$ + "jM`PXIJbSm1`AgEGC;m;^X6IR=ZV?faJ6_8]LJCf8am>9A<Y=`ITJa7;m[TU"
  1016.     A$ = A$ + "#cic`N>XTdEc2`KJLZIbK3Jb6U:[OZ\=eOTee]Omb47XNfUZF\;AaLQN29L8"
  1017.     A$ = A$ + "REflmWbend_6JnE1[\LoU86\HR`MPb6?f:5Vgg#Al<65Z?blHn0Ua4V3LSCB"
  1018.     A$ = A$ + "mUER_ec[eETGL4L>d1I7o18?_I#Z4EK;nkS26d<:2G:7A1DfL4?LHRhfAeB["
  1019.     A$ = A$ + "6=m>CAKVZ<?C2NTC8=RmF8QZGWUhV`Vd<dZhTfYgUF[^#;R27ak36DLPe7Y?"
  1020.     A$ = A$ + "L8V[kS;aaaTAXHR7NEaEeTlBO`GFNnaEFVm98c3Ej;D[4AXjfSWCTbXjFb>?"
  1021.     A$ = A$ + "#L8=ViQ3;RaQ6#b3gjj\XA;RoC6PQZ8\R?];hSHQ[HJ??bJF<FYEE1O8[c:["
  1022.     A$ = A$ + "KM2>T6[T?M6>GjLJlnD1YUZ:8n9UdMdBOd774Th9Pn;kd\<O7=hiiTZZ_Fi8"
  1023.     A$ = A$ + "5SHC6\gBbN;ijQfhBaeKZVh<>Yn;EKR3HHh8NTYEfj`B]A2YiP]F\D6_B<8D"
  1024.     A$ = A$ + "09LMFhj1a>VYBMCZ58;9enSPYd?OiVWV<ole9G`5M:Y^H=naTHS8Y5YKnbQY"
  1025.     A$ = A$ + "iJ\JG1;m=;o#S1K]iXk53iQ<PEWW\CeBekTNYN9C79NJR\4C;9e[O_enceca"
  1026.     A$ = A$ + "Snb6X^;CCe#8\MW4L5:P;S?^j#R81ijcZg53WBU9K9E<V]1H5]2MhQEb:Z<m"
  1027.     A$ = A$ + "g<>In<>INENgYoIS^VC=f[_FOiUVBOiIVJOiClE2ObILfG5m?KV3YSdj7B9\"
  1028.     A$ = A$ + "g^LDP6AW;S_bNIY8NTJKcJNT]P8>aa#m_an1anE?Go]d>Okne2WRHVnT`O^c"
  1029.     A$ = A$ + "6hKRol:JW\1QSmXJIkB#3K=I=kV#]o\nDBh?ggHD\G\HiS6lSYA[<#9=fV#^"
  1030.     A$ = A$ + "d9L`RTL=9FTTnSmOaNeC;?cBCF`YLR4Qc=>VPJDH<bilIi7OQJG=?7m8;gTV"
  1031.     A$ = A$ + "5bRc\9Ai>0Yn4D]7TeERFK8^4:Bm9Xf?DIS1;_`e]Em<Ba065:EffEdIWAKe"
  1032.     A$ = A$ + "O^4kXVE_EB;S8n[A577W09SI[kOSN[=Z6eA1M1B]l6M=SlFMDYD5U_N0NBMU"
  1033.     A$ = A$ + "Bk]N0l2M;QX7<XG<KYfP^^M9[oNJGmF\aSJ3kSeoL:OAnaDP`RigC^[?QPh;"
  1034.     A$ = A$ + "bQPiXk=:Y?`j2C4;NC4o>^Rb^J:cI=8eK?:d?PDFF:bFfN]Z5Jl:oWbeg;PZ"
  1035.     A$ = A$ + "L6SG1RgB^ZD5IG\82RiHUG<``i1aag>Z4mb`\f197IGC\Uk_ZHan:;<A_WUL"
  1036.     A$ = A$ + "f0\cSX9^Q:LB[jJD9[M65YGndELP89V8MmhYO5W3bJBI;[U5o]:;BlflDg]N"
  1037.     A$ = A$ + "]IUml#[L]hdBnShH#FdBP`751^89f0cXHl]K`_2ai;[Ff5ejH7ib8P;CU7?P"
  1038.     A$ = A$ + "SOn1\[iFVBaFL9cCQjRFAa6X6ZSlfK9_MGOI3Y0BKn0:VMS\f3lRBhT1JWU1"
  1039.     A$ = A$ + "ZG\a9b09XR<Z4C9EaP#=7\bT3TEN<^NU4UYQ9\>[5;i4:M[NW_0[_P<SWbJg"
  1040.     A$ = A$ + "]1N=e>N_egLBF\TPd5W_aE3obbMBCV\\U#QH^SEWhL3]<DfhEl]LlX8J;U?N"
  1041.     A$ = A$ + "5hh8I:KLUUWTLEDGi[PSo`kVcCjj08NFMI8`[LHT\D0Lm5dUTT3<F]gVbIST"
  1042.     A$ = A$ + "PCC9bd=^^[dND:CJ]f[N[89]MU4lVR:C:R:7::ER\3cD;FJ8NLf?kGQg3:]j"
  1043.     A$ = A$ + "_:DNef=M\RC^Ea[<9K8fJdDUeRL[fWTDH2359Y?c?N\\ikT;]DKW<^Z[Z4U\"
  1044.     A$ = A$ + "QFoW4AWcUf^f`8\>Fk^gJb[mKA=F4[]<oZ0[aU`NldjXKmEIAj:Ld8JMjR[n"
  1045.     A$ = A$ + "G9N_4`^Z<abGdNhk0AlbHAeOG67>XAIa]UJmiA;HhVOb[bG#IA7hZjGDLL23"
  1046.     A$ = A$ + "bdNdn1Ao[c2NkNhSUQ\kF`4i>8b>YcI\[Q0Q\bb0akm#IEK8`OTMCeabOmUL"
  1047.     A$ = A$ + "`<A=\88FPRR`:Ic#RfDQl6;D#eb[=[GE2Uh#dXBY<=E97aD3eK]ZfJ5L>b^M"
  1048.     A$ = A$ + "d`=`B_CI5:J`I:S\<V\J5ZT#i5]##F?Mjgba`G6HB7S9<4I;g^1?6;o]J<:J"
  1049.     A$ = A$ + "cHJRSCXHJNZ6YbFoUhm?jT>J1JTDU?:B0RCf8h9OXFCVjIRcMEYL8cObZQT]"
  1050.     A$ = A$ + "DBC1[9In#iWPG<iXFoIRNE<ShGAc\B8HF_:AARi;ISiPaDZnlG\=NgL9Re=f"
  1051.     A$ = A$ + "VRHQ;bFcBIg\hfdZ2`mX;DMSb=EE>:M2idb[RT:XVXFBNk]_O;73e[8;Y>aa"
  1052.     A$ = A$ + "`Vd\g#X62;3n5Vbi`4TAW`HX2Y9W8^P7PHoOX<:=FcWcDH2SVjm;WQUAm65["
  1053.     A$ = A$ + "I<oQP;\QGN#T1H96d<D<Xa1kfP[VEan8`NYk4bS<?]fE^LY#HD313_JMi5_A"
  1054.     A$ = A$ + "TK[iX4FZ\GnjmflZZQl7F6<lXR>hHC#CPdPN4]0_m3YVK0_SAE8BD;19JA]V"
  1055.     A$ = A$ + "BK:E7Hl];D=7cQ[2E;_<_#EZ[3S^;J4o#\>P]ZEN15bUbZ<o6;LREaZL9o9A"
  1056.     A$ = A$ + "XGZ[E\0oK=<CHA^LHj1bF:gfX2cVV:HVDjNb4\C2I6fabd_inSEYi988CPDF"
  1057.     A$ = A$ + "[<1`J^0JM12dM:1B7;P`Lij>ZH\nhM3X61]gl[JIel]E[bg3I3NE^BMM55Go"
  1058.     A$ = A$ + ":EVk87bF8[Y6VNdOc4PYO=a\J4>Pj3c6]gS3Z?Y4LPThZ[d3^R]M0WLhiHag"
  1059.     A$ = A$ + "DNbiejh3>?NF8BWkLgU4E]XY\nd1Bm_B\WKV#=`hk;SBLU0RRgQ<lE9;8Vj8"
  1060.     A$ = A$ + "5L[KSToJ6AGd_D9YMefgV3AX=GDDUci2b]_k\cINO1Cf4`hDiEVOh8<BZHmo"
  1061.     A$ = A$ + "1I^hKjnA[T6>MVlU]Odd\1RlGl5e7[gjV5_o:U#bciE4UbZf77=]]FSnEl;f"
  1062.     A$ = A$ + "4CD\MDkn?eFQ:Y4RFlWi0lFCUe6DcDl6Lf5ACLQ=em8YU^ISl?AfATg8MciU"
  1063.     A$ = A$ + "FFWaTk>?c#f[i<Gd=IKMne<foN[YDRJ`J_?7R[iRj\LDOlTZ0Mllo`R_bEIW"
  1064.     A$ = A$ + "nB>Ki\Y<RI^9cNf?`#jB`kO_CHIKlNA;D[EHSfm7ZM7]Uc]OA2e]d6KFUn8Y"
  1065.     A$ = A$ + "oIaE_jmQfX#kCid2Q#ilaaFPJXd2F;iK<i[eAnhki3RW5C5\[dQoHT>I=EiA"
  1066.     A$ = A$ + ";S[4Jai2;[7OPFWV1In#>Y^hLdNfL7ejl#5h]AnZ#G#A^K;4k^NTa<nFgRf4"
  1067.     A$ = A$ + "KofNoll>lnH#[5DReDJEj2BYkRF^>JfEeQ9HafGYeY[9MM\8Nkl95liKR_k0"
  1068.     A$ = A$ + "TMU\^5a\ZLHd#Ad=<fQSRT<?E>^UGlfOOgofiN:h]km7`kTk5QgYkkogm^?H"
  1069.     A$ = A$ + "nMbmfQFoaAm[ohXNe_Wm;E_^BndVT#:3E9J?N>T\Fc3Q0<H#:RIIMI8I>I_O"
  1070.     A$ = A$ + "[e>8NGT:Jgl^jaNW4Zih[i1Zk?eO[^_<4o0ejEK1dOWFfMak=E>2oJPF_N?;"
  1071.     A$ = A$ + "T8:gb[mR;Bg8_c\<HohlXiIRHb>MS\cA=lN;WTJ5kM^=Rb4lOe#nb:JYGn91"
  1072.     A$ = A$ + "8D\5OeNXRf;K7\bKFQ9c_X_KgTk<e:]`e1IJgkVXFhl_l^fJAUHM2:akfJJ3"
  1073.     A$ = A$ + "F;ke2A6T^?3Um:UA;M0aBhJWC#13=hgl?GiL\aF`kUUJSGGD=f8Y>2S=LZ=#"
  1074.     A$ = A$ + "g5Jjnm?8KlnmWNF\8kgOJCZbgGSPQF9oASB]oOm1[J]>L1kCUTn0OoQV5]7R"
  1075.     A$ = A$ + "h::>=8_6Xmaj;^el#ZHoAf=olGQdW6R_W9YnccE:LPaZ;enYk9`\Z\;]WbM]"
  1076.     A$ = A$ + "Y4e6RlUJoH`Q\Y>;NXkI76>i58=L43ZSL82M]hS]MiEXaE[UVCXNPefY>_ZF"
  1077.     A$ = A$ + "X5ac\Q4=57mbK<;9H?Mg3c3J2H9l0;^IK[\mRKAaAk`cn_6R]94HaP2<7QJS"
  1078.     A$ = A$ + "N?^8]SbTi0<_Qg]BY?n:TUT5=TY<9UfP`Z6;?RliXl9JQ`aAVBSWae8MNGSB"
  1079.     A$ = A$ + "OH?<XY;ZD]VQ8VZ>mUaVQKURT81f:SK?_Y3aV`E8PU6LdO1GB;E0SgK84J`d"
  1080.     A$ = A$ + "f`ghYTWL#dlB`3A^9_\NIQFY76;Z#JW57TF^L1V3akjK]eA4L?\WlF=:_8SC"
  1081.     A$ = A$ + "VKHA^S3>Gh_AN]]X6D;ALi5:#U#aP=4JQC>^FK[[V38TJ?G70\CN#gG^^6E^"
  1082.     A$ = A$ + "^D\\]8D`9oXkI5jNaaQ;i4gb8\Y5h;De4\hR]]FL11K1i>lQJ?=0T`Q2LN_a"
  1083.     A$ = A$ + "6[oD[?M9O<UIH;bcJB:_WUm]cglFI?9aHOe>Djdfn:U8i<\LB1VTBi0SBnbJ"
  1084.     A$ = A$ + "3PhVJl#fZ6_aCAgFd#2MgJMj^UldOmdQIRV:K`j62>Vg8kCddL50#R#TCWW>"
  1085.     A$ = A$ + "0jm`]SfEO\45e?Johakd:i^;FU[8:H5]SXXNoWckgUJS]J8j]\N^XjB2^JNO"
  1086.     A$ = A$ + "Z^VfJk>URX5Q>3=\LNP3f9`[22ETlQ:JXSE7?64V9jLQ^m9QcFE]NF[XNZF\"
  1087.     A$ = A$ + "8dCHaVA]kEL]?>9JWD7]aTEE0WLGP[m1XDJmF[FDG4n<=GRhHBR4CHbF`Qhb"
  1088.     A$ = A$ + "#2kT=4KKXX_\XDd7W09K^#g3#Z=YbPQKO0iX]AjCE0ZcfH>R9cD=#lTCC;k\"
  1089.     A$ = A$ + "DO:Ml\aAaSWBnTm9<gXkJ7a7:mL1Phk:Q;F>8P_gVba?o96U[mPakI:Pf?ii"
  1090.     A$ = A$ + "4PCOHXhOSbM`nKdifnQLKlgLoJF8dmKEWh9V1]b47?LB#AHE`Y1W1Lf`i1W?"
  1091.     A$ = A$ + "LA`U0O0hZP[5f<\Eh6PNQM0g<lQPk#^oSJDo#aV]HSL\4NmZ`?E:EJ=CedWR"
  1092.     A$ = A$ + "bM8JejgAgknfn`mgoSnm5ljS]O1Nm?iFjES_[l0cN;KPl?nACP;QHj57QNHX"
  1093.     A$ = A$ + "Dk9M1KShUoCkAkj=9`QSkW\]n:oGI_e[eSGn>S^oQQ?:l9POOhnPo#hc1o9`"
  1094.     A$ = A$ + "31?2lX`O>lG0O=h[3OCh_1n^`O;lg1om`?161N=hO4nO2o_PoEho;l_1_1<^"
  1095.     A$ = A$ + "\C1W<JZUGIn]Q_RlVFYfhM<]geFNISJZFffH:[?]ZS1E9_Zc[Ka#mjPbPK1M"
  1096.     A$ = A$ + "LcHg0CNbEdgKd[]YginXO?Un>G7iT_R[6jD9UDf[4K=Y9ie4gBUC\7bjBk9o"
  1097.     A$ = A$ + "i;=YBJkm=AhLg>8Ie2hB_b[c]]DHNXQ01FjU;BQVhQ;cO5N2\dkLBkm;1fGY"
  1098.     A$ = A$ + "KB[aaQXHTM]ijTY?1XEX4L:`Y3W9L^`k5^0hm3G6L5`e0M0M2M1K7^AHW`]2"
  1099.     A$ = A$ + "g6m#\RbYd^cclnTAc\TbIV[RVl;[ba_adX`OYAmH3hAZZ<E[O2`V_HSL\4N]"
  1100.     A$ = A$ + "A_Vo=lcbmJC<Q9b]94]g_3_9l]hK_h9me_nP9^L24c9b<A>N<kgm]JM#JGll"
  1101.     A$ = A$ + "_:=?mHo5`To\\hOo?c4\[9mKgWi9okiI^`kdWA:_KmLji]kc9XOGmlmioOhi"
  1102.     A$ = A$ + "GeoAmLkig1?3SLk1Wg=OF;m^ec2[gEOfLmObNNSmfiIofk6?cY0HV`S3fWEa"
  1103.     A$ = A$ + "E2eYWK`cGRNN5XFj:ec3`_MGjidcFc_TNNUHF?OCmlZ`[nadC3fDdc[hYcmR"
  1104.     A$ = A$ + ">gPW?Kml:`aMIji1`J`gbiY`fl7YWG9fj7E?_:lkoNH\QK4a4:BAh\gh:;B7"
  1105.     A$ = A$ + "V`gLaX7g]RNKk6mmf?NIWKMWMg1Nbj`H8k16P?f?fR>aL1>ElC<4T[K3mTCn"
  1106.     A$ = A$ + "cK5oKK`:`?]RM^gN6HMmfoFk<kYVU77lHKU>QFKm4JK5]ejTQ6G>>0dSWc^h"
  1107.     A$ = A$ + "Q=;n6^l>kO7MeK?Ic>I]70kC4jaG=h^38lOIbQOZ`4HBIZdDUYJcd<eHV^YF"
  1108.     A$ = A$ + "CMVIHVYYNc\<Y=cfdPI>V<ViJJd<?cl=;`\#cR<;f\4CCV\84VZW8ZoGRW7Z"
  1109.     A$ = A$ + "VUJbSak?8lAP?3LG`O<lUQ_8V?`mIF6V;`MSAnoP`nPO1<:l5hWLZ3im\CmS"
  1110.     A$ = A$ + "1G?b:XWNZm0ONTULS#O<kIWX4QldCMGHlIdC?eW6cahfQmPAZm<`3K:HJf\L"
  1111.     A$ = A$ + "caH>FcaI>NC;`WcL2VCdLB`7e\2C[Vf<5=[dDbLbVEIF]iD<W:Z?lY<WVI=`"
  1112.     A$ = A$ + "SH>Mh?0ndVgSi<<[eLVVcbLfVcaL^VeI>?cj=_GckcLnV=H^0c5J^8c6=_Oc"
  1113.     A$ = A$ + "5K^4cUJ^<cUKn0Vf=GQi:=GUiZ=GSi3J^FceIj`\9cV=QV>=Ka\Ecf<MI^Nc"
  1114.     A$ = A$ + "=Hjf\MC?VN=mI^ACoVMH6`\Cc=I^Ic]H^Ec^<O8c^=gVif=gQI?VO?cMJn`V"
  1115.     A$ = A$ + "1=OTZgI?M]2lUNlLdS]Z7KC?FD?^BmH9mh9[7GUNLejaCA?NVjacB?NfjacE"
  1116.     A$ = A$ + "?^>iH[jhgZ>^]ZSK[jhfZ>^]ZSK[jhfZ>^]ZSK[jhfZ>^]ZSK[jhfZ>oJE7o"
  1117.     A$ = A$ + "FeaOEjacDaScZ]:?_>fnfkXb;MKM>#7EN9M]e]gA`6gFGl_Fl<?U:kXknfF7"
  1118.     A$ = A$ + "E6fIg3dAeMfg>jZkNkYbM`]JP>fI#OK[[JjlFfLgM\m`=e=eWf`AXZnjL78`"
  1119.     A$ = A$ + "ZYSnk_gK^k>gb0EcW]cnV>O\o^fjf6#na`N_iNTcfD_3\]JdV5fCM^cfd>jT"
  1120.     A$ = A$ + "1KK]N:C_gn7HKm^eNkYS^[[[N60]XdiV70=ZDKWgh>kjVjXk>kIcMFifjMWk"
  1121.     A$ = A$ + "XcIdOWgDgm^e^fL7MgC_3<MZaK]o>jNPnLW^Y1VfU\^F9aQE#WdZNb:LWDdN"
  1122.     A$ = A$ + "BKfCFYmTEK?iD\WLbfCFUmTBj9[d2Wf\M_TM8:IQLA;LJcn=]IKCKFhDbRZ["
  1123.     A$ = A$ + "dfhRFdX=g9fA_=;nDdMRmWFYM8Je=XF8gV5EGY[aF8_B;n\Bglb2iEJkN9g4"
  1124.     A$ = A$ + "d1WE:ZKm]Y^kMcg#e8_T>FYLEgKA>fo0je3\S]eAHWEbo]j`KP?FcFjZk^k<"
  1125.     A$ = A$ + "LCmN;CG>[OTSGm0mgE7KMWm97kG_>\7iHgKYZ=gEoK^k>[Y[N^Y=]C\C3#WY"
  1126.     A$ = A$ + "Og>fNGXlH7K^CD0jVLG4\SMfCEKYc]SR#YXoDi>j37lDK^kM^Y:gFWMP3AHG"
  1127.     A$ = A$ + "M\mNk9\f]_cMX2EM>C_cAIOa=ehScNbHoGSl3nVg6Mdooo4noEAM%%h1"
  1128.     btemp$ = ""
  1129.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
  1130.         IF INSTR(1, B$, "%") THEN
  1131.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
  1132.                 IF F$ <> "%" THEN C$ = C$ + F$
  1133.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
  1134.             IF MID$(B$, j, 1) = "#" THEN
  1135.         MID$(B$, j) = "@": END IF: NEXT
  1136.         FOR t% = LEN(B$) TO 1 STEP -1
  1137.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
  1138.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
  1139.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
  1140.     NEXT: btemp$ = btemp$ + X$: NEXT
  1141.     BASFILE$ = _INFLATE$(btemp$): btemp$ = ""
  1142.  
  1143.     '=== Generate a unique font name to use based on date + timer
  1144.     fontname$ = "_cp437_" + DATE$ + "_" + LTRIM$(STR$(INT(TIMER))) + ".ttf"
  1145.     IF INSTR(_OS$, "LINUX") THEN tmp$ = "/tmp/" + tmp$
  1146.     '=== Make font file
  1147.     FFF = FREEFILE: OPEN fontname$ FOR OUTPUT AS #FFF
  1148.     PRINT #FFF, BASFILE$;: CLOSE #FFF
  1149.     '=== Load then kill it after loading it into memory
  1150.     fnt& = _LOADFONT(fontname$, size, "monospace"): _FONT fnt&
  1151.     KILL fontname$
  1152.  
  1153.  
.

4
I like to make command line tools using SCREEN 0.  Often I wish to enlarge SCREEN 0 with a larger system font, instead of having to go FULLSCREEN.  I'm presently using a small TTF font file to make larger screens, but is there a way to resize QB64's built-in code page font instead, and bypass using another font file? 

The following code is what I'm currently using. It creates/loads then deletes a small font.  Makes a larger SCREEN 0 and displays all ASCII characters.   I'm seeking to achieve this using QB64's built-in font instead.   

- Dav

Code: QB64: [Select]
  1.  
  2. '=== show all characters
  3. lc = 0
  4. FOR t = 0 TO 255
  5.     s$ = LTRIM$(RTRIM$(STR$(t)))
  6.     IF LEN(s$) = 1 THEN s$ = "00" + s$
  7.     IF LEN(s$) = 2 THEN s$ = "0" + s$
  8.     PRINT s$; ":"; CHR$(t); " ";
  9.     lc = lc + 1: IF lc > 12 THEN PRINT: lc = 0
  10.  
  11.  
  12. '=== Set font size based on users desktop size.
  13.  
  14. FONT INT(_DESKTOPHEIGHT / 25) - 5
  15.  
  16.  
  17. SUB FONT (size)
  18.     'load/set font
  19.     A$ = ""
  20.     A$ = A$ + "haIgm]0MLEMMXkS^ST\\T]lHiaboe<Nl8c71HYa3f0VPiWa9H07n5a_0bn:K"
  21.     A$ = A$ + ";#FB8;c773hBD8T42E_#C:=QBC39PSQB=DB2UhdhVBB^9=_D2EQ#Ala?JFmi"
  22.     A$ = A$ + "ejeGKNiYTV4\UNkOWcmL791Y0Iefg<NdmNWiLfWmIoO_?WkeP10H6`NP0HS["
  23.     A$ = A$ + "KMGj5l9Nf7lH0HC;3of5MAGb9ef>>V6V60Vfa[_^=_m>j[Y]NOC7PDY`?kKc"
  24.     A$ = A$ + "gd0IQB1o20VfnaO?eFkH7m=nh8TP=]8ljY]e^_e]DhRj<;0CoG1`5>lfj\S`"
  25.     A$ = A$ + "IOn5Z6o]G6oLbK3oRZONcW6QoL`[Gfffn0gBQ5]P_=NmC3#5__^kMcMlg=[o"
  26.     A$ = A$ + "a=RPjY`[?W]ga]dWICVEPonZafW]W>fNWObWOGk3P[h7POg7[_Nga07oM<8f"
  27.     A$ = A$ + "f[2agZnF0=g`?kjkmmOT[]nel;PVZJ]hg0?OKcLadaGiKoLOB06[_P\Y8lOJ"
  28.     A$ = A$ + "#5Pl2kCZm?FO04TU^4o[1Bn:5m=VLhOH8jj9mj4UF4Te<4D9R7[U6eP\fS#H"
  29.     A$ = A$ + "5]c]X6G?2l1mUORGl9Rl3CcgPP3Yf?27leNXQi017VViP9PXlI5<D`Bg[8lC"
  30.     A$ = A$ + "8OFXkk2MW7jMNL?lKIT21l_VF:3>F2D;LOV8TRaP9n:<aIA^f=aF7iJaK2<#"
  31.     A$ = A$ + "L8<Ak3Q9<_mJcKe[TDPTc\936fA:ngRlXaf?Q:5<^GQ:NaoU>Jo437Vj6iV1"
  32.     A$ = A$ + "CjiCm;DJYL^oDO^mEPnIARTN`G4_b`GW:h^aS?8:nE5\4h>P72nB`S0?6lT`"
  33.     A$ = A$ + "G3n6`g4n^`g3nA`;PJd_>l_2S2oK`APa=OZPk;hn3NXP7>h;7l41OUP36l\1"
  34.     A$ = A$ + "OW\;=kJbN7IOTLOjLkMY;HY=]dSMY[OYM\d>cGAnIU?G1X#55Z[`\:<W2c[`"
  35.     A$ = A$ + "R:\\2]DHU5FCQ^;\W23Fh^;L?5^_2On2?FQW\`cDh05Nf2o]5n7JN==_fV?["
  36.     A$ = A$ + "V_^VgLcKYiK0]l#_nl<n]?Ho`G1N64oNF7nmJ`?5no0oBhG?1lkY#lk_a3o6"
  37.     A$ = A$ + "2a_i_dUXhG8SOIW2lKS>lKXb`_G\iCeQOMfleChgho?6o#SoJSo:SoBSoRSo"
  38.     A$ = A$ + "2SoS7o7=nc=ngKl_mh7LloZao6SOPaojSo<SodSglAKnX;mXckXcmXciXchX"
  39.     A$ = A$ + "eNDcA6o8SMX7j#Ol3]n3Uke>UGKi_jGkEOZGmAOe?i[^cGM7_b?iEnn_bGOT"
  40.     A$ = A$ + "GITGNTonAN^An_?bgOT_k87LTobANbANdA^oAn8SLWSL7S\kA^eAfn8KJT[I"
  41.     A$ = A$ + "T;OT;KT;LTe?bJNYGnUn7NYGlUnj_dOi;md_dG1if?hKUTeoQnbPBTY#kYE1"
  42.     A$ = A$ + "ESFZ[1V>D;D7jiJVX]gjQI1YQI3=0c1b0c5J4V7<OH1`2Aig5SB]=QF<c1;5"
  43.     A$ = A$ + "b3;3:0=3;7>6hHQS3>NX5h4#keW4\2XEX=X8\BX4Lb`ZPE3W2LZ`Y1[1>Mhm"
  44.     A$ = A$ + "0W1JUo<Qc2>KhLPc5F7LN`jQg;lnPc7f0L1`52G4\Ahm3G<L9`U2G6Li`70J"
  45.     A$ = A$ + "7^2h:Q[2^JhJP?8L]`e1M0K2f<Zke9\5H[`fP^P[7^1XKHk#?#_#O`=2m3k0"
  46.     A$ = A$ + "60f9LC`=3g2L[`^P?4\KhfPK7ejf3B0Z2o4TZbZZNJe<mJ[K6c\RjWEjIg`L"
  47.     A$ = A$ + "b<g6WglG`2GdRGBCIc]dl;[#c;oH>fSkhKi4>aCJ5]fFaEFjTGeZ?UCmdFcY"
  48.     A$ = A$ + "oN>SeNVWeIO>Wkj>_eoNOOWo6^P;lRfhkoR_T;mb^l?#kGaENEGmel1_f[[S"
  49.     A$ = A$ + "=]i`>gbFgFGGo=dmfkYgn^anga0klV^iKiFge7Jggf]O7kiCoI^ooX?kWk1n"
  50.     A$ = A$ + "CN`?oO:l5nR?lGjAfknnb?jSmWmWohko9PWj_h[lEQ?n7N`kjKO_oa2;k?4N"
  51.     A$ = A$ + "n?a?i5o8X?Fh_6nX3m=N8h?h>oHoXWn73gmo=hgcSeBVBdGon_Ub1Ll68O[5"
  52.     A$ = A$ + "Tn_7d>d?4niViJ>Ec5J^NcmJN6coD5c\REDAgEL?ElHEllElc2VE`E7\]P?E"
  53.     A$ = A$ + "`S5lM2NmD#ZIUJUYf#Z#lmNBMoYNfDoZ:?V:_^:k_bQZlaZliZlWFi_\Z:ZJ"
  54.     A$ = A$ + "VEeFEQE][ZfKE?GEoZZWGe[Yj[^jk^j7_j3Fm;<]:VfLWfI=]]<]kJJ?nd6N"
  55.     A$ = A$ + "JSECfJFG=K[Vk_VmGcgYV3=mY=mU>me>m?hdgedo\Co_Jj_N]cZfFZm\Z=\f"
  56.     A$ = A$ + "k\f7_fOH]7Y^IFg:[KMe]Ujj_^1[K_emm[k`cX^I\RILYcHgch1VaGM63?SO"
  57.     A$ = A$ + "c<Wi<?^I^^I^YINGcLOc<JVobjWKm]Eo6Zoj[ocDoG]nG]naVe\Ve9>[e?[^"
  58.     A$ = A$ + "aggm\NlIm2YQdK8MgYO`d?NjXd_n\[JfIWmJWm5>knVmGHf_D3;ZQef`0=lH"
  59.     A$ = A$ + "=llcYZidfLfdL^WilhcIh<EUIeIj9c3TIhi2cmHVkE>g?nL?hLoI=>k6GISG"
  60.     A$ = A$ + "ISkZamfhcghAVga=_;MNM?_?cl>hlnGVoLWoI=o]=oM=om=oGL1YF`:F#k;h"
  61.     A$ = A$ + ">G`3_P3\PGL1S^`U^`CNQGj2kKQ?h2?`2OQ5ncGDM;J5;jbGdNFdm^Xm]XO`"
  62.     A$ = A$ + "RNi5mcGlBFlZGLhR_g5oT;nK]hGLao;;ng\TY]Ti]TSI9WjBf`B^^U<`B^[U"
  63.     A$ = A$ + "lIGbC]TXUlB;iWeDE=U]YEfdjKjjJjVJjNJjQKj0=ml=m?W=Ef5UmmTmbcfG"
  64.     A$ = A$ + "fk=k3Wm0IOi\obLc<g9VKSij;g3TKOiNjLOWL3WkeGj3^\Y]\WJIO[Um3Gfo"
  65.     A$ = A$ + "DQZ:\T2_W2KZ`]GHO5>DceeljK^_VOPV?HcodUGeb?^U_nUOmXESBXnd[Vjh"
  66.     A$ = A$ + "#k:E3WhCHPCJ=?IeYPog]m4EEi;_VW<X2lDh92X_^Bj[ObZ[bLTelT6jk;V>"
  67.     A$ = A$ + "Gj2iBW[Ti;?fmH>San[CML_a;D:hPP69H#F<>]JAkB#YRUX6W;Mn<i<I:F:4"
  68.     A$ = A$ + "SnK\n27KHc#AAQELPa6nXk=<H`#fYLe^n6`m^1dBf2A[G#Yd5Cg#YLIbW9OY"
  69.     A$ = A$ + "PB5cT;OYR=T?MAC^<iBSOOHXIX`8l_]4B7>jiDAk7M_EdNH#fSL8jkTO1oNj"
  70.     A$ = A$ + ";TQ;U7N:S3=:8\:BXJY6bD4afRU:D\Dn:;U?3RfHog;1N4mYQ31NH82=nLNH"
  71.     A$ = A$ + "i917o06WJF4V`l=8<b`O#Xb_;A_aFc]WA<Yo4DE#``8TQ1REY9BH966lk4`a"
  72.     A$ = A$ + "oU0WhGalR1AJY5K4h#<Td1jE4b4=f`AdTPR9S>1I#]<f`S=L8bUdHR8h<5h3"
  73.     A$ = A$ + "bA`_QaW8QHPCW8T5;H2?KIhPa_EAkHloe2#1J28P9_ID^1J39lFc:9PTQV_9"
  74.     A$ = A$ + "GJS`>`nT9O#FTA49SBE[mGO`:>0gIJn6Bd]:>02OLn^ZHniYkgOQDAH8?Rj5"
  75.     A$ = A$ + ":CTWZ96o5ZH0=7CWWT2CgPRg4KP`678laZf]SS:EZl3>76[D]B;AXVVA]<5E"
  76.     A$ = A$ + "i_CcT>O2^:Q^Af[6[_8ETQc=RVg2LIiHBc#Whi]H9=8[2oV85RAd;jPIdHT?"
  77.     A$ = A$ + ":D08RWSo0\^1Y32\6<2UdjARBPTIJVRb7\43ZG]KFDnXWCH`QYiJE>IV0E;>"
  78.     A$ = A$ + "?6g1#<RUc65`g2bQBRi;QOG63nQd^[4IE4f55ZoQ\E4=FMAR#29HBcND2U^d"
  79.     A$ = A$ + "Z>jYkPdRDKPT0J=]E:eCc1O;<KFj<e6BXbT\o>IM6S5M>jMDLG<S:7OSWBPP"
  80.     A$ = A$ + "AT1IN<\:R`W>_Wn2B4EmGNfa2<j7a#5=a\cUD>n:ISV]W^:\kXNLj6eS2STN"
  81.     A$ = A$ + "IJYR3PDOmXWMhIPa62iHb<=58I3\SXL[P1H[AcJ13NTMSC5478iE#U1Hj#A<"
  82.     A$ = A$ + "n?XEbZ[Kn[ZBUHa\<iiojK=P>R>7\:LT=6QII9IATTSNiHeIWiFM`9LQdi8?"
  83.     A$ = A$ + "n3:V6#lgLYYc7[?V^;dZVNcXkRUZTdnS^g9BnEI1;<A:O39PFndZfN4ImQNQ"
  84.     A$ = A$ + ">M>#imIEZL^eRMXXd5BNn#NU_<K4KgZ1BVSXcNB\hX:NgHkcN6i;_O2nQDn<"
  85.     A$ = A$ + "2GQ\7CmP]dUXSNSIkD=J8o[i#NdXXZ6>oCRCaflcD<1NYc9oGZ]5WnU__\jI"
  86.     A$ = A$ + "]o4n>L\IA782:[mY5On>oMFJM5]K=OQbYH_ZXMKl6=TFmfVVD?bTGlXPLYf9"
  87.     A$ = A$ + "n;iA3=OdG4KcTVMXlMUTgX6HeK3KcT=b#n^B]1TdaVKR]M?XHknd=ZlUBCDi"
  88.     A$ = A$ + ";VVD`:MXl<AfWn3Qd\?EbD>2GIn>nZAlHoF[SX4:6HEndNBK\o1[1MQVCc2;"
  89.     A$ = A$ + "UV2VBXgReMNTHCS3[^=0]6KJ<5T]H`gdF9OSST9IbJLa<iC`KYiADTcU^SA`"
  90.     A$ = A$ + "TC?OK5`L;EOK>;4TVG9U:EB=3aF84KaR^WXB:aN8RBjg8fhKQ?#SX8O6BJn8"
  91.     A$ = A$ + "o3SJd`Z9HlPTNB45H6K3chT=J#R6#WXY]DE;la>A^[U8l\j7Nm=fnOa<fHiR"
  92.     A$ = A$ + "B#6\MFdK2b6[gTGUA4Ga5EI4a6ThQ;:JBRMS\S4YabDN\Bj;=f\XaO0d9N;4"
  93.     A$ = A$ + "M8W#6BCB_ZWBEGf<4B]6UT28M:RbAh:Gk]AaI:nm5`n:`f;6f5nV;WDVlAR3"
  94.     A$ = A$ + "NbL4=DTiHN#>7=T\dMJDJ15U`OJ0AO[dPe>\85hcN4j]8fiI_M6<ObJe7iaF"
  95.     A$ = A$ + "?[LOahCLc[3ChB[YSWF<Mc9Y:_Ao4Rm9:bH[GND3`9[6;kh5gQhgWdS9]HB["
  96.     A$ = A$ + "EQ<>OU8kR8^2ma2eaZ;dZf6JeI3mdWbT8ZKNV9J?5C_lRUD^P6?HTed53FR4"
  97.     A$ = A$ + "bfNBPO=h`_dDjCil`[j`4bZSS7D`941W8n#I;ihT<UBQ#A4H<9:D11KjD\IK"
  98.     A$ = A$ + "CK:9N8aCb^CUY62#^mA2M?h`D_`8B6RW8#IbD^\fR3h=6C:aHC<=fBf]TJMR"
  99.     A$ = A$ + "aGU`nE3fLUbiTB9J]>oHhaad[n64?;RgLl<2HE#eMg<:Zo#a]AJ_\HYXMaVA"
  100.     A$ = A$ + "1a_5gVZI=l<R2>g^Q4S2BhiAabh3Bb]=<1EAG\G9R?e575ORE0>QAV:Xjccf"
  101.     A$ = A$ + "HHlTb`f#IC;I?c6QKaJ;b=n[bUcR6;h4S_f5OLBLXlQ_LJNjHM#EP8GV68_#"
  102.     A$ = A$ + "<b;ncXh]TT\h`oY\2RU]7TcF9>[?j<B6_431DNRlDRR2T869A<D4afBR7;dc"
  103.     A$ = A$ + "b#6eJOjLH2PfL7UiShS:<>h?:<;>=f4bXB=<XXWi<7]BX5Hi1:3?a^6RJ43W"
  104.     A$ = A$ + "LLEVHYWnBCnf?c;XCJ9]fRZ]DK0Haf3Hh7I=M69fU[`3ola>ENOiZmH[DS`l"
  105.     A$ = A$ + "8TC=0S0=Ym>52B6BYe^[Zd2AbI_413IFRVVb<5MA53[6WBHUa3>C4:ncYi3i"
  106.     A$ = A$ + "V2:5CSZ<_0N?J5IDHD^#0UA_TX>Z;9OXFF21=MaB6YiXR6KHbDUIXS<?cXff"
  107.     A$ = A$ + "77G:DXHLa38KZ^DF9RZ?\[GR5gFW1f^LT]L5Te6KAWVLj_TG][>2<UcEE\Hj"
  108.     A$ = A$ + "_6D[Z4A;bJIhPER8V7ZIPH7NGL5afbeL]U8UBcaYVF\QAmk`dhOTi9EAKZjK"
  109.     A$ = A$ + "66kE>ObnJJ19]3YM^2?NAm9[KWc6]emS5SY59fG^_QTJU8];CPCSTT]BX?BF"
  110.     A$ = A$ + "3ULRGM\NClhFTmALJ6>e3[?RQU8HLh#TVhg4\kEVe1JnCYfK]>4iQ;A\_#d?"
  111.     A$ = A$ + "=S?9RWAlY7WQNIIVKmac\A_<`AjDT4CCTV76?k;;ggdiLa\C#B#<>Ll3`DIb"
  112.     A$ = A$ + ">:ZNF^NB9[NR<fAdXAEJPnT#6Flh:FcBW\FYNnbdBL4WlLHIbAR^SlfV=VdO"
  113.     A$ = A$ + "jM`PXIJbSm1`AgEGC;m;^X6IR=ZV?faJ6_8]LJCf8am>9A<Y=`ITJa7;m[TU"
  114.     A$ = A$ + "#cic`N>XTdEc2`KJLZIbK3Jb6U:[OZ\=eOTee]Omb47XNfUZF\;AaLQN29L8"
  115.     A$ = A$ + "REflmWbend_6JnE1[\LoU86\HR`MPb6?f:5Vgg#Al<65Z?blHn0Ua4V3LSCB"
  116.     A$ = A$ + "mUER_ec[eETGL4L>d1I7o18?_I#Z4EK;nkS26d<:2G:7A1DfL4?LHRhfAeB["
  117.     A$ = A$ + "6=m>CAKVZ<?C2NTC8=RmF8QZGWUhV`Vd<dZhTfYgUF[^#;R27ak36DLPe7Y?"
  118.     A$ = A$ + "L8V[kS;aaaTAXHR7NEaEeTlBO`GFNnaEFVm98c3Ej;D[4AXjfSWCTbXjFb>?"
  119.     A$ = A$ + "#L8=ViQ3;RaQ6#b3gjj\XA;RoC6PQZ8\R?];hSHQ[HJ??bJF<FYEE1O8[c:["
  120.     A$ = A$ + "KM2>T6[T?M6>GjLJlnD1YUZ:8n9UdMdBOd774Th9Pn;kd\<O7=hiiTZZ_Fi8"
  121.     A$ = A$ + "5SHC6\gBbN;ijQfhBaeKZVh<>Yn;EKR3HHh8NTYEfj`B]A2YiP]F\D6_B<8D"
  122.     A$ = A$ + "09LMFhj1a>VYBMCZ58;9enSPYd?OiVWV<ole9G`5M:Y^H=naTHS8Y5YKnbQY"
  123.     A$ = A$ + "iJ\JG1;m=;o#S1K]iXk53iQ<PEWW\CeBekTNYN9C79NJR\4C;9e[O_enceca"
  124.     A$ = A$ + "Snb6X^;CCe#8\MW4L5:P;S?^j#R81ijcZg53WBU9K9E<V]1H5]2MhQEb:Z<m"
  125.     A$ = A$ + "g<>In<>INENgYoIS^VC=f[_FOiUVBOiIVJOiClE2ObILfG5m?KV3YSdj7B9\"
  126.     A$ = A$ + "g^LDP6AW;S_bNIY8NTJKcJNT]P8>aa#m_an1anE?Go]d>Okne2WRHVnT`O^c"
  127.     A$ = A$ + "6hKRol:JW\1QSmXJIkB#3K=I=kV#]o\nDBh?ggHD\G\HiS6lSYA[<#9=fV#^"
  128.     A$ = A$ + "d9L`RTL=9FTTnSmOaNeC;?cBCF`YLR4Qc=>VPJDH<bilIi7OQJG=?7m8;gTV"
  129.     A$ = A$ + "5bRc\9Ai>0Yn4D]7TeERFK8^4:Bm9Xf?DIS1;_`e]Em<Ba065:EffEdIWAKe"
  130.     A$ = A$ + "O^4kXVE_EB;S8n[A577W09SI[kOSN[=Z6eA1M1B]l6M=SlFMDYD5U_N0NBMU"
  131.     A$ = A$ + "Bk]N0l2M;QX7<XG<KYfP^^M9[oNJGmF\aSJ3kSeoL:OAnaDP`RigC^[?QPh;"
  132.     A$ = A$ + "bQPiXk=:Y?`j2C4;NC4o>^Rb^J:cI=8eK?:d?PDFF:bFfN]Z5Jl:oWbeg;PZ"
  133.     A$ = A$ + "L6SG1RgB^ZD5IG\82RiHUG<``i1aag>Z4mb`\f197IGC\Uk_ZHan:;<A_WUL"
  134.     A$ = A$ + "f0\cSX9^Q:LB[jJD9[M65YGndELP89V8MmhYO5W3bJBI;[U5o]:;BlflDg]N"
  135.     A$ = A$ + "]IUml#[L]hdBnShH#FdBP`751^89f0cXHl]K`_2ai;[Ff5ejH7ib8P;CU7?P"
  136.     A$ = A$ + "SOn1\[iFVBaFL9cCQjRFAa6X6ZSlfK9_MGOI3Y0BKn0:VMS\f3lRBhT1JWU1"
  137.     A$ = A$ + "ZG\a9b09XR<Z4C9EaP#=7\bT3TEN<^NU4UYQ9\>[5;i4:M[NW_0[_P<SWbJg"
  138.     A$ = A$ + "]1N=e>N_egLBF\TPd5W_aE3obbMBCV\\U#QH^SEWhL3]<DfhEl]LlX8J;U?N"
  139.     A$ = A$ + "5hh8I:KLUUWTLEDGi[PSo`kVcCjj08NFMI8`[LHT\D0Lm5dUTT3<F]gVbIST"
  140.     A$ = A$ + "PCC9bd=^^[dND:CJ]f[N[89]MU4lVR:C:R:7::ER\3cD;FJ8NLf?kGQg3:]j"
  141.     A$ = A$ + "_:DNef=M\RC^Ea[<9K8fJdDUeRL[fWTDH2359Y?c?N\\ikT;]DKW<^Z[Z4U\"
  142.     A$ = A$ + "QFoW4AWcUf^f`8\>Fk^gJb[mKA=F4[]<oZ0[aU`NldjXKmEIAj:Ld8JMjR[n"
  143.     A$ = A$ + "G9N_4`^Z<abGdNhk0AlbHAeOG67>XAIa]UJmiA;HhVOb[bG#IA7hZjGDLL23"
  144.     A$ = A$ + "bdNdn1Ao[c2NkNhSUQ\kF`4i>8b>YcI\[Q0Q\bb0akm#IEK8`OTMCeabOmUL"
  145.     A$ = A$ + "`<A=\88FPRR`:Ic#RfDQl6;D#eb[=[GE2Uh#dXBY<=E97aD3eK]ZfJ5L>b^M"
  146.     A$ = A$ + "d`=`B_CI5:J`I:S\<V\J5ZT#i5]##F?Mjgba`G6HB7S9<4I;g^1?6;o]J<:J"
  147.     A$ = A$ + "cHJRSCXHJNZ6YbFoUhm?jT>J1JTDU?:B0RCf8h9OXFCVjIRcMEYL8cObZQT]"
  148.     A$ = A$ + "DBC1[9In#iWPG<iXFoIRNE<ShGAc\B8HF_:AARi;ISiPaDZnlG\=NgL9Re=f"
  149.     A$ = A$ + "VRHQ;bFcBIg\hfdZ2`mX;DMSb=EE>:M2idb[RT:XVXFBNk]_O;73e[8;Y>aa"
  150.     A$ = A$ + "`Vd\g#X62;3n5Vbi`4TAW`HX2Y9W8^P7PHoOX<:=FcWcDH2SVjm;WQUAm65["
  151.     A$ = A$ + "I<oQP;\QGN#T1H96d<D<Xa1kfP[VEan8`NYk4bS<?]fE^LY#HD313_JMi5_A"
  152.     A$ = A$ + "TK[iX4FZ\GnjmflZZQl7F6<lXR>hHC#CPdPN4]0_m3YVK0_SAE8BD;19JA]V"
  153.     A$ = A$ + "BK:E7Hl];D=7cQ[2E;_<_#EZ[3S^;J4o#\>P]ZEN15bUbZ<o6;LREaZL9o9A"
  154.     A$ = A$ + "XGZ[E\0oK=<CHA^LHj1bF:gfX2cVV:HVDjNb4\C2I6fabd_inSEYi988CPDF"
  155.     A$ = A$ + "[<1`J^0JM12dM:1B7;P`Lij>ZH\nhM3X61]gl[JIel]E[bg3I3NE^BMM55Go"
  156.     A$ = A$ + ":EVk87bF8[Y6VNdOc4PYO=a\J4>Pj3c6]gS3Z?Y4LPThZ[d3^R]M0WLhiHag"
  157.     A$ = A$ + "DNbiejh3>?NF8BWkLgU4E]XY\nd1Bm_B\WKV#=`hk;SBLU0RRgQ<lE9;8Vj8"
  158.     A$ = A$ + "5L[KSToJ6AGd_D9YMefgV3AX=GDDUci2b]_k\cINO1Cf4`hDiEVOh8<BZHmo"
  159.     A$ = A$ + "1I^hKjnA[T6>MVlU]Odd\1RlGl5e7[gjV5_o:U#bciE4UbZf77=]]FSnEl;f"
  160.     A$ = A$ + "4CD\MDkn?eFQ:Y4RFlWi0lFCUe6DcDl6Lf5ACLQ=em8YU^ISl?AfATg8MciU"
  161.     A$ = A$ + "FFWaTk>?c#f[i<Gd=IKMne<foN[YDRJ`J_?7R[iRj\LDOlTZ0Mllo`R_bEIW"
  162.     A$ = A$ + "nB>Ki\Y<RI^9cNf?`#jB`kO_CHIKlNA;D[EHSfm7ZM7]Uc]OA2e]d6KFUn8Y"
  163.     A$ = A$ + "oIaE_jmQfX#kCid2Q#ilaaFPJXd2F;iK<i[eAnhki3RW5C5\[dQoHT>I=EiA"
  164.     A$ = A$ + ";S[4Jai2;[7OPFWV1In#>Y^hLdNfL7ejl#5h]AnZ#G#A^K;4k^NTa<nFgRf4"
  165.     A$ = A$ + "KofNoll>lnH#[5DReDJEj2BYkRF^>JfEeQ9HafGYeY[9MM\8Nkl95liKR_k0"
  166.     A$ = A$ + "TMU\^5a\ZLHd#Ad=<fQSRT<?E>^UGlfOOgofiN:h]km7`kTk5QgYkkogm^?H"
  167.     A$ = A$ + "nMbmfQFoaAm[ohXNe_Wm;E_^BndVT#:3E9J?N>T\Fc3Q0<H#:RIIMI8I>I_O"
  168.     A$ = A$ + "[e>8NGT:Jgl^jaNW4Zih[i1Zk?eO[^_<4o0ejEK1dOWFfMak=E>2oJPF_N?;"
  169.     A$ = A$ + "T8:gb[mR;Bg8_c\<HohlXiIRHb>MS\cA=lN;WTJ5kM^=Rb4lOe#nb:JYGn91"
  170.     A$ = A$ + "8D\5OeNXRf;K7\bKFQ9c_X_KgTk<e:]`e1IJgkVXFhl_l^fJAUHM2:akfJJ3"
  171.     A$ = A$ + "F;ke2A6T^?3Um:UA;M0aBhJWC#13=hgl?GiL\aF`kUUJSGGD=f8Y>2S=LZ=#"
  172.     A$ = A$ + "g5Jjnm?8KlnmWNF\8kgOJCZbgGSPQF9oASB]oOm1[J]>L1kCUTn0OoQV5]7R"
  173.     A$ = A$ + "h::>=8_6Xmaj;^el#ZHoAf=olGQdW6R_W9YnccE:LPaZ;enYk9`\Z\;]WbM]"
  174.     A$ = A$ + "Y4e6RlUJoH`Q\Y>;NXkI76>i58=L43ZSL82M]hS]MiEXaE[UVCXNPefY>_ZF"
  175.     A$ = A$ + "X5ac\Q4=57mbK<;9H?Mg3c3J2H9l0;^IK[\mRKAaAk`cn_6R]94HaP2<7QJS"
  176.     A$ = A$ + "N?^8]SbTi0<_Qg]BY?n:TUT5=TY<9UfP`Z6;?RliXl9JQ`aAVBSWae8MNGSB"
  177.     A$ = A$ + "OH?<XY;ZD]VQ8VZ>mUaVQKURT81f:SK?_Y3aV`E8PU6LdO1GB;E0SgK84J`d"
  178.     A$ = A$ + "f`ghYTWL#dlB`3A^9_\NIQFY76;Z#JW57TF^L1V3akjK]eA4L?\WlF=:_8SC"
  179.     A$ = A$ + "VKHA^S3>Gh_AN]]X6D;ALi5:#U#aP=4JQC>^FK[[V38TJ?G70\CN#gG^^6E^"
  180.     A$ = A$ + "^D\\]8D`9oXkI5jNaaQ;i4gb8\Y5h;De4\hR]]FL11K1i>lQJ?=0T`Q2LN_a"
  181.     A$ = A$ + "6[oD[?M9O<UIH;bcJB:_WUm]cglFI?9aHOe>Djdfn:U8i<\LB1VTBi0SBnbJ"
  182.     A$ = A$ + "3PhVJl#fZ6_aCAgFd#2MgJMj^UldOmdQIRV:K`j62>Vg8kCddL50#R#TCWW>"
  183.     A$ = A$ + "0jm`]SfEO\45e?Johakd:i^;FU[8:H5]SXXNoWckgUJS]J8j]\N^XjB2^JNO"
  184.     A$ = A$ + "Z^VfJk>URX5Q>3=\LNP3f9`[22ETlQ:JXSE7?64V9jLQ^m9QcFE]NF[XNZF\"
  185.     A$ = A$ + "8dCHaVA]kEL]?>9JWD7]aTEE0WLGP[m1XDJmF[FDG4n<=GRhHBR4CHbF`Qhb"
  186.     A$ = A$ + "#2kT=4KKXX_\XDd7W09K^#g3#Z=YbPQKO0iX]AjCE0ZcfH>R9cD=#lTCC;k\"
  187.     A$ = A$ + "DO:Ml\aAaSWBnTm9<gXkJ7a7:mL1Phk:Q;F>8P_gVba?o96U[mPakI:Pf?ii"
  188.     A$ = A$ + "4PCOHXhOSbM`nKdifnQLKlgLoJF8dmKEWh9V1]b47?LB#AHE`Y1W1Lf`i1W?"
  189.     A$ = A$ + "LA`U0O0hZP[5f<\Eh6PNQM0g<lQPk#^oSJDo#aV]HSL\4NmZ`?E:EJ=CedWR"
  190.     A$ = A$ + "bM8JejgAgknfn`mgoSnm5ljS]O1Nm?iFjES_[l0cN;KPl?nACP;QHj57QNHX"
  191.     A$ = A$ + "Dk9M1KShUoCkAkj=9`QSkW\]n:oGI_e[eSGn>S^oQQ?:l9POOhnPo#hc1o9`"
  192.     A$ = A$ + "31?2lX`O>lG0O=h[3OCh_1n^`O;lg1om`?161N=hO4nO2o_PoEho;l_1_1<^"
  193.     A$ = A$ + "\C1W<JZUGIn]Q_RlVFYfhM<]geFNISJZFffH:[?]ZS1E9_Zc[Ka#mjPbPK1M"
  194.     A$ = A$ + "LcHg0CNbEdgKd[]YginXO?Un>G7iT_R[6jD9UDf[4K=Y9ie4gBUC\7bjBk9o"
  195.     A$ = A$ + "i;=YBJkm=AhLg>8Ie2hB_b[c]]DHNXQ01FjU;BQVhQ;cO5N2\dkLBkm;1fGY"
  196.     A$ = A$ + "KB[aaQXHTM]ijTY?1XEX4L:`Y3W9L^`k5^0hm3G6L5`e0M0M2M1K7^AHW`]2"
  197.     A$ = A$ + "g6m#\RbYd^cclnTAc\TbIV[RVl;[ba_adX`OYAmH3hAZZ<E[O2`V_HSL\4N]"
  198.     A$ = A$ + "A_Vo=lcbmJC<Q9b]94]g_3_9l]hK_h9me_nP9^L24c9b<A>N<kgm]JM#JGll"
  199.     A$ = A$ + "_:=?mHo5`To\\hOo?c4\[9mKgWi9okiI^`kdWA:_KmLji]kc9XOGmlmioOhi"
  200.     A$ = A$ + "GeoAmLkig1?3SLk1Wg=OF;m^ec2[gEOfLmObNNSmfiIofk6?cY0HV`S3fWEa"
  201.     A$ = A$ + "E2eYWK`cGRNN5XFj:ec3`_MGjidcFc_TNNUHF?OCmlZ`[nadC3fDdc[hYcmR"
  202.     A$ = A$ + ">gPW?Kml:`aMIji1`J`gbiY`fl7YWG9fj7E?_:lkoNH\QK4a4:BAh\gh:;B7"
  203.     A$ = A$ + "V`gLaX7g]RNKk6mmf?NIWKMWMg1Nbj`H8k16P?f?fR>aL1>ElC<4T[K3mTCn"
  204.     A$ = A$ + "cK5oKK`:`?]RM^gN6HMmfoFk<kYVU77lHKU>QFKm4JK5]ejTQ6G>>0dSWc^h"
  205.     A$ = A$ + "Q=;n6^l>kO7MeK?Ic>I]70kC4jaG=h^38lOIbQOZ`4HBIZdDUYJcd<eHV^YF"
  206.     A$ = A$ + "CMVIHVYYNc\<Y=cfdPI>V<ViJJd<?cl=;`\#cR<;f\4CCV\84VZW8ZoGRW7Z"
  207.     A$ = A$ + "VUJbSak?8lAP?3LG`O<lUQ_8V?`mIF6V;`MSAnoP`nPO1<:l5hWLZ3im\CmS"
  208.     A$ = A$ + "1G?b:XWNZm0ONTULS#O<kIWX4QldCMGHlIdC?eW6cahfQmPAZm<`3K:HJf\L"
  209.     A$ = A$ + "caH>FcaI>NC;`WcL2VCdLB`7e\2C[Vf<5=[dDbLbVEIF]iD<W:Z?lY<WVI=`"
  210.     A$ = A$ + "SH>Mh?0ndVgSi<<[eLVVcbLfVcaL^VeI>?cj=_GckcLnV=H^0c5J^8c6=_Oc"
  211.     A$ = A$ + "5K^4cUJ^<cUKn0Vf=GQi:=GUiZ=GSi3J^FceIj`\9cV=QV>=Ka\Ecf<MI^Nc"
  212.     A$ = A$ + "=Hjf\MC?VN=mI^ACoVMH6`\Cc=I^Ic]H^Ec^<O8c^=gVif=gQI?VO?cMJn`V"
  213.     A$ = A$ + "1=OTZgI?M]2lUNlLdS]Z7KC?FD?^BmH9mh9[7GUNLejaCA?NVjacB?NfjacE"
  214.     A$ = A$ + "?^>iH[jhgZ>^]ZSK[jhfZ>^]ZSK[jhfZ>^]ZSK[jhfZ>^]ZSK[jhfZ>oJE7o"
  215.     A$ = A$ + "FeaOEjacDaScZ]:?_>fnfkXb;MKM>#7EN9M]e]gA`6gFGl_Fl<?U:kXknfF7"
  216.     A$ = A$ + "E6fIg3dAeMfg>jZkNkYbM`]JP>fI#OK[[JjlFfLgM\m`=e=eWf`AXZnjL78`"
  217.     A$ = A$ + "ZYSnk_gK^k>gb0EcW]cnV>O\o^fjf6#na`N_iNTcfD_3\]JdV5fCM^cfd>jT"
  218.     A$ = A$ + "1KK]N:C_gn7HKm^eNkYS^[[[N60]XdiV70=ZDKWgh>kjVjXk>kIcMFifjMWk"
  219.     A$ = A$ + "XcIdOWgDgm^e^fL7MgC_3<MZaK]o>jNPnLW^Y1VfU\^F9aQE#WdZNb:LWDdN"
  220.     A$ = A$ + "BKfCFYmTEK?iD\WLbfCFUmTBj9[d2Wf\M_TM8:IQLA;LJcn=]IKCKFhDbRZ["
  221.     A$ = A$ + "dfhRFdX=g9fA_=;nDdMRmWFYM8Je=XF8gV5EGY[aF8_B;n\Bglb2iEJkN9g4"
  222.     A$ = A$ + "d1WE:ZKm]Y^kMcg#e8_T>FYLEgKA>fo0je3\S]eAHWEbo]j`KP?FcFjZk^k<"
  223.     A$ = A$ + "LCmN;CG>[OTSGm0mgE7KMWm97kG_>\7iHgKYZ=gEoK^k>[Y[N^Y=]C\C3#WY"
  224.     A$ = A$ + "Og>fNGXlH7K^CD0jVLG4\SMfCEKYc]SR#YXoDi>j37lDK^kM^Y:gFWMP3AHG"
  225.     A$ = A$ + "M\mNk9\f]_cMX2EM>C_cAIOa=ehScNbHoGSl3nVg6Mdooo4noEAM%%h1"
  226.     btemp$ = ""
  227.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
  228.         IF INSTR(1, B$, "%") THEN
  229.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
  230.                 IF F$ <> "%" THEN C$ = C$ + F$
  231.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
  232.             IF MID$(B$, j, 1) = "#" THEN
  233.         MID$(B$, j) = "@": END IF: NEXT
  234.         FOR t% = LEN(B$) TO 1 STEP -1
  235.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
  236.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
  237.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
  238.     NEXT: btemp$ = btemp$ + X$: NEXT
  239.     BASFILE$ = _INFLATE$(btemp$): btemp$ = ""
  240.  
  241.     '=== Generate a unique font name to use based on date + timer
  242.     newfont$ = "_newfont_" + DATE$ + "_" + LTRIM$(STR$(INT(TIMER))) + ".ttf"
  243.     IF INSTR(_OS$, "LINUX") THEN newfont$ = "/tmp/" + newfont$
  244.     '=== decode and save Font file
  245.     FNT = FREEFILE: OPEN newfont$ FOR OUTPUT AS #FNT
  246.     PRINT #FNT, BASFILE$;: CLOSE #FNT
  247.     '=== LOAD and the Delete font file
  248.     fnt& = _LOADFONT(newfont$, size, "monospace"): _FONT fnt&
  249.     KILL newfont$
  250.  
  251.  
  252.  

5
This is an update to a simple file section box FUNCTION I made a while back.  The old one wouldn't work in Linux at all - this one does.  Not trying to replace the great direntry.h method, but just throwing in a single FUNCTION alternative easy to stick in a program.   Tested this in Windows and Linux Mint (new fan) and it seems to work correctly and the same in both (can't test it in Mac).

(Special thanks to the Linux guys in this thread).

- Dav

EDIT: 11/23/2021 - Fixed file list bug under Linux to show all files when *.* used.
Code: QB64: [Select]
  1. '==============
  2. 'FILESELECT.BAS  v1.1
  3. '==============
  4. 'Simple file selector box for graphical screen modes.
  5. 'Coded by Dav, NOV/2021 (with the kind help of the QB64.org forum gurus!)
  6.  
  7. '* NOW WORKS UNDER LINUX!
  8.  
  9. 'Navigate through directories and select a file.
  10. 'Use ARROWS, PAGE Up/Down, HOME, END to scroll list.
  11. 'Press ENTER to select highlighted file or enter highlighted dir.
  12. 'ESC will cancel and close box
  13.  
  14. 'things to do: auto center box on screen, and ditch x/y input?
  15. '              ...will need to adjust box size based on file/dir chr length
  16. '              Add user defined colors instead...?
  17.  
  18.  
  19. SCREEN _NEWIMAGE(700, 500, 32)
  20.  
  21. '=== draw a background
  22. CLS , _RGB(32, 32, 32)
  23. FOR x = 1 TO _WIDTH STEP 3
  24.     FOR y = 1 TO _HEIGHT STEP 3
  25.         PSET (x, y), _RGB(RND * 255, RND * 255, RND * 255)
  26.     NEXT
  27.  
  28. '=== Ask user to select a file
  29. a$ = FileSelect$(5, 15, 20, 55, "*.*")
  30.  
  31. IF a$ <> "" THEN
  32.     PRINT "You selected: "; a$
  33.  
  34.  
  35.  
  36. FUNCTION FileSelect$ (y, x, y2, x2, Filespec$)
  37.  
  38.     '=== save original place of cursor
  39.     origy = CSRLIN
  40.     origx = POS(1)
  41.  
  42.     '=== save colors
  43.     fg& = _DEFAULTCOLOR
  44.     bg& = _BACKGROUNDCOLOR
  45.  
  46.     '=== Save whole screen
  47.     DIM scr1 AS _MEM, scr2 AS _MEM
  48.     scr1 = _MEMIMAGE(0): scr2 = _MEMNEW(scr1.SIZE)
  49.     _MEMCOPY scr1, scr1.OFFSET, scr1.SIZE TO scr2, scr2.OFFSET
  50.  
  51.     '=== Generate a unique temp filename to use based on date + timer
  52.     tmp$ = "_qb64_" + DATE$ + "_" + LTRIM$(STR$(INT(TIMER))) + ".tmp"
  53.     IF INSTR(_OS$, "LINUX") THEN tmp$ = "/tmp/" + tmp$
  54.  
  55.     loadagain:
  56.  
  57.     top = 0
  58.     selection = 0
  59.  
  60.     '=== list directories
  61.     IF INSTR(_OS$, "LINUX") THEN
  62.         SHELL _HIDE "find . -maxdepth 1 -type d > " + tmp$
  63.     ELSE
  64.         SHELL _HIDE "dir /b /A:D > " + tmp$
  65.     END IF
  66.  
  67.     '=== make room for names
  68.     REDIM FileNames$(10000) 'space for 10000 filenames
  69.  
  70.     '=== only show the ".." when not at root dir
  71.     IF LEN(_CWD$) <> 3 THEN
  72.         FileNames$(0) = ".."
  73.         LineCount = 1
  74.     ELSE
  75.         LineCount = 0
  76.     END IF
  77.  
  78.     '=== Open temp file
  79.     FF = FREEFILE
  80.     OPEN tmp$ FOR INPUT AS #FF
  81.  
  82.     WHILE ((LineCount < UBOUND(FileNames$)) AND (NOT EOF(FF)))
  83.         LINE INPUT #FF, rl$
  84.  
  85.         '=== load, ignoring the . entry added under Linux
  86.         IF rl$ <> "." THEN
  87.  
  88.             'also remove the ./ added at the beginning when under linux
  89.             IF INSTR(_OS$, "LINUX") THEN
  90.                 IF LEFT$(rl$, 2) = "./" THEN
  91.                     rl$ = RIGHT$(rl$, LEN(rl$) - 2)
  92.                 END IF
  93.             END IF
  94.  
  95.             FileNames$(LineCount) = "[" + rl$ + "]"
  96.             LineCount = LineCount + 1
  97.  
  98.         END IF
  99.     WEND
  100.  
  101.     CLOSE #FF
  102.  
  103.     '=== now grab list of files...
  104.     IF INSTR(_OS$, "LINUX") THEN
  105.         SHELL _HIDE "rm " + tmp$
  106.         IF Filespec$ = "*.*" THEN Filespec$ = ""
  107.         SHELL _HIDE "find -maxdepth 1 -type f -name '" + Filespec$ + "*' > " + tmp$
  108.     ELSE
  109.         SHELL _HIDE "del " + tmp$
  110.         SHELL _HIDE "dir /b /A:-D " + Filespec$ + " > " + tmp$
  111.     END IF
  112.  
  113.     '=== open temp file
  114.     FF = FREEFILE
  115.     OPEN tmp$ FOR INPUT AS #FF
  116.  
  117.     WHILE ((LineCount < UBOUND(FileNames$)) AND (NOT EOF(FF)))
  118.  
  119.         LINE INPUT #FF, rl$
  120.  
  121.         '=== load, ignoring the generated temp file...
  122.         IF rl$ <> tmp$ THEN
  123.  
  124.             'also remove the ./ added at the beginning when under linux
  125.             IF INSTR(_OS$, "LINUX") THEN
  126.                 IF LEFT$(rl$, 2) = "./" THEN
  127.                     rl$ = RIGHT$(rl$, LEN(rl$) - 2)
  128.                 END IF
  129.             END IF
  130.  
  131.             FileNames$(LineCount) = rl$
  132.             LineCount = LineCount + 1
  133.         END IF
  134.  
  135.     WEND
  136.     CLOSE #FF
  137.  
  138.     '=== Remove the temp file created
  139.     IF INSTR(_OS$, "LINUX") THEN
  140.         SHELL _HIDE "rm " + tmp$
  141.     ELSE
  142.         SHELL _HIDE "del " + tmp$
  143.     END IF
  144.  
  145.  
  146.     '=== draw a box
  147.     COLOR _RGB(100, 100, 255)
  148.     FOR l = 0 TO y2 + 1
  149.         LOCATE y + l, x: PRINT STRING$(x2 + 4, CHR$(219));
  150.     NEXT
  151.  
  152.     '=== show current working dir at top
  153.     COLOR _RGB(255, 255, 255), _RGB(100, 100, 255)
  154.     CurDir$ = _CWD$
  155.     '=== Shorten it is too long, for display purposes
  156.     IF LEN(CurDir$) > x2 - x THEN
  157.         CurDir$ = MID$(CurDir$, 1, x2 - x - 3) + "..."
  158.     END IF
  159.     LOCATE y, x + 2: PRINT CurDir$;
  160.  
  161.     '=== scroll through list...
  162.     DO
  163.  
  164.         FOR l = 0 TO (y2 - 1)
  165.  
  166.             LOCATE (y + 1) + l, (x + 2)
  167.             IF l + top = selection THEN
  168.                 COLOR _RGB(0, 0, 64), _RGB(255, 255, 255) 'selected line
  169.             ELSE
  170.                 COLOR _RGB(255, 255, 255), _RGB(0, 0, 64) 'regular
  171.                 '=== directories get a different color...
  172.                 IF MID$(FileNames$(top + l), 1, 1) = "[" THEN
  173.                     COLOR _RGB(255, 255, 0), _RGB(0, 0, 64)
  174.                 END IF
  175.             END IF
  176.  
  177.             PRINT LEFT$(FileNames$(top + l) + STRING$(x2, " "), x2);
  178.  
  179.         NEXT
  180.  
  181.         '=== Get user input
  182.  
  183.         k$ = INKEY$
  184.         SELECT CASE k$
  185.  
  186.             CASE IS = CHR$(0) + CHR$(72) 'Up arrow
  187.                 IF selection > 0 THEN selection = selection - 1
  188.                 IF selection < top THEN top = selection
  189.  
  190.             CASE IS = CHR$(0) + CHR$(80) 'Down Arrow
  191.                 IF selection < (LineCount - 1) THEN selection = selection + 1
  192.                 IF selection > (top + (y2 - 2)) THEN top = selection - y2 + 1
  193.  
  194.             CASE IS = CHR$(0) + CHR$(73) 'Page up
  195.                 top = top - y2
  196.                 selection = selection - y2
  197.                 IF top < 0 THEN top = 0
  198.                 IF selection < 0 THEN selection = 0
  199.  
  200.             CASE IS = CHR$(0) + CHR$(81) 'Page Down
  201.                 top = top + y2
  202.                 selection = selection + y2
  203.                 IF top >= LineCount - y2 THEN top = LineCount - y2
  204.                 IF top < 0 THEN top = 0
  205.                 IF selection >= LineCount THEN selection = LineCount - 1
  206.  
  207.             CASE IS = CHR$(0) + CHR$(71) 'Home
  208.                 top = 0: selection = 0
  209.  
  210.             CASE IS = CHR$(0) + CHR$(79) 'End
  211.                 selection = LineCount - 1
  212.                 top = selection - y2 + 1
  213.                 IF top < 0 THEN top = 0
  214.  
  215.             CASE IS = CHR$(27) ' ESC cancels
  216.                 FileSelect$ = ""
  217.                 EXIT DO
  218.  
  219.             CASE IS = CHR$(13) 'Enter
  220.                 '=== if .. then go up one dir
  221.                 IF RTRIM$(FileNames$(selection)) = ".." THEN
  222.                     cd$ = _CWD$
  223.                     IF INSTR(_OS$, "LINUX") THEN
  224.                         cd$ = LEFT$(cd$, _INSTRREV(cd$, "/"))
  225.                     ELSE
  226.                         cd$ = LEFT$(cd$, _INSTRREV(cd$, "\"))
  227.                     END IF
  228.                     CHDIR cd$
  229.                     ERASE FileNames$
  230.                     GOTO loadagain
  231.                 END IF
  232.  
  233.                 'see if directory
  234.                 test$ = RTRIM$(FileNames$(selection))
  235.                 IF LEFT$(test$, 1) = "[" THEN
  236.                     test$ = MID$(test$, 2, LEN(test$) - 2)
  237.                     CHDIR test$
  238.                     ERASE FileNames$
  239.                     GOTO loadagain
  240.                 ELSE
  241.                     IF INSTR(_OS$, "LINUX") THEN
  242.                         IF RIGHT$(_CWD$, 1) = "/" THEN
  243.                             C$ = _CWD$
  244.                         ELSE
  245.                             C$ = _CWD$ + "/"
  246.                         END IF
  247.                     ELSE
  248.                         IF RIGHT$(_CWD$, 1) = "\" THEN
  249.                             C$ = _CWD$
  250.                         ELSE
  251.                             C$ = _CWD$ + "\"
  252.                         END IF
  253.                     END IF
  254.  
  255.                     FileSelect$ = C$ + RTRIM$(FileNames$(selection))
  256.                     EXIT DO
  257.  
  258.                 END IF
  259.  
  260.         END SELECT
  261.  
  262.     LOOP
  263.  
  264.     _KEYCLEAR
  265.  
  266.     '=== Restore the whole screen
  267.     _MEMCOPY scr2, scr2.OFFSET, scr2.SIZE TO scr1, scr1.OFFSET
  268.     _MEMFREE scr1: _MEMFREE scr2
  269.  
  270.     '=== restore original y,x and color
  271.     LOCATE origy, origx
  272.  
  273.     COLOR fg&, bg&
  274.  
  275.  
  276.  
  277.  

6
Just installed Linux Mint 20 cinnamon on a T430s laptop I picked up used for $89.  I wanted to use QB64 for Linux to help test my QB64 programs.  I'm trying to install QB64 but I get errors.  I assume I need to install a package first, but not sure what or how.  I'm a totall Linux idiot, but willing to learn.  Here's the output I get when running setuo_lnx.sh from the terminal.

- Dav

Quote
Compiling and installing QB64...
Building library 'LibQB'
./setup_build.sh: 2: g++: not found
Building library 'FreeType'
./setup_build.sh: 2: g++: not found
Building library 'Core:FreeGLUT'
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_callbacks.c:31:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_cursor.c:31:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_display.c:31:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_ext.c:32:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_font.c:31:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_font_data.c:56:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_gamemode.c:31:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_geometry.c:31:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut_glutfont_definitions.c:65:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_init.c:32:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_input_devices.c:38:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_joystick.c:37:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_main.c:32:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_menu.c:32:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_misc.c:31:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_overlay.c:31:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_spaceball.c:13:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_state.c:31:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_stroke_mono_roman.c:34:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_stroke_roman.c:34:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_structure.c:31:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_videoresize.c:31:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_window.c:46:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
In file included from ../../src/freeglut.h:17,
                 from ../../src/freeglut_xinput.c:7:
../../src/freeglut_std.h:122:10: fatal error: GL/gl.h: No such file or directory
  122 | #include <GL/gl.h>
      |          ^~~~~~~~~
compilation terminated.
ar: temp/freeglut_callbacks.o: No such file or directory
Building 'QB64'
./setup_lnx.sh: line 139: g++: command not found
~/qb64
It appears that the qb64 executable file was not created, this is usually an indication of a compile failure (You probably saw lots of error messages pop up on the screen)
Usually these are due to missing packages needed for compilation. If you're not running a distro supported by this compiler, please note you will need to install the packages listed above.
If you need help, please feel free to post on the QB64 Forums detailing what happened and what distro you are using.
Also, please tell them the exact contents of this next line:
DISTRO: linuxmint

Thank you for using the QB64 installer.

7
Programs / GridWars game - going to add AI to it.
« on: October 27, 2021, 10:46:56 pm »
@bplus's games has inspired me to try my hand at implementing AI to one of my puzzles.  I think this one is a good candidate. GridWars.  Currently it's a 2 player (2 humans) game, but I want to make it a human vs computer one.  Will have to re-write the code alot, add a valid move check.  Here is the BEFORE version. 

You click on a piece to move.  Move it one space to clone it, move two spaces to just jump.  Touching the other player will convert it to your color.  Object is to fill the grid with all your color.

(Sorry, @SMcNeill, this will be a tiny screen on your laptop...)

EDIT: I didnt come up with this puzzle, I use to play one like it years ago, pre Win95.

- Dav

Code: QB64: [Select]
  1.  
  2. '============
  3. 'GRIDWARS.BAS - v0.1
  4. '============
  5. 'Coded by Dav OCT/2021
  6. 'Work in progress - hoping to add AI play.
  7.  
  8.  
  9. SCREEN _NEWIMAGE(600, 650, 32)
  10. _TITLE "GridWar"
  11.  
  12. '=== define board info
  13. DIM SHARED rows, cols, size
  14. rows = 9: cols = 9: size = _WIDTH / cols
  15. DIM SHARED box.v(rows * cols) 'value of box
  16. DIM SHARED box.x(rows * cols), box.y(rows * cols) 'x/y's
  17. DIM SHARED player
  18.  
  19. '=======
  20. restart:
  21. '=======
  22.  
  23. PLAY "MBL32O3CEGEC"
  24.  
  25.  
  26. bc = 1 'counter
  27. FOR c = 1 TO cols
  28.     FOR r = 1 TO rows
  29.         x = (r * size)
  30.         y = 50 + (c * size)
  31.         box.x(bc) = x - size
  32.         box.y(bc) = y - size
  33.         box.v(bc) = 0 'zero means nothing, empty square
  34.         bc = bc + 1
  35.     NEXT
  36.  
  37. 'set user's piece
  38. box.v(1) = 1: box.v(9) = 2
  39. box.v(73) = 2: box.v(81) = 1
  40.  
  41. player = 1 'user goes first
  42.  
  43. '====
  44. main:
  45. '====
  46.  
  47. selected = 0
  48.  
  49. UpdateBoard
  50.  
  51. second: 'Go back here when making second choice
  52.  
  53.  
  54.     'wait until mouse button up to continue
  55.     WHILE _MOUSEBUTTON(1) <> 0: n = _MOUSEINPUT: WEND
  56.  
  57.     trap = _MOUSEINPUT 'Poll mouse data
  58.  
  59.     'highlight box when a box is selected
  60.     IF selected = 1 THEN
  61.         LINE (box.x(t) + 2, box.y(t) + 2)-(box.x(t) + size - 2, box.y(t) + size - 2), _RGB(RND * 255, RND * 255, RND * 255), B
  62.         LINE (box.x(t) + 3, box.y(t) + 3)-(box.x(t) + size - 3, box.y(t) + size - 3), _RGB(RND * 255, RND * 255, RND * 255), B
  63.         LINE (box.x(t) + 4, box.y(t) + 4)-(box.x(t) + size - 4, box.y(t) + size - 4), _RGB(RND * 255, RND * 255, RND * 255), B
  64.         _DISPLAY
  65.     END IF
  66.  
  67.  
  68.     'If user clicked mouse
  69.  
  70.         'see where they clicked
  71.         mx = _MOUSEX: my = _MOUSEY
  72.  
  73.         'cycle through all Check blocks...
  74.         FOR t = 1 TO (rows * cols)
  75.  
  76.             'Block loction...
  77.             tx = box.x(t): tx2 = box.x(t) + size
  78.             ty = box.y(t): ty2 = box.y(t) + size
  79.  
  80.             'if clicked on a box clicked
  81.             IF mx >= tx AND mx <= tx2 THEN
  82.                 IF my >= ty AND my <= ty2 THEN
  83.  
  84.                     'if this is a first choice...
  85.                     IF selected = 0 THEN
  86.  
  87.                         'only select players color
  88.                         IF box.v(t) = player THEN
  89.                             selected = 1
  90.                             SOUND 3000, .1 'made a select
  91.                             oldt = t
  92.                             oldtv = box.v(t) 'save picked box number color
  93.                             GOTO second 'now get second choice
  94.                         END IF
  95.  
  96.                     END IF
  97.  
  98.                     IF selected = 1 THEN 'making second choice
  99.  
  100.                         'if selected an empty box
  101.                         IF box.v(t) = 0 THEN
  102.  
  103.                             'if making one space move
  104.                             IF HowManyPlaces(oldt, t) = 1 THEN
  105.  
  106.                                 'clone to 2nd box data
  107.                                 SOUND 2000, .1
  108.                                 box.v(t) = oldtv
  109.                                 UpdateBoard
  110.  
  111.                                 convertneighbors player, t
  112.  
  113.                             END IF
  114.  
  115.                             'if jumping...
  116.                             IF HowManyPlaces(oldt, t) = 2 THEN
  117.  
  118.                                 'jump...erase 1st box data
  119.                                 SOUND 2000, .1
  120.                                 box.v(t) = oldtv
  121.                                 box.v(oldt) = 0
  122.                                 UpdateBoard
  123.  
  124.                                 convertneighbors player, t
  125.  
  126.                             END IF
  127.  
  128.  
  129.                             UpdateBoard
  130.  
  131.                             'must have clicked a out of bounds place, redo turn...
  132.                             IF HowManyPlaces(oldt, t) = 0 THEN
  133.                                 SOUND 500, .1
  134.                                 GOTO main
  135.                             END IF
  136.  
  137.                             '===============================
  138.                             'check pieces here.....
  139.  
  140.                             'See how many empty places left
  141.                             howmany = 0: reds = 0: blues = 0
  142.                             FOR h = 1 TO rows * cols
  143.                                 'empty ones
  144.                                 IF box.v(h) = 0 THEN howmany = howmany + 1
  145.                                 IF box.v(h) = 1 THEN reds = reds + 1
  146.                                 IF box.v(h) = 2 THEN blues = blues + 1
  147.                             NEXT
  148.  
  149.                             'If no places left, game over
  150.                             IF howmany = 0 THEN
  151.                                 LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
  152.                                 LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
  153.                                 PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "GAME OVER"
  154.                                 PLAY "mbl16o2bagfedc"
  155.                                 _DISPLAY: SLEEP 5
  156.                                 GOTO restart
  157.                             END IF
  158.  
  159.                             'If no reds left, blue wins
  160.                             IF reds = 0 THEN
  161.                                 LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
  162.                                 LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
  163.                                 PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "BLUE WINS"
  164.                                 PLAY "mbl16o2bagfedc"
  165.                                 _DISPLAY: SLEEP 5
  166.                                 GOTO restart
  167.                             END IF
  168.  
  169.                             'If no blues left, red wins
  170.                             IF blues = 0 THEN
  171.                                 LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
  172.                                 LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
  173.                                 PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "RED WINS!"
  174.                                 PLAY "mbl16o2bagfedc"
  175.                                 _DISPLAY: SLEEP 5
  176.                                 GOTO restart
  177.                             END IF
  178.  
  179.  
  180.                             'players move done - switch turn, players
  181.                             IF player = 1 THEN
  182.  
  183.                                 'computers turn here....
  184.                                 'CHANGE TO AI MOVE HERE  '<<<<<<<<<<<<<<
  185.  
  186.                                 player = 2
  187.                             ELSE
  188.                                 player = 1
  189.                             END IF
  190.  
  191.                             'NEED TO CHECK IF PLAYER HAS VALID MOVE LEFT <<<<<<
  192.  
  193.                             GOTO main
  194.  
  195.                         ELSE
  196.  
  197.                             'if user clicked on another one of its color instead...
  198.                             IF box.v(t) = player THEN
  199.                                 'clear previous highlighted selection
  200.                                 selected = 0
  201.                                 UpdateBoard
  202.                                 selected = 1
  203.                                 oldt = t
  204.                                 oldtv = box.v(t) 'save picked box number color
  205.                                 SOUND 3000, .1
  206.                                 GOTO second
  207.                             END IF
  208.  
  209.                             'clicked on enemy instead, redo
  210.                             selected = 0
  211.                             UpdateBoard
  212.                             SOUND 500, .1
  213.                             GOTO main
  214.  
  215.                         END IF
  216.  
  217.                     END IF
  218.  
  219.                 END IF
  220.             END IF
  221.  
  222.         NEXT
  223.  
  224.     END IF
  225.  
  226.     _DISPLAY
  227.  
  228.     IF INKEY$ <> "" THEN GOTO restart
  229.  
  230.  
  231. FUNCTION HowManyPlaces (old, new)
  232.     'computes how many places a user moved
  233.     '0 = out of bounds
  234.     '1 = one place
  235.     '2 = a jump
  236.  
  237.     p = 0 'default is out of bounds
  238.  
  239.     SELECT CASE old
  240.  
  241.         'row 1
  242.         CASE 1: IF new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
  243.             IF new = 3 OR new = 12 OR new = 19 OR new = 20 OR new = 21 THEN p = 2
  244.         CASE 2: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
  245.             IF new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
  246.         CASE 3 TO 7: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
  247.             IF new = old - 2 OR new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
  248.         CASE 8: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
  249.             IF new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
  250.         CASE 9: IF new = old - 1 OR new = old + 8 OR new = old + 9 THEN p = 1
  251.             IF new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
  252.  
  253.             'row 2
  254.         CASE 10: IF new = old - 9 OR new = old - 8 OR new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
  255.             IF new = old - 7 OR new = old + 2 OR new = old + 11 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
  256.         CASE 11: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
  257.             IF new = old - 7 OR new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
  258.         CASE 12: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
  259.             IF new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
  260.         CASE 13 TO 16: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
  261.             IF new = old - 2 OR new = old + 2 OR new = old - 11 OR new = old - 7 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
  262.         CASE 17: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
  263.             IF new = old - 11 OR new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
  264.         CASE 18: IF new = old - 1 OR new = old - 10 OR new = old - 9 OR new = old + 8 OR new = old + 9 THEN p = 1
  265.             IF new = old - 2 OR new = old - 11 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
  266.  
  267.             'row 3
  268.         CASE 19, 28, 37, 46, 55: IF new = old - 9 OR new = old - 8 OR new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
  269.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old + 2 OR new = old + 11 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
  270.         CASE 20, 29, 38, 47, 56: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
  271.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
  272.             'middle board, all ways,  (thru row 7)
  273.         CASE 21 TO 25, 30 TO 34, 39 TO 43, 48 TO 52, 57 TO 61: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
  274.             IF new = old - 2 OR new = old + 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
  275.         CASE 26, 35, 44, 53, 62: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
  276.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
  277.         CASE 27, 36, 45, 54, 63: IF new = old - 1 OR new = old - 9 OR new = old - 10 OR new = old + 8 OR new = old + 9 THEN p = 1
  278.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
  279.  
  280.             'row 8
  281.         CASE 64: IF new = old + 1 OR new = old - 8 OR new = old - 9 OR new = old + 9 OR new = old + 10 THEN p = 1
  282.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old + 2 OR new = old + 11 THEN p = 2
  283.         CASE 65: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
  284.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old + 2 OR new = old + 11 THEN p = 2
  285.         CASE 66 TO 70: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
  286.             IF new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
  287.         CASE 71: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
  288.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 THEN p = 2
  289.         CASE 72: IF new = old - 1 OR new = old - 9 OR new = old - 10 OR new = old + 8 OR new = old + 9 THEN p = 1
  290.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 THEN p = 2
  291.  
  292.             'bottom 9
  293.         CASE 73: IF new = old + 1 OR new = old - 8 OR new = old - 9 THEN p = 1
  294.             IF new = old + 2 OR new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 THEN p = 2
  295.         CASE 74: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
  296.             IF new = old + 2 OR new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 THEN p = 2
  297.         CASE 75 TO 79: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
  298.             IF new = old + 2 OR new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
  299.         CASE 80: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
  300.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
  301.         CASE 81: IF new = old - 1 OR new = old - 9 OR new = old - 10 THEN p = 1
  302.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
  303.     END SELECT
  304.  
  305.     HowManyPlaces = p
  306.  
  307.  
  308. SUB UpdateBoard
  309.  
  310.     CLS , _RGB(32, 32, 32)
  311.     PPRINT 205, 10, 20, _RGB(255, 255, 255), 0, "-=GridWar=-"
  312.  
  313.     red = 0: blue = 0
  314.  
  315.     '=== draw board based on box values
  316.     bc = 1 'counter
  317.     FOR cl = 1 TO cols
  318.         FOR ro = 1 TO rows
  319.  
  320.             '=== count colors
  321.             IF box.v(bc) = 1 THEN red = red + 1
  322.             IF box.v(bc) = 2 THEN blue = blue + 1
  323.  
  324.             '=== if empty box
  325.             IF box.v(bc) = 0 THEN
  326.                 LINE (box.x(bc) + 2, box.y(bc) + 2)-(box.x(bc) + size - 2, box.y(bc) + size - 2), _RGB(64, 64, 64), BF
  327.             ELSE
  328.                 LINE (box.x(bc) + 2, box.y(bc) + 2)-(box.x(bc) + size - 2, box.y(bc) + size - 2), _RGB(64, 64, 64), BF
  329.                 '=== draw color ball
  330.                 x2 = box.x(bc) + (size / 2) 'find middle of box
  331.                 y2 = box.y(bc) + (size / 2)
  332.                 sz = size / 2
  333.                 SELECT CASE box.v(bc)
  334.                     CASE IS = 1: r = 255: g = 64: b = 64 'red
  335.                     CASE IS = 2: r = 64: g = 64: b = 255 'blue
  336.                 END SELECT
  337.                 CIRCLE (x2, y2), sz - 4, _RGB(r, g, b)
  338.                 PAINT (x2, y2), _RGB(r, g, b)
  339.             END IF
  340.             bc = bc + 1
  341.         NEXT
  342.     NEXT
  343.  
  344.     PPRINT 30, 15, 14, _RGB(255, 128, 128), 0, "Red =" + STR$(red)
  345.     PPRINT 465, 15, 14, _RGB(128, 128, 255), 0, "Blue =" + STR$(blue)
  346.  
  347.     IF player = 1 THEN
  348.         LINE (10, 10)-(150, 40), _RGBA(255, 100, 100, 50), BF
  349.     END IF
  350.  
  351.     IF player = 2 THEN
  352.         LINE (440, 10)-(590, 40), _RGBA(100, 100, 255, 50), BF
  353.     END IF
  354.  
  355.     _DISPLAY
  356.     _ICON _DISPLAY 'update app icon on taskbar
  357.  
  358. SUB convertneighbors (player, num)
  359.     'convert neighbors surrounding num to players value.
  360.     '(when a piece lands on num, it changes neighbors)
  361.     SELECT CASE num
  362.         'row 1
  363.         CASE 1: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
  364.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
  365.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: change num + 10
  366.         CASE 2 TO 8: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
  367.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
  368.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player:: change num + 8
  369.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
  370.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: change num + 10
  371.         CASE 9: IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
  372.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player: change num + 8
  373.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
  374.             'down left side
  375.         CASE 10, 19, 28, 37, 46, 55, 64
  376.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
  377.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: change num - 8
  378.             IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
  379.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
  380.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: change num + 10
  381.             'down right side
  382.         CASE 18, 27, 36, 45, 54, 63, 72: IF box.v(num - 9) <> 0 THEN box.v(num - 9) = player: change num - 9
  383.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: change num - 10
  384.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
  385.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player: change num + 8
  386.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
  387.             'middle of board
  388.         CASE 11 TO 17, 20 TO 26, 29 TO 35, 38 TO 44, 47 TO 53, 56 TO 62, 65 TO 71
  389.             IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
  390.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
  391.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player: change num + 8
  392.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
  393.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: change num + 10
  394.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: change num - 8
  395.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
  396.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: change num - 10
  397.             'bottom row
  398.         CASE 73: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
  399.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
  400.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: change num - 8
  401.         CASE 74 TO 80: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
  402.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
  403.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: change num - 8
  404.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
  405.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: change num - 10
  406.         CASE 81: IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
  407.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
  408.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: change num - 10
  409.     END SELECT
  410.  
  411. SUB change (num)
  412.  
  413.     '=== find center x/y of place
  414.     x2 = box.x(num) + (size / 2): y2 = box.y(num) + (size / 2)
  415.  
  416.     'do shrinking circle first
  417.     IF player = 1 THEN clr& = _RGB(64, 64, 255) ELSE clr& = _RGB(255, 64, 64)
  418.     FOR s = 30 TO 1 STEP -2
  419.         SOUND 100 + t, .05
  420.         'wipe clean
  421.         LINE (box.x(num) + 2, box.y(num) + 2)-(box.x(num) + size - 2, box.y(num) + size - 2), _RGB(64, 64, 64), BF
  422.         CIRCLE (x2, y2), s, clr&
  423.         PAINT (x2, y2), clr&
  424.         _DISPLAY
  425.         _LIMIT 140
  426.         t = t + 100
  427.     NEXT
  428.  
  429.     'Expand in the new circle
  430.     'do shrinking circle first
  431.     IF player = 2 THEN clr& = _RGB(64, 64, 255) ELSE clr& = _RGB(255, 64, 64)
  432.     FOR s = 1 TO 30 STEP 2
  433.         'wipe clean
  434.         LINE (box.x(num) + 2, box.y(num) + 2)-(box.x(num) + size - 2, box.y(num) + size - 2), _RGB(64, 64, 64), BF
  435.         CIRCLE (x2, y2), s, clr&
  436.         PAINT (x2, y2), clr&
  437.         _DISPLAY
  438.         _LIMIT 140
  439.     NEXT
  440.  
  441.  
  442. SUB PPRINT (x, y, size, clr&, trans&, text$)
  443.     orig& = _DEST
  444.     bit = 32: IF _PIXELSIZE(0) = 1 THEN bit = 256
  445.     FOR t = 0 TO LEN(text$) - 1
  446.         pprintimg& = _NEWIMAGE(16, 16, bit)
  447.         _DEST pprintimg&
  448.         CLS , trans&: COLOR clr&
  449.         PRINT MID$(text$, t + 1, 1);
  450.         _CLEARCOLOR _RGB(0, 0, 0), pprintimg&
  451.         _DEST orig&
  452.         x1 = x + (t * size): x2 = x1 + size
  453.         y1 = y: y2 = y + size
  454.         _PUTIMAGE (x1 - (size / 2), y1)-(x2, y2 + (size / 3)), pprintimg&
  455.         _FREEIMAGE pprintimg&
  456.     NEXT
  457.  
  458.  

8
Programs / Swirling QB64 drainpipe. Another rotozoom effect.
« on: October 22, 2021, 09:58:47 am »
I keep playing around with the fascinating rotozoom.  Here's an effect I thought may be worth sharing.  Tried _SETALPHA on the _DISPLAY which seems to add a blur effect on the swirl.  Let it run a bit for interesting colors.

- Dav

Code: QB64: [Select]
  1.  
  2. SCREEN _NEWIMAGE(800, 640, 32)
  3.  
  4.     _SETALPHA RND * 254, , -11: s = RND * 125
  5.     _PUTIMAGE (RND * _WIDTH, RND * _HEIGHT)-STEP(s, s), -11
  6.     _SETALPHA RND * 255, 1 TO -1, _DISPLAY
  7.     RotoZoom3 _WIDTH / 2 + RND * 3, _HEIGHT / 2 + RND * 3, _DISPLAY, .88, .98, _D2R(a): a = a + 1
  8.     _LIMIT 25
  9.  
  10.  
  11. SUB RotoZoom3 (X AS LONG, Y AS LONG, Image AS LONG, xScale AS SINGLE, yScale AS SINGLE, radianRotation AS SINGLE)
  12.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE ' simple arrays for x, y to hold the 4 corners of image
  13.     DIM W&, H&, sinr!, cosr!, i&, x2&, y2& '   variables for image manipulation
  14.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
  15.     px(0) = -W& / 2: py(0) = -H& / 2 'left top corner
  16.     px(1) = -W& / 2: py(1) = H& / 2 ' left bottom corner
  17.     px(2) = W& / 2: py(2) = H& / 2 '  right bottom
  18.     px(3) = W& / 2: py(3) = -H& / 2 ' right top
  19.     sinr! = SIN(-radianRotation): cosr! = COS(-radianRotation) ' rotation helpers
  20.     FOR i& = 0 TO 3 ' calc new point locations with rotation and zoom
  21.         x2& = xScale * (px(i&) * cosr! + sinr! * py(i&)) + X: y2& = yScale * (py(i&) * cosr! - px(i&) * sinr!) + Y
  22.         px(i&) = x2&: py(i&) = y2&
  23.     NEXT
  24.     _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))
  25.     _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))
  26.  
  27.  

9
QB64 Discussion / How to detect if PLAY "MB" is done playing a song?
« on: October 21, 2021, 10:41:04 am »
I'm starting to make some background tunes to loop/play for my puzzle games using the PLAY "MB.." command.  Was wondering if there is a way to detect when a PLAY command is finished playing the tune so I can replay it or load another song.  I suppose I could time how long a tune plays, and set up a timer to restart it, but was wondering is there's a built-in way to detect the finish that I don't know about.  Thanks!

- Dav

10
Programs / QB64 Surabikku-like puzzle.
« on: October 20, 2021, 11:40:09 am »
I got stuck waiting at the auto mechanics this morning, luckily I had my laptop with me to play with and threw together this sliding block puzzle.  I was playing something like last night online called Surabikku.  I made to use images for the blocks, just in case I want to switch out real pictures tiles in the future.

You simply slide the blocks using the arrows and try to make the puzzle look like the one on the right.  Not too hard, really.  It's harder to pronounce the puzzle name probably.

- Dav

Code: QB64: [Select]
  1. '=============
  2. 'SURABIKKU.BAS
  3. '=============
  4. 'QB64 version of a SURABIKKU like puzzle.
  5. 'Coded by Dav, OCT/2021
  6.  
  7. SCREEN _NEWIMAGE(1024, 675, 32)
  8.  
  9. 'define deminsions for chessboard
  10. DIM SHARED row, col, size: row = 3: col = 3: size = 175
  11. DIM SHARED boxes: boxes = row * col
  12.  
  13. 'define box value, x/y, values...
  14. DIM SHARED bv&(boxes) 'box values (scrambled)
  15. DIM SHARED slv&(boxes) 'box values (solved)
  16. DIM SHARED bx1(boxes), by1(boxes) 'top x/y cords of box
  17. DIM SHARED bx2(boxes), by2(boxes) ' bottom x/y cords of box
  18.  
  19. DIM SHARED red&, blu&, grn&
  20.  
  21. 'draw color boxes
  22. red& = _NEWIMAGE(size, size, 32): _DEST red&: CLS , _RGB(255, 0, 0)
  23. blu& = _NEWIMAGE(size, size, 32): _DEST blu&: CLS , _RGB(0, 0, 255)
  24. grn& = _NEWIMAGE(size, size, 32): _DEST grn&: CLS , _RGB(0, 255, 0)
  25.  
  26.  
  27. 'init box x.y values
  28. bc = 1 'counter
  29. FOR r = 1 TO row
  30.     FOR c = 1 TO col
  31.         x = 75 + (c * size): y = 75 + (r * size)
  32.         bx1(bc) = x - size: bx2(bc) = x ' generate x/y values
  33.         by1(bc) = y - size: by2(bc) = y
  34.         bc = bc + 1
  35.     NEXT
  36.  
  37. 'assign scramble up box values
  38. bv&(1) = red&: bv&(2) = grn&: bv&(3) = red&
  39. bv&(4) = blu&: bv&(5) = grn&: bv&(6) = blu&
  40. bv&(7) = grn&: bv&(8) = blu&: bv&(9) = red&
  41.  
  42. 'assign solved box values
  43. slv&(1) = red&: slv&(2) = red&: slv&(3) = grn&
  44. slv&(4) = red&: slv&(5) = blu&: slv&(6) = grn&
  45. slv&(7) = blu&: slv&(8) = blu&: slv&(9) = grn&
  46.  
  47. CLS , _RGB(64, 64, 64)
  48.  
  49. 'draw puzzle
  50. FOR b = 1 TO boxes
  51.     _PUTIMAGE (bx1(b), by1(b))-(bx2(b), by2(b)), bv&(b)
  52.     LINE (bx1(b), by1(b))-(bx2(b), by2(b)), _RGB(0, 0, 0), B
  53.  
  54. slidespeed = 300
  55.  
  56. PPRINT 668, 28, 25, _RGB(128, 128, 128), 255, "QB64 SURABIKKU"
  57. PPRINT 665, 25, 25, _RGB(255, 255, 0), 255, "QB64 SURABIKKU"
  58. PPRINT 725, 75, 20, _RGB(128, 128, 128), 255, "Click Arrow."
  59. PPRINT 725, 110, 20, _RGB(128, 128, 128), 255, "Move Blocks."
  60.  
  61. PPRINT 725, 250, 20, _RGB(255, 255, 255), 255, "Make it like:"
  62.  
  63. 'draw solved puzzle on right
  64. _PUTIMAGE (725, 300)-(800, 375), slv&(1)
  65. _PUTIMAGE (800, 300)-(875, 375), slv&(2)
  66. _PUTIMAGE (875, 300)-(950, 375), slv&(3)
  67. _PUTIMAGE (725, 375)-(800, 450), slv&(4)
  68. _PUTIMAGE (800, 375)-(875, 450), slv&(5)
  69. _PUTIMAGE (875, 375)-(950, 450), slv&(6)
  70. _PUTIMAGE (725, 450)-(800, 525), slv&(7)
  71. _PUTIMAGE (800, 450)-(875, 525), slv&(8)
  72. _PUTIMAGE (875, 450)-(950, 525), slv&(9)
  73.  
  74. 'draw top arrows
  75. FOR t = 0 TO 450 STEP 175
  76.     LINE (130 + t, 55)-(160 + t, 25), _RGB(128, 128, 128)
  77.     LINE (160 + t, 25)-(190 + t, 55), _RGB(128, 128, 128)
  78.     LINE (130 + t, 55)-(190 + t, 55), _RGB(128, 128, 128)
  79. 'draw bottom arrows
  80. FOR t = 0 TO 450 STEP 175
  81.     LINE (130 + t, 620)-(160 + t, 650), _RGB(128, 128, 128)
  82.     LINE (160 + t, 650)-(190 + t, 620), _RGB(128, 128, 128)
  83.     LINE (130 + t, 620)-(190 + t, 620), _RGB(128, 128, 128)
  84. 'draw left arrows
  85. FOR t = 0 TO 450 STEP 175
  86.     LINE (20, 160 + t)-(50, 130 + t), _RGB(128, 128, 128)
  87.     LINE (20, 160 + t)-(50, 190 + t), _RGB(128, 128, 128)
  88.     LINE (50, 130 + t)-(50, 190 + t), _RGB(128, 128, 128)
  89. 'draw right arrows
  90. FOR t = 0 TO 450 STEP 175
  91.     LINE (620, 130 + t)-(650, 160 + t), _RGB(128, 128, 128)
  92.     LINE (620, 190 + t)-(650, 160 + t), _RGB(128, 128, 128)
  93.     LINE (620, 130 + t)-(620, 190 + t), _RGB(128, 128, 128)
  94.  
  95.  
  96.  
  97.     IF _MOUSEBUTTON(1) = 0 THEN clicked = 0
  98.  
  99.     mi = _MOUSEINPUT: mx = _MOUSEX: my = _MOUSEY
  100.     'LOCATE 1, 1: PRINT mx, my, _MOUSEBUTTON(1)
  101.     '_DISPLAY
  102.  
  103.     IF _MOUSEBUTTON(1) = -1 AND clicked = 0 THEN
  104.  
  105.         clicked = 1
  106.  
  107.         '===== if top-left button clicked...
  108.         IF mx > 75 AND mx < 250 AND my > 0 AND my < 75 THEN
  109.             'slide column up
  110.             FOR y = 0 TO size
  111.                 'just move bottom two images up
  112.                 _PUTIMAGE (bx1(4), by1(4) - y), bv&(4)
  113.                 _PUTIMAGE (bx1(7), by1(7) - y), bv&(7)
  114.                 'expand bottom location with top image
  115.                 _PUTIMAGE (bx1(7), by2(7) - y)-(bx2(7), by2(7)), bv&(1)
  116.                 'redraw boxes around them, for looks
  117.                 LINE (bx1(1), by1(1))-(bx2(1), by2(1)), _RGB(0, 0, 0), B
  118.                 LINE (bx1(4), by1(4))-(bx2(4), by2(4)), _RGB(0, 0, 0), B
  119.                 LINE (bx1(7), by1(7))-(bx2(7), by2(7)), _RGB(0, 0, 0), B
  120.                 _DISPLAY
  121.                 _LIMIT slidespeed
  122.             NEXT
  123.             'update/assign new values
  124.             t1& = bv&(1): t2& = bv&(4): t3& = bv&(7) 'old values
  125.             bv&(1) = t2&: bv&(4) = t3&: bv&(7) = t1& 'new values
  126.         END IF
  127.  
  128.         '===== if bottom-left button clicked...
  129.         IF mx > 75 AND mx < 250 AND my > 600 AND my < 675 THEN
  130.             'slide column down
  131.             FOR y = 0 TO size
  132.                 'expand top location with bottom image
  133.                 _PUTIMAGE (bx1(1), by1(1))-(bx2(1), by2(1) + y), bv&(7)
  134.                 'just move top two images down
  135.                 _PUTIMAGE (bx1(1), by1(1) + y), bv&(1)
  136.                 _PUTIMAGE (bx1(4), by1(4) + y), bv&(4)
  137.                 'redraw boxes around them, for looks
  138.                 LINE (bx1(1), by1(1))-(bx2(1), by2(1)), _RGB(0, 0, 0), B
  139.                 LINE (bx1(4), by1(4))-(bx2(4), by2(4)), _RGB(0, 0, 0), B
  140.                 LINE (bx1(7), by1(7))-(bx2(7), by2(7)), _RGB(0, 0, 0), B
  141.                 _DISPLAY
  142.                 _LIMIT slidespeed
  143.             NEXT
  144.             'update/assign new values
  145.             t1& = bv&(1): t2& = bv&(4): t3& = bv&(7) 'old values
  146.             bv&(1) = t3&: bv&(4) = t1&: bv&(7) = t2& 'new values
  147.         END IF
  148.  
  149.         '===== if top-middle button clicked...
  150.         IF mx > 250 AND mx < 425 AND my > 0 AND my < 75 THEN
  151.             'slide column up
  152.             FOR y = 0 TO size
  153.                 'just move bottom two images up
  154.                 _PUTIMAGE (bx1(5), by1(5) - y), bv&(5)
  155.                 _PUTIMAGE (bx1(8), by1(8) - y), bv&(8)
  156.                 'expand bottom location with top image
  157.                 _PUTIMAGE (bx1(8), by2(8) - y)-(bx2(8), by2(8)), bv&(2)
  158.                 'redraw boxes around them, for looks
  159.                 LINE (bx1(2), by1(2))-(bx2(2), by2(2)), _RGB(0, 0, 0), B
  160.                 LINE (bx1(5), by1(5))-(bx2(5), by2(5)), _RGB(0, 0, 0), B
  161.                 LINE (bx1(8), by1(8))-(bx2(8), by2(8)), _RGB(0, 0, 0), B
  162.                 _DISPLAY
  163.                 _LIMIT slidespeed
  164.             NEXT
  165.             'update/assign new values
  166.             t1& = bv&(2): t2& = bv&(5): t3& = bv&(8) 'old values
  167.             bv&(2) = t2&: bv&(5) = t3&: bv&(8) = t1& 'new values
  168.         END IF
  169.  
  170.         '===== if bottom-middle button clicked...
  171.         IF mx > 250 AND mx < 425 AND my > 600 AND my < 675 THEN
  172.             'slide column down
  173.             FOR y = 0 TO size
  174.                 'expand top location with bottom image
  175.                 _PUTIMAGE (bx1(2), by1(2))-(bx2(2), by2(2) + y), bv&(8)
  176.                 'just move top two images down
  177.                 _PUTIMAGE (bx1(2), by1(2) + y), bv&(2)
  178.                 _PUTIMAGE (bx1(5), by1(5) + y), bv&(5)
  179.                 'redraw boxes around them, for looks
  180.                 LINE (bx1(2), by1(2))-(bx2(2), by2(2)), _RGB(0, 0, 0), B
  181.                 LINE (bx1(5), by1(5))-(bx2(5), by2(5)), _RGB(0, 0, 0), B
  182.                 LINE (bx1(8), by1(8))-(bx2(8), by2(8)), _RGB(0, 0, 0), B
  183.                 _DISPLAY
  184.                 _LIMIT slidespeed
  185.             NEXT
  186.             'update/assign new values
  187.             t1& = bv&(2): t2& = bv&(5): t3& = bv&(8) 'old values
  188.             bv&(2) = t3&: bv&(5) = t1&: bv&(8) = t2& 'new values
  189.         END IF
  190.  
  191.         '===== if top-right button clicked...
  192.         IF mx > 425 AND mx < 600 AND my > 0 AND my < 75 THEN
  193.             'slide column up
  194.             FOR y = 0 TO size
  195.                 'just move bottom two images up
  196.                 _PUTIMAGE (bx1(6), by1(6) - y), bv&(6)
  197.                 _PUTIMAGE (bx1(9), by1(9) - y), bv&(9)
  198.                 'expand bottom location with top image
  199.                 _PUTIMAGE (bx1(9), by2(9) - y)-(bx2(9), by2(9)), bv&(3)
  200.                 'redraw boxes around them, for looks
  201.                 LINE (bx1(3), by1(3))-(bx2(3), by2(3)), _RGB(0, 0, 0), B
  202.                 LINE (bx1(6), by1(6))-(bx2(6), by2(6)), _RGB(0, 0, 0), B
  203.                 LINE (bx1(9), by1(9))-(bx2(9), by2(9)), _RGB(0, 0, 0), B
  204.                 _DISPLAY
  205.                 _LIMIT slidespeed
  206.             NEXT
  207.             'update/assign new values
  208.             t1& = bv&(3): t2& = bv&(6): t3& = bv&(9) 'old values
  209.             bv&(3) = t2&: bv&(6) = t3&: bv&(9) = t1& 'new values
  210.         END IF
  211.  
  212.         '===== if bottom-right button clicked...
  213.         IF mx > 425 AND mx < 600 AND my > 600 AND my < 675 THEN
  214.             'slide column down
  215.             FOR y = 0 TO size
  216.                 'expand top location with bottom image
  217.                 _PUTIMAGE (bx1(3), by1(3))-(bx2(3), by2(3) + y), bv&(9)
  218.                 'just move top two images down
  219.                 _PUTIMAGE (bx1(3), by1(3) + y), bv&(3)
  220.                 _PUTIMAGE (bx1(6), by1(6) + y), bv&(6)
  221.                 'redraw boxes around them, for looks
  222.                 LINE (bx1(3), by1(3))-(bx2(3), by2(3)), _RGB(0, 0, 0), B
  223.                 LINE (bx1(6), by1(6))-(bx2(6), by2(6)), _RGB(0, 0, 0), B
  224.                 LINE (bx1(9), by1(9))-(bx2(9), by2(9)), _RGB(0, 0, 0), B
  225.                 _DISPLAY
  226.                 _LIMIT slidespeed
  227.             NEXT
  228.             'update/assign new values
  229.             t1& = bv&(3): t2& = bv&(6): t3& = bv&(9) 'old values
  230.             bv&(3) = t3&: bv&(6) = t1&: bv&(9) = t2& 'new values
  231.         END IF
  232.  
  233.         '===== if left-top button clicked...
  234.         IF mx > 0 AND mx < 75 AND my > 75 AND my < 250 THEN
  235.             'slide column left
  236.             FOR x = 0 TO size
  237.                 'just move right two images left
  238.                 _PUTIMAGE (bx1(2) - x, by1(2)), bv&(2)
  239.                 _PUTIMAGE (bx1(3) - x, by1(3)), bv&(3)
  240.                 'and expand far right location with far left image
  241.                 _PUTIMAGE (bx2(3) - x, by1(3))-(bx2(3) - x, by2(3)), bv&(1)
  242.                 'redraw boxes around them, for looks
  243.                 LINE (bx1(1), by1(1))-(bx2(1), by2(1)), _RGB(0, 0, 0), B
  244.                 LINE (bx1(2), by1(2))-(bx2(2), by2(2)), _RGB(0, 0, 0), B
  245.                 LINE (bx1(3), by1(3))-(bx2(3), by2(3)), _RGB(0, 0, 0), B
  246.                 _DISPLAY
  247.                 _LIMIT slidespeed
  248.             NEXT
  249.             'update/assign new values
  250.             t1& = bv&(1): t2& = bv&(2): t3& = bv&(3) 'old values
  251.             bv&(1) = t2&: bv&(2) = t3&: bv&(3) = t1& 'new values
  252.         END IF
  253.  
  254.         '===== if right-top button clicked...
  255.         IF mx > 600 AND mx < 675 AND my > 75 AND my < 250 THEN
  256.             'slide column left
  257.             FOR x = 0 TO size
  258.                 'just move left two images right
  259.                 _PUTIMAGE (bx1(1) + x, by1(1)), bv&(1)
  260.                 _PUTIMAGE (bx1(2) + x, by1(2)), bv&(2)
  261.                 'and expand far left location with far right image
  262.                 _PUTIMAGE (bx1(1), by1(1))-(bx1(1) + x, by2(1)), bv&(3)
  263.                 'redraw boxes around them, for looks
  264.                 LINE (bx1(1), by1(1))-(bx2(1), by2(1)), _RGB(0, 0, 0), B
  265.                 LINE (bx1(2), by1(2))-(bx2(2), by2(2)), _RGB(0, 0, 0), B
  266.                 LINE (bx1(3), by1(3))-(bx2(3), by2(3)), _RGB(0, 0, 0), B
  267.                 _DISPLAY
  268.                 _LIMIT slidespeed
  269.             NEXT
  270.             'update/assign new values
  271.             t1& = bv&(1): t2& = bv&(2): t3& = bv&(3) 'old values
  272.             bv&(1) = t3&: bv&(2) = t1&: bv&(3) = t2& 'new values
  273.         END IF
  274.  
  275.         '===== if left-middle button clicked...
  276.         IF mx > 0 AND mx < 75 AND my > 250 AND my < 425 THEN
  277.             'slide column left
  278.             FOR x = 0 TO size
  279.                 'just move right two images left
  280.                 _PUTIMAGE (bx1(5) - x, by1(5)), bv&(5)
  281.                 _PUTIMAGE (bx1(6) - x, by1(6)), bv&(6)
  282.                 'and expand far right location with far left image
  283.                 _PUTIMAGE (bx2(6) - x, by1(6))-(bx2(6) - x, by2(6)), bv&(4)
  284.                 'redraw boxes around them, for looks
  285.                 LINE (bx1(4), by1(4))-(bx2(4), by2(4)), _RGB(0, 0, 0), B
  286.                 LINE (bx1(5), by1(5))-(bx2(5), by2(5)), _RGB(0, 0, 0), B
  287.                 LINE (bx1(6), by1(6))-(bx2(6), by2(6)), _RGB(0, 0, 0), B
  288.                 _DISPLAY
  289.                 _LIMIT slidespeed
  290.             NEXT
  291.             'update/assign new values
  292.             t1& = bv&(4): t2& = bv&(5): t3& = bv&(6) 'old values
  293.             bv&(4) = t2&: bv&(5) = t3&: bv&(6) = t1& 'new values
  294.         END IF
  295.  
  296.         '===== if right-middle button clicked...
  297.         IF mx > 600 AND mx < 675 AND my > 250 AND my < 425 THEN
  298.             'slide column left
  299.             FOR x = 0 TO size
  300.                 'just move left two images right
  301.                 _PUTIMAGE (bx1(4) + x, by1(4)), bv&(4)
  302.                 _PUTIMAGE (bx1(5) + x, by1(5)), bv&(5)
  303.                 'and expand far left location with far right image
  304.                 _PUTIMAGE (bx1(4), by1(4))-(bx1(4) + x, by2(4)), bv&(6)
  305.                 'redraw boxes around them, for looks
  306.                 LINE (bx1(4), by1(4))-(bx2(4), by2(4)), _RGB(0, 0, 0), B
  307.                 LINE (bx1(5), by1(5))-(bx2(5), by2(5)), _RGB(0, 0, 0), B
  308.                 LINE (bx1(6), by1(6))-(bx2(6), by2(6)), _RGB(0, 0, 0), B
  309.                 _DISPLAY
  310.                 _LIMIT slidespeed
  311.             NEXT
  312.             'update/assign new values
  313.             t1& = bv&(4): t2& = bv&(5): t3& = bv&(6) 'old values
  314.             bv&(4) = t3&: bv&(5) = t1&: bv&(6) = t2& 'new values
  315.         END IF
  316.  
  317.         '===== if left-bottom button clicked...
  318.         IF mx > 0 AND mx < 75 AND my > 425 AND my < 600 THEN
  319.             'slide column left
  320.             FOR x = 0 TO size
  321.                 'just move right two images left
  322.                 _PUTIMAGE (bx1(8) - x, by1(8)), bv&(8)
  323.                 _PUTIMAGE (bx1(9) - x, by1(9)), bv&(9)
  324.                 'and expand far right location with far left image
  325.                 _PUTIMAGE (bx2(9) - x, by1(9))-(bx2(9) - x, by2(9)), bv&(7)
  326.                 'redraw boxes around them, for looks
  327.                 LINE (bx1(7), by1(7))-(bx2(7), by2(7)), _RGB(0, 0, 0), B
  328.                 LINE (bx1(8), by1(8))-(bx2(8), by2(8)), _RGB(0, 0, 0), B
  329.                 LINE (bx1(9), by1(9))-(bx2(9), by2(9)), _RGB(0, 0, 0), B
  330.                 _DISPLAY
  331.                 _LIMIT slidespeed
  332.             NEXT
  333.             'update/assign new values
  334.             t1& = bv&(7): t2& = bv&(8): t3& = bv&(9) 'old values
  335.             bv&(7) = t2&: bv&(8) = t3&: bv&(9) = t1& 'new values
  336.         END IF
  337.  
  338.         '===== if right-bottom button clicked...
  339.         IF mx > 600 AND mx < 675 AND my > 425 AND my < 600 THEN
  340.             'slide column left
  341.             FOR x = 0 TO size
  342.                 'just move left two images right
  343.                 _PUTIMAGE (bx1(7) + x, by1(7)), bv&(7)
  344.                 _PUTIMAGE (bx1(8) + x, by1(8)), bv&(8)
  345.                 'and expand far left location with far right image
  346.                 _PUTIMAGE (bx1(7), by1(7))-(bx1(7) + x, by2(7)), bv&(9)
  347.                 'redraw boxes around them, for looks
  348.                 LINE (bx1(7), by1(7))-(bx2(7), by2(7)), _RGB(0, 0, 0), B
  349.                 LINE (bx1(8), by1(8))-(bx2(8), by2(8)), _RGB(0, 0, 0), B
  350.                 LINE (bx1(9), by1(9))-(bx2(9), by2(9)), _RGB(0, 0, 0), B
  351.                 _DISPLAY
  352.                 _LIMIT slidespeed
  353.             NEXT
  354.             'update/assign new values
  355.             t1& = bv&(7): t2& = bv&(8): t3& = bv&(9) 'old values
  356.             bv&(7) = t3&: bv&(8) = t1&: bv&(9) = t2& 'new values
  357.         END IF
  358.  
  359.         '==== check for solved here....
  360.         solved = 1
  361.         FOR s = 1 TO boxes
  362.             IF bv&(s) <> slv&(s) THEN solved = 0
  363.         NEXT
  364.         IF solved = 1 THEN BEEP: BEEP: END
  365.  
  366.     END IF
  367.  
  368.  
  369.  
  370.  
  371. SUB PPRINT (x, y, size, clr&, trans&, text$)
  372.     'This sub outputs to the current _DEST set
  373.     'It makes trans& the transparent color
  374.  
  375.     'x/y is where to print text
  376.     'size is the font size to use
  377.     'clr& is the color of your text
  378.     'trans& is the background transparent color
  379.     'text$ is the string to print
  380.  
  381.     '=== get users current write screen
  382.     orig& = _DEST
  383.  
  384.     '=== if you are using an 8 or 32 bit screen
  385.     bit = 32: IF _PIXELSIZE(0) = 1 THEN bit = 256
  386.  
  387.     '=== step through your text
  388.     FOR t = 0 TO LEN(text$) - 1
  389.         '=== make a temp screen to use
  390.         pprintimg& = _NEWIMAGE(16, 16, bit)
  391.         _DEST pprintimg&
  392.         '=== set colors and print text
  393.         CLS , trans&: COLOR clr&
  394.         PRINT MID$(text$, t + 1, 1);
  395.         '== make background color the transprent one
  396.         _CLEARCOLOR _RGB(0, 0, 0), pprintimg&
  397.         '=== go back to original screen  to output
  398.         _DEST orig&
  399.         '=== set it and forget it
  400.         x1 = x + (t * size): x2 = x1 + size
  401.         y1 = y: y2 = y + size
  402.         _PUTIMAGE (x1 - (size / 2), y1)-(x2, y2 + (size / 3)), pprintimg&
  403.         _FREEIMAGE pprintimg&
  404.     NEXT
  405.  

11
QB64 Discussion / Trying to speed up this falling snowflake effect
« on: October 15, 2021, 08:06:04 am »
I'm using the image transparency method @bplus posted and the RotoZoom function to make a pretty snowflake effect.  Looks good to me, but I can't get the snow to fall any faster (on my pc anyways).  Does anyone see where I can improve the speed here? 

I'll post the code and the zip of images to run it.

Thanks!

- Dav

  [ You are not allowed to view this attachment ]   (50k)  <--- Download here

Code: QB64: [Select]
  1. 'Snowflake effect using transparency and rotozoom.
  2. 'Dav is trying to speed this up...
  3.  
  4. SCREEN _NEWIMAGE(980, 550, 32)
  5.  
  6. flakes = 400 'number of flakes
  7.  
  8. DIM SHARED tree&, snow&
  9. DIM SHARED flake.x(flakes), flake.y(flakes), flake.ys(flakes) 'x/y values, y speed
  10. DIM SHARED flake.r(flakes), flake.rs(flakes) 'rotation and rotation speed
  11. DIM SHARED flake.a(flakes), flake.s(flakes) 'alpha value & flake size
  12.  
  13. 'generate random snowflake vaues
  14.  
  15. FOR f = 1 TO flakes
  16.  
  17.     flake.x(f) = RND * _WIDTH + 30 'make randowm starting x position
  18.     flake.y(f) = RND * _HEIGHT * 2 - _HEIGHT 'make random starting y position
  19.  
  20.     SELECT CASE INT(RND * 4) + 1 'make a random y falling speed
  21.         CASE 1: flake.ys(f) = 1
  22.         CASE 2: flake.ys(f) = 1.5
  23.         CASE 3: flake.ys(f) = 2
  24.         CASE 4: flake.ys(f) = 2.5
  25.     END SELECT
  26.  
  27.     flake.r(f) = RND * 360 'make random rotation sstarting value
  28.     SELECT CASE INT(RND * 4) + 1 'make random rotation speed
  29.         CASE 1: flake.rs(f) = .3
  30.         CASE 2: flake.rs(f) = .5
  31.         CASE 3: flake.rs(f) = .7
  32.         CASE 4: flake.rs(f) = .9
  33.     END SELECT
  34.  
  35.     flake.a(f) = 25 + (RND * 60) 'random alpha value
  36.  
  37.     flake.s(f) = RND * 1.75 + .1 'randomw snowflake size
  38.  
  39.  
  40. tree& = _LOADIMAGE("tree.jpg", 32)
  41. snow& = _LOADIMAGE("snow.png")
  42.  
  43.  
  44.     CLS
  45.     _PUTIMAGE (0, 0)-(980, 550), tree&, 0
  46.  
  47.     FOR f = 1 TO flakes
  48.  
  49.         _SETALPHA flake.a(f), 1 TO snow&, snow&
  50.  
  51.         RotoZoom3 flake.x(f), flake.y(f), snow&, flake.s(f), flake.s(f), _D2R(flake.r(f))
  52.  
  53.         flake.r(f) = flake.r(f) + flake.rs(f) 'increase rotation
  54.         IF flake.r(f) > 360 THEN flake.r(f) = 1
  55.  
  56.         flake.y(f) = flake.y(f) + flake.ys(f) 'lower y position
  57.  
  58.         'if flake goes off screen, make a new flake above
  59.         IF flake.y(f) > _HEIGHT + (flake.s(f) * 8) THEN
  60.             flake.y(f) = RND * _HEIGHT - _HEIGHT - (flake.s(f) * 8)
  61.         END IF
  62.  
  63.     NEXT
  64.  
  65.     _LIMIT 30
  66.  
  67.     _DISPLAY
  68.  
  69.  
  70.  
  71. SUB RotoZoom3 (X AS LONG, Y AS LONG, Image AS LONG, xScale AS SINGLE, yScale AS SINGLE, radianRotation AS SINGLE)
  72.     ' This assumes you have set your drawing location with _DEST or default to screen.
  73.     ' X, Y - is where you want to put the middle of the image
  74.     ' Image - is the handle assigned with _LOADIMAGE
  75.     ' xScale, yScale - are shrinkage < 1 or magnification > 1 on the given axis, 1 just uses image size.
  76.     ' These are multipliers so .5 will create image .5 size on given axis and 2 for twice image size.
  77.     ' radianRotation is the Angle in Radian units to rotate the image
  78.     ' note: Radian units for rotation because it matches angle units of other Basic Trig functions
  79.     '       and saves a little time converting from degree.
  80.     '       Use the _D2R() function if you prefer to work in degree units for angles.
  81.  
  82.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE ' simple arrays for x, y to hold the 4 corners of image
  83.     DIM W&, H&, sinr!, cosr!, i&, x2&, y2& '   variables for image manipulation
  84.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
  85.     px(0) = -W& / 2: py(0) = -H& / 2 'left top corner
  86.     px(1) = -W& / 2: py(1) = H& / 2 ' left bottom corner
  87.     px(2) = W& / 2: py(2) = H& / 2 '  right bottom
  88.     px(3) = W& / 2: py(3) = -H& / 2 ' right top
  89.     sinr! = SIN(-radianRotation): cosr! = COS(-radianRotation) ' rotation helpers
  90.     FOR i& = 0 TO 3 ' calc new point locations with rotation and zoom
  91.         x2& = xScale * (px(i&) * cosr! + sinr! * py(i&)) + X: y2& = yScale * (py(i&) * cosr! - px(i&) * sinr!) + Y
  92.         px(i&) = x2&: py(i&) = y2&
  93.     NEXT
  94.     _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))
  95.     _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))
  96.  




12
Programs / JackStack - Halloween puzzle game
« on: October 04, 2021, 10:42:43 pm »
Put this together tonight for fun, (and because my gig tonight was cancelled).  I was inspired by the talk of making a one key game in the discussion thread.  This is a one key game, but it's not in SCREEN 0 so I post it here instead of using it for a competition. 

You press the space bar to stack jack-o-lanterns on top of each other.  If you miss it, game over.  If you stack them on top perfectly it will remove some.  If the stack reaches the top game is over.  Speed increases as you go.

See how many points you can reach.  Seems easy at first, but can get hard fast.

- Dav

   (24k)

 
jackstack.jpg

13
I wanted to test the seed of the ultra-cool RotoZoom3 Function on my laptop so I put this together to do just that.  It shows many gears of different sizes on the screen and rotates each one at different speeds. 

I can get about 200 gears going on my laptop before I notice a big slowdown.  RotoZoom3 is pretty fast.

The small BAS and PNG image is in the zip below.

- Dav

   (50k)


BAS source here for reference -- you will need the image in the zip...
Code: QB64: [Select]
  1. '============
  2. 'ROTOGEAR.BAS
  3. '============
  4. 'Showcase speed of RotoZoom3 Function(not by me) by
  5. 'rotating a large number of gears on the screen in various sizes.
  6. 'By Dav, OCT/2021
  7.  
  8. SCREEN _NEWIMAGE(700, 700, 32)
  9.  
  10. gear& = _LOADIMAGE("rotogear.png")
  11.  
  12. NumOfGears = 50 'Change number of gears shown on screen here
  13.  
  14. DIM Gearx(NumOfGears), Geary(NumOfGears), GearSize(NumOfGears)
  15. DIM GearRot(NumOfGears), GearSpeed(NumOfGears)
  16.  
  17. 'Init random values for each gear
  18. FOR G = 1 TO NumOfGears
  19.     Gearx(G) = RND * _WIDTH
  20.     Geary(G) = RND * _HEIGHT
  21.     GearSize(G) = RND * 1
  22.     GearRot(G) = 1
  23.     GearSpeed(G) = RND * 10
  24.  
  25.     CLS , _RGB(0, 0, 64)
  26.     FOR G = 1 TO NumOfGears
  27.         RotoZoom3 Gearx(G), Geary(G), gear&, GearSize(G), GearSize(G), _D2R(GearRot(G))
  28.         GearRot(G) = GearRot(G) + GearSpeed(G): IF GearRot(G) > 360 THEN GearRot(G) = 1
  29.     NEXT
  30.     _DISPLAY
  31.     _LIMIT 24
  32.  
  33.  
  34.  
  35. ' Description:
  36. ' Started from a mod of Galleon's in Wiki that both scales and rotates an image.
  37. ' This version scales the x-axis and y-axis independently allowing rotations of image just by changing X or Y Scales
  38. ' making this tightly coded routine a very powerful and versatile image tool.
  39. SUB RotoZoom3 (X AS LONG, Y AS LONG, Image AS LONG, xScale AS SINGLE, yScale AS SINGLE, radianRotation AS SINGLE)
  40.     ' This assumes you have set your drawing location with _DEST or default to screen.
  41.     ' X, Y - is where you want to put the middle of the image
  42.     ' Image - is the handle assigned with _LOADIMAGE
  43.     ' xScale, yScale - are shrinkage < 1 or magnification > 1 on the given axis, 1 just uses image size.
  44.     ' These are multipliers so .5 will create image .5 size on given axis and 2 for twice image size.
  45.     ' radianRotation is the Angle in Radian units to rotate the image
  46.     ' note: Radian units for rotation because it matches angle units of other Basic Trig functions
  47.     '       and saves a little time converting from degree.
  48.     '       Use the _D2R() function if you prefer to work in degree units for angles.
  49.  
  50.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE ' simple arrays for x, y to hold the 4 corners of image
  51.     DIM W&, H&, sinr!, cosr!, i&, x2&, y2& '   variables for image manipulation
  52.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
  53.     px(0) = -W& / 2: py(0) = -H& / 2 'left top corner
  54.     px(1) = -W& / 2: py(1) = H& / 2 ' left bottom corner
  55.     px(2) = W& / 2: py(2) = H& / 2 '  right bottom
  56.     px(3) = W& / 2: py(3) = -H& / 2 ' right top
  57.     sinr! = SIN(-radianRotation): cosr! = COS(-radianRotation) ' rotation helpers
  58.     FOR i& = 0 TO 3 ' calc new point locations with rotation and zoom
  59.         x2& = xScale * (px(i&) * cosr! + sinr! * py(i&)) + X: y2& = yScale * (py(i&) * cosr! - px(i&) * sinr!) + Y
  60.         px(i&) = x2&: py(i&) = y2&
  61.     NEXT
  62.     _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))
  63.     _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))
  64.  



14
Programs / Little space background for games
« on: October 01, 2021, 08:21:54 pm »
Sharing a small way to make a space looking background for simple games.  Shows Stars and a little plasma space gas floating around.  Not much really, just thought I'd post something tonight.

- Dav

Code: QB64: [Select]
  1.  
  2. SCREEN _NEWIMAGE(640, 640, 32)
  3.  
  4.  
  5. FOR x = 1 TO 100000
  6.     PSET (RND * 640, RND * 640), _RGBA(0, 0, RND * 255, RND * 255)
  7.  
  8. 'faded boxes
  9. FOR i = 1 TO 5000
  10.     x = RND * 640: y = RND * 640
  11.     LINE (x, y)-(x + RND * 100, y + RND * 50), _RGBA(0, 0, RND * 128, RND * 25), BF
  12.  
  13. 'add a few stars
  14. FOR i = 1 TO 1000
  15.     x = RND * 640: y = RND * 640
  16.     LINE (x, y)-(x + RND * 3, y + RND * 3), _RGBA(192, 192, 255, RND * 150), BF
  17.  
  18.  
  19.  
  20.     '=== add space plasma =========
  21.     t = TIMER
  22.     FOR x = 0 TO _WIDTH STEP 3
  23.         FOR y = 0 TO _HEIGHT STEP 3
  24.             b = SIN(x / (_WIDTH / 2) + t + y / (_HEIGHT / 2))
  25.             b = b * (SIN(1.1 * t) * (_HEIGHT / 2) - y + (_HEIGHT / 2))
  26.             PSET (x, y), _RGBA(b / 3, 0, b, RND * 25)
  27.         NEXT: t = t + .04
  28.     NEXT
  29.     '===============================
  30.  
  31.     _DISPLAY
  32.     _LIMIT 15
  33.  
  34.  
  35.  

15
Here's a couple of cheap effects with small code.  I like playing around with simple small bits of code and see what can be done quickly.  Here's what came up this morning while enjoying my coffee. This fakes a spotlight effect and draws a movable message box with some transparency.  Works ok for text background, but not good for graphics.

- Dav

Code: QB64: [Select]
  1.  
  2. SCREEN _NEWIMAGE(640, 640, 32)
  3.  
  4. FOR p = 1 TO 1000
  5.     PRINT RND * 100;
  6.  
  7. 'fake a spotlight...
  8. FOR x = 0 TO _WIDTH + (_WIDTH / 3) STEP .3
  9.     CIRCLE (_WIDTH / 2, _HEIGHT / 2), x, _RGBA(0, 0, 0, x / 2)
  10.  
  11.  
  12.     m = _MOUSEINPUT: mx = _MOUSEX: my = _MOUSEY
  13.     _PUTIMAGE (0, 0), back&
  14.     LINE (mx - 100, my - 100)-(mx + 100, my + 100), _RGBA(0, 0, 0, 128), BF
  15.     LINE (mx - 100, my - 100)-(mx + 100, my + 100), _RGBA(255, 255, 255, 200), B
  16.     _PRINTSTRING (mx - 80, my - 80), "Use mouse - Move me"
  17.     _DISPLAY
  18.     _LIMIT 500
  19.  
  20.  

Pages: [1] 2 3 ... 6