Code archives/Miscellaneous/True Flag?
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
i = 1 + 2 + 8 + 16 like the blitz does it. | |||||
Graphics 320,512,16,2 ReturnedColours = 1 + 2 + 8 + 64 Global k% Global I% Dim value(16) k = 1 value(0) = ReturnedColours And 1 ; Get lowest 8 bits - Red Print Str(I) + " flag: " + Str(k) + " = " + Str(value(I)) For I = 1 To 16 k = k + k value(I) = Int(ReturnedColours / k) And 1 Print Str(I) + " flag: " + Str(k) + " = " + Str(value(I)) Next |
Comments
None.
Code Archives Forum