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