>>> Continued from previous message
                PRINT : PRINT "Not enough room in word table!"
                END
            END IF
            EXIT SUB
        'is this what we're looking for?
        ELSEIF WordTable$(KeyIndex) = A$ THEN
            'increment the frequency of the entry
            Counts(KeyIndex) = Counts(KeyIndex) + 1
            EXIT SUB
        'this entry contains a string other than what we're looking for:
        'adjust the KeyIndex and try again
        ELSE
            collisions = collisions + 1
            LOCATE 5, 1: PRINT "Collisions: "; collisions
            KeyIndex = KeyIndex - Offset
            'wrap back the keyindex if it's <0
            IF KeyIndex < 0 THEN
                KeyIndex = KeyIndex + TableSize
            END IF
        END IF
    LOOP
END SUB
=======>8 SAMPLE 5.0 ENDS HERE 8<=========
 * SLMR 2.1a * MAXLIB For PB v1.2 - Access arrays and files in EMS/XMS!
--- WILDMAIL!/WC v4.12 
---------------