penup for[i 18 36][for[j 0 18][if or(:i+:j)%6=3 (:i-:j)%6=3[setxy :i*9 :j*9 label "*]]]