6 lines
175 B
Text
6 lines
175 B
Text
menu: function [items][
|
|
print either empty? items [""] [until [
|
|
repeat n length? items [print [n ":" items/:n]]
|
|
attempt [pick items to-integer ask "Your choice: "]
|
|
]]
|
|
]
|