10 CLS : FOR y=3 TO 21: FOR x=0 TO 18: LET s$=" "
20 LET a=(x-y)/6: LET b=(x+y)/6: IF (a=INT a) OR (b=INT b) THEN LET s$="*"
30 PRINT s$;: NEXT x: PRINT : NEXT y