home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / qbasic / qbtree42.arc / SPEEDCHK.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-10-14  |  2.1 KB  |  105 lines
  1. DECLARE FUNCTION FileExists% (filename$)
  2.  
  3. DEFINT A-Z
  4. REM $INCLUDE: 'qbtree42.bi'
  5. CLS
  6. DO
  7. PRINT
  8. PRINT "SPEEDCHK for QBTREE"
  9. PRINT
  10. INPUT "Enter your test drive (A,B...):"; drv$
  11. PRINT
  12. PRINT "  1 = test PutKey()"
  13. PRINT "  2 = test AddRecord()"
  14. PRINT "  3 = quit the test    >";
  15. INPUT "", sel$
  16. sel = VAL(sel$)
  17. LOOP WHILE sel < 1 OR sel > 3
  18. PRINT
  19. IF sel = 3 THEN LOCATE 24, 1: SYSTEM
  20.  
  21. k1$ = drv$ + ":key09876.$$$"
  22. d1$ = drv$ + ":dat09876.$$$"
  23.  
  24. PRINT "CREATING "; k1$;
  25. stat = CreateKeyFile(k1$, 7)
  26. IF stat THEN PRINT "  stat:"; stat: STOP
  27. PRINT
  28. PRINT "CREATING "; d1$;
  29. stat = CreateDataFile(d1$, 9)
  30. IF stat THEN PRINT "  stat:"; stat: STOP
  31. PRINT
  32.  
  33. PRINT " OPENING "; k1$;
  34. stat = OpenKeyFile(k1$, 0)
  35. IF stat THEN PRINT "  stat"; stat: STOP
  36. PRINT
  37. PRINT " OPENING "; d1$;
  38. stat = OpenDataFile(d1$, 0)
  39. IF stat THEN PRINT "  stat:"; stat: STOP
  40. PRINT
  41.  
  42. SELECT CASE sel
  43. CASE 1
  44.    PRINT
  45.    INPUT "How many keys to make"; X$
  46.    X! = VAL(X$)
  47.    d$ = "/d"
  48.    i = 0
  49.    ke$ = "K" + STR$(i)
  50.    da$ = ke$ + d$
  51.    stat = AddRecord(0, 0, ke$, da$)
  52.    IF stat THEN PRINT stat: STOP
  53.    PRINT
  54.    PRINT "PutKey() working";
  55.    st! = TIMER
  56.    FOR i = 1 TO X!
  57.       ke$ = "K" + STR$(i)
  58.       stat = PutKey(0, 0, ke$)
  59.       IF stat THEN PRINT stat: STOP
  60.    NEXT
  61.    et! = TIMER
  62.    tt! = et! - st!
  63.    PRINT X!; "times took"; tt!; "secs"
  64.    PRINT
  65. CASE 2
  66.    PRINT
  67.    INPUT "How many keys+records to make"; X$
  68.    X! = VAL(X$)
  69.    d$ = "/d"
  70.    i = 0
  71.    ke$ = "K" + STR$(i)
  72.    da$ = ke$ + d$
  73.    stat = AddRecord(0, 0, ke$, da$)
  74.    IF stat THEN PRINT stat: STOP
  75.    PRINT
  76.    PRINT "AddRecord() working";
  77.    st! = TIMER
  78.    FOR i = 1 TO X!
  79.       ke$ = "K" + STR$(i)
  80.       da$ = ke$ + d$
  81.       stat = AddRecord(0, 0, ke$, da$)
  82.       IF stat THEN PRINT stat: STOP
  83.    NEXT
  84.    et! = TIMER
  85.    tt! = et! - st!
  86.    PRINT X!; "times took"; tt!; "secs"
  87.    PRINT
  88. CASE ELSE
  89. END SELECT
  90.  
  91. PRINT "CLOSING "; k1$;
  92. stat = CloseKeyFile(0)
  93. IF stat THEN PRINT "  stat"; stat: STOP
  94. PRINT
  95. PRINT "CLOSING "; d1$;
  96. stat = CloseDataFile(0)
  97. IF stat THEN PRINT "  stat:"; stat: STOP
  98. PRINT
  99. PRINT "DELETING "; k1$; " and "; d1$
  100. KILL k1$
  101. KILL d1$
  102. PRINT
  103. PRINT "done."
  104.  
  105.