>I am moving a foxpro2.6 app to windows.
>
>Every thing works satisfactury except these menus.
>
>Fox some reason my sample code dissapeared.

You can use < pre > tag ( w/o spaces) to preserve your code and formatting

>Here it is again.
>

>picoeps = "@*T Sales;Returns;Product Lookup;Open Cashdrawer;EXit"
>mnuoeps = 2
>@00.05,00.05 get mnuoeps pict picoeps SIZE 2,24,0
>read

>
>I would like to use this type of menu if possible. I have almost 150 similarly coded.


Default choice doesn't work for me even in Fox2.6. However, you can use OBJECT clause of the READ command to get it to work.

picoeps = "@*T Sales;Returns;Product Lookup;Open Cashdrawer;EXit"
mnuoeps = 2
@00.05,00.05 get mnuoeps pict picoeps SIZE 2,24,0
READ OBJECT (mnuoeps )