{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.

This program uses the procedure MOVE to move a file from one subdirectory to
another, possibly renaming it in the process.}

{@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
program Move_File;
{$I filename.typ}
{$I regpack.typ}
{$I movefile.lib}
{$I errmessg.lib}
var
  Old, New : filename_type;
  error    : byte;
begin
  Write('Move: ');
  ReadLn(Old);
  Write('To: ');
  ReadLn(New);
  MOVEFILE(Old,New,error);
  if error = 0 then
    begin
      WriteLn('Sucessfully moved ',old);
      WriteLn('               to ',new);
    end
  else
    WriteLn(message(error));
end.

begin
  OldFullPath[length(OldFullPath)+