Structure Tree
	s.s ; строка и снизу привязанные к ней узлы и элементы
	size.i ; размер элемента узла, а нужен ли, разве что для чтение с PeekS(), но s.s нультерминированная, поэтому size не нужен
	List item.s()   ; список остатков строки
	List node.Tree()	 ; узел (папка)
EndStructure


Procedure.q AddWord(*s.Tree, *c.Character) ; передали пустое дерево (изначально пустое) и слово
	Protected *n.Character
	If *s=0 Or *c=0 Or *c\c=0 ; проверка, дерево существует, указатель на слово существует, слово в указателе существует.
    ProcedureReturn
	EndIf
	
	If ListSize(*s\node())
    ForEach *s\node()
    	*n = @*s\node()\s ; получаем указатель на строку элемента списка узла
    	While *c\c And *n\c ; если оба ещё валидны, то делаем шаг дальше
        If *c\c <> *n\c	; если очередной символ не одинаков, то
        	Break
        EndIf
        *n\c + 2
        *c\c + 2
    	Wend
    	If *c\c = 0 And *n\c = 0
        ProcedureReturn ; слово уже есть, выпрыгиваем
    	ElseIf *c\c = 0
        ; если слово короче чем узел, то надо перестроить узел, взяв короткое слово за узел
    	ElseIf *n\c = 0
        ; если узел короче чем	слово, то добавляем остаток в item указанного node
        AddWord(*s\node(), *c.Character)
    	Else
;         Если выход по Break тогда разделяем узел
    	EndIf
    Next
	Else
    If ListSize(*s\item())
;     	Здесь должен быть алгоритм поиска возможности узла, но пока просто добавим слово
    	If AddElement(*s\item())
        *s\item() = PeekS(*c) ; считываем остаток слова
    	EndIf
    	
    	ForEach *s\item()
        *n = @*s\item() ; получаем указатель на строку элемента списка узла
        While *c\c And *n\c ; если оба ещё валидны, то делаем шаг дальше
        	If *c\c <> *n\c	; если очередной символ не одинаков, то
            Break
        	EndIf
        	*n\c + 2
        	*c\c + 2
        Wend
        If *c\c = 0 And *n\c = 0
        	ProcedureReturn ; слово уже есть, выпрыгиваем
        ElseIf *c\c = 0
        	; если слово короче чем узел, то надо перестроить узел, взяв короткое слово за узел
        ElseIf *n\c = 0
        	; если item короче чем слово, то добавляем остаток в item указанного item
        	If AddElement(*s\node())
            *s\node()\s = *s\item()
            If AddElement(*s\item())
            	*s\item() = PeekS(*c) ; считываем остаток слова
            EndIf
        	EndIf
        Else
        	;         Если выход по Break тогда разделяем узел
        EndIf
    	Next
    Else
    	If AddElement(*s\item())
        *s\item() = PeekS(*c) ; считываем остаток слова
    	EndIf
    EndIf
	EndIf
EndProcedure


Procedure View(*s.Tree, Pos) ; Отображение содержимого дерева.
	
	AddGadgetItem(0, -1, *s\s, 0, Pos)
	
	Pos+1
	
	ForEach *s\node() ; Отображение всех подузлов текущего узла
    View(*s\node(), Pos) ; Рекурсивный вызов процедуры
	Next
	
	ForEach *s\item() ; Отображение списка элементов текущего узла
    AddGadgetItem(0, -1, *s\item(), 0, Pos)
	Next
EndProcedure


If OpenWindow(0, 0, 0, 400, 400, "", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
	TreeGadget(0, 0, 0, 400, 400)
	Dictionary.Tree ; Создание пустого дерева как одного экземпляра структуры
	Dictionary\s = "узел"
	AddWord(Dictionary, @"apple")
	AddWord(Dictionary, @"banana")
	View(Dictionary, 0)
	Repeat
    Event = WaitWindowEvent()
	Until Event = #PB_Event_CloseWindow
EndIf