The 512 bytes code challenge

Ok I got another one, even with on-screen instruction ;)

The Random Tree. 512 bytes. Click the mouse to generate a random tree!

w=512 Graphics w,w Global b#=0.75,p#=33,z#=150,v#=0.0073,d=0,e=1,t=0
n#=0 g=200 Repeat
SeedRnd(e) t:+1 p:+Sin(t)*0.08 Cls
r(256,w,z,-90) DrawText"Click",0,0 Flip() GCCollect() If MouseHit(1) t=-50 e:+1	
Until KeyHit(27)
Function r(x#,y#,l#,a#)
If d>14 Return
d:+1 c#=Cos(a)*l s#=Sin(a)*l x2#=x+c y2#=y+s
If d<5 SetColor 150,99,40 Else h#=Rnd(0.4,1) SetColor 0,255*h,0
DrawLine x,y,x2,y2 w#=Rnd(0.3,1) r(x+c*w,y+s*w,l*b,a-Rnd(p-20,p+20)) w=Rnd(0.3,1) r(x+c*w,y+s*w,l*b,a+Rnd(p-20,p+20)) d:-1
EndFunction