LPARAMETERS node
WITH this
   If node.Children > 0
	  activate screen
      ? Node.Child.Text
      lnIndex  = Node.Child.Index
      do while lnIndex # Node.Child.LastSibling.Index
         ? .Nodes(lnIndex).Next.Text
         lnIndex = .Nodes(lnIndex).Next.Index
      enddo
   EndIf
endwith