Author Topic: Useful CONSTs (and such) (Read 3456 times)

SMcNeill · « **on:** December 23, 2019, 01:31:05 am »

For a long time now, I've been meaning to work up a nice list of CONSTs which I feel should be assembled into a library for ease of inserting into a program. Ages ago, I did one for a lot of the 32-bit color constants, and a ton of people have taken advantage of those (and I've imported them to become native to QB64 itself with the new $COLOR:32 command which is in the Developer builds and will be available for everyone else when v1.4 is released later), but I've always felt that there were a lot of other little pieces of constant information that I had to keep looking up in the wiki over and over, that I really shouldn't have to...

Thus, I'm taking a few moments out of my menu creation project to step back and start on a useful CONST library. Feel free to assemble your own list of CONST values, and I'll add them all into this one library so people can import them into QB64 and pick and choose what parts they need from it via the $IF precompiler options.

For starters, I offer MINMAX constants:

Code: QB64: [Select]

$LET COLOR = 32
$LET COMMONCONST = TRUE
$LET KEYCODES = TRUE
$LET MINMAX = TRUE
 
 
 
$IF COMMONCONST = TRUE THEN
    CONST True = -1, False = 0
$END IF
 
$IF MINMAX = TRUE THEN
    CONST Bit_Min = -1, Bit_Max = 0
    CONST Byte_Min = -128, Byte_Max = 127
    CONST Integer_Min = -32768, Integer_Max = 32767
    CONST Long_Min = -2147483648, Long_Max = 2147483647
    CONST Integer64_Min = -9223372036854775808, Integer64_Max = 9223372036854775807
 
    CONST Single_Min = -2.802597E-45, Single_Max = 3.402823E+38
    CONST Double_Min = -4.490656458412465E-324, Double_Max = 1.797693134862310E+308
    CONST Float_Min = -1.18E-4932, Float_Max = 1.18E+4932
 
    CONST U_Bit_Min = 0, U_Bit_Max = 1
    CONST U_Byte_Min = 0, U_Byte_Max = 256
    CONST U_Integer_Min = 0, U_Integer_Max = 65535
    CONST U_Long_Min = 0, U_Long_Max = 4294967295
    CONST U_Integer64_Min = 0, U_Integer64_Max = 18446744073709551615
 
    CONST String_Min = 0, String_Max = 2147483647
$END IF
 
$IF KEYCODES = TRUE THEN
    CONST Key_Uppercase = 0, Key_LowerCase = 32, Key_UC = 0, Key_LC = 32
 
    CONST Key_Backspace = 8, Key_Bksp = 8
    CONST Key_Tab = 9, Key_Enter = 13, Key_ESC = 27, Key_Space = 32
    CONST Key_Exclamation = 33, Key_Quote = 34, Key_Number = 35, Key_Dollar = 36
    CONST Key_Percent = 37, Key_And = 38, Key_Apostrophe = 39
    CONST Key_Left_Parenthese = 40, Key_Right_Parenthese = 41
    CONST Key_Times = 42, Key_Star = 42, Key_Plus = 43, Key_Comma = 44
    CONST Key_Minus = 45, Key_Dash = 45, Key_Period = 46, Key_Divide = 47, Key_Slash = 47
    CONST Key_0 = 48, Key_1 = 49, Key_2 = 50, Key_3 = 51, Key_4 = 52
    CONST Key_5 = 53, Key_6 = 54, Key_7 = 55, Key_8 = 56, Key_9 = 57
    CONST Key_Colon = 58, Key_Semicolon = 59, Key_LessThan = 60, Key_Equal = 61
    CONST Key_GreaterThan = 62, Key_Question = 63, Key_QuestionMark = 63, Key_At = 64
    CONST Key_A = 65, Key_B = 66, Key_C = 67, Key_D = 68, Key_E = 69, Key_F = 70
    CONST Key_G = 71, Key_H = 72, Key_I = 73, Key_J = 74, Key_K = 75, Key_L = 76
    CONST Key_M = 77, Key_N = 78, Key_O = 79, Key_P = 80, Key_Q = 81, Key_R = 82
    CONST Key_S = 83, Key_T = 84, Key_U = 85, Key_V = 86, Key_W = 87, Key_X = 88
    CONST Key_Y = 89, Key_Z = 90
    CONST Key_LeftBrace = 91, Key_BackSlash = 92, Key_RightBrace = 92
    CONST Key_Power = 94, Key_Underscore = 95, Key_BackQuote = 96
    'Lowercase A to Z are Key_A + Key_LowerCase to Key_Z + Key_LowerCase
 
    CONST Key_F1 = 15104, Key_F2 = 15360, Key_F3 = 15616, Key_F4 = 15872, Key_F5 = 16128
    CONST Key_F6 = 16384, Key_F7 = 16640, Key_F8 = 16896, Key_F9 = 17152, Key_F10 = 17408
    CONST Key_F11 = 34048, Key_F12 = 34304
 
    CONST Key_Pause = 100019
    CONST Key_NumLock = 100300, Key_CapsLock = 100301, Key_ScrollLock = 100302
    CONST Key_RightShift = 100303, Key_LeftShift = 100304
    CONST Key_RightControl = 100305, Key_RightCtrl = 100305, Key_LeftControl = 100306, Key_LeftCtrl = 100306
    CONST Key_RightAlt = 100307, Key_LeftAlt = 100308
    CONST Key_LeftApple = 100309, Key_RightApple = 100310
    CONST Key_LeftWin = 100311, Key_RightWin = 100312
    CONST Key_Sys = 100316, Key_Menu = 100319
 
    CONST Key_Up = 18432, Key_Left = 19200, Key_Down = 20480, Key_Right = 19712
    CONST Key_Ins = 20992, Key_Home = 18176, Key_PageUp = 18688
    CONST Key_Del = 21248, Key_End = 20224, Key_PageDown = 20736
$END IF
 
$IF COLOR = 32 THEN
    CONST AliceBlue = &HFFF0F8FF~& ' _RGB32(240,248,255)
    CONST Almond = &HFFEFDECD~& '_RGB32(239,222,205)
    CONST AntiqueBrass = &HFFCD9575~& '_RGB32(205,149,117)
    CONST AntiqueWhite = &HFFFAEBD7~& ' _RGB32(250,235,215)
    CONST Apricot = &HFFFDD9B5~& '_RGB32(253,217,181)
    CONST Aqua = &HFF00FFFF~& ' _RGB32(0,255,255)
    CONST Aquamarine = &HFF7FFFD4~& ' _RGB32(127,255,212)
    CONST Asparagus = &HFF87A96B~& '_RGB32(135,169,107)
    CONST AtomicTangerine = &HFFFFA474~& '_RGB32(255,164,116)
    CONST Azure = &HFFF0FFFF~& ' _RGB32(240,255,255)
    CONST BananaMania = &HFFFAE7B5~& '_RGB32(250,231,181)
    CONST Beaver = &HFF9F8170~& '_RGB32(159,129,112)
    CONST Beige = &HFFF5F5DC~& ' _RGB32(245,245,220)
    CONST Bisque = &HFFFFE4C4~& ' _RGB32(255,228,196)
    CONST Bittersweet = &HFFFD7C6E~& '_RGB32(253,124,110)
    CONST Black = &HFF000000~& ' _RGB32(0,0,0)
    CONST BlanchedAlmond = &HFFFFEBCD~& ' _RGB32(255,235,205)
    CONST BlizzardBlue = &HFFACE5EE~& '_RGB32(172,229,238)
    CONST Blue = &HFF0000FF~& ' _RGB32(0,0,255)
    CONST BlueBell = &HFFA2A2D0~& '_RGB32(162,162,208)
    CONST BlueGray = &HFF6699CC~& '_RGB32(102,153,204)
    CONST BlueGreen = &HFF0D98BA~& '_RGB32(13,152,186)
    CONST BlueViolet = &HFF8A2BE2~& ' _RGB32(138,43,226)
    CONST Blush = &HFFDE5D83~& '_RGB32(222,93,131)
    CONST BrickRed = &HFFCB4154~& '_RGB32(203,65,84)
    CONST Brown = &HFFA52A2A~& ' _RGB32(165,42,42)
    CONST BurlyWood = &HFFDEB887~& ' _RGB32(222,184,135)
    CONST BurntOrange = &HFFFF7F49~& '_RGB32(255,127,73)
    CONST BurntSienna = &HFFEA7E5D~& '_RGB32(234,126,93)
    CONST CadetBlue = &HFF5F9EA0~& ' _RGB32(95,158,160)
    CONST Canary = &HFFFFFF99~& '_RGB32(255,255,153)
    CONST CaribbeanGreen = &HFF1CD3A2~& '_RGB32(28,211,162)
    CONST CarnationPink = &HFFFFAACC~& '_RGB32(255,170,204)
    CONST Cerise = &HFFDD4492~& '_RGB32(221,68,146)
    CONST Cerulean = &HFF1DACD6~& '_RGB32(29,172,214)
    CONST ChartReuse = &HFF7FFF00~& ' _RGB32(127,255,0)
    CONST Chestnut = &HFFBC5D58~& '_RGB32(188,93,88)
    CONST Chocolate = &HFFD2691E~& ' _RGB32(210,105,30)
    CONST Copper = &HFFDD9475~& '_RGB32(221,148,117)
    CONST Coral = &HFFFF7F50~& ' _RGB32(255,127,80)
    CONST Cornflower = &HFF9ACEEB~& '_RGB32(154,206,235)
    CONST CornflowerBlue = &HFF6495ED~& ' _RGB32(100,149,237)
    CONST Cornsilk = &HFFFFF8DC~& ' _RGB32(255,248,220)
    CONST CottonCandy = &HFFFFBCD9~& '_RGB32(255,188,217)
    CONST CrayolaAquamarine = &HFF78DBE2~& '_RGB32(120,219,226)
    CONST CrayolaBlue = &HFF1F75FE~& '_RGB32(31,117,254)
    CONST CrayolaBlueViolet = &HFF7366BD~& '_RGB32(115,102,189)
    CONST CrayolaBrown = &HFFB4674D~& '_RGB32(180,103,77)
    CONST CrayolaCadetBlue = &HFFB0B7C6~& '_RGB32(176,183,198)
    CONST CrayolaForestGreen = &HFF6DAE81~& '_RGB32(109,174,129)
    CONST CrayolaGold = &HFFE7C697~& '_RGB32(231,198,151)
    CONST CrayolaGoldenrod = &HFFFCD975~& '_RGB32(252,217,117)
    CONST CrayolaGray = &HFF95918C~& '_RGB32(149,145,140)
    CONST CrayolaGreen = &HFF1CAC78~& '_RGB32(28,172,120)
    CONST CrayolaGreenYellow = &HFFF0E891~& '_RGB32(240,232,145)
    CONST CrayolaIndigo = &HFF5D76CB~& '_RGB32(93,118,203)
    CONST CrayolaLavender = &HFFFCB4D5~& '_RGB32(252,180,213)
    CONST CrayolaMagenta = &HFFF664AF~& '_RGB32(246,100,175)
    CONST CrayolaMaroon = &HFFC8385A~& '_RGB32(200,56,90)
    CONST CrayolaMidnightBlue = &HFF1A4876~& '_RGB32(26,72,118)
    CONST CrayolaOrange = &HFFFF7538~& '_RGB32(255,117,56)
    CONST CrayolaOrangeRed = &HFFFF2B2B~& '_RGB32(255,43,43)
    CONST CrayolaOrchid = &HFFE6A8D7~& '_RGB32(230,168,215)
    CONST CrayolaPlum = &HFF8E4585~& '_RGB32(142,69,133)
    CONST CrayolaRed = &HFFEE204D~& '_RGB32(238,32,77)
    CONST CrayolaSalmon = &HFFFF9BAA~& '_RGB32(255,155,170)
    CONST CrayolaSeaGreen = &HFF9FE2BF~& '_RGB32(159,226,191)
    CONST CrayolaSilver = &HFFCDC5C2~& '_RGB32(205,197,194)
    CONST CrayolaSkyBlue = &HFF80DAEB~& '_RGB32(128,218,235)
    CONST CrayolaSpringGreen = &HFFECEABE~& '_RGB32(236,234,190)
    CONST CrayolaTann = &HFFFAA76C~& '_RGB32(250,167,108)
    CONST CrayolaThistle = &HFFEBC7DF~& '_RGB32(235,199,223)
    CONST CrayolaViolet = &HFF926EAE~& '_RGB32(146,110,174)
    CONST CrayolaYellow = &HFFFCE883~& '_RGB32(252,232,131)
    CONST CrayolaYellowGreen = &HFFC5E384~& '_RGB32(197,227,132)
    CONST Crimson = &HFFDC143C~& ' _RGB32(220,20,60)
    CONST Cyan = &HFF00FFFF~& ' _RGB32(0,255,255)
    CONST Dandelion = &HFFFDDB6D~& '_RGB32(253,219,109)
    CONST DarkBlue = &HFF00008B~& ' _RGB32(0,0,139)
    CONST DarkCyan = &HFF008B8B~& ' _RGB32(0,139,139)
    CONST DarkGoldenRod = &HFFB8860B~& ' _RGB32(184,134,11)
    CONST DarkGray = &HFFA9A9A9~& ' _RGB32(169,169,169)
    CONST DarkGreen = &HFF006400~& ' _RGB32(0,100,0)
    CONST DarkKhaki = &HFFBDB76B~& ' _RGB32(189,183,107)
    CONST DarkMagenta = &HFF8B008B~& ' _RGB32(139,0,139)
    CONST DarkOliveGreen = &HFF556B2F~& ' _RGB32(85,107,47)
    CONST DarkOrange = &HFFFF8C00~& ' _RGB32(255,140,0)
    CONST DarkOrchid = &HFF9932CC~& ' _RGB32(153,50,204)
    CONST DarkRed = &HFF8B0000~& ' _RGB32(139,0,0)
    CONST DarkSalmon = &HFFE9967A~& ' _RGB32(233,150,122)
    CONST DarkSeaGreen = &HFF8FBC8F~& ' _RGB32(143,188,143)
    CONST DarkSlateBlue = &HFF483D8B~& ' _RGB32(72,61,139)
    CONST DarkSlateGray = &HFF2F4F4F~& ' _RGB32(47,79,79)
    CONST DarkTurquoise = &HFF00CED1~& ' _RGB32(0,206,209)
    CONST DarkViolet = &HFF9400D3~& ' _RGB32(148,0,211)
    CONST DeepPink = &HFFFF1493~& ' _RGB32(255,20,147)
    CONST DeepSkyBlue = &HFF00BFFF~& ' _RGB32(0,191,255)
    CONST Denim = &HFF2B6CC4~& '_RGB32(43,108,196)
    CONST DesertSand = &HFFEFCDB8~& '_RGB32(239,205,184)
    CONST DimGray = &HFF696969~& ' _RGB32(105,105,105)
    CONST DodgerBlue = &HFF1E90FF~& ' _RGB32(30,144,255)
    CONST Eggplant = &HFF6E5160~& '_RGB32(110,81,96)
    CONST ElectricLime = &HFFCEFF1D~& '_RGB32(206,255,29)
    CONST Fern = &HFF71BC78~& '_RGB32(113,188,120)
    CONST FireBrick = &HFFB22222~& ' _RGB32(178,34,34)
    CONST Floralwhite = &HFFFFFAF0~& ' _RGB32(255,250,240)
    CONST ForestGreen = &HFF228B22~& ' _RGB32(34,139,34)
    CONST Fuchsia = &HFFC364C5~& '_RGB32(195,100,197)
    CONST FuzzyWuzzy = &HFFCC6666~& '_RGB32(204,102,102)
    CONST Gainsboro = &HFFDCDCDC~& ' _RGB32(220,220,220)
    CONST GhostWhite = &HFFF8F8FF~& ' _RGB32(248,248,255)
    CONST Gold = &HFFFFD700~& ' _RGB32(255,215,0)
    CONST GoldenRod = &HFFDAA520~& ' _RGB32(218,165,32)
    CONST GrannySmithApple = &HFFA8E4A0~& '_RGB32(168,228,160)
    CONST Gray = &HFF808080~& ' _RGB32(128,128,128)
    CONST Green = &HFF008000~& ' _RGB32(0,128,0)
    CONST GreenBlue = &HFF1164B4~& '_RGB32(17,100,180)
    CONST GreenYellow = &HFFADFF2F~& ' _RGB32(173,255,47)
    CONST HoneyDew = &HFFF0FFF0~& ' _RGB32(240,255,240)
    CONST HotMagenta = &HFFFF1DCE~& '_RGB32(255,29,206)
    CONST HotPink = &HFFFF69B4~& ' _RGB32(255,105,180)
    CONST Inchworm = &HFFB2EC5D~& '_RGB32(178,236,93)
    CONST IndianRed = &HFFCD5C5C~& ' _RGB32(205,92,92)
    CONST Indigo = &HFF4B0082~& ' _RGB32(75,0,130)
    CONST Ivory = &HFFFFFFF0~& ' _RGB32(255,255,240)
    CONST JazzberryJam = &HFFCA3767~& '_RGB32(202,55,103)
    CONST JungleGreen = &HFF3BB08F~& '_RGB32(59,176,143)
    CONST Khaki = &HFFF0E68C~& ' _RGB32(240,230,140)
    CONST LaserLemon = &HFFFEFE22~& '_RGB32(254,254,34)
    CONST Lavender = &HFFE6E6FA~& ' _RGB32(230,230,250)
    CONST LavenderBlush = &HFFFFF0F5~& ' _RGB32(255,240,245)
    CONST LawnGreen = &HFF7CFC00~& ' _RGB32(124,252,0)
    CONST LemonChiffon = &HFFFFFACD~& ' _RGB32(255,250,205)
    CONST LemonYellow = &HFFFFF44F~& '_RGB32(255,244,79)
    CONST LightBlue = &HFFADD8E6~& ' _RGB32(173,216,230)
    CONST LightCoral = &HFFF08080~& ' _RGB32(240,128,128)
    CONST LightCyan = &HFFE0FFFF~& ' _RGB32(224,255,255)
    CONST LightGoldenRodYellow = &HFFFAFAD2~& ' _RGB32(250,250,210)
    CONST LightGray = &HFFD3D3D3~& ' _RGB32(211,211,211)
    CONST LightGreen = &HFF90EE90~& ' _RGB32(144,238,144)
    CONST LightPink = &HFFFFB6C1~& ' _RGB32(255,182,193)
    CONST LightSalmon = &HFFFFA07A~& ' _RGB32(255,160,122)
    CONST LightSeaGreen = &HFF20B2AA~& ' _RGB32(32,178,170)
    CONST LightSkyBlue = &HFF87CEFA~& ' _RGB32(135,206,250)
    CONST LightSlateGray = &HFF778899~& ' _RGB32(119,136,153)
    CONST LightSteelBlue = &HFFB0C4DE~& ' _RGB32(176,196,222)
    CONST LightYellow = &HFFFFFFE0~& ' _RGB32(255,255,224)
    CONST Lime = &HFF00FF00~& ' _RGB32(0,255,0)
    CONST LimeGreen = &HFF32CD32~& ' _RGB32(50,205,50)
    CONST Linen = &HFFFAF0E6~& ' _RGB32(250,240,230)
    CONST MacaroniAndCheese = &HFFFFBD88~& '_RGB32(255,189,136)
    CONST Magenta = &HFFFF00FF~& ' _RGB32(255,0,255)
    CONST MagicMint = &HFFAAF0D1~& '_RGB32(170,240,209)
    CONST Mahogany = &HFFCD4A4C~& '_RGB32(205,74,76)
    CONST Maize = &HFFEDD19C~& '_RGB32(237,209,156)
    CONST Manatee = &HFF979AAA~& '_RGB32(151,154,170)
    CONST MangoTango = &HFFFF8243~& '_RGB32(255,130,67)
    CONST Maroon = &HFF800000~& ' _RGB32(128,0,0)
    CONST Mauvelous = &HFFEF98AA~& '_RGB32(239,152,170)
    CONST MediumAquamarine = &HFF66CDAA~& ' _RGB32(102,205,170)
    CONST MediumBlue = &HFF0000CD~& ' _RGB32(0,0,205)
    CONST MediumOrchid = &HFFBA55D3~& ' _RGB32(186,85,211)
    CONST MediumPurple = &HFF9370DB~& ' _RGB32(147,112,219)
    CONST MediumSeaGreen = &HFF3CB371~& ' _RGB32(60,179,113)
    CONST MediumSlateBlue = &HFF7B68EE~& ' _RGB32(123,104,238)
    CONST MediumSpringGreen = &HFF00FA9A~& ' _RGB32(0,250,154)
    CONST MediumTurquoise = &HFF48D1CC~& ' _RGB32(72,209,204)
    CONST MediumVioletRed = &HFFC71585~& ' _RGB32(199,21,133)
    CONST Melon = &HFFFDBCB4~& '_RGB32(253,188,180)
    CONST MidnightBlue = &HFF191970~& ' _RGB32(25,25,112)
    CONST MintCream = &HFFF5FFFA~& ' _RGB32(245,255,250)
    CONST MistyRose = &HFFFFE4E1~& ' _RGB32(255,228,225)
    CONST Moccasin = &HFFFFE4B5~& ' _RGB32(255,228,181)
    CONST MountainMeadow = &HFF30BA8F~& '_RGB32(48,186,143)
    CONST Mulberry = &HFFC54B8C~& '_RGB32(197,75,140)
    CONST NavajoWhite = &HFFFFDEAD~& ' _RGB32(255,222,173)
    CONST Navy = &HFF000080~& ' _RGB32(0,0,128)
    CONST NavyBlue = &HFF1974D2~& '_RGB32(25,116,210)
    CONST NeonCarrot = &HFFFFA343~& '_RGB32(255,163,67)
    CONST OldLace = &HFFFDF5E6~& ' _RGB32(253,245,230)
    CONST Olive = &HFF808000~& ' _RGB32(128,128,0)
    CONST OliveDrab = &HFF6B8E23~& ' _RGB32(107,142,35)
    CONST OliveGreen = &HFFBAB86C~& '_RGB32(186,184,108)
    CONST Orange = &HFFFFA500~& ' _RGB32(255,165,0)
    CONST OrangeRed = &HFFFF4500~& ' _RGB32(255,69,0)
    CONST OrangeYellow = &HFFF8D568~& '_RGB32(248,213,104)
    CONST Orchid = &HFFDA70D6~& ' _RGB32(218,112,214)
    CONST OuterSpace = &HFF414A4C~& '_RGB32(65,74,76)
    CONST OutrageousOrange = &HFFFF6E4A~& '_RGB32(255,110,74)
    CONST PacificBlue = &HFF1CA9C9~& '_RGB32(28,169,201)
    CONST PaleGoldenRod = &HFFEEE8AA~& ' _RGB32(238,232,170)
    CONST PaleGreen = &HFF98FB98~& ' _RGB32(152,251,152)
    CONST PaleTurquoise = &HFFAFEEEE~& ' _RGB32(175,238,238)
    CONST PaleVioletRed = &HFFDB7093~& ' _RGB32(219,112,147)
    CONST PapayaWhip = &HFFFFEFD5~& ' _RGB32(255,239,213)
    CONST Peach = &HFFFFCFAB~& '_RGB32(255,207,171)
    CONST PeachPuff = &HFFFFDAB9~& ' _RGB32(255,218,185)
    CONST Periwinkle = &HFFC5D0E6~& '_RGB32(197,208,230)
    CONST Peru = &HFFCD853F~& ' _RGB32(205,133,63)
    CONST PiggyPink = &HFFFDDDE6~& '_RGB32(253,221,230)
    CONST PineGreen = &HFF158078~& '_RGB32(21,128,120)
    CONST Pink = &HFFFFC0CB~& ' _RGB32(255,192,203)
    CONST PinkFlamingo = &HFFFC74FD~& '_RGB32(252,116,253)
    CONST PinkSherbet = &HFFF78FA7~& '_RGB32(247,143,167)
    CONST Plum = &HFFDDA0DD~& ' _RGB32(221,160,221)
    CONST PowderBlue = &HFFB0E0E6~& ' _RGB32(176,224,230)
    CONST Purple = &HFF800080~& ' _RGB32(128,0,128)
    CONST PurpleHeart = &HFF7442C8~& '_RGB32(116,66,200)
    CONST PurpleMountainsMajesty = &HFF9D81BA~& '_RGB32(157,129,186)
    CONST PurplePizzazz = &HFFFE4EDA~& '_RGB32(254,78,218)
    CONST RadicalRed = &HFFFF496C~& '_RGB32(255,73,108)
    CONST RawSienna = &HFFD68A59~& '_RGB32(214,138,89)
    CONST RawUmber = &HFF714B23~& '_RGB32(113,75,35)
    CONST RazzleDazzleRose = &HFFFF48D0~& '_RGB32(255,72,208)
    CONST Razzmatazz = &HFFE3256B~& '_RGB32(227,37,107)
    CONST Red = &HFFFF0000~& ' _RGB32(255,0,0)
    CONST RedOrange = &HFFFF5349~& '_RGB32(255,83,73)
    CONST RedViolet = &HFFC0448F~& '_RGB32(192,68,143)
    CONST RobinsEggBlue = &HFF1FCECB~& '_RGB32(31,206,203)
    CONST RosyBrown = &HFFBC8F8F~& ' _RGB32(188,143,143)
    CONST RoyalBlue = &HFF4169E1~& ' _RGB32(65,105,225)
    CONST RoyalPurple = &HFF7851A9~& '_RGB32(120,81,169)
    CONST SaddleBrown = &HFF8B4513~& ' _RGB32(139,69,19)
    CONST Salmon = &HFFFA8072~& ' _RGB32(250,128,114)
    CONST SandyBrown = &HFFF4A460~& ' _RGB32(244,164,96)
    CONST Scarlet = &HFFFC2847~& '_RGB32(252,40,71)
    CONST ScreaminGreen = &HFF76FF7A~& '_RGB32(118,255,122)
    CONST SeaGreen = &HFF2E8B57~& ' _RGB32(46,139,87)
    CONST SeaShell = &HFFFFF5EE~& ' _RGB32(255,245,238)
    CONST Sepia = &HFFA5694F~& '_RGB32(165,105,79)
    CONST Shadow = &HFF8A795D~& '_RGB32(138,121,93)
    CONST Shamrock = &HFF45CEA2~& '_RGB32(69,206,162)
    CONST ShockingPink = &HFFFB7EFD~& '_RGB32(251,126,253)
    CONST Sienna = &HFFA0522D~& ' _RGB32(160,82,45)
    CONST Silver = &HFFC0C0C0~& ' _RGB32(192,192,192)
    CONST SkyBlue = &HFF87CEEB~& ' _RGB32(135,206,235)
    CONST SlateBlue = &HFF6A5ACD~& ' _RGB32(106,90,205)
    CONST SlateGray = &HFF708090~& ' _RGB32(112,128,144)
    CONST Snow = &HFFFFFAFA~& ' _RGB32(255,250,250)
    CONST SpringGreen = &HFF00FF7F~& ' _RGB32(0,255,127)
    CONST SteelBlue = &HFF4682B4~& ' _RGB32(70,130,180)
    CONST Sunglow = &HFFFFCF48~& '_RGB32(255,207,72)
    CONST SunsetOrange = &HFFFD5E53~& '_RGB32(253,94,83)
    CONST Tann = &HFFD2B48C~& ' _RGB32(210,180,140)
    CONST Teal = &HFF008080~& ' _RGB32(0,128,128)
    CONST TealBlue = &HFF18A7B5~& '_RGB32(24,167,181)
    CONST Thistle = &HFFD8BFD8~& ' _RGB32(216,191,216)
    CONST TickleMePink = &HFFFC89AC~& '_RGB32(252,137,172)
    CONST Timberwolf = &HFFDBD7D2~& '_RGB32(219,215,210)
    CONST Tomato = &HFFFF6347~& ' _RGB32(255,99,71)
    CONST TropicalRainForest = &HFF17806D~& '_RGB32(23,128,109)
    CONST Tumbleweed = &HFFDEAA88~& '_RGB32(222,170,136)
    CONST Turquoise = &HFF40E0D0~& ' _RGB32(64,224,208)
    CONST TurquoiseBlue = &HFF77DDE7~& '_RGB32(119,221,231)
    CONST UnmellowYellow = &HFFFFFF66~& '_RGB32(255,255,102)
    CONST Violet = &HFFEE82EE~& ' _RGB32(238,130,238)
    CONST VioletBlue = &HFF324AB2~& '_RGB32(50,74,178)
    CONST VioletRed = &HFFF75394~& '_RGB32(247,83,148)
    CONST VividTangerine = &HFFFFA089~& '_RGB32(255,160,137)
    CONST VividViolet = &HFF8F509D~& '_RGB32(143,80,157)
    CONST Wheat = &HFFF5DEB3~& ' _RGB32(245,222,179)
    CONST White = &HFFFFFFFF~& ' _RGB32(255,255,255)
    CONST Whitesmoke = &HFFF5F5F5~& ' _RGB32(245,245,245)
    CONST WildBlueYonder = &HFFA2ADD0~& '_RGB32(162,173,208)
    CONST WildStrawberry = &HFFFF43A4~& '_RGB32(255,67,164)
    CONST WildWatermelon = &HFFFC6C85~& '_RGB32(252,108,133)
    CONST Wisteria = &HFFCDA4DE~& '_RGB32(205,164,222)
    CONST Yellow = &HFFFFFF00~& ' _RGB32(255,255,0)
    CONST YellowGreen = &HFF9ACD32~& ' _RGB32(154,205,50)
    CONST YellowOrange = &HFFFFAE42~& '_RGB32(255,174,66)
$END IF
 
$IF COLOR = 0 THEN
    CONST Black = 0~%%
    CONST Blue = 1~%%
    CONST Green = 2~%%
    CONST Cyan = 3~%%
    CONST Red = 4~%%
    CONST Magenta = 5~%%
    CONST Brown = 6~%%
    CONST White = 7~%%
    CONST Gray = 8~%%
    CONST LightBlue = 9~%%
    CONST LightGreen = 10~%%
    CONST LightCyan = 11~%%
    CONST LightRed = 12~%%
    CONST LightMagenta = 13~%%
    CONST Yellow = 14~%%
    CONST BrightWhite = 15~%%
    CONST Blink = 16~%%
$END IF
 
$IF COLOR = 256 THEN
    CONST Black = 0~%%
    CONST Blue = 1~%%
    CONST Green = 2~%%
    CONST Cyan = 3~%%
    CONST Red = 4~%%
    CONST Magenta = 5~%%
    CONST Brown = 6~%%
    CONST White = 7~%%
    CONST Gray = 8~%%
    CONST LightBlue = 9~%%
    CONST LightGreen = 10~%%
    CONST LightCyan = 11~%%
    CONST LightRed = 12~%%
    CONST LightMagenta = 13~%%
    CONST Yellow = 14~%%
    CONST BrightWhite = 15~%%
    _PALETTECOLOR 16, _RGBA32(240, 248, 255, 255): CONST AliceBlue = 16~%%
    _PALETTECOLOR 17, _RGBA32(239, 222, 205, 255): CONST Almond = 17~%%
    _PALETTECOLOR 18, _RGBA32(205, 149, 117, 255): CONST AntiqueBrass = 18~%%
    _PALETTECOLOR 19, _RGBA32(250, 235, 215, 255): CONST AntiqueWhite = 19~%%
    _PALETTECOLOR 20, _RGBA32(253, 217, 181, 255): CONST Apricot = 20~%%
    _PALETTECOLOR 21, _RGBA32(0, 255, 255, 255): CONST Aqua = 21~%%
    _PALETTECOLOR 22, _RGBA32(127, 255, 212, 255): CONST Aquamarine = 22~%%
    _PALETTECOLOR 23, _RGBA32(135, 169, 107, 255): CONST Asparagus = 23~%%
    _PALETTECOLOR 24, _RGBA32(255, 164, 116, 255): CONST AtomicTangerine = 24~%%
    _PALETTECOLOR 25, _RGBA32(240, 255, 255, 255): CONST Azure = 25~%%
    _PALETTECOLOR 26, _RGBA32(250, 231, 181, 255): CONST BananaMania = 26~%%
    _PALETTECOLOR 27, _RGBA32(159, 129, 112, 255): CONST Beaver = 27~%%
    _PALETTECOLOR 28, _RGBA32(245, 245, 220, 255): CONST Beige = 28~%%
    _PALETTECOLOR 29, _RGBA32(255, 228, 196, 255): CONST Bisque = 29~%%
    _PALETTECOLOR 30, _RGBA32(253, 124, 110, 255): CONST Bittersweet = 30~%%
    _PALETTECOLOR 31, _RGBA32(255, 235, 205, 255): CONST BlanchedAlmond = 31~%%
    _PALETTECOLOR 32, _RGBA32(172, 229, 238, 255): CONST BlizzardBlue = 32~%%
    _PALETTECOLOR 33, _RGBA32(162, 162, 208, 255): CONST BlueBell = 33~%%
    _PALETTECOLOR 34, _RGBA32(102, 153, 204, 255): CONST BlueGray = 34~%%
    _PALETTECOLOR 35, _RGBA32(13, 152, 186, 255): CONST BlueGreen = 35~%%
    _PALETTECOLOR 36, _RGBA32(138, 43, 226, 255): CONST BlueViolet = 36~%%
    _PALETTECOLOR 37, _RGBA32(222, 93, 131, 255): CONST Blush = 37~%%
    _PALETTECOLOR 38, _RGBA32(203, 65, 84, 255): CONST BrickRed = 38~%%
    _PALETTECOLOR 39, _RGBA32(222, 184, 135, 255): CONST BurlyWood = 39~%%
    _PALETTECOLOR 40, _RGBA32(255, 127, 73, 255): CONST BurntOrange = 40~%%
    _PALETTECOLOR 41, _RGBA32(234, 126, 93, 255): CONST BurntSienna = 41~%%
    _PALETTECOLOR 42, _RGBA32(95, 158, 160, 255): CONST CadetBlue = 42~%%
    _PALETTECOLOR 43, _RGBA32(255, 255, 153, 255): CONST Canary = 43~%%
    _PALETTECOLOR 44, _RGBA32(28, 211, 162, 255): CONST CaribbeanGreen = 44~%%
    _PALETTECOLOR 45, _RGBA32(255, 170, 204, 255): CONST CarnationPink = 45~%%
    _PALETTECOLOR 46, _RGBA32(221, 68, 146, 255): CONST Cerise = 46~%%
    _PALETTECOLOR 47, _RGBA32(29, 172, 214, 255): CONST Cerulean = 47~%%
    _PALETTECOLOR 48, _RGBA32(127, 255, 0, 255): CONST ChartReuse = 48~%%
    _PALETTECOLOR 49, _RGBA32(188, 93, 88, 255): CONST Chestnut = 49~%%
    _PALETTECOLOR 50, _RGBA32(210, 105, 30, 255): CONST Chocolate = 50~%%
    _PALETTECOLOR 51, _RGBA32(221, 148, 117, 255): CONST Copper = 51~%%
    _PALETTECOLOR 52, _RGBA32(255, 127, 80, 255): CONST Coral = 52~%%
    _PALETTECOLOR 53, _RGBA32(154, 206, 235, 255): CONST Cornflower = 53~%%
    _PALETTECOLOR 54, _RGBA32(100, 149, 237, 255): CONST CornflowerBlue = 54~%%
    _PALETTECOLOR 55, _RGBA32(255, 248, 220, 255): CONST Cornsilk = 55~%%
    _PALETTECOLOR 56, _RGBA32(255, 188, 217, 255): CONST CottonCandy = 56~%%
    _PALETTECOLOR 57, _RGBA32(220, 20, 60, 255): CONST Crimson = 57~%%
    _PALETTECOLOR 58, _RGBA32(253, 219, 109, 255): CONST Dandelion = 58~%%
    _PALETTECOLOR 59, _RGBA32(0, 0, 139, 255): CONST DarkBlue = 59~%%
    _PALETTECOLOR 60, _RGBA32(0, 139, 139, 255): CONST DarkCyan = 60~%%
    _PALETTECOLOR 61, _RGBA32(184, 134, 11, 255): CONST DarkGoldenRod = 61~%%
    _PALETTECOLOR 62, _RGBA32(169, 169, 169, 255): CONST DarkGray = 62~%%
    _PALETTECOLOR 63, _RGBA32(0, 100, 0, 255): CONST DarkGreen = 63~%%
    _PALETTECOLOR 64, _RGBA32(189, 183, 107, 255): CONST DarkKhaki = 64~%%
    _PALETTECOLOR 65, _RGBA32(139, 0, 139, 255): CONST DarkMagenta = 65~%%
    _PALETTECOLOR 66, _RGBA32(85, 107, 47, 255): CONST DarkOliveGreen = 66~%%
    _PALETTECOLOR 67, _RGBA32(255, 140, 0, 255): CONST DarkOrange = 67~%%
    _PALETTECOLOR 68, _RGBA32(153, 50, 204, 255): CONST DarkOrchid = 68~%%
    _PALETTECOLOR 69, _RGBA32(139, 0, 0, 255): CONST DarkRed = 69~%%
    _PALETTECOLOR 70, _RGBA32(233, 150, 122, 255): CONST DarkSalmon = 70~%%
    _PALETTECOLOR 71, _RGBA32(143, 188, 143, 255): CONST DarkSeaGreen = 71~%%
    _PALETTECOLOR 72, _RGBA32(72, 61, 139, 255): CONST DarkSlateBlue = 72~%%
    _PALETTECOLOR 73, _RGBA32(47, 79, 79, 255): CONST DarkSlateGray = 73~%%
    _PALETTECOLOR 74, _RGBA32(0, 206, 209, 255): CONST DarkTurquoise = 74~%%
    _PALETTECOLOR 75, _RGBA32(148, 0, 211, 255): CONST DarkViolet = 75~%%
    _PALETTECOLOR 76, _RGBA32(255, 20, 147, 255): CONST DeepPink = 76~%%
    _PALETTECOLOR 77, _RGBA32(0, 191, 255, 255): CONST DeepSkyBlue = 77~%%
    _PALETTECOLOR 78, _RGBA32(43, 108, 196, 255): CONST Denim = 78~%%
    _PALETTECOLOR 79, _RGBA32(239, 205, 184, 255): CONST DesertSand = 79~%%
    _PALETTECOLOR 80, _RGBA32(105, 105, 105, 255): CONST DimGray = 80~%%
    _PALETTECOLOR 81, _RGBA32(30, 144, 255, 255): CONST DodgerBlue = 81~%%
    _PALETTECOLOR 82, _RGBA32(110, 81, 96, 255): CONST Eggplant = 82~%%
    _PALETTECOLOR 83, _RGBA32(206, 255, 29, 255): CONST ElectricLime = 83~%%
    _PALETTECOLOR 84, _RGBA32(113, 188, 120, 255): CONST Fern = 84~%%
    _PALETTECOLOR 85, _RGBA32(178, 34, 34, 255): CONST FireBrick = 85~%%
    _PALETTECOLOR 86, _RGBA32(255, 250, 240, 255): CONST Floralwhite = 86~%%
    _PALETTECOLOR 87, _RGBA32(34, 139, 34, 255): CONST ForestGreen = 87~%%
    _PALETTECOLOR 88, _RGBA32(195, 100, 197, 255): CONST Fuchsia = 88~%%
    _PALETTECOLOR 89, _RGBA32(204, 102, 102, 255): CONST FuzzyWuzzy = 89~%%
    _PALETTECOLOR 90, _RGBA32(220, 220, 220, 255): CONST Gainsboro = 90~%%
    _PALETTECOLOR 91, _RGBA32(248, 248, 255, 255): CONST GhostWhite = 91~%%
    _PALETTECOLOR 92, _RGBA32(255, 215, 0, 255): CONST Gold = 92~%%
    _PALETTECOLOR 93, _RGBA32(218, 165, 32, 255): CONST GoldenRod = 93~%%
    _PALETTECOLOR 94, _RGBA32(168, 228, 160, 255): CONST GrannySmithApple = 94~%%
    _PALETTECOLOR 95, _RGBA32(17, 100, 180, 255): CONST GreenBlue = 95~%%
    _PALETTECOLOR 96, _RGBA32(173, 255, 47, 255): CONST GreenYellow = 96~%%
    _PALETTECOLOR 97, _RGBA32(240, 255, 240, 255): CONST HoneyDew = 97~%%
    _PALETTECOLOR 98, _RGBA32(255, 29, 206, 255): CONST HotMagenta = 98~%%
    _PALETTECOLOR 99, _RGBA32(255, 105, 180, 255): CONST HotPink = 99~%%
    _PALETTECOLOR 100, _RGBA32(178, 236, 93, 255): CONST Inchworm = 100~%%
    _PALETTECOLOR 101, _RGBA32(205, 92, 92, 255): CONST IndianRed = 101~%%
    _PALETTECOLOR 102, _RGBA32(75, 0, 130, 255): CONST Indigo = 102~%%
    _PALETTECOLOR 103, _RGBA32(255, 255, 240, 255): CONST Ivory = 103~%%
    _PALETTECOLOR 104, _RGBA32(202, 55, 103, 255): CONST JazzberryJam = 104~%%
    _PALETTECOLOR 105, _RGBA32(59, 176, 143, 255): CONST JungleGreen = 105~%%
    _PALETTECOLOR 106, _RGBA32(240, 230, 140, 255): CONST Khaki = 106~%%
    _PALETTECOLOR 107, _RGBA32(254, 254, 34, 255): CONST LaserLemon = 107~%%
    _PALETTECOLOR 108, _RGBA32(230, 230, 250, 255): CONST Lavender = 108~%%
    _PALETTECOLOR 109, _RGBA32(255, 240, 245, 255): CONST LavenderBlush = 109~%%
    _PALETTECOLOR 110, _RGBA32(124, 252, 0, 255): CONST LawnGreen = 110~%%
    _PALETTECOLOR 111, _RGBA32(255, 250, 205, 255): CONST LemonChiffon = 111~%%
    _PALETTECOLOR 112, _RGBA32(255, 244, 79, 255): CONST LemonYellow = 112~%%
    _PALETTECOLOR 113, _RGBA32(240, 128, 128, 255): CONST LightCoral = 113~%%
    _PALETTECOLOR 114, _RGBA32(250, 250, 210, 255): CONST LightGoldenRodYellow = 114~%%
    _PALETTECOLOR 115, _RGBA32(211, 211, 211, 255): CONST LightGray = 115~%%
    _PALETTECOLOR 116, _RGBA32(144, 238, 144, 255): CONST LightGreen2 = 116~%%
    _PALETTECOLOR 117, _RGBA32(255, 182, 193, 255): CONST LightPink = 117~%%
    _PALETTECOLOR 118, _RGBA32(255, 160, 122, 255): CONST LightSalmon = 118~%%
    _PALETTECOLOR 119, _RGBA32(32, 178, 170, 255): CONST LightSeaGreen = 119~%%
    _PALETTECOLOR 120, _RGBA32(135, 206, 250, 255): CONST LightSkyBlue = 120~%%
    _PALETTECOLOR 121, _RGBA32(119, 136, 153, 255): CONST LightSlateGray = 121~%%
    _PALETTECOLOR 122, _RGBA32(176, 196, 222, 255): CONST LightSteelBlue = 122~%%
    _PALETTECOLOR 123, _RGBA32(255, 255, 224, 255): CONST LightYellow = 123~%%
    _PALETTECOLOR 124, _RGBA32(0, 255, 0, 255): CONST Lime = 124~%%
    _PALETTECOLOR 125, _RGBA32(50, 205, 50, 255): CONST LimeGreen = 125~%%
    _PALETTECOLOR 126, _RGBA32(250, 240, 230, 255): CONST Linen = 126~%%
    _PALETTECOLOR 127, _RGBA32(255, 189, 136, 255): CONST MacaroniAndCheese = 127~%%
    _PALETTECOLOR 128, _RGBA32(170, 240, 209, 255): CONST MagicMint = 128~%%
    _PALETTECOLOR 129, _RGBA32(205, 74, 76, 255): CONST Mahogany = 129~%%
    _PALETTECOLOR 130, _RGBA32(237, 209, 156, 255): CONST Maize = 130~%%
    _PALETTECOLOR 131, _RGBA32(151, 154, 170, 255): CONST Manatee = 131~%%
    _PALETTECOLOR 132, _RGBA32(255, 130, 67, 255): CONST MangoTango = 132~%%
    _PALETTECOLOR 133, _RGBA32(128, 0, 0, 255): CONST Maroon = 133~%%
    _PALETTECOLOR 134, _RGBA32(239, 152, 170, 255): CONST Mauvelous = 134~%%
    _PALETTECOLOR 135, _RGBA32(102, 205, 170, 255): CONST MediumAquamarine = 135~%%
    _PALETTECOLOR 136, _RGBA32(0, 0, 205, 255): CONST MediumBlue = 136~%%
    _PALETTECOLOR 137, _RGBA32(186, 85, 211, 255): CONST MediumOrchid = 137~%%
    _PALETTECOLOR 138, _RGBA32(147, 112, 219, 255): CONST MediumPurple = 138~%%
    _PALETTECOLOR 139, _RGBA32(60, 179, 113, 255): CONST MediumSeaGreen = 139~%%
    _PALETTECOLOR 140, _RGBA32(123, 104, 238, 255): CONST MediumSlateBlue = 140~%%
    _PALETTECOLOR 141, _RGBA32(0, 250, 154, 255): CONST MediumSpringGreen = 141~%%
    _PALETTECOLOR 142, _RGBA32(72, 209, 204, 255): CONST MediumTurquoise = 142~%%
    _PALETTECOLOR 143, _RGBA32(199, 21, 133, 255): CONST MediumVioletRed = 143~%%
    _PALETTECOLOR 144, _RGBA32(253, 188, 180, 255): CONST Melon = 144~%%
    _PALETTECOLOR 145, _RGBA32(25, 25, 112, 255): CONST MidnightBlue = 145~%%
    _PALETTECOLOR 146, _RGBA32(245, 255, 250, 255): CONST MintCream = 146~%%
    _PALETTECOLOR 147, _RGBA32(255, 228, 225, 255): CONST MistyRose = 147~%%
    _PALETTECOLOR 148, _RGBA32(255, 228, 181, 255): CONST Moccasin = 148~%%
    _PALETTECOLOR 149, _RGBA32(48, 186, 143, 255): CONST MountainMeadow = 149~%%
    _PALETTECOLOR 150, _RGBA32(197, 75, 140, 255): CONST Mulberry = 150~%%
    _PALETTECOLOR 151, _RGBA32(255, 222, 173, 255): CONST NavajoWhite = 151~%%
    _PALETTECOLOR 152, _RGBA32(0, 0, 128, 255): CONST Navy = 152~%%
    _PALETTECOLOR 153, _RGBA32(25, 116, 210, 255): CONST NavyBlue = 153~%%
    _PALETTECOLOR 154, _RGBA32(255, 163, 67, 255): CONST NeonCarrot = 154~%%
    _PALETTECOLOR 155, _RGBA32(253, 245, 230, 255): CONST OldLace = 155~%%
    _PALETTECOLOR 156, _RGBA32(128, 128, 0, 255): CONST Olive = 156~%%
    _PALETTECOLOR 157, _RGBA32(107, 142, 35, 255): CONST OliveDrab = 157~%%
    _PALETTECOLOR 158, _RGBA32(186, 184, 108, 255): CONST OliveGreen = 158~%%
    _PALETTECOLOR 159, _RGBA32(255, 165, 0, 255): CONST Orange = 159~%%
    _PALETTECOLOR 160, _RGBA32(255, 69, 0, 255): CONST OrangeRed = 160~%%
    _PALETTECOLOR 161, _RGBA32(248, 213, 104, 255): CONST OrangeYellow = 161~%%
    _PALETTECOLOR 162, _RGBA32(218, 112, 214, 255): CONST Orchid = 162~%%
    _PALETTECOLOR 163, _RGBA32(65, 74, 76, 255): CONST OuterSpace = 163~%%
    _PALETTECOLOR 164, _RGBA32(255, 110, 74, 255): CONST OutrageousOrange = 164~%%
    _PALETTECOLOR 165, _RGBA32(28, 169, 201, 255): CONST PacificBlue = 165~%%
    _PALETTECOLOR 166, _RGBA32(238, 232, 170, 255): CONST PaleGoldenRod = 166~%%
    _PALETTECOLOR 167, _RGBA32(152, 251, 152, 255): CONST PaleGreen = 167~%%
    _PALETTECOLOR 168, _RGBA32(175, 238, 238, 255): CONST PaleTurquoise = 168~%%
    _PALETTECOLOR 169, _RGBA32(219, 112, 147, 255): CONST PaleVioletRed = 169~%%
    _PALETTECOLOR 170, _RGBA32(255, 239, 213, 255): CONST PapayaWhip = 170~%%
    _PALETTECOLOR 171, _RGBA32(255, 207, 171, 255): CONST Peach = 171~%%
    _PALETTECOLOR 172, _RGBA32(255, 218, 185, 255): CONST PeachPuff = 172~%%
    _PALETTECOLOR 173, _RGBA32(197, 208, 230, 255): CONST Periwinkle = 173~%%
    _PALETTECOLOR 174, _RGBA32(205, 133, 63, 255): CONST Peru = 174~%%
    _PALETTECOLOR 175, _RGBA32(253, 221, 230, 255): CONST PiggyPink = 175~%%
    _PALETTECOLOR 176, _RGBA32(21, 128, 120, 255): CONST PineGreen = 176~%%
    _PALETTECOLOR 177, _RGBA32(255, 192, 203, 255): CONST Pink = 177~%%
    _PALETTECOLOR 178, _RGBA32(252, 116, 253, 255): CONST PinkFlamingo = 178~%%
    _PALETTECOLOR 179, _RGBA32(247, 143, 167, 255): CONST PinkSherbet = 179~%%
    _PALETTECOLOR 180, _RGBA32(221, 160, 221, 255): CONST Plum = 180~%%
    _PALETTECOLOR 181, _RGBA32(176, 224, 230, 255): CONST PowderBlue = 181~%%
    _PALETTECOLOR 182, _RGBA32(128, 0, 128, 255): CONST Purple = 182~%%
    _PALETTECOLOR 183, _RGBA32(116, 66, 200, 255): CONST PurpleHeart = 183~%%
    _PALETTECOLOR 184, _RGBA32(157, 129, 186, 255): CONST PurpleMountainsMajesty = 184~%%
    _PALETTECOLOR 185, _RGBA32(254, 78, 218, 255): CONST PurplePizzazz = 185~%%
    _PALETTECOLOR 186, _RGBA32(255, 73, 108, 255): CONST RadicalRed = 186~%%
    _PALETTECOLOR 187, _RGBA32(214, 138, 89, 255): CONST RawSienna = 187~%%
    _PALETTECOLOR 188, _RGBA32(113, 75, 35, 255): CONST RawUmber = 188~%%
    _PALETTECOLOR 189, _RGBA32(255, 72, 208, 255): CONST RazzleDazzleRose = 189~%%
    _PALETTECOLOR 190, _RGBA32(227, 37, 107, 255): CONST Razzmatazz = 190~%%
    _PALETTECOLOR 191, _RGBA32(255, 83, 73, 255): CONST RedOrange = 191~%%
    _PALETTECOLOR 192, _RGBA32(192, 68, 143, 255): CONST RedViolet = 192~%%
    _PALETTECOLOR 193, _RGBA32(31, 206, 203, 255): CONST RobinsEggBlue = 193~%%
    _PALETTECOLOR 194, _RGBA32(188, 143, 143, 255): CONST RosyBrown = 194~%%
    _PALETTECOLOR 195, _RGBA32(65, 105, 225, 255): CONST RoyalBlue = 195~%%
    _PALETTECOLOR 196, _RGBA32(120, 81, 169, 255): CONST RoyalPurple = 196~%%
    _PALETTECOLOR 197, _RGBA32(139, 69, 19, 255): CONST SaddleBrown = 197~%%
    _PALETTECOLOR 198, _RGBA32(250, 128, 114, 255): CONST Salmon = 198~%%
    _PALETTECOLOR 199, _RGBA32(244, 164, 96, 255): CONST SandyBrown = 199~%%
    _PALETTECOLOR 200, _RGBA32(252, 40, 71, 255): CONST Scarlet = 200~%%
    _PALETTECOLOR 201, _RGBA32(118, 255, 122, 255): CONST ScreaminGreen = 201~%%
    _PALETTECOLOR 202, _RGBA32(46, 139, 87, 255): CONST SeaGreen = 202~%%
    _PALETTECOLOR 203, _RGBA32(255, 245, 238, 255): CONST SeaShell = 203~%%
    _PALETTECOLOR 204, _RGBA32(165, 105, 79, 255): CONST Sepia = 204~%%
    _PALETTECOLOR 205, _RGBA32(138, 121, 93, 255): CONST Shadow = 205~%%
    _PALETTECOLOR 206, _RGBA32(69, 206, 162, 255): CONST Shamrock = 206~%%
    _PALETTECOLOR 207, _RGBA32(251, 126, 253, 255): CONST ShockingPink = 207~%%
    _PALETTECOLOR 208, _RGBA32(160, 82, 45, 255): CONST Sienna = 208~%%
    _PALETTECOLOR 209, _RGBA32(192, 192, 192, 255): CONST Silver = 209~%%
    _PALETTECOLOR 210, _RGBA32(135, 206, 235, 255): CONST SkyBlue = 210~%%
    _PALETTECOLOR 211, _RGBA32(106, 90, 205, 255): CONST SlateBlue = 211~%%
    _PALETTECOLOR 212, _RGBA32(112, 128, 144, 255): CONST SlateGray = 212~%%
    _PALETTECOLOR 213, _RGBA32(255, 250, 250, 255): CONST Snow = 213~%%
    _PALETTECOLOR 214, _RGBA32(0, 255, 127, 255): CONST SpringGreen = 214~%%
    _PALETTECOLOR 215, _RGBA32(70, 130, 180, 255): CONST SteelBlue = 215~%%
    _PALETTECOLOR 216, _RGBA32(255, 207, 72, 255): CONST Sunglow = 216~%%
    _PALETTECOLOR 217, _RGBA32(253, 94, 83, 255): CONST SunsetOrange = 217~%%
    _PALETTECOLOR 218, _RGBA32(210, 180, 140, 255): CONST Tann = 218~%%
    _PALETTECOLOR 219, _RGBA32(0, 128, 128, 255): CONST Teal = 219~%%
    _PALETTECOLOR 220, _RGBA32(24, 167, 181, 255): CONST TealBlue = 220~%%
    _PALETTECOLOR 221, _RGBA32(216, 191, 216, 255): CONST Thistle = 221~%%
    _PALETTECOLOR 222, _RGBA32(252, 137, 172, 255): CONST TickleMePink = 222~%%
    _PALETTECOLOR 223, _RGBA32(219, 215, 210, 255): CONST Timberwolf = 223~%%
    _PALETTECOLOR 224, _RGBA32(255, 99, 71, 255): CONST Tomato = 224~%%
    _PALETTECOLOR 225, _RGBA32(23, 128, 109, 255): CONST TropicalRainForest = 225~%%
    _PALETTECOLOR 226, _RGBA32(222, 170, 136, 255): CONST Tumbleweed = 226~%%
    _PALETTECOLOR 227, _RGBA32(64, 224, 208, 255): CONST Turquoise = 227~%%
    _PALETTECOLOR 228, _RGBA32(119, 221, 231, 255): CONST TurquoiseBlue = 228~%%
    _PALETTECOLOR 229, _RGBA32(255, 255, 102, 255): CONST UnmellowYellow = 229~%%
    _PALETTECOLOR 230, _RGBA32(238, 130, 238, 255): CONST Violet = 230~%%
    _PALETTECOLOR 231, _RGBA32(50, 74, 178, 255): CONST VioletBlue = 231~%%
    _PALETTECOLOR 232, _RGBA32(247, 83, 148, 255): CONST VioletRed = 232~%%
    _PALETTECOLOR 233, _RGBA32(255, 160, 137, 255): CONST VividTangerine = 233~%%
    _PALETTECOLOR 234, _RGBA32(143, 80, 157, 255): CONST VividViolet = 234~%%
    _PALETTECOLOR 235, _RGBA32(245, 222, 179, 255): CONST Wheat = 235~%%
    _PALETTECOLOR 236, _RGBA32(245, 245, 245, 255): CONST Whitesmoke = 236~%%
    _PALETTECOLOR 237, _RGBA32(162, 173, 208, 255): CONST WildBlueYonder = 237~%%
    _PALETTECOLOR 238, _RGBA32(255, 67, 164, 255): CONST WildStrawberry = 238~%%
    _PALETTECOLOR 239, _RGBA32(252, 108, 133, 255): CONST WildWatermelon = 239~%%
    _PALETTECOLOR 240, _RGBA32(205, 164, 222, 255): CONST Wisteria = 240~%%
    _PALETTECOLOR 241, _RGBA32(154, 205, 50, 255): CONST YellowGreen = 241~%%
    _PALETTECOLOR 242, _RGBA32(255, 174, 66, 255): CONST YellowOrange = 242~%%
$END IF
 
 
$IF CODEPAGE437 = TRUE THEN
    CodePage437:
    DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
    DATA 201,230,198,244,246,242,251,249,255,214,220,162,163,165,8359,402
    DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,187
    DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
    DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
    DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
    DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
    DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
$END IF
 
$IF CODEPAGE737 = TRUE THEN
    CodePage737:
    DATA 913,914,915,916,917,918,919,920,921,922,923,924,925,926,927,928
    DATA 929,931,932,933,934,935,936,937,945,946,947,948,949,950,951,952
    DATA 953,954,955,956,957,958,959,960,961,963,962,964,965,966,967,968
    DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
    DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
    DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
    DATA 969,940,941,942,970,943,972,973,971,974,902,904,905,906,908,910
    DATA 911,177,8805,8804,938,939,247,8776,176,8729,183,8730,8319,178,9632,160
$END IF
 
$IF CODEPAGE775 = TRUE THEN
    CodePage775:
    DATA 262,252,233,257,228,291,229,263,322,275,342,343,299,377,196,197
    DATA 201,230,198,333,246,290,162,346,347,214,220,248,163,216,215,164
    DATA 256,298,243,379,380,378,8221,166,169,174,172,189,188,321,171,187
    DATA 9617,9618,9619,9474,9508,260,268,280,278,9571,9553,9559,9565,302,352,9488
    DATA 9492,9524,9516,9500,9472,9532,370,362,9562,9556,9577,9574,9568,9552,9580,381
    DATA 261,269,281,279,303,353,371,363,382,9496,9484,9608,9604,9612,9616,9600
    DATA 211,223,332,323,245,213,181,324,310,311,315,316,326,274,325,8217
    DATA 173,177,8220,190,182,167,247,8222,176,8729,183,185,179,178,9632,160
$END IF
 
$IF CODEPAGE850 = TRUE THEN
    CodePage850:
    DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
    DATA 201,230,198,244,246,242,251,249,255,214,220,248,163,216,215,402
    DATA 225,237,243,250,241,209,170,186,191,174,172,189,188,161,171,187
    DATA 9617,9618,9619,9474,9508,193,194,192,169,9571,9553,9559,9565,162,165,9488
    DATA 9492,9524,9516,9500,9472,9532,227,195,9562,9556,9577,9574,9568,9552,9580,164
    DATA 240,208,202,203,200,305,205,206,207,9496,9484,9608,9604,166,204,9600
    DATA 211,223,212,210,245,213,181,254,222,218,219,217,253,221,175,180
    DATA 173,177,8215,190,182,167,247,184,176,168,183,185,179,178,9632,160
$END IF
 
$IF CODEPAGE852 = TRUE THEN
    CodePage852:
    DATA 199,252,233,226,228,367,263,231,322,235,336,337,238,377,196,262
    DATA 201,313,314,244,246,317,318,346,347,214,220,356,357,321,215,269
    DATA 225,237,243,250,260,261,381,382,280,281,172,378,268,351,171,187
    DATA 9617,9618,9619,9474,9508,193,194,282,350,9571,9553,9559,9565,379,380,9488
    DATA 9492,9524,9516,9500,9472,9532,258,259,9562,9556,9577,9574,9568,9552,9580,164
    DATA 273,272,270,203,271,327,205,206,283,9496,9484,9608,9604,354,366,9600
    DATA 211,223,212,323,324,328,352,353,340,218,341,368,253,221,355,180
    DATA 173,733,731,711,728,167,247,184,176,168,729,369,344,345,9632,160
$END IF
 
$IF CODEPAGE855 = TRUE THEN
    CodePage855:
    DATA 1106,1026,1107,1027,1105,1025,1108,1028,1109,1029,1110,1030,1111,1031,1112,1032
    DATA 1113,1033,1114,1034,1115,1035,1116,1036,1118,1038,1119,1039,1102,1070,1098,1066
    DATA 1072,1040,1073,1041,1094,1062,1076,1044,1077,1045,1092,1060,1075,1043,171,187
    DATA 9617,9618,9619,9474,9508,1093,1061,1080,1048,9571,9553,9559,9565,1081,1049,9488
    DATA 9492,9524,9516,9500,9472,9532,1082,1050,9562,9556,9577,9574,9568,9552,9580,164
    DATA 1083,1051,1084,1052,1085,1053,1086,1054,1087,9496,9484,9608,9604,1055,1103,9600
    DATA 1071,1088,1056,1089,1057,1090,1058,1091,1059,1078,1046,1074,1042,1100,1068,8470
    DATA 173,1099,1067,1079,1047,1096,1064,1101,1069,1097,1065,1095,1063,167,9632,160
$END IF
 
$IF CODEPAGE857 = TRUE THEN
    CodePage857:
    DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,305,196,197
    DATA 201,230,198,244,246,242,251,249,304,214,220,248,163,216,350,351
    DATA 225,237,243,250,241,209,286,287,191,174,172,189,188,161,171,187
    DATA 9617,9618,9619,9474,9508,193,194,192,169,9571,9553,9559,9565,162,165,9488
    DATA 9492,9524,9516,9500,9472,9532,227,195,9562,9556,9577,9574,9568,9552,9580,164
    DATA 186,170,202,203,200,0,205,206,207,9496,9484,9608,9604,166,204,9600
    DATA 211,223,212,210,245,213,181,0,215,218,219,217,236,255,175,180
    DATA 173,177,0,190,182,167,247,184,176,168,183,185,179,178,9632,160
$END IF
 
$IF CODEPAGE860 = TRUE THEN
    CodePage860:
    DATA 199,252,233,226,227,224,193,231,234,202,232,205,212,236,195,194
    DATA 201,192,200,244,245,242,218,249,204,213,220,162,163,217,8359,211
    DATA 225,237,243,250,241,209,170,186,191,210,172,189,188,161,171,187
    DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
    DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
    DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
    DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
    DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
$END IF
 
$IF CODEPAGE861 = TRUE THEN
    CodePage861:
    DATA 199,252,233,226,228,224,229,231,234,235,232,208,240,222,196,197
    DATA 201,230,198,244,246,254,251,221,253,214,220,248,163,216,8359,402
    DATA 225,237,243,250,193,205,211,218,191,8976,172,189,188,161,171,187
    DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
    DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
    DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
    DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
    DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
$END IF
 
$IF CODEPAGE862 = TRUE THEN
    CodePage862:
    DATA 1488,1489,1490,1491,1492,1493,1494,1495,1496,1497,1498,1499,1500,1501,1502,1503
    DATA 1504,1505,1506,1507,1508,1509,1510,1511,1512,1513,1514,162,163,165,8359,402
    DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,187
    DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
    DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
    DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
    DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
    DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
$END IF
 
$IF CODEPAGE863 = TRUE THEN
    CodePage863:
    DATA 199,252,233,226,194,224,182,231,234,235,232,239,238,8215,192,167
    DATA 201,200,202,244,203,207,251,249,164,212,220,162,163,217,219,402
    DATA 166,180,243,250,168,184,179,175,206,8976,172,189,188,190,171,187
    DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
    DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
    DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
    DATA 4023,945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
    DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
$END IF
 
$IF CODEPAGE864 = TRUE THEN
    CodePage864:
    DATA 176,183,8729,8730,9618,9472,9474,9532,9508,9516,9500,9524,9488,9484,9492,9496
    DATA 946,8734,966,177,189,188,8776,171,187,65271,65272,0,0,65275,65276,0
    DATA 160,173,65154,163,164,65156,0,0,65166,65167,65173,65177,1548,65181,65185,65189
    DATA 1632,1633,1634,1635,1636,1637,1638,1639,1640,1641,65233,1563,65201,65205,65209,1567
    DATA 162,65152,65153,65155,65157,65226,65163,65165,65169,65171,65175,65179,65183,65187,65191,65193
    DATA 65195,65197,65199,65203,65207,65211,65215,65217,65221,65227,65231,166,172,247,215,65225
    DATA 1600,65235,65239,65243,65247,65251,65255,65259,65261,65263,65267,65213,65228,65230,65229,65249
    DATA 65149,1617,65253,65257,65260,65264,65266,65232,65237,65269,65270,65245,65241,65265,9632,0
$END IF
 
$IF CODEPAGE865 = TRUE THEN
    CodePage865:
    DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
    DATA 201,230,198,244,246,242,251,249,255,214,220,248,163,216,8359,402
    DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,164
    DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
    DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
    DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
    DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
    DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
$END IF
 
$IF CODEPAGE866 = TRUE THEN
    CodePage866:
    DATA 1040,1041,1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055
    DATA 1056,1057,1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071
    DATA 1072,1073,1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1086,1087
    DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
    DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
    DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
    DATA 1088,1089,1090,1091,1092,1093,1094,1095,1096,1097,1098,1099,1100,1101,1102,1103
    DATA 1025,1105,1028,1108,1031,1111,1038,1118,176,8729,183,8730,8470,164,9632,160
$END IF
 
$IF CODEPAGE869 = TRUE THEN
    CodePage869:
    DATA 0,0,0,0,0,0,902,0,183,172,166,8216,8217,904,8213,905
    DATA 906,938,908,0,0,910,939,169,911,178,179,940,163,941,942,943
    DATA 970,912,972,973,913,914,915,916,917,918,919,189,920,921,171,187
    DATA 9617,9618,9619,9474,9508,922,923,924,925,9571,9553,9559,9565,926,927,9488
    DATA 9492,9524,9516,9500,9472,9532,928,929,9562,9556,9577,9574,9568,9552,9580,931
    DATA 932,933,934,935,936,937,945,946,947,9496,9484,9608,9604,948,949,9600
    DATA 950,951,952,953,954,955,956,957,958,959,960,961,963,962,964,900
    DATA 173,177,965,966,967,167,968,901,176,168,969,971,944,974,9632,160
$END IF
 
$IF CODEPAGE874 = TRUE THEN
    CodePage874:
    DATA 8364,0,0,0,0,8230,0,0,0,0,0,0,0,0,0,0
    DATA 0,8216,8217,8220,8221,8226,8211,8212,0,0,0,0,0,0,0,0
    DATA 160,3585,3586,3587,3588,3589,3590,3591,3592,3593,3594,3595,3596,3597,3598,3599
    DATA 3600,3601,3602,3603,3604,3605,3606,3607,3608,3609,3610,3611,3612,3613,3614,3615
    DATA 3616,3617,3618,3619,3620,3621,3622,3623,3624,3625,3626,3627,3628,3629,3630,3631
    DATA 3632,3633,3634,3635,3636,3637,3638,3639,3640,3641,3642,0,0,0,0,3647
    DATA 3648,3649,3650,3651,3652,3653,3654,3655,3656,3657,3658,3659,3660,3661,3662,3663
    DATA 3664,3665,3666,3667,3668,3669,3670,3671,3672,3673,3674,3675,0,0,0,0
$END IF
 
$IF CODEPAGE1250 = TRUE THEN
    CodePage1250:
    DATA 8364,0,8218,0,8222,8230,8224,8225,0,8240,352,8249,346,356,381,377
    DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,353,8250,347,357,382,378
    DATA 160,711,728,321,164,260,166,167,168,169,350,171,172,173,174,379
    DATA 176,177,731,322,180,181,182,183,184,261,351,187,317,733,318,380
    DATA 340,193,194,258,196,313,262,199,268,201,280,203,282,205,206,270
    DATA 272,323,327,211,212,336,214,215,344,366,218,368,220,221,354,223
    DATA 341,225,226,259,228,314,263,231,269,233,281,235,283,237,238,271
    DATA 273,324,328,243,244,337,246,247,345,367,250,369,252,253,355,729
$END IF
 
$IF CODEPAGE1251 = TRUE THEN
    CodePage1251:
    DATA 1026,1027,8218,1107,8222,8230,8224,8225,8364,8240,1033,8249,1034,1036,1035,1039
    DATA 1106,8216,8217,8220,8221,8226,8211,8212,0,8482,1113,8250,1114,1116,1115,1119
    DATA 160,1038,1118,1032,164,1168,166,167,1025,169,1028,171,172,173,174,1031
    DATA 176,177,1030,1110,1169,181,182,183,1105,8470,1108,187,1112,1029,1109,1111
    DATA 1040,1041,1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055
    DATA 1056,1057,1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071
    DATA 1072,1073,1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1086,1087
    DATA 1088,1089,1090,1091,1092,1093,1094,1095,1096,1097,1098,1099,1100,1101,1102,1103
$END IF
 
$IF CODEPAGE1252 = TRUE THEN
    CodePage1252:
    DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,352,8249,338,0,381,0
    DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,353,8250,339,0,382,376
    DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
    DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
    DATA 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207
    DATA 208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223
    DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239
    DATA 240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255
$END IF
 
$IF CODEPAGE1253 = TRUE THEN
    CodePage1253:
    DATA 8364,0,8218,402,8222,8230,8224,8225,0,8240,0,8249,0,0,0,0
    DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,0,8250,0,0,0,0
    DATA 160,901,902,163,164,165,166,167,168,169,0,171,172,173,174,8213
    DATA 176,177,178,179,900,181,182,183,904,905,906,187,908,189,910,911
    DATA 912,913,914,915,916,917,918,919,920,921,922,923,924,925,926,927
    DATA 928,929,0,931,932,933,934,935,936,937,938,939,940,941,942,943
    DATA 944,945,946,947,948,949,950,951,952,953,954,955,956,957,958,959
    DATA 960,961,962,963,964,965,966,967,968,969,970,971,972,973,974,0
$END IF
 
$IF CODEPAGE1254 = TRUE THEN
    CodePage1254:
    DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,352,8249,338,0,0,0
    DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,353,8250,339,0,0,376
    DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
    DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
    DATA 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207
    DATA 286,209,210,211,212,213,214,215,216,217,218,219,220,304,350,223
    DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239
    DATA 287,241,242,243,244,245,246,247,248,249,250,251,252,305,351,255
$END IF
 
$IF CODEPAGE1255 = TRUE THEN
    CodePage1255:
    DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,0,8249,0,0,0,0
    DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,0,8250,0,0,0,0
    DATA 160,161,162,163,8362,165,166,167,168,169,215,171,172,173,174,175
    DATA 176,177,178,179,180,181,182,183,184,185,247,187,188,189,190,191
    DATA 1456,1457,1458,1459,1460,1461,1462,1463,1464,1465,0,1467,1468,1469,1470,1471
    DATA 1472,1473,1474,1475,1520,1521,1522,1523,1524,0,0,0,0,0,0,0
    DATA 1488,1489,1490,1491,1492,1493,1494,1495,1496,1497,1498,1499,1500,1501,1502,1503
    DATA 1504,1505,1506,1507,1508,1509,1510,1511,1512,1513,1514,0,0,8206,8207,0
$END IF
 
$IF CODEPAGE1256 = TRUE THEN
    CodePage1256:
    DATA 8364,1662,8218,402,8222,8230,8224,8225,710,8240,1657,8249,338,1670,1688,1672
    DATA 1711,8216,8217,8220,8221,8226,8211,8212,1705,8482,1681,8250,339,8204,8205,1722
    DATA 160,1548,162,163,164,165,166,167,168,169,1726,171,172,173,174,175
    DATA 176,177,178,179,180,181,182,183,184,185,1563,187,188,189,190,1567
    DATA 1729,1569,1570,1571,1572,1573,1574,1575,1576,1577,1578,1579,1580,1581,1582,1583
    DATA 1584,1585,1586,1587,1588,1589,1590,215,1591,1592,1593,1594,1600,1601,1602,1603
    DATA 224,1604,226,1605,1606,1607,1608,231,232,233,234,235,1609,1610,238,239
    DATA 1611,1612,1613,1614,244,1615,1616,247,1617,249,1618,251,252,8206,8207,1746
$END IF
 
$IF CODEPAGE1257 = TRUE THEN
    CodePage1257:
    DATA 8364,0,8218,0,8222,8230,8224,8225,0,8240,0,8249,0,168,711,184
    DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,0,8250,0,175,731,0
    DATA 160,0,162,163,164,0,166,167,216,169,342,171,172,173,174,198
    DATA 176,177,178,179,180,181,182,183,248,185,343,187,188,189,190,230
    DATA 260,302,256,262,196,197,280,274,268,201,377,278,290,310,298,315
    DATA 352,323,325,211,332,213,214,215,370,321,346,362,220,379,381,223
    DATA 261,303,257,263,228,229,281,275,269,233,378,279,291,311,299,316
    DATA 353,324,326,243,333,245,246,247,371,322,347,363,252,380,382,729
$END IF
 
$IF CODEPAGE1258 = TRUE THEN
    CodePage1258:
    DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,0,8249,338,0,0,0
    DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,0,8250,339,0,0,376
    DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
    DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
    DATA 192,193,194,258,196,197,198,199,200,201,202,203,768,205,206,207
    DATA 272,209,777,211,212,416,214,215,216,217,218,219,220,431,771,223
    DATA 224,225,226,259,228,229,230,231,232,233,234,235,769,237,238,239
    DATA 273,241,803,243,244,417,246,247,248,249,250,251,252,432,8363,255
$END IF

As the library expands, the usage would be as simple as to save the above in a library file, toss it into your code, and place the following statement in front of its declaration:

Code: QB64: [Select]

$LET MINMAX = TRUE
$LET KEYCODES = TRUE
$LET COLOR = 32
$LET COLOR = 256
$LET COLOR = 0
$LET COMMONCONST = TRUE
 

No more would I need to constantly dig up the values to the limits for those various variable types. They'd always be just a simple to remember keyword away from easy access. :)

Other CONSTs will be coming and adding to the library as I work them up over the next few days. Use what you like, and feel free to add your own list of what you consider essential so that others can make use of the values as well easily.

SMcNeill · « **Reply #1 on:** December 23, 2019, 02:28:51 am »

Added the Keycodes for _KEYHIT/_KEYDOWN, as I can never remember any of those and always have to look them up.

Again, usage is to:

1) Make the file a library file so you can include it in your code.
2) Place $LET KEYCODES = TRUE before the $INCLUDE statement.
3) Make use of the new CONST values.

One thing to note: QB64 doesn't distinguish between lowercase and uppercase variable names, so I don't have a Key_A_lowercase and a Key_A_uppercase defined. Instead, I defined a simple Key_UpperCase and Key_LowerCase set of CONSTs...

If you need to check for a value, simply check for the Key + Uppercase (or + Lowercase as desired):

SELECT CASE _KEYHIT
CASE Key_A, Key_A + Key_LowerCase '(Or Key_LC if we want to reduce typing)
END SELECT

Now I don't need to look up Key_Left, or Key_Right... It's just a simple matter of include the library and use the CONST names to remember them. :)

I don't think there's any codes wrong, or missing, but if there is and you guys notice them, kindly point them out to me and I'll correct them ASAP.

SMcNeill · « **Reply #2 on:** December 23, 2019, 02:38:49 am »

Consolidated and added the color constant values into this list as well. Use is the same as above, but you need to specify which values you want to make use of

$LET COLOR = 32 will use 32-bit color values.
$LET COLOR = 256 will use 256 color values.
$LET COLOR = 0 will use SCREEN 0 color values.

Also added the CodePage DATA into this collection as well. Take the codepage you want, and set it TRUE with a $LET statement like above, and then RESTORE the data before making use of it, like below:

Code: [Select]

$LET CODEPAGE1258 = TRUE
'$INCLUDE:'WhateverYouCallThisLibrary.BI'

'Your program, until it gets to the MAPUNICODE section, and then
RESTORE CodePage1258

And if you look, when you copy/paste the file into your IDE there's a lot of grayed out code in it. Since all this is being included and excluded via the precompiler (those $LET statements), you only add what you want to, to your programs. The rest is grayed out, skipped over, and as far as QB64 is concerned, it doesn't exist at all.... No EXE bloat, no increased program size, no unused data just sitting and taking up space.

Only when you enable what you want, does it actually become an active part of your program.

News:

Author Topic: Useful CONSTs (and such) (Read 3456 times)

SMcNeill

Useful CONSTs (and such)

SMcNeill

Re: Useful CONSTs

SMcNeill

Re: Useful CONSTs