'**** HEADER ************************************************************
'SOUNDLIB.PF3

'This program is the CONFIDENTIAL and PROPRIETARY property of Applied
'Resource Technologies, Inc.  Any unauthorized use, reproduction or
'transfer of this program is strictly prohibited.  This is an unpublished
'work, and is subject to limited distribution and restricted disclosure
'only.  ALL RIGHTS RESERVED.

'Copyright (c) 1990-1991 Applied Resource Technologies, Inc.
'2305 Cedar Springs Road, Suite 150, Dallas, Texas 75201 U.S.A.
'Voice: (214) 855-0449  FAX: (214) 969-7506  BBS: (214) 855-1347

'Description: Miscellaneous sound and tone functions

'**** FUNCTION DECLARATIONS *********************************************
'core
public   tone()              'produces common user informational sounds
'**** VARIABLE DECLARATIONS *********************************************
'library
public currlib
'core
'**** CODE **************************************************************


MAIN
local ptpsl
ptpsl = "soundlib"

if currlib = 0
     currlib = ptpsl
     lock module currlib
else
     if chr(32)|lower(currlib)|chr(32) !! chr(32)|ptpsl|chr(32)
          currlib = currlib & ptpsl
     end if
end if
END MAIN


function tone(type)
local i
if type == "attention"
     sound 1005 .02
     sound 1050 .02
     sound 1105 .02
     sound 1050 .02
     sound 1205 .02
     sound 1305 .02
elseif type == "done"
     sound 611 .1
     milli-wait 15
     sound 611 .1
     milli-wait 15
     sound 611 .1
     milli-wait 15
     sound 493 .3
elseif type == "error"
          sound 50  .05
     for i = 0 to 1
          sound 100 .10
          sound 200 .10
     end for
          sound 50  .05
elseif type == "wrong"
     for i = 0 to 10
          sound 200 .01
          sound 500 .02
     end for
end if
end function