home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / tipi / bench.tpi < prev    next >
Text File  |  1993-06-14  |  251b  |  18 lines
  1. defstr t$
  2. cls
  3. "Calculating performance..." print$
  4. time$ t$ store
  5. begin
  6.  time$ t$ fetch =$ not
  7. until
  8. time$ t$ store
  9. 0
  10. begin
  11.  1 + time$ t$ fetch =$ not
  12. until
  13. cls
  14. "TIPI performance index is " print$
  15. print cr
  16. begin
  17.  inkey$ len drop$
  18. until