@PLay("Sound","1800,5000")

/ =================== DELAY ============
SubRoutine srDelay(vDelay)             //Creates a delay of vDelay seconds

/*      Frequency of 20000 was chosen to be at the high end of the scale
     of human frequency which is normally between 15.0 and 20,000.
     Remember that there is a high frequency tone being generated during
     the time of this delay.                 */

     vDelay = vDelay * 1000                       //duration of 1000 = 1 second (rough)
     vTemp = "20000," & @STR(vDelay)      
     @Play("Sound",vTemp)

End subroutine

We tried to pick names that were unlikely to collide

// =============== PLAY WAV SOUND ============
SubRoutine srPlaySound(vSound as String)             //Plays a WAV file

/* This uses a utility, wav.exe, freeware available from
http://www.cmdtools.com/files/wav.zip ; /q is quiet mode. /vnnn is volume
Properties of command need to be set to run in minimized mode.
Basic structure example is on the next line:
n = @SHELL("C:\Utils\wav.exe C:\Windows\media\chimes.wav /q /v100")

SubRoutine would be called like srPlaySound(ALARM)
A database of sound files is created, each with a unique User-Friendly name. 
That name (ID) is looked up to retrieve the name and
path of the wav file.  This allows different locations for files.
A. The path XLU could be eliminated and the path can be hardcoded.
B. An XLU could also be done for sound program to allow other file types
such as MIDI.  That returned value would replace "C:\Utils\wav.exe".
C.  The value for volume could also become a variable. */

vSoundFile = @XLU(@FN,vSound,"frmSounds!ID","SoundFile")
vSoundPath = @XLU(@FN,vSound,"frmSounds!ID","SoundFilePath")
n = @SHELL("C:\Utils\wav.exe " & vSoundPath & "\" & vSoundFile & " /q /v100")

End subroutine