10 FOR i=0 TO 18: PRINT AT i,9;"*";AT 9,18-i;"*"
20 IF i>=2 AND i<=16 THEN PRINT AT i,i;"*";AT 18-i,i;"*"
30 NEXT i
60 LET a$="BHCECIDEECEDEHFIHBHEICIF": FOR i=0 TO 11: LET f=CODE a$(i*2+1)-65: LET c=CODE a$(i*2+2)-65: PRINT AT f,c;"*";AT f,18-c;"*"; AT 18-f,c;"*"; AT 18-f,18-c;"*": NEXT i