Более подробно как можно защитить скриптом GOSUB
------------------------------- 1 фацл
--------------в параметрах
_d=20081231
_tg= ""
ch = OPEN ("DateTime","", "%Y%m%d")
n = INPUT (ch,"" ,"" ,_tg )
n = SPLIT (_tg,"%n", num1)
if num1>_d then parameters AC_show2DHotspotsIn3D=0
if num1<_d then parameters AC_show2DHotspotsIn3D=1
ch1 = open ("TEXT", "ktl.txt", " dialog, mode = wo")
n = input (ch1, 1, 1, var1)
close ch1
if var1 =123 then
ELSE
!if num1>_d then PRINT "Продукт не доступен"
100:
if num1>_d then then GOSUB 100
end
endif
---------------------------------------2 файл
---------------- в параметрах
CALL "название 1 файла" PARAMETERS ALL
if AC_show2DHotspotsIn3D=0 then end
!....
100:
if AC_show2DHotspotsIn3D=0 then GOSUB 100
Но меня интересует Binary он переписывает в двоичный скрипт и тогда файл не доступен для редоктирования.
Я выложил свои библиотечки на бесплатном скачивания с названием sapfir.exe (ручная работа)