Data commit

Task/Menu/Ring/menu.ring

@@ -0,0 +1,19 @@
+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]