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