pixcolor = 150
SCREEN 13

x = 0
readfreq = .1
sqvar = 5
sqcount = 0
sqspeed = 137

WHILE INKEY$ = ""

sinevar = SIN(x)
x = x + .1 + readfreq

sineVarb = SIN(x * 2 * freq)

readfreq = readfreq + sineVarb

freq = ABS(readfreq)

sqcount = sqcount + 1
IF sqcount > sqspeed THEN
        sqvar = sqvar * -1: sqcount = 0
END IF
IF sqspeed > sqcount * 1.5 THEN sqspeed = 1: pixcolor = RND * 254
sqspeed = spqspeed + (readfreq * 5) + (RND * 5) - 2.5


finalfreq = (ABS(freq * freq * (sqvar * 1000)) / 5000) + 38
IF finalfreq > 1000 THEN x = readfreq

        SOUND finalfreq, ABS(sqspeed * .002) 'HERE IS THE SOUND



pixcolor = pixcolor - 15
IF pixcolor < 1 THEN pixcolor = 150

x2 = ABS(sineVarb * 300) + 10
y2 = ABS(readfreq * 6)

LINE (x1, y1)-(x2, y2), pixcolor


x1 = x2
y1 = y2

'print finalfreq
'print sqspeed
'PRINT sineVarb
PRINT readfreq
WEND