1 MODE 9:WINDOW #1,512,256,0,0:CLS
2 FOR a=4 TO 28
3 LET c=ABS(a-4-(8*INT(a/8)))
4 FOR b=0 TO 24
5 LET d=ABS(b-4-(8*INT(b/8)))
6 IF c=d THEN PRINT "*";:ELSE PRINT " ";
7 NEXT b:PRINT:NEXT a
