14 lines
210 B
Text
14 lines
210 B
Text
FOR I=0 TO 7
|
|
READ R,G,B
|
|
GFILL I*50,0,I*50+49,239,RGB(R,G,B)
|
|
NEXT
|
|
REPEAT UNTIL BUTTON(0) AND #B
|
|
|
|
DATA 0,0,0
|
|
DATA 255,0,0
|
|
DATA 0,255,0
|
|
DATA 0,0,255
|
|
DATA 255,0,255
|
|
DATA 0,255,255
|
|
DATA 255,255,0
|
|
DATA 255,255,255
|