I=318 for L=43.2to-43step-2 1for C=43to-43step-2 while(I=48) B=1-B P=P+1 I=asc(mid$("1t1s0s0s4:4I686G787F787G687;1;695I3<3s0s0s2@2H2@2H3>3H4=3I4:4J585K@M>P;S7g0g1",P)) wend I=I-1 ?chr$(46-11*(B+(abs(L*L+C*C-1575)<358))); next ? next