program saytest

  implicit none

  character*100 :: message
  call mnet_connectf('TEST')
  message = "Text talker advise priority testing.  Please ignore me."
  call say_advise("saytest",message)
  message = "Text talker high priority testing.  Please ignore me."
  call say("saytest",message)
  call mnet_disconnectf()
end program saytest