' Screen Colours Counter Pixel Test
Dim a$(2)=(" Blues"," Greens"," Reds")
Dim integer b, c, n

For b = 0 To 16 Step 8
 n = 0
 For c = 0 To 255
  Pixel 9, 9, c << b
  If  Pixel(9,9) = c << b Then Inc n
 Next
 Print
 Print n; a$(b/8); " ="; Log(n)/Log(2); " bits"
Next
Print