10 CLEAR;DATA @(0),1,5,163,97,229,19,9,293,147,1023;NT=0;BC=!D8;FA=!07;FB=!EF;FC=!06;Z=0;J=1;N=5;R=2;K=5;S=6;P=0;Q=47
20 FOR Y=0 TO 9;T = @(Z);FOR X=9 TO 0 STEP -1;V=T÷2
30 IF RM=1 CIRCLE P+(9-X)*S,Q-Y*K,R,N;CIRCLE P-54+X*S,Q-Y*K,R,N;CIRCLE P-54+X*S,-41-Y*K*-1,R,N;CIRCLE P+(9-X)*S,-41-Y*K*-1,R,N
40 T=T÷2;NEXT X;Z=Z+1; NEXT Y; N=RND(6)+1;R=R+1;Z=0;IF R>5 R=1
50 GOTO 20