Set/GetTextStyle
         -----------------------------------------------------------

                 DefaultFont    = 0;    " Bit-Mapped fonts "

                 TripleFont     = 1;    " Stroked fonts "
                 SmallFont      = 2;
                 SansSerifFont  = 3;
                 GothicFont     = 4;

                 HorizDir       = 0;  Left to Right
                 VertDir        = 1;  Top to Bottom
                 NormSize       = 1;