program NCOPY;

uses crt,device;

{----------------------------------------------------------------}

begin
  writeln;
  writeln('NCOPY written by Franz-Josef Ayestaran (c)1998');
  writeln('-----');
  writeln;

  writeln('Please insert source disk into');
  writeln('drive A: and press [ENTER]');
  writeln;
  readln;
  textcolor(green);
  writeln('Reading source disk....');
  textcolor(7);
  writeln;

  read_disk(0,'c:\ncopy.dat',true);

  writeln('Please insert a formated destination');
  writeln('disk into drive A: and press [ENTER]');
  writeln;
  readln;
  textcolor(red);
  writeln('Writing destination disk....');
  textcolor(7);
  writeln;

  write_disk(0,'c:\ncopy.dat',true);

  writeln('Copy Complete!');
  writeln;

end.