NOMAINWIN
     mapw=500: maph=400
    WindowWidth =500: WindowHeight =150
    UpperLeftX = 10: UpperLeftY = 20
    GRAPHICBOX #w.r, 20, 20, 255, 20
    GRAPHICBOX #w.g, 20, 50, 255, 20
    GRAPHICBOX #w.b, 20, 80, 255, 20
    GRAPHICBOX #w.m 280, 20, 200, 80
    OPEN "......................Clic on the Bars" FOR window_nf AS #w
    #w, "TRAPCLOSE [closebars]"
    #w.m, "down;fill black": #w.r, "down;fill red"
    #w.g, "down;fill green": #w.b, "down;fill blue"
    #w.r, "when leftButtonDown [red]": #w.g, "when leftButtonDown [green]"
    #w.b, "when leftButtonDown [blue]"
  wait
  [red]
    r=MouseX: #w.r, "fill red"
    #w.r, "color black;size 5": #w.r, "set ";r;" ";"8"
    col$=str$(r)+" "+str$(g)+" "+str$(b): gosub [disp]
    print col$
  wait
  [green]
    g=MouseX: #w.g, "fill green"
    #w.g, "color black;size 5": #w.g, "set ";g;" ";"8"
    col$=str$(r)+" "+str$(g)+" "+str$(b): gosub [disp]
  wait
  [blue]
    b=MouseX: #w.b, "fill blue"
    #w.b, "color black;size 5": #w.b, "set ";b;" ";"8"
    col$=str$(r)+" "+str$(g)+" "+str$(b): gosub [disp]
  wait
  [disp]
    #w.m, "fill ";" ";col$
 wait
  [closebars]
    CLOSE  #w
    END
 

 
     NOMAINWIN
    WindowWidth =500: WindowHeight =180
    UpperLeftX = 10: UpperLeftY = 20
    GRAPHICBOX #w.r, 20, 20, 255, 20
    GRAPHICBOX #w.g, 20, 50, 255, 20
    GRAPHICBOX #w.b, 20, 80, 255, 20
    GRAPHICBOX #w.m 280, 20, 200, 80
    BUTTON #w.s, "Save color", [savecol], UL, 330, 110, 80, 25
    OPEN "......................Clic in the Bars" FOR window_nf AS #w
    #w, "TRAPCLOSE [closebars]"
    #w.m, "down;fill black": #w.r, "down;fill red"
    #w.g, "down;fill green": #w.b, "down;fill blue"
    #w.r, "when leftButtonDown [red]": #w.g, "when leftButtonDown [green]"
    #w.b, "when leftButtonDown [blue]"
    #w.m, "flush": #w.g, "flush": #w.r, "flush": #w.b, "flush"
  wait
  [red]
    r=MouseX: #w.r, "fill red"
    #w.r, "color black;size 5": #w.r, "set ";r;" ";"8"
    col$=str$(r)+" "+str$(g)+" "+str$(b): gosub [disp]
  wait
  [green]
    g=MouseX: #w.g, "fill green"
    #w.g, "color black;size 5": #w.g, "set ";g;" ";"8"
    col$=str$(r)+" "+str$(g)+" "+str$(b): gosub [disp]
  wait
  [blue]
    b=MouseX: #w.b, "fill blue"
    #w.b, "color black;size 5": #w.b, "set ";b;" ";"8"
    col$=str$(r)+" "+str$(g)+" "+str$(b): gosub [disp]
  wait
  [disp]
    #w.m, "fill ";" ";col$: #w.m, "flush"
 wait
  [savecol] '----------------------SAVE COULEUR en palette-----------------------
    if openp=1 then [pass]
    dim pal$(13): n=0: dim eff(13)
    for a=1 to 12
      x=x+50: y=50
      if x > 310 then x=x-300: flaga=1
      if flaga=1 then y=y+50
      pal$(a)=str$(x)+" "+str$(y)
    next a
    mapw=400: maph=225: n=0
    WindowWidth=mapw+18: WindowHeight=maph+47
    UpperLeftX=570: UpperLeftY=5
  '  BUTTON #p.savpal, "Save palette", [savepal], UL, 10, 20, 80, 20
    Graphicbox #p.p, 5, 5, mapw, maph
    open "Palette" FOR WINDOW AS #p
    openp=1: #p, "trapclose [quitp]"
    #p.p, "when leftButtonDown [del]"
    #p.p, "down;fill black;color white;backcolor black"
    [pass]
  [ret] '------------affichage
    if n > 12 then wait
    #p.p, "color ";" ";col$: #p.p, "backcolor ";" ";col$
    for b=1 to 12
      if eff(b)=1 then oldn=n: flagn=1: n=b: goto [vu]
    next b
    n=n+1
    [vu]
    pal$(n)=pal$(n)+" "+col$
    x=val(word$(pal$(n),1)): y=val(word$(pal$(n),2))
    #p.p, "place ";x;" ";y: #p.p, "boxfilled ";x+40;" ";y+40
    eff(n)=0
    if flagn=1 then n=oldn: flagn=0
    #p.p, "flush;discard"
  wait
  [del]
    dx=MouseX: dy=MouseY
    if dy > 50 and dy < 90 then
        if dx > 50 and dx < 90 then pos=1
        if dx > 100 and dx < 140 then pos=2
        if dx > 150 and dx < 190 then pos=3
        if dx > 200 and dx < 240 then pos=4
        if dx > 250 and dx < 290 then pos=5
        if dx > 300 and dx < 340 then pos=6
    end if
    if dy > 100 and dy < 140 then
        if dx > 50 and dx < 90 then pos=7
        if dx > 100 and dx < 140 then pos=8
        if dx > 150 and dx < 190 then pos=9
        if dx > 200 and dx < 240 then pos=10
        if dx > 250 and dx < 290 then pos=11
        if dx > 300 and dx < 340 then pos=12
    end if
    #p.p, "color black;backcolor black"
     dx=val(word$(pal$(pos),1)): dy=val(word$(pal$(pos),2))
    #p.p, "place ";dx;" ";dy: #p.p, "boxfilled ";dx+40;" ";dy+40
    pal$(pos)=word$(pal$(pos),1)+" "+word$(pal$(pos),2)
    eff(pos)=1
  wait
  [quitp]
    openp=0: close #p
  wait
  [closebars]
    if openp=1 then openp=0: close #p
    CLOSE  #w
    END