home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / win31x / program / liberty / examples.shr / PLAYER.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-06-16  |  256 b   |  17 lines
  1.  
  2.  
  3.     'Simple wave file player
  4.     'You must have sound support installed to
  5.     'use this player!
  6.  
  7. [loop]
  8.  
  9.     filedialog "Pick a *.WAV file", "*.wav", w$
  10.     if w$ = "" then [quit]
  11.     playwave w$, asynch
  12.     goto [loop]
  13.  
  14. [quit]
  15.  
  16.     end
  17.