9 lines
194 B
Text
9 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: "]
|
||
|
|
]]
|
||
|
|
]
|