home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / PERFORM / DISKIO2.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-13  |  700b  |  33 lines
  1. {$IFDEF VER70}
  2. {$A+,B-,D-,E-,F-,G+,I-,L-,N-,O-,P-,Q-,R-,S+,T-,V-,X+}
  3. {$ELSE}
  4. {$A+,B-,D-,E-,F-,G+,I-,L-,N-,O-,R-,S+,V-,X+}
  5. {$ENDIF}
  6. {$M 16384,0,655360}
  7. Const BufSize = 8192;
  8. var Buffer: Array[1..BufSize] of Char;
  9.     Bron,Doel: File;
  10.     gelezen: Word;
  11.  
  12. var TimerTick: Word absolute $0040:$006C;
  13.     Time: Real;
  14.  
  15. begin
  16.   Time := TimerTick;
  17.  
  18.   Assign(Bron,'input');
  19.   Reset(Bron,1);
  20.   Assign(Doel,'output');
  21.   Rewrite(Doel,1);
  22.  
  23.   repeat
  24.     BlockRead(Bron,Buffer,BufSize,gelezen);
  25.     BlockWrite(Doel,Buffer,gelezen)
  26.   until gelezen < BufSize;
  27.   Close(Bron);
  28.   Close(Doel);
  29.  
  30.   Time := (TimerTick - Time) / 18.2;
  31.   writeln(' Execution time was: ',Time:0:2,' sec.');
  32. end.
  33.