home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / ansi / playme.bas < prev   
Encoding:
BASIC Source File  |  1992-07-24  |  277 b   |  13 lines
  1. 'A lone play command is present in this module so error trapping is
  2. 'seperate from the main module. This decreases the size of the driver.
  3. DEFINT A-Z
  4. ErrorHandler:
  5. RESUME NEXT
  6.  
  7. SUB playme (A$)
  8.     ON ERROR GOTO ErrorHandler
  9.     PLAY A$
  10.     ON ERROR GOTO 0
  11. END SUB
  12.  
  13.