qb64/programs/samples/thebob/animax/axgfx.bas

CHDIR ".\programs\samples\thebob\animax"

DEFINT A-Z
DECLARE SUB PrintSTRING (x, y, Prnt$, Font)
DECLARE SUB Interval (Length!)
DECLARE SUB DrawBOX (x, y, xx, yy, FlipFLOP)

DIM Box(10000)
DIM SHARED FontBOX(26000)
DIM TitleBOX(1000)
DIM ExBOX(1000)
DIM ToolBOX(1000)
DIM BBox(400)
DIM CBox(1 TO 672)
TYPE RecentTYPE
PName AS STRING * 8
FName AS STRING * 130
END TYPE
DIM Recent(1 TO 6) AS RecentTYPE

RESTORE HueDATA
Index = 1
FOR DStrings = 1 TO 10
READ h$
FOR n = 1 TO LEN(h$)
CBox(Index) = ASC(MID$(h$, n, 1)) - 35
Index = Index + 1
NEXT n
NEXT DStrings
DEF SEG = VARSEG(CBox(1))
BSAVE "anihues.bsv", VARPTR(CBox(1)), 1344
DEF SEG
OPEN "recent.axd" FOR RANDOM AS #1 LEN = LEN(Recent(1))
FOR n = 1 TO 6
Recent(n).PName = SPACE$(8)
Recent(n).FName = SPACE$(130)
PUT #1, n, Recent(n)
NEXT n
CLOSE #1

SCREEN 12
GOSUB Setpalette
'Create images from DATA
MaxWIDTH = 211
MaxDEPTH = 479
x = 0: y = 0
RESTORE PixDATA
DO
READ DataSTRING$
FOR n = 1 TO LEN(DataSTRING$)
Char$ = MID$(DataSTRING$, n, 1)
IF Char$ = CHR$(225) THEN Char$ = CHR$(160)
SELECT CASE Char$
CASE "!"
n = n + 1
a$ = MID$(DataSTRING$, n, 1)
Count = ASC(a$) + 68
CASE "#"
n = n + 1
B$ = MID$(DataSTRING$, n)
FOR I = 1 TO LEN(B$)
t$ = MID$(B$, I, 1)
IF t$ = "#" THEN EXIT FOR
c$ = c$ + t$
NEXT I
Count = VAL("&H" + c$)
n = n + LEN(c$)
c$ = ""
CASE ELSE
Count = ASC(Char$) - 60
END SELECT
n = n + 1
Colr = VAL("&H" + MID$(DataSTRING$, n, 1))
FOR Reps = 1 TO Count
PSET (x, y), Colr
x = x + 1
IF x > MaxWIDTH THEN x = 0: y = y + 1
NEXT Reps
NEXT n
LOOP UNTIL y > MaxDEPTH 'DATA drawing loop ends here --------------------
GET (16, 10)-(37, 35), ExBOX
GET (173, 0)-(182, 68), FontBOX
FOR x = 295 TO 335 STEP 10
PUT (x, 0), FontBOX, PSET
NEXT x
GET (300, 0)-(337, 67), FontBOX: PUT (300, 0), FontBOX
LINE (295, 0)-(300, 68), 0, BF
FOR y = 0 TO 400 STEP 68
PUT (300, y), FontBOX, PSET
NEXT y
GET (65, 0)-(116, 203), FontBOX: PUT (65, 0), FontBOX
PUT (337, 0), FontBOX, PSET
GET (117, 0)-(168, 203), FontBOX: PUT (117, 0), FontBOX
PUT (337, 204), FontBOX, PSET
GET (169, 0)-(211, 407), FontBOX: PUT (169, 0), FontBOX
PUT (391, 0), FontBOX, PSET
GET (156, 410)-(201, 477), FontBOX: PUT (156, 410), FontBOX
FOR y = 0 TO 400 STEP 68
PUT (434, y), FontBOX, PSET
NEXT y
GET (300, 0)-(300, 407), FontBOX: PUT (390, 0), FontBOX, PSET
GET (479, 0)-(479, 407), FontBOX: PUT (389, 0), FontBOX, PSET
GET (149, 304)-(152, 439), FontBOX: PUT (149, 304), FontBOX
PUT (431, 0), FontBOX, PSET
GET (156, 304)-(162, 407), FontBOX: PUT (156, 304), FontBOX
PUT (330, 304), FontBOX, PSET
FileNAME$ = "Book" + SPACE$(4)
FOR n = 1 TO 8
FontBOX(n) = ASC(MID$(FileNAME$, n, 1))
NEXT n
RESTORE Setpalette
FOR n = 9 TO 56
READ FontBOX(n)
NEXT n
FontBOX(57) = 12
Index = 58
x = 300: y = 0
FOR Index = 58 TO 18043 STEP 1635
GET (x, y)-(x + 89, y + 67), FontBOX(Index)
PUT (x, y), FontBOX(Index)
y = y + 68
IF y > 400 THEN x = x + 90: y = 0
NEXT Index
DEF SEG = VARSEG(FontBOX(0))
BSAVE "book.axb", VARPTR(FontBOX(1)), 19678 * 2&
DEF SEG
GET (0, 159)-(30, 174), TitleBOX
Index = 0
FOR y = 0 TO 160 STEP 20
GET (45, y)-(63, y + 14), ToolBOX(Index)
Index = Index + 100
NEXT y
DEF SEG = VARSEG(ToolBOX(0))
BSAVE "anitools.bsv", VARPTR(ToolBOX(0)), 1800
DEF SEG
Index = 0
FOR y = 0 TO 80 STEP 20
GET (0, y)-(10, y + 8), BBox(Index)
Index = Index + 50
NEXT y
FOR y = 100 TO 120 STEP 20
GET (0, y)-(15, y + 14), BBox(Index)
Index = Index + 75
GET (0, 140)-(30, 153), Box 'minimize/maximize buttons
GET (22, 0)-(28, 6), Box(150) 'screw
NEXT y
LINE (0, 0)-(64, 174), 0, BF
GET (13, 444)-(54, 453), FontBOX(10000): PUT (13, 444), FontBOX(10000)
GET (58, 444)-(87, 453), FontBOX(10200): PUT (58, 444), FontBOX(10200)
GET (91, 444)-(133, 453), FontBOX(10400)
GET (110, 444)-(133, 453), FontBOX(10600): PUT (91, 444), FontBOX(10400)
GET (54, 453)-(140, 462), FontBOX(10800): PUT (54, 453), FontBOX(10800)
PUT (53, 453), FontBOX(10600)
GET (13, 453)-(76, 462), FontBOX(11200): PUT (13, 453), FontBOX(11200)
Index = 12000
FOR x = 14 TO 104 STEP 10
IF x = 24 THEN Hop = -1 ELSE Hop = 0
GET (x + Hop, 462)-(x + 2 + Hop, 470), FontBOX(Index)
PUT (x + Hop, 462), FontBOX(Index)
Index = Index + 20
NEXT x

GOSUB GetFONT
CLS

LINE (0, 0)-(639, 17), 0, BF
LINE (30, 0)-(119, 16), 8, BF
LINE (0, 18)-(639, 40), 7, BF
LINE (0, 41)-(639, 41), 0
LINE (0, 411)-(639, 479), 7, BF
LINE (0, 411)-(639, 411), 15
'Tool bar
LINE (497, 20)-(497, 38), 8
LINE (498, 20)-(498, 38), 15
LINE (324, 28)-(326, 30), 0, BF
LINE (322, 26)-(328, 32), 0, B
FOR x = 313 TO 558 STEP 25
IF x = 488 THEN x = 508
LINE (x, 20)-(x + 24, 39), 8, B
LINE (x, 20)-(x + 23, 20), 15
LINE (x, 20)-(x, 38), 15
NEXT x
'Work area
LINE (0, 41)-(150, 479), 7, BF
LINE (0, 41)-(150, 41), 8
LINE (0, 42)-(150, 42), 15
LINE (151, 41)-(151, 410), 0
LINE (631, 43)-(639, 479), 7, BF
LINE (631, 41)-(639, 41), 8
LINE (631, 42)-(639, 42), 15
LINE (631, 42)-(631, 411), 15
LINE (154, 44)-(629, 409), 0, B
LINE (153, 43)-(628, 408), 7, B
PSET (153, 43), 15
PSET (153, 408), 15
PSET (628, 43), 15
PSET (628, 408), 15
'Coordinates box
LINE (19, 455)-(129, 473), 8, BF
LINE (21, 457)-(129, 471), 15, BF
LINE (129, 455)-(129, 473), 15
LINE (20, 473)-(129, 473), 15
LINE (20, 456)-(128, 472), 7, B
LINE (132, 463)-(146, 463), 7
'Status Bar blurbs box
LINE (280, 455)-(550, 473), 8, B
LINE (281, 473)-(550, 473), 15
LINE (550, 455)-(550, 473), 15
'Film strip graphic begins
LINE (15, 48)-(134, 407), 0, B
LINE (15, 48)-(133, 406), 8, BF
FOR y = 47 TO 404 STEP 17
IF y = 268 THEN y = 265
LINE (18, y)-(26, y + 5), 0, BF
LINE (19, y + 1)-(26, y + 5), 7, BF
LINE (122, y)-(129, y + 5), 0, BF
LINE (123, y + 1)-(129, y + 5), 7, BF
NEXT y
LINE (12, 44)-(136, 48), 7, BF
LINE (12, 407)-(136, 412), 7, BF
FOR y = 50 TO 381 STEP 70
IF y = 190 THEN y = 198
NEXT y
'Run control buttons
LINE (14, 414)-(135, 434), 0, B
LINE (15, 415)-(134, 415), 15
LINE (15, 433)-(134, 433), 8
LINE (134, 415)-(134, 433), 8
LINE (15, 415)-(15, 433), 15
FOR x = 38 TO 110 STEP 24
LINE (x, 414)-(x, 433), 8
LINE (x + 1, 415)-(x + 1, 433), 15
NEXT x
'Clock frame
LINE (563, 455)-(625, 473), 8, B
LINE (563, 473)-(625, 473), 15
LINE (625, 455)-(625, 473), 15
'Frame indicator
LINE (2, 191)-(149, 264), 7, BF
LINE (2, 190)-(149, 190), 15
LINE (3, 265)-(148, 265), 0
LINE (2, 191)-(2, 264), 15
LINE (149, 190)-(149, 265), 8
PUT (6, 194), Box(150), PSET
PUT (139, 194), Box(150), PSET
PUT (6, 255), Box(150), PSET
PUT (139, 255), Box(150), PSET
LINE (28, 192)-(121, 263), 8, BF
LINE (28, 192)-(121, 263), 15, B
LINE (28, 192)-(28, 262), 0
LINE (28, 192)-(120, 193), 0, B
LINE (30, 194)-(119, 261), 8, BF
LINE (124, 220)-(146, 235), 8, BF
LINE (124, 220)-(146, 235), 0, B
LINE (124, 235)-(146, 235), 15
LINE (146, 220)-(146, 235), 15
PrintSTRING 130, 222, "00", 1
'Color bar section
LINE (151, 423)-(190, 434), 8, B
LINE (151, 434)-(190, 434), 15
LINE (190, 423)-(190, 434), 15
LINE (152, 424)-(189, 433), 0, BF
CDATA:
DATA 0,8,7,15,1,2,3,4,5,6,9,10,11,12,13,14
RESTORE CDATA
FOR x = 200 TO 612 STEP 26
IF x = 304 THEN x = 321
READ Colr
LINE (x, 423)-(x + 23, 434), Colr, BF
LINE (x, 423)-(x + 23, 434), 0, B
LINE (x, 434)-(x + 23, 434), 15
LINE (x + 23, 423)-(x + 23, 434), 15
IF Colr > 9 THEN
PUT (x + 8, 413), FontBOX(12020)
Hop = 1
ELSE
Hop = 0
END IF
Colr$ = RTRIM$(STR$(Colr))
Num = VAL(RIGHT$(Colr$, 1))
PUT (x + 10 + Hop, 413), FontBOX(12000 + Num * 20)
NEXT x
PSET (14, 437), 15
DRAW "D5R34BR53R34U5"
PSET (200, 438), 15
DRAW "D4R25BR51R25U4BR20D4R118BR73R118U4"
PUT (54, 438), FontBOX(10000)
PUT (156, 438), FontBOX(10200)
PUT (229, 438), FontBOX(10400)
PUT (443, 438), FontBOX(11200)
PUT (147, 459), FontBOX(10800)
LINE (132, 463)-(142, 463), 15
P$ = "Check here for descriptions of the various functions"
PrintSTRING 290, 458, P$, 1
PUT (60, 1), TitleBOX, PSET
PUT (60, 218), TitleBOX, PSET
FOR y = 2 TO 16 STEP 2
LINE (313, y)-(586, y), 8
NEXT y
PUT (592, 2), Box, PSET
PUT (624, 2), BBox(250), PSET
ToolX:
DATA 342,366,391,416,441,466,511,536,560
RESTORE ToolX
FOR Index = 0 TO 800 STEP 100
READ x
IF x = 536 THEN y = 23 ELSE y = 22
PUT (x, y), ToolBOX(Index), PSET
NEXT Index
Index = 0
FOR x = 22 TO 118 STEP 24
PUT (x, 420), BBox(Index), PSET
Index = Index + 50
NEXT x
PrintSTRING 19, 24, "File", 1
PrintSTRING 60, 24, "Edit", 1
PrintSTRING 100, 24, "Color", 1
PrintSTRING 148, 24, "Special", 1
PrintSTRING 205, 24, "Help", 1
LINE (155, 45)-(626, 406), 7, BF
LINE (155, 45)-(626, 406), 15, B
LINE (155, 406)-(626, 406), 8
LINE (626, 45)-(626, 406), 8
LINE (166, 56)-(615, 395), 8, BF
LINE (165, 55)-(616, 396), 15, B
LINE (165, 55)-(616, 55), 0
LINE (165, 55)-(165, 396), 0
FOR y = 24 TO 38
FOR x = 30 TO 60
xx = x * 5 + 166
yy = y * 5 + 56
LINE (xx, y * 5 + 56)-(xx + 4, yy + 4), POINT(x + 30, y + 194), BF
NEXT x
NEXT y
LINE (169, 59)-(611, 392), 0, B
LINE (170, 60)-(610, 391), 0, B
LINE (174, 64)-(606, 387), 0, B
LINE (175, 65)-(605, 386), 0, B
PrintSTRING 142, 3, "untitled", 0
PrintSTRING 37, 459, "Pixel", 1
PrintSTRING 65, 459, "x:", 1
PrintSTRING 95, 459, "y:", 1
FOR y = 50 TO 338 STEP 70
IF y = 190 THEN y = 194
IF y = 264 THEN y = 268
LINE (30, y)-(119, y + 67), 0, B
LINE (32, y + 2)-(117, y + 65), 0, B
LINE (34, y + 4)-(115, y + 63), 0, B
PUT (60, y + 24), TitleBOX, PSET
NEXT y
FileCOUNT = 0
DEF SEG = VARSEG(FontBOX(0))
FOR y = 0 TO 360 STEP 120
GET (0, y)-(639, y + 119), FontBOX
PUT (0, y), FontBOX
FileCOUNT = FileCOUNT + 1
FileNAME$ = "Animax!" + LTRIM$(STR$(FileCOUNT)) + ".BSV"
BSAVE FileNAME$, VARPTR(FontBOX(0)), 19681 * 2&
NEXT y
DEF SEG = VARSEG(FontBOX(0))
BLOAD "animssb.fnt", VARPTR(FontBOX(0))
BLOAD "animssr.fnt", VARPTR(FontBOX(4700))
DEF SEG
DrawBOX 100, 100, 378, 216, 0
GOSUB BoxTOP
FOR x = 124 TO 284 STEP 80
LINE (x, 177)-(x + 70, 200), 0, B
DrawBOX x + 1, 178, x + 69, 199, 0
NEXT x
PrintSTRING 112, 107, "Animax!", 0
PrintSTRING 162, 139, "The currently loaded file has been", 1
PrintSTRING 162, 152, "altered. Do you wish to save changes?", 1
PrintSTRING 150, 183, "Yes", 1
PrintSTRING 233, 183, "No", 1
PrintSTRING 303, 183, "Cancel", 1
PUT (126, 138), ExBOX, PSET
GET (100, 100)-(378, 216), Box
PUT (100, 100), Box
DEF SEG = VARSEG(Box(0))
BSAVE "anibox5.bsv", VARPTR(Box(0)), 16400
DEF SEG
DrawBOX 100, 100, 184, 254, 0 '164
PrintSTRING 112, 108, "New", 1
PrintSTRING 112, 122, "Open", 1
PrintSTRING 112, 136, "Save", 1
PrintSTRING 112, 150, "Save As", 1
PrintSTRING 112, 173, "1", 1
PrintSTRING 117, 173, ".", 1
PrintSTRING 112, 187, "2.", 1
PrintSTRING 112, 201, "3.", 1
PrintSTRING 112, 215, "4.", 1
LINE (103, 166)-(181, 166), 8
LINE (103, 167)-(181, 167), 15
LINE (103, 231)-(181, 231), 8
LINE (103, 232)-(181, 232), 15
PrintSTRING 112, 238, "Exit", 1
GET (100, 100)-(184, 254), Box(0)
PUT (100, 100), Box(0)
DrawBOX 200, 100, 252, 156, 0
PrintSTRING 212, 108, "Undo", 1
PrintSTRING 212, 122, "Copy", 1
PrintSTRING 212, 136, "Paste", 1
GET (200, 100)-(252, 156), Box(3420)
PUT (200, 100), Box(3420)
DrawBOX 300, 100, 386, 142, 0
PrintSTRING 312, 108, "Select Palette", 1
PrintSTRING 312, 122, "Edit Colors", 1
GET (300, 100)-(386, 142), Box(4220)
PUT (300, 100), Box(4220)
DrawBOX 400, 100, 497, 156, 0
PrintSTRING 412, 108, "Flip Horizontally", 1
PrintSTRING 412, 122, "Flip Vertically", 1
PrintSTRING 412, 136, "Negative Image", 1
GET (400, 100)-(497, 156), Box(5350)
PUT (400, 100), Box(5350)
DrawBOX 100, 200, 196, 256, 0
PrintSTRING 112, 208, "Instructions", 1
PrintSTRING 112, 222, "Load Demo File", 1
PrintSTRING 112, 236, "About Animax!", 1
GET (100, 200)-(196, 256), Box(6834)
PUT (100, 200), Box(6834)
DEF SEG = VARSEG(Box(0))
BSAVE "animnus.bsv", VARPTR(Box(0)), 16640
DEF SEG
'WinicoCL.BSV
DrawBOX 100, 100, 379, 230, 0
DrawBOX 110, 128, 370, 222, 1
GOSUB BoxTOP
PrintSTRING 110, 107, "Animax! " + " Instructions", 0
LINE (300, 106)-(318, 118), 7, BF
PSET (303, 112), 0
DRAW "E5D3R6D4L6D3H5br2p0,0"
LINE (325, 106)-(343, 118), 7, BF
PSET (340, 112), 15
DRAW "H5D3L6D4R6D3E5bl2p15,15"
RESTORE HelpDATA
DEF SEG = VARSEG(Box(0))
FOR Page = 1 TO 10
IF Page = 2 THEN PAINT (305, 113), 15, 7
IF Page = 10 THEN PAINT (338, 113), 0, 7
LINE (111, 129)-(368, 220), 15, BF
y = 133
FOR Reps = 1 TO 7
Font = 1: yy = 0: xx = 0
IF Page = 6 THEN
IF Reps = 1 THEN Font = 0 ELSE Font = 1
IF Reps = 2 THEN yy = 2
IF Reps = 1 OR Reps = 2 THEN xx = -4
IF Reps = 4 OR Reps = 5 THEN yy = -5
LINE (143, 162)-(169, 217), 7, BF
LINE (143, 188)-(169, 191), 15, BF
DrawBOX 145, 164, 167, 185, 0
DrawBOX 145, 194, 167, 215, 0
PUT (147, 167), ToolBOX(700), PSET
PUT (147, 197), ToolBOX(800), PSET
END IF
READ h$
PrintSTRING 124 + xx, y + yy, h$, Font
y = y + 12
GET (100, 100)-(379, 230), Box
FileNAME$ = "AxHELP" + LTRIM$(STR$(Page)) + ".BSV"
BSAVE FileNAME$, VARPTR(Box(0)), 18400
NEXT Reps
NEXT Page
DEF SEG
DrawBOX 100, 100, 379, 230, 0
GOSUB BoxTOP
PrintSTRING 112, 107, "About Animax!", 0
PrintSTRING 124, 135, "Animax! 2.1", 0
PrintSTRING 242, 136, "(Freeware)", 1
PrintSTRING 124, 156, "Program type:", 1
PrintSTRING 242, 155, "Graphics/Animation Utility", 1
PrintSTRING 124, 167, "Program & Graphics by:", 1
PrintSTRING 242, 167, "Bob Seguin 2000 - 2007", 1
PrintSTRING 124, 179, "Language:", 1
PrintSTRING 242, 179, "QBasic 1.1", 1
PrintSTRING 124, 198, "Email:", 1
PrintSTRING 242, 198, "BOBSEG@sympatico.ca", 1
GET (100, 100)-(379, 230), Box
DEF SEG = VARSEG(Box(0))
BSAVE "axhelp11.bsv", VARPTR(Box(0)), 18400
DEF SEG
DrawBOX 100, 100, 379, 178, 0
GOSUB BoxTOP
PrintSTRING 110, 107, "Animax!", 0
PUT (112, 134), ExBOX, PSET
DrawBOX 321, 135, 368, 159, 0
LINE (320, 134)-(369, 160), 0, B
PrintSTRING 339, 142, "OK", 1
PrintSTRING 152, 135, "Sorry, your file (or its path) could", 1
PrintSTRING 152, 147, "not be found. Please try again.", 1
GET (100, 100)-(379, 178), Box
LINE (142, 135)-(312, 159), 7, BF
PrintSTRING 142, 135, "Sorry, the file name you entered is in", 1
PrintSTRING 142, 147, "use by another file. Please try again.", 1
GET (142, 135)-(312, 159), Box(5535)
LINE (142, 135)-(312, 159), 7, BF
PrintSTRING 148, 135, "Sorry, the file you requested is not", 1
PrintSTRING 148, 147, "a properly formatted Animax! file.", 1
GET (142, 135)-(312, 159), Box(6650)
LINE (142, 135)-(312, 159), 7, BF
PrintSTRING 142, 135, "Please save the currently loaded file", 1
PrintSTRING 142, 147, "or select 'New' before loading demo.", 1
GET (142, 135)-(312, 159), Box(7765)
DEF SEG = VARSEG(Box(0))
BSAVE "anibox4.bsv", VARPTR(Box(0)), 8880 * 2
DEF SEG
LINE (100, 100)-(379, 178), 0, BF
DrawBOX 100, 100, 379, 230, 0
GOSUB BoxTOP
PrintSTRING 112, 107, "Edit Colors", 0
FOR x = 272 TO 324 STEP 51
DrawBOX x, 202, x + 46, 225, 0
LINE (x - 1, 201)-(x + 47, 226), 0, B
NEXT x
PrintSTRING 279, 208, "Cancel", 1
PrintSTRING 340, 208, "OK", 1
DrawBOX 320, 164, 370, 197, 1
LINE (321, 165)-(369, 196), 1, BF
RESTORE CDATA
READ a, B, c, d
FOR y = 140 TO 150 STEP 10
FOR x = 110 TO 330 STEP 44
DrawBOX x, y, x + 39, y + 8, 1
READ Colr
LINE (x + 1, y + 1)-(x + 38, y + 7), Colr, BF
NEXT x
NEXT y
PrintSTRING 110, 125, "Click color to edit", 1
PrintSTRING 110, 164, "R", 1
PrintSTRING 110, 176, "G", 1
PrintSTRING 110, 188, "B", 1
FOR y = 169 TO 193 STEP 12
DrawBOX 125, y - 1, 285, y + 1, 1
LINE (126, y)-(285, y), 0
PSET (285, y - 1), 8
NEXT y
PrintSTRING 110, 208, "Adjust sliders, click OK to accept", 1
GET (100, 100)-(379, 230), Box(500)
DrawBOX 100, 300, 115, 308, 0
LINE (104, 301)-(104, 307), 15
LINE (111, 301)-(111, 307), 8
GET (100, 300)-(115, 308), Box(9700)
GET (144, 189)-(159, 197), Box(9800)
PUT (100, 300), Box(9700)
PUT (100, 100), Box(500)
DEF SEG = VARSEG(Box(0))
BSAVE "anibox3.bsv", VARPTR(Box(500)), 18800
DEF SEG
SelectionDATA:
DATA "DOS Default", "Crayons", "Pastels", "Floral", "Nature"
DATA "Grayscale", "Half-Gray", "Half-Blue", "Half-Violet", "Half-Beige"
DATA "Metals", "Paper & Ink", "Wood", "People", "Military"
DrawBOX 100, 100, 379, 210, 0
GOSUB BoxTOP
PrintSTRING 112, 107, "Select Palette", 0
RESTORE SelectionDATA
FOR x = 118 TO 290 STEP 86
FOR y = 134 TO 200 STEP 14
LINE (x, y)-(x + 4, y + 4), 15, B
READ Selection$
PrintSTRING x + 11, y - 3, Selection$, 1
NEXT y
NEXT x
GET (100, 100)-(379, 210), Box(500)
PUT (100, 100), Box(500)
DEF SEG = VARSEG(Box(0))
BSAVE "anibox2.bsv", VARPTR(Box(500)), 15544
DEF SEG
DrawBOX 100, 100, 379, 198, 0
LINE (108, 126)-(370, 144), 15, BF
LINE (108, 126)-(370, 144), 0, B
LINE (108, 146)-(372, 146), 15
LINE (372, 126)-(372, 146), 15
GOSUB BoxTOP
FOR x = 274 TO 325 STEP 51
DrawBOX x, 160, x + 46, 183, 0
LINE (x - 1, 159)-(x + 47, 184), 0, B
NEXT x
PrintSTRING 281, 166, "Cancel", 1
PrintSTRING 342, 166, "OK", 1
PrintSTRING 112, 107, "Open", 0
PrintSTRING 114, 160, "File names must be 8 characters", 1
PrintSTRING 114, 171, "or less. You may include a path.", 1
GET (100, 100)-(379, 198), Box(500)
GOSUB BoxTOP
PrintSTRING 112, 107, "Save", 0
GET (112, 107)-(156, 118), Box(7500)
GOSUB BoxTOP
PrintSTRING 112, 107, "Save As", 0
GET (112, 107)-(156, 118), Box(7800)
LINE (100, 100)-(379, 198), 0, BF
DEF SEG = VARSEG(Box(0))
BSAVE "anibox1.bsv", VARPTR(Box(500)), 15200
DEF SEG
'Finish up
LINE (5, 5)-(634, 474), 8, B
LINE (8, 8)-(631, 471), 8, B
LINE (200, 180)-(439, 290), 8, B
LINE (197, 177)-(442, 293), 8, B
PrintSTRING 247, 212, "The graphics files for ANIMAX!", 1
PrintSTRING 243, 226, "have been successfully created.", 1
PrintSTRING 246, 250, "You can now run the program.", 1

a$ = INPUT$(1)
END

BoxTOP:
LINE (104, 104)-(375, 121), 0, BF
FOR y = 105 TO 121 STEP 2
LINE (224, y)-(352, y), 8
NEXT y
DrawBOX 357, 106, 371, 119, 0
PSET (360, 109), 0
DRAW "F7rH7BD7nE7lE7"
RETURN

GetFONT:
'Stores two fonts in single array (see PrintSTRING sub program).
Index = 2
FOR y = 206 TO 454 STEP 14
FOR x = 0 TO 140 STEP 14
GET (x, y)-(x + 11, y + 11), FontBOX(Index)
PUT (x, y), FontBOX(Index)
Index = Index + 50
IF Index = 188 * 50 + 2 THEN EXIT FOR
NEXT x
NEXT y
FontBOX(0) = 50
FontBOX(1) = 4
FontBOX(4700) = 50
FontBOX(4701) = 4
FontBOTTOM = 211
FOR Index = 2 TO 187 * 50 + 2 STEP 50
GOSUB ReduceFONT
NEXT Index
DEF SEG = VARSEG(FontBOX(0))
BSAVE "animssb.fnt", VARPTR(FontBOX(0)), 9400
BSAVE "animssr.fnt", VARPTR(FontBOX(4700)), 9400
DEF SEG
RETURN

ReduceFONT:
LINE (0, 200)-(20, 220), 0, BF
PUT (0, 200), FontBOX(Index)
x1 = -1: x2 = -1
FOR x = 0 TO 20
FOR y = 200 TO 220
IF POINT(x, y) <> 0 AND x1 = -1 THEN x1 = x
NEXT y
NEXT x
FOR x = 20 TO 0 STEP -1
FOR y = 200 TO 220
IF POINT(x, y) <> 0 AND x2 = -1 THEN x2 = x
NEXT y
NEXT x
GET (x1, 200)-(x2 + 1, FontBOTTOM), FontBOX(Index)
RETURN

Setpalette:
DATA 0,0,0,21,21,21,13,9,20,0,0,0,63,0,0,11,11,23,63,61,60,42,42,42,21
DATA 21,21,63,43,0,43,30,60,0,63,63,59,55,59,0,0,42,58,54,54,63,63,63
RESTORE Setpalette
OUT &H3C8, 0
FOR n = 1 TO 48
READ Intensity: OUT &H3C9, Intensity
NEXT n
RETURN

HelpDATA:
DATA "Animax is designed for the creation of animated"
DATA "sequences for use in QBasic programs. The images"
DATA "produced by this program are 90 pixels wide by"
DATA "68 pixels deep. This size is entirely appropriate"
DATA "since most animation is used in only small areas of"
DATA "a larger image -- for example, a fire crackling in"
DATA "in a fireplace or an animated character sprite."
DATA "The frame you are working on is displayed in"
DATA "the film gate to the left of the screen. Work is"
DATA "done in the large center screen work area. The"
DATA "icons across the top of this work area allow"
DATA "you to select a variety of useful drawing tools"
DATA "while the run controls on the lower left allow"
DATA "manipulation of the frames created."
DATA "Certain drawing functions (Box, Circle, Elipse,"
DATA "Line and Mask) can only be used at three times"
DATA "magnification. For these operations, the work"
DATA "area will switch automatically to this reduced"
DATA "size when the tool is selected."
DATA "NOTE: Watch the status window at the bottom of"
DATA "the screen for the tool/run control's description."
DATA "It is important to keep in mind when working,"
DATA "that you are actually drawing the small frame"
DATA "on the left, not the large image in the work"
DATA "area. After certain operations, the large drawing"
DATA "area will switch from a relatively detailed image"
DATA "to a magnified image of the frame. Aliasing will"
DATA "become more pronounced. This is normal."
DATA "To create a new frame, simply go to the last frame"
DATA "in the sequence and press the frame advance"
DATA "button. There are a total of 16 frames possible in"
DATA "an Animax! (.AXB) file. This should be sufficient"
DATA "for any animated action cycle. .AXB files are"
DATA "BSAVE'd for rapid loading. When opening or sav-"
DATA "ing, the extension .AXB is added automatically."
DATA "Specialty Tools:"
DATA "Right-click anywhere in work area to 'pick up' color.",""
DATA "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Toggles between 3x and 5x magnifi-"
DATA "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>cation of the frame being worked on."
DATA "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Click any color in the image and all"
DATA "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>instances of it change to pen color."
DATA "Copy and Paste can be used with or without the"
DATA "Mask tool. If you click Copy without masking, the"
DATA "entire frame is copied and can be pasted into an-"
DATA "other frame. If you copy a masked area it can only"
DATA "be pasted to the same location in another frame."
DATA "You can also locate a pasted image using a mask,"
DATA "but only from and to the frame being worked on."
DATA "In order to use .AXB files, you must first understand"
DATA "how these files are structured. Information is held"
DATA "in an integer array. The first 8 integers hold the"
DATA "ASCII values of the file's name. The next 48 hold"
DATA "the palette (RGB) intensity values in order from"
DATA "attribute 0 to 15. Element 57 holds the number of"
DATA "frames in the total sequence (1-16)."
DATA "From element 58 to the end of the file is individual"
DATA "frame information at 1635 integers per frame. For
DATA "example, Array(58) will PUT the first frame,"
DATA "Array(1693) the second, etc. The minimum array"
DATA "size necessary for a 16 frame sequence is 26217.",""
DATA "Formula: ArraySIZE = 8 + 48 + 1 + Frames * 1635"
DATA "Animax! can also be used as a drawing utility for"
DATA "detailed SCREEN 12 images involving custom colors,"
DATA "or to refine existing images created elsewhere."
DATA "If you understand the structure of the .AXB file"
DATA "you can GET images to an array in 90x68 'chunks'"
DATA "and save them with the extension .AXB, then load"
DATA "the file in Animax! to refine these images."
HueDATA:
DATA "###b8bM#M88b##Gbb#8b8MMM88<#M##?#bP#bC#b##M8#bbb###bSbWGWVVbMMbbbZbbMMM"
DATA "M88<MbMCWCbZMbSGbMMWBBbbb###bbMbb##b##M#bL8bBWMMM88<b##M##[MbI#AMWb88bb"
DATA "bb###bb#8b8#C##8#ZZb8CbMMM88<WMCMC8bP?bC#b##M8#bbb###___[[[WWWSSSOOOKKK"
DATA "MMM888GGGCCC???;;;777333bbb###bb##S###bb##___ZZZMMM88<UUUPPPKKKFFFAAA<<"
DATA "<bbb###bb##S###bb##?Ib;E_MMM88<7A[3=W/9S+5O'1K#-Gbbb###bb##S###bb##bIb_"
DATA "E_MMM88<[A[W=WS9SO5OK1KG-Gbbb###bb##S###bb##bUP_RMMMM88<\OJWJETGBQD?NA<"
DATA "K>9bbb###_[_UQUUIFK:<bZMbUCMMM88<bM#ZC#]C8Z9/NOU:<Gbbb###/PS7/M##Cb//__"
DATA "_bZbMMM88<UZbZbZbb]bZN]M;WG3bbb###bZR]M?WG7M8'WIII15MMM88<ZUKPKASIAE;=U"
DATA "QOIECbbb###_ZG_PASS]#8M[C<Q<7MMM88<G59=-/b]WbZSbUMbOGbbb###ZZb88M##bb##"
DATA "ZUMSMCMMM88<MC8C8-WWBMM8CC-88-bbb"
PixDATA:
DATA "@7=8@7=8J7?0b7!O5?7>8?7>8I7=0?F=0Y7@0@7<>5=2<>5>7?8>7?8H7=0?F=0=F=0W7>0=F"
DATA ">0@7<>5=2v5=7E5=7@8=7@8H7=0>F=0>F=0V7>0=F?0@7<>5?2r5=2=E>6=7=2C5F8H7=0=F"
DATA "=0?F=0U7>0=F?0A7<41>5@2q5?E?6D5=7@8=7@8I7=0?F=0V7=0=F?0B7!=2>1=2?E@6=EC2>7"
DATA "?8>7?8J7?0V7A0C7<43>2=7=1l2AEA6=7B2?7>8?7>8f7=0=F?0D7<44>2>6=7i2=1=2AEA6=EB2"
DATA "@7=8@7=8e7=0=F?0E7<45>2>6=7i2=7AEB6=7A2n7=0=F?0F7<46>5D2?6=7g5=2BE?6=D>6=EA5"
DATA "N7=8L0=8I7=0=F?0G7<47>3E2@6f3=1=2AEA6=D>6=7@3M7=0MF=0=8H7@0H7<48>3E2=7?6=1e3"
DATA "=2=7AE?6=D=6=D>6=E@3L7=8OF=0=8F7@0I7<49>3F2=7?6=7e3=2BE@6=D=6=D>6=7?3L7=0"
DATA "DF?0DF=0=8F7>0K7<4B>3G2=7@6d3=1=2BE?6=D=6=D=6=D=6=E?3L7=0DF?0DF=0=8W7<57>3H2"
DATA "@6=1c3=2=7BE@6>D=6=D>6=7>3L7=0DF?0DF=0=8W7=3=2?3=2=3?2=3=2?3=2=3?2=3=2"
DATA "?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2=3=2?3=2=3?2=3=2?3=2=3I2@6=7=2=3?2"
DATA "=3=2?3=2=3?2=3=2=3=2=3?2=3=2?3=2=3?2=3=2?3>2BEA6=D=6=D?6=E=2=3L7=0DF?0"
DATA "DF=0=8W7C2?3C2?3C2?3C2?3C2?3E2?3P2@6=7>2?3C2?3A2?3C2?3A2=1=2BEB6>D@6>2"
DATA "L7=0DF?0DF=0=8W7=3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3"
DATA "=2=3=2A3=2=3=2=3=2=3=2A3=2=3=2=3B2=9D2=7@6=2A3=2=3=2=3=2A3=2=3=2A3=2=3"
DATA "=2=3=2A3=2=3=2=3=2=7BE?6=D?6>D?6=7=3L7=0DF?0DF=0=8W7>3?2C3?2C3?2C3?2C3"
DATA "?2E3?2C3D2=9F2@6=1B3?2C3=2C3?2C3@2CE@6=D>6=D=6=D>6=E=3L7=0DF?0DF=0=8W7"
DATA ">3=2=3=2C3=2=3=2C3=2=3=2C3=2=3=2C3=2=3=2E3=2=3=2C3=2=3A2=9G2@6=7B3=2=3"
DATA "=2C3=2C3=2=3=2C3=2=3=1=2BE@6>D?6>D?6=3?7>8G7=0DF?0DF=0=8W7>3?2C3?2C3?2"
DATA "C3?2C3?2E3?2C3B2=9H2@6=7B3?2C3=2C3?2C3@2BEA6>D>6=D=6=D>6@7?8F7=0DF?0DF"
DATA "=0=8F7I0@7=3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2"
DATA "A3=2=3=2=3=2=3=2A3=2=3A2=9>2=9E2=7@6=1@3=2=3=2=3=2A3=2=3=2A3=2=3=2=3=2"
DATA "A3=2=3=1=2=7BEA6=D=6=D>6=D=6=D>6?7@8E7=0DF?0DF=0=8F7=0G7=0@7=3>2=3>2A3"
DATA ">2=3>2A3>2=3>2A3>2=3>2A3>2=3>2A3=2=3>2=3>2A3B2=9>2=9G2@6=1@3>2=3>2A3?2"
DATA "A3>2=3>2A3>2=1=2DE?6=D=6>D>6=D=6=D>6?7A8D7=0DF?0DF=0=8F7=0G7=0@7=3=2?3"
DATA "=2A3=2?3=2A3=2?3=2A3=2?3=2A3=2?3=2A3=2=3=2?3=2A3A2=9K2@6=7@3=2?3=2A3=2"
DATA "=3=2A3=2?3=2A3=2=3>2EE?6=D=6>D>6=D=6=D=6?7B8C7=0DF?0DF=0=8F7=0G7=0@7>2"
DATA "?3?2=3?2?3?2=3?2?3?2=3?2?3?2=3?2?3?2=3A2?3?2=3B2=9?2=9H2@6=7=1=3?2?3?2"
DATA "=3?2=3?2=3?2?3?2=3?2=3=1=2EE?6=D=6=D=6=D>6=D>6?7A8D7=0DF?0DF=0=8F7=0G7"
DATA "=0@7z3@2=9C2=9E2=7@6=1]3=2=1FE?6=D=6>D>6=D>6?7@8E7=0OF=0=8F7=0G7=0@7z3"
DATA "?2=9?2=9?2=9G2@6=7^3=1=2FE?6>D=6=D>6=D=6?7?8F7=0OF=0=8F7=0G7=0@7y3@2=9"
DATA ">2=9?2=9H2@6=7=1^3=2FE?6=D=6>D>6=D=6?7>8G7=0DF?0DF=0=8F7=0G7=0@7C3>2=3"
DATA "[2O3@2=9B2=9I2A6=7^3=1=2FE?6=D=6>D?6L7=0DF?0DF=0=8F7=0G7=0@7B3?2=3\2L3"
DATA "=2=3?2=9?2=9>2=9J2=E@6=7_3=2FE@6>D=6=D>6L7=0DF?0DF=0=8F7=0G7=0@7B3?2=3"
DATA "\2L3=2=3B2=9?2=9G2=1=2?E@6=2^3=1=2FE?6=D=6>D>6L7=0DF?0DF=0=8F7=0G7=0@7"
DATA "E2=3m2=3A2=9K2=1=2BE>6=1`2FE@6>D=6=D=6L7=0OF=0=8F7=0G7=0@7F2=3l2=3D2=9"
DATA "G2=1=2DE=6=7_2=1=2EE@6=D=6=D>6L7=8=0MF>0=8F7I0@7F2=3l2=3O2=1=2EE=7=1a2"
DATA "FE@6=D=6=D=6M7O0=8X7A4A2=3B2B9>2>9=2=9>2C9B2I4>2=3B2=9G2=1=2EE=7b4=1=2"
DATA "EEA6=D>6N7N8Y7A4A2=3^2H4>2=3A2=9G2=1=2=7EE=7=6=7`4=1=2FE@6=D>6}7>9?3=2"
DATA "=9?2=3D2=9=2>9=2=9?2>9=2>9=2=9=2=9D2E9?3>2=3@2=9H2=1=7EE=7?6a9=1=2EEA6"
DATA "=D=6}7>4?3=9@2=3E2>9=2B9=2=9=2=9>2?9D2D4?3>2=3?2=9H2=1=2EE=7@6=7`4=3=2"
DATA "FE@6=D=6}7>4?3=9=2=9>2=3_2D4?3>2=3K2=1=2EE=7B6_4>3=1=2EEB6}7>4?3=2=9?2"
DATA "=3`2C4?3>2=3J2=1=2EE=7C6=7^4?3=2FEA6=8@7=8w7>4?3=2=9?2=3`2C4?3>2=3I2=1"
DATA "=2EE=7E6^4?3=1=2EEA6>8?7>8i7A0D7>4?3=9@2=3a2B4?3>2=3H2=1=2EE=7F6=7\4A3"
DATA "=2EEA6?8>7?8f7>0A7>0B7>4?3=9@2=3a2B4?3>2=3G2=1=2=7DE=7H6\4A3=1=2EE@6@8"
DATA "=7@8d7=0E7=0A7>4?3=9A2=3a2A4?3>2=3G2=1=7DE?D=6>DD6=7[4B3=2EE@6F8c7=0E7"
DATA "=0A7>4?3B2=3a2A4?3>2=3F2=1=2DE@7H6[4B3=1=2EE?6@8=7@8c7=0G7=0@7>4?3B2=3"
DATA "b2@4?3>2=3E2=1=2EE=7AD=6=D>6>D=6=D>6=7Y4D3=2EE?6?8>7?8d7=0G7=0@7>4?3B2"
DATA "=3b2@4?3>2=3D2=1=2EEA7I6Y4D3=1=2EE>6>8?7>8e7=0G7=0@7>4?3B2=3c2>4@3>2=3"
DATA "C2=1=2EEC7H6=7X4E3=2EE>6=8@7=8f7=0G7=0@7>4?3B2=3c2>4@3>2=3B2=1=2EED7I6"
DATA "W4F3=1=2DE>6l7=0G7=0@7>4?3B2=3d2=4@3>2=3A2=1=2=7DEE7I6=7V4G3=2EE=6m7=0"
DATA "E7=0A7>4?3@2>1=3c1=2=4@3>2=3A2=1=7DE>7=DA7=D=7=D=6>D?6=DB6V4G3=1=2EEm7"
DATA "=0E7=0A7>4?3?2=1e3>2=4@3>2=3@2=1=2DE=D=7?D=7?D=7@D=6=D=6?DA6=7U4H3=2EE"
DATA "n7>0A7>0B7>4?3?2=1e2?4@3>2=3?2=1=2DEI7J6T4I3=1=2DEp7A0D7>4?3>2=1>3d7?4"
DATA "@3>2=3>2=1=2EEI7J6=7S4J3=2DE}7>4?3>2=1=3=7dE?4@3>2=3=2=1=2EEK7J6S4J3=1"
DATA "=2CE}7>4?3=2=1>3dE=7?4@3>2=3=1=2EEL7J6=7Q4L3=2CE}7>4@3=1>3dE=7>4A3>2>3"
DATA "=2DEM7J6=7Q4L3=1=2BE}7>4?3=2=1>3dE=1>4A3>2=1=2DE=7[E=7Q4M3=2BE}7>4?3=2"
DATA "=1>3dE?4A3=2=1>3?E=7`E=7Q4M3=1=2AE}7>4?3=2?3dE=1>4B3=1>3=7=E=7aE=7P4O3"
DATA "=2AE>7=8@7=8u7>4C3dE=7>4B3=1?3cE=7P4O3=1=2>3>E>7=8?7>8h7@0E7>4@3=2>3=7"
DATA "cE=7=1=4B3=1=2>3cE=7=2O4P3=1=2?3>7=8>7?8g7=0@7=0D7>4D3=7cE=2=4C3=1?3cE"
DATA "=2N4R3=1=2>3>7=8=7@8f7=0B7=0C7>4A3=2?3cE>2C3?2=3=7bE>2M4R3>1=2=3>7B8f7"
DATA "=0B7=0C7>4B3>2>3d2E3g2M4T3=1=2>7=8=7@8e7=0D7=0B7>4D3?2<>3e4>3>7=8>7?8e7"
DATA "=0D7=0B7!O4>7=8?7>8e7=0D7=0B7!O4>7=8@7=8e7=0D7=0B7!O5m7=0D7=0B7!O5n7=0"
DATA "B7=0C7!O5n7=0B7=0C75>2<>5o7=0@7=0D75=2=C=7=1<>5p7@0E7<45>2>6=C=7=1<>2}7<>2A6"
DATA "=7<>2}7<>2C6=7<>2}7<>2D6p2=E=6M2}7~5>2D6m5=1=7>E>6L5}7}3?2D6m3=7?E?6K3}7}3"
DATA "?2D6l3=1=7?E@6J3>7=8@7=8u7}3?2D6l3=7?EA6=7I3>7>8?7=8u7}3?2D6l3=7?E?6=D"
DATA ">6I3>7?8>7=8o7=0A7|3@2D6k3=1@E@6=D>6H3>7@8=7=8n7=0B7=3=2?3=2=3?2=3=2?3"
DATA "=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2=3=2?3=2=3?2=3A2D6=3=2=3"
DATA "?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2=3=2=3?2=3=2?3=2=3?2=3=2=3=7@EA6=D=6=E=3"
DATA "?2=3=2?3=2=3>7B8m7=0C7C2?3C2?3C2?3C2?3C2?3E2?3B2D6?2?3C2?3C2?3A2?3C2?3"
DATA ">2=1=7?E@6=D>6=D=6=E?3C2>7@8=7=8l7=0D7=3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2"
DATA "=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2=3=2A3A2D6=3=2A3=2=3=2=3=2A3=2"
DATA "=3=2=3=2A3=2=3=2A3=2=3=2=3=2A3=2=7@E?6=D=6=D>6=D=E=7?3=2=3=2=3=2=3>7?8"
DATA ">7=8k7=0E7>3?2C3?2C3?2C3?2C3?2E3?2B3A2D6=2C3?2C3?2C3=2C3?2C3=7@E@6=D=6"
DATA "=D=6=D>6@3?2>3>7>8?7=8j7=0F7>3=2=3=2C3=2=3=2C3=2=3=2C3=2=3=2C3=2=3=2E3"
DATA "=2=3=2B3A2D6=2C3=2=3=2C3=2=3=2C3=2C3=2=3=2B3=1AE>6=D>6=D=6=D=6=D=6=E?3"
DATA "=2=3=2>3>7=8@7=8i7=0G7>3?2C3?2C3?2C3A2A3?2E3?2A3?2=9>2D6=2C3?2C3?2C3=2"
DATA "C3?2B3=7@E@6=D>6>D?6>E>3?2>3p7=0H7=3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2"
DATA "A3B2@3=2=3=2=3=2A3=2=3=2=3=2=3=2@3>2=9?2D6=3=2A3=2=3=2=3=2A3=2=3=2=3=2"
DATA "A3=2=3=2A3=2=3=2=3=2@3=1=7@E?6=D=6=D>6>D@6=7=2=3=2=3=2=3o7=0I7=3>2=3>2"
DATA "A3>2=3>2A3>2=3>2=3G2?3>2=3>2A3=2=3>2=3>2@3>2=9?2D6>2A3>2=3>2A3>2=3>2A3"
DATA "?2A3>2=3>2@3=7AE@6>D>6=D=6=D@6>2=3>2=3n7=0J7=3=2?3=2A3=2?3=2A3=2=3K2?3"
DATA "=2?3=2A3=2=3=2?3=2?3>2=9@2D6=3=2A3=2?3=2A3=2?3=2A3=2=3=2A3=2?3=2?3=1=7"
DATA "BE@6>D>6=D=6=D?6=E?3=2=3m7=0K7>2?3?2=3?2?3?2=3S2?3?2=3A2?3?2=3>2=9@2D6"
DATA "=3?2=3?2?3?2=3?2?3?2=3?2=3?2=3?2?3@2=7DE?6=D=6=D>6=D=6=D?6=7>3>2l7=0L7"
DATA "K3T2R3C2D6f3=1=7EE?6=D=6=D>6>D?6=E@3}7G3Y2P3>2=9=2=9?2D6f3=7FE@6>D?6>D"
DATA "?6=7?3}7F3Q2>9C2P3>2=9=2=9?2D6f3=7GE@6>D>6=D=6=D>6=E?3}7C3>2=3L2>9=2=9"
DATA "G2O3>2=9@2=1>E=CA6f3>2GE?6=D=6=D>6=D=6=D>6=E>3}7B3?2=3H2>9=2=9K2N3>2=9"
DATA "=2=9?2=7AE=C>6g3=1=2FE@6=D=6=D>6=D=6=D=6=E=7=3}7B3?2=3D2?9C2>9H2M3>2=9"
DATA "=2=9?2=7DEI6[3=1=2FE@6>D?6>D>6=E=3}7E2=3A2>9C2=9=2>9\2=9=2=9?2=1EEI6=7"
DATA "[2=1FE@6=D=6=D?6>D>6=7KF=0d7?0B7F2=3E2@9`2=9=2=9?2=7EE=D=6=D=6CD?6]2FE"
DATA "@6=D=6=D>6=D?6=E=FI7=8=0c7=0>F=0B7F2=3D2=9E2>9=2=9W2=9A2=7DEK6=7[2=1=2"
DATA "FE@6=D=6=D>6=D>6=E=FI7=8=0b7=0>F?0A7A4A2=3J2=9=2=9L2I4>2=9=2=9?2=1EE?D"
DATA "=6>D>6>D=6?D>6\4=1FEA6=D=6=D@6=E=FI7=8=0a7=0?F>7>0@7A4A2=3F2=9=2=9P2I4"
DATA ">2=9A2=7EEL6=7\4=2FE@6=D>6=D@6=F?7>0@7>0>7=8=0^7>F=0@F?7>0?7>9?3A2=3C2"
DATA "?9S2=1D9@3@2=9?2=7DE=6GD=6=D=6=D>6\9=1=2FE@6=D=6=D@6=F@7>0>7>0?7=8=0\7"
DATA "?F=0?F=0=7=F?7>0>7>4?3=9@2=3A2=9X2D4@3C2=1EEN6=7\4=1=2EEA6=D=6=D?6=FA7"
DATA "@0@7=8=0\7>F=0@F?7=F?7>0=7>4?3=9@2=3^2=1C4@3C2=7EEO6\4=1=2FEA6=D@6=FB7"
DATA ">0A7=8=0[7>F>0=F=0>7=FC7=0=7>4?3A2=3_2C4@3C2=7DEP6=7[4=3=1=2FE@6=D@6=F"
DATA "A7@0@7=8=0[7>F=7?0?7=FA7>0=7>4?3=9@2=3_2C4@3B2=1EEQ6[4>3=1FEE6=F@7>0>7"
DATA ">0?7=8=0[7>F?7=0@7=F?7>0>7>4?3=9@2=3_2=1B4@3B2=7DEAD>6>D>6>D=6>D=6?D>6"
DATA "=7Y4@3=2FED6=F?7>0@7>0>7=8=0[7>F@7=0B7>0?7>4?3=9@2=3`2B4@3B2=7DES6Y4@3"
DATA "=1=2FEC6=FI7=8=0[7>FA7=0@7>0@7>4?3=9A2=3_2=1A4@3A2=1EEHD=6>D=6>D=6=D?6"
DATA "=7X4A3=2FEC6=FI7=8=0[7>FB7=0>7>0A7>4?3B2=3`2A4@3A2=7DEU6W4B3=1=2FEB6=F"
DATA "J8=0[7>FC7?0B7>4?3B2=3Z2?1>7B4@3A2=7DEED=6AD=6=D>6>D=6=D>6=7V4C3=1=2FE"
DATA "A6L0Y7BFJ7>4?3B2=3V2?1?7>E=7B4@3@2=1EEV6V4D3=2FEA6}7>4?3B2=3R2?1?7BE=7"
DATA "A4A3@2=1DE>6>DS6=7T4E3=1=2FE@6}7>4?3B2=3N2?1?7GE=7@4A3@2=7DEX6T4F3=1=2"
DATA "FE?6}7>4?3Q2?1?7KE=7@4A3?2=1=7CE=FX6=7S4G3=1=2EE?6}7>4?3N2>1?7OE=7@4A3"
DATA "?2=1CE=7=E=6>D=6=D>6=DA6=D=6=D=6>D?6=DB6R4I3=2FE>6}7>4?3L2=1>7TE@4A3?2"
DATA "=7CE=7=E>D=6>D=6?D=6?D=6@D=6=D=6?DA6=7Q4I3=1=2FE=6K0=Fm7>4?3I2=1>7RE@F"
DATA "=7@4A3>2=1=7CE=7=EZ6Q4J3=1=2EE=6=0J8=F[7>0=F>0=F>0=F>0=F>0@7>4?3?2=3A2"
DATA "=1>7RE?7=EAF@4A3>2=1CE?7Z6=7O4L3=2FE=0=8H7>F[7=0H7=0@7>4?3@2=3=2=1>7QE"
DATA "D7AF=7?4A3>2=1CE?7[6O4L3=1=2EE=0=8H7>F[7=FH7=F@7>4?3?2=1=3=7OEI7=EAF?4"
DATA "A3=2=1=7BE@7=EZ6=7N4M3=1=2DE=0=8H7>F[7=0H7=0@7>4@3=2=1=3=7LEN7AF=7>4A3"
DATA "=2=1=7BE@7=EZ6=7M4O3=1=2CE=0=8?7>0@7>0=7>F[7=0H7=0@7>4?3=2>3>7HE=7=EA7"
DATA "PE=7>4A3=2=1BE=7_E=7M4P3=2CE=0=8@7>0>7>0>7>F[7=FH7=F@7>4?3=2=1=3>7CE=7"
DATA "=E>7XE=7>4A3=2=1fE=7M4P3=1=2BE=0=8A7@0?7>F[7=0H7=0@7>4?3=2=1=3>7cE=7>4"
DATA "A3=2=1=3eE=7M4Q3=1=2AE=0=8B7>0@7>F[7=0H7=0@7>4@3=2=3>7cE=7>4B3=1>3=E=7"
DATA "bE=7L4S3=1=2@E=0=8A7@0?7>F[7=FH7=F@7>4@3=2>3=7cE=7=2=4B3=1?3cE=7=2K4S3"
DATA "=1=2>E>3=0=8@7>0>7>0>7>F[7=0H7=0@7>4A3=2=3>7cE=2=4C3=1?3cE=2K4T3=1>2>3"
DATA "=0=8?7>0@7>0=7>F[7=0H7=0@7>4A3=2>3=7cE>2C3=2=1>3cE>2I4V3=1>2=3=0=8H7>F"
DATA "[7=FH7=F@7>4B3>2>3d2D3>2=3=1d2I4W3>1=3=0=8JF[7=0H7=0@7>4D3?2m3?2c3I4Z3"
DATA "LF[7>0=F>0=F>0=F>0=F>0@7!H4C3}7!O4}7!O5}7!O5}7!O5}7s5=D<>5KF=0KF^7r5=7=2"
DATA "<22>5=FI7=8=0=FI7=8M7I0@7r2=7=2E6<45>2=FI7=8=0=F>7E8>7=8M7D0@F=0@7r2=7=2E6=D"
DATA "<22>2=FI7=8=0=F>7E8>7=8M7>0?F?0@F=0@7r2=7=2E6=7<>2=FI7=8=0=F>7=8CF=8=F=7=8"
DATA "M7>0>F@0@F=0@7r2=7=2E6=E<>2=FI7=8=0=F>7=8=FB7=8=F=7=8M7>0=F=0=F?0@F=0@7"
DATA "r5=7=2F6<46>5=FI7=8=0=F>7=8=FB7=8=F=7=8M7A0=F>0@F=0@7r3=7=2F6<46>3=FI7=8=0=F"
DATA ">7=8=FB7=8=F=7=8M7B0=7=0@F=0@7r3=7=2F6<46>3=FI7=8=0=F>7=8=FB7=8=F=7=8M7C0"
DATA "=7@F=0@7\3=2Q3=7=2F6<46>3=F@7A8=F?7=8=0=F>7=8=FB7=8=F=7=8M7=0CF=0=F=0=F=0"
DATA "@7Z3@2P3=7=2F6<46>3=F@7A8=F?7=8=0=F>7=8=FB7=8=F=7=8M7=0DF>0=F=0@7Y3A2=7O3"
DATA "=7=2F6<46>3=FA7AF?7=8=0=F>7E8=F=7=8M7=0CF?0=F=0@7=3=2?3=2=3?2=3=2?3=2=3?2"
DATA "=3=2?3=2=3C2=6=2=3?2=3=2?3=2=3?2=3=2=3=2=7=2F6=3=2=3?2=3=2?3=2=3?2=3=2"
DATA "?3=2=3?2=3=2?3=2=3?2=3=2=3=2=3?2=3=2?3=2=3?2=3=2=6=D=3=2=3?2=3=2?3=2=3"
DATA "?2=3=2?3=2=3=FI7=8=0=FI7=8M7=0GF=0@7C2?3C2?3J2>7=2?3C2?3@2=1=2FE?2?3C2"
DATA "?3C2?3C2?3A2?3C2?3=2=E>6=7>2?3C2?3C2=FJ8=0=FJ8M7I0@7=3=2=3=2=3=2A3=2=3"
DATA "=2=3=2A3=2=3H2=6A3=2=3=2=3=2A3=2=3=2=1=2FE=3=2A3=2=3=2=3=2A3=2=3=2=3=2"
DATA "A3=2=3=2=3=2A3=2=3=2A3=2=3=2=3=2A3@6=7A3=2=3=2=3=2A3=2=3=2=3=2=3}7>3?2"
DATA "C3?2C3I2=6=7A3?2E3=1=2FE=2C3?2C3?2C3?2C3=2C3?2A3=EB6=7@3?2C3?2>3}7>3=2"
DATA "=3=2C3=2=3=2B3J2=7=6A3=2=3=2E3=1=2FE=2C3=2=3=2C3=2=3=2C3=2=3=2C3=2C3=2"
DATA "=3=2A3E6=7>3=2=3=2C3=2=3=2>3}7>3?2C3?2A3L2=6A3?2E3=1=2DE=C=E=2C3?2C3?2"
DATA "C3?2C3=2C3?2@3=E?6=DC6=7?2C3?2>3}7=3=2=3=2=3=2A3=2=3=2=3=2>3N2>7?3=2=3"
DATA "=2=3=2A3=2=3=2=1=2FE=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2A3"
DATA "=2=3=2=3=2>3=2A6>DC6=7=3=2A3=2=3=2=3=2=3}7=3>2=3>2A3>2=3>2=3F2=9E2=6?3"
DATA ">2=3>2A3=2=3=2=1=2FE>2A3>2=3>2A3>2=3>2A3>2=3>2A3?2A3>2=3>2=3=2=E@6=D>6"
DATA "=DC6=7=2A3>2=3>2=3=8?FC8=FN8=F=8]7=3=2?3=2A3=2?3G2=9F2=6=7>3=2?3=2A3=2"
DATA "=3=2=1=2FE=3=2A3=2?3=2A3=2?3=2A3=2?3=2A3=2=3=2A3=2?3=2=3=2@6=D=6>D=6>D"
DATA "C6=7@3=2?3=2=3AFB8=FN8=F=8]7>2?3?2=3?2>3F2>9G2=7=6?2?3?2=3A2=1=2FE=3?2"
DATA "=3?2?3?2=3?2?3?2=3?2?3?2=3?2=3?2=3?2?3?2A6>D=6>D=6>DC6=7?2?3>2AFU8=F=8"
DATA "]7H3F2>9J2=6=1J3=1=2FEo3=E@6=D>6=D>6=DG6=7B3AFU8=F=8M7=0F7=0@7G3E2>9?2"
DATA ">9G2>7J3=1=2FEn3=2B6>D=6>D=6>DG6=7@3=F?8=F=8?F>8=F=8@F>8?F>8>F=8>F=8=F"
DATA "=8M7=0F7=0@7E3E2=9A2=9J2=6=1I3=1=2FEn3=ED6=D>6>D=6>DF6=7?3=F?8=F=8@F=8"
DATA "=F=8AF=8@F=8>F=8>F=8=F=8L7?0>7=F>7=F>7=0=F=0?7D3E2=9@2=9L2>7I3=1=2FEm3"
DATA "=2@6=DA6>D>6=D>6>DE6=7>3AF=8@F=8=F=8AF=8@F=8>F=8>F=8=F=8L7?0=7BF=7=0=F"
DATA "=0?7B3=2=3C2=9@2=9B2>9F2=7=6I3=1=2FEm3=EA6=D=6=D@6=D>6>D>6>DD6=7=3AF=8"
DATA "@F=8=F=8AF=8@F=8>F=8>F=8=F=8L7?0=7=0=F>0=F=0=7=0=F=0?7B3=2=3B2=9?2>9B2"
DATA "=9I2=6=7H3=1=2FES6U3=2A6=D=6=D>6=D?6>D>6>D>6=DD6=7AF=8=F>8=F=8=F=8=F=8"
DATA "=F=8=F@8=F?8=F?8=F=8K7=0=F?0=7=0>7=0=7=0?F=0>7C2=3E2=9A2=9=2=9J2=7=6H2"
DATA "=1=2FES6=7T2=EB6=D>6=D=6=D@6>D>6=D>6>DC6=F?8=F=8=F>8=F=8=F=8=F=8=F=8=F"
DATA ">8?F?8=F?8=F=8K7=0=F?0B7=0?F=0>7C2=3G2=9=2=9N2=7=6=7G2=1=2FE>D=6@D=6=D"
DATA "=6=D=6=D=6CD?6T2=E@6=D>6>D@6=D@6=D>6>D>6>DA6=F?8=F=8=F>8=F=8=F=8=F=8=F"
DATA "=8=F=8=F>8=F?8=F?8=F=8J7=0=FA0@7=0AF=0=7C2=3H2=9P2=1=6G2=1=2FET6=7R2?E"
DATA "@6>D>6>D=6=D=6=D@6>D>6>DC6=F?8=F=8=F>8=F=8=F=8=F=8=F=8=F=8@F=8>F=8>F?8"
DATA "J7C0@7=0AF=0=7A4>2=3E2?9P2=1=6=E=1F4=1=2FE?D>6?D=6?D=6>D>6>D=6?D>6Q4=2"
DATA "@EA6>D>6=D@6=D@6>D>6=DB6=F?8=F=8=F>8=F=8=F=8=F=8=F=8=F=8@F=8>F=8>F?8J7"
DATA "C0@7=0AF=0=7A4>2=3C2>9Q2>1=2=E>6F4=1=2FEU6=7P4BEB6=D>6>D=6=D=6>D@6=D>6"
DATA ">D@6=F?8=F=8=F>8=F=8=F=8=F=8=F=8=F=8@F=8>F=8>F=8=F=8K7A0B7=0?F=0>7>9?3"
DATA ">2=3C2=9Q2=1=2@E=6F9=1=2FE=D=6>D=6=D?6GD=6=D=6=D>6O9=2DEA6>D>6=D@6=D@6"
DATA ">DB6=F?8=F=8=F>8=F=8=F=8=F=8=F=8=F>8?F=8>F=8>F=8=F=8L7?0D7?0?7>4?3>2=3"
DATA "W2>1=2BE=6C4>3=1=2FEV6=7M4=2FEB6=D>6>D=6=D=6>DF6\8]7>4?3>2=3V2=1=2EEC4"
DATA ">3=1=2FE>D=6>D=6>DO6M4IEA6>D>6=D@6=DE6}0>4?3>2=3T2>1=2GEB4>3=1=2FEW6=7"
DATA "K4=2=7IEB6>D=6>D?6>DC6}0>4?3>2=3S2=1=2HE=7B4>3=1=2FEX6K4=1>2JEB6=D>6>D"
DATA "F6}0>4?3>2=3Q2>1=2HED4>3=1=2FEBD=6@D>6>D>6>D=6>D=6?D>6=7K4=1>2KEA6>D>6"
DATA "=D>6=DB6}0>4?3>2=3P2=1=2HE=6E4>3=1=2FEY6L4>1>2JEE6>D=6>D@6}0>4?3>2=3N2"
DATA ">1=2GE?6=7D4>3=1=2FE=D=6LD=6>D=6>D=6=D?6=7M4=1>2KEE6=DB6}0>4?3>2=3M2=1"
DATA "=2FEC6D4>3=1=2FEZ6N4>1=2KEE6>D@6}0>4?3>2=3K2>1=2FE>6>D=6=D>6=7C4>3=1=2"
DATA "FE=D=6HD=6AD=6=D>6>D=6=D>6=7O4=1>2KEI6}0>4?3>2=3J2=1=2FEG6C4>3=1=2FE[6"
DATA "P4>1=2KEH6}0=4@3>2=3H2>1=2FEH6=7B4>3=1=2FE>D=6>D=6>DS6=7O4>3=1>2KEF6}0"
DATA "=4@3>2=3G2=1=2FE>7I6B4>3=1=2FE\6O4?3>1=2LED6}0=4@3>2=3E2>1=2FE?7I6=7A4"
DATA ">3=1=2FE\6=7N4A3=1>2KEC6}0=4@3>2=3D2=1=2FE?7=D=7=D=6>D?6=DB6A4>3=1=2FE"
DATA "A6>D=6=D>6=DA6=D=6=D=6>D?6=DB6M4C3=1>3LEA6}0=4@3>2=3B2>1=2EE=D=7?D=7@D"
DATA "=6=D=6?DA6=7@4>3=1=2FE@6>D=6>D=6?D=6?D=6@D=6=D=6?DA6=7L4D3>1>2KE@6}0=4"
DATA "@3>2=3A2=1=2FEE7J6@4>3=1=2FE^6L4F3>1>2JE?6}0=4@3>2=3?2>1=2FEF7J6=7?4>3"
DATA "=1=2DE=C_6=7J4I3>1=2JE>6}0=4@3>2=3>2=1=2FEI7J6?4>3=1=2DE=C`6J4K3=1>2HE"
DATA ">6}0=4@3>2=3>1=2FEJ7J6=7>4>3=1=2DE=7`6=7I4L3>1=2HE=6}0A3>2>3=2EEL7J6=7"
DATA ">4>3=1=2DE=7`6=7H4O3=1>2GE}0A3>2=1=3=7cE=7>4>3=1=2CE>7`E=7H4P3>1=2FE}0"
DATA "A3=2=1>3=7>E=7`E=7>4>3=1=2BE>7aE=7H4R3=1>2DE}0B3=1?3=E=7aE=7>4>3=1=2>3"
DATA "@E=7bE=7G4T3>1=2CE}0B3=1?3cE=7>4>3=1=2?3=7=E=7cE=7G4V3=1>2AE}0B3=1=2>3"
DATA "cE=7=2=4>3>1A3dE=7=2F4W3>1=2?E=3}0C3=1?3cE=2=4?3=1=2@3eE=2E4Z3=1@3}0C3"
DATA "=1>2=3cE>2@3=1=2@3dE>2D4Z3=2>1>3}0E3g2A3=1=2@3e2C4\3>2>1}0p3>4@3=1@2e3"
DATA "d4>3=2}0r4A3>1C3<43>4}0!O4!e0g5!e0g5!e0g5>FH0>F=0>FF0>F=0>FF0>FG0?FG0>FG0"
DATA ">FI0>FG0>Fs0g5>FH0>F=0>FF0>F=0>FE0@FE0>F=0>F=0>FB0@FF0>FH0>FI0>FG0@Fc0"
DATA "g5>FH0>F=0>FE0CFC0BFE0?F=0>FC0@FF0>FH0>FI0>FH0>Fd0g2>FW0>F=0>FD0@FJ0>F"
DATA "E0>FU0>FI0>FG0@FH0>FU0g2>FW0>F=0>FE0?FI0>FF0>FU0>FI0>FW0>FU0g2>FW0>F=0"
DATA ">FF0?FG0>FF0BFR0>FI0>FU0BFS0g2>FV0CFE0@FE0>F=0?FC0>F=0>FS0>FI0>FW0>FU0"
DATA "g5Y0>F=0>FD0BFD0>F=0>F=0>FB0>F=0>FS0>FI0>FW0>FU0g3>FW0>F=0>FE0@FI0?FD0"
DATA "AFR0>FI0>Fr0g3h0>Fp0>FI0>Fr0g3<67>0>FG0>Fs0g3!e0g3!e0=3=2=3?2=3=2?3=2=3?2"
DATA "=3=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3!e0?2?3C2?3C2?3C2?3C2i0>FF0@FG0>FG0@F"
DATA "F0@FH0>FE0BFE0@FT0=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2"
DATA "=3i0>FE0>F>0>FD0@FF0>F>0>FD0>F>0>FF0?FE0>FH0>F>0>FS0=2C3?2C3?2C3?2C3?2"
DATA ">3i0>FE0>F>0>FF0>FJ0>FH0>FF0?FE0>FH0>FW0=2C3=2=3=2C3=2=3=2C3=2=3=2C3=2"
DATA "=3=2>3h0>FF0>F>0>FF0>FJ0>FH0>FE0@FE0AFE0>FW0=2C3?2C3?2C3?2C3?2>3h0>FF0"
DATA ">F>0>FF0>FI0>FG0?FF0@FE0>F>0>FD0AFT0=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3"
DATA "=2=3=2A3=2=3=2=3=2=3J0?FV0>FG0>F>0>FF0>FH0>FJ0>FD0>F=0>FI0>FD0>F>0>FS0"
DATA ">2A3>2=3>2?3=E=7>2=3>2A3>2=3>2A3>2=3>2=3g0>FG0>F>0>FF0>FG0>FK0>FD0BFH0"
DATA ">FD0>F>0>FS0=3=2A3=2?3=2?3>6=C=E=7=3=2A3=2?3=2A3=2?3=2=3f0>FH0>F>0>FF0"
DATA ">FF0>FH0>F>0>FG0>FE0>F>0>FD0>F>0>FS0=3?2=3?2?3?2=EA6=C=E=7=2=3?2?3?2=3"
DATA "?2?3>2=0>FU0>FH0>FI0@FG0>FF0BFE0@FH0>FF0@FF0@FT0J3F6=C=E=7L3>F!c0I3=EI6"
DATA "=C=E=7I3!e0I3N6=C=E=7E3!e0H3=2@6=DM6=E=7B3!e0H3=EA6?DL6=C=7@3!=0AF_0G3"
DATA "=2E6>DM6=7>3BFE0@FF0@F<>0@FF0?F?0?FC0>FT0G2=EC6=D?6?DJ6=C=7=2@0>FD0>F>0"
DATA ">FD0>F>0>F<>0>F>0>FE0>FA0>FC0>FT0G2=E?6=D@6?DO6=7?0>FE0>F>0>FD0>F>0>Fc0"
DATA ">FS0>FL0>FD0>F>0@F=0>FA0@FS0F2=EA6?D@6@DL6?0>FE0>F>0>FD0>F>0>FD0>FI0>F"
DATA "I0>FU0>FK0>FD0>F=0>F=0>F=0>FA0@FS0E4=2=E?6=D@6?DA6?DI6>0>FG0@FF0AFa0>F"
DATA "G0BFF0>FI0>FE0>F=0>F=0>F=0>F@0>F>0>FR0E4=EA6?D@6?DA6?DF6>0>FF0>F>0>FH0"
DATA ">F`0>FY0>FG0>FF0>F>0CF@0>F>0>FR0E9E6?D@6?DA6?DC6=0>FG0>F>0>FH0>Fa0>FG0"
DATA "BFF0>FH0>FG0>FH0BFR0D4=2@6=DC6?D@6?DH6=0>FG0>F>0>FD0>F>0>Fb0>FU0>FV0?F"
DATA "F0>F@0>FQ0D4B6?DC6?D@6?DE6=0>FH0@FF0@FE0>FI0>FJ0>FS0>FJ0>FJ0@FB0>F@0>F"
DATA "Q0C4=2@6=D@6?DC6?D@6?DB6t0>F<>0C4=EA6?D@6?DC6>DG6!e0B4=2@6=D@6@D?6?DB6?D"
DATA "D6!e0B4=EA6?DA6?D?6?DB6?DA6!e0A4=2E6@D@6?D?6?DG6!e0A4=EI6?D@6?D?6?DD6AF"
DATA "F0AFD0AFE0BFD0BFE0AFD0>F?0>FC0>FK0>FE0>F>0>FD0>FW0@4=2?EJ6?D@6?D?6?DA6"
DATA ">F>0>FD0>F?0>FC0>F>0>FD0>FH0>FH0>F?0>FC0>F?0>FC0>FK0>FE0>F=0>FE0>FW0@4"
DATA "=7BEJ6?D@6?DD6>F>0>FD0>FH0>F?0>FC0>FH0>FH0>FH0>F?0>FC0>FK0>FE0@FF0>FW0"
DATA "@4FEQ6?DA6>F>0>FD0>FH0>F?0>FC0>FH0>FH0>FH0>F?0>FC0>FK0>FE0?FG0>FW0?4=2"
DATA "IEV6AFE0>FH0>F?0>FC0AFE0AFE0>F=0@FC0CFC0>FK0>FE0?FG0>FW0>4=2=7KET6>F>0"
DATA ">FD0>FH0>F?0>FC0>FH0>FH0>F?0>FC0>F?0>FC0>FK0>FE0@FF0>FW0>4=2OEQ6>F>0>F"
DATA "D0>FH0>F?0>FC0>FH0>FH0>F?0>FC0>F?0>FC0>FH0>F=0>FE0>F=0>FE0>FW0=4>2REN6"
DATA ">F>0>FD0>F?0>FC0>F>0>FD0>FH0>FH0>F>0?FC0>F?0>FC0>FH0>F=0>FE0>F>0>FD0>F"
DATA "W0=4=1@2REK6AFF0AFD0AFE0BFD0>FI0BFC0>F?0>FC0>FI0?FF0>F?0>FC0BFS0>4?1?2"
DATA "SEH6!e0A4?1@2REE6!e0B4>3?1@2QEC6!e0A4B3?1@2QE@6!e0A4E3?1@2NE@6!e0@4I3?1"
DATA "@2ME>6>F@0>FB0>F?0>FD0AFD0BFE0AFD0BFE0@FE0BFD0>F?0>FC0>F@0>FB0>FD0>FM0"
DATA "@4L3?1@2LE>F@0>FB0?F>0>FC0>F?0>FC0>F?0>FC0>F?0>FC0>F?0>FC0>F>0>FF0>FF0"
DATA ">F?0>FC0>F@0>FB0>FD0>FM0?4P3@1?2IE?F>0?FB0?F>0>FC0>F?0>FC0>F?0>FC0>F?0"
DATA ">FC0>F?0>FC0>FJ0>FF0>F?0>FD0>F>0>FD0>F>0>F>0>FN0?4T3?1?2FE?F>0?FB0@F=0"
DATA ">FC0>F?0>FC0>F?0>FC0>F?0>FC0>F?0>FC0>FJ0>FF0>F?0>FD0>F>0>FD0>F>0>F>0>F"
DATA "N0>4X3?1?2CEDFB0@F=0>FC0>F?0>FC0BFD0>F?0>FC0BFE0@FG0>FF0>F?0>FD0>F>0>F"
DATA "D0>F>0>F>0>FN0>4[3?1?2>E>3DFB0>F=0@FC0>F?0>FC0>FH0>F?0>FC0>F?0>FG0>FF0"
DATA ">FF0>F?0>FE0@FF0DFO0=4^3?1>2?3>F=0>F=0>FB0>F>0?FC0>F?0>FC0>FH0>F=0@FC0"
DATA ">F?0>FG0>FF0>FF0>F?0>FE0@FF0DFO0J4T3>1?3>F=0>F=0>FB0>F>0?FC0>F?0>FC0>F"
DATA "H0>F>0?FC0>F?0>FC0>F>0>FF0>FF0>F?0>FF0>FH0>F>0>FP0^4A3=2?1>F@0>FB0>F?0"
DATA ">FD0AFD0>FI0AFD0>F?0>FD0@FG0>FG0AFG0>FH0>F>0>FP0g4y0>F<>0g5!e0g5!e0g5!e0"
DATA "g5<67>0>F<>0g5>F@0>FB0>F@0>FB0DFB0?FG0>FH0?FH0@FS0>FV0>FW0g2>F@0>FB0>F@0>F"
DATA "H0>FB0>FH0>FI0>FG0>F>0>FS0>FU0>FW0g2=0>F>0>FD0>F>0>FH0>FC0>FH0>FI0>F0"
DATA ">FW0g2>0@FF0@FH0>FD0>FI0>FH0>Fr0@FE0AFT0g2?0>FH0>FH0>FE0>FI0>FH0>Fu0>F"
DATA "D0>F>0>FS0g5>0@FG0>FG0>FF0>FJ0>FG0>Fr0AFD0>F>0>FS0g3=0>F>0>FF0>FF0>FG0"
DATA ">FJ0>FG0>Fq0>F>0>FD0>F>0>FS0g3>F@0>FE0>FE0>FH0>FK0>FF0>Fq0>F>0>FD0>F>0"
DATA ">FS0g3>F@0>FE0>FE0DFB0>FK0>FF0>Fr0AFD0AFT0g3f0>FW0>F<>0g3f0?FU0?FU0CF|0"
DATA "=3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3!e0?2?3C2?3C2?3C2"
DATA "?3C2!e0=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2=3!e0=2C3?2"
DATA "C3?2C3?2C3?2>3N0>FS0>FU0>FH0>FH0>FH0>FH0>Fe0=2C3=2=3=2C3=2=3=2C3=2=3=2"
DATA "C3=2=3=2>3N0>FR0>FV0>Fd0>FH0>Fe0=2C3?2C3?2C3?2C3?2>3N0>FR0>FV0>Fd0>FH0"
DATA ">Fe0=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2=3=0@FF0AFE0@F"
DATA "E0?FH0AFD0AFE0>FH0>FH0>F=0>FE0>FH0CFR0>2A3>2=3>2A3>2=3>2A3>2=3>2A3>2=3"
DATA ">2=3>F>0>FD0>F>0>FD0>F>0>FD0>FH0>F>0>FD0?F=0>FD0>FH0>FH0@FF0>FH0>F=0>F"
DATA "=0>FQ0=3=2A3=2?3=2A3=2?3=2A3=2?3=2A3=2?3=2=3>FH0>F>0>FD0BFD0>FH0>F>0>F"
DATA "D0>F>0>FD0>FH0>FH0?FG0>FH0>F=0>F=0>FQ0=3?2=3?2?3?2=3?2?3?2=3?2?3?2=3?2"
DATA "?3>2>FH0>F>0>FD0>FH0>FH0>F>0>FD0>F>0>FD0>FH0>FH0@FF0>FH0>F=0>F=0>FQ0g3"
DATA ">F>0>FD0>F>0>FD0>F>0>FD0>FH0>F>0>FD0>F>0>FD0>FH0>FH0>F=0>FE0>FH0>F=0>F"
DATA "=0>FQ0g3=0@FF0AFE0@FE0>FI0AFD0>F>0>FD0>FH0>FH0>F>0>FD0>FH0>F=0>F=0>FQ0"
DATA "g3x0>F`0>F<>0g3t0AFa0>F<>0g3!e0K3Q6=C=E=7@3!e0J2=7T6=C=7>2!Q0@5?0C2B0J2X6"
DATA "=7!Q0@5?0C2B0I2=7?6=D=6=DS6<53>0>F{0@5?0C4B0I4?6=D=6=D=6?D=6>D>6=DJ6<4A>0>F{0"
DATA "@5?0C4B0H4=7Z6AFF0@FE0AFF0AFD0?FH0?FF0?FG0>F>0>FD0>F>0>FD0>F=0>F=0>FB0"
DATA ">F=0>F@0@5?0C9B0H9[6?F=0>FD0>F>0>FD0>F>0>FD0>F>0>FD0>FH0>F=0>FE0>FH0>F"
DATA ">0>FD0>F>0>FD0>F=0>F=0>FB0>F=0>F@0@2?0C4B0G4=7?6MD=6=D=6=D=6=DA6>F>0>F"
DATA "D0>F>0>FD0>F>0>FD0>F>0>FD0>FI0>FG0>FH0>F>0>FE0@FE0DFC0?FA0@2?0C4B0G4\6"
DATA ">F>0>FD0>F>0>FD0>F>0>FD0>F>0>FD0>FJ0>FF0>FH0>F>0>FE0@FE0DFC0?FA0@2?0C4"
DATA "B0F4=7?6ED=6?D=6ED=6=D@6>F>0>FD0>F>0>FD0>F>0>FD0>F>0>FD0>FH0>F=0>FE0>F"
DATA "H0>F=0?FF0>FG0>F>0>FC0>F=0>F@0@2?0C4B0F4]6>F>0>FE0@FE0AFF0AFD0>FI0?FG0"
DATA ">FH0AFF0>FG0>F>0>FC0>F=0>F@0@5?0C4B0E4=7?6=D>6=D=6HD=6BD=6=D@6X0>FL0>F"
DATA "<22>0@3?0C4B0E4^6X0>FL0>F<>0@3?0C4B0D4=7?6=D>6>D=6BD=6>D=6?D=6?DD6!Q0@3?0C4"
DATA "B0D4_6!Q0@3?0C4B0C4=7_6Z0>FT0>F<>0=7?3?0C4B0C4@6?D=6=D=6?D=6>D=6=D>6>D=6"
DATA "@D=6=D=6=DA6Y0>FG0>FI0>FU0=7I0=7>0=7G0=7>0=7G0=7H0>7B0=E=2=3=2?0C4B0B4"
DATA "=7`6Y0>FG0>FI0>FH0?F=0>FC0=7I0=7>0=7G0=7>0=7F0?7F0=7>0=7>0=7>0=6>2=3?0"
DATA "C4B0B4@6=D=6ED=6>D=6@D>6ADC6Y0>FG0>FI0>FG0>F=0?FD0=7I0=7>0=7F0B7D0=7=0"
DATA "=7=0=7F0>7>0=7?0=6=7>3?0C4B0A4=7a6=0>F=0>FD0AFF0>FG0>FI0>FU0=7X0=7>0=7"
DATA "E0=7=0=7K0=7@0=6=E>3?0C4B0A4@6=D=6@D=6=D>6=D>6?DN6=0>F=0>FG0>FE0>FH0>F"
DATA "J0>FT0=7X0=7>0=7F0>7J0=7A0>6>3?0C4B0@4=7b6=0>F=0>FF0>FG0>FG0>FI0>FU0=7"
DATA "X0=7>0=7G0>7H0=7B0>6=7=3?0C4B0@4c6=0>F=0>FE0>FH0>FG0>FI0>FU0=7W0B7F0=7"
DATA "=0=7F0=7>0>7?0=D>6=3?0C4B0?4=7c6>0?FE0>FI0>FG0>FI0>Fr0=7>0=7E0=7=0=7=0"
DATA "=7E0=7>0=7>0=7>0=D>6=2?0C4B0?4d6>0>FF0AFF0>FG0>FI0>FU0=7X0=7>0=7F0?7J0"
DATA ">7?0=6=D=6=7?0C4B0>4=7d6>0>FV0>FF0>FH0>F<>0=7P0=D>6=7?0B4=3B0>4=7d6?F!N0"
DATA "=D>6=E?0B4=3B0>4=7_EA6!Q0=6=D=6=E?0B4=3B0>4=7bE>6!Q0=6=D=6=E?0B4=3B0>4"
DATA "=7dE!Q0@6?0B4=3B0>4=7dE=0=7H0=7J0=7H0=7<>0=7G0?7A0=D?6?0B4=3B0=4=2=7dE=7"
DATA "=0=7G0=7I0=7J0=7H0=7=0=7<>0=7F0=7?0=7@0=D?6?0B4=3B0=4=2eE=7=0=7G0=7I0=7"
DATA "J0=7I0=7<>0=7F0=7?0=7@0=6=D>6?0B4=3B0>2cE>3=0=7V0=7J0=7H0=7=0=7I0=7s0=7"
DATA "G0=7?0=7@0=D?6?0B4=3B0c2@3=0=7V0=7J0=7X0=7s0=7G0=7?0=7@0=6=D>6?0B4=3B0"
DATA "=4c2?3=7=0=7=0=7S0=7J0=7V0A7S0>7W0=7H0=7?0=7@0=D?6?0C4B0`4C2=7>0=7T0=7"
DATA "J0=7X0=7r0=7H0=7?0=7@0=D?6?0C4B0g4=7>0=7T0=7J0=7X0=7q0=7I0=7?0=7@0=6=D"
DATA ">6?0C5B0g5=0>7=0=7S0=7J0=7e0=7V0=7I0=7J0?7A0=6=D>6?0C5B0g5X0=7J0=7d0=7"
DATA "|0@6?0C5B0g5Y0=7H0=7<>0@6?0C5B0g5!Q0@6?0C5B0g5!Q0@6?0C2B0g2!Q0@6?0C2B0g2"
DATA ">0=7H0?7G0?7I0=7F0A7F0?7F0A7F0?7G0?7]0@6?0C2B0g2?7G0=7?0=7E0=7?0=7G0>7"
DATA "F0=7I0=7?0=7I0=7E0=7?0=7E0=7?0=7\0@6?0C2B0g2>0=7K0=7I0=7G0>7F0=7I0=7L0"
DATA "=7F0=7?0=7E0=7?0=7\0@6?0C5B0g5>0=7K0=7I0=7F0=7=0=7F0@7F0=7L0=7F0=7?0=7"
DATA "E0=7?0=7E0=7J0=7C0=E?6?0C3B0g3>0=7J0=7H0>7G0=7=0=7F0=7?0=7E0@7H0=7H0?7"
DATA "G0@7\0=E?6?0C3B0g3>0=7I0=7K0=7E0=7>0=7J0=7E0=7?0=7G0=7G0=7?0=7I0=7\0=E"
DATA "?6?0C3B0g3>0=7H0=7L0=7E0A7I0=7E0=7?0=7F0=7H0=7?0=7I0=7\0>E>6?0C3B0g3>0"
DATA "=7G0=7I0=7?0=7H0=7F0=7?0=7E0=7?0=7F0=7H0=7?0=7E0=7?0=7\0?E=6?0C3B0g3>0"
DATA "=7G0A7F0?7I0=7G0?7G0?7G0=7I0?7G0?7F0=7J0=7C0?E=6?0>3=2=3?2B0=3=2=3?2=3"
DATA "=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3!H0=7D0?E=6?0@2?3B0?2?3C2?3"
DATA "C2?3C2?3C2!Q0@E?0=2=3=2@3B0=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2"
DATA "=3=2=3=2=3!Q0@E?0>2A3B0=2C3?2C3?2C3?2C3?2>3!Q0@E?0=3=2A3B0=2C3=2=3=2C3"
DATA "=2=3=2C3=2=3=2C3=2=3=2>3!Q0@E?0>2A3B0=2C3?2C3?2C3?2C3?2>3g0?7I0@7F0=7F0"
DATA "@7G0@7E0@7F0A7E0A7@0@E?0=2=3=2@3B0=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2"
DATA "=3=2A3=2=3=2=3=2=3f0=7?0=7F0>7@0>7D0=7F0=7?0=7E0=7@0=7D0=7?0=7E0=7I0=7"
DATA "D0@E?0=3>2@3B0>2A3>2=3>2A3>2=3>2A3>2=3>2A3>2=3>2=3?0=7T0=7M0=7F0=7B0=7"
DATA "C0=7=0=7E0=7?0=7E0=7I0=7@0=7D0=7I0=7D0@E?0>3=2@3B0=3=2A3=2?3=2A3=2?3=2"
DATA "A3=2?3=2A3=2?3=2=3>0=7V0=7L0=7E0=7?0?7>0=7B0=7=0=7E0=7?0=7E0=7I0=7@0=7"
DATA "D0=7I0=7D0=3?E?0>3?2=3=2B0=3?2=3?2?3?2=3?2?3?2=3?2?3?2=3?2?3>2=0=7H0A7"
DATA "G0=7J0=7F0=7>0=7>0=7>0=7A0=7?0=7D0@7F0=7I0=7@0=7D0@7F0@7A0@3?0C3B0g3=7"
DATA "Z0=7H0=7G0=7>0=7>0=7>0=7A0=7?0=7D0=7?0=7E0=7I0=7@0=7D0=7I0=7D0=2?3?0C3"
DATA "B0g3=0=7H0A7G0=7I0=7G0=7?0>7=0?7A0A7D0=7?0=7E0=7I0=7@0=7D0=7I0=7D0=1=2"
DATA ">3?0C3B0g3>0=7V0=7W0=7H0=7A0=7C0=7?0=7E0=7@0=7D0=7?0=7E0=7I0=7D0=3=1>2"
DATA "?0C3B0g3?0=7T0=7K0=7H0>7G0=7A0=7C0@7G0@7E0@7F0A7E0=7D0=4?3?0C3B0g3w0A7"
DATA "<22>0?4=3?0C3B0K3Q6=C=E=7@3!Q0@4?0C2B0J2=7T6=C=7>2!Q0@5?0C2B0J2X6=7!Q0@5?0"
DATA "C2B0I2=7?6=D=6=DS6!Q0@5?0C4B0I4?6=D=6=D=6?D=6>D>6=DJ6=0@7E0=7@0=7D0=7L0"
DATA "=7F0=7?0=7E0=7I0=7A0=7C0=7@0=7E0@7E0A7F0@7@0@5?0C4B0H4=7Z6=7@0=7D0=7@0"
DATA "=7D0=7L0=7F0=7>0=7F0=7I0=7A0=7C0>7?0=7D0=7@0=7D0=7@0=7D0=7@0=7?0@5?0C9"
DATA "B0H9[6=7I0=7@0=7D0=7L0=7F0=7=0=7G0=7I0>7?0>7C0>7?0=7D0=7@0=7D0=7@0=7D0"
DATA "=7@0=7?0@2?0?4@3B0G4=7?6MD=6=D=6=D=6=DA6=7I0=7@0=7D0=7L0=7F0>7H0=7I0>7"
DATA "?0>7C0=7=0=7>0=7D0=7@0=7D0=7@0=7D0=7@0=7?0@2?0?4@3B0G4\6=7>0?7D0B7D0=7"
DATA "L0=7F0>7H0=7I0=7=0=7=0=7=0=7C0=7=0=7>0=7D0=7@0=7D0A7E0=7@0=7?0@2?0?4@3"
DATA "B0F4=7?6ED=6?D=6ED=6=D@6=7@0=7D0=7@0=7D0=7L0=7F0=7=0=7G0=7I0=7=0=7=0=7"
DATA "=0=7C0=7>0=7=0=7D0=7@0=7D0=7I0=7@0=7?0@2?0?4@3B0F4]6=7@0=7D0=7@0=7D0=7"
DATA "I0=7>0=7F0=7>0=7F0=7I0=7>0=7>0=7C0=7?0>7D0=7@0=7D0=7I0=7>0=7=0=7?0@5?0"
DATA "?4@3B0E4=7?6=D>6=D=6HD=6BD=6=D@6=7?0>7D0=7@0=7D0=7I0=7>0=7F0=7?0=7E0=7"
DATA "I0=7>0=7>0=7C0=7?0>7D0=7@0=7D0=7I0=7?0>7?0@3?0?4@3B0E4^6=0?7=0=7D0=7@0"
DATA "=7D0=7J0>7G0=7@0=7D0A7E0=7A0=7C0=7@0=7E0@7E0=7J0@7@0@3?0?4@3B0D4=7?6=D"
DATA ">6>D=6BD=6>D=6?D=6?DD6!M0=7?0@3?0>4A3B0D4_6!Q0@3?0>4A3B0C4=7_6!Q0@3?0>4"
DATA "A3B0C4@6?D=6=D=6?D=6>D=6=D>6>D=6@D=6=D=6=DA6!Q0=3=2=3=2?0>4A3B0B4=7`6!Q0"
DATA "?2=3?0>4A3B0B4@6=D=6ED=6>D=6@D>6ADC6A7F0?7F0A7E0=7@0=7D0=7A0=7C0=7E0=7"
DATA "?0=7A0=7C0=7A0=7C0C7C0>7H0=7D0=3=2>3?0>4A3B0A4=7a6=7@0=7D0=7?0=7G0=7G0"
DATA "=7@0=7D0=7A0=7C0=7E0=7?0=7A0=7C0=7A0=7I0=7C0=7I0=7D0=2?3?0>4A3B0A4@6=D"
DATA "=6@D=6=D>6=D>6?DN6=7@0=7D0=7K0=7G0=7@0=7E0=7?0=7E0=7?0=7?0=7A0=7?0=7E0"
DATA "=7?0=7I0=7D0=7I0=7D0=2?3?0>4A3B0@4=7b6=7@0=7D0=7K0=7G0=7@0=7E0=7?0=7E0"
DATA "=7?0=7?0=7B0=7=0=7G0=7=0=7I0=7E0=7J0=7C0=2?3?0=4B3B0@4c6A7F0?7H0=7G0=7"
DATA "@0=7E0=7?0=7E0=7?0=7?0=7C0=7I0=7I0=7F0=7J0=7C0=3=2>3?0=4B3B0?4=7c6=7@0"
DATA "=7H0=7G0=7G0=7@0=7F0=7=0=7G0=7=0=7=0=7=0=7C0=7=0=7H0=7H0=7G0=7K0=7B0>2"
DATA ">3?0=4B3B0?4d6=7@0=7H0=7G0=7G0=7@0=7F0=7=0=7G0=7=0=7=0=7=0=7B0=7?0=7G0"
DATA "=7G0=7H0=7K0=7B0=3=2>3?0=4B3B0>4=7d6=7@0=7D0=7?0=7G0=7G0=7@0=7G0=7I0=7"
DATA "?0=7B0=7A0=7F0=7F0=7I0=7L0=7A0=3?2?0=4B3B0>4=7d6=7@0=7E0?7H0=7H0@7H0=7"
DATA "I0=7?0=7B0=7A0=7F0=7F0C7C0=7L0=7A0@3?0=4B3B0>4=7_EA6<41>0=7R0@3?0=4B3B0>4"
DATA "=7bE>6<>0>7Q0@3?0=4B3B0>4=7dE!Q0=E?3?0C3B0>4=7dE!Q0=E=7>3?0C3B0=4=2=7dE"
DATA "L0=7!@0=6=E>3?0C3B0=4=2eE>7I0=7=0=7T0=7W0=7[0=7T0=7Q0>6=7=2?0C3B0>2cE>3"
DATA "=0=7H0=7?0=7T0=7V0=7[0=7S0=7R0>6=E=2?0C3B0c2@3=0=7<>0=7[0=7S0=7R0>6=E=7"
DATA "?0C4B0=4c2?3=0=7s0?7F0@7G0?7G0@7F0?7F0>7I0@7@0>6=E=7?0C4B0`4C2=0=7v0=7"
DATA "E0=7?0=7E0=7?0=7E0=7?0=7E0=7?0=7E0=7I0=7?0=7@0?6=7?0C4B0g4=0=7s0@7E0=7"
DATA "?0=7E0=7I0=7?0=7E0A7E0=7I0=7?0=7@0?6=7x0=7r0=7?0=7E0=7?0=7E0=7I0=7?0=7"
DATA "E0=7I0=7I0=7?0=7@0?6=7x0=7r0=7?0=7E0=7?0=7E0=7?0=7E0=7?0=7E0=7?0=7E0=7"
DATA "I0=7?0=7@0?6=7?0j5G0=7s0@7E0@7G0?7G0@7F0?7F0=7J0@7@0?6=7?0j5G0=7!J0=7@0"
DATA "?6=7?0j5F0>7V0B7<42>0@7A0?6=7?0j5![0?6=7?0j5![0?6=7?0j2![0?6=7?0j2F0=7I0=7"
DATA "I0=7I0=7I0=7<>0?6=7?0j2F0=7e0=7I0=7<>0?6=7?0j2F0=7e0=7I0=7<>0?6=7?0j5F0=7"
DATA "=0>7F0=7I0=7I0=7>0=7F0=7I0?7=0>7D0=7=0>7G0?7F0@7G0@7E0>7C0?6=7?0j3F0>7"
DATA ">0=7E0=7I0=7I0=7=0=7G0=7I0=7>0=7>0=7C0>7>0=7E0=7?0=7E0=7?0=7E0=7?0=7E0"
DATA "=7D0?6=7?0j3F0=7?0=7E0=7I0=7I0>7H0=7I0=7>0=7>0=7C0=7?0=7E0=7?0=7E0=7?0"
DATA "=7E0=7?0=7E0=7D0=E>6=7?0j3F0=7?0=7E0=7I0=7I0=7=0=7G0=7I0=7>0=7>0=7C0=7"
DATA "?0=7E0=7?0=7E0=7?0=7E0=7?0=7E0=7D0>E=6=7?0j3F0=7?0=7E0=7I0=7I0=7>0=7F0"
DATA "=7I0=7>0=7>0=7C0=7?0=7E0=7?0=7E0=7?0=7E0=7?0=7E0=7D0>E=6=7?0j3F0=7?0=7"
DATA "E0=7I0=7I0=7?0=7E0=7I0=7>0=7>0=7C0=7?0=7F0?7F0@7G0@7E0=7D0?E=7?0?2=3=2"
DATA "?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2=3b0=7<>0=7M0=7N0?E=7?0"
DATA "?3C2?3C2?3C2?3C2?3?2b0=7<>0=7M0=7N0?E=7?0@3=2=3=2=3=2A3=2=3=2=3=2A3=2=3"
DATA "=2=3=2A3=2=3=2=3=2A3=2=3![0?E=7?0A3?2C3?2C3?2C3?2C3=2![0?E=7?0A3=2=3=2"
DATA "C3=2=3=2C3=2=3=2C3=2=3=2C3=2<>0=7U0=7D0?E=7?0A3?2C3?2C3?2C3?2C3=2<>0=7H0"
DATA "=7J0=7C0?E=7?0@3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3T0"
DATA "=7<>0=7H0=7J0=7C0?E=7?0@3>2=3>2A3>2=3>2A3>2=3>2A3>2=3>2A3>2T0=7<>0=7H0=7"
DATA "J0=7C0=E>3=7?0@3=2?3=2A3=2?3=2A3=2?3=2A3=2?3=2A3=2=3G0>7G0>7H0=7?0=7E0"
DATA "=7?0=7E0=7>0=7>0=7C0=7>0=7G0=7>0=7E0@7G0=7H0=7J0=7C0=2?3?0=2=3?2?3?2=3"
DATA "?2?3?2=3?2?3?2=3?2?3?2=3?2=3F0=7>0=7F0=7I0=7?0=7E0=7?0=7E0=7>0=7>0=7C0"
DATA "=7>0=7G0=7>0=7H0=7F0=7I0=7K0=7B0>2>3?0j3G0=7H0=7I0=7?0=7F0=7=0=7F0=7=0"
DATA "=7=0=7=0=7D0>7H0=7>0=7G0=7H0=7H0=7J0=7C0>1>3?0j3H0=7G0=7I0=7?0=7F0=7=0"
DATA "=7F0=7=0=7=0=7=0=7D0>7H0=7>0=7F0=7I0=7H0=7J0=7C0@3?0j3F0=7>0=7F0=7I0=7"
DATA ">0>7G0=7H0=7?0=7D0=7>0=7H0>7F0=7J0=7H0=7J0=7C0@3?0j3G0>7H0=7I0>7=0=7G0"
DATA "=7H0=7?0=7D0=7>0=7H0=7G0@7G0=7H0=7J0=7C0@4?0j3<6A>0=7W0=7G0=7I0=7K0A3=7=E"
DATA "S6L3<4C>0>7<>0?2=7V6=7K2!b0=2=7>E>6?D=6@D=6=D=6=D=6=D=6CD?6K2!b0=7?E=6=DU6"
DATA "=7I2=5!b0=7?E>6@D>6?D=6?D=6>D>6>D=6?D>6J4T0?8G0?8E0=8E0=8C0?8G0?8A0=8F0"
DATA "?8=0=8G0=8?0?8A0=8A0=8>0=8W0=7=E=C=EX6=7I4G0>7>0=7D0=8=0=8G0=8=0=8E0=8"
DATA "E0=8C0=8=0=8G0=8=0=8A0=8F0=8K0=8?0=8=0=8A0=8A0=8>0=8W0=7>C=E>6>D=6>D=6"
DATA "=D?6GD=6=D=6=D>6I9F0=7>0>7E0=8=0=8=0=8=0=8=0?8?0=8?0?8=0?8=0>8=0>8=0?8"
DATA "=0=8=0?8?0=8=0=8=0?8=0?8?0=8?0?8=0=8=0?8=0>8?0=8?0=8=0=8=0=8=0?8=0?8?0"
DATA "=8=0=8=0?8=0=8=0?8=0>8=0>8=0?8R0=7>C=E=6=DW6=7H4T0>8>0=8=0=8=0=8=0=8?0"
DATA "=8?0=8=0=8=0=8=0=8=0=8>0=8>0=8=0=8=0=8=0=8A0?8=0=8=0=8=0=8=0=8?0=8?0=8"
DATA "=0=8=0=8=0=8=0=8=0=8@0>8>0=8=0=8=0=8=0=8=0=8=0=8=0=8?0?8?0=8=0=8=0=8=0"
DATA "=8=0=8>0=8>0=8=0=8R0=7>C=E>6?D=6>D=6>DO6H4T0=8=0=8=0=8=0=8=0=8=0=8?0=8"
DATA "?0=8=0=8=0=8=0=8=0=8>0=8>0=8=0=8=0=8=0?8?0=8?0?8=0=8=0=8?0=8?0=8=0=8=0"
DATA "=8=0=8=0=8=0=8@0=8?0=8>0=8>0?8=0=8=0=8?0=8?0?8=0=8=0?8=0=8>0=8>0?8R0=7"
DATA ">C=E=6=DX6=7G4T0=8=0=8=0=8=0=8=0=8=0=8?0=8=0=8=0=8=0=8=0=8=0=8=0=8>0=8"
DATA ">0=8=0=8=0=8?0=8?0=8?0=8?0=8=0=8?0=8=0=8=0=8=0=8=0=8=0=8=0=8=0=8@0=8?0"
DATA "=8=0=8=0=8=0=8?0=8=0=8?0=8?0=8=0=8=0=8=0=8?0=8>0=8>0=8T0=7>C=E[6G4T0=8"
DATA "=0=8=0?8=0=8=0=8?0?8=0?8=0=8=0=8=0>8=0=8>0?8=0=8=0?8?0=8?0?8=0=8=0=8?0"
DATA "?8=0?8=0=8=0?8=0=8@0=8?0=8=0=8=0=8=0?8=0?8?0=8?0?8=0=8=0?8=0>8=0>8=0?8"
DATA "R0=7>C=E>6CD=6@D>6>D>6>D=6>D=6?D>6=7F4!b0=7>C=E=6=DZ6F4!b0=7>C=E?6=D=6"
DATA "LD=6>D=6>D=6=D?6=7E4T0?8=0=8S0=8?0=8C0>8K0=8H0>8J0?8J0=8=0=8E0=8V0=7>C"
DATA "=E]6E4T0=8=0=8=0=8S0=8?0=8C0=8=0=8V0=8=0=8J0=8=0=8J0=8G0=8V0=7>C=E>6>D"
DATA "=6HD=6AD=6=D>6>D=6=D>6=7D4T0=8?0?8=0?8=0?8=0?8=0?8=0?8=0?8=0=8=0?8?0=8"
DATA "=0=8=0>8=0?8=0=8=0=8=0=8=0=8=0?8=0?8?0=8=0=8=0>8=0?8=0?8?0=8?0?8=0?8=0"
DATA ">8=0?8=0=8=0?8=0?8=0>8=0?8=0?8M0=7>C=E^6D4T0=8?0=8=0=8?0=8=0=8=0=8=0=8"
DATA "=0=8=0=8=0=8?0=8=0=8=0=8=0=8=0=8=0=8?0=8=0=8=0=8@0=8=0=8=0=8=0=8=0=8=0"
DATA "=8=0=8=0=8=0=8?0?8=0=8>0=8=0=8?0=8?0=8?0=8=0=8=0=8=0=8=0=8>0=8=0=8=0=8"
DATA "=0=8=0=8?0=8=0=8>0=8=0=8=0=8O0=7>C=E?6>D=6>D=6>DS6=7C4T0=8?0=8=0=8=0?8"
DATA "=0=8=0=8=0=8=0=8=0?8=0?8=0=8=0=8=0=8=0?8?0=8=0=8=0=8>0?8=0=8=0=8=0=8=0"
DATA "=8=0=8=0=8=0=8=0=8?0=8=0=8=0=8>0?8=0?8?0=8?0=8=0=8=0=8=0=8=0=8>0=8=0=8"
DATA "=0=8=0=8=0=8=0?8=0=8>0?8=0?8M0=7>C=E>6=D\6C4T0=8=0=8=0=8=0=8=0=8=0=8=0"
DATA "=8=0=8=0=8=0=8=0=8?0=8=0=8=0=8=0=8=0=8=0=8A0=8=0=8=0=8>0=8=0=8=0=8=0=8"
DATA "=0=8=0=8=0=8=0=8=0=8=0=8?0=8=0=8=0=8>0=8?0=8=0=8?0=8=0=8=0=8=0=8=0=8=0"
DATA "=8=0=8>0=8=0=8=0=8=0=8=0=8=0=8=0=8=0=8>0=8A0=8M0=7>C=E_6=7B4T0?8=0=8=0"
DATA "=8=0?8=0=8=0=8=0?8=0?8=0?8=0?8=0=8=0?8?0>8>0=8>0?8>0=8=0=8>0=8=0=8=0=8"
DATA "=0?8?0=8=0=8=0=8>0?8=0?8?0?8=0?8=0?8=0=8>0?8=0=8=0=8=0=8=0?8=0>8=0?8=0"
DATA "?8M0=7>C=ED6>D=6=D>6=DA6=D=6=D=6>D?6=DB6B4f0=8j0=8<>0=7>C>EB6>D=6>D=6?D"
DATA "=6?D=6@D=6=D=6?DA6=7A4d0>8i0>8<>0=7>C>E`6A4T0?8C0=8E0?8C0?8C0=8=0=8C0?8"
DATA "C0?8C0?8C0?8C0?8m0=7>C>E`6=7@4T0=8=0=8C0=8G0=8E0=8C0=8=0=8C0=8E0=8G0=8"
DATA "C0=8=0=8C0=8=0=8m0=7>C>Ea6@4T0=8=0=8C0=8G0=8E0=8C0=8=0=8C0=8E0=8G0=8C0"
DATA "=8=0=8C0=8=0=8m0=7=E=C>Ea6=7?4T0=8=0=8C0=8E0?8C0?8C0?8C0?8C0?8D0=8D0?8"
DATA "C0?8m0=7=E=C>Ea6=7?4T0=8=0=8C0=8E0=8G0=8E0=8E0=8C0=8=0=8D0=8D0=8=0=8E0"
DATA "=8m0=7=E=C>E=6`E=7?4T0=8=0=8C0=8E0=8G0=8E0=8E0=8C0=8=0=8D0=8D0=8=0=8E0"
DATA "=8m0=7eE=7?4T0?8C0=8E0?8C0?8E0=8C0?8C0?8D0=8D0?8C0?8m0=7eE=7?4!b0=7eE=7"
DATA "?4!b0=7eE=7=2>4!b0=3fE=2>4!b0?3dE>2=4!b0B3c2=4!b0=3A2c3=4!b0E3a4!b0j4#1B2#0"

SUB DrawBOX (x, y, xx, yy, FlipFLOP)
Colr1 = 15: Colr2 = 8
IF FlipFLOP THEN Colr1 = 8: Colr2 = 15
LINE (x, y)-(xx, yy), 7, BF
LINE (x, y)-(xx, yy), Colr1, B
LINE (xx, y)-(xx, yy), Colr2
LINE (x, yy)-(xx, yy), Colr2
END SUB

SUB Interval (Length!)
StartTIME! = TIMER
DO
IF TIMER < StartTIME! THEN EXIT DO
LOOP WHILE TIMER < StartTIME! + Length!
END SUB

SUB PrintSTRING (x, y, Prnt$, Font)

Offset = Font * 4700 '3 fonts in 1 array with 4700 offset
FOR n = 1 TO LEN(Prnt$)
Char$ = MID$(Prnt$, n, 1)
IF Char$ = " " OR Char$ = CHR$(255) THEN
x = x + 3'FontBOX(Offset + 1)
ELSE
Index = (ASC(Char$) - 33) * FontBOX(Offset) + 2 + Offset
PUT (x, y), FontBOX(Index)
x = x + FontBOX(Index)
END IF
NEXT n

END SUB