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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).