2016 Update

Task/Forest-fire/BASIC/forest-fire-7.basic

@@ -1,25 +1,11 @@
-graphic #g, 200,200
-dim preGen(200,200)
-dim newGen(200,200)
+Sub Open()
+  //First method to run on the creation of a new Window. We instantiate an instance of our forestFire thread and run it.
+  Dim fire As New forestFire
+  fire.Run()
+End Sub
 
-for gen = 1 to 200
-  for x = 1 to 199
-    for y = 1 to 199
-      select case preGen(x,y)
-        case 0
-          if rnd(0) > .99 then newGen(x,y) = 1  : #g "color green ; set "; x; " "; y
-        case 2
-          newGen(x,y) = 0                       : #g "color brown ; set "; x; " "; y
-        case 1
-          if preGen(x-1,y-1) = 2 or preGen(x-1,y)   = 2 or preGen(x-1,y+1) = 2 _
-          or preGen(x,y-1)   = 2 or preGen(x,y+1)   = 2 or preGen(x+1,y-1) = 2 _
-          or preGen(x+1,y)   = 2 or preGen(x+1,y+1) = 2 or rnd(0) > .999 then
-              #g "color red ; set "; x; " "; y
-              newGen(x,y) = 2
-          end if
-      end select
-      preGen(x-1,y-1) = newGen(x-1,y-1)
-    next y
-  next x
-next gen
-render #g
+stop As Boolean  //a globally accessible property of Window1. Boolean properties default to False.
+
+Sub Pushbutton1.Action()
+  stop = True
+End Sub