-- conway's game of life
-- by ian seyler

maxinit=1400

cls()
for t=1,maxinit do
 x=rnd(127)
 y=rnd(127)
 pset(x,y,15)
end

while(1) do
 for y=0,127 do
  for x=0,127 do
   neigh=0
   for tx=-1,1 do
    for ty=-1,1 do
     if(pget(x+tx,y+ty)==15) then
      neigh+=1
     end
    end
   end
   if(pget(x,y)==15) then
    neigh-=1
    if(neigh<2 or neigh>3) then
     pset(x,y,0)
    end
   elseif(pget(x,y)==0) then
    if(neigh==3) then
     pset(x,y,15)
    end
   end
  end
 end
end