10 A=#720:CLS:FORI=0TO91:?BIN$(PEEK(A+I),8);:NEXT:FORJ=0TO735:T=0:U=0:FORK=0TO8:S=SCR(J%32+K%3-1,J/32+K/3-1)=49:L=K=4:T=T+S*!L:U=U+S*L:NEXT:W=W*!!(J%8)+1<<(7-J%8)*(U*(T=2)+(T=3)):POKEA+J/8,W:NEXT:CONT
まさかのライフゲーム! 1ターン55秒とは、かなりのスローライフですね。Rを使う方が、変化が見易くて面白そうです。ただ、1と0で表示するのは、ちょっと見辛いかと思いました。見易い文字が上手く見つかれば嬉しい……!