home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol027 / dtst.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  871 b   |  46 lines
  1. EXTERNAL ATSMON::DTST;
  2.  
  3.  
  4. {$I+}
  5. function DTEST (DRIVE:char): INTEGER;
  6. TYPE
  7.      FI = FILE OF ARRAY [1..128] OF INTEGER;
  8.      FILESTRING = string 14;
  9. VAR
  10.      CONTROL : ARRAY[1..128] OF INTEGER;
  11.  
  12.      TEST_ERRORS,
  13.      Y,
  14.      X    : INTEGER;
  15.      F    : FI;
  16.      REC:ARRAY[1..128] OF INTEGER;
  17.      DR   : string 14;
  18.  
  19. function ERASE (OLD_FILE:filestring):boolean; external;
  20.  
  21. BEGIN
  22.      DR := DRIVE;
  23.      TEST_ERRORS := 0;
  24.      APPEND(DR,':DELETE--.ME-');
  25.      REWRITE(DR,F);
  26.  
  27.      FOR X := 1 TO 128 DO
  28.      BEGIN
  29.           REC[X] := MAXINT;
  30.           CONTROL[X] := MAXINT
  31.      END;
  32.  
  33.      FOR X := 1 TO 12 DO
  34.           WRITE(F,REC);
  35.  
  36.      RESET(DR,F);
  37.      FOR X := 1 TO 12 DO
  38.      BEGIN
  39.           READ(F,REC);
  40.           IF REC <> CONTROL THEN
  41.                TEST_ERRORS := TEST_ERRORS+1
  42.      END;
  43.      if ERASE(DR) then
  44.  
  45. END; 
  46. .