dim as uinteger clr = rgb(1,3,5)
dim as ubyte r,g,b

b = clr and 255
g = clr shr 8 and 255
r = clr shr 16 and 255

print r,g,b

print bin(clr)

sleep