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
Wrap
Text File
|
1993-09-19
|
313b
|
16 lines
CLEAR SCREEN
FOR X := 1 TO 100000
@ 0,0 SAY X
@ 1,0 SAY MakeItBomb("f:\test.dat")
NEXT X
Function MakeItBomb(cName)
Local h
Local nCount := 0
If (h := fOpen(cName) ) != -1
// nCount := fReadLong(h) (not needed to caues bomb)
fClose(h)
Endif
Return nCount