1FORX=-8TO8:FORY=-8TO8:I=ABS(X):J=ABS(Y)
2IFABS(I-J)<5AND(I<5 OR J<5)THEN?@8+X,8+Y;"*"
3NEXTY:NEXTX
