Process MENU
''
'' COPYRIGHT (C) 1993, CACI Products Company.
'' AUTHOR: Steve Bailey
'' DATE: 9-22-93
'' DESCRIPTION:
''     This process controls an asyncronous menubar.  With this, the menu can
''     receive input WHILE the simulation is running.   This process will be
''     automatically suspended by the ACCEPT.F graphics routine.  It will 
''     wake up when the call the ACCEPT.F returns (i.e. when the STATUS 
''     variable in the menu's control routine is set to 1.
''

define FIELD.ID as a text variable

show MENU.PTR with "menu.frm"
let FIELD.ID = ACCEPT.F(MENU.PTR, 'MENUBAR.CTL')
let FIELD.ID = FIELD.ID    '' prevent warnings

let SIMULATION.DONE = .TRUE

End
