dim h as hashtable
h.size=300
dim counter as integer
dim key as string
dim counter2 as integer
'put some data into the hashtable

for counter=1 to 300
  key=""
  for counter2 = 1 to 9
    key=key+chr$(rnd(26)+65)
  next counter2
  if h.setaddress=-1 then h.put(key)'it must be an unique key

next counter
h.put("JOHN")'sets the address to this key and adds the key

h.putdata("age is 45")'sets additional data


'measuring time to search for it

dim d as double
d=timer
for counter=1 to 100000
  h.address=-1
  h.setaddress("JOHN")
next counter
'show result

key="100000 seeks takes "+str$(timer-d)+" seconds"+chr$(13)
key=key+"additional data is : "+h.getdata
showmessage key
'the additional data can be used in combination with the field$ statement.