Author Topic: 'Tis the season, AGAIN! - Xmas contest  (Read 18359 times)

0 Members and 1 Guest are viewing this topic.

FellippeHeitor

  • Guest
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #30 on: December 01, 2018, 06:19:30 am »
Till Xmas!

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #31 on: December 03, 2018, 02:30:47 pm »
French: Joyeux Noël
German: Frohe Weinachten
Spanish: Feliz Navidad
Italian: Buon Natale
Portuguese: Feliz Natal
Dutch: Vrolijk kerstfeest
Romanian: Crăciun fericit
Polish: Wesołych świąt Bożego Narodzenia
Swedish: God Jul
Czech: Veselé Vánoce

Did I forget anyone?

J
Logic is the beginning of wisdom.

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #32 on: December 03, 2018, 02:51:06 pm »
You forgot Soviet Russia...

 - Christmas Merry
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #33 on: December 03, 2018, 05:08:29 pm »
No. I didn't forget... Not exactly... I googled "Merry Christmas" multiple languages and I grabbed the first "10" list.

Just for you, Pete.  счастливого Рождества (I hope...)  :)

J
Logic is the beginning of wisdom.

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #34 on: December 03, 2018, 06:15:14 pm »
Спасибо and DOSvidanya! (or how the Russians said goodbye to DOS.)

It's a shame I can't goad Bob into programming anymore. I never did get him to make a slay for the holidays. I was certain everyone would remember it, too. You know, hey everyone, have you seen TheBOB sled?

And yes, Bill, I do take a drink every time I code the word PRINT.

Now in the spirit of the season, let's wrap this up and get back to programming. :D

Pete
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #35 on: December 22, 2018, 02:13:23 pm »
Hi. Here I tried. All graphics are programmed according to rules at the beginning of the thread. Clock and calendar are functional - try to release the program a day later, the day will be marked. At first I did not really know what to do.

Picture show program start.  if you want to see the main run of the program, just run it.
In add BAS file is the same source + sound packed in SOURCE BAS FILE (too big to insert it here)

this is no - sound version:

Code: QB64: [Select]
  1. L = loading&
  2. CLS , _RGB32(255, 255, 255)
  3. _PUTIMAGE (200, 200)-(824, 568), L, 0
  4.  
  5.  
  6. TYPE sv
  7.     x AS INTEGER
  8.     y AS INTEGER
  9.     b AS INTEGER
  10.     mA AS _BYTE
  11. DIM SHARED sv(1 TO 270) AS sv
  12. init_theme
  13.  
  14. my& = _NEWIMAGE(1024, 768, 32)
  15. _DEST my&
  16.  
  17.  
  18.  
  19. DIM SHARED plamenek(10) AS LONG
  20. TYPE snow
  21.     x AS INTEGER
  22.     y AS INTEGER
  23.     m AS INTEGER '
  24.     s AS INTEGER
  25.     i AS LONG
  26. DIM snow(100) AS snow
  27.  
  28. FOR ds = 0 TO 100
  29.     snow(ds).x = RND * 1024
  30.     snow(ds).y = RND * 768
  31.     snow(ds).m = RND + 1 * 3
  32.     snow(ds).s = RND + 1 * 6
  33.     snow(ds).i = vlocka(snow(ds).m, snow(ds).s)
  34. ds = 0
  35.  
  36.  
  37.  
  38. CLS , _RGB32(150, 150, 200)
  39.  
  40. mcl = 255
  41. cl = 0
  42. ob = 255 / 380
  43. ocl = 187 / 380
  44. FOR himl = 0 TO 380
  45.     mcl = mcl + ob
  46.     cl = cl + ocl
  47.     LINE (0, himl)-(1024, himl), _RGBA32(cl, cl, mcl, mcl - ob)
  48.  
  49.  
  50.  
  51.  
  52.  
  53. FOR h = 384 TO 768 STEP 80
  54.     e = 0
  55.     DO UNTIL n > 20
  56.         n = RND * 50
  57.     LOOP
  58.  
  59.     FOR g = 1 TO 1024
  60.         e = e + .01
  61.  
  62.         DO UNTIL c2 > 100
  63.             c2 = INT(127) '* 1 + RND)
  64.         LOOP
  65.  
  66.         dc = (255 - c2) / 100
  67.         clr = 0
  68.  
  69.         FOR d = 1 TO 50
  70.             clr = clr + dc
  71.             PSET (g, d + h + COS(e) * n), _RGBA32(255 - clr, 255 - clr, 255 - clr, clr)
  72.         NEXT d
  73.  
  74.         FOR d = 51 TO 100
  75.             clr = clr - dc
  76.             PSET (g, d + h + SIN(e) * n), _RGBA32(255 - clr, 255 - clr, 255 - clr, clr)
  77.         NEXT d
  78. NEXT g, h
  79. n = 0
  80.  
  81. o& = SnowMan&
  82. T& = Tree
  83. vlna& = textura_vlna&
  84. srdce& = textura_srdce&
  85. kids& = textura_detska&
  86. kidsm& = textura_kids_more&
  87. kidsm2& = textura_kids_more2&
  88. lampa& = lamp&
  89.  
  90. _PUTIMAGE (-70, 197), T&, my&
  91. _PUTIMAGE (824, 300)-(924, 390), o&, my&
  92. _PUTIMAGE (200, 150), T&, my&
  93.  
  94. REM '$include:'song.bm'
  95.  
  96. DIM SHARED lamela AS LONG, cihl AS LONG
  97. lamela& = parketa&
  98. cihl& = cihla&
  99. fireit
  100. treeB = mytree
  101.  
  102. steck& = steckdose&
  103. svice_plamen
  104. svicen = svice
  105. calender& = calend4&
  106. REM m& = sound_theme& 'in sound version!
  107.  
  108.  
  109. SCREEN my&
  110.  
  111.  
  112. ' _SNDPLAY m&
  113.  
  114.     PCOPY 1, _DISPLAY
  115.     FOR ss = 0 TO 100
  116.         RANDOMIZE TIMER
  117.         IF RND * 10 > 3 THEN ran = .5 ELSE ran = -5
  118.         snow(ss).x = snow(ss).x - RND
  119.         speed = snow(ss).s / 3
  120.         snow(ss).y = snow(ss).y + speed
  121.  
  122.         IF snow(ss).y > 1024 THEN
  123.             snow(ss).x = RND * 1024
  124.             snow(ss).y = RND * 768
  125.             snow(ss).m = RND + 1 * 3
  126.             IF TIMER * 100 MOD 10 = 0 THEN
  127.                 snow(ss).s = RND + 1 * 24
  128.                 snow(ss).m = RND + 1 * 6
  129.             ELSE
  130.                 snow(ss).s = RND + 1 * 6
  131.             END IF
  132.             _FREEIMAGE snow(ss).i
  133.             snow(ss).i = vlocka(snow(ss).m, snow(ss).s)
  134.         END IF
  135.  
  136.         _PUTIMAGE (snow(ss).x, snow(ss).y), snow(ss).i
  137.     NEXT
  138.     IF _KEYHIT = 27 THEN SYSTEM
  139.  
  140.     interier
  141.     _PUTIMAGE (400, 50), treeB
  142.     _PUTIMAGE (70, 512), steck&, 0
  143.     _PUTIMAGE (924, 512), steck&, 0
  144.  
  145.     PACK 600, 670, 50, 30, 40, kids&
  146.     PACK 660, 680, 90, 90, 5, srdce&
  147.     PACK 640, 665, 10, 10, 10, vlna&
  148.     PACK 750, 670, 75, 20, 16, kidsm&
  149.     PACK 770, 710, 50, 45, 2, kidsm2&
  150.     PACK 830, 660, 50, 10, 25, kids&
  151.     PACK 782, 655, 50, 40, 5, vlna&
  152.     PACK 850, 670, 15, 30, 15, kidsm&
  153.     PACK 525, 675, 35, 50, 15, kidsm&
  154.  
  155.  
  156.     _PUTIMAGE (0, 380), lampa&
  157.     _PUTIMAGE (240, 360), svicen, 0
  158.     _PUTIMAGE (260, 360), plamenek(plamenindex)
  159.     _PUTIMAGE (305, 360), plamenek(plamenindex2)
  160.     _PUTIMAGE (355, 360), plamenek(plamenindex)
  161.  
  162.     plamenindex2 = 10 - plamenindex
  163.     IF TIMER > plamentimer THEN
  164.         plamenindex = plamenindex + 1: IF plamenindex > 10 THEN plamenindex = 0
  165.         plamentimer = TIMER + .2
  166.     END IF
  167.     _PUTIMAGE (465, 300), calender&
  168.     view_theme
  169.     _DISPLAY
  170.     _LIMIT 30
  171.  
  172. SUB interier
  173.     '------------- upgrade fatal ------------------
  174.     LINE (0, 150)-(450, 468), _RGBA32(255, 255, 255, 10), BF
  175.     FOR s = 0 TO 10
  176.         LINE (0 + s, 150 + s)-(450 - s, 468 - s), _RGB32(255, 255, 255), B
  177.     NEXT
  178.  
  179.     LINE (574, 150)-(1023, 468), _RGBA32(255, 255, 255, 10), BF
  180.  
  181.     FOR s = 0 TO 10
  182.         LINE (574 + s, 150 + s)-(1023 - s, 468 - s), _RGB32(255, 255, 255), B
  183.     NEXT
  184.  
  185.     db = 50 / 149
  186.     dbc = 255
  187.     FOR strop = 1 TO 149
  188.         dbc = dbc - db
  189.         LINE (0, strop)-(1023, strop), _RGB32(dbc, dbc, dbc)
  190.     NEXT
  191.  
  192.     LINE (0, 100)-(1023, 100), _RGB32(200, 130, 120)
  193.  
  194.     LINE (451, 150)-(575, 468), _RGB32(dbc, dbc, dbc), BF
  195.     LINE (0, 469)-(1023, 569), _RGB32(dbc, dbc, dbc), BF
  196.  
  197.  
  198.     FOR licheradyY = 570 TO 768 STEP 60
  199.         FOR licheradyX = 0 TO 1023 STEP 100
  200.             _PUTIMAGE (licheradyX, licheradyY), lamela&, 0
  201.         NEXT
  202.     NEXT
  203.  
  204.     FOR SuderadyY = 600 TO 768 STEP 60
  205.         FOR SuderadyX = -50 TO 1023 STEP 100
  206.             _PUTIMAGE (SuderadyX, SuderadyY), lamela&, 0
  207.         NEXT
  208.     NEXT
  209.  
  210.     pd = _DEST
  211.     krb& = _NEWIMAGE(200, 200, 32)
  212.     _DEST krb&
  213.  
  214.  
  215.     FOR licheradyY = 0 TO 200 STEP 16
  216.         FOR licheradyX = 0 TO 200 STEP 30
  217.             _PUTIMAGE (licheradyX, licheradyY), cihl&, krb&
  218.         NEXT
  219.     NEXT
  220.  
  221.     FOR SuderadyY = 8 TO 206 STEP 16
  222.         FOR SuderadyX = -15 TO 200 STEP 30
  223.             _PUTIMAGE (SuderadyX, SuderadyY), cihl&, krb&
  224.         NEXT
  225.     NEXT
  226.  
  227.     mask = _NEWIMAGE(200, 200, 32)
  228.     _DEST mask
  229.     CLS , _RGB32(255, 255, 255)
  230.     CIRCLE (100, 100), 70, _RGB32(0, 0, 0)
  231.     PAINT (100, 100), _RGB32(0, 0, 0)
  232.     LINE (30, 100)-(170, 170), _RGB32(0, 0, 0), BF
  233.     LINE (110, 165)-(120, 169), _RGB32(127, 72, 17), BF 'polinko
  234.     LINE (40, 165)-(90, 169), _RGB32(127, 72, 17), BF 'polinko
  235.     LINE (159, 157)-(145, 169), _RGB32(117, 72, 17), BF 'polinko
  236.     poly = 40 / 129
  237.     polenoy = 160
  238.     FOR polenoX = 40 TO 159 STEP 4
  239.         polenoy = polenoy - poly
  240.         LINE (polenoX, polenoy)-(polenoX + 4, polenoy + 4), _RGB32(127, 72, 17), BF
  241.     NEXT
  242.  
  243.  
  244.     _CLEARCOLOR _RGB32(255, 255, 255), mask
  245.     _PUTIMAGE (0, 0), mask, krb&
  246.     _FREEIMAGE mask
  247.  
  248.  
  249.     SHARED fire_index, fire_timer
  250.     IF TIMER > fire_timer THEN fire_index = fire_index + 1: fire_timer = TIMER + .1: IF fire_index > 30 THEN fire_index = 0
  251.  
  252.     _PUTIMAGE (70, 120), Fire(fire_index), krb&
  253.     _PUTIMAGE (50, 110), Fire(fire_index), krb&
  254.     _PUTIMAGE (90, 110), Fire(fire_index), krb&
  255.  
  256.     LINE (0, 0)-(1023, 149), _RGB32(10, 10, 10), BF
  257.  
  258.  
  259.     _DEST pd
  260.     _PUTIMAGE (210, 490), krb&, 0
  261.     _FREEIMAGE krb&
  262.     '-------------
  263.     clock 464, 150
  264.  
  265.  
  266. SUB fireit
  267.     REDIM Fire(30) AS LONG
  268.     de = _DEST
  269.     FOR d = 0 TO 30
  270.         Fire(d) = _NEWIMAGE(50, 50, 32)
  271.         _DEST Fire(d)
  272.         FOR o = 4 TO 1 STEP -1
  273.             R = 255 - (RND * 30)
  274.             G = 83 * 1 + RND
  275.             B = 60 * 1 + RND
  276.             A = 60 * (20 + RND)
  277.  
  278.             Re = 255 - (1 + RND * 30)
  279.             Ge = 83 * 1 + RND
  280.             Be = 60 * 1 + RND
  281.             Ae = 127 * (20 + RND)
  282.  
  283.  
  284.  
  285.             IF R < Re THEN SWAP R, Re
  286.             IF G < Ge THEN SWAP G, Ge
  287.             IF B < Be THEN SWAP B, Be
  288.             IF A < Ae THEN SWAP A, Ae
  289.  
  290.             vo = 1: vyska = 0
  291.             FOR height = 0 TO 49
  292.                 vyska = vyska + vo: IF vyska = 25 THEN vo = -1
  293.                 h = ABS(vyska) * (RND + 1)
  294.  
  295.                 ro = (Re - R) / h
  296.                 go = (Ge - G) / h
  297.                 bo = (Be - B) / h
  298.                 ao = (A - Ae) / h
  299.  
  300.                 FOR drawline = 1 TO h
  301.                     R = R + ro: G = G + go: B = B + bo: A = A + ao
  302.                     klr~& = _RGBA32(R, G, B, A)
  303.                     PSET (height, 50 - drawline), klr~&
  304.                 NEXT
  305.             NEXT height
  306.         NEXT o
  307.         _CLEARCOLOR _RGB32(0, 0, 0), Fire(d)
  308.     NEXT d
  309.     _DEST de
  310.  
  311. FUNCTION parketa& 'generuje lamelu plovouci podlahy
  312.     pd = _DEST
  313.     parketa& = _NEWIMAGE(100, 30, 32)
  314.     startR = 127: startG = 39: startB = 17
  315.     sR = (200 - 127) / 30: sG = (200 - 39) / 30: sB = (155 - 17) / 30
  316.     _DEST parketa&
  317.     FOR dit = 1 TO 30
  318.         startR = startR + sR: startG = startG + sG: startB = startB + sB
  319.         LINE (0, dit)-(99, dit), _RGB32(startR, startG, startB)
  320.     NEXT
  321.     FOR r = 0 TO 1
  322.         LINE (r, r)-(99 - r, 30 - r / 2), _RGB32(0, 0, 0), B
  323.     NEXT
  324.     _DEST pd
  325.  
  326.  
  327. FUNCTION cihla&
  328.     pd = _DEST
  329.     cihla& = _NEWIMAGE(30, 8, 32)
  330.     startR = 255: startG = 39: startB = 17
  331.     sR = 5 / 8: sG = 39 / 8: sB = 17 / 8
  332.     _DEST cihla&
  333.     FOR dit = 1 TO 8
  334.         startR = startR - sR: startG = startG - sG: startB = startB - sB
  335.         LINE (0, dit)-(29, dit), _RGB32(startR, startG, startB)
  336.     NEXT
  337.     FOR r = 0 TO 1
  338.         LINE (r, r)-(30 - r, 8 - r / 2), _RGB32(255, 250, 245), B
  339.     NEXT
  340.     _DEST pd
  341.  
  342.  
  343.  
  344. FUNCTION vlocka& (v, rv) 'snow
  345.     '----------
  346.     '    v = 50
  347.     '    rv = 24
  348.     '----------
  349.     old = _DEST
  350.     vlocka& = _NEWIMAGE(100, 100, 32)
  351.     x = 50: y = 50
  352.     _DEST vlocka&
  353.     FOR radius = 0 TO v
  354.         FOR circuit = 0 TO 360 STEP 30
  355.             u = _D2R(circuit)
  356.             PSET (x + SIN(u) * radius, y + COS(u) * radius), _RGBA32(255, 255, 255, 255 - 2 * radius)
  357.             IF radius MOD 10 = 0 THEN
  358.                 rv = rv - .1
  359.                 FOR rad = 0 TO rv
  360.                     FOR circ = 0 TO 360 STEP 10
  361.                         u2 = _D2R(circ)
  362.                         PSET (x + SIN(u) * radius + SIN(u2) * rad, y + COS(u) * radius + COS(u2) * rad), _RGBA32(255, 255, 255, 255 - 2 * radius)
  363.                     NEXT
  364.                 NEXT
  365.             END IF
  366.         NEXT
  367.     NEXT
  368.     rv = 0
  369.     _DEST old
  370.     _SETALPHA 0, _RGB32(0, 0, 0), vlocka&
  371.  
  372.  
  373.  
  374.  
  375.  
  376.  
  377. FUNCTION SnowMan&
  378.     SnowMan& = _NEWIMAGE(320, 380, 32)
  379.     sou = _DEST
  380.     des = _SOURCE
  381.     _DEST SnowMan&
  382.     _SOURCE SnowMan&
  383.     CLS , _RGB32(255, 0, 0)
  384.  
  385.     sx = 160
  386.     sy = 50
  387.     colorbord = 2048 / 50
  388.  
  389.  
  390.     LINE (sx - 40, sy - 30)-(sx + 44, sy - 32), _RGB32(116, 11, 50)
  391.     LINE (sx - 40, sy + 30)-(sx + 44, sy + 35), _RGB32(116, 11, 50)
  392.     LINE (sx - 40, sy - 30)-(sx - 40, sy + 30), _RGB32(116, 11, 50)
  393.     LINE (sx + 44, sy - 32)-(sx + 44, sy + 35), _RGB32(116, 11, 50)
  394.     PAINT (sx - 30, sy - 25), _RGB32(116, 11, 50) ', _RGB32(116, 11, 50)
  395.  
  396.  
  397.     FOR koule = 1 TO 4 STEP 1
  398.         corr = 255
  399.         FOR radius = 50 + 6 * koule TO 0 STEP -1
  400.             corr = corr - colorbord
  401.             FOR obvod = 0 TO _PI(2) STEP .001
  402.                 IF koule <= 3 THEN
  403.                     IF POINT(sx + SIN(obvod) * radius + 3 * koule, 75 * koule + sy + COS(obvod) * radius + 3 * koule) = _RGB32(255, 0, 0) THEN PSET (sx + SIN(obvod) * radius + 3 * koule, 75 * koule + sy + COS(obvod) * radius + 3 * koule), _RGB32(255 - corr, 255 - corr, 255 - corr)
  404.                 END IF
  405.                 SELECT CASE koule
  406.                     CASE 2
  407.                         cr2 = cr2 + (255 / 319608)
  408.                         PSET (sx - 25 + SIN(obvod) * cr2 / 35, sy + 65 + COS(obvod) * cr2 / 35), _RGB32(255 - cr2, 255 - cr2, 255 - cr2)
  409.                         PSET (sx + 25 + SIN(obvod) * cr2 / 35, sy + 65 + COS(obvod) * cr2 / 35), _RGB32(255 - cr2, 255 - cr2, 255 - cr2)
  410.                         FOR pusa = 320 TO 400 STEP 20
  411.                             ssx = 4 + SIN(_D2R(pusa)) * 55
  412.                             ssy = 50 + COS(_D2R(pusa)) * 65
  413.                             PSET (sx + ssx + SIN(obvod) * cr2 / 45, sy + ssy + COS(obvod) * cr2 / 45), _RGB32(255 - cr2, 255 - cr2, 255 - cr2)
  414.                         NEXT
  415.  
  416.                         PSET (sx + SIN(obvod) * cr2 / 55, sy + 85 + COS(obvod) * cr2 / 35), _RGB32(cr2, 0, 0)
  417.                     CASE 3
  418.  
  419.                         PSET (sx - 70 + SIN(obvod) * radius / 2, 75 * koule + sy - 70 + COS(obvod) * radius / 2.2), _RGB32(255 - corr, 255 - corr, 255 - corr)
  420.                         PSET (sx + 70 + SIN(obvod) * radius / 2, 75 * koule + sy - 70 + COS(obvod) * radius / 2.2), _RGB32(255 - corr, 255 - corr, 255 - corr)
  421.  
  422.  
  423.                         IF obvod <= _PI AND radius > 40 THEN
  424.                             PSET (sx + 40 + SIN(obvod) * radius / 4, sy + COS(obvod) * radius / 4.2), _RGB32(127 - corr, 255 - corr, 5 - corr)
  425.                         END IF
  426.  
  427.                     CASE 4
  428.                         cr3 = cr3 + 255 / 471300
  429.                         FOR knoflik = sy + 160 TO sy + 300 STEP 25
  430.                             IF knoflik = sy + 210 THEN _CONTINUE
  431.                             PSET (sx + SIN(obvod) * cr3 / 45, knoflik + COS(obvod) * cr3 / 45), _RGB32(cr3 / 2, 0, 100 - cr3 / 2)
  432.                         NEXT
  433.  
  434.                         FOR tecY = sy - 15 TO sy + 35 STEP 30
  435.                             FOR tecX = sx - 30 TO sx + 44 STEP 30
  436.                                 b = b + .0001
  437.                                 PSET (tecX + SIN(obvod) * cr3 / 65, tecY + COS(obvod) * cr3 / 65), _RGB32(b, 122 - b / 3, 100 - b / 4)
  438.  
  439.                             NEXT
  440.                         NEXT
  441.                 END SELECT
  442.             NEXT
  443.         NEXT
  444.     NEXT
  445.  
  446.     FOR sila = 1 TO 6
  447.         ko = ko + 255 / 6
  448.         kr = 255 - ko
  449.         LINE (sx - 70 + sila, sy + 180)-(sx - 60 + sila, sy + 225), _RGB32(kr, kr, kr) 'spodni cast nasady kostete
  450.         LINE (sx - 80 + sila, sy + 130)-(sx - 100 + sila, sy + 50), _RGB32(kr, kr, kr) 'horni cast nasady kostete
  451.  
  452.         LINE (sx - 100 + sila, sy + 50)-(sx - 80 + sila, sy + 40), _RGB32(kr, kr, kr)
  453.         LINE (sx - 80 + sila, sy + 40)-(sx - 75 + sila, sy + 30), _RGB32(kr, kr, kr)
  454.         LINE (sx - 75 + sila, sy + 30)-(sx - 78 + sila, sy - 10), _RGB32(kr, kr, kr)
  455.         LINE (sx - 75 + sila, sy + 20)-(sx - 65 + sila, sy - 7), _RGB32(kr, kr, kr)
  456.  
  457.         LINE (sx - 75 + sila, sy + 30)-(sx - 98 + sila, sy - 20), _RGB32(kr, kr, kr)
  458.         LINE (sx - 100 + sila, sy + 50)-(sx - 135 + sila, sy - 17), _RGB32(kr, kr, kr)
  459.         LINE (sx - 100 + sila, sy + 50)-(sx - 115 + sila, sy - 22), _RGB32(kr, kr, kr)
  460.         LINE (sx - 100 + sila, sy + 50)-(sx - 155 + sila, sy - 22), _RGB32(kr, kr, kr)
  461.  
  462.     NEXT
  463.     _CLEARCOLOR _RGB32(255, 0, 0), SnowMan&
  464.     _DEST sou
  465.     _SOURCE des
  466.  
  467. FUNCTION Tree&
  468.     Tree& = _NEWIMAGE(320, 380, 32)
  469.     des = _DEST
  470.     _DEST Tree&
  471.     sx = 160
  472.     sy = 50
  473.     LINE (sx - 10, 270)-(sx + 10, 200), _RGB32(111, 55, 22), BF
  474.     posun_barvy = 255 / (15708 / 2)
  475.     FOR prumer = 100 TO 50 STEP -25
  476.         b = 0
  477.         FOR oblouk = -1 / 4 * _PI TO 1 / 4 * _PI STEP .0001
  478.             b = b + posun_barvy
  479.             IF b >= 255 OR b < 0 THEN posun_barvy = posun_barvy * -1
  480.             kolor& = _RGB32(255 - b, 512 - b, 255 - b)
  481.             LINE (sx, sy + prumer)-(sx + SIN(oblouk) * prumer, sy + prumer + COS(oblouk) * prumer), kolor& 'try add ,B for Minecraft mode :-D
  482.         NEXT
  483.     NEXT prumer
  484.     _CLEARCOLOR _RGB32(0, 0, 0), Tree&
  485.     _DEST des
  486.  
  487. SUB clock (x, y)
  488.     de = _DEST
  489.     clocka& = _NEWIMAGE(100, 100, 32)
  490.     _DEST clocka&
  491.     vterina = VAL(RIGHT$(TIME$, 2))
  492.     hodina = VAL(LEFT$(TIME$, 2))
  493.     minuta = VAL(MID$(TIME$, 4, 2))
  494.  
  495.     IF hodina > 12 THEN hodina = hodina - 12
  496.     hodina = hodina + (1 / 59) * minuta
  497.  
  498.  
  499.     vt = vterina + 45
  500.     ho = hodina + 45
  501.     mi = minuta + 45
  502.  
  503.     pozicevterina = _PI(2) / 60 * vt
  504.     poziceminuta = _PI(2) / 60 * ho * 5
  505.     pozicehodina = _PI(2) / 60 * mi
  506.  
  507.     xs = 50 + COS(pozicevterina) * 30
  508.     ys = 50 + SIN(pozicevterina) * 30
  509.  
  510.     xm = 50 + COS(poziceminuta) * 35
  511.     ym = 50 + SIN(poziceminuta) * 35
  512.  
  513.     xh = 50 + COS(pozicehodina) * 40
  514.     yh = 50 + SIN(pozicehodina) * 40
  515.  
  516.     FOR n = 1 TO 100
  517.         LINE (n, 0)-(n, 99), _RGB32(127 - n, n, 27 + n), BF
  518.     NEXT n
  519.     LINE (0, 0)-(99, 99), _RGB32(255, 255, 255), B
  520.  
  521.     COLOR _RGBA32(127, 127, 127, 150)
  522.     _PRINTSTRING (35, 45), "QB64"
  523.     COLOR _RGB32(255, 255, 255)
  524.  
  525.  
  526.     LINE (50, 50)-(xh, yh), _RGB32(255, 255, 0)
  527.     LINE (50, 50)-(xm, ym), _RGB32(255, 255, 0)
  528.     LINE (50, 50)-(xs, ys), _RGB32(0, 255, 255)
  529.     m = 0
  530.     FOR kruh = 0 TO _PI(2) STEP _PI(2) / 60
  531.         PSET (50 + COS(kruh) * 47, 50 + SIN(kruh) * 47)
  532.         IF m MOD 5 = 0 THEN LINE (50 + COS(kruh) * 47, 50 + SIN(kruh) * 47)-(50 + COS(kruh) * 44, 50 + SIN(kruh) * 44), , BF
  533.         m = m + 1
  534.     NEXT kruh
  535.     _DEST de
  536.     _PUTIMAGE (x, y), clocka&, de
  537.     _FREEIMAGE clocka&
  538.  
  539.  
  540.  
  541.  
  542. FUNCTION mytree&
  543.     x = 320: y = 384
  544.     mytree& = _NEWIMAGE(640, 768, 32)
  545.  
  546.     de = _DEST
  547.     _DEST mytree&
  548.     CLS , _RGB32(1, 1, 1)
  549.     radius = -1
  550.     FOR k = 150 TO 568
  551.         IF k > 460 THEN
  552.             LINE (310, k)-(330, k + 20), _RGB32(122, 22, 17), BF
  553.         END IF
  554.         IF k MOD 6 = 0 THEN
  555.             radius = radius - 1
  556.             FOR r = -_PI / 2 TO _PI / 2 STEP .01
  557.                 x = 320 + SIN(r) * r ^ 2 * radius
  558.                 y = k + COS(r) * radius
  559.                 red = 55 * RND
  560.                 green = 255 * RND
  561.                 blue = 60 * RND
  562.                 FOR vetvicka = 0 TO _PI
  563.                     FOR s = 1 TO 5
  564.                         PSET (x + SIN(vetvicka) * s, y + COS(vetvicka) * s), _RGB32(red, green, blue)
  565.                     NEXT s
  566.                 NEXT
  567.             NEXT
  568.  
  569.         END IF
  570.     NEXT
  571.  
  572.     FOR y = 0 TO 768 STEP 10
  573.         FOR x = 0 TO 640 STEP 15
  574.             _SOURCE mytree&
  575.             IF POINT(x, y) <> _RGB32(1, 1, 1) AND POINT(x, y) <> _RGB32(122, 22, 17) THEN
  576.                 IF RND * 10 > 5 THEN ozdoba x, y
  577.             END IF
  578.     NEXT x, y
  579.  
  580.     Star 10, 45, 320, 138, 6
  581.     _CLEARCOLOR _RGB32(1, 1, 1), mytree&
  582.     _DEST de
  583.  
  584.  
  585. SUB ozdoba (x, y)
  586.     radius = 1 + RND * 12
  587.     startR = 255 * 1 + RND
  588.     startG = 255 * 1 + RND
  589.     startB = 255 * 1 + RND
  590.     startA = 150 * (1 + RND)
  591.  
  592.     mr = (255 - startR) / radius
  593.     mg = (255 - startG) / radius
  594.     mb = (255 - startB) / radius
  595.     ma = (255 - startA) / radius
  596.  
  597.     FOR dr = 0 TO radius
  598.         FOR obvod = 0 TO _PI(2) STEP .01
  599.             startR = startR + mr
  600.             startG = startG + mg
  601.             startB = startB + mb
  602.             PSET (x + SIN(obvod) * dr, y + COS(obvod) * dr), _RGB32(startR, startG, startB)
  603.         NEXT
  604.     NEXT dr
  605.  
  606.  
  607. SUB Star (r1, r2, x, y, n) 'radius 1, radius 2, position x,y and n = number of vertexes
  608.     FOR h = _PI TO _PI(3) STEP _PI(2) / n
  609.         x1 = x + COS(h) * r2
  610.         y1 = y + SIN(h) * r2
  611.  
  612.         x2 = x + COS(h + _D2R(-36)) * r1
  613.         y2 = y + SIN(h + _D2R(-36)) * r1
  614.  
  615.         IF ox1 THEN
  616.             LINE (x2, y2)-(ox1, oy1)
  617.         END IF
  618.         ox1 = x1
  619.         oy1 = y1
  620.         ox2 = x2
  621.         oy2 = y2
  622.  
  623.         LINE (x1, y1)-(x2, y2)
  624.     NEXT
  625.     PAINT (x, y)
  626.  
  627.     IF r1 > r2 THEN L = r1 ELSE L = r2
  628.  
  629.     FOR sx = x - L TO x + L
  630.         FOR sy = y - L TO y + L
  631.             IF POINT(sx, sy) = _RGB32(255, 255, 255) THEN M = M + 1
  632.     NEXT: NEXT
  633.  
  634.     prechod = 255 / M
  635.  
  636.     FOR sx = x - L TO x + L
  637.         FOR sy = y - L TO y + L
  638.  
  639.             IF POINT(sx, sy) = _RGB32(255, 255, 255) THEN
  640.                 PSET (sx, sy), _RGB32(255 - nc, 255 - nc, -512 + nc)
  641.                 nc = nc + prechod
  642.             END IF
  643.     NEXT: NEXT
  644.  
  645.  
  646.  
  647. FUNCTION steckdose&
  648.     steckdose& = _NEWIMAGE(30, 50, 32)
  649.     de = _DEST
  650.     _DEST steckdose&
  651.     CLS , _RGB32(200, 200, 255)
  652.     LINE (4, 4)-(26, 46), _RGB32(255, 200, 255), BF
  653.  
  654.     dy = -2
  655.  
  656.     CIRCLE (15, dy + 16), 9, _RGB32(55, 255, 255)
  657.     PAINT (15, dy + 16), _RGB32(227, 227, 227), _RGB32(55, 255, 255)
  658.     LINE (10, dy + 17)-(12, dy + 19), _RGB32(0, 0, 20), BF
  659.     LINE (19, dy + 17)-(21, dy + 19), _RGB32(0, 0, 20), BF
  660.     LINE (14, dy + 10)-(16, dy + 12), _RGB32(127, 127, 127), BF
  661.  
  662.     dy = 21
  663.  
  664.     CIRCLE (15, dy + 16), 9, _RGB32(55, 255, 255)
  665.     PAINT (15, dy + 16), _RGB32(227, 227, 227), _RGB32(55, 255, 255)
  666.     LINE (10, dy + 17)-(12, dy + 19), _RGB32(0, 0, 20), BF
  667.     LINE (19, dy + 17)-(21, dy + 19), _RGB32(0, 0, 20), BF
  668.     LINE (14, dy + 10)-(16, dy + 12), _RGB32(127, 127, 127), BF
  669.  
  670.     _DEST de
  671.  
  672.  
  673. FUNCTION textura_srdce&
  674.  
  675.     textura_srdce = _NEWIMAGE(320, 260, 32)
  676.     so = _SOURCE
  677.     de = _DEST
  678.     _DEST textura_srdce&
  679.     _SOURCE textura_srdce&
  680.     CLS , _RGB32(255, 255, 255)
  681.  
  682.     CIRCLE (116, 100), 40, _RGB32(255, 0, 0)
  683.     PAINT (116, 100), _RGB32(255, 0, 0)
  684.     CIRCLE (196, 100), 40, _RGB32(255, 0, 0)
  685.     PAINT (196, 100), _RGB32(255, 0, 0)
  686.     LINE (86, 127)-(160, 220), _RGB32(255, 0, 0)
  687.     LINE (226, 127)-(160, 220), _RGB32(255, 0, 0)
  688.     PAINT (160, 200), _RGB32(255, 0, 0)
  689.  
  690.     FOR y = 0 TO 260 STEP 26
  691.         FOR x = 0 TO 320 STEP 32
  692.             IF POINT(x, y) <> _RGB32(255, 0, 0) THEN
  693.                 CIRCLE (x, y), 5, _RGB32(200, 200, 200)
  694.                 PAINT (x, y), _RGB32(200, 200, 200), _RGB32(200, 200, 200)
  695.             END IF
  696.     NEXT: NEXT
  697.  
  698.     _DEST de
  699.     _SOURCE so
  700.  
  701.  
  702. FUNCTION textura_kids_more&
  703.     de = _DEST
  704.     textura_kids_more& = _NEWIMAGE(640, 480, 32)
  705.     _DEST textura_kids_more&
  706.     CLS , _RGB32(0, 255, 0)
  707.     g& = textura_detska&
  708.     _CLEARCOLOR _RGB32(0, 5, 255), g&
  709.  
  710.     FOR y = 0 TO 479 STEP 150
  711.         FOR x = 0 TO 639 STEP 150
  712.             _PUTIMAGE (x, y)-(x + 140, y + 140), g&, textura_kids_more&
  713.     NEXT: NEXT
  714.     _FREEIMAGE g&
  715.     _DEST de
  716.  
  717.  
  718. FUNCTION textura_kids_more2&
  719.     de = _DEST
  720.     textura_kids_more2& = _NEWIMAGE(640, 480, 32)
  721.     _DEST textura_kids_more2&
  722.     CLS , _RGB32(255, 255, 255)
  723.     g& = textura_srdce&
  724.  
  725.     FOR y = 0 TO 479 STEP 200
  726.         FOR x = 0 TO 639 STEP 200
  727.             _PUTIMAGE (x, y)-(x + 200, y + 200), g&, textura_kids_more2&
  728.     NEXT: NEXT
  729.     _FREEIMAGE g&
  730.     _DEST de
  731.  
  732.  
  733.  
  734.  
  735. FUNCTION textura_detska&
  736.     textura_detska& = _NEWIMAGE(512, 653, 32)
  737.     de = _DEST
  738.     _DEST textura_detska&
  739.     CLS , _RGB32(0, 5, 255)
  740.     CIRCLE (256, 400), 20: CIRCLE (256, 400), 120: CIRCLE (256, 480), 20: CIRCLE (256, 320), 20: CIRCLE (256, 200), 90: CIRCLE (216, 200), 20: CIRCLE (296, 200), 20
  741.     LINE (256, 230)-(220, 236): LINE (220, 236)-(256, 242): LINE (256, 242)-(256, 230)
  742.     LINE (203, 101)-(355, 175)
  743.     LINE (208, 90)-(203, 101)
  744.     LINE (360, 163)-(355, 175)
  745.  
  746.     LINE (217, 95)-(208, 90)
  747.     LINE (348, 156)-(360, 163)
  748.     LINE (379, 96)-(348, 156)
  749.     LINE (247, 42)-(217, 95)
  750.     LINE (247, 42)-(379, 96)
  751.  
  752.     PAINT (300, 90), _RGB32(0, 255, 0), _RGB32(255, 255, 255)
  753.     PAINT (287, 127), _RGB32(0, 255, 0), _RGB32(255, 255, 255)
  754.     PAINT (255, 110), _RGB32(0, 255, 0), ' _RGB32(255, 255, 255)
  755.     PAINT (255, 189), _RGB32(255, 255, 255), ' _RGB32(255, 255, 255)
  756.     PAINT (255, 284), _RGB32(255, 255, 255), ' _RGB32(255, 255, 255)
  757.     PAINT (322, 402), _RGB32(255, 255, 255), ' _RGB32(255, 255, 255)
  758.     PAINT (249, 234), _RGB32(255, 0, 0), _RGB32(255, 255, 255)
  759.     PAINT (213, 200), _RGB32(0, 0, 0), _RGB32(255, 255, 255)
  760.     PAINT (300, 200), _RGB32(0, 0, 0), _RGB32(255, 255, 255)
  761.     PAINT (250, 320), _RGB32(0, 0, 0), _RGB32(255, 255, 255)
  762.     PAINT (250, 390), _RGB32(0, 0, 0), _RGB32(255, 255, 255)
  763.     PAINT (250, 490), _RGB32(0, 0, 0), _RGB32(255, 255, 255)
  764.     CIRCLE (256, 200), 90, _RGB32(0, 255, 0), .1, 1.9
  765.     _DEST de
  766.  
  767. FUNCTION textura_vlna&
  768.     textura_vlna& = _NEWIMAGE(512, 453, 32)
  769.     de = _DEST
  770.     _DEST textura_vlna&
  771.  
  772.     LINE (0, 0)-(512, 453), , B
  773.     FOR x = 0 TO 512
  774.         FOR y = 50 TO 384 STEP 50
  775.             p = p + .01
  776.             PSET (x, y + SIN(p) * 3)
  777.             PSET (x, 50 + y + SIN(p) * 3)
  778.         NEXT
  779.  
  780.     NEXT
  781.  
  782.     FOR clrit = 50 TO 450 STEP 50
  783.         IF clrit MOD 100 = 0 THEN PAINT (30, clrit), _RGB32(255, 0, 0), _RGB32(255, 255, 255): _CONTINUE
  784.         IF clrit MOD 50 = 0 THEN PAINT (30, clrit), _RGB32(255, 255, 255), _RGB32(255, 255, 255)
  785.     NEXT
  786.     _DEST de
  787.  
  788.  
  789.  
  790. SUB PACK (X1, Y1, vyska, sirka, hloubka, TEXTURE AS LONG)
  791.     W = _WIDTH(TEXTURE&)
  792.     H = _HEIGHT(teture&)
  793.  
  794.     TYPE kvadr
  795.         x AS INTEGER
  796.         y AS INTEGER
  797.     END TYPE
  798.     'PSEUDO 3D!
  799.     DIM k(6) AS kvadr
  800.  
  801.     k(0).x = X1: k(0).y = Y1 'a
  802.     k(1).x = X1 + sirka: k(1).y = Y1 'b                                                  F////////////E
  803.     k(2).x = X1: k(2).y = Y1 - vyska 'c                                                 /          /  I
  804.     k(3).x = X1 + sirka: k(3).y = Y1 - vyska 'd                                       C///////////D   I
  805.     k(4).x = X1 + sirka + hloubka: k(4).y = Y1 - vyska - hloubka 'e                   I           I   G
  806.     k(5).x = X1 + hloubka: k(5).y = Y1 - vyska - hloubka 'f                           I           I  /
  807.     k(6).x = X1 + sirka + hloubka: k(6).y = Y1 - hloubka 'g                           A///////////B/
  808.  
  809.     _MAPTRIANGLE (0, H)-(W, H)-(0, 0), TEXTURE& TO(k(0).x, k(0).y)-(k(1).x, k(1).y)-(k(2).x, k(2).y), 0
  810.     _MAPTRIANGLE (W, H)-(0, 0)-(W, 0), TEXTURE& TO(k(1).x, k(1).y)-(k(2).x, k(2).y)-(k(3).x, k(3).y), 0
  811.     _MAPTRIANGLE (0, H)-(W, H)-(0, 0), TEXTURE& TO(k(1).x, k(1).y)-(k(3).x, k(3).y)-(k(6).x, k(6).y), 0
  812.     _MAPTRIANGLE (W, H)-(0, 0)-(W, 0), TEXTURE& TO(k(3).x, k(3).y)-(k(6).x, k(6).y)-(k(4).x, k(4).y), 0
  813.     _MAPTRIANGLE (0, H)-(W, H)-(0, 0), TEXTURE& TO(k(2).x, k(2).y)-(k(3).x, k(3).y)-(k(5).x, k(5).y), 0
  814.     _MAPTRIANGLE (W, H)-(0, 0)-(W, 0), TEXTURE& TO(k(3).x, k(3).y)-(k(5).x, k(5).y)-(k(4).x, k(4).y), 0
  815.  
  816.  
  817.  
  818.  
  819.  
  820.  
  821. FUNCTION lamp&
  822.     de = _DEST
  823.  
  824.     lamp& = _NEWIMAGE(450, 400, 32)
  825.     _DEST lamp&
  826.     CLS , _RGB32(225, 255, 255)
  827.     x = 105
  828.     y = 100
  829.  
  830.  
  831.     FOR xj = 1 TO 15
  832.         FOR n = 200 TO 350 STEP .01
  833.             s = s + .0005
  834.             o = o + .01
  835.             PSET (100 + xj + SIN(o) * 3, n), _RGB32(155 - s, 11, 20)
  836.             PSET (100 + xj + COS(o) * 1, n), _RGB32(155 + s, 20, 11)
  837.         NEXT
  838.     NEXT
  839.  
  840.     prechod = 1
  841.  
  842.  
  843.  
  844.     stred = 30
  845.     FOR yy = 0 TO 100
  846.         r = 0
  847.         stred = stred + .2
  848.         FOR xx = -stred TO stred
  849.             r = r + 1
  850.             PSET (x + xx, y + yy), _RGBA32(190 + r, r, r / 2, 127 + r)
  851.  
  852.         NEXT
  853.     NEXT
  854.  
  855.     LINE (65, 350)-(150, 355), _RGB32(190, 0, 0), BF
  856.     _CLEARCOLOR _RGB32(225, 255, 255), lamp&
  857.     _DEST de
  858.  
  859.  
  860. SUB svice_plamen
  861.     R = 127 + (120 * 1 + RND)
  862.     de = _DEST
  863.     FOR v = 0 TO 10
  864.         rozptyl = R / (_PI(2) * 100 * 20)
  865.         plamenek(v) = _NEWIMAGE(20, 50, 32)
  866.         _DEST plamenek(v)
  867.         R = 127 + (120 * 1 + RND)
  868.         FOR prumer = 0 TO 20
  869.  
  870.             px = (1 + RND * 2)
  871.             py = (1 + RND * 10)
  872.             FOR pl = 0 TO _PI(2) STEP .01
  873.                 PSET (10 + SIN(pl) * px, 25 + COS(pl) * py), _RGB32(255 - (RND * 12), 255 - (250 * RND), 15 * RND)
  874.                 R = R + rozptyl
  875.             NEXT pl
  876.         NEXT prumer
  877.         _CLEARCOLOR _RGB32(0, 0, 0), plamenek(v)
  878.     NEXT v
  879.     _DEST de
  880.  
  881. FUNCTION svice&
  882.     de = _DEST
  883.     svice& = _NEWIMAGE(180, 140, 32)
  884.     _DEST svice&
  885.  
  886.     sx = 70
  887.     sy = 70
  888.  
  889.     CLS , _RGB32(255, 0, 0)
  890.     FOR p = -_PI / 2 TO _PI / 2 STEP .001
  891.         FOR sila = 1 TO 16
  892.             PSET (sila + sx + SIN(p) * 50, sy + COS(p) * 10), _RGB32(255, 235, 0)
  893.         NEXT
  894.     NEXT
  895.  
  896.     LINE (sx, sy)-(sx + 8, sy + 45), _RGB32(255, 235, 0), BF
  897.  
  898.     FOR p = _D2R(180) TO _D2R(360) STEP .001
  899.         FOR sila = 1 TO 16
  900.             PSET (sila + (sx - 5) + COS(p) * 8, (sy + 60) + SIN(p) * 30), _RGB32(255, 235, 0)
  901.         NEXT
  902.     NEXT
  903.  
  904.     FOR p = -_PI / 2 TO _PI / 2 STEP .001
  905.         FOR sila = 1 TO 16
  906.             PSET (sila + (sx - 50) + SIN(p) * 8, (sy - 5) + COS(p) * 6), _RGB32(255, 255, 0)
  907.             PSET (sila + (sx - 4) + SIN(p) * 8, (sy - 5) + COS(p) * 6), _RGB32(255, 255, 0)
  908.             PSET (sila + (sx + 47) + SIN(p) * 8, (sy - 5) + COS(p) * 6), _RGB32(255, 255, 0)
  909.         NEXT
  910.     NEXT
  911.     LINE (sx - 45, sy - 5)-(sx - 35, sy - 30), , BF
  912.     LINE (sx, sy - 5)-(sx + 10, sy - 30), , BF
  913.     LINE (sx + 50, sy - 5)-(sx + 60, sy - 30), , BF
  914.  
  915.     LINE (sx - 40, sy - 30)-(sx - 40, sy - 35), _RGB32(0, 0, 0)
  916.     LINE (sx + 5, sy - 30)-(sx + 5, sy - 35), _RGB32(0, 0, 0)
  917.     LINE (sx + 55, sy - 30)-(sx + 55, sy - 35), _RGB32(0, 0, 0)
  918.     _CLEARCOLOR _RGB32(255, 0, 0), svice&
  919.     _DEST de
  920.  
  921. FUNCTION calend4& 'original was not /4, but then is
  922.     de = _DEST
  923.     calend4& = _NEWIMAGE(400 / 4, 600 / 4, 32)
  924.     _DEST calend4&
  925.     b = 255 / (300 / 4 * 200 / 4)
  926.     FOR stY = 0 TO 300 / 4
  927.         FOR stX = 0 TO 200 / 4
  928.             bi = bi + b
  929.             LINE (stX, stY)-(400 / 4 - stX, 600 / 4 - stY), _RGB32(bi, bi, bi)
  930.             LINE (stX, stY)-(200 / 4 - stX, 300 / 4 - stY), _RGB32(bi, bi, bi)
  931.             LINE (200 / 4 + stX, 300 / 4 + stY)-(0, 600 / 4), _RGB32(bi, bi, bi)
  932.             LINE (200 / 4 + stX, 300 / 4 + stY)-(400 / 4, 0), _RGB32(bi, bi, bi)
  933.         NEXT
  934.     NEXT
  935.  
  936.     LINE (0, 0)-(400 / 4, 600 / 4), _RGBA32(0, 0, 0, 200), BF
  937.     a$ = ENVIRON$("SYSTEMROOT") + "\fonts\calibri.ttf"
  938.     f = _LOADFONT(a$, 6, "MONOSPACE")
  939.     IF f THEN _FONT f ELSE _PRINTSTRING (50 / 4, 220 / 4), "i need font!": EXIT FUNCTION
  940.     COLOR _RGB32(238, 200, 194)
  941.     _PRINTSTRING (140 / 4, 70 / 4), "December"
  942.     x = 255 / 4: y = 170 / 4
  943.     COLOR _RGB32(255, 255, 0)
  944.  
  945.     day = VAL(MID$(DATE$, 4, 2))
  946.  
  947.     FOR n = 1 TO 31
  948.         IF n = day THEN LINE (x + 10 / 4, y - 10 / 4)-(x + 60 / 4, y + 25 / 4), _RGB32(255, 0, 0), B
  949.         _PRINTSTRING (x, y), STR$(n)
  950.         x = x + 50 / 4: IF x > 350 / 4 THEN x = 5 / 4: y = y + 75 / 4
  951.     NEXT
  952.  
  953.     FOR s = 0 TO 6
  954.         LINE (0 + s, 0 + s)-(399 / 4 - s, 599 / 4 - s), _RGB32(255 - s, 230 - s, 127 - s), B
  955.     NEXT s
  956.     _DEST de
  957.  
  958. FUNCTION loading&
  959.  
  960.     de = _DEST
  961.     loading& = _NEWIMAGE(1600, 768, 32)
  962.     _DEST loading&
  963.     CLS , _RGB32(255, 255, 255)
  964.     FOR r = 200 TO 568 STEP 40
  965.         _PUTIMAGE (10, r), ice& '               L
  966.         _FREEIMAGE ice&
  967.     NEXT
  968.  
  969.     FOR r = 1 TO 160 STEP 20
  970.         _PUTIMAGE (r, 558), ice& '
  971.         _FREEIMAGE ice&
  972.     NEXT
  973.     '----------------------------
  974.     FOR r = 0 TO _PI(2.5) STEP .1
  975.         x = 220 + SIN(r) * 70 '                    O
  976.         y = 380 + COS(r) * 175
  977.         _PUTIMAGE (x, y), ice&
  978.         _FREEIMAGE ice&
  979.     NEXT
  980.     '------------------------------
  981.  
  982.  
  983.  
  984.     FOR r = 1.5 * _PI TO _PI / 2 STEP -.1
  985.         x = 440 + SIN(r) * 90
  986.         y = 380 + COS(r) * 175
  987.         _PUTIMAGE (x, y), ice&
  988.         _FREEIMAGE ice&
  989.     NEXT
  990.     FOR r = 400 TO 568 STEP 10
  991.         _PUTIMAGE (350, r), ice& '             A
  992.         _FREEIMAGE ice&
  993.         _PUTIMAGE (540, r), ice&
  994.         _FREEIMAGE ice&
  995.     NEXT
  996.     FOR r = 350 TO 540 STEP 30
  997.         _PUTIMAGE (r, 384), ice&
  998.         _FREEIMAGE ice&
  999.     NEXT r
  1000.     '-----------------------------------
  1001.     FOR r = 0 TO _PI STEP .1
  1002.         x = 610 + SIN(r) * 175
  1003.         y = 380 + COS(r) * 175 '                 D
  1004.         _PUTIMAGE (x, y), ice&
  1005.         _FREEIMAGE ice&
  1006.     NEXT
  1007.     FOR r = 200 TO 568 STEP 20
  1008.         _PUTIMAGE (610, r), ice& '
  1009.         _FREEIMAGE ice&
  1010.     NEXT
  1011.     '--------------------------------------
  1012.  
  1013.     FOR r = 200 TO 568 STEP 5
  1014.         _PUTIMAGE (850, r), ice& '           I
  1015.         _FREEIMAGE ice&
  1016.     NEXT
  1017.     '-----------------------------------
  1018.  
  1019.     p = 200
  1020.     FOR r = 200 TO 568 STEP 5
  1021.         _PUTIMAGE (940, r), ice& '           N
  1022.         _PUTIMAGE (1100, r), ice&
  1023.         p = p + 10
  1024.         IF p < 568 THEN
  1025.             _PUTIMAGE (740 + r, p), ice&
  1026.             _FREEIMAGE ice&
  1027.         END IF
  1028.     NEXT
  1029.     '----------------------------------------
  1030.     FOR r = _PI - .3 TO _PI(2) + .7 STEP .1
  1031.         x = 1280 + SIN(r) * 105 '                G
  1032.         y = 380 + COS(r) * 175
  1033.         _PUTIMAGE (x, y), ice&
  1034.         _FREEIMAGE ice&
  1035.     NEXT
  1036.  
  1037.     FOR r = 568 TO 400 STEP -30
  1038.         _PUTIMAGE (1350, r), ice&
  1039.         _FREEIMAGE ice&
  1040.     NEXT r
  1041.  
  1042.     FOR r = 1300 TO 1350 STEP 10
  1043.         _PUTIMAGE (r, 400), ice&
  1044.         _FREEIMAGE ice&
  1045.     NEXT r
  1046.     _CLEARCOLOR _RGB32(255, 255, 255), loading&
  1047.     _DEST de
  1048.  
  1049.  
  1050.  
  1051.     de = _DEST
  1052.     ice& = _NEWIMAGE(50, 90, 32)
  1053.     _DEST ice&
  1054.     width = 1 + RND * 50
  1055.     c = 255 / width
  1056.     FOR x = 1 TO width
  1057.         lenght = 1 + RND * 89
  1058.         b = 255 / x
  1059.         FOR y = 1 TO lenght
  1060.             DO UNTIL R < 116
  1061.                 R = RND + 1 * 100
  1062.             LOOP
  1063.             DO UNTIL G > 160
  1064.                 G = RND + 1 * 200
  1065.             LOOP
  1066.             a = 1 + RND * 127
  1067.             LINE (x, 1)-(x, y), _RGBA32(R - b - c, G - b - c, 255, a)
  1068.         NEXT
  1069.     NEXT
  1070.     _CLEARCOLOR _RGB32(0, 0, 0), ice&
  1071.     _DEST de
  1072.  
  1073.  
  1074.  
  1075. SUB init_theme
  1076.     DATA 72,35,83,31,90,31,101,32,106,34,99,44,91,49,84,56,83,65,77,73,73,78,67,83,60,89,66,91,73,84,81,78,90,69,101,66,109,57,115,49,124,44,134,41,129,51,124,60,116,68,111,75,104,80,99,91,109,85,116,78,124,70,132,63,145,58,151,52,158,49,154,60,147,69,142,73,137,84,134,90,138,91,149,91,161,89,169,88,176,85,182,83,189,81,198,80,203,68,192,64,180,69,172,74,167,79,172,87,181,91,190,94,201,94,207,90,216,88,223,82,229,77,234,67,239,62,242,53,242,66,245,68,257,69,267,66,269,59,258,74,251,83,250,89,255,92,265,89,272,86,280,80,284,70,288,61,294,54,294,62,298,67,306,68,316,66,321,58,313,71,305,81,303,89,309,91,322,90,332,90,346,93,351,90,359,91,366,90,375,90,382,88,352,63,348,68,344,74,342,79,340,85,341,92,337,99,333,104,329,109,336,116,342,112,347,108,353,102,355,95,363,88,364,82,368,75,374,66,510,39,502,33,489,33,481,37,472,42,463,47,454,53,450,62,448,70,448,80,451,86,462,89,471,90,479,90,488,91,500,89,507,81,516,74,520,64,524,58,533,49,535,38,509,89,518,83,525,76,534,71,539,69,551,64,551,72,543,82,536,88,543,89,552,89,563,87,570,81,576,73,579,64,584,55,584,67,589,66,602,66,608,64,612,59,604,67,598,76,594,83,594,89,603,92,608,89,619,88,624,83,632,77,634,73,637,68,640,66,638,69,637,72,637,80,638,84,650,87,658,87,665,85,669,78,674,72,681,66,684,64,685,59,689,55,695,52,696,64,695,67,695,76,694,81,690,88,681,92,691,90,706,89,698,89,652,43,658,39,648,36,716,87,726,83,731,75,737,68,738,60,747,50,728,66,735,65,747,65,729,91,737,91,748,90,758,89,764,82,766,72,777,62,765,84,772,80,781,76,791,74,799,68,804,65,801,77,796,87,789,93,796,88,801,81,811,78,817,73,824,67,833,63,836,66,832,77,827,82,823,88,823,90,832,91,849,90,842,90,852,83,855,76,863,68,876,67,885,65,896,63,891,68,890,74,885,84,879,88,875,89,868,92,856,93,879,90,884,90,895,91,898,91,907,86,912,81,917,76,924,71,932,66,937,60,944,54,950,49,950,59,948,67,947,74,947,83,944,92,933,92,928,92,925,85,945,91,950,91,962,90
  1077.     FOR f = 1 TO 270
  1078.         READ sv(f).x
  1079.         READ sv(f).y
  1080.         sv(f).b = INT(1 + (RND * 5))
  1081.         sv(f).a = 40 * sv(f).b
  1082.         sv(f).mA = 2
  1083.     NEXT
  1084.  
  1085. SUB view_theme
  1086.     FOR i = 1 TO 270
  1087.         SELECT CASE sv(i).b
  1088.             CASE 1: clr~& = _RGBA32(255, 0, 0, sv(i).a)
  1089.             CASE 2: clr~& = _RGBA32(0, 255, 0, sv(i).a)
  1090.             CASE 3: clr~& = _RGBA32(255, 0, 255, sv(i).a)
  1091.             CASE 4: clr~& = _RGBA32(0, 0, 255, sv(i).a)
  1092.             CASE 5: clr~& = _RGBA32(0, 255, 255, sv(i).a)
  1093.             CASE 6: clr~& = _RGBA32(255, 255, 0, sv(i).a)
  1094.         END SELECT
  1095.  
  1096.         sv(i).a = sv(i).a + sv(i).mA
  1097.         IF sv(i).a > 254 OR sv(i).a < 2 THEN sv(i).mA = sv(i).mA * -1
  1098.         LINE (sv(i).x - 2, sv(i).y - 2)-(sv(i).x + 2, sv(i).y + 2), clr~&, BF
  1099.     NEXT i
  1100.  

Děkuji, Johnno56!
Thank you, Johnno56!
image_xmas.png
* image_xmas.png (Filesize: 204.27 KB, Dimensions: 1680x1050, Views: 283)
* vanth5M.bas (Filesize: 3.87 MB, Downloads: 385)
« Last Edit: December 22, 2018, 02:26:19 pm by Petr »

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #36 on: December 22, 2018, 05:12:06 pm »
Wow Petr!

Bet that took some time to put together, very nice!

Hope the other project got finished? ;-))

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #37 on: December 23, 2018, 05:10:57 am »
Hi BPlus, I do not know which second project you're thinking right now. If you mean the bathroom, I did what I could, but I left the professional work on the bathroom on a professional company, I'm an electrician, so I can handle the cutting jobs of the walls, but the water instalations, wastes, and the waterproofing are not my job. I did this work for my niece, there's still a lot of work to do, but for the christmas holidays we broke the work and I could finish this program.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #38 on: December 23, 2018, 11:22:53 am »
Yeah Petr, the bathroom project, I thought you were taking on a complete remodel.

I also like to add that I particularly liked the detail of the calendar and clock, I see you put both Sat and Sun at the end of the week.

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #39 on: December 23, 2018, 02:56:21 pm »
This program output is now available on my channel (in czech) on

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #40 on: December 24, 2018, 01:54:30 pm »
Hi Everyone!
Merry Christmas to All! :D

Here is my contribution to this contest, which may not be very creative.

Code: QB64: [Select]
  1. 'Coded By Ashish on 24 Dec, 2018
  2. 'Merry Christmas to Everyone! :D
  3.  
  4. _TITLE "Merry Christmas 2K18!"
  5.  
  6. SCREEN _NEWIMAGE(800, 600, 32)
  7.  
  8. 'noise function related variables
  9. DIM SHARED perlin_octaves AS SINGLE, perlin_amp_falloff AS SINGLE
  10.  
  11. TYPE vec2
  12.     x AS SINGLE
  13.     y AS SINGLE
  14.  
  15. TYPE tree
  16.     pos AS vec2
  17.     avai AS _BYTE
  18.  
  19. TYPE __santa
  20.     pos AS vec2
  21.     img AS LONG
  22.     ang AS SINGLE
  23.  
  24. TYPE __stars
  25.     pos AS vec2
  26.     active AS _BYTE
  27.     alpha AS SINGLE
  28.     alphaRate AS SINGLE
  29.     lifespan AS INTEGER
  30.  
  31. TYPE __snowF
  32.     size AS INTEGER
  33.     pos AS vec2
  34.     vel AS vec2
  35.  
  36.  
  37. '############## Stars #################
  38. DIM SHARED stars(300) AS __stars
  39.  
  40. '############ Mountains ##############
  41. DIM SHARED mountImg&, MountNoiseInfo AS vec2, MountDetail
  42. MountDetail = 10
  43. DIM SHARED mountVec(_WIDTH / MountDetail)
  44.  
  45. '############ Trees ############
  46. DIM SHARED trees(5) AS tree, treeImg1&
  47. treeImg1& = _LOADIMAGE(Writetree1Data$("tree1.png"), 33)
  48.  
  49. '########## Santa ##############
  50. DIM SHARED santa AS __santa
  51. santa.img = _LOADIMAGE(WritesantaData$("santa.png"), 33)
  52.  
  53. '########### SnowFalls ! ################
  54. DIM SHARED SnowFalls(70) AS __snowF
  55.  
  56.  
  57. mountImg& = _COPYIMAGE(0)
  58. MountNoiseInfo.x = 0: MountNoiseInfo.y = 0
  59.  
  60.  
  61. setMountain 0.023, 0.0233
  62. santa.pos.x = 0
  63. santa.pos.y = (mountVec(1) + _HEIGHT) / 2
  64.  
  65.  
  66. 'taken from "QB64_FOLDER/programs/samples/misc/carols.bas"
  67. PLAY "MBT180O2p4L4DBAGL2D.L8DDL4DBAGL2E.L4EEO3CO2BAL1F#O3L4DDCO2AL1BL4DBAGL2D.L8DDL4DBAGL2E.L4EEO3CO2BAO3DDDDEDCO2AL2G.P4L4BBL2BL4BBL2BL4BO3DO2L4G.L8AL1BO3L4CCL4C.L8CL4CO2BBL8BBL4BAABL2AO3DO2L4BBL2BL4BBL2BL4BO3DO2L4G.L8AL1BO3L4CCL4C.L8CL4CO2BBL8BBO3L4DDCO2L4AL1GP1"
  68.  
  69.  
  70.     drawBackground
  71.  
  72.     _DEST mountImg&
  73.     CLS , 1
  74.     updateMountain 0.020, 0.023
  75.     drawMountain
  76.     drawSanta
  77.     setupSnowFall
  78.     drawSnowFall
  79.     _DEST 0
  80.     _PUTIMAGE , mountImg&
  81.  
  82.     _DISPLAY
  83.     _LIMIT 40
  84.  
  85.  
  86. SUB setupSnowFall ()
  87.     FOR i = 0 TO UBOUND(snowFalls)
  88.         IF SnowFalls(i).pos.y = 0 THEN
  89.             SnowFalls(i).pos.x = p5random(0, _WIDTH)
  90.             SnowFalls(i).pos.y = p5random(_HEIGHT * -1.8, -30)
  91.             SnowFalls(i).vel.x = p5random(-1.6, 1.7)
  92.             SnowFalls(i).vel.y = p5random(0.95, 1.9801)
  93.             SnowFalls(i).size = p5random(4, 14)
  94.         END IF
  95.     NEXT
  96.  
  97. SUB drawSnowFall ()
  98.     FOR i = 0 TO UBOUND(snowfalls)
  99.         CircleFill SnowFalls(i).pos.x, SnowFalls(i).pos.y, SnowFalls(i).size, _RGB(255, 255, 255)
  100.         SnowFalls(i).pos.x = SnowFalls(i).pos.x + SnowFalls(i).vel.x
  101.         SnowFalls(i).pos.y = SnowFalls(i).pos.y + SnowFalls(i).vel.y
  102.         IF SnowFalls(i).pos.y > _HEIGHT + SnowFalls(i).size THEN SnowFalls(i).pos.y = 0
  103.     NEXT
  104.  
  105. SUB setupStars ()
  106.     FOR i = 0 TO UBOUND(stars)
  107.         IF stars(i).active = 0 THEN
  108.             stars(i).pos.x = p5random(0, _WIDTH)
  109.             stars(i).pos.y = p5random(0, _HEIGHT * 0.8)
  110.             stars(i).active = -1
  111.             stars(i).alpha = 1
  112.             stars(i).alphaRate = p5random(0.5, 1.7)
  113.         END IF
  114.     NEXT
  115.  
  116. SUB drawStars ()
  117.     FOR i = 0 TO UBOUND(stars)
  118.         IF stars(i).active THEN
  119.             CircleFill stars(i).pos.x, stars(i).pos.y, 1, _RGBA(255, 255, 255, stars(i).alpha)
  120.             IF stars(i).alpha < 1 THEN stars(i).active = 0 ELSE stars(i).alpha = stars(i).alpha + stars(i).alphaRate
  121.             IF stars(i).alpha > 255 THEN stars(i).alphaRate = stars(i).alphaRate * -1
  122.         END IF
  123.     NEXT
  124.  
  125. SUB drawSanta ()
  126.     STATIC iniated AS _BYTE
  127.  
  128.     _PUTIMAGE (santa.pos.x, santa.pos.y), santa.img
  129.     'RotoZoom santa.pos.x, santa.pos.y, santa.img, 1, santa.ang
  130.     IF NOT iniated THEN
  131.         santa.pos.x = santa.pos.x + 0.7
  132.         IF santa.pos.x > 0.35 * _WIDTH THEN iniated = -1
  133.     END IF
  134.     n = INT(santa.pos.x / MountDetail)
  135.     santa.pos.y = (mountVec(n) + _HEIGHT) / 2
  136.     'santa.ang = _R2D(_ATAN2(mountVec(n) - santa.pos.y, (mountDetail*n)-santa.pos.x))  +90
  137.  
  138. SUB setTree (j)
  139.     IF j MOD MountDetail * 4 = 0 THEN
  140.         IF RND < 0.1 THEN
  141.             FOR i = 0 TO UBOUND(trees)
  142.                 IF trees(i).avai = 0 THEN
  143.                     trees(i).avai = 1
  144.                     trees(i).pos.x = j * MountDetail
  145.                     trees(i).pos.y = p5random(mountVec(j), mountVec(j) + 100)
  146.                     EXIT FOR
  147.                 END IF
  148.             NEXT
  149.         END IF
  150.     END IF
  151.  
  152. SUB drawTree ()
  153.     FOR i = 0 TO UBOUND(trees)
  154.         IF trees(i).avai = 1 THEN
  155.             _PUTIMAGE (trees(i).pos.x, trees(i).pos.y), treeImg1&
  156.             trees(i).pos.x = trees(i).pos.x - MountDetail
  157.             IF trees(i).pos.x < -60 THEN trees(i).avai = 0
  158.         END IF
  159.     NEXT
  160.  
  161. SUB drawMountain ()
  162.     FOR i = 1 TO UBOUND(mountVec) - 1
  163.         COLOR _RGB(200, 200, 200)
  164.         thickLine (i - 1) * MountDetail, mountVec(i - 1), i * MountDetail, mountVec(i), 4
  165.     NEXT
  166.     thickLine (i - 1) * MountDetail, mountVec(i - 1), (i) * MountDetail, mountVec(i), 4
  167.  
  168.     PAINT (0, _HEIGHT(mountImg&) - 1), _RGB(255, 255, 255), _RGB(200, 200, 200)
  169.  
  170.     drawTree
  171.  
  172.  
  173. SUB setMountain (sx, sy)
  174.     FOR i = 0 TO UBOUND(mountVec)
  175.         y = 200 + ABS(noise(MountNoiseInfo.x, MountNoiseInfo.y, 0)) * (240 * (i / UBOUND(mountVec)))
  176.         mountVec(i) = y
  177.         setTree i
  178.         MountNoiseInfo.x = MountNoiseInfo.x + sx
  179.         MountNoiseInfo.x = MountNoiseInfo.y + sy
  180.     NEXT
  181.  
  182. SUB updateMountain (sx, sy)
  183.     MountNoiseInfo.x = MountNoiseInfo.x + sx
  184.     MountNoiseInfo.y = MountNoiseInfo.y + sy
  185.     newY = 200 + ABS(noise(MountNoiseInfo.x, MountNoiseInfo.y, 0)) * 240
  186.     FOR i = 0 TO UBOUND(mountVec) - 1
  187.         mountVec(i) = mountVec(i + 1)
  188.     NEXT
  189.     mountVec(i) = newY
  190.     setTree i
  191.  
  192.  
  193.  
  194. SUB drawBackground ()
  195.  
  196.     FOR i = 0 TO _HEIGHT * 0.80
  197.         LINE (0, i)-(_WIDTH, i), _RGB(map(i, 0, _HEIGHT * .75, 33, 44), map(i, 0, _HEIGHT * .75, 0, 50), map(i, 0, _HEIGHT * .75, 89, 183))
  198.     NEXT
  199.  
  200.     setupStars
  201.     drawStars
  202.  
  203. 'By Fellippe
  204. SUB thickLine (x1 AS SINGLE, y1 AS SINGLE, x2 AS SINGLE, y2 AS SINGLE, lineWeight%)
  205.     DIM a AS SINGLE, x0 AS SINGLE, y0 AS SINGLE
  206.     DIM prevDest AS LONG, prevColor AS _UNSIGNED LONG
  207.     STATIC colorSample AS LONG
  208.  
  209.     IF colorSample = 0 THEN
  210.         colorSample = _NEWIMAGE(1, 1, 32)
  211.     END IF
  212.  
  213.     prevDest = _DEST
  214.     prevColor = _DEFAULTCOLOR
  215.     _DEST colorSample
  216.     PSET (0, 0), prevColor
  217.     _DEST prevDest
  218.  
  219.     a = _ATAN2(y2 - y1, x2 - x1)
  220.     a = a + _PI / 2
  221.     x0 = 0.5 * lineWeight% * COS(a)
  222.     y0 = 0.5 * lineWeight% * SIN(a)
  223.  
  224.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), colorSample TO(x1 - x0, y1 - y0)-(x1 + x0, y1 + y0)-(x2 + x0, y2 + y0), , _SMOOTH
  225.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), colorSample TO(x1 - x0, y1 - y0)-(x2 + x0, y2 + y0)-(x2 - x0, y2 - y0), , _SMOOTH
  226.  
  227. 'from p5js.bas
  228. 'https://bit.ly/p5jsbas
  229. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  230.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  231.  
  232. SUB noiseDetail (lod!, falloff!)
  233.     IF lod! > 0 THEN perlin_octaves = lod!
  234.     IF falloff! > 0 THEN perlin_amp_falloff = falloff!
  235.  
  236.  
  237. FUNCTION noise! (x AS SINGLE, y AS SINGLE, z AS SINGLE)
  238.     STATIC p5NoiseSetup AS _BYTE
  239.     STATIC perlin() AS SINGLE
  240.     STATIC PERLIN_YWRAPB AS SINGLE, PERLIN_YWRAP AS SINGLE
  241.     STATIC PERLIN_ZWRAPB AS SINGLE, PERLIN_ZWRAP AS SINGLE
  242.     STATIC PERLIN_SIZE AS SINGLE
  243.  
  244.     IF NOT p5NoiseSetup THEN
  245.         p5NoiseSetup = -1
  246.  
  247.         PERLIN_YWRAPB = 4
  248.         PERLIN_YWRAP = INT(1 * (2 ^ PERLIN_YWRAPB))
  249.         PERLIN_ZWRAPB = 8
  250.         PERLIN_ZWRAP = INT(1 * (2 ^ PERLIN_ZWRAPB))
  251.         PERLIN_SIZE = 4095
  252.  
  253.         perlin_octaves = 4
  254.         perlin_amp_falloff = 0.5
  255.  
  256.         REDIM perlin(PERLIN_SIZE + 1) AS SINGLE
  257.         DIM i AS SINGLE
  258.         FOR i = 0 TO PERLIN_SIZE + 1
  259.             perlin(i) = RND
  260.         NEXT
  261.     END IF
  262.  
  263.     x = ABS(x)
  264.     y = ABS(y)
  265.     z = ABS(z)
  266.  
  267.     DIM xi AS SINGLE, yi AS SINGLE, zi AS SINGLE
  268.     xi = INT(x)
  269.     yi = INT(y)
  270.     zi = INT(z)
  271.  
  272.     DIM xf AS SINGLE, yf AS SINGLE, zf AS SINGLE
  273.     xf = x - xi
  274.     yf = y - yi
  275.     zf = z - zi
  276.  
  277.     DIM r AS SINGLE, ampl AS SINGLE, o AS SINGLE
  278.     r = 0
  279.     ampl = .5
  280.  
  281.     FOR o = 1 TO perlin_octaves
  282.         DIM of AS SINGLE, rxf AS SINGLE
  283.         DIM ryf AS SINGLE, n1 AS SINGLE, n2 AS SINGLE, n3 AS SINGLE
  284.         of = xi + INT(yi * (2 ^ PERLIN_YWRAPB)) + INT(zi * (2 ^ PERLIN_ZWRAPB))
  285.  
  286.         rxf = 0.5 * (1.0 - COS(xf * _PI))
  287.         ryf = 0.5 * (1.0 - COS(yf * _PI))
  288.  
  289.         n1 = perlin(of AND PERLIN_SIZE)
  290.         n1 = n1 + rxf * (perlin((of + 1) AND PERLIN_SIZE) - n1)
  291.         n2 = perlin((of + PERLIN_YWRAP) AND PERLIN_SIZE)
  292.         n2 = n2 + rxf * (perlin((of + PERLIN_YWRAP + 1) AND PERLIN_SIZE) - n2)
  293.         n1 = n1 + ryf * (n2 - n1)
  294.  
  295.         of = of + PERLIN_ZWRAP
  296.         n2 = perlin(of AND PERLIN_SIZE)
  297.         n2 = n2 + rxf * (perlin((of + 1) AND PERLIN_SIZE) - n2)
  298.         n3 = perlin((of + PERLIN_YWRAP) AND PERLIN_SIZE)
  299.         n3 = n3 + rxf * (perlin((of + PERLIN_YWRAP + 1) AND PERLIN_SIZE) - n3)
  300.         n2 = n2 + ryf * (n3 - n2)
  301.  
  302.         n1 = n1 + (0.5 * (1.0 - COS(zf * _PI))) * (n2 - n1)
  303.  
  304.         r = r + n1 * ampl
  305.         ampl = ampl * perlin_amp_falloff
  306.         xi = INT(xi * (2 ^ 1))
  307.         xf = xf * 2
  308.         yi = INT(yi * (2 ^ 1))
  309.         yf = yf * 2
  310.         zi = INT(zi * (2 ^ 1))
  311.         zf = zf * 2
  312.  
  313.         IF xf >= 1.0 THEN xi = xi + 1: xf = xf - 1
  314.         IF yf >= 1.0 THEN yi = yi + 1: yf = yf - 1
  315.         IF zf >= 1.0 THEN zi = zi + 1: zf = zf - 1
  316.     NEXT
  317.     noise! = r
  318.  
  319. FUNCTION p5random! (mn!, mx!)
  320.     IF mn! > mx! THEN
  321.         SWAP mn!, mx!
  322.     END IF
  323.     p5random! = RND * (mx! - mn!) + mn!
  324.  
  325. 'By Galleon
  326. SUB RotoZoom (X AS LONG, Y AS LONG, Image AS LONG, Scale AS SINGLE, Rotation AS SINGLE)
  327.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE
  328.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
  329.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
  330.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
  331.     sinr! = SIN(-Rotation / 57.2957795131): cosr! = COS(-Rotation / 57.2957795131)
  332.     FOR i& = 0 TO 3
  333.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
  334.         px(i&) = x2&: py(i&) = y2&
  335.     NEXT
  336.     _MAPTRIANGLE (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
  337.     _MAPTRIANGLE (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
  338.  
  339. SUB CircleFill (CX AS LONG, CY AS LONG, R AS LONG, C AS LONG)
  340.     'This sub from here: http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=1848.msg17254#msg17254
  341.     DIM Radius AS LONG
  342.     DIM RadiusError AS LONG
  343.     DIM X AS LONG
  344.     DIM Y AS LONG
  345.  
  346.     Radius = ABS(R)
  347.     RadiusError = -Radius
  348.     X = Radius
  349.     Y = 0
  350.  
  351.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  352.  
  353.     ' Draw the middle span here so we don't draw it twice in the main loop,
  354.     ' which would be a problem with blending turned on.
  355.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  356.  
  357.     WHILE X > Y
  358.  
  359.         RadiusError = RadiusError + Y * 2 + 1
  360.  
  361.         IF RadiusError >= 0 THEN
  362.  
  363.             IF X <> Y + 1 THEN
  364.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  365.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  366.             END IF
  367.  
  368.             X = X - 1
  369.             RadiusError = RadiusError - X * 2
  370.  
  371.         END IF
  372.  
  373.         Y = Y + 1
  374.  
  375.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  376.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  377.  
  378.     WEND
  379.  
  380.  
  381. '###################### Assets ###################################
  382.  
  383.  
  384. '============================================================
  385. '=== This file was created with MakeDATA.bas by RhoSigma, ===
  386. '=== you must $INCLUDE this at the end of your program.   ===
  387. '============================================================
  388.  
  389. '=====================================================================
  390. 'Function to write the embedded DATAs back to disk. Call this FUNCTION
  391. 'once, before you will access the represented file for the first time.
  392. 'After the call always use the returned realFile$ ONLY to access the
  393. 'written file, as the filename was maybe altered in order to avoid the
  394. 'overwriting of an existing file of the same name in the given location.
  395. '---------------------------------------------------------------------
  396. 'SYNTAX: realFile$ = Writetree1Data$ (wantFile$)
  397. '
  398. 'INPUTS: wantFile$ --> The filename you would like to write the DATAs
  399. '                      to, can contain a full or relative path.
  400. '
  401. 'RESULT: realFile$ --> On success the path and filename finally used
  402. '                      after applied checks, use ONLY this returned
  403. '                      name to access the file.
  404. '                   -> On failure this FUNCTION will panic with the
  405. '                      appropriate ERROR code, you may handle this as
  406. '                      needed with your own ON ERROR GOTO... handler.
  407. '=====================================================================
  408. FUNCTION Writetree1Data$ (file$)
  409.     '--- separate filename body & extension ---
  410.     FOR po% = LEN(file$) TO 1 STEP -1
  411.         IF MID$(file$, po%, 1) = "." THEN
  412.             body$ = LEFT$(file$, po% - 1)
  413.             ext$ = MID$(file$, po%)
  414.             EXIT FOR
  415.         ELSEIF MID$(file$, po%, 1) = "\" OR MID$(file$, po%, 1) = "/" OR po% = 1 THEN
  416.             body$ = file$
  417.             ext$ = ""
  418.             EXIT FOR
  419.         END IF
  420.     NEXT po%
  421.     '--- avoid overwriting of existing files ---
  422.     num% = 1
  423.     WHILE _FILEEXISTS(file$)
  424.         file$ = body$ + "(" + LTRIM$(STR$(num%)) + ")" + ext$
  425.         num% = num% + 1
  426.     WEND
  427.     '--- write DATAs ---
  428.     ff% = FREEFILE
  429.     OPEN file$ FOR OUTPUT AS ff%
  430.     RESTORE tree1
  431.     READ numL&, numB&
  432.     FOR i& = 1 TO numL&
  433.         READ dat&
  434.         PRINT #ff%, MKL$(dat&);
  435.     NEXT i&
  436.     IF numB& > 0 THEN
  437.         FOR i& = 1 TO numB&
  438.             READ dat&
  439.             PRINT #ff%, CHR$(dat&);
  440.         NEXT i&
  441.     END IF
  442.     CLOSE ff%
  443.     '--- set result ---
  444.     Writetree1Data$ = file$
  445.  
  446.     '--- DATAs representing the contents of file tree1.png
  447.     '---------------------------------------------------------------------
  448.     tree1:
  449.     DATA 1680,29
  450.     DATA &H474E5089,&H0A1A0A0D,&H0D000000,&H52444849,&H36000000,&H50000000,&H00000608,&H86E85200
  451.     DATA &H0000009A,&H59487009,&H0E000073,&H0E0000C4,&H2B9501C4,&H00001B0E,&H41670400,&H0000414D
  452.     DATA &HFB7C8EB1,&H00009351,&H48632000,&H00004D52,&H0000257A,&H00008380,&H0000FFF9,&H0000E980
  453.     DATA &H00003075,&H000060EA,&H0000983A,&H5F926F17,&H000046C5,&H4449D319,&HDA785441,&HFFFFF862
  454.     DATA &HF03D033F,&H25777FDF,&HDB36FDBE,&H00FB2F4F,&H3E818802,&HFA667D16,&HE577C3F2,&H6D3BDFCF
  455.     DATA &H6829FC7E,&H009D87A5,&HF608C401,&H9BC08D1D,&H195F8CCF,&H633D49FE,&HC67A9661,&HC767E4CC
  456.     DATA &HC0C222C2,&H913FFCCC,&H22A1F181,&H47DF0303,&H2BED0626,&HBB014C2C,&H40376168,&HD030B100
  457.     DATA &H5930B010,&HF3F1F89E,&H832313AF,&HC3230A9C,&H7FBF8673,&H323033FF,&H6567CCCA,&H64606576
  458.     DATA &HF3FC36E2,&H031F9377,&H063C6D03,&HB44C4010,&H771F18F4,&HBFDFE779,&HEBF981F7,&H67BF100D
  459.     DATA &H7FC407F8,&HF306BEFF,&H125DFF7F,&HDEDCC6CD,&H01BB2B44,&H31A68802,&H9CC7F5F6,&HBEFFBFE4
  460.     DATA &H7DFF3032,&H918FF0C7,&H032FE18D,&HD8C6301B,&H66E39E81,&HF9E66260,&H01BB4B46,&H1E868802
  461.     DATA &HFAF2A4BB,&H461F16ED,&HC3FE1660,&H21E806F4,&H3B18A036,&H4E5FE303,&H7E064606,&HAF8CFF86
  462.     DATA &H31E96844,&H6E620080,&H89A06868,&HFFFFFFC1,&HF9C5C7FD,&H5D9D999F,&HBF9FF9E4,&HFEFF1567
  463.     DATA &H04656763,&HE1E98C79,&H6BA64611,&H5E18188F,&HF1333389,&HD46267BC,&HFB0B41BD,&H4E880201
  464.     DATA &H9D29FDC5,&HFE182F67,&H0BC77DBF,&HA1525EE4,&H01009D87,&H03C2D344,&H56BE6E06,&H27F774FD
  465.     DATA &HFBF2C303,&H2F6B0C7C,&H87A3533F,&H4401009D,&HEC358F17,&H827C9B0B,&H458183A3,&HE7A18CA1
  466.     DATA &HCBF74664,&H6805CFCF,&H0040276D,&H2B63DCD1,&HE08FCFCE,&HC1F8E591,&HE183F0C9,&H0C4FEFDF
  467.     DATA &H5A69FE49,&H8F2C4B7E,&H805EDAD3,&HC7A9A200,&H2C7C7D9E,&H6B62F932,&H518681B5,&H7FBFDFD8
  468.     DATA &H899F69A1,&H7C2BD421,&HDD2CED95,&H1BB4B493,&HEA688020,&H36A580B1,&H03DC0387,&HF8FE7E74
  469.     DATA &HF7FB1709,&H17032FEF,&HB79D6097,&HC7A9F9AB,&H2E4D816B,&H0080011A,&HACC799A2,&HF65CA9A6
  470.     DATA &HC1D8F770,&H056A80C8,&HF0C551B0,&HA18B9189,&H9CDCF5E2,&H87F69CC3,&H1D18176C,&H00FD85A5
  471.     DATA &H8F754401,&H81FEFC7D,&HE29A7CCD,&HDB573B55,&H5C1C9C43,&HFDFEFF05,&H0314F243,&H412667C3
  472.     DATA &HD31FB086,&H679FBE18,&HED63B865,&H62E5E1E5,&H817EC07F,&H6FFBF9C6,&HD35148EE,&H4401001D
  473.     DATA &H99FDD6D5,&H320DC747,&H76AE85B6,&HE15570F3,&H6066E164,&HC0CCC7FC,&HC0CACCC6,&HC0CAC8C2
  474.     DATA &H583FC40C,&H7E9C1945,&HDD30646E,&H8A6197BF,&H77C32565,&H7F86466E,&H80327E7F,&H4F07251A
  475.     DATA &H2A163BED,&HC13B329A,&H35016B3C,&H401002DC,&HD758F354,&HAD8ABABE,&HDA44566F,&H31EAD8DA
  476.     DATA &H606661FD,&H62016066,&H98C7B056,&HCEFF2E80,&H79E0C625,&HC9832D7B,&HEB0C23F7,&HEE191239
  477.     DATA &H30312928,&HF0CAFAFF,&H606FEFEB,&HB037F21B,&HE18FF02B,&H2BC7FBE9,&HCBF83C7E,&H333966D4
  478.     DATA &HEA50425D,&H01EE2503,&H3D8A2008,&H43EBEF76,&H11CD8289,&H3855794B,&HC84AC87E,&H61FE317A
  479.     DATA &H2C10C702,&HF331FE96,&HB1B0B030,&H9C6C2431,&HF86520C5,&H6337618C,&H7925C338,&H9FD60653
  480.     DATA &HFCFE19EF,&HD8F70BFF,&HFA20FF9F,&HB61FC30F,&H9E370CDF,&HF025D9DE,&H3CCEE74A,&HE4D9E9CF
  481.     DATA &H80200BBA,&H95D8F228,&HEA92E6E6,&HACB54DA7,&H8A7CEE35,&HFF0C7C8C,&HB032327F,&HE8624132
  482.     DATA &HD0172B1F,&H8E0C3CA1,&H3C18A78C,&H6066EC37,&H58606650,&HF0C493A7,&H819F4D84,&HA007CFE5
  483.     DATA &H78A17E47,&H1FE31FEC,&H7FCCBF86,&HBC3DAE18,&HF57820CF,&HC7F74319,&HBE38EFBB,&H6FF8E0FD
  484.     DATA &HDD8CFD23,&HA92A89E1,&H2008036E,&H3FF75AB2,&HFA927CEE,&H5B74DAA9,&HD2F18F47,&HBE74C946
  485.     DATA &H19EBB1B5,&H18252AFA,&H803455F4,&H419B85F9,&HA750E800,&H5C18279B,&H2AAB023F,&HD786066E
  486.     DATA &HCB0C429C,&HFE18B38D,&HE065E1FE,&H9405FBF9,&HCAA120F0,&HCCC0C8C8,&HD8F404C2,&H8FBB867F
  487.     DATA &HFAF86EEF,&H865B17F8,&HCEA75946,&H7C83E09D,&HFF42FC66,&HFC32175C,&HC37077FF,&H0FA2FD8F
  488.     DATA &HCB5F1C39,&H8046E293,&H63CB2200,&HCC4E538F,&HE5D06455,&H63A157FA,&HC32368C1,&HF5B9AC10
  489.     DATA &H4B62870D,&H89439DF8,&H5ED82373,&H326B898A,&H659C3170,&H21137860,&HBDFBB0CA,&H0B5DC307
  490.     DATA &H9FC1063D,&H80B8193F,&H6036187D,&H294604F2,&H646012B0,&H45F1F978,&H37FBCDCF,&HF598D434
  491.     DATA &HB4A9152E,&H3333D62D,&HE4F0F1BA,&H662F8F3A,&H6CC4193F,&H171E8085,&H21B86063,&HCF6FF253
  492.     DATA &H8E0C6F9B,&H2011B9A4,&HD8F2C880,&HB88F6FBB,&H1914D964,&H675C26D8,&H20FABFF8,&H6FAFCFC3
  493.     DATA &H3D55BCB9,&HBEA831F7,&H75F86450,&HBEF0E0DC,&HF209C2FE,&HAE98E2CF,&H307032C9,&H7E60627E
  494.     DATA &H05819FBA,&H4BBEEC98,&HFA7C31B0,&HFE20C42F,&HE7C303E4,&HEC189F3F,&HD61F3CC5,&H452D4F3B
  495.     DATA &H595B9B36,&HD391DAFB,&H1DC9BF7F,&HF2C5CAFA,&H91818424,&H3BC32BFF,&H5C5FF63B,&H2011BA24
  496.     DATA &HC7AAC880,&H0BADFB64,&HF8BAFF8F,&H3F99C3ED,&H5FD7EF0C,&HB639F6F9,&H925C096C,&HE542F2CD
  497.     DATA &H062ADB8B,&H5A0CC676,&HF20C82B2,&HAA0C1202,&H770C4AC2,&H2E191519,&H30613FAB,&H78669433
  498.     DATA &H60CBCB62,&HB0CA672A,&H50AAE1E5,&H4445B374,&H32F11FD4,&HB759CCA5,&H4BB7FDEA,&H1CBFEF3C
  499.     DATA &H8DF1FDE3,&H239F74CB,&H08046EA9,&H8F0BB220,&H0ADE4F8F,&H2D7F9D3D,&HFF88D849,&HDEB7B89C
  500.     DATA &HC678983E,&HECF9F0DA,&H8499FF9A,&H40E344F9,&H2B073E45,&H1FFFC33B,&HEF26187F,&H77506492
  501.     DATA &H229863B2,&HC450CDAD,&H75A0C498,&H8F819787,&HC1E3A789,&H7372C78D,&H6345D702,&HB1E1FF98
  502.     DATA &H67178BC8,&H0235D44C,&H3EE39077,&H6AA20080,&HD4FF3D05,&H9FCDA4D4,&H69EB4496,&H8A813BE9
  503.     DATA &HC63D587D,&H50CBC1CF,&H83226AB7,&HC30853B4,&H8667467F,&H19396F5F,&H324E9572,&H1E1602FC
  504.     DATA &H5ADF9E77,&HFACDF7A4,&HFE658A68,&H3CB66A2C,&H6A880200,&H37DDAA4D,&H782D38B7,&H475F3130
  505.     DATA &HEFE9C75B,&H7228BFEF,&H62FD7FDF,&H624F7428,&H87B0BA60,&H3741EB81,&H09D88C43,&H99FFBF86
  506.     DATA &HF9FCFE18,&HA120A0CB,&HD3F5B71C,&H0FD3C8F2,&HD350198E,&H44010063,&H70DB1895,&HD7407979
  507.     DATA &H7B56AAC5,&H862D3B47,&H0A888CDF,&H20631A1A,&H3B131B36,&HB02B0F03,&H879606B2,&H5B00FE5F
  508.     DATA &HC27EFF1C,&H0E6631EB,&H074D8646,&HEA589D77,&H8E5C2ABE,&H3511FD57,&H4010063C,&HFD58C714
  509.     DATA &HFED6A2CE,&H568DF51B,&HBF5A960E,&HA9C1FE7E,&H7FFFDFEE,&H7F7EDF0C,&H07FEF867,&H0B44E1D8
  510.     DATA &H197F8FCC,&H34F56219,&H35FAE42C,&H79799FAE,&H1E1A8B4D,&HB2200803,&HEDEF763D,&H5997196D
  511.     DATA &HB22FC706,&HB431B11D,&H03FBD3D0,&H918914F2,&H95FE520F,&HFA418B9D,&HB48673E9,&HD618AB6D
  512.     DATA &H6573D847,&HBC59081D,&H3F0AF2E1,&H10063D4A,&HC5272440,&H73DE3F8F,&HEC29EFD4,&H8F66F63F
  513.     DATA &HBA99A68B,&H1727370A,&H165FD303,&H8D87A48C,&H8CACC20F,&H413F0CCC,&H03331A75,&HBCA017C3
  514.     DATA &H0C2DC5E3,&H328E7F0E,&H66D5D49C,&H95CFFA58,&H0BF59F81,&H67F3B9C3,&HD77E298E,&H682536BE
  515.     DATA &H1EB92A49,&H92200803,&H40B9E63D,&HF66FE2ED,&H964A7A57,&H7F0C0C72,&HFE981984,&H08F4E373
  516.     DATA &HE40ACF88,&H17F30333,&H89914C68,&H91819399,&HE181939D,&HDD0617E7,&H9C19070B,&H724B02BF
  517.     DATA &H2D860645,&HFB0C4EDC,&HB8198C38,&HF867BDFF,&H330C6C05,&H7863FF30,&HBAF5F1F7,&HA8EFA79B
  518.     DATA &HF617E964,&HDE911847,&H20080195,&H011E5B92,&H337A97D6,&H5E1638B2,&H0C8CB601,&H241893E4
  519.     DATA &H8B019E44,&H5BA06E03,&H65619E80,&HCCCDF865,&H97FCC0C6,&H6619EC0D,&H36067636,&H3EC4E7A0
  520.     DATA &HE290667F,&HF720C479,&HCA8311F9,&H820C2BF6,&H3031DF6F,&HDC3031D8,&H58615056,&HF0C7EAC7
  521.     DATA &H81999599,&H8617DFFF,&H82A04C7F,&HB05C1987,&H0F62FCB0,&H62E03562,&HAE28C038,&H9AF3F9AF
  522.     DATA &HD6BB3E9A,&H09DC522D,&HC5244010,&H5F17F3D8,&H7E0EA405,&H26CB9A7D,&HC16D95C6,&HB40E60C0
  523.     DATA &H4639ED6A,&H466D0606,&H49355106,&HC0CBF606,&H97F6F978,&H37FF4B81,&H1FAFEF03,&HBFC79C0C
  524.     DATA &H81B54682,&H0EF8810A,&H6065DF10,&HC6AE6B78,&H80DB5370,&H235FFCE1,&H20C06F86,&H09FBFE61
  525.     DATA &H64FC9858,&H3DF5F0F8,&H4F57F3C3,&HF27C3DD7,&HD598C140,&HF176DF71,&H2A0C2507,&HEF620C5C
  526.     DATA &H89CE19E3,&HFCEBBE84,&H553F267C,&HB1097B46,&H2008056E,&HEE763C92,&HE30D2BFC,&HEACEDF8D
  527.     DATA &H59702AB9,&H30CFF91E,&HC337E953,&H98D050FF,&HD98633FC,&H7E19BCCB,&H20CD7A7D,&H2C01C7A0
  528.     DATA &H7C337EF9,&H8183FDBE,&HE1978989,&H866FF6B6,&H1958374F,&H6117FDDE,&HC42826F8,&H0FFBFAC0
  529.     DATA &H606FE303,&H77EFF9AF,&H37FF6B60,&HBF5FEFC3,&HFEFD7E19,&HA62DA0C5,&HD14EC8BF,&H718C7775
  530.     DATA &H578592DA,&H8835864F,&HFEF4ADF9,&H5AA19EB1,&HDA619A56,&HD30CE3FB,&HF27F5FEE,&H9651A8D6
  531.     DATA &H0402B758,&HD1494910,&H86EC50C8,&H2703BCC5,&H6BFB3C4E,&H170F6971,&HEE0ACCC3,&H70E36074
  532.     DATA &H377BBEC9,&HF0FA4FFE,&HD1DAC181,&H2F2FE19E,&HD764831B,&H1998867B,&HBF720C11,&HE07C30E7
  533.     DATA &HB6986110,&H40418450,&HEB032BEE,&H1EAB6077,&H07F8DAD8,&H9601D21A,&H4CCC4CC7,&HECEC1C0C
  534.     DATA &H9FAEA70C,&HD494D060,&H14F20CBD,&HEFD39EC8,&HB1739A17,&H64BC313B,&H8A70CCF9,&HF3C33761
  535.     DATA &H4C0C26F7,&H3EFF9522,&HE0E02AFD,&H41FC1363,&H02015B8C,&HFA0AAC88,&H0AB78BFA,&HCF5C8252
  536.     DATA &H7F39D9F8,&H86FEFBBD,&HE69A76CB,&H6B373B57,&H3E711E06,&HEFBDF606,&HA4A24219,&H1C780C18
  537.     DATA &H6C7BFE19,&H6DBC6065,&HA2FBF0CA,&HA3FB4330,&H5F9C0C13,&H8F4980F8,&HFF295801,&H1998F481
  538.     DATA &HD5F302FF,&HF281605F,&HD6F5618F,&H25764F95,&HE694379D,&HFBB37B97,&H98A756DE,&H4AE76783
  539.     DATA &HF856EE07,&HE188C3F7,&H067927CF,&HCF73AFCE,&H6ABC369C,&H011BAC4A,&H7AAC8802,&HF842534C
  540.     DATA &H2053C801,&HF33CF7B6,&H3A267A93,&H1CFC5C0C,&HFE587F0C,&HFE2F7033,&H0BC820C8,&H3B685FB4
  541.     DATA &H2B4F4303,&H3F0CBFC3,&H9DB1F160,&H2FECF141,&H6E294E06,&H5E713E06,&H1E497E06,&HE713E630
  542.     DATA &HE216E066,&HE5E0E064,&H72757060,&HE25D0993,&HA66417BC,&HBEF792AB,&HDEF57962,&H7D8E9BEB
  543.     DATA &HEC55BE79,&HA59DCB01,&H1E69F627,&H8DC524B7,&H51440100,&H8E6DCA93,&H090E51E1,&HFA4A3FD6
  544.     DATA &HBF0C7672,&H7E475D80,&HA2E10636,&H2BCE0CAF,&H382C18AC,&H950B0067,&H97C6061C,&HEEDF0CA6
  545.     DATA &H3C2C3345,&H57F0CE18,&HC0A3181B,&HFFEFF1C6,&H0686307F,&H33FF5918,&H6379B8DC,&HFFC7CFD3
  546.     DATA &HECC65698,&H82B4A5F1,&HB2200806,&H53491E5B,&H117E8E8D,&HAD23CAFD,&HE7F76627,&HCBD1A427
  547.     DATA &HC31FF5F4,&H86514697,&H3367BF8B,&HC8ABF85C,&H2B32E1F0,&H8B87CBC3,&HCAEAF618,&HE1B17C30
  548.     DATA &HB81A1603,&HAFF7F103,&HEA2A0C3F,&H120C7E2A,&H9662D8BF,&HD4A5AD79,&H44010063,&HBD6EC7B2
  549.     DATA &HB4D325BF,&H3CE96830,&HD391CD97,&H7EF5FA2C,&H5FE95B00,&H0B807E98,&HC03F8604,&H37E39FA2
  550.     DATA &HE69BD3C3,&H996DBB0C,&HDDCA9619,&H799A5866,&H29EAE18D,&H57B60667,&H349580BF,&HE7FBF07E
  551.     DATA &H2D55066F,&H85463735,&H731E6C5F,&HE2530E4C,&H22008031,&H394E2929,&HE73791DA,&H294284FC
  552.     DATA &H09050973,&HC9866911,&HB818F31F,&HEC3308BF,&HB0C6DB65,&HB006E64A,&HBDF603A4,&HDC124980
  553.     DATA &H0765E0DA,&HFDB0D40F,&HFD6064E1,&H836A08CA,&HD8549BC0,&H30A82292,&HCB506101,&H50B03FE3
  554.     DATA &HD3FDFCF9,&HCE47B38A,&H3519151B,&H251847D6,&H63D520AE,&H94440100,&HDADE76C7,&HA07ED2E4
  555.     DATA &HFA519DB2,&H9AB89B17,&H95A81EB0,&H918FF0C1,&H5FDB33E1,&HDC4B9086,&H9E0B710C,&H87B49B81
  556.     DATA &HB61818CC,&HFC336886,&HE067E414,&H3DEC05F9,&HB13503FF,&H8ADA30D8,&H17F63C84,&H1187F628
  557.     DATA &HBFD641E8,&H3EEFF70C,&HE1E3F238,&HE33CA63F,&H9D1F569A,&H7AC46DE0,&H7080200C,&HC30DEC7A
  558.     DATA &H372DAE47,&HDFCC4717,&H17FF313D,&H61366FFF,&HB60D4E2B,&HAC0CDCDF,&H7E1D80FF,&H5B683646
  559.     DATA &H0FE18590,&H2C581B27,&H0637D36B,&HC0823BE3,&HC30BFCB2,&H8621632D,&H0C5C2603,&H30FEC4B7
  560.     DATA &H327032F0,&H31723270,&H307233B0,&H11B132B0,&H189831EF,&H93FCC588,&H57DBF5E1,&H7BDC9E27
  561.     DATA &HE8A5642B,&H298A69B7,&H361000EA,&H58401000,&HB4F3963D,&HC0BB7BBE,&H2E0B08D4,&HA7E79907
  562.     DATA &H71FB6D7F,&H0B1292F2,&H012FDB3F,&H2E3D2E0D,&H96060E61,&HFD4F40BF,&H417A3687,&HFC40A403
  563.     DATA &H41959383,&H43108FEA,&H0640DFCA,&H1B605605,&H6077CFEA,&HE18BFDDD,&H8643EF2C,&H31AF7F2B
  564.     DATA &H90F3FE3C,&H39E80381,&H11EB604E,&HFF7FF0E4,&H5E0FF840,&HFC65FD8F,&H8FB98E03,&HDC303E5F
  565.     DATA &HC18CF87D,&H432E9F6D,&H37BE4CD5,&H8F72721C,&HF9E53618,&H3D8AAA33,&H8031E5C1,&HD8F0C200
  566.     DATA &HF9AFCF8B,&H3D893F54,&HE0AF152F,&H60AC64CA,&HF2BC7F70,&H348539D8,&H27A7D9EB,&H3F38ADA4
  567.     DATA &HFFD3F92F,&H320202F7,&H627C6ABC,&HC2820CBC,&HCCEC0C02,&HB24F60EC,&H08C93D00,&HFD3092EA
  568.     DATA &H94669066,&H60FBF062,&H9F7DA0C8,&HCA2A341D,&HA40AC0C0,&H279C6D81,&H9E182FAC,&H78657F72
  569.     DATA &HE18BF7C2,&H865FC099,&H19FF3CB7,&HC5F9FCFE,&H301FF7F0,&H6841FEF6,&H6C40C790,&H3CDEC790
  570.     DATA &HF9E3BA7A,&HCE0AFBB5,&HB29BFEE2,&H857B8B0D,&H725F6BC4,&HFC3307A6,&HF861B2CF,&H86F6996D
  571.     DATA &H515AEBED,&H08031E5C,&H7D8F0C20,&H4985F1FF,&H4BC48CF2,&H1128CD35,&H0C766FE1,&HDE0B1F57
  572.     DATA &HADE5647A,&HFCA59F0E,&HD0E844F4,&H376E5DBD,&H3ED35F5F,&HCDB0E8F9,&H0EBFB67F,&H58C0025C
  573.     DATA &H29E60364,&H2E060E4E,&H709C602E,&HDC28BB00,&H6CBC0CEC,&HD7B60C5C,&H1C18307E,&H7A20CDBA
  574.     DATA &H1B301EF6,&H4645CA82,&H50095AD0,&HFCCC1A97,&HF0C2CFC3,&HE1999B99,&HC3133B3B,&H2160562F
  575.     DATA &HF0C8C2CD,&H4787DBED,&H16BF1FDF,&H5B8974E1,&H30B455A4,&HDBEF6413,&H5ED4F78B,&HD79E141B
  576.     DATA &H62E05350,&HF86233D0,&H37DF66BC,&HB90BFFDE,&H200C7971,&HC526B080,&H053797A5,&HDDDA5F15
  577.     DATA &HFA65CBCB,&H73ADA569,&H348891B8,&H6618B5D6,&H6BAE1593,&HB069A85A,&H3F890B00,&HFC31FE5F
  578.     DATA &H7F67D605,&HF863FF7F,&HB837FBFD,&H8C05FA5E,&HFF8CEF8D,&HB070FE18,&HB602FC32,&HFD1E1509
  579.     DATA &HC1FED060,&H8FFB20CC,&H0FEE4183,&HC4C2ABB0,&HCC05C0C9,&HAC2CCC77,&H580282C0,&HEB63006D
  580.     DATA &H0C2787DE,&H345301E1,&HB0C78E81,&HD272AD73,&HBF7BF565,&H9E18B894,&HC455B033,&HC7B4CA77
  581.     DATA &H04B25CE1,&HB7644010,&HE8661C3C,&H11D3169C,&H232220F8,&H0FFCC2E8,&H3A0683D8,&H3317F190
  582.     DATA &H606FD303,&H215A83A8,&HED8199BF,&H042E6042,&H1B1FFA3A,&H83FE832F,&HFA610C3B,&H33D666C0
  583.     DATA &HCFFD8601,&H6BD61955,&HFEB031DB,&H63CC04FA,&HCA0824A0,&H1180BF53,&HDCE18FFA,&HF90C33C5
  584.     DATA &H71E19566,&HB0AB09DA,&H3AEC490E,&H212DC368,&H4F5C42FB,&HF73E0EE9,&H59100401,&H155A4B1E
  585.     DATA &HE739F4B8,&H1D19257D,&H3FE60B09,&H39C5A82C,&H95030EB0,&H02C02C7E,&H4661E405,&H7EFEE7A0
  586.     DATA &HBD90CDFD,&H90830676,&H7FC33681,&H8C0CCDBF,&HA6194A47,&HF0C5FB7D,&HE1865844,&HE01FDFFF
  587.     DATA &H0B1FEB7A,&H6C02F5B0,&H3607FD56,&HDD6C7788,&HDA40E8F1,&H2E616D35,&H56E42FD1,&H440100D0
  588.     DATA &H7F23CB72,&H3BC4EA7B,&H2475570C,&HFE2D8474,&H140D44FE,&HF1011870,&HF9FE607F,&HC72217FF
  589.     DATA &H9C864C02,&H7C30BF7F,&HDBF60636,&HF864BC5E,&H33D80D7F,&H20CCBE51,&H20CCCB27,&H20C82B28
  590.     DATA &HC0CFC328,&HC0CBC527,&H00CDCA23,&HB03093EC,&H38DBD502,&HCEF9CB59,&H6E68A2B3,&H4880201A
  591.     DATA &HA9EAD8F3,&HDE175949,&HF09B7088,&H33C6FDE8,&HD1E286D4,&H90D8C0BF,&HF9386656,&H9DE18D84
  592.     DATA &HFF8657C2,&H3E18AA6B,&H70C47E9E,&H819F545D,&HFF079809,&H1C000301,&H1FFC2010,&H031FFCA4
  593.     DATA &H832F009F,&H23FC89B2,&H0766B9AF,&H4018F5C9,&H149D1100,&H2FFB57A3,&HB9D1E54F,&HD9E7C0EA
  594.     DATA &H13FFE9FC,&H3EA14486,&H7607C660,&H0FF1983B,&HCCF880E6,&H166649A0,&HF6E59760,&H5F810649
  595.     DATA &HD54F0CAC,&H9818184C,&H32EB83BF,&HA818F55C,&HF1F4F1D5,&H6F9F1DF3,&H9AD8E0FC,&H49E4927C
  596.     DATA &H22008009,&H735E63CA,&H977FF7CC,&H53F4277B,&H44DE97F6,&HA60CD9D1,&HA0C06EFC,&HF690C5FD
  597.     DATA &H27E18C2C,&H32F19930,&H7E1C12F2,&H32DB4D03,&HC2C73D03,&HC073CC04,&HD22FFBCA,&H0AAE3048
  598.     DATA &H57B01FFA,&H9BCDE6FA,&HBCCE4F1D,&H709ADB12,&H83979CD2,&H1EB10FEF,&HBC200803,&HADEF7149
  599.     DATA &H53C60E6D,&HD6FF6E64,&H2BC42F7D,&HFE27A1CB,&HE4A18447,&H89C33A45,&HD6BEC09B,&HB30CABB5
  600.     DATA &HA83134BE,&HF86795FD,&HE08BFAC8,&H06A82958,&H06060263,&H31F93033,&HFE4A9912,&H4B2501FD
  601.     DATA &H3B450F3E,&HF9872349,&H5FB7371A,&HAC41EF5F,&H080200C7,&HAC658C67,&HFA7B9C89,&H41277EC7
  602.     DATA &HD6052E03,&HB6A0ECFF,&H80063039,&HC3333334,&H0CEF963B,&H18CD37D5,&H038B6F1C,&H0CDC29BB
  603.     DATA &H30EE541B,&HC6FA31AC,&HA819F620,&H80F09182,&H456D2929,&H59B03CB0,&H37F997F5,&HF7F39DC3
  604.     DATA &H33FC69AF,&H6C27373E,&H8F212C4D,&H46100401,&H3D3A2D8C,&HAA68CE23,&H228BEDF4,&H0C789DFB
  605.     DATA &HFE981558,&HFFA4EB02,&H2F21288C,&HA18F97F6,&HC326FF5B,&H97604106,&H8662E769,&H19677980
  606.     DATA &H30EFBB9A,&HB680E37C,&H400DA81E,&H066FED25,&H19030506,&HB78A97AD,&H48668C55,&H62739DDD
  607.     DATA &H2D3E0A52,&H8F040100,&H37B75DB1,&HABEC74B9,&HFE2F7D6E,&HF1558A4C,&HB01B0C9F,&H8C02C075
  608.     DATA &H33884429,&H8D8C6383,&H67BAD219,&H85360466,&HBC1938F8,&H48653F77,&H2E6C0999,&H76CA8071
  609.     DATA &H06BE8616,&HAA878647,&HDF820C22,&H367F6D41,&H9218C4EA,&HCD106FFC,&HEDE193F2,&HFED78F83
  610.     DATA &H93FE63DC,&H1AD3516F,&H518F1066,&H10040399,&H1B5B8EE3,&H560EDADC,&HFBFCFFB4,&HE993E383
  611.     DATA &H260E2D23,&HBFB6062E,&HC8062EC0,&H094928F1,&HA4B063D5,&H838F93F6,&H2B19FB41,&H6016D543
  612.     DATA &H17E98597,&H1FA7C303,&H78CDA70C,&H30D85618,&H0300F030,&H93919B87,&HF0831EAA,&HFD5B817F
  613.     DATA &H327F18BF,&HF5F07C7C,&H6C27FFCE,&H73F412BF,&H179866A6,&H0C79834F,&H3F188020,&HD6CF7F7E
  614.     DATA &H73A2A876,&H2E3DFDD7,&H3AFC3C1C,&H301F559F,&H674B0170,&H68EC7FD6,&H63DD8E21,&HAC3FF920
  615.     DATA &HFF7C0C2C,&H1FBA19B8,&H1B5B02F8,&H7EBFCD40,&H8FF93D00,&H0DF28161,&H2F9C5B86,&H05190419
  616.     DATA &H3899D819,&HDFB1E8A8,&HF840FD10,&HC33BED93,&H187FAF9F,&H7EFF2F18,&H7BD7E5F0,&H17312DA1
  617.     DATA &HB53825F4,&H1004001E,&H3E3E293C,&HD4EE2331,&HD785F289,&H5618A578,&HE065FF89,&HC0C0FB95
  618.     DATA &HE4039FF6,&H7047A835,&HBC058C7B,&H65D801C4,&H50C7FE61,&HA0CC55C6,&HCC0D63CA,&H5580DF14
  619.     DATA &H73C33B02,&HAB0C07A6,&HF8632DBE,&HB033F7F6,&H2C03C9D3,&H4B28585C,&H2576A08A,&H01FC6530
  620.     DATA &HBF7E8F76,&HE3F0C7FB,&HAE061FC1,&H370C4C6F,&H0832D71E,&H08628DBC,&HAE286532,&H03E8638E
  621.     DATA &HC7B02008,&HEF4C6C1E,&H2B3D3A97,&H85D8CD8D,&H09FB818B,&H2C9F8EC3,&HFD9FAAA7,&H79926263
  622.     DATA &HCF23C223,&H08C9C0AE,&H03FE7FAC,&HB8FFC54B,&H4CC2063D,&HC6FE38C0,&H9EC195F4,&HF2218EC5
  623.     DATA &H6664B033,&HCC3B5602,&H170A6EA0,&H8B864DC3,&H6F047B0C,&H94176301,&HF0158162,&H454B125F
  624.     DATA &HE67A0610,&H0C5FF7C7,&H66FF9E3F,&H07F8FCF8,&HEF4F87C3,&HF91945EF,&HA174596C,&H23EEEAC2
  625.     DATA &H336A9365,&HE9EDAB60,&H711E1EDF,&H0100CF86,&HD9D8F604,&HC6AFC64A,&HFF5C5252,&HFC330F63
  626.     DATA &H81807F7F,&H37F26EE9,&HDCFF9706,&H706DAFDB,&H4A61705B,&H4B966DEE,&H3CF2827A,&H7CFC3C72
  627.     DATA &H073E6EC0,&HBD8963BC,&HA6016642,&HEC0CFFFF,&H9218D9FF,&H2830CB2F,&H08A6003E,&H818B7F60
  628.     DATA &H00B40D99,&HC49EE19F,&HBA438677,&H444F0CCC,&HF7CD6580,&H7FFF0C9F,&H40B600FC,&H0E14A17E
  629.     DATA &H0A31817F,&H7BC80CF1,&H7EBE19BF,&HE5F0C6FC,&HF8BF1035,&HFDF9F0C6,&HFFDF4BD7,&HD009E57F
  630.     DATA &H6A565C8E,&HC5CCD753,&HB18BFFC6,&H0957DEF1,&HE5AE4516,&HEB8EC081,&HF8860667,&H00197FB9
  631.     DATA &HB1EC0802,&H5F8C596D,&HB979153D,&H5D80D418,&H0CA7AE7A,&HFF5E7F6F,&H1FF3E226,&HFF7B89DE
  632.     DATA &HEAD72DE5,&H36638B4B,&HFD1A5BDE,&H8485E38E,&H9A80B8A0,&H033F2880,&HB80F1B37,&HAE816190
  633.     DATA &H96790374,&H66C20995,&H383FD202,&H9E541858,&H5E0865FD,&HE8419371,&H69606BDE,&H0349EC02
  634.     DATA &H15CD81C5,&H9CE20F86,&H252CA70C,&HC95B4E19,&H66E27C31,&HF9FE6062,&HE4098183,&H19DF5FB1
  635.     DATA &HC8FDBF3E,&H67C3E5F0,&H3E182790,&HF0C4FEBE,&HBF679803,&H4F7AFDFF,&H5EE9505E,&HECEA4194
  636.     DATA &H52D41D30,&HFF74B190,&H5B016E57,&H4CAFE92E,&H05813F0C,&H4FCF2734,&H02008006,&HF2F8EC7B
  637.     DATA &H3BDFC6F2,&H74344ABA,&H733EB918,&HE3C6FFFC,&H5C5D2B3C,&H94EB152B,&H27A03BCD,&HE8DADE77
  638.     DATA &H0EEEFFB7,&H4FEF0BCF,&H71F27058,&HE3E3E0FC,&HE5E5E3D5,&HE1E1E063,&HE2E5E065,&HE764E061
  639.     DATA &HE560E062,&H05676064,&H071B2EC6,&H5E3E2FC3,&H4F4B9506,&HEC962C18,&H0D399067,&H099999B4
  640.     DATA &H606005D4,&HF82EAD00,&HADE19BF9,&H49C33496,&HC3866135,&H2E19BFEC,&H7861FDB3,&H140FF1CE
  641.     DATA &HFFFED77B,&H23A5CEFA,&H4DC17FAE,&HAFB36FC5,&H5C2AD846,&H871998DD,&H2E65C46E,&HE19D357C
  642.     DATA &HC3030AAF,&HB70CBFCD,&H03AB8B96,&HF0A21004,&HE8C472B8,&H4E7D9DCD,&H1B8126B2,&HEF746444
  643.     DATA &HDE775B10,&HE64B737D,&H1613B3DC,&H359F9E97,&HA2FAF6BE,&H37B7DDC1,&HFFFDFED5,&HC1CCC4C7
  644.     DATA &H87898BF6,&HDEB40D4B,&H62C5D803,&HF07A0460,&H28B02707,&HB6321602,&H18337ECF,&HD06667BD
  645.     DATA &H20C5C5FC,&H418387F3,&HFD39D408,&HD81D6FFD,&H2FEE7640,&H371A720C,&H0F6D0C19,&H1DB95831
  646.     DATA &HF90A7A21,&H93B637CB,&HB99A3EB7,&HF5824919,&HCD100400,&H3CDD8FF6,&H65E8DC72,&HEFD9CF7E
  647.     DATA &HB619AF7A,&H5C33F06B,&H81867C7B,&HE189938F,&H0C9FB7F3,&HD37E16EA,&HF65CAD4C,&HFC7132B3
  648.     DATA &HFD12E012,&HFD2BCE20,&HE94B914A,&HA2B0009E,&H00FD96A0,&H4DB34401,&H6FC17C3B,&H255BAAD7
  649.     DATA &HAB643031,&H50707C31,&HF3A3B867,&H2813819F,&H033DEDFE,&HEDA5A383,&HA8E540E1,&H04340C35
  650.     DATA &HB3440100,&H258FDC55,&HB9F8BF5F,&H0637FBE1,&H3F0C49A7,&H7418E5C5,&H4F498155,&H58418199
  651.     DATA &HBF2D1404,&H0C6818D8,&H66880200,&H21766631,&HD252F2D1,&HEA72A9CE,&H55D937A1,&H9AFCBE35
  652.     DATA &H4F97339F,&H19418182,&H656021D8,&H1DF347FE,&H4401001A,&H7A718DD3,&H6BC1DCF3,&H3CCD7F7A
  653.     DATA &H1D08C258,&HFCF6044A,&HF9FCFE19,&H8F6B42CD,&H5D100401,&HFF7CED36,&H3E1789FA,&HFFA40487
  654.     DATA &H7343F9FE,&H1004018F,&HE5F63C5D,&H26115BD3,&HEE7F4426,&H5CEFCFD7,&H2013B6B4,&HB1E2E880
  655.     DATA &H2BEFCF57,&H6063EA80,&H1FE190A3,&HF2FB7F10,&H76D6905E,&H0B100402,&H69A63C3D,&HDEF5BDE2
  656.     DATA &HBF5E1FB9,&H7033DE58,&H683089F3,&HA5ED3A1A,&H01009DB5,&HDE0DD344,&HC9FFA2F0,&H4FC79133
  657.     DATA &H7070C85F,&H65679F72,&HFF883601,&HD5D554FD,&H4B43BED1,&H8802013B,&H5651492E,&H3B0DEA46
  658.     DATA &H5C5FFFCB,&H1A4AC06C,&H73718358,&HB5A17E71,&H4401009D,&H0208A497,&H4FD2D2D2,&H2BFDFEFE
  659.     DATA &HF6C6C6CC,&HE585858B,&H03EDAD0F,&H24BA2008,&HF8E97845,&H0F130BE5,&H7A3FCF0F,&H401005D8
  660.     DATA &H74,&HF5,&H18,&H3D,&H01,&H40,&H80,&H01,&H00,&H2E,&H6F,&HE4,&H27,&HBA,&HEE,&HE2
  661.     DATA &H98,&H00,&H00,&H00,&H00,&H49,&H45,&H4E,&H44,&HAE,&H42,&H60,&H82
  662.  
  663. '============================================================
  664. '=== This file was created with MakeDATA.bas by RhoSigma, ===
  665. '=== you must $INCLUDE this at the end of your program.   ===
  666. '============================================================
  667.  
  668. '=====================================================================
  669. 'Function to write the embedded DATAs back to disk. Call this FUNCTION
  670. 'once, before you will access the represented file for the first time.
  671. 'After the call always use the returned realFile$ ONLY to access the
  672. 'written file, as the filename was maybe altered in order to avoid the
  673. 'overwriting of an existing file of the same name in the given location.
  674. '---------------------------------------------------------------------
  675. 'SYNTAX: realFile$ = WritesantaData$ (wantFile$)
  676. '
  677. 'INPUTS: wantFile$ --> The filename you would like to write the DATAs
  678. '                      to, can contain a full or relative path.
  679. '
  680. 'RESULT: realFile$ --> On success the path and filename finally used
  681. '                      after applied checks, use ONLY this returned
  682. '                      name to access the file.
  683. '                   -> On failure this FUNCTION will panic with the
  684. '                      appropriate ERROR code, you may handle this as
  685. '                      needed with your own ON ERROR GOTO... handler.
  686. '=====================================================================
  687. FUNCTION WritesantaData$ (file$)
  688.     '--- separate filename body & extension ---
  689.     FOR po% = LEN(file$) TO 1 STEP -1
  690.         IF MID$(file$, po%, 1) = "." THEN
  691.             body$ = LEFT$(file$, po% - 1)
  692.             ext$ = MID$(file$, po%)
  693.             EXIT FOR
  694.         ELSEIF MID$(file$, po%, 1) = "\" OR MID$(file$, po%, 1) = "/" OR po% = 1 THEN
  695.             body$ = file$
  696.             ext$ = ""
  697.             EXIT FOR
  698.         END IF
  699.     NEXT po%
  700.     '--- avoid overwriting of existing files ---
  701.     num% = 1
  702.     WHILE _FILEEXISTS(file$)
  703.         file$ = body$ + "(" + LTRIM$(STR$(num%)) + ")" + ext$
  704.         num% = num% + 1
  705.     WEND
  706.     '--- write DATAs ---
  707.     ff% = FREEFILE
  708.     OPEN file$ FOR OUTPUT AS ff%
  709.     RESTORE santa
  710.     READ numL&, numB&
  711.     FOR i& = 1 TO numL&
  712.         READ dat&
  713.         PRINT #ff%, MKL$(dat&);
  714.     NEXT i&
  715.     IF numB& > 0 THEN
  716.         FOR i& = 1 TO numB&
  717.             READ dat&
  718.             PRINT #ff%, CHR$(dat&);
  719.         NEXT i&
  720.     END IF
  721.     CLOSE ff%
  722.     '--- set result ---
  723.     WritesantaData$ = file$
  724.  
  725.     '--- DATAs representing the contents of file santa.png
  726.     '---------------------------------------------------------------------
  727.     santa:
  728.     DATA 5216,30
  729.     DATA &H474E5089,&H0A1A0A0D,&H0D000000,&H52444849,&HC8000000,&H8C000000,&H00000608,&HE6913900
  730.     DATA &H000000E4,&H59487009,&H0E000073,&H0E0000C4,&H2B9501C4,&H00001B0E,&H41670400,&H0000414D
  731.     DATA &HFB7C8EB1,&H00009351,&H48632000,&H00004D52,&H0000257A,&H00008380,&H0000FFF9,&H0000E980
  732.     DATA &H00003075,&H000060EA,&H0000983A,&H5F926F17,&H000046C5,&H44491451,&HDA785441,&HFFFFFC62
  733.     DATA &H1828C33F,&H3B00A305,&HA6200800,&H051820D1,&H003700A3,&H0CD1A008,&H01460A32,&H4010001E
  734.     DATA &H146419A3,&H003C028C,&H33468020,&H051828C8,&H00400078,&H5190668D,&H00F00A30,&HCD1A0080
  735.     DATA &H1460A320,&H010001E0,&H46419A34,&H03C028C1,&H34680200,&H51828C83,&H04000780,&H190668D0
  736.     DATA &H0F00A305,&HD1A00800,&H460A320C,&H10001E01,&H6419A340,&H3C028C14,&H46802000,&H1828C833
  737.     DATA &H40007805,&H90668D00,&HF00A3051,&H1A008000,&H60A320CD,&H0001E014,&H419A3401,&HC028C146
  738.     DATA &H68020003,&H828C8334,&H00078051,&H0668D004,&H00A30519,&HA008000F,&H0A320CD1,&H001E0146
  739.     DATA &H19A34010,&H028C1464,&H8020003C,&H28C83346,&H00780518,&H668D0040,&H0A305190,&H008000F0
  740.     DATA &HA320CD1A,&H01E01460,&H9A340100,&H28C14641,&H020003C0,&H8C833468,&H07805182,&H68D00400
  741.     DATA &HA3051906,&H08000F00,&H320CD1A0,&H1E01460A,&HA3401000,&H8C146419,&H20003C02,&HC8334680
  742.     DATA &H78051828,&H8D004000,&H30519066,&H8000F00A,&H20CD1A00,&HE01460A3,&H34010001,&HC146419A
  743.     DATA &H0003C028,&H83346802,&H8051828C,&HD0040007,&H05190668,&H000F00A3,&H0CD1A008,&H01460A32
  744.     DATA &H4010001E,&H146419A3,&H003C028C,&H33468020,&H051828C8,&H00400078,&H5190668D,&H00F00A30
  745.     DATA &HCD1A0080,&H1460A320,&H010001E0,&H46419A34,&H03C028C1,&H34680200,&H51828C83,&H04000780
  746.     DATA &H190668D0,&H0F00A305,&HD1A00800,&HC10C320C,&H599F6F8F,&H3A814346,&H06802000,&HF5F90655
  747.     DATA &HCFD0B9E2,&H46240F87,&HF03485A3,&HD74EE4E0,&H1627ABB3,&H9637F8C2,&H7A7DF5D7,&HFDF1537A
  748.     DATA &H20F25BE3,&H53F5E5FE,&H89434772,&H4010003C,&H7E419E03,&HFA4D1716,&HFFFDCDCC,&HFFE3232D
  749.     DATA &H6F529217,&H3E282A5F,&HFF6400FF,&H82EFE201,&H867FFF02,&HBEFC6D85,&H68D84572,&H4D82A154
  750.     DATA &H6F876E25,&H09E2DA1E,&HFEFDFF62,&HF7EC505E,&H9C981D35,&HEF666BBC,&HCB531DBD,&HA87E7DFE
  751.     DATA &HF6FF9602,&HDF44064C,&HFC5FDAD9,&HDE2BF5E9,&H1E23D0D1,&H80D00400,&H57EF9065,&H075DA8AE
  752.     DATA &H7D0B8266,&HBE17B9FD,&H02B8637D,&HC4027B14,&H1E25418F,&HE2059F10,&H323E1FE7,&HDABD5D7C
  753.     DATA &HE4445FEF,&HB5406FCA,&HAB3B3A5F,&H020CA346,&H9783DDB4,&H58F0FCFE,&H5011CC11,&H2E2C2DBA
  754.     DATA &HF9FEEAFA,&HAE20A663,&H43DA9CA0,&HFBB90136,&H379DEF5F,&H936A727D,&HC4459CB7,&H9FF8907C
  755.     DATA &HF82D67C7,&H8F3EC544,&H00F11E86,&H24068020,&HFCF8FC83,&HAE94E585,&H208FCDEE,&HC3230336
  756.     DATA &H11FD2037,&HD2057F48,&H1FFC40CC,&HCB89EA54,&H9B91FF7C,&HE9E7E33F,&HFFDC06B3,&H017233FF
  757.     DATA &HF07FB331,&H511A91F2,&H4FE4A747,&H8F7A7FBD,&HC6CF8C03,&H8B86F425,&H8807E383,&H76606CAD
  758.     DATA &H7F8BDEFE,&H5FDFCC4C,&HB5E4C348,&HFEBA4B82,&HFB2A7D7F,&H2DC2F8E6,&H377ACA42,&H2DBA3DDE
  759.     DATA &HBC1E6C2F,&HF0FD2074,&H010BC5E6,&H81EEFB18,&HB16091E5,&H06D557FB,&H0403B873,&H906480D0
  760.     DATA &HAF9A5A8B,&H37F48039,&HF0CFFE30,&HFE299C0C,&H04C48033,&H98668B72,&H61CCF87E,&H9731E2F5
  761.     DATA &H9909A4D6,&H17462692,&H3538FA61,&HA48FEE54,&HE5E1F14C,&H2B6B9153,&H5E1FDA6A,&H9D6C613C
  762.     DATA &HDFFB3133,&H17CEA3D3,&H034ECC36,&H91E3FDC9,&HE1EDF87E,&H5A984B29,&HCDF70D1E,&HB19D1EDF
  763.     DATA &H22CFD644,&H504A7469,&HFCC41B4E,&HB3E3E7FF,&H1AA29C07,&HE7726197,&H02CB4ED7,&H6E8EBB37
  764.     DATA &HA2B33CF5,&HEE1682AB,&H3DF1FAFF,&H905BD3E7,&HCBE5F00C,&H33BBA637,&H7BBD77C3,&H499C0AF9
  765.     DATA &H1EA44578,&HC9B13A3F,&H53DDE3FB,&HF3FE2036,&HAE1D7B0B,&H04979B6C,&H3B7A7F62,&H00819A78
  766.     DATA &H0CF74401,&HB2E964F2,&H9E4F3FE8,&H6680FC08,&H8C8C6790,&H5A405C0C,&HA1EF4B54,&HD096B02D
  767.     DATA &HC99BD498,&H13F3CFC9,&HFD7FB023,&H6E23711B,&H6FD2E202,&HCF75C558,&H3ABF3C7F,&HF48CD4F6
  768.     DATA &HFEBE3FB9,&HBBE4D1AA,&H466876AB,&HB8BB3B6D,&H6FBFEDE6,&H7FBC6AEF,&HA41B96F3,&HFED8C156
  769.     DATA &H4F17A7C8,&HBDDC5F65,&HFF912F02,&H7B5DA9F3,&H0CFDE6FB,&HABDBFB10,&HFFBF0CBB,&HB102FDB3
  770.     DATA &H115BED6F,&HF9C02BC6,&HAFE7CBE3,&HEF3F1C2C,&HCA0870AB,&HFB85A43C,&H9798EF6F,&H4CF770FB
  771.     DATA &H0F01E0F0,&H513FD70F,&H1FCB8D15,&H0373EC6F,&HEC74C5F1,&H717E7C8F,&HDDF7E357,&HD47EE03D
  772.     DATA &H3D7BABEB,&HE692BC75,&HCBB0BF3D,&HAD95CBF9,&H0E2583A1,&HEE880200,&H4C61EE89,&HA0BF92F4
  773.     DATA &H6A540252,&HF9B03100,&H141CA0C4,&HEAEAD5B1,&HB5740545,&H63FD7F9F,&H4199F479,&H0647FEEC
  774.     DATA &H995F17E9,&H627E1FA4,&H81F47890,&HCFCBEC41,&HB32623FF,&HAF863AA8,&H2DE84BD2,&H2A6A0B50
  775.     DATA &H9525C5FE,&H5DC4E677,&HAFB90355,&HE5574FDC,&HB4B0D7BE,&H6BB5B9B6,&HAD4C0661,&H94CA5D88
  776.     DATA &H3A5B9B67,&H03197C61,&H6F6FD3CB,&H707E325D,&HFDC320EE,&H58180B3D,&H815E4579,&HEFAF7FFB
  777.     DATA &H4B71B068,&H6A757DCC,&HF7A7EFD5,&HB8EA2B1F,&HE9A55147,&H6DE1E6FA,&H3E9FAFF9,&HC2F8C3B2
  778.     DATA &H797BD65A,&HC37E5879,&HAA9CD69B,&HBABF7F37,&H47EF0C6C,&H32F61405,&H3EFCB130,&HAE6A72B3
  779.     DATA &H5DE2A4A0,&HFDFE9E50,&H973192FC,&HC1DECD8A,&H0100FE12,&HF684D344,&H943FE7F9,&H5A33F8F1
  780.     DATA &H80FE8F3A,&HE6685BAA,&H61E3E110,&HB937D490,&HB976B26B,&HF8C66A0F,&HDBF2F2CF,&H9F17817F
  781.     DATA &HEF99A518,&H7C297F5E,&H8513FD6E,&H491F0B0B,&HFCF05E9D,&H9CBBABFF,&HFF8CEC3C,&H226D5C46
  782.     DATA &H30C1FE26,&H75B27B30,&H27FF6AD5,&H815B2E1C,&H1C1C89FC,&HAF6CD5EC,&HD4C158CF,&H1ED91928
  783.     DATA &H89ECFB7B,&H0B2D85FC,&HB26261E3,&HDFCB41D6,&HC0C29FEF,&HC0C62E2F,&H4E0ACACA,&H2E2F2CAC
  784.     DATA &HB7DD9D98,&HE380418B,&HBE888333,&HB96A4AEF,&HEC485391,&H45659DC5,&H85DD9FB3,&H7564AB34
  785.     DATA &H7E7ECE2D,&HEE17437A,&H4DB71D07,&H16BF3FBF,&H7597F147,&HE8A1BF46,&H1106555D,&HA69099DD
  786.     DATA &H016E77D8,&H1A8C5569,&H4B8DD9ED,&HEE11031A,&HB3440100,&HDBFEF20C,&H765E4E5F,&H607E5026
  787.     DATA &H81FB7178,&HF6766EFC,&H5FAF2FFF,&HE4017D95,&H62E4E5BF,&H92F57A88,&HFF4B504F,&HD385FDA2
  788.     DATA &H5F3D302A,&HB7A8CD80,&HDFB8193F,&HC226FE7D,&H7BFBF3F4,&H1F97D7C1,&H64BDB0F0,&H60E193E0
  789.     DATA &HC3AF28F8,&H91C756F0,&HE8524441,&H90B7DBD5,&H25C90566,&HFA3399DC,&H50DE6FEF,&H4599EA1C
  790.     DATA &HA76BC9CB,&HC16F4472,&H95F763E1,&H1F245595,&H38589FEF,&H0BF72609,&H71FA88D8,&H87E45D69
  791.     DATA &H41381F77,&HD0CB097C,&HCC6CAC85,&H3858581B,&H7EBCBE18,&HE0FD78A0,&H097E6F66,&H366EA789
  792.     DATA &HCF670CD2,&HF5F8603C,&HF807D214,&H18B1EAF2,&HD439EEB9,&HCAF2B71B,&HD7BEB2A2,&H08D94E37
  793.     DATA &H7EC794B8,&H7CD9DDD8,&H3B3ED4EB,&HE6435F48,&H07D39DE1,&HA94876C0,&HFDF8DDE9,&HD3EBEB8F
  794.     DATA &H61F4676B,&H2CB4257A,&H71BFDF4F,&H4A578D4F,&H6667CC15,&HC738D446,&HBDF794E7,&HF647707C
  795.     DATA &HFA33D5E9,&H2CCC8FCF,&H06B0881C,&H649A2008,&HFE3FAF90,&H3330B131,&H9BFA3DC1,&HFEBBE053
  796.     DATA &H062E2D96,&HF818CE67,&H1CC2FE7D,&H232BEDFB,&H67D8A88F,&HAD1BCD93,&H7DDE6A61,&HE1F9C7FF
  797.     DATA &HFBD09307,&H37054097,&H7D673DF7,&HE9819977,&H5F8669DE,&H0C82AE37,&H737AE064,&HF8F5818F
  798.     DATA &HFBA7860E,&H0B09A716,&HD5257F0B,&H35D4A74D,&H3530BC9E,&H4348F0BD,&H1619DEF3,&HCCA0FFD6
  799.     DATA &H8A33D432,&HE4CCE15D,&HBEB80F33,&HADBB7CF3,&HDE527475,&H5A0BE3F4,&H55D4E4EB,&H890971AF
  800.     DATA &H985ADFB8,&H8FD200BB,&HA5C77A91,&H8999BEEE,&HF4E19599,&H7F3BFA82,&HC2DB6F6E,&H769BC9C2
  801.     DATA &H0669D8EE,&H0C37A67E,&H67FAB2FC,&H6DAF2CAF,&H82F77B7F,&H28EED929,&HADCE145E,&HF7FDB4EA
  802.     DATA &H2FAA7BDB,&H906DD536,&HCA789796,&HEC7570FF,&H93F375C9,&HFEE7FD7E,&H5EFAE9F4,&H295A986F
  803.     DATA &H678E9CE7,&H515A3A3B,&HDC8F876A,&HFDFF199F,&HE37E7866,&H2B130302,&H5F6E3817,&H2B2BBC3C
  804.     DATA &H9BFCCFC2,&HD1F9424F,&H2E8707B7,&H7A9365FC,&H0C61103A,&HFF8C4010,&H4DA7FFFF,&H1FEDE35F
  805.     DATA &HC66E0109,&H33BE9FF7,&H320ACBF2,&HFEA422BD,&H910647E9,&HBC3EEFEF,&H99BE7E56,&H8A525181
  806.     DATA &H7BEDE7E1,&H65593B0C,&H3D6C0C18,&H9C6F8419,&HAF91E600,&HF1FF1B0C,&H482AC432,&HF0FDBF88
  807.     DATA &H4D5A5785,&H33212EEB,&H2EA5A46F,&H21389990,&HD5F2FDE9,&H13931F09,&H834A82E7,&H1C66B0BF
  808.     DATA &HFA7F7DA8,&H89A89194,&H9EA1F9E9,&H9AAC4E51,&HF6EBFB9A,&H62A249BE,&HFEBF0CC2,&H8593E240
  809.     DATA &HC7E17185,&H79F89F77,&HB336DCB4,&HBF7C7170,&H32EE7DB3,&H86052505,&H0C6C8C7F,&H60DCCE97
  810.     DATA &H645032D0,&H66E7E5E0,&H3788B010,&HBF5493E0,&HFBCBC9CA,&H39EE5A87,&HF46975BF,&H02DB8BC7
  811.     DATA &HDF84F50C,&H67880BB0,&H757CBBDC,&HBCCC5C9D,&H0E5E1E70,&H66171DB0,&H27FECE67,&H28DA7462
  812.     DATA &HB8167530,&H75607F33,&HFB1BE7C8,&H7ABDBFDD,&H196E2292,&H9AEAA094,&HC6EAF0B0,&H0CCC4979
  813.     DATA &H48F2E76F,&H7F7C33EB,&HCC41867A,&H9F879D26,&H5291828C,&H34401000,&H0BC9626B,&HFBF8BCB3
  814.     DATA &H98899187,&HDBF2F1CC,&H7FEF815F,&H37D84D80,&H3B3D80A7,&HE7FF4D60,&HB2BB032F,&H7FBF8336
  815.     DATA &HA9828328,&H8EB70336,&H538AC305,&HBC3218A7,&H3FFE18DC,&HFA52F9BD,&HB7E355DC,&H10645633
  816.     DATA &HECEDF732,&HB997F139,&HAA3EFE78,&H1A0B9928,&HB5CD0335,&HC0D3067C,&HAF880D5A,&H1AEF8786
  817.     DATA &HD793FD0E,&H3C276AFB,&HE18EB53C,&H0CA7C3D1,&H0CD2B252,&H0C8C8C4C,&H8BFCFFBF,&H09E3E6E7
  818.     DATA &H68787860,&HBB1BEFEE,&HE8186996,&HCEF97C31,&HC76170C8,&HC115061C,&H5F420C9B,&HFD88334F
  819.     DATA &HEDF0C4BC,&H6A34E2DC,&H30100E66,&HEA5E8EF4,&HF434B550,&H8CDC5CBD,&H2EEEB787,&H0BD532D5
  820.     DATA &HADB2B0BA,&H26BA3E11,&HEBE973A0,&H9FB155F9,&HF7037CBF,&H421D5551,&H7D7E30D7,&H202BCD21
  821.     DATA &HC6C6C0C0,&HEFCB760A,&H9E0C57B7,&HC0C53A5E,&HC31EFBFD,&H0C3C6FBB,&H71BFFFCC,&H02D8440F
  822.     DATA &H3B4D1004,&H4C3C42E9,&HF75189DF,&HEF332BE5,&H1F3F9F9F,&H05BE3109,&HF8086126,&HC32DF9FE
  823.     DATA &H1813058C,&H33953616,&H82F37A7C,&H895F5221,&H0DA5EFE1,&HC09C9C0C,&HC710B9FE,&H3F9FE64A
  824.     DATA &HCB990938,&H0FD25253,&HD7AFC072,&H803E196F,&HE0FF8D6B,&H3A19F20C,&HF3F1F68A,&H90E18127
  825.     DATA &HBC677C41,&H0C0DFE63,&HB7271BB8,&HD29DCC31,&HD7FDF0C7,&H3E5E061F,&H76560601,&H014E061E
  826.     DATA &H6E560611,&H97DB8621,&HDADC302E,&H29C19733,&HDE4187DC,&HC78182D6,&HCAE187D8,&H1C0C93F9
  827.     DATA &H3CB90E2F,&H475AD6DA,&HE829770B,&HF7145C99,&HB83F4BEF,&HDE26ECF3,&HCFF5572F,&H0B1C5E6F
  828.     DATA &HB71F70E9,&HB3929213,&H67233F39,&HAF2D4C01,&HFFF6D386,&HBDD67F8C,&HF5D072BB,&H1247C3F9
  829.     DATA &H85EF0C3C,&H19F4ACCC,&HCE3FEE4E,&H97F3C820,&H4FC7EBE1,&H6CCFCF02,&HE1F6FF77,&H0A335D2D
  830.     DATA &HACD10040,&HB80A4589,&HB2B9FF7E,&H1DFF18AC,&H198F2F96,&HC6787DFE,&H1BE3F6C0,&H6F89E303
  831.     DATA &H1CAACC0C,&H616650C0,&H27F5FBF8,&H33331303,&H60667FC3,&H1FFFF3E9,&H7FC7E7C3,&H9C4C3818
  832.     DATA &H050438B9,&H75C06608,&H7F6F0AF2,&HC4287A3F,&H83FFE50A,&HAD5D5062,&H6D51DED7,&H36DE515C
  833.     DATA &HE7C73394,&H5F0DA707,&HF5589E1D,&HD55DE5E3,&HF4187FBF,&HC4FE7F3F,&H1BC1F370,&H60E0E660
  834.     DATA &H6262E510,&H19FCF178,&H5FDFF303,&HA0C0C20C,&H63CE0F54,&H2CF1BA98,&HA3D2FF43,&HA2C04C0C
  835.     DATA &H449CFCE8,&HE7BB2786,&HCA692831,&H2BB7E3BD,&HCC74926E,&H3737089B,&H232E632B,&H7FBFF303
  836.     DATA &HF08ADFEF,&H48115F2D,&HF6F73BA9,&H62174EE6,&HE9F5297A,&H7E57D737,&H8CCC7F8E,&HCC61ECAC
  837.     DATA &HFF2F7FFF,&HD0FB2DC9,&H12B9BE38,&HECECE6A4,&HEE6F999C,&HE1E3483F,&H84D60363,&HEE770CF2
  838.     DATA &HD0D0663C,&HCEF86594,&HEBF792A5,&H6E1933F3,&H8A5DFB15,&H1D746EA6,&H20080602,&H6D9067AA
  839.     DATA &H7BB9B7F7,&H84ED7A29,&HFEBEFFF1,&HCA2CCBCB,&HCFFD778C,&HE5F7FBAD,&H1F1414D5,&H1F8FAA80
  840.     DATA &HFDB0E740,&HC8C0CEFC,&H6E20AC0C,&H2BF8675C,&HCCC0C9CD,&H51AC062B,&HFEFC313E,&H8D8197FB
  841.     DATA &H9381905B,&HF6EC0B8B,&H317EBF2F,&H61B1B0F1,&HC2FDF21D,&H03C4C0C0,&H4F0C0BC9,&HDE369E4F
  842.     DATA &HE279E5EB,&H2CB7BBCB,&H683E406C,&HD2C85216,&HB1E462E2,&H394306E3,&H965B5C73,&HAADEFD3B
  843.     DATA &H3F5F1929,&HF9FC33F1,&H1EF0CBC3,&H16648ED8,&H323066E1,&H56506116,&H75B867E4,&H8FC308F9
  844.     DATA &H81C09FAF,&H98599BF0,&H08E4AAC1,&HF9FCDE83,&H8F075A0C,&H7238EC33,&HE9E26198,&H8B160CFD
  845.     DATA &HBCDE19FD,&H2B20C4FF,&H9799FD27,&H7FD3FB87,&H0FAFEE5E,&H39ABCE73,&HF9ADC744,&H0848FC77
  846.     DATA &H0C7BBDE3,&HE47C3F3F,&HFBE7E0E0,&HDF5B8949,&HB1ACBE3D,&HBAF5DCB5,&H03006DAE,&HC30B073B
  847.     DATA &H193F6FCF,&H17ED8118,&H8BFF9636,&H267A3F9F,&H78A621CB,&HC7DBC7EB,&HB232E28A,&HFF7F7FAE
  848.     DATA &H3B1CD607,&HD50DF418,&H39F94418,&HDB487E18,&H17FA6897,&H18440EF6,&H55100403,&H174D589B
  849.     DATA &HF90D1A9A,&HED96CFF5,&HF37BEF2F,&HB0109DEC,&H96C26698,&HD8ED9E39,&H91817AEF,&H4955FFF9
  850.     DATA &HFEC06FF1,&H77C7FB00,&HBE5E841F,&HB1C9037B,&H3C317FBF,&HE185FCFF,&H557E1017,&H11606657
  851.     DATA &H64606052,&H12E062E5,&H17E06092,&HC7F86695,&HE2F0CECA,&HBB863BCD,&H7FFC5E2F,&H059CE27C
  852.     DATA &H99DCB72E,&H29F72334,&H88088303,&H7A6E6D2D,&H1BEDEE36,&HABA59B56,&HCCC340A3,&H9BA16112
  853.     DATA &H38E67A86,&HD1793739,&H3253D9D5,&H64567C7E,&HC820C3F8,&H2B3FFEF0,&H36663BC3,&H7EEFB786
  854.     DATA &HFAD96C32,&HF7BFA184,&HEFAFC31A,&H03FE189F,&HA5601D0B,&HC3CBC0CB,&HF4C1C0CE,&HBF23A19E
  855.     DATA &HBC93E188,&HD2D6432A,&H26210C15,&HEE320C0E,&H7EFF0C45,&HB83C3031,&HD6F794F1,&HC2D2A783
  856.     DATA &HA06A6DFE,&H96373FA5,&H0D790A2E,&H78271CCC,&HCD281805,&H6578E01C,&HF2CCF9E1,&HB1C325FE
  857.     DATA &H5E19334D,&H29356B03,&H66062979,&HF7E0AB60,&H3158E65F,&H3E075959,&HF2693FB6,&H9FAEAAAA
  858.     DATA &H3864FCBE,&H833A69B1,&H830E9393,&HC3028A94,&H1997B79F,&H4F2E9EC4,&H5178727A,&H338440EC
  859.     DATA &HB5510040,&H75F09906,&H77016152,&H77FDFF5E,&HB86FFF0F,&HD0A196B7,&H02B408A4,&HFFD7E991
  860.     DATA &H3C6C0C5F,&H1CFE9288,&HD07FE323,&HB5ECAB74,&HEACC0CAB,&HAE770C9A,&H2A76035D,&HA9A830FF
  861.     DATA &HF1F030A8,&HFEFC3370,&H958187FD,&HFDE18595,&H1F0C8FA7,&HF6037DBF,&HDC33DF42,&H70C3DD9F
  862.     DATA &H867CD576,&H18FB2DA0,&HC11C4D14,&HC0DD51A3,&HBA80A8CE,&H1BCCD3DA,&H66606537,&H52F97C7F
  863.     DATA &HCA8A9CE0,&H5F2F817B,&H2C4C9818,&H381E71AE,&HCDC925EE,&HD81794F0,&H461867F5,&HEED6FAE0
  864.     DATA &H654D0B8A,&H4ABCACED,&HFDFE3F0C,&H97F2F863,&HCFD5E189,&HC08C0CFF,&HE6056130,&H5FEE710A
  865.     DATA &H8FEA8A0C,&H2E958019,&HD98A2803,&H7FCC6D80,&H84A906C0,&HBB0329BA,&H77C30DB2,&HC7EC7B60
  866.     DATA &HDF0CBB93,&HE065DC3F,&H506515E4,&H1066CD74,&HF50071D4,&HCDAE18D8,&HAD70C79C,&H9F033E6F
  867.     DATA &HAD79EC8E,&H6543B369,&H52EF3464,&H5767CDC3,&HDB5E3534,&HE0F75AD4,&H03F8B009,&HB616EFD6
  868.     DATA &H42420C0E,&HFEFF0C42,&H02FC3133,&H9F6F9516,&H75F866DD,&H7D830AEF,&HEEC31842,&H5E187B63
  869.     DATA &HF062E5BD,&H7861B077,&H83057A76,&H63E6AAAA,&HD64DE8DE,&H8F2A52FC,&H71FCCD91,&HA30692E9
  870.     DATA &H762DF28A,&H4C9A6E2E,&H1004031E,&HF5589BD5,&H1B5A1A0F,&HCBE01A15,&H4C3EFBD2,&H93BCC865
  871.     DATA &HC72CC064,&H8C4D8F72,&H9C9B5C15,&H10106601,&H1DFEF5AD,&H4E0E6FC3,&HDF6FF786,&HFC793C33
  872.     DATA &H41514188,&H025A4181,&HBC15A265,&HDBCBF7B2,&H0B6F0CD7,&H8ADE184A,&HEE3066FC,&H7200C65F
  873.     DATA &H426077F3,&HFF540598,&H0643E1E6,&HF20B29F3,&H27E3B37C,&HBCB735EF,&H09D4FDFC,&H1EA07E1D
  874.     DATA &H3B3CA076,&H75681D50,&HEDAAD330,&H1EA142A1,&HFFBFD87B,&HC9C829FF,&H64B87DF8,&H67BB9B92
  875.     DATA &HCE6F9C64,&HC4C8CE9C,&H3C08CC0B,&H8982DAC0,&H58059981,&H66BE7118,&H606214E0,&H9597F4F8
  876.     DATA &H37F79441,&HD8118C50,&HE2960769,&HFF7CD0C0,&H50418184,&HCA4196DF,&H4F819024,&H53819F5E
  877.     DATA &H8181895C,&H7E7B9805,&HBF657B01,&H0B03037F,&H9E6B0148,&H079FEFAF,&HEC04F87E,&H6D079A02
  878.     DATA &H6F9DD4A0,&HBBF46C2E,&HD9733CB3,&HFF8C6FFF,&H79445858,&H1804C479,&H191904F8,&HCCFCBC9E
  879.     DATA &H85F2C7C0,&H9BE5C6E1,&H90F2C00C,&H59181D81,&H0C962A9C,&H198244D7,&H33276BD2,&HC87DBC30
  880.     DATA &HCE1D1EE0,&H867AA3D0,&HBBDDD1E1,&HDA3A5A0C,&H32CD390F,&HF4A4D97A,&H6666FECE,&H5A12CBFA
  881.     DATA &H30AF88B0,&H5C4FE5AF,&H3BFFA2FC,&HBA71BA76,&H76A6EDBB,&H10040318,&HD3C83255,&HC50A1389
  882.     DATA &HB29EA424,&H3AAD8786,&HF4D270C6,&HA7C399D8,&H184A244A,&H30A45FAA,&H80F6FD7C,&H23778721
  883.     DATA &H87D39DC3,&H4475F5D2,&H995A4BCF,&H1A1F3E9C,&H9ADDF1B5,&H41FC7EE5,&H6B260C81,&HFD3C31D7
  884.     DATA &HD9E191F0,&HBF0C7BFD,&HA8A85181,&H05C0C4A8,&H6E7E2D0C,&HEFF9B82E,&HE0637EBF,&H009FF203
  885.     DATA &H86A2CCDB,&HA02C0CB6,&H4A581312,&H66CDCCEE,&H367B3FD8,&H3BF5F143,&HCA1AEA4A,&H330297F7
  886.     DATA &HC54DA81E,&H5AA0C506,&HF73A038A,&HA5E4F221,&HD880AB28,&H866E314F,&HE21FB761,&HD6BAFAFA
  887.     DATA &H863697D7,&H4AF2FDFF,&HE85B8D82,&HDA55988D,&H395F4FC4,&H9C9E9FBE,&H99495D31,&H1D8B8191
  888.     DATA &HFE705858,&HE7666063,&H3EC9D066,&HAA26C0C0,&HC005CC0E,&H1BDFF702,&HD65BE386,&HABA9C833
  889.     DATA &H72F3F033,&HFAFCFC32,&HBBCBE185,&HAC0C098F,&H15791F7C,&H49084F0C,&HD4A0BC2B,&H1496576D
  890.     DATA &H68B1BD4C,&H5FDFD662,&HFEBF0C32,&HFDBC3332,&HF1F0C8C3,&H16063FE7,&H3D06164E,&H3E06115D
  891.     DATA &H7F0C27F6,&HD6033FBE,&HDF0C0C7C,&HBED21980,&H76C328F9,&H28865D11,&HBF867D33,&H5833EFB7
  892.     DATA &HB0C458AE,&HC337FE4F,&H0CC9499E,&H14C8C0AC,&HE064E3E4,&HF862E7E4,&H41884472,&H066DDF66
  893.     DATA &H60692959,&HC329FD9B,&H599CACFB,&HA7275382,&H016C3B53,&H0CE28802,&H2EDB62F2,&HC2E2BFF7
  894.     DATA &H79F8382F,&HBC5BFC3F,&HACB44D24,&HF71176A9,&H13AABF9E,&H9A583157,&HDAF606CD,&HAF6E1819
  895.     DATA &HFB6861B3,&HC8A18473,&H6EB26EAB,&H481E637F,&HD6167ADF,&HD580DFFF,&H3B070B3C,&HC582FE83
  896.     DATA &H8ECE5C0C,&H2D178F0C,&HD756E060,&HD6006066,&HE9190626,&H3603DAE0,&H1BE9FBEC,&HC2C6ADB0
  897.     DATA &HC7E7F0CE,&H3E010637,&H7FAF863E,&H9BEC317E,&H7D619B3E,&HBCC30E5E,&H4F19FFFF,&HDDD4F6B6
  898.     DATA &HE46D29AB,&HEC1CCA45,&H97B33650,&HADFD21FB,&H4619EC3B,&H291B9818,&HEBF989F3,&H2E5E5E53
  899.     DATA &H9E7E0646,&H1D8E0CFF,&HB8981917,&HFF181965,&H36D603FC,&HFF8C0C8C,&H79BC323F,&H9E61837C
  900.     DATA &H5983326F,&H9F033F90,&HA48338B8,&HA4BD9DB5,&H6A21D3A5,&HDCFF7FD8,&H45B3D74E,&H9818BB1E
  901.     DATA &H337E1854,&H01F866FD,&HFC3E066C,&H05819FF1,&H80FFA914,&H8C1FEFAD,&H6F4AA60C,&H3FC5F819
  902.     DATA &H7FB14B82,&H584C0AC0,&HDA4190C5,&HB4E181A7,&HDBC33EA0,&H1C196FE7,&HC4188DCC,&H38673E3F
  903.     DATA &HF0C52B9C,&H96DAD81D,&H30673230,&H70C49D4C,&HC3017DA1,&H0CE9FEF3,&H79900C7C,&HFFFFFF2D
  904.     DATA &H86116919,&H71440100,&HE4FAF906,&HF9F5D8B1,&H6A4DB20B,&HFF7EEB6B,&H65F0C5FA,&H360642F2
  905.     DATA &HBF0C1991,&H10639DCF,&HDE0CCBD8,&H03D07826,&HFFC8CB58,&HFAEF6067,&HFFF960C7,&H0314B0BF
  906.     DATA &HC9703BC3,&HFC7160B7,&H9CC723B3,&H61FDFE79,&HFAE6E762,&H918FF4CC,&H1FEFE7E9,&H9999FFEC
  907.     DATA &HB7B74B7E,&HB0720A57,&HE47506BF,&H146B03FE,&H81667076,&H37CBC184,&H4444186F,&HF8A61844
  908.     DATA &HBAC833F9,&H030832F9,&HB99B89EB,&HA6A00CB1,&HE6522B15,&H84D06100,&H028D13A0,&H2383B06F
  909.     DATA &H4E6BDA0B,&H066AABCE,&H7418EB76,&HAC18937D,&HFE19CAE2,&H760161FF,&H6D813998,&H3F0C6FD7
  910.     DATA &H36053FDF,&H5C327ECD,&H8189B49A,&H0647D9FF,&H86597939,&H1DCFEFC7,&H139EEE90,&HFD202BCA
  911.     DATA &HD86E1A86,&HE1796953,&HFA0BBED5,&HC0123C2C,&HC31312BE,&H0C8C5FBB,&H01D1817F,&HB20AFA6A
  912.     DATA &HD39062FD,&HEFF0C47C,&H3003232F,&H717032CB,&H31303230,&HF5F867FF,&H0012B401,&H18857988
  913.     DATA &H18257898,&H67FD33FE,&H65F3D310,&H658FB590,&H0016E660,&H3031924D,&H5C30B370,&HE198BD9B
  914.     DATA &HD38F97CF,&H577DBD78,&H1CBB6A2B,&H021845A0,&H9A551004,&H5CAE9F58,&HF87C78D2,&H66769388
  915.     DATA &H4D7DB4D6,&H9915FF69,&HBD7E19D5,&HBAC0CE58,&H3BC32CEF,&HAB863623,&H81817F52,&H3BAC4C00
  916.     DATA &H300832FE,&HBCF7DC39,&H508D5FB4,&HD5EEF9A7,&HBF2C6AAB,&HD7FCB1FF,&HABF77D50,&H7739F3BD
  917.     DATA &H6C033D63,&H67A3DCBB,&HF8D8182F,&H67D61879,&H5FBC3364,&H078188B2,&HAD0DC628,&H6A90382D
  918.     DATA &HE6059010,&H8A692E97,&H18DEEAEA,&HEDE41989,&H8BF25BA3,&H7C1FD5C3,&H7DB14605,&H4D832162
  919.     DATA &HEFC30654,&H7E19EF4F,&HF0CF797D,&H74A3D1E6,&HC7A91E46,&HB7CAE2EC,&HA87C7FBE,&HD6CF66F4
  920.     DATA &HEE600E20,&HD8F175E1,&HBFE46F2C,&HB8EE9A89,&HF9A1A6B2,&H1AC69CC6,&H66073A60,&H66061604
  921.     DATA &H6EE03FA6,&H2318930F,&HFF17F3C3,&H98246419,&H4159D818,&H8580467B,&H867FDB28,&H96A6C0AF
  922.     DATA &H833153A4,&HB0224D8C,&HF0C1C629,&H0627E3F9,&H0651315E,&H805F9F86,&HC30FE889,&H19BFBFFF
  923.     DATA &HE27CBD3E,&H2BDDF5F3,&H929CBFC9,&H104D658F,&H06D40AD3,&HD5440100,&H1BFBFA4E,&H6C9E75E7
  924.     DATA &HE6FCBA35,&H0271303D,&H57F909AB,&H854F0C2C,&HDC1E1998,&HC01A9600,&HBDE1FD6A,&HAFA20C7F
  925.     DATA &H2BF030FE,&HD80CEFC6,&H1F9FC0B8,&H17812532,&H2CB45EDC,&HFEF0FD96,&H9D81FF45,&HD76B3FF1
  926.     DATA &HFCFE7032,&H73536C01,&H0265FC32,&H5AC04696,&H3DA3996A,&H7FDFFF03,&HA3018CF0,&H6F5B0641
  927.     DATA &HE0A5ECDE,&H619DB3E3,&H0E298304,&H0579FF8C,&HFE7E1899,&H1FA0C7FA,&H2A20CD90,&H07F0CDAB
  928.     DATA &H7497D8D8,&HE5E564C9,&HA42943E3,&HC8FB7CBE,&HFFC5C3CE,&H796E5693,&HEB87717A,&H0C5767B7
  929.     DATA &HFD3233FF,&H3AB25015,&H7166A620,&HF8A44176,&HAFEFE637,&H4025A538,&H0CFFA57D,&H0CCC6C8C
  930.     DATA &H18E7E526,&H80D4F998,&H060FDDB5,&H45A0BFC6,&H26196F42,&H78306765,&HB0301667,&H3300F0F3
  931.     DATA &H2B030F17,&HB0A69F3B,&H3E0BED22,&HFAA20080,&H08CED628,&HE97AABB3,&H2772B5A7,&H9B943108
  932.     DATA &HFCB8627F,&H27E19192,&H7FB844B0,&H92831FF3,&HA7030B12,&HA7863FF0,&H08337ECF,&HE87ED3DD
  933.     DATA &HA3B0FAB8,&H2BE09288,&H93F1E160,&HF28D470F,&HFD663C32,&H035BDD8F,&H607FDED8,&HCAA524F8
  934.     DATA &H16E8FCC0,&HE78BCB03,&H92D20A0C,&H95A40F0C,&HBB3FBE18,&HD812B0CF,&HFA06169E,&H80DFDC03
  935.     DATA &H7739F3EA,&H50C25741,&H08C30AFF,&H0CF26B07,&H70797E6F,&HD8118D41,&HEAF4FFF0,&HE778433F
  936.     DATA &H414E0642,&HECEF8601,&HCA62B67C,&HDA06470E,&H5DAE0F7D,&H699ADAD0,&H085B9578,&HF9FE80D8
  937.     DATA &H7FA4219F,&HB4B70333,&HC48FB031,&H0FF8C0C6,&H0EFE32D4,&HC00FD48C,&HC33F5AA6,&H1917938F
  938.     DATA &H19E45524,&H637DFF58,&H366C6890,&HBE355310,&H01F76B48,&H27551004,&HDC9C5F0A,&H786C20EB
  939.     DATA &H52F2EB5A,&H8B3C8646,&HDF770C8F,&HF7F867FC,&HDEE19195,&H8A0CFF9D,&HA20C4C0A,&H7E197F92
  940.     DATA &H7F36057E,&H18195978,&H3F955DCF,&H6F742CA6,&H97F0BF37,&HA74ED643,&H60BE1CAE,&H41819CF5
  941.     DATA &H207FF9E8,&H5FA103FE,&H7C083032,&H8039B2DB,&H40399801,&H9F39457B,&H09F866DD,&H8A0A9F6C
  942.     DATA &HE3ED824B,&HDC073F98,&HF601B349,&H1A9D404D,&H8D2AFAD0,&H14F29EDE,&H92839F60,&HFBFAF1CC
  943.     DATA &H7F9FDE7B,&H6BE1C786,&HAF229292,&H623B017E,&H7FED817F,&H68D02E0E,&H5E062BEE,&H4B862F2D
  944.     DATA &HBF78F6FB,&H3752DE38,&HD053EED0,&H06F6B832,&H811F7118,&HA707E4E9,&HBCB70300,&H1CF16801
  945.     DATA &H7500E6B0,&H7C305FDC,&HE7CE7479,&HA9E3A9D9,&HC9D67ECA,&H9B0AF2BC,&H63FEBF78,&H5E151760
  946.     DATA &H7BCFF7F5,&H0FB87A41,&H5EA88020,&H0FAF6C83,&HE7FDFF5F,&H777B9B29,&HFBFC881F,&H0DF0CAC1
  947.     DATA &H4A482A58,&H0CFB0231,&H80F819FF,&H601BFBC5,&HEC0CFF02,&HF82D09A4,&HB027EE0D,&HA7283140
  948.     DATA &H32B330B2,&H31C44508,&H02981A70,&H9818FFF9,&HD818BBFA,&HE0603D9E,&H60006602,&H45DC13CB
  949.     DATA &H9B33DEFF,&H85372F81,&H56D80641,&HB91407FD,&H403DAC06,&H4E4EE499,&H406E8336,&H175FC320
  950.     DATA &H779E0617,&H0478B8EF,&HEF9AC905,&H93F5F078,&H7C0FB2C4,&H9F7F2229,&H93934ABE,&H3394359E
  951.     DATA &HFEE9C9C7,&HDC3E783B,&HF4F7B8D1,&HDB0B3CBE,&H604E0677,&HBA2BF200,&H913C7031,&H7ABF7866
  952.     DATA &HA178833E,&HA4C567F4,&H5C4C0A53,&HD206EF52,&H6D4B1B9D,&H7B3A3DCE,&HB01BF0D4,&H72DD2C14
  953.     DATA &HA7CFE18D,&H1E6F0CB7,&HFCF863DE,&H80B66BE9,&H7101D59A,&H206BFD55,&H1EEEAF75,&HF4FEFF31
  954.     DATA &H84BB0A81,&H350943CC,&H007ED4FA,&HC5B34401,&H66A7FB8A,&H6A76BECD,&H37070A7A,&H01FC9330
  955.     DATA &H67FF5F8D,&HCFF964E0,&H2335EEF0,&H2CFF87C3,&H7FF3C20C,&H81618620,&H018D9D09,&H0AC7A932
  956.     DATA &H2796A0C5,&H098E580F,&H6063A9D8,&H05B26D00,&H86DF9A65,&HE7620C96,&H41C8318E,&H6BB7539B
  957.     DATA &H2E7E185B,&HE5F0C85E,&H50061DE1,&H5745F2BD,&H2334419F,&HF77580B9,&H857FF77E,&H76C26D79
  958.     DATA &HFBE407C4,&HAF399FBF,&H77A47BBD,&H13C7CFF3,&H660C2CF6,&HD4FCFF47,&H4974C1F8,&HBF3C4D24
  959.     DATA &H6F8FF1FF,&HFE7FCF62,&HE7E33696,&H91FEFAA7,&H2A6EAFDF,&H58F67BFE,&HCB233FFE,&H9919161F
  960.     DATA &HA8C22C87,&H80E4C5B3,&H71DEBFFF,&H77685D3E,&H4AC95D9D,&H6CFA7AFE,&H0CD7E606,&HEAE9220C
  961.     DATA &H37DD8C0C,&H300BFE19,&H2FBFA830,&HEBBB7864,&HB76159F4,&H9D0326C3,&H6D2F4F91,&HB4BCBBAD
  962.     DATA &H9D9591A6,&HE7F3E191,&HE1A60CFF,&HCA120C79,&H121C0C5A,&H5AA2F6AA,&H267219D4,&H10040017
  963.     DATA &HDFBB96CD,&HC534B33D,&H218187DF,&H033FE3C0,&HC3133F2F,&H19FFCD87,&H61655C3E,&HCCCAC7F8
  964.     DATA &HED4C0AC0,&H1898D9BF,&H195EC630,&H48093521,&H36019F9C,&H818FF7D1,&H063FDFE7,&H0C2D2041
  965.     DATA &H7F3F1594,&HB02FE19C,&HC6C878D6,&H8D84F0CE,&H35344195,&HC1E74199,&H7576066D,&HE2A6701D
  966.     DATA &HE1917CBD,&H04DE765F,&H3DEB0DA6,&H0F1DEDD9,&H7B8CBDBF,&HDBD5F32F,&HAFD6D42F,&HF0C214BE
  967.     DATA &HC31891E3,&H6ADC37E7,&H55BEF953,&HF139D63C,&H867AF5E7,&HA751679A,&H2FF1BE44,&HB930C4DA
  968.     DATA &HA6C3E9A2,&HAF1CC7C6,&H39F895E5,&H60672D6E,&HF846A488,&HD8D49C7C,&HF58C48FC,&HFC06B03F
  969.     DATA &HE35C5F7A,&HD7431DCA,&H1C0C77AD,&H5116DE77,&H9185747D,&H5E6DFFF1,&H13CFFFC6,&HDD7C77FD
  970.     DATA &HAC842AB3,&HE84D8F92,&HE54657FB,&HDB72A21B,&H813D9819,&H981EA399,&H1862BA29,&H02EBB7D8
  971.     DATA &H867FC733,&H333E9B3B,&H65741970,&HF03B7DBE,&H9A2ABD47,&H01FE6DB9,&H9919EFAC,&HD1801898
  972.     DATA &HD1FEF0CA,&H69610665,&HFF6C6005,&H6973BF62,&HBA40F397,&H6880200D,&H4E2C8356,&HE4EFFC64
  973.     DATA &H325B6A05,&H02DC1C31,&H038E23AC,&H7FE6066B,&H1945EF0C,&H02E9FE18,&H8CE38C6B,&H7EB7820C
  974.     DATA &H2C20D4A3,&H0D83DAD0,&HE902334E,&H18A6F0FF,&H9B0D121B,&HF37BF8EF,&H9AAF032E,&H0779C312
  975.     DATA &H07FF8657,&H108F80F7,&H4273C902,&H70BF7E87,&H068831B0,&HFBFADD68,&HFFFC89E2,&H19D86F2B
  976.     DATA &HF89640DF,&H87FAECC2,&H6487B1D4,&H7A4BDC4F,&H403F3240,&H124A0A23,&H5454195F,&HA86AB06E
  977.     DATA &H35D660DE,&HA3AACD3C,&H50C99E7D,&H13133CE7,&HBF0B53FE,&HFD1A5D6F,&HB704C279,&H84CE7B0F
  978.     DATA &H6FEBDAF0,&H5D292BE7,&HB2E6E5C6,&HFC4D9187,&H07C54413,&HAFD79FB6,&H723F7D69,&HA6D3EACC
  979.     DATA &HB75FFE4D,&HCD01B61C,&H886300E3,&HEB4ADF8B,&H664E60A1,&HCE647F2F,&HFFC26264,&H199991D1
  980.     DATA &H2657373C,&HD877DCEC,&HD812525C,&HC6C4BD44,&H2BFEF720,&HC0BBB7C3,&HDE6C0884,&H30B3B2B3
  981.     DATA &H3249AAB0,&HBB1350FC,&HB56335A1,&HE290B30B,&H41AB01D3,&H782DA416,&HFC596FBA,&H195F8FEB
  982.     DATA &H2BE18138,&H3B88EC03,&HF8603C74,&HC30AF3FF,&H865D2F5A,&H34976D90,&H6607D819,&H80201EA8
  983.     DATA &H96419668,&H77FE3126,&H386263F6,&HE1859A75,&HDF505BD5,&H9FC30FE3,&H009AC06B,&H09ADDE34
  984.     DATA &H2AC0C44C,&H3004F642,&H23008B91,&H41AA980B,&H5DE0ABB3,&HF624A0EC,&H5EBC019E,&HBFB03FFD
  985.     DATA &H3ADA07F2,&H31FC4C86,&H3FC83341,&HFB120D30,&H0305F8FF,&HC3388CAF,&H867F4F29,&H81363B7F
  986.     DATA &HA0397987,&H024CA072,&HCB21F7DA,&H04309900,&H0232174D,&H96AC179B,&H35FB0C72,&H95181833
  987.     DATA &H82DC190D,&H55B41845,&H1EC432BE,&H72D0C19F,&H1A83056F,&HA54332A7,&H978625C3,&H2C31B7EF
  988.     DATA &H2862CC14,&HE18CB1F8,&H86713FFB,&H3197EF27,&H99B77F5C,&H2D89EDC1,&HAF873243,&HB73BD7E3
  989.     DATA &H3F5EFED4,&HE6F7FC67,&H57DFA53D,&H7EFC182F,&H3FEB95FA,&HB0333124,&H31727188,&HFE7E0B0B
  990.     DATA &HF7F4C2CF,&H024FBBEF,&H027E9FBF,&H381932B5,&H73CF140C,&H12AFA767,&H449F2948,&H7AFE386C
  991.     DATA &HC3EB4670,&H1FF1459C,&HF9CE4E26,&H499C05FA,&H4555F8B9,&H0267F27F,&HD0444B33,&H48493652
  992.     DATA &HB0651CFB,&H3FF19B84,&HCFC8824B,&HECBCCCD7,&H67DED79F,&HC8C67E60,&HB9AC02C0,&H61FD28FF
  993.     DATA &H6212D360,&H60087210,&H63D051E0,&H980EF7F8,&H641F8E61,&H176B3178,&H2738B083,&H159AE883
  994.     DATA &H7E36DC3E,&H0099E95B,&H6DACBEFF,&H52D4E95F,&HCB2BEBA1,&H13CDE2F0,&HFFCF7F86,&H607D3033
  995.     DATA &HC57E1064,&HA13D8E05,&HD9064D02,&HCC2E89B0,&H7203AEA2,&H00401014,&H7C8324D1,&H7399FF7F
  996.     DATA &H37DF3E7E,&H81476065,&H91EED80D,&HE40E7601,&H56898114,&H41819753,&H843B981C,&H80990740
  997.     DATA &HAB02E016,&H9B177013,&H06F4A91B,&H007D578D,&H7C337D8F,&HED8C07BD,&H6FFF0CCB,&HB2F8621C
  998.     DATA &HB7C313E7,&HFC12C083,&HF130233C,&H20D787FF,&H32DFAF0C,&H310888F0,&H660BF51C,&H1D79B9F8
  999.     DATA &HE6C05338,&HFC414042,&H4197CFCB,&H8626E37D,&H33669B5F,&H83B5DDFC,&HF5FAFFE1,&H419F7F0C
  1000.     DATA &H06EC3BFA,&HC9CC0C62,&H4B850C51,&H4C9619FD,&HF378660F,&HA9431DF4,&H7B865ECE,&HAC33F74F
  1001.     DATA &H20C2D7BD,&H219789FD,&H418E3E43,&H833EF042,&HC330BB2A,&H198B53FD,&H19258504,&H5897DDFC
  1002.     DATA &H9D3BF032,&H7CCB5AC0,&HF7F22C7F,&H7FB12BE1,&HFCC89FAF,&H8587FBFB,&H19EA4845,&H3DE2B6B3
  1003.     DATA &H4F896626,&H5FA62714,&HCC3EF92F,&H71F2939E,&H0FC4FCFE,&H412AEF67,&H8F172433,&H5E57C4AA
  1004.     DATA &H0C03EB53,&H99576A06,&H33192E44,&HFCE5DFCC,&HE1904796,&H0C57F6FD,&HC0CCD6EC,&HC3231B7E
  1005.     DATA &H0CBFCE77,&H1899FFAC,&H19D959B8,&H18ED1524,&H19EB3CB8,&H1954C5F8,&H673E7E98,&H61F38AA8
  1006.     DATA &H66AFCA48,&HFFD499E0,&H8799FBF8,&HB65B92B2,&HD9E8735B,&H0247A31D,&HB0F8F4FC,&H89CFDF15
  1007.     DATA &HBA5E3F47,&HF82A70C6,&HD9DD833A,&H5B1F862C,&H7CFC30B6,&HC3F0CC64,&H98830CE3,&H0F8673E0
  1008.     DATA &H25240F2A,&H0C5FA5E4,&H08010644,&H90649A20,&H194E77B7,&H3F332C32,&H6C0D6C27,&H01641B3E
  1009.     DATA &H520250A3,&H08BFBC15,&HF0CCBC94,&H863DC9F3,&H311F4FAF,&H96F37F7C,&H6067DBE1,&H17FDFF7D
  1010.     DATA &HD41DA678,&H60E160F9,&HE1E0E064,&H1310E063,&H5453E066,&HD0556063,&H7B2A6606,&H10DF2F60
  1011.     DATA &H63EF23D8,&HCFD39778,&H623773F0,&HBBC7F052,&H82C20C2F,&H7DFB0CDC,&H6DBE19FD,&H0BC0C4D9
  1012.     DATA &H810BDCED,&H82585F02,&H73CDF941,&H1901A670,&H9030EFFF,&HC5660610,&H9E181F87,&HB0CE5CAD
  1013.     DATA &H8626C369,&H3A60215C,&HEC01FFBF,&H40521BEE,&H18CAA3FB,&H18FA24CA,&H61FDA99E,&H8B8DF758
  1014.     DATA &H03D74A41,&H6000FEE8,&H6866026E,&HE938D066,&H87DF860F,&H3C312E52,&H5AC2A3BC,&HF6407FF9
  1015.     DATA &HE333C349,&HDF6207AB,&HF97F9F4E,&H8604CD78,&H822FCF1F,&HDA7EE557,&H458186FA,&H86418D92
  1016.     DATA &H1FC32FEF,&H27862667,&HFE19BF5C,&H5051AB01,&H317372F8,&H02B33031,&H4E165F6B,&H5F395E06
  1017.     DATA &H5AE0D906,&HDF7FD606,&H44946619,&H7D38BC33,&H4782219B,&HA60FE1EB,&HCF02D297,&H077CB2DE
  1018.     DATA &H887EB836,&H6330CE42,&HC0C2C9FA,&HC0CEC5C4,&H93F5C7C2,&H15F84445,&H33E498AB,&H37A11116
  1019.     DATA &H2C20626C,&H5C4D98FD,&HB88B31F2,&H290E2BC8,&H925CC7E9,&HF899F7B2,&H7B151F88,&HF8BFB9B4
  1020.     DATA &H9ECAADE7,&H30FF6F57,&HC4C4FA7C,&HCE2092E0,&H13D4F4F0,&H93FF2106,&H65997F0C,&H7C7F1819
  1021.     DATA &H76FC6064,&HCB5F87DB,&H8440EB77,&H5E004031,&HC19426AD,&HB6FF8E30,&HCEF0DB57,&H6F0C9446
  1022.     DATA &H038F946C,&H075F23E5,&H29391135,&H5C45C2E5,&HE0E47C5C,&HE241C530,&H52928384,&HCAB9448E
  1023.     DATA &H51725292,&H8B31F30A,&HDEF9DE19,&H6EF6EF66,&HB2FFE6EF,&H7872B8B8,&HF3DBFF2E,&HFF5F7FFC
  1024.     DATA &H84FE79E7,&H22BCD220,&H12DF74CA,&HBF7066F0,&H359B093A,&H9A8CFE0A,&HFC262544,&H4C6CECA5
  1025.     DATA &H19F835E1,&H428B11CC,&HC553F2F2,&H3728FA43,&HAEA04228,&H773341A2,&HDFA10EC9,&HBE2CEF08
  1026.     DATA &H95E5D4A3,&H44D9690F,&HA85ACA90,&H893F77F7,&H63D66970,&HE715E470,&H11304FF5,&H861DE455
  1027.     DATA &H2C78EF6C,&H6FB68698,&H0B4E1A00,&HE5BE4527,&H850D0F03,&H83598C51,&H036B1A18,&H62510427
  1028.     DATA &H75BA5095,&HFF248088,&HD4874806,&H6E9C4668,&H87961113,&H16E00EFB,&H182D505C,&HBF9E8AFC
  1029.     DATA &H7DE88725,&H5121C360,&HF8629095,&HB6CF6C15,&H6EF0730D,&HB2BDDEBB,&HF0EE2231,&HA0F91CF0
  1030.     DATA &H684EC722,&H2A64C062,&H7044B3E1,&H679C074B,&H28DF9021,&H2256BF60,&H24843327,&H92BBDBF9
  1031.     DATA &H64B8BAE6,&H1816D5B0,&HDE306B8A,&H592D0151,&H4EDCEB6A,&HDD515E4D,&H5E4873A7,&H4B43EA57
  1032.     DATA &H76D85EF3,&H0D4FD468,&H4BD5DD43,&HA08498EE,&HFB010AE3,&H1BA74409,&HD13A1201,&HC5DF84E9
  1033.     DATA &HC29C7043,&H4423C24F,&H99206EBF,&H6FCB8B98,&HACDCEA2F,&HB3873657,&HC7F94C6B,&H11CE4689
  1034.     DATA &HD03E2A6F,&H7A3CA615,&H23160687,&H8BB7DAED,&HE172D3DD,&HA5528785,&H46A598A0,&HC34014BC
  1035.     DATA &H33123AC4,&H83A6A8CA,&HAC98DC24,&H0D9D2B6B,&HFFD196DD,&H0087C826,&HF9067AA2,&H2194EAF7
  1036.     DATA &HD68EB5D3,&H3CB8BBD3,&H652FB42F,&H74260650,&H9512602D,&H60635790,&H310B7878,&HB64A055C
  1037.     DATA &HFF973DA0,&H0B8A7471,&H2618180A,&H2E86004C,&HF3F521B0,&H6052C327,&HFB7D1EE9,&H05BFC330
  1038.     DATA &HB2070CB6,&H9EC98119,&HECE64183,&H3D61067D,&H40378671,&HBE9E7E23,&H51D9B0CC,&HA2FBA18F
  1039.     DATA &HCD3DC32A,&H7FB70C5B,&HFA7066DC,&H58F0C8EE,&HD46409F0,&HC30AE2A8,&HE06DCEA7,&H1605B0D1
  1040.     DATA &H27B90CAE,&HF8EEA118,&H31AA6C0B,&H8328B103,&H864FE57E,&H0CC6E64D,&H5AC0FE02,&HC33B51E5
  1041.     DATA &H0C4598CE,&H1819677C,&HFDB180D4,&HB00B2FE3,&HF0C3F8F2,&H54D4099B,&HE9C37EE4,&HC388BB11
  1042.     DATA &HBB22E0D0,&H7629E999,&H07782365,&H8F97F3F2,&H6ECECF6C,&HFE666008,&HA4C4C5CA,&HCAC9477A
  1043.     DATA &HFAF1EC95,&H5F8CF1ED,&HD6822CC5,&HCFA7D949,&H3B72D494,&H33E197F2,&H989695CB,&H6CF6BFC5
  1044.     DATA &HE976FBF6,&HF7D7C33F,&H52BC5C0C,&H3A8C0CCC,&HF4C19AC0,&H1C40682F,&H3B02FF08,&H770C8C29
  1045.     DATA &HBC323296,&H4197F8BB,&HCF281125,&HFAE18FFB,&HBF0C7F83,&H683033BF,&H083130A8,&HF867FC0A
  1046.     DATA &H833FF3F5,&HC33AB080,&H86168B37,&H0CA1CDC3,&HE13EC03C,&H95E1603F,&H617505BC,&HF70FDFE7
  1047.     DATA &HA526DFA4,&H7EBAFAAD,&HAE9715AF,&H8CEE3BFC,&HD0EE216C,&H51460660,&HFF6EBC25,&H7F266C03
  1048.     DATA &HE18CFFBB,&H0C2B8DF3,&H64DFAFDF,&H06FD78F8,&HE72B87C3,&HBC5E3E19,&HE807F0CE,&H603D7B0E
  1049.     DATA &HEC04BA06,&H31F13A0F,&HC4FD915C,&H94B03A00,&H40249819,&H0D4042FB,&H5F532D60,&H52C74E06
  1050.     DATA &H0D515E06,&HEF9F7F86,&HDC9EAC30,&HA83F5BB2,&HD8C35AA2,&H333D34EA,&HDE004008,&H8A25EFAE
  1051.     DATA &H7B9E8C28,&H67669DC7,&H4949D4D9,&H32B5DD2B,&H0C312159,&H30888412,&H07E8B6C8,&H20442092
  1052.     DATA &H3D050B25,&H2F4422F4,&H83D12586,&H10B5B941,&HF6D463D5,&HDEA9328B,&H5828B0D6,&H64235C33
  1053.     DATA &H4A334CA9,&H99D9CD77,&HFA676A71,&H7AC7B676,&HEF81FE8B,&HCF7BBE5E,&HDCB9CEF9,&H0E7FDEEF
  1054.     DATA &H6CE47B10,&H99FF1417,&HAC7695E4,&H5E1A26E9,&HC0E7E222,&HB90AB220,&H0C9060E3,&H5D8767E3
  1055.     DATA &H3686DFAC,&H8B46170F,&HEFEC3B6B,&HB9B07D7C,&HC3A1C209,&H49862EB0,&HE05178D5,&H571B8D5F
  1056.     DATA &H78FB6823,&H87B8981A,&H605F5BC7,&H46B9B12F,&H2A61A9DA,&H186F9880,&H2A214F6E,&H5F4433CF
  1057.     DATA &H7087C16D,&H71A9D427,&H89B92FDC,&HA421B3DB,&H4DBFDA05,&H797FA07B,&H03F6728B,&HA389DECC
  1058.     DATA &H3B680B65,&HA58D0EB0,&HCD8CEE36,&H3775FF63,&HB1EA865E,&HEC00DCF1,&HF64441D8,&HCEBB628D
  1059.     DATA &HCA6673E1,&HC1B2EF60,&H3D865DAE,&HD7309BD4,&H9E316A3F,&HE236693D,&H68C60DF1,&H8B1B5162
  1060.     DATA &HD17C0AB7,&HCC62AF03,&HEE29CC4C,&HE89D6400,&H2D055C53,&H53702545,&H614B60CF,&H49826D75
  1061.     DATA &H7FCB932E,&H316922F3,&H39B26AAB,&HA7322E97,&H27BFFBDF,&H45DF2B27,&H09236142,&H66829B39
  1062.     DATA &H2B4AF9A9,&HAAEC872D,&H45AA1062,&H01A31F70,&H7CF0140C,&H1AAE5883,&HE738CCE6,&H47371604
  1063.     DATA &HD2C704EC,&HDB2B0B52,&H7A94782D,&H788DC518,&H6A12EB7D,&H9EBC0203,&H598A4C2C,&H5624E3B1
  1064.     DATA &HDDC6EEEC,&HF9F0128E,&HC783F859,&HFA3A1BFA,&H8669FC8E,&H53A46899,&HA5D0BBEF,&H5E71BD0F
  1065.     DATA &H08C894A7,&HE16B750A,&H2F03A9AA,&H78A6065F,&H9C6909C1,&H29F08EE5,&H840C996F,&HEA5D4205
  1066.     DATA &H1269F01B,&HC92BFA7C,&H275CF1E4,&H3D4F1397,&H21E9035E,&HE48202A9,&HAFCA36F0,&HE25B8596
  1067.     DATA &HA28582E0,&H158832E2,&HED6AA8CD,&H60CEA581,&H4403E9E4,&HF7A14FFB,&H99BDFFF9,&H5E004BFD
  1068.     DATA &H89B420AE,&HDDBE8A20,&H96C9B24D,&H5426E252,&H6C51A2AB,&HB52A216B,&H22A0F018,&H21151B01
  1069.     DATA &H188A8094,&HA4F0545B,&H288BD2A2,&H478A0F52,&H1695820F,&H8A4DE0B4,&HD4150888,&H31B5141A
  1070.     DATA &H542B14A1,&H9A686C5B,&H31A51AB6,&H766EECDB,&HF58DBFC6,&HCC3C4DE6,&HE67F4E65,&HFDFF7BCF
  1071.     DATA &H9FE7F33F,&HFAE0A73F,&H9A171F77,&HAAD1BEB1,&H4D50167C,&H5F97669B,&H93D2254A,&H3D2A961A
  1072.     DATA &H57C1554C,&H1D1F04AF,&H2B374385,&H237EAB12,&HA438F1D8,&H3320619D,&H2CE67E0E,&H04063070
  1073.     DATA &HEC929583,&H6B10A7C7,&HE1E7715A,&HD694681B,&H610EA7B4,&HD431DD5F,&H9F45ADBE,&HE42D023F
  1074.     DATA &H0089D4C1,&HB187D362,&HA90F9965,&H62C45BEA,&HF8ACA117,&H0D999982,&HF4243D14,&H49AC2449
  1075.     DATA &HDDCCDD1D,&H2F606945,&H44212216,&HC65EBA88,&H74E5A06E,&H37472294,&H7186DBBA,&HDF66BC94
  1076.     DATA &H83F8573C,&HBF776BC0,&H9840773B,&H0390EABF,&H7A34930D,&H59FC8E6A,&HBDE4F9F6,&HF1852BCE
  1077.     DATA &H975DA5C4,&H29B98107,&H60D3A7CC,&H67C282F9,&HB68C9167,&H6D37F0BE,&H3C80ECFE,&H83A7E7A8
  1078.     DATA &H59F3417C,&H9666E986,&HC898B2E9,&HC83028B8,&H6590434E,&H975BD3AF,&HBCDE7D11,&H36796AB2
  1079.     DATA &HAEBAED10,&H729E4A7B,&HBCCCE595,&H4DCE76BA,&HF4B6E3A0,&HFB2CA323,&H011CD18F,&HF7165642
  1080.     DATA &HECB44ED5,&H4526E367,&H935FBB64,&H336A0C9B,&HA07BC8C3,&H8D0A7425,&H38A02E07,&HD31201F1
  1081.     DATA &H17BF7431,&H02049B4D,&H7F44C716,&H2770D417,&H2842EBFC,&HB7C63F0C,&HBFEEC4B1,&HEDAAB6F9
  1082.     DATA &H2C7B6DE4,&H631F852A,&H67818C6B,&H86EFCA7B,&H2A74B3B6,&H809E246E,&H97184967,&H7E96402B
  1083.     DATA &HA97D2E1F,&HA1C94E8C,&H3D4CD2A0,&H8DCFA511,&H8C1C8EAF,&HB3304FFE,&H22E2E602,&HD1465E14
  1084.     DATA &HDFB22226,&H8AD08B25,&HCFB2B839,&H01FAF931,&H530B6ED6,&H8109FEF4,&HA3E4A972,&HFBAD8EDE
  1085.     DATA &H17FE7BDB,&H20097E40,&H6720D7EA,&H09FE6ADB,&H9D3334E9,&H19F867F2,&HBF9C0901,&HFF0C7C02
  1086.     DATA &H07027C3F,&HD12C031C,&H3033B4B5,&HDB01F806,&HFE195B11,&H30327477,&H290B7DBD,&H19C343AB
  1087.     DATA &H335AD9FE,&H82E6E7B0,&H2AAB7FF9,&HDF6E9818,&H66BAB867,&HB0170315,&HB96B535C,&H8B7B30C2
  1088.     DATA &H301A430E,&HB737EE71,&H0C387065,&H66FF904C,&HB0BCCC31,&HFBE9A19D,&HC267860E,&H2E45803F
  1089.     DATA &HB0864303,&HBBF3030B,&H5C5D0C7B,&H7D3E183F,&H7FF86661,&H3F818A4E,&H93419935,&HFAC19B55
  1090.     DATA &H098647FF,&H7C33EE7F,&HD6043606,&HD6011C33,&HB90C7C5C,&H3032E633,&HD8613FA4,&HA0C328E7
  1091.     DATA &H41898078,&H1FFB680E,&HA65499A4,&HA814C00D,&HF1819F35,&H2642BDF3,&HE809CAA3,&HC5AF9EFE
  1092.     DATA &HDAF135F8,&HC836F07F,&H0C2679ED,&H659D2F6F,&H560595E0,&H180F3D5C,&HC65E1D9E,&HCBEBFFF0
  1093.     DATA &HD8F1FA69,&H6042664B,&H7FFF2076,&H0C4F9145,&H9B12A0AC,&HE62BB205,&H86463FDF,&HF980BF5F
  1094.     DATA &HC858178A,&HBFE19300,&H72C06FEF,&H5FECB1A0,&HFC31FFDF,&H7AB18603,&H0CC31E74,&HE6C049E7
  1095.     DATA &HE7832F0A,&HEF0C99F4,&H10617C3F,&H7864F3D3,&HC31AE776,&H6077028E,&H05C48126,&HC3308733
  1096.     DATA &H196F37A7,&H36EB017E,&H042F45CF,&H3FC444F9,&HABB6EB10,&HE46BDBDB,&H799B2B3C,&H0C579A51
  1097.     DATA &H9F1EAF0C,&H7B71F860,&HCBC30327,&H6C5C0C53,&H4731E08C,&H18FFBFC6,&HCBB8BEDE,&H75F9E1F0
  1098.     DATA &H60764606,&H66667D24,&H87F7DAB8,&H89978F81,&H8592B541,&HFF85DAE1,&HFCFFFF0C,&H03915061
  1099.     DATA &H9B00D40D,&H25DCC084,&H20CDA828,&H6188BB15,&HC3378971,&H182F8F9F,&HF2C502FE,&H16AFD1F6
  1100.     DATA &HCBC00801,&H154484F9,&HF7FC6145,&H396338DE,&H671269CF,&H4CB1CA68,&H43242350,&H4E568288
  1101.     DATA &HB45BC445,&HDC422A11,&HB8492058,&HB8216A0A,&H4A082208,&H6D085AA2,&HFB0902A3,&H59110C43
  1102.     DATA &H6692B468,&H8D33FA6C,&HE4238D3A,&H543E38E0,&H75E66F7A,&H5DAAE4DE,&H5DEEAD11,&HDF397BDE
  1103.     DATA &H9CEF9DF7,&H9DF7FDC3,&H633C2D74,&HF0D7892F,&HF0DC53D5,&HE56B68AB,&H70D5650B,&H19F9CE1E
  1104.     DATA &HB1050AD3,&H05711B9B,&H3E6811C4,&HB587012C,&H1332695E,&H9D745453,&H9AF37AC2,&HE01F0F1F
  1105.     DATA &H494CBC1A,&H58934A3F,&HD3A8C9BE,&HC9E830DC,&H549D74A8,&H8C6E7339,&H946E97AA,&H3F396717
  1106.     DATA &HB29CC23F,&HC1D980C6,&HC4CEA0C5,&HD6AE47E2,&HA99D257D,&H60ADE7C4,&H54826753,&H73091BE0
  1107.     DATA &H20F89717,&H0B4931E7,&HA0EC6B71,&HE9253DBD,&HC7C510DF,&HA2D211C7,&H116919C1,&HAFD75AA0
  1108.     DATA &H49DD6E61,&H290255B1,&HBA9C882C,&HE96D44F3,&H95FBFBBE,&HCD77DC8D,&HF705FEBF,&H4936EEFD
  1109.     DATA &HC3F8D22B,&HFD88AC35,&H27ED0F89,&HFC93A7B8,&HEABFD1BB,&H9E272788,&H858BAA47,&H7B7315B2
  1110.     DATA &H671E3C54,&HB6560A75,&H8CD615EC,&HAB4D6A2C,&H75635C53,&H5B3166C5,&HA74DB6A2,&H2D9C4AE3
  1111.     DATA &HEDF6272D,&H6365E63D,&HD574B6FD,&H18DDDD6E,&H03AA51E9,&H381F3475,&H7347E9C2,&HF99D64CC
  1112.     DATA &H73E68737,&H4BFACA92,&H43A78787,&HB28E027F,&H455EC492,&H88521D9E,&HDD8885F6,&HCBE640BB
  1113.     DATA &H7537B324,&HF8FDA33C,&H1AF1C7A7,&H2CC9CB26,&H88C76FB3,&H27C84745,&H322953DF,&HDBB515E8
  1114.     DATA &HDB95161C,&HACB0A6EE,&HA9B27C60,&H96164CD5,&H4B9FE26C,&H6A921AAC,&HE6E67449,&HDE9EA4E3
  1115.     DATA &H30EF60E0,&HE14A112E,&HF76FC65A,&H005FFADD,&HA88029F9,&HEDA4419F,&HD93D3376,&HB0AFE07B
  1116.     DATA &H657FC33D,&H280688C8,&H5680FC93,&HE7FC20B7,&H1F862BF9,&H3F0CF9B9,&HF864CDA6,&H383E60B1
  1117.     DATA &HAA84FC63,&H8B3D9D61,&H2D4577E1,&HBB5D8FC3,&HCC4C5819,&HF807BE18,&H48497C32,&H13966062
  1118.     DATA &H137DF867,&H02D68198,&H11D659D3,&HC027D686,&H076683E6,&H768747C3,&H8C8FFE06,&H65813F0C
  1119.     DATA &H70B912F7,&H78E30686,&H1B166A86,&HFFDFA386,&H03F62D82,&HE506AB6D,&H0C3CB7BE,&H001CA64F
  1120.     DATA &H30DEB336,&HA94B0228,&H0C6C8CBF,&H015E19CF,&H5066FC95,&HC0C7DA73,&H70CFE320,&H0619D264
  1121.     DATA &HE55CE80B,&H062B1B1F,&H867CBCF6,&H606E0EDF,&H0749307F,&H7E7FFC33,&H5ED80ED0,&HBF4048C3
  1122.     DATA &HE1E67FBE,&H7AE49513,&H0334E57C,&H0C8BF3EF,&H0CAE1A3C,&H454B401C,&H3818ACAD,&H3E183585
  1123.     DATA &HC0C63BDD,&H9677A32D,&HBEBCE09C,&H10A95A7D,&H899A6868,&HCB443211,&H4020CA0A,&H607FCB36
  1124.     DATA &H9DD81F5B,&HC6259D05,&H07F0C4AD,&HD8987898,&H1AEC18B8,&H7AA833D7,&H3FDF5A97,&HEDF32877
  1125.     DATA &H213F9667,&H0630BF5B,&HC72EB9AD,&H67FBC1C1,&H29799CCE,&H665C2E17,&H1CF577B8,&H87BCF3B0
  1126.     DATA &H90405381,&H6247D401,&HC6750662,&H4909303F,&HD73C93CA,&HDDBA5BA0,&HA4AB3AD1,&H74B03FFF
  1127.     DATA &H01707D7F,&H2165E7C3,&H5D5E5F0C,&HF773B865,&H93B9C30E,&H1ECE187B,&HEF70CDDB,&H0F8639C6
  1128.     DATA &HB0335EEF,&HDD033073,&H765E00CD,&H7FEFF7FA,&H26C0AF86,&H3FF47CA2,&H979789F0,&H5066FF36
  1129.     DATA &HC867F172,&H818C705A,&HE180CE47,&H266035CA,&H326A06F9,&HECE3E302,&H23450642,&H25C0864B
  1130.     DATA &H5D801877,&H1B07862B,&H2BD064A6,&H10040083,&H7F79864D,&HCFFC60CF,&HE18EB7E2,&HC310417B
  1131.     DATA &H6690D5A7,&HD8C47FCA,&H8639A215,&H01FF4396,&HB00B0113,&H4C5FF06D,&H1B3FE19C,&H8CF7033B
  1132.     DATA &H7D5F0CA9,&HF939E17C,&H25DC9037,&HFE218FF9,&HFFC3274C,&H8C0CCC77,&H6D812B57,&HCD066682
  1133.     DATA &HB818D313,&HCE193824,&HFC30B5EA,&H5814F0F8,&H7030F6EC,&H9D7B3B00,&H54327F9F,&HB864BD18
  1134.     DATA &H41925570,&H9D58139F,&H3862BE49,&HA0C25963,&H58145D74,&H6C31B047,&H00CD3864,&H024C769A
  1135.     DATA &HDA0C6C96,&H148B0C75,&H7E8218D2,&H40BFDB02,&H5E1E6659,&H10D0E606,&HB7CBDF86,&HBC57F032
  1136.     DATA &H05CA6062,&H7197DDAA,&H8CE43984,&HFAF7462D,&HF3A91DF1,&HB29EC313,&HF8657F33,&HC33BF1FD
  1137.     DATA &H198F6787,&H31A613E4,&H66FFF3F0,&H65769560,&HC5AF1E38,&H25E5B6E0,&H17193F1F,&HE50A2E68
  1138.     DATA &HFC272FF9,&HD81D8195,&H1CD50221,&HE08CEC6C,&HFD7E5D53,&H3ADE0FFA,&HC7A621C0,&H875B89F0
  1139.     DATA &H97925E41,&H4B25D141,&H33D5F1F3,&H66F21C56,&H7495C447,&H539B216E,&HDAD4D4DF,&H8AA137DD
  1140.     DATA &H21824043,&H833AEA4B,&H34B00CA9,&HF8605096,&H0301E3F3,&HDC31AF30,&H90C4C77F,&H592FF6B0
  1141.     DATA &HEF0F974D,&H7D7C0A5E,&H776A42FB,&H2955C191,&H0615D031,&H1843E00C,&H7FEFF840,&H970C1CC8
  1142.     DATA &HBFC31480,&H5818CF6F,&H541B9980,&H7EE48033,&H1A00FD03,&H8879BCC4,&H95F1E191,&HFB290CFF
  1143.     DATA &H0578195B,&H80981834,&HB34D91FD,&HDDBE197A,&HAAA0C53E,&HBF3C2C0A,&H69483033,&HE27C315A
  1144.     DATA &H7F7865D5,&H7FB02678,&HBE10C0C2,&H2CCD3E89,&HC9A20080,&H4166079E,&HB97FFB9D,&HCDD91535
  1145.     DATA &HCD5B9E81,&HFF60EE08,&HB01ACA47,&H643E02CC,&HD6523FF9,&H3F8E6601,&H57AD11A0,&H8FFD212F
  1146.     DATA &H2EA834D4,&HD07EB046,&HE7F52CBA,&H3CEB0C4C,&H368219CA,&HF7FC3316,&HB8C0C6BA,&HEB618E33
  1147.     DATA &HA20C479B,&HC4958057,&H4F8650D6,&HA418987F,&HBE19E582,&H2861627D,&HA86666E7,&HE0C8CF78
  1148.     DATA &HE18EF32C,&H066933CD,&H0C7CAF86,&H1957F626,&H640F5E7E,&H3FAC09B8,&H449981D8,&H030EEA4C
  1149.     DATA &HC31C7C83,&H182BF3EF,&H6A827F38,&HB990FFB1,&HB4C02F98,&HD83E7F3C,&H206AA21D,&H66067BFE
  1150.     DATA &HC7AC1759,&H0AF2B0CA,&HFA7A7BBD,&H3D4337FC,&H8F262E06,&H6A6A9919,&H178FC7C6,&H0AF85E9B
  1151.     DATA &HC0C2BBDE,&HACF0B760,&HB7993F2E,&HF17B7ECB,&H28BFE195,&H00AFB823,&HA17F18CA,&H81FF7D43
  1152.     DATA &H3FBF907D,&H6B0833FF,&HEAA83139,&HFB7C3107,&HCEE192F8,&H6A7A6BD5,&H3B58498E,&H515131B0
  1153.     DATA &HD4D5D4B3,&HF9F97CAE,&H9146D787,&HF5ABC5E7,&H7D7F1B65,&H48EE0DB9,&H00C7BEDF,&H0B1F9D2C
  1154.     DATA &H02DF1B93,&H0E1FE242,&H2859CE4D,&HB0CC0821,&HFDE08C1C,&HB9F3A0E4,&H03FE6E40,&H077F536C
  1155.     DATA &H614E12E6,&H1F0F8605,&H04C7419F,&HB7FE3581,&HC0AC0C7F,&H632F4B42,&HEE7E8309,&HCD66866B
  1156.     DATA &HB5C3864C,&HD38E0C9D,&H08B030D7,&H4CC431AA,&H67B0C93F,&HBDC32172,&H9418130D,&H5E199954
  1157.     DATA &HF0C63ADD,&HF82AF99B,&H89C713E4,&H55E974E7,&H10040083,&H7FC8324D,&HC67E8CAD,&H337E07C7
  1158.     DATA &H674DCA6B,&HF0C47C14,&H62523DF3,&HF860D4D2,&HF806FD71,&H3FDFD8EC,&HABB0307F,&HB9FC32A9
  1159.     DATA &H5EA51B75,&H030E8461,&H0E7F3F33,&HA1FF20CD,&HE0FFBF9D,&H974CEE65,&H68E61859,&H957832F5
  1160.     DATA &H254832F6,&H89283235,&HCCCCFB00,&H3FFA46C0,&H3BE10666,&HEF7E185B,&H526064AD,&H62531606
  1161.     DATA &H5E2B0CF2,&H6844338B,&HFFD860BF,&H9DC31BE5,&H5B0C9CED,&HE8328F54,&HB067FDC5,&HF0CA645D
  1162.     DATA &H8333FA40,&HA0B00394,&H7867CD15,&H4193A73A,&HFBD4DC10,&H08DADF0F,&H3A05575E,&H1F4C5ADE
  1163.     DATA &H0C7D96E8,&H0FED25FF,&HB8B62B61,&H807E8405,&H01FE74A6,&HAEA89833,&H653156F3,&HDB41C795
  1164.     DATA &H40E12F29,&H52825F17,&H079AB030,&H0581CA76,&HA061D406,&H17E7F28C,&H2C01FFB0,&H636DA559
  1165.     DATA &H15D41619,&H771EFB00,&HBB2C173F,&H599719BC,&H0F2A2AAA,&H3EC41841,&HF57A6F5E,&H0CDBC7F7
  1166.     DATA &HD04D817F,&H1958DFE7,&HE1BDD7C2,&HF4F0A5E0,&HD77BE7C4,&H125681F8,&H3282B0B1,&HE1F07FC8
  1167.     DATA &H53A0FF0B,&H7B40AC5C,&H304AB1BE,&HDC6D01FC,&H9F966602,&H9D05805F,&H8A832A7F,&HC7C32167
  1168.     DATA &HDFC317FB,&H8860127F,&HACED9859,&HCB565C15,&H0AF72DCA,&HB92EE116,&HB97B0CFD,&H6E5E18C4
  1169.     DATA &H360062A9,&H3F18182A,&HE8B0647F,&HA6216C38,&H9DB74862,&H440100A2,&H37441A9B,&H599FF27B
  1170.     DATA &H7AFFFF1C,&H71E063CE,&HB978668F,&H01CF3202,&H04FD266A,&HB6910E66,&HBB2F8676,&H5BF03277
  1171.     DATA &H3B7C32DB,&H07E18078,&H67808330,&HF2F5A1D3,&HE1E6607F,&HF8607274,&H7C1B75BE,&H3CD61D86
  1172.     DATA &H05240EFB,&H4DD84981,&H4CE19D46,&H0F864DF3,&H7C0CF5CD,&H2C0C401A,&H958184FF,&H13AA6E84
  1173.     DATA &H5DE66B03,&H0E37BF86,&HC9DD3B00,&H7CDAE10C,&HEC2A710C,&H3FBF510C,&H0DBE7C30,&HFEF12A6C
  1174.     DATA &HB3A5D863,&HCA65A196,&HFB81B05A,&H4582C940,&H23C3E192,&HE811C760,&H8EC0EF8A,&H09D5AC3B
  1175.     DATA &HECD05F8A,&H05A08334,&H4787BFC3,&H9418B176,&H0439C09D,&H25FBB40A,&HABABD3B0,&H0E5EF94C
  1176.     DATA &HCBE6DF78,&HE846115B,&HDFEFDFA8,&H7FAA1190,&H3A0604C0,&H3007E5A4,&H66F86991,&H3E5AEC30
  1177.     DATA &HD6D8E19F,&H8B2D0CC3,&HF3B09666,&H126CA108,&H8EE77DBB,&H4F2793FC,&H5595E5E5,&HD6DBFEEF
  1178.     DATA &HD9E5FAD0,&HAC6FAD2D,&HDF3EFF8C,&H01F5A338,&HF090F7D8,&H97189E2D,&HA94053D1,&HDF1D6F3B
  1179.     DATA &H27EA0EEE,&H4C43FA81,&H127EA04C,&H01AFB813,&H80FF10CA,&HEC340519,&HC3A72C2C,&H3AD770F0
  1180.     DATA &H81425F60,&H2E66B6C1,&HFD9F6FD0,&HC0B95FEF,&HB766A82D,&HFA425E4F,&HC46DBC8D,&HD959902A
  1181.     DATA &H1933B9D9,&H3B358199,&H8F830337,&H0F865BFC,&H3032173B,&HFD02F372,&H02BC05FE,&H73FDEBE0
  1182.     DATA &H36BA0C16,&H4195E927,&H66880200,&H0BFF4ADB,&HE262DD69,&H72135737,&HB2786067,&H0087D202
  1183.     DATA &HACB80EB5,&H6F9D812C,&H561E0663,&HDCBE0616,&H172F862C,&HF230322F,&HEEDB000B,&HCF6D801F
  1184.     DATA &HC6EC0CFF,&H53A20C26,&H73303327,&HE1BC31B2,&HBCF861E2,&H0FBC157A,&HCC2C2CC3,&H0760E1C0
  1185.     DATA &H657EF46C,&H60343560,&H83359ED0,&H4FA7CFE1,&H306EFF0C,&HBFFE4B03,&HD981EF0C,&H7DAAFE68
  1186.     DATA &HCA568A0C,&HC04D4E0C,&H3BCE42AE,&H153D8606,&HCD57B70C,&H26007062,&HAC8217DE,&HA04CCC0C
  1187.     DATA &H83231F26,&HF3C1B020,&HE403D81E,&H8ABA0565,&HC3E1838D,&HC9B2D04B,&H214EE0FF,&H5E07D1AC
  1188.     DATA &HA4012F16,&H18188D05,&H62362DCF,&H81FC1760,&HFA72BFCB,&H5CBEAF62,&HD540A6FD,&H3F5F26E5
  1189.     DATA &HD7413009,&H569A80E1,&H760D80FF,&H1DDB5026,&H116E0AE8,&HE35E0649,&H8E8D8658,&HC9210CD6
  1190.     DATA &HB4F9BB3E,&H2AD6515C,&H58FC7E3D,&H62A4A4AC,&H8D9DA5A6,&H294B5F7B,&H69F4B943,&H92C02F86
  1191.     DATA &H36B003FC,&HDD087217,&H34BF93E4,&H95939B90,&HBE75C72A,&H95D072B8,&H14DEBC0B,&HC80F6C72
  1192.     DATA &HFF4C4CCD,&H500CFDC1,&H6B868268,&H19B564B9,&H181B72EC,&H74FC2D64,&HA6B8DFEF,&HB6E5AC2F
  1193.     DATA &H144F595F,&HE379D9A5,&H69C50DC6,&H71A56773,&H68320AF2,&H3063BCF3,&H20CDF8B1,&HF0C5A4A2
  1194.     DATA &H7035CBE7,&HEC02781A,&H21FBBA5E,&H07A7A04E,&H9A200800,&H7662986D,&H6FFBE45C,&HFFE9D27F
  1195.     DATA &H820CC586,&H7A91A06E,&H98FE062E,&H19C90618,&H02FE19D3,&H252206DB,&H0EDF0C25,&HAE10621C
  1196.     DATA &H756060AA,&H311600F7,&HA16BE042,&H19E46419,&H01405898,&H0BF0C6CD,&H6435887C,&H7F4C0B84
  1197.     DATA &H1BC0C1FD,&H5020C915,&HE1C0CA59,&H96C0CCEE,&HECC0C99E,&H37EC02EC,&H41666640,&H1740AEAB
  1198.     DATA &H631DB385,&H72E99862,&HB85CE198,&HC17FB010,&HF11720C7,&H9A9EE18A,&HA606C339,&HBF0A0CDF
  1199.     DATA &HF8FC32FF,&H3DE18FFB,&HC4A44DB0,&H44C197FC,&H6A9804C3,&H3FDC310E,&H255E00CD,&H13751E0C
  1200.     DATA &HAA8F8313,&H8E820B31,&H46005789,&HBC2FFB36,&HBCBE2B4B,&H94166312,&HD38AEAA4,&H083F9F1F
  1201.     DATA &H87C13232,&H8493C053,&H446F93A0,&H9419F594,&H3431E663,&H383358F8,&HB15D9BFB,&HE1CF6E4D
  1202.     DATA &HCFDD4093,&HACE67D31,&H2E97F3E2,&H4FF4F798,&HD9F8F3F8,&H628C0F8B,&H3D041F32,&H7622BAAA
  1203.     DATA &HAB7467FC,&HAD4FE558,&H5E5E01CC,&H068EECF3,&H03A6B413,&HCD41BA75,&HEA737028,&H29B0230F
  1204.     DATA &H28A3EC08,&H4A88306B,&H677C3129,&HB1D86115,&H92A64174,&H7E52F46D,&H3E8C5161,&HC6868699
  1205.     DATA &H7E3FFFFD,&HFD7B7E32,&HFDF4F182,&H46A28C5F,&HBF7F3BFE,&H4DDE06BF,&H55D8177A,&H4D759AF4
  1206.     DATA &HB16BDE85,&H66880200,&HB0930835,&H6FFFADCE,&H75FE982E,&H1B20C55B,&H78F0CBDE,&H97860FD7
  1207.     DATA &H3030964B,&HB032ABA9,&HFC328B08,&HE185FEF9,&HD26077F7,&HE19CF67E,&H0C63B1D3,&H007FDF7F
  1208.     DATA &H366FDC97,&H0BF861AC,&H605FD574,&HCF65F28D,&H209AC41E,&HAE8B14D0,&HE5BAB836,&H7F40D606
  1209.     DATA &HF862FE7E,&HF0CCC4CF,&H1454F662,&H9B09417B,&H40741183,&HA3C3031D,&HE70C0CD5,&H7830F637
  1210.     DATA &H4830F414,&HF067CC97,&HE0C15F77,&HE18CA27F,&H0C35ADEB,&H62FFBE0F,&H360596D0,&H31F6039A
  1211.     DATA &H63E72C3C,&HD74604E0,&H06750D7F,&H0628C8E1,&H3F4C6066,&HBB00ECEF,&H9200498F,&HE0B3FE4B
  1212.     DATA &H6463ED1F,&H6225AD01,&H30CD4BFA,&HACE3767C,&H09B5B005,&H023390EE,&HB01B1D13,&H8EB31698
  1213.     DATA &HECF07867,&H6092C31D,&H8AC8864F,&H299689A2,&H489B58BD,&HE5CD2D6D,&H448F4C20,&H1DC5F9F4
  1214.     DATA &H2D503E0D,&H7B580FF7,&H3A6C41FC,&H1F946503,&H24CB1AC0,&H466185A7,&HEDC3167D,&HBA19A733
  1215.     DATA &HBBC19CB6,&H85E5FFCF,&H06E276FD,&HB64E878E,&H7F7D1F3A,&HE8159F63,&H6CF7F9E4,&HF793DF62
  1216.     DATA &H1862E4BE,&H40100000,&H83B93D34,&HF6A0FFD1,&H6BDEADFF,&H34BAAC19,&H18CB6294,&H64662DAE
  1217.     DATA &H3B71B778,&HC3A9D683,&HF3728F0C,&H7BFAE419,&H79BAAE19,&H1FF13B00,&H7B40FE18,&HF95AA074
  1218.     DATA &HF0359AC5,&H3EB0BE15,&H4CA8E808,&H865D1D36,&H038F478F,&H43B00073,&HC337EBFE,&H19371BCF
  1219.     DATA &H8265FCFE,&H0D208C8E,&H94574317,&H3148CA4A,&HC6793C88,&HC80BA070,&H60C89799,&H0A6C0F1B
  1220.     DATA &H70301725,&HD063EE9B,&H2ED60566,&HBC33CF5F,&HD863E1A8,&HDD07940E,&HADA6C085,&H1F1C20C7
  1221.     DATA &H8FEB3607,&HC3C30080,&H46060282,&HA0DD9076,&H17EF31DE,&H300205BC,&HB8DF3EFA,&HB0AD4D23
  1222.     DATA &HAAA7323B,&HF682D2F3,&HD04D5532,&HB0E81A90,&H0F86766E,&HE70C86AC,&H78634E96,&H460E6C0B
  1223.     DATA &H374CCEF5,&H141B4FF1,&HFDFC4A87,&HBC1799F5,&H640FFA62,&H1FE59A08,&HD62D7833,&H19FFEFCF
  1224.     DATA &H190CB404,&HCDFEBD1E,&H69D76E70,&HE2D6C286,&HA80ADC89,&H3C9CF547,&HD678D275,&H3CF9B9DC
  1225.     DATA &H239F9242,&HB188EF45,&H7416DBDF,&HA66FFBF1,&H32BF9F3F,&H7696047C,&HD2B329EA,&H07537CBD
  1226.     DATA &H01009FCC,&HC20CD344,&HED706224,&HDC6FEFEF,&HD53D447F,&H6F6B0225,&H93F2DFDE,&H009F0FE1
  1227.     DATA &H2EF6D3C3,&H6F970F86,&H2E2AFC30,&HD6D56061,&HE07B7865,&H019FBC20,&H4059822A,&H1B028DC7
  1228.     DATA &H366528DD,&HCD1FE030,&H03C0CB9F,&H228481AC,&H65EE19C2,&H88B03367,&HC9F3028A,&H8C75144F
  1229.     DATA &HDC0CECEC,&H8C0C5A1A,&H415AC082,&HF3E18951,&H720C8582,&HDFFF7AC0,&HA386061B,&H3B0C0CBD
  1230.     DATA &H8830277A,&H60604D29,&H6F0CD607,&H03ED016F,&H501D7B26,&HA1181CE7,&H60FEFE3F,&H3CE674F8
  1231.     DATA &HC7C6C978,&H4DC19BAD,&HE781D03E,&H314EC08C,&H786FBFD3,&H310E304B,&HBE9F4FBE,&H295AA27C
  1232.     DATA &H7B656177,&HF806BA99,&H56065084,&H31060083,&H73864B59,&H7E19CAF3,&H6B59F901,&HA84A6A2F
  1233.     DATA &HD39A0DEA,&HFE7D7F22,&H05C8CFC4,&HC340A429,&H71817FBA,&H715A6A07,&H6831F0F2,&HA864CFC4
  1234.     DATA &H70633172,&HAFBDD2F4,&H0D3092E2,&H69596F5D,&HA4A4F4E5,&HA77DD304,&H3B9C30AE,&H99418CB7
  1235.     DATA &H05E2D81F,&HA14A7896,&HE15EE5DD,&HED035D25,&HA2008037,&HAC4FD9F9,&H7EE4D791,&HFFFC604D
  1236.     DATA &H8325F337,&HC3389345,&H0C23828E,&H80EDF7AF,&HB43DE8AC,&H878D818F,&H0AAC3C17,&H09365C0A
  1237.     DATA &H8AC50671,&H7B37862A,&HD87C3377,&HEE6515BC,&HFAEC3604,&H866DE6EE,&H0C11616B,&H065EAF1F
  1238.     DATA &HB4262A67,&H3FBFC7C9,&HC4C8327F,&H79883246,&HF03B01FB,&H1CF819EF,&H27AE191D,&HAB678224
  1239.     DATA &H83811740,&H107BDFF0,&HB1D0523D,&H3AA01FB1,&HBA7CC808,&H46B03361,&H764FF602,&HCFF866ED
  1240.     DATA &HF7EE0ECC,&HFE3F3680,&H5603E661,&HF0F74A20,&H97231605,&HC9512BF8,&HCF8F124F,&H3594369F
  1241.     DATA &H5CE6FCA4,&H30A0604E,&HEDA59C83,&HBA5B60C5,&H84EF619E,&HC0FF8644,&H78B6D16A,&HCA60C162
  1242.     DATA &HF5F0201C,&H66763BC3,&H0937705E,&H981B4AB2,&HED8DA589,&HD28CB818,&HCDDDEA19,&H2C3C6C18
  1243.     DATA &HCE967A2E,&HD695E40F,&HEFAC8FB8,&HDC379BCD,&H0FB20A32,&HF55AAD97,&HE850579D,&HE36279B3
  1244.     DATA &HFB752159,&HF6868ADD,&HDF8B0647,&H2E880200,&H85B1A387,&HBBFC76ED,&HFFFF75D9,&H0E0CEDE0
  1245.     DATA &HB6193C1F,&HF78682D5,&HB89643FF,&HEF0CF97F,&H595A0863,&H87848833,&H696BB030,&HBCDB3C31
  1246.     DATA &HDE058185,&H4F8062E8,&H3BC08217,&H8D80E660,&H17328132,&H23E4D233,&H030F170B,&HC32991AF
  1247.     DATA &H8626567F,&HCA3EC0BF,&H19DB1DEB,&H073303BE,&H8C246C0B,&H0A41938B,&H1DDE6198,&HF5F0CC3E
  1248.     DATA &HE98465F2,&H829E0350,&HDCC82633,&HA5CE0C5F,&H46E72140,&H6BC7FF86,&H35993196,&H49DBC6CC
  1249.     DATA &H8DF9C6FF,&HFB6AD80B,&H2A9EF2F2,&H19E50303,&H22581F84,&H8A06057F,&H7064156F,&H9250478A
  1250.     DATA &HB3D007E1,&H1DF44116,&H4E0421C5,&H60AEE8AD,&HC0C7FA66,&H05D61A06,&HF8B839F6,&H8C981944
  1251.     DATA &H9F4E1803,&H6D70CD3D,&H60433472,&H4D97554D,&HBED62B62,&HC8888890,&H170BA5D7,&H620C3286
  1252.     DATA &H34401000,&H9F1F20CF,&HF6FB163F,&H10A3FF86,&HEB03099F,&H9C0CDDB3,&H82188B51,&H6E18E2F8
  1253.     DATA &H786066EC,&H8A540272,&H02BECE40,&HEB7BFE25,&HE3FC31D6,&H70F865E4,&H8B6414FE,&H2124D22C
  1254.     DATA &H682FB6D6,&H82343578,&H99233641,&H1C744CE1,&HCF17EFC3,&H7FF71D81,&H32B3970C,&H5A5AD419
  1255.     DATA &HDFECDE19,&HF3FDF0CB,&H82267017,&H9CA9DE5D,&HD9A0CE91,&H7B70C9D1,&H5B8624C2,&H3AD0A565
  1256.     DATA &HFF8C1184,&HAF0267FC,&H6070D5E1,&H4507D060,&H8654EB9B,&H0C7C8C7F,&HC8B6DFCC,&H1D79CA30
  1257.     DATA &HFDAC3BC0,&H68173BE7,&HDFF19E0A,&HC34A762F,&H27B3F5EC,&H5CC0AC22,&H82D7E8AF,&HB33DB618
  1258.     DATA &HC2DE4185,&H4A60DAF4,&H1D2F0F3C,&H5FDE3F35,&HCBA9AED6,&HC7F7F0C8,&H6166067F,&H6FDB8679
  1259.     DATA &HB97C30FE,&HF3E19B3E,&H9886066B,&HF4A34BE9,&H3396A2DD,&H1000610C,&H20CD3440,&HBF24BAE7
  1260.     DATA &H7A177E30,&H25E4A3C3,&H3EC8EB7F,&H07962906,&H21A1AA0C,&HEF13FF0C,&H6F7A6831,&H3BBCD067
  1261.     DATA &H0CCA1413,&H63FC6FAF,&H98137578,&H4B021E59,&HC10B15F0,&HF05FE725,&HE6502A26,&H1E328FF9
  1262.     DATA &H108608CD,&H2E757031,&H2AC0C02A,&H715E0A2C,&H3398EA07,&HEC06F97D,&H205B032C,&H5E19FB13
  1263.     DATA &HCE023E1D,&H080CA000,&H52029DDA,&H7AD960FF,&H221C3F86,&H6DB66F0C,&H012BDF05,&HFD9B9732
  1264.     DATA &HEEA4833F,&H9339067F,&HA0D20C7F,&H593A8AD5,&H6AB57F0C,&H644F9819,&HB9D93C33,&HFBBFE18E
  1265.     DATA &HCF828992,&H49F04BEF,&HC61CE22A,&HB6F2F9FD,&H0627FB0A,&H14A385D0,&H681EF50F,&H05C73B75
  1266.     DATA &H03B4B874,&HCDDE4D64,&H9E181B83,&H60CCBB9F,&H7FBB355F,&HDB9E2530,&H29A5177B,&HEE803229
  1267.     DATA &H526063D8,&H2B306577,&HD370C5DD,&H433C1183,&H8F7D321F,&HF3A9AAA3,&H0E218601,&H66880200
  1268.     DATA &HEE9CFEC7,&HE8AFFDE4,&H5F9AD5B3,&HCBE8EEDB,&H420C15DD,&H970CD536,&H14191CEA,&HC54BFCDD
  1269.     DATA &HFD8E2EDF,&H1F13F3F3,&H74E67683,&H4ED71946,&H20603646,&HEA26067F,&H3D8087D7,&H72B55067
  1270.     DATA &HCBF7E18B,&H9F1F0CFF,&H60206B01,&H581DF30D,&HCF7E7D1A,&HF2B25E00,&HFB22D80D,&H127A19F9
  1271.     DATA &HB0C83FFE,&H27032B2E,&H8EFEF0B0,&H761228B2,&H031315DE,&HD02D8CF4,&HD00168DE,&HC00C05C1
  1272.     DATA &H03030066,&H8303029F,&H85723038,&H4E519880,&H26418182,&H18C38810,&H62E3FEFE,&H8EAA7FF8
  1273.     DATA &H35FBE581,&H1FEB2386,&HD6F88833,&H182AF033,&H9A5E3C30,&H31D44B7B,&HC8729D68,&HBF744AC4
  1274.     DATA &H42F079BE,&HC91AEDEC,&H318F6FFB,&HF82DE970,&HC7C3CACC,&H887DF643,&HD7231A1B,&H11595CB2
  1275.     DATA &HCBA8AEC4,&H8975DAE0,&H15FEE6E1,&H22DAC70C,&H3D017E19,&H706BBE95,&HA9B273DD,&HC730F5DA
  1276.     DATA &HFF363DD3,&HDC18D585,&H7C326F7B,&H6194FD7C,&H830CB069,&HCEFF9394,&H1E0D8680,&H0000C30C
  1277.     DATA &H6A4D1004,&H2EB7B790,&HE972706B,&H6601179D,&H8C29038E,&HD558FF0C,&HCFB6F818,&H588C9066
  1278.     DATA &HCAF1F0C5,&HA4F1692A,&H3EE0FA5B,&H7E15EDC1,&H584D2FFF,&H11F9FFF4,&H0BA07F9B,&H8FAD240D
  1279.     DATA &H47E5C831,&H31681831,&H310A72B0,&H64FD3088,&H2C0DF910,&H013FBF96,&HFD81EE36,&H818F2FBB
  1280.     DATA &H0311E439,&HAE600FC3,&H880AF1F9,&H194F813F,&H84F72F01,&H4B60A1B5,&HBEA09984,&H03C36D03
  1281.     DATA &H600E0EE5,&H1A539CF7,&H80943398,&H20356E1D,&H498A02D6,&HFDFFFC31,&HCBCFE193,&HB78C0C0B
  1282.     DATA &H3C60EC56,&H20C566E5,&HC58DB9EF,&HC9F2AFAE,&H025C6FA3,&HFD5CA7AF,&HC33F7B72,&H0C4D43FB
  1283.     DATA &HD43FFDBA,&H0B54CCEE,&H692778F8,&H3E8ABF3E,&H07D94ACA,&HC52A1B7B,&H1EB81899,&H5030B2B3
  1284.     DATA &H0D3A3992,&H6A6BFF18,&H96563A41,&H1E18FB55,&H70CE793F,&H78245E7B,&HCE71B69F,&H96C1CC8C
  1285.     DATA &H9838B878,&HC77D7DFE,&H1934E0C0,&H959F92B2,&H07E18847,&H88B2E0B0,&H18622C6E,&H80200026
  1286.     DATA &H3E419268,&H2AE43DDF,&HE33A12A4,&H731F97EB,&HDED8D898,&H0B70880A,&H8DF37F7C,&H4BB3CFE1
  1287.     DATA &H127CCC99,&H4BEAF002,&H08136235,&HD68FF8C3,&H5B7CD555,&HFBEDF591,&H0F87503B,&H7414BDB2
  1288.     DATA &H1F070AB1,&H11760FE7,&H65012155,&H59010675,&H5E6F6063,&HF0F13C18,&H818B9197,&HBC038591
  1289.     DATA &H11918883,&H82B13348,&H9A8172D7,&HF740FF60,&H7AEB0179,&H8EA0FFA6,&HEA9F6801,&HEF7F8607
  1290.     DATA &HBC7C321F,&HC7E18377,&H8C0C398B,&H27836F9F,&H3CB5784B,&HD22DB819,&HB7FC1818,&HF130337A
  1291.     DATA &H199767C0,&HFA494E9F,&H1CF7FBF1,&H94C6762E,&H33FF8FFB,&HCDE45B3C,&H44BF6620,&HD98DE3E3
  1292.     DATA &H532AFCA9,&HC185E14A,&H1C7C4F8B,&H7DA667CF,&H44AC3605,&HC92B5AFD,&H6D79B30D,&H0CAC13C5
  1293.     DATA &HB0016581,&H6E8E944A,&H1011E066,&HCA2CC861,&H4E73B864,&HBBAD7BEC,&HEF3D33C4,&H2D8319F4
  1294.     DATA &HBF3BBCF1,&H59404ECB,&H97978181,&HBD343207,&H118189A2,&HA84B6D58,&H2E1B5FEA,&H80200419
  1295.     DATA &H38419268,&H7FCE74A4,&H5CC93438,&H1FE0B3CA,&H83C2B087,&H5F797F1F,&H3DE8EA70,&HA8A6B278
  1296.     DATA &HEA097ED7,&H2EAF3971,&H3BBA311F,&HFFEBBC2B,&H72EC3F9F,&H62D9C5C1,&H09E7B749,&H433CABC9
  1297.     DATA &HDAF2F356,&H0F5FBD49,&H3ADC9B4F,&HDBF23CB2,&H122ED59C,&HC5DAC07A,&H44419E32,&H1B9804C7
  1298.     DATA &H7BFC331F,&HDFE192F3,&H8C0C2FAF,&HD91321FF,&HBDB740FF,&H3033F172,&HBC3048F0,&HE18E7AB9
  1299.     DATA &H0C35D9E3,&H64FEEEEF,&HFE4C0F78,&H735136D2,&H1E822438,&H7F7028B3,&H9DFFFBFB,&H87E79BE0
  1300.     DATA &H8C2CBEEC,&H88371353,&H9DF452F3,&HA76605B2,&HBCCE47B4,&H27728B7B,&H3AD310FF,&H999A6C03
  1301.     DATA &H304418F0,&H8CFAFFFC,&HBE57DFE1,&HBB6EC88F,&HA1F44335,&HD70300BC,&HE7256025,&H41D65D11
  1302.     DATA &H783D586A,&HB40250F0,&HB6CA70A0,&H7FEA9ECB,&H02CA19F9,&H953F4E0C,&H8D6CA9F0,&HF273DD8C
  1303.     DATA &HBF5799C2,&H79B109FE,&H19545DF5,&H4367096C,&H5E36D05D,&HE32D2D60,&H6E2CA902,&H70C6DF1F
  1304.     DATA &H83074165,&H31D39BB2,&H00046186,&HF33C0802,&HD3BC0B49,&H8C2BE193,&HC2DF78FD,&HE6FB2790
  1305.     DATA &H7FCB2187,&HEC40F67C,&HE1F88658,&H5346D5D3,&HCB7FBDBF,&H27998C41,&H5F2692FB,&HFFFD30DD
  1306.     DATA &HFF9F26F1,&HFFF5CAC7,&HF9E18BEF,&HC4D3677F,&HA3FEFFFF,&HCEFF1002,&HF7FF19D6,&HBFFEF1C5
  1307.     DATA &H7FF013DC,&HFFD5995F,&HFE5A8B73,&HE1375F5F,&HC76BABFF,&HFD99B00C,&HA962E8F4,&HAF0CB923
  1308.     DATA &H8D8F4EAF,&HB07F1641,&HC5E4B1B9,&H204ECDF9,&HF10CE1F6,&HBEDF5FFF,&H9FB103E0,&H73207CDD
  1309.     DATA &HEBE186AC,&H5F0CE59B,&HFC32FA0F,&HBAF3767F,&H7461A922,&H7311E8F4,&HC3CF1757,&HFF2A2AF2
  1310.     DATA &H5EB4B515,&HDF585BEB,&H5FAF8901,&H444021BB,&H9687F656,&H5A03C1BE,&HF8B90FC5,&H2227CBFD
  1311.     DATA &H16523ADB,&HF8640DAC,&H018C29BF,&HBE3FDE1C,&HD73FFD7D,&H2CFFE19E,&HEFFF8607,&H18903E9E
  1312.     DATA &H04A66E6C,&H55100403,&H607DB90C,&H8FD7EB87,&HC59059BF,&H2CDA9F9E,&HE548A27C,&H77DABA22
  1313.     DATA &H9DA82FB7,&H715B562A,&HE766573C,&HC40FE7C7,&HFEE3B588,&H0F294986,&H58B3EFCE,&H7FF0C6E9
  1314.     DATA &HFFD98177,&H81AE0F0F,&HEAFEE723,&HA2FBFF86,&H9D5FFF99,&H9C8A0D12,&H141637FF,&HC51FDFFF
  1315.     DATA &HEADEFFF8,&HA17FFFBA,&HA1776619,&HC14DFFE5,&H2DAFFF3C,&H717FFA6B,&H3E23595E,&H9BEE9E7B
  1316.     DATA &H903BBB2F,&HB9CDF5E1,&HE2C87E99,&HD5549737,&HFF18995C,&HFF87D3FF,&HFD7A276C,&HC09CDF97
  1317.     DATA &H12F5F5F0,&HFC87FF86,&H3DDFFE19,&HDC95DDB4,&HD1D0D3B0,&HA4AD247D,&HC3D5C9F8,&H78B230E3
  1318.     DATA &HDCE6667A,&H566098C1,&H5F3EA924,&H7FF0CA1F,&H3C733007,&HFFE9B93C,&HFEBF4F8B,&HFC8BB957
  1319.     DATA &HF0CC1CDF,&HF4774F7F,&H3994E1EA,&H80201840,&HBAC51E28,&H58AFA6B0,&HCF714DE4,&H0C0C97EB
  1320.     DATA &H6E0C39BF,&H1C9B0AB1,&HBD51E167,&HBB68A7C1,&H19D6C1F7,&H2CCE5F49,&HC8F6938A,&HEBFCC49B
  1321.     DATA &H0B9BC88D,&HB4847D5B,&H65A80E1C,&HE4E78F2F,&H8A45FCE7,&HDC9E9F3D,&HECF2F992,&HF7CFE3CE
  1322.     DATA &H6C07822F,&H11ABC335,&H5FAFB933,&H952F9C30,&H62636065,&HFEF6F862,&HE3768317,&H3D51066E
  1323.     DATA &HFBFCB817,&H6E19A75B,&H60C19D6F,&HE1973F9C,&H6ADAD2F6,&H36E6D88D,&H3D3DF642,&HDAF055BC
  1324.     DATA &H7F1BC8E4,&HFC7FD919,&H8795F9FE,&H873BF589,&H97319F8C,&H0659E700,&H99A04E3E,&HABCD80A7
  1325.     DATA &HFA0C0C0B,&H2414B7BD,&H921F5455,&H17F37E1B,&HF7BA4C2E,&H736ABEE0,&H60E5437D,&HD86C6D6F
  1326.     DATA &HD6EFC7BA,&H368DD764,&H9A3EC092,&H46831F8E,&HD98646EE,&H1D0C5D7D,&H843216B3,&H3A7DFFAA
  1327.     DATA &H190DFB73,&H00066186,&H0CE28802,&H6FDFB672,&H66CB0497,&H46393657,&HFFFE7606,&H9940F3E0
  1328.     DATA &HCBFB4058,&H419F4B21,&H268137C7,&HFB57408D,&H1409FCFE,&H3A0BCBFC,&H7FC5E060,&HCC0F8106
  1329.     DATA &HFEEF42CC,&H617F70B3,&HE3F1CFF8,&H1F8E3FFF,&HEFC2EC4C,&H3FF8D998,&H7E70B230,&HFD606467
  1330.     DATA &HED918FF3,&HFE17B017,&HED818187,&HCCB08717,&H2A0BAB93,&H5484AA36,&H4A087033,&H79BBBC32
  1331.     DATA &H83F3E196,&H2F9F0C33,&H18CF066E,&H31B7044A,&H307A9B88,&H857FBC7C,&H1ADAE9E1,&H1ECFDF86
  1332.     DATA &HE9A87031,&HF8EBF032,&HEAA80830,&H8BF17031,&H9C9D9C32,&H521EA0C8,&H0FF8CC9E,&H77FB1274
  1333.     DATA &H5FE6262E,&HB9553BA0,&H257EFDFF,&H46F8C0C6,&HB41D9984,&HC4B9EADE,&HE48FDFBF,&HFF99F838
  1334.     DATA &H12FEB3B1,&HE4AA0360,&H2BE7F902,&HAB97C303,&H81937C40,&H061DD1E1,&HD29F7E06,&HAEACB37E
  1335.     DATA &H00118622,&HEDDAED76,&H73D9ECFC,&H6733A999,&HFB7BDD96,&H89CDAD55,&HD4CC4EF9,&H964EDAB3
  1336.     DATA &H7D5F9736,&HF7F6237A,&HCB965FDF,&HF04B2FE7,&H1CFC7373,&H08077E6E,&HAB15DDC0,&HD1031044
  1337.     DATA &H8F764CCB,&H03F1B595,&H4AC17B04,&H4B3B0B10,&HB05FC411,&H6C2C0FF2,&HEE403EE4,&H7F0FFC03
  1338.     DATA &H03CEF441,&H01FC2C0F,&HF585839B,&H6332764E,&H6962B25E,&H0C58D721,&H25818649,&H93B02F09
  1339.     DATA &H067F2F79,&H7AEEE4C8,&HB9B87C34,&H31204872,&H31B23594,&H19C5C2AC,&HBA99DB38,&HB9EFE3EA
  1340.     DATA &HE51FB2AB,&HF51200E1,&H3FA3366F,&H20FEC9E8,&HCE5F58DC,&H4C09BEEB,&HF0452FC8,&H24D9FCA1
  1341.     DATA &H3E2296AB,&H47ECBAC5,&H364C0AE2,&HC9A4ABDC,&H78A5F649,&HEFC69D28,&HBA9E8F84,&H1E55F88A
  1342.     DATA &H549072DB,&HB622C306,&HBB3C3AD1,&H58A0C8B0,&HDAFA4B46,&HDECEFEC0,&HC5D1D6DB,&HE5F9EEED
  1343.     DATA &HD21B5D78,&H10978D34,&HD2F1110A,&HF0588575,&H5539750A,&H86A460D6,&H142991BE,&H220D8CE7
  1344.     DATA &HC8B57117,&H05CE7539,&H281C602C,&H4B4FE911,&H63959881,&HF78B130C,&H2CBF83BE,&HAEBACFCB
  1345.     DATA &H9C85E57F,&HCFDD9C9E,&H5CC7E75E,&HB0C6FBD0,&H8F4F676A,&HFF747749,&H5DA5F0E0,&HE9F39BB5
  1346.     DATA &H3D7FF6F3,&H1004BE1C,&HCF0A2655,&H6769A9CF,&HFAC3FA62,&HEE57FBF7,&H89DE5FDF,&HCAFEFE30
  1347.     DATA &H37CFEFFB,&H0450066E,&HFDCEFEFF,&HFE47CBF7,&H093F5FBF,&H83F3FFFC,&HEF9FDFF3,&H7F7F8C2C
  1348.     DATA &H1FFC1303,&H3FD6D6C8,&H00CC04D0,&H3FE3093D,&H2683E124,&H8899C0F9,&H064A7A09,&HB2033413
  1349.     DATA &H130E3240,&HD00CD4F4,&HF0F4077C,&H03A8E843,&HF946B803,&H2F321FF7,&H60BA07F2,&HFE9AB40B
  1350.     DATA &HBC1C541F,&H243FE7A9,&H28328213,&H461534E8,&H2C7FFE56,&HD9CFE2FC,&H321FA505,&HE7BE0972
  1351.     DATA &HCABB5490,&H90FB2FCC,&HACF74157,&H25DE9290,&HEFBE415E,&H8F8C8EB4,&H83B23F1F,&H605FC633
  1352.     DATA &H5C8F8258,&HA60C6704,&H030CC0BF,&H031941A2,&HFB07FF44,&H80499803,&H71E60419,&HAD00E670
  1353.     DATA &H6506603E,&H6650060A,&HF31B8601,&H00E6501F,&H8118FFD2,&H85958219,&H13330FE5,&H66166FD3
  1354.     DATA &HACAC3F96,&HB9B9BFAC,&H34DA89B9,&H36EB75B5,&H98D890CF,&H76F6CE6D,&HDFACB77B,&H3EBB6F00
  1355.     DATA &H4C44F27E,&HD5E64656,&H013DAE70,&H33668802,&H5F02D4E9,&HFF637E3F,&HCB37E7FB,&H58BF3FDF
  1356.     DATA &HCEF8FDFF,&HFEB36401,&HFF9E2607,&H3132FFFF,&HFACBFFFC,&H987FDFFF,&HC67C804F,&H875AE07F
  1357.     DATA &H282FF991,&H4A803041,&H9FF6764B,&HBF5C6CCC,&H1E77F480,&H0C9F9E01,&HB02C80A3,&HC8CAE57C
  1358.     DATA &HE5F0F0C8,&H00DFCD23,&H33E83401,&H051828C8,&H02000903,&H08346588,&HC1B50146,&H585F2FE7
  1359.     DATA &HC3FDFEFE,&H2FD7EBFC,&HF0335036,&H0859B02F,&H87FE3A6A,&H4D410B34,&H1350665C,&HFEC6D411
  1360.     DATA &H8CF93F0F,&H6674D211,&HA0A5F482,&H9F60277D,&H99998809,&HE6267D81,&HAC2C6C7F,&H1899187F
  1361.     DATA &HF2F2F2FF,&H5F97A1FE,&HB4680200,&H14051906,&H3E1F0F83,&HB04EFB80,&H606812FE,&H01334801
  1362.     DATA &HCCC0BF9B,&H3FC9F7F1,&HD8104760,&H6063027F,&H827C0ADF,&H642D503B,&HE1BA0E22,&H05999980
  1363.     DATA &HC0983998,&HFA82AC47,&HCC4CCC99,&H024CF00A,&H1BA020CC,&H98995970,&H54FA817F,&H14BEC02C
  1364.     DATA &H940C03B1,&H1A008002,&HEBE419B2,&H0C4C6FB7,&H1C7731FF,&HF91B8242,&H933811E6,&HFB8B9B81
  1365.     DATA &HA67268DF,&HED01C66F,&HBA4E8656,&HF7EBE3C1,&H20AC3F9F,&HF8A6B03E,&H43511A07,&H2650228A
  1366.     DATA &HC020D501,&H97FCC18C,&H05358E8F,&H4010002E,&HA020CF74,&HB5504C61,&H7837FBFB,&HCFE99DE6
  1367.     DATA &HE0ACBFBF,&H643FE6D2,&H9C3C0684,&HC4691FF9,&H00D25C06,&HF81FF903,&H757008EE,&H693E00CD
  1368.     DATA &HF5063410,&HFDC22AFF,&H1CD1D08C,&H607401C8,&H99A104CC,&H0A8334C0,&H3A13A868,&HFE1F0A1C
  1369.     DATA &H8233CB04,&H103FF2AB,&H5161D0B5,&HEA0ECD20,&H94A1D3D8,&H1783051A,&H80D00400,&H0CA020D7
  1370.     DATA &HE014C903,&H26500F99,&HC0389680,&H063A014C,&HD66FF7F4,&HB9DD907F,&HDD085290,&H8BB08C03
  1371.     DATA &H841921CD,&HC0941999,&H0C9AC341,&H9A0FC4E0,&HD89F0122,&H2CCE00C8,&H9BC340FF,&H024CE08C
  1372.     DATA &H467871A9,&H8051956B,&HD0040007,&H14641F68,&H003C028C,&H46988020,&H8C146083,&H2000DC02
  1373.     DATA &HC8334680,&H78051828,&H8D004000,&H30519066,&H8000F00A,&H20CD1A00,&HE01460A3,&H34010001
  1374.     DATA &HC146419A,&H0003C028,&H83346802,&H8051828C,&HD0040007,&H05190668,&H000F00A3,&H0CD1A008
  1375.     DATA &H01460A32,&H4010001E,&H146419A3,&H003C028C,&H33468020,&H051828C8,&H00400078,&H5190668D
  1376.     DATA &H00F00A30,&HCD1A0080,&H1460A320,&H010001E0,&H46419A34,&H03C028C1,&H34680200,&H51828C83
  1377.     DATA &H04000780,&H190668D0,&H0F00A305,&HD1A00800,&H460A320C,&H10001E01,&H6419A340,&H3C028C14
  1378.     DATA &H46802000,&H1828C833,&H40007805,&H90668D00,&HF00A3051,&H1A008000,&H60A320CD,&H0001E014
  1379.     DATA &H419A3401,&HC028C146,&H68020003,&H828C8334,&H00078051,&H0668D004,&H00A30519,&HA008000F
  1380.     DATA &H0A320CD1,&H001E0146,&H19A34010,&H028C1464,&H8020003C,&H28C83346,&H00780518,&H668D0040
  1381.     DATA &H90,&H51,&H30,&H0A,&HF0,&H00,&H80,&H00,&H03,&H00,&H86,&HBF,&HFA,&HDF,&HB8,&HFE
  1382.     DATA &H47,&H67,&H00,&H00,&H00,&H00,&H49,&H45,&H4E,&H44,&HAE,&H42,&H60,&H82
  1383.  
  1384.  

Screenshot_1.png

 


Happly Holidays!
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #41 on: December 24, 2018, 02:00:09 pm »
@Petr
That Fabulous! You tried add many details!
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #42 on: December 24, 2018, 04:19:05 pm »
Hi Ashish, thank you. Yes, i test with it my knowledge with SIN and COS and _RGB32 :-D Your program is nice! Good idea!

FellippeHeitor

  • Guest
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #43 on: December 24, 2018, 06:11:28 pm »
@Petr and @Ashish:

Great contributions, guys! Thanks a lot for participating!

Merry Christmas, everyone!

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: 'Tis the season, AGAIN! - Xmas contest
« Reply #44 on: December 24, 2018, 06:25:54 pm »
Hi Guys
just on timelimit... my little Christmas Card

Code: QB64: [Select]
  1. _TITLE "Christmas Card"
  2. _SCREENMOVE 100, 100
  3. DIM abete1 AS STRING, abete2 AS STRING, abete3 AS STRING, Stringa AS STRING, monte AS STRING
  4. DIM ActualLetter AS INTEGER, LenMessage AS INTEGER, CountColor AS INTEGER
  5. abete1 = "c2 BL2 BL2 BL2 BL2 BL2 BL2 BL2 BL2 BL2 BL2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2L2L2L2L2L2L2L2L2L2L2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2L2L2L2L2L2L2E2E2E2E2E2E2E2E2E2E2L2L2L2E2E2E2E2E2E2E2E2E2E2E2F2F2F2F2F2F2F2F2F2F2F2G2G2 L2L2L2L2F2F2F2F2F2F2F2F2F2F2L2L2L2L2L2L2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2L2L2L2L2L2L2L2L2L2L2L2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2 B U2B U2B U2B U2B U2 p 2, 2"
  6. abete2 = "c2L2L2L2L2L2L2L2L2L2L2L2L2L2L2E2E2E2L2L2L2E2E2E2E2E2E2L2L2L2E2E2E2E2E2E2F2F2F2F2F2F2L2L2L2F2F2F2F2F2F2L2L2L2F2F2F2L2L2L2L2 B U2B U2 p 2, 2"
  7. abete3 = " c2 L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2L2L2L2L2L2L2L2L2L2L2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2L2L2L2L2L2L2L2L2L2L2L2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F4L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L6BU8 p 2, 2"
  8. monte = "c15 BM 200,590 M 400,80 M 600,590 M200,590 Br8 Bu8 p 15,15"
  9. SCREEN _NEWIMAGE(800, 600, 9)
  10. Stringa = " HAPPY CHRISTMAS "
  11. LenMessage = LEN(Stringa)
  12.     IF CountColor < 15 THEN CountColor = CountColor + 1 ELSE CountColor = 1
  13.     COLOR CountColor
  14.     _PRINTSTRING (400 - (_PRINTWIDTH(Stringa) / 2), 10), Stringa
  15.     Stringa = RIGHT$(Stringa, 1) + LEFT$(Stringa, LenMessage - 1)
  16.     DRAW monte
  17.  
  18.     PSET (410, 100)
  19.     DRAW abete2
  20.  
  21.     PSET (385, 200)
  22.     DRAW abete2
  23.     PSET (435, 200)
  24.     DRAW abete2
  25.  
  26.     PSET (350, 300)
  27.     DRAW abete2
  28.     PSET (410, 300)
  29.     DRAW abete2
  30.     PSET (465, 300)
  31.     DRAW abete2
  32.  
  33.     PSET (320, 400)
  34.     DRAW abete2
  35.     PSET (380, 400)
  36.     DRAW abete2
  37.     PSET (450, 400)
  38.     DRAW abete2
  39.     PSET (500, 400)
  40.     DRAW abete2
  41.  
  42.     PSET (280, 500)
  43.     DRAW abete2
  44.     PSET (350, 500)
  45.     DRAW abete2
  46.     PSET (420, 500)
  47.     DRAW abete2
  48.     PSET (490, 500)
  49.     DRAW abete2
  50.     PSET (550, 500)
  51.     DRAW abete2
  52.  
  53.     PSET (250, 585)
  54.     DRAW abete2
  55.     PSET (320, 585)
  56.     DRAW abete2
  57.     PSET (390, 585)
  58.     DRAW abete2
  59.     PSET (460, 585)
  60.     DRAW abete2
  61.     PSET (530, 585)
  62.     DRAW abete2
  63.     PSET (580, 585)
  64.     DRAW abete2
  65.  
  66.  
  67.     _LIMIT 10

Happy Christmas to  everybody following his/her wishes!!!

Buon Natale per chi crede e per chi non crede

PS I have had so many confused ideas... so this is my little Christmas Card
Christmast card.jpg
* Christmast card.jpg (Filesize: 51.71 KB, Dimensions: 801x628, Views: 239)
Programming isn't difficult, only it's  consuming time and coffee