NAME:  ChDir

     USE:  Changes to a specified directory.  A string type variable is
           passed to ChDir.  Errors are returned through IOResult.

     DEPENDENCY: None

     SYNTAX: ChDir(StringVar);


     EXAMPLE: Program TestDir;
              Begin
                 If ParamCount <> 1 then
                 Begin
                    Writeln('SYNTAX:  TestDir NewPath');
                    Halt;
                 end;
                 {$I-}
                 ChDir(ParamStr(1));
                 {$I+}
                 if IOResult <> 0 then
                    Writeln('ERROR * * * Could not change Directory');
              end.