SCREEN 13
CLS

'color number = 65536 * blue + 256 * green + red

'dark blue
FOR x = 1 TO 63
xx = xx + 1
c& = 65536 * x + 256 * 1 + 1
PALETTE xx, c&
COLOR xx
LOCATE 1, 1: PRINT "Loading Colors..."
NEXT x

'green
FOR x = 1 TO 63
xx = xx + 1
c& = 65536 * 1 + 256 * x + 1
PALETTE xx, c&
COLOR xx
LOCATE 1, 1: PRINT "Loading Colors..."
NEXT x

'red
FOR x = 1 TO 63
xx = xx + 1
c& = 65536 * 1 + 256 * 1 + x
PALETTE xx, c&
COLOR xx
LOCATE 1, 1: PRINT "Loading Colors..."
NEXT x

'yellow
FOR x = 1 TO 63
xx = xx + 1
c& = 65536 * 1 + 256 * x + x
PALETTE xx, c&
NEXT x

CLS

DO
RANDOMIZE TIMER
x1% = INT(RND * 318 + 1)
y1% = INT(RND * 198 + 1)
x2% = INT(RND * 318 + 1)
y2% = INT(RND * 198 + 1)
x3% = INT(RND * 318 + 1)
y3% = INT(RND * 198 + 1)
x4% = INT(RND * 318 + 1)
y4% = INT(RND * 198 + 1)
c1% = INT(RND * 254 + 1)
c2% = INT(RND * 254 + 1)
c3% = INT(RND * 254 + 1)
c4% = INT(RND * 254 + 1)
s% = 1


FOR x = 1 TO 63
CIRCLE (x1%, y1%), s%, c1%
CIRCLE (x2%, y2%), s%, c2%
CIRCLE (x3%, y3%), s%, c3%
CIRCLE (x4%, y4%), s%, c4%
c1% = c1% + 1
c2% = c2% + 1
c3% = c3% + 1
c4% = c4% + 1
s% = s% + 1
NEXT x
LOOP UNTIL INKEY$ <> ""