dim integer BLACK = &H0000 ' Color definitions: 16 bit (RGB565) colour palette so these are just examples
dim integer BLUE = &H001F
dim integer RED = &HF800
dim integer GREEN = &H07E0
dim integer CYAN = &H07FF
dim integer MAGENTA=&HF81F
dim integer YELLOW= &HFFE0
dim integer WHITE = &HFFFF
dim integer x,y,r,rc
dim c(7)=(black,blue,red,green,cyan,magenta,yellow,white)
'controller, command/data pin, WR pin, reset pin, no.bits, screen width, screen height
display open ssd1963,1,2,3,16,800,480
do
x=rnd*800
y=rnd*480
r=rnd*100
rc=rnd*8
if x-r>=0 and x+r<800 and y-r>=0 and y+r<480 and rc<8 and r>1 then circle x,y,r,c(rc),f
loop