! SAY  
!  Send text to the control room speech synthesizer.
!
! call say(source, message)
!    where: source is a string identifying the calling exe
!           message is the text to be spoken in the control room
!    The message gets logged and is bumped 
!       ahead of low priority messages.
!
! mjf 2011.12.21
!


subroutine say(source, message)

  use str_find_first_substring_module

  character(*) source, message
  integer pa_pre, j, k
  logical isl

  isl=str_find_first_substring(message,j,k,'[]')
  if(isl) then		!announce publicly
    call vmgcmd('CSR PA ONOFF',1,1,pa_pre)
    call vxputn('CSR PA ONOFF', 1, 1, 1)  !turn on Lab PA
    if(pa_pre.eq.0) call csr_sleep(1000)
  else
    call vxputn('CSR PA ONOFF', 1, 1, 0)  !turn off Lab PA
  endif

  ! Send to the Linux talker
  !call SayToTopic(.true.,message)
  call say_too(message)
  call speech_buff_add(source,message,.true.)

end subroutine say