5 lines
193 B
Text
5 lines
193 B
Text
|
textMenu[data_List] := (MapIndexed[Print[#2[[1]], ") ", #] &, {a, b, c}];
|
||
|
|
While[! (IntegerQ[choice] && Length[data] > choice > 0),
|
||
|
|
choice = Input["Enter selection"]];
|
||
|
|
data[[choice]])
|