From a885cdb524e816a0e320b214834ce391daa91d58 Mon Sep 17 00:00:00 2001 From: SteveMcNeill Date: Fri, 2 Aug 2019 09:25:21 -0400 Subject: [PATCH] Alter previous change to reduce error messages reported CONST has more options than what the internal math routine itself handles; it doesn't need to toss an error message whenever those pop up; just when it's an actual math style message. This fixes that. --- source/qb64.bas | 286 +++++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 284 insertions(+), 2 deletions(-) diff --git a/source/qb64.bas b/source/qb64.bas index 39f4154c1..a15810a27 100644 --- a/source/qb64.bas +++ b/source/qb64.bas @@ -1587,6 +1587,8 @@ DO temp$ = LTRIM$(RTRIM$(UCASE$(wholestv$))) + IF temp$ = "$COLOR32" THEN GOTO finishedlinepp + IF LEFT$(temp$, 4) = "$IF " THEN IF RIGHT$(temp$, 5) <> " THEN" THEN a$ = "$IF without THEN": GOTO errmes temp$ = LTRIM$(MID$(temp$, 4)) 'strip off the $IF and extra spaces @@ -2159,7 +2161,7 @@ DO altered = -1 wholestv$ = LEFT$(wholestv$, L) + temp1$ + MID$(wholestv$, l2 + 1) ELSE - IF LEFT$(temp1$, 5) = "ERROR" THEN a$ = temp1$: GOTO errmes + IF temp1$ = "ERROR - Division By Zero" THEN a$ = temp1$: GOTO errmes 'If it's not an error, we should leave it as it is and let the normal CONST routine handle things from here on out and see if it passes the rest of the error checks. END IF L = L + 1 @@ -2221,6 +2223,7 @@ DO e$ = fixoperationorder(e$) IF Error_Happened THEN GOTO errmes + 'l$ = l$ + sp + tlayout$ e$ = evaluateconst(e$, t) IF Error_Happened THEN GOTO errmes @@ -2374,7 +2377,7 @@ DO END IF 'layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ - + IF ColorHack THEN RETURN GOTO finishedlinepp END IF @@ -2975,6 +2978,285 @@ DO 'precompiler commands should always be executed FIRST. + IF a3u$ = "$COLOR32" THEN + ColorHack = -1 + wholeline$ = "CONST AliceBlue~& = 4293982463": GOSUB ideprepass + wholeline$ = "CONST Almond~& = 4293910221": GOSUB ideprepass + wholeline$ = "CONST AntiqueBrass~& = 4291663221": GOSUB ideprepass + wholeline$ = "CONST AntiqueWhite~& = 4294634455": GOSUB ideprepass + wholeline$ = "CONST Apricot~& = 4294826421": GOSUB ideprepass + wholeline$ = "CONST Aqua~& = 4278255615": GOSUB ideprepass + wholeline$ = "CONST Aquamarine~& = 4286578644": GOSUB ideprepass + wholeline$ = "CONST Asparagus~& = 4287080811": GOSUB ideprepass + wholeline$ = "CONST AtomicTangerine~& = 4294943860": GOSUB ideprepass + wholeline$ = "CONST Azure~& = 4293984255": GOSUB ideprepass + wholeline$ = "CONST BananaMania~& = 4294633397": GOSUB ideprepass + wholeline$ = "CONST Beaver~& = 4288643440": GOSUB ideprepass + wholeline$ = "CONST Beige~& = 4294309340": GOSUB ideprepass + wholeline$ = "CONST Bisque~& = 4294960324": GOSUB ideprepass + wholeline$ = "CONST Bittersweet~& = 4294802542": GOSUB ideprepass + wholeline$ = "CONST Black~& = 4278190080": GOSUB ideprepass + wholeline$ = "CONST BlanchedAlmond~& = 4294962125": GOSUB ideprepass + wholeline$ = "CONST BlizzardBlue~& = 4289521134": GOSUB ideprepass + wholeline$ = "CONST Blue~& = 4278190335": GOSUB ideprepass + wholeline$ = "CONST BlueBell~& = 4288848592": GOSUB ideprepass + wholeline$ = "CONST BlueGray~& = 4284914124": GOSUB ideprepass + wholeline$ = "CONST BlueGreen~& = 4279081146": GOSUB ideprepass + wholeline$ = "CONST BlueViolet~& = 4287245282": GOSUB ideprepass + wholeline$ = "CONST Blush~& = 4292763011": GOSUB ideprepass + wholeline$ = "CONST BrickRed~& = 4291510612": GOSUB ideprepass + wholeline$ = "CONST Brown~& = 4289014314": GOSUB ideprepass + wholeline$ = "CONST BurlyWood~& = 4292786311": GOSUB ideprepass + wholeline$ = "CONST BurntOrange~& = 4294934345": GOSUB ideprepass + wholeline$ = "CONST BurntSienna~& = 4293557853": GOSUB ideprepass + wholeline$ = "CONST CadetBlue~& = 4284456608": GOSUB ideprepass + wholeline$ = "CONST Canary~& = 4294967193": GOSUB ideprepass + wholeline$ = "CONST CaribbeanGreen~& = 4280079266": GOSUB ideprepass + wholeline$ = "CONST CarnationPink~& = 4294945484": GOSUB ideprepass + wholeline$ = "CONST Cerise~& = 4292691090": GOSUB ideprepass + wholeline$ = "CONST Cerulean~& = 4280134870": GOSUB ideprepass + wholeline$ = "CONST ChartReuse~& = 4286578432": GOSUB ideprepass + wholeline$ = "CONST Chestnut~& = 4290534744": GOSUB ideprepass + wholeline$ = "CONST Chocolate~& = 4291979550": GOSUB ideprepass + wholeline$ = "CONST Copper~& = 4292711541": GOSUB ideprepass + wholeline$ = "CONST Coral~& = 4294934352": GOSUB ideprepass + wholeline$ = "CONST Cornflower~& = 4288335595": GOSUB ideprepass + wholeline$ = "CONST CornflowerBlue~& = 4284782061": GOSUB ideprepass + wholeline$ = "CONST Cornsilk~& = 4294965468": GOSUB ideprepass + wholeline$ = "CONST CottonCandy~& = 4294950105": GOSUB ideprepass + wholeline$ = "CONST CrayolaAquamarine~& = 4286110690": GOSUB ideprepass + wholeline$ = "CONST CrayolaBlue~& = 4280251902": GOSUB ideprepass + wholeline$ = "CONST CrayolaBlueViolet~& = 4285753021": GOSUB ideprepass + wholeline$ = "CONST CrayolaBrown~& = 4290013005": GOSUB ideprepass + wholeline$ = "CONST CrayolaCadetBlue~& = 4289771462": GOSUB ideprepass + wholeline$ = "CONST CrayolaForestGreen~& = 4285378177": GOSUB ideprepass + wholeline$ = "CONST CrayolaGold~& = 4293379735": GOSUB ideprepass + wholeline$ = "CONST CrayolaGoldenrod~& = 4294760821": GOSUB ideprepass + wholeline$ = "CONST CrayolaGray~& = 4287992204": GOSUB ideprepass + wholeline$ = "CONST CrayolaGreen~& = 4280069240": GOSUB ideprepass + wholeline$ = "CONST CrayolaGreenYellow~& = 4293978257": GOSUB ideprepass + wholeline$ = "CONST CrayolaIndigo~& = 4284315339": GOSUB ideprepass + wholeline$ = "CONST CrayolaLavender~& = 4294751445": GOSUB ideprepass + wholeline$ = "CONST CrayolaMagenta~& = 4294337711": GOSUB ideprepass + wholeline$ = "CONST CrayolaMaroon~& = 4291311706": GOSUB ideprepass + wholeline$ = "CONST CrayolaMidnightBlue~& = 4279912566": GOSUB ideprepass + wholeline$ = "CONST CrayolaOrange~& = 4294931768": GOSUB ideprepass + wholeline$ = "CONST CrayolaOrangeRed~& = 4294912811": GOSUB ideprepass + wholeline$ = "CONST CrayolaOrchid~& = 4293306583": GOSUB ideprepass + wholeline$ = "CONST CrayolaPlum~& = 4287513989": GOSUB ideprepass + wholeline$ = "CONST CrayolaRed~& = 4293795917": GOSUB ideprepass + wholeline$ = "CONST CrayolaSalmon~& = 4294941610": GOSUB ideprepass + wholeline$ = "CONST CrayolaSeaGreen~& = 4288668351": GOSUB ideprepass + wholeline$ = "CONST CrayolaSilver~& = 4291675586": GOSUB ideprepass + wholeline$ = "CONST CrayolaSkyBlue~& = 4286634731": GOSUB ideprepass + wholeline$ = "CONST CrayolaSpringGreen~& = 4293716670": GOSUB ideprepass + wholeline$ = "CONST CrayolaTann~& = 4294616940": GOSUB ideprepass + wholeline$ = "CONST CrayolaThistle~& = 4293642207": GOSUB ideprepass + wholeline$ = "CONST CrayolaViolet~& = 4287786670": GOSUB ideprepass + wholeline$ = "CONST CrayolaYellow~& = 4294764675": GOSUB ideprepass + wholeline$ = "CONST CrayolaYellowGreen~& = 4291158916": GOSUB ideprepass + wholeline$ = "CONST Crimson~& = 4292613180": GOSUB ideprepass + wholeline$ = "CONST Cyan~& = 4278255615": GOSUB ideprepass + wholeline$ = "CONST Dandelion~& = 4294826861": GOSUB ideprepass + wholeline$ = "CONST DarkBlue~& = 4278190219": GOSUB ideprepass + wholeline$ = "CONST DarkCyan~& = 4278225803": GOSUB ideprepass + wholeline$ = "CONST DarkGoldenRod~& = 4290283019": GOSUB ideprepass + wholeline$ = "CONST DarkGray~& = 4289309097": GOSUB ideprepass + wholeline$ = "CONST DarkGreen~& = 4278215680": GOSUB ideprepass + wholeline$ = "CONST DarkKhaki~& = 4290623339": GOSUB ideprepass + wholeline$ = "CONST DarkMagenta~& = 4287299723": GOSUB ideprepass + wholeline$ = "CONST DarkOliveGreen~& = 4283788079": GOSUB ideprepass + wholeline$ = "CONST DarkOrange~& = 4294937600": GOSUB ideprepass + wholeline$ = "CONST DarkOrchid~& = 4288230092": GOSUB ideprepass + wholeline$ = "CONST DarkRed~& = 4287299584": GOSUB ideprepass + wholeline$ = "CONST DarkSalmon~& = 4293498490": GOSUB ideprepass + wholeline$ = "CONST DarkSeaGreen~& = 4287609999": GOSUB ideprepass + wholeline$ = "CONST DarkSlateBlue~& = 4282924427": GOSUB ideprepass + wholeline$ = "CONST DarkSlateGray~& = 4281290575": GOSUB ideprepass + wholeline$ = "CONST DarkTurquoise~& = 4278243025": GOSUB ideprepass + wholeline$ = "CONST DarkViolet~& = 4287889619": GOSUB ideprepass + wholeline$ = "CONST DeepPink~& = 4294907027": GOSUB ideprepass + wholeline$ = "CONST DeepSkyBlue~& = 4278239231": GOSUB ideprepass + wholeline$ = "CONST Denim~& = 4281035972": GOSUB ideprepass + wholeline$ = "CONST DesertSand~& = 4293905848": GOSUB ideprepass + wholeline$ = "CONST DimGray~& = 4285098345": GOSUB ideprepass + wholeline$ = "CONST DodgerBlue~& = 4280193279": GOSUB ideprepass + wholeline$ = "CONST Eggplant~& = 4285419872": GOSUB ideprepass + wholeline$ = "CONST ElectricLime~& = 4291755805": GOSUB ideprepass + wholeline$ = "CONST Fern~& = 4285643896": GOSUB ideprepass + wholeline$ = "CONST FireBrick~& = 4289864226": GOSUB ideprepass + wholeline$ = "CONST Floralwhite~& = 4294966000": GOSUB ideprepass + wholeline$ = "CONST ForestGreen~& = 4280453922": GOSUB ideprepass + wholeline$ = "CONST Fuchsia~& = 4290995397": GOSUB ideprepass + wholeline$ = "CONST FuzzyWuzzy~& = 4291585638": GOSUB ideprepass + wholeline$ = "CONST Gainsboro~& = 4292664540": GOSUB ideprepass + wholeline$ = "CONST GhostWhite~& = 4294506751": GOSUB ideprepass + wholeline$ = "CONST Gold~& = 4294956800": GOSUB ideprepass + wholeline$ = "CONST GoldenRod~& = 4292519200": GOSUB ideprepass + wholeline$ = "CONST GrannySmithApple~& = 4289258656": GOSUB ideprepass + wholeline$ = "CONST Gray~& = 4286611584": GOSUB ideprepass + wholeline$ = "CONST Green~& = 4278222848": GOSUB ideprepass + wholeline$ = "CONST GreenBlue~& = 4279329972": GOSUB ideprepass + wholeline$ = "CONST GreenYellow~& = 4289593135": GOSUB ideprepass + wholeline$ = "CONST HoneyDew~& = 4293984240": GOSUB ideprepass + wholeline$ = "CONST HotMagenta~& = 4294909390": GOSUB ideprepass + wholeline$ = "CONST HotPink~& = 4294928820": GOSUB ideprepass + wholeline$ = "CONST Inchworm~& = 4289915997": GOSUB ideprepass + wholeline$ = "CONST IndianRed~& = 4291648604": GOSUB ideprepass + wholeline$ = "CONST Indigo~& = 4283105410": GOSUB ideprepass + wholeline$ = "CONST Ivory~& = 4294967280": GOSUB ideprepass + wholeline$ = "CONST JazzberryJam~& = 4291442535": GOSUB ideprepass + wholeline$ = "CONST JungleGreen~& = 4282101903": GOSUB ideprepass + wholeline$ = "CONST Khaki~& = 4293977740": GOSUB ideprepass + wholeline$ = "CONST LaserLemon~& = 4294901282": GOSUB ideprepass + wholeline$ = "CONST Lavender~& = 4293322490": GOSUB ideprepass + wholeline$ = "CONST LavenderBlush~& = 4294963445": GOSUB ideprepass + wholeline$ = "CONST LawnGreen~& = 4286381056": GOSUB ideprepass + wholeline$ = "CONST LemonChiffon~& = 4294965965": GOSUB ideprepass + wholeline$ = "CONST LemonYellow~& = 4294964303": GOSUB ideprepass + wholeline$ = "CONST LightBlue~& = 4289583334": GOSUB ideprepass + wholeline$ = "CONST LightCoral~& = 4293951616": GOSUB ideprepass + wholeline$ = "CONST LightCyan~& = 4292935679": GOSUB ideprepass + wholeline$ = "CONST LightGoldenRodYellow~& = 4294638290": GOSUB ideprepass + wholeline$ = "CONST LightGray~& = 4292072403": GOSUB ideprepass + wholeline$ = "CONST LightGreen~& = 4287688336": GOSUB ideprepass + wholeline$ = "CONST LightPink~& = 4294948545": GOSUB ideprepass + wholeline$ = "CONST LightSalmon~& = 4294942842": GOSUB ideprepass + wholeline$ = "CONST LightSeaGreen~& = 4280332970": GOSUB ideprepass + wholeline$ = "CONST LightSkyBlue~& = 4287090426": GOSUB ideprepass + wholeline$ = "CONST LightSlateGray~& = 4286023833": GOSUB ideprepass + wholeline$ = "CONST LightSteelBlue~& = 4289774814": GOSUB ideprepass + wholeline$ = "CONST LightYellow~& = 4294967264": GOSUB ideprepass + wholeline$ = "CONST Lime~& = 4278255360": GOSUB ideprepass + wholeline$ = "CONST LimeGreen~& = 4281519410": GOSUB ideprepass + wholeline$ = "CONST Linen~& = 4294635750": GOSUB ideprepass + wholeline$ = "CONST MacaroniAndCheese~& = 4294950280": GOSUB ideprepass + wholeline$ = "CONST Magenta~& = 4294902015": GOSUB ideprepass + wholeline$ = "CONST MagicMint~& = 4289392849": GOSUB ideprepass + wholeline$ = "CONST Mahogany~& = 4291643980": GOSUB ideprepass + wholeline$ = "CONST Maize~& = 4293775772": GOSUB ideprepass + wholeline$ = "CONST Manatee~& = 4288125610": GOSUB ideprepass + wholeline$ = "CONST MangoTango~& = 4294935107": GOSUB ideprepass + wholeline$ = "CONST Maroon~& = 4286578688": GOSUB ideprepass + wholeline$ = "CONST Mauvelous~& = 4293892266": GOSUB ideprepass + wholeline$ = "CONST MediumAquamarine~& = 4284927402": GOSUB ideprepass + wholeline$ = "CONST MediumBlue~& = 4278190285": GOSUB ideprepass + wholeline$ = "CONST MediumOrchid~& = 4290401747": GOSUB ideprepass + wholeline$ = "CONST MediumPurple~& = 4287852763": GOSUB ideprepass + wholeline$ = "CONST MediumSeaGreen~& = 4282168177": GOSUB ideprepass + wholeline$ = "CONST MediumSlateBlue~& = 4286277870": GOSUB ideprepass + wholeline$ = "CONST MediumSpringGreen~& = 4278254234": GOSUB ideprepass + wholeline$ = "CONST MediumTurquoise~& = 4282962380": GOSUB ideprepass + wholeline$ = "CONST MediumVioletRed~& = 4291237253": GOSUB ideprepass + wholeline$ = "CONST Melon~& = 4294818996": GOSUB ideprepass + wholeline$ = "CONST MidnightBlue~& = 4279834992": GOSUB ideprepass + wholeline$ = "CONST MintCream~& = 4294311930": GOSUB ideprepass + wholeline$ = "CONST MistyRose~& = 4294960353": GOSUB ideprepass + wholeline$ = "CONST Moccasin~& = 4294960309": GOSUB ideprepass + wholeline$ = "CONST MountainMeadow~& = 4281383567": GOSUB ideprepass + wholeline$ = "CONST Mulberry~& = 4291120012": GOSUB ideprepass + wholeline$ = "CONST NavajoWhite~& = 4294958765": GOSUB ideprepass + wholeline$ = "CONST Navy~& = 4278190208": GOSUB ideprepass + wholeline$ = "CONST NavyBlue~& = 4279858386": GOSUB ideprepass + wholeline$ = "CONST NeonCarrot~& = 4294943555": GOSUB ideprepass + wholeline$ = "CONST OldLace~& = 4294833638": GOSUB ideprepass + wholeline$ = "CONST Olive~& = 4286611456": GOSUB ideprepass + wholeline$ = "CONST OliveDrab~& = 4285238819": GOSUB ideprepass + wholeline$ = "CONST OliveGreen~& = 4290426988": GOSUB ideprepass + wholeline$ = "CONST Orange~& = 4294944000": GOSUB ideprepass + wholeline$ = "CONST OrangeRed~& = 4294919424": GOSUB ideprepass + wholeline$ = "CONST OrangeYellow~& = 4294497640": GOSUB ideprepass + wholeline$ = "CONST Orchid~& = 4292505814": GOSUB ideprepass + wholeline$ = "CONST OuterSpace~& = 4282468940": GOSUB ideprepass + wholeline$ = "CONST OutrageousOrange~& = 4294929994": GOSUB ideprepass + wholeline$ = "CONST PacificBlue~& = 4280068553": GOSUB ideprepass + wholeline$ = "CONST PaleGoldenRod~& = 4293847210": GOSUB ideprepass + wholeline$ = "CONST PaleGreen~& = 4288215960": GOSUB ideprepass + wholeline$ = "CONST PaleTurquoise~& = 4289720046": GOSUB ideprepass + wholeline$ = "CONST PaleVioletRed~& = 4292571283": GOSUB ideprepass + wholeline$ = "CONST PapayaWhip~& = 4294963157": GOSUB ideprepass + wholeline$ = "CONST Peach~& = 4294954923": GOSUB ideprepass + wholeline$ = "CONST PeachPuff~& = 4294957753": GOSUB ideprepass + wholeline$ = "CONST Periwinkle~& = 4291154150": GOSUB ideprepass + wholeline$ = "CONST Peru~& = 4291659071": GOSUB ideprepass + wholeline$ = "CONST PiggyPink~& = 4294827494": GOSUB ideprepass + wholeline$ = "CONST PineGreen~& = 4279599224": GOSUB ideprepass + wholeline$ = "CONST Pink~& = 4294951115": GOSUB ideprepass + wholeline$ = "CONST PinkFlamingo~& = 4294735101": GOSUB ideprepass + wholeline$ = "CONST PinkSherbet~& = 4294414247": GOSUB ideprepass + wholeline$ = "CONST Plum~& = 4292714717": GOSUB ideprepass + wholeline$ = "CONST PowderBlue~& = 4289781990": GOSUB ideprepass + wholeline$ = "CONST Purple~& = 4286578816": GOSUB ideprepass + wholeline$ = "CONST PurpleHeart~& = 4285809352": GOSUB ideprepass + wholeline$ = "CONST PurpleMountainsMajesty~& = 4288512442": GOSUB ideprepass + wholeline$ = "CONST PurplePizzazz~& = 4294856410": GOSUB ideprepass + wholeline$ = "CONST RadicalRed~& = 4294920556": GOSUB ideprepass + wholeline$ = "CONST RawSienna~& = 4292250201": GOSUB ideprepass + wholeline$ = "CONST RawUmber~& = 4285614883": GOSUB ideprepass + wholeline$ = "CONST RazzleDazzleRose~& = 4294920400": GOSUB ideprepass + wholeline$ = "CONST Razzmatazz~& = 4293076331": GOSUB ideprepass + wholeline$ = "CONST Red~& = 4294901760": GOSUB ideprepass + wholeline$ = "CONST RedOrange~& = 4294923081": GOSUB ideprepass + wholeline$ = "CONST RedViolet~& = 4290790543": GOSUB ideprepass + wholeline$ = "CONST RobinsEggBlue~& = 4280274635": GOSUB ideprepass + wholeline$ = "CONST RosyBrown~& = 4290547599": GOSUB ideprepass + wholeline$ = "CONST RoyalBlue~& = 4282477025": GOSUB ideprepass + wholeline$ = "CONST RoyalPurple~& = 4286075305": GOSUB ideprepass + wholeline$ = "CONST SaddleBrown~& = 4287317267": GOSUB ideprepass + wholeline$ = "CONST Salmon~& = 4294606962": GOSUB ideprepass + wholeline$ = "CONST SandyBrown~& = 4294222944": GOSUB ideprepass + wholeline$ = "CONST Scarlet~& = 4294715463": GOSUB ideprepass + wholeline$ = "CONST ScreaminGreen~& = 4285988730": GOSUB ideprepass + wholeline$ = "CONST SeaGreen~& = 4281240407": GOSUB ideprepass + wholeline$ = "CONST SeaShell~& = 4294964718": GOSUB ideprepass + wholeline$ = "CONST Sepia~& = 4289030479": GOSUB ideprepass + wholeline$ = "CONST Shadow~& = 4287265117": GOSUB ideprepass + wholeline$ = "CONST Shamrock~& = 4282764962": GOSUB ideprepass + wholeline$ = "CONST ShockingPink~& = 4294672125": GOSUB ideprepass + wholeline$ = "CONST Sienna~& = 4288696877": GOSUB ideprepass + wholeline$ = "CONST Silver~& = 4290822336": GOSUB ideprepass + wholeline$ = "CONST SkyBlue~& = 4287090411": GOSUB ideprepass + wholeline$ = "CONST SlateBlue~& = 4285160141": GOSUB ideprepass + wholeline$ = "CONST SlateGray~& = 4285563024": GOSUB ideprepass + wholeline$ = "CONST Snow~& = 4294966010": GOSUB ideprepass + wholeline$ = "CONST SpringGreen~& = 4278255487": GOSUB ideprepass + wholeline$ = "CONST SteelBlue~& = 4282811060": GOSUB ideprepass + wholeline$ = "CONST Sunglow~& = 4294954824": GOSUB ideprepass + wholeline$ = "CONST SunsetOrange~& = 4294794835": GOSUB ideprepass + wholeline$ = "CONST Tann~& = 4291998860": GOSUB ideprepass + wholeline$ = "CONST Teal~& = 4278222976": GOSUB ideprepass + wholeline$ = "CONST TealBlue~& = 4279805877": GOSUB ideprepass + wholeline$ = "CONST Thistle~& = 4292394968": GOSUB ideprepass + wholeline$ = "CONST TickleMePink~& = 4294740396": GOSUB ideprepass + wholeline$ = "CONST Timberwolf~& = 4292597714": GOSUB ideprepass + wholeline$ = "CONST Tomato~& = 4294927175": GOSUB ideprepass + wholeline$ = "CONST TropicalRainForest~& = 4279730285": GOSUB ideprepass + wholeline$ = "CONST Tumbleweed~& = 4292782728": GOSUB ideprepass + wholeline$ = "CONST Turquoise~& = 4282441936": GOSUB ideprepass + wholeline$ = "CONST TurquoiseBlue~& = 4286045671": GOSUB ideprepass + wholeline$ = "CONST UnmellowYellow~& = 4294967142": GOSUB ideprepass + wholeline$ = "CONST Violet~& = 4293821166": GOSUB ideprepass + wholeline$ = "CONST VioletBlue~& = 4281486002": GOSUB ideprepass + wholeline$ = "CONST VioletRed~& = 4294398868": GOSUB ideprepass + wholeline$ = "CONST VividTangerine~& = 4294942857": GOSUB ideprepass + wholeline$ = "CONST VividViolet~& = 4287582365": GOSUB ideprepass + wholeline$ = "CONST Wheat~& = 4294303411": GOSUB ideprepass + wholeline$ = "CONST White~& = 4294967295": GOSUB ideprepass + wholeline$ = "CONST Whitesmoke~& = 4294309365": GOSUB ideprepass + wholeline$ = "CONST WildBlueYonder~& = 4288851408": GOSUB ideprepass + wholeline$ = "CONST WildStrawberry~& = 4294919076": GOSUB ideprepass + wholeline$ = "CONST WildWatermelon~& = 4294732933": GOSUB ideprepass + wholeline$ = "CONST Wisteria~& = 4291667166": GOSUB ideprepass + wholeline$ = "CONST Yellow~& = 4294967040": GOSUB ideprepass + wholeline$ = "CONST YellowGreen~& = 4288335154": GOSUB ideprepass + wholeline$ = "CONST YellowOrange~& = 4294946370": GOSUB ideprepass + ColorHack = 0 + layout$ = "$COLOR32" + layoutdone = 1 + GOTO ideret4 + END IF + + IF a3u$ = "$END IF" OR a3u$ = "$ENDIF" THEN IF DefineElse(ExecCounter) = 0 THEN a$ = "$END IF without $IF": GOTO errmes DefineElse(ExecCounter) = 0 'We no longer have an $IF block at this level