home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / DIVERSEN / TIPI2A / BENCH.TPI < prev    next >
Text File  |  1994-10-02  |  463b  |  25 lines
  1. # BENCH.TPI by Kent Peterson 10/2/94
  2.  
  3. cls 
  4. | This program gives a simple benchmark indicating how fast
  5. | a given computer will run a TIPI program. The higher the
  6. | number, the faster the computer.
  7. |
  8.  
  9. defstr t$
  10. "Calculating performance..." print$
  11. time$ t$ store
  12. begin
  13.  time$ t$ fetch =$ not
  14. until
  15. time$ t$ store
  16. 0
  17. begin
  18.  1 + time$ t$ fetch =$ not
  19. until
  20. row 0 locate
  21. "TIPI performance index is " print$
  22. print cr
  23. begin
  24.  inkey$ len drop$
  25. until