04-16-2005, 01:06 AM
Thought you might find this interesting
Found it in the old ABC packets:
[syntax="qbasic"]
DEFINT D, G
DEFLNG H
SCREEN 12
CLS
OPEN "c:\windows\media\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
[/syntax]
Needless to say Windows 2k/XP users might need to change the path to winnt\media\ .
[/code]
Found it in the old ABC packets:
[syntax="qbasic"]
DEFINT D, G
DEFLNG H
SCREEN 12
CLS
OPEN "c:\windows\media\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
[/syntax]
Needless to say Windows 2k/XP users might need to change the path to winnt\media\ .
[/code]