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