home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / drdobbs / 1988 / 02 / porter / porter.ls2 < prev   
Text File  |  1979-12-31  |  768b  |  38 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9. Program cerrtest;
  10.  
  11.     { Test critical error handler }
  12.  
  13. Uses  crt, dos, criterr;
  14.  
  15. Var testFile   : text;
  16.     n, ignored : integer;
  17.  
  18. Begin
  19.   {$I-}
  20.   ClrScr;
  21.   InstallCEH;
  22.   For n := 1 to 10 do
  23.     Writeln ('This is output line ', n);
  24.   Assign (testFile, 'A:TEST.FIL');
  25.  
  26.   Repeat
  27.     Rewrite (testFile);
  28.     Ignored := IOResult;           { clear system error status }
  29.   Until criticalActionCode <> 'R';
  30.  
  31.   Writeln ('After disk attempt, criticalErrorOccurred = ',
  32.             criticalErrorOccurred);
  33.   Writeln (' and criticalErrorCode = ', criticalErrorCode);
  34.   Writeln (' and criticalErrorDrive = ', criticalErrorDrive);
  35.   Writeln (' and criticalActionCode = ', criticalActionCode);
  36.   {$I+}
  37. End.
  38.