'Bouncing Ball Demo by Martin Herhaus 2022
'litle BLIT/Sprite Demo for MM Basic
'LCD Version 2023
Colour RGB(black),RGB(white)
Dim s(8,2):sx=0:sy=0
  For f=1 To 8:s(f,0)=sx:s(f,1)=sy:Inc sx,80
If sx>319 Then sx=0:sy=80
Next

FRAMEBUFFER create:FRAMEBUFFER write f
Load image "ball.bmp"
an=1:rot=-1:BX=0: BY=0: BDir=1
FRAMEBUFFER write n
CLS
'Little endless loop until ESC is pressed
Do
 by=Int(Sin(sn*Pi/128)*160):Inc SN
 SN=SN And 255
 If by<0 Then BY=-BY
 BY=160-by
 FRAMEBUFFER write f
 Blit read 1,s(an,0),s(an,1),80,80
 FRAMEBUFFER write n
 Blit write 1,bx,by:x=bx:y=by
 Box bx-6,by-6,90,90,6,RGB(white)
 Blit close 1
 Inc an,rot
 If an=9 Then an=1
 If AN=0 Then an=8
 Inc bx,bdir:If BX>=232 Or BX<1 Then bdir=-bdir:rot=-rot
  If Inkey$=Chr$(27) Then Exit
  Pause 5
Loop
FRAMEBUFFER close