Cartridge code (234 chars):

p=pget
cls(0)n=126m=127
rule="0010110"
pset(64,126,1)
for j=0,96 do
for i=1,n do
c=p(i+1,n)
c+=p(i,n)*2
c+=p(i-1,n)*4
d=0
c=7-c
if(sub(rule,c,c)=="1")d=1
pset(i,m,d)
end
memcpy(24512,24576,8192)flip()end
for f=0,50 do
flip()
end
run()