try this i did it in about 4ys ago
`set display mode 800,600,16
dim colorit(1)
sync on
color
`cls
`ink rgb(250,250,250),1
`do
`ink rgb(rgbr(colorit(1)),rgbg(colorit(1)),rgbb(colorit(1))),1
`text 1,1,"colortime "+str$(colorit(1))
`sync
`loop
`set text font "times new roman"
`rem Set the size of the new font
`set text size 32
Function color()
ok=0
ink rgb(170,170,140),1
box 200,90,503,300
ink rgb(140,140,50),1
box 201,91,502,299
ink rgb(255,255,255),1
box 221,110,481,130
box 221,150,481,170
box 221,190,481,210
`............min...............
box 205,115,216,126
box 205,155,216,166
box 205,195,216,206
`............max..........
box 486,115,498,126
box 486,155,498,166
box 486,195,498,206
ink rgb(0,0,0),1
text 210,113,"-"
text 210,153,"-"
text 210,193,"-"
text 489,113,"+"
text 489,153,"+"
text 489,193,"+"
ink rgb(255,0,0),1:text 330,92,"Red"
ink rgb(0,255,0),1:text 327,132,"Green"
ink rgb(0,0,255),1:text 331,173,"Blue"
ink rgb(0,0,255),1:text 331,278,"Use"
ink rgb(0,0,0),1
`text 500,153,"+"
`text 489,193,"+"
ink rgb(0,0,0),1
box 291,214,391,271
repeat
ink rgb(0,0,0),1
box 222,111,480,129
box 222,151,480,169
box 222,191,480,209
mx=mousex()
my=mousey()
if mouseclick()=1 and mx>=331 and mx<=331+text width("Use") and my>=278 and my<=278+text height("Use")
`color=1
text 331,278,".Use.."+str$(ok)
ok=1
colorit(1)=point(mx,my-50)
`wait 20
`end
exitFunction
endif
``text 331,278,"Use"
`.................................Min..........
if mouseclick()=1 and mx>=205 and mx<=216 and my>=115 and my<=126 and red>0
red=red-1
`ink rgb(255,0,0),1
`box 223,112,223+red,129
endif
if mouseclick()=1 and mx>=205 and mx<=216 and my>=155 and my<=166 and green>0
green=green-1
`ink rgb(0,255,0),1
`box 223,152,223+blue,169
endif
if mouseclick()=1 and mx>=205 and mx<=216 and my>=195 and my<=206 and blue>0
blue=blue-1
`ink rgb(0,0,255),1
`box 223,192,223+green,208
endif
`.................................Max..........
if mouseclick()=1 and mx>=486 and mx<=498 and my>=115 and my<=126 and red<255
red=red+1
endif
if mouseclick()=1 and mx>=486 and mx<=498 and my>=155 and my<=166 and green<255
green=green+1
endif
if mouseclick()=1 and mx>=486 and mx<=498 and my>=195 and my<=206 and blue<255
blue=blue+1
endif
ink rgb(red,green,blue),1
box 292,215,390,270
if red>0
ink rgb(red,0,0),1
box 223,112,223+red,129
endif
if green>0
ink rgb(0,green,0),1
box 223,152,223+green,169
endif
if blue>0
ink rgb(0,0,blue),1
box 223,192,223+blue,208
endif
ink rgb(255,255,255),1:
text 340,113,str$(red)
text 340,153,str$(green)
text 340,193,str$(blue)
sync
until ok=1
endFunction
` color()
You can do it if you try
