Routine DISPLAY.MENUBAR
   ''This routine  will always be activ until we press QUIT-OK 
   ''Menubar will disappear when MENU.CTRL routine returns Status=1, 
   ''in our example when we click on QUIT-OK

   Define FIELD.NAME as text variables
   Define MENU.PTR as pointer variables

   Display MENU.PTR with "showmenu.frm"
   FIELD.NAME= accept.f(MENU.PTR,'MENU.CTRL')
End
