setvar 0, A
while A <= 5
  setvar 0, B
  while B <= 12
    penup
    goto 14*B-90, 7*A-20
    pendown
    goto 15*B-90, 8*A-20
    setvar B+1, B
  while_end
  setvar A+1, A
while_end