data "1", "one", "2", "two", "3", "three", "4", "four", "5", "five"

dim keys$(5), values$(5)
dim hash$(5)

for i = 1 to arraysize(keys$(), 1)
    read a$, b$
    keys$(i) = a$
    values$(i) = b$
next i

for i = 1 to arraysize(values$(), 1)
    temp = val(keys$(i))
    hash$(temp) = values$(i)
next i

for i = 1 to arraysize(hash$(), 1)
    print keys$(i), " ", hash$(i)
next i
end