I don't know about a program called 'Vanseam' but You could make a colour chooser and use the
point() command to retrive the colour under the mouse. Then just use
ink and the colour. Here's and example.
sync on
Do
cls
rem Make one posible colour chooser
for x=0 to 255 step 5
for y=0 to 255 step 5
ink rgb(x,y,0),0
dot x/5+10,y/5+10
next y
next x
rem Find out the colour
if mouseclick()=1 then colour=point(mousex(),mousey())
rem display the colour
ink colour,0
box 10,71,61,81
sync
loop
You could also make red, green and blue sliders to make one colour.

Nothing is impossible...