It's a program to help you find the colors needed to match bitmap backgrounds and such

I was trying to find a way to make it easier to match screen colors to some bitmap backgrounds. When you use the program you use the upkey, leftkey and downkey to change the rgb colors in the ink rgb() statements, when you find the color you need hit space and it will show the numbers to place in your programs

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem
a=2000:b=2000:c=2000:d=10
ink rgb(a,b,c),0
box 1,1,639,479
main:
if upkey()=1 then a=a+20:b=b+70:c=c+d
if downkey()=1 then a=a-d:b=b-d:c=c-d
ink rgb(a,b,c),0
if spacekey()=1 then cls: set cursor 10,459:print a:set cursor 70,459:print b:set cursor 150,459:print c
box 1,1,639,449
wait 25
goto main