Menu

From Rosetta Code
Revision as of 06:18, 20 February 2021 by Drkameleon (talk | contribs) (Replaced content with "=={{header|Arturo}}== <lang rebol>menu: function [items][ selection: neg 1 while [not? in? selection 1..size items][ loop.with:'i items 'item -> print ~"|i...")

Arturo

<lang rebol>menu: function [items][ 

   selection: neg 1
   while [not? in? selection 1..size items][
       loop.with:'i items 'item -> print ~"|i+1|. |item|"
       inp: input "Enter a number: "
       if numeric? inp ->
           selection: to :integer inp
   ]

print items \ selection-1 ]

menu ["fee fie" "huff and puff" "mirror mirror" "tick tock"]</lang>

Retrieved from "https://rosettacode.org/wiki/Menu?oldid=113548"