Revision as of 17:21, 1 September 2009 (view source) Rdm (talk \| contribs) (add error handling) ← Older edit		Revision as of 17:22, 1 September 2009 (view source) Rdm (talk \| contribs) (bug fix) Newer edit →
Line 153: =={{header\|J}}== <lang J>(select=: ({::~ 'choose a number 0..' 0&".@prompt@, ': ',~ ":@<:@# [ i.@# smoutput@,&":&> ' '&,&.>) :: (select@([ smoutput bind 'please choose a valid number'))</lang> Example use:

Menu: Difference between revisions

Menu (view source)