Click above to get retro games delivered to your door ever month!

 TEXTCOLOR             Set Text Screen Forground Color                pp 162

 Syntax:  TextColor (IntVar) ;

 Type:    N/A

 Form:    Procedure

 Purpose: Select back ground color of the text screen.

 Notes:   IntVar is an integer expression 0..31.  The pre-defined Turbo color
          constant text names can be used in place of color numbers.

 Usage:
       CONST
          IntVar : Integer = Blue ;

       BEGIN
          TextColor (IntVar)      ;
       END.


                         Color                        MonoChrome
        +-------------------------------------+  +------------------+
        | Black          0 | DarkGray       8 |  | Lo Video       2 |
        | Blue           1 | LightBlue      9 |  | Hi Video      10 |
        | Green          2 | LightGreen    10 |  | Lo Underline   1 |
        | Cyan           3 | LightCyan     11 |  | Hi Underline   9 |
        | Red            4 | LightRed      12 |  |                  |
        | Magenta        5 | LightMagenta  13 |  | Reverse Video    |
        | Brown          6 | Yellow        14 |  | Background     7 |
        | LightGray      7 | White         15 |  | Forground      8 |
        |------------------+------------------|  |------------------|
        | Blink       +16  | Blink        +16 |  | Blink       +16  |
        +-------------------------------------+  +------------------+





             Color names can be used in place of color numbers.