20 lines
661 B
Plaintext
20 lines
661 B
Plaintext
aList = ["fee fie", "huff and puff", "mirror mirror", "tick tock"]
|
|
selected = menu(aList, "please make a selection: ")
|
|
see "" + selected + nl
|
|
|
|
func menu aList, prompt
|
|
ndex = 1
|
|
while index>0 and index<=len(aList)
|
|
for index = 1 to len(aList)
|
|
if aList[index]!="" see "" + index + " : " + aList[index] + " " ok
|
|
next
|
|
see nl
|
|
see prompt
|
|
give select
|
|
index = number(select)
|
|
see "" + aList[index] + nl
|
|
if select!=string(index) index = -1 ok
|
|
if index>=0 if index<=len(aList) if aList[index]="" index = -1 ok ok ok
|
|
end
|
|
return aList[index]
|