home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 08_09 / format.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-05-10  |  1.6 KB  |  50 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     FORMAT.PAS                         *)
  3. (*     Verbesserung der Routine "Sicheres Format" aus     *)
  4. (*          PASCAL 3/88 unter Turbo Pascal 4.0            *)
  5. (*  (c) 1988 by Otto Peter Prem & PASCAL International    *)
  6. (* ------------------------------------------------------ *)
  7. Program Format;
  8. {$M $4000,0,0}                (* 16 kB Stack, 0 Byte Heap *)
  9. uses crt, dos;
  10. var p:  string;
  11.     i:  integer;
  12.     ch: char;
  13.  
  14. Procedure Fehler(n: integer);
  15. begin
  16.   case n of
  17.     1: writeln('Das Formatierprogramm konnte nicht ',
  18.                'gestartet werden!');
  19.     2: writeln('keine oder falsche Laufwerksangabe!');
  20.     3: writeln('ungültige Parameter!');
  21.   end;
  22. end;
  23.  
  24. begin
  25.   ClrScr;
  26.   if ParamCount = 1 then begin
  27.     p := ParamStr(1);
  28.     for i := 1 to length(p) do p[i] := UpCase(p[i]);
  29.     if p[2] = ':' then begin
  30.       if p[1] >= 'A' then begin
  31.         ch := 'J';
  32.         if p[1] >= 'C' then begin
  33.           write('wollen Sie wirklich Ihre Festplatte ',
  34.                 'formatieren (J/N)? ');
  35.           repeat
  36.             ch := readkey;
  37.             ch := upcase(ch)
  38.           until ch in ['J','N'];
  39.           writeln(ch); writeln;
  40.         end;
  41.         if ch = 'J' then begin
  42.           Exec('\FORMATX.COM',p);
  43.           if DosError <> 0 then Fehler(1);
  44.         end; end
  45.           else fehler(2); end
  46.   else if ParamCount = 0 then Fehler(2)
  47.          else Fehler(3)
  48. end.
  49. (* ------------------------------------------------------ *)
  50. (*                  Ende von FORMAT.PAS                   *)