'Move Pbob 1 with the mouse, a hit with other Pbobs will be signalled. 
Hide On 
Curs Off 
Flash Off 
Cls 0
Colour 1,0
For I=1 To 5
   Text -4,10,Str$(I)
   Box 0,0 To 15,15
   Get Bob I,0,0 To 16,16
Next 
Make Mask 
Reserve Pbobs 5
Pbob Dbuf False
For I=1 To 5
   Pbob Height I,16
Next 
For I=1 To 5
   X=Rnd(320) : Y=Rnd(140)+30
   Pbob I,X,Y,I
Next 
Cls 0
Pbob Update 
Repeat 
   Pbob 1,X Screen(X Mouse),Y Screen(Y Mouse),1
   Wait Vbl 
   Pbob Update 
   If Pbob Fastcol(1,2 To 5)
      Locate 0,0 : Print "Pbob"+Str$(Pfast Bobcol(-1))+" has been hit."
      HIT=True
   Else 
      If HIT
         Locate 0,0 : Print "                    "
         HIT=False
      End If 
   End If 
Until Left Click
End