setvar 0, A
until A=6
  setvar 0, B
  until B=13
    penup
    goto 14*B-90, 7*A-20
    pendown
    goto 15*B-90, 8*A-20
    setvar B+1, B
  until_end
  setvar A+1, A
until_end