19 lines
368 B
Text
19 lines
368 B
Text
|
proc indexAssoc index . array[][] item .
|
||
|
|
for i = 1 to len array[][]
|
||
|
|
if array[i][1] = index
|
||
|
|
item = array[i][2]
|
||
|
|
break 2
|
||
|
|
.
|
||
|
|
.
|
||
|
|
item = number "nan"
|
||
|
|
.
|
||
|
|
proc indexStrAssoc index$ . array$[][] item$ .
|
||
|
|
for i = 1 to len array$[][]
|
||
|
|
if array$[i][1] = index$
|
||
|
|
item$ = array$[i][2]
|
||
|
|
break 2
|
||
|
|
.
|
||
|
|
.
|
||
|
|
item$ = ""
|
||
|
|
.
|