home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS 1992 September
/
Simtel20_Sept92.cdr
/
msdos
/
qbasic
/
qbtree42.arc
/
SPEEDCHK.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-10-14
|
2KB
|
105 lines
DECLARE FUNCTION FileExists% (filename$)
DEFINT A-Z
REM $INCLUDE: 'qbtree42.bi'
CLS
DO
PRINT
PRINT "SPEEDCHK for QBTREE"
PRINT
INPUT "Enter your test drive (A,B...):"; drv$
PRINT
PRINT " 1 = test PutKey()"
PRINT " 2 = test AddRecord()"
PRINT " 3 = quit the test >";
INPUT "", sel$
sel = VAL(sel$)
LOOP WHILE sel < 1 OR sel > 3
PRINT
IF sel = 3 THEN LOCATE 24, 1: SYSTEM
k1$ = drv$ + ":key09876.$$$"
d1$ = drv$ + ":dat09876.$$$"
PRINT "CREATING "; k1$;
stat = CreateKeyFile(k1$, 7)
IF stat THEN PRINT " stat:"; stat: STOP
PRINT
PRINT "CREATING "; d1$;
stat = CreateDataFile(d1$, 9)
IF stat THEN PRINT " stat:"; stat: STOP
PRINT
PRINT " OPENING "; k1$;
stat = OpenKeyFile(k1$, 0)
IF stat THEN PRINT " stat"; stat: STOP
PRINT
PRINT " OPENING "; d1$;
stat = OpenDataFile(d1$, 0)
IF stat THEN PRINT " stat:"; stat: STOP
PRINT
SELECT CASE sel
CASE 1
PRINT
INPUT "How many keys to make"; X$
X! = VAL(X$)
d$ = "/d"
i = 0
ke$ = "K" + STR$(i)
da$ = ke$ + d$
stat = AddRecord(0, 0, ke$, da$)
IF stat THEN PRINT stat: STOP
PRINT
PRINT "PutKey() working";
st! = TIMER
FOR i = 1 TO X!
ke$ = "K" + STR$(i)
stat = PutKey(0, 0, ke$)
IF stat THEN PRINT stat: STOP
NEXT
et! = TIMER
tt! = et! - st!
PRINT X!; "times took"; tt!; "secs"
PRINT
CASE 2
PRINT
INPUT "How many keys+records to make"; X$
X! = VAL(X$)
d$ = "/d"
i = 0
ke$ = "K" + STR$(i)
da$ = ke$ + d$
stat = AddRecord(0, 0, ke$, da$)
IF stat THEN PRINT stat: STOP
PRINT
PRINT "AddRecord() working";
st! = TIMER
FOR i = 1 TO X!
ke$ = "K" + STR$(i)
da$ = ke$ + d$
stat = AddRecord(0, 0, ke$, da$)
IF stat THEN PRINT stat: STOP
NEXT
et! = TIMER
tt! = et! - st!
PRINT X!; "times took"; tt!; "secs"
PRINT
CASE ELSE
END SELECT
PRINT "CLOSING "; k1$;
stat = CloseKeyFile(0)
IF stat THEN PRINT " stat"; stat: STOP
PRINT
PRINT "CLOSING "; d1$;
stat = CloseDataFile(0)
IF stat THEN PRINT " stat:"; stat: STOP
PRINT
PRINT "DELETING "; k1$; " and "; d1$
KILL k1$
KILL d1$
PRINT
PRINT "done."