Sorry your browser is not supported!

//defines ruleset in the format b$/l$ where b$ is when the cell can be born and l$ is when the cell survives

b$ = "23"
l$ = "3"

sync on : sync rate 30

//size of the grid and number of generations to create
w = 64
h = 48
g = 1000

//main loop
do
//prepare grid
dim grid(g,w,h)
cls

//set up some random points in generation 1
for x = 1 to w
       for y = 1 to h
       if rnd(1) = 0 then grid(1,x,y) = 1
       next
NEXT

//calculate the further generations
for gen = 1 to g-1
       for x = 1 to w
       for y = 1 to h
       
       n = 0
       
       //check the neighborhood
       for nx = wrap(x-1,1,w) to wrap(x+1,1,w)
       for ny = wrap(y-1,1,h) to wrap(y+1,1,h)
       if (x = nx AND y = ny) = 0
       if grid(gen,nx,ny) = 1 then inc n,1
       endif
       next
       next
       
       //parse the rulesets and check if it applies
       v = 0
       if grid(gen,x,y) = 1
       if b$ <> ""
       for r = 1 to len(b$)
       c = val(mid$(b$,r))
       if c = n then v = 1
       next
       endif
       else
       if l$ <> ""
       for r = 1 to len(l$)
       c = val(mid$(l$,r))
       if c = n then v = 1
       next
       endif
       endif
       
       
       grid(gen+1,x,y) = v
       
       next
       next
       
NEXT

//draws result on screen in an infinite loop
gen = 1
repeat
cls
lock pixels
for x = 1 to w
for y = 1 to h
if grid(gen,x,y) = 1 then box x*10,y*10,x*10+10,y*10+10,rgb(255,255,255)
next
next       
unlock pixels
sync
gen = wrap(gen+1,1,g)
until spacekey() = 1
cls
undim grid()
loop

`defines ruleset in the format b$/l$ where b$ is when the cell can be born and l$ is when the cell survives
b$ = "23"
l$ = "3"

`size of the grid and number of generations to create
w = 63
h = 47
g = 999

` Initialize
randomize timer()

box 0, 0, 10, 10
get image 1, 0, 0, 10, 10

`main loop
do
   cls

   `prepare grid
   dim grid(g, w, h)

   `set up some random points in generation 1
   for x = 0 to w
      for y = 0 to h
         if rnd(1) then grid(0, x, y) = 1
      next
   next

   `calculate the further generations
   for gen = 0 to g-1
      for x = 0 to w
         for y = 0 to h

            `check the neighborhood
            n = 0
            for nx = Wrap(x-1, 0, w) to Wrap(x+1 , 0, w)
               for ny = Wrap(y-1, 0, h) to Wrap(y+1, 0, h)
                  if not (x = nx and y = ny)
                     if grid(gen, nx, ny) then inc n
                  endif
               next
            next

            `parse the rulesets and check if it applies
            v = 0
            if grid(gen, x, y)
               if b$
                  for r = 1 to len(b$)
                     c = val(mid$(b$, r))
                     if c = n then v = 1
                  next
               endif
            else
               if l$
                  for r = 1 to len(l$)
                     c = val(mid$(l$, r))
                     if c = n then v = 1
                  next
               endif
            endif
            grid(gen+1, x, y) = v
         next
      next
   next

   `draws result on screen in an infinite loop
   gen = 0
   repeat
      cls

      for x = 0 to w
         for y = 0 to h
            if grid(gen, x, y) then paste image 1, x*10, y*10
         next
      next

      gen = Wrap(gen+1, 1, g)
   until spacekey()
   cls
   undim grid()
loop

end

function Wrap(CurVal as integer, MinVal as integer, MaxVal as integer)
   local Result as integer
   local Range as integer

   Range = MaxVal-MinVal+1

   if CurVal<MinVal
      inc CurVal, Range*((MinVal-CurVal)/Range+1)
   endif

   Result = MinVal+(CurVal-MinVal) mod Range
endfunction Result

`Conway's LIFE quickly written NOT bombproof ;-) Not checked for correct functioning

set display mode 800,600,32:set window off

sync on:sync rate 3

`size of the grid and number of generations to create
w=100 : h=100 : w3=w*0.5 : h3=h*0.5
w1=screen width() : h1=screen height()

sz=500+w*h
dim m(sz)
dim rules(8):rules(0)=1:rules(1)=-w+1:rules(2)=-w:rules(3)=-w-1:rules(4)=-1:rules(5)=w-1:rules(6)=w:rules(7)=w+1

w2#=w1/w
h2#=h1/h

` Initialize
randomize timer()

gosub gen : gosub activ

```````````````````````
`main loop
do
cls
l=1:j=k:v=0:gosub activ:if j=k then l=0
if l=0 then dec q
if q<0 or inkey$()=" " or gena>200 then gosub gen

`draw grid
for y=1 to h-1
yy=y*w
for x=1 to w-1

`check rules of this cell
t=0:for f=0 to 7:if m(yy+x+rules(f))>0 then inc t
next f

if m(yy+x)=255
if t<2 then m(yy+x)=0   `cell dies
if t>3 then m(yy+x)=0   `cell dies
else
if t=3 then m(yy+x)=255 `cell born
endif

`````````````````````````````````
c=0:if m(yy+x) then c=255
x2=x*w2#:y2=y*h2#
ink rgb(c,c,c):box x2,y2,x2+w2#,y2+h2#

next x
next y


inc gena
ink rgb(10,10,10):text 11,11,str$(q)+" "+" Generation: "+str$(gena):center text 1+w1*0.5,11,"    -Space to start anew-"
ink rgb(150,150,150):text 10,10,str$(q)+" "+" Generation: "+str$(gena):center text w1*0.5,10,"    -Space to start anew- "+str$(h3)
sync
loop

`````````````````````````

gen:
v=1:gosub activ:gena=0
for f=0 to 200:m(((w3/2)+rnd(w3))+(((h3/2)+rnd(h3))*(w)))=255:next f
boun:if inkey$()=" " then goto boun
q=10 : return

``````````````````````
activ:
k=0:for f=0 to sz:k=k+f*100:k=k+m(f)
if v>0 then m(f)=0
next f:return

`Conway's LIFE quickly written NOT bombproof ;-) Checked for correct functioning

set display mode 800,600,32:set window off

sync on:sync rate 8

`size of the grid
w=100 : h=100

w3=w*0.5 : h3=h*0.5
w1=screen width() : h1=screen height()

sz=1500+w*h
dim m(sz*2)
dim m2(sz)
dim rules(8):rules(0)=1:rules(1)=-w+1:rules(2)=-w:rules(3)=-w-1:rules(4)=-1:rules(5)=w-1:rules(6)=w:rules(7)=w+1

w2#=w1/w
h2#=h1/h

` Initialize
randomize timer()

ink rgb(0,48,0):box x2,y2,x2+w2#,y2+h2#
ink 0:box x2+1,y2+1,x2+w2#,y2+h2#
get image 1,0,0,x2+w2#,y2+h2#,1

gena=199

```````````````````````
`main loop
do
`cls
l=1:v=0:if go=0 then j=k:gosub activ:if j=k then l=0

if l=0 then dec q
if q<0 or inkey$()=" " or gena>300 then gosub gen

gosub life

inc gena
ink rgb(10,10,10):text 11,11,str$(q)+" "+" Generation: "+str$(gena):center text 1+w1*0.5,11,"    -Space to start anew-"
ink rgb(150,150,150):text 10,10,str$(q)+" "+" Generation: "+str$(gena):center text w1*0.5,10,"    -Space to start anew- "
sync
loop

`````````````````````````
gen:
for f=0 to sz*2:m(f)=0:next f
for f=0 to 200:m((ar+(w3/2)+rnd(w3))+(((h3/2)+rnd(h3))*(w)))=255:next f
boun:if inkey$()=" " then goto boun
q=12:gena=0:return

``````````````````````
activ:
k=0:for f=go to go+sz:k=k+m(f)*100
if v>0 then m(f)=0
next f:return

`````````````````````

life:
if go=sz
go=0:ar=sz
else
go=sz:ar=0
endif

`draw grid
for y=1 to h-1
yy=y*w
for x=1 to w-1

`check rules of this cell
t=0:for f=0 to 7:if m(go+yy+x+rules(f))>0 then inc t
next f

j=m(go+yy+x)   `write result to "other" array
if j=255
if t<2 then j=0   `cell dies
if t>3 then j=0   `cell dies
else
if t=3 then j=255 `cell born
endif

m(ar+yy+x)=j
`````````````````````````````````
paste image 1,x2-w2#,y2-h2#,1
c=0:if j then c=255
x2=x*w2#:y2=y*h2#
ink rgb(0,c/3,c/3):box x2,y2,x2+w2#,y2+h2#
ink rgb(0,c,c):box x2,y2,x2+w2#-2,y2+h2#-2

next x
next y
return