BCX Console Demonstration Program s68.bas

 DIM A$
 
 IF COMMAND$ = "" THEN
   PRINT "Usage: Wav filename [.wav]"
   PRINT "Plays a wave file"
   END
 END IF
 
 A$ = EXTRACT$(COMMAND$, ".") & ".WAV"
 
 PLAYWAV(A$)