Category : Files from Magazines
Archive   : IBM9008.ZIP
Filename : TESTDEMO.BAS

rint symbol table"
PRINT "ill table"
PRINT "earch for entry"
PRINT "sore table to disk"
PRINT "etrieve table from disk"
PRINT
PRINT "uit"
PRINT
INPUT "Enter option: "; Response$

PRINT

SELECT CASE UCASE$(Response$)
CASE "Q"
EXIT DO
CASE "C"
SymTbl$ = ""
INPUT "Enter number of records to size table:"; NbrRecs
Successful = SymCreateTbl(SymTbl$, Sym, NbrRecs)
IF NOT Successful THEN EXIT DO
CASE "A"
INPUT "Enter symbol: "; Symbol$
IF INSTR(Symbol$, Sym.Delim) <> 0 THEN
PRINT "Error - Symbol contains the delimiter"
GOSUB Pause
ELSE
IF NOT SymDefine(SymTbl$, Symbol$, Sym) THEN
PRINT Symbol$; " - Can't add duplicate symbols."
GOSUB Pause
END IF
END IF
CASE "D"
INPUT "Enter symbol: "; Symbol$
IF INSTR(Symbol$, Sym.Delim) <> 0 THEN
PRINT "Error - Symbol contains the delimiter"
GOSUB Pause
ELSE
IF NOT SymUnDefine(SymTbl$, Symbol$, Sym) THEN
PRINT Symbol$; " - Can't delete undefined symbol."
GOSUB Pause
END IF
END IF
CASE "P"
IF Sym.NbrEntries THEN
CALL SymDisplayTbl(SymTbl$, Sym)
ELSE
PRINT "No symbols defined"
END IF
GOSUB Pause
CASE "F"
INPUT "Enter the # of symbols to create: "; NLoops
A! = TIMER
FOR I = 1 TO NLoops
L: Symbol$ = RandomSymbol$(Sym)
IF NOT SymDefine(SymTbl$, Symbol$, Sym) THEN
BEEP 'Collision
GOTO L
END IF
LOCATE 20, 20: PRINT USING "#### "; I;
PRINT Symbol$ + SPACE$(30)
NEXT I
B! = TIMER
PRINT "Elapsed time for setting";
PRINT USING " ##,### entries: ###.##"; NLoops; B! - A!
PRINT USING "##.##### "; (B! - A!) / NLoops;
PRINT "seconds per create"
GOSUB Pause
CASE "S"
INPUT "Enter the number of lookups: "; NLoops
TestSym$ = SymGet$(SymTbl$, Sym.NbrEntries - 1, Sym)
PRINT "Looking for "; TestSym$
A! = TIMER
FOR I = 1 TO NLoops
S% = SymDefined(SymTbl$, TestSym$, Sym)
NEXT I
B! = TIMER
PRINT "Elapsed time for lookups";
PRINT USING " ##,### entries: ###.##"; NLoops; B! - A!
PRINT USING "##.##### "; (B! - A!) / NLoops;
PRINT "seconds per lookup"
GOSUB Pause
CASE "T" 'Store table to the file
KILL "SYMBOL.TBL"
OPEN "B", 1, "Symbol.tbl"
PUT 1, , Sym
PUT 1, , SymTbl$
CLOSE 1
CASE "R" 'Get the table from file
OPEN "B", 1, "Symbol.tbl"
GET 1, , Sym
IF Sym.TblLength > 0 THEN
SymTbl$ = SPACE$(Sym.TblLength)
GET 1, , SymTbl$
END IF
CLOSE 1
CASE ELSE
BEEP
END SELECT
LOOP
ELSE
PRINT "Couldn't pre-allocate table"
END IF

END

Pause:
PRINT : PRINT "Press a key to continue...."
WHILE LEN(INKEY$) = 0: WEND
RETURN

'----------------------------------------------------------------
'Create a random symbol for test lookups
'----------------------------------------------------------------
FUNCTION RandomSymbol$ (Parms AS SymbolTableParameters)

R$ = ""

FOR I = 1 TO INT((Parms.Width - 5 + 1) * RND + 5)

L1: C% = INT((26 * RND + 65) 'A to Z
IF C% = ASC(Parms.Delim) THEN GOTO L1:
R$ = R$ + CHR$(C%)

NEXT I

RandomSymbol$ = R$

END FUNCTION