NAME: GetTextSettings

     USE: Procedure to return information about the current text settings.
          Information is returned in a record of type TextSettingsType;

                      CharSizeType = 1..10;

                      TextSettingsType = Record
                         Font      : Word;
                         Direction : Word;
                         CharSize  : CharSizeType;
                         Horiz     : Word;
                         Vert      : Word;
                      end;

     DEPENDENCY:  Must first be in graphics mode.  The unit Graph
                  must also be placed in the uses section.

     SYNTAX: GetTextSettings(Var TextInfoValue : TextSettingsType);