15 lines
355 B
Text
15 lines
355 B
Text
a=("A", "B", "C", "D", "E", "F", "Z")
|
|
k=Each(a)
|
|
While k {
|
|
Print Array$(k),
|
|
k=Each(a, k^+2) ' set start again
|
|
}
|
|
Print
|
|
\\ a list of keys (unique keys allowed)
|
|
Inventory b="A", "B", "C", "D", "E", "F", "Z"
|
|
k=Each(b)
|
|
While k {
|
|
Print Eval$(k), ' return keys as values, because no value exist yet for each key.
|
|
k=Each(b, k^+2)
|
|
}
|
|
Print
|