SCREEN 13

a = 150
x = 150
d = 0
count = 0
countb = 0
randVal = 150
bright = 254
notelength = 100
xvar = 0

sc = 1: sd = 1.125
se = 1.1666: sf = 1.1
sg = 1.5: sab = 1.6
sa = 1.666: sb = 1.75


WHILE INKEY$ = ""
        SOUND a - x, d
        x = x + 3
        d = d + .01
        a = a + (RND * 3) - 1.5
        bright = bright + 4
        countb = countb + 1

                IF countb > notelength THEN
                        notevar = RND * 8
                                IF notevar < 1 THEN
                                        a = 150 * 1
                                ELSEIF notevar < 2 THEN
                                        a = 150 * sd
                                ELSEIF notevar < 3 THEN
                                        a = 150 * se
                                ELSEIF notevar < 4 THEN
                                        a = 150 * sf
                                ELSEIF notevar < 5 THEN
                                        a = 150 * sg
                                ELSEIF notevar < 5 THEN
                                        a = 150 * sab
                                ELSEIF notevar < 6 THEN
                                        a = 150 * sa
                                ELSEIF notevar < 7 THEN
                                        a = 150 * sb
                                END IF
                                countb = 0
                        END IF
                       
                IF x > 20 THEN x = 0
                IF d > 1 THEN d = 0: c = c + 1
                IF c > 150 THEN c = 0: bright = 254
                IF a > 150 + (RND * 10) THEN a = 150

PSET ((d * 200) + xvar, (a - 100) * 2), RND * bright

xvar = xvar + .02
IF xvar > 150 THEN xvar = 0

WEND

SUB anote


END SUB