demos uploaded

demos/fire.lua

@@ -0,0 +1,7 @@
+f={}p={0,1,5,4,6,12,14,15}for i=0,1199
+do f[i]=0 poke(i,143)end
+function update()for i=0,1119 do 
+if i<41 then f[1160+i]=rnd(2)*256 end
+f[i]=(f[i+39]+f[i+40]+f[i+41]+f[i+80])/4.1
+poke(1200+i,p[mid(0,flr(f[i]/4),7)+1])
+end end