1 fory=0to8:z=8+abs(8-y*2):forx=0toz:poke3411-z/2+x+y*40,42
2 poke3567+(x-z/2)*40+y,42:next:next