Blitz Basic Tutes - Answer Ex.6

Ex.6

Function init()
  For r=0 To gn_rows+1
    For c=0 To gn_cols+1
      grid(r,c)=-1
    Next
  Next
  For r=1 To gn_rows
    For c=1 To gn_cols
      grid(r,c)=0
      If Rand(5)=1 Then grid(r,c)=1
    Next
  Next
End Function