1DEFFNA(X)=(ABS(X)<5ORABS(Y)<5)ANDABS(X-Y)<5:FORY=-8TO8:?:FORX=-8TO8:PRINTCHR$(32-(FNA(X)ORFNA(-X))*10);:NEXTX,Y