Process MENUPROC

  '' Goldmine Simulation                                       August 2, 1988
  '' CACI Products Company
  
  '' Initiate an asynchronous read on the form which contains the menubar.


  Define FIELD.ID as text variable
  Define MENU as pointer variable
  Define MENUCURSOR as pointer variable


  ''Give ACCEPT an initial cursor location (in world coordinates since created
  ''under a transform).
  Create a SHAPE called MENUCURSOR
  Let LOCATION.A(MENUCURSOR) = LOCATION.F(0,0)
  Let DINPUT.V = MENUCURSOR

  Show MENU with "goldmenu.frm"
  Let FIELD.ID = ACCEPT.F(MENU,'MENUBAR.CTL')
  Let FIELD.ID = FIELD.ID

  Activate a FINAL.REPORT now


End ''MENUPROC
