home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / taylmod2 / dhry.mod < prev    next >
Text File  |  1988-06-30  |  493b  |  21 lines
  1. (* $Title:'DHRY.MOD - Dhrystone 1.0 Main Module' *)  (* $Chip:86 *)
  2.  
  3. MODULE Dhrystone;
  4.  
  5. FROM InOut IMPORT Write, WriteString, WriteLn, ReadCard;
  6. FROM Dhrystone2 IMPORT Proc0;
  7.  
  8. VAR    iterations: CARDINAL;
  9.  
  10. BEGIN
  11.  
  12.   WriteString ('Dhrystone Benchmark');  WriteLn;
  13.   WriteString ('Enter number of iterations: ');  ReadCard (iterations);  WriteLn;
  14.   WriteString ('Benchmark running...');
  15.  
  16.   Proc0 (iterations);
  17.  
  18.   Write (7C);  WriteString ('Passed.');  WriteLn
  19.  
  20. END Dhrystone.
  21.