NAME: GetViewSttings

     USE: This procedure will return the current viewport settings. The
          information is returned the the record type ViewPortType.

                     ViewPortType = Record
                       X1, Y1, X2, Y2  : Word;
                       Clip            : Boolean;
                     end;

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

     SYNTAX: GetViewSettings(Var ViewPortInfo : ViewPortType);