0 m=1524:fory=-9to9:forx=-9to9:a=abs(x):b=abs(y):v=(a+3-b)/3:c=x=0orb<3and(v>notnotv)=0
1 s=m+y*40+x:c=peek(s)or-42*(cora<8and(a=bora>5andb=5)):pokes,c:pokem+x*40+y,c:next:next