Author Topic: Frostbite (Atari 2600 clone)  (Read 4765 times)

0 Members and 1 Guest are viewing this topic.

FellippeHeitor

  • Guest
Frostbite (Atari 2600 clone)
« on: July 17, 2018, 12:01:48 am »
Last time I worked on this was 2 years ago. Hopefully I'll get back to it and get new levels finished one day. Gameplay is mostly polished though.

Code: QB64: [Select]
  1. 'Frosbite Tribute
  2. 'A clone of Frostbite for the Atari 2600, originally designed
  3. 'by Steve Cartwright and published by Activision in 1983.
  4. '
  5. 'Fellippe Heitor / @FellippeHeitor / fellippeheitor@gmail.com
  6. '
  7. ' - Beta 1: (November 30th, 2015)
  8. '    - Screen layout, with aurora and logo on the bottom.
  9. '    - Ripped hero sprites from youtube gameplays.
  10. '    - Can move around, jump up and down. Still walks on
  11. '      water, though.
  12. '
  13. ' - Beta 2: (December 1st, 2015)
  14. '    - Primitive ice blocks are around, and our hero moves
  15. '      along with them.
  16. '    - Blocks are mirrored on the other side when they go
  17. '      offscreen. However, until they are reset on screen,
  18. '      the mirrored blocks aren't "seen" by the code, yet.
  19. '    - Very basic detection of landing safely, to see if
  20. '      the hero will drown.
  21. '    - Drowning/losing lives.
  22. '    - Scores for ice blocks the hero steps on.
  23. '
  24. ' - Beta 3: (December 2nd, 2015)
  25. '    - Ripped audio effects. Not required for gameplay, though.
  26. '    - Added a .MirroredPosition variable to IceRows, which
  27. '      now allows the hero to step on any ice block he sees
  28. '      fit.
  29. '    - When temperature reaches 0 degrees, hero loses a life by
  30. '      freezing to death.
  31. '    - Moved drawing routines to subprocedures, to make reading
  32. '      easier.
  33. '
  34. ' - Beta 4: (December 3rd 2015)
  35. '    - More code beautification.
  36. '    - Spritesheet no longer necessary; sprites are now created
  37. '      on the fly with pixel data READ from DATA statements
  38. '      (I decided to do so after seeing some code from TrialAndTerror).
  39. '    - WE NOW HAVE AN IGLOO!! With every ice block the Hero steps on
  40. '      a new block is placed on his brand new igloo. After the igloo
  41. '      is finished (that's when the door is placed = 16 ice blocks)
  42. '      the Hero must enter the igloo to end the level.
  43. '    - You can use SPACEBAR to change ice blocks direction, however
  44. '      that'll cost you a piece of your igloo.
  45. '    - Upon entering the igloo, the level is complete. Scores are then
  46. '      calculated. New sound effects are used for that.
  47. '
  48. ' - Beta 5: (December 8th, 2015)
  49. '    - Fixed: Temperature timer wasn't reset after setting a new level.
  50. '    - Added: Different block types: DOUBLEBLOCK and MOVINGBLOCK, which can
  51. '      be seen from level 2 onward.
  52. '    - Improved aurora simulation, to better mimick the original game.
  53. '    - Ice blocks now look more like in the original game.
  54. '    - Creatures (fish, birds, crabs and clams) came to life and the
  55. '      hero must now avoid them, except for fish. Fish are good.
  56. '
  57. ' - Beta 6 (July 24th, 2016)
  58. '    - Fixed a bug that caused the hero to have infinite lives (thanks
  59. '      to Luke for pointing that out).
  60. '    - Hero earns an extra life every 5,000 points. Lives don't go
  61. '      past a total of 9, for reasons of ATARI. :-)
  62. '    - Fixed: Ice row widths were being wrongly calculated for DOUBLEBLOCK
  63. '      and MOVINGBLOCK.
  64. '    - There is now a day and a night. When the night falls and the Hero
  65. '      finishes building a block, there'll be the flickering of a light
  66. '      source coming from inside the igloo.
  67. '    - Sound files have been embedded into the code, so that they are
  68. '      saved to disk every time the game is run. No more having to
  69. '      download separate files (code adapted from Dav's Qbasic Site,
  70. '      as seen here: http://www.qbasicnews.com/dav/files/basfile.bas)
  71. '    - Aquatic creatures now actually enter the water.
  72. '
  73.  
  74. $LET INTERNALBUILD = FALSE
  75.  
  76. 'Game constants: --------------------------------------------------------------
  77. CONST True = -1
  78. CONST False = NOT True
  79.  
  80. 'Block types
  81. CONST SINGLEBLOCK = 1
  82. CONST DOUBLEBLOCK = 2
  83. CONST MOVINGBLOCK = 3
  84.  
  85. 'Directions
  86. CONST MOVINGLEFT = -1
  87. CONST MOVINGRIGHT = 1
  88. CONST STOPPED = 0
  89.  
  90. 'Actions
  91. CONST WALKING = 1
  92. CONST JUMPINGUP = 2
  93. CONST JUMPINGDOWN = 3
  94. CONST FREEZING = 4
  95. CONST DROWNING = 5
  96. CONST ENTERINGIGLOO = 6
  97. CONST EATINGFISH = 7
  98.  
  99. 'Light conditions/Palette selection
  100. CONST DAY = 1
  101. CONST NIGHT = 2
  102.  
  103. CONST GROUND = 1
  104. CONST SKY = 2
  105. CONST BEAR = 3
  106.  
  107. 'Creatures
  108. CONST BIRD = 1
  109. CONST FISH = 2
  110. CONST CRAB = 4
  111. CONST CLAM = 8
  112.  
  113. 'Colors
  114. CONST UnsteppedBlockColor = _RGB32(208, 208, 208)
  115. CONST SteppedBlockColor = _RGB32(73, 134, 213)
  116. CONST IglooBlockColor = _RGB32(136, 136, 136)
  117. CONST LightInsideColor = _RGB32(217, 134, 69)
  118.  
  119. 'Misc:
  120. CONST GAMESTART = -1
  121. CONST NEXTLEVEL = 0
  122.  
  123. CONST ONEUPGOAL = 5000
  124.  
  125. CONST FIRST = 48
  126. CONST SECOND = 12
  127. CONST THIRD = 3
  128.  
  129. CONST HeroStartRow = 95
  130. CONST HeroHeight = 36
  131. CONST HeroWidth = 30
  132. CONST DoorX = 276
  133. CONST MaxSpaceBetween = 15
  134.  
  135. CONST InitialTemperature = 45
  136.  
  137. 'Type definitions: ------------------------------------------------------------
  138. TYPE RowInfo
  139.     Position AS INTEGER
  140.     MirroredPosition AS INTEGER
  141.     Direction AS INTEGER
  142.     State AS _BYTE ' True when row has been stepped on
  143.  
  144. TYPE CreaturesInfo
  145.     Species AS INTEGER
  146.     X AS INTEGER
  147.     Y AS SINGLE
  148.     Direction AS INTEGER
  149.     Number AS INTEGER
  150.     Spacing AS INTEGER
  151.     RowWidth AS INTEGER
  152.     State AS _BYTE 'Indicates fish in row (11) or fish eaten (00) as in &B110011 = fish, no fish, fish
  153.     Frame AS _BYTE
  154.  
  155. TYPE HeroInfo
  156.     CurrentRow AS INTEGER
  157.     X AS INTEGER
  158.     Y AS INTEGER
  159.     Direction AS INTEGER
  160.     Face AS INTEGER
  161.     Action AS INTEGER
  162.     Grabbed AS _BYTE
  163.     Frame AS _BYTE
  164.  
  165. TYPE LevelInfo
  166.     Speed AS SINGLE
  167.     BlockType AS _BYTE
  168.     CreaturesAllowed AS _BYTE
  169.  
  170. 'Game variables: --------------------------------------------------------------
  171. DIM SHARED ActualLevel AS INTEGER
  172. DIM SHARED AnimationStep AS INTEGER
  173. DIM SHARED Aurora(1 TO 7) AS LONG
  174. DIM SHARED IceRows(1 TO 4) AS INTEGER
  175. DIM SHARED Creatures(1 TO 4) AS CreaturesInfo
  176. DIM SHARED CreatureSprite AS LONG
  177. DIM SHARED CreatureWidth(1 TO 8) AS INTEGER
  178. DIM SHARED CreditsBarH AS INTEGER
  179. DIM SHARED CreditsIMG AS LONG, CreditY AS INTEGER
  180. DIM SHARED FishPoints AS INTEGER
  181. DIM SHARED FishSprites(1 TO 2) AS LONG
  182. DIM SHARED FramesTimer AS INTEGER
  183. DIM SHARED GameBG AS LONG
  184. DIM SHARED GameOver AS _BIT
  185. DIM SHARED GameScreen AS LONG
  186. DIM SHARED Hero AS HeroInfo
  187. DIM SHARED HeroFreezingSprite AS LONG
  188. DIM SHARED HeroSprites(1 TO 4) AS LONG
  189. DIM SHARED BirdSprites(1 TO 2) AS LONG
  190. DIM SHARED IceRow(1 TO 4) AS RowInfo
  191. DIM SHARED IglooPieces AS INTEGER
  192. DIM SHARED JustLanded AS _BIT
  193. DIM SHARED LevelComplete AS _BIT
  194. DIM SHARED MainScreen AS LONG
  195. DIM SHARED MaxLevelCreatures AS INTEGER
  196. DIM SHARED NextGoal AS LONG
  197. DIM SHARED NewLevelSet AS SINGLE
  198. DIM SHARED PointsInThisLevel AS INTEGER
  199. DIM SHARED RestoreRowsTimer AS SINGLE
  200. DIM SHARED RowWidth AS SINGLE
  201. DIM SHARED SceneryPalette(1 TO 2, 1 TO 3) AS LONG
  202. DIM SHARED SpaceBetween AS SINGLE
  203. DIM SHARED Temperature AS INTEGER
  204. DIM SHARED TempTimer AS INTEGER
  205. DIM SHARED TimeOfDay AS INTEGER
  206. DIM SHARED ThisAurora AS LONG
  207. DIM SHARED ThisLevel AS INTEGER
  208. DIM SHARED ThisRowColor AS LONG
  209. DIM SHARED UserWantsToQuit AS _BYTE
  210.  
  211. REDIM SHARED Levels(0) AS LevelInfo
  212. REDIM SHARED ThisLevelCreatures(0) AS INTEGER
  213.  
  214.  
  215. 'Variables to hold sounds:
  216. DIM SHARED JumpSound AS LONG
  217. DIM SHARED BlockSound AS LONG
  218. DIM SHARED DrowningSound AS LONG
  219. DIM SHARED IglooBlockCountSound AS LONG
  220. DIM SHARED ScoreCountSound AS LONG
  221. DIM SHARED CollectFishSound AS LONG
  222.  
  223. 'For testing/debugging purposes
  224. $IF INTERNALBUILD = TRUE THEN
  225.     DIM SHARED Frames AS _UNSIGNED LONG
  226.     DIM SHARED RunStart AS DOUBLE
  227.     RunStart = TIMER
  228.  
  229. 'Game setup: ------------------------------------------------------------------
  230. RestoreData
  231. SetLevel GAMESTART
  232. ScreenSetup
  233. LoadAssets
  234. SpritesSetup
  235. SetTimers
  236. NewLevelSet = 0
  237.  
  238. 'Main game loop: --------------------------------------------------------------
  239.     CalculateScores
  240.     NewLevelPause
  241.     ComposeScenery
  242.     DrawIgloo
  243.     MoveIceBlocks
  244.     MoveCreatures
  245.     MoveHero
  246.     CheckLanding
  247.     CheckCreatures
  248.  
  249.     UpdateScreen
  250.  
  251.     IF LevelComplete AND IglooPieces > 0 THEN _DELAY .108
  252.     IF LevelComplete AND IglooPieces = 0 AND Temperature > 0 THEN _DELAY .05
  253.  
  254.     ReadKeyboard
  255.     IF NOT LevelComplete THEN _DELAY .03
  256. LOOP UNTIL UserWantsToQuit
  257.  
  258. 'Game data: -------------------------------------------------------------------
  259. AuroraPaletteDATA:
  260. DATA 207,199,87
  261. DATA 208,161,62
  262. DATA 199,141,54
  263. DATA 210,95,110
  264. DATA 183,101,193
  265. DATA 157,111,224
  266. DATA 120,116,237
  267.  
  268. SceneryPaletteDATA: 'Ground, sky and bear
  269. DATA 192,192,192,74,74,74
  270. DATA 23,68,185,0,36,149
  271. DATA 111,111,111,214,214,214
  272.  
  273. IceRowsDATA:
  274. DATA 134,173,212,251
  275.  
  276. CreaturesDATA:
  277. DATA 30,30,30,30
  278.  
  279. LevelsDATA:
  280. DATA 1,1,1
  281. DATA 1,2,3
  282. DATA 1,3,7
  283. DATA 1.5,3,15
  284.  
  285. HeroPalette:
  286. 'Total colors, color values (_UNSIGNED LONG)
  287. DATA 5,0,4289225241,4291259443,4287072135,4288845861
  288.  
  289. Hero1:
  290. DATA 111111111111111111111111111111
  291. DATA 111111111111111111111111111111
  292. DATA 111122222222222111111111111111
  293. DATA 111122222222222111111111111111
  294. DATA 111122222222222222211111111111
  295. DATA 111122222222222222211111111111
  296. DATA 222222222222222222211111111111
  297. DATA 222222222222222222211111111111
  298. DATA 222222222222222222222222221111
  299. DATA 222222222222222222222222221111
  300. DATA 222222222222222222222222221111
  301. DATA 222222222222222222222222221111
  302. DATA 222222222222222222222222221111
  303. DATA 111133333333333333333311111111
  304. DATA 111133333333333333333311111111
  305. DATA 111133333333333333333333331111
  306. DATA 111133333333333333333333331111
  307. DATA 111111113333333333333311111111
  308. DATA 111111113333333333333311111111
  309. DATA 111144444444444444444411111111
  310. DATA 111144444444444444444411111111
  311. DATA 111144411114444444444444441111
  312. DATA 111144411114444444444444441111
  313. DATA 111144411114444444444444441111
  314. DATA 111144411111111444444444441111
  315. DATA 111144444441111444444444441111
  316. DATA 111144444441111111144444441111
  317. DATA 111144444444444111144444441111
  318. DATA 111144444444444111144444441111
  319. DATA 111144444444444444444444441111
  320. DATA 111111115555555111155555551111
  321. DATA 111111115555555111155555551111
  322. DATA 111111115555555111155555551111
  323. DATA 111111115555555111155555551111
  324. DATA 555555555555555555555555555555
  325. DATA 555555555555555555555555555555
  326.  
  327. Hero2:
  328. DATA 111122222222222111111111111111
  329. DATA 111122222222222111111111111111
  330. DATA 111122222222222222111111111111
  331. DATA 111122222222222222111111111111
  332. DATA 222222222222222222111111111111
  333. DATA 222222222222222222111111111111
  334. DATA 222222222222222222222222221111
  335. DATA 222222222222222222222222221111
  336. DATA 222222222222222222222222221111
  337. DATA 222222222222222222222222221111
  338. DATA 222222222222222222222222221111
  339. DATA 111133333333333333333311111111
  340. DATA 111133333333333333333311111111
  341. DATA 111133333333333333333333331111
  342. DATA 111133333333333333333333331111
  343. DATA 111111133333333333333311111111
  344. DATA 111111133333333333333311111111
  345. DATA 111144444444444444444411111111
  346. DATA 111144444444444444444411111111
  347. DATA 111144411114444444444444441111
  348. DATA 111144411114444444444444441111
  349. DATA 111144411111111444444444441111
  350. DATA 111144411111111444444444441111
  351. DATA 111144444444441111444444441111
  352. DATA 111144444444441111444444441111
  353. DATA 111144444444444444444444441111
  354. DATA 111144444444444444444444441111
  355. DATA 111144444444444444444444441111
  356. DATA 111111111115555555555511111111
  357. DATA 111111111115555555555511111111
  358. DATA 111111111115555555555511111111
  359. DATA 111111111115555555555511111111
  360. DATA 111111111115555555555511111111
  361. DATA 111111111115555555555511111111
  362. DATA 555555555555555555555555555555
  363. DATA 555555555555555555555555555555
  364.  
  365. Hero3:
  366. DATA 111112222222222211111111111111
  367. DATA 111112222222222211111111111111
  368. DATA 111112222222222222221111111111
  369. DATA 111112222222222222221111111111
  370. DATA 122222222222222222221111111111
  371. DATA 122222222222222222221111111111
  372. DATA 122222222222222222222222222111
  373. DATA 122222222222222222222222222111
  374. DATA 122222222222222222222222222111
  375. DATA 122222222222222222222222222111
  376. DATA 133333333333333333333333333111
  377. DATA 133333333333333333333333333111
  378. DATA 111113333333333333333333333111
  379. DATA 111113333333333333333333111111
  380. DATA 111111113333333333333333111111
  381. DATA 111114444444444444444444111111
  382. DATA 111114444444444444444444111111
  383. DATA 111114444111444444444444444411
  384. DATA 111114444111444444444444444411
  385. DATA 111114444111111111111111444411
  386. DATA 111114444111111111111111444411
  387. DATA 111114444444444444444444444411
  388. DATA 111114444444444444444444444411
  389. DATA 111114444444444444444444444411
  390. DATA 111114444444444444444444444411
  391. DATA 111111111111555551115555111111
  392. DATA 111115555555555555555555555511
  393. DATA 111115555555555555555555555511
  394. DATA 111115555555555555555555555511
  395. DATA 111111111111111111111111111111
  396. DATA 111111111111111111111111111111
  397. DATA 111111111111111111111111111111
  398. DATA 111111111111111111111111111111
  399. DATA 111111111111111111111111111111
  400. DATA 111111111111111111111111111111
  401. DATA 111111111111111111111111111111
  402.  
  403. Hero4:
  404. DATA 111111111111111111111111111111
  405. DATA 111111111111111111111111111111
  406. DATA 111111111111222222111111111111
  407. DATA 111111111222222222222111111111
  408. DATA 111111111222222222222111111111
  409. DATA 111111111222222222222111111111
  410. DATA 111111111222222222222111111111
  411. DATA 111111111222222222222111111111
  412. DATA 111222222222222222222222221111
  413. DATA 111222222222222222222222221111
  414. DATA 111222222222222222222222221111
  415. DATA 111222222222222222222222221111
  416. DATA 111222222222222222222222221111
  417. DATA 111111333333333333333331111111
  418. DATA 111111333333333333333331111111
  419. DATA 111111333333333333333331111111
  420. DATA 111111333333333333333331111111
  421. DATA 111111333333111113333331111111
  422. DATA 111111333333111113333331111111
  423. DATA 111111333333333333333334441111
  424. DATA 111111111444444444444114441111
  425. DATA 111114444444444444444114441111
  426. DATA 111444444444111444444114441111
  427. DATA 111444444444111444444444441111
  428. DATA 111444444444444444444444441111
  429. DATA 111444444444444444444444441111
  430. DATA 111444111444444444444444441111
  431. DATA 111444111444111444444441111111
  432. DATA 111444111444111444444441111111
  433. DATA 111444111444444444444441111111
  434. DATA 111111111555555555555111111111
  435. DATA 111111111555555555555111111111
  436. DATA 111111111555555555555111111111
  437. DATA 111111111555111115555111111111
  438. DATA 111555555555555555555555551111
  439. DATA 111555555555555555555555551111
  440.  
  441. BirdPalette:
  442. DATA 2,0,4286877948
  443.  
  444. Bird1:
  445. DATA 111111111111111111111111111111
  446. DATA 111111111111111111111122211111
  447. DATA 111111111111111111111122211111
  448. DATA 111111111111111111222222222211
  449. DATA 111111111111111111222222222211
  450. DATA 122222222222222222222211111111
  451. DATA 122222222222222222222211111111
  452. DATA 111122222222222222111111111111
  453. DATA 111111122222222222111111111111
  454. DATA 111111122222221111111111111111
  455. DATA 111122222222221111111111111111
  456. DATA 111122222221111111111111111111
  457. DATA 122222222221111111111111111111
  458. DATA 122222221111111111111111111111
  459. DATA 122222221111111111111111111111
  460.  
  461. Bird2:
  462. DATA 111111111111111111111111111111
  463. DATA 122222222222111111112222111111
  464. DATA 122222222222111111112222111111
  465. DATA 111111111222222211112222222211
  466. DATA 111111111222222211112222222211
  467. DATA 111111111222222211112222222211
  468. DATA 122222222222222222222222111111
  469. DATA 122222222222222222222222111111
  470. DATA 111112222222222222221111111111
  471. DATA 111112222222222222221111111111
  472. DATA 111112222222222222221111111111
  473. DATA 111111111222222211111111111111
  474. DATA 111111111222222211111111111111
  475. DATA 111112222111111111111111111111
  476. DATA 111112222111111111111111111111
  477.  
  478. FishPalette:
  479. DATA 2,0,4285518447
  480.  
  481. Fish1:
  482. DATA 111111111111111111111111111111
  483. DATA 111111111111111111111111111111
  484. DATA 122221111122222222221111111111
  485. DATA 122221111122222222221111111111
  486. DATA 122222221111122222222221111111
  487. DATA 122222222222222222222222221111
  488. DATA 111122222222222222221122221111
  489. DATA 111111112222222222222222221111
  490. DATA 111111112222222222222222221111
  491. DATA 111111112222222222222222221111
  492. DATA 111122222222222222222221111111
  493. DATA 122222222222222222222222221111
  494. DATA 122222221111122222222222221111
  495. DATA 122221111122222222221111111111
  496. DATA 122221111122222222221111111111
  497.  
  498. Fish2:
  499. DATA 111111111111111111111111111111
  500. DATA 111111111111111111111111111111
  501. DATA 111111111111122222111111111111
  502. DATA 111111111111122222111111111111
  503. DATA 222222211122222222222211111111
  504. DATA 222222222222222222222222211111
  505. DATA 222222222222222222111222211111
  506. DATA 111111222222222222222222211111
  507. DATA 111111222222222222222222211111
  508. DATA 111111222222222222222222211111
  509. DATA 222222222222222222222222211111
  510. DATA 222222222222222222222222211111
  511. DATA 222222211122222222222211111111
  512. DATA 111111111111122222111111111111
  513. DATA 111111111111122222111111111111
  514.  
  515. '------------------------------------------------------------------------------
  516. 'Subprocedures start here:
  517. '------------------------------------------------------------------------------
  518. SUB NewLevelPause
  519.     IF InGame THEN EXIT SUB
  520.     IF NewLevelSet <> 0 THEN
  521.         IF TIMER - NewLevelSet > 1 THEN
  522.             InGame = True
  523.             TIMER(TempTimer) ON
  524.             NewLevelSet = 0
  525.         END IF
  526.     END IF
  527.  
  528. '------------------------------------------------------------------------------
  529. SUB ComposeScenery
  530.     STATIC TemperatureBlink AS INTEGER
  531.  
  532.     'Game layers: Background, Aurora, Credits (bottom line)
  533.     _PUTIMAGE , GameBG, GameScreen
  534.     _PUTIMAGE (0, SkyH - AuroraH / 2), ThisAurora, GameScreen
  535.     _PUTIMAGE (0, _HEIGHT(GameScreen) - CreditsBarH), CreditsIMG, GameScreen, (0, CreditY)-STEP(_WIDTH(CreditsIMG), CreditsBarH)
  536.  
  537.     'Score, temperature and lives:
  538.     COLOR _RGB32(126, 148, 254), _RGBA32(0, 0, 0, 0)
  539.     _PRINTSTRING (72 - (LEN(TRIM$(Score)) * _FONTWIDTH), 2), TRIM$(Score)
  540.  
  541.     SELECT CASE Temperature
  542.         CASE 1 TO 5
  543.             TemperatureBlink = TemperatureBlink + 1
  544.             SELECT CASE TemperatureBlink
  545.                 CASE 7 TO 14
  546.                     IF NOT LevelComplete AND NOT GameOver THEN
  547.                         COLOR _RGBA32(0, 0, 0, 0), _RGBA32(0, 0, 0, 0)
  548.                     END IF
  549.                 CASE 15
  550.                     TemperatureBlink = 0
  551.             END SELECT
  552.         CASE ELSE
  553.             TemperatureBlink = 0
  554.     END SELECT
  555.     _PRINTSTRING (40 - (LEN(TRIM$(Temperature)) * _FONTWIDTH), 14), TRIM$(Temperature) + CHR$(248)
  556.  
  557.     IF Lives > 0 THEN _PRINTSTRING (72 - (LEN(TRIM$(Lives)) * _FONTWIDTH), 14), TRIM$(Lives)
  558.  
  559.     '$IF INTERNALBUILD = TRUE THEN
  560.     '    'Variable watch on screen, for debugging purposes:
  561.     '    COLOR _RGB32(0, 0, 0), _RGBA32(255, 255, 255, 200)
  562.     '    i = 0
  563.     '    crd$ = "Frames=" + TRIM$(Frames) + " FPS=" + TRIM$(_CEIL(Frames / (TIMER - RunStart))): _PRINTSTRING (_WIDTH - (LEN(crd$) * _FONTWIDTH), i), crd$
  564.  
  565.     '    i = i + 8
  566.     '    crd$ = "ThisLevel=" + TRIM$(ThisLevel): _PRINTSTRING (_WIDTH - (LEN(crd$) * _FONTWIDTH), i), crd$
  567.  
  568.     '    i = i + 8
  569.     '    crd$ = "ActualLevel=" + TRIM$(ActualLevel): _PRINTSTRING (_WIDTH - (LEN(crd$) * _FONTWIDTH), i), crd$
  570.  
  571.     '    i = i + 8
  572.     '    crd$ = "PointsInThisLevel=" + TRIM$(PointsInThisLevel): _PRINTSTRING (_WIDTH - (LEN(crd$) * _FONTWIDTH), i), crd$
  573.  
  574.     '    'FOR j = 1 TO 4
  575.     '    '    i = i + 8
  576.     '    '    crd$ = "Creatures(" + TRIM$(j) + ").species=" + TRIM$(Creatures(j).Species): _PRINTSTRING (_WIDTH - (LEN(crd$) * _FONTWIDTH), i), crd$
  577.     '    'NEXT j
  578.     '$END IF
  579.  
  580.  
  581. '------------------------------------------------------------------------------
  582. SUB DrawIgloo
  583.     DIM IglooBlink AS _BIT
  584.     DIM IglooDoorColor AS _UNSIGNED LONG
  585.  
  586.     IF IglooPieces = 0 THEN EXIT SUB
  587.  
  588.     SELECT EVERYCASE IglooPieces
  589.         CASE IS > 0
  590.             LINE (232, 57)-STEP(32, -9), IglooBlockColor, BF
  591.         CASE IS > 1
  592.             LINE (264, 57)-STEP(32, -9), IglooBlockColor, BF
  593.         CASE IS > 2
  594.             LINE (296, 57)-STEP(32, -9), IglooBlockColor, BF
  595.         CASE IS > 3
  596.             LINE (328, 57)-STEP(32, -9), IglooBlockColor, BF
  597.         CASE IS > 4
  598.             LINE (328, 48)-STEP(32, -9), IglooBlockColor, BF
  599.         CASE IS > 5
  600.             LINE (296, 48)-STEP(32, -9), IglooBlockColor, BF
  601.         CASE IS > 6
  602.             LINE (264, 48)-STEP(32, -9), IglooBlockColor, BF
  603.         CASE IS > 7
  604.             LINE (232, 48)-STEP(32, -9), IglooBlockColor, BF
  605.         CASE IS > 8
  606.             LINE (232, 39)-STEP(32, -9), IglooBlockColor, BF
  607.         CASE IS > 9
  608.             LINE (264, 39)-STEP(32, -9), IglooBlockColor, BF
  609.         CASE IS > 10
  610.             LINE (296, 39)-STEP(32, -9), IglooBlockColor, BF
  611.         CASE IS > 11
  612.             LINE (328, 39)-STEP(32, -9), IglooBlockColor, BF
  613.         CASE IS > 12
  614.             LINE (248, 31)-STEP(49, -9), IglooBlockColor, BF
  615.         CASE IS > 13
  616.             LINE (297, 31)-STEP(49, -9), IglooBlockColor, BF
  617.         CASE IS > 14
  618.             LINE (265, 25)-STEP(65, -9), IglooBlockColor, BF
  619.         CASE IS > 15
  620.             IglooDoorColor = _RGB32(0, 0, 0)
  621.             IF TimeOfDay = NIGHT THEN
  622.                 RANDOMIZE TIMER
  623.                 IglooBlink = _CEIL(RND * 2) - 2
  624.                 IF IglooBlink THEN
  625.                     IglooDoorColor = LightInsideColor
  626.                 END IF
  627.             END IF
  628.             LINE (276, 57)-STEP(35, -16), IglooDoorColor, BF
  629.             LINE (281, 43)-STEP(25, -5), IglooDoorColor, BF
  630.     END SELECT
  631.  
  632. '------------------------------------------------------------------------------
  633. SUB MoveIceBlocks
  634.     DIM i AS INTEGER
  635.     DIM j AS INTEGER
  636.     DIM x AS INTEGER
  637.     DIM x.m AS INTEGER
  638.     DIM BlockLines AS INTEGER
  639.  
  640.     'Ice blocks:
  641.     FOR i = 1 TO 4
  642.         IF NOT IceRow(i).State THEN ThisRowColor = UnsteppedBlockColor ELSE ThisRowColor = SteppedBlockColor
  643.  
  644.         IF InGame AND Hero.Action <> DROWNING AND Hero.Action <> FREEZING AND Hero.Action <> EATINGFISH AND NOT LevelComplete THEN
  645.             IceRow(i).Position = IceRow(i).Position + Levels(PointsInThisLevel).Speed * IceRow(i).Direction
  646.             IF IceRow(i).Direction = MOVINGRIGHT THEN
  647.                 IF IceRow(i).Position >= _WIDTH(GameScreen) THEN
  648.                     IceRow(i).Position = 0
  649.                     IceRow(i).MirroredPosition = 0
  650.                 END IF
  651.             END IF
  652.             IF IceRow(i).Direction = MOVINGLEFT THEN
  653.                 IF IceRow(i).Position < -RowWidth THEN
  654.                     IceRow(i).Position = _WIDTH(GameScreen) - 1 - RowWidth
  655.                     IceRow(i).MirroredPosition = 0
  656.                 END IF
  657.             END IF
  658.         END IF
  659.  
  660.         x = IceRow(i).Position
  661.  
  662.         SELECT CASE Levels(ActualLevel).BlockType
  663.             CASE SINGLEBLOCK
  664.                 'Draw normal blocks
  665.                 FOR j = -8 TO 8
  666.                     BlockLines = j + _CEIL(RND(j) * 6)
  667.                     LINE (x + BlockLines, IceRows(i) - j)-STEP(HeroWidth * 2, 0), ThisRowColor
  668.                     LINE (x + BlockLines + HeroWidth * 3.5, IceRows(i) - j)-STEP(HeroWidth * 2, 0), ThisRowColor
  669.                     LINE (x + BlockLines + HeroWidth * 7, IceRows(i) - j)-STEP(HeroWidth * 2, 0), ThisRowColor
  670.                 NEXT j
  671.  
  672.                 IF IceRow(i).Direction = MOVINGLEFT THEN
  673.                     IF IceRow(i).Position < 0 THEN
  674.                         IceRow(i).MirroredPosition = _WIDTH(GameScreen) + IceRow(i).Position
  675.                     END IF
  676.                 ELSE
  677.                     IF IceRow(i).Position + HeroWidth * 7 + HeroWidth * 2 > _WIDTH(GameScreen) THEN
  678.                         IceRow(i).MirroredPosition = -_WIDTH(GameScreen) + IceRow(i).Position
  679.                     END IF
  680.                 END IF
  681.  
  682.                 'Draw mirrored blocks
  683.                 IF IceRow(i).MirroredPosition THEN
  684.                     x = IceRow(i).MirroredPosition
  685.                     FOR j = -8 TO 8
  686.                         BlockLines = j + _CEIL(RND(j) * 6)
  687.                         LINE (x + BlockLines, IceRows(i) - j)-STEP(HeroWidth * 2, 0), ThisRowColor
  688.                         LINE (x + BlockLines + HeroWidth * 3.5, IceRows(i) - j)-STEP(HeroWidth * 2, 0), ThisRowColor
  689.                         LINE (x + BlockLines + HeroWidth * 7, IceRows(i) - j)-STEP(HeroWidth * 2, 0), ThisRowColor
  690.                     NEXT j
  691.                 END IF
  692.             CASE DOUBLEBLOCK
  693.                 'Draw normal blocks
  694.                 FOR j = -8 TO 8
  695.                     BlockLines = j + _CEIL(RND(j) * 6)
  696.                     LINE (x + BlockLines, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  697.                     LINE (x + BlockLines + HeroWidth * 1.5, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  698.                     LINE (x + BlockLines + HeroWidth * 3, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  699.                     LINE (x + BlockLines + HeroWidth * 4.5, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  700.                     LINE (x + BlockLines + HeroWidth * 6, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  701.                     LINE (x + BlockLines + HeroWidth * 7.5, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  702.                 NEXT j
  703.  
  704.                 IF IceRow(i).Direction = MOVINGLEFT THEN
  705.                     IF IceRow(i).Position < 0 THEN
  706.                         IceRow(i).MirroredPosition = _WIDTH(GameScreen) + IceRow(i).Position
  707.                     END IF
  708.                 ELSE
  709.                     IF IceRow(i).Position + HeroWidth * 7 + HeroWidth * 2 > _WIDTH(GameScreen) THEN
  710.                         IceRow(i).MirroredPosition = -_WIDTH(GameScreen) + IceRow(i).Position
  711.                     END IF
  712.                 END IF
  713.  
  714.                 'Draw mirrored blocks
  715.                 IF IceRow(i).MirroredPosition THEN
  716.                     x = IceRow(i).MirroredPosition
  717.                     FOR j = -8 TO 8
  718.                         BlockLines = j + _CEIL(RND(j) * 6)
  719.                         LINE (x + BlockLines, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  720.                         LINE (x + BlockLines + HeroWidth * 1.5, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  721.                         LINE (x + BlockLines + HeroWidth * 3, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  722.                         LINE (x + BlockLines + HeroWidth * 4.5, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  723.                         LINE (x + BlockLines + HeroWidth * 6, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  724.                         LINE (x + BlockLines + HeroWidth * 7.5, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  725.                     NEXT j
  726.                 END IF
  727.             CASE MOVINGBLOCK
  728.                 'Draw normal blocks
  729.                 FOR j = -8 TO 8
  730.                     BlockLines = j + _CEIL(RND(j) * 6)
  731.                     LINE (x + BlockLines + SpaceBetween, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  732.                     LINE (x + BlockLines + HeroWidth * 1.5 - SpaceBetween, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  733.                     LINE (x + BlockLines + HeroWidth * 3 + SpaceBetween, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  734.                     LINE (x + BlockLines + HeroWidth * 4.5 - SpaceBetween, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  735.                     LINE (x + BlockLines + HeroWidth * 6 + SpaceBetween, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  736.                     LINE (x + BlockLines + HeroWidth * 7.5 - SpaceBetween, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  737.                 NEXT j
  738.  
  739.                 IF IceRow(i).Direction = MOVINGLEFT THEN
  740.                     IF IceRow(i).Position < 0 THEN
  741.                         IceRow(i).MirroredPosition = _WIDTH(GameScreen) + IceRow(i).Position
  742.                     END IF
  743.                 ELSE
  744.                     IF IceRow(i).Position + HeroWidth * 7 + HeroWidth * 2 > _WIDTH(GameScreen) THEN
  745.                         IceRow(i).MirroredPosition = -_WIDTH(GameScreen) + IceRow(i).Position
  746.                     END IF
  747.                 END IF
  748.  
  749.                 'Draw mirrored blocks
  750.                 IF IceRow(i).MirroredPosition THEN
  751.                     x = IceRow(i).MirroredPosition
  752.                     FOR j = -8 TO 8
  753.                         BlockLines = j + _CEIL(RND(j) * 6)
  754.                         LINE (x + BlockLines + SpaceBetween, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  755.                         LINE (x + BlockLines + HeroWidth * 1.5 - SpaceBetween, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  756.                         LINE (x + BlockLines + HeroWidth * 3 + SpaceBetween, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  757.                         LINE (x + BlockLines + HeroWidth * 4.5 - SpaceBetween, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  758.                         LINE (x + BlockLines + HeroWidth * 6 + SpaceBetween, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  759.                         LINE (x + BlockLines + HeroWidth * 7.5 - SpaceBetween, IceRows(i) - j)-STEP(HeroWidth, 0), ThisRowColor
  760.                     NEXT j
  761.                 END IF
  762.         END SELECT
  763.     NEXT i
  764.  
  765. '------------------------------------------------------------------------------
  766. SUB MoveCreatures
  767.     DIM i AS INTEGER
  768.     DIM X AS INTEGER
  769.     STATIC Floating AS SINGLE
  770.     STATIC FloatStep AS SINGLE
  771.  
  772.     IF NOT InGame THEN EXIT SUB
  773.  
  774.     IF FloatStep = 0 THEN FloatStep = .1
  775.  
  776.     'Four rows of creatures:
  777.     FOR i = 1 TO 4
  778.         IF Hero.Action <> DROWNING AND Hero.Action <> FREEZING AND Hero.Action <> EATINGFISH AND NOT LevelComplete THEN
  779.             IF Hero.Grabbed AND i = Hero.CurrentRow THEN
  780.                 IF Creatures(i).Direction = MOVINGRIGHT THEN
  781.                     IF Creatures(i).X < _WIDTH(GameScreen) - CreatureWidth(Creatures(i).Species) THEN
  782.                         Creatures(i).X = Creatures(i).X + (Levels(PointsInThisLevel).Speed * Creatures(i).Direction) + Creatures(i).Direction
  783.                     END IF
  784.                 ELSEIF Creatures(i).Direction = MOVINGLEFT THEN
  785.                     IF Creatures(i).X > 0 THEN
  786.                         Creatures(i).X = Creatures(i).X + (Levels(PointsInThisLevel).Speed * Creatures(i).Direction) + Creatures(i).Direction
  787.                     END IF
  788.                 END IF
  789.             ELSE
  790.                 Creatures(i).X = Creatures(i).X + (Levels(PointsInThisLevel).Speed * Creatures(i).Direction) + Creatures(i).Direction
  791.             END IF
  792.  
  793.             Floating = Floating + FloatStep
  794.             IF Floating > HeroHeight / 4 THEN FloatStep = -.1
  795.             IF Floating <= 0 THEN FloatStep = .1
  796.  
  797.             'Birds fly linearly. Other creatures are in water, and so they float:
  798.             IF Creatures(i).Species <> BIRD THEN Creatures(i).Y = Creatures(i).Y + FloatStep
  799.  
  800.             'Once the creature row leaves screen, it is reset:
  801.             IF Creatures(i).Direction = MOVINGRIGHT THEN
  802.                 IF Creatures(i).X >= _WIDTH(GameScreen) THEN
  803.                     Creatures(i).Species = 0
  804.                 END IF
  805.             END IF
  806.             IF Creatures(i).Direction = MOVINGLEFT THEN
  807.                 IF Creatures(i).X < -Creatures(i).RowWidth THEN
  808.                     Creatures(i).Species = 0
  809.                 END IF
  810.             END IF
  811.         END IF
  812.  
  813.         'if a creature has not yet been set (or just been cleared) for this row,
  814.         'we'll generate a new one:
  815.         IF Creatures(i).Species = 0 THEN MakeCreature i
  816.  
  817.         X = Creatures(i).X
  818.  
  819.         'IF X < -Creatures(i).RowWidth THEN EXIT SUB
  820.  
  821.         SELECT CASE Creatures(i).Species
  822.             CASE BIRD: CreatureSprite = BirdSprites(Creatures(i).Frame)
  823.             CASE FISH: CreatureSprite = FishSprites(Creatures(i).Frame)
  824.             CASE CRAB: CreatureSprite = 0: text$ = "CRAB"
  825.             CASE CLAM: CreatureSprite = 0: text$ = "CLAM"
  826.         END SELECT
  827.  
  828.         'First creature in row is always drawn at the same position:
  829.         IF Creatures(i).State AND FIRST THEN
  830.             IF CreatureSprite < -1 THEN
  831.                 IF Creatures(i).Direction = MOVINGRIGHT THEN
  832.                     _PUTIMAGE (X, Creatures(i).Y), CreatureSprite, GameScreen, (0, IIF(Creatures(i).Species <> BIRD, -Floating, 0))-STEP(_WIDTH(CreatureSprite), _HEIGHT(CreatureSprite))
  833.                 ELSE
  834.                     _PUTIMAGE (X + CreatureWidth(Creatures(i).Species), Creatures(i).Y)-STEP(-CreatureWidth(Creatures(i).Species) - 1, _HEIGHT(CreatureSprite) - 1), CreatureSprite, GameScreen, (0, IIF(Creatures(i).Species <> BIRD, -Floating, 0))-STEP(_WIDTH(CreatureSprite), _HEIGHT(CreatureSprite))
  835.                 END IF
  836.             ELSE
  837.                 LINE (X, Creatures(i).Y)-STEP(CreatureWidth(Creatures(i).Species), 8), _RGB32(255, 0, 0), BF
  838.                 _PRINTSTRING (X, Creatures(i).Y), text$
  839.             END IF
  840.         END IF
  841.  
  842.         'Second creature in row (position will be affected by Creatures().Spacing):
  843.         IF Creatures(i).Number > 1 AND (Creatures(i).State AND SECOND) THEN
  844.             IF CreatureSprite < -1 THEN
  845.                 IF Creatures(i).Direction = MOVINGRIGHT THEN
  846.                     _PUTIMAGE (X + CreatureWidth(Creatures(i).Species) + Creatures(i).Spacing, Creatures(i).Y), CreatureSprite, GameScreen, (0, IIF(Creatures(i).Species <> BIRD, -Floating, 0))-STEP(_WIDTH(CreatureSprite), _HEIGHT(CreatureSprite))
  847.                 ELSE
  848.                     _PUTIMAGE (X + CreatureWidth(Creatures(i).Species) + Creatures(i).Spacing + CreatureWidth(Creatures(i).Species), Creatures(i).Y)-STEP(-CreatureWidth(Creatures(i).Species) - 1, _HEIGHT(CreatureSprite) - 1), CreatureSprite, GameScreen, (0, IIF(Creatures(i).Species <> BIRD, -Floating, 0))-STEP(_WIDTH(CreatureSprite), _HEIGHT(CreatureSprite))
  849.                 END IF
  850.             ELSE
  851.                 LINE (X + CreatureWidth(Creatures(i).Species) + Creatures(i).Spacing, Creatures(i).Y)-STEP(CreatureWidth(Creatures(i).Species), 8), _RGB32(255, 0, 0), BF
  852.                 _PRINTSTRING (X + CreatureWidth(Creatures(i).Species) + Creatures(i).Spacing, Creatures(i).Y), text$
  853.             END IF
  854.         END IF
  855.  
  856.         'Third creature in row (always at the same spot)
  857.         IF Creatures(i).Number = 3 AND (Creatures(i).State AND THIRD) THEN
  858.             IF CreatureSprite < -1 THEN
  859.                 IF Creatures(i).Direction = MOVINGRIGHT THEN
  860.                     _PUTIMAGE (X + CreatureWidth(Creatures(i).Species) * 2 + Creatures(i).Spacing * 2, Creatures(i).Y), CreatureSprite, GameScreen, (0, IIF(Creatures(i).Species <> BIRD, -Floating, 0))-STEP(_WIDTH(CreatureSprite), _HEIGHT(CreatureSprite))
  861.                 ELSE
  862.                     _PUTIMAGE (X + CreatureWidth(Creatures(i).Species) * 2 + Creatures(i).Spacing * 2 + CreatureWidth(Creatures(i).Species), Creatures(i).Y)-STEP(-CreatureWidth(Creatures(i).Species) - 1, _HEIGHT(CreatureSprite) - 1), CreatureSprite, GameScreen, (0, IIF(Creatures(i).Species <> BIRD, -Floating, 0))-STEP(_WIDTH(CreatureSprite), _HEIGHT(CreatureSprite))
  863.                 END IF
  864.             ELSE
  865.                 LINE (X + CreatureWidth(Creatures(i).Species) * 2 + Creatures(i).Spacing * 2, Creatures(i).Y)-STEP(CreatureWidth(Creatures(i).Species), 8), _RGB32(255, 0, 0), BF
  866.                 _PRINTSTRING (X + CreatureWidth(Creatures(i).Species) * 2 + Creatures(i).Spacing * 2, Creatures(i).Y), text$
  867.             END IF
  868.         END IF
  869.     NEXT i
  870.  
  871. '------------------------------------------------------------------------------
  872. SUB MakeCreature (RowNumber)
  873.     'Randomly selects a new creature from the current level's array
  874.     DIM NewCreature AS INTEGER
  875.  
  876.     NewCreature = _CEIL(RND * MaxLevelCreatures)
  877.     Creatures(RowNumber).Species = ThisLevelCreatures(NewCreature)
  878.  
  879.     DO
  880.         Creatures(RowNumber).Direction = INT(RND * 3) - 1
  881.     LOOP WHILE Creatures(RowNumber).Direction = 0
  882.  
  883.     IF ActualLevel <= 2 THEN
  884.         Creatures(RowNumber).Number = ActualLevel
  885.     ELSE
  886.         Creatures(RowNumber).Number = _CEIL(RND * 3)
  887.     END IF
  888.  
  889.     SELECT CASE Creatures(RowNumber).Number
  890.         CASE 2: Creatures(RowNumber).Spacing = HeroWidth * 2.5
  891.         CASE 3: Creatures(RowNumber).Spacing = HeroWidth * 1
  892.     END SELECT
  893.  
  894.     Creatures(RowNumber).RowWidth = (Creatures(RowNumber).Spacing + CreatureWidth(Creatures(RowNumber).Species) * Creatures(RowNumber).Number)
  895.  
  896.     SELECT CASE Creatures(RowNumber).Direction
  897.         CASE MOVINGRIGHT
  898.             Creatures(RowNumber).X = -Creatures(RowNumber).RowWidth - _CEIL(RND * 100)
  899.         CASE MOVINGLEFT
  900.             Creatures(RowNumber).X = _WIDTH(GameScreen) + _CEIL(RND * 100)
  901.     END SELECT
  902.  
  903.     IF Creatures(RowNumber).Species = BIRD THEN
  904.         Creatures(RowNumber).Y = IceRows(RowNumber) - HeroHeight + 6
  905.     ELSE
  906.         Creatures(RowNumber).Y = IceRows(RowNumber) - HeroHeight + 6
  907.     END IF
  908.  
  909.     'Make all creatures in row visible:
  910.     Creatures(RowNumber).State = 0 XOR FIRST XOR SECOND XOR THIRD
  911.     Creatures(RowNumber).Frame = 1
  912.  
  913. '------------------------------------------------------------------------------
  914. SUB MoveHero
  915.     'Hero:
  916.     IF InGame THEN
  917.  
  918.         IF NOT Hero.Grabbed THEN
  919.             Hero.X = Hero.X + Hero.Direction * 3
  920.             IF Hero.CurrentRow > 0 AND (Hero.Action = STOPPED OR Hero.Action = WALKING) THEN
  921.                 Hero.X = Hero.X + IceRow(Hero.CurrentRow).Direction * Levels(PointsInThisLevel).Speed
  922.             END IF
  923.         ELSE
  924.             IF (Hero.Action = STOPPED OR Hero.Action = WALKING) AND Hero.Action <> EATINGFISH THEN
  925.                 Hero.X = Hero.X + Creatures(Hero.CurrentRow).Direction * Levels(PointsInThisLevel).Speed + Creatures(Hero.CurrentRow).Direction
  926.             END IF
  927.         END IF
  928.  
  929.         'Hero can't go past a certain point to the left of the screen if WALKING.
  930.         'However, if he jumps from an ice block, he can stand there:
  931.         'IF Hero.CurrentRow = 0 AND Hero.Action = WALKING AND Hero.Direction = MOVINGLEFT THEN
  932.         '    IF Hero.X > HeroWidth + 3 THEN
  933.         '        Hero.X = Hero.X + Hero.Direction * 3
  934.         '    END IF
  935.         'ELSEIF Hero.CurrentRow = 0 AND Hero.Action = WALKING AND Hero.Direction = MOVINGRIGHT THEN
  936.         'ELSEIF Hero.Action = JUMPINGUP OR Hero.Action = JUMPINGDOWN THEN
  937.         'END IF
  938.  
  939.         SELECT CASE Hero.Action
  940.             CASE JUMPINGUP
  941.                 IF Hero.CurrentRow = 0 THEN Hero.Action = WALKING ELSE AnimationStep = AnimationStep + 1
  942.                 SELECT CASE AnimationStep
  943.                     CASE 1 TO 6
  944.                         Hero.Y = Hero.Y - 8
  945.                         Hero.Frame = 3
  946.                     CASE 10 TO 12
  947.                         Hero.Y = Hero.Y + 3
  948.                         Hero.Frame = 1
  949.                     CASE 13
  950.                         Hero.CurrentRow = Hero.CurrentRow - 1
  951.                         JustLanded = True
  952.                         Hero.Action = STOPPED: Hero.Direction = Hero.Action
  953.                 END SELECT
  954.             CASE JUMPINGDOWN
  955.                 IF Hero.CurrentRow = 4 THEN Hero.Action = WALKING ELSE AnimationStep = AnimationStep + 1
  956.                 SELECT CASE AnimationStep
  957.                     CASE 1 TO 3
  958.                         Hero.Y = Hero.Y - 3
  959.                         Hero.Frame = 3
  960.                     CASE 7 TO 12
  961.                         Hero.Y = Hero.Y + 8
  962.                         Hero.Frame = 1
  963.                     CASE 13
  964.                         Hero.CurrentRow = Hero.CurrentRow + 1
  965.                         JustLanded = True
  966.                         Hero.Action = STOPPED: Hero.Direction = Hero.Action
  967.                 END SELECT
  968.             CASE ENTERINGIGLOO
  969.                 AnimationStep = AnimationStep + 1
  970.                 SELECT CASE AnimationStep
  971.                     CASE 1 TO 6
  972.                         Hero.Y = Hero.Y - 8
  973.                         Hero.Frame = 3
  974.                         _PUTIMAGE (Hero.X, Hero.Y - HeroHeight + AnimationStep)-STEP(HeroWidth, HeroHeight - AnimationStep), HeroSprites(Hero.Frame), GameScreen, (0, 0 + AnimationStep * 6)-(HeroWidth, HeroHeight)
  975.                     CASE 20
  976.                         LevelComplete = True
  977.                 END SELECT
  978.             CASE DROWNING
  979.                 AnimationStep = AnimationStep + 1
  980.                 SELECT CASE AnimationStep
  981.                     CASE 1 TO 5, 11 TO 15, 21 TO 25, 30 TO 35
  982.                         _PUTIMAGE (Hero.X, Hero.Y - HeroHeight + AnimationStep)-STEP(HeroWidth, HeroHeight - AnimationStep), HeroSprites(Hero.Frame), GameScreen, (0, 0)-(HeroWidth, HeroHeight - AnimationStep)
  983.                     CASE 6 TO 10, 16 TO 20, 26 TO 29
  984.                         _PUTIMAGE (Hero.X + HeroWidth, Hero.Y - HeroHeight + AnimationStep)-STEP(-HeroWidth, HeroHeight - AnimationStep), HeroSprites(Hero.Frame), GameScreen, (0, 0)-(HeroWidth, HeroHeight - AnimationStep)
  985.                     CASE 36
  986.                         IF Lives <= -1 THEN
  987.                             GameOver = True
  988.                             InGame = False
  989.                         ELSE
  990.                             TIMER(TempTimer) ON
  991.                             SetLevel ThisLevel
  992.                         END IF
  993.                 END SELECT
  994.             CASE FREEZING
  995.                 AnimationStep = AnimationStep + 1
  996.                 'Recolor the hero sprite to show it's freezing
  997.                 _DEST HeroFreezingSprite
  998.                 FOR i = 0 TO _WIDTH(HeroFreezingSprite) - 1
  999.                     IF AnimationStep >= _HEIGHT(HeroFreezingSprite) THEN EXIT FOR
  1000.                     IF POINT(i, AnimationStep) <> _RGBA32(0, 0, 0, 0) THEN
  1001.                         PSET (i, AnimationStep), _RGB32(0, 150 - AnimationStep * 3, 219 + AnimationStep)
  1002.                     END IF
  1003.                 NEXT i
  1004.                 _DEST GameScreen
  1005.                 SELECT CASE AnimationStep
  1006.                     CASE 1 TO 5, 11 TO 39
  1007.                         _PUTIMAGE (Hero.X, Hero.Y - HeroHeight)-STEP(HeroWidth - 1, HeroHeight - 1), HeroFreezingSprite, GameScreen
  1008.                     CASE 6 TO 10
  1009.                         _PUTIMAGE (Hero.X + HeroWidth, Hero.Y - HeroHeight)-STEP(-HeroWidth - 1, HeroHeight - 1), HeroFreezingSprite, GameScreen
  1010.                     CASE 40
  1011.                         _FREEIMAGE HeroFreezingSprite
  1012.                         IF Lives <= -1 THEN
  1013.                             GameOver = True
  1014.                             InGame = False
  1015.                         ELSE
  1016.                             Temperature = InitialTemperature
  1017.                             TIMER(TempTimer) ON
  1018.                             SetLevel ThisLevel
  1019.                         END IF
  1020.                 END SELECT
  1021.             CASE EATINGFISH
  1022.                 IF FishPoints THEN
  1023.                     Score = Score + 50
  1024.                     FishPoints = FishPoints - 50
  1025.                 ELSE
  1026.                     Hero.Action = STOPPED
  1027.                 END IF
  1028.             CASE STOPPED
  1029.                 Hero.Frame = 1
  1030.         END SELECT
  1031.  
  1032.         IF Hero.X + HeroWidth > _WIDTH THEN Hero.X = _WIDTH - HeroWidth
  1033.         IF Hero.X < 0 THEN Hero.X = 0
  1034.     END IF
  1035.  
  1036.     SELECT CASE Hero.Face
  1037.         CASE MOVINGRIGHT
  1038.             _PUTIMAGE (Hero.X, Hero.Y - HeroHeight), HeroSprites(Hero.Frame), GameScreen
  1039.         CASE MOVINGLEFT
  1040.             _PUTIMAGE (Hero.X + HeroWidth, Hero.Y - HeroHeight)-STEP(-HeroWidth - 1, HeroHeight - 1), HeroSprites(Hero.Frame), GameScreen
  1041.     END SELECT
  1042.  
  1043. '------------------------------------------------------------------------------
  1044. SUB CheckLanding
  1045.     'Check to see if the hero landed safely:
  1046.     DIM i AS INTEGER
  1047.     DIM X AS INTEGER
  1048.     DIM m.X AS INTEGER
  1049.  
  1050.     IF Hero.CurrentRow > 0 AND (Hero.Action = STOPPED OR Hero.Action = WALKING) THEN
  1051.         Safe = False
  1052.         X = IceRow(Hero.CurrentRow).Position
  1053.         m.X = IceRow(Hero.CurrentRow).MirroredPosition
  1054.         SELECT CASE Levels(ActualLevel).BlockType
  1055.             CASE SINGLEBLOCK
  1056.                 IF Hero.X + HeroWidth > X AND Hero.X < X + HeroWidth * 2 THEN
  1057.                     Safe = True
  1058.                 ELSEIF m.X AND Hero.X + HeroWidth > m.X AND Hero.X < m.X + HeroWidth * 2 THEN
  1059.                     Safe = True
  1060.                 ELSEIF Hero.X + HeroWidth > X + HeroWidth * 3.5 AND Hero.X < X + HeroWidth * 3.5 + HeroWidth * 2 THEN
  1061.                     Safe = True
  1062.                 ELSEIF m.X AND Hero.X + HeroWidth > m.X + HeroWidth * 3.5 AND Hero.X < m.X + HeroWidth * 3.5 + HeroWidth * 2 THEN
  1063.                     Safe = True
  1064.                 ELSEIF Hero.X + HeroWidth > X + HeroWidth * 7 AND Hero.X < X + HeroWidth * 7 + HeroWidth * 2 THEN
  1065.                     Safe = True
  1066.                 ELSEIF m.X AND Hero.X + HeroWidth > m.X + HeroWidth * 7 AND Hero.X < m.X + HeroWidth * 7 + HeroWidth * 2 THEN
  1067.                     Safe = True
  1068.                 END IF
  1069.             CASE DOUBLEBLOCK
  1070.                 IF Hero.X + HeroWidth > X AND Hero.X < X + RowWidth THEN
  1071.                     Safe = True
  1072.                 ELSEIF m.X AND Hero.X + HeroWidth > m.X AND Hero.X < m.X + RowWidth THEN
  1073.                     Safe = True
  1074.                 END IF
  1075.             CASE MOVINGBLOCK
  1076.                 IF Hero.X + HeroWidth > X + BlockLines + SpaceBetween AND Hero.X < X + BlockLines + SpaceBetween + HeroWidth THEN
  1077.                     Safe = True
  1078.                 ELSEIF m.X AND Hero.X + HeroWidth > m.X + BlockLines + SpaceBetween AND Hero.X < m.X + BlockLines + SpaceBetween + HeroWidth THEN
  1079.                     Safe = True
  1080.                 ELSEIF Hero.X + HeroWidth > X + BlockLines + HeroWidth * 1.5 - SpaceBetween AND Hero.X < X + BlockLines + HeroWidth * 1.5 - SpaceBetween + HeroWidth THEN
  1081.                     Safe = True
  1082.                 ELSEIF m.X AND Hero.X + HeroWidth > m.X + BlockLines + HeroWidth * 1.5 - SpaceBetween AND Hero.X < m.X + BlockLines + HeroWidth * 1.5 - SpaceBetween + HeroWidth THEN
  1083.                     Safe = True
  1084.                 ELSEIF Hero.X + HeroWidth > X + BlockLines + HeroWidth * 3 + SpaceBetween AND Hero.X < X + BlockLines + HeroWidth * 3 + SpaceBetween + HeroWidth THEN
  1085.                     Safe = True
  1086.                 ELSEIF m.X AND Hero.X + HeroWidth > m.X + BlockLines + HeroWidth * 3 + SpaceBetween AND Hero.X < m.X + BlockLines + HeroWidth * 3 + SpaceBetween + HeroWidth THEN
  1087.                     Safe = True
  1088.                 ELSEIF Hero.X + HeroWidth > X + BlockLines + HeroWidth * 4.5 - SpaceBetween AND Hero.X < X + BlockLines + HeroWidth * 4.5 - SpaceBetween + HeroWidth THEN
  1089.                     Safe = True
  1090.                 ELSEIF m.X AND Hero.X + HeroWidth > m.X + BlockLines + HeroWidth * 4.5 - SpaceBetween AND Hero.X < m.X + BlockLines + HeroWidth * 4.5 - SpaceBetween + HeroWidth THEN
  1091.                     Safe = True
  1092.                 ELSEIF Hero.X + HeroWidth > X + BlockLines + HeroWidth * 6 + SpaceBetween AND Hero.X < X + BlockLines + HeroWidth * 6 + SpaceBetween + HeroWidth THEN
  1093.                     Safe = True
  1094.                 ELSEIF m.X AND Hero.X + HeroWidth > m.X + BlockLines + HeroWidth * 6 + SpaceBetween AND Hero.X < m.X + BlockLines + HeroWidth * 6 + SpaceBetween + HeroWidth THEN
  1095.                     Safe = True
  1096.                 ELSEIF Hero.X + HeroWidth > X + BlockLines + HeroWidth * 7.5 - SpaceBetween AND Hero.X < X + BlockLines + HeroWidth * 7.5 - SpaceBetween + HeroWidth THEN
  1097.                     Safe = True
  1098.                 ELSEIF m.X AND Hero.X + HeroWidth > m.X + BlockLines + HeroWidth * 7.5 - SpaceBetween AND Hero.X < m.X + BlockLines + HeroWidth * 7.5 - SpaceBetween + HeroWidth THEN
  1099.                     Safe = True
  1100.                 END IF
  1101.         END SELECT
  1102.         IF Safe THEN
  1103.             Safe = False
  1104.             IF IceRow(Hero.CurrentRow).State = False AND JustLanded THEN
  1105.                 JustLanded = False
  1106.                 IF BlockSound THEN _SNDPLAYCOPY BlockSound
  1107.                 IF IglooPieces < 16 THEN IglooPieces = IglooPieces + 1
  1108.                 IceRow(Hero.CurrentRow).State = True
  1109.                 RestoreRowsTimer = TIMER
  1110.                 Score = Score + PointsInThisLevel * 10
  1111.             END IF
  1112.         ELSE
  1113.             IF Hero.Action <> DROWNING THEN
  1114.                 IF DrowningSound THEN _SNDPLAYCOPY DrowningSound
  1115.                 TIMER(TempTimer) OFF
  1116.                 Hero.Frame = 4
  1117.                 Hero.Action = DROWNING
  1118.                 Hero.Face = STOPPED
  1119.                 Hero.Direction = STOPPED
  1120.                 Lives = Lives - 1
  1121.                 AnimationStep = 0
  1122.             END IF
  1123.         END IF
  1124.     END IF
  1125.  
  1126. '------------------------------------------------------------------------------
  1127. SUB CheckCreatures
  1128.     DIM i AS INTEGER
  1129.     DIM j AS INTEGER
  1130.     DIM X AS INTEGER
  1131.     DIM Touched AS _BIT
  1132.     DIM WhichCreature AS _BYTE
  1133.     DIM EvalCreatures(1 TO 3) AS INTEGER
  1134.  
  1135.     IF Hero.Grabbed OR Hero.CurrentRow = 0 OR (Hero.Action = JUMPINGUP OR Hero.Action = JUMPINGDOWN OR Hero.Action = DROWNING OR Hero.Action = FREEZING) THEN EXIT SUB
  1136.     i = Hero.CurrentRow
  1137.  
  1138.     IF Creatures(i).Species = 0 THEN EXIT SUB
  1139.  
  1140.     X = Creatures(i).X
  1141.  
  1142.     EvalCreatures(1) = Creatures(i).X
  1143.     EvalCreatures(2) = X + CreatureWidth(Creatures(i).Species) + Creatures(i).Spacing
  1144.     EvalCreatures(3) = X + CreatureWidth(Creatures(i).Species) * 2 + Creatures(i).Spacing * 2
  1145.  
  1146.     'Check for first creature in row, left to right:
  1147.     IF (Creatures(i).State AND FIRST) AND Hero.X + HeroWidth > EvalCreatures(1) AND Hero.X < EvalCreatures(1) + CreatureWidth(Creatures(i).Species) THEN
  1148.         Touched = True
  1149.         WhichCreature = FIRST
  1150.     END IF
  1151.  
  1152.     'Check for second creature in row, left to right:
  1153.     IF Creatures(i).Number > 1 THEN
  1154.         IF (Creatures(i).State AND SECOND) AND Hero.X + HeroWidth > EvalCreatures(2) AND Hero.X < EvalCreatures(2) + CreatureWidth(Creatures(i).Species) THEN
  1155.             Touched = True
  1156.             WhichCreature = SECOND
  1157.         END IF
  1158.     END IF
  1159.  
  1160.     'Check for second creature in row, left to right:
  1161.     IF Creatures(i).Number = 3 THEN
  1162.         IF (Creatures(i).State AND THIRD) AND Hero.X + HeroWidth > EvalCreatures(3) AND Hero.X < EvalCreatures(3) + CreatureWidth(Creatures(i).Species) THEN
  1163.             Touched = True
  1164.             WhichCreature = THIRD
  1165.         END IF
  1166.     END IF
  1167.  
  1168.     IF Touched THEN
  1169.         IF Creatures(i).Species = FISH THEN
  1170.             Creatures(i).State = Creatures(i).State XOR WhichCreature
  1171.             IF Hero.Action <> EATINGFISH THEN
  1172.                 IF CollectFishSound THEN _SNDPLAYCOPY CollectFishSound
  1173.                 Hero.Frame = 1
  1174.                 Hero.Action = EATINGFISH
  1175.                 Hero.Direction = STOPPED
  1176.                 AnimationStep = 0
  1177.                 FishPoints = 200
  1178.             END IF
  1179.         ELSE
  1180.             Hero.Grabbed = True
  1181.             IF IceRow(i).Direction = Creatures(i).Direction THEN
  1182.                 InvertCurrentIceRow
  1183.             END IF
  1184.         END IF
  1185.     END IF
  1186.  
  1187. '------------------------------------------------------------------------------
  1188. SUB UpdateScreen
  1189.     _PUTIMAGE , GameScreen, MainScreen
  1190.     _DISPLAY
  1191.     $IF INTERNALBUILD THEN
  1192.         Frames = Frames + 1
  1193.     $END IF
  1194.  
  1195. '------------------------------------------------------------------------------
  1196. SUB ReadKeyboard
  1197.     DIM k AS INTEGER
  1198.  
  1199.     k = _KEYHIT
  1200.     SELECT CASE k
  1201.         CASE ASC("s"), ASC("S")
  1202.             $IF INTERNALBUILD = TRUE THEN
  1203.                 LevelComplete = True
  1204.             $END IF
  1205.         CASE 27
  1206.             UserWantsToQuit = True
  1207.         CASE 13
  1208.             IF NOT InGame THEN
  1209.                 IF GameOver THEN
  1210.                     SetLevel GAMESTART
  1211.                 ELSE
  1212.                     NewLevelSet = 0
  1213.                     TIMER(TempTimer) ON
  1214.                     InGame = True
  1215.                 END IF
  1216.                 GameOver = False
  1217.             END IF
  1218.         CASE 32
  1219.             IF NOT Hero.Grabbed AND Hero.CurrentRow > 0 AND (Hero.Action = STOPPED OR Hero.Action = WALKING) AND InGame THEN
  1220.                 IF IglooPieces > 0 THEN
  1221.                     IF IglooPieces < 16 THEN IglooPieces = IglooPieces - 1
  1222.                     IF BlockSound THEN _SNDPLAYCOPY BlockSound
  1223.                     InvertCurrentIceRow
  1224.                 END IF
  1225.             END IF
  1226.     END SELECT
  1227.  
  1228.     'Check if a movement must be processed:
  1229.     IF NOT InGame OR Hero.Action = DROWNING OR Hero.Action = FREEZING OR Hero.Action = ENTERINGIGLOO OR Hero.Action = EATINGFISH THEN EXIT SUB
  1230.  
  1231.     IF Hero.Action = WALKING THEN Hero.Action = STOPPED: Hero.Direction = Hero.Action
  1232.  
  1233.     'Is the left arrow key down?
  1234.     IF _KEYDOWN(19200) THEN Hero.Direction = MOVINGLEFT: Hero.Face = Hero.Direction: IF Hero.Action = STOPPED THEN Hero.Action = WALKING
  1235.  
  1236.     'Is the right arrow key down?
  1237.     IF _KEYDOWN(19712) THEN Hero.Direction = MOVINGRIGHT: Hero.Face = Hero.Direction: IF Hero.Action = STOPPED THEN Hero.Action = WALKING
  1238.  
  1239.     'If the hero has been grabbed by a creature, no jumps are allowed.
  1240.     IF Hero.Grabbed THEN EXIT SUB
  1241.  
  1242.     'If the hero is already jumping, we have to wait for him to land:
  1243.     IF Hero.Action <> STOPPED AND Hero.Action <> WALKING THEN EXIT SUB
  1244.  
  1245.     'Is the up arrow key down?
  1246.     IF _KEYDOWN(18432) THEN
  1247.         IF Hero.CurrentRow > 0 THEN
  1248.             Hero.Action = JUMPINGUP
  1249.             AnimationStep = 0
  1250.             IF JumpSound THEN _SNDPLAYCOPY JumpSound
  1251.         ELSEIF Hero.CurrentRow = 0 AND IglooPieces = 16 THEN
  1252.             'The igloo has been finished. If the hero is standing under the door,
  1253.             'we'll let him in:
  1254.             IF Hero.X + HeroWidth > DoorX + 5 AND Hero.X < DoorX + 17 THEN
  1255.                 IF JumpSound THEN _SNDPLAYCOPY JumpSound
  1256.                 TIMER(TempTimer) OFF
  1257.                 Hero.Action = ENTERINGIGLOO
  1258.                 Hero.Direction = STOPPED
  1259.                 Hero.Face = STOPPED
  1260.                 Hero.X = DoorX
  1261.                 AnimationStep = 0
  1262.             END IF
  1263.         END IF
  1264.     END IF
  1265.  
  1266.     'Is the down arrow key down?
  1267.     IF _KEYDOWN(20480) THEN
  1268.         IF Hero.CurrentRow < 4 THEN
  1269.             Hero.Action = JUMPINGDOWN
  1270.             AnimationStep = 0
  1271.             IF JumpSound THEN _SNDPLAYCOPY JumpSound
  1272.         END IF
  1273.     END IF
  1274.  
  1275. '------------------------------------------------------------------------------
  1276. SUB DecreaseTemperature
  1277.     Temperature = Temperature - 1
  1278.     IF Temperature = 0 THEN
  1279.         IF DrowningSound THEN _SNDPLAYCOPY DrowningSound
  1280.         TIMER(TempTimer) OFF
  1281.         HeroFreezingSprite = _COPYIMAGE(HeroSprites(4))
  1282.         _SOURCE HeroFreezingSprite
  1283.         Hero.Action = FREEZING
  1284.         Hero.Face = STOPPED
  1285.         Hero.Direction = STOPPED
  1286.         Lives = Lives - 1
  1287.         AnimationStep = 0
  1288.     END IF
  1289.  
  1290. '------------------------------------------------------------------------------
  1291. FUNCTION TRIM$ (Value)
  1292.     TRIM$ = LTRIM$(RTRIM$(STR$(Value)))
  1293.  
  1294. '------------------------------------------------------------------------------
  1295. SUB UpdateFrames
  1296.     DIM PrevDest AS LONG
  1297.     DIM i AS _BYTE
  1298.     DIM AuroraLineColor AS _UNSIGNED LONG
  1299.     STATIC AuroraCount AS INTEGER
  1300.     STATIC CreditCount AS INTEGER
  1301.     STATIC CreditUpdate AS INTEGER
  1302.     STATIC BlockCount AS SINGLE
  1303.  
  1304.     AuroraCount = AuroraCount + 1
  1305.     IF AuroraCount > 3 THEN
  1306.         RANDOMIZE TIMER
  1307.         AuroraCount = 0
  1308.         PrevDest = _DEST
  1309.         _DEST ThisAurora
  1310.         FOR i = 1 TO AuroraH STEP 2
  1311.             SELECT CASE i
  1312.                 CASE 1 TO AuroraH / 3
  1313.                     AuroraLineColor = Aurora(_CEIL(RND * 3))
  1314.                 CASE AuroraH / 3 + 1 TO (AuroraH / 3) + (AuroraH / 4)
  1315.                     AuroraLineColor = Aurora(_CEIL(RND * 3) + 3)
  1316.                 CASE ELSE
  1317.                     AuroraLineColor = Aurora(_CEIL(RND * 2) + 5)
  1318.             END SELECT
  1319.             LINE (0, 0)-STEP(_WIDTH(ThisAurora), AuroraH - i), AuroraLineColor, BF 'Aurora
  1320.         NEXT i
  1321.         _DEST PrevDest
  1322.     END IF
  1323.  
  1324.     IF NOT InGame THEN
  1325.         CreditUpdate = CreditUpdate + 1
  1326.         IF CreditUpdate > 1 THEN
  1327.             CreditUpdate = 0
  1328.             SELECT CASE CreditY
  1329.                 CASE -2
  1330.                     CreditCount = CreditCount + 1
  1331.                     IF CreditCount > 10 THEN
  1332.                         CreditCount = 0
  1333.                         CreditY = CreditY + 1
  1334.                     END IF
  1335.                 CASE -1 TO 16
  1336.                     CreditY = CreditY + 1
  1337.                 CASE 17
  1338.                     CreditCount = CreditCount + 1
  1339.                     IF CreditCount > 15 THEN
  1340.                         CreditCount = 0
  1341.                         CreditY = -2
  1342.                     END IF
  1343.             END SELECT
  1344.         END IF
  1345.     ELSE
  1346.         CreditY = 17
  1347.     END IF
  1348.  
  1349.     IF Hero.Action = WALKING AND InGame THEN
  1350.         IF Hero.Frame = 1 THEN Hero.Frame = 2 ELSE Hero.Frame = 1
  1351.     END IF
  1352.  
  1353.     IF InGame AND NOT LevelComplete AND (Hero.Action <> DROWNING AND Hero.Action <> FREEZING AND Hero.Action <> EATINGFISH) THEN
  1354.         FOR i = 1 TO 4
  1355.             IF Creatures(i).Frame = 1 THEN Creatures(i).Frame = 2 ELSE Creatures(i).Frame = 1
  1356.         NEXT i
  1357.     END IF
  1358.  
  1359.     IF IceRow(1).State AND IceRow(2).State AND IceRow(3).State AND IceRow(4).State AND IglooPieces < 16 THEN
  1360.         IF NOT LevelComplete THEN
  1361.             IF TIMER - RestoreRowsTimer > .3 THEN
  1362.                 FOR i = 1 TO 4
  1363.                     IceRow(i).State = False
  1364.                 NEXT i
  1365.             END IF
  1366.         END IF
  1367.     END IF
  1368.  
  1369.     IF InGame AND Levels(ActualLevel).BlockType = MOVINGBLOCK AND (Hero.Action <> DROWNING AND Hero.Action <> FREEZING AND Hero.Action <> EATINGFISH) AND NOT LevelComplete THEN
  1370.         BlockCount = BlockCount + .5
  1371.         IF BlockCount > MaxSpaceBetween THEN BlockCount = -MaxSpaceBetween
  1372.         SELECT CASE BlockCount
  1373.             CASE -MaxSpaceBetween TO -1
  1374.                 SpaceBetween = ABS(BlockCount + 1)
  1375.             CASE 0 TO MaxSpaceBetween
  1376.                 SpaceBetween = BlockCount
  1377.         END SELECT
  1378.     END IF
  1379.  
  1380. '------------------------------------------------------------------------------
  1381. SUB SetLevel (TargetLevel)
  1382.     DIM CreatureCheck AS INTEGER
  1383.  
  1384.     SELECT CASE TargetLevel
  1385.         CASE GAMESTART
  1386.             LevelComplete = False
  1387.             ThisLevel = 1
  1388.             TimeOfDay = DAY
  1389.             Lives = 3
  1390.             Score = 0
  1391.             Temperature = InitialTemperature
  1392.             IglooPieces = 0
  1393.             NextGoal = ONEUPGOAL
  1394.         CASE NEXTLEVEL
  1395.             LevelComplete = False
  1396.             ThisLevel = ThisLevel + 1
  1397.             Temperature = InitialTemperature
  1398.  
  1399.             IF (ThisLevel - 1) MOD 4 = 0 THEN
  1400.                 IF TimeOfDay = DAY THEN TimeOfDay = NIGHT ELSE TimeOfDay = DAY
  1401.                 DrawScenery
  1402.             END IF
  1403.     END SELECT
  1404.  
  1405.     'Set hero's initial position and state:
  1406.     Hero.CurrentRow = 0
  1407.     Hero.X = 100
  1408.     Hero.Y = HeroStartRow
  1409.     Hero.Direction = STOPPED
  1410.     Hero.Face = MOVINGRIGHT
  1411.     Hero.Action = STOPPED
  1412.     Hero.Frame = 1
  1413.     Hero.Grabbed = False
  1414.  
  1415.     'Levels only have defined conditions up to level 9. After that, conditions are random.
  1416.     ActualLevel = ThisLevel
  1417.     PointsInThisLevel = ThisLevel
  1418.     IF ThisLevel > UBOUND(Levels) THEN
  1419.         RANDOMIZE TIMER
  1420.         ActualLevel = _CEIL(RND * UBOUND(Levels))
  1421.         PointsInThisLevel = UBOUND(Levels)
  1422.     END IF
  1423.  
  1424.     'Erase existing creatures and fills an array with the ones allowed:
  1425.     ERASE Creatures
  1426.     MaxLevelCreatures = 0
  1427.     CreatureCheck = 1
  1428.     DO
  1429.         IF Levels(ActualLevel).CreaturesAllowed AND CreatureCheck THEN
  1430.             MaxLevelCreatures = MaxLevelCreatures + 1
  1431.             REDIM _PRESERVE ThisLevelCreatures(1 TO MaxLevelCreatures)
  1432.             ThisLevelCreatures(MaxLevelCreatures) = CreatureCheck
  1433.         END IF
  1434.         CreatureCheck = CreatureCheck * 2
  1435.         IF CreatureCheck > CLAM THEN EXIT DO
  1436.     LOOP
  1437.  
  1438.     'Set ice rows initial position and direction:
  1439.     IceRow(1).Position = 90
  1440.     IceRow(1).Direction = MOVINGLEFT
  1441.     IceRow(2).Position = 10
  1442.     IceRow(2).Direction = MOVINGRIGHT
  1443.     IceRow(3).Position = 90
  1444.     IceRow(3).Direction = MOVINGLEFT
  1445.     IceRow(4).Position = 10
  1446.     IceRow(4).Direction = MOVINGRIGHT
  1447.  
  1448.     FOR I = 1 TO 4
  1449.         IceRow(I).MirroredPosition = 0
  1450.         IceRow(I).State = False
  1451.     NEXT I
  1452.  
  1453.     SELECT CASE Levels(ActualLevel).BlockType
  1454.         CASE SINGLEBLOCK: RowWidth = HeroWidth * 9
  1455.         CASE DOUBLEBLOCK, MOVINGBLOCK: RowWidth = HeroWidth * 8.5
  1456.     END SELECT
  1457.  
  1458.     NewLevelSet = TIMER
  1459.     InGame = False
  1460.  
  1461. '------------------------------------------------------------------------------
  1462. SUB LoadAssets
  1463.     'Saves sound files to disk, then loads them with _SNDOPEN:
  1464.     'jump.ogg
  1465.     A$ = ""
  1466.     A$ = A$ + "?MfIC1P00000000000P7[00000000PDQ:^L0N4PM_9WHY=7000002@4[0000"
  1467.     A$ = A$ + "000004W00000000^1ldIW=50000000000000N\20040000`L`]TnB\cooooo"
  1468.     A$ = A$ + "ooooooooooooooooA>PM_9WHY=g:0000HU6LXibCbM68\UVHFmVLRUfLPT48"
  1469.     A$ = A$ + "b0C<b0S<`<38XlDK^U6LbEfLUi6MY00000@05HgKb9FJcUR@3IE00P0000@<"
  1470.     A$ = A$ + "<1Ba02=TE100@000PAB:><YI9UBYD6::iQ9U8UD:UBIa`T8VDVHaH<6SaH<6"
  1471.     A$ = A$ + "SaH<6SaH<22=TE100@000RB2>>Zi9YVciL66WhXLPVCJ>QcYPLPRA1N>98Lm"
  1472.     A$ = A$ + "V<VKVB[Y[iVcYD22=TE100P0004BQD85BQD85BQH86RQH86RQL87bQL8WbYL"
  1473.     A$ = A$ + ":X2ZP:X2bP<83bT<YCjT>YCjX>ZSjX>:d2]@;d2]B[4CaD]ESiJ_6d5OciL>"
  1474.     A$ = A$ + "WciL>WciL>Wc98d@F500P00048T1I@642Q@85BQD8VRYH:W2bP<P@3IE0008"
  1475.     A$ = A$ + "00800000759595;5;7;7=7=9?9?;A=A=A?CACAECEEEEEEGGGIGIGKGMGKGO"
  1476.     A$ = A$ + "IQIQKQKOIQKQKQMQMMOQQQQQQQQQQQQQQQOOOOOOOOOOP@3IE008100XSTSU"
  1477.     A$ = A$ + "SWRXRXQXRWSX3@XQ\:00T100400898Y8Y8iX9IZIZiJJKJ;J[JKK;;;;;;;3"
  1478.     A$ = A$ + "4J8[200010010000000XYYYYYYYYYYYYYYYYYYYYYYYYYYYIIIIIIIIIIIII"
  1479.     A$ = A$ + "IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII14J8[2009000MLLLLLLTDTD"
  1480.     A$ = A$ + "TL\L\L02=TE10P<00P00095;5;7=7=7=7?7?7?7?7A7A9C9C=C?C?P@3IE00"
  1481.     A$ = A$ + "0800800000000537577797=9?9E;C;G=G=G?G?GCGGGGGEEEEEEEEEEEEEEE"
  1482.     A$ = A$ + "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEP@3IE000100@8MJVUZ182c0IHP@3I"
  1483.     A$ = A$ + "E00P0000H4:23a02=TE10001000RQB>8J2]VcgL>>XIiPV:5K>M`9BeVWTKZ"
  1484.     A$ = A$ + "H^iL>WciLbVcI<>WciL::WIaPV9dJ>Wc9aPVU2JV@[iL>WW4KN@[Y:]VciL6"
  1485.     A$ = A$ + "WcY36WAHL>WcY9]V7TJfH]iL>W5dJJ>ZiBaVciLRD^i9eV;EK>WciL>WciL>"
  1486.     A$ = A$ + "WciL>WZGLjL`i4>WciLRJ_iJiV@GL>WciC6W^gL2QciL>WciL>WciL>WciL2"
  1487.     A$ = A$ + "2=TE100@0001QQ=66gYPPdWS6865QHJ8Cj1M?j`TP63bY@Z7=jXA:UjP@9E6"
  1488.     A$ = A$ + "WD:M22=TE100P00042QD85BQD85BQD85BQD86RQH86bYL:W2ZP:YBZX::Sb\"
  1489.     A$ = A$ + "<;cb\<;cb\<[3k\>[3k`@<43a@[d:aB=EKeH=F[iN>W[iPdJUF[eJ]BYD:UB"
  1490.     A$ = A$ + "YD:8d@F500P00048T1I@6TAQD85BQH8VbYL:W2ZP:P@3IE000800800000?9"
  1491.     A$ = A$ + "?7A7A7A7A7A7A7A7A7A7?7?7A9A9A9A9A;C;C=C?EAEEGIGKIMIMKOKQMQMM"
  1492.     A$ = A$ + "OOMOOOMSOMQQUUUUUUUUUUUUUUUUUUUUUUP@3IE0002000P@842QD85BQD8U"
  1493.     A$ = A$ + "RaH<7ciP>9D212=TE100P00P00000LDLDLLTLTLTT\T\TdTd\d\ldldld4m4"
  1494.     A$ = A$ + "555===E5M5M5e=]5U=U=M=M=U=MEUE]MUU]]U]e]mUU]mmmmmmmmmmmmmmmm"
  1495.     A$ = A$ + "mmmee12=TE10P400P>B>B:B:B:B>>>>BBB0Q6bZ00@600@00PRRSRSSSSTTT"
  1496.     A$ = A$ + "TTUTVTWUWUXVYVYWYWZX:@XQ\:00040040000000PRVRWRYRWRXRWSXSXTXU"
  1497.     A$ = A$ + "YUXVZV[X\Y\[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[;@"
  1498.     A$ = A$ + "XQ\:00T000dAbAbAbABABABAbAb18d@F500b000200L<L<TDTL\\\ddldldl"
  1499.     A$ = A$ + "d4m4m4m<mD5M5M12=TE100P00P00000000<T<\D\LdLdT4UD]D]DeD]D]D5E"
  1500.     A$ = A$ + "mDEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE======12=TE200"
  1501.     A$ = A$ + "I000TCZYD[W3B86TiTH@XQ@B4cAaLYCjL>:G<N8TSHDB]7bD<311eR9d9E85"
  1502.     A$ = A$ + "D;^FZeaLD]HS]B6B1eR]6;E8USj12=TE80@XI0P37707==07;=0000000000"
  1503.     A$ = A$ + "9==0=AA0=?A00000000007==0=A?0=AA0000000000000000000000000000"
  1504.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1505.     A$ = A$ + "0007==0=AA0=AA0000000000=AA0ACE0ACC0000000000=AA0?CA0ACE0000"
  1506.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1507.     A$ = A$ + "0000000000000000000000000007==0=AA0=AA0000000000=AA0AEC0?AC0"
  1508.     A$ = A$ + "000000000=AA0ACC0AEC0000000000000000000000000000000000000000"
  1509.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1510.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1511.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1512.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1513.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1514.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1515.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1516.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1517.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1518.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1519.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1520.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1521.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1522.     A$ = A$ + "10001h0004P525J8[80Ph4007>>@B2BB`C3PSU5llPW6<=1hHI1??Xi1CC00"
  1523.     A$ = A$ + "00000000000@bC3NN`c3VV0TdlPW7llPY900000000000008ii1??hi1CC0B"
  1524.     A$ = A$ + "NN`c3NN`d40000000000000l<=QY94=QZ90?CCHJ2CCHZ200000000000000"
  1525.     A$ = A$ + "000000000000000P000P1L0002`4:3DXQ\R00RC00LhX89100PSTTU5000:B"
  1526.     A$ = A$ + "BFF000HIIii100PTUUW70000000000000000000000000000000000000000"
  1527.     A$ = A$ + "00000000000000000000000000000000000000000000008000H0700P0<Qb"
  1528.     A$ = A$ + "05J8[40PX0007::FF077;;PSSU5@Bbb2PU50==0NJ045108000X0700P0\1="
  1529.     A$ = A$ + "UHa1X@3IU004500h`AabBCCDTSSUUVVX877;;==AAFFJJJJRR@cBCCD4NNNN"
  1530.     A$ = A$ + "VV`ccccd4RRRRVV0AACC10005h0004P=XY4;>05J8[40P@2007>>FFNNRRRR"
  1531.     A$ = A$ + "VVVVZZLL\\ll4555==EEMMihHIii9:::JJZZjjbbBCccCDDDddDEee5JJNNR"
  1532.     A$ = A$ + "RRRVVZZ^^@CCDddddDEEEee5JJNRVVVVZZZZ^^`cCDddddDEeeee58:JJJJZ"
  1533.     A$ = A$ + "Zjjjj245====EEMMMM1RRRVVVZZ^^^^0CCCCEEEGGGII0VVZZZZ^^bb0DEEE"
  1534.     A$ = A$ + "MMMUUU1XZZZjjjj:;3`eeeEfEFFF60^^^^bbbb2000>`10080SP>9SZ\8\AC"
  1535.     A$ = A$ + "h2?0DXQ\R00R2000<6VBaD:3S9Q@:4JH<94BQ@VDBYB:UZP@ZDBUB54BUBZD"
  1536.     A$ = A$ + "bXD;UJYD54BUBZDZP@ZDBUB100H7h00PMP525J8[40Pl0002SAYH<WciT8TB"
  1537.     A$ = A$ + "aH>Wc9A8URaL>WCZD<VciL>WD:I<WciL>YDbH>WciLBYTaL>WciTBYciL>W3"
  1538.     A$ = A$ + ":UBYdiL>WC:UB94jL>WD:UBWciL>100@5h0004P=:bVC`81EXQ\B00B500<h"
  1539.     A$ = A$ + "hHIYYii9:JJJ99YYiii9JJJJZ99YYii9:JJJJbcccCDDDddDEUWWWWXXXXYY"
  1540.     A$ = A$ + "Z:GGAAACCCCCEEbbRRRRVVZZZZ`dddddDEEE5VVVVVVZZ^^`fFEEEeeee5ff"
  1541.     A$ = A$ + "ZZZZ^^^^0GGGGGGIIP[[[[[[\\000l4L00P:`6FM4>YXa2\@3IU00T100@H<"
  1542.     A$ = A$ + "8T2Q@8U1Q@:42QD:529000H0700P0<Qb05J8[40P`100021SaH<6SaH<f`HH"
  1543.     A$ = A$ + "<6SaH<6Sa4W2SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH"
  1544.     A$ = A$ + "<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH"
  1545.     A$ = A$ + "<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH[eJ]F[E0PQc5>0@"
  1546.     A$ = A$ + "IAHSc`:9MFQS6LQ6b:108T000`H@863jT@YT:YD52aH>XDBUFZUR]:4RaP@Y"
  1547.     A$ = A$ + "TB]F\5S5?Wc1QB:UJYH:f:N>WC:YD[5SaH\FL]@8UBYF;fR]H\9KQ@:UB]F<"
  1548.     A$ = A$ + "6[eHcXD]DZeRaH<6[aRBiBYD[5KaH\FS5QbVK]F<6[eJ]FC:U?gBaF]FSaJ]"
  1549.     A$ = A$ + "V<:SB6SaJ]6[eJ]8D:U<6CaD\F[eJB8<6O?6SaJ<W[eTB8<nN<E;aF]F[9UB"
  1550.     A$ = A$ + "Y<2I=VZaJ=WC:U@I<fH;ECiL>G000e3>00D9H4d9IDU5Q=J2Gh1P2=TE20@^"
  1551.     A$ = A$ + "10022YD<6SiL>WciL>W3BA:6caL>W32Q@842Q@:2aH<VciL@842Q@84BI<6c"
  1552.     A$ = A$ + "iL>842Q@84:QB:UbH>Wc1Q@84:UBYDBYDWciP@842QBYD:UB:UjL>742Q@XD"
  1553.     A$ = A$ + ":UBYDBYD842Q@842UBYD:UB:UBY@842QBXD:UBYDBYD:52Q@8D:UBYD:UB:U"
  1554.     A$ = A$ + "BY@842QBYD:UBYDBYD:52U@YD:UBYD:UB:UBYD:4:UBYD:UBYDBYD:UBUBYD"
  1555.     A$ = A$ + ":UBYD:UB:UBYDZD:UBYD:UBYDBYD:UBUBYD:UBYD:UB:UBYD:U:UBYD:UBYD"
  1556.     A$ = A$ + "BYD:UBYDYD:UBYD:UB:UBYD:U:UBYD:UBYDBYD:UBYDYD:UBYD:UB:UBYD:U"
  1557.     A$ = A$ + "BYBYD:UBYD:000j0700P0<R:]@\Cch:?2L45b`4@5J8[400b000474;]F[eZ"
  1558.     A$ = A$ + "<:Wb9UD[3IT6V3:YHWd1QD;F;E681YLB:eYP8TR1YF8SZD:VCJY@;SYD<8f:"
  1559.     A$ = A$ + "a@7SaLD>UCU@7S1000PP00`0A8c48@1@16830P3@81Y00X`2<da`514@^4bX"
  1560.     A$ = A$ + "03:L<Qc9MJ30044R<3AR8F<8a4Z6XXRY30Ha5H8O0P<dHSd^h2X;3`5d5ge1"
  1561.     A$ = A$ + "2QP@@88FL0D09P3>QKh9N3?QK`9XCAUj01000000N00h1008I3P8R8JVSS>l"
  1562.     A$ = A$ + "h3@2ATA8Y4C>151000000\30h300895P8R8JVSS>lh3@2ATA8Y4C>1U000@0"
  1563.     A$ = A$ + "4000000@04028P0000000@0000028ldIW=504@1:00000000N\20080000`c"
  1564.     A$ = A$ + "PYlJId5C:mOMoSeoQmoKooeocl_7oGaobl_Ao_1K=<D1>QHaN=fBHg1LUc2V"
  1565.     A$ = A$ + "N1H^\52d<1TnKX9j@]mEEKdaom?OiLWnAeOMCmfbK7GFf_`n?i_VOdLoKNSo"
  1566.     A$ = A$ + "M_iSmYlgi=7NmgcloBegcn]n1GWmOaW]dU00`[[6000gYc7GK0CTQ`9NG>O<"
  1567.     A$ = A$ + "]1<A627h7017AbB00E1@BZ`4^4N<f:J\F[l:[JA45@ASDa::JeRReJ5a>LG9"
  1568.     A$ = A$ + "UA55dZVn?VOC4e:RRZ>_Zi204Y@\1X01R<?BQ@;`124IhI]eT4Q4C`L728Ze"
  1569.     A$ = A$ + "R[[R>JHDF8XZ:P>iXMd9X34[8HE5S>9^?n0=PE46[0J1<=1I<Pe<1;\@adJP"
  1570.     A$ = A$ + "92PnWAMAV[IZj_DfZ7Vk88Wdo<Z;bL=CEoUbFm`L71iTn70000P3207ATR;R"
  1571.     A$ = A$ + "DPYSVciD0RT`B014`AikY`T00X690XfXMeJ20`ZE\cRED3CD3@UTE0Y4G2A5"
  1572.     A$ = A$ + "CDQTD2a5C:^l4G0Y94G60F:35\2IE3KdV<5;]`D<=DaBKX:A@4UR>eQEeYXA"
  1573.     A$ = A$ + "7H;P3QMFHM;4E53eZFeB4040iI=[RE\4<DE\V=H518>3\dJVPX:RJYe]d9LR"
  1574.     A$ = A$ + "XCMHSPA`XXA1K1001@AW::Z8R10ZmWR9`:ZXA[PH@0401EMZe008XZ3E@<80"
  1575.     A$ = A$ + "080JdQ>4005]J\51000413FWJ]0FA[8Z2R100@<08:J`ZRASF1a06<NXR65E"
  1576.     A$ = A$ + "=ZF0003C51KD]dd0@0E5A<5[QE4D0e004KMXeJE=H<0@0EMXJAD4D]Y00XZA"
  1577.     A$ = A$ + "dZ06D^13<00SR>E03REeYFE00<802HJ=[RQZ0PH5[I=1E4D@D@<aBK`dB[HR"
  1578.     A$ = A$ + "YXP8fjD[5540X0h0T4PWf`Q96WlFZkW_2Fm:U_eo@O>YY=LHRa9_Ujni[PE_"
  1579.     A$ = A$ + "BiKm?dWCjO00000b5@07F@ZVC7a;8EC18B2;RMj;`YCDFP9000JC008SVJA0"
  1580.     A$ = A$ + "0D1\eRZX2:8D6A904025P;7AhC5D@Yh`A@F`202@@aZJ@[>DA<HJQe]Re]`B"
  1581.     A$ = A$ + ";]`:6FHQPZ96;H5]j@W:6DAAFA6>0\H[XESF5E1oE:2A:14@]CD4CA]UH=3A"
  1582.     A$ = A$ + "@Xg:aW5@000]JeX4@0YC[AE010aP5EMR6@00@0aJ\641140`P>Ee8808aeU9"
  1583.     A$ = A$ + "92280FDeYXTVTGB[d9HMC314<D3E`4B8X0RFM::2:Fc]8B020H<22jd::ZJD"
  1584.     A$ = A$ + "E01010d3AWJ5MH144@@<@DD`d6E;@440@5EDA5[KMSXM<P@T_]D5e6EA5EA1"
  1585.     A$ = A$ + "04`ek<DA14[KY02lJ@DA5ED0@\d65UPKooI;g\3P5]XES:0000RZ>E00NJ3]"
  1586.     A$ = A$ + "@an[`KnM@cBRm`lAL\3jd6JQRmGQglkPVU4kQiShH7do10000H?E;HQ5@@TR"
  1587.     A$ = A$ + "[if6A:`2F0A=08B2F`V02Tb4000e00P8EKI00ZQJX026fJedZXVZX2000;O6"
  1588.     A$ = A$ + "F`U2660F:8R;1?F6:U?On\PQ3hJZ6F1\:ReDa4e@4EEe2C3;Ea6\I4=JdX8H"
  1589.     A$ = A$ + "3P=:QMheE1\0Kd21EA<\`21XQlkc2V;C@D\Z5Fa6110RmgKZE10@@DD[XFG3"
  1590.     A$ = A$ + "R1000\F]jDEE400@A5\`jZEDE1000;F0[ZeBC54@11ajFAA;820PHabTQfR0"
  1591.     A$ = A$ + "VZY=IYU2PBbU1<XXA7:R]Z8j`V5;@14ED10```2[H5[8HSf0:ZX^03dUJ=88"
  1592.     A$ = A$ + "ZXH8fB4PAkUe`dZf0VFJYUV:80`PXZXR:VH=;E4@EE[Z:800EkoJ7FAd:863"
  1593.     A$ = A$ + "R@KI=H10;XXZE7P11aHAd82XOnM88JEdXR100005MXP00hM=D?8QKb5N=OU["
  1594.     A$ = A$ + "dUG=O79cAge@cPT^9GjelENT^lZik:I>j?Z9A20RXJMZg:eCM2bTSfB3;8b5"
  1595.     A$ = A$ + "L048`nn2f9bDf5VGP0>MWn2Lj000`H]ZH54eJ4;6E]ZeH53R8643E5<a`F3k"
  1596.     A$ = A$ + "1E1E453Dk<]X8RLjUoUO3ZH;JD]2Z8FJXZQRe\RJY:8620R8AQ0D10444SH["
  1597.     A$ = A$ + "XMifm00PRHEK`6]05D4DA]ZUFH=A15oo053[K3FG451Eh`QR>5dZH4<02ZP:"
  1598.     A$ = A$ + "XRE4KdV=AEA@4001;]V=J1Z8XHZ008:P2FgV=]RQ2X0ZHHMKbj6RFiWo[08P"
  1599.     A$ = A$ + "PYHCfPP806Fg:V8X2TcR4PZXR1RE\6FJRRZXAW:H4K0jPR002V:FJSFeZFcj"
  1600.     A$ = A$ + "RX0:00@3>J@1@@]`Z6fXQeF4`PJ0PJHY06ZQ=HQ?U8X:\PE\P1D4MJM5@000"
  1601.     A$ = A$ + "0H@mbZFH:X88R2FJmK[Q1151A@A]d:fXeDVG?9WfP=9:R:000`AX0hSA<d>j"
  1602.     A$ = A$ + "NZ]ceU@j3oJg[mL`b`H33]l^7Jh\N9TN=n_VN]W35WeO000BUA6aYLj?cQS;"
  1603.     A$ = A$ + "gCUhgb5P8WKiRUc;\P1R<5ARU2aK2000PR00P84UX6\jnNN6LE@4a6a6[XXH"
  1604.     A$ = A$ + ":4?Aia``Bicb5P7A0K>3V:RQ5R8HH9FE1?CIeB;0A555\H5E=JeX:F<MJRcK"
  1605.     A$ = A$ + ":408h;`b=>8DPTAAAa6`ZX0R8P]ZZF]Zf0008FA[6]:F<08:ZZVfTHElimDA"
  1606.     A$ = A$ + "4=Jd8R8F\07c?<]9[<6D5440<08XXZX:J]>EeJ300PPXX:FJ=[HYZ:880H\X"
  1607.     A$ = A$ + "ZAEa200P8::J43000D\Z5f@_=B]^@00T1[ZZEE50C\ZHCVZZZHJQYQc3dTDO"
  1608.     A$ = A$ + "i8HSYD_0X0PP5FJQeEeP>EeZJ320100FEC40EEmRa0bIB00P=]H0@0[EAa1g"
  1609.     A$ = A$ + "oZLOeY03RXfXQE05D@@`06AAYJEA4L1004_Fd820NH3]1eag^hIoG7EOg7;I"
  1610.     A$ = A$ + "6g`6JSZSoMecU_>ZUo^?Fb\Ho10000hD2`I@OXLL@FDKm69P`dY000dRKZYB"
  1611.     A$ = A$ + "e00@\W00b:eTT;L@;`A@6PGH\]14\`d70A408bZ4SX0;0000]00000J=KTJP"
  1612.     A$ = A$ + "8V8XVR8VXRRQ:HJHE]a4DA54UT:028D10D\::00P:00063:0X2HH[]fIJ022"
  1613.     A$ = A$ + "8fX6V6PX2:F4[V000F\g6C01000004D[a:Z0PPJGlAR2lP8lY2@XL9Q`?e_@"
  1614.     A$ = A$ + "L<9XY1li`Ji4F4d_gAWVBLDSm24;1Q1@=b01Q2^_<=kAWXH56P3RU2G\004@"
  1615.     A$ = A$ + "LEEDD5564:\2UEJI2A@`G<>\0P@1@hb9C@HPMJ10V:A>oUckCb^:=Id0000H"
  1616.     A$ = A$ + "QL1km6Dh10080>7Hm1^J02V0c]60NI3A`T6_TiWeKo4k:oY`X?9^\\Q8@AS?"
  1617.     A$ = A$ + "DmMih_JOU?56m5hQo00000L>0hD000cY000D4=000QF80007;08DWR47300e"
  1618.     A$ = A$ + "2hH08Eo20hH0:[4001;<102K099A00D=0000PF00000eF>B5<0343<BaR005"
  1619.     A$ = A$ + "00E0@c00b61000104\j>Y008HB3R50PFj>X20P6SAe0008eK;00000000RF7"
  1620.     A$ = A$ + "00@Bo=502;P@nYLH94n<8d2H@`l4VU`5PeB3]DMbih7==EAZYF@9@15@;T8Z"
  1621.     A$ = A$ + "A0142\480EDQ460JSf4IaX@DL>CF8[45<R:119EA01BHbJCh300@;]d`[OJY"
  1622.     A$ = A$ + "aN0CJbjXa0600@00<0000@3HY=d^SM435030000:4?00TD00NJ41RT6OJjNm"
  1623.     A$ = A$ + "]obab7o]m<c1:Tf@T8Ya_j^GojOEUoBIkIf5L`o10000Hea1PjF4`L:0005A"
  1624.     A$ = A$ + "7008`Y000hH40@M:C\`06`23F0;<d3@`2CK045P44fP0000P620000RFZ615"
  1625.     A$ = A$ + "ElZDmLY08Z0@f80P\6000008Pj]000HJjZ00PJYZ600@^nTf100P]VF45000"
  1626.     A$ = A$ + "000@a@\E000aJR91@215W2nPU3h`B5VQ:RRC`D^4`1<2bC4R8f0H8XZ:R1ZU"
  1627.     A$ = A$ + ":1AAHkN9Z[`h9:HIV`9UJK;i1bDg[2b8C<E0I8FY<6[A>=41@1[?AR8?2500"
  1628.     A$ = A$ + "@:>6f_^N7^lY9EJB1_P>^QWQU000@11P1003;QQ9OP\0D0000h40H`00nH41"
  1629.     A$ = A$ + "RZF?`dmjd?eXC_V^;3LH\Q0AE[7XiNIjWJD?f^V^T9Tn70000PYS30eD5XML"
  1630.     A$ = A$ + "PXVj=0<Q4e4eK00ELC=E;10X770@UZd56`2FBXSHBPlH\hH0082004eWCU89"
  1631.     A$ = A$ + "0000]40000d8[X:X86;FEE05AB>K[EA0RZ=XZe:28NEAT^2I@10002PH]F00"
  1632.     A$ = A$ + "04kZ4E5XZFZ]X001L?dE1@000000T@c`AB>b4:GR0DFQ8RbU3hChAib@<PbQ"
  1633.     A$ = A$ + "WikCV=a:jfJD0QeRXej@3R>@[P>]4I]RHAXa^EGBPVl;L9872fBXXdC5jI<B"
  1634.     A$ = A$ + "6AE2Hk4jRfd@6A7QYHb@n\:15;0Nh100a7h0jc20PHS0a000?P30N000`:3f"
  1635.     A$ = A$ + "BAY0g0H1\000>N07070LW0D1100000100<]bX\UR25PgFA\N>?oY_;5gIn2="
  1636.     A$ = A$ + "ATdFA\N>?oY_;=W<OaV09OZWj=92IVI4ATI283eD_EfB8fI<9XMLQXf:T0XB"
  1637.     A$ = A$ + "g>1d5FP9eUD;eS@KP]`W4@X0CV9<9000\6E=H53B4_aRA`4=ZJ=HEE51<5[Z"
  1638.     A$ = A$ + "[X60TDehPE<P80F\aRH:RP2800@6DE`Na^PAaA_]ZX08@3H7ZP0X0hED418b"
  1639.     A$ = A$ + "PnRZgBK`DEC3\@=aB[PEDe6Ed52[@ESdXb488VA2211@Q4E\^=HR2IcgngBA"
  1640.     A$ = A$ + "I^ne6A62BF6NCCTIXA6GR0SM0b<>0I3<`bO0c0B@JS5J5]RRa=`30^5LIC5P"
  1641.     A$ = A$ + "U3>006P208G[aV]H4aT4`@<NP3\NX10CadFT5:J2E`DUK2f1_?8J6?l>YgOC"
  1642.     A$ = A$ + "]W2L`3@j1`64PUBF1IfJ375`E]H;06400B_Djb<6J104T@\i\P]bB<00nF6?"
  1643.     A$ = A$ + "K7[Ig1U@`F7k`F6gffGcY3B2F37`86KRGln>eYj4254:8TP4@Bh>610000fK"
  1644.     A$ = A$ + "HH_=HKLVfJeZmAF]gdJFJJ;\AeV\Uff`jfPUZe\5FJMKbdZfPYYE\DcjX4;d"
  1645.     A$ = A$ + "I]RF5DeHE=UFAUkBgnj^L7;Q44B@81QEPMgE[6^6QBa2;\<b8;\`AfAVX`FA"
  1646.     A$ = A$ + "[XXEdX5=E@AUPHTAFHQ5F3b8;IQ3B[HDDAD5YRRXEAd]BQFYXBGXRH:4M99c"
  1647.     A$ = A$ + "C]=Amld8URXZPZ2EdPF=XE3[D@E`2FHNJ;4kRYFgTJ9FH=>`>`>`^;?900F<"
  1648.     A$ = A$ + "ebDbET98VPh9`CIL[0`3OkfSBTAQ45R<bD>000PSFKgXFRN0Tm9K8;00P`27"
  1649.     A$ = A$ + "iIa83000`kV0%%%0"
  1650.     RestoreFile A$, "jump.ogg"
  1651.  
  1652.     'block.ogg
  1653.     A$ = ""
  1654.     A$ = A$ + "?MfIC1P00000000000@N^00000000`PlEPH0N4PM_9WHY=7000002@4[0000"
  1655.     A$ = A$ + "000004W00000000^1ldIW=50000000000000ii20040000@DEnC\B\cooooo"
  1656.     A$ = A$ + "ooooooooooooooooA>PM_9WHY=g:0000HU6LXibCbM68\UVHFmVLRUfLPT48"
  1657.     A$ = A$ + "b0C<b0S<`<38XlDK^U6LbEfLUi6MY00000@05HgKb9FJcUR@3IE00P0000@<"
  1658.     A$ = A$ + "<1Ba02=TE100@000PAB:><YI9UBYD6::iQ9U8UD:UBIa`T8VDVHaH<6SaH<6"
  1659.     A$ = A$ + "SaH<6SaH<22=TE100@000RB2>>Zi9YVciL66WhXLPVCJ>QcYPLPRA1N>98Lm"
  1660.     A$ = A$ + "V<VKVB[Y[iVcYD22=TE100P0004BQD85BQD85BQH86RQH86RQL87bQL8WbYL"
  1661.     A$ = A$ + ":X2ZP:X2bP<83bT<YCjT>YCjX>ZSjX>:d2]@;d2]B[4CaD]ESiJ_6d5OciL>"
  1662.     A$ = A$ + "WciL>WciL>Wc98d@F500P00048T1I@642Q@85BQD8VRYH:W2bP<P@3IE0008"
  1663.     A$ = A$ + "00800000759595;5;7;7=7=9?9?;A=A=A?CACAECEEEEEEGGGIGIGKGMGKGO"
  1664.     A$ = A$ + "IQIQKQKOIQKQKQMQMMOQQQQQQQQQQQQQQQOOOOOOOOOOP@3IE008100XSTSU"
  1665.     A$ = A$ + "SWRXRXQXRWSX3@XQ\:00T100400898Y8Y8iX9IZIZiJJKJ;J[JKK;;;;;;;3"
  1666.     A$ = A$ + "4J8[200010010000000XYYYYYYYYYYYYYYYYYYYYYYYYYYYIIIIIIIIIIIII"
  1667.     A$ = A$ + "IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII14J8[2009000MLLLLLLTDTD"
  1668.     A$ = A$ + "TL\L\L02=TE10P<00P00095;5;7=7=7=7?7?7?7?7A7A9C9C=C?C?P@3IE00"
  1669.     A$ = A$ + "0800800000000537577797=9?9E;C;G=G=G?G?GCGGGGGEEEEEEEEEEEEEEE"
  1670.     A$ = A$ + "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEP@3IE000100@8MJVUZ182c0IHP@3I"
  1671.     A$ = A$ + "E00P0000H4:23a02=TE10001000RQB>8J2]VcgL>>XIiPV:5K>M`9BeVWTKZ"
  1672.     A$ = A$ + "H^iL>WciLbVcI<>WciL::WIaPV9dJ>Wc9aPVU2JV@[iL>WW4KN@[Y:]VciL6"
  1673.     A$ = A$ + "WcY36WAHL>WcY9]V7TJfH]iL>W5dJJ>ZiBaVciLRD^i9eV;EK>WciL>WciL>"
  1674.     A$ = A$ + "WciL>WZGLjL`i4>WciLRJ_iJiV@GL>WciC6W^gL2QciL>WciL>WciL>WciL2"
  1675.     A$ = A$ + "2=TE100@0001QQ=66gYPPdWS6865QHJ8Cj1M?j`TP63bY@Z7=jXA:UjP@9E6"
  1676.     A$ = A$ + "WD:M22=TE100P00042QD85BQD85BQD85BQD86RQH86bYL:W2ZP:YBZX::Sb\"
  1677.     A$ = A$ + "<;cb\<;cb\<[3k\>[3k`@<43a@[d:aB=EKeH=F[iN>W[iPdJUF[eJ]BYD:UB"
  1678.     A$ = A$ + "YD:8d@F500P00048T1I@6TAQD85BQH8VbYL:W2ZP:P@3IE000800800000?9"
  1679.     A$ = A$ + "?7A7A7A7A7A7A7A7A7A7?7?7A9A9A9A9A;C;C=C?EAEEGIGKIMIMKOKQMQMM"
  1680.     A$ = A$ + "OOMOOOMSOMQQUUUUUUUUUUUUUUUUUUUUUUP@3IE0002000P@842QD85BQD8U"
  1681.     A$ = A$ + "RaH<7ciP>9D212=TE100P00P00000LDLDLLTLTLTT\T\TdTd\d\ldldld4m4"
  1682.     A$ = A$ + "555===E5M5M5e=]5U=U=M=M=U=MEUE]MUU]]U]e]mUU]mmmmmmmmmmmmmmmm"
  1683.     A$ = A$ + "mmmee12=TE10P400P>B>B:B:B:B>>>>BBB0Q6bZ00@600@00PRRSRSSSSTTT"
  1684.     A$ = A$ + "TTUTVTWUWUXVYVYWYWZX:@XQ\:00040040000000PRVRWRYRWRXRWSXSXTXU"
  1685.     A$ = A$ + "YUXVZV[X\Y\[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[;@"
  1686.     A$ = A$ + "XQ\:00T000dAbAbAbABABABAbAb18d@F500b000200L<L<TDTL\\\ddldldl"
  1687.     A$ = A$ + "d4m4m4m<mD5M5M12=TE100P00P00000000<T<\D\LdLdT4UD]D]DeD]D]D5E"
  1688.     A$ = A$ + "mDEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE======12=TE200"
  1689.     A$ = A$ + "I000TCZYD[W3B86TiTH@XQ@B4cAaLYCjL>:G<N8TSHDB]7bD<311eR9d9E85"
  1690.     A$ = A$ + "D;^FZeaLD]HS]B6B1eR]6;E8USj12=TE80@XI0P37707==07;=0000000000"
  1691.     A$ = A$ + "9==0=AA0=?A00000000007==0=A?0=AA0000000000000000000000000000"
  1692.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1693.     A$ = A$ + "0007==0=AA0=AA0000000000=AA0ACE0ACC0000000000=AA0?CA0ACE0000"
  1694.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1695.     A$ = A$ + "0000000000000000000000000007==0=AA0=AA0000000000=AA0AEC0?AC0"
  1696.     A$ = A$ + "000000000=AA0ACC0AEC0000000000000000000000000000000000000000"
  1697.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1698.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1699.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1700.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1701.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1702.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1703.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1704.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1705.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1706.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1707.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1708.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1709.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1710.     A$ = A$ + "10001h0004P525J8[80Ph4007>>@B2BB`C3PSU5llPW6<=1hHI1??Xi1CC00"
  1711.     A$ = A$ + "00000000000@bC3NN`c3VV0TdlPW7llPY900000000000008ii1??hi1CC0B"
  1712.     A$ = A$ + "NN`c3NN`d40000000000000l<=QY94=QZ90?CCHJ2CCHZ200000000000000"
  1713.     A$ = A$ + "000000000000000P000P1L0002`4:3DXQ\R00RC00LhX89100PSTTU5000:B"
  1714.     A$ = A$ + "BFF000HIIii100PTUUW70000000000000000000000000000000000000000"
  1715.     A$ = A$ + "00000000000000000000000000000000000000000000008000H0700P0<Qb"
  1716.     A$ = A$ + "05J8[40PX0007::FF077;;PSSU5@Bbb2PU50==0NJ045108000X0700P0\1="
  1717.     A$ = A$ + "UHa1X@3IU004500h`AabBCCDTSSUUVVX877;;==AAFFJJJJRR@cBCCD4NNNN"
  1718.     A$ = A$ + "VV`ccccd4RRRRVV0AACC10005h0004P=XY4;>05J8[40P@2007>>FFNNRRRR"
  1719.     A$ = A$ + "VVVVZZLL\\ll4555==EEMMihHIii9:::JJZZjjbbBCccCDDDddDEee5JJNNR"
  1720.     A$ = A$ + "RRRVVZZ^^@CCDddddDEEEee5JJNRVVVVZZZZ^^`cCDddddDEeeee58:JJJJZ"
  1721.     A$ = A$ + "Zjjjj245====EEMMMM1RRRVVVZZ^^^^0CCCCEEEGGGII0VVZZZZ^^bb0DEEE"
  1722.     A$ = A$ + "MMMUUU1XZZZjjjj:;3`eeeEfEFFF60^^^^bbbb2000>`10080SP>9SZ\8\AC"
  1723.     A$ = A$ + "h2?0DXQ\R00R2000<6VBaD:3S9Q@:4JH<94BQ@VDBYB:UZP@ZDBUB54BUBZD"
  1724.     A$ = A$ + "bXD;UJYD54BUBZDZP@ZDBUB100H7h00PMP525J8[40Pl0002SAYH<WciT8TB"
  1725.     A$ = A$ + "aH>Wc9A8URaL>WCZD<VciL>WD:I<WciL>YDbH>WciLBYTaL>WciTBYciL>W3"
  1726.     A$ = A$ + ":UBYdiL>WC:UB94jL>WD:UBWciL>100@5h0004P=:bVC`81EXQ\B00B500<h"
  1727.     A$ = A$ + "hHIYYii9:JJJ99YYiii9JJJJZ99YYii9:JJJJbcccCDDDddDEUWWWWXXXXYY"
  1728.     A$ = A$ + "Z:GGAAACCCCCEEbbRRRRVVZZZZ`dddddDEEE5VVVVVVZZ^^`fFEEEeeee5ff"
  1729.     A$ = A$ + "ZZZZ^^^^0GGGGGGIIP[[[[[[\\000l4L00P:`6FM4>YXa2\@3IU00T100@H<"
  1730.     A$ = A$ + "8T2Q@8U1Q@:42QD:529000H0700P0<Qb05J8[40P`100021SaH<6SaH<f`HH"
  1731.     A$ = A$ + "<6SaH<6Sa4W2SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH"
  1732.     A$ = A$ + "<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH"
  1733.     A$ = A$ + "<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH[eJ]F[E0PQc5>0@"
  1734.     A$ = A$ + "IAHSc`:9MFQS6LQ6b:108T000`H@863jT@YT:YD52aH>XDBUFZUR]:4RaP@Y"
  1735.     A$ = A$ + "TB]F\5S5?Wc1QB:UJYH:f:N>WC:YD[5SaH\FL]@8UBYF;fR]H\9KQ@:UB]F<"
  1736.     A$ = A$ + "6[eHcXD]DZeRaH<6[aRBiBYD[5KaH\FS5QbVK]F<6[eJ]FC:U?gBaF]FSaJ]"
  1737.     A$ = A$ + "V<:SB6SaJ]6[eJ]8D:U<6CaD\F[eJB8<6O?6SaJ<W[eTB8<nN<E;aF]F[9UB"
  1738.     A$ = A$ + "Y<2I=VZaJ=WC:U@I<fH;ECiL>G000e3>00D9H4d9IDU5Q=J2Gh1P2=TE20@^"
  1739.     A$ = A$ + "10022YD<6SiL>WciL>W3BA:6caL>W32Q@842Q@:2aH<VciL@842Q@84BI<6c"
  1740.     A$ = A$ + "iL>842Q@84:QB:UbH>Wc1Q@84:UBYDBYDWciP@842QBYD:UB:UjL>742Q@XD"
  1741.     A$ = A$ + ":UBYDBYD842Q@842UBYD:UB:UBY@842QBXD:UBYDBYD:52Q@8D:UBYD:UB:U"
  1742.     A$ = A$ + "BY@842QBYD:UBYDBYD:52U@YD:UBYD:UB:UBYD:4:UBYD:UBYDBYD:UBUBYD"
  1743.     A$ = A$ + ":UBYD:UB:UBYDZD:UBYD:UBYDBYD:UBUBYD:UBYD:UB:UBYD:U:UBYD:UBYD"
  1744.     A$ = A$ + "BYD:UBYDYD:UBYD:UB:UBYD:U:UBYD:UBYDBYD:UBYDYD:UBYD:UB:UBYD:U"
  1745.     A$ = A$ + "BYBYD:UBYD:000j0700P0<R:]@\Cch:?2L45b`4@5J8[400b000474;]F[eZ"
  1746.     A$ = A$ + "<:Wb9UD[3IT6V3:YHWd1QD;F;E681YLB:eYP8TR1YF8SZD:VCJY@;SYD<8f:"
  1747.     A$ = A$ + "a@7SaLD>UCU@7S1000PP00`0A8c48@1@16830P3@81Y00X`2<da`514@^4bX"
  1748.     A$ = A$ + "03:L<Qc9MJ30044R<3AR8F<8a4Z6XXRY30Ha5H8O0P<dHSd^h2X;3`5d5ge1"
  1749.     A$ = A$ + "2QP@@88FL0D09P3>QKh9N3?QK`9XCAUj01000000N00h1008I3P8R8JVSS>l"
  1750.     A$ = A$ + "h3@2ATA8Y4C>151000000\30h300895P8R8JVSS>lh3@2ATA8Y4C>1U000@0"
  1751.     A$ = A$ + "4000000@04028P0000000@0000028ldIW=504LI;00000000ii20080000@L"
  1752.     A$ = A$ + "JCSSJ<UDoo`o1l?3o7`o9lo0oG`o>l_=oCeodm?ND7??<Pbf19XR7NEG??<P"
  1753.     A$ = A$ + "bf581El`S?098G7Vg0PV9P`427>Lh`A1]J]X1DeYZR6aAmnhY[mglWA\FMZC"
  1754.     A$ = A$ + "]JE[^5HogS0RY=JJ3fPUf<6Z^XE5100eic3CJWQAZ@a<EMnl`TfIHT>D<Cn1"
  1755.     A$ = A$ + "8QPT3ck0PVBPT@:ahcUBD5dPEDdXP6dZ:WeK^JgDkEdP>45aWLl;JT3R62FV"
  1756.     A$ = A$ + "V93k=cLF@FXUFe2\A100JL3c8eUI4fPN`8mhSKH6Y^<S`6d36Y7og00@d[7m"
  1757.     A$ = A$ + "VMc1RMPH7iP3R96;VH<14c\H4?W000XITB88S<]ad6CkE;F=]eZM2F\329T4"
  1758.     A$ = A$ + "B115QED6a4S8U8Fe6]52Z=[fPPYHQY2XZXeR5\:JEZ]bcgI:__3>3H3CTb4Z"
  1759.     A$ = A$ + "DPZ1l?C;5H_S=\`CjBKEFXKnTS6H=8222P0OR\\ifL`W`G@LKFbTB7Uf2B[]"
  1760.     A$ = A$ + ">_Xi[iV9mBEPTG=lM[R>[GdObHl82AaFj<3IlANCT_2iGbc2bA?0HL^OULV7"
  1761.     A$ = A$ + "4hbY<\JGf5j]In4A:ndMo6i4RXNTm3Y5]`<?<UJlUaR5=F0[e2XZ1A5[ED1S"
  1762.     A$ = A$ + "5\Z2RR5;XA@4[ADaP000NN3EeV0>P>XbOMi=DEK2h0jP:oem^^T4A:UQLXO6"
  1763.     A$ = A$ + "\W:7L`17LTH>`>86a<1<a>@<a>h0000<611;R8HDSA\edFKEk<\a`DaZJaZF"
  1764.     A$ = A$ + "5ejRXPe=]dd23[KQ=XFPUVFJ5C3e2<@AS8F01AD4iX?J=WcE>XECT31^c`UD"
  1765.     A$ = A$ + "R499]<GRc<O8W[9m:NB>NE>fJL@N:M;7WB4>@aPaP6D\82;J5GfaCFgVMEOe"
  1766.     A$ = A$ + "[8Y5O9aJ=d?aW`_S_^dW`>b>X9:WC`5OH4_ehGNjCUSVZI1?G??C00G_4j^?"
  1767.     A$ = A$ + "MHgY\1Z@4JeTWX2]\Uf<FED^FVdRn7o2OBXb4Jg>;gOA<i9g9GMbK]T?E]g7"
  1768.     A$ = A$ + "0hY=<3`480\0EnSVf`<0CP0`2Di?j[j=8Tb<c@I\U:7L`17L`17L@<7LP9@<"
  1769.     A$ = A$ + "F<VH7i0000\FA]FE=ZXH=ZEDK`6]Re13;]d2;]A[:H3FcZZUfXYE\2HE\2Pe"
  1770.     A$ = A$ + "PZ><0ZREED4AA\ZFd82Fh@WnK6A;iT`?j@aZm1hOJCJF[Mc5O5OhJ[VaU@GI"
  1771.     A$ = A$ + "kQ\DjF95@C^VlK7]kF^Da^>:Oge2;57[[jhGgFXSZ8_ZSB2EVF08iDnFb9Qe"
  1772.     A$ = A$ + ";<fh6V_C;5[BGC5LTjCWI:U2AU1Y9en5mOo_WV2@12n8`?AoZmI`Men4nmn^"
  1773.     A$ = A$ + "mITha`f`^OC[839jHNoO>]7;k@ZbkjEUk=XEAEAD5151A=FIk>UbeM7=0h_="
  1774.     A$ = A$ + "dR9STR1D1S\km]QF<ITD<P:HTM_7Pn\iYb1aL`1RM@<78f174S0RIaLPMT30"
  1775.     A$ = A$ + "00`6k\edF<Ek\aFk`R53C;=DKd`VEKbdJR56FZ::H]:HA4EaJaJVF5eB1\RE"
  1776.     A$ = A$ + "]`d25[JKa2RE@3:GPTRRKOPZhZ]SXF_;aZZf5Ac?Ia;Lk?bBRdkUTB^nDY7["
  1777.     A$ = A$ + "EPhS\n^SJbUfE?EfQd9:98N7UQ0^ZYVZbEK=7CWE2bQl9e7]aWlUd?^I`712"
  1778.     A$ = A$ + "jM@MKj30X2fS_U9YCA`XaN240Po6GeEBe@4[_;T<_M=LN:?bYLCMd14R3=<J"
  1779.     A$ = A$ + "iX[TjdAFloOZLn\TWZP1<FaJD5AWbZh8:C2kb0PGf`<0GP2`2Di_LI3c0L1:"
  1780.     A$ = A$ + "0;@UobkKYb17L`17L`17HRMP9P9F<VMT3000`6\5R=8fP5F:Fa`VD[KQ]`4;"
  1781.     A$ = A$ + "\I;4[K3Ze`6]`Jf0F1CKd`jFgD\VJ=eB;10]JdXC@4S6]fREaFd06SLdm;OR"
  1782.     A$ = A$ + "YGVSU[JDVL22oCELJT=mLZcLQCUQL77_;oj9en:\4;Q^NEZcnj;bOYF<=_Rb"
  1783.     A$ = A$ + "469jbg:KBl>H9KoiHAcgeLbKlFGRP<m[GS_=_fBff63]c7W[eZ_DT8JEYMfF"
  1784.     A$ = A$ + "K3]ccWG]7@jM>QfeY];eVKQoLnWfZTZ\RjZ@lbbl\`Gf]BKVVoaISD;WIc^]"
  1785.     A$ = A$ + "G[b^Co5FSXAEaFA05@D9mMjfWkn^10P7g@5W;@1X26YG>^Q:>GP2@5<B_lEP"
  1786.     A$ = A$ + "dJg17L`178f1aL@<78F<28VH7HRMT30000k]HSYHHJWHJZfYfHQ5f\YE=<\V"
  1787.     A$ = A$ + "E\Re]^JYUFc`JVH8FHY5Re4aJFHJSZE<<=<43[IE;\ZPF[OObeAR2lTJdhA["
  1788.     A$ = A$ + "6R4k3M4ioF`5D3egoAZ:Digboh\RX[b<C3ADj>MbkOFkf5Ue8LM@SYEUQ<4["
  1789.     A$ = A$ + "DO5BbZhlOGDn];82?BhD4=ia9dL=<gWm1faTD49d6CeKW6^NJQXa8ih@Hb;0"
  1790.     A$ = A$ + "TQ<cF@TNNT_5i0P7949E:F:KXG4RTm`W\mnb`B7MkQ^T4=DLd:RDILJS0F@1"
  1791.     A$ = A$ + "4]RbO96W_2A5=1Poe`@P;@3X3Zl7lG331^0=P>XbO`O500fBUHYhP3>h0a4c"
  1792.     A$ = A$ + "4k0C0C<c4;P3000X000Q4D@ATT3U1lII5D0N4[;REa6\UFcZ6RQE]d6aB;]Z"
  1793.     A$ = A$ + "Y5FgBCC;Da2;@aRF=H]:F@\R6]JdZAAD45DA5Lg;MT_UP6bVD\fGl9=H<P:8"
  1794.     A$ = A$ + ":ZJnSo=;]FeAXcAKL;Qn@SFgBGCS7RbMBn`>IbOi[nfGG[[]4RCj7Tj\=Aci"
  1795.     A$ = A$ + "AD[MKI_VAiATOT8CHGS7YW_0Imk7LU31baSPS:8cmT_Mbj\n1<>;bAKc:mMm"
  1796.     A$ = A$ + "J;K7eZ\lAh[kfjMKO_UJkjgcBg>nXoV7hbJ5MWEnDfFSAaZPR1<5]RbNZO7="
  1797.     A$ = A$ + "0hW=Tgh2D0ZPAj1Of@NS;@1X26Y7lg00P41K>b17LM`1aAL4?U[3DDVd1V[H"
  1798.     A$ = A$ + "000X000C\a`ZQXFLEad@4Q17>4Qi`C4nPQ;7>LDC<]VJ5[JQUFABA]R>@EEA"
  1799.     A$ = A$ + "7H5=jD7ZFQ[K;cT_2d:88HaHE5YQDB9i:kkJKEGC^DT0mF:H20;0@PMKFmOO"
  1800.     A$ = A$ + "[D_=7e9E^]_XI1HZ\8^[\R^2F8WNGJYX8gbDehUiQY<D:BC=Cl8\4f0H14g:"
  1801.     A$ = A$ + "c5U3FQJHD6Yb8Y@4b0kcY^FK;ib:;ZJ6EGoOi9a1=P00P51B0F=hR5181B;5"
  1802.     A$ = A$ + "UG9KnFc_MP3;FQT[BY<J?Oi[Gmf49=oaH5Q5@H0b:0<8L@X8TXjCUlZY?lM1"
  1803.     A$ = A$ + "nF3EIY0;P>`J7K=DET2\0j0[MlE00HK`D]e9]JS@3UIJWh4000d000<Bb`bE"
  1804.     A$ = A$ + "@FFR>4RH4ZAFg:JVg<cUQ<Ua<C9cIQ]:VfQET<cBk]\=\aB]C@De1Je92PHE"
  1805.     A$ = A$ + "55[A[]]eZR:X:T3]3UU`TofhVo]KGl_cmeCT`Tb8a@[``fCTU=62T5`R1<Bb"
  1806.     A$ = A$ + "P@0ba14>80`QUa:P@74:AP=aU4PL8B8GfZLPV@9T4P\S^3RlH4fF01cP\84B"
  1807.     A$ = A$ + "jPRbb:04Jb@2<P[E\B38=<g]MG1EYVQNe_1\8002582R<3Z4MTD3A62AD@iX"
  1808.     A$ = A$ + "@U^=FXS1J\;FjBZTbS]f23eO>FhOWMhHLEed<PB`>\KLYD97WF::]f=^^;Kf"
  1809.     A$ = A$ + "]UciWCK=?oZWfS4ic:<6;10;fP=:085RdGjn8<afH2T]\aDoLe00NH6UaFUd"
  1810.     A$ = A$ + "d6UF5gQV3cX<fZH>fXeZh\URO300<]A_5fNm2@[03aYV=<E[ZZTBF:000d81"
  1811.     A$ = A$ + "0``D<B`n4]gN;HeRmFM=C=]91kSgNkJXNK[gNKZCB94R`U3ONli`Ua[BVNWT"
  1812.     A$ = A$ + "cANO1[;FP\2S23\\LS32GL2<iX1iP@IE0X`P`0;35PeFEn\hJ;00aRB5=J[Z"
  1813.     A$ = A$ + "F?iQbR4H0TG\\\:0E@LMk]Io4b1eT:=HI0j`07Ed3bbTT];W>bF^Yi>PYaAa"
  1814.     A$ = A$ + "1Q1Q1[J_8oB6AAEF`Xe5gdFaBRH5E5EmFB91bBabi00YcUACbmd\DL@X<3dd"
  1815.     A$ = A$ + "c7hGlnX4\_k^k6cZlVJ>g5N?<_`bKnXMKZf0e`kb5c@AUW6B`>=gG[T?VN:H"
  1816.     A$ = A$ + "]I]=I]IQUVGIIQ6h2O]U[1?AAa4AZ]8@D<DF::lfM]CLhP4fCSRR0BKM[6@Q"
  1817.     A$ = A$ + "2TeZ\FSRU1`0JE>aiW;C4M00nG6GODGhY3BH1jbhiEo2AhP466n:00\_faBO"
  1818.     A$ = A$ + "[f`R\@ej6N9000:900C0cI<6@YD:hXYUJagXAbdfU3OYajcFmGQEJKEbXUK:"
  1819.     A$ = A$ + "A_iU=Bde=ec[\?Mj<ZEGI[1V4eGOAWG<L`@Z4MLXC3o^kVInVOaG7h<RVcoc"
  1820.     A$ = A$ + "D32^ZNNbNG=\nCnfh9`27UdfaY1W`HVlBM_@?:C`AO;DOfbSXULalc2e:7Ii"
  1821.     A$ = A$ + ":^QdGAbdD>R@o_<7C<<7j]XP2Bh>SYHm`[fg@o@KP^LMeo<4[m5E=lDV]^<6"
  1822.     A$ = A$ + "NkX7gk\^Mc[DUg;MgEb6Xo>SBWH:6:iM?<kjm[mXQ;]bW1KWm`fVY2@^\7Zk"
  1823.     A$ = A$ + "c^;XBX`md0WgTT]Yo_07GLZ782Sg6RU]@C06^6W7H6YcgFR7>ZdlO?;S\Wkl"
  1824.     A$ = A$ + "<1FolIolQOO<hm^UIVCaI8<U_hH:6P[R9I^B\Y\ifP`?[098dRn1cH^jYfh1"
  1825.     A$ = A$ + "00>n6YEJC166IQVS1:<g02ndaAX]5Q@@f5iKM4PgUagGl38\19P^<njBM0Y="
  1826.     A$ = A$ + "TShEbmme>KKS>D[ZJ^DB::000HHMK`jFdfWA[J8I8SFZfJFX=<ZiaG]Q_feI"
  1827.     A$ = A$ + "M]HJe?=WceH?;F^HNKn@QIfSTgYfIIfKWG\LAh;?nVGoQWOcP\LaYY:l0Oie"
  1828.     A$ = A$ + "MjUe8;0VnmIj\bcn<]EUE2ig?Ooe?okAEFAfCCTaaRbjUj7GGj]<b0Rm]mQc"
  1829.     A$ = A$ + "^7:0:J[k[k\HjgUE=TeemUejbjbjb@Fb@UEbdc9_SlckckcXYc:Q\^^_^C@>"
  1830.     A$ = A$ + "abb8757MWEFYc:[\7bhXkl\?kNTS\VCFidk:;nko=SX9goA?MU<]U1[h[k[2"
  1831.     A$ = A$ + "00Zlnj]RBIYNA<TRQA>[mi]7B;[9C=eDC5]gEG=5SY^oS?FLU2lacK?0<000"
  1832.     A$ = A$ + "0@FGaAFcckcK?IUE20<Vb^fd0la_00LeEnaDAkM5_OIZYhoV=3`7e:1Of73Z"
  1833.     A$ = A$ + "^^CSVUg6TeZ\P\l5_cLcoiSblZh:cg\0R8:::j];O]U?A00H_hibXAG5%100"
  1834.     RestoreFile A$, "block.ogg"
  1835.  
  1836.     'drowning.ogg
  1837.     A$ = ""
  1838.     A$ = A$ + "?MfIC1P000000000000f^00000000hcK@FF0N4PM_9WHY=7000002@4[0000"
  1839.     A$ = A$ + "000004W00000000^1ldIW=50000000000000Hk200400000bibH[B\cooooo"
  1840.     A$ = A$ + "ooooooooooooooooA>PM_9WHY=g:0000HU6LXibCbM68\UVHFmVLRUfLPT48"
  1841.     A$ = A$ + "b0C<b0S<`<38XlDK^U6LbEfLUi6MY00000@05HgKb9FJcUR@3IE00P0000@<"
  1842.     A$ = A$ + "<1Ba02=TE100@000PAB:><YI9UBYD6::iQ9U8UD:UBIa`T8VDVHaH<6SaH<6"
  1843.     A$ = A$ + "SaH<6SaH<22=TE100@000RB2>>Zi9YVciL66WhXLPVCJ>QcYPLPRA1N>98Lm"
  1844.     A$ = A$ + "V<VKVB[Y[iVcYD22=TE100P0004BQD85BQD85BQH86RQH86RQL87bQL8WbYL"
  1845.     A$ = A$ + ":X2ZP:X2bP<83bT<YCjT>YCjX>ZSjX>:d2]@;d2]B[4CaD]ESiJ_6d5OciL>"
  1846.     A$ = A$ + "WciL>WciL>Wc98d@F500P00048T1I@642Q@85BQD8VRYH:W2bP<P@3IE0008"
  1847.     A$ = A$ + "00800000759595;5;7;7=7=9?9?;A=A=A?CACAECEEEEEEGGGIGIGKGMGKGO"
  1848.     A$ = A$ + "IQIQKQKOIQKQKQMQMMOQQQQQQQQQQQQQQQOOOOOOOOOOP@3IE008100XSTSU"
  1849.     A$ = A$ + "SWRXRXQXRWSX3@XQ\:00T100400898Y8Y8iX9IZIZiJJKJ;J[JKK;;;;;;;3"
  1850.     A$ = A$ + "4J8[200010010000000XYYYYYYYYYYYYYYYYYYYYYYYYYYYIIIIIIIIIIIII"
  1851.     A$ = A$ + "IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII14J8[2009000MLLLLLLTDTD"
  1852.     A$ = A$ + "TL\L\L02=TE10P<00P00095;5;7=7=7=7?7?7?7?7A7A9C9C=C?C?P@3IE00"
  1853.     A$ = A$ + "0800800000000537577797=9?9E;C;G=G=G?G?GCGGGGGEEEEEEEEEEEEEEE"
  1854.     A$ = A$ + "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEP@3IE000100@8MJVUZ182c0IHP@3I"
  1855.     A$ = A$ + "E00P0000H4:23a02=TE10001000RQB>8J2]VcgL>>XIiPV:5K>M`9BeVWTKZ"
  1856.     A$ = A$ + "H^iL>WciLbVcI<>WciL::WIaPV9dJ>Wc9aPVU2JV@[iL>WW4KN@[Y:]VciL6"
  1857.     A$ = A$ + "WcY36WAHL>WcY9]V7TJfH]iL>W5dJJ>ZiBaVciLRD^i9eV;EK>WciL>WciL>"
  1858.     A$ = A$ + "WciL>WZGLjL`i4>WciLRJ_iJiV@GL>WciC6W^gL2QciL>WciL>WciL>WciL2"
  1859.     A$ = A$ + "2=TE100@0001QQ=66gYPPdWS6865QHJ8Cj1M?j`TP63bY@Z7=jXA:UjP@9E6"
  1860.     A$ = A$ + "WD:M22=TE100P00042QD85BQD85BQD85BQD86RQH86bYL:W2ZP:YBZX::Sb\"
  1861.     A$ = A$ + "<;cb\<;cb\<[3k\>[3k`@<43a@[d:aB=EKeH=F[iN>W[iPdJUF[eJ]BYD:UB"
  1862.     A$ = A$ + "YD:8d@F500P00048T1I@6TAQD85BQH8VbYL:W2ZP:P@3IE000800800000?9"
  1863.     A$ = A$ + "?7A7A7A7A7A7A7A7A7A7?7?7A9A9A9A9A;C;C=C?EAEEGIGKIMIMKOKQMQMM"
  1864.     A$ = A$ + "OOMOOOMSOMQQUUUUUUUUUUUUUUUUUUUUUUP@3IE0002000P@842QD85BQD8U"
  1865.     A$ = A$ + "RaH<7ciP>9D212=TE100P00P00000LDLDLLTLTLTT\T\TdTd\d\ldldld4m4"
  1866.     A$ = A$ + "555===E5M5M5e=]5U=U=M=M=U=MEUE]MUU]]U]e]mUU]mmmmmmmmmmmmmmmm"
  1867.     A$ = A$ + "mmmee12=TE10P400P>B>B:B:B:B>>>>BBB0Q6bZ00@600@00PRRSRSSSSTTT"
  1868.     A$ = A$ + "TTUTVTWUWUXVYVYWYWZX:@XQ\:00040040000000PRVRWRYRWRXRWSXSXTXU"
  1869.     A$ = A$ + "YUXVZV[X\Y\[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[;@"
  1870.     A$ = A$ + "XQ\:00T000dAbAbAbABABABAbAb18d@F500b000200L<L<TDTL\\\ddldldl"
  1871.     A$ = A$ + "d4m4m4m<mD5M5M12=TE100P00P00000000<T<\D\LdLdT4UD]D]DeD]D]D5E"
  1872.     A$ = A$ + "mDEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE======12=TE200"
  1873.     A$ = A$ + "I000TCZYD[W3B86TiTH@XQ@B4cAaLYCjL>:G<N8TSHDB]7bD<311eR9d9E85"
  1874.     A$ = A$ + "D;^FZeaLD]HS]B6B1eR]6;E8USj12=TE80@XI0P37707==07;=0000000000"
  1875.     A$ = A$ + "9==0=AA0=?A00000000007==0=A?0=AA0000000000000000000000000000"
  1876.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1877.     A$ = A$ + "0007==0=AA0=AA0000000000=AA0ACE0ACC0000000000=AA0?CA0ACE0000"
  1878.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1879.     A$ = A$ + "0000000000000000000000000007==0=AA0=AA0000000000=AA0AEC0?AC0"
  1880.     A$ = A$ + "000000000=AA0ACC0AEC0000000000000000000000000000000000000000"
  1881.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1882.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1883.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1884.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1885.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1886.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1887.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1888.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1889.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1890.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1891.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1892.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1893.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  1894.     A$ = A$ + "10001h0004P525J8[80Ph4007>>@B2BB`C3PSU5llPW6<=1hHI1??Xi1CC00"
  1895.     A$ = A$ + "00000000000@bC3NN`c3VV0TdlPW7llPY900000000000008ii1??hi1CC0B"
  1896.     A$ = A$ + "NN`c3NN`d40000000000000l<=QY94=QZ90?CCHJ2CCHZ200000000000000"
  1897.     A$ = A$ + "000000000000000P000P1L0002`4:3DXQ\R00RC00LhX89100PSTTU5000:B"
  1898.     A$ = A$ + "BFF000HIIii100PTUUW70000000000000000000000000000000000000000"
  1899.     A$ = A$ + "00000000000000000000000000000000000000000000008000H0700P0<Qb"
  1900.     A$ = A$ + "05J8[40PX0007::FF077;;PSSU5@Bbb2PU50==0NJ045108000X0700P0\1="
  1901.     A$ = A$ + "UHa1X@3IU004500h`AabBCCDTSSUUVVX877;;==AAFFJJJJRR@cBCCD4NNNN"
  1902.     A$ = A$ + "VV`ccccd4RRRRVV0AACC10005h0004P=XY4;>05J8[40P@2007>>FFNNRRRR"
  1903.     A$ = A$ + "VVVVZZLL\\ll4555==EEMMihHIii9:::JJZZjjbbBCccCDDDddDEee5JJNNR"
  1904.     A$ = A$ + "RRRVVZZ^^@CCDddddDEEEee5JJNRVVVVZZZZ^^`cCDddddDEeeee58:JJJJZ"
  1905.     A$ = A$ + "Zjjjj245====EEMMMM1RRRVVVZZ^^^^0CCCCEEEGGGII0VVZZZZ^^bb0DEEE"
  1906.     A$ = A$ + "MMMUUU1XZZZjjjj:;3`eeeEfEFFF60^^^^bbbb2000>`10080SP>9SZ\8\AC"
  1907.     A$ = A$ + "h2?0DXQ\R00R2000<6VBaD:3S9Q@:4JH<94BQ@VDBYB:UZP@ZDBUB54BUBZD"
  1908.     A$ = A$ + "bXD;UJYD54BUBZDZP@ZDBUB100H7h00PMP525J8[40Pl0002SAYH<WciT8TB"
  1909.     A$ = A$ + "aH>Wc9A8URaL>WCZD<VciL>WD:I<WciL>YDbH>WciLBYTaL>WciTBYciL>W3"
  1910.     A$ = A$ + ":UBYdiL>WC:UB94jL>WD:UBWciL>100@5h0004P=:bVC`81EXQ\B00B500<h"
  1911.     A$ = A$ + "hHIYYii9:JJJ99YYiii9JJJJZ99YYii9:JJJJbcccCDDDddDEUWWWWXXXXYY"
  1912.     A$ = A$ + "Z:GGAAACCCCCEEbbRRRRVVZZZZ`dddddDEEE5VVVVVVZZ^^`fFEEEeeee5ff"
  1913.     A$ = A$ + "ZZZZ^^^^0GGGGGGIIP[[[[[[\\000l4L00P:`6FM4>YXa2\@3IU00T100@H<"
  1914.     A$ = A$ + "8T2Q@8U1Q@:42QD:529000H0700P0<Qb05J8[40P`100021SaH<6SaH<f`HH"
  1915.     A$ = A$ + "<6SaH<6Sa4W2SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH"
  1916.     A$ = A$ + "<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH"
  1917.     A$ = A$ + "<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH[eJ]F[E0PQc5>0@"
  1918.     A$ = A$ + "IAHSc`:9MFQS6LQ6b:108T000`H@863jT@YT:YD52aH>XDBUFZUR]:4RaP@Y"
  1919.     A$ = A$ + "TB]F\5S5?Wc1QB:UJYH:f:N>WC:YD[5SaH\FL]@8UBYF;fR]H\9KQ@:UB]F<"
  1920.     A$ = A$ + "6[eHcXD]DZeRaH<6[aRBiBYD[5KaH\FS5QbVK]F<6[eJ]FC:U?gBaF]FSaJ]"
  1921.     A$ = A$ + "V<:SB6SaJ]6[eJ]8D:U<6CaD\F[eJB8<6O?6SaJ<W[eTB8<nN<E;aF]F[9UB"
  1922.     A$ = A$ + "Y<2I=VZaJ=WC:U@I<fH;ECiL>G000e3>00D9H4d9IDU5Q=J2Gh1P2=TE20@^"
  1923.     A$ = A$ + "10022YD<6SiL>WciL>W3BA:6caL>W32Q@842Q@:2aH<VciL@842Q@84BI<6c"
  1924.     A$ = A$ + "iL>842Q@84:QB:UbH>Wc1Q@84:UBYDBYDWciP@842QBYD:UB:UjL>742Q@XD"
  1925.     A$ = A$ + ":UBYDBYD842Q@842UBYD:UB:UBY@842QBXD:UBYDBYD:52Q@8D:UBYD:UB:U"
  1926.     A$ = A$ + "BY@842QBYD:UBYDBYD:52U@YD:UBYD:UB:UBYD:4:UBYD:UBYDBYD:UBUBYD"
  1927.     A$ = A$ + ":UBYD:UB:UBYDZD:UBYD:UBYDBYD:UBUBYD:UBYD:UB:UBYD:U:UBYD:UBYD"
  1928.     A$ = A$ + "BYD:UBYDYD:UBYD:UB:UBYD:U:UBYD:UBYDBYD:UBYDYD:UBYD:UB:UBYD:U"
  1929.     A$ = A$ + "BYBYD:UBYD:000j0700P0<R:]@\Cch:?2L45b`4@5J8[400b000474;]F[eZ"
  1930.     A$ = A$ + "<:Wb9UD[3IT6V3:YHWd1QD;F;E681YLB:eYP8TR1YF8SZD:VCJY@;SYD<8f:"
  1931.     A$ = A$ + "a@7SaLD>UCU@7S1000PP00`0A8c48@1@16830P3@81Y00X`2<da`514@^4bX"
  1932.     A$ = A$ + "03:L<Qc9MJ30044R<3AR8F<8a4Z6XXRY30Ha5H8O0P<dHSd^h2X;3`5d5ge1"
  1933.     A$ = A$ + "2QP@@88FL0D09P3>QKh9N3?QK`9XCAUj01000000N00h1008I3P8R8JVSS>l"
  1934.     A$ = A$ + "h3@2ATA8Y4C>151000000\30h300895P8R8JVSS>lh3@2ATA8Y4C>1U000@0"
  1935.     A$ = A$ + "4000000@04028P0000000@0000028ldIW=5000<:00000000Hk20080000`@"
  1936.     A$ = A$ + "?:JSJ@4B7MeD>mOTo7honmO2oCho7noAo[eoom?PLU`X34P:<_ZRb:X3j8TS"
  1937.     A$ = A$ + "c30QIL90d80F_<:\<?EP8HRKU^JL_@hXGDMQH_cjndM[mZKeM_AMO6[P]n5k"
  1938.     A$ = A$ + ":@RH`FG0I00E5<9M;<<GMfjDDe`<g13?EQj_?0H>S91P6I0XB5N>jK>^j=NJ"
  1939.     A$ = A$ + "dGYCAoj<NjA4a_M]g^go\b8CE=cEn_i>gKbP^Uh9nNabf?0C9<J<1@]0^;VB"
  1940.     A$ = A$ + "HDi6GHkl>V?0HcH<0XQ0`Hfb_NnmCCl;^bC^CdO?OcoUbmB2A`ggQ2LdKG<^"
  1941.     A$ = A$ + "6d<P;2XlOAn6XhIbbg_V0@Io8<?JFCMMlFWDI0aHkKB7cmQQgJ[E4A4K5lD0"
  1942.     A$ = A$ + "`h]FE3Y2555FdZ]RZjRmbRZCE][Ee8RXXXG_N5A0KEE][D]QF;11AJI722R4"
  1943.     A$ = A$ + "cj^VSJ<FgjFebE_U0@On4<4SgJZRCUjnn9H86_TLQD6Kn0TWP2f10E9P_0Rc"
  1944.     A$ = A$ + "02U[2ZZRGS6E@FI5`2fOU]:R^@0EAaRF<JUT>@AjYFdNPH0AcRRF[Zf@V=Z\"
  1945.     A$ = A$ + "7ZaVZ200dG?MF9kWa\:3]\?Oj\BfG3IEFJiImVEb8H9B0K30@]6[:ZH1R8Sa"
  1946.     A$ = A$ + "LA@AdZeR2:XZ5AAaHA[jnJYH[a2H:XCN@4=ZJEaFZ6FJSZQ>5000JK3A4^bV"
  1947.     A$ = A$ + "XEl`Y]JGbLACLK3A4^bVXEl`Y]JGbLACl?008SZEAMZFKTEbd78SbJU0e=1X"
  1948.     A$ = A$ + "4\_WZcPTmmcP5R2\YmmLafgcC5QiLOCL7000]69@T0eJ`HD[JDS0PX6S886S"
  1949.     A$ = A$ + ":Z5[00PaJE@4EDk<D<`N<aFK0@=\J2VP200FE3C1K<D;Ra`8Uh2aW73G1h9X"
  1950.     A$ = A$ + "0l5@5eJF0RHS0fP5ZX0HY=JQ20HY=::0PEA0@5Ca0e:f\=;VR=R:8PA3000@"
  1951.     A$ = A$ + "OG50@\>dP08HH=00@\94EDAa6=5C3KfjHR]40A5eJ6V202Fc:Z088Fa4d120"
  1952.     A$ = A$ + "8H008_H900HSV0ZXRE]^Q20HYe5E04a60<]I14[YRR::F5100MJa0PZZRR2X"
  1953.     A$ = A$ + "HQQR=JYQnI040610035edFJ1R9FP00R=P0XRJ=3E00eJ680PYe=DajZ5FdY>"
  1954.     A$ = A$ + "5;0P>D10@\V20P1Z00P:fjD7aQ00H00@EaRFA7PHEa06E]200j400`j002FH"
  1955.     A$ = A$ + "H2VFC4\VH:0PYUF100C[KQ20XED@<0:j@EdY5f4RZ0000hU=TTcTB;B?<CGJ"
  1956.     A$ = A$ + "8LJJASLI39i<YdRd3cdU62WVFd8o70000P_10PFHCf?@H@nC@68[5A^_kd9J"
  1957.     A$ = A$ + "1KJOKG\c0[m]D8\VikRk000Xe0@1P8QV830D0TfJ70PJ7FD00aN[8fHSmRJe"
  1958.     A$ = A$ + "F3@aJ=PJ55100;:ZP5AE00`ZPRX8R`2B107898004Zd4CJDn294GA92abS10"
  1959.     A$ = A$ + "488EH2300T01[I55ejf4RYE\100\`V]404\9;<101K10H00[340000@a6E00"
  1960.     A$ = A$ + "0D4M20PED;10`2K@10E\A[2VH3P5FJE00\Ze<400KdB10D\A500eZ2H3FHYP"
  1961.     A$ = A$ + "Q203007HM300\dd200\>60PRUF700eJF0FJ5;0]::00X3E00`J600Pe0003["
  1962.     A$ = A$ + "PP=HZld080LP><00JDD10`JX00Z5F1003[J2VfT8H5E10`j600P>E10@dJ00"
  1963.     A$ = A$ + "\F0MX][0800P1PJS2H]00PZ500dY10@aJ10@[61`V0\^800H3V00HJ=300<]"
  1964.     A$ = A$ + "1401E\6RQQ=2R200:hS=TSc4EKB[>U;SU\;JP7K87W9ZfTFM:G6;IGd0o700"
  1965.     A$ = A$ + "00P?PXXFP8Z91D61\OPDkP];FK:ggMj45HCG14\WcKk>mD8<cggGHB0000X6"
  1966.     A$ = A$ + "0R0P0I=@20R5`:0F4[X0PHE00E\HRHW=F5\JW1:HH1CDk=<a>K00\e0E@5`:"
  1967.     A$ = A$ + "00RJR0HHS2X0088YdhC10ShLhC8004N2aU`U?T6G80G:;2fP5Z8f2K4DCK@1"
  1968.     A$ = A$ + "0a2KQU00HcFH00:f\90200F310000\2J]A00E]I3005K900H=;D00aZf8HH;"
  1969.     A$ = A$ + "\:HHCF200fBD04\1300ad:F100C;<0KdFHQPa02=0T30[JC600HY=202:F3a"
  1970.     A$ = A$ + "`V<AaVA10\dJ200Je20P2J10`05\^e4Ja90320P50R=JM@dZ20PR>E10`JZ2"
  1971.     A$ = A$ + "0XVF10@<\V9HH3V2FJ=A0@`J:0k0HZ200ZZHdY64<<00H3:jD;HA100]80PR"
  1972.     A$ = A$ + "e=104aJV00P=SRE\9C1KBE00aV=10``6<100K0100[YZ9hU=<db4dU`UOV?\"
  1973.     A$ = A$ + "C2kPLI33]<1M9LiWi3kT`>8oYf0XJe8QXPXX>Y8R<H;E>R8M8E2h87L`1F<7"
  1974.     A$ = A$ + "LP5SHVWR1000[X0XHA4@@]F[A=64[XF0[KcZE\ZE<1;\1;<]`PX35SXZHAA0"
  1975.     A$ = A$ + "[ePAEa8F1;Qka?A1bR2@\5SRF5[Ha^Wd24`@@D[K2HD9oJ`k4FQ0PXaR61A4"
  1976.     A$ = A$ + "E029GNA9iP?eR>e2R00FLRJMOMQ130P2XAS424?HFVLM24bmnDF=:6i4\JY5"
  1977.     A$ = A$ + ">hD41PN<GVlk1P@KIQHJaQ:W0^4h0PW0Al[i]<>i;08D\>b0oWB>?m2Q@MGV"
  1978.     A$ = A$ + "9Jc>>8eLLBP02FD1[E;REaH`R60A][FJn=\=7hO=Tg:VbV<n8dNeWPbiXne@"
  1979.     A$ = A$ + "N[H:KbhS@kEO2:WSjcI0b:e1000NCMbZ0EZ9Q4S;0ce26kcm3J1T6@NKQ4;4"
  1980.     A$ = A$ + "kk2\_W;FZVKY\kd100P:0H\2H0<2D2T01;6044`0XH[510A]g2H[YQZfK104"
  1981.     A$ = A$ + "03D0``N`N\7<]E5C3300`@104aND\gRZfI00ZJ8:XP5;V:0HHZDNLh195@@R"
  1982.     A$ = A$ + "8B9=:0@00[Jc600:FG00D;]14000A5<\9E00[8VRE]V=1VF500[C00A7J10D"
  1983.     A$ = A$ + "Ed00HHQ9Re]:HYE41@`JX0PJE[10:f<00R=ZJ00040@0@\R]4\1\ZXf2[00H"
  1984.     A$ = A$ + "PeA1@]930D\ZH0PREE1;]`60a00100<00X54KdjPY500HE300\^Y00R=H20Z"
  1985.     A$ = A$ + "HS:H3F1\`250@]AD0@7:008J@0@a0\AC1j040h0@5@7X5D40^D`kF005]60@"
  1986.     A$ = A$ + "WZ2JEdPXXC00\^0086V00R>000=PXCM2R1003`900ZH8HCF3a`@50``J:0:V"
  1987.     A$ = A$ + "F310aB;1H7d;0hI=d:dU^XYm:biZ?33TLTcJXEX;MACkETcEO668i8o70000"
  1988.     A$ = A$ + "PO000D914Qmk185H9=X7kGBSU3j3@d2Xgn563k4_]UCHLKgYWbf600020Z04"
  1989.     A$ = A$ + "D2T0D040H4SX08Z:HaNE00aNDD5\700e`010`6KE\ad>``2F\c4E\2Z1:XP="
  1990.     A$ = A$ + "RZf;0026:0PJe2Xf10HeN45AD;Li`00RDLT0\0P8^HRcQ8\X22^L4P50PADa"
  1991.     A$ = A$ + "i`104`A0Q9@\ZE<4eF800F5K00`jFc200000@dYX00PPe105KD00DKd00@`6"
  1992.     A$ = A$ + "<E00[IE0@5KdB00Ca2500FZR=Z00Fe`2003KQ:0Pe\VJ30PZfX10PUFJ00XF"
  1993.     A$ = A$ + "300;D`dV]0430l006X@A`j0F00P6E00dZ50@\^20H8F2FA3XXCE00=J<0P>4"
  1994.     A$ = A$ + "302J10`D0[K8P6800<1<\AE1C00[E104[310@]620HE4A\95\d:0PReE00\^"
  1995.     A$ = A$ + "00U:8jVe1P0006P30@`:XR=KcPF5500MXA504aj00RYe10@S1=P10hY=Tdb]"
  1996.     A$ = A$ + "`VPilUQ97dd6BJiFHC`Lnb`T3jW:P\\^e0b\\8RjA:S0>@2^4PM1R[iDLATc"
  1997.     A$ = A$ + "iTCedALZL`Q5\i0000\80Ra8Z0ZAEA@5\ZJAEeddD=\8RZZY]VfYR98F\J?0"
  1998.     A$ = A$ + "2RMZJEKf24a`@\5Feddd005e6D00[R108REA]ZJ]VlFS4YDBMSQQQQQQ:HHc"
  1999.     A$ = A$ + "PHZH0ADd20H=:R0HA[=0PF1AA;XX00PRFKS]eY0@]_elMXFc`D5E104FQ020"
  2000.     A$ = A$ + "PPQZZE]9@@503j`P]A[54A4A7R10dXC\ZF=H[30\Ee00PXC308:60`:2:jd0"
  2001.     A$ = A$ + "RQ<h0PO[L4AA[=Ra0bU49A3F5a00J<FA\]F10@E4PS6`10PX:Pe826N:PU2H"
  2002.     A$ = A$ + "0[E0;0D1R>POfnE7mL7@e`:2hCPXU\V9P200:@j=002PYQeD4]0PP6[JKn_="
  2003.     A$ = A$ + "3WJ8^gJ0nH33i:1A1nKNIFYLR7KH8G98:`Oc;c:UClce1XfJR0Z200g]AO<8"
  2004.     A$ = A$ + "4fF`IP9VR;afgbiidA4kXDURS4GKY0000D1\ZeH]:XFDT40\cZ2P=6f1:H[="
  2005.     A$ = A$ + "fZ8Z1Z16ZEEA<00Ca``ddN4A2615D0:Q;335D8Y=Z0RZFJQ00JD1@0=8F0E5"
  2006.     A$ = A$ + "\`6D3C;0DAc8PXA0@\E03RE1@@d00XXH\>0E;0\28n1`2A1@A4CeJLVm4HL>"
  2007.     A$ = A$ + "PP58f8FA=\@544C;<00e6AAA`V@01;\RUHJSRXZE7808j000M:ZR5dXaR1D3"
  2008.     A$ = A$ + "4[JSR:202P3f2MZE@a00R64;6]0PH=:00R=R>EAES2H0MPH1@[1>=TERXC11"
  2009.     A$ = A$ + "00P40A47_X1Q2F604=Z0PH]P>04=00J0CO5ZF0@D05=P0>101h`ReXa2f0P2"
  2010.     A$ = A$ + "`:P3C50D[RZFc0aJ8:P56VR::Z>E@\H5[20X3;JA3RH0P=00nG3]\ZA:3:l^"
  2011.     A$ = A$ + "MIM4dLToJXUE=BI@Qg];[SPVSlO00000NGC0bb041FYm;B;>38b?0XGZ^`2G"
  2012.     A$ = A$ + "Pa^Clnf>A^_URSbgC10005P<044E40\Z0XHE5@\Vf206fJW:H5e`Z96ZMXf9"
  2013.     A$ = A$ + "0PJ[10XfJ1K]0HXF1@`>E<Dk0eZXf8VZE310<=\301[XH`bb1P2QTRQ308BS"
  2014.     A$ = A$ + "b1D>Rb:RTL90P8X=I504\1[20HE;40@]>:0Ze50000@S>00[C=00Zj40@A70"
  2015.     A$ = A$ + "0FX:6fP:VFA00aJ:0XfX00PF00<00`?0Ze50`2C;1<1Kf20@=\140DK40`JX"
  2016.     A$ = A$ + "00FAaVa2<@Q90R1aoc`V0[208VF754\6:0HSR00Z=9R5f2CDKFD0dR20XPF0"
  2017.     A$ = A$ + "0[90PRQ8FcZPQ0080P102:R=[ZH90PP2PPe@00[30ZJJ55KFA`Z00FE10dP1"
  2018.     A$ = A$ + "0[10@e2JA1[`001`1REd1RX20X100[300ajX0HYU6HHCZHQH20R=Z08Z=H0P"
  2019.     A$ = A$ + "ZFJ108jd8Jd9f20P2hO=dFY4;=YZo6G>aQDc9j[Qf:UHY9Emghb9>TJ>Ao10"
  2020.     A$ = A$ + "000h>@P4`n2;m0G;FK\W6@:f56HOWhmmLR<OK12T_;^300P2P2P0=90`>k50"
  2021.     A$ = A$ + "aN\C0D33[:0VfJ3Z=fQQJWPmRYJA<10\c4DD\PYmZ5DeN350aNEaD0;2R5AA"
  2022.     A$ = A$ + "\70:O>4@YRcU`10P8452c`A@9i:800A4eZ00f\10P=ISZ2P5F10@Y10@]10D"
  2023.     A$ = A$ + "\A300;]>:0FHQ20FHE`:6:H=005[20ZJD0XM;`10;E`2C;10aVD10CKf250e"
  2024.     A$ = A$ + "6\RJHSfXR]404`6D0@]A04\RU:0HHQRE]52RU0X0;3L5FHSRJQ008F110[;2"
  2025.     A$ = A$ + "0H5;E0`dj2FG=`2a40`VE50a6@0@Ed00F[RP=YPQ0080`O10<A=]AA=E10@W"
  2026.     A$ = A$ + "00:XZ0H:F00H=CD[I1ZYE00\R00X510@;0PHR:fXZH:o0PA`F78R10d860@7"
  2027.     A$ = A$ + "00f6A1`Z66H=C;E3KfD1`B;]@11;4[20H=00e`24Kf2@D000?MfIC1000c50"
  2028.     A$ = A$ + "0000000f^000300004he5KN6mooKo3hoTm?4o7go`mO2oKgoUmoKo?`oTie="
  2029.     A$ = A$ + "D143n26]7N6^J72Gg@5@<h;HdNhIhZM8lMP0A_f3Tk@ZBU3>@\3>@<kPH4C<"
  2030.     A$ = A$ + "c<kP0R1000D1D[FEC0Ck5CK4kDe`dF3D[F]JWA4[EWZj@;8:J`d0;\`23\1;"
  2031.     A$ = A$ + "]dD\dPBMaDhh:1=:0D@[6Ea:00G60@DDD44A\AdZAVlk?99L@LnR5G7jh17G"
  2032.     A$ = A$ + "`ZYDE14?e78]2R2P89^Y_k:9L@OH4[DVoJjf^0Z_@JdA1fM@lo7h7?diFfO;"
  2033.     A$ = A$ + "[4BM\FfaPJAOoSlSBR\G=?84VYPFn;41gO=i3YVkO>=i;6O]jVABD\`>>N_U"
  2034.     A$ = A$ + "TW1R4:3[6UTki>ZRXXAD100cWZX5]6[JU0P?f@EUD4D<cB];?knb1N\QZ:Y8"
  2035.     A$ = A$ + "XHVUJGNfmU3lO00000N35e9Q8:aH\\=gV;8]58?WggLjR[]LNK?E4i40005P"
  2036.     A$ = A$ + ":@Td41@2PAE<0FS55`ZH53K=53K14aRXH_20F\1YaU1P;E02;03QE<AI5P7["
  2037.     A$ = A$ + "4BCH25\DF10ZH;A1`6=005MH10M2JeQ6\F04D<000PE500]8Fgj8Z90HJ50@"
  2038.     A$ = A$ + "AD10EM20R>=JdQAWR0H[C10\60`0C0`d0C[K==7400PX00ZJ1@dYF0@WF1@a"
  2039.     A$ = A$ + "V5DK1Xf00XR>005MP08FE10\@aF2I456:1[YVH:0PQH20FG0D<]R0PJJ5<]`"
  2040.     A$ = A$ + ":RH=50dQ20X130FE003AaB[c10000L06FC130@<E0@]00`J00:j0[E3:X28X"
  2041.     A$ = A$ + "a0PXe6@E30@D``jd43@74eJR8R2XH90PX1045]0P5RR=2RE=10aZ0XHM104="
  2042.     A$ = A$ + "60dReQEA300>a4;]`6`050ed20@A<0RZ>105E`j400P7f@E[BPVCD;Lii7iO"
  2043.     A$ = A$ + ">AQ=DeZ4Xi4e2GNnAnWCdO00000N3ES2@I1TC:M0H]OI0afIP5A[18OgAkK;"
  2044.     A$ = A$ + "@PlLRcgLj4i6000:P@2BbB@2TPZReH1D[JA0\ADed>CaFk0`2:0HeD==<0e`"
  2045.     A$ = A$ + "DaF30@]7`N00K=DAEEECC``20HADAicQ@8\@80`b2Y4@:ai0ATP?5P5LY4`2"
  2046.     A$ = A$ + "K@50\1103;D05KYZ000XH;10<\V02f40P5F30edZ6H=<aj620:JE10A;0:J="
  2047.     A$ = A$ + "0H50004X301]0P6E3PJ53\`2C4[10Ze50`BC10E=00a2E\A;iG01000A00d2"
  2048.     A$ = A$ + "Fe64a2504[Z0P=20ZJSR28FaBA\1;a:Z90FA70PZ>40`:20HX:FJSTA20]4d"
  2049.     A$ = A$ + "ZXPe20FE10\>@0DED00C[:H3:HM00MH0@dH0``40`B0[CC00<L0ZXP510d80"
  2050.     A$ = A$ + "PQX02F30`BA`J2ZJ00FW0HAE50<=105A=\A]YQ\0L2VZYe]6H500;\D1@\A5"
  2051.     A$ = A$ + "0D[:08j0Dd000hQ=dF]5EV\[2YGN>mVULH3]EKAU9kZ@jUWC_I9o300DYBm:"
  2052.     A$ = A$ + "[68EKj=bX^BXB2iTBC7Be<EiiiR]_kd5Gc9?Mj>MRb2T:000D0:01@EeRE5<"
  2053.     A$ = A$ + "HaPZ6[53H4A@AEKa6\e@5a>0C0`ZJ00F]8=n<02@i2606247dYX0PXZ53XXJ"
  2054.     A$ = A$ + "04A5=ZJ]FHW10QRiOA4MRZR00X18[Pk[0F72:jdF[00R630Z:0P]0Hd:R6EM"
  2055.     A$ = A$ + "bQ=E9`60\00F3RQ=S8F20FHY28R>D10[30@<\43[[HQ5:0R>=0X130F30Da@"
  2056.     A$ = A$ + "=\djl<H0j595aFRJE10DC305KdB01[9VPZZ=;HHcVZHS:0ZJ540\^X0RJ20R"
  2057.     A$ = A$ + "U8Vf8gC@00PmN2R=RRX0PE440d10PF10DdPXCE[5544dP1@E410[0HK4\FL2"
  2058.     A$ = A$ + "0<0j44E0@\:6@SZ10=20HHYRe=5\V9`:QC=2F8P2HXHJMSYQ10]FQP]EeZ08"
  2059.     A$ = A$ + "2J1dC3POf@BEMB\Dj\4Oi`nH7P?K8YZ>9F:MFR_LHO\3`?G3XJE8ZT00PcJa"
  2060.     A$ = A$ + "PYS8f17L`1a4;EY@\34CHP9V9NV2000`J@5[eH1;RX0P445[V6P=fKEDA=TR"
  2061.     A$ = A$ + "ShB91?F0`:5;35j0dZE`jDAE\260dJ0S8F\P]X3AESZX:F2H2l04d0jDW:8:"
  2062.     A$ = A$ + "VOjZhX>YhH:C8V?=]Pem:EgE9R000D:M`Zm`5aU4L\c3G5E@DjI8l;7IW0cP"
  2063.     A$ = A$ + "TEIIlDM\X806A@[Z8M`I`AC<F5015@dTI2\1NJ;B<L3V2bYR;aLTnXT32^_:"
  2064.     A$ = A$ + "`ZE>fHMnSnl=Z\FlCfISXj2>9V]^:?S3NVI`ZF@[=:0XRPHaJ444A5;8Z:2:"
  2065.     A$ = A$ + "J`08o=C0nI3I:RHT5cZ7aEWYVeV3lI3I:RHT5cZ7aEWYVeV3lWJP\B=PjTZg"
  2066.     A$ = A$ + "\RZ94E;aKAF5D9P8G3bd8Qd`Rlmie0BK;\HPm]DLdL:PSbim=W:000D[Pa8Z"
  2067.     A$ = A$ + ":H`:ZP:R5`J50`8FD<Fa2XZMf[RE33[F5@a2PHSJP]8f300PMRJ1[He4<4[R"
  2068.     A$ = A$ + "Ym0PJ7:0f8P96V:06@S6E04MH@E;000PX30[2PPF0D;<0@D;a2[ZH=50\>0R"
  2069.     A$ = A$ + "H5C0`J08H=4Kbj6]60[2000P20XA1``614e:F10`ZP=1F30`ZV08j@50dQ0?"
  2070.     A$ = A$ + "0P;0@<DE]5PE10\>0HQEE5``J0PHM\dd2\RH0DeR1d10P610D4dYjg9080j@"
  2071.     A$ = A$ + "WJ1]00J=0:Z60d10XXeR>EAAa0H]0P6005104a:JE13@0008P6ES=4mPX1d0"
  2072.     A$ = A$ + "0RF@76AS10M20:R1@<00<0[]W0@BP=PX:0RY90RH90Ze40\`dDEK@<\V:P:F"
  2073.     A$ = A$ + "g0XXA50d10PRPZ6D<0POf@QR8ifTMfEnbIZIgLR?KX@ATLKb>k:Oi<e\K>a?"
  2074.     A$ = A$ + "G1RbJAXV810PGbJ;P<2`1d2bcgMde08O1kKYBPI^0C74Kjd5g100PX2ZEEa:"
  2075.     A$ = A$ + "FE\VXR08QRa00F3PJ1Ce`dNC`NA1<5K`6;08VfSRXL5EDaT440NL52DHE;`F"
  2076.     A$ = A$ + "RQY=H10FR50RY=H0P5H2J43000Zj40\6H=KQea2;00[50\60D3;0@]d2`6ad"
  2077.     A$ = A$ + ":60H:F08Ze<0`@=1`D5eV]2UP000H38Xa0VF30e2;0@]>@3ZF720FA3PPe40"
  2078.     A$ = A$ + "4C;1@a0;]UXV20iQO206ZZfX=P5FX8PYE55@]10`2[X0P=8H;4aJH@@A780j"
  2079.     A$ = A$ + "00@E50;:X3]j<<30oEdYF4a0XZ:0P>005530j0S>@3605=0P6<0ZZ0P88FCA"
  2080.     A$ = A$ + "50:010\AAW6<0f20X30@A<P8j`XCSB3:<7=X72iB5000UXXa260S00J<0:R:"
  2081.     A$ = A$ + "P8FA5\A4CC0<4=7g3g;0RXHM1<D0NI31IX9IF6MN4o`iJ9\3`U=4TQVTIIdi"
  2082.     A$ = A$ + "Al3W[U`>0oY2TA=P:QRjTAT@49^40>R85`AlD<F<a4SHR9VIV9>EY0000SE4"
  2083.     A$ = A$ + "@]F1aJ5A<8F44SJ@DedFe4A4eN;ZJZVFC4;]`0CAEEE;8UN2Q^IS:::jDa80"
  2084.     A$ = A$ + "hLFYUPH86ZYE]VHP2[@o60=2fF<FE05D9eZH@E@44E@7Z[>`om@CEdQ0HK\1"
  2085.     A$ = A$ + "@dP0FeRa@gY>;`G6nDLN[b7oJ;_82o4SoMWL<c>OG;g^h420ifkOioLYA5f<"
  2086.     A$ = A$ + "9nfF6Cj>P`BC<@d0SZ[h_eVVeRF=GnFdeiKR<klbT1no8iFd6RVY4\P]6@[2"
  2087.     A$ = A$ + "0F1R[KDE@@11]6a80]00nI3mZhTb:6mn<n`iEVcBn\QNELBI5SNO6Ohl:cI9"
  2088.     A$ = A$ + "oL58ZW4D[:00`kj41ZF05BiPTmd;Pi19Ph:?W8gc9bL7AHj879`LW8W000`Z"
  2089.     A$ = A$ + "26SeJ0SA@:401@`:FE10[A=FECe00[F<04<@]E0`41@E3<=5@@<04S;Oa5P0"
  2090.     A$ = A$ + "2[823282R=2PQEE0ad4[HCPE00[H200PA10=R]F50\>aPeQReQ6De10:F50["
  2091.     A$ = A$ + "88PH=50[00=hb@]5F8H9:PeE54EM2P6<PeY5HJcHYE551[90XZ30<:0P52f2"
  2092.     A$ = A$ + "4E1@1P2C4[KE<40<\`44\20RJ320VFG`V`:VF2XVF11KM:0XC3PJRHMC<00D"
  2093.     A$ = A$ + "P115a6@=00330@70H]206HJHM`J0PYUhZV@3HK5=P00028j4D5`X:\Bh7`J4"
  2094.     A$ = A$ + "[XPeP0B3D`102PF\10P0`RHM8260d2PXZ2P6<Pe:2j4E]28H=0`d:0XR10HP"
  2095.     A$ = A$ + "Y=PQ90a`1XZYHHJM<45@4E@@760[34@\ZZe00h_=LTW8iI;c>oZkQnTg>7Xg"
  2096.     A$ = A$ + "6>bCTl\UIWOem@ObKW3dW0::;1ED?eDZJ0A5XhEUBXB2IQLOV_W_?9blY0Yb"
  2097.     A$ = A$ + "A4V><5HVCTC000HD1E53Pe:2PE\F`JE44<61SH4D`Pa8fPJCF10[S50Ze]60"
  2098.     A$ = A$ + "R=P0RH9FgV5\22:fX2000J50d0j@Ae:20:Z0Fd90XZC0DDDE3[QQe1@\1E0\"
  2099.     A$ = A$ + "V0PQY90F2fX=:HY206000P00F[H1F7aBD`dB1@a:0HJ51D\>HH=<A04;=10M"
  2100.     A$ = A$ + "2PEE0@D@[F5S0P00e9RXf8FR0PE40dQ1@AA503[QE\V:F30<]20ZR0P610aX"
  2101.     A$ = A$ + "J=X00HP24Se9X0PP:0F[0PF0>dWUm@QidP6\5@3H00`Pe9H3P:\2h4nCgmDP"
  2102.     A$ = A$ + "F0@e0H005@d0200408H]R]0PXa0RX2PRZ1@7R8j45a0FD0`j00dH0`43KB53"
  2103.     A$ = A$ + "58P101E]^e`:20RF36M:0XZZ00J1E000nI3mZ`TB;SNOjbiMT3`I3mZ`TB;S"
  2104.     A$ = A$ + "NOjbiMT3`g00@oN9QiMeBXF@F6211kR[mMRF9`N^0Ki2hX9QYSV2<W454H20"
  2105.     A$ = A$ + "00P48E\PY5K0De>4DA5;:Z2XXFaREe6K1`dZ88RYJH13C0\JH00P1HZHa0@2"
  2106.     A$ = A$ + ":1\2:Y0\04QhAiJCV0HYU2PHQRe\1\@D0\`208h17JCK@<4C0<=@01C@aBC1"
  2107.     A$ = A$ + "0[SZF3\60V660H51@E[;0H5`653a@1010P1MP5F2PJSX0Fg4[JMaB[90:F10"
  2108.     A$ = A$ + "5MH`XC0@4e2KDa@1@50ZA\RR>A10D]20FH20FG1`JA7HEA10E=0P>00EE0`2"
  2109.     A$ = A$ + "4K@A4001>@1Dd1:R1SZ2DHndPXC\>4K50D513j@00E0@1DeP800P0J]PR1@5"
  2110.     A$ = A$ + "R>h7@dZJMREE0@e20R20X5041[C\0005PPEdY]20XZ:0Xa08j405D55MR>50"
  2111.     A$ = A$ + "\>504=8PXJ04=X3Ae:2@07F[28X30@aH@DDEA300NI3I1`TU?9ekU?Lh?\3Q"
  2112.     A$ = A$ + ":K8;0V\l9YN_lQ3oQM8dg00Pf\<KYTBZ4cQD9V3>RHR9V9VHRIa8f1a00008"
  2113.     A$ = A$ + "1B:f[H_Y8F4K\XHJHE2:0;52@1[hl4P@\d0[IQE5E\0;=<]^ZESHAED4[P6\"
  2114.     A$ = A$ + "H<R5`Z6=ZVjM75aPED4=J0=6g=OmM4S]2J]808_jH:bIiDT<OV3\Z_9IH74Z"
  2115.     A$ = A$ + "U4A[1K1SALL^ZYF_DP0\f9Yk3Q6TLFGBKLChD=gJ8FSA<6D0g103kg]AJ=W@"
  2116.     A$ = A$ + "AFeTfddaORL]nPZ0P[g3kdVE914Doib_Y2[3PE3W0?;YMoOS=F:<S\BfZR;d"
  2117.     A$ = A$ + "^PYM8\V<m[\P8UY7:Hf:2FW0nK3KLPTIJJEob3OL@>a_=\a1BVYYEm;?la1i"
  2118.     A$ = A$ + "4o300RZAPX:4eh=RJCX:5YPPdI1FffFHa2g<@B@bE^22Kki>Jj81L`11LD:>"
  2119.     A$ = A$ + "h8W:0000989[RJE@]ZEADaJ`ZH\HEaH<6A51A\J:PHA14K=1@]PH76F05K01"
  2120.     A$ = A$ + "\00HJJA]PYH0:fX8RHJ2ZHa4D\0ZRED0k]RbQ2:4@8625R893GA\0F3000FJ"
  2121.     A$ = A$ + "80FJ:fPE]dD40d20j0`R>E@ajRYQE`J0P>D1@W60MXB2PG2`VE@`:V:0F3K`"
  2122.     A$ = A$ + "`D<003000\80fRFC[H:60HE04[Y0HMC@ajRHQE]>00=J1@;2PQY2P5RYe4Y3"
  2123.     A$ = A$ + "400400AWZP0PF3P63PF3PF15MH=Hh>SFXJ0D`jD@0`00@@S:80X27VWiU:?7"
  2124.     A$ = A$ + "A?_PX1ZZ^2203R6410S0DQN`XC4K0Ae0650a605@3=100Y?YH17=NINgLc]?"
  2125.     A$ = A$ + "0A[:PA1@DE1@1\6D<ldIW=5000<U00000000Hk200@0000PUU>KnKl_Ko_ao"
  2126.     A$ = A$ + "3moDo3fo9lo>oSdoLHoo@mO@o3`och_=\ZPcHZXU3`Z3K4TSlK3[:h<V:Ji0"
  2127.     A$ = A$ + "\j`61i8o6D]0Z6AmDd?8=f?;ab2;8aA>mmm]mM1VC2C7=5HVbL;5000H051S"
  2128.     A$ = A$ + "X8F;Z=f962H?6:HE\Ga>503kE\8VfJH[RP5CC15[0XfX]dJ:HE3[HJC6FXF2"
  2129.     A$ = A$ + "ZHMC5D;\000]000@Q9;8V_lMG:@30XE50=60\03K2330450X0e2\^J=\62HR"
  2130.     A$ = A$ + "50Re]4@]`JPP=H8f\EaV=1DKd00[9:PUF80ZUH=[ZV80Z:000H0@;fV0C1@<"
  2131.     A$ = A$ + "=1`J2PHE;1`jPUF3[Q2HQE1`B31@\40ADCKD4??0@0054d9R:0JD0@W20j@0"
  2132.     A$ = A$ + "@A5MXH]:0HM0PRF3P>0`FDeXP00P1M280XJ><_4H=RR>]Xe0X50[10[:0RAd"
  2133.     A$ = A$ + "H<000hi@d1H0D00[105EK0MRZZ2j01453PF1@43PPXEe600104dQAD<PZR08"
  2134.     A$ = A$ + "j40e:R0Re0K2\^0XZZ14A7Z06=0HKMZP5X00NK3elh<:G6mNdm`6\3@]=DcS"
  2135.     A$ = A$ + "cXLIdkAg3K`>0m=004QU9gF`L;5W^3Yb178fA>@0a2@\3RAl<50000b0BZQ]"
  2136.     A$ = A$ + "R5C<=5eR:Rm070:E4A94FZ@LXB8=Ea6]562Pe\ZE]^QZE1\::8R8Z0ZPZZJ:"
  2137.     A$ = A$ + "Z=;86kMnK_:f0J@[>5A<PE00]20J0@4C\>:60X8PAE54A30P2ZjD40@J1_@<"
  2138.     A$ = A$ + "D3[S1:XZQfn_]5gAdjd5]MGcJh3B8J100`f=KPda6@?72EcS_38<C0=1:?60"
  2139.     A$ = A$ + "P?dUY4RD0Z6KDE@3FD1N2W6;DY[=^\N>o=?7[N@9;6g\H1=0000C66X;P<<h"
  2140.     A$ = A$ + "0B=U5b@eL0D35PHOk1D[i6RH0aZZFaJ40[AefXC3RXH`6\F11810NK3I4jH="
  2141.     A$ = A$ + ";YN_l@ebi<ef@6Q>FcBZg;?D]L>Co000e2EP\J`;I=@DX88]0W^S4Hj87=G`"
  2142.     A$ = A$ + "<GPYS8>E>eDiXLR100081Y\@@\2R1DSEE`H53ZeXRA@Q0`bU:05\lXDF1U2e"
  2143.     A$ = A$ + "2[K2H9286:P:6FH=;A4Da4N[F0Fa6E35`D<@bmlPWdWbTPO0D40[R>e:ZD94"
  2144.     A$ = A$ + "0@4[Z3d80F[H15aHAE5@d9F7Re8PAC4gEG4Q]>4`00001T?eJ;0XJ`R2PXH0"
  2145.     A$ = A$ + "A\XC[e2PF10=2P]44<0[[R08m05<JAaZH@30F50d0PR6S61]R1E3H4015@4a"
  2146.     A$ = A$ + "JROge00PPeP53PX08Z6@[0P51]R20BUYc72H\>a00631j0J@QaRE1@[=:F1:"
  2147.     A$ = A$ + "2=610Kd060\P6<R1D=74SHgm7l4@S0HE4@aRZF000<60D@5<adjRJ9Bm^P\b"
  2148.     A$ = A$ + "0hc=D@XSAdXJIl@mUVSlL354jH4=ZF6?DOYi8o=00dRT`UPHaY_UCTikG0Vm"
  2149.     A$ = A$ + "5<W4kP32TZDVYJj00000905XZX2fS:F]JW0fHJ:XF\5K]a`6K10050;2@0X<"
  2150.     A$ = A$ + "R8<UB4A2^288;HH=C0;\D1\D043edFH53[0PEC0LJ<=`2KYJE1@\@1\>1@[0"
  2151.     A$ = A$ + "PF<J\R0X:2PX08H2H:Re<==Y050DCe6]@DC0E51@30Re9PQHY5FaBe6A1\AD"
  2152.     A$ = A$ + "`61@]60HM\IC1C0<00a:0XF7@E[0P=8PHJ=<]A\2:2FC0<4;1<E1`2A]VE`@"
  2153.     A$ = A$ + "0D@0@dY]50504]6`F0DE1M0:0f2Pe0PR1`RHE?00hKCVV`Yi3j>:k9d<CFHo"
  2154.     A$ = A$ + "I100C382060;082P51]2M4:><H0@@AS51:81H4]630:0HE0d:0X5[3\80Z2P"
  2155.     A$ = A$ + "FQbX5MR:08000H0`XZASRKF;QRXAlm10nK3Ml\PHYdkchU:QCi8mf@7?;8F:"
  2156.     A$ = A$ + "mn<NYBhD>B_P8;AF9ZCUb[Q9VafIBTB3<8:HaVSVKY<W2<W2h0QaiLO20001"
  2157.     A$ = A$ + "0S54EaJ4DCK1eN\Ja0AA\735KD0a>50DK=0`2F=AA1`@@4eF;P]dZ6PJ3f48"
  2158.     A$ = A$ + "FaFHS0HE[I1PY=P0F10aZVFJ;]R8:PY000H=0PFD0dZ0PF@S]Z08J=8XEJ28"
  2159.     A$ = A$ + "F30;\DE4aB0dQEdYE43P6h6R:C5M8860000010EDeQ>D4SAE;PEe0X6F0HJE"
  2160.     A$ = A$ + "\^URe5`RFE`R>1@E4`:RHM22@0:XPR>D]0P604[28J=P6aX3dX2P>00=0XX2"
  2161.     A$ = A$ + "P:FWB<080PAd9H<X:0F10d0PFAd1650d2PZ10504\611000<]640A<0Z`?dM"
  2162.     A$ = A$ + "G^aQ`1D=n@=0<FdP=P:2PXP8FS0H4E]H=0X2H[E0\60D0aj820:000Z0PQJH"
  2163.     A$ = A$ + "CZJP0JD50E3fZ2PH@300NM314n8X@6_T3C>ce=4@hSP2IlB><f1hg@DT8;;Z"
  2164.     A$ = A$ + "3QQQ]YSB5aCf1a4;EY@<a4;6C<ce90000`P114SE\82RQ]fIe@\H[EAa`V\d"
  2165.     A$ = A$ + "0e6]>H=[J:Z::Jd:JEADA55K4aJ]6]XX2PZ000PAdX8a]f2I5D<H]XJS]6;J"
  2166.     A$ = A$ + "<PPH419[Z6ZEP9=FENPPaF\H]ZR110[a28Rh>O2WY]F8al<nYdF>Om:N3Y:M"
  2167.     A$ = A$ + "_GICZ2LQ8:M70[5@A4D15QN@7fZ:XE@AD`2@fL9coeob91RLUSKNm0ZGRRAL"
  2168.     A$ = A$ + "RoW@02Q@;[J]\@Yg6E6dLh4P4hc8UgkTmg[<C7[f5Kdb[8`f0:@2@88DX5;@"
  2169.     A$ = A$ + "FF;\j@TQXlC0nJ39DR7LJD5;_dWIVRb9N]Q4:a3>;ZRUGjc<CAi4MAKVf]^2"
  2170.     A$ = A$ + "bHH;EY91KCWnFZ8BW^H>b1RM85RM4QiD<0000P=fK1<E[8H_YYPQQMZHP:26"
  2171.     A$ = A$ + "P16PQ2H0H;D1;]Ve0\UFE0[H;\45K41<\D1\0a6<5;14E100D14E[AdZ:2PF"
  2172.     A$ = A$ + "0DD1\@aG[4S2PX5@dH000D03CCKDaJ14a0R2PX50]RZXXXR1]6@A1@51`4eJ"
  2173.     A$ = A$ + "6Z00002IU=PQ0RJ80F2PR63ReZXHA70RR:PF1@d27Gg?0@;ajZY80F:0R9P:"
  2174.     A$ = A$ + "2XF8Ze5;Eh4dLJBm52X`d:N;6Q20J1@E1MPB??XP5\X3`H8TB8;HR:ebn3R:"
  2175.     A$ = A$ + "CP504SF0P0heFa9J^4DiJ@Fh1R0P8X110`R6C9PHE0553FW0fJD:d:jd6dY0"
  2176.     A$ = A$ + "XA<G2ne;20P7g@<Q9BiR\^f3iXdbI:^QH2MTV9bj6?TSBWa`g000;1kY1TC7"
  2177.     A$ = A$ + "=CU3ii2<cZW`dC>5?QI^C5000P4TZHSEDKa>4<]A5\30DE44C[HX>0:;3QU`"
  2178.     A$ = A$ + "A:a4E0a4aZF54KbjFc2[KJ;Aa`6=Aaj08FAAA;Zj@3J145E0d2HA1@A;0j4@"
  2179.     A$ = A$ + "\ZXaZ0l;LA<`:ZR6S0P10040DM]>Em20J0`Z0f2PF@7P6H7LXh1Ykk4608`Y"
  2180.     A$ = A$ + "ZZ:28R:PF0D;4@=]@]1a235@722:6`F0<Dej2200`bJA550Ae0CE0A30::FS"
  2181.     A$ = A$ + "XH0Aa0\2`B3PAW0000h9A1FJ021HA38<@P=J21jE3420:0HgJ=600=8604P5"
  2182.     A$ = A$ + "3@8P8dQBU6H50F0b_nC26d8H0D00E0[:0ZfJ[:\@2H509QA0HaJZ=2PHPE6@"
  2183.     A$ = A$ + "EY6@E1[SH50e:2P5X0Z2P2:JDAP7g@0A<8G@W?U3JXL4RK8P86QLADW?U3JX"
  2184.     A$ = A$ + "LTN35ARZZD]JAJ9i:=B\UZlDi@:Yb1AC7V>`Y@HTHR9<CUh>000D0\:F[E4E"
  2185.     A$ = A$ + "a>[ZJA]RRH[PYZR:HJe8PMfHR6cn<RRe51\D<@`0CKf2CE0<000\0RPZF[1="
  2186.     A$ = A$ + "0XH05EP2caEE@<0X2PF0<5aVD3C5@50003PRXXYgT5i6F1_Lk7jh@8I0;J=2"
  2187.     A$ = A$ + "00Hj;]RH0D1S:`?liK6FXTJ1a[`P0N00MP80RX2PF05<PR6AS]60d22F;HD5"
  2188.     A$ = A$ + "2EY100>@dJ30RPPR0P2HDaJ5KB65aH];<0gFcOR50K10K=h^490i`@oP0C5T"
  2189.     A$ = A$ + "?O7NJ6Tb18fJE\20:0X1@@S1[EAm6MjhaACAD0<5eJ0:NM39@YXj44mYL4j="
  2190.     A$ = A$ + "VDg@2D:Z>1AO:7QNS9_Pb2D6IeJDIOjPHYb1RM`1RMPH7HR9<:6c4W:70000"
  2191.     A$ = A$ + "06E444aH5ED[JY=X8f\E1C[I3Z8f2a6aJfB3`4K@4<\^R8FA5DA\DSXPP820"
  2192.     A$ = A$ + "082H5AWFSP5WHI>M^E:ME5c@>ZG2370Zj4=Z6@a`I]fco[X2f1;WWFLF1Li4"
  2193.     A$ = A$ + "JT6VeUOKV3F`k5`4118ok]`C8Td_`G4jUHX5@0fl3I4Dd8TLm?B4@[:VdCVL"
  2194.     A$ = A$ + "YNo=CNo?NeL1<@`@[d\7IVC7o]nWAdJ?0_;IN[>Nd0DDMT@\PF4A0\h^J=Ph"
  2195.     A$ = A$ + "n3hH_Pc6k?10NK3A:nd=;bBk7jSCL>WXf6RDlYKFTUf?d7WhL>AO3004`n65"
  2196.     A$ = A$ + "QJD1DQ1f==\`A;H;W8gbWcDi8RM4QaY34Vc=700008Q@9a6EDA4\HSmP5K\3"
  2197.     A$ = A$ + "D`J=F5DE5101k<<1e6\X660VF1<<1X0@4NDF`WE0Q5CDaeQ8ZPA00hNF1GP5"
  2198.     A$ = A$ + "AeF0D=PF5@]0`@`V0SAI=PQJJCHH0HX0F;PE14K]8Z6@aPXaPHJ2H:R=[VV0"
  2199.     A$ = A$ + "=9M8fPEaZ0ZH1Pe0`:0Pe`V43[0XE4@E40M08ZF[>450<00020VHM410]0f2"
  2200.     A$ = A$ + "HE50]ZR>A;0RF0d2H0@3j`6100000@4[A\8AU?7J>nCOL8PR086`FdF01hk`"
  2201.     A$ = A$ + "T9DL`C4=H51\Z0X:T8FQ0Pe22PP1D1@50DAkd8>6?@jJPP6aF0D04aP8ZPE4"
  2202.     A$ = A$ + "E5A30F3Pe0820VHM5D0400010E5]gfXaW@>JJ5PWf@NbDP51Qb;E=N=7Pd6b"
  2203.     A$ = A$ + "CV2\88DNYZa[i0l=00TC?3iUYET4cI:KC1VC7i87URSLP`X3>@lL;E00004@"
  2204.     A$ = A$ + "X9YMPEk]A4e>A<E[F@<]gdNCK5C1`:D0`:0h@4R?TBLYT2\dV5`2[ZP1Vf\>"
  2205.     A$ = A$ + "@;0Z20082PRR6d:Z0:H0=0F[0X8F3J50550EE0A5@aXC]FmLbZ4`@<\58V0F"
  2206.     A$ = A$ + "X0R2PZ505dRe2H51@;0X2XH5=Zf0:[A1]J4<8:6\61@;0XAaJEE1\60d28H0"
  2207.     A$ = A$ + "aF7H3H000404dFf8IDPF04=R>@;07<=E2@WPZ1000`WME050@3Pe:PE4E5A;"
  2208.     A$ = A$ + "0R2o6miJ30008P>03dAXX15m?FR7D9R>PG<2CRI>B=c5XA<bEe03YOaAU30d"
  2209.     A$ = A$ + "2HA1MPF3H=0F;PR=8PeED500004045=JE\1=08J<lHR60he=TT86GW8YDN93"
  2210.     A$ = A$ + "GE]3Be=TT86GW8YDN93GE]3B_P\45AIU::fW>hPSLPhDa4c>86a4c4c\3>h0"
  2211.     A$ = A$ + "0000`H5`J`H]XRH=K9ZY=Z6VZE]2VVFE]9K`B[J=adB[JJQUVFJHX666V2P5"
  2212.     A$ = A$ + "ReeH0430061@[FE=F@0?gXNOonj\O81IO\;0PF^@j_Z7406555;0P68A3>9k"
  2213.     A$ = A$ + "`g>PSOLG4ANF04<8J@EDPme`TW?0;inVLgF_XJFdi8cnel=lo5;0]XdoJCS7"
  2214.     A$ = A$ + "@gM0eUU_^;ng:6PTDh`OjeRkRZIPJK<ko2@VV5SIfAo3cjUi?0IK=\l22=i9"
  2215.     A$ = A$ + "P0=dLd1]VYmgKF9JbB\LWiC00h_=4BjR`\H[TNI_`G>A_=4BjR`\H[TNI_`G"
  2216.     A$ = A$ + ">AO3006;mL8P<9^Vkc5\=M8EYb1aL`QDLP`0a>JV200001@A@4\31K\H3H_="
  2217.     A$ = A$ + "ZJ_0Fa2HJWH[JJQ2`5236^R95P02:8f\e]1aZf2;A5[KE@UY0>0a25KQHZP1"
  2218.     A$ = A$ + ":P60[2HA4`0Z28R1d0X8fX:R220000RJJJCX5@dY1=H@[0XXXA\F0;:0V:8R"
  2219.     A$ = A$ + "2RQHMeM770FRUFcD4`D14]0R6@dH=:ZX0R60[28Z02XCK3000lD:bl<J04[Z"
  2220.     A$ = A$ + "XH=0:hE@3bJ]10000@^E84^@dX_9IdLb4lMF08m;V:72JR3U677V44m20020"
  2221.     A$ = A$ + "Hd:6XNoCD932=2Sd1kO2IZhH3[65lP6aU=00006[C41\8Pe:655E0]ZRRR2P"
  2222.     A$ = A$ + "X5<:RA;08J040ldIW=5000<d00000000Hk200D0000@D?]>TLl?8o;co2l?8"
  2223.     A$ = A$ + "o;cnoCboKl_9o7`oOlo7oO@oocPOg@8>6g\XXeNiHNXe>0Lg@8>6g\XXeNiH"
  2224.     A$ = A$ + "NXe>0l6RBb\XXNDVB2SG:CeZ4T4R;7bCUHcIZBedAYT:1L`124c17AH4000:"
  2225.     A$ = A$ + "H@@=RE045k\J7He@<`Z82RJ<ZE0SHED\>:fB5\ZP]`V`B@142RYR=;6:8V0o"
  2226.     A$ = A$ + "<Cm:I:hBR>0E5E]20600004E]V:28J\PR1D<AZUh9CCVhkbY1065MX5]0ZR0"
  2227.     A$ = A$ + "X10=0jdj4dY0R=XP1d2HAAaH000000E[cT`7?SF3RRZ6A`0J055@C[800000"
  2228.     A$ = A$ + "08X3<0R@U3_2ES60K1\5`2P8X100X4]63H04QUh5MJLKN7X530004`:4`XiA"
  2229.     A$ = A$ + "`[2:22HU1NcAJL8TWXZ3WaA300H_XaH9^4\FAaZF05EP>NNQ^ji=40CAe5K]"
  2230.     A$ = A$ + "dUbUNJ>1i=40CAe5K]dUbUNJ>1gdf>m6;QeQ4\4GY:OjdgLd<E>hPH>hPH>@"
  2231.     A$ = A$ + "HV:7UW2000DDeRmPJHHWMF<]7e@DE\HJ:XRXf8P53[PJW=R8F`V]dZFe:fT0"
  2232.     A$ = A$ + "R=HED5D0F@EA\9e@0e4@`PZ1D5d::>NdT`PX8j@E10100@0D1;]9d1PZ5@A5"
  2233.     A$ = A$ + "SF1\E@[P:8Z6DA0\4`@`6d>2020e0[KQQ1PJ0PF`F1\RXXn<J>HZ02FSP100"
  2234.     A$ = A$ + "0000MRP1d0XJ`R64d1J<J5\ZZ4:d`oi000XO42J>8j:nUU@H2]k[0DWHSR9A"
  2235.     A$ = A$ + "7RkBLAH2fd60H@FIJ^ZDgfe1Q`80o03J`2P=P2PXJ0EdRX0:N61OJ100<06E"
  2236.     A$ = A$ + "M02PF3R63X5SUZQeE3AA\`45]28H05d18\80nM3AXH4R9V6UG:LPEk0`M3AX"
  2237.     A$ = A$ + "H4R9V6UG:LPEk0`;X0AVeY8;\;`d17L`A<a<a>`>`<a<a4;FZ000PRP11aZF"
  2238.     A$ = A$ + "55\D\1E]ZE<@]A[:ZQ=IQQ]4;4<`ZX6FC1;\R:HQJcHHSFHbKiG;=:R8F1a8"
  2239.     A$ = A$ + "2PE44\]eX:X22X2PZ0FWB4GI0PCESgZ=T\neJeR\6km2a>34`i;JDW@OWRRF"
  2240.     A$ = A$ + "EED\8H@DJo2FneX`667BVhiRlo\@F@Wg^WkSZ`Tb]nXECd2G^E82V\h]]eQN"
  2241.     A$ = A$ + "Y9>Ze41i@=b>geB47Nlgn[KViW083oAVaL;>B[oE300XKioS6>EcXZX8laW]"
  2242.     A$ = A$ + "kFkn4d2XH41DE4VA:0P_g@8XT8FLKWN@8Dk0dN3QPBRHa]Mj1Q@]3@G`d_W3"
  2243.     A$ = A$ + "`2aE^3>T?CIj`<EYB<fA\HRAL:Y2000PJaNK1edR=HSM0F]5<=\HZVV0RH;<"
  2244.     A$ = A$ + "5\`VA5[JM`:RE]UFA\I@\9C1[PI70V2[KE51<0@E0E05E[CA[150a`4`B0<<"
  2245.     A$ = A$ + "\aO90H4WgW91J[Y;YeAU:?3:R>D=0H00@1<`64e01=64MJ@E;8RF=J@;P632"
  2246.     A$ = A$ + "ZPE1@AdQ10HYeP8P0P=PF0AEED\117Jd4]>Q100Re:F043XRAePH[5d28ZPH"
  2247.     A$ = A$ + "3fPL?P100@0]6Q:?VV__7ASMl]6DdD2??2ge@<86`08X91`RLf4==IFY^]f6"
  2248.     A$ = A$ + "a500?FYK_jlmO7AS7HE141]:8@aQeJ43X2X:\0g30hi=4a:adFleMn5>WC@N"
  2249.     A$ = A$ + "3A\B<]5OMWOQci4l=00X_QdM6S1HgTlLRLKO:f<UY3>h0QY34c>h8WNZ0000"
  2250.     A$ = A$ + "0BE9HWMf1H3R531eR5[RQJ5A]g@``F5<\1Dk\XfI;20@i:^0D8\HL4P[@lPF"
  2251.     A$ = A$ + "00032ZFc:H2H80:P80:XZeJ5SF11[0HZ2PUR=eZH9P8Z]D\@1;=41\:XH0Ze"
  2252.     A$ = A$ + "4K2A;FdY=F3P=86HME0@0004@5aJFP50J1DD<XZ2XEdZZXH@a0Z@2BM20UeR"
  2253.     A$ = A$ + "1`08PH3XR6;:0:0R:P0PAK008H=P1D0\5@A0A1]fU^T3F4kV108`:5b<oPSc"
  2254.     A$ = A$ + "IdTI>4=8J01`02VWWFWh`H4bWN10g?2_l]nY>\:AkOP10@=>H<5RH]X2HE14"
  2255.     A$ = A$ + "55<5@@]6X004LPFEA0K50KoB4W=0nM314ahR57Sb35F2k0`M314ahR57Sb35"
  2256.     A$ = A$ + "F2k0`=Q8jCJ=\k`<ERiP3RiPH4kP3RaRa<C\3>00005A=<<4CA]eD0ed`@aZ"
  2257.     A$ = A$ + "M6RQmfZZE[K3ZYQeA]D]0`jRHPURHQJHEKD]@@50<GgOBN=1E0[PFKA0AEeZ"
  2258.     A$ = A$ + "2fZ2PEdR60`00P4ak0I@>DlRRmmRL6o9344`OF4BLTZNMYBi`D@VfI56n_7E"
  2259.     A$ = A$ + ";4=_5VKGUF:YYRDm0`oH>G:JToJ1:bbPLOR00PjATZ865;O3;CMi\:>lOIlk"
  2260.     A$ = A$ + "e:CR9YNRc_foN6g_Ddlmf`YT]9Yl6`d]^IEi^VW2;B:MeO2`IA0O7Tj8l4nj"
  2261.     A$ = A$ + "C0PWg@B@;]cRSgMOP187Ql6B2JYMFLl^k3<0i8l2ATDZJ=5BgcH9U<PC?gY;"
  2262.     A$ = A$ + "^48E4kPSLHV:78V5c17B9?5000XPH55EaJ=6eN54`@ED3<a2:fKaZQ5<E<=`"
  2263.     A$ = A$ + "2[JM5;]URJQe]:H=K20`4@<<]1<IZZR0DAA\:P64;2HH0RQJ;@5@@1040Aa6"
  2264.     A$ = A$ + ">BaRQbnVF:j3A1aBD<5K@5Xh@dQA5S:HE1\:PReXZ0H4dH9>K:@4mP@:Oabm"
  2265.     A$ = A$ + "JDTh`Qk100`FdR0PQ7R6Eo=nNN]U7X5<000002Ja0F@0aHA0K]lh8@Q@EW90"
  2266.     A$ = A$ + "0V>Acjajb<h`hISi1V?Ua0=K`A:88>60@0G8QPR4]S?O0:020fJ@4:UCdQ86"
  2267.     A$ = A$ + "4]HDE5`B5\RH=`:PJYPHE`6<R6P=O3P_g@2@=nmRW^m@;P=QHkP`N390ehg;"
  2268.     A$ = A$ + "Njf3]0f4R]32_PBD45eV1g;0\PCgA>TCTCRLV:a8f17L`1R5Si9QA000XPA\"
  2269.     A$ = A$ + "XZRAa8RQEk=DaF[PYmPYQ5`REC430C``:F5\Z=:ZY=JXRUF70@4`ddd6=<mC"
  2270.     A$ = A$ + "25E>J97:DPE1EaXA5@0XAjf2EHdH0ED4E1\FaHY0H5@`dFHH0`LH3XVP:2HQ"
  2271.     A$ = A$ + "2:H@7X3E5E3J@@30J1455MJ30AajHX8Z9H:PA1D]eYA1d2XR8X0PZe:H0100"
  2272.     A$ = A$ + "Q]B=7T<jhkhUBkIA60\2Q7C@A^h03B<\J00@dI22=VjgS`Q9Sl000h9kATlk"
  2273.     A$ = A$ + "P988\O10JVYEo^?MJX\Y3PcJ410;P8PX0FAA3:2HAh4ak`Pgg@0[6V;Nk[7H"
  2274.     A$ = A$ + "2@i4dg@0[6V;Nk[7H2@i4l6I6TUUeXTaBH^60YRX5F\i81V2h81BEZL8E>h0"
  2275.     A$ = A$ + "a>RHaV461000X6[E=H44300F\G`F[F4e`F;HSEC4\7\eD@0\0H;6HE1a2C`B"
  2276.     A$ = A$ + ";\1K`ZR0V008H1=R>\ElTHXiokBR^XY0082XXFG@1@;PR0RAdg9;S61\:PRZ"
  2277.     A$ = A$ + "6=2TPcj0[2XH@;Pe0FAdHA;8ZZPZ0RH0AdJ101[E4S]28ZlTg;[@S0R:P8PE"
  2278.     A$ = A$ + "EK20PH=R806@10E@\eP5bL`01=ZR1400Pl[QhW4::jOlHB0PX540000:5\P6"
  2279.     A$ = A$ + "CiaY?0=9l900@LV_^MRWXU9Da8O60000`X=\n;SSok<J2ZTA909[XA<P2PE1"
  2280.     A$ = A$ + "]RP]6M8:P8:VO>P[Ohm=TRmADCLLkQc`<0f1Yn6Ban8Z9>^m`IH60kPd5<mJ"
  2281.     A$ = A$ + "I?E>h@ZL`1RM@<78VHR5SIa8VhD960000\gR1F1edFk=a6534Kd4C3Kbd`Jf"
  2282.     A$ = A$ + "TQHSV6FZZED;<\D@\@EC\9[HJHH:P208RAdXASEDQjbiJQD_dZH7A[FThR`0"
  2283.     A$ = A$ + "]c_kD?OU4A3F0=6`:2`cBV:88g7;boL8YkjABXc97OIbe`YUYUK71RTA9_J0"
  2284.     A$ = A$ + "751DIEhD8TfnLY7BXiHMXT<0KFR=T8oWSD[dRe@N2ak?928`;@ZTYRbMD;]m"
  2285.     A$ = A$ + "AP5KR7j]5lfXNR3`1;NAd=bYh?1X9>OS<_o32K\5<F@@[JUJL;AVY=;7O7P7"
  2286.     A$ = A$ + "g@NH9ViRSWeGBT1<7Yh6b3;a<GLl\nBR<Pi8m=0046;cnF^CgAcDi0C\3>@\"
  2287.     A$ = A$ + "3>h0CL:>:UD10008@X2\a4E\1D[RY]F\1:5li3>DAiaB8BS@]V=JE`jF1<\:"
  2288.     A$ = A$ + "8FXRJQQe]^H98V00X0VRE\1a2@e0FE0aP=ZR1d2X105@=`643@400@1\d`V]"
  2289.     A$ = A$ + "41\TY3EdB:ZL@C@EAE;0000R1A5MXJ@d2:H<2XA4]J5@d0F54KXN[10PC=AU"
  2290.     A$ = A$ + "4mT;o:Y;K?0fk8m86Ue:oTLVfC000jbdhaA:^7eSEEo:b00`dV6Eb47=9HP>"
  2291.     A$ = A$ + "Vf0@@L4>05J2M3]EcNB1\jc>9lb533X0P06dJ@QE1JN0:PH[CE51DD1[8HE1"
  2292.     A$ = A$ + "\eXH6m@\eJ3XJ4aT9M00NN39a]X[9>Nj3DfCi=T4gR^VhhY?@I?MCHWDJ5FG"
  2293.     A$ = A$ + "1ThdMTCgAC7=WC1BU34c>`4c2TBZ000P2F@5k\aNa2F<15\E4eN3KEe@5CeN"
  2294.     A$ = A$ + "DK]3Dk4e`FCED[JHCZ1P100V0VHH366PX45UT>_@lQP2[XX30`6003@43[YV"
  2295.     A$ = A$ + "XHYWn@XD=:iA51dXJ04000`XA[80:Pe8P>1[XXXEE>Z[P<F4]20000288j4E"
  2296.     A$ = A$ + "0E3H@A1@;jD`PF@4E@04\>a08000PA;80:P51d2F4]XEF^ng>d:0800008J5"
  2297.     A$ = A$ + "aPH8i\:^o@@CE4Tb101I=cD97OTaXEU10h@801QJAR`Qe;?0ilfAhMPW3=FE"
  2298.     A$ = A$ + "61V<C;1S0J0]R28ZPX0F1aXPf0<4\FE3X2RZYSne0hi=4QB9VC<<cOPB6Si="
  2299.     A$ = A$ + "4QB9VC<<cOPB6S_@44YjT51k>M7U:7=MT3>h0a>@\3<aRA<kPHR100054\Ze"
  2300.     A$ = A$ + ":6D[P]`2`6\V:FJ326fXe]IK`2[RJYe0;]D@]ZXZYE\`6=<1E104D`D=\VQ0"
  2301.     A$ = A$ + "6LD5Ukooh0;C05=R=02080F5]R6<H=>JkZ?SJAL0:F7H0400<H4MZPZaZPE5"
  2302.     A$ = A$ + "D`HDDdZV>KX@QHE=80200PXMcTSALFBU37`O>10@BjGCVZVS^2e_gOM?S1@R"
  2303.     A$ = A$ + "eUiP;@B]c]b[R?<00QBA5Q3NoRm5AoW2W^Ljf@A^=9A6Th@0J[_3X]cFP[3K"
  2304.     A$ = A$ + "c0^QfHJ<RC]TL8AUg]V31TNgRUK\XePGg@2D:DC<4lBK46Se=T0U2e431_d6"
  2305.     A$ = A$ + "QahKDP\\>Q2:<4bHgYW:79FZL`1RM@<a8<@<a>`RA<a>b1000X22F<Z114[Q"
  2306.     A$ = A$ + "E\5C\HJE\J7F5KFD3K`DD[H0FA4\`BKd`Z6Z8200286FJSZ:ZJ0GX5U4IS0Z"
  2307.     A$ = A$ + "HK1\XAQ10o[Fec8ZRAaJ=2R:A=VLlD0V641D0A1@DhnKK[Pl2Rk712@deXQV"
  2308.     A$ = A$ + "7W77bKEC^;6W0kU98LDoROM8R:T8D10`2D;8C]_3Wi`cK>QaH]C_E@2nAhBS"
  2309.     A$ = A$ + "V@21QBES411L02hmIE]KikP6SQ30FA2L`N[mC7F?0QSlaG@<51K11E5=R:n8"
  2310.     A$ = A$ + "[7ElS:00NN31PDZfRQ]76YH>1i=40BYJ;6fNHTRi4l658cJb888ad;]0H;U="
  2311.     A$ = A$ + "7LT3LZ4SH7H78<8VHRA\0cD000P:XF;ReXF;8fKR=fXZMH5K]H_YMVfZ6f88"
  2312.     A$ = A$ + "X00R6dXZ55MXRRX5A@5;=a6\@03C@D1=6DEDE\886414<XZZeAPQUHcH0RX0"
  2313.     A$ = A$ + "VP6S]ReZ:PH>8<GJ`@0GMZX6]X3SR>\Z0R:XHZ\KB<0P[DjmRK\gkRkJ`F;0"
  2314.     A$ = A$ + "000kEB@h3NYnYKWh920^CXB55UYBZ88N76`fLTcl1kEU`74`_YTH1Q\[F>6b"
  2315.     A$ = A$ + "KL10@UBYDMJ478TA0FmQ`7\_=C7\e2000006MJ1SRA43J0[EADe2X1@A0501"
  2316.     A$ = A$ + "=f00?MfIC101jQ?00000000f^00060000h^PXMg4o?co1l?6og`oT@oo5l_7"
  2317.     A$ = A$ + "okaoohk=4P;9V=:VFe6@aLVgK80GB<KD<]Z=PRi<o659IFCe0A:UJIgYk`<E"
  2318.     A$ = A$ + "cidAY:E>8@Z8NV:7L`QI:000@5\65E\RJE\6ZRPY=FD@]gdNKQPJ;5E\IC5K"
  2319.     A$ = A$ + "6edBK0K6;AE10@1<<<\^U:HJ0GDbgGU3bL@leC040ReYR0J0AaP60E1EE0aP"
  2320.     A$ = A$ + "2PH0;j41<4\;MR=X5SFaXC3J4E]j0@[0J=X2H5[CD140038RXCK`:0J0[88J"
  2321.     A$ = A$ + "AWX5@3H51D8NJ1000\e:0:64E@1`:XeY@76S:J100002M3];Y7emMTaTih?<"
  2322.     A$ = A$ + "@0]6141D0[8PFdR:P24B0oF0nEBh@7=@1]80Z06`06]8000008J=6C6=eN5I"
  2323.     A$ = A$ + "<IRoA00lS444\gS322h?;000fJE04E3Z6AeH5d:J4@eP:P1\XC9D0hm=4BCA"
  2324.     A$ = A$ + "[599GV`>8eg@8=5]FTTLI2kPdUa>]IgY;FZ4c1f1RC5a>@<cRiPH<k8a000P"
  2325.     A$ = A$ + ":H[EE]C\aFK]5`FRJMKd0\U6R=HC6f\=H=;EKD5eB[:ZUZXH5a6=<5@00EA4"
  2326.     A$ = A$ + "3adj2XZQ2OXTX\T9eTDd^P930J\8HA05kln_YU>lQ?=Ai07I;ehMS4d^J[f>"
  2327.     A$ = A$ + "mnQLeElZn;bY8?1M6GD5TZC68BT^T\1<X0P6<BL4Fb\Na>`DciDACVPSbD7E"
  2328.     A$ = A$ + "Z<I5o7L:E<aTSn>LjdYOo3f[ofKM>i;Z;8W?i034Rb^BMO4B9S:cQk?Fj8b?"
  2329.     A$ = A$ + "c>_[k2[B0C]8W>62654[ESP5D]<9ZMI<F<POg@2RBfK;8hUWTL0^K81A9k]5"
  2330.     A$ = A$ + "4lbCB>0_@1BeCFPR5[E20HKC07U:7i0a>hPH>hP3Ri0Q17V>b1000PPaZ6eJ"
  2331.     A$ = A$ + "ESH<FE]PJ40@1;5[H5;5aVD\d6]Z]@]URJ3fTZVf2``V0Kb0a`JFJJ2F2HYP"
  2332.     A$ = A$ + "XeP6dP60E@D0C5edjRQPP1040;JMW>c>[A\151SP5RK[000PXCD=X2FE@d2R"
  2333.     A$ = A$ + "6=H=DeQ6m^:0P0\F;2X8P2@ADZkA]d4>k0Hn0=jiaiORNZahZ:00hTL`Y?hm"
  2334.     A$ = A$ + "oaQcT9Z:@Bii7E7]P?4Z`3002UP42B]Gi\d`Bn=0P?6Z3?YC47PiW70bRXE0"
  2335.     A$ = A$ + "bH`D6000SXC<P:HE4A5S6=Zg6_X;]`ZJ@01002nA^h0Xn1PWg@8ZTZF@`7J["
  2336.     A$ = A$ + ";i<Tg@8ZTZF@`7J[;i<l254:[C41aNZV>:E>8@ZBEZL85796C<CHP9fA>000"
  2337.     A$ = A$ + "04`P5e:FA\63adV4\ZY5H=3\UFH=E\Ze5a2[RHH9RJSFH=a0a@105@DdXEE5"
  2338.     A$ = A$ + "D=X54]gCB6505@DdQHSA00`HKM:4L@XVZ65<65@5S:H;j4000P_cHYJa:?>e"
  2339.     A$ = A$ + "ZY?LHiN_6PXA\1E3Z6A<fRF[:8:0ZYhD1000P5]88Xh8nASH\5@5@5^<H8Po"
  2340.     A$ = A$ + "ZHal;W5G1ZPR150@;V09UW[>I`:J]:P2HQ<ae0HMb_odgcYW8FU1`d66jcU^"
  2341.     A$ = A$ + "cdj06S^e]=5YC0Fj<AR<EMg:YIS5=8000P4_O6=Zn8W0NP3a\FRn495OX=E<"
  2342.     A$ = A$ + "62L8VeBdW8Yh3]YRa`]Q<`JIb31PidAcY0C7=WRi`d1aH23RiP3>00004\g0"
  2343.     A$ = A$ + "3K<<`NKDCk]XF]c@]HW9fJS=VfIedZ=:RZ0P:8ZE\VRE]0\Z1ZYE@AdXC[2Z"
  2344.     A$ = A$ + "6DE150]R:fH1\1D1KMJA010038ZXaQ?LX@[XAaPZPHSPA\XAE40000\XAE1@"
  2345.     A$ = A$ + "aP2X:2:8J554D153J04dI0H[5A`R086]0JD54153X0X08R60<08WJ`2X2P:6"
  2346.     A$ = A$ + "=:ZZ0J0SP1<RF000004dR:6E0]PPAeZP:n0=JJ9A>B:@7nP_CLCNPH04]800"
  2347.     A$ = A$ + "00H4]011CRo3619TB0PHY\KGko4Mj>hhI2<6Y?72Bfc00:Q6=ZX_YO5DRV;5"
  2348.     A$ = A$ + "102YNZNLjmJ0NP3IdHJe14Mi5A<63L8S6C[>PX;_8Rah=V]724[]D=5ShY3R"
  2349.     A$ = A$ + "iP34c>`<c<C\3R1000@]a61k]gNK]0fIEaF1CK]A=\JW533`:FXZ=JXRe1a6"
  2350.     A$ = A$ + "]A[XE<F00A@D4d9Z:H;2fFiBThR9H0[E;8F004@@d8ZRa1n8n\HY5VaL1dEJ"
  2351.     A$ = A$ + "IkC4aZF3XXR513RAdP000`_VVl@H:9JbMPeR4PF8j]`[@@7B@n1e1V;Al_d_"
  2352.     A$ = A$ + "?@ID59:>GnJET?=_V;I1i31PV[McOE>gh?i_iYL^m>L\m5lCNh1SEJVOAKkN"
  2353.     A$ = A$ + "kV\HYE;klKJU2aL1D5PkjMh4F^AIY`UcXe>[1he=TPXTI\0NiYUcIZ^Q44U<"
  2354.     A$ = A$ + "S5`;?YL>3_9c2YjX\Pb0QF[c`@\=W2T:78<V:7LPH78V`8aRA<a>hP;0000S"
  2355.     A$ = A$ + "AADD<:RRQmfSEk=4K\gN<@\RMHWYE4KE\Ja6E7:P0082FA\9a2@=0;E`2@1d"
  2356.     A$ = A$ + "XZ0R0f8R1AdX08002PRZX132H1D0aJ15@A0E@04AW:2<FWR1A0[P86D]FA1D"
  2357.     A$ = A$ + "<HQAjO00\N42JL[U@S<T>dH3R1A0E_[RQ>T9kd004Rl@LNBBol1FF6hNRdT:"
  2358.     A$ = A$ + "ITBmRP@f?0LK3678]l4LPobiL;An2TiPhd0Po^kl^OAA57472`D>8@HQR=`A"
  2359.     A$ = A$ + "C104oiLX?T_eggQ\Q0QAPS30nN3Q`BFe44lQWQH?]g@8XTE\PTGNJai4m2U1"
  2360.     A$ = A$ + "UI=B:bC[aBoIN>aRg73ak4RM52F<aL9fk8W0000D[HE4[XHd^Y:Y1J5IKCDX"
  2361.     A$ = A$ + "nLYNM4[J=<\9E\13K@7k=eP@8000QGeJ04E\R2:HDD5=Z2f2RH<0Fd>600@4"
  2362.     A$ = A$ + "D`jH8X:X0XJ@[E4=PQPX3XiPJ>JD?<OI<Ed[M97n1J`X0;00004;6SG0DaYP"
  2363.     A$ = A$ + "5A[h152F8<8_TL00[Y=PRa6499@fQP=6AUXG0000CPK4VH11025Jm8TQl2hN"
  2364.     A$ = A$ + "R<>X2hPB2;@@jcN0P2W8=96]X8EfZD0:1YJGOjSF1L00H8`P5@T=^RVZ0ZE>"
  2365.     A$ = A$ + "H4PTRS=428P5@@[8000<5Q=XPRHZ^DEd:P5J1<0fJ000nR3=^DRf4Tlb26S;"
  2366.     A$ = A$ + ">dh:9Z98iU5<6^2\1KYBl>RHa?LK[EUZBVHNj2000k]c><4;RmREA5K]HP=H"
  2367.     A$ = A$ + "YYHM[[fPJ;D[[FH5[JRUVFA\R5:FgBeVd:820Hg8XXC53F1AD1E9MkW<9XBn"
  2368.     A$ = A$ + "f0g0B14h@3BhUGFE=RA<H1AdJP6WJYBiDoOW]<R=21QRT40009eKaY=X0@[S"
  2369.     A$ = A$ + "EX3\D@<424AB5562\Z0:<2Q1[8H5[d6\@bH2`T2000`4hRA@K`Bb:fZ9F@BQ"
  2370.     A$ = A$ + ";:Y5553VV@QBY2KX4@0ab61A06071000DNUDX=2ZHNk_Bi50P1h4X04daPV8"
  2371.     A$ = A$ + "<d6<:Ie2>HJFbmHCB=Ok58N>Hhl]?N_nS:0P]1mZRPH@E4[7DEdRNK70;HFA"
  2372.     A$ = A$ + "0FE:nN6WRSUUO=0;PWgchLJ\9le@Rl3PkN1Haf3K]SZ]=\jZQ5\EJ1100PEk"
  2373.     A$ = A$ + "1K5a`Fa>kALd>3;9H9>KdhSLD4ED3ED<\^e<=]Re]RYJ5[[a0:Z:6\B95QAF"
  2374.     A$ = A$ + "HQ3RCLD\`bI1FFhP`0SL@X`bRBFFhP`Pa1Q2;F0\RZNe@DE<00]5Q1QR:]00"
  2375.     A$ = A$ + ";S23<YEL@<:FHYUcYd5Y5:A[BIZXYQfb=NIEhP@aJ@XHdjR5>:<`X`0S\\<b"
  2376.     A$ = A$ + "ZTK\:DLPA^a20T5FD20[EEd3:F0TF30FVjnBl?GdN]0@9;@Q16564;\LfFaA"
  2377.     A$ = A$ + "Q274^<EDX`AaA>;TGLWFVdA:00la9bFSX7aK5;FG6T1X9gc3`agglalcEN]Z"
  2378.     A$ = A$ + "2:V6TU1_HA9[20jKL4A;0h2m4500@aA6E00PEiU`830P<:FP\<\ii^Y175;\"
  2379.     A$ = A$ + "\0IA8Y60%%%0"
  2380.     RestoreFile A$, "drowning.ogg"
  2381.  
  2382.     'iglooblock.ogg
  2383.     A$ = ""
  2384.     A$ = A$ + "?MfIC1P00000000000@X]00000000TW_AJI0N4PM_9WHY=7000002@4[0000"
  2385.     A$ = A$ + "000004W00000000^1ldIW=50000000000000Qf20040000``^4bmB\cooooo"
  2386.     A$ = A$ + "ooooooooooooooooA>PM_9WHY=g:0000HU6LXibCbM68\UVHFmVLRUfLPT48"
  2387.     A$ = A$ + "b0C<b0S<`<38XlDK^U6LbEfLUi6MY00000@05HgKb9FJcUR@3IE00P0000@<"
  2388.     A$ = A$ + "<1Ba02=TE100@000PAB:><YI9UBYD6::iQ9U8UD:UBIa`T8VDVHaH<6SaH<6"
  2389.     A$ = A$ + "SaH<6SaH<22=TE100@000RB2>>Zi9YVciL66WhXLPVCJ>QcYPLPRA1N>98Lm"
  2390.     A$ = A$ + "V<VKVB[Y[iVcYD22=TE100P0004BQD85BQD85BQH86RQH86RQL87bQL8WbYL"
  2391.     A$ = A$ + ":X2ZP:X2bP<83bT<YCjT>YCjX>ZSjX>:d2]@;d2]B[4CaD]ESiJ_6d5OciL>"
  2392.     A$ = A$ + "WciL>WciL>Wc98d@F500P00048T1I@642Q@85BQD8VRYH:W2bP<P@3IE0008"
  2393.     A$ = A$ + "00800000759595;5;7;7=7=9?9?;A=A=A?CACAECEEEEEEGGGIGIGKGMGKGO"
  2394.     A$ = A$ + "IQIQKQKOIQKQKQMQMMOQQQQQQQQQQQQQQQOOOOOOOOOOP@3IE008100XSTSU"
  2395.     A$ = A$ + "SWRXRXQXRWSX3@XQ\:00T100400898Y8Y8iX9IZIZiJJKJ;J[JKK;;;;;;;3"
  2396.     A$ = A$ + "4J8[200010010000000XYYYYYYYYYYYYYYYYYYYYYYYYYYYIIIIIIIIIIIII"
  2397.     A$ = A$ + "IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII14J8[2009000MLLLLLLTDTD"
  2398.     A$ = A$ + "TL\L\L02=TE10P<00P00095;5;7=7=7=7?7?7?7?7A7A9C9C=C?C?P@3IE00"
  2399.     A$ = A$ + "0800800000000537577797=9?9E;C;G=G=G?G?GCGGGGGEEEEEEEEEEEEEEE"
  2400.     A$ = A$ + "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEP@3IE000100@8MJVUZ182c0IHP@3I"
  2401.     A$ = A$ + "E00P0000H4:23a02=TE10001000RQB>8J2]VcgL>>XIiPV:5K>M`9BeVWTKZ"
  2402.     A$ = A$ + "H^iL>WciLbVcI<>WciL::WIaPV9dJ>Wc9aPVU2JV@[iL>WW4KN@[Y:]VciL6"
  2403.     A$ = A$ + "WcY36WAHL>WcY9]V7TJfH]iL>W5dJJ>ZiBaVciLRD^i9eV;EK>WciL>WciL>"
  2404.     A$ = A$ + "WciL>WZGLjL`i4>WciLRJ_iJiV@GL>WciC6W^gL2QciL>WciL>WciL>WciL2"
  2405.     A$ = A$ + "2=TE100@0001QQ=66gYPPdWS6865QHJ8Cj1M?j`TP63bY@Z7=jXA:UjP@9E6"
  2406.     A$ = A$ + "WD:M22=TE100P00042QD85BQD85BQD85BQD86RQH86bYL:W2ZP:YBZX::Sb\"
  2407.     A$ = A$ + "<;cb\<;cb\<[3k\>[3k`@<43a@[d:aB=EKeH=F[iN>W[iPdJUF[eJ]BYD:UB"
  2408.     A$ = A$ + "YD:8d@F500P00048T1I@6TAQD85BQH8VbYL:W2ZP:P@3IE000800800000?9"
  2409.     A$ = A$ + "?7A7A7A7A7A7A7A7A7A7?7?7A9A9A9A9A;C;C=C?EAEEGIGKIMIMKOKQMQMM"
  2410.     A$ = A$ + "OOMOOOMSOMQQUUUUUUUUUUUUUUUUUUUUUUP@3IE0002000P@842QD85BQD8U"
  2411.     A$ = A$ + "RaH<7ciP>9D212=TE100P00P00000LDLDLLTLTLTT\T\TdTd\d\ldldld4m4"
  2412.     A$ = A$ + "555===E5M5M5e=]5U=U=M=M=U=MEUE]MUU]]U]e]mUU]mmmmmmmmmmmmmmmm"
  2413.     A$ = A$ + "mmmee12=TE10P400P>B>B:B:B:B>>>>BBB0Q6bZ00@600@00PRRSRSSSSTTT"
  2414.     A$ = A$ + "TTUTVTWUWUXVYVYWYWZX:@XQ\:00040040000000PRVRWRYRWRXRWSXSXTXU"
  2415.     A$ = A$ + "YUXVZV[X\Y\[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[;@"
  2416.     A$ = A$ + "XQ\:00T000dAbAbAbABABABAbAb18d@F500b000200L<L<TDTL\\\ddldldl"
  2417.     A$ = A$ + "d4m4m4m<mD5M5M12=TE100P00P00000000<T<\D\LdLdT4UD]D]DeD]D]D5E"
  2418.     A$ = A$ + "mDEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE======12=TE200"
  2419.     A$ = A$ + "I000TCZYD[W3B86TiTH@XQ@B4cAaLYCjL>:G<N8TSHDB]7bD<311eR9d9E85"
  2420.     A$ = A$ + "D;^FZeaLD]HS]B6B1eR]6;E8USj12=TE80@XI0P37707==07;=0000000000"
  2421.     A$ = A$ + "9==0=AA0=?A00000000007==0=A?0=AA0000000000000000000000000000"
  2422.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2423.     A$ = A$ + "0007==0=AA0=AA0000000000=AA0ACE0ACC0000000000=AA0?CA0ACE0000"
  2424.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2425.     A$ = A$ + "0000000000000000000000000007==0=AA0=AA0000000000=AA0AEC0?AC0"
  2426.     A$ = A$ + "000000000=AA0ACC0AEC0000000000000000000000000000000000000000"
  2427.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2428.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2429.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2430.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2431.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2432.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2433.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2434.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2435.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2436.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2437.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2438.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2439.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2440.     A$ = A$ + "10001h0004P525J8[80Ph4007>>@B2BB`C3PSU5llPW6<=1hHI1??Xi1CC00"
  2441.     A$ = A$ + "00000000000@bC3NN`c3VV0TdlPW7llPY900000000000008ii1??hi1CC0B"
  2442.     A$ = A$ + "NN`c3NN`d40000000000000l<=QY94=QZ90?CCHJ2CCHZ200000000000000"
  2443.     A$ = A$ + "000000000000000P000P1L0002`4:3DXQ\R00RC00LhX89100PSTTU5000:B"
  2444.     A$ = A$ + "BFF000HIIii100PTUUW70000000000000000000000000000000000000000"
  2445.     A$ = A$ + "00000000000000000000000000000000000000000000008000H0700P0<Qb"
  2446.     A$ = A$ + "05J8[40PX0007::FF077;;PSSU5@Bbb2PU50==0NJ045108000X0700P0\1="
  2447.     A$ = A$ + "UHa1X@3IU004500h`AabBCCDTSSUUVVX877;;==AAFFJJJJRR@cBCCD4NNNN"
  2448.     A$ = A$ + "VV`ccccd4RRRRVV0AACC10005h0004P=XY4;>05J8[40P@2007>>FFNNRRRR"
  2449.     A$ = A$ + "VVVVZZLL\\ll4555==EEMMihHIii9:::JJZZjjbbBCccCDDDddDEee5JJNNR"
  2450.     A$ = A$ + "RRRVVZZ^^@CCDddddDEEEee5JJNRVVVVZZZZ^^`cCDddddDEeeee58:JJJJZ"
  2451.     A$ = A$ + "Zjjjj245====EEMMMM1RRRVVVZZ^^^^0CCCCEEEGGGII0VVZZZZ^^bb0DEEE"
  2452.     A$ = A$ + "MMMUUU1XZZZjjjj:;3`eeeEfEFFF60^^^^bbbb2000>`10080SP>9SZ\8\AC"
  2453.     A$ = A$ + "h2?0DXQ\R00R2000<6VBaD:3S9Q@:4JH<94BQ@VDBYB:UZP@ZDBUB54BUBZD"
  2454.     A$ = A$ + "bXD;UJYD54BUBZDZP@ZDBUB100H7h00PMP525J8[40Pl0002SAYH<WciT8TB"
  2455.     A$ = A$ + "aH>Wc9A8URaL>WCZD<VciL>WD:I<WciL>YDbH>WciLBYTaL>WciTBYciL>W3"
  2456.     A$ = A$ + ":UBYdiL>WC:UB94jL>WD:UBWciL>100@5h0004P=:bVC`81EXQ\B00B500<h"
  2457.     A$ = A$ + "hHIYYii9:JJJ99YYiii9JJJJZ99YYii9:JJJJbcccCDDDddDEUWWWWXXXXYY"
  2458.     A$ = A$ + "Z:GGAAACCCCCEEbbRRRRVVZZZZ`dddddDEEE5VVVVVVZZ^^`fFEEEeeee5ff"
  2459.     A$ = A$ + "ZZZZ^^^^0GGGGGGIIP[[[[[[\\000l4L00P:`6FM4>YXa2\@3IU00T100@H<"
  2460.     A$ = A$ + "8T2Q@8U1Q@:42QD:529000H0700P0<Qb05J8[40P`100021SaH<6SaH<f`HH"
  2461.     A$ = A$ + "<6SaH<6Sa4W2SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH"
  2462.     A$ = A$ + "<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH"
  2463.     A$ = A$ + "<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH[eJ]F[E0PQc5>0@"
  2464.     A$ = A$ + "IAHSc`:9MFQS6LQ6b:108T000`H@863jT@YT:YD52aH>XDBUFZUR]:4RaP@Y"
  2465.     A$ = A$ + "TB]F\5S5?Wc1QB:UJYH:f:N>WC:YD[5SaH\FL]@8UBYF;fR]H\9KQ@:UB]F<"
  2466.     A$ = A$ + "6[eHcXD]DZeRaH<6[aRBiBYD[5KaH\FS5QbVK]F<6[eJ]FC:U?gBaF]FSaJ]"
  2467.     A$ = A$ + "V<:SB6SaJ]6[eJ]8D:U<6CaD\F[eJB8<6O?6SaJ<W[eTB8<nN<E;aF]F[9UB"
  2468.     A$ = A$ + "Y<2I=VZaJ=WC:U@I<fH;ECiL>G000e3>00D9H4d9IDU5Q=J2Gh1P2=TE20@^"
  2469.     A$ = A$ + "10022YD<6SiL>WciL>W3BA:6caL>W32Q@842Q@:2aH<VciL@842Q@84BI<6c"
  2470.     A$ = A$ + "iL>842Q@84:QB:UbH>Wc1Q@84:UBYDBYDWciP@842QBYD:UB:UjL>742Q@XD"
  2471.     A$ = A$ + ":UBYDBYD842Q@842UBYD:UB:UBY@842QBXD:UBYDBYD:52Q@8D:UBYD:UB:U"
  2472.     A$ = A$ + "BY@842QBYD:UBYDBYD:52U@YD:UBYD:UB:UBYD:4:UBYD:UBYDBYD:UBUBYD"
  2473.     A$ = A$ + ":UBYD:UB:UBYDZD:UBYD:UBYDBYD:UBUBYD:UBYD:UB:UBYD:U:UBYD:UBYD"
  2474.     A$ = A$ + "BYD:UBYDYD:UBYD:UB:UBYD:U:UBYD:UBYDBYD:UBYDYD:UBYD:UB:UBYD:U"
  2475.     A$ = A$ + "BYBYD:UBYD:000j0700P0<R:]@\Cch:?2L45b`4@5J8[400b000474;]F[eZ"
  2476.     A$ = A$ + "<:Wb9UD[3IT6V3:YHWd1QD;F;E681YLB:eYP8TR1YF8SZD:VCJY@;SYD<8f:"
  2477.     A$ = A$ + "a@7SaLD>UCU@7S1000PP00`0A8c48@1@16830P3@81Y00X`2<da`514@^4bX"
  2478.     A$ = A$ + "03:L<Qc9MJ30044R<3AR8F<8a4Z6XXRY30Ha5H8O0P<dHSd^h2X;3`5d5ge1"
  2479.     A$ = A$ + "2QP@@88FL0D09P3>QKh9N3?QK`9XCAUj01000000N00h1008I3P8R8JVSS>l"
  2480.     A$ = A$ + "h3@2ATA8Y4C>151000000\30h300895P8R8JVSS>lh3@2ATA8Y4C>1U000@0"
  2481.     A$ = A$ + "4000000@04028P0000000@0000028ldIW=504X8500000000Qf20080000P4"
  2482.     A$ = A$ + ";]HhA`dAmlS?<adoFnoKo?gocmo2<H?>`>:DEP<^L@OLPMDXZ0ILm]^eVR88"
  2483.     A$ = A$ + "H2b5X10VXeXXRE]R6d^fkmjADdXA`FDD4E]J]lW_AlIaO3Jn<@PR224c<cjR"
  2484.     A$ = A$ + "E4CMZ]410@Pm4TJ0@2[3\WPD30BHm]^E;8B9VfXoH1064[PaRE[X2F@[X1=f"
  2485.     A$ = A$ + "ZF@7H^GMc_:FSPXE5Dd0ZXED\2Nm0AQbFR8X^2AAS=00lg>m<=TZ2;VFmg>m"
  2486.     A$ = A$ + "<=TZ2;VFL0e=ZV46\T13]0@cRZRATKYZ8P>1;Z8H]NOVZPX1Q`DDeeeLW]>4"
  2487.     A$ = A$ + "DFDX;`Qod\P>;9\kLMh?=;XcB2k>GO08?1<PQV0PD5823SP2bWUR6SR]DU2n"
  2488.     A$ = A$ + "L_51=PXXm>n6?D4:lT9[Ea2`JHn91@R0eY0Q^aPQJZ41ZC12MS13eD7802V0"
  2489.     A$ = A$ + "6`@;0TZ0Y4T33[`l8n;5MXA5]6D454SASOJg^\A5mh;AEK[PA;[0<H?A^VMB"
  2490.     A$ = A$ + "J4h]nmPm4iJf9YAPgjggZI]1YNCd87Vg00SE0;Z1P5@A;JEEA<\VRQHQH0FC"
  2491.     A$ = A$ + "A=0A[ZPkgCS65g4RQ1Pe<1CA5KYU6F[=0@Ml@Pf`BkPkCF7?4X=\d>hnTgbJ"
  2492.     A$ = A$ + "R82QPSL]=0@D3ZeHE4KEE]Zg[?>DdXXAD@aZJeZZJ3:R6AA:DK]FL8J4=R2R"
  2493.     A$ = A$ + "m_XRH=3K`2MXP0Pne`0>OHIjoGC=f?halW;;@i@oJH0G<d3mo[97G7lHnib9"
  2494.     A$ = A$ + "9?n70000P_100<`K0@UB0<>61@Dg4FHdR4O100hhPJ0:S2g60]1^U0HKS790"
  2495.     A$ = A$ + "00eF=8:Pa]50<L19^0T4F4F4F9G60am560a=HP0\10005B0DKQBSV0000:X6"
  2496.     A$ = A$ + "ZQYU87=\g@555000SaJ10004\HaD@DA5ED@\06VF]ed@A=0508S20E`Hc6A5"
  2497.     A$ = A$ + "eDmV5ADC500DAA\e0000`>3C00000EDa``FC3CaD\E100000005;6S002PG5"
  2498.     A$ = A$ + "KE3D9QN6VR2000002M001D_Ja=1D00000<<L1@100@]0000H_Z6008ZH]c20"
  2499.     A$ = A$ + "B2F3ZX200lT@BN296G94VAHQH928RH@LZ@R;TPlh;0ONliaU3;1P@1UQbSQ7"
  2500.     A$ = A$ + "U1hc0D2XLT<[64380008^6Hi60004000L\E[J2P:ZXRJT5J208Q=XFG\U200"
  2501.     A$ = A$ + "0PE]VQAFPE10@d\030@5=cI5cXB00002K`D1000\^90000008ZE\5ZQYH;E0"
  2502.     A$ = A$ + "0P<WXR200P^Y00POf@BX[e<CmodXf7XFlFDYjac8B2M]VI[oWVHM9@]hJAUZ"
  2503.     A$ = A$ + "Wn30000`WP0PJ[D30eCV0_1@X>U08SS108[=B\`eWFhH4XBej93`a0X<;P<["
  2504.     A$ = A$ + "]`]1@?PK90f070fUX0FkkW1T4f61@Hc:1Q5A^;^_`147\0K000X500dTf400"
  2505.     A$ = A$ + ">:>260eHE;28H`J5D15AA0D\P5;000PHHW]800XFE<2@b47SVJMDM000RH4a"
  2506.     A$ = A$ + "H]000HE5DSA\:28000PPJX:0000X00000PHWQ=R0H?000HJWmfI7000PEa@1"
  2507.     A$ = A$ + "000A\H0R92f:0000R551000000k\edT8=b>C000TD4F62O:QB1XD:O^2c8=a"
  2508.     A$ = A$ + "Y4:G2h32O<9:h`2K20000l08H;\1;M000000`d6\=000FJE[Y0000PE\ID03"
  2509.     A$ = A$ + "0XE[>B00\D\60PP]@=16\9;E0000`ZRe000DCKf@1000000adF::Ze\R0000"
  2510.     A$ = A$ + "PE]AK00001Kb0000;R^dJ0PO6A2XO^MFjogF8g[UG;JPl@J3AHg<kbeo_=en"
  2511.     A$ = A$ + "QJieR6Yeo00000l930TImF0@=U0n00ZC900DKHQ3k`2g`2a]10073PXf44eV"
  2512.     A$ = A$ + ">X=`]402l80008[=8bm;8`>Q5Q5QU`W]0;<``N<008_Q8_1;FP=000L3800A"
  2513.     A$ = A$ + "AF:00=SH`REDS8FE5Db6DeJ50000<H4e:000PRaZ200H_=VRRREe65\a@500"
  2514.     A$ = A$ + "@1005WX54ES>ZZF<A0000k=<D00000@\HH[08RH[00000000P1;00RZ00PRH"
  2515.     A$ = A$ + "X000900Pb`1H@S0000aNJ2004II5E1<=6`4000FI\1b@XD:5D28\2:Z@l4T1"
  2516.     A$ = A$ + "4@80LQPL@0lnK0a1FRTB9Q`D;0@00Vf2[000060000P=HJ9P]d`0000000`4"
  2517.     A$ = A$ + "[1000HHcX00000R5SmX00VSMR00`X\^AISF2000HQeDCK`:00XjHc2008;7S"
  2518.     A$ = A$ + "j10BbRFZ0000:J00000004e6bF5000@kJ400NJ31lY9]7lM:Vk]ORMFZY=4`"
  2519.     A$ = A$ + "WVdN`gYH^gn9fI9o300::ZDg088c?R8815eF2@=e2h50XV47S08[3HQ[79Fh"
  2520.     A$ = A$ + "@R5>]BRlV0X7`nE2PX06Gj1\_AT4F49QEn2F`n4000]<0P<]PZZeZRa:FA48"
  2521.     A$ = A$ + "YFS5A\ZaXZ82X08X:DR0:HDAD0410aJ51EEaN31Ea>015A<4A]G]7A051aF\"
  2522.     A$ = A$ + "0ZZfJX2He>C4@100[8000XH;P80000:R80RE3a0eFD000P8XHP``bB9<PbAB"
  2523.     A$ = A$ + "9D410@`FHJcT@Iakj^3@2aS3\UZ5P0082ZR82f2[KM41e:0082Pe\6FmOmeb"
  2524.     A$ = A$ + "?P20ZY=K5000\RYe50000@]UR200:00FaF:00X3=j400EBRJ=Kddd:F30004"
  2525.     A$ = A$ + "[SQ1fX00h103KdD1A0\R]4\1;E0000@7jDW000R]58XZ200000R]D0e6]Rb0"
  2526.     A$ = A$ + "800R8VFJ;==hD00@\V5F7EEe2;]I@1A40@41`Jd00008JD500h_=45HJ[XHC"
  2527.     A$ = A$ + "OmUU0Qc9m]QX0CK55Kj[_\48L>Ygf0K_Y=4cNZL@\DBA0R5PhDHa8V`0a<;V"
  2528.     A$ = A$ + "H>R1000HSMfKE4e`ZQ5;HSY9fR]F`Fk<]J_mZmf\5FHSFCE;<5D1C[HE3\d2"
  2529.     A$ = A$ + "eBK`6]0C3D10@<:JE\5^Je`LEJ0n^;:7@hJL[o4?YiGKVe:f:fJdY6K5SX\n"
  2530.     A$ = A$ + "=HAEa86A[6Efb?\5I9ci38ZJDA<H0LV?Yc7RlRKMUL100<H1E=JEbnT5l49b"
  2531.     A$ = A$ + "[6nC@ES:R130dlc`JWEFWML248GgneV:_KVm9e[b90\kRKKBn3[C0TY6U9HL"
  2532.     A$ = A$ + ">`h4N3P7G^:8@VJhJLk7008^bC@ESZ86AE4EQLM1b^90%%%0"
  2533.     RestoreFile A$, "iglooblock.ogg"
  2534.  
  2535.     'scorecount.ogg
  2536.     A$ = ""
  2537.     A$ = A$ + "?MfIC1P00000000000Pm]000000008h>V@A0N4PM_9WHY=7000002@4[0000"
  2538.     A$ = A$ + "000004W00000000^1ldIW=50000000000000fg2004000009ooA4B\cooooo"
  2539.     A$ = A$ + "ooooooooooooooooA>PM_9WHY=g:0000HU6LXibCbM68\UVHFmVLRUfLPT48"
  2540.     A$ = A$ + "b0C<b0S<`<38XlDK^U6LbEfLUi6MY00000@05HgKb9FJcUR@3IE00P0000@<"
  2541.     A$ = A$ + "<1Ba02=TE100@000PAB:><YI9UBYD6::iQ9U8UD:UBIa`T8VDVHaH<6SaH<6"
  2542.     A$ = A$ + "SaH<6SaH<22=TE100@000RB2>>Zi9YVciL66WhXLPVCJ>QcYPLPRA1N>98Lm"
  2543.     A$ = A$ + "V<VKVB[Y[iVcYD22=TE100P0004BQD85BQD85BQH86RQH86RQL87bQL8WbYL"
  2544.     A$ = A$ + ":X2ZP:X2bP<83bT<YCjT>YCjX>ZSjX>:d2]@;d2]B[4CaD]ESiJ_6d5OciL>"
  2545.     A$ = A$ + "WciL>WciL>Wc98d@F500P00048T1I@642Q@85BQD8VRYH:W2bP<P@3IE0008"
  2546.     A$ = A$ + "00800000759595;5;7;7=7=9?9?;A=A=A?CACAECEEEEEEGGGIGIGKGMGKGO"
  2547.     A$ = A$ + "IQIQKQKOIQKQKQMQMMOQQQQQQQQQQQQQQQOOOOOOOOOOP@3IE008100XSTSU"
  2548.     A$ = A$ + "SWRXRXQXRWSX3@XQ\:00T100400898Y8Y8iX9IZIZiJJKJ;J[JKK;;;;;;;3"
  2549.     A$ = A$ + "4J8[200010010000000XYYYYYYYYYYYYYYYYYYYYYYYYYYYIIIIIIIIIIIII"
  2550.     A$ = A$ + "IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII14J8[2009000MLLLLLLTDTD"
  2551.     A$ = A$ + "TL\L\L02=TE10P<00P00095;5;7=7=7=7?7?7?7?7A7A9C9C=C?C?P@3IE00"
  2552.     A$ = A$ + "0800800000000537577797=9?9E;C;G=G=G?G?GCGGGGGEEEEEEEEEEEEEEE"
  2553.     A$ = A$ + "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEP@3IE000100@8MJVUZ182c0IHP@3I"
  2554.     A$ = A$ + "E00P0000H4:23a02=TE10001000RQB>8J2]VcgL>>XIiPV:5K>M`9BeVWTKZ"
  2555.     A$ = A$ + "H^iL>WciLbVcI<>WciL::WIaPV9dJ>Wc9aPVU2JV@[iL>WW4KN@[Y:]VciL6"
  2556.     A$ = A$ + "WcY36WAHL>WcY9]V7TJfH]iL>W5dJJ>ZiBaVciLRD^i9eV;EK>WciL>WciL>"
  2557.     A$ = A$ + "WciL>WZGLjL`i4>WciLRJ_iJiV@GL>WciC6W^gL2QciL>WciL>WciL>WciL2"
  2558.     A$ = A$ + "2=TE100@0001QQ=66gYPPdWS6865QHJ8Cj1M?j`TP63bY@Z7=jXA:UjP@9E6"
  2559.     A$ = A$ + "WD:M22=TE100P00042QD85BQD85BQD85BQD86RQH86bYL:W2ZP:YBZX::Sb\"
  2560.     A$ = A$ + "<;cb\<;cb\<[3k\>[3k`@<43a@[d:aB=EKeH=F[iN>W[iPdJUF[eJ]BYD:UB"
  2561.     A$ = A$ + "YD:8d@F500P00048T1I@6TAQD85BQH8VbYL:W2ZP:P@3IE000800800000?9"
  2562.     A$ = A$ + "?7A7A7A7A7A7A7A7A7A7?7?7A9A9A9A9A;C;C=C?EAEEGIGKIMIMKOKQMQMM"
  2563.     A$ = A$ + "OOMOOOMSOMQQUUUUUUUUUUUUUUUUUUUUUUP@3IE0002000P@842QD85BQD8U"
  2564.     A$ = A$ + "RaH<7ciP>9D212=TE100P00P00000LDLDLLTLTLTT\T\TdTd\d\ldldld4m4"
  2565.     A$ = A$ + "555===E5M5M5e=]5U=U=M=M=U=MEUE]MUU]]U]e]mUU]mmmmmmmmmmmmmmmm"
  2566.     A$ = A$ + "mmmee12=TE10P400P>B>B:B:B:B>>>>BBB0Q6bZ00@600@00PRRSRSSSSTTT"
  2567.     A$ = A$ + "TTUTVTWUWUXVYVYWYWZX:@XQ\:00040040000000PRVRWRYRWRXRWSXSXTXU"
  2568.     A$ = A$ + "YUXVZV[X\Y\[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[;@"
  2569.     A$ = A$ + "XQ\:00T000dAbAbAbABABABAbAb18d@F500b000200L<L<TDTL\\\ddldldl"
  2570.     A$ = A$ + "d4m4m4m<mD5M5M12=TE100P00P00000000<T<\D\LdLdT4UD]D]DeD]D]D5E"
  2571.     A$ = A$ + "mDEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE======12=TE200"
  2572.     A$ = A$ + "I000TCZYD[W3B86TiTH@XQ@B4cAaLYCjL>:G<N8TSHDB]7bD<311eR9d9E85"
  2573.     A$ = A$ + "D;^FZeaLD]HS]B6B1eR]6;E8USj12=TE80@XI0P37707==07;=0000000000"
  2574.     A$ = A$ + "9==0=AA0=?A00000000007==0=A?0=AA0000000000000000000000000000"
  2575.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2576.     A$ = A$ + "0007==0=AA0=AA0000000000=AA0ACE0ACC0000000000=AA0?CA0ACE0000"
  2577.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2578.     A$ = A$ + "0000000000000000000000000007==0=AA0=AA0000000000=AA0AEC0?AC0"
  2579.     A$ = A$ + "000000000=AA0ACC0AEC0000000000000000000000000000000000000000"
  2580.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2581.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2582.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2583.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2584.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2585.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2586.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2587.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2588.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2589.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2590.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2591.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2592.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2593.     A$ = A$ + "10001h0004P525J8[80Ph4007>>@B2BB`C3PSU5llPW6<=1hHI1??Xi1CC00"
  2594.     A$ = A$ + "00000000000@bC3NN`c3VV0TdlPW7llPY900000000000008ii1??hi1CC0B"
  2595.     A$ = A$ + "NN`c3NN`d40000000000000l<=QY94=QZ90?CCHJ2CCHZ200000000000000"
  2596.     A$ = A$ + "000000000000000P000P1L0002`4:3DXQ\R00RC00LhX89100PSTTU5000:B"
  2597.     A$ = A$ + "BFF000HIIii100PTUUW70000000000000000000000000000000000000000"
  2598.     A$ = A$ + "00000000000000000000000000000000000000000000008000H0700P0<Qb"
  2599.     A$ = A$ + "05J8[40PX0007::FF077;;PSSU5@Bbb2PU50==0NJ045108000X0700P0\1="
  2600.     A$ = A$ + "UHa1X@3IU004500h`AabBCCDTSSUUVVX877;;==AAFFJJJJRR@cBCCD4NNNN"
  2601.     A$ = A$ + "VV`ccccd4RRRRVV0AACC10005h0004P=XY4;>05J8[40P@2007>>FFNNRRRR"
  2602.     A$ = A$ + "VVVVZZLL\\ll4555==EEMMihHIii9:::JJZZjjbbBCccCDDDddDEee5JJNNR"
  2603.     A$ = A$ + "RRRVVZZ^^@CCDddddDEEEee5JJNRVVVVZZZZ^^`cCDddddDEeeee58:JJJJZ"
  2604.     A$ = A$ + "Zjjjj245====EEMMMM1RRRVVVZZ^^^^0CCCCEEEGGGII0VVZZZZ^^bb0DEEE"
  2605.     A$ = A$ + "MMMUUU1XZZZjjjj:;3`eeeEfEFFF60^^^^bbbb2000>`10080SP>9SZ\8\AC"
  2606.     A$ = A$ + "h2?0DXQ\R00R2000<6VBaD:3S9Q@:4JH<94BQ@VDBYB:UZP@ZDBUB54BUBZD"
  2607.     A$ = A$ + "bXD;UJYD54BUBZDZP@ZDBUB100H7h00PMP525J8[40Pl0002SAYH<WciT8TB"
  2608.     A$ = A$ + "aH>Wc9A8URaL>WCZD<VciL>WD:I<WciL>YDbH>WciLBYTaL>WciTBYciL>W3"
  2609.     A$ = A$ + ":UBYdiL>WC:UB94jL>WD:UBWciL>100@5h0004P=:bVC`81EXQ\B00B500<h"
  2610.     A$ = A$ + "hHIYYii9:JJJ99YYiii9JJJJZ99YYii9:JJJJbcccCDDDddDEUWWWWXXXXYY"
  2611.     A$ = A$ + "Z:GGAAACCCCCEEbbRRRRVVZZZZ`dddddDEEE5VVVVVVZZ^^`fFEEEeeee5ff"
  2612.     A$ = A$ + "ZZZZ^^^^0GGGGGGIIP[[[[[[\\000l4L00P:`6FM4>YXa2\@3IU00T100@H<"
  2613.     A$ = A$ + "8T2Q@8U1Q@:42QD:529000H0700P0<Qb05J8[40P`100021SaH<6SaH<f`HH"
  2614.     A$ = A$ + "<6SaH<6Sa4W2SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH"
  2615.     A$ = A$ + "<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH"
  2616.     A$ = A$ + "<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH[eJ]F[E0PQc5>0@"
  2617.     A$ = A$ + "IAHSc`:9MFQS6LQ6b:108T000`H@863jT@YT:YD52aH>XDBUFZUR]:4RaP@Y"
  2618.     A$ = A$ + "TB]F\5S5?Wc1QB:UJYH:f:N>WC:YD[5SaH\FL]@8UBYF;fR]H\9KQ@:UB]F<"
  2619.     A$ = A$ + "6[eHcXD]DZeRaH<6[aRBiBYD[5KaH\FS5QbVK]F<6[eJ]FC:U?gBaF]FSaJ]"
  2620.     A$ = A$ + "V<:SB6SaJ]6[eJ]8D:U<6CaD\F[eJB8<6O?6SaJ<W[eTB8<nN<E;aF]F[9UB"
  2621.     A$ = A$ + "Y<2I=VZaJ=WC:U@I<fH;ECiL>G000e3>00D9H4d9IDU5Q=J2Gh1P2=TE20@^"
  2622.     A$ = A$ + "10022YD<6SiL>WciL>W3BA:6caL>W32Q@842Q@:2aH<VciL@842Q@84BI<6c"
  2623.     A$ = A$ + "iL>842Q@84:QB:UbH>Wc1Q@84:UBYDBYDWciP@842QBYD:UB:UjL>742Q@XD"
  2624.     A$ = A$ + ":UBYDBYD842Q@842UBYD:UB:UBY@842QBXD:UBYDBYD:52Q@8D:UBYD:UB:U"
  2625.     A$ = A$ + "BY@842QBYD:UBYDBYD:52U@YD:UBYD:UB:UBYD:4:UBYD:UBYDBYD:UBUBYD"
  2626.     A$ = A$ + ":UBYD:UB:UBYDZD:UBYD:UBYDBYD:UBUBYD:UBYD:UB:UBYD:U:UBYD:UBYD"
  2627.     A$ = A$ + "BYD:UBYDYD:UBYD:UB:UBYD:U:UBYD:UBYDBYD:UBYDYD:UBYD:UB:UBYD:U"
  2628.     A$ = A$ + "BYBYD:UBYD:000j0700P0<R:]@\Cch:?2L45b`4@5J8[400b000474;]F[eZ"
  2629.     A$ = A$ + "<:Wb9UD[3IT6V3:YHWd1QD;F;E681YLB:eYP8TR1YF8SZD:VCJY@;SYD<8f:"
  2630.     A$ = A$ + "a@7SaLD>UCU@7S1000PP00`0A8c48@1@16830P3@81Y00X`2<da`514@^4bX"
  2631.     A$ = A$ + "03:L<Qc9MJ30044R<3AR8F<8a4Z6XXRY30Ha5H8O0P<dHSd^h2X;3`5d5ge1"
  2632.     A$ = A$ + "2QP@@88FL0D09P3>QKh9N3?QK`9XCAUj01000000N00h1008I3P8R8JVSS>l"
  2633.     A$ = A$ + "h3@2ATA8Y4C>151000000\30h300895P8R8JVSS>lh3@2ATA8Y4C>1U000@0"
  2634.     A$ = A$ + "4000000@04028P0000000@0000028ldIW=504@@200000000fg200800000:"
  2635.     A$ = A$ + "[k0g80UDogdoil?6Lf_RLf8`?9>5?AKWm[8W=2lCRCaCdfII]R8@`1;T[900"
  2636.     A$ = A$ + "a:X6SPJZH=[8_kc:JdX8RPZ:2ZJE=R8JdQ\`OfZJE=NQ[TPY]dFJYY2PYe]^"
  2637.     A$ = A$ + "Un11nc3d86m@A?Ka1W0oi1J4SNXXW]hPc;0;[9=JCJ20J205Ka`414Q?EH>L"
  2638.     A$ = A$ + "X6ZXXfBAS5\HAWFS5;8FEW:PX6VRe]U6R20Z=gI[FWZR100[K;U0JM3S5^V;"
  2639.     A$ = A$ + "\@c7?mkgA?UbGXn4[^Qa2Gc5FXiSWnmkXWBi;DORm=00dZod;SeG200>@d00"
  2640.     A$ = A$ + "04C\hf000a8J000a8n;100@H3d;53W1fFP80@BTAIMZN<F_5IT40@`>000@]"
  2641.     A$ = A$ + "A:3B2b`ZYYQQQ]Z5E5CK<<0T]000Z008;008Z008;10P:ZQYH5[F\1@1AaDD"
  2642.     A$ = A$ + ";6fJ:PJDaHD`R1S8F<ZeRJ0515TbSWhDa4P3OFAi29i`UU:434R8:;7>Pb:8"
  2643.     A$ = A$ + "Ja:6]:XXRZJRh`7EMJFeB^?MgK@9P`5\Ba3LHYDbggUb>TFZVE[NKnf?JIAU"
  2644.     A$ = A$ + "d346:HiAh82OQhc14W<AgT:B;Z_KnRW^k=QBH9\<LI4T_@B:4;mFYUFFJ?l]"
  2645.     A$ = A$ + "@g_kOa8F6eY8\4:7F2O1XR`:^`RccJDa2R11Pbb`16Z3]R5S100J20T0001A"
  2646.     A$ = A$ + "5<\IaV\DDA5500P7h@OAT]ZSY7kZE\93U9GP3m5AfZ>VN\[FaV<DVLGA2VcH"
  2647.     A$ = A$ + "FT:a5c>MVX0C:5n9@BBDCe2<A1<9cW14<A300\`K3P9Jk10000@=]c@=]8HS"
  2648.     A$ = A$ + "53k\HaFk]gZ]fR]:Z5[66HXZZVZJ2F\e`6C3D[Z6E=6S5eZ:Z2:PQQ1fI7ZR"
  2649.     A$ = A$ + "ZX::6HJ?00:f;Ha>A\0X:ZRMFDA01A40[H5Kb2;\V8FXVZUFeB[ZP65DD@A\"
  2650.     A$ = A$ + "P5[RZFDEAE5EE\[IgM6Zc@URQ7Z9ZYHJ=[H;]@=<TfiXAm\oXJkFd:JWg[ec"
  2651.     A$ = A$ + "<AED<`:fT=KQ:RX2P]odjI:9o;b_inB3::XXPP5\hodjIoIBfRlkXcN5=820"
  2652.     A$ = A$ + "P1kF?3@4PjIn=Io_GNJP9CZMlC78:82200E00Cb00:5\D:;5L92`:ion\6h_"
  2653.     A$ = A$ + "MmB@eH385MPWg@W6V=\HkGk>k\UeRSLN3MJHf`R]O]k\cFF;>bk>M78BR5;5"
  2654.     A$ = A$ + "V8IN1P`091Y245`dN1<C2000A5E0DadRmfJHJJ=KfFHcfT=J3Fg:FJXPJHYE"
  2655.     A$ = A$ + "\Ze\AKbV]9Kf6\A[IE[HYQRHJ5[KCfBKbV]VE]`DXnMgMgMgMgE5Rle]gNk]"
  2656.     A$ = A$ + "gNKflncOncR28VFHE[IE;DP?oi?;0ile]gFVc6FmcOnc2REDeXESFMXESZ0O"
  2657.     A$ = A$ + "ncOnc^\N[KM[>imWolW550E<]`ZFcjFaBSWli?oi?3K^e]V;leWo\X2P:VFa"
  2658.     A$ = A$ + "jfT=K3F:Omi?3TcgNKYOoi?3li?300F\RZ6]J:YF[eZ0OmIKf2D3;]`B;<=<"
  2659.     A$ = A$ + "5EDImFgjF1n\;<KM[cF1%400"
  2660.     RestoreFile A$, "scorecount.ogg"
  2661.  
  2662.     'fish.ogg
  2663.     A$ = ""
  2664.     A$ = A$ + "?MfIC1P000000000000A\00000000T\6QNE0N4PM_9WHY=7000002@4[0000"
  2665.     A$ = A$ + "000004W00000000^1ldIW=500000000000004a20040000@>R@MaB\cooooo"
  2666.     A$ = A$ + "ooooooooooooooooA>PM_9WHY=g:0000HU6LXibCbM68\UVHFmVLRUfLPT48"
  2667.     A$ = A$ + "b0C<b0S<`<38XlDK^U6LbEfLUi6MY00000@05HgKb9FJcUR@3IE00P0000@<"
  2668.     A$ = A$ + "<1Ba02=TE100@000PAB:><YI9UBYD6::iQ9U8UD:UBIa`T8VDVHaH<6SaH<6"
  2669.     A$ = A$ + "SaH<6SaH<22=TE100@000RB2>>Zi9YVciL66WhXLPVCJ>QcYPLPRA1N>98Lm"
  2670.     A$ = A$ + "V<VKVB[Y[iVcYD22=TE100P0004BQD85BQD85BQH86RQH86RQL87bQL8WbYL"
  2671.     A$ = A$ + ":X2ZP:X2bP<83bT<YCjT>YCjX>ZSjX>:d2]@;d2]B[4CaD]ESiJ_6d5OciL>"
  2672.     A$ = A$ + "WciL>WciL>Wc98d@F500P00048T1I@642Q@85BQD8VRYH:W2bP<P@3IE0008"
  2673.     A$ = A$ + "00800000759595;5;7;7=7=9?9?;A=A=A?CACAECEEEEEEGGGIGIGKGMGKGO"
  2674.     A$ = A$ + "IQIQKQKOIQKQKQMQMMOQQQQQQQQQQQQQQQOOOOOOOOOOP@3IE008100XSTSU"
  2675.     A$ = A$ + "SWRXRXQXRWSX3@XQ\:00T100400898Y8Y8iX9IZIZiJJKJ;J[JKK;;;;;;;3"
  2676.     A$ = A$ + "4J8[200010010000000XYYYYYYYYYYYYYYYYYYYYYYYYYYYIIIIIIIIIIIII"
  2677.     A$ = A$ + "IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII14J8[2009000MLLLLLLTDTD"
  2678.     A$ = A$ + "TL\L\L02=TE10P<00P00095;5;7=7=7=7?7?7?7?7A7A9C9C=C?C?P@3IE00"
  2679.     A$ = A$ + "0800800000000537577797=9?9E;C;G=G=G?G?GCGGGGGEEEEEEEEEEEEEEE"
  2680.     A$ = A$ + "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEP@3IE000100@8MJVUZ182c0IHP@3I"
  2681.     A$ = A$ + "E00P0000H4:23a02=TE10001000RQB>8J2]VcgL>>XIiPV:5K>M`9BeVWTKZ"
  2682.     A$ = A$ + "H^iL>WciLbVcI<>WciL::WIaPV9dJ>Wc9aPVU2JV@[iL>WW4KN@[Y:]VciL6"
  2683.     A$ = A$ + "WcY36WAHL>WcY9]V7TJfH]iL>W5dJJ>ZiBaVciLRD^i9eV;EK>WciL>WciL>"
  2684.     A$ = A$ + "WciL>WZGLjL`i4>WciLRJ_iJiV@GL>WciC6W^gL2QciL>WciL>WciL>WciL2"
  2685.     A$ = A$ + "2=TE100@0001QQ=66gYPPdWS6865QHJ8Cj1M?j`TP63bY@Z7=jXA:UjP@9E6"
  2686.     A$ = A$ + "WD:M22=TE100P00042QD85BQD85BQD85BQD86RQH86bYL:W2ZP:YBZX::Sb\"
  2687.     A$ = A$ + "<;cb\<;cb\<[3k\>[3k`@<43a@[d:aB=EKeH=F[iN>W[iPdJUF[eJ]BYD:UB"
  2688.     A$ = A$ + "YD:8d@F500P00048T1I@6TAQD85BQH8VbYL:W2ZP:P@3IE000800800000?9"
  2689.     A$ = A$ + "?7A7A7A7A7A7A7A7A7A7?7?7A9A9A9A9A;C;C=C?EAEEGIGKIMIMKOKQMQMM"
  2690.     A$ = A$ + "OOMOOOMSOMQQUUUUUUUUUUUUUUUUUUUUUUP@3IE0002000P@842QD85BQD8U"
  2691.     A$ = A$ + "RaH<7ciP>9D212=TE100P00P00000LDLDLLTLTLTT\T\TdTd\d\ldldld4m4"
  2692.     A$ = A$ + "555===E5M5M5e=]5U=U=M=M=U=MEUE]MUU]]U]e]mUU]mmmmmmmmmmmmmmmm"
  2693.     A$ = A$ + "mmmee12=TE10P400P>B>B:B:B:B>>>>BBB0Q6bZ00@600@00PRRSRSSSSTTT"
  2694.     A$ = A$ + "TTUTVTWUWUXVYVYWYWZX:@XQ\:00040040000000PRVRWRYRWRXRWSXSXTXU"
  2695.     A$ = A$ + "YUXVZV[X\Y\[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[;@"
  2696.     A$ = A$ + "XQ\:00T000dAbAbAbABABABAbAb18d@F500b000200L<L<TDTL\\\ddldldl"
  2697.     A$ = A$ + "d4m4m4m<mD5M5M12=TE100P00P00000000<T<\D\LdLdT4UD]D]DeD]D]D5E"
  2698.     A$ = A$ + "mDEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE======12=TE200"
  2699.     A$ = A$ + "I000TCZYD[W3B86TiTH@XQ@B4cAaLYCjL>:G<N8TSHDB]7bD<311eR9d9E85"
  2700.     A$ = A$ + "D;^FZeaLD]HS]B6B1eR]6;E8USj12=TE80@XI0P37707==07;=0000000000"
  2701.     A$ = A$ + "9==0=AA0=?A00000000007==0=A?0=AA0000000000000000000000000000"
  2702.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2703.     A$ = A$ + "0007==0=AA0=AA0000000000=AA0ACE0ACC0000000000=AA0?CA0ACE0000"
  2704.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2705.     A$ = A$ + "0000000000000000000000000007==0=AA0=AA0000000000=AA0AEC0?AC0"
  2706.     A$ = A$ + "000000000=AA0ACC0AEC0000000000000000000000000000000000000000"
  2707.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2708.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2709.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2710.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2711.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2712.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2713.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2714.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2715.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2716.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2717.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2718.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2719.     A$ = A$ + "000000000000000000000000000000000000000000000000000000000000"
  2720.     A$ = A$ + "10001h0004P525J8[80Ph4007>>@B2BB`C3PSU5llPW6<=1hHI1??Xi1CC00"
  2721.     A$ = A$ + "00000000000@bC3NN`c3VV0TdlPW7llPY900000000000008ii1??hi1CC0B"
  2722.     A$ = A$ + "NN`c3NN`d40000000000000l<=QY94=QZ90?CCHJ2CCHZ200000000000000"
  2723.     A$ = A$ + "000000000000000P000P1L0002`4:3DXQ\R00RC00LhX89100PSTTU5000:B"
  2724.     A$ = A$ + "BFF000HIIii100PTUUW70000000000000000000000000000000000000000"
  2725.     A$ = A$ + "00000000000000000000000000000000000000000000008000H0700P0<Qb"
  2726.     A$ = A$ + "05J8[40PX0007::FF077;;PSSU5@Bbb2PU50==0NJ045108000X0700P0\1="
  2727.     A$ = A$ + "UHa1X@3IU004500h`AabBCCDTSSUUVVX877;;==AAFFJJJJRR@cBCCD4NNNN"
  2728.     A$ = A$ + "VV`ccccd4RRRRVV0AACC10005h0004P=XY4;>05J8[40P@2007>>FFNNRRRR"
  2729.     A$ = A$ + "VVVVZZLL\\ll4555==EEMMihHIii9:::JJZZjjbbBCccCDDDddDEee5JJNNR"
  2730.     A$ = A$ + "RRRVVZZ^^@CCDddddDEEEee5JJNRVVVVZZZZ^^`cCDddddDEeeee58:JJJJZ"
  2731.     A$ = A$ + "Zjjjj245====EEMMMM1RRRVVVZZ^^^^0CCCCEEEGGGII0VVZZZZ^^bb0DEEE"
  2732.     A$ = A$ + "MMMUUU1XZZZjjjj:;3`eeeEfEFFF60^^^^bbbb2000>`10080SP>9SZ\8\AC"
  2733.     A$ = A$ + "h2?0DXQ\R00R2000<6VBaD:3S9Q@:4JH<94BQ@VDBYB:UZP@ZDBUB54BUBZD"
  2734.     A$ = A$ + "bXD;UJYD54BUBZDZP@ZDBUB100H7h00PMP525J8[40Pl0002SAYH<WciT8TB"
  2735.     A$ = A$ + "aH>Wc9A8URaL>WCZD<VciL>WD:I<WciL>YDbH>WciLBYTaL>WciTBYciL>W3"
  2736.     A$ = A$ + ":UBYdiL>WC:UB94jL>WD:UBWciL>100@5h0004P=:bVC`81EXQ\B00B500<h"
  2737.     A$ = A$ + "hHIYYii9:JJJ99YYiii9JJJJZ99YYii9:JJJJbcccCDDDddDEUWWWWXXXXYY"
  2738.     A$ = A$ + "Z:GGAAACCCCCEEbbRRRRVVZZZZ`dddddDEEE5VVVVVVZZ^^`fFEEEeeee5ff"
  2739.     A$ = A$ + "ZZZZ^^^^0GGGGGGIIP[[[[[[\\000l4L00P:`6FM4>YXa2\@3IU00T100@H<"
  2740.     A$ = A$ + "8T2Q@8U1Q@:42QD:529000H0700P0<Qb05J8[40P`100021SaH<6SaH<f`HH"
  2741.     A$ = A$ + "<6SaH<6Sa4W2SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH"
  2742.     A$ = A$ + "<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH"
  2743.     A$ = A$ + "<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH<6SaH[eJ]F[E0PQc5>0@"
  2744.     A$ = A$ + "IAHSc`:9MFQS6LQ6b:108T000`H@863jT@YT:YD52aH>XDBUFZUR]:4RaP@Y"
  2745.     A$ = A$ + "TB]F\5S5?Wc1QB:UJYH:f:N>WC:YD[5SaH\FL]@8UBYF;fR]H\9KQ@:UB]F<"
  2746.     A$ = A$ + "6[eHcXD]DZeRaH<6[aRBiBYD[5KaH\FS5QbVK]F<6[eJ]FC:U?gBaF]FSaJ]"
  2747.     A$ = A$ + "V<:SB6SaJ]6[eJ]8D:U<6CaD\F[eJB8<6O?6SaJ<W[eTB8<nN<E;aF]F[9UB"
  2748.     A$ = A$ + "Y<2I=VZaJ=WC:U@I<fH;ECiL>G000e3>00D9H4d9IDU5Q=J2Gh1P2=TE20@^"
  2749.     A$ = A$ + "10022YD<6SiL>WciL>W3BA:6caL>W32Q@842Q@:2aH<VciL@842Q@84BI<6c"
  2750.     A$ = A$ + "iL>842Q@84:QB:UbH>Wc1Q@84:UBYDBYDWciP@842QBYD:UB:UjL>742Q@XD"
  2751.     A$ = A$ + ":UBYDBYD842Q@842UBYD:UB:UBY@842QBXD:UBYDBYD:52Q@8D:UBYD:UB:U"
  2752.     A$ = A$ + "BY@842QBYD:UBYDBYD:52U@YD:UBYD:UB:UBYD:4:UBYD:UBYDBYD:UBUBYD"
  2753.     A$ = A$ + ":UBYD:UB:UBYDZD:UBYD:UBYDBYD:UBUBYD:UBYD:UB:UBYD:U:UBYD:UBYD"
  2754.     A$ = A$ + "BYD:UBYDYD:UBYD:UB:UBYD:U:UBYD:UBYDBYD:UBYDYD:UBYD:UB:UBYD:U"
  2755.     A$ = A$ + "BYBYD:UBYD:000j0700P0<R:]@\Cch:?2L45b`4@5J8[400b000474;]F[eZ"
  2756.     A$ = A$ + "<:Wb9UD[3IT6V3:YHWd1QD;F;E681YLB:eYP8TR1YF8SZD:VCJY@;SYD<8f:"
  2757.     A$ = A$ + "a@7SaLD>UCU@7S1000PP00`0A8c48@1@16830P3@81Y00X`2<da`514@^4bX"
  2758.     A$ = A$ + "03:L<Qc9MJ30044R<3AR8F<8a4Z6XXRY30Ha5H8O0P<dHSd^h2X;3`5d5ge1"
  2759.     A$ = A$ + "2QP@@88FL0D09P3>QKh9N3?QK`9XCAUj01000000N00h1008I3P8R8JVSS>l"
  2760.     A$ = A$ + "h3@2ATA8Y4C>151000000\30h300895P8R8JVSS>lh3@2ATA8Y4C>1U000@0"
  2761.     A$ = A$ + "4000000@04028P0000000@0000028ldIW=5000d;000000004a20080000@e"
  2762.     A$ = A$ + "4ACCK\eECm_MocdofloAo[aoImoGoWboQmoLokeoFA?5K<f1S1i9b_KWO:fi"
  2763.     A$ = A$ + "<]1ib9m5Zgf_egCUm:0hH`hT`iKHMIKF>X?[XjmonOGE^lX;mD\8NUJ^=mV5"
  2764.     A$ = A$ + "OlJadRUO^GQioEJC^9W_og11KT3_njV5alNe^ll\800m1TI104`Vn0BZ0We8"
  2765.     A$ = A$ + "Pfdj3PM550DCPT5PC8HiCh<JK=QJZ4567556Z07B0aM@66_4m6oSVYO^GOEi"
  2766.     A$ = A$ + "HU@ODjUXa?JV^[gDE9jU:U::;ZGe\\FYjYFBK00i94j0:@Qmg38<204`YYoT"
  2767.     A$ = A$ + "Hk850\gBa>K\G]XRVD]0e0]V;Q4h9`a;MLT2gML6DoegEmkEe[GM]O^o[N[S"
  2768.     A$ = A$ + "[cl9@knXKi7bGc^OBfmGJlR4@MA91X_I4fBeLM4Alb26S_=4TB58434\JRgO"
  2769.     A$ = A$ + "00000NA@B8JGh6KW?K[_]NO7AhFGK@I000e83A6]AQ40`b?C<f^F6S=YckCL"
  2770.     A$ = A$ + "lBfXP:;YeQQPAE8h5VD3I^J=MMCB3G?N9njTP;KYC^b>0^W[9ZXB@h0fM>GO"
  2771.     A$ = A$ + ":ZXKe060@\8FJ=3A9400JEUaJdD500PV7?A=5UZ200h5L@\]T008[0SlJX10"
  2772.     A$ = A$ + "PT:HUT``@00@^U9C76>0`<bRZb8M:B8Kgb=DJ9@EY24eJ<MHTC2085^DDIRI"
  2773.     A$ = A$ + "I10;61>IF=20_D@C1cJhDDMIED95UMhDYe<=D2bF\>@Y@8Q\g`BcX191BB24"
  2774.     A$ = A$ + "meRXe^Y00^V=i;bf200d<`R5396`5he1g500@2i:6gT509<d4F60P4BPU5o1"
  2775.     A$ = A$ + "R5<_591TD00458H`F@T]X9=0l600TA[HK00I@a8`^0`@Id:LJfEYi818DHB9"
  2776.     A$ = A$ + "9108\LeLOP[b5A@6_\j7HfX7F@OW53KJ50RFBY0X2hF200PWh`Ne7AMXe97F"
  2777.     A$ = A$ + "=8P@>QBdhH:6eO<jEm2aNn2k^\=4eHfaXQI=dPYUN50006VF5c:9Y=ER5Kej"
  2778.     A$ = A$ + "D=3ZYUjX6UKcIM\\BfIK;LS\Cc>_]@`R@\BJFZEAeHA@01DDeXE14A4P1\23"
  2779.     A$ = A$ + "2e<Hk@KgZJk5YB;25=:^J:PT0`0X`P`d6?HP>AQ1Qm<Dc00eJigNkQ1@:@7U"
  2780.     A$ = A$ + "J6Aj3DdMdPDF\nR:@VIJ<f4BXLC1008RJ9B7902=mfUUJ]A>k\CJ@T4[XZg2"
  2781.     A$ = A$ + "HFlTTC]RaNN;308XA9;cBf1d00DAQJ5<fHP:SS2UiSA<[296OSZ=CQZP99k4"
  2782.     A$ = A$ + "B9TYL>0hb[4f[``HV:=@4APV4jT6BJXGUc6PV^7PfASPh1>CdZ:eKO@QB\aR"
  2783.     A$ = A$ + ";5M?;>0100MiLDh;B?EI[<;bA>b2040XZ2gZ:P@8Q`:>`2@40<bBe7E93UYS"
  2784.     A$ = A$ + "X;eMJ050NN3UJG9RE21GEM4i4Ug@]aDV4[0B^Zj0b9hCe81AmFKU<b8S40IA"
  2785.     A$ = A$ + "IMggVci`;PC4W6e;F8V3RWH7i000044S2F]mMEGSeH=6]D@D4R6;7kc=cf<O"
  2786.     A$ = A$ + "8O8O@dL=oP\nGoS2CdBUFDA5ED;6;9;]R56000PYD7ZJ5AY@0000dZAdJ]f0"
  2787.     A$ = A$ + "00@XXKd3EDE]5080[3ebF490310PF=HSXXGA200X@K;HWPP00H2\1I76K00P"
  2788.     A$ = A$ + "h0H0`^d60@d:m]20mZP064AA40Q3`30H;b4]0\OSk08FZD`1`02:@B9F:D00"
  2789.     A$ = A$ + "T5FJA;FbP00=_=0000Xa>4\P100P67R2a=H@038E11<HP[51T@XT14D0@\E]"
  2790.     A$ = A$ + "70Xei2\bDB06lA:90`A33000R`5m[]@B;bFS@JM;:>50;0XZ1<iDR:akD<f0"
  2791.     A$ = A$ + "NM35EO<\0jQ:6Qj6:ZnHI1d35=3O3000kn=00@kn9fVcDiXDi`PhDiGVCTk2"
  2792.     A$ = A$ + "<MXcD00000AfR041CEETD333k<<[A000]VM3k<9[BED4@H>\LI1H4G:QhcW["
  2793.     A$ = A$ + "^lJEj7\0D7UB10Q0800iFVEE]5fTQR0000FAWJdZC;2000PXZH;RZF3000PX"
  2794.     A$ = A$ + ":h2MX1000LeE:H@[F4008LE2E?0k>aPR61`0F\026\FST80G6hl54GU0hK0_"
  2795.     A$ = A$ + ">000E]F``J`Z000D`Fn50n\6I3000F[:b]60PP0<]e0000HEDd\BS10000H4"
  2796.     A$ = A$ + "[cN0Pb@Q>dQ>[Y1`000XSeX=L0H`VEE1A000X=6aJF0D0400P:jH8G0F[Z1E"
  2797.     A$ = A$ + "E000@`R5\R>:00000TBaE:30HOB8m00HT1CD0000hPHQ1EMG20H1G\061dGG"
  2798.     A$ = A$ + "F100A\H10<j5ijS?XaD[>Ql1Bc78K<<XaD[>1?@Hl0ISakN`<0dkL_82`9>h"
  2799.     A$ = A$ + "PCLRSV3a;4V\21UTIJ1L100P]fHJJE<=`>3C;F]HHSH3PE\7E]Hed>3;FD\c"
  2800.     A$ = A$ + "NK``4e4E\XHMXE7jDdYZ>eZZB8680Q6<kmgk0nnZ@:9R@^\<3BZ8H34Qfmm>"
  2801.     A$ = A$ + "V@56H10`fJiKci2000Y8QBT=0TDQB`000R5]R>A;fH0040S:ZSFEE3P8PaH0"
  2802.     A$ = A$ + "4AdX09108SG^=;YR4fPEHPe8`fE5g=0hfnK4AAAd<2EPT8b1F60023ch=8m;"
  2803.     A$ = A$ + "daHIXP600<>39430lPl820PN[`;F0:;k:ek1f<goh12F97lU;C6F_EhoNnB4"
  2804.     A$ = A$ + "006\SaO9=@4DTJGMAa20P0Q0TH1G2hc=D<jVDVbG?4\j^P56;3c=D<JV4RYl"
  2805.     A$ = A$ + "eZP5GHQaZ`G200_Y\VY?WJR^40<mgWKnYhMTSV>bAYj0\P8MZCJ7iXY;0000"
  2806.     A$ = A$ + "0A;PfJ>4FcG<:RPE@X88:6Z]1WfP78@4H20R:0G2QUQUQ`E@9=[H2Z0:jDSZ"
  2807.     A$ = A$ + "REeXF[BMFXU000>02RE]9[ZFc6\@D0<0002JeQ=R6510000aB[XVRXF>6C50"
  2808.     A$ = A$ + "00aFDdYN\E@0fT0005JE`8H;:jE00P0SRF101GA[90PSb:hDbf80T9@3\SK4"
  2809.     A$ = A$ + "3PeXR000gKIadH0000lRA0Ge0000PXXAA64^e00ffR`:5<T00\k;;dZ00000"
  2810.     A$ = A$ + "0R>dXXcZ]100ReKWe\D22700`0e`V6X100000B=j<dX8P]6]JeJP10000[A5"
  2811.     A$ = A$ + "552h@47H@11200hf6\XM1000Hb];;30@0@dZPA0;EGCEa002VZJ5`8\\FET<"
  2812.     A$ = A$ + "00;F0go2nK39JeiFOeG3>^Vk>W]T<dlK39JeiFOeG3>^Vk>W]T<Ln[00`a@T"
  2813.     A$ = A$ + "AeRj=Z42LF60RT8WIYJj8oHi10A>Qe2637i87U200000Z2F\ReH5SPH5aHZZ"
  2814.     A$ = A$ + "QJ13410100@3VFU8Ca4Q1DF:;;[h41TPS4Fa6\`2[HHQ5RQ0VXAB5Amm<0H5"
  2815.     A$ = A$ + "E5EaJ5=N1`d`B3;5C[;fP128f;GC<]ZH=11000\RZR1Se:J404004;F<H\FA"
  2816.     A$ = A$ + "SP@2e:50Se:J440Pl]U<l_\6114;08600SE5M88D[M006_BdEP<4;bJT1000"
  2817.     A$ = A$ + "\ZX3@L0P00009NUR>2RLP50000XXSHTAW4C3e10`[FVH[J20>0Xg1000H0@A"
  2818.     A$ = A$ + "cPAFP:hPBVI5K;R000000=ZT9KKQO300SEEd4Q000008_\8;Z:J010000@F6"
  2819.     A$ = A$ + "_^X2804;60KUZ00@T;=PEEd58P04PD5o[A7PP028FoR2028f:J0HJHPog`Rf"
  2820.     A$ = A$ + "7[Lb9@kJKZB>QncHAkSENi4XM]=EaHhMAEI88U5A=51\hdCU3>8F:CWNS:BT"
  2821.     A$ = A$ + "823ZTfeM8>000@=HDaJE1S1A\HWQEC[2FDa>eFk`JVHE<]1;]1[S=JMKdB;A"
  2822.     A$ = A$ + "mVDg4[X:ZP8JdXA@]9bVlMW8eo69I=ZOEI3Yno?Anj40HYK:TEO:TE0EE]ZZ"
  2823.     A$ = A$ + "HaRaY;Q8JDdQXH<02000886]VFgdBUB0D0f4i[FLCP0<T0@C3Fa1U0KSCFX;"
  2824.     A$ = A$ + "6@PacU5k;MU=8H`b;6CeT55mB@P4[e=U000P;EGYJ7DFR1000AASR2H00gh]"
  2825.     A$ = A$ + "J`NUZF\80@AQ000HTbnC4F8lX\L1oDh];CTT000\<000PGG3m@V000PF222H"
  2826.     A$ = A$ + "GVT`PPH_BkJEE5F000`6PAZXP1mP6hQ=d``c^LCKmOgj]j?hkPRVY`6JHhIG"
  2827.     A$ = A$ + "]Y]n_KmFm7lM@55PW;308;Z]>00`=Hk=K2\]]W;^LddA28BHQ5FH2C14@0jl"
  2828.     A$ = A$ + "90004SE55AaX6aX=200\:RPVJJJ@RUTfE[F^Na@0EAD4U;Q7X\D`0F>4n<44"
  2829.     A$ = A$ + "D4DA\Ze\Z8VJ]PZA4A`2610``ZFcBAD4=:P060000<\^=HE4E=\0[KE5@405"
  2830.     A$ = A$ + "14<:jDS:26<]^Y8Z2:28h5g2FD3[IQP000LT780:XE;000FA[0230=9H]ZR2"
  2831.     A$ = A$ + "6<2FC9P0PEdQ6\8@PZ6]2Ab8XCMJ1;RZ>D5`2HK`JEEdPKdZIY10_m0PH5[i"
  2832.     A$ = A$ + "V6RIf30F0X141[J;1C14@Nh1@1ed6]9;0D0P108PHV5HKJ400[XE7F[FS=00"
  2833.     A$ = A$ + "9DdZH];RR0HKPCAE0ACE<28Pb\802[FI00o<O01`ZEP0Q1K01eZ;8f2ZP:Sf"
  2834.     A$ = A$ + "2D@A040ZXH4K000[e0P?g@1`UT\iWWRUNm19>7Yi6:0^TXiWWRUNm1BL>27]"
  2835.     A$ = A$ + "E;`0007<1@LU8\0I[[;G7[R4FHA2;^BIMM0000k<<]g63@E5A\aNe00P]6f;"
  2836.     A$ = A$ + "fK_Z:ZZ:8X4BC414PQ1DFnl5T?Ge2[H3IYE\@4De4C9MCRef4e2e0KF\01@1"
  2837.     A$ = A$ + "0A;0\I55@=<cRIYe=e1P@G8]6IJWYMZ160IQJ6APk;AEAEa16;^@7JeB2Q@0"
  2838.     A$ = A$ + "060cL1ejVFC@00057i07Q:`H<TH[VIZ000DLDLP50YC38ZH_mfZQRZQRNb1U"
  2839.     A$ = A$ + "]Z0h2FA]>0@k87HA2H<0@:6[E7J:1WQ1Q180`X022026HM;4180SYd<3Yk=d"
  2840.     A$ = A$ + "ZI=HaR530?>IBg26^E]<SZ12PR2>aPGQ0E\9C]EDD8?@g02:8bJe^64XOL>9"
  2841.     A$ = A$ + "P:ZX9ZXP=XFEeP8PED@@@@D93FGSP00004Ke:\6F5541A1\aH57HIE0:SHSF"
  2842.     A$ = A$ + "a:H72XZJ@F8;[H<H1aJDd2P800P=a0B0NN3e\FFNci2GNh<9e3i=DcJIi=W;"
  2843.     A$ = A$ + "\jQcTH?n>Z619@T4mC\kRO1[45KOP85KiFR`ISY`jbU2CT^;0000R5[H=61["
  2844.     A$ = A$ + "J\6[JSPMV2R=fZHHa>5A<]a`6[RX:89VfTUV:FcZRUFA<EC[I::6:ZH8VFgZ"
  2845.     A$ = A$ + "JJIdl[2\G0\`P`PPUfX=JRX:8TReW0:2XDRUflHoHQT=8;@[2bKYDD0RZ0:T"
  2846.     A$ = A$ + "[FeFJcj>7>PMH9D<Dk]IKfZZh]F0@\0000X2VfX=[c55`8P504H<<A8\<:`P"
  2847.     A$ = A$ + "e]a<Q8XP``K_a@0h85Q:5FJMMJ51K0C:ZDG99ISH65IAgJ35=HV80X040@f<"
  2848.     A$ = A$ + "3A@V8DY\EdDTP438026>nQ0Z0ZmifUASBSj1D\W7Rjka:]\M6]RPR30P\09E"
  2849.     A$ = A$ + "054Da>Ke:6XIK4=Ef68AA9K[UUF8:2X0300@Y:IW5c2\EGGK1[9Fe2Hc_V:K"
  2850.     A$ = A$ + "]c:fdXcf00A4E7oI1hS=D`cl]Ve=ONUX[8ngaSRi4<f@Q2cgJFehcG9J=2oM"
  2851.     A$ = A$ + "mXH>`;400\WBZb9fY;^B4KChD]LS`BVRWHWnJZ0000IDKA@0HcFSB\0<@4e@"
  2852.     A$ = A$ + "<I48D1eX_oHiSC45PQ3UbH9:ZJYJYUZJ9FG;;A=ME5ed2[K5;5dZ:2PZZZZ1"
  2853.     A$ = A$ + "XGb4@A[>dY6SPXA\1R200`0R]R>eHRXP9Z=ZFc01SONHbE9B068F3KfBD55<"
  2854.     A$ = A$ + "H4Ej:G3?\JYQ=H102000b1F:67BY00X8:6VfLY1HgeVmMG488X2YFH3R200:"
  2855.     A$ = A$ + "JED5100CB[:XZT9K4304;eXZHg69100`;M8H5[YVHJHYQRXl@A0X0001`ZFG"
  2856.     A$ = A$ + "7XA]PA0010D@;adJZYe3f300@7\RF5[>jB7A[80:06<b8743@=jDgP1KK_48"
  2857.     A$ = A$ + "cM2@fJFX:P028R8HbU]:XP2ZVKV5JYQHQ103f4K\6S0R00PLDd00?MfIC101"
  2858.     A$ = A$ + "U^400000000A\00030000d4gbQi3o3goLm_DoOeoGmOGood\NM3W0RL?DUV5"
  2859.     A$ = A$ + ";N_CChL0ZKh4@F^?f]4Rj]jMM6BTS`ceDYP<9@200<G5F8Fh`>T6V<8n5F@?"
  2860.     A$ = A$ + "8:`\L\CP=8DPfb>1\1A18cFh0jAD0V5L80T_`700000af\B3SePeT08;B005"
  2861.     A$ = A$ + "<`RQH_R98PFDARcKV0^V0RPZ@`6k]86X0RPYID[]a;0XTa=[FSgEC00@;Hh5"
  2862.     A$ = A$ + "C_3id:P0XPHA2aL1@4@A=Tha2PRJX2:VF\g0A55A54Uj<<;F=E@0@1XQ0Z98"
  2863.     A$ = A$ + "2X0`QS^j5VE7^4amA4S33O]j45MX`JeZ:JdA]eY>]R6=RFE]82H@=D3C\^=H"
  2864.     A$ = A$ + "QEA54`PT`Q@@DFYYY9SDD134KYE\1;a4T2KT5`@ZgE5W5PPXFXEa2PQ9BM8O"
  2865.     A$ = A$ + ":<`208Q1kLhlUO9818SE5H`bb2I`1>JH010FhB[g:601`0`PU210H00`PZ=V"
  2866.     A$ = A$ + "44`0`2XQED0HS=Z82P200Tn<Xi::Z@RReE0024SDZgRR2RRRJPMFOl]E5ha="
  2867.     A$ = A$ + "D1\ZVOHhkbdgjRS[V>Rca=D1\:f0QQ_;3O[;>nKj8>oA]5A:T2YR<S@:8R<;"
  2868.     A$ = A$ + "ZC=KNWh<jW@<RRF1`7Rn0fIPnY@L4@[01;P`Ghf484;l908:PFmC5A1KOH60"
  2869.     A$ = A$ + "0`0:Z5SZRE`8f^J4[eZFa8ZG4E5eRJ36ZRP5eFK\a6KEe0C0<a`6<0ADeS2:"
  2870.     A$ = A$ + "2Z8Z9HSER@1E\8VNC3KA5A\J8eUjE4AE1kD[R:RZ8PP:X8DQXE9JJ_MRDDA<"
  2871.     A$ = A$ + "E3CeF;RCcHFcBEDc4[4F:6fKYQEDEe8J]@9J@E4K28D:4QYUA`8S5MXH]614"
  2872.     A$ = A$ + "f8TL<RX;?T[:b6QA>6I724:jc`?7OKN7igbk7OOn>2Z2P8Z:HYH;4444;581"
  2873.     A$ = A$ + ">4Q4J@[5B4<23Pk0`0Fc5UAm1j4`7RKJJ5Kb`jfXJPR@0@2`0<82C00<J0R6"
  2874.     A$ = A$ + ">e[7P34MF865<H@4gd9XQ[=hH1fE0oFHonmkg_?0NH37@?OGNbNn@NGk3e[]"
  2875.     A$ = A$ + ";A2UcLH37@?OGNbNn@NWG2e[M;A2UClEK@V?YJUJP8R0LbTh5>@_dA4]b0<9"
  2876.     A$ = A$ + "Ba8J1V=52CaM\`Q44hdMThJBH2000CK=MR8VRECe>3k@0AaH4A`H@@A14e03"
  2877.     A$ = A$ + "K]c@4la\GL5405405EECaD``>DadB=;J6k<\Ha`@<]VJ53\RUF1;]R]d2K6S"
  2878.     A$ = A$ + "ZEeR:65D45@P1;KRUQZ4GgFJ03X3A[a008RR6=j@SR8Rd^;J@]NgMBfY5I_J"
  2879.     A$ = A$ + "=C]e[15E=Fa:6<664Qd100228F_F=JEDaUF[F]JEEmoB?40C\g6]EKB1ED`\"
  2880.     A$ = A$ + "JGW00`j9Q]X:6AESZR540008@DDdQ6MHH=KbjfB;\ZE\d@1070`L6ViZQ::H"
  2881.     A$ = A$ + ":FejIA[UI[IoOOc000H0\XZA[VB0\WH:f2\:ZR202RP00fZZJeI5EKSU:eFa"
  2882.     A$ = A$ + "800X8jdH0haE\hMc^:_<G7FC;NY5CSmHL3CNc\[bBceY;;N9RQbAhEmDCTY8"
  2883.     A$ = A$ + "T4bl92Y\>eE1X>32X6778X\BV`;DHSfZn40Y8Z]2^45@kNY`W1dC@RF0mF0m"
  2884.     A$ = A$ + "Qf9030005E4\9E\6aPJD4[X6D4[E=2P2fH[mVFEE4A@9KAe62VB4]@ZQZ9Vb"
  2885.     A$ = A$ + "Te4A@Q6H@=Z:ZX02ZJ8fI[]VF0@@E1;F]5SHZX2RZRP9V26fIGYVQ0APXPH3"
  2886.     A$ = A$ + "fPY=JY5f2\Ze=\`2eZ2Z65AE[eXPZZA>fB4J5@\]0G:BfF@825SU2U5PKIY@"
  2887.     A$ = A$ + "lQXI_W0F@aHdX]`IPE<BH@PQ@Q0X100@P10lR1eZVQ6<P[?=2ANUF6;`6TU5"
  2888.     A$ = A$ + "C66HJ3l@0W=ACPNXC15\AaRF4[4223I30<0PC\2JD14`0<jQ20?B:]6K;260"
  2889.     A$ = A$ + "H0000\ZB]6ZR0:PXZe5XKMbAh0;03H@004<AbRfX00]G1hc=T=FRH`ZDdcaZ"
  2890.     A$ = A$ + "X4U=LAUN^Q\aJ43BUJN>^4UX\QBZNe_7`^W^>c0\Yn2PPPRJDZlSQ44DWj83"
  2891.     A$ = A$ + "@98QOB;0V9R0@6g`4\0J000HW5e>\cFe6[Z=FEK\RQXfQ=fKE@5@D459@2dB"
  2892.     A$ = A$ + "=;5[:RUeFD[A=FUTIed0E014@PXRA?cabRYe\dd6\dBKQUFJCFJJCFJY=HJY"
  2893.     A$ = A$ + "=IJYQE=]`B[JHMC3[RX8:68SMFI<S1<H1BX5]`:]Z[<P@;82fFn=?A\:\TUL"
  2894.     A$ = A$ + "WQM6V:4ITAfbS\3`2;\H5<H`8@8QYPFN\a6KI;l2X8X8X88R:FWjDWj455=J"
  2895.     A$ = A$ + "@4@\kX:CD;A_MSoVF;C;\IC353@:4Qb0==0I7;4VZ`cN89BR028Hb:fEDECa"
  2896.     A$ = A$ + ":FaJF1E=E\4YX8@HN?H^DfU600F0=8A;T\F4;;:P```@S1X36@N0@3@V<ZZM"
  2897.     A$ = A$ + "X6R:X2:IgG1o`?20ke@30hK=dJVMU;_EYYO^jD:f^EeV9H[QFc\[LiY:=mc5"
  2898.     A$ = A$ + "WYHkFEKVXGe=0R88Ck4]A2@T2Q0d;6E[F?B90J^^0Rbd?P<99Qk<jU@L9^CH"
  2899.     A$ = A$ + "b45f9Q400@<F;F4K:I]h``BB<=43@E54[hJ5a:UJ`0fR5AEA5SBAE@0CE=LM"
  2900.     A$ = A$ + "PhMR5<R0<`]2K47dVJ0Pe\`V\D]IeZF;[Fa:FZfB6KFC\Y`2[[F513<\D\d`"
  2901.     A$ = A$ + "d2C3C3[J5[K5;=bf4dng5>J;R8XFJMKfFJ;]^Y:B8:YDiSdJDXN;da6gdPXZ"
  2902.     A$ = A$ + "3MZ3]:F\04?o5803R8;SR:R8:VHJ1fPFAPXJVl@f^91`T220ZJ\^e\Z5VRR2"
  2903.     A$ = A$ + "h08bJa0h0OBM2XZZHTEK`FHCfPETf^RO;giaK;4`6@A[6]R1:ki0@Bl4hNi5"
  2904.     A$ = A$ + "ZV0=M109:DaPUUaHQdA`89XZ2R8XVFJm<cjFg4333@E5410`REdZAE1@_G9T"
  2905.     A$ = A$ + "B=822hc=D<92g;hg:I[TF]M;@c=D<a2g=hg:A[DMJkDbgbXO[MPn]jgZofTX"
  2906.     A$ = A$ + "`6PH7LWZeW08DFCE1Yd2EBd000;l00CB0000\cd0C;F\cNK]e63k=]g`6C[f"
  2907.     A$ = A$ + "HS=fY=Ha6K]JW=8XHPMVF]e><5AD[A\J[KULFJF00RZMFB`ZMHR8AZ1AH5K`"
  2908.     A$ = A$ + "d65[IJYHXV66FZ:JDeZXaJA7F5ALS::Re:J<65E[3MRR5SR=2namg7mkgOF@"
  2909.     A$ = A$ + "\H7_Hi5kX5O7;?`\PA:d1Hj5d_of`402C?Q]6[EC9:JUJE1`e]DV;:C^j=Fa"
  2910.     A$ = A$ + "[A]LIZUf9b>RJbUEJii9GQTHU5Xa:7S\S0;IWJE4KYa202AXg0Jil1;YY2h9"
  2911.     A$ = A$ + "1`=DBIl6T1I8H546QAPUa;^;aa=L3`IWS7odFW:FWeI13lQ9Kkc^HOiP5N0U"
  2912.     A$ = A$ + "U3Q;h@h:YHBl]O?Wi5QC\WK?Ab;D[1PgUaOf>n]F2nZjhUFP^<ncfa_eB`GM"
  2913.     A$ = A$ + ">NY5a\iXQ0JEW88PB811PT0B000004<]@\I3[IEC[PE5;DEePFAAe:X:R:MG"
  2914.     A$ = A$ + "O7=EiMF3Ze:JASE[5E4W:fJD]^FUj]E`B6I;29bNIEnndoFSZ2JePfZX:R:U"
  2915.     A$ = A$ + "AM\Z4eY:A5VERU<AfA4;5BTM0aB[8KQEIF\XUIkD9V>mR56I;FGDX2dgMdTl"
  2916.     A$ = A$ + "24;000^mJgN000P_a3000P;:00>1%%00"
  2917.     RestoreFile A$, "fish.ogg"
  2918.  
  2919.  
  2920.     JumpSound = _SNDOPEN("jump.ogg", "SYNC")
  2921.     BlockSound = _SNDOPEN("block.ogg", "SYNC")
  2922.     DrowningSound = _SNDOPEN("drowning.ogg", "SYNC")
  2923.     IglooBlockCountSound = _SNDOPEN("iglooblock.ogg", "SYNC")
  2924.     ScoreCountSound = _SNDOPEN("scorecount.ogg", "SYNC")
  2925.     CollectFishSound = _SNDOPEN("fish.ogg", "SYNC")
  2926.  
  2927. '------------------------------------------------------------------------------
  2928. SUB ScreenSetup
  2929.     GameScreen = _NEWIMAGE(400, 300, 32)
  2930.     GameBG = _NEWIMAGE(400, 300, 32)
  2931.     MainScreen = _NEWIMAGE(800, 600, 32)
  2932.     SCREEN MainScreen
  2933.  
  2934.     _TITLE "Frostbite Tribute"
  2935.  
  2936.     $IF WIN THEN
  2937.         _SCREENMOVE _MIDDLE
  2938.     $END IF
  2939.  
  2940.     GroundH = _HEIGHT(GameScreen) / 3 '1/3 of the GameScreen
  2941.     WaterH = (_HEIGHT(GameScreen) / 3) * 2 '2/3 of the GameScreen
  2942.     SkyH = GroundH / 3 '1/3 of GroundH
  2943.     CreditsBarH = _HEIGHT(GameScreen) / 15 '1/15 of the GameScreen
  2944.     AuroraH = SkyH / 2
  2945.  
  2946.     DrawScenery
  2947.  
  2948.     ThisAurora = _NEWIMAGE(_WIDTH(GameScreen), AuroraH, 32)
  2949.  
  2950.     CreditsIMG = _NEWIMAGE(_WIDTH(GameScreen), 40, 32)
  2951.     _DEST CreditsIMG
  2952.     _FONT 16
  2953.     COLOR _RGB32(255, 255, 255), _RGBA32(0, 0, 0, 0)
  2954.     _PRINTSTRING (10, 0), "Copyleft 2016, Fellippe Heitor. ENTER to start."
  2955.     FOR I = 22 TO 31
  2956.         LINE (0, I)-(20, I), Aurora(I MOD 7 + 1)
  2957.     NEXT I
  2958.     _PRINTSTRING (20, 20), "Frostbite Tribute"
  2959.     CreditY = -2
  2960.  
  2961.     _DEST GameScreen
  2962.     _FONT 8
  2963.  
  2964.  
  2965. '------------------------------------------------------------------------------
  2966. SUB RestoreData
  2967.     DIM MaxLevels AS INTEGER
  2968.     DIM r AS INTEGER, g AS INTEGER, b AS INTEGER
  2969.     DIM i AS INTEGER
  2970.  
  2971.     RESTORE AuroraPaletteDATA
  2972.     FOR i = 1 TO 7
  2973.         READ r, g, b
  2974.         Aurora(i) = _RGB32(r, g, b)
  2975.     NEXT i
  2976.  
  2977.     RESTORE SceneryPaletteDATA
  2978.     FOR i = 1 TO 3
  2979.         READ r, g, b
  2980.         SceneryPalette(DAY, i) = _RGB32(r, g, b)
  2981.  
  2982.         READ r, g, b
  2983.         SceneryPalette(NIGHT, i) = _RGB32(r, g, b)
  2984.     NEXT i
  2985.  
  2986.     RESTORE IceRowsDATA
  2987.     FOR i = 1 TO 4
  2988.         READ IceRows(i)
  2989.     NEXT i
  2990.  
  2991.     RESTORE LevelsDATA
  2992.     READ MaxLevels
  2993.     REDIM Levels(1 TO MaxLevels) AS LevelInfo
  2994.  
  2995.     FOR i = 1 TO MaxLevels
  2996.         READ Levels(i).Speed
  2997.         READ Levels(i).BlockType
  2998.         READ Levels(i).CreaturesAllowed
  2999.     NEXT i
  3000.  
  3001.     RESTORE CreaturesDATA
  3002.     READ CreatureWidth(FISH)
  3003.     READ CreatureWidth(BIRD)
  3004.     READ CreatureWidth(CRAB)
  3005.     READ CreatureWidth(CLAM)
  3006.  
  3007. '------------------------------------------------------------------------------
  3008. SUB SpritesSetup
  3009.     'Generates sprites from pixel DATA:
  3010.     DIM ColorIndex AS INTEGER
  3011.     DIM ColorsInPalette AS INTEGER
  3012.     REDIM SpritePalette(0) AS _UNSIGNED LONG
  3013.     DIM i AS INTEGER
  3014.  
  3015.     'Hero
  3016.     FOR i = 1 TO 4
  3017.         HeroSprites(i) = _NEWIMAGE(30, 36, 32)
  3018.     NEXT i
  3019.     RESTORE HeroPalette
  3020.     READ ColorsInPalette
  3021.     REDIM SpritePalette(1 TO ColorsInPalette) AS _UNSIGNED LONG
  3022.     FOR i = 1 TO ColorsInPalette
  3023.         READ SpritePalette(i)
  3024.     NEXT i
  3025.  
  3026.     RESTORE Hero1: LoadSprite HeroSprites(1), 30, 36, SpritePalette()
  3027.     RESTORE Hero2: LoadSprite HeroSprites(2), 30, 36, SpritePalette()
  3028.     RESTORE Hero3: LoadSprite HeroSprites(3), 30, 36, SpritePalette()
  3029.     RESTORE Hero4: LoadSprite HeroSprites(4), 30, 36, SpritePalette()
  3030.  
  3031.     _ICON HeroSprites(1)
  3032.  
  3033.     'Bird
  3034.     FOR i = 1 TO 2
  3035.         BirdSprites(i) = _NEWIMAGE(30, 15, 32)
  3036.     NEXT i
  3037.  
  3038.     RESTORE BirdPalette
  3039.     READ ColorsInPalette
  3040.     REDIM SpritePalette(1 TO ColorsInPalette) AS _UNSIGNED LONG
  3041.     FOR i = 1 TO ColorsInPalette
  3042.         READ SpritePalette(i)
  3043.     NEXT i
  3044.  
  3045.     RESTORE Bird1: LoadSprite BirdSprites(1), 30, 15, SpritePalette()
  3046.     RESTORE Bird2: LoadSprite BirdSprites(2), 30, 15, SpritePalette()
  3047.  
  3048.  
  3049.     'Fish
  3050.     FOR i = 1 TO 2
  3051.         FishSprites(i) = _NEWIMAGE(30, 15, 32)
  3052.     NEXT i
  3053.  
  3054.     RESTORE FishPalette
  3055.     READ ColorsInPalette
  3056.     REDIM SpritePalette(1 TO ColorsInPalette) AS _UNSIGNED LONG
  3057.     FOR i = 1 TO ColorsInPalette
  3058.         READ SpritePalette(i)
  3059.     NEXT i
  3060.  
  3061.     RESTORE Fish1: LoadSprite FishSprites(1), 30, 15, SpritePalette()
  3062.     RESTORE Fish2: LoadSprite FishSprites(2), 30, 15, SpritePalette()
  3063.  
  3064. '------------------------------------------------------------------------------
  3065. SUB LoadSprite (ImageHandle AS LONG, ImageWidth AS INTEGER, ImageHeight AS INTEGER, SpritePalette() AS LONG)
  3066.     'Loads a sprite from DATA fields. You must use RESTORE appropriately before calling this SUB.
  3067.     DIM i AS INTEGER
  3068.     DIM DataLine AS STRING
  3069.     DIM Pixel AS INTEGER
  3070.     DIM PrevDest AS LONG
  3071.  
  3072.     PrevDest = _DEST
  3073.     _DEST ImageHandle
  3074.  
  3075.     FOR i = 0 TO ImageHeight - 1
  3076.         READ DataLine
  3077.         FOR Pixel = 0 TO ImageWidth - 1
  3078.             PSET (Pixel, i), SpritePalette(VAL(MID$(DataLine, Pixel + 1, 1)))
  3079.         NEXT Pixel
  3080.     NEXT i
  3081.  
  3082.     _DEST PrevDest
  3083.  
  3084. '------------------------------------------------------------------------------
  3085. SUB SetTimers
  3086.     TempTimer = _FREETIMER
  3087.     ON TIMER(TempTimer, 1) DecreaseTemperature
  3088.  
  3089.     FramesTimer = _FREETIMER
  3090.     ON TIMER(FramesTimer, .1) UpdateFrames
  3091.     TIMER(FramesTimer) ON
  3092.  
  3093. '------------------------------------------------------------------------------
  3094. SUB CalculateScores
  3095.     '- Displays the end of game animation ("unbuilds" the igloo
  3096.     'and sums total points) AND
  3097.     '- Checks for 1-up goals (every 5,000 points).
  3098.  
  3099.     IF LevelComplete THEN
  3100.         'Calculate points for each igloo block
  3101.         IF IglooPieces > 0 THEN
  3102.             IF IglooBlockCountSound THEN _SNDPLAYCOPY IglooBlockCountSound
  3103.             Score = Score + (PointsInThisLevel * 10)
  3104.             IglooPieces = IglooPieces - 1
  3105.         END IF
  3106.  
  3107.         'Calculate points for each degree remaining
  3108.         IF IglooPieces = 0 AND Temperature > 0 THEN
  3109.             IF ScoreCountSound THEN _SNDPLAYCOPY ScoreCountSound
  3110.             Score = Score + (10 * PointsInThisLevel)
  3111.             Temperature = Temperature - 1
  3112.         END IF
  3113.  
  3114.         IF IglooPieces = 0 AND Temperature = 0 THEN SetLevel NEXTLEVEL
  3115.     END IF
  3116.  
  3117.     IF Score > NextGoal THEN
  3118.         NextGoal = NextGoal + ONEUPGOAL
  3119.         IF Lives < 9 THEN Lives = Lives + 1
  3120.     END IF
  3121.  
  3122. SUB InvertCurrentIceRow
  3123.     IF IceRow(Hero.CurrentRow).Direction = MOVINGRIGHT THEN
  3124.         IceRow(Hero.CurrentRow).Direction = MOVINGLEFT
  3125.         IF IceRow(Hero.CurrentRow).MirroredPosition THEN SWAP IceRow(Hero.CurrentRow).Position, IceRow(Hero.CurrentRow).MirroredPosition
  3126.     ELSE
  3127.         IceRow(Hero.CurrentRow).Direction = MOVINGRIGHT
  3128.         IF IceRow(Hero.CurrentRow).MirroredPosition THEN SWAP IceRow(Hero.CurrentRow).Position, IceRow(Hero.CurrentRow).MirroredPosition
  3129.     END IF
  3130.  
  3131. SUB DrawScenery
  3132.     DIM PrevDest AS LONG
  3133.  
  3134.     PrevDest = _DEST
  3135.     _DEST GameBG
  3136.     LINE (0, 0)-STEP(_WIDTH, GroundH), SceneryPalette(TimeOfDay, GROUND), BF '        Ground/ice
  3137.     LINE (0, 0)-STEP(_WIDTH, SkyH), SceneryPalette(TimeOfDay, SKY), BF '              Sky
  3138.     LINE (0, GroundH - 2)-STEP(_WIDTH, 3), _RGB32(0, 0, 0), BF '                      Black separator
  3139.     LINE (0, GroundH + 2)-STEP(_WIDTH, WaterH), _RGB32(0, 27, 141), BF '              Water
  3140.     LINE (0, _HEIGHT - CreditsBarH)-STEP(_WIDTH, CreditsBarH), _RGB32(0, 0, 0), BF '  Credits bar
  3141.  
  3142.     _DEST PrevDest
  3143.  
  3144. SUB RestoreFile (A$, FileName$)
  3145.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
  3146.         IF INSTR(1, B$, "%") THEN
  3147.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
  3148.                 IF F$ <> "%" THEN C$ = C$ + F$
  3149.             NEXT: B$ = C$
  3150.             END IF: FOR t% = LEN(B$) TO 1 STEP -1
  3151.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
  3152.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
  3153.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
  3154.     NEXT: btemp$ = btemp$ + X$: NEXT
  3155.     BASFILE$ = btemp$
  3156.  
  3157.     f% = FREEFILE
  3158.     OPEN FileName$ FOR OUTPUT AS #f%
  3159.     PRINT #f%, BASFILE$;
  3160.     CLOSE #f%
  3161.  
  3162. FUNCTION IIF (Condition, IfTrue, IfFalse)
  3163.     IF Condition THEN IIF = IfTrue ELSE IIF = IfFalse
  3164.  

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Frostbite (Atari 2600 clone)
« Reply #1 on: July 17, 2018, 12:12:45 am »
Ah, could someone be testing a posting limit? :-))

Marked as best answer by on Today at 06:49:46 am

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Frostbite (Atari 2600 clone)
« Reply #2 on: July 17, 2018, 12:22:11 am »
  • Undo Best Answer
  • 3209 lines and all I can do is jump into the lake. brrr....

    FellippeHeitor

    • Guest
    Re: Frostbite (Atari 2600 clone)
    « Reply #3 on: July 17, 2018, 01:02:37 am »
    Don't freeze!