Type tree
   Field length
   Field ri
   Field parent
   Field x
   Field y
End type
Graphics 800,600,16,2

maketree(0,45, 50)

Repeat
   cls
   For tree.tree = Each tree
      If tree\parent = 0
         sx = 400
         sy = 300
      Else
         par.tree = Object.tree(tree\parent)
         sx = par\x
         sy = par\y
      End If
      tree\x = sx + Cos(tree\ri)*tree\length
      tree\y = sy + Sin(tree\ri)*tree\length      
      Line sx,sy, tree\x, tree\y
      If drag=0
         If Sqr((MouseX()-tree\x)^2 + (mousey()-tree\y)^2) < 5
            Oval tree\x-5,tree\y-5,10,10,0
            If MouseDown(1) drag=handle(tree): oldri = tree\ri
            If MouseDown(2)
               n.tree = New tree
               n\parent = Handle(tree)
               drag = Handle(n)
            End if
         End If
      End if
   Next

      If drag=0
         If Sqr((MouseX()-400)^2 + (mousey()-300)^2) < 5
            Oval 395,295,10,10,0
            If MouseDown(2)
               n.tree = New tree
               drag = Handle(n)
            End if
         End If
      End if

   
   If drag
      tree.tree = Object.tree(drag)
      If tree\parent = 0
         sx = 400
         sy = 300
      Else
         par.tree = Object.tree(tree\parent)
         sx = par\x
         sy = par\y
      End If
      tree\ri = ATan2(mousey()-sy, MouseX()-sx)
      tree\length = Sqr((mousex()-sx)^2 + (MouseY()-sy)^2)
      If Not (MouseDown(1) Or MouseDown(2)) drag = 0
   End if
   flip
Until KeyHit(1)

Function maketree(p, r, l)
   tree.tree = New tree
   tree\parent = p
   tree\ri = r
   tree\length = l
End Function