Turbo Toolbox/Turbo_Toolbox.iso/sharew/dobject/menutest.do

Text File | 1991-06-13 | 176 b | 8 lines

/*
    create a menu and execute it
*/
a= new(Menu,1,3,3,5,31,31,[1.0,2.0,3,4,5,6,7,8,9,10,11,12,13,14,15]," test ");
b = choice(a,1);
remove(a);
? "result of menu is ",b;