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