[過去ﾛｸﾞ] HSP - Hot Soup Processor (1001ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

819(5): 02/09/22 17:50 ID:??? AAS
buffer 2,32,32,1:boxf:screen 0,160,160,1:boxf:a="0010200121021222":sdim b,256,32:randomize:repeat 32:c=cnt:repeat 32:rnd d,2:b.c+""+d:loop:loop
dim e,32,32:dim f,32,32:repeat 32:g=cnt:repeat 32:h=cnt:peek i,b.g,h:i-='0':e.h.g=i:loop:loop
*@:repeat 1024:j=cnt\32:k=cnt/32:gosub y:loop:repeat 1024:h=cnt\32:g=cnt/32:e.h.g=f.h.g:loop:gosub z:await 9:goto @b
*y:n=0:repeat 8:peek h,a,cnt*2:h-='1':h+=j:peek g,a,cnt*2+1:g-='1':g+=k:if (h<0)|(h>=32)|(g<0)|(g>=32){continue}:n+=(e.h.g>0):loop
if e.j.k=0{if n=3{f.j.k=2}else{f.j.k=0}}:if e.j.k>0 {if (n>=2)&(n<=3){f.j.k=1}else{f.j.k=0}}:return
*z:gsel 2:redraw 0:color 0,0,0:boxf:repeat 1024:h=cnt\32:g=cnt/32:o=e.h.g:if o{color 255,255,255}else{continue}:pset h,g:loop:gsel 0:pos 0,0:gzoom 160,160,2,0,0,32,32:redraw 1:return

ライフゲーム（774byte）
誰かもう少し縮めてくれ･･･。

---

上下前次1-新書関写板覧索設栞歴

---

あと 182 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.016s