loader(lib)load(function)>
>{now} <[if block(function)==on then off(func)]
<End

//Пример замен значений на символы
XlngCode(global_function){
SymbolChange(function) par1(Kernel)
>[-] to IS|
>[$$$] to Letnikow|
}
End

Assign function(par1(non-global);) To
Convert() How ({})
{
function_non-global ==> function(null-it)          |
Load(function) what() (BaseCode)                   |
Change(function)At (QuitProgramming) ==> ToIt(Now) |
}  
|End|
End
____________________________________________________
// Создаем функцию защиты INS-файлов и архивов через INSecure
{CodeOf}{In}{Dir} //Запись на языке Xlng, обязательно для присвоения функции работы с файлами и директориями
/// Присвоим виды путей для ввода/вывода
If App(local)Use({}) {Dir} Then
Convert(function) //Функция, которую мы создали ранее
Use({}) {xubi:local>System>Windows>acrive.INS} CloseIt

Assign function(root); To
Ins() How({})
{
App(local)Used(Dir(File);) AssignVariable  UsedFile013445351 Close(Xubi:Func)
If In App(local)Used(Dir) Have rootIt>INSecure(Dir) Then
ReadFromFile
      Now rootIt>filename((UsedFile013445351)).INSecure;
      Save(function) WithVariable Name(par1) (ContentInFile013445351);
EndIt
Get(function)In
      Dialog
       Input
        Name(par1) ("Set FileSecure Code (passtword)")
              Disp(par2) ("xx-xxxx-xxxx")    
   Close
  Close
Save(function)That WithVariable Name(par1) (FileSecure_PassWd)
CloseIt
EndIt
If FileSecure_PassWd == ContentInFile013445351 Then
ReadFunc(licence)=true
Else
ReadFunc(licence)=false
End
}
End

  if(MessageBox("I am app")) MessageBox("CloseMe")