home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SOURCE.EXE / F_DONBEP.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  475 b   |  20 lines
  1. *****************************************************************
  2. FUNCTION DONEBEEP (howmany)
  3. *****************************************************************
  4.  
  5. * Sounds a dual tone on completion of an operation
  6.  
  7. * Copyright(c) 1991 -- James Occhiogrosso
  8.  
  9. * Set number of beeps to one if not passed or not numeric
  10. howmany = IF(VALTYPE(howmany) != 'N', 1, howmany)
  11.  
  12. * Sound the tone
  13. DO WHILE howmany-- > 0
  14.     TONE(650,1)
  15.     TONE(850,1)
  16. ENDDO
  17.  
  18. RETURN NIL
  19.  
  20.