Graphics 800,600,16,2
backimg = CreateImage(800,600)
SeedRnd(millisecs())
SetBuffer ImageBuffer(backimg)
For z = 1 To 1000
   x1 = Rand(0,800)
   x2 = Rand(x1, x1+100)
   y1 = Rand(0,600)
   y2 = Rand(y1,y1+100)
   Color Rand(0,255), Rand(0,255), Rand(0,255)
   a = Rand(0,2)
   Select a
   Case 0
      Line x1,y1,x2,y2
   Case 1
      Rect x1,y1,x2-x1,y2-y1, Rand(1)
   Case 2
      Oval x1,y1,x2-x1,y2-y1, Rand(1)
   Case 3
   End Select
Next
Color 0,0,0
Rect 0,0,100,20,1
Color 255,255,255
Rect 0,0,100,20,0

mouseimg = CreateImage(25,25)
SetBuffer ImageBuffer(mouseimg)
Color 1,1,1
Oval 0,0,25,25,1
Color 255,255,255
Oval 0,0,25,25,0
Line 12,0,12,25
Line 0,12,25,12
MidHandle mouseimg
SetBuffer BackBuffer()
HidePointer()
DrawImage backimg,0,0
Repeat
;   Viewport MX - 40, MY - 40, 80, 80
   mx = MouseX()
   my = MouseY()   
   Cls
   DrawImage backimg,0,0
;   Viewport MX - 40, MY - 40, 80, 80   
   DrawImage mouseimg,mx,my
   c = c + 1
   If MilliSecs() => checkfpstime
      fps = c
      c = 0
      checkfpstime = MilliSecs() + 1000
   End If
;   Viewport 1,1,98,18
;   Cls
   Text 2,10, "FPS: " + fps, 0, 1
   Flip 0
Until KeyHit(1)