20 lines
384 B
Text
20 lines
384 B
Text
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
|