import GUI

var Setred, Setgreen, Setblue : int := 1
var Color : int := 25

View.Set ("graphics:300;300,nobuttonbar")
var scrollBar : int

procedure Blue (value : int)
    Setblue := value
    Text.Locate (4, 10)
    color (blue)
    put "Blue Value: ", Setblue : 4
end Blue

procedure Green (value : int)
    Setgreen := value
    Text.Locate (10, 10)
    colour (green)
    put "Green Value: ", Setgreen : 4
end Green

procedure Red (value : int)
    Setred := value
    Text.Locate (17, 10)
    colour (red)
    put "Red Value: ", Setred : 4
end Red

scrollBar := GUI.CreateHorizontalScrollBar (10, 210, 250, 1, 256, 1, Blue)
scrollBar := GUI.CreateHorizontalScrollBar (10, 110, 250, 1, 256, 1, Green)
scrollBar := GUI.CreateHorizontalScrollBar (10, 10, 250, 1, 256, 1, Red)

loop
    exit when GUI.ProcessEvent
    RGB.SetColor (Color, Setred, Setgreen, Setblue)
    locate (1, 1)
    color (Color)
    put "COLOR"
end loop