width 160,160:a="0010200121021222":sdim b,256,32:randomize:repeat 1024:c=cnt/32
rnd d,2:b.c+""+d:loop:dim e,32,32:dim f,32,32:repeat 1024:c=cnt/32:d=cnt\32
peek i,b.c,d:i-48 : e.d.c=i:loop:*l:repeat 1024:c=cnt/32:d=cnt\32:n=0:repeat 8
peek i,a,cnt*2:i+d-49:peek j,a,cnt*2+1:j+c-49:if i>=0|i<32|j>=0|j<32:n+e.i.j>0
loop:if e.d.c=0{f.d.c=n=3*2}:if e.d.c>0{f.d.c=n=2|(n=3)}:loop:memcpy e,f,4096
redraw 0:color:boxf:repeat 1024:c=cnt/32:d=cnt\32:palcolor 255*e.d.c
boxf d*5,c*5,d*5+4,c*5+4:loop:redraw:await 5:goto l

ほい。79*7達成ね。
配列変数のｺﾋﾟｰは、memcpy使うと早いし楽だよ。