From: "The Librarian" 
Hi There,
Using Jim's suggestion, the:
  integer MakeSound=1
was inserted in the global section of the tse.uui file in version 2.5
The proc OnFirstEdit() was re-written as:
proc OnFirstEdit()
if MakeSound == 1
Sound(50) Delay(2) NoSound()
endif
end
Then using his key suggestion to envoke the proc, I added the ending so
that when the key was pressed, I'd get either a long beep for
activation) or a short one when deactivated.
 MakeSound = iif( MakeSound==1,0,1) Sound(iif(MakeSound,800,400)) 
Delay(9) NoSound()
Thanks Jim.  Now I can get back to work!
BTW, I tried using query in the following, but couldn't get it to work.
It only took me forty-five minutes to find it in the manual where query
had  to be used with configuration variables.  But after some
experimenting, Bingo!:
Sound(iif(MakeSound,800,400)) Delay(9) NoSound()
Skip
---
---------------