Скачать Disk13IO - Direct Disk (Int 13h) I/O Routines

Program DiskFormat;
Uses Crt,Dos,DISK13IO;
const
  CR  = #13;
  ESC = #27;
var
  DriveNumber,
  DriveType    : byte;
  UserChoice   : char;
begin
  ClrScr;
  Writeln('TEST DISK FORMAT PROGRAM');
  Writeln;
  Write('Enter drive letter (A or B, [Esc] to Exit): ');
  repeat
    UserChoice:=UpCase(Readkey);
    if UserChoice = ESC then Halt;
  until UserChoice in ['A','B'];
  Writeln;
  Writeln;
  DriveNumber := Ord(UserChoice)-65;
  Writeln('  1 = 360K 5-1/4"    3 = 720K  3-1/2"');
  Writeln('  2 = 1.2M 5-1/4"    4 = 1.44M 3-1/2"');
  Writeln;
  Write('Enter drive type ([Esc] to Exit): ');
  repeat
    UserChoice:=Readkey;
    if UserChoice = ESC then Halt;
  until UserChoice in ['1'..'4'];
  DriveType:=Ord(UserChoice)-48;
  Writeln;
  Writeln;
  Write('Insert blank disk in drive ',
        Chr(DriveNumber+65),
        ' and press [Return] ([Esc] to abort)');
  repeat
    UserChoice:=Readkey;
    if UserChoice = ESC then Halt;
  until UserChoice=CR;
  if FormatDisk(DriveType,DriveNumber,0,
                'TEST VOLUME',True,True) then ;
end.