SCREEN 12
RANDOMIZE TIMER
GOSUB npal
nm = 3
DIM ye(50), xe(50), x(50), y(50), xx(50), yy(50)
c = 1: cs = 1
FOR a = 1 TO 50: ye(a) = 1.5: xe(a) = 1.5: xx(a) = RND * 320: yy(a) = RND * 199: x(a) = RND: y(a) = RND: NEXT
DO
COLOR c: PRINT "asfdsfdsafdsafdsa"
c = c + cs
IF c >= 15 THEN cs = -.1
IF c <= 1 THEN cs = .1
GOSUB npal
d = d + 1: IF d > 15 THEN d = 1
PALETTE d, a&
LOOP

npal:
rv = rv + RND * .1 - .05
IF rv < -.2 THEN rv = -.2
IF rv > .2 THEN rv = .2
rd = rd + rv
IF rd > 63 THEN rd = 63: rv = -rv
IF rd < 0 THEN rd = 0: rv = -rv
gv = gv + RND * .1 - .05
IF gv < -.2 THEN gv = -.2
IF gv > .2 THEN gv = .2
gd = gd + gv
IF gd > 63 THEN gd = 63: gv = -gv
IF gd < 0 THEN gd = 0: gv = -gv
bv = bv + RND * .1 - .05
IF bv < -.2 THEN bv = -.2
IF bv > .2 THEN bv = .2
bd = bd + bv
IF bd > 63 THEN bd = 63: bv = -bv
IF bd < 0 THEN bd = 0: bv = -bv
r% = rd * (d / 4)
g% = gd * (d / 4)
b% = bd * (d / 4)
IF r% > 63 THEN r% = 63
IF g% > 63 THEN g% = 63
IF b% > 63 THEN b% = 63
IF r% < 0 THEN r% = 0
IF g% < 0 THEN g% = 0
IF b% < 0 THEN b% = 0
a& = r% + g% * 256 + b% * 65536
RETURN