I finally found an 'easy' way to do menus, without using interpret, or regutil library:
options ANSI menu.animal.0=3 /* I have 3 animals */ menu.animal.1='dog' menu.animal.2='cat' menu.animal.3='squirrel' menu.color.0=5 menu.color.1="green" menu.color.2='blue' menu.color.3='Yellow' menu.color.4='purple' menu.color.5='brown' call showMenu 'color' call showMenu 'animal' exit 0 showMenu: procedure expose menu. parse arg mymenu do index = 1 to value(menu.mymenu.0) say index'.'value(menu.mymenu.index) end return paul@fedora:~/myrex$ regina mymenu.rex 1.green 2.blue 3.Yellow 4.purple 5.brown 1.dog 2.cat 3.squirrel paul@fedora:~/myrex$ _______________________________________________ Freedos-devel mailing list Freedos-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/freedos-devel
