program delboot;

uses crt,device;

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

begin

  if paramstr(1)='/?' then
    begin
      writeln;
      writeln('DELBOOT written by Franz-Josef Ayestaran (c)1999');
      writeln('-------');
      writeln;
      writeln('This program will erase the boot sector on an MS-DOS');
      writeln('or UNIX floppy disk in drive A:');
      writeln;
      halt;
    end;

  writeln;
  write('Erasing boot sector on drive A: ... ');
  fill_sector_buffer(0);
  write_sector(0,0);
  write_sector(1,0);
  writeln('completed');
  writeln;

end.