Sorry your browser is not supported!

Rem define 32-bit color
color32 as dword
color32 = rgb(117, 190, 88)
r0 = rgbr(color32)
g0 = rgbg(color32)
b0 = rgbb(color32)

Rem calculate 16-bit color
r1 = (r0*31)/255
g1 = (g0*31)/255
b1 = (b0*31)/255

color16 as word
color16 = 32768 + b1 + (g1 << 5) + (r1 << 10)


Rem display binary form of both colors
printBinary(color32)
print r0, ", ", g0, ", ", b0
print
printBinary(color16)
print r1, ", ", g1, ", ", b1


wait key
end


Rem displays binary representation of a number and
Rem places a space between each byte for easier reading
function printBinary(x)
	b$ = right$(bin$(x), 32)
	b1$ = left$(b$, 8)
	b2$ = right$(left$(b$, 16), 8)
	b3$ = right$(left$(b$, 24), 8)
	b4$ = right$(b$, 8)
	print b1$, " ", b2$, " ", b3$, " ", b4$
endfunction