1 DIM T$(1):FOR Y=-8 TO 8:FOR X=-8 TO 8:B=ABS(Y):A=ABS(X):T$=" ":IF ABS(B-A)<5 AND (A<5 OR B<5) THEN T$="*"
2 PRINT T$;:NEXT X:PRINT:NEXT Y
