Search a list: Difference between revisions
m
→{{header|M2000 Interpreter}}
Line 2,154:
s$=lcase$(needle$)
While exist(Haystack, s$, n)
\\ number, key and position (zero based convert to one based)
Print n, Eval$(HayStack!), Eval(HayStack!)+1
n++
End While
If n=1 Then Print needle$;" not found"
| |||