DECLARE associative ASSOC STRING

associative("abc") = "first three"
associative("mn") = "middle two"
associative("xyz") = "last three"

LOOKUP associative TO keys$ SIZE amount
FOR i = 0 TO amount - 1
    PRINT keys$[i], ":", associative(keys$[i])
NEXT