Blitz Basic Tutes - Answer Ex.5

Ex.5

Graphics 640,480
SetBuffer BackBuffer()
SeedRnd MilliSecs()
img=LoadImage("mandel.jpg")
img_grab=CreateImage(640,480) 
x=Rand(640)
y=Rand(480)
dx=1
dy=1
Repeat
  SetBuffer ImageBuffer(img)
  GrabImage img_grab,x,y
  SetBuffer BackBuffer()
  DrawBlock img_grab,0,0
  Flip
  x=x+dx
  If x<0 Then x=Rand(0,1):dx=1
  If x>384 Then x=384:dx=-1
  y=y+dy
  If y<0 Then y=Rand(0,1):dy=1
  If y>288 Then y=288:dy=-1
Until KeyHit(1)
End