14 lines
292 B
Text
14 lines
292 B
Text
/* NetRexx */
|
|
options replace format comments java crossref symbols
|
|
|
|
surname = 'Unknown' -- default value
|
|
surname['Fred'] = 'Bloggs'
|
|
surname['Davy'] = 'Jones'
|
|
|
|
try = 'Fred'
|
|
say surname[try] surname['Bert']
|
|
|
|
-- extract the keys
|
|
loop fn over surname
|
|
say fn.right(10) ':' surname[fn]
|
|
end fn
|