'================
'AssociativeArray
'================
indexbase 1 'default
dim string n[1000]
dim string d[1000]
int i,e
'
function dat(string s1,s2)
  for i=1 to e
    if n[i]=s1
      d[i]=s2
      return
    endif
  next
  'new element
  e++
  n[e]=s1
  d[e]=s2
end function
'
function dat(string s1) as string
  for i=1 to e
    if n[i]=s1
      return d[i]
    endif
  next
end function
'
'TEST
'
'pseudo assignment
dat("A")="1"
dat("B")="2"
print dat("A")
dat("A")=10
print dat("A")
print e

