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$)

Result:

Result not displayed for this example.