1 fory=0to12:forx=0toy:poke1199+x+y*40,42:poke1847-x-y*40,42:poke1371-y+x*40,42
2 poke1675+y-x*40,42:next:next