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

FellippeHeitor · « **Reply #30 on:** December 01, 2018, 06:19:30 am »

Till Xmas!

johnno56 · « **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

Pete · « **Reply #32 on:** December 03, 2018, 02:51:06 pm »

You forgot Soviet Russia...

- Christmas Merry

johnno56 · « **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

Pete · « **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

Petr · « **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]

L = loading&
SCREEN _NEWIMAGE(1024, 768, 32): _FULLSCREEN _STRETCH
CLS , _RGB32(255, 255, 255)
_PUTIMAGE (200, 200)-(824, 568), L, 0
 
 
TYPE sv
    x AS INTEGER
    y AS INTEGER
    b AS INTEGER
    a AS _UNSIGNED _BYTE
    mA AS _BYTE
END TYPE
DIM SHARED sv(1 TO 270) AS sv
init_theme
 
my& = _NEWIMAGE(1024, 768, 32)
_DEST my&
 
 
 
DIM clr AS _UNSIGNED _BYTE
DIM SHARED plamenek(10) AS LONG
TYPE snow
    x AS INTEGER
    y AS INTEGER
    m AS INTEGER '
    s AS INTEGER
    i AS LONG
END TYPE
DIM snow(100) AS snow
 
FOR ds = 0 TO 100
    snow(ds).x = RND * 1024
    snow(ds).y = RND * 768
    snow(ds).m = RND + 1 * 3
    snow(ds).s = RND + 1 * 6
    snow(ds).i = vlocka(snow(ds).m, snow(ds).s)
NEXT
ds = 0
 
 
 
CLS , _RGB32(150, 150, 200)
 
mcl = 255
cl = 0
ob = 255 / 380
ocl = 187 / 380
FOR himl = 0 TO 380
    mcl = mcl + ob
    cl = cl + ocl
    LINE (0, himl)-(1024, himl), _RGBA32(cl, cl, mcl, mcl - ob)
NEXT
 
 
 
 
 
FOR h = 384 TO 768 STEP 80
    RANDOMIZE TIMER
    e = 0
    DO UNTIL n > 20
        n = RND * 50
    LOOP
 
    FOR g = 1 TO 1024
        e = e + .01
 
        DO UNTIL c2 > 100
            c2 = INT(127) '* 1 + RND)
        LOOP
 
        dc = (255 - c2) / 100
        clr = 0
 
        FOR d = 1 TO 50
            clr = clr + dc
            PSET (g, d + h + COS(e) * n), _RGBA32(255 - clr, 255 - clr, 255 - clr, clr)
        NEXT d
 
        FOR d = 51 TO 100
            clr = clr - dc
            PSET (g, d + h + SIN(e) * n), _RGBA32(255 - clr, 255 - clr, 255 - clr, clr)
        NEXT d
NEXT g, h
n = 0
 
o& = SnowMan&
T& = Tree
vlna& = textura_vlna&
srdce& = textura_srdce&
kids& = textura_detska&
kidsm& = textura_kids_more&
kidsm2& = textura_kids_more2&
lampa& = lamp&
 
_PUTIMAGE (-70, 197), T&, my&
_PUTIMAGE (824, 300)-(924, 390), o&, my&
_PUTIMAGE (200, 150), T&, my&
 
REM '$include:'song.bm'
 
DIM SHARED lamela AS LONG, cihl AS LONG
REDIM SHARED Fire(0) AS LONG
lamela& = parketa&
cihl& = cihla&
fireit
treeB = mytree
 
steck& = steckdose&
svice_plamen
svicen = svice
calender& = calend4&
REM m& = sound_theme& 'in sound version!
 
 
SCREEN my&
 
 
PCOPY _DISPLAY, 1
' _SNDPLAY m&
 
DO
    PCOPY 1, _DISPLAY
    FOR ss = 0 TO 100
        RANDOMIZE TIMER
        IF RND * 10 > 3 THEN ran = .5 ELSE ran = -5
        snow(ss).x = snow(ss).x - RND
        speed = snow(ss).s / 3
        snow(ss).y = snow(ss).y + speed
 
        IF snow(ss).y > 1024 THEN
            snow(ss).x = RND * 1024
            snow(ss).y = RND * 768
            snow(ss).m = RND + 1 * 3
            IF TIMER * 100 MOD 10 = 0 THEN
                snow(ss).s = RND + 1 * 24
                snow(ss).m = RND + 1 * 6
            ELSE
                snow(ss).s = RND + 1 * 6
            END IF
            _FREEIMAGE snow(ss).i
            snow(ss).i = vlocka(snow(ss).m, snow(ss).s)
        END IF
 
        _PUTIMAGE (snow(ss).x, snow(ss).y), snow(ss).i
    NEXT
    IF _KEYHIT = 27 THEN SYSTEM
 
    interier
    _PUTIMAGE (400, 50), treeB
    _PUTIMAGE (70, 512), steck&, 0
    _PUTIMAGE (924, 512), steck&, 0
 
    PACK 600, 670, 50, 30, 40, kids&
    PACK 660, 680, 90, 90, 5, srdce&
    PACK 640, 665, 10, 10, 10, vlna&
    PACK 750, 670, 75, 20, 16, kidsm&
    PACK 770, 710, 50, 45, 2, kidsm2&
    PACK 830, 660, 50, 10, 25, kids&
    PACK 782, 655, 50, 40, 5, vlna&
    PACK 850, 670, 15, 30, 15, kidsm&
    PACK 525, 675, 35, 50, 15, kidsm&
 
 
    _PUTIMAGE (0, 380), lampa&
    _PUTIMAGE (240, 360), svicen, 0
    _PUTIMAGE (260, 360), plamenek(plamenindex)
    _PUTIMAGE (305, 360), plamenek(plamenindex2)
    _PUTIMAGE (355, 360), plamenek(plamenindex)
 
    plamenindex2 = 10 - plamenindex
    IF TIMER > plamentimer THEN
        plamenindex = plamenindex + 1: IF plamenindex > 10 THEN plamenindex = 0
        plamentimer = TIMER + .2
    END IF
    _PUTIMAGE (465, 300), calender&
    view_theme
    _DISPLAY
    _LIMIT 30
LOOP
 
SUB interier
    '------------- upgrade fatal ------------------
    LINE (0, 150)-(450, 468), _RGBA32(255, 255, 255, 10), BF
    FOR s = 0 TO 10
        LINE (0 + s, 150 + s)-(450 - s, 468 - s), _RGB32(255, 255, 255), B
    NEXT
 
    LINE (574, 150)-(1023, 468), _RGBA32(255, 255, 255, 10), BF
 
    FOR s = 0 TO 10
        LINE (574 + s, 150 + s)-(1023 - s, 468 - s), _RGB32(255, 255, 255), B
    NEXT
 
    db = 50 / 149
    dbc = 255
    FOR strop = 1 TO 149
        dbc = dbc - db
        LINE (0, strop)-(1023, strop), _RGB32(dbc, dbc, dbc)
    NEXT
 
    LINE (0, 100)-(1023, 100), _RGB32(200, 130, 120)
 
    LINE (451, 150)-(575, 468), _RGB32(dbc, dbc, dbc), BF
    LINE (0, 469)-(1023, 569), _RGB32(dbc, dbc, dbc), BF
 
 
    FOR licheradyY = 570 TO 768 STEP 60
        FOR licheradyX = 0 TO 1023 STEP 100
            _PUTIMAGE (licheradyX, licheradyY), lamela&, 0
        NEXT
    NEXT
 
    FOR SuderadyY = 600 TO 768 STEP 60
        FOR SuderadyX = -50 TO 1023 STEP 100
            _PUTIMAGE (SuderadyX, SuderadyY), lamela&, 0
        NEXT
    NEXT
 
    pd = _DEST
    krb& = _NEWIMAGE(200, 200, 32)
    _DEST krb&
 
 
    FOR licheradyY = 0 TO 200 STEP 16
        FOR licheradyX = 0 TO 200 STEP 30
            _PUTIMAGE (licheradyX, licheradyY), cihl&, krb&
        NEXT
    NEXT
 
    FOR SuderadyY = 8 TO 206 STEP 16
        FOR SuderadyX = -15 TO 200 STEP 30
            _PUTIMAGE (SuderadyX, SuderadyY), cihl&, krb&
        NEXT
    NEXT
 
    mask = _NEWIMAGE(200, 200, 32)
    _DEST mask
    CLS , _RGB32(255, 255, 255)
    CIRCLE (100, 100), 70, _RGB32(0, 0, 0)
    PAINT (100, 100), _RGB32(0, 0, 0)
    LINE (30, 100)-(170, 170), _RGB32(0, 0, 0), BF
    LINE (110, 165)-(120, 169), _RGB32(127, 72, 17), BF 'polinko
    LINE (40, 165)-(90, 169), _RGB32(127, 72, 17), BF 'polinko
    LINE (159, 157)-(145, 169), _RGB32(117, 72, 17), BF 'polinko
    poly = 40 / 129
    polenoy = 160
    FOR polenoX = 40 TO 159 STEP 4
        polenoy = polenoy - poly
        LINE (polenoX, polenoy)-(polenoX + 4, polenoy + 4), _RGB32(127, 72, 17), BF
    NEXT
 
 
    _CLEARCOLOR _RGB32(255, 255, 255), mask
    _PUTIMAGE (0, 0), mask, krb&
    _FREEIMAGE mask
 
 
    SHARED fire_index, fire_timer
    IF TIMER > fire_timer THEN fire_index = fire_index + 1: fire_timer = TIMER + .1: IF fire_index > 30 THEN fire_index = 0
 
    _PUTIMAGE (70, 120), Fire(fire_index), krb&
    _PUTIMAGE (50, 110), Fire(fire_index), krb&
    _PUTIMAGE (90, 110), Fire(fire_index), krb&
 
    LINE (0, 0)-(1023, 149), _RGB32(10, 10, 10), BF
 
 
    _DEST pd
    _PUTIMAGE (210, 490), krb&, 0
    _FREEIMAGE krb&
    '-------------
    clock 464, 150
 
END SUB
 
SUB fireit
    REDIM Fire(30) AS LONG
    de = _DEST
    FOR d = 0 TO 30
        Fire(d) = _NEWIMAGE(50, 50, 32)
        _DEST Fire(d)
        FOR o = 4 TO 1 STEP -1
            R = 255 - (RND * 30)
            G = 83 * 1 + RND
            B = 60 * 1 + RND
            A = 60 * (20 + RND)
 
            Re = 255 - (1 + RND * 30)
            Ge = 83 * 1 + RND
            Be = 60 * 1 + RND
            Ae = 127 * (20 + RND)
 
 
 
            IF R < Re THEN SWAP R, Re
            IF G < Ge THEN SWAP G, Ge
            IF B < Be THEN SWAP B, Be
            IF A < Ae THEN SWAP A, Ae
 
            vo = 1: vyska = 0
            FOR height = 0 TO 49
                vyska = vyska + vo: IF vyska = 25 THEN vo = -1
                h = ABS(vyska) * (RND + 1)
 
                ro = (Re - R) / h
                go = (Ge - G) / h
                bo = (Be - B) / h
                ao = (A - Ae) / h
 
                FOR drawline = 1 TO h
                    R = R + ro: G = G + go: B = B + bo: A = A + ao
                    klr~& = _RGBA32(R, G, B, A)
                    PSET (height, 50 - drawline), klr~&
                NEXT
            NEXT height
        NEXT o
        _CLEARCOLOR _RGB32(0, 0, 0), Fire(d)
    NEXT d
    _DEST de
END SUB
 
FUNCTION parketa& 'generuje lamelu plovouci podlahy
    pd = _DEST
    parketa& = _NEWIMAGE(100, 30, 32)
    startR = 127: startG = 39: startB = 17
    sR = (200 - 127) / 30: sG = (200 - 39) / 30: sB = (155 - 17) / 30
    _DEST parketa&
    FOR dit = 1 TO 30
        startR = startR + sR: startG = startG + sG: startB = startB + sB
        LINE (0, dit)-(99, dit), _RGB32(startR, startG, startB)
    NEXT
    FOR r = 0 TO 1
        LINE (r, r)-(99 - r, 30 - r / 2), _RGB32(0, 0, 0), B
    NEXT
    _DEST pd
END FUNCTION
 
 
FUNCTION cihla&
    pd = _DEST
    cihla& = _NEWIMAGE(30, 8, 32)
    startR = 255: startG = 39: startB = 17
    sR = 5 / 8: sG = 39 / 8: sB = 17 / 8
    _DEST cihla&
    FOR dit = 1 TO 8
        startR = startR - sR: startG = startG - sG: startB = startB - sB
        LINE (0, dit)-(29, dit), _RGB32(startR, startG, startB)
    NEXT
    FOR r = 0 TO 1
        LINE (r, r)-(30 - r, 8 - r / 2), _RGB32(255, 250, 245), B
    NEXT
    _DEST pd
END FUNCTION
 
 
 
FUNCTION vlocka& (v, rv) 'snow
    '----------
    '    v = 50
    '    rv = 24
    '----------
    old = _DEST
    vlocka& = _NEWIMAGE(100, 100, 32)
    x = 50: y = 50
    _DEST vlocka&
    FOR radius = 0 TO v
        FOR circuit = 0 TO 360 STEP 30
            u = _D2R(circuit)
            PSET (x + SIN(u) * radius, y + COS(u) * radius), _RGBA32(255, 255, 255, 255 - 2 * radius)
            IF radius MOD 10 = 0 THEN
                rv = rv - .1
                FOR rad = 0 TO rv
                    FOR circ = 0 TO 360 STEP 10
                        u2 = _D2R(circ)
                        PSET (x + SIN(u) * radius + SIN(u2) * rad, y + COS(u) * radius + COS(u2) * rad), _RGBA32(255, 255, 255, 255 - 2 * radius)
                    NEXT
                NEXT
            END IF
        NEXT
    NEXT
    rv = 0
    _DEST old
    _SETALPHA 0, _RGB32(0, 0, 0), vlocka&
END FUNCTION
 
 
 
 
 
 
FUNCTION SnowMan&
    SnowMan& = _NEWIMAGE(320, 380, 32)
    sou = _DEST
    des = _SOURCE
    _DEST SnowMan&
    _SOURCE SnowMan&
    CLS , _RGB32(255, 0, 0)
 
    sx = 160
    sy = 50
    colorbord = 2048 / 50
 
 
    LINE (sx - 40, sy - 30)-(sx + 44, sy - 32), _RGB32(116, 11, 50)
    LINE (sx - 40, sy + 30)-(sx + 44, sy + 35), _RGB32(116, 11, 50)
    LINE (sx - 40, sy - 30)-(sx - 40, sy + 30), _RGB32(116, 11, 50)
    LINE (sx + 44, sy - 32)-(sx + 44, sy + 35), _RGB32(116, 11, 50)
    PAINT (sx - 30, sy - 25), _RGB32(116, 11, 50) ', _RGB32(116, 11, 50)
 
 
    FOR koule = 1 TO 4 STEP 1
        corr = 255
        FOR radius = 50 + 6 * koule TO 0 STEP -1
            corr = corr - colorbord
            FOR obvod = 0 TO _PI(2) STEP .001
                IF koule <= 3 THEN
                    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)
                END IF
                SELECT CASE koule
                    CASE 2
                        cr2 = cr2 + (255 / 319608)
                        PSET (sx - 25 + SIN(obvod) * cr2 / 35, sy + 65 + COS(obvod) * cr2 / 35), _RGB32(255 - cr2, 255 - cr2, 255 - cr2)
                        PSET (sx + 25 + SIN(obvod) * cr2 / 35, sy + 65 + COS(obvod) * cr2 / 35), _RGB32(255 - cr2, 255 - cr2, 255 - cr2)
                        FOR pusa = 320 TO 400 STEP 20
                            ssx = 4 + SIN(_D2R(pusa)) * 55
                            ssy = 50 + COS(_D2R(pusa)) * 65
                            PSET (sx + ssx + SIN(obvod) * cr2 / 45, sy + ssy + COS(obvod) * cr2 / 45), _RGB32(255 - cr2, 255 - cr2, 255 - cr2)
                        NEXT
 
                        PSET (sx + SIN(obvod) * cr2 / 55, sy + 85 + COS(obvod) * cr2 / 35), _RGB32(cr2, 0, 0)
                    CASE 3
 
                        PSET (sx - 70 + SIN(obvod) * radius / 2, 75 * koule + sy - 70 + COS(obvod) * radius / 2.2), _RGB32(255 - corr, 255 - corr, 255 - corr)
                        PSET (sx + 70 + SIN(obvod) * radius / 2, 75 * koule + sy - 70 + COS(obvod) * radius / 2.2), _RGB32(255 - corr, 255 - corr, 255 - corr)
 
 
                        IF obvod <= _PI AND radius > 40 THEN
                            PSET (sx + 40 + SIN(obvod) * radius / 4, sy + COS(obvod) * radius / 4.2), _RGB32(127 - corr, 255 - corr, 5 - corr)
                        END IF
 
                    CASE 4
                        cr3 = cr3 + 255 / 471300
                        FOR knoflik = sy + 160 TO sy + 300 STEP 25
                            IF knoflik = sy + 210 THEN _CONTINUE
                            PSET (sx + SIN(obvod) * cr3 / 45, knoflik + COS(obvod) * cr3 / 45), _RGB32(cr3 / 2, 0, 100 - cr3 / 2)
                        NEXT
 
                        FOR tecY = sy - 15 TO sy + 35 STEP 30
                            FOR tecX = sx - 30 TO sx + 44 STEP 30
                                b = b + .0001
                                PSET (tecX + SIN(obvod) * cr3 / 65, tecY + COS(obvod) * cr3 / 65), _RGB32(b, 122 - b / 3, 100 - b / 4)
 
                            NEXT
                        NEXT
                END SELECT
            NEXT
        NEXT
    NEXT
 
    FOR sila = 1 TO 6
        ko = ko + 255 / 6
        kr = 255 - ko
        LINE (sx - 70 + sila, sy + 180)-(sx - 60 + sila, sy + 225), _RGB32(kr, kr, kr) 'spodni cast nasady kostete
        LINE (sx - 80 + sila, sy + 130)-(sx - 100 + sila, sy + 50), _RGB32(kr, kr, kr) 'horni cast nasady kostete
 
        LINE (sx - 100 + sila, sy + 50)-(sx - 80 + sila, sy + 40), _RGB32(kr, kr, kr)
        LINE (sx - 80 + sila, sy + 40)-(sx - 75 + sila, sy + 30), _RGB32(kr, kr, kr)
        LINE (sx - 75 + sila, sy + 30)-(sx - 78 + sila, sy - 10), _RGB32(kr, kr, kr)
        LINE (sx - 75 + sila, sy + 20)-(sx - 65 + sila, sy - 7), _RGB32(kr, kr, kr)
 
        LINE (sx - 75 + sila, sy + 30)-(sx - 98 + sila, sy - 20), _RGB32(kr, kr, kr)
        LINE (sx - 100 + sila, sy + 50)-(sx - 135 + sila, sy - 17), _RGB32(kr, kr, kr)
        LINE (sx - 100 + sila, sy + 50)-(sx - 115 + sila, sy - 22), _RGB32(kr, kr, kr)
        LINE (sx - 100 + sila, sy + 50)-(sx - 155 + sila, sy - 22), _RGB32(kr, kr, kr)
 
    NEXT
    _CLEARCOLOR _RGB32(255, 0, 0), SnowMan&
    _DEST sou
    _SOURCE des
END FUNCTION
 
FUNCTION Tree&
    Tree& = _NEWIMAGE(320, 380, 32)
    des = _DEST
    _DEST Tree&
    sx = 160
    sy = 50
    LINE (sx - 10, 270)-(sx + 10, 200), _RGB32(111, 55, 22), BF
    posun_barvy = 255 / (15708 / 2)
    FOR prumer = 100 TO 50 STEP -25
        b = 0
        FOR oblouk = -1 / 4 * _PI TO 1 / 4 * _PI STEP .0001
            b = b + posun_barvy
            IF b >= 255 OR b < 0 THEN posun_barvy = posun_barvy * -1
            kolor& = _RGB32(255 - b, 512 - b, 255 - b)
            LINE (sx, sy + prumer)-(sx + SIN(oblouk) * prumer, sy + prumer + COS(oblouk) * prumer), kolor& 'try add ,B for Minecraft mode :-D
        NEXT
    NEXT prumer
    _CLEARCOLOR _RGB32(0, 0, 0), Tree&
    _DEST des
END FUNCTION
 
SUB clock (x, y)
    de = _DEST
    clocka& = _NEWIMAGE(100, 100, 32)
    _DEST clocka&
    vterina = VAL(RIGHT$(TIME$, 2))
    hodina = VAL(LEFT$(TIME$, 2))
    minuta = VAL(MID$(TIME$, 4, 2))
 
    IF hodina > 12 THEN hodina = hodina - 12
    hodina = hodina + (1 / 59) * minuta
 
 
    vt = vterina + 45
    ho = hodina + 45
    mi = minuta + 45
 
    pozicevterina = _PI(2) / 60 * vt
    poziceminuta = _PI(2) / 60 * ho * 5
    pozicehodina = _PI(2) / 60 * mi
 
    xs = 50 + COS(pozicevterina) * 30
    ys = 50 + SIN(pozicevterina) * 30
 
    xm = 50 + COS(poziceminuta) * 35
    ym = 50 + SIN(poziceminuta) * 35
 
    xh = 50 + COS(pozicehodina) * 40
    yh = 50 + SIN(pozicehodina) * 40
 
    FOR n = 1 TO 100
        LINE (n, 0)-(n, 99), _RGB32(127 - n, n, 27 + n), BF
    NEXT n
    LINE (0, 0)-(99, 99), _RGB32(255, 255, 255), B
 
    COLOR _RGBA32(127, 127, 127, 150)
    _PRINTMODE _KEEPBACKGROUND
    _PRINTSTRING (35, 45), "QB64"
    COLOR _RGB32(255, 255, 255)
 
 
    LINE (50, 50)-(xh, yh), _RGB32(255, 255, 0)
    LINE (50, 50)-(xm, ym), _RGB32(255, 255, 0)
    LINE (50, 50)-(xs, ys), _RGB32(0, 255, 255)
    m = 0
    FOR kruh = 0 TO _PI(2) STEP _PI(2) / 60
        PSET (50 + COS(kruh) * 47, 50 + SIN(kruh) * 47)
        IF m MOD 5 = 0 THEN LINE (50 + COS(kruh) * 47, 50 + SIN(kruh) * 47)-(50 + COS(kruh) * 44, 50 + SIN(kruh) * 44), , BF
        m = m + 1
    NEXT kruh
    _DEST de
    _PUTIMAGE (x, y), clocka&, de
    _FREEIMAGE clocka&
END SUB
 
 
 
 
FUNCTION mytree&
    x = 320: y = 384
    mytree& = _NEWIMAGE(640, 768, 32)
 
    de = _DEST
    _DEST mytree&
    CLS , _RGB32(1, 1, 1)
    radius = -1
    FOR k = 150 TO 568
        IF k > 460 THEN
            LINE (310, k)-(330, k + 20), _RGB32(122, 22, 17), BF
        END IF
        IF k MOD 6 = 0 THEN
            radius = radius - 1
            FOR r = -_PI / 2 TO _PI / 2 STEP .01
                x = 320 + SIN(r) * r ^ 2 * radius
                y = k + COS(r) * radius
                red = 55 * RND
                green = 255 * RND
                blue = 60 * RND
                FOR vetvicka = 0 TO _PI
                    FOR s = 1 TO 5
                        PSET (x + SIN(vetvicka) * s, y + COS(vetvicka) * s), _RGB32(red, green, blue)
                    NEXT s
                NEXT
            NEXT
 
        END IF
    NEXT
 
    FOR y = 0 TO 768 STEP 10
        FOR x = 0 TO 640 STEP 15
            _SOURCE mytree&
            IF POINT(x, y) <> _RGB32(1, 1, 1) AND POINT(x, y) <> _RGB32(122, 22, 17) THEN
                IF RND * 10 > 5 THEN ozdoba x, y
            END IF
    NEXT x, y
 
    Star 10, 45, 320, 138, 6
    _CLEARCOLOR _RGB32(1, 1, 1), mytree&
    _DEST de
 
END FUNCTION
 
SUB ozdoba (x, y)
    RANDOMIZE TIMER
    radius = 1 + RND * 12
    startR = 255 * 1 + RND
    startG = 255 * 1 + RND
    startB = 255 * 1 + RND
    startA = 150 * (1 + RND)
 
    mr = (255 - startR) / radius
    mg = (255 - startG) / radius
    mb = (255 - startB) / radius
    ma = (255 - startA) / radius
 
    FOR dr = 0 TO radius
        FOR obvod = 0 TO _PI(2) STEP .01
            startR = startR + mr
            startG = startG + mg
            startB = startB + mb
            PSET (x + SIN(obvod) * dr, y + COS(obvod) * dr), _RGB32(startR, startG, startB)
        NEXT
    NEXT dr
END SUB
 
 
SUB Star (r1, r2, x, y, n) 'radius 1, radius 2, position x,y and n = number of vertexes
    FOR h = _PI TO _PI(3) STEP _PI(2) / n
        x1 = x + COS(h) * r2
        y1 = y + SIN(h) * r2
 
        x2 = x + COS(h + _D2R(-36)) * r1
        y2 = y + SIN(h + _D2R(-36)) * r1
 
        IF ox1 THEN
            LINE (x2, y2)-(ox1, oy1)
        END IF
        ox1 = x1
        oy1 = y1
        ox2 = x2
        oy2 = y2
 
        LINE (x1, y1)-(x2, y2)
    NEXT
    PAINT (x, y)
 
    IF r1 > r2 THEN L = r1 ELSE L = r2
 
    FOR sx = x - L TO x + L
        FOR sy = y - L TO y + L
            IF POINT(sx, sy) = _RGB32(255, 255, 255) THEN M = M + 1
    NEXT: NEXT
 
    prechod = 255 / M
 
    FOR sx = x - L TO x + L
        FOR sy = y - L TO y + L
 
            IF POINT(sx, sy) = _RGB32(255, 255, 255) THEN
                PSET (sx, sy), _RGB32(255 - nc, 255 - nc, -512 + nc)
                nc = nc + prechod
            END IF
    NEXT: NEXT
 
 
END SUB
 
FUNCTION steckdose&
    steckdose& = _NEWIMAGE(30, 50, 32)
    de = _DEST
    _DEST steckdose&
    CLS , _RGB32(200, 200, 255)
    LINE (4, 4)-(26, 46), _RGB32(255, 200, 255), BF
 
    dy = -2
 
    CIRCLE (15, dy + 16), 9, _RGB32(55, 255, 255)
    PAINT (15, dy + 16), _RGB32(227, 227, 227), _RGB32(55, 255, 255)
    LINE (10, dy + 17)-(12, dy + 19), _RGB32(0, 0, 20), BF
    LINE (19, dy + 17)-(21, dy + 19), _RGB32(0, 0, 20), BF
    LINE (14, dy + 10)-(16, dy + 12), _RGB32(127, 127, 127), BF
 
    dy = 21
 
    CIRCLE (15, dy + 16), 9, _RGB32(55, 255, 255)
    PAINT (15, dy + 16), _RGB32(227, 227, 227), _RGB32(55, 255, 255)
    LINE (10, dy + 17)-(12, dy + 19), _RGB32(0, 0, 20), BF
    LINE (19, dy + 17)-(21, dy + 19), _RGB32(0, 0, 20), BF
    LINE (14, dy + 10)-(16, dy + 12), _RGB32(127, 127, 127), BF
 
    _DEST de
END FUNCTION
 
 
FUNCTION textura_srdce&
 
    textura_srdce = _NEWIMAGE(320, 260, 32)
    so = _SOURCE
    de = _DEST
    _DEST textura_srdce&
    _SOURCE textura_srdce&
    CLS , _RGB32(255, 255, 255)
 
    CIRCLE (116, 100), 40, _RGB32(255, 0, 0)
    PAINT (116, 100), _RGB32(255, 0, 0)
    CIRCLE (196, 100), 40, _RGB32(255, 0, 0)
    PAINT (196, 100), _RGB32(255, 0, 0)
    LINE (86, 127)-(160, 220), _RGB32(255, 0, 0)
    LINE (226, 127)-(160, 220), _RGB32(255, 0, 0)
    PAINT (160, 200), _RGB32(255, 0, 0)
 
    FOR y = 0 TO 260 STEP 26
        FOR x = 0 TO 320 STEP 32
            IF POINT(x, y) <> _RGB32(255, 0, 0) THEN
                CIRCLE (x, y), 5, _RGB32(200, 200, 200)
                PAINT (x, y), _RGB32(200, 200, 200), _RGB32(200, 200, 200)
            END IF
    NEXT: NEXT
 
    _DEST de
    _SOURCE so
END FUNCTION
 
 
FUNCTION textura_kids_more&
    de = _DEST
    textura_kids_more& = _NEWIMAGE(640, 480, 32)
    _DEST textura_kids_more&
    CLS , _RGB32(0, 255, 0)
    g& = textura_detska&
    _CLEARCOLOR _RGB32(0, 5, 255), g&
 
    FOR y = 0 TO 479 STEP 150
        FOR x = 0 TO 639 STEP 150
            _PUTIMAGE (x, y)-(x + 140, y + 140), g&, textura_kids_more&
    NEXT: NEXT
    _FREEIMAGE g&
    _DEST de
 
END FUNCTION
 
FUNCTION textura_kids_more2&
    de = _DEST
    textura_kids_more2& = _NEWIMAGE(640, 480, 32)
    _DEST textura_kids_more2&
    CLS , _RGB32(255, 255, 255)
    g& = textura_srdce&
 
    FOR y = 0 TO 479 STEP 200
        FOR x = 0 TO 639 STEP 200
            _PUTIMAGE (x, y)-(x + 200, y + 200), g&, textura_kids_more2&
    NEXT: NEXT
    _FREEIMAGE g&
    _DEST de
 
END FUNCTION
 
 
 
FUNCTION textura_detska&
    textura_detska& = _NEWIMAGE(512, 653, 32)
    de = _DEST
    _DEST textura_detska&
    CLS , _RGB32(0, 5, 255)
    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
    LINE (256, 230)-(220, 236): LINE (220, 236)-(256, 242): LINE (256, 242)-(256, 230)
    LINE (203, 101)-(355, 175)
    LINE (208, 90)-(203, 101)
    LINE (360, 163)-(355, 175)
 
    LINE (217, 95)-(208, 90)
    LINE (348, 156)-(360, 163)
    LINE (379, 96)-(348, 156)
    LINE (247, 42)-(217, 95)
    LINE (247, 42)-(379, 96)
 
    PAINT (300, 90), _RGB32(0, 255, 0), _RGB32(255, 255, 255)
    PAINT (287, 127), _RGB32(0, 255, 0), _RGB32(255, 255, 255)
    PAINT (255, 110), _RGB32(0, 255, 0), ' _RGB32(255, 255, 255)
    PAINT (255, 189), _RGB32(255, 255, 255), ' _RGB32(255, 255, 255)
    PAINT (255, 284), _RGB32(255, 255, 255), ' _RGB32(255, 255, 255)
    PAINT (322, 402), _RGB32(255, 255, 255), ' _RGB32(255, 255, 255)
    PAINT (249, 234), _RGB32(255, 0, 0), _RGB32(255, 255, 255)
    PAINT (213, 200), _RGB32(0, 0, 0), _RGB32(255, 255, 255)
    PAINT (300, 200), _RGB32(0, 0, 0), _RGB32(255, 255, 255)
    PAINT (250, 320), _RGB32(0, 0, 0), _RGB32(255, 255, 255)
    PAINT (250, 390), _RGB32(0, 0, 0), _RGB32(255, 255, 255)
    PAINT (250, 490), _RGB32(0, 0, 0), _RGB32(255, 255, 255)
    CIRCLE (256, 200), 90, _RGB32(0, 255, 0), .1, 1.9
    _DEST de
END FUNCTION
 
FUNCTION textura_vlna&
    textura_vlna& = _NEWIMAGE(512, 453, 32)
    de = _DEST
    _DEST textura_vlna&
 
    LINE (0, 0)-(512, 453), , B
    FOR x = 0 TO 512
        FOR y = 50 TO 384 STEP 50
            p = p + .01
            PSET (x, y + SIN(p) * 3)
            PSET (x, 50 + y + SIN(p) * 3)
        NEXT
 
    NEXT
 
    FOR clrit = 50 TO 450 STEP 50
        IF clrit MOD 100 = 0 THEN PAINT (30, clrit), _RGB32(255, 0, 0), _RGB32(255, 255, 255): _CONTINUE
        IF clrit MOD 50 = 0 THEN PAINT (30, clrit), _RGB32(255, 255, 255), _RGB32(255, 255, 255)
    NEXT
    _DEST de
END FUNCTION
 
 
 
SUB PACK (X1, Y1, vyska, sirka, hloubka, TEXTURE AS LONG)
    W = _WIDTH(TEXTURE&)
    H = _HEIGHT(teture&)
 
    TYPE kvadr
        x AS INTEGER
        y AS INTEGER
    END TYPE
    'PSEUDO 3D!
    DIM k(6) AS kvadr
 
    k(0).x = X1: k(0).y = Y1 'a
    k(1).x = X1 + sirka: k(1).y = Y1 'b                                                  F////////////E
    k(2).x = X1: k(2).y = Y1 - vyska 'c                                                 /          /  I
    k(3).x = X1 + sirka: k(3).y = Y1 - vyska 'd                                       C///////////D   I
    k(4).x = X1 + sirka + hloubka: k(4).y = Y1 - vyska - hloubka 'e                   I           I   G
    k(5).x = X1 + hloubka: k(5).y = Y1 - vyska - hloubka 'f                           I           I  /
    k(6).x = X1 + sirka + hloubka: k(6).y = Y1 - hloubka 'g                           A///////////B/
 
    _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
    _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
    _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
    _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
    _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
    _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
 
 
END SUB
 
 
 
 
FUNCTION lamp&
    de = _DEST
 
    lamp& = _NEWIMAGE(450, 400, 32)
    _DEST lamp&
    CLS , _RGB32(225, 255, 255)
    x = 105
    y = 100
 
 
    FOR xj = 1 TO 15
        FOR n = 200 TO 350 STEP .01
            s = s + .0005
            o = o + .01
            PSET (100 + xj + SIN(o) * 3, n), _RGB32(155 - s, 11, 20)
            PSET (100 + xj + COS(o) * 1, n), _RGB32(155 + s, 20, 11)
        NEXT
    NEXT
 
    prechod = 1
 
 
 
    stred = 30
    FOR yy = 0 TO 100
        r = 0
        stred = stred + .2
        FOR xx = -stred TO stred
            r = r + 1
            PSET (x + xx, y + yy), _RGBA32(190 + r, r, r / 2, 127 + r)
 
        NEXT
    NEXT
 
    LINE (65, 350)-(150, 355), _RGB32(190, 0, 0), BF
    _CLEARCOLOR _RGB32(225, 255, 255), lamp&
    _DEST de
END FUNCTION
 
 
SUB svice_plamen
    R = 127 + (120 * 1 + RND)
    de = _DEST
    FOR v = 0 TO 10
        rozptyl = R / (_PI(2) * 100 * 20)
        plamenek(v) = _NEWIMAGE(20, 50, 32)
        _DEST plamenek(v)
        R = 127 + (120 * 1 + RND)
        FOR prumer = 0 TO 20
 
            px = (1 + RND * 2)
            py = (1 + RND * 10)
            FOR pl = 0 TO _PI(2) STEP .01
                PSET (10 + SIN(pl) * px, 25 + COS(pl) * py), _RGB32(255 - (RND * 12), 255 - (250 * RND), 15 * RND)
                R = R + rozptyl
            NEXT pl
        NEXT prumer
        _CLEARCOLOR _RGB32(0, 0, 0), plamenek(v)
    NEXT v
    _DEST de
END SUB
 
FUNCTION svice&
    de = _DEST
    svice& = _NEWIMAGE(180, 140, 32)
    _DEST svice&
 
    sx = 70
    sy = 70
 
    CLS , _RGB32(255, 0, 0)
    FOR p = -_PI / 2 TO _PI / 2 STEP .001
        FOR sila = 1 TO 16
            PSET (sila + sx + SIN(p) * 50, sy + COS(p) * 10), _RGB32(255, 235, 0)
        NEXT
    NEXT
 
    LINE (sx, sy)-(sx + 8, sy + 45), _RGB32(255, 235, 0), BF
 
    FOR p = _D2R(180) TO _D2R(360) STEP .001
        FOR sila = 1 TO 16
            PSET (sila + (sx - 5) + COS(p) * 8, (sy + 60) + SIN(p) * 30), _RGB32(255, 235, 0)
        NEXT
    NEXT
 
    FOR p = -_PI / 2 TO _PI / 2 STEP .001
        FOR sila = 1 TO 16
            PSET (sila + (sx - 50) + SIN(p) * 8, (sy - 5) + COS(p) * 6), _RGB32(255, 255, 0)
            PSET (sila + (sx - 4) + SIN(p) * 8, (sy - 5) + COS(p) * 6), _RGB32(255, 255, 0)
            PSET (sila + (sx + 47) + SIN(p) * 8, (sy - 5) + COS(p) * 6), _RGB32(255, 255, 0)
        NEXT
    NEXT
    LINE (sx - 45, sy - 5)-(sx - 35, sy - 30), , BF
    LINE (sx, sy - 5)-(sx + 10, sy - 30), , BF
    LINE (sx + 50, sy - 5)-(sx + 60, sy - 30), , BF
 
    LINE (sx - 40, sy - 30)-(sx - 40, sy - 35), _RGB32(0, 0, 0)
    LINE (sx + 5, sy - 30)-(sx + 5, sy - 35), _RGB32(0, 0, 0)
    LINE (sx + 55, sy - 30)-(sx + 55, sy - 35), _RGB32(0, 0, 0)
    _CLEARCOLOR _RGB32(255, 0, 0), svice&
    _DEST de
END FUNCTION
 
FUNCTION calend4& 'original was not /4, but then is
    de = _DEST
    calend4& = _NEWIMAGE(400 / 4, 600 / 4, 32)
    _DEST calend4&
    b = 255 / (300 / 4 * 200 / 4)
    FOR stY = 0 TO 300 / 4
        FOR stX = 0 TO 200 / 4
            bi = bi + b
            LINE (stX, stY)-(400 / 4 - stX, 600 / 4 - stY), _RGB32(bi, bi, bi)
            LINE (stX, stY)-(200 / 4 - stX, 300 / 4 - stY), _RGB32(bi, bi, bi)
            LINE (200 / 4 + stX, 300 / 4 + stY)-(0, 600 / 4), _RGB32(bi, bi, bi)
            LINE (200 / 4 + stX, 300 / 4 + stY)-(400 / 4, 0), _RGB32(bi, bi, bi)
        NEXT
    NEXT
 
    LINE (0, 0)-(400 / 4, 600 / 4), _RGBA32(0, 0, 0, 200), BF
    a$ = ENVIRON$("SYSTEMROOT") + "\fonts\calibri.ttf"
    f = _LOADFONT(a$, 6, "MONOSPACE")
    IF f THEN _FONT f ELSE _PRINTSTRING (50 / 4, 220 / 4), "i need font!": EXIT FUNCTION
    _PRINTMODE _KEEPBACKGROUND
    COLOR _RGB32(238, 200, 194)
    _PRINTSTRING (140 / 4, 70 / 4), "December"
    x = 255 / 4: y = 170 / 4
    COLOR _RGB32(255, 255, 0)
 
    day = VAL(MID$(DATE$, 4, 2))
 
    FOR n = 1 TO 31
        IF n = day THEN LINE (x + 10 / 4, y - 10 / 4)-(x + 60 / 4, y + 25 / 4), _RGB32(255, 0, 0), B
        _PRINTSTRING (x, y), STR$(n)
        x = x + 50 / 4: IF x > 350 / 4 THEN x = 5 / 4: y = y + 75 / 4
    NEXT
 
    FOR s = 0 TO 6
        LINE (0 + s, 0 + s)-(399 / 4 - s, 599 / 4 - s), _RGB32(255 - s, 230 - s, 127 - s), B
    NEXT s
    _DEST de
END FUNCTION
 
FUNCTION loading&
 
    de = _DEST
    loading& = _NEWIMAGE(1600, 768, 32)
    _DEST loading&
    CLS , _RGB32(255, 255, 255)
    FOR r = 200 TO 568 STEP 40
        _PUTIMAGE (10, r), ice& '               L
        _FREEIMAGE ice&
    NEXT
 
    FOR r = 1 TO 160 STEP 20
        _PUTIMAGE (r, 558), ice& '
        _FREEIMAGE ice&
    NEXT
    '----------------------------
    FOR r = 0 TO _PI(2.5) STEP .1
        x = 220 + SIN(r) * 70 '                    O
        y = 380 + COS(r) * 175
        _PUTIMAGE (x, y), ice&
        _FREEIMAGE ice&
    NEXT
    '------------------------------
 
 
 
    FOR r = 1.5 * _PI TO _PI / 2 STEP -.1
        x = 440 + SIN(r) * 90
        y = 380 + COS(r) * 175
        _PUTIMAGE (x, y), ice&
        _FREEIMAGE ice&
    NEXT
    FOR r = 400 TO 568 STEP 10
        _PUTIMAGE (350, r), ice& '             A
        _FREEIMAGE ice&
        _PUTIMAGE (540, r), ice&
        _FREEIMAGE ice&
    NEXT
    FOR r = 350 TO 540 STEP 30
        _PUTIMAGE (r, 384), ice&
        _FREEIMAGE ice&
    NEXT r
    '-----------------------------------
    FOR r = 0 TO _PI STEP .1
        x = 610 + SIN(r) * 175
        y = 380 + COS(r) * 175 '                 D
        _PUTIMAGE (x, y), ice&
        _FREEIMAGE ice&
    NEXT
    FOR r = 200 TO 568 STEP 20
        _PUTIMAGE (610, r), ice& '
        _FREEIMAGE ice&
    NEXT
    '--------------------------------------
 
    FOR r = 200 TO 568 STEP 5
        _PUTIMAGE (850, r), ice& '           I
        _FREEIMAGE ice&
    NEXT
    '-----------------------------------
 
    p = 200
    FOR r = 200 TO 568 STEP 5
        _PUTIMAGE (940, r), ice& '           N
        _PUTIMAGE (1100, r), ice&
        p = p + 10
        IF p < 568 THEN
            _PUTIMAGE (740 + r, p), ice&
            _FREEIMAGE ice&
        END IF
    NEXT
    '----------------------------------------
    FOR r = _PI - .3 TO _PI(2) + .7 STEP .1
        x = 1280 + SIN(r) * 105 '                G
        y = 380 + COS(r) * 175
        _PUTIMAGE (x, y), ice&
        _FREEIMAGE ice&
    NEXT
 
    FOR r = 568 TO 400 STEP -30
        _PUTIMAGE (1350, r), ice&
        _FREEIMAGE ice&
    NEXT r
 
    FOR r = 1300 TO 1350 STEP 10
        _PUTIMAGE (r, 400), ice&
        _FREEIMAGE ice&
    NEXT r
    _CLEARCOLOR _RGB32(255, 255, 255), loading&
    _DEST de
END FUNCTION
 
 
 
FUNCTION ice&
    de = _DEST
    ice& = _NEWIMAGE(50, 90, 32)
    _DEST ice&
    width = 1 + RND * 50
    c = 255 / width
    FOR x = 1 TO width
        lenght = 1 + RND * 89
        b = 255 / x
        FOR y = 1 TO lenght
            DO UNTIL R < 116
                R = RND + 1 * 100
            LOOP
            DO UNTIL G > 160
                G = RND + 1 * 200
            LOOP
            a = 1 + RND * 127
            LINE (x, 1)-(x, y), _RGBA32(R - b - c, G - b - c, 255, a)
        NEXT
    NEXT
    _CLEARCOLOR _RGB32(0, 0, 0), ice&
    _DEST de
 
END FUNCTION
 
 
SUB init_theme
    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
    FOR f = 1 TO 270
        READ sv(f).x
        READ sv(f).y
        sv(f).b = INT(1 + (RND * 5))
        sv(f).a = 40 * sv(f).b
        sv(f).mA = 2
    NEXT
END SUB
 
SUB view_theme
    FOR i = 1 TO 270
        SELECT CASE sv(i).b
            CASE 1: clr~& = _RGBA32(255, 0, 0, sv(i).a)
            CASE 2: clr~& = _RGBA32(0, 255, 0, sv(i).a)
            CASE 3: clr~& = _RGBA32(255, 0, 255, sv(i).a)
            CASE 4: clr~& = _RGBA32(0, 0, 255, sv(i).a)
            CASE 5: clr~& = _RGBA32(0, 255, 255, sv(i).a)
            CASE 6: clr~& = _RGBA32(255, 255, 0, sv(i).a)
        END SELECT
 
        sv(i).a = sv(i).a + sv(i).mA
        IF sv(i).a > 254 OR sv(i).a < 2 THEN sv(i).mA = sv(i).mA * -1
        LINE (sv(i).x - 2, sv(i).y - 2)-(sv(i).x + 2, sv(i).y + 2), clr~&, BF
    NEXT i
END SUB
 

Děkuji, Johnno56!
Thank you, Johnno56!

bplus · « **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? ;-))

Petr · « **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.

bplus · « **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.

Petr · « **Reply #39 on:** December 23, 2018, 02:56:21 pm »

This program output is now available on my channel (in czech) on

Ashish · « **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]

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

Happly Holidays!

Ashish · « **Reply #41 on:** December 24, 2018, 02:00:09 pm »

@Petr
That Fabulous! You tried add many details!

Petr · « **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 · « **Reply #43 on:** December 24, 2018, 06:11:28 pm »

@Petr and @Ashish:

Great contributions, guys! Thanks a lot for participating!

Merry Christmas, everyone!

TempodiBasic · « **Reply #44 on:** December 24, 2018, 06:25:54 pm »

Hi Guys
just on timelimit... my little Christmas Card

Code: QB64: [Select]

_TITLE "Christmas Card"
_SCREENMOVE 100, 100
RANDOMIZE TIMER
DIM abete1 AS STRING, abete2 AS STRING, abete3 AS STRING, Stringa AS STRING, monte AS STRING
DIM ActualLetter AS INTEGER, LenMessage AS INTEGER, CountColor AS INTEGER
abete1 = "c2 BL2 BL2 BL2 BL2 BL2 BL2 BL2 BL2 BL2 BL2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2L2L2L2L2L2L2L2L2L2L2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2L2L2L2L2L2L2E2E2E2E2E2E2E2E2E2E2L2L2L2E2E2E2E2E2E2E2E2E2E2E2F2F2F2F2F2F2F2F2F2F2F2G2G2 L2L2L2L2F2F2F2F2F2F2F2F2F2F2L2L2L2L2L2L2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2L2L2L2L2L2L2L2L2L2L2L2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2 B U2B U2B U2B U2B U2 p 2, 2"
abete2 = "c2L2L2L2L2L2L2L2L2L2L2L2L2L2L2E2E2E2L2L2L2E2E2E2E2E2E2L2L2L2E2E2E2E2E2E2F2F2F2F2F2F2L2L2L2F2F2F2F2F2F2L2L2L2F2F2F2L2L2L2L2 B U2B U2 p 2, 2"
abete3 = " c2 L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2L2L2L2L2L2L2L2L2L2L2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2L2L2L2L2L2L2L2L2L2L2L2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F4L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L2L6BU8 p 2, 2"
monte = "c15 BM 200,590 M 400,80 M 600,590 M200,590 Br8 Bu8 p 15,15"
SCREEN _NEWIMAGE(800, 600, 9)
Stringa = " HAPPY CHRISTMAS "
LenMessage = LEN(Stringa)
DO
    IF CountColor < 15 THEN CountColor = CountColor + 1 ELSE CountColor = 1
    COLOR CountColor
    _PRINTSTRING (400 - (_PRINTWIDTH(Stringa) / 2), 10), Stringa
    Stringa = RIGHT$(Stringa, 1) + LEFT$(Stringa, LenMessage - 1)
    DRAW monte
 
    PSET (410, 100)
    DRAW abete2
 
    PSET (385, 200)
    DRAW abete2
    PSET (435, 200)
    DRAW abete2
 
    PSET (350, 300)
    DRAW abete2
    PSET (410, 300)
    DRAW abete2
    PSET (465, 300)
    DRAW abete2
 
    PSET (320, 400)
    DRAW abete2
    PSET (380, 400)
    DRAW abete2
    PSET (450, 400)
    DRAW abete2
    PSET (500, 400)
    DRAW abete2
 
    PSET (280, 500)
    DRAW abete2
    PSET (350, 500)
    DRAW abete2
    PSET (420, 500)
    DRAW abete2
    PSET (490, 500)
    DRAW abete2
    PSET (550, 500)
    DRAW abete2
 
    PSET (250, 585)
    DRAW abete2
    PSET (320, 585)
    DRAW abete2
    PSET (390, 585)
    DRAW abete2
    PSET (460, 585)
    DRAW abete2
    PSET (530, 585)
    DRAW abete2
    PSET (580, 585)
    DRAW abete2
 
 
    _LIMIT 10
LOOP UNTIL _KEYDOWN(27)

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

News:

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

FellippeHeitor

Re: 'Tis the season, AGAIN! - Xmas contest

johnno56

Re: 'Tis the season, AGAIN! - Xmas contest

Pete

Re: 'Tis the season, AGAIN! - Xmas contest

johnno56

Re: 'Tis the season, AGAIN! - Xmas contest

Pete

Re: 'Tis the season, AGAIN! - Xmas contest

Petr

Re: 'Tis the season, AGAIN! - Xmas contest

bplus

Re: 'Tis the season, AGAIN! - Xmas contest

Petr

Re: 'Tis the season, AGAIN! - Xmas contest

bplus

Re: 'Tis the season, AGAIN! - Xmas contest

Petr

Re: 'Tis the season, AGAIN! - Xmas contest

Ashish

Re: 'Tis the season, AGAIN! - Xmas contest

Ashish

Re: 'Tis the season, AGAIN! - Xmas contest

Petr

Re: 'Tis the season, AGAIN! - Xmas contest

FellippeHeitor

Re: 'Tis the season, AGAIN! - Xmas contest

TempodiBasic

Re: 'Tis the season, AGAIN! - Xmas contest