home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / LANGUAGS / MODULA2 / MTMOD2.LBR / MTREAD.MZD / MTREAD.MOD
Text File  |  2000-06-30  |  768b  |  29 lines
  1. MODULE MTREAD;
  2.  
  3. (* Program to measure the speed of reading sequential *)
  4. (* data to an empty floppy disk.                      *)
  5.  
  6. FROM InOut IMPORT WriteString, WriteLn;
  7. FROM FileSystem IMPORT File, Lookup, Reset, ReadChar, Close;
  8.  
  9. CONST RecordNumber = 512;
  10.       BlockLen = 128;
  11.       Filename = 'B:TEMPO.DAT';
  12.  
  13. VAR Ch : CHAR;
  14.     I,J : INTEGER;
  15.     F : File;
  16.     NewFile : BOOLEAN;
  17.  
  18. BEGIN
  19.    NewFile := FALSE; (* Create new file if not found *)
  20.    Lookup(F, Filename, NewFile);
  21.    Reset(F);
  22.    FOR I := 1 TO RecordNumber DO
  23.        FOR J := 1 TO BlockLen DO
  24.           ReadChar(F,Ch)
  25.        END;
  26.    END;
  27.    Close(F);
  28.    WriteString('DONE'); WriteLn;
  29. END MTREAD.