A possible answer:
to lines :L
if :L > 100 [stop]
fd :L bk :L
pu rt 90 fd 15 lt 90 pd
lines :L + 15
end