rem Creator: Joe Smith
rem Set the cursor to type Sound Blaster and change ink
wav:
cls
ink 3443489988,0
set cursor 210,0:print "Sound Blaster"
rem Input a wav format sound
input ".Wav?",wav$
wav2$=".wav"
wav3$=wav$+wav2$
if file exist(wav3$) then load sound 1,wav3$:play sound 1:suspend for key: goto wav else cls:ink 3443489988,0:print ".Wav does not exist!":suspend for key:goto wav
end