nomainwin
WindowWidth = 600 :WindowHeight = 600
UpperLeftX = 600  :UpperLeftY = 100
Open "Abaque des couleurs " for graphics_nsb as #1
#1, "Trapclose [quit]"
#1, "Down "
for x= 0 to 510 step 1        'Trois barres de couleurs
    #1, "color  ";255-x/2;" "; 0 ; " "; 0
    #1, " line ";40;" ";x+20;" ";100;" ";x+20
next x
for x= 0 to 510 step 1
    #1, "color  ";0;" ";255-x/2; " ";0
    #1, " line ";140;" ";x+20;" ";200;" ";x+20
next x
for x= 0 to 510 step 1
    #1, "color  ";0;" ";0; " ";255-x/2
    #1, " line ";240;" ";x+20;" ";300;" ";x +20
next x
#1, "when leftButtonDown [des] "
wait
[des]
xx = MouseX : yy = MouseY       ' Définition de la couleur
col=int((530-yy)/2)
if col<0 then col=0
if col>255 then col=255
if xx>40 and xx<100 then ro=col
if xx>140 and xx<200 then ve=col
if xx>240 and xx<300 then bl=col
#1, "font arial 15 ; place 360 100 "     'Dessin du rectangle en cou
#1, "color black "
#1, "backcolor white "
#1, "| Rouge = ";ro;"    "
#1, "| Vert    = ";ve;"    "
#1, "| Bleu    = ";bl;"    "
#1 "backcolor ";ro;" ";ve;" ";bl
#1 "place 340 200 "
#1 "boxfilled 550 530 "
wait
#1, "flush"
[quit]
close #1
end