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