Sorry your browser is not supported!

hide mouse:backdrop on:sync on:sync rate 100
random_color:
wait 200
do:r=rnd(255):g=rnd(255):b=rnd(255)
text 0,0,"red="+str$(r):text 0,20,"green="+str$(g):text 0,40,"blue="+str$(b):text 0,80,"press spacebar to stop":text 0,450,"(C) Sonic 91 Software 2006"
if spacekey()=1 then gosub get_color
sync
loop

get_color:
wait 200
do
color backdrop rgb(r,g,b)
text 400,0,"red value="+str$(r):text 400,20,"green value="+str$(g):text 400,40,"blue value="+str$(b):text 400,80,"press spacebar to randomize again":text 0,450,"(C) Sonic 91 Software 2006"
if spacekey()=1 then gosub random_color
sync
loop

SYNC ON : SYNC RATE 30
HIDE MOUSE : BACKDROP ON

DO
   r = RND(255) : b = RND(255) : g = RND(255)
   TEXT 0, 0, "Press Space to Stop" : TEXT 0, 15, "Red: " + STR$(r) : TEXT 0, 30, "Green: " + STR$(g) :  TEXT 0, 45, "Blue: " + STR$(b)
   TEXT 0, 75, "Last Colors" : TEXT 0, 90, "Old Red: " + STR$(oldR) : TEXT 0, 105, "Old Green: " + STR$(oldG) :  TEXT 0, 120, "Old Blue: " + STR$(oldB)
   IF SPACEKEY()
      COLOR BACKDROP RGB(r,g,b) : oldR = r : oldG = g : oldB = b
      DO
         TEXT 0, 0, "Red: " + STR$(r) : TEXT 0, 15, "Green: " + STR$(g) :  TEXT 0, 30, "Blue: " + STR$(b)
         IF SPACEKEY() = 0 THEN EXIT
         SYNC
      LOOP
   ENDIF
   SYNC : CLS
LOOP