OPTION SERIAL CONSOLE COM2,GP8,GP9
OPTION SYSTEM SPI GP18,GP19,GP16
OPTION LCD SPI GP26,GP27,GP28
OPTION SYSTEM I2C GP20,GP21
OPTION FLASH SIZE 4194304
OPTION COLOURCODE ON
OPTION KEYBOARD ES, 0, 0, 170, 100
OPTION CPUSPEED (KHz) 378000
OPTION LCDPANEL CONSOLE 7,,, 50
OPTION DISPLAY 40, 80
OPTION LCDPANEL ST7796S, LANDSCAPE,GP12,GP13,GP14,GP15
OPTION LCD BACKLIGHT 50
OPTION TOUCH GP17,GP7
GUI CALIBRATE 0, 3944, 3891, -1289, -857
OPTION SDCARD GP22
OPTION KEYBOARD REPEAT 170,100
OPTION AUDIO GP10,GP11', ON PWM CHANNEL 5
OPTION RTC AUTO ENABLE
OPTION MODBUFF ENABLE  200
OPTION DEFAULT FONT 7, 1

Clear
Option base 0
Dim a$(2) = (" Blues"," Greens"," Reds")
Dim integer b, c, d, n

For b=0 To 2
  n=0
  For c=0To 255
   d=c<<b*8
   Line 9+c,50*b,9+c,50*b+50,1,d
   If d=Pixel(9+c,60*b) Then Inc n
  Next
  Print n;a$(b)
Next

Blit read 1,0,0,MM.HRES\2+20,MM.VRES\2
Blit write 1,MM.HRES\3,MM.VRES\2
Pause 500

Print "...And after BLIT"

For b=0 To 2
  n=0
  For c=0To 255
   d=c<<b*8
   If d=Pixel(9+c+MM.HRES\3, 60*b+MM.VRES\2) Then Inc n
  Next
  Print n;a$(b)
Next

Blit write 1,0,0
Print "...And after BLIT back to the origin"

For b=0 To 2
  n=0
  For c=0To 255
   d=c<<b*8
   If d=Pixel(9+c, 60*b) Then Inc n
  Next
  Print n;a$(b)
Next

CLS
Blit write 1,0,0
Print "...And after CLS then BLIT back to the origin"

For b=0 To 2
  n=0
  For c=0To 255
   d=c<<b*8
   If d=Pixel(9+c, 60*b) Then Inc n
  Next
  Print n;a$(b)
Next

End

32 Blues
64 Greens
32 Reds
...And after BLIT
32 Blues
63 Greens
32 Reds
...And after BLIT back to the origin
32 Blues
64 Greens
32 Reds
...And after CLS then BLIT back to the origin
32 Blues
63 Greens
32 Reds

> clear : dim a$(2)=(" Blues"," Greens"," Reds") : dim integer b, c, n
> for b=0 to 2:n=0:for c=0 to 255:pixel 9,9,c<<b*8:if pixel(9,9)=c<<b*8 then:inc n:endif:next:?n;a$(b):next
32 Blues
64 Greens
32 Reds
>