VAR TextAttr : Byte;

            This will store the currently selective text attributes.
            TextAttr can be used as a substitute to the TextColor
            and TextBackGround procedures.  The TextAttr bits are
            stored as follows:

                      7   6   5   4   3   2   1   0
                     +-------------------------------+
                     | 8 | b | b | b | f | f | f | f |
                     +-------------------------------+

            These bits are calculated by taking the desired
            background color (1..8) adding it to the textcolor,
            and multiplying by 16.  If blinking characters are
            desired, add 128. For example:

                 TextAttr := Yellow + Blue * 32 + Blink,

            will result in yellow blinking characters on a blue
            background.