Blitz Basic Tutes - Answer Ex.2

Ex.2

Graphics 640,480
SetBuffer BackBuffer()
pointer_img=LoadImage("pointer.bmp")
red=True
Repeat
  If MouseHit(1) Then If mouse_in(0,0,320,240) Then red=False
  Cls
  Color 0,255,0
  If red Then Color 255,0,0
  Rect 0,0,320,240
  DrawImage pointer_img,MouseX(),MouseY()
  Flip
Until KeyHit(1)
End

Function mouse_in(x1,y1,x2,y2)
  x=MouseX(): y=MouseY()
  m=True
  If x<x1 Then m=False
  If x>x2 Then m=False
  If y<y1 Then m=False
  If y>y2 Then m=False
  Return m
End Function