TO LINE :A :M :N
 FORWARD :A
 LEFT 165
 :M=:M+1
 IF :M<:N [ LINE :A :M :N ]
END

:A=90
:M=0
:N=30

LINE :A :M :N