'===========================================================================
' Subject: GRAPHICALLY DISPLAYS WAV FILES    Date: 05-10-94 (17:01)       
' Author:  Aaron Scott Zabudsky              Code: QB, QBasic, PDS        
' Origin:  zabudsk@ecf.toronto.edu         Packet: SOUND.ABC
'===========================================================================

DEFINT D, G
DEFLNG H
SCREEN 12
CLS

OPEN "c:\windows\ding.wav" FOR BINARY AS #1
s = 45
g = 0
d = 0
px = 0
py = 240
np = 0
ns = 5


WHILE NOT (EOF(1)) AND s < 300000
c = 0
h = 0
WHILE c < ns
GET 1, s, g
g = ABS(g MOD 256)
h = h + g
s = s + 1
c = c + 1
IF EOF(1) THEN END
WEND
h = h / ns

LINE (np, h + 112)-(px, py)
PSET (np, 240), 2
py = h + 112
px = np
np = np + 1
IF np > 640 THEN np = 0: SLEEP: CLS : px = 0
WEND


CLOSE