SCREEN 12
RANDOMIZE TIMER
FOR a = 0 TO 389
c = c + 1: IF c > 15 THEN c = 1
CIRCLE (319, 239), a, c
NEXT
p1 = 1: p2 = 1: dr = .1: gt = 2
DO
www$ = "": www$ = INKEY$: IF www$ <> "" THEN SYSTEM
p3 = p3 + (RND * .1) - .05
IF p3 < .5 THEN p3 = .5
IF p3 > 1 THEN p3 = 1
p4 = p3 - (RND * .1)
p1 = p1 + p3: IF p1 > 15 THEN p1 = 1
IF p1 < 1 THEN p1 = 15
p2 = p2 + p4: IF p2 > 15 THEN p2 = 1
IF p2 < 1 THEN p1 = 15
IF RND > .5 THEN r% = r% - 1 ELSE r% = r% + 1
IF r% < 0 THEN r% = 0
IF r% > 63 THEN r% = 63
IF RND > .5 THEN b% = b% - 1 ELSE b% = b% + 1
IF b% < 0 THEN b% = 0
IF b% > 63 THEN b% = 63
IF RND > .5 THEN g% = g% - 1 ELSE g% = g% + 1
IF g% < 0 THEN g% = 0
IF g% > 63 THEN g% = 63
cl& = r% + g% * 256 + b% * 65536
PALETTE p1, cl&
PALETTE p2, 0
LOOP
spiral:
rr% = r%
gg% = g%
bb% = b%
r% = r% * 1.5
g% = g% * 1.5
b% = b% * 1.5
IF r% < 0 THEN r% = 0
IF r% > 63 THEN r% = 63
IF b% < 0 THEN b% = 0
IF b% > 63 THEN b% = 63
IF g% < 0 THEN g% = 0
IF g% > 63 THEN g% = 63
cl& = r% + g% * 256 + b% * 65536
r% = rr%
g% = gg%
b% = bb%
FOR b1 = 1 TO 15
PALETTE b1, cl&
NEXT
RETURN