home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / modula2 / mtmod2.lbr / MTWRIT.MZD / MTWRIT.MOD
Text File  |  1987-08-30  |  768b  |  31 lines
  1. MODULE MTWRITE;
  2.  
  3. (* Program to measure the speed of writing sequential *)
  4. (* data to an empty floppy disk.                      *)
  5.  
  6. FROM InOut IMPORT WriteString, WriteLn;
  7. FROM FileSystem IMPORT File, Lookup, Reset, WriteChar, Close;
  8.  
  9. CONST RecordNumber = 512;
  10.       BlockLen = 127;
  11.       Filename = 'B:TEMPO.DAT';
  12.  
  13. VAR Ch : CHAR;
  14.     I,J : INTEGER;
  15.     F : File;
  16.     NewFile : BOOLEAN;
  17.  
  18. BEGIN
  19.    Ch := 'A'; (* Initialize character *)
  20.    NewFile := TRUE; (* Create new file if not found *)
  21.    Lookup(F, Filename, NewFile);
  22.    Reset(F);
  23.    FOR I := 1 TO RecordNumber DO
  24.        FOR J := 1 TO BlockLen DO
  25.           WriteChar(F,Ch)
  26.        END;
  27.        WriteChar(F,36C)
  28.    END;
  29.    Close(F);
  30.    WriteString('DONE'); WriteLn;
  31. END MTWRITE.