home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CLIPB52.ZIP / MARTIN.ZIP / SPEED3.PRG < prev    next >
Encoding:
Text File  |  1989-06-01  |  444 b   |  26 lines
  1. ********************************
  2. * SPEED3.PRG                   *
  3. * Written By Gregory A. Martin *
  4. ********************************
  5.  
  6. * This example clocks the time taken to complete the simple test in a
  7. * multi-user application using record locking.
  8.  
  9. SET EXCLUSIVE OFF
  10.  
  11. USE Speed
  12.  
  13. Second1 = SECONDS()
  14.  
  15. FOR Temp = 1 TO 10000
  16.   SKIP 1
  17.   RLOCK()
  18.   UNLOCK
  19.   SKIP -1
  20. NEXT Temp
  21.  
  22. ? "Done...", SECONDS() - Second1
  23.  
  24. USE
  25. RETURN
  26.