|
|||
Скачать Disk13IO - Direct Disk (Int 13h) I/O Routines
21.11.1988 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. | |||
© 2009–2024 Russian Pascal Developer Network.
Техническая площадка: ISBIZ Хостинг |