TO LINE :A :M :N :K
 FORWARD :A
 RIGHT :K
 :K=:K+3
 :M=:M+1
 IF :M<:N [ LINE :A :M :N :K ]
END

:A=10
:M=0
:N=300
:K=0


LINE :A :M :N :K