Blitz Basic Tutes - Answer Ex.7

Ex.6

Function mines(r0,c0)
  n=0
  For r=r0-1 To r0+1
    For c=c0-1 To c0+1
      If grid(r,c)=1 Then n=n+1
    Next
  Next
  Return n
End Function