home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / UTILS / SHELL3A / SRC.ZIP / OPL / PLAY.OPL < prev    next >
Encoding:
Text File  |  1996-09-03  |  819 b   |  33 lines
  1. Rem ****************************************
  2. Rem * Shell3a external command - play.opl
  3. Rem * ╕ Nick Murray May 1996
  4. Rem *
  5. Rem * play - Play an audio .WVE file
  6. Rem ****************************************
  7. PROC play%:(n%)
  8. LOCAL ret%,vol%,buf$(128),pstat%
  9.     ONERR ErrTrap::
  10. Rem Check the arguments
  11.     IF n%<2 OR n%>3 
  12.         PRINT "Usage: play <filename> [volume]"
  13.         RETURN
  14.     ENDIF
  15. Rem Check the file given and return it's full path
  16.     ret%=Fparse%:(ADDR(buf$),PEEK$(argv%(2)))
  17.     IF ret%<0    Rem error
  18.         RAISE ret%
  19.     ENDIF
  20.     IF n%=3    Rem 2 arguments so get the volume
  21.         vol%=EVAL(PEEK$(argv%(3)))
  22.     ELSE
  23.         vol%=2    Rem otherwise set the default
  24.     ENDIF
  25.     buf$=buf$+chr$(0)
  26.     Rem System call to generate the sound
  27.     CALL($1E86,UADD(ADDR(buf$),1),0,vol%,0,pstat%)
  28.     RETURN
  29. ErrTrap::
  30.     ONERR OFF
  31.     PRINT err$:(ERR)
  32. ENDP
  33.