You are fluffed up by a factor of at least 30.
Here is a color lookup table you can load from Media at startup ...
All those color procedures should be combined into a single procedure, parametrized with the mode name.
The mode setter should look up the colors from a mode table and set the components.
You might need one or two extra procedures, depending on the scope of the effects, like a background setter procedure that takes the mode name or background color name as a parameter.
That should completely eliminate those combs of procedure calls, replacing them with single procedure calls providing the required background theme or mode name.