home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / FUN_EX / TESTFUN.PRG < prev   
Text File  |  1993-09-19  |  313b  |  16 lines
  1.    CLEAR SCREEN
  2.    FOR X := 1 TO 100000
  3.      @ 0,0 SAY X
  4.      @ 1,0 SAY MakeItBomb("f:\test.dat")
  5.    NEXT X
  6.  
  7. Function MakeItBomb(cName)
  8. Local h
  9. Local nCount := 0
  10.   If (h := fOpen(cName) ) != -1
  11.     // nCount := fReadLong(h)          (not needed to caues bomb)
  12.     fClose(h)
  13.   Endif
  14. Return nCount
  15.  
  16.