10 FORA=-4TO4:FORB=1TO9+2*ABS(A):LOCATE3+B-ABS(A),A+8:PRINT"*":LOCATEA+8,3+B-ABS(A):PRINT"*":NEXTB,A