ify"> tolbox (S, WINDOW)% ЗАПБТ елементів в лист (SYMBOL, S, S)% видалення конкретного елемента
nondeterm del (SYMBOL, S, S)% видалити Попередній
scan (SYMBOL, S)% пошук елемента в списку (S)% перевірка на наявність елементів у списку (SLIST, SLIST)% швидке сортування (SLIST, SLIST, SLIST)% допоміжний предикат (SYMBOL, S)% перевірка на видалення перед першим елементом
clauses dlg_error ("Помилка", "Елемент не указан"),!, fail. (_):-dlg_error ("Помилка", "некоректно введення"),!,
% ***************************************** **********************
% ***************************************** **********************
% ***************************************** ********************** (_, []): -!, fail. % Перевіряємо наявність елемента в списку
Y,!, cmp (X, TAIL, S, L). (X, [Y | TAIL], S, [Y | L ]):-cmp (X, TAIL, S, L).
isempty ([]).% список порожній
% створення діалогового вікна
% BEGIN dialog, idc_sort
!.
% перевірка списку на наявність в ньому елементів
dlg_Note ("Помилка", "Список порожній"),
!.
% END dialog, idc_sort _CtlInfo
% BEGIN dialog, idc_addelem = Win_GetText (I), _len (EL, 1),
chksmb (EL), _Add (O, EL),% додавання елемента в спісок_SetText (I, ""),% очищення поля введення
!.
% перевірка на коректний введення
dlg_error ("Помилка", "Елемент не заданий"), _SetText (O, ""),
!.
% перевірка довжини елемента
dlg_error ("Помилка", "Елемент повинен складатися з 1 символу!"),
win_SetText (O, ""),
!.
% END dialog, idc_addelem _CtlInfo
% BEGIN dialog, при натисканні кнопки виходу idc_cancel _CtlInfo_dialog_eh (_Win, e_Control (idc_cancel, _CtrlType, _CtrlWin, _CtrlInfo), 0): -!, _Destroy (_Win),
!.
% END dialog, idc_cancel _CtlInfo
% BEGIN dialog, idc_del_elem _CtlInfo
% обробка введення користувача - перевірка списку на наявність елементів
dlg_error ("Помилка", "Список порожній"),
!.
% перевірка на заповнення обох полів для видалення
win_SetText (I, ""), _SetText (O, ""),
!.
% видалення...
