Sound Wave Bar.....

[DefHo]

Ok, what the hell. I whipped one up real quick.

Code:

'Coded in Qbasic V7.1
'I left some different things to try ;)

1 AMP = ABS(SIN(i& * 3.14159 / 180) * COS(i& * 3.1415 / 150) * 100)

'AMP = (i& MOD 100) XOR (TIMER MOD 100)
'AMP = ABS(SIN(i& * 3.14159 / 90)) * 90 + 10
'AMP = i& MOD 100
'AMP = ABS(TAN(i& * 3.14159 / 180) * 100) MOD 100
'AMP = i& MOD 20
'AMP = INT(RND * 100)
'AMP = LOG(i& MOD 100 + 1) * 30
'AMP = ASC(MID$("I can't think of any more algorithms for AMP!", i& MOD 45 + 1, 1))
'AMP = ASC(MID$("Cool. It sounds like crickets chirping!#!@$*!", i& MOD 45 + 1, 1))
'AMP = ASC(MID$("I really need to go to fucking sleep!!!!!!!!!", i& MOD 45 + 1, 1))

2 i& = i& + 1 AND &HFFF
3 SCREEN 7, 0, i& AND 1, (i& AND 1) XOR 1
4 LINE (0, 0)-(319, 199), 0, BF
5 FOR x = 0 TO 319
6   PSET (x, SIN((x + i& * 5) * 3.14159 / 180) * AMP + 100), 2
7 NEXT
8 SOUND AMP * 100 + 100, .1
9 IF INKEY$ = "" THEN GOTO 1

Here is an old progam I wrote.

.... must ...sleep... nowww.......