1 FOR R=0 TO 16
2 FOR C=0 TO 16
3 PRINT CHR$(23*((((R<13)*(((C>3)*(C<R+5))+((C<13)*(C>11-R))))+((R>3)*(((C<13)*(C>R-5))+((C>3)*(C<21-R)))))>0));
4 NEXT C
5 PRINT
6 NEXT R