PicoMiteVGA MMBasic USB Edition  5.09.00b2
OPTION SERIAL CONSOLE COM2,GP8,GP9
OPTION SYSTEM I2C GP14,GP15
OPTION FLASH SIZE 16777216
OPTION COLOURCODE ON
OPTION KEYBOARD US
OPTION PICO OFF
OPTION SDCARD GP13, GP10, GP11, GP12
OPTION VGA PINS GP23,GP18
OPTION AUDIO GP16,GP17', ON PWM CHANNEL 0
OPTION RTC AUTO ENABLE
OPTION MODBUFF ENABLE  180

FRAMEBUFFER CREATE F
FRAMEBUFFER LAYER 0 'L just this has changed??
 FRAMEBUFFER WRITE L
cls RGB(black)

 FRAMEBUFFER WRITE f

do 'demo moving sprite
 FRAMEBUFFER COPY l,f
   for temp=0 to 15
'        if sprite_status(temp)=1 then 'is sprite active
           if spx(temp)> 300 then 'check right edge
             dx(temp)= 0-dx(temp)
           elseif spx(temp)<8 then 'check left edge
             dx(temp)= 0-dx(temp)
           end if
           if spy(temp)>220 then 'check bottom edge
             dy(temp)= 0-dy(temp)
           elseif spy(temp)<8 then 'check top edge
             dy(temp)= 0-dy(temp)
           end if
     '
           spx(temp)=spx(temp)+dx(temp):spy(temp)=spy(temp)+dy(temp) 'get new position for draw
     '
               if frame=0 then'which sprite to draw
                 sprite WRITE 1,spx(temp),spy(temp) 'draw sprite1 at new position
               else
                 sprite WRITE 2,spx(temp),spy(temp) 'draw sprite2 at new position
               end if
   next temp
 
 FRAMEBUFFER COPY f,N

MATH SHIFT inarray(), shiftval, outarray()

MATH SHIFT yval(),1,yval()

tmp = yval(MAXY)
for i = MAXY to 1 step -1
  yval(i) = yval(i-1)
next i
yval(0) = tmp ' data rolls
'yval(0) = 0   ' data shifts

DIM a(1,1)
PRINT MATH(CHI a())

DIM a(1,1)=(1,1,1,1)
PRINT MATH(CHI a())

OPTION BASE 1
DIM a(2,2)=(1,1,1,1)
PRINT MATH(CHI a())