Process PALETTE
''
'' COPYRIGHT (C) 1996, CACI Products Company.
'' AUTHOR: Steve Bailey
'' DATE: 2-29-96
'' DESCRIPTION:
''     This process controls an asyncronous palette.  With this, the palette 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 palette's control routine is set to 1.
''

define PALETTE.PTR as a pointer variable
define FIELD.ID as a text variable

show PALETTE.PTR with "palette.frm"
let FIELD.ID = ACCEPT.F(PALETTE.PTR, 'PALETTE.CTL')
let FIELD.ID = FIELD.ID    '' prevent warnings

End
