13 lines
325 B
Plaintext
13 lines
325 B
Plaintext
data "red", "255 50 50", "green", "50 255 50", "blue", "50 50 255"
|
|
data "my fave", "220 120 120", "black", "0 0 0"
|
|
|
|
myAssocList$ =""
|
|
|
|
for i =1 to 5
|
|
read k$
|
|
read dat$
|
|
call sl.Set myAssocList$, k$, dat$
|
|
next i
|
|
|
|
print " Key 'green' is associated with data item "; sl.Get$( myAssocList$, "green")
|