heed: Refactor help window (ESC)

heed: Simplify ESC code
heed: Add exit by ESC
2026-03-08 09:49:58 +05:00 · 2026-03-01 22:09:44 +05:00 · 2026-02-24 23:08:53 +05:00 · 2026-02-21 19:22:11 +00:00 · 2026-02-21 19:22:11 +00:00 · 2026-02-21 19:22:11 +00:00
192 changed files with 4000 additions and 39837 deletions
--- a/.gitea/workflows/build.yaml
+++ b/.gitea/workflows/build.yaml
@@ -29,6 +29,7 @@ jobs:
      - name: Checkout
        uses: actions/checkout@v4
        with:
+          submodules: true
          fetch-depth: 0

      - name: Get describe
--- a/.gitmodules
+++ b/.gitmodules
@@ -0,0 +1,3 @@
+[submodule "programs/develop/oberon07"]
+	path = programs/develop/oberon07
+	url = https://github.com/AntKrotov/oberon-07-compiler.git
--- a/contrib/C_Layer/ASM/loadlibini.asm
+++ b/contrib/C_Layer/ASM/loadlibini.asm
@@ -31,8 +31,8 @@ import  lib_libini, \
        LIBINI_enum_keys               , 'ini_enum_keys'        , \
        LIBINI_get_str                 , 'ini_get_str'          , \
        LIBINI_get_int  			   , 'ini_get_int'   		, \
-        LIBINI_get_color               , 'int_get_color'        , \
-        LIBINI_get_shortcut            , 'int_get_shortcut'     , \
+        LIBINI_get_color               , 'ini_get_color'        , \
+        LIBINI_get_shortcut            , 'ini_get_shortcut'     , \
        LIBINI_set_str            	   , 'ini_set_str'          , \
        LIBINI_set_int         		   , 'ini_set_int'          , \          
        LIBINI_set_color          	   , 'ini_set_color'
--- a/contrib/sdk/sources/ffmpeg/ffmpeg-2.1/libavcodec/mpeg4videoenc.c
+++ b/contrib/sdk/sources/ffmpeg/ffmpeg-2.1/libavcodec/mpeg4videoenc.c
@@ -864,7 +864,7 @@ void ff_set_mpeg4_time(MpegEncContext * s){
 }

 static void mpeg4_encode_gop_header(MpegEncContext * s){
-    int hours, minutes, seconds;
+    int64_t hours, minutes, seconds;
    int64_t time;

    put_bits(&s->pb, 16, 0);
--- a/contrib/sdk/sources/ffmpeg/ffmpeg-2.1/libavcodec/vp3.c
+++ b/contrib/sdk/sources/ffmpeg/ffmpeg-2.1/libavcodec/vp3.c
@@ -2035,8 +2035,13 @@ static int vp3_decode_frame(AVCodecContext *avctx,
    if (ff_thread_get_buffer(avctx, &s->current_frame, AV_GET_BUFFER_FLAG_REF) < 0)
        goto error;

-    if (!s->edge_emu_buffer)
+    if (!s->edge_emu_buffer) {
        s->edge_emu_buffer = av_malloc(9*FFABS(s->current_frame.f->linesize[0]));
+        if (!s->edge_emu_buffer) {
+            ret = AVERROR(ENOMEM);
+            goto error;
+        }
+    }

    if (s->keyframe) {
        if (!s->theora)
--- a/contrib/sdk/sources/ffmpeg/ffmpeg-2.8/ffserver.c
+++ b/contrib/sdk/sources/ffmpeg/ffmpeg-2.8/ffserver.c
@@ -2580,8 +2580,10 @@ static int http_receive_data(HTTPContext *c)
        } else if (c->buffer_ptr - c->buffer >= 2 &&
                   !memcmp(c->buffer_ptr - 1, "\r\n", 2)) {
            c->chunk_size = strtol(c->buffer, 0, 16);
-            if (c->chunk_size == 0) // end of stream
+            if (c->chunk_size <= 0) { // end of stream or invalid chunk size
+                c->chunk_size = 0;
                goto fail;
+            }
            c->buffer_ptr = c->buffer;
            break;
        } else if (++loop_run > 10)
@@ -2603,6 +2605,7 @@ static int http_receive_data(HTTPContext *c)
            /* end of connection : close it */
            goto fail;
        else {
+            av_assert0(len <= c->chunk_size);
            c->chunk_size -= len;
            c->buffer_ptr += len;
            c->data_count += len;
--- a/contrib/sdk/sources/ffmpeg/ffmpeg-2.8/libavformat/cinedec.c
+++ b/contrib/sdk/sources/ffmpeg/ffmpeg-2.8/libavformat/cinedec.c
@@ -267,8 +267,12 @@ static int cine_read_header(AVFormatContext *avctx)

    /* parse image offsets */
    avio_seek(pb, offImageOffsets, SEEK_SET);
-    for (i = 0; i < st->duration; i++)
+    for (i = 0; i < st->duration; i++) {
+        if (avio_feof(pb))
+            return AVERROR_INVALIDDATA;
+
        av_add_index_entry(st, avio_rl64(pb), i, 0, 0, AVINDEX_KEYFRAME);
+    }

    return 0;
 }
--- a/contrib/sdk/sources/pe2kos/readme_rus.txt
+++ b/contrib/sdk/sources/pe2kos/readme_rus.txt
@@ -5,7 +5,7 @@ diamond'ом. Она используется в проектах xonix и fara
 Kolibri-программу. Утилита всего лишь изменяет формат exe-шника, так что,
 чтобы действительно получилась работающая программа, нужно выполнение
 определённых условий. Понятно, что требуется, чтобы программа общалась
-с внешним миром средствами Колибри (т.е. int 0x40) и не использовала
+с внешним миром средствами КолибриОС (т.е. int 0x40) и не использовала
 никаких Windows-библиотек. Помимо этого, требуется также, чтобы программа
 размещалась по нулевому адресу (ключ линкера "/base:0"). Как писать такие
 программы - смотрите в уже упомянутых проектах xonix и fara.
--- a/data/Tupfile.lua
+++ b/data/Tupfile.lua
@@ -38,7 +38,6 @@ img_files = {
 {"UNIMG", SRC_PROGS .. "/fs/unimg/unimg"},
 {"3D/HOUSE.3DS", "common/3d/house.3ds"},
 {"File Managers/ICONS.INI", "common/File Managers/icons.ini"},
- {"GAMES/FLPYBIRD", SRC_PROGS .. "/games/floppybird/Release/floppybird"},
 {"FONTS/TAHOMA.KF", "common/fonts/tahoma.kf"},
 -- {"LIB/ICONV.OBJ", "common/lib/iconv.obj"},
 {"LIB/KMENU.OBJ", "common/lib/kmenu.obj"},
@@ -69,6 +68,7 @@ img_files = {
 {"SETTINGS/SYSTEM.INI", "common/settings/system.ini"},
 {"SETTINGS/TASKBAR.INI", "common/settings/taskbar.ini"},
 {"SETTINGS/SYSTEM.ENV", "common/settings/system.env"},
+ {"SETTINGS/USBDRV.DAT",VAR_DRVS .. "/usb/usbother/usbdrv.dat"},
 }

 -- For russian build, add russian-only files.
@@ -152,9 +152,6 @@ extra_files = {
 {"HD_Load/USB_boot_old/", SRC_PROGS .. "/hd_load/usb_boot_old/usb_boot_866.txt"},
 {"HD_Load/USB_boot_old/", SRC_PROGS .. "/hd_load/usb_boot_old/usb_boot_1251.txt"},
 {"kolibrios/3D/info3ds/INFO3DS.INI", SRC_PROGS .. "/develop/info3ds/info3ds.ini"},
- {"kolibrios/3D/info3ds/OBJECTS.PNG", SRC_PROGS .. "/develop/info3ds/objects.png"},
- {"kolibrios/3D/info3ds/TOOLBAR.PNG", SRC_PROGS .. "/develop/info3ds/toolbar.png"},
- {"kolibrios/3D/info3ds/FONT8X9.BMP", SRC_PROGS .. "/fs/kfar/trunk/font8x9.bmp"},
 {"kolibrios/3D/blocks/blocks.kex", "../programs/bcc32/games/blocks/bin/blocks.kex"},
 {"kolibrios/3D/blocks/models/", "../programs/bcc32/games/blocks/models/*"},
 {"kolibrios/3D/md2view/", "common/3d/md2view/*"},
@@ -179,10 +176,15 @@ extra_files = {
 {"kolibrios/develop/c--/manual_c--.htm", SRC_PROGS .. "/cmm/c--/manual_c--.htm"},
 {"kolibrios/develop/fpc/", "common/develop/fpc/*"},
 {"kolibrios/develop/fpc/examples/", "../programs/develop/fp/examples/src/*"},
- {"kolibrios/develop/oberon07/", "../programs/develop/oberon07/*"},
- {"kolibrios/develop/oberon07/doc/", "../programs/develop/oberon07/doc/*"},
- {"kolibrios/develop/oberon07/lib/KolibriOS/", "../programs/develop/oberon07/lib/KolibriOS/*"},
- {"kolibrios/develop/oberon07/samples/", SRC_PROGS .. "/develop/oberon07/samples/*"},
+ {"kolibrios/develop/oberon07/compiler.kex", SRC_PROGS .. "/develop/oberon07/Compiler.kex"},
+ {"kolibrios/develop/oberon07/LICENSE", SRC_PROGS .. "/develop/oberon07/LICENSE"},
+ {"kolibrios/develop/oberon07/doc/CC.txt", SRC_PROGS .. "/develop/oberon07/doc/CC.txt"},
+ {"kolibrios/develop/oberon07/doc/KOSLib.txt", SRC_PROGS .. "/develop/oberon07/doc/KOSLib.txt"},
+ {"kolibrios/develop/oberon07/doc/x86.txt", SRC_PROGS .. "/develop/oberon07/doc/x86.txt"},
+ {"kolibrios/develop/oberon07/doc/Oberon07.Report_2016_05_03.pdf", SRC_PROGS .. "/develop/oberon07/doc/Oberon07.Report_2016_05_03.pdf"},
+ {"kolibrios/develop/oberon07/lib/KolibriOS/", SRC_PROGS .. "/develop/oberon07/lib/KolibriOS/*"},
+ {"kolibrios/develop/oberon07/lib/Math/", SRC_PROGS .. "/develop/oberon07/lib/Math/*"},
+ {"kolibrios/develop/oberon07/samples/", SRC_PROGS .. "/develop/oberon07/samples/KolibriOS/*"},
 {"kolibrios/develop/tcc/lib/", SRC_PROGS ..  "/develop/ktcc/trunk/bin/lib/*"},
 {"kolibrios/develop/tcc/include/", SRC_PROGS ..  "/develop/ktcc/trunk/libc.obj/include/*"},
 {"kolibrios/develop/tcc/include/clayer/", SRC_PROGS ..  "/develop/ktcc/trunk/libc.obj/include/clayer/*"},
@@ -204,6 +206,7 @@ extra_files = {
 {"kolibrios/emul/chip8/roms/", SRC_PROGS .. "/emulator/chip8/roms/*"},
 {"kolibrios/emul/kwine/kwine", SRC_PROGS .. "/emulator/kwine/bin/kwine"},
 {"kolibrios/emul/kwine/lib/", SRC_PROGS .. "/emulator/kwine/bin/lib/*"},
+ {"kolibrios/emul/uxn", SRC_PROGS .. "/emulator/uxn/uxn"},
 {"kolibrios/emul/uarm/", "common/emul/uarm/*"},
 {"kolibrios/emul/zsnes/", "common/emul/zsnes/*"},
 {"kolibrios/games/BabyPainter", "common/games/BabyPainter"},
@@ -469,7 +472,6 @@ tup.append_table(img_files, {
 {"DEMOS/ZEROLINE", VAR_PROGS .. "/demos/zeroline/trunk/zeroline"},
 {"DEVELOP/BOARD", VAR_PROGS .. "/system/board/trunk/board"},
 {"DEVELOP/DBGBOARD", VAR_PROGS .. "/system/dbgboard/dbgboard"},
- {"DEVELOP/CEDIT", SRC_PROGS .. "/develop/cedit/CEDIT"},
 {"DEVELOP/CHARSETS", VAR_PROGS .. "/develop/charsets/charsets"},
 {"DEVELOP/COBJ", VAR_PROGS .. "/develop/cObj/trunk/cObj"},
 {"DEVELOP/ENTROPYV", VAR_PROGS .. "/develop/entropyview/entropyview"},
@@ -567,6 +569,7 @@ tup.append_table(img_files, {
 {"DRIVERS/OHCI.SYS", VAR_DRVS .. "/usb/ohci.sys"},
 {"DRIVERS/EHCI.SYS", VAR_DRVS .. "/usb/ehci.sys"},
 {"DRIVERS/USBHID.SYS", VAR_DRVS .. "/usb/usbhid/usbhid.sys"},
+ {"DRIVERS/USBOTHER.SYS",VAR_DRVS .. "/usb/usbother/usbother.sys"},
 {"DRIVERS/USBSTOR.SYS", VAR_DRVS .. "/usb/usbstor.sys"},
 {"DRIVERS/RDC.SYS", VAR_DRVS .. "/video/rdc.sys"},
 {"DRIVERS/COMMOUSE.SYS", VAR_DRVS .. "/mouse/commouse.sys"},
@@ -722,6 +725,8 @@ tup.append_table(img_files, {
 {"NETWORK/WHOIS", VAR_PROGS .. "/network/whois/whois"},
 {"SHELL", VAR_PROGS .. "/system/shell/shell"},
 {"GAMES/DINO", VAR_PROGS .. "/games/dino/dino"},
+ {"GAMES/FLPYBIRD", VAR_PROGS .. "/games/flpybird/flpybird"},
+ {"LIB/LIBC.OBJ", VAR_PROGS .. "/develop/ktcc/trunk/libc.obj/source/libc.obj"},
 })
 tup.append_table(extra_files, {
 {"kolibrios/utils/thashview", VAR_PROGS .. "/other/TinyHashView/thashview"},
@@ -740,12 +745,18 @@ tup.append_table(extra_files, {
 })
 end -- tup.getconfig('NO_TCC') ~= 'full'

+-- Programs that require oberon07 compiler.
+if tup.getconfig('NO_OB07') ~= 'full' then
+tup.append_table(img_files, {
+ {"DEVELOP/CEDIT", VAR_PROGS .. "/develop/cedit/cedit"},
+})
+end -- tup.getconfig('NO_OB07') ~= 'full'
+
 -- Programs that require GCC to compile.
 if tup.getconfig('NO_GCC') ~= 'full' then
 tup.append_table(img_files, {
 {"GAMES/REVERSI", VAR_PROGS .. "/games/reversi/reversi"},
 {"LIB/BASE64.OBJ", VAR_PROGS .. "/develop/libraries/base64/base64.obj"},
- {"LIB/LIBC.OBJ", VAR_PROGS .. "/develop/ktcc/trunk/libc.obj/source/libc.obj"},
 {"LIB/ICONV.OBJ", VAR_PROGS .. "/develop/libraries/iconv/iconv.obj"},
 -- {"LIB/MTAR.OBJ", VAR_PROGS .. "/develop/libraries/microtar/mtar.obj"},
 })
--- a/Managers/icons.ini
+++ b/Managers/icons.ini
@@ -162,6 +162,7 @@ min=23
 nes=23
 sna=23
 snes=23
+rom=23
 bat=24
 sh=24
 sys=25
--- a/Managers/kfar.ini
+++ b/Managers/kfar.ini
@@ -68,6 +68,7 @@ sna=/kolibrios/emul/e80/e80
 gb=/kolibrios/emul/gameboy
 gbc=/kolibrios/emul/gameboy
 min=/kolibrios/emul/pokemini
+rom=/kolibrios/emul/uxn
 nc=/kolibrios/utils/cnc_editor/cnc_editor
 kf=/sys/KF_VIEW
 csv=/sys/table
--- a/data/common/settings/app.ini
+++ b/data/common/settings/app.ini
@@ -22,3 +22,5 @@ ToggleBar=Tab
 path=/usbhd0/1/kolibri.img
 autoclose=0

+[WebView]
+proxy=http://proxy.kolibrios.org:82/?site=
--- a/data/common/settings/assoc.ini
+++ b/data/common/settings/assoc.ini
@@ -192,6 +192,7 @@ nc=/kolibrios/utils/cnc_editor/cnc_editor
 ch8=/kolibrios/emul/chip8/chip8
 md=/kolibrios/emul/dgen/dgen
 gen=/kolibrios/emul/dgen/dgen
+rom=/kolibrios/emul/uxn

 zip=$Unz
 7z=$Unz
--- a/data/ru_RU/docs/guide/faq.htm
+++ b/data/ru_RU/docs/guide/faq.htm
@@ -9,15 +9,15 @@
 	pre {white-space: pre-wrap;}
 	h2 {margin-bottom:0;}
 	blockquote {
-		margin-bottom:0; 
-		border-left: 5px solid #EFE8D5; 
+		margin-bottom:0;
+		border-left: 5px solid #EFE8D5;
 		padding-left: 10px;}
 	</style>
 </head>
 <body bgcolor="#FDF6E3" link="#5551FF"><pre><h1>Решение проблем и часто задаваемые вопросы</h1>
 <a href="guide.htm" param="d">&lt; Назад</a>

-<b>Какие есть варианты загрузки Колибри?</b>
+<b>Какие есть варианты загрузки КолибриОС?</b>
 С флешки, жесткого диска, CD, дискеты. Смотрите папку /HD_Load в скачанном дистрибутиве.
 При загрузке с флешки иногда может требоваться использование setmbr.exe, иногда нет. Вначале попробуйте загрузится без него, если не получится, то с ним.

@@ -27,7 +27,7 @@
 2. Поменять настройки в BIOS: зайти в раздел с жесткими дисками и выставить режим совместимости с IDE или что-то похожее. (После всех эксперименов не забудьте поменять все обратно!)
 3. Воспользоваться драйвером ACHI. Для этого зайдите в SYSPANEL &gt; <a href="/kolibrios/drivers/DRVINST.KEX">DriverInstall</a>.

-<b>Как установить Колибри как основную ОС, скажем, на старенький ноутбук?</b>
+<b>Как установить КолибриОС как основную ОС, скажем, на старенький ноутбук?</b>
 Есть масса вариантов. Вот один из них.
 Если на ноутбуке нет ОС, то ставим на него Windows 98. Если на нем уже стоит Windows 95/98/2k/XP, то они тоже подойдут.
 Заходим в папку /HD_Load поставляемую в дистрибутиве. Там с помощью утилит устанавливаем Kolibri в дуалбут с Windows.
@@ -49,7 +49,7 @@

 MTRRs (Memory type range registers — Диапазонные регистры типа памяти) — используются для назначения типа (политики кеширования) участкам памяти. Регистры MTRR предоставляют механизм, связывающий типы памяти с физическими адресными диапазонами системной памяти. Они позволяют процессору оптимизировать операции для разных типов памяти, таких как ПЗУ, ОЗУ, кадровый буфер и отображаемые в памяти устройства ввода-вывода. Они также упрощают разработку системного оборудования, уменьшая количество контактов управляющих памятью, которые использовались для этой цели в ранних процессорах и внешних логических устройствах.

-<b>На каких ещё языках программирования, кроме ассемблера, можно разрабатывать приложения для Колибри?</b>
+<b>На каких ещё языках программирования, кроме ассемблера, можно разрабатывать приложения для КолибриОС?</b>

 Портированы:
 &bull; Компилятор Oberon-07
@@ -68,7 +68,7 @@ MTRRs (Memory type range registers — Диапазонные регистры
 Подробная статья по поддерживаемым компиляторам и их настройке <a href="http://kolibri-n.org/inf/hll/hll">здесь</a>.

 <b>Wi-Fi работает?</b>
-Нет ни драйверов ни подсистемы. 
+Нет ни драйверов ни подсистемы.
 Если вы хотите разработать подсистему и драйвер(а) WiFi - напишите нам на форум или в группу ВК, есть возможность оплатить разработку. Для этого нужно весьма неплохо знать ассемблер.

 <b>Не работает мышь, флешка, клавиатура</b>
@@ -79,28 +79,28 @@ MTRRs (Memory type range registers — Диапазонные регистры
 &bull; Использовать PS/2 мышь...
 &bull; Купить PCI карту на несколько USB 2.0 портов, благо стоит она копейки, часто продается на барахолках

-<b>Можно ли в Колибри запускать EXE (приложения Windows)?</b>
+<b>Можно ли в КолибриОС запускать EXE (приложения Windows)?</b>
 Нет, это невозможно.
 Есть эмулятор DOS и <a href="http://board.kolibrios.org/viewtopic.php?f=9&t=2318&p=48991">PELoad</a> эмулятор некоторых функций WIN32 (в зачаточном состоянии).

 <b>Когда будет нормальный браузер?</b>
 Браузер штука очень сложная, как в написании, так и в портировании. Есть наработки по портированию Netsurf, но пока все заглохло.
-Что и когда будет не известно. 
+Что и когда будет не известно.

 <b>У меня есть идея, давайте я вам ее напишу, а вы реализуете!</b>
-Чаще всего эти идеи мало полезны. Дело в том, что у каждого человека уже вовлеченного в проект, тоже есть множество нереализованных идей, подчас более ценных, чем у новичков, за счет того, что участники лучше разбираются в системе, ее возможностях и ограничениях. Проблема, как всегда, или в мотивации, или в отсутствии времени. Пожалуйста, учитывайте это приходя в проект и не требуйте ничего от незнакомых вам людей. Участвуйте, как наблюдатель и комментатор; и со временем вы сможете генерировать хорошие идеи предметно. 
-К сожалению даже клевая идея не гарантирует ее скорейшей реализации, потому самый надежный шанс воплотить идею в жизнь - реализовать самому. 
+Чаще всего эти идеи мало полезны. Дело в том, что у каждого человека уже вовлеченного в проект, тоже есть множество нереализованных идей, подчас более ценных, чем у новичков, за счет того, что участники лучше разбираются в системе, ее возможностях и ограничениях. Проблема, как всегда, или в мотивации, или в отсутствии времени. Пожалуйста, учитывайте это приходя в проект и не требуйте ничего от незнакомых вам людей. Участвуйте, как наблюдатель и комментатор; и со временем вы сможете генерировать хорошие идеи предметно.
+К сожалению даже клевая идея не гарантирует ее скорейшей реализации, потому самый надежный шанс воплотить идею в жизнь - реализовать самому.

-<b>Почему в Колибри все еще нет ХХХ? Это же так важно!</b>
-Потому что это ХХХ еще никто не сделал. 
+<b>Почему в КолибриОС все еще нет ХХХ? Это же так важно!</b>
+Потому что это ХХХ еще никто не сделал.
 См. предыдущий ответ.

 <b>Какие у вас дальнейшие планы развития?</b>
 Большинство путей развития упирается не в планы, а в свободные руки. Особенно в квалифицированные рабочие руки.

 <b>Как насчет версии для ARM вместо Android?</b>
-Нативно это невозможно. Абсолютно и полностью. 
-Дело в том, что Колибри ОС написана на ассемблере x86, тем самым овермаксимально оптимизирована под процессоры x86. На мобильных девайсах используется другой тип процессора и другая архитектура - arm, что делает портирование невозможным.
+Нативно это невозможно. Абсолютно и полностью.
+Дело в том, что КолибриОС написана на ассемблере x86, тем самым овермаксимально оптимизирована под процессоры x86. На мобильных девайсах используется другой тип процессора и другая архитектура - arm, что делает портирование невозможным.
 Колибри - десктопная ОС для Пека, любите ее такой, какая она есть.
 </body>
 </html>
--- a/drivers/usb/usbother/Tupfile.lua
+++ b/drivers/usb/usbother/Tupfile.lua
@@ -0,0 +1,4 @@
+if tup.getconfig("NO_FASM") ~= "" then return end
+ROOT = "../../.."
+tup.rule("usbother.asm", "fasm %f %o " .. tup.getconfig("PESTRIP_CMD") .. tup.getconfig("KPACK_CMD"), "%B.sys")
+tup.rule("usbdrv.asm", "fasm %f %o ", "%B.dat")
--- a/drivers/usb/usbother/usbdrv.asm
+++ b/drivers/usb/usbother/usbdrv.asm
@@ -0,0 +1,214 @@
+;*****************************************************************************;
+;    Copyright (C) 2025, Mikhail Frolov aka Doczom . All rights reserved.     ;
+;            Distributed under terms of the 3-Clause BSD License.             ;
+;*****************************************************************************;
+;               File of usb drivers
+;       base = 0
+; offset                | Size  | Name          | Description
+;=======================|=======|===============|=============================
+; base + 0              |  4    | ID_drv_table  | offset to dev_ven drv array
+; base + 4              |  4    | Class_table   | offset to class drv array
+;
+;       n = 0 .. count driver with ID table
+;       nt = count driver with ID table
+; ID_drv_table + 0*(n-1)|  4    | ID_TABLE      | offset from base to table VID:PID
+; ID_drv_table + 4*(n-1)|  4    | DRV_NAME      | offset from base to name of driver
+; ID_drv_table + 8*nt   |  8    | __ZERO        | terminaror of list
+
+;       k = 0 .. count driver on class code
+;       kt = count driver on class code
+; Class_table + 0*(k-1) |  1    | LENGTH_CLASS  | length of class code 1..3
+; Class_table + 1*(k-1) |  1    | USB_CLASS     | main usb class code (M)
+; Class_table + 2*(k-1) |  1    | USB_SUBCLASS  | USB subclass code or zero(V)
+; Class_table + 2*(k-1) |  1    | USB_PROTOCOL  | USB protocol code or zero(V)
+; Class_table + 4*(k-1) |  4    | DRV_NAME      | offset from base to name of driver
+; Class_table + 8*kt    |  8    | __ZERO        | terminaror of list
+
+;       i = 0 .. count VID:PID
+;       it =  count VID:PID
+; ID_TABLE + 0*(i-1)    |  2    | VID           | Vendor id
+; ID_TABLE + 2*(i-1)    |  2    | PID           | Product id
+; ID_TABLE + 4*it       |  4    | __ZERO        | terminaror of list
+
+
+macro INIT_USBDRV_FILE {
+        local ..id_list, ..class_list
+
+        format binary as 'dat'
+        use32
+        org 0
+                dd      ..id_list
+                dd      ..class_list
+
+
+        macro ID_DRV_TABLE \{
+                dd 0, 0
+        \}
+
+        macro CLASS_TABLE \{
+                dd 0, 0
+        \}
+        macro ID_TABLE \{
+        \}
+        macro DRV_NAME_LIST \{
+        \}
+        postpone \{
+                 ..id_list:   ID_DRV_TABLE
+                ..class_list: CLASS_TABLE
+                ID_TABLE
+                DRV_NAME_LIST
+        \}
+}
+
+macro ADD_CLASS drv_name, class, subclass, protocol {
+
+        local ..length, ..class_code, ..drv_name
+
+        ..length = 3
+
+        match =X, class \{
+              err 'Class is mandatory argument'
+        \}
+        match =X, protocol \{
+              ..length = 2
+        \}
+        match =X, subclass \{
+              ..length = 1
+        \}
+
+        ..class_code = ..length or (class  shl 8)
+
+        if  ..length = 3
+            ..class_code = ..class_code or (protocol  shl 24)
+        end if
+        if  ..length = 2
+            ..class_code = ..class_code or (subclass  shl 16)
+        end if
+
+
+        ; add in list
+
+        macro DRV_NAME_LIST \{
+                ..drv_name: db drv_name, 0
+                DRV_NAME_LIST
+        \}
+
+        macro CLASS_TABLE \{
+                dd      ..class_code, ..drv_name
+                CLASS_TABLE
+        \}
+}
+
+macro ADD_ID drv_name, [device_id] {
+        common
+        local ..drv_name, ..id_table
+
+        macro ID_TABLE \{
+                ID_TABLE
+                ..id_table:
+        \}
+
+        reverse
+        local vid_pid
+                match VID:PID, device_id \{
+                      vid_pid = (PID shl 16) + VID
+                \}
+
+
+        macro ID_TABLE \{
+                ID_TABLE
+                dd  vid_pid
+        \}
+
+        common
+        macro ID_TABLE \{
+                ID_TABLE
+                dd  0
+        \}
+        macro DRV_NAME_LIST \{
+                ..drv_name: db drv_name, 0
+                DRV_NAME_LIST
+        \}
+        macro ID_DRV_TABLE \{
+                dd ..id_table, ..drv_name
+                ID_DRV_TABLE
+        \}
+}
+
+; ADD ID driver Linux
+macro ADD_IDL drv_name, [vendor_id, device_id] {
+        common
+        local ..drv_name, ..id_table
+
+        macro ID_TABLE \{
+                ID_TABLE
+                ..id_table:
+        \}
+
+        reverse
+        local vid_pid
+                vid_pid = (device_id shl 16) + vendor_id
+
+        macro ID_TABLE \{
+                ID_TABLE
+                dd  vid_pid
+        \}
+
+        common
+        macro ID_TABLE \{
+                ID_TABLE
+                dd  0
+        \}
+        macro DRV_NAME_LIST \{
+                ..drv_name: db drv_name, 0
+                DRV_NAME_LIST
+        \}
+        macro ID_DRV_TABLE \{
+                dd ..id_table, ..drv_name
+                ID_DRV_TABLE
+        \}
+}
+
+
+INIT_USBDRV_FILE
+
+;ADD_CLASS       'usbcdc-ctrl'   , 0x02, X   , X
+;ADD_CLASS       'usbimage'      , 0x06, 1   , 1
+;ADD_CLASS       'usbcdc-data'   , 0x0A, X   , X
+;ADD_CLASS       'ccid'          , 0x0B, X   , X
+;ADD_CLASS       'uvd'           , 0x0E, X   , X
+;ADD_CLASS       'uvd_2'         , 0x0E, 0x02, X
+;ADD_CLASS       'usb_bluetooth' , 0xE0, 0x01, X
+;ADD_CLASS       'usb_wifi'      , 0xE0, 0x02, X
+
+
+
+ADD_ID  'usbftdi',\
+        0x0403:0        ; Any FTDI device
+
+;https://github.com/avrdudes/avrdude/blob/main/src/usbdevs.h#L51
+;ADD_ID  'usbasp',\
+;        0x16c0:0x05dc,\ ; VOTI Obdev's free shared PID
+;        0x03e8:0xc7b4,\ ; ATMEL (unofficial) USBasp
+;        0x16c0:0x092f   ; VOTI NIBObee PID
+
+;https://github.com/WCHSoftGroup/ch341par_linux/blob/main/driver/ch34x_pis.c
+;ADD_IDL 'ch341par',\
+;        0x1a86, 0x5512,\ ; ch341a default
+;        0x1a86, 0x55db,\ ; CH347T Mode1 SPI+IIC+UART
+;        0x1a86, 0x55dd,\ ; CH347T Mode3 JTAG+UART
+;        0x1a86, 0x55de,\ ; CH347F
+;        0x1a86, 0x55e7   ; CH339W
+
+;https://github.com/openbsd/src/blob/master/sys/dev/usb/uchcom.c
+;https://github.com/WCHSoftGroup/ch341ser_linux/blob/main/driver/ch341.c
+;ADD_IDL 'ch341ser',\
+;        0x1a86, 0x7523,\ ; ch340 chip
+;        0x1a86, 0x7522,\ ; ch340k chip
+;        0x1a86, 0x5523,\ ; ch341 chip
+;        0x1a86, 0xe523,\ ; ch330 chip
+;        0x4348, 0x5523   ; ch340 custom chip
+
+
+
+
--- a/drivers/usb/usbother/usbother.asm
+++ b/drivers/usb/usbother/usbother.asm
@@ -0,0 +1,523 @@
+;*****************************************************************************;
+;    Copyright (C) 2025, Mikhail Frolov aka Doczom . All rights reserved.     ;
+;            Distributed under terms of the 3-Clause BSD License.             ;
+;                                                                             ;
+; usbother is a driver for loading USB drivers of a certain class and vendor. ;
+;                                                                             ;
+;                         Version 0.1.1, 24 May 2025                          ;
+;                                                                             ;
+;*****************************************************************************;
+format PE native 0.05
+entry  START
+; const
+
+DRV_VERSION     = 0x0101 ; 0.1.1
+
+
+; struct
+include '../../struct.inc'
+
+; USB device descriptor
+struct DEVICE_DESCR
+        bLength                 db      ?
+        bDescriptorType         db      ?
+        bcdUSB                  dw      ?
+        bDeviceClass            db      ?
+        bDeviceSubClass         db      ?
+        bDeviceProtocol         db      ?
+        bMaxPacketSize0         db      ?
+        idVendor                dw      ?
+        idProduct               dw      ?
+        bcdDevice               dw      ?
+        iManufacturer           db      ?
+        iProduct                db      ?
+        iSerialNumber           db      ?
+        bNumConfigurations      db      ?
+ends
+
+struct INTERFACE_DESCR
+        bLength                 db      ?
+        bDescriptorType         db      ?
+        bInterfaceNumber        db      ?
+        bAlternateSetting       db      ?
+        bNumEndpoints           db      ?
+        bInterfaceClass         db      ?
+        bInterfaceSubClass      db      ?
+        bInterfaceProtocol      db      ?
+        iInterface              db      ?
+ends
+
+
+struct  SRV
+        srv_name        rb 16    ;ASCIIZ string
+        magic           dd ?     ;+0x10 ;'SRV '
+        size            dd ?     ;+0x14 ;size of structure SRV
+        fd              dd ?     ;+0x18 ;next SRV descriptor
+        bk              dd ?     ;+0x1C ;prev SRV descriptor
+        base            dd ?     ;+0x20 ;service base address
+        entry           dd ?     ;+0x24 ;service START function
+        srv_proc        dd ?     ;+0x28 ;user mode service handler
+        srv_proc_ex     dd ?     ;+0x2C ;kernel mode service handler
+ends
+
+struct USBSRV
+        srv             SRV
+        usb_func        dd ?
+ends
+
+struct USBFUNC
+        strucsize       dd ?
+        add_device      dd ?
+        device_disconnect dd ?
+ends
+
+USBDRV_TYPE_NOLOCK      = 0 ; usb device not controlled (native driver
+                            ;  not found and IOCTL not opened device)
+USBDRV_TYPE_NATIVE      = 1 ; native PE kernel driver for usb
+USBDRV_TYPE_IOCTL       = 2 ; usb device is controlled by IOCTL service
+                            ; (driver or userspace process/threads)
+USBDRV_IOCTL_BLOCKED    = 4 ; blocked IOCTL interface, device disconnected
+
+
+
+struct DRV_CONTEXT
+        next            dd ?
+        prev            dd ?
+        drv_hand        dd ?
+        drv_pdata       dd ?
+        flags           dd ?
+
+        config_descr    dd ?
+        interface_descr dd ?
+        ep              rd 64 ; 32 IN + 32 OUT endpoints' pipes
+ends
+DRV_CONTEXT.ep0 fix (DRV_CONTEXT.ep + 0)
+
+
+section '.flat' code readable writable executable
+
+include '../../proc32.inc'
+include '../../peimport.inc'
+include '../../macros.inc'
+
+
+proc    START c, state:dword, cmdline:dword
+
+        cmp     [state], DRV_ENTRY
+        jne     .end
+        ; init
+
+        mov     ecx, drv_list_lock
+        invoke  MutexInit
+
+        mov     ecx, interface_list_lock
+        invoke  MutexInit
+
+        ; load drv_list
+        stdcall load_drv_list, default_list
+        test    eax, eax
+        jnz     .end
+
+        ; reg driver
+        invoke  RegUSBDriver, drv_name, service_proc, usb_functions
+        ret
+.end:
+        xor     eax, eax
+        ret
+endp
+
+proc    load_drv_list stdcall, .path:dword
+
+        push    ebx
+        mov     ecx, drv_list_lock
+        invoke  MutexLock
+        ; load file
+        invoke  LoadFile, [.path]
+        test    eax, eax
+        push    eax
+        jnz     @f
+        mov     dword[esp], -1
+        jmp     .exit
+@@:
+        cmp     [drv_list], 0
+        jz      @f
+
+        invoke  KernelFree, [drv_list]
+@@:
+        mov     eax,[esp]
+        mov     [drv_list], eax
+        mov     dword[esp], 0
+.exit:
+        mov     ecx, drv_list_lock
+        invoke  MutexUnlock
+        pop     eax
+        pop     ebx
+        ret
+endp
+
+
+proc    service_proc stdcall, .ioctl:dword
+
+        push    esi
+        or      eax, -1
+        mov     esi, [.ioctl]
+
+        mov     ecx, [esi + IOCTL.io_code]
+        cmp     ecx, .count_ioctl_codes
+        jae     .fail
+
+        jmp     dword[.table_subfunction + ecx*4]
+
+.table_subfunction:
+        dd      .get_version
+        dd      .update_list
+        dd      .get_array_dev
+        dd      .get_full_dev_data
+        dd      .open_dev
+        dd      .close_dev
+        dd      .control_transfer
+        dd      .bulk_transfer
+        dd      .interrupt_transfer
+        ;dd      .control_transfer_async
+        ;dd      .bulk_transfer_async
+        ;dd      .interrupt_transfer_async
+.count_ioctl_codes = ($ - .table_subfunction)/4
+
+.get_version:
+        mov     eax, [esi + IOCTL.output]
+        cmp     [esi + IOCTL.out_size], 4
+        jne     .fail
+
+        mov     dword[eax], DRV_VERSION
+        xor     eax, eax
+        jmp     .exit
+
+.update_list:
+        ; update list
+        mov     ecx, [esi + IOCTL.input]
+        cmp     [esi + IOCTL.inp_size], 0
+        jnz     @f
+
+        mov     ecx, default_list
+@@:
+        stdcall load_drv_list, ecx
+
+.exit:
+        pop     esi
+        ret
+
+.get_array_dev:
+.get_full_dev_data:
+.open_dev:
+.close_dev:
+;
+.control_transfer:
+.bulk_transfer:
+.interrupt_transfer:
+
+.fail:
+        or      eax, -1
+        jmp     .exit
+endp
+
+
+proc    AddDevice stdcall, .config_pipe:dword, \
+                           .config_descr:dword,\
+                           .interface:dword
+
+        push    esi edi
+        mov     eax, sizeof.DRV_CONTEXT
+        invoke  Kmalloc
+        test    eax, eax
+        jz      .err_init
+
+        mov     esi, eax
+
+        mov     ecx, interface_list_lock
+        invoke  MutexLock
+
+        mov     edx, [usb_interface_list]     ; next
+        mov     [esi + DRV_CONTEXT.next], edx
+        mov     [esi + DRV_CONTEXT.prev], usb_interface_list
+        mov     [usb_interface_list], esi
+        mov     [edx + DRV_CONTEXT.prev], esi
+
+        mov     ecx, interface_list_lock
+        invoke  MutexUnlock
+
+        and     [esi + DRV_CONTEXT.drv_hand], 0
+        mov     [esi + DRV_CONTEXT.flags], USBDRV_TYPE_NOLOCK
+
+        ; lock mutex
+        mov     ecx, drv_list_lock
+        invoke  MutexLock
+
+        ; save device context data
+        mov     eax, [.config_pipe]
+        mov     [esi + DRV_CONTEXT.ep0], eax
+        mov     eax, [.config_descr]
+        mov     [esi + DRV_CONTEXT.config_descr], eax
+        mov     eax, [.interface]
+        mov     [esi + DRV_CONTEXT.interface_descr], eax
+
+        ; get pointer to list
+        mov     edx, [drv_list]
+        test    edx, edx
+        jz      .err_exit
+
+        mov     edi, edx
+        add     edi, [edx]
+
+        ; get in ecx VID:PID code
+        invoke  USBGetParam, [.config_pipe], 0
+        mov     ecx, dword[eax + DEVICE_DESCR.idVendor]
+
+.loop_id_drv:
+        cmp     dword[edi], 0
+        jz      .end_loop_id_drv
+
+        mov     edx, [drv_list]
+        add     edx, [edi] ; ID_TABLE
+.loop_id:
+        cmp     dword[edx], 0
+        jz      .end_loop_id
+
+        ; check id
+        mov     eax, ecx
+        test    word[edx + 2], 0xffff
+        jne     @f
+        ; driver for all devices of VID
+        and     eax, 0xffff
+@@:
+        cmp     [edx], eax ; check VID:PID
+        je      @f
+
+        add     edx, 4
+        jmp     .loop_id
+@@:     ; found
+        call    .load_drv
+        jnz     .exit
+
+        add     edx, 4
+        jmp     .loop_id
+.end_loop_id:
+        add     edi, 8
+        jmp     .loop_id_drv
+
+.end_loop_id_drv:
+
+
+        push    esi
+        mov     esi, str_1
+        invoke  SysMsgBoardStr
+        pop     esi
+
+
+        ; get in ecx class code
+        mov     eax, [.interface]
+        mov     ecx, dword[eax + INTERFACE_DESCR.bInterfaceClass]  ; 24-31 bits
+
+        mov     edi, [drv_list]
+        add     edi, [edi + 4]
+.loop_class:
+        cmp     dword[edi], 0
+        jz      .end_loop_class
+
+        ; check class
+        movzx   eax, byte[edi]  ; length
+        and     eax, 11b        ; protect - max length = 3
+        lea     eax, [eax*8]    ; 1 = 8;  2 = 16; 3 = 24
+        xor     edx, edx
+        bts     edx, eax
+        dec     edx             ; bitmask
+
+        mov     eax, [edi]
+        shr     eax, 8
+        and     eax, edx    ; good class in list
+
+        and     edx, ecx    ; good class of device
+
+        cmp     eax, edx
+        je      @f
+
+        add     edi, 8
+        jmp     .loop_class
+@@:     ; found
+        call    .load_drv
+        jnz     .exit
+
+        add     edi, 8
+        jmp     .loop_class
+
+; IN: edi - item list of driver
+;     esi - DRV_CONTEXT
+; OUT: ZF - not found zF - found
+; function save drv handl in DRV_CONTEXT.drv_hand
+;          and pdata in DRV_CONTEXT.drv_pdata
+.load_drv:
+        push    ecx edx
+        ; load driver
+        push    esi
+        mov     esi, str_2
+        invoke  SysMsgBoardStr
+        pop     esi
+
+        mov     ecx, [drv_list]
+        add     ecx, [edi + 4]
+
+        pusha
+        mov     esi, ecx
+        invoke  SysMsgBoardStr
+        mov     esi, str_newline
+        invoke  SysMsgBoardStr
+        popa
+
+        invoke  GetService, ecx
+        test    eax, eax
+        jz      @f
+
+        mov     [esi + DRV_CONTEXT.drv_hand], eax
+        ; get function list
+        mov     ecx, [eax + USBSRV.usb_func]
+
+        ; call AddDevice of driver
+        stdcall [ecx + USBFUNC.add_device], [.config_pipe], \
+                                            [.config_descr],\
+                                            [.interface]
+        mov     [esi + DRV_CONTEXT.drv_pdata], eax
+        test    eax, eax
+        jnz     .load_drv.good
+
+        push    esi
+        mov     esi, str_4
+        invoke  SysMsgBoardStr
+        pop     esi
+
+        and     [esi + DRV_CONTEXT.drv_hand], 0
+@@:
+        pushf
+        push    esi
+        mov     esi, str_5
+        invoke  SysMsgBoardStr
+        pop     esi
+        popf
+
+        pop     edx ecx
+        retn
+.load_drv.good:
+        pushf
+        push    esi
+        mov     esi, str_3
+        invoke  SysMsgBoardStr
+        pop     esi
+        popf
+
+        mov     [esi + DRV_CONTEXT.flags], USBDRV_TYPE_NATIVE
+        pop     edx ecx
+        retn
+
+
+.err_exit:
+        mov     eax, esi
+        invoke  Kfree
+        xor     esi, esi
+.end_loop_class:
+.exit:
+        ; driver not found - Added libusb driver
+
+        ; unlock mutex
+        mov     ecx, drv_list_lock
+        invoke  MutexUnlock
+
+        mov     eax, esi
+        pop     edi esi
+        ret
+.err_init:
+        xor     eax, eax
+        pop     edi esi
+        ret
+endp
+
+
+proc    DeviceDisconnected stdcall, .pdata:dword
+
+        mov     eax, [.pdata]
+
+        test    [eax + DRV_CONTEXT.flags], USBDRV_TYPE_NATIVE
+        jz      .no_native
+
+        cmp     [eax + DRV_CONTEXT.drv_hand], 0
+        jz      .free
+
+        ; call device disconnected
+        mov     ecx, [eax + DRV_CONTEXT.drv_hand]
+
+        mov     edx, [ecx + USBSRV.usb_func]
+        cmp     dword[edx], USBFUNC.device_disconnect
+        jbe     .free                                ; TODO: check
+
+        stdcall [edx + USBFUNC.device_disconnect], [eax + DRV_CONTEXT.drv_pdata]
+.free:
+        ; clear list of DRV_CONTENT
+        mov     ecx, interface_list_lock
+        invoke  MutexLock
+
+        mov     eax, [.pdata]
+        mov     edx, [eax + DRV_CONTEXT.prev]
+        mov     ecx, [eax + DRV_CONTEXT.next]
+        mov     [edx + DRV_CONTEXT.next], ecx
+        mov     [ecx + DRV_CONTEXT.prev], edx
+
+        mov     ecx, interface_list_lock
+        invoke  MutexUnlock
+
+        ; free context
+        mov    eax, [.pdata]
+        invoke Kfree
+        ret
+.no_native:
+        test    [eax + DRV_CONTEXT.flags], USBDRV_TYPE_IOCTL
+        jz      .free
+
+        ; set state for block user api and clear struct
+        or      [eax + DRV_CONTEXT.flags], USBDRV_IOCTL_BLOCKED
+        xor     ecx, ecx
+        ;mov     [eax + DRV_CONTEXT.drv_hand], ecx
+        ;mov     [eax + DRV_CONTEXT.drv_pdata], ecx
+        mov     [eax + DRV_CONTEXT.config_descr], ecx
+        mov     [eax + DRV_CONTEXT.interface_descr], ecx
+        mov     [eax + DRV_CONTEXT.ep0], ecx
+        ; TODO
+        jmp     .free
+endp
+
+; data
+drv_list_lock   MUTEX
+
+drv_list        dd ?
+
+interface_list_lock     MUTEX
+usb_interface_list:
+        dd      usb_interface_list
+        dd      usb_interface_list
+
+
+usb_functions:
+        dd      .end - usb_functions
+        dd      AddDevice
+        dd      DeviceDisconnected
+.end:
+
+drv_name        db 'usbother', 0
+
+default_list:   db '/sys/settings/usbdrv.dat', 0
+
+str_1: db 'USBOTHER: Driver for this ID not found', 13, 10, 0
+str_2: db 'USBOTHER: Check found driver: ', 0, 13, 10, 0
+str_3: db 'USBOTHER: Device driver is good', 13, 10, 0
+str_4: db 'USBOTHER: Device driver fail prob', 13, 10, 0
+str_5: db 'USBOTHER: Device driver load error', 13, 10, 0
+str_newline: db 13,10,0
+
+data fixups
+end data
--- a/kernel/branches/kolibri-ahci/bootloader/readme
+++ b/kernel/branches/kolibri-ahci/bootloader/readme
@@ -5,7 +5,7 @@
 ;;                                                              ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

-Загрузочный сектор для ОС Колибри (FAT12, дискета)
+Загрузочный сектор для КолибриОС (FAT12, дискета)

 - Описание
  Позволяет загружать KERNEL.MNT с дискет/образов
--- a/kernel/branches/kolibri-lldw/bootloader/readme
+++ b/kernel/branches/kolibri-lldw/bootloader/readme
@@ -5,7 +5,7 @@
 ;;                                                              ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

-Загрузочный сектор для ОС Колибри (FAT12, дискета)
+Загрузочный сектор для КолибриОС (FAT12, дискета)

 - Описание
  Позволяет загружать KERNEL.MNT с дискет/образов
--- a/kernel/branches/kolibrios-pe-clevermouse/bootloader/readme
+++ b/kernel/branches/kolibrios-pe-clevermouse/bootloader/readme
@@ -5,7 +5,7 @@
 ;;                                                              ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

-Загрузочный сектор для ОС Колибри (FAT12, дискета)
+Загрузочный сектор для КолибриОС (FAT12, дискета)

 - Описание
  Позволяет загружать KERNEL.MNT с дискет/образов
--- a/kernel/trunk/bootloader/readme
+++ b/kernel/trunk/bootloader/readme
@@ -5,7 +5,7 @@
 ;;                                                              ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

-Загрузочный сектор для ОС Колибри (FAT12, дискета)
+Загрузочный сектор для КолибриОС (FAT12, дискета)

 - Описание
  Позволяет загружать KERNEL.MNT с дискет/образов
--- a/programs/cmm/browser/WebView.c
+++ b/programs/cmm/browser/WebView.c
@@ -1,10 +1,9 @@
 //Copyright 2007-2025 by Veliant & Leency
-//Asper, lev, Lrz, Barsuk, Nable, hidnplayr...
+//Asper, lev, Lrz, Barsuk, Nable, hidnplayr, Burer...

 //BUGS
 //if maximize a window on image load => crash
 //issues with a long line
-//add proxy settings

 //===================================================//
 //                                                   //
@@ -13,6 +12,7 @@
 //===================================================//

 #define MEMSIZE 1024 * 160
+
 #include "..\lib\gui.h"
 #include "..\lib\draw_buf.h"
 #include "..\lib\list_box.h"
@@ -21,6 +21,7 @@
 #include "..\lib\random.h"
 #include "..\lib\clipboard.h"

+#include "..\lib\obj\libini.h"
 #include "..\lib\obj\box_lib.h"
 #include "..\lib\obj\libimg.h"
 #include "..\lib\obj\http.h"
@@ -67,6 +68,10 @@ _http http = 0;
 progress_bar prbar;
 proc_info Form;

+char settings_file[256];
+char proxy_address[768];
+
+#include "settings.h"
 #include "tabs.h"

 dword cur_img_url;
@@ -90,6 +95,7 @@ edit_box omnibox_edit = {250, 0, 0, 0xffffff,

 void LoadLibraries()
 {
+	load_dll(libini,      #lib_init,1);
 	load_dll(boxlib,      #box_lib_init,0);
 	load_dll(libimg,      #libimg_init,1);
 	load_dll(libHTTP,     #http_lib_init,1);
@@ -130,6 +136,7 @@ void main()
 	TOOLBAR_H = PADDING+TSZE+PADDING+2;

 	LoadLibraries();
+	LoadIniConfig();
    HandleParam();

 	omnibox_edit.left = PADDING+TSZE*2+PADDING+6;
@@ -517,14 +524,17 @@ bool GetLocalFileData(dword _path)
 bool GetUrl(dword _http_url)
 {
 	char new_url_full[URL_SIZE+1];
-	if (!strncmp(_http_url,"http:",5)) {
+	if (!strncmp(_http_url,"http://",7)) {
 		http.get(_http_url);
 		return true;
 	} else if (!strncmp(_http_url,"https://",8)) {
-		strcpy(#new_url_full, "http://gate.aspero.pro/?site=");
-		strncat(#new_url_full, _http_url, URL_SIZE);
-		http.get(#new_url_full);
-		return true;
+		if (#proxy_address) {
+			strcpy(#new_url_full, #proxy_address);
+			strncat(#new_url_full, _http_url, URL_SIZE);
+			http.get(#new_url_full);
+			return true;
+		}
+		return false;
 	}
 	return false;
 }
--- a/programs/cmm/browser/const.h
+++ b/programs/cmm/browser/const.h
@@ -70,7 +70,7 @@ Copy link
 Download link contents";
 char loading_text[] = "Loading...";
 char update_param[] = "-e http://builds.kolibrios.org/en_US/data/programs/cmm/browser/WebView.com";
-char update_download_error[] = "'WebView\nError receiving an up to date information!' -tE";
+char update_download_error[] = "'WebView\nError receiving update information!' -tE";
 char update_ok[] = "'WebView\nThe browser has been updated!' -tO";
 char update_is_current[] = "'WebView\nThe browser is up to date.' -tI";
 char update_can_not_copy[] = "'WebView\nError copying a new version from Downloads folder!\nProbably too litle space on Ramdisk.' -tE";
@@ -112,4 +112,4 @@ char editbox_icons[] = FROM "res/editbox_icons.raw";

 #define DEFAULT_URL URL_SERVICE_HOMEPAGE

-char version[]="WebView 3.91";
+char version[]="WebView 3.92";
--- a/programs/cmm/browser/res/homepage_en.htm
+++ b/programs/cmm/browser/res/homepage_en.htm
@@ -14,7 +14,7 @@
 |     ||  |        |  |
 \_____||__|________|__|<font color=#DDD>lc</font>

-<font bg=#F8F15B> web <font bg=#FF5A7E color=#fff> 1.0 <font bg=#47D018> compatable
+<font bg=#F8F15B> web <font bg=#FF5A7E color=#fff> 1.0 <font bg=#47D018> compatible
 <font bg=#3CE7FF>              </font></font></font></font>
 <td>

@@ -26,9 +26,9 @@

 By the way,
 <font color="#555555">&bull; You can check for browser updates from the main menu.
-&bull; To run a web search, type a text in the adress box and press Ctrl+Enter.
-&bull; Pressing F6 moves a text cursor to the omnibox.
-&bull; You can manually change the encoding of a page by clicking on a label in the bottom right corner.
+&bull; To run a web search, type text in the address box and press Ctrl+Enter.
+&bull; Pressing F6 moves the text cursor to the omnibox.
+&bull; You can manually change the encoding of a page by clicking on the label in the bottom right corner.



--- a/programs/cmm/browser/res/page_not_found_en.htm
+++ b/programs/cmm/browser/res/page_not_found_en.htm
@@ -4,11 +4,11 @@
 <h1>&nbsp;Webpage Not Available</h1>
 <h2>&nbsp;What could be done:</h2>
 <ul>
-	<li>Make sure that evetything fine with Internet connection.<br>
+	<li>Make sure that you have a working Internet connection.<br>
 		Open <a href="/sys/network/netcfg">Netcfg</a> network diagnostic tool.<br>
-	<li>Check page address, there may have been made a typo.<br>
+	<li>Check the page address for any typos.<br>
 	<li>Server is temporarily unavailable.<br>
 		Refresh the page.<br>
-	<li>Browser doesn't handled properly server's response.<br>
+	<li>Browser didn't properly handle the server's response.<br>
 		Please, report an error.<br>
 </ul>
--- a/programs/cmm/browser/settings.h
+++ b/programs/cmm/browser/settings.h
@@ -0,0 +1,9 @@
+_ini ini;
+
+void LoadIniConfig()
+{
+    ini.path = GetIni(#settings_file, "app.ini");
+    ini.section = "WebView";
+
+    ini.GetString("proxy", #proxy_address, sizeof(proxy_address), NULL);
+}
--- a/programs/cmm/downloader/dl.c
+++ b/programs/cmm/downloader/dl.c
@@ -1,7 +1,12 @@
+//Copyright 2020 - 2025 by Leency
+//Burer...
+
 #define MEMSIZE 1024 * 40
-//Copyright 2020 - 2021 by Leency
+
 #include "../lib/gui.h"
 #include "../lib/random.h"
+
+#include "../lib/obj/libini.h"
 #include "../lib/obj/box_lib.h"
 #include "../lib/obj/http.h"

@@ -21,6 +26,11 @@ char uEdit[URL_SIZE];
 char filepath[4096];
 char save_dir[4096];

+char settings_file[256];
+char proxy_address[768];
+
+#include "settings.h"
+
 char* active_status;

 edit_box ed = {WIN_W-GAPX-GAPX,GAPX,20,0xffffff,0x94AECE,0xffffff,0xffffff,
@@ -32,9 +42,13 @@ progress_bar pb = {0, GAPX, 52, WIN_W - GAPX - GAPX, 17, 0, NULL, NULL,
 void main()  
 {
 	dword shared_url;
+
+	load_dll(libini,  #lib_init,1);
 	load_dll(boxlib,  #box_lib_init,0);
 	load_dll(libHTTP, #http_lib_init,1);

+	LoadIniConfig();
+
 	strcpy(#save_dir, DEFAULT_SAVE_DIR);
 	if (!dir_exists(#save_dir)) CreateDir(#save_dir);
 	SetCurDir(#save_dir);
@@ -167,10 +181,8 @@ void StartDownloading()
 	if (http.transfer > 0) return;
 	ResetDownloadSpeed();
 	pb.back_color = 0xFFFfff;
-	if (!strncmp(#uEdit,"https:",6)) {
-		//miniprintf(#get_url, "http://gate.aspero.pro/?site=%s", #uEdit);
-		notify("'HTTPS for download temporary is not supported,\ntrying to download the file via HTTP' -W");
-		miniprintf(#uEdit, "http://%s", #uEdit+8);
+	if (!strncmp(#uEdit,"https://",8)) {
+		miniprintf(#get_url, "%s%s", #proxy_address, #uEdit);
 	}
 	strcpy(#get_url, #uEdit);

--- a/programs/cmm/downloader/settings.h
+++ b/programs/cmm/downloader/settings.h
@@ -0,0 +1,9 @@
+_ini ini;
+
+void LoadIniConfig()
+{
+    ini.path = GetIni(#settings_file, "app.ini");
+    ini.section = "WebView";
+
+    ini.GetString("proxy", #proxy_address, sizeof(proxy_address), NULL);
+}
--- a/programs/cmm/lib/obj/http.h
+++ b/programs/cmm/lib/obj/http.h
@@ -112,7 +112,6 @@ struct _http
 dword _http::get(dword _url)
 {
 	cur_url = _url;
-	if (streqrp(cur_url, "http://gate.aspero.pro/?site=")) cur_url += 29;
 	http_get stdcall (_url, 0, 0, #accept_language);
 	transfer = EAX;
 	return EAX;
@@ -138,7 +137,7 @@ bool _http::stop()
 		transfer=0;
 		*/
 		hfree();
-		return true;    
+		return true;
 	}
 	return false;
 }
--- a/programs/develop/cedit/CEDIT
+++ b/programs/develop/cedit/CEDIT
--- a/programs/develop/cedit/SHORTCUT.TXT
+++ b/programs/develop/cedit/SHORTCUT.TXT
@@ -47,3 +47,9 @@
  перемещение по тексту:
  (ctrl+)Home, (ctrl+)End, (ctrl+)PageUp, (ctrl+)PageDown
  ctrl+Left, ctrl+Right
+
+  перемещение в панели поиска:
+  Tab         к следующему полю ввода
+  Shift-Tab   к предыдущему полю ввода
+  Enter       поиск следующего вхождения
+
--- a/programs/develop/cedit/SRC/CEdit.ob07
+++ b/programs/develop/cedit/SRC/CEdit.ob07
@@ -28,7 +28,7 @@ IMPORT
    RW, Ini, EB := EditBox, Tabs, Toolbar, SB := StatusBar;

 CONST
-    HEADER = "CEdit (30-apr-2025)";
+    HEADER = "CEdit (11-jan-2026)";

    ShellFilter = "";
    EditFilter = "sh|inc|txt|asm|ob07|c|cpp|h|pas|pp|lua|ini|json";
@@ -1750,7 +1750,15 @@ BEGIN
        ELSE
            IF EditBox_Focus(FindEdit) THEN
            	IF keyCode = 15 THEN (* Tab *)
-            		SetFocus(ReplaceEdit, TRUE)
+                    IF shift THEN
+            		    SetFocus(GotoEdit, TRUE)
+                    ELSE
+                        SetFocus(ReplaceEdit, TRUE)
+                    END
+                ELSIF keyCode = 28 THEN (* Enter *)    
+                    IF searchOpened & (searchText # "") THEN
+                        notFound := ~T.findNext(text, BKW.value)
+                    END
            	ELSE
 	                EB.key(FindEdit, key);
 	                EditBox_Get(FindEdit, new_searchText);
@@ -1761,14 +1769,26 @@ BEGIN
                END
            ELSIF EditBox_Focus(ReplaceEdit) THEN
            	IF keyCode = 15 THEN (* Tab *)
-            		SetFocus(GotoEdit, TRUE)
+                    IF shift THEN
+                        SetFocus(FindEdit, TRUE)
+                    ELSE
+                        SetFocus(GotoEdit, TRUE)
+                    END
+                ELSIF keyCode = 28 THEN (* Enter *)    
+                    IF searchOpened & (searchText # "") THEN
+                        notFound := ~T.findNext(text, BKW.value)
+                    END
            	ELSE
                	EB.key(ReplaceEdit, key);
                	EditBox_Get(ReplaceEdit, replaceText)
                END
            ELSIF EditBox_Focus(GotoEdit) THEN
            	IF keyCode = 15 THEN (* Tab *)
-            		SetFocus(FindEdit, TRUE)
+                    IF shift THEN
+                        SetFocus(ReplaceEdit, TRUE)
+                    ELSE
+                        SetFocus(FindEdit, TRUE)
+                    END
            	ELSE
 	                IF (key DIV 256) MOD 256 = 13 THEN
 	                    goto
--- a/programs/develop/cedit/Tupfile.lua
+++ b/programs/develop/cedit/Tupfile.lua
@@ -0,0 +1,9 @@
+if tup.getconfig("NO_OB07") ~= "" then return end
+if tup.getconfig("HELPERDIR") == ""
+then
+  HELPERDIR = "../../"
+end
+
+tup.include(HELPERDIR .. "/use_ob07.lua")
+
+build_ob07({"SRC/CEdit.ob07"}, "cedit"); 
--- a/programs/develop/heed/trunk/heed.asm
+++ b/programs/develop/heed/trunk/heed.asm
@@ -24,7 +24,7 @@
 ; Ctrl+F                - ¯®¨áª (+Tab ¤«ï OptionBox)
 ; Ctrl+G                - ¯¥à¥å®¤   á¬¥é¥¨¥ (+Tab ¤«ï OptionBox)
 ; Ctrl+B                - ¢ë¤¥«¨âì ¡«®ª
-; ESC                   - áïâì ¢ë¤¥«¥¨¥
+; ESC                   - áïâì ¢ë¤¥«¥¨¥/¢ëå®¤
 ; Ctrl+C		- ª®¯¨à®¢ âì ¡«®ª
 ; Ctrl+V		- ¢áâ ¢¨âì ¢ ¢ë¤¥«¥ãî ®¡« áâì
 ; Ctrl+X		- ¢ëà¥§ âì ¢ë¤¥«¥ãî ®¡« áâì (¢ ¡ãä¥à)
@@ -2699,7 +2699,8 @@ Ctrl_END:
 	jmp	red
 ;--------------------------------------------------------------------
 ESC:
-	btr	[flags],8
+	btr	[flags], 8
+	jnc	close_prog
 	jmp	red
 ;--------------------------------------------------------------------
 copy_to_buf:
@@ -3236,7 +3237,7 @@ if lang eq ru_RU
 db 'Ctrl+F              - ¯®¨áª                        '
 db 'Ctrl+G              - ¯¥à¥å®¤   á¬¥é¥¨¥          '
 db 'Ctrl+B              - ¢ë¤¥«¨âì ¡«®ª                '
- db 'ESC                 - áïâì ¢ë¤¥«¥¨¥              '
+ db 'ESC                 - áïâì ¢ë¤¥«¥¨¥/¢ëå®¤        '
 db 'Ctrl+C              - ª®¯¨à®¢ âì ¡«®ª              '
 db 'Ctrl+V              - ¢áâ ¢¨âì ¢ ¢ë¤¥«¥ãî ®¡« áâì'
 db 'Ctrl+X              - ¢ëà¥§ âì ¢ ¡ãä¥à             '
@@ -3258,7 +3259,7 @@ else ; Default to en_US
 db 'Ctrl+F              - find                         '
 db 'Ctrl+G              - go to offset                 '
 db 'Ctrl+B              - select area                  '
- db 'ESC                 - deselect area                '
+ db 'ESC                 - deselect area/exit           '
 db 'Ctrl+C              - copy area                    '
 db 'Ctrl+V              - past into area from buf      '
 db 'Ctrl+X              - cut area into buffer         '
--- a/programs/develop/info3ds/build_en.bat
+++ b/programs/develop/info3ds/build_en.bat
@@ -1,10 +1,7 @@
 if not exist bin mkdir bin
@erase lang.inc
@echo lang fix en_US >lang.inc
-@copy objects.png bin\objects.png
 if not exist bin\info3ds.ini @copy info3ds.ini bin\info3ds.ini
-if not exist bin\toolbar.png @copy toolbar.png bin\toolbar.png
-if not exist bin\font8x9.bmp @copy ..\..\fs\kfar\trunk\font8x9.bmp bin\font8x9.bmp
@fasm.exe -m 16384 info3ds.asm bin\info3ds.kex
@kpack bin\info3ds.kex
@fasm.exe -m 16384 info3ds_u.asm bin\info3ds_u.kex
--- a/programs/develop/info3ds/build_ru.bat
+++ b/programs/develop/info3ds/build_ru.bat
@@ -1,10 +1,7 @@
 if not exist bin mkdir bin
@erase lang.inc
@echo lang fix ru_RU >lang.inc
-@copy objects.png bin\objects.png
 if not exist bin\info3ds.ini @copy info3ds.ini bin\info3ds.ini
-if not exist bin\toolbar.png @copy toolbar.png bin\toolbar.png
-if not exist bin\font8x9.bmp @copy ..\..\fs\kfar\trunk\font8x9.bmp bin\font8x9.bmp
@fasm.exe -m 16384 info3ds.asm bin\info3ds.kex
@kpack bin\info3ds.kex
@fasm.exe -m 16384 info3ds_u.asm bin\info3ds_u.kex
--- a/programs/develop/info3ds/info3ds.asm
+++ b/programs/develop/info3ds/info3ds.asm
@@ -1,6 +1,10 @@
+; SPDX-License-Identifier: GPL-2.0-only
+; Info3ds - is a program for viewing the structure of *.3ds files
+; Copyright (C) 2011-2025 KolibriOS team
+
 use32
 	org 0
-	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
+	db 'MENUET01'
 	dd 1, start, i_end, mem, stacktop, file_name, sys_path

 version_edit equ 1
@@ -22,36 +26,34 @@ include 'convert_stl_3ds.inc'

@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load

-ID_ICON_CHUNK_MAIN equ 0 ;¨ª®ª  £« ¢®£® ¡«®ª 
-ID_ICON_CHUNK_NOT_FOUND equ 1 ;¨ª®ª  ¥ ¨§¢¥áâ®£® ¡«®ª 
-ID_ICON_DATA equ 2 ;¨ª®ª  ¤«ï ¤ ëå ¡«®ª , ¥ ®¯à¥¤¥«¥®© áâàãªâãàë
+ID_ICON_CHUNK_MAIN equ 0 ;main block icon
+ID_ICON_CHUNK_NOT_FOUND equ 1 ;unknown block icon
+ID_ICON_DATA equ 2 ;icon for block data, undefined structure
 ID_ICON_POINT equ 8
 ID_ICON_POINT_SEL equ 9

-FILE_ERROR_CHUNK_SIZE equ -3 ;®è¨¡ª  ¢ à §¬¥à¥ ¡«®ª 
+FILE_ERROR_CHUNK_SIZE equ -3 ;block size error

 include 'info_o3d.inc'

-main_wnd_height equ 460 ;¢ëá®â  £« ¢®£® ®ª  ¯à®£à ¬¬ë
+main_wnd_height equ 460 ;height of the main program window
 IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3

 align 4
 fl255 dd 255.0
-open_file_data dd 0 ;ãª § â¥«ì   ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢ 3ds
-open_file_size dd 0 ;à §¬¥à ®âªàëâ®£® ä ©« 
+open_file_data dd 0 ;pointer to memory for opening 3ds files
+open_file_size dd 0
 image_data_toolbar dd 0
-icon_tl_sys dd 0 ;ãª § â¥¥«ì   ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª
-icon_toolbar dd 0 ;ãª § â¥¥«ì   ¯ ¬ïâì ¤«ï åà ¥¨ï ¨ª®®ª ®¡ê¥ªâ®¢
-fn_toolbar db 'toolbar.png',0
+icon_tl_sys dd 0 ;pointer to memory for storing system icons
+icon_toolbar dd 0 ;pointer to memory for storing object icons

-align 4
 level_stack dd 0
-offs_last_timer dd 0 ;¯®á«¥¤¨© á¤¢¨£ ¯®ª § ë© ¢ äãªæ¨¨ â ©¬¥à 
+offs_last_timer dd 0 ;last shift shown in timer function

 align 4
-file_3ds: ;¯¥à¥¬¥ë¥ ¨á¯®«ì§ã¥¬ë¥ ¯à¨ ®âªàëâ¨¨ ä ©« 
-.offs: dd 0 ;+0 ãª § â¥«ì    ç «® ¡«®ª 
-.size: dd 0 ;+4 à §¬¥à ¡«®ª  (¤«ï 1-£® ¯ à ¬¥âà  = à §¬¥à ä ©«  3ds)
+file_3ds: ;variables used when opening a file
+.offs: dd 0 ;+0 pointer to the beginning of the block
+.size: dd 0 ;+4 block size (for 1st parameter = 3ds file size)
 rb 8*MAX_FILE_LEVEL

 size_one_list equ 42
@@ -81,7 +83,7 @@ start:
 	stosd

 	load_libraries l_libs_start,l_libs_end
-	;¯à®¢¥àª    áª®«ìª® ã¤ ç® § £ã§¨«¨áì ¡¨¡«¨®â¥ª¨
+	;checking how successfully the libraries were loaded
 	mov	ebp,lib_0
 	.test_lib_open:
 	cmp	dword [ebp+ll_struc_size-4],0
@@ -94,7 +96,7 @@ start:
 	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
 	mcall SF_SET_EVENTS_MASK,0xC0000027

-	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª  ¤¨ «®£ 
+	stdcall [OpenDialog_Init],OpenDialog_data ;preparation of dialogue

 	;kmenu initialisation
 	stdcall [kmenu_init],sc
@@ -143,70 +145,68 @@ start:
 	stdcall [tl_data_init], tree1
 	;á¨áâ¥¬ë¥ ¨ª®ª¨ 16*16 ¤«ï tree_list
 	include_image_file 'tl_sys_16.png', icon_tl_sys
-	;¥á«¨ ¨§®¡à ¦¥¨¥ ¥ ®âªàë«®áì, â® ¢ icon_tl_sys ¡ã¤ãâ
-	;¥ ¨¨æ¨ «¨§¨à®¢ ë¥ ¤ ë¥, ® ®è¨¡ª¨ ¥ ¡ã¤¥â, â. ª. ¡ãä¥à ã¦®£® à §¬¥à 
-	mov eax,dword[icon_tl_sys]
-	mov dword[tree1.data_img_sys],eax
+	mov eax,[icon_tl_sys]
+	mov [tree1.data_img_sys],eax

-	load_image_file 'objects.png', icon_toolbar
-	mov eax,dword[icon_toolbar]
-	mov dword[tree1.data_img],eax
+	include_image_file 'objects.png', icon_toolbar
+	mov eax,[icon_toolbar]
+	mov [tree1.data_img],eax

 	stdcall [buf2d_create], buf_0 ;á®§¤ ¨¥ ¡ãä¥à 

-	load_image_file 'font8x9.bmp', image_data_toolbar
+	include_image_file '../../fs/kfar/trunk/font8x9.bmp', image_data_toolbar
 	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;á®§¤ ¥¬ ¡ãä¥à
 	stdcall mem.Free,[image_data_toolbar] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
 	stdcall [buf2d_conv_24_to_8], buf_1,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8 ¡¨â
 	stdcall [buf2d_convert_text_matrix], buf_1

-	load_image_file fn_toolbar, image_data_toolbar
+	include_image_file 'toolbar.png', image_data_toolbar

 	;à ¡®â  á ä ©«®¬  áâà®¥ª
 	copy_path ini_name,sys_path,file_name,0
 	mov dword[def_dr_mode],0
-	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_dv,1
+	stdcall [ini_get_int],file_name,ini_sec_w3d,key_dv,1
 	or eax,eax
 	jz @f
 		or dword[def_dr_mode], 1 shl bit_vertexes
 	@@:
-	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_df,1
+	stdcall [ini_get_int],file_name,ini_sec_w3d,key_df,1
 	or eax,eax
 	jz @f
 		or dword[def_dr_mode], 1 shl bit_faces
 	@@:
-	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_dff,1
+	stdcall [ini_get_int],file_name,ini_sec_w3d,key_dff,1
 	or eax,eax
 	jz @f
 		or dword[def_dr_mode], 1 shl bit_faces_fill
 	@@:
-	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_dl,1
+	stdcall [ini_get_int],file_name,ini_sec_w3d,key_dl,1
 	or eax,eax
 	jz @f
 		or dword[def_dr_mode], 1 shl bit_light
 	@@:
-	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_ds,1
+	stdcall [ini_get_int],file_name,ini_sec_w3d,key_ds,1
 	or eax,eax
 	jz @f
 		or dword[def_dr_mode], 1 shl bit_smooth
 	@@:
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_ox,0x0000ff
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_ox,0x0000ff
 	mov [color_ox],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_oy,0xff0000
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_oy,0xff0000
 	mov [color_oy],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_oz,0x00ff00
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_oz,0x00ff00
 	mov [color_oz],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_bk,0x000000
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_bk,0x000000
 	mov [color_bk],eax
 	shr eax,8
 	mov [color_bk+4],eax
 	shr eax,8
 	mov [color_bk+8],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_vert,0xffffff
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_vert,0xffffff
 	mov [color_vert],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_face,0x808080
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_face,0x808080
 	mov [color_face],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_select,0xffff00
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_select,0xffff00
 	mov [color_select],eax
 	finit
 	fild dword[color_bk+8]
@@ -262,19 +262,19 @@ still:
 	or eax,eax
 	jz timer_funct

-	cmp al,1
+	cmp al,EV_REDRAW
 	jne @f
 		call draw_window
 		jmp still
 	@@:
-	cmp al,2
+	cmp al,EV_KEY
 	jz key
-	cmp al,3
+	cmp al,EV_BUTTON
 	jz button
-	cmp al,6
+	cmp al,EV_MOUSE
 	jne @f
 		mcall SF_THREAD_INFO,procinfo,-1
-		cmp ax,word[procinfo+4]
+		cmp ax,word[procinfo.window_stack_position]
 		jne @f ;®ª® ¥  ªâ¨¢®
 		call mouse
 	@@:
@@ -282,7 +282,7 @@ still:

 align 4
 mouse:
-	stdcall [tl_mouse], dword tree1
+	stdcall [tl_mouse], tree1
 	ret

 align 4
@@ -385,7 +385,7 @@ pushad
 	mcall , (20 shl 16)+560, (20 shl 16)+main_wnd_height

 	mcall SF_THREAD_INFO,procinfo,-1
-	mov eax,dword[procinfo.box.height]
+	mov eax,[procinfo.box.height]
 	cmp eax,250
 	jge @f
 		mov eax,250
@@ -393,13 +393,14 @@ pushad
 	sub eax,65
 	mov dword[tree1.box_height],eax
 	mov word[w_scr_t1.y_size],ax ;®¢ë¥ à §¬¥àë áªà®««¨£ 
-	cmp eax,dword[buf_0.h] ;ã¢¥«¨ç¨¢ ¥¬ ¢ëá®âã ¡ãä¥à 
-	jle @f
+	cmp eax,dword[buf_0.h] ;change buffer height
+	je @f
 		stdcall [buf2d_resize],buf_0,0,eax,1
-		mov dword[offs_last_timer],0 ;¤«ï ®¡®¢«¥¨ï ¡ãä¥à  ¢ â ©¬¥à¥
+		stdcall [buf2d_clear], buf_0, [buf_0.color] ;background update
+		mov dword[offs_last_timer],0 ;for update buffer in the timer
 	@@:

-	mov eax,dword[procinfo.box.width]
+	mov eax,[procinfo.box.width]
 	cmp eax,400
 	jge @f
 		mov eax,400
@@ -457,7 +458,7 @@ popad
 align 4
 key:
 	mcall SF_GET_KEY
-	stdcall [tl_key], dword tree1
+	stdcall [tl_key], tree1
 	jmp still


@@ -1087,53 +1088,6 @@ l_libs_start:
 	lib_6 l_libs lib_name_6, file_name, system_dir_6, import_libini
 l_libs_end:

-align 4
-import_libimg:
-	dd alib_init1
-	img_is_img  dd aimg_is_img
-	img_info    dd aimg_info
-	img_from_file dd aimg_from_file
-	img_to_file dd aimg_to_file
-	img_from_rgb dd aimg_from_rgb
-	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-	img_encode  dd aimg_encode
-	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-	img_destroy_layer dd aimg_destroy_layer
-	img_count   dd aimg_count
-	img_lock_bits dd aimg_lock_bits
-	img_unlock_bits dd aimg_unlock_bits
-	img_flip    dd aimg_flip
-	img_flip_layer dd aimg_flip_layer
-	img_rotate  dd aimg_rotate
-	img_rotate_layer dd aimg_rotate_layer
-	img_draw    dd aimg_draw
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-	aimg_is_img  db 'img_is_img',0 ;®¯à¥¤¥«ï¥â ¯® ¤ ë¬, ¬®¦¥â «¨ ¡¨¡«¨®â¥ª  á¤¥« âì ¨§ ¨å ¨§®¡à ¦¥¨¥
-	aimg_info    db 'img_info',0
-	aimg_from_file db 'img_from_file',0
-	aimg_to_file db 'img_to_file',0
-	aimg_from_rgb db 'img_from_rgb',0
-	aimg_to_rgb  db 'img_to_rgb',0 ;¯à¥®¡à §®¢ ¨¥ ¨§®¡à ¦¥¨ï ¢ ¤ ë¥ RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ; ¢â®¬ â¨ç¥áª¨ ®¯à¥¤¥«ï¥â ä®à¬ â £à ä¨ç¥áª¨å ¤ ëå
-	aimg_encode  db 'img_encode',0
-	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-	aimg_destroy_layer db 'img_destroy_layer',0
-	aimg_count   db 'img_count',0
-	aimg_lock_bits db 'img_lock_bits',0
-	aimg_unlock_bits db 'img_unlock_bits',0
-	aimg_flip    db 'img_flip',0
-	aimg_flip_layer db 'img_flip_layer',0
-	aimg_rotate  db 'img_rotate',0
-	aimg_rotate_layer db 'img_rotate_layer',0
-	aimg_draw    db 'img_draw',0
-
 align 4
 import_proclib:
 	OpenDialog_Init dd aOpenDialog_Init
@@ -1146,122 +1100,9 @@ dd 0,0
 	aOpenDialog_Set_file_name db 'OpenDialog_set_file_name',0
 	aOpenDialog_Set_file_ext db 'OpenDialog_set_file_ext',0

-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_box_lib:
-	dd sz_init1
-	edit_box_draw dd sz_edit_box_draw
-	edit_box_key dd sz_edit_box_key
-	edit_box_mouse dd sz_edit_box_mouse
-	edit_box_set_text dd sz_edit_box_set_text
-	scrollbar_ver_draw dd sz_scrollbar_ver_draw
-	scrollbar_hor_draw dd sz_scrollbar_hor_draw
-
-	tl_data_init dd sz_tl_data_init
-	tl_data_clear dd sz_tl_data_clear
-	tl_info_clear dd sz_tl_info_clear
-	tl_key dd sz_tl_key
-	tl_mouse dd sz_tl_mouse
-	tl_draw dd sz_tl_draw
-	tl_info_undo dd sz_tl_info_undo
-	tl_info_redo dd sz_tl_info_redo
-	tl_node_add dd sz_tl_node_add
-	tl_node_set_data dd sz_tl_node_set_data
-	tl_node_get_data dd sz_tl_node_get_data
-	tl_node_delete dd sz_tl_node_delete
-	tl_node_move_up dd sz_tl_node_move_up
-	tl_node_move_down dd sz_tl_node_move_down
-	tl_cur_beg dd sz_tl_cur_beg
-	tl_cur_next dd sz_tl_cur_next
-	tl_cur_perv dd sz_tl_cur_perv
-	tl_node_close_open dd sz_tl_node_close_open
-	tl_node_lev_inc dd sz_tl_node_lev_inc
-	tl_node_lev_dec dd sz_tl_node_lev_dec
-	tl_node_poi_get_info dd sz_tl_node_poi_get_info
-	tl_node_poi_get_next_info dd sz_tl_node_poi_get_next_info
-	tl_node_poi_get_data dd sz_tl_node_poi_get_data
-
-	dd 0,0
-	sz_init1 db 'lib_init',0
-	sz_edit_box_draw db 'edit_box_draw',0
-	sz_edit_box_key db 'edit_box_key',0
-	sz_edit_box_mouse db 'edit_box_mouse',0
-	sz_edit_box_set_text db 'edit_box_set_text',0
-	sz_scrollbar_ver_draw db 'scrollbar_v_draw',0
-	sz_scrollbar_hor_draw db 'scrollbar_h_draw',0
-
-	sz_tl_data_init db 'tl_data_init',0
-	sz_tl_data_clear db 'tl_data_clear',0
-	sz_tl_info_clear db 'tl_info_clear',0
-	sz_tl_key db 'tl_key',0
-	sz_tl_mouse db 'tl_mouse',0
-	sz_tl_draw db 'tl_draw',0
-	sz_tl_info_undo db 'tl_info_undo',0
-	sz_tl_info_redo db 'tl_info_redo',0
-	sz_tl_node_add db 'tl_node_add',0
-	sz_tl_node_set_data db 'tl_node_set_data',0
-	sz_tl_node_get_data db 'tl_node_get_data',0
-	sz_tl_node_delete db 'tl_node_delete',0
-	sz_tl_node_move_up db 'tl_node_move_up',0
-	sz_tl_node_move_down db 'tl_node_move_down',0
-	sz_tl_cur_beg db 'tl_cur_beg',0
-	sz_tl_cur_next db 'tl_cur_next',0
-	sz_tl_cur_perv db 'tl_cur_perv',0
-	sz_tl_node_close_open db 'tl_node_close_open',0
-	sz_tl_node_lev_inc db 'tl_node_lev_inc',0
-	sz_tl_node_lev_dec db 'tl_node_lev_dec',0
-	sz_tl_node_poi_get_info db 'tl_node_poi_get_info',0
-	sz_tl_node_poi_get_next_info db 'tl_node_poi_get_next_info',0
-	sz_tl_node_poi_get_data db 'tl_node_poi_get_data',0
+include '../../develop/libraries/libs-dev/libimg/import.inc'
+include '../../develop/libraries/box_lib/import.inc'
+include '../../develop/libraries/buf2d/import.inc'

 align 4
 import_libkmenu:
@@ -1287,23 +1128,7 @@ dd 0,0
 	akmenuitem_delete		db 'kmenuitem_delete',0
 	akmenuitem_draw 		db 'kmenuitem_draw',0

-align 4
-import_tinygl:
-macro E_LIB n
-{
-if defined sz_#n
-	n dd sz_#n
-end if
-}
-include '../../develop/libraries/TinyGL/asm_fork/export.inc'
-	dd 0,0
-macro E_LIB n
-{
-if used n
-	sz_#n db `n,0
-end if
-}
-include '../../develop/libraries/TinyGL/asm_fork/export.inc'
+include '../../develop/libraries/TinyGL/asm_fork/import.inc'

 align 4
 import_libini:
@@ -1367,9 +1192,9 @@ white_light dd 0.8, 0.8, 0.8, 1.0 ;
 lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ; <20> à ¬¥âàë ä®®¢®£® ®á¢¥é¥¨ï

 if lang eq ru_RU
-capt db 'info 3ds ¢¥àá¨ï 04.05.25',0 ;¯®¤¯¨áì ®ª 
+capt db 'info 3ds ¢¥àá¨ï 22.10.25',0
 else ; Default to en_US
-capt db 'info 3ds version 04.05.25',0 ;window caption
+capt db 'info 3ds version 22.10.25',0 ;window caption
 end if

 align 16
--- a/programs/develop/info3ds/info3ds_u.asm
+++ b/programs/develop/info3ds/info3ds_u.asm
@@ -1,3 +1,7 @@
+; SPDX-License-Identifier: GPL-2.0-only
+; Info3ds_u - is a program for viewing the structure of *.3ds files
+; Copyright (C) 2015-2025 KolibriOS team
+
 use32
 	org 0
 	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
@@ -12,6 +16,7 @@ include '../../develop/libraries/libs-dev/libimg/libimg.inc'
 include '../../load_img.inc'
 include '../../load_lib.mac'
 include '../../develop/libraries/box_lib/trunk/box_lib.mac'
+include '../../develop/libraries/TinyGL/asm_fork/kosgl.inc'
 include '../../develop/libraries/TinyGL/asm_fork/opengl_const.inc'
 include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US.
 include 'info_fun_float.inc'
@@ -21,8 +26,8 @@ include 'convert_stl_3ds.inc'

 3d_wnd_l equ 205 ;®âáâã¯ ¤«ï tinygl ¡ãä¥à  á«¥¢ 
 3d_wnd_t equ  47 ;®âáâã¯ ¤«ï tinygl ¡ãä¥à  á¢¥àåã
-3d_wnd_w equ 344
-3d_wnd_h equ 312
+3d_wnd_w equ 345
+3d_wnd_h equ 384

@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load

@@ -43,13 +48,13 @@ list_offs_text equ 14+sizeof.obj_3d ;ᤢ
 include 'info_o3d.inc'

 align 4
+fl180 dd 180.0
 fl255 dd 255.0
 open_file_data dd 0 ;ãª § â¥«ì   ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢ 3ds
 open_file_size dd 0 ;à §¬¥à ®âªàëâ®£® ä ©« 

 ;
 main_wnd_height equ 460 ;¢ëá®â  £« ¢®£® ®ª  ¯à®£à ¬¬ë
-fn_toolbar db 'toolbar.png',0
 IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
 image_data_toolbar dd 0
 ;
@@ -140,17 +145,17 @@ start:
 	mov eax,dword[icon_tl_sys]
 	mov dword[tree1.data_img_sys],eax

-	load_image_file 'objects.png', icon_toolbar
+	include_image_file 'objects.png', icon_toolbar
 	mov eax,dword[icon_toolbar]
 	mov dword[tree1.data_img],eax

-	load_image_file 'font8x9.bmp', image_data_toolbar
+	include_image_file '../../fs/kfar/trunk/font8x9.bmp', image_data_toolbar
 	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;á®§¤ ¥¬ ¡ãä¥à
 	stdcall mem.Free,[image_data_toolbar] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
 	stdcall [buf2d_conv_24_to_8], buf_1,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8 ¡¨â
 	stdcall [buf2d_convert_text_matrix], buf_1

-	load_image_file fn_toolbar, image_data_toolbar
+	include_image_file 'toolbar.png', image_data_toolbar

 	;à ¡®â  á ä ©«®¬  áâà®¥ª
 	copy_path ini_name,sys_path,file_name,0
@@ -223,7 +228,7 @@ start:
 	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
 	mov [last_time],eax

-	stdcall [kosglMakeCurrent], 3d_wnd_l,3d_wnd_t,3d_wnd_w,3d_wnd_h,ctx1
+	stdcall [kosglMakeCurrent], 3d_wnd_l,3d_wnd_t,[buf_ogl.w],[buf_ogl.h],ctx1
 	stdcall [glEnable], GL_DEPTH_TEST
 	stdcall [glEnable], GL_NORMALIZE ;¤¥« ¬ ®à¬ «¨ ®¤¨ ª®¢®© ¢¥«¨ç¨ë ¢® ¨§¡¥¦ ¨¥  àâ¥ä ªâ®¢
 	stdcall [glClearColor], [color_bk+8],[color_bk+4],[color_bk],0.0
@@ -231,7 +236,7 @@ start:
 	call [gluNewQuadric]
 	mov [qObj],eax

-	mov eax,dword[ctx1] ;eax -> TinyGLContext.GLContext
+	mov eax,[ctx1.gl_context]
 	mov eax,[eax] ;eax -> ZBuffer
 	mov eax,[eax+ZBuffer.pbuf]
 	mov dword[buf_ogl],eax
@@ -257,20 +262,20 @@ still:
 	or eax,eax
 	jz timer_funct

-	cmp al,1
+	cmp al,EV_REDRAW
 	jne @f
 		call draw_window
 		jmp still
 	@@:
-	cmp al,2
+	cmp al,EV_KEY
 	jz key
-	cmp al,3
+	cmp al,EV_BUTTON
 	jz button
-	cmp al,6
+	cmp al,EV_MOUSE
 	jne @f
 		mcall SF_THREAD_INFO,procinfo,-1
-		cmp ax,word[procinfo+4]
-		jne @f ;®ª® ¥  ªâ¨¢®
+		cmp ax,word[procinfo.window_stack_position]
+		jne @f ;window is not active
 		call mouse
 	@@:
 	jmp still
@@ -301,9 +306,9 @@ mouse:
 			mov ebx,3d_wnd_l
 		@@:
 		sub ebx,3d_wnd_l
-		cmp ebx,3d_wnd_w
+		cmp ebx,[buf_ogl.w]
 		jle @f
-			mov ebx,3d_wnd_w
+			mov ebx,[buf_ogl.w]
 		@@:
 		movsx eax,ax ;mouse.y
 		cmp eax,3d_wnd_t
@@ -311,9 +316,9 @@ mouse:
 			mov eax,3d_wnd_t
 		@@:
 		sub eax,3d_wnd_t
-		cmp eax,3d_wnd_h
+		cmp eax,[buf_ogl.h]
 		jle @f
-			mov eax,3d_wnd_h
+			mov eax,[buf_ogl.h]
 		@@:
 		finit
 		fild dword[mouse_y]
@@ -351,13 +356,13 @@ mouse:
 		cmp ebx,3d_wnd_l
 		jl .end_d
 		sub ebx,3d_wnd_l
-		cmp ebx,3d_wnd_w
+		cmp ebx,[buf_ogl.w]
 		jg .end_d
 		movsx eax,ax ;mouse.y
 		cmp eax,3d_wnd_t
 		jl .end_d
 		sub eax,3d_wnd_t
-		cmp eax,3d_wnd_h
+		cmp eax,[buf_ogl.h]
 		jg .end_d
 		mov dword[mouse_drag],1
 		mov dword[mouse_x],ebx
@@ -440,16 +445,7 @@ pushad
 	or  edx,0x33000000
 	mcall SF_CREATE_WINDOW, (20 shl 16)+560, (20 shl 16)+main_wnd_height,,, capt

-	mcall SF_THREAD_INFO,procinfo,-1
-	mov eax,dword[procinfo.box.height]
-	cmp eax,250
-	jge @f
-		mov eax,250
-	@@:
-	sub eax,30
-	sub eax,[tree1.box_top]
-	mov [tree1.box_height],eax
-	mov word[w_scr_t1.y_size],ax ;®¢ë¥ à §¬¥àë áªà®««¨£ 
+	call OnResize

 	stdcall [kmainmenu_draw], [main_menu]

@@ -493,6 +489,64 @@ pushad
 popad
 	ret

+align 4
+OnResize:
+	mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT
+	push eax
+	mcall SF_THREAD_INFO,procinfo,-1
+	mov eax,[procinfo.box.height]
+	cmp eax,250
+	jge @f
+		mov eax,250
+	@@:
+	sub eax,[esp]
+	sub eax,5
+	sub eax,[tree1.box_top]
+	mov [tree1.box_height],eax
+	mov word[w_scr_t1.y_size],ax ;new scroll sizes
+
+	cmp [buf_ogl.h],eax
+	je @f
+		mov [buf_ogl.h],eax
+		mov dword[buf_ogl.w],0 ;reset width
+	@@:
+	pop eax
+	movzx eax,word[w_scr_t1.x_size]
+	add eax,[tree1.box_left]
+	add eax,[tree1.box_width]
+	add eax,15 ;5 px * 3 borders
+	sub eax,[procinfo.box.width]
+	neg eax
+	cmp eax,64
+	jge @f
+		mov eax,64
+	@@:
+	cmp [buf_ogl.w],eax
+	je .end
+		mov [buf_ogl.w],eax
+		fild dword[buf_ogl.w]
+		fld st0
+		fdiv dword[fl180]
+		fstp dword[angle_dxm]
+		fidiv dword[buf_ogl.h]
+		fstp dword[ratio]
+		stdcall [glViewport], 0,0, [buf_ogl.w], [buf_ogl.h]
+
+		mov eax,[ctx1.gl_context]
+		mov eax,[eax] ;eax -> ZBuffer
+		mov eax,[eax+ZBuffer.pbuf]
+		mov dword[buf_ogl],eax
+
+		stdcall [tl_node_get_data],tree1
+		or eax,eax
+		jz .end
+		mov dword[offs_last_timer],0 ;for update buffer in the timer
+		add eax,list_offs_obj3d
+		stdcall obj_set_sizes, eax
+		stdcall draw_3d, eax
+	.end:
+	ret
+
 align 4
 key:
 	mcall SF_GET_KEY
@@ -1152,57 +1206,10 @@ l_libs_start:
 	lib_2 l_libs lib_name_2, file_name, system_dir_2, import_box_lib
 	lib_3 l_libs lib_name_3, file_name, system_dir_3, import_buf2d
 	lib_4 l_libs lib_name_4, file_name, system_dir_4, import_libkmenu
-	lib_5 l_libs lib_name_5, file_name, system_dir_5, import_lib_tinygl
+	lib_5 l_libs lib_name_5, file_name, system_dir_5, import_tinygl
 	lib_6 l_libs lib_name_6, file_name, system_dir_6, import_libini
 l_libs_end:

-align 4
-import_libimg:
-	dd alib_init1
-	img_is_img  dd aimg_is_img
-	img_info    dd aimg_info
-	img_from_file dd aimg_from_file
-	img_to_file dd aimg_to_file
-	img_from_rgb dd aimg_from_rgb
-	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-	img_encode  dd aimg_encode
-	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-	img_destroy_layer dd aimg_destroy_layer
-	img_count   dd aimg_count
-	img_lock_bits dd aimg_lock_bits
-	img_unlock_bits dd aimg_unlock_bits
-	img_flip    dd aimg_flip
-	img_flip_layer dd aimg_flip_layer
-	img_rotate  dd aimg_rotate
-	img_rotate_layer dd aimg_rotate_layer
-	img_draw    dd aimg_draw
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-	aimg_is_img  db 'img_is_img',0 ;®¯à¥¤¥«ï¥â ¯® ¤ ë¬, ¬®¦¥â «¨ ¡¨¡«¨®â¥ª  á¤¥« âì ¨§ ¨å ¨§®¡à ¦¥¨¥
-	aimg_info    db 'img_info',0
-	aimg_from_file db 'img_from_file',0
-	aimg_to_file db 'img_to_file',0
-	aimg_from_rgb db 'img_from_rgb',0
-	aimg_to_rgb  db 'img_to_rgb',0 ;¯à¥®¡à §®¢ ¨¥ ¨§®¡à ¦¥¨ï ¢ ¤ ë¥ RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ; ¢â®¬ â¨ç¥áª¨ ®¯à¥¤¥«ï¥â ä®à¬ â £à ä¨ç¥áª¨å ¤ ëå
-	aimg_encode  db 'img_encode',0
-	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-	aimg_destroy_layer db 'img_destroy_layer',0
-	aimg_count   db 'img_count',0
-	aimg_lock_bits db 'img_lock_bits',0
-	aimg_unlock_bits db 'img_unlock_bits',0
-	aimg_flip    db 'img_flip',0
-	aimg_flip_layer db 'img_flip_layer',0
-	aimg_rotate  db 'img_rotate',0
-	aimg_rotate_layer db 'img_rotate_layer',0
-	aimg_draw    db 'img_draw',0
-
 align 4
 import_proclib:
 	OpenDialog_Init dd aOpenDialog_Init
@@ -1215,122 +1222,9 @@ dd 0,0
 	aOpenDialog_Set_file_name db 'OpenDialog_set_file_name',0
 	aOpenDialog_Set_file_ext db 'OpenDialog_set_file_ext',0

-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_box_lib:
-	dd sz_init1
-	edit_box_draw dd sz_edit_box_draw
-	edit_box_key dd sz_edit_box_key
-	edit_box_mouse dd sz_edit_box_mouse
-	edit_box_set_text dd sz_edit_box_set_text
-	scrollbar_ver_draw dd sz_scrollbar_ver_draw
-	scrollbar_hor_draw dd sz_scrollbar_hor_draw
-
-	tl_data_init dd sz_tl_data_init
-	tl_data_clear dd sz_tl_data_clear
-	tl_info_clear dd sz_tl_info_clear
-	tl_key dd sz_tl_key
-	tl_mouse dd sz_tl_mouse
-	tl_draw dd sz_tl_draw
-	tl_info_undo dd sz_tl_info_undo
-	tl_info_redo dd sz_tl_info_redo
-	tl_node_add dd sz_tl_node_add
-	tl_node_set_data dd sz_tl_node_set_data
-	tl_node_get_data dd sz_tl_node_get_data
-	tl_node_delete dd sz_tl_node_delete
-	tl_node_move_up dd sz_tl_node_move_up
-	tl_node_move_down dd sz_tl_node_move_down
-	tl_cur_beg dd sz_tl_cur_beg
-	tl_cur_next dd sz_tl_cur_next
-	tl_cur_perv dd sz_tl_cur_perv
-	tl_node_close_open dd sz_tl_node_close_open
-	tl_node_lev_inc dd sz_tl_node_lev_inc
-	tl_node_lev_dec dd sz_tl_node_lev_dec
-	tl_node_poi_get_info dd sz_tl_node_poi_get_info
-	tl_node_poi_get_next_info dd sz_tl_node_poi_get_next_info
-	tl_node_poi_get_data dd sz_tl_node_poi_get_data
-
-	dd 0,0
-	sz_init1 db 'lib_init',0
-	sz_edit_box_draw db 'edit_box_draw',0
-	sz_edit_box_key db 'edit_box_key',0
-	sz_edit_box_mouse db 'edit_box_mouse',0
-	sz_edit_box_set_text db 'edit_box_set_text',0
-	sz_scrollbar_ver_draw db 'scrollbar_v_draw',0
-	sz_scrollbar_hor_draw db 'scrollbar_h_draw',0
-
-	sz_tl_data_init db 'tl_data_init',0
-	sz_tl_data_clear db 'tl_data_clear',0
-	sz_tl_info_clear db 'tl_info_clear',0
-	sz_tl_key db 'tl_key',0
-	sz_tl_mouse db 'tl_mouse',0
-	sz_tl_draw db 'tl_draw',0
-	sz_tl_info_undo db 'tl_info_undo',0
-	sz_tl_info_redo db 'tl_info_redo',0
-	sz_tl_node_add db 'tl_node_add',0
-	sz_tl_node_set_data db 'tl_node_set_data',0
-	sz_tl_node_get_data db 'tl_node_get_data',0
-	sz_tl_node_delete db 'tl_node_delete',0
-	sz_tl_node_move_up db 'tl_node_move_up',0
-	sz_tl_node_move_down db 'tl_node_move_down',0
-	sz_tl_cur_beg db 'tl_cur_beg',0
-	sz_tl_cur_next db 'tl_cur_next',0
-	sz_tl_cur_perv db 'tl_cur_perv',0
-	sz_tl_node_close_open db 'tl_node_close_open',0
-	sz_tl_node_lev_inc db 'tl_node_lev_inc',0
-	sz_tl_node_lev_dec db 'tl_node_lev_dec',0
-	sz_tl_node_poi_get_info db 'tl_node_poi_get_info',0
-	sz_tl_node_poi_get_next_info db 'tl_node_poi_get_next_info',0
-	sz_tl_node_poi_get_data db 'tl_node_poi_get_data',0
+include '../../develop/libraries/libs-dev/libimg/import.inc'
+include '../../develop/libraries/box_lib/import.inc'
+include '../../develop/libraries/buf2d/import.inc'

 align 4
 import_libkmenu:
@@ -1356,19 +1250,7 @@ dd 0,0
 	akmenuitem_delete		db 'kmenuitem_delete',0
 	akmenuitem_draw 		db 'kmenuitem_draw',0

-align 4
-import_lib_tinygl:
-macro E_LIB n
-{
-	n dd sz_#n
-}
-include '../../develop/libraries/TinyGL/asm_fork/export.inc'
-	dd 0,0
-macro E_LIB n
-{
-	sz_#n db `n,0
-}
-include '../../develop/libraries/TinyGL/asm_fork/export.inc'
+include '../../develop/libraries/TinyGL/asm_fork/import.inc'

 align 4
 import_libini:
@@ -1387,7 +1269,7 @@ mouse_dd dd 0
 last_time dd 0
 angle_dxm dd 1.9111 ;~ 3d_wnd_w/180 - ¯à¨¡ ¢«¥¨¥ ã£«®¢ ¯®¢®à®â  áæ¥ë ¯à¨ ¢à é¥¨¨ ¬ëè¥©
 angle_dym dd 1.7333 ;~ 3d_wnd_h/180
-ratio dd 1.1025 ;~ 3d_wnd_w/3d_wnd_h
+ratio dd 0.8984375 ;~ 3d_wnd_w/3d_wnd_h

 align 4
 buf_ogl:
@@ -1427,14 +1309,14 @@ white_light dd 0.8, 0.8, 0.8, 1.0 ;
 lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ; <20> à ¬¥âàë ä®®¢®£® ®á¢¥é¥¨ï

 if lang eq ru_RU
-capt db 'info 3ds [user] ¢¥àá¨ï 14.04.25',0 ; ¯®¤¯¨áì ®ª 
+capt db 'info 3ds [user] ¢¥àá¨ï 24.10.25',0 ; ¯®¤¯¨áì ®ª 
 else ; Default to en_US
-capt db 'info 3ds [user] version 14.04.25',0 ; Window caption
+capt db 'info 3ds [user] version 24.10.25',0 ; Window caption
 end if

 align 16
 i_end:
-	ctx1 rb 28 ;sizeof.TinyGLContext = 28
+	ctx1 TinyGLContext
 	procinfo process_information
 	run_file_70 FileInfoBlock
 	sc system_colors
--- a/programs/develop/info3ds/info_o3d.inc
+++ b/programs/develop/info3ds/info_o3d.inc
@@ -802,7 +802,14 @@ align 4
 proc draw_3d uses eax ebx ecx edi, o_data:dword
 	mov edi,[o_data]
 	cmp dword[edi+obj_3d.poi_count],2
+if version_edit eq 0
+	jge @f
+		stdcall [buf2d_clear], buf_ogl, [buf_ogl.color]
+		jmp .end_f
+	@@:
+else
 	jl .end_f
+end if
 	stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;®ç¨áâ¨¬ ¡ãä¥à æ¢¥â  ¨ £«ã¡¨ë
 	call [glPushMatrix]
 	bt dword[draw_mode],bit_light
--- a/programs/develop/info3ds/info_wnd_coords.inc
+++ b/programs/develop/info3ds/info_wnd_coords.inc
@@ -1,18 +1,19 @@
 ;
-; ¢ íâ®¬ ä ©«¥ á®¡à ë äãªæ¨¨ ã¦ë¥ ¤«ï á®§¤ ¨ï ¨
-; à ¡®âë ®ª  á ª®®à¤¨ â ¬¨ ¢¥àè¨
+; This file contains functions needed to create
+; and operate a window with vertex coordinates
 ;

-prop_wnd_width  equ 340 ;è¨à¨  ®ª  á® á¢®©áâ¢ ¬¨ ®¡ê¥ªâ 
-prop_wnd_height equ 460 ;¢ëá®â  ®ª  á® á¢®©áâ¢ ¬¨ ®¡ê¥ªâ 
-3d_wnd_l equ   5 ;®âáâã¯ ¤«ï tinygl ¡ãä¥à  á«¥¢ 
-3d_wnd_t equ  23 ;®âáâã¯ ¤«ï tinygl ¡ãä¥à  á¢¥àåã
-3d_wnd_w equ 320
+3d_wnd_l equ   5 ;tinygl buffer left indent
+3d_wnd_t equ  23 ;tinygl buffer top indent
+3d_wnd_w equ 396
 3d_wnd_h equ 240
 SIZE_ONE_FLOAT equ 14
 MAX_OBJECT_SIZE equ (4+SIZE_ONE_FLOAT*3+1)

-prop_wnd_run db 0 ;¯¥à¥¬¥ ï á«¥¤ïé ï §  â¥¬ çâ®-¡ë ¥ § ¯ãáª âì ¡®«ìè¥ 1-£® ®ª  á® á¢®©áâ¢ ¬¨ ®¤®¢à¥¬¥®
+align 4
+fl180 dd 180.0
+
+prop_wnd_run db 0 ;variable that ensures that no more than 1 window with properties is launched at the same time

 txt_q db '?',0
 txt_space:
@@ -173,20 +174,23 @@ prop_still:
 		jmp .end
 	@@:

-	cmp al,1 ;¨§¬. ¯®«®¦¥¨¥ ®ª 
+	cmp al,EV_REDRAW
 	jne @f
 		call prop_red_win
 		jmp .end
 	@@:
-	cmp al,2
+	cmp al,EV_KEY
 	jne @f
 		call prop_key
 		jmp .end
 	@@:
-	cmp al,3
+	cmp al,EV_BUTTON
 	jz prop_button
-	cmp al,6
+	cmp al,EV_MOUSE
 	jne @f
+		mcall SF_THREAD_INFO,procinfo,-1
+		cmp ax,word[procinfo.window_stack_position]
+		jne @f ;window is not active
 		call prop_mouse
 	@@:
 .end:
@@ -198,20 +202,65 @@ prop_red_win:
 pushad
 	mcall SF_REDRAW,SSF_BEGIN_DRAW

-	xor eax,eax
+	mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT
+	push eax
+	mcall SF_THREAD_INFO,procinfo,-1
+	cmp dword[procinfo.box.height],0
+	je .resize_end
+	mov eax,[procinfo.box.height]
+	sub eax,[esp]
+	sub eax,[tree3.box_top]
+	sub eax,5
+	cmp eax,48
+	jge @f
+		mov eax,48 ;min size
+	@@:
+	mov dword[tree3.box_height],eax
+	mov word[w_scr_t3.y_size],ax
+	mov ebx,[procinfo.box.width]
+	sub ebx,37
+	cmp ebx,240
+	jge @f
+		mov ebx,240
+	@@:
+	mov [tree3.box_width],ebx
+	add ebx,[tree3.box_left]
+	mov word[w_scr_t3.x_pos],bx
+	;todo: resize scroll slider
+	
+	mov eax,[tree3.box_width]
+	add eax,16
+	cmp [buf_ogl.w],eax
+	je .resize_end
+		mov [buf_ogl.w],eax
+		fild dword[buf_ogl.w]
+		fld st0
+		fdiv dword[fl180]
+		fstp dword[angle_dxm]
+		fidiv dword[buf_ogl.h]
+		fstp dword[ratio]
+		stdcall [glViewport], 0,0, [buf_ogl.w], 3d_wnd_h
+		stdcall obj_set_sizes, o3d
+	.resize_end:
+
 	mov edi,dword[capt_p] ;children window caption
 	mov bx,word[procinfo.box.left]
 	add bx,word[buf_0.l]
-	add bx,5 ;è¨à¨  ¡®ª®¢®© à ¬ª¨
+	add bx,5 ;side frame width
 	shl ebx,16
-	mov bx,prop_wnd_width
+	mov bx,word[tree3.box_width]
+	add bx,37
 	mov cx,word[procinfo.box.top]
 	add cx,word[buf_0.t]
 	shl ecx,16
-	mov cx,prop_wnd_height
+	pop eax
+	add eax,[tree3.box_height]
+	add eax,[tree3.box_top]
+	add eax,5
+	mov cx,ax
 	mov edx,[sc.work]
 	or  edx,0x33000000
-	int 0x40
+	mcall SF_CREATE_WINDOW

 	mov esi,[sc.work_button]
 	mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (266 shl 16)+20, 0x40000003
@@ -226,7 +275,7 @@ pushad
 	int 0x40

 	mov dword[w_scr_t3.all_redraw],1
-	stdcall [scrollbar_ver_draw],dword w_scr_t3
+	stdcall [scrollbar_v_draw], w_scr_t3
 	stdcall [tl_draw], tree3
 	stdcall [edit_box_draw], edit1
 	stdcall [edit_box_draw], edit2
@@ -316,9 +365,9 @@ prop_mouse:
 			mov ebx,3d_wnd_l
 		@@:
 		sub ebx,3d_wnd_l
-		cmp ebx,3d_wnd_w
+		cmp ebx,[buf_ogl.w]
 		jle @f
-			mov ebx,3d_wnd_w
+			mov ebx,[buf_ogl.w]
 		@@:
 		and eax,0xffff ;mouse.y
 		cmp eax,3d_wnd_t
@@ -334,14 +383,14 @@ prop_mouse:
 		fild dword[mouse_y]
 		mov [mouse_y],eax
 		fisub dword[mouse_y]
-		fdiv dword[angle_dxm] ;¥á«¨ ªãàá®à ¤¢¨¦¥âáï ¯® ®á¨ y (¢¢¥àå ¨«¨ ¢¨§) â® ¯®¢®à®â ¤¥« ¥¬ ¢®ªàã£ ®á¨ x
+		fdiv dword[angle_dym] ;if the cursor moves along the y axis
 		fadd dword[angle_x]
 		fstp dword[angle_x]

 		fild dword[mouse_x]
 		mov [mouse_x],ebx
 		fisub dword[mouse_x]
-		fdiv dword[angle_dym] ;¥á«¨ ªãàá®à ¤¢¨¦¥âáï ¯® ®á¨ x (¢¢¥àå ¨«¨ ¢¨§) â® ¯®¢®à®â ¤¥« ¥¬ ¢®ªàã£ ®á¨ y
+		fdiv dword[angle_dxm] ;if the cursor moves along the x axis
 		fadd dword[angle_y]
 		fstp dword[angle_y]

@@ -363,7 +412,7 @@ prop_mouse:
 		cmp ebx,3d_wnd_l
 		jl .end_d
 		sub ebx,3d_wnd_l
-		cmp ebx,3d_wnd_w
+		cmp ebx,[buf_ogl.w]
 		jg .end_d
 		and eax,0xffff ;mouse.y
 		cmp eax,3d_wnd_t
@@ -811,7 +860,7 @@ capt_p dd 0

 ;¤¥à¥¢® á ®¡ê¥ªâ ¬¨ ¢ ¯®«ì§®¢ â¥«ìáª®¬ ä ©«¥
 tree3 tree_list MAX_OBJECT_SIZE,3, tl_key_no_edit+tl_list_box_mode,\
-	16,16, 0xffffff,0xb0d0ff,0x400040, 5,290,303,140, 16, 4,0, el_focus,\
+	16,16, 0xffffff,0xb0d0ff,0x10400040, 5,290,380,140, 16, 4,0, el_focus,\
 	w_scr_t3,get_point_coords

 edit1 edit_box 80,  76, 269, 0xffd0d0, 0xff, 0x80ff, 0, 0x8000, 32, string1, mouse_dd, 0
--- a/programs/develop/ktcc/trunk/libc.obj/source/libc.c
+++ b/programs/develop/ktcc/trunk/libc.obj/source/libc.c
@@ -204,6 +204,7 @@ ksys_dll_t EXPORTS[] = {
    { "strstr", &strstr },
    { "strtok", &strtok },
    { "strxfrm", &strxfrm },
+    { "strpbrk", &strpbrk },
    { "__errno", &__errno },
    { "closedir", &closedir },
    { "opendir", &opendir },
--- a/programs/develop/libraries/TinyGL/asm_fork/examples/gears.asm
+++ b/programs/develop/libraries/TinyGL/asm_fork/examples/gears.asm
@@ -23,12 +23,6 @@ macro matr_cell c_funct,c_param,funct,param, dia
 	dia dword[esp-4*(c_param*(c_funct-funct)+(1+c_param-param))]
 }

-;Macro for double type parameters (8 bytes)
-macro glpush GLDoubleVar {
-	push dword[GLDoubleVar+4]
-	push dword[GLDoubleVar]
-}
-
 align 4
 start:
 	load_library name_tgl, library_path, system_path, import_tinygl
@@ -901,22 +895,8 @@ endp


 ;--------------------------------------------------
-align 4
-import_tinygl:
+include '../import.inc'

-macro E_LIB n
-{
-	n dd sz_#n
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-	sz_#n db `n,0
-}
-include '../export.inc'
-
-;--------------------------------------------------
 system_path db '/sys/lib/'
 name_tgl db 'tinygl.obj',0
 ;--------------------------------------------------
--- a/programs/develop/libraries/TinyGL/asm_fork/examples/test3.asm
+++ b/programs/develop/libraries/TinyGL/asm_fork/examples/test3.asm
@@ -1,3 +1,7 @@
+; SPDX-License-Identifier: GPL-2.0-only
+; Test 3 - example of drawing triangles
+; Copyright (C) 2014-2025 KolibriOS team
+
 use32
 	org 0
 	db 'MENUET01'
@@ -8,13 +12,14 @@ include '../../../../../macros.inc'
 include '../../../../../KOSfuncs.inc'
 include '../../../../../load_lib.mac'
 include '../../../../../dll.inc'
+include '../kosgl.inc'
 include '../opengl_const.inc'

@use_library

 align 4
 start:
-	load_library name_tgl, library_path, system_path, import_lib_tinygl
+	load_library name_tgl, library_path, system_path, import_tinygl
 	cmp eax,SF_TERMINATE_PROCESS
 	jz button.exit

@@ -34,11 +39,11 @@ red_win:
 align 16
 still:
 	mcall SF_WAIT_EVENT
-	cmp al,1
+	cmp al,EV_REDRAW
 	jz red_win
-	cmp al,2
+	cmp al,EV_KEY
 	jz key
-	cmp al,3
+	cmp al,EV_BUTTON
 	jz button
 	jmp still

@@ -99,7 +104,7 @@ caption db 'Test tinygl library, [Esc] - exit, [<-] and [->] - rotate',0

 align 4
 draw_3d:
-stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;очистим буфер цвета и глубины
+stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;clear the color and depth buffer

 call [glPushMatrix]
 	stdcall [glRotatef], [angle_z],0.0,0.0,1.0
@@ -136,30 +141,15 @@ angle_z dd 15.0
 delt_size dd 3.0

 ;--------------------------------------------------
-align 4
-import_lib_tinygl:
+include '../import.inc' ;tinygl

-macro E_LIB n
-{
-	n dd sz_#n
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-	sz_#n db `n,0
-}
-include '../export.inc'
-
-;--------------------------------------------------
 system_path db '/sys/lib/'
 name_tgl db 'tinygl.obj',0
 ;--------------------------------------------------

 align 16
 i_end:
-ctx1 rb 28 ;TinyGLContext or KOSGLContext
-;sizeof.TinyGLContext = 28
+ctx1 TinyGLContext
 cur_dir_path rb 4096
 library_path rb 4096
 	rb 1024
--- a/programs/develop/libraries/TinyGL/asm_fork/examples/test_array1.asm
+++ b/programs/develop/libraries/TinyGL/asm_fork/examples/test_array1.asm
@@ -1,3 +1,7 @@
+; SPDX-License-Identifier: GPL-2.0-only
+; Test array1 - example of using vertex array functions
+; Copyright (C) 2014-2025 KolibriOS team
+
 use32
 	org 0
 	db 'MENUET01'
@@ -8,6 +12,7 @@ include '../../../../../macros.inc'
 include '../../../../../KOSfuncs.inc'
 include '../../../../../load_lib.mac'
 include '../../../../../dll.inc'
+include '../kosgl.inc'
 include '../opengl_const.inc'

@use_library
@@ -191,29 +196,15 @@ align 4
 Indices rb FACES_COUNT*6 ;3 points per edge, point index 2 bytes

 ;--------------------------------------------------
-align 4
-import_tinygl:
+include '../import.inc' ;tinygl

-macro E_LIB n
-{
-	n dd sz_#n
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-	sz_#n db `n,0
-}
-include '../export.inc'
-
-;--------------------------------------------------
 system_path db '/sys/lib/'
 name_tgl db 'tinygl.obj',0
 ;--------------------------------------------------

 align 4
 i_end:
-	ctx1 rb 28 ;sizeof.TinyGLContext = 28
+ctx1 TinyGLContext
 cur_dir_path rb 4096
 library_path rb 4096
 	rb 4096
--- a/programs/develop/libraries/TinyGL/asm_fork/examples/test_glu1.asm
+++ b/programs/develop/libraries/TinyGL/asm_fork/examples/test_glu1.asm
@@ -490,127 +490,9 @@ white_light dd 0.8, 0.8, 0.8, 1.0 ; Цвет и интенсивность ос
 lmodel_ambient dd 0.2, 0.2, 0.2, 1.0 ; Параметры фонового освещения

 ;--------------------------------------------------
-align 4
-import_tinygl:
-
-macro E_LIB n
-{
-if defined sz_#n
-	n dd sz_#n
-end if
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-if used n
-	sz_#n db `n,0
-end if
-}
-include '../export.inc'
-
-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_flood_fill dd sz_buf2d_flood_fill
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_libimg:
-	dd alib_init1
-;	img_is_img  dd aimg_is_img
-;	img_info    dd aimg_info
-;	img_from_file dd aimg_from_file
-;	img_to_file dd aimg_to_file
-;	img_from_rgb dd aimg_from_rgb
-;	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-;	img_encode  dd aimg_encode
-;	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-;	img_destroy_layer dd aimg_destroy_layer
-;	img_count   dd aimg_count
-;	img_lock_bits dd aimg_lock_bits
-;	img_unlock_bits dd aimg_unlock_bits
-;	img_flip    dd aimg_flip
-;	img_flip_layer dd aimg_flip_layer
-;	img_rotate  dd aimg_rotate
-;	img_rotate_layer dd aimg_rotate_layer
-;	img_draw    dd aimg_draw
-;	img_convert dd aimg_convert
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-;	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-;	aimg_info    db 'img_info',0
-;	aimg_from_file db 'img_from_file',0
-;	aimg_to_file db 'img_to_file',0
-;	aimg_from_rgb db 'img_from_rgb',0
-;	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-;	aimg_encode  db 'img_encode',0
-;	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-;	aimg_destroy_layer db 'img_destroy_layer',0
-;	aimg_count   db 'img_count',0
-;	aimg_lock_bits db 'img_lock_bits',0
-;	aimg_unlock_bits db 'img_unlock_bits',0
-;	aimg_flip    db 'img_flip',0
-;	aimg_flip_layer db 'img_flip_layer',0
-;	aimg_rotate  db 'img_rotate',0
-;	aimg_rotate_layer db 'img_rotate_layer',0
-;	aimg_draw    db 'img_draw',0
-;	aimg_convert db 'img_convert',0
+include '../import.inc' ;tinygl
+include '../../../buf2d/import.inc'
+include '../../../libs-dev/libimg/import.inc'

 ;--------------------------------------------------
 system_dir_0 db '/sys/lib/'
--- a/programs/develop/libraries/TinyGL/asm_fork/examples/test_glu2.asm
+++ b/programs/develop/libraries/TinyGL/asm_fork/examples/test_glu2.asm
@@ -473,127 +473,9 @@ white_light dd 0.8, 0.8, 0.8, 1.0 ; Цвет и интенсивность ос
 lmodel_ambient dd 0.2, 0.2, 0.2, 1.0 ; Параметры фонового освещения

 ;--------------------------------------------------
-align 4
-import_tinygl:
-
-macro E_LIB n
-{
-if defined sz_#n
-	n dd sz_#n
-end if
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-if used n
-	sz_#n db `n,0
-end if
-}
-include '../export.inc'
-
-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_flood_fill dd sz_buf2d_flood_fill
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_libimg:
-	dd alib_init1
-;	img_is_img  dd aimg_is_img
-;	img_info    dd aimg_info
-;	img_from_file dd aimg_from_file
-;	img_to_file dd aimg_to_file
-;	img_from_rgb dd aimg_from_rgb
-;	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-;	img_encode  dd aimg_encode
-;	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-;	img_destroy_layer dd aimg_destroy_layer
-;	img_count   dd aimg_count
-;	img_lock_bits dd aimg_lock_bits
-;	img_unlock_bits dd aimg_unlock_bits
-;	img_flip    dd aimg_flip
-;	img_flip_layer dd aimg_flip_layer
-;	img_rotate  dd aimg_rotate
-;	img_rotate_layer dd aimg_rotate_layer
-;	img_draw    dd aimg_draw
-;	img_convert dd aimg_convert
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-;	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-;	aimg_info    db 'img_info',0
-;	aimg_from_file db 'img_from_file',0
-;	aimg_to_file db 'img_to_file',0
-;	aimg_from_rgb db 'img_from_rgb',0
-;	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-;	aimg_encode  db 'img_encode',0
-;	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-;	aimg_destroy_layer db 'img_destroy_layer',0
-;	aimg_count   db 'img_count',0
-;	aimg_lock_bits db 'img_lock_bits',0
-;	aimg_unlock_bits db 'img_unlock_bits',0
-;	aimg_flip    db 'img_flip',0
-;	aimg_flip_layer db 'img_flip_layer',0
-;	aimg_rotate  db 'img_rotate',0
-;	aimg_rotate_layer db 'img_rotate_layer',0
-;	aimg_draw    db 'img_draw',0
-;	aimg_convert db 'img_convert',0
+include '../import.inc' ;tinygl
+include '../../../buf2d/import.inc'
+include '../../../libs-dev/libimg/import.inc'

 ;--------------------------------------------------
 system_dir_0 db '/sys/lib/'
--- a/programs/develop/libraries/TinyGL/asm_fork/examples/textures0.asm
+++ b/programs/develop/libraries/TinyGL/asm_fork/examples/textures0.asm
@@ -433,127 +433,9 @@ white_light dd 0.8, 0.8, 0.8, 1.0 ; Цвет и интенсивность ос
 lmodel_ambient dd 0.2, 0.2, 0.2, 1.0 ; Параметры фонового освещения

 ;--------------------------------------------------
-align 4
-import_tinygl:
-
-macro E_LIB n
-{
-if defined sz_#n
-	n dd sz_#n
-end if
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-if used n
-	sz_#n db `n,0
-end if
-}
-include '../export.inc'
-
-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_flood_fill dd sz_buf2d_flood_fill
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_libimg:
-	dd alib_init1
-;	img_is_img  dd aimg_is_img
-;	img_info    dd aimg_info
-;	img_from_file dd aimg_from_file
-;	img_to_file dd aimg_to_file
-;	img_from_rgb dd aimg_from_rgb
-;	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-;	img_encode  dd aimg_encode
-;	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-;	img_destroy_layer dd aimg_destroy_layer
-;	img_count   dd aimg_count
-;	img_lock_bits dd aimg_lock_bits
-;	img_unlock_bits dd aimg_unlock_bits
-;	img_flip    dd aimg_flip
-;	img_flip_layer dd aimg_flip_layer
-;	img_rotate  dd aimg_rotate
-;	img_rotate_layer dd aimg_rotate_layer
-;	img_draw    dd aimg_draw
-;	img_convert dd aimg_convert
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-;	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-;	aimg_info    db 'img_info',0
-;	aimg_from_file db 'img_from_file',0
-;	aimg_to_file db 'img_to_file',0
-;	aimg_from_rgb db 'img_from_rgb',0
-;	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-;	aimg_encode  db 'img_encode',0
-;	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-;	aimg_destroy_layer db 'img_destroy_layer',0
-;	aimg_count   db 'img_count',0
-;	aimg_lock_bits db 'img_lock_bits',0
-;	aimg_unlock_bits db 'img_unlock_bits',0
-;	aimg_flip    db 'img_flip',0
-;	aimg_flip_layer db 'img_flip_layer',0
-;	aimg_rotate  db 'img_rotate',0
-;	aimg_rotate_layer db 'img_rotate_layer',0
-;	aimg_draw    db 'img_draw',0
-;	aimg_convert db 'img_convert',0
+include '../import.inc' ;tinygl
+include '../../../buf2d/import.inc'
+include '../../../libs-dev/libimg/import.inc'

 ;--------------------------------------------------
 system_dir_0 db '/sys/lib/'
--- a/programs/develop/libraries/TinyGL/asm_fork/examples/textures1.asm
+++ b/programs/develop/libraries/TinyGL/asm_fork/examples/textures1.asm
@@ -364,127 +364,9 @@ angle_y dd 0.0
 delt_size dd 3.0

 ;--------------------------------------------------
-align 4
-import_tinygl:
-
-macro E_LIB n
-{
-if defined sz_#n
-	n dd sz_#n
-end if
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-if used n
-	sz_#n db `n,0
-end if
-}
-include '../export.inc'
-
-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_flood_fill dd sz_buf2d_flood_fill
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_libimg:
-	dd alib_init1
-;	img_is_img  dd aimg_is_img
-;	img_info    dd aimg_info
-;	img_from_file dd aimg_from_file
-;	img_to_file dd aimg_to_file
-;	img_from_rgb dd aimg_from_rgb
-;	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-;	img_encode  dd aimg_encode
-;	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-;	img_destroy_layer dd aimg_destroy_layer
-;	img_count   dd aimg_count
-;	img_lock_bits dd aimg_lock_bits
-;	img_unlock_bits dd aimg_unlock_bits
-;	img_flip    dd aimg_flip
-;	img_flip_layer dd aimg_flip_layer
-;	img_rotate  dd aimg_rotate
-;	img_rotate_layer dd aimg_rotate_layer
-;	img_draw    dd aimg_draw
-;	img_convert dd aimg_convert
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-;	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-;	aimg_info    db 'img_info',0
-;	aimg_from_file db 'img_from_file',0
-;	aimg_to_file db 'img_to_file',0
-;	aimg_from_rgb db 'img_from_rgb',0
-;	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-;	aimg_encode  db 'img_encode',0
-;	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-;	aimg_destroy_layer db 'img_destroy_layer',0
-;	aimg_count   db 'img_count',0
-;	aimg_lock_bits db 'img_lock_bits',0
-;	aimg_unlock_bits db 'img_unlock_bits',0
-;	aimg_flip    db 'img_flip',0
-;	aimg_flip_layer db 'img_flip_layer',0
-;	aimg_rotate  db 'img_rotate',0
-;	aimg_rotate_layer db 'img_rotate_layer',0
-;	aimg_draw    db 'img_draw',0
-;	aimg_convert db 'img_convert',0
+include '../import.inc' ;tinygl
+include '../../../buf2d/import.inc'
+include '../../../libs-dev/libimg/import.inc'

 ;--------------------------------------------------
 system_dir_0 db '/sys/lib/'
--- a/programs/develop/libraries/TinyGL/asm_fork/examples/textures2.asm
+++ b/programs/develop/libraries/TinyGL/asm_fork/examples/textures2.asm
@@ -315,127 +315,9 @@ angle_y dd 0.0
 delt_size dd 3.0

 ;--------------------------------------------------
-align 4
-import_tinygl:
-
-macro E_LIB n
-{
-if defined sz_#n
-	n dd sz_#n
-end if
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-if used n
-	sz_#n db `n,0
-end if
-}
-include '../export.inc'
-
-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_flood_fill dd sz_buf2d_flood_fill
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_libimg:
-	dd alib_init1
-;	img_is_img  dd aimg_is_img
-;	img_info    dd aimg_info
-;	img_from_file dd aimg_from_file
-;	img_to_file dd aimg_to_file
-;	img_from_rgb dd aimg_from_rgb
-;	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-;	img_encode  dd aimg_encode
-;	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-;	img_destroy_layer dd aimg_destroy_layer
-;	img_count   dd aimg_count
-;	img_lock_bits dd aimg_lock_bits
-;	img_unlock_bits dd aimg_unlock_bits
-;	img_flip    dd aimg_flip
-;	img_flip_layer dd aimg_flip_layer
-;	img_rotate  dd aimg_rotate
-;	img_rotate_layer dd aimg_rotate_layer
-;	img_draw    dd aimg_draw
-;	img_convert dd aimg_convert
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-;	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-;	aimg_info    db 'img_info',0
-;	aimg_from_file db 'img_from_file',0
-;	aimg_to_file db 'img_to_file',0
-;	aimg_from_rgb db 'img_from_rgb',0
-;	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-;	aimg_encode  db 'img_encode',0
-;	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-;	aimg_destroy_layer db 'img_destroy_layer',0
-;	aimg_count   db 'img_count',0
-;	aimg_lock_bits db 'img_lock_bits',0
-;	aimg_unlock_bits db 'img_unlock_bits',0
-;	aimg_flip    db 'img_flip',0
-;	aimg_flip_layer db 'img_flip_layer',0
-;	aimg_rotate  db 'img_rotate',0
-;	aimg_rotate_layer db 'img_rotate_layer',0
-;	aimg_draw    db 'img_draw',0
-;	aimg_convert db 'img_convert',0
+include '../import.inc' ;tinygl
+include '../../../buf2d/import.inc'
+include '../../../libs-dev/libimg/import.inc'

 ;--------------------------------------------------
 system_dir_0 db '/sys/lib/'
--- a/programs/develop/libraries/TinyGL/asm_fork/import.inc
+++ b/programs/develop/libraries/TinyGL/asm_fork/import.inc
@@ -0,0 +1,18 @@
+align 4
+import_tinygl:
+
+macro E_LIB n
+{
+if defined sz_#n
+	n dd sz_#n
+end if
+}
+include 'export.inc'
+	dd 0,0
+macro E_LIB n
+{
+if used n
+	sz_#n db `n,0
+end if
+}
+include 'export.inc'
--- a/programs/develop/libraries/box_lib/asm/trunk/ctrldemo.asm
+++ b/programs/develop/libraries/box_lib/asm/trunk/ctrldemo.asm
@@ -49,9 +49,9 @@ include '../../../../../load_lib.mac'
 ;--- Start of program ----------------------------------------------
 ;---------------------------------------------------------------------
 START:
-	mcall	68,11
-	mcall	66,1,1
-	mcall	40,0x27
+	mcall	SF_SYS_MISC,SSF_HEAP_INIT
+	mcall	SF_KEYBOARD,SSF_SET_INPUT_MODE,1
+	mcall	SF_SET_EVENTS_MASK,0x27
 ;---------------------------------------------------------------------	

 load_libraries	l_libs_start,end_l_libs
@@ -84,7 +84,7 @@ load_libraries	l_libs_start,end_l_libs

 	copy_path	icons_file_name,path,library_path,0
 	
-	mcall	70,fileinfo
+	mcall	SF_FILE,fileinfo

 	mov	[fileinfo+0],dword 0

@@ -93,14 +93,14 @@ load_libraries	l_libs_start,end_l_libs
 	mov	[img_size],ecx
 	

-	mcall	68,12
+	mcall	SF_SYS_MISC,SSF_MEM_ALLOC


 	mov	[fileinfo+16],eax
 	mov	[image_file],eax


-	mcall	70,fileinfo
+	mcall	SF_FILE,fileinfo
 	
 	xor	eax,eax
 	mov	[return_code],eax
@@ -108,8 +108,7 @@ load_libraries	l_libs_start,end_l_libs
 	push	image_file
 	call	[cnv_png_import.Start]
 	
-	mov	ecx,[image_file]
-	mcall	68,13,
+	mcall	SF_SYS_MISC,SSF_MEM_FREE,[image_file]
 	
 	cmp	[return_code],dword 0
 	jne	button.exit
@@ -151,28 +150,28 @@ load_libraries	l_libs_start,end_l_libs
 red:
 	call	draw_window
 still:
-	mcall	10
+	mcall	SF_WAIT_EVENT

-	cmp	eax,1
+	cmp	eax,EV_REDRAW
 	je	red
-	cmp	eax,2
+	cmp	eax,EV_KEY
 	je	key
-	cmp	eax,3
+	cmp	eax,EV_BUTTON
 	je	button
-	cmp	eax,6
+	cmp	eax,EV_MOUSE
 	je	mouse
 	jmp	still
 ;---------------------------------------------------------------------
 	key:
-	mcall	2
+	mcall	SF_GET_KEY
 	jmp	still
 ;---------------------------------------------------------------------
 	button:
-	mcall	17
+	mcall	SF_GET_BUTTON
 	cmp	ah,1
 	jne	still
 	.exit:
-	mcall	-1
+	mcall	SF_TERMINATE_PROCESS
 ;---------------------------------------------------------------------
 mouse:
 ;-----------------------------------------------
@@ -184,7 +183,7 @@ mouse:
 	jbe	.horizontal
 ; mouse event for Vertical ScrollBar
 	push	dword scroll_bar_data_vertical
-	call	[scrollbar_ver_mouse]
+	call	[scrollbar_v_mouse]
 	mov	eax,scroll_bar_data_vertical.redraw
 	xor	ebx,ebx
 	cmp	[eax],ebx
@@ -200,7 +199,7 @@ mouse:
 	jbe	.other
 ; mouse event for Horizontal ScrollBar
 	push	dword scroll_bar_data_horizontal
-	call	[scrollbar_hor_mouse]
+	call	[scrollbar_h_mouse]
 	mov	eax,scroll_bar_data_horizontal.redraw
 	xor	ebx,ebx
 	cmp	[eax],ebx	
@@ -240,7 +239,7 @@ mouse:
 .mouse_dinamic_button:
 ; mouse event for Dinamic Button 1
 	push	dword dinamic_button_data_1
-	call	[dinamic_button_mouse]
+	call	[dbutton_mouse]
 	mov	eax,dinamic_button_data_1.click
 	cmp	[eax],dword 1
 	jne	@f
@@ -249,7 +248,7 @@ mouse:
@@:
 ; mouse event for Dinamic Button 2
 	push	dword dinamic_button_data_2
-	call	[dinamic_button_mouse]
+	call	[dbutton_mouse]
 	mov	eax,dinamic_button_data_2.click
 	cmp	[eax],dword 1
 	jne	still	;@f
@@ -283,7 +282,7 @@ analyse_out_menu_2:
 	jmp	still
 ;---------------------------------------------------------------------
 	about:
-	mcall	51,1,thread3,thread
+	mcall	SF_CREATE_THREAD,1,thread3,thread
 	jmp	still
 ;---------------------------------------------------------------------
 OpenDialog_start_0:
@@ -320,9 +319,9 @@ OpenDialog_start:
 ;---------------------------------------------------------------------
 ;---------------------------------------------------------------------
 draw_window:
-	mcall	12,1
-	mcall	0,<0,400>,<0,400>,0x03AABBCC,0x805080D0,0x005080D0
-	mcall	71,1,header_1
+	mcall	SF_REDRAW,SSF_BEGIN_DRAW
+	mcall	SF_CREATE_WINDOW,<0,400>,<0,400>,0x03AABBCC,0x805080D0,0x005080D0
+	mcall	SF_SET_CAPTION,1,header_1
 ;---------------------------------------------
 ; draw for Menu 1
 	push	dword menu_data_1
@@ -333,15 +332,15 @@ draw_window:
 ;---------------------------------------------
 ; draw for Dinamic Button	1
 	push	dword dinamic_button_data_1
-	call	[dinamic_button_draw]
+	call	[dbutton_draw]
 ; draw for Dinamic Button 2
 	push	dword dinamic_button_data_2
-	call	[dinamic_button_draw]
+	call	[dbutton_draw]
 ;---------------------------------------------
-	mcall	13,<170,200>,<25,15>,0xffffb0
+	mcall	SF_DRAW_RECT,<170,200>,<25,15>,0xffffb0
 ;	mov	bx,28
 ;	add	ebx,2 shl 16
-;	mcall	4,,0xC0000000,text_work_area,,0xffffb0
+;	mcall	SF_DRAW_TEXT,,0xC0000000,text_work_area,,0xffffb0
 ; draw for PathShow
 	push	dword PathShow_data_1
 	call	[PathShow_draw]	
@@ -357,21 +356,21 @@ draw_window:
 	
 ; draw for Vertical ScrollBar
 	push	dword scroll_bar_data_vertical
-	call	[scrollbar_ver_draw]
+	call	[scrollbar_v_draw]
 ; draw for Horizontal ScrollBar
 	push	dword scroll_bar_data_horizontal
-	call	[scrollbar_hor_draw]
+	call	[scrollbar_h_draw]
 ; reset all_redraw flag	
 	xor	eax,eax
 	mov	[scroll_bar_data_vertical.all_redraw],eax
 	mov	[scroll_bar_data_horizontal.all_redraw],eax
 ;---------------------------------------------
 	call	draw_cube
-	mcall	12,2
+	mcall	SF_REDRAW,SSF_END_DRAW
 	ret
 ;---------------------------------------------------------------------
 draw_cube:
-	mcall	13,<30,301>,<50,301>,0xafafaf
+	mcall	SF_DRAW_RECT,<30,301>,<50,301>,0xafafaf
 	mov	ecx,[scroll_bar_data_vertical.position]
 	add	ecx,50
 	shl	ecx,16
@@ -380,7 +379,7 @@ draw_cube:
 	add	ebx,30
 	shl	ebx,16
 	mov	bx,30
-	mcall	13,,,0x0
+	mcall	SF_DRAW_RECT,,,0x0
 	ret
 ;---------------------------------------------------------------------
 include 'data.inc'
--- a/programs/develop/libraries/box_lib/asm/trunk/data.inc
+++ b/programs/develop/libraries/box_lib/asm/trunk/data.inc
@@ -30,7 +30,7 @@ system_dir_ProcLib	db '/sys/lib/proc_lib.obj',0
 align	4
 l_libs_start:
 library01	l_libs system_dir_Boxlib+9, file_name, system_dir_Boxlib,\
- Box_lib_import, plugins_directory
+ import_box_lib, plugins_directory

 library02	l_libs system_dir_CnvPNG+9, file_name, system_dir_CnvPNG,\
 cnv_png_import, plugins_directory
@@ -126,91 +126,7 @@ deflate_unpack	dd 0
 ;---------------------------------------------------------------------

 ;---------------------------------------------------------------------
-align	4
-Box_lib_import:	
-;init_lib		dd a_init
-;version_lib		dd a_version
-
-
-;edit_box_draw		dd aEdit_box_draw
-;edit_box_key		dd aEdit_box_key
-;edit_box_mouse		dd aEdit_box_mouse
-;version_ed		dd aVersion_ed
-
-;check_box_draw		dd aCheck_box_draw
-;check_box_mouse	dd aCheck_box_mouse
-;version_ch		dd aVersion_ch
-
-;option_box_draw	dd aOption_box_draw
-;option_box_mouse	dd aOption_box_mouse
-;version_op		dd aVersion_op
-
-scrollbar_ver_draw	dd aScrollbar_ver_draw
-scrollbar_ver_mouse	dd aScrollbar_ver_mouse
-scrollbar_hor_draw	dd aScrollbar_hor_draw
-scrollbar_hor_mouse	dd aScrollbar_hor_mouse
-;version_scrollbar	dd aVersion_scrollbar
-
-dinamic_button_draw	dd aDbutton_draw
-dinamic_button_mouse	dd aDbutton_mouse
-;version_dbutton	dd aVersion_dbutton
-
-menu_bar_draw		dd aMenu_bar_draw
-menu_bar_mouse		dd aMenu_bar_mouse
-menu_bar_activate	dd aMenu_bar_activate
-;version_menu_bar	dd aVersion_menu_bar
-
-;FileBrowser_draw	dd aFileBrowser_draw
-;FileBrowser_mouse	dd aFileBrowser_mouse
-;FileBrowser_key	dd aFileBrowser_key
-;Version_FileBrowser	dd aVersion_FileBrowser
-
-PathShow_prepare	dd sz_PathShow_prepare
-PathShow_draw		dd sz_PathShow_draw
-;Version_path_show	dd szVersion_path_show
-			dd 0,0
-
-;a_init			db 'lib_init',0
-;a_version		db 'version',0
-
-;aEdit_box_draw		db 'edit_box_draw',0
-;aEdit_box_key		db 'edit_box_key',0
-;aEdit_box_mouse	db 'edit_box_mouse',0
-;aVersion_ed		db 'version_ed',0
-
-;aCheck_box_draw	db 'check_box_draw',0
-;aCheck_box_mouse	db 'check_box_mouse',0
-;aVersion_ch		db 'version_ch',0
-
-;aOption_box_draw	db 'option_box_draw',0
-;aOption_box_mouse	db 'option_box_mouse',0
-;aVersion_op		db 'version_op',0
-
-aScrollbar_ver_draw	db 'scrollbar_v_draw',0
-aScrollbar_ver_mouse	db 'scrollbar_v_mouse',0
-aScrollbar_hor_draw	db 'scrollbar_h_draw',0
-aScrollbar_hor_mouse	db 'scrollbar_h_mouse',0
-;aVersion_scrollbar	db 'version_scrollbar',0
-
-aDbutton_draw		db 'dbutton_draw',0
-aDbutton_mouse		db 'dbutton_mouse',0
-;aVersion_dbutton	db 'version_dbutton',0
-
-aMenu_bar_draw		db 'menu_bar_draw',0
-aMenu_bar_mouse		db 'menu_bar_mouse',0
-aMenu_bar_activate	db 'menu_bar_activate',0
-;aVersion_menu_bar	db 'version_menu_bar',0
-
-;aFileBrowser_draw	db 'FileBrowser_draw',0
-;aFileBrowser_mouse	db 'FileBrowser_mouse',0
-;aFileBrowser_key	db 'FileBrowser_key',0
-;aVersion_FileBrowser	db 'version_FileBrowser',0
-
-sz_PathShow_prepare	db 'PathShow_prepare',0
-sz_PathShow_draw	db 'PathShow_draw',0
-;szVersion_path_show	db 'version_PathShow',0
-
-;---------------------------------------------------------------------
+include '../../import.inc' ;import_box_lib

 ;---------------------------------------------------------------------	
 align	4
--- a/programs/develop/libraries/box_lib/asm/trunk/editbox_ex.asm
+++ b/programs/develop/libraries/box_lib/asm/trunk/editbox_ex.asm
@@ -18,7 +18,7 @@ include '../../../../../load_lib.mac'
    @use_library         ;use load lib macros
 start:
 ;universal load library/librarys
-sys_load_library  library_name, library_path, system_path, myimport
+sys_load_library  library_name, library_path, system_path, import_box_lib
 ;if return code =-1 then exit, else nornary work
    cmp      eax,-1
    jz       exit
@@ -116,37 +116,7 @@ library_name    db 'box_lib.obj',0
 ;library_name     db 'box_lib.obj',0
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

-myimport:
-
-edit_box_draw    dd    aEdit_box_draw
-edit_box_key     dd    aEdit_box_key
-edit_box_mouse   dd    aEdit_box_mouse
-version_ed       dd    aVersion_ed
-
-init_checkbox    dd    aInit_checkbox
-check_box_draw   dd    aCheck_box_draw
-check_box_mouse  dd    aCheck_box_mouse
-version_ch       dd    aVersion_ch
-
-option_box_draw  dd    aOption_box_draw
-option_box_mouse dd    aOption_box_mouse
-version_op       dd    aVersion_op
-
-    dd    0,0
-
-aEdit_box_draw   db 'edit_box_draw',0
-aEdit_box_key    db 'edit_box_key',0
-aEdit_box_mouse  db 'edit_box_mouse',0
-aVersion_ed      db 'version_ed',0
-
-aInit_checkbox   db 'init_checkbox2',0
-aCheck_box_draw  db 'check_box_draw2',0
-aCheck_box_mouse db 'check_box_mouse2',0
-aVersion_ch      db 'version_ch2',0
-
-aOption_box_draw  db 'option_box_draw',0
-aOption_box_mouse db 'option_box_mouse',0
-aVersion_op       db 'version_op',0
+include '../../import.inc' ;creating a function import table


 check1 check_box2 (10 shl 16 + 12),(45 shl 16 + 12),5,0x80AABBCC,0,0,check_text1,ch_flag_en
--- a/programs/develop/libraries/box_lib/asm/trunk/tooltip_demo.asm
+++ b/programs/develop/libraries/box_lib/asm/trunk/tooltip_demo.asm
@@ -34,14 +34,14 @@ START:
 ;---------------------------------------------------------------------
 ;--- ˆ<>ˆ–ˆ€‹ˆ‡€–ˆŸ ----------------------------------------
 ;---------------------------------------------------------------------
-mcall	68, 11
+mcall	SF_SYS_MISC, SSF_HEAP_INIT

-mcall 40, $C0000027 ; ¬ áª  á®¡ëâ¨© - ¬ëèì â®«ìª® ¢  ªâ¨¢®¬ ®ª¥
+mcall SF_SET_EVENTS_MASK, $C0000027 ; ¬ áª  á®¡ëâ¨© - ¬ëèì â®«ìª® ¢  ªâ¨¢®¬ ®ª¥

-sys_load_library  lib_name, lib_path, sys_path, myimport
+sys_load_library  lib_name, lib_path, sys_path, import_box_lib
 test eax,eax
 jz	@f
-	mcall -1 ; alarm exit
+	mcall SF_TERMINATE_PROCESS
@@:


@@ -56,16 +56,16 @@ call draw_window ;
 ;---------------------------------------------------------------------

 still:
-mcall 23, 5 ; äãªæ¨ï 23 - ¦¤ âì á®¡ëâ¨ï <EFBFBD>¥ ¡®«¥¥ ç¥¬ 0.05á
+mcall SF_WAIT_EVENT_TIMEOUT, 5 ; ¦¤ âì á®¡ëâ¨ï ¥ ¡®«¥¥ ç¥¬ 0.05á
 test eax, eax ; ¥â á®¡ëâ¨© - ¯à®¢¥à¨âì à¨á®¢ ¨¥ âã«â¨¯®¢ ¯® â ©¬¥àã
 je yield
-cmp eax,1 ; ¯¥à¥à¨á®¢ âì ®ª® ?
+cmp eax,EV_REDRAW
 je red ; ¥á«¨ ¤  -   ¬¥âªã red
-cmp eax,2 ;  ¦ â  ª« ¢¨è  ?
+cmp eax,EV_KEY
 je key ; ¥á«¨ ¤  -   key
-cmp eax,3 ;  ¦ â  ª®¯ª  ?
+cmp eax,EV_BUTTON
 je button ; ¥á«¨ ¤  -   button
-cmp eax,6 ; á®¡ëâ¨¥ ¬ëè¨
+cmp eax,EV_MOUSE
 je mouse ; ¥á«¨ ¤  -   mouse

 jmp still ; ¥á«¨ ¤àã£®¥ á®¡ëâ¨¥ - ¢  ç «® æ¨ª« 
@@ -81,21 +81,21 @@ invoke tooltip_mouse, redbox_tt
 jmp still ; ¢¥àãâìáï ª  ç «ã æ¨ª« 

 key: ;  ¦ â  ª« ¢¨è    ª« ¢¨ âãà¥
-mcall 2 ; äãªæ¨ï 2 - áç¨â âì ª®¤ á¨¬¢®«  (¢ ah)
+mcall SF_GET_KEY ; áç¨â âì ª®¤ á¨¬¢®«  (¢ ah)

 jmp still ; ¢¥àãâìáï ª  ç «ã æ¨ª« 

 ;---------------------------------------------------------------------

 button:
-mcall 17 ; 17 - ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à  ¦ â®© ª®¯ª¨
+mcall SF_GET_BUTTON ; ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à  ¦ â®© ª®¯ª¨

 cmp ah, 1 ; ¥á«¨ <20>…  ¦ â  ª®¯ª  á ®¬¥à®¬ 1,
 jne still ; ¢¥àãâìáï

 pexit:
 invoke tooltip_delete, redbox_tt	; ®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
-mcall -1 ; ¨ ç¥ ª®¥æ ¯à®£à ¬¬ë
+mcall SF_TERMINATE_PROCESS


 ;---------------------------------------------------------------------
@@ -104,20 +104,20 @@ mcall -1 ;

 draw_window:

-mcall 12, 1 ; äãªæ¨ï 12: á®®¡é¨âì Ž‘ ®  ç «¥ ®âà¨á®¢ª¨
+mcall SF_REDRAW, SSF_BEGIN_DRAW

-mcall 48, 3, sc,sizeof.system_colors
+mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, sc, sizeof.system_colors

 mov edx, [sc.work] ; æ¢¥â ä® 
 or edx, 0x33000000 ; ¨ â¨¯ ®ª  3
-mcall 0, <200,300>, <200,150>, , ,title
+mcall SF_CREATE_WINDOW, <200,300>, <200,150>, , ,title

 ; ¢ë¢®¤ ª¢ ¤à â¨ª®¢
-mcall 13, <60,50>, <50,50>, $FF0000
-mcall 13, <140,50>, <50,50>, $FF
+mcall SF_DRAW_RECT, <60,50>, <50,50>, $FF0000
+mcall SF_DRAW_RECT, <140,50>, <50,50>, $FF


-mcall 12, 2 ; äãªæ¨ï 12.2, § ª®ç¨«¨ à¨á®¢ âì
+mcall SF_REDRAW, SSF_END_DRAW

 ret ; ¢ëå®¤¨¬ ¨§ ¯à®æ¥¤ãàë

@@ -135,22 +135,7 @@ lib_name    db 'box_lib.obj',0
 cur_dir_path    rb 4096
 lib_path    rb 4096

-myimport:
-				dd sz_lib_init ;äãªæ¨ï § ¯ãáª ¥âáï ¬ ªà®á®¬ 1 à § ¯à¨ ¯®¤ª«îç¥¨¨ 
-;¡¨¡«¨®â¥ª¨, ¯®â®¬ã ¢ ¯à®£à ¬¬¥ ¬¥âª    ¥¥ ¥ ã¦ 
-tooltip_init  	dd sz_tooltip_init
-tooltip_delete	dd sz_tooltip_delete
-tooltip_test_show	dd sz_tooltip_test_show
-tooltip_mouse	dd sz_tooltip_mouse
-get_font_size	dd sz_get_font_size
-    dd    0,0
-
-sz_lib_init 			db 'lib_init',0
-sz_tooltip_init			db 'tooltip_init', 0
-sz_tooltip_delete		db 'tooltip_delete', 0
-sz_tooltip_test_show	db 'tooltip_test_show', 0
-sz_tooltip_mouse		db 'tooltip_mouse', 0
-sz_get_font_size		db 'get_font_size', 0
+include '../../import.inc' ;import_box_lib


 ;tooltip txt, next, zone_x, zone_w, zone_y, zone_h, col_txt, col_bkg, tm_wait
--- a/programs/develop/libraries/box_lib/export.inc
+++ b/programs/develop/libraries/box_lib/export.inc
@@ -0,0 +1,117 @@
+;
+; Export functions
+;
+
+E_LIB lib_init
+E_LIB version
+
+E_LIB edit_box_draw
+E_LIB edit_box_key
+E_LIB edit_box_key_safe
+E_LIB edit_box_mouse
+E_LIB edit_box_set_text
+E_LIB version_ed
+
+E_LIB init_checkbox,   init_checkbox2
+E_LIB check_box_draw,  check_box_draw2
+E_LIB check_box_mouse, check_box_mouse2
+E_LIB version_ch,      version_ch2
+
+E_LIB option_box_draw
+E_LIB option_box_mouse
+E_LIB version_op
+
+E_LIB scrollbar_v_draw
+E_LIB scrollbar_v_mouse
+E_LIB scrollbar_h_draw
+E_LIB scrollbar_h_mouse
+E_LIB version_scrollbar
+
+E_LIB dbutton_draw
+E_LIB dbutton_mouse
+E_LIB version_dbutton
+
+E_LIB menu_bar_draw
+E_LIB menu_bar_mouse
+E_LIB menu_bar_activate
+E_LIB version_menu_bar
+
+E_LIB FileBrowser_draw
+E_LIB FileBrowser_mouse
+E_LIB FileBrowser_key
+E_LIB version_FileBrowser
+
+E_LIB tl_data_init
+E_LIB tl_data_clear
+E_LIB tl_info_clear
+E_LIB tl_key
+E_LIB tl_mouse
+E_LIB tl_draw
+E_LIB tl_info_undo
+E_LIB tl_info_redo
+E_LIB tl_node_add
+E_LIB tl_node_set_data
+E_LIB tl_node_get_data
+E_LIB tl_node_delete
+E_LIB tl_cur_beg
+E_LIB tl_cur_next
+E_LIB tl_cur_perv
+E_LIB tl_node_close_open
+E_LIB tl_node_lev_inc
+E_LIB tl_node_lev_dec
+E_LIB tl_node_move_up
+E_LIB tl_node_move_down
+E_LIB tl_node_poi_get_info
+E_LIB tl_node_poi_get_next_info
+E_LIB tl_node_poi_get_data
+E_LIB tl_save_mem
+E_LIB tl_load_mem
+E_LIB tl_get_mem_size
+E_LIB version_tree_list
+
+E_LIB PathShow_prepare
+E_LIB PathShow_draw
+E_LIB version_PathShow
+
+E_LIB ted_but_sumb_upper
+E_LIB ted_but_sumb_lover
+E_LIB ted_but_convert_by_table
+E_LIB ted_can_save
+E_LIB ted_clear
+E_LIB ted_delete
+E_LIB ted_draw
+E_LIB ted_init
+E_LIB ted_init_scroll_bars
+E_LIB ted_init_syntax_file
+E_LIB ted_is_select
+E_LIB ted_key
+E_LIB ted_mouse
+E_LIB ted_open_file
+E_LIB ted_save_file
+E_LIB ted_text_add
+E_LIB ted_but_select_word
+E_LIB ted_but_cut
+E_LIB ted_but_copy
+E_LIB ted_but_paste
+E_LIB ted_but_undo
+E_LIB ted_but_redo
+E_LIB ted_but_reverse
+E_LIB ted_but_find
+E_LIB ted_but_replace
+E_LIB ted_text_colored
+E_LIB ted_go_to_position
+E_LIB version_text_edit
+
+E_LIB frame_draw
+E_LIB version_frame
+
+E_LIB progressbar_draw
+E_LIB progressbar_progress
+
+E_LIB tooltip_init
+E_LIB tooltip_delete
+E_LIB tooltip_test_show
+E_LIB tooltip_mouse
+E_LIB get_font_size
+
+purge E_LIB
--- a/programs/develop/libraries/box_lib/import.inc
+++ b/programs/develop/libraries/box_lib/import.inc
@@ -0,0 +1,24 @@
+align 4
+import_box_lib:
+
+macro E_LIB n, lfn
+{
+if n eq lib_init
+	dd strz_#n
+else if defined sz_#n
+	n dd sz_#n
+end if
+}
+include 'export.inc'
+	dd 0,0
+macro E_LIB n, lfn
+{
+if used n
+if lfn eq
+	sz_#n db `n,0
+else
+	sz_#n db `lfn,0
+end if
+end if
+}
+include 'export.inc'
--- a/programs/develop/libraries/buf2d/export.inc
+++ b/programs/develop/libraries/buf2d/export.inc
@@ -0,0 +1,48 @@
+;
+; Export functions
+;
+
+E_LIB lib_init
+E_LIB buf2d_create
+E_LIB buf2d_create_f_img
+E_LIB buf2d_clear
+E_LIB buf2d_draw
+E_LIB buf2d_delete
+E_LIB buf2d_resize
+E_LIB buf2d_rotate
+E_LIB buf2d_line
+E_LIB buf2d_line_sm
+E_LIB buf2d_rect_by_size
+E_LIB buf2d_filled_rect_by_size
+E_LIB buf2d_circle
+E_LIB buf2d_img_hdiv2
+E_LIB buf2d_img_wdiv2
+E_LIB buf2d_conv_24_to_8
+E_LIB buf2d_conv_24_to_32
+E_LIB buf2d_bit_blt
+E_LIB buf2d_bit_blt_transp
+E_LIB buf2d_bit_blt_alpha
+E_LIB buf2d_curve_bezier
+E_LIB buf2d_convert_text_matrix
+E_LIB buf2d_draw_text
+E_LIB buf2d_crop_color
+E_LIB buf2d_offset_h
+E_LIB buf2d_flood_fill
+E_LIB buf2d_set_pixel
+E_LIB buf2d_get_pixel
+E_LIB buf2d_flip_h
+E_LIB buf2d_flip_v
+E_LIB buf2d_filter_dither
+
+E_LIB buf2d_vox_brush_create
+E_LIB buf2d_vox_brush_delete
+E_LIB buf2d_vox_obj_get_img_w_3g
+E_LIB buf2d_vox_obj_get_img_h_3g
+E_LIB buf2d_vox_obj_draw_1g
+E_LIB buf2d_vox_obj_draw_3g
+E_LIB buf2d_vox_obj_draw_3g_scaled
+E_LIB buf2d_vox_obj_draw_pl
+E_LIB buf2d_vox_obj_draw_pl_scaled
+E_LIB buf2d_vox_obj_draw_3g_shadows
+
+purge E_LIB
--- a/programs/develop/libraries/buf2d/import.inc
+++ b/programs/develop/libraries/buf2d/import.inc
@@ -0,0 +1,20 @@
+align 4
+import_buf2d:
+
+macro E_LIB n
+{
+if n eq lib_init
+	dd strz_#n
+else if defined sz_#n
+	n dd sz_#n
+end if
+}
+include 'export.inc'
+	dd 0,0
+macro E_LIB n
+{
+if used n
+	sz_#n db `n,0
+end if
+}
+include 'export.inc'
--- a/programs/develop/libraries/crypt_des/example/crypt_files.asm
+++ b/programs/develop/libraries/crypt_des/example/crypt_files.asm
@@ -11,7 +11,7 @@ include '../../../../develop/libraries/box_lib/trunk/box_lib.mac'
 include '../../../../dll.inc'

@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
-caption db '˜¨äà®¢ ¨¥  «£®à¨â¬®¬ DES 05.03.13',0 ;¯®¤¯¨áì ®ª 
+caption db '˜¨äà®¢ ¨¥  «£®à¨â¬®¬ DES 21.05.25',0 ;¯®¤¯¨áì ®ª 

 struct FileInfoBlock
 	Function dd ?
@@ -112,13 +112,13 @@ align 4
 still:
 	mcall SF_WAIT_EVENT

-	cmp al,1
+	cmp al,EV_REDRAW
 	jz red_win
-	cmp al,2
+	cmp al,EV_KEY
 	jz key
-	cmp al,3
+	cmp al,EV_BUTTON
 	jz button
-	cmp al,6 ;¬ëèì
+	cmp al,EV_MOUSE
 	jne @f
 		jmp mouse
 	@@:
@@ -410,52 +410,7 @@ l_libs_start:
 	lib_4 l_libs lib_name_4, library_path, system_dir_4, import_box_lib
 l_libs_end:

-align 4
-import_libimg:
-	dd alib_init1
-	img_is_img  dd aimg_is_img
-	img_info    dd aimg_info
-	img_from_file dd aimg_from_file
-	img_to_file dd aimg_to_file
-	img_from_rgb dd aimg_from_rgb
-	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-	img_encode  dd aimg_encode
-	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-	img_destroy_layer dd aimg_destroy_layer
-	img_count   dd aimg_count
-	img_lock_bits dd aimg_lock_bits
-	img_unlock_bits dd aimg_unlock_bits
-	img_flip    dd aimg_flip
-	img_flip_layer dd aimg_flip_layer
-	img_rotate  dd aimg_rotate
-	img_rotate_layer dd aimg_rotate_layer
-	img_draw    dd aimg_draw
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-	aimg_is_img  db 'img_is_img',0 ;®¯à¥¤¥«ï¥â ¯® ¤ ë¬, ¬®¦¥â «¨ ¡¨¡«¨®â¥ª  á¤¥« âì ¨§ ¨å ¨§®¡à ¦¥¨¥
-	aimg_info    db 'img_info',0
-	aimg_from_file db 'img_from_file',0
-	aimg_to_file db 'img_to_file',0
-	aimg_from_rgb db 'img_from_rgb',0
-	aimg_to_rgb  db 'img_to_rgb',0 ;¯à¥®¡à §®¢ ¨¥ ¨§®¡à ¦¥¨ï ¢ ¤ ë¥ RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ; ¢â®¬ â¨ç¥áª¨ ®¯à¥¤¥«ï¥â ä®à¬ â £à ä¨ç¥áª¨å ¤ ëå
-	aimg_encode  db 'img_encode',0
-	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-	aimg_destroy_layer db 'img_destroy_layer',0
-	aimg_count   db 'img_count',0
-	aimg_lock_bits db 'img_lock_bits',0
-	aimg_unlock_bits db 'img_unlock_bits',0
-	aimg_flip    db 'img_flip',0
-	aimg_flip_layer db 'img_flip_layer',0
-	aimg_rotate  db 'img_rotate',0
-	aimg_rotate_layer db 'img_rotate_layer',0
-	aimg_draw    db 'img_draw',0
+include '../../libs-dev/libimg/import.inc'

 align 4
 import_proclib: ;®¯¨á ¨¥ íªá¯®àâ¨àã¥¬ëå äãªæ¨©
@@ -465,57 +420,7 @@ dd 0,0
 	aOpenDialog_Init db 'OpenDialog_init',0
 	aOpenDialog_Start db 'OpenDialog_start',0

-align 4
-import_buf2d:
-	init dd sz_init
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	;buf2d_line dd sz_buf2d_line
-	;buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	;buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	;buf2d_circle dd sz_buf2d_circle
-	;buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	;buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	;buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	;buf2d_bit_blt dd sz_buf2d_bit_blt
-	;buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	;buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	;buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	;buf2d_crop_color dd sz_buf2d_crop_color
-	;buf2d_offset_h dd sz_buf2d_offset_h
-	;buf2d_flood_fill dd sz_buf2d_flood_fill
-	;buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	;sz_buf2d_line db 'buf2d_line',0
-	;sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	;sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	;sz_buf2d_circle db 'buf2d_circle',0
-	;sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	;sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	;sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	;sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	;sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	;sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	;sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	;sz_buf2d_crop_color db 'buf2d_crop_color',0
-	;sz_buf2d_offset_h db 'buf2d_offset_h',0
-	;sz_buf2d_flood_fill db 'buf2d_flood_fill',0
-	;sz_buf2d_set_pixel db 'buf2d_set_pixel',0
+include '../../buf2d/import.inc'

 align 4
 import_des: ;®¯¨á ¨¥ íªá¯®àâ¨àã¥¬ëå äãªæ¨©
@@ -525,22 +430,7 @@ dd 0,0
 	sz_des_encryption db 'des_encryption',0
 	sz_des_decryption db 'des_decryption',0

-align 4
-import_box_lib:
-	;dd sz_init1
-	edit_box_draw dd sz_edit_box_draw
-	edit_box_key dd sz_edit_box_key
-	edit_box_mouse dd sz_edit_box_mouse
-	;edit_box_set_text dd sz_edit_box_set_text
-
-	dd 0,0
-	;sz_init1 db 'lib_init',0
-	sz_edit_box_draw db 'edit_box_draw',0
-	sz_edit_box_key db 'edit_box_key',0
-	sz_edit_box_mouse db 'edit_box_mouse',0
-	;sz_edit_box_set_text db 'edit_box_set_text',0
-
-mouse_dd dd 0x0
+include '../../box_lib/import.inc'

 align 4
 buf_0: dd 0 ;ãª § â¥«ì   ¡ãä¥à ¨§®¡à ¦¥¨ï
@@ -564,12 +454,13 @@ buf_1:
 edit1 edit_box 58, 140,8, 0xffffff, 0xff, 0x80ff, 0, 0x8000, 8, txt_key, mouse_dd, ed_focus+ed_always_focus,8,8

 txt_openfile db 'Žâªà®©â¥ ä ©« ¤«ï è¨äà®¢ ¨ï ¨«¨ ¤¥è¨äà®¢ ¨ï.',0
-txt_buf rb 80
 txt_key db 'des_0123',0
-mem_key rb 120

 align 16
 i_end:
+	txt_buf rb 80
+	mem_key rb 120
+	mouse_dd rd 1
 	procinfo process_information
 	sc system_colors 
 	rb 2048
--- a/programs/develop/libraries/http/http.asm
+++ b/programs/develop/libraries/http/http.asm
@@ -100,6 +100,10 @@ lib_init: ;//////////////////////////////////////////////////////////////////;;
        mov     [mem.alloc], eax
        mov     [mem.free], ebx
        mov     [mem.realloc], ecx
+
+        cmp     [dll.load], edx
+        je      .ok
+
        mov     [dll.load], edx

        invoke  dll.load, @IMPORT
@@ -115,6 +119,7 @@ lib_init: ;//////////////////////////////////////////////////////////////////;;
        invoke  ini.get_str, inifile, sec_proxy, key_password, proxyPassword, 256, proxyPassword
        popa

+  .ok:
        DEBUGF  1, "HTTP library: init OK\n"
        xor     eax, eax
        ret
--- a/programs/develop/libraries/libs-dev/libimg/export.inc
+++ b/programs/develop/libraries/libs-dev/libimg/export.inc
@@ -0,0 +1,34 @@
+;
+; Export functions
+;
+
+E_LIB lib_init
+E_LIB version
+E_LIB img_is_img
+E_LIB img_info
+E_LIB img_from_file
+E_LIB img_to_file
+E_LIB img_from_rgb
+E_LIB img_to_rgb
+E_LIB img_to_rgb2
+E_LIB img_decode
+E_LIB img_encode ;supported formats: PNG 24 32, BMP 24 32, PNM 1 8g 24
+E_LIB img_create
+E_LIB img_destroy
+E_LIB img_destroy_layer
+E_LIB img_count
+E_LIB img_lock_bits
+E_LIB img_unlock_bits
+E_LIB img_flip
+E_LIB img_flip_layer
+E_LIB img_rotate
+E_LIB img_rotate_layer
+E_LIB img_draw
+E_LIB img_scale
+E_LIB img_get_scaled_size
+E_LIB img_convert
+E_LIB img_blend
+E_LIB img_resize_data
+E_LIB img_formats_table
+
+purge E_LIB
--- a/programs/develop/libraries/libs-dev/libimg/import.inc
+++ b/programs/develop/libraries/libs-dev/libimg/import.inc
@@ -0,0 +1,20 @@
+align 4
+import_libimg:
+
+macro E_LIB n
+{
+if n eq lib_init
+	dd strz_#n
+else if defined sz_#n
+	n dd sz_#n
+end if
+}
+include 'export.inc'
+	dd 0,0
+macro E_LIB n
+{
+if used n
+	sz_#n db `n,0
+end if
+}
+include 'export.inc'
--- a/programs/develop/libraries/libs-dev/libimg/libimg.asm
+++ b/programs/develop/libraries/libs-dev/libimg/libimg.asm
@@ -78,6 +78,10 @@ proc lib_init ;///////////////////////////////////////////////////////////////;;
        mov     [mem.alloc], eax
        mov     [mem.free], ebx
        mov     [mem.realloc], ecx
+
+        cmp     [dll.load], edx
+        je      .ok
+
        mov     [dll.load], edx

        or      edx, edx
--- a/programs/develop/libraries/libs-dev/libini/libini_p.asm
+++ b/programs/develop/libraries/libs-dev/libini/libini_p.asm
@@ -34,21 +34,25 @@ proc libini._.init ;////////////////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< eax = 1 (fail) / 0 (ok) (library initialization result)                                        ;;
 ;;================================================================================================;;
-	mov	[mem.alloc], eax
-	mov	[mem.free], ebx
-	mov	[mem.realloc], ecx
-	mov	[dll.load], edx
+        mov     [mem.alloc], eax
+        mov     [mem.free], ebx
+        mov     [mem.realloc], ecx

-	invoke	dll.load, @IMPORT
-	or	eax, eax
-	jz	.ok
+        cmp     [dll.load], edx
+        je      .ok

-	xor	eax, eax
-	inc	eax
-	ret
+        mov     [dll.load], edx

-  .ok:	xor	eax,eax
-	ret
+        invoke  dll.load, @IMPORT
+        or      eax, eax
+        jz      .ok
+
+        xor     eax, eax
+        inc     eax
+        ret
+
+  .ok:  xor     eax,eax
+        ret
 endp

 ;;================================================================================================;;
@@ -60,16 +64,16 @@ proc libini._.unget_char _f ;///////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	eax ecx
-	mov	ecx, [_f]
-	inc	[ecx + IniFile.cnt]
-	dec	esi
-	mov	eax, [ecx + IniFile.bsize]
-	cmp	[ecx + IniFile.cnt], eax
-	jle	@f
-	stdcall libini._.unload_block, [_f]
-    @@: pop	ecx eax
-	ret
+        push    eax ecx
+        mov     ecx, [_f]
+        inc     [ecx + IniFile.cnt]
+        dec     esi
+        mov     eax, [ecx + IniFile.bsize]
+        cmp     [ecx + IniFile.cnt], eax
+        jle     @f
+        stdcall libini._.unload_block, [_f]
+    @@: pop     ecx eax
+        ret
 endp

 ;;================================================================================================;;
@@ -81,13 +85,13 @@ proc libini._.get_char _f ;/////////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	mov	ecx, [_f]
-	dec	[ecx + IniFile.cnt]
-	jns	@f
-	stdcall libini._.preload_block, [_f]
-	dec	[ecx + IniFile.cnt]
+        mov     ecx, [_f]
+        dec     [ecx + IniFile.cnt]
+        jns     @f
+        stdcall libini._.preload_block, [_f]
+        dec     [ecx + IniFile.cnt]
    @@: lodsb
-	ret
+        ret
 endp

 ;;================================================================================================;;
@@ -99,22 +103,22 @@ proc libini._.skip_nonblanks _f ;///////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	mov	ecx, [_f]
+        mov     ecx, [_f]
    @@: stdcall libini._.get_char, [_f]
-	cmp	al, 32
-	je	@b
-	cmp	al, 13
-	je	@b
-	cmp	al, 10
-	je	@b
-	cmp	al, 9
-	je	@b
-	cmp	al, ini.COMMENT_CHAR
-	jne	@f
-	stdcall libini._.skip_line, [_f]
-	jmp	@b
+        cmp     al, 32
+        je      @b
+        cmp     al, 13
+        je      @b
+        cmp     al, 10
+        je      @b
+        cmp     al, 9
+        je      @b
+        cmp     al, ini.COMMENT_CHAR
+        jne     @f
+        stdcall libini._.skip_line, [_f]
+        jmp     @b
    @@: stdcall libini._.unget_char, [_f]
-	ret
+        ret
 endp

 ;;================================================================================================;;
@@ -126,14 +130,14 @@ proc libini._.skip_spaces _f ;//////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	mov	ecx, [_f]
+        mov     ecx, [_f]
    @@: stdcall libini._.get_char, [_f]
-	cmp	al, 32
-	je	@b
-	cmp	al, 9
-	je	@b
+        cmp     al, 32
+        je      @b
+        cmp     al, 9
+        je      @b
    @@: stdcall libini._.unget_char, [_f]
-	ret
+        ret
 endp

 ;;================================================================================================;;
@@ -145,16 +149,16 @@ proc libini._.skip_line _f ;////////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	mov	ecx, [_f]
+        mov     ecx, [_f]
    @@: stdcall libini._.get_char, [_f]
-	or	al, al
-	jz	@f
-	cmp	al, 13
-	je	@f
-	cmp	al, 10
-	jne	@b
+        or      al, al
+        jz      @f
+        cmp     al, 13
+        je      @f
+        cmp     al, 10
+        jne     @b
    @@: stdcall libini._.unget_char, [_f]
-	ret
+        ret
 endp

 ;;================================================================================================;;
@@ -166,16 +170,16 @@ proc libini._.unload_block _f ;/////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	eax ebx ecx
-	mov	ebx, [_f]
-	mov	eax, [ebx + IniFile.pos]
-	add	eax, -ini.BLOCK_SIZE
-	invoke	file.seek, [ebx + IniFile.fh], eax, SEEK_SET
-	stdcall libini._.preload_block, ebx
-	add	esi, eax
-	mov	[ebx + IniFile.cnt], 0
-	pop	ecx ebx eax
-	ret
+        push    eax ebx ecx
+        mov     ebx, [_f]
+        mov     eax, [ebx + IniFile.pos]
+        add     eax, -ini.BLOCK_SIZE
+        invoke  file.seek, [ebx + IniFile.fh], eax, SEEK_SET
+        stdcall libini._.preload_block, ebx
+        add     esi, eax
+        mov     [ebx + IniFile.cnt], 0
+        pop     ecx ebx eax
+        ret
 endp

 ;;================================================================================================;;
@@ -187,25 +191,25 @@ proc libini._.preload_block _f ;////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	eax ebx ecx
-	mov	ebx, [_f]
-    @@: mov	esi, [ebx + IniFile.buf]
-	push	edi
-	mov	edi, esi
-	mov	ecx, ini.BLOCK_SIZE / 4
-	xor	eax, eax
-	rep	stosd
-	pop	edi
-	invoke	file.tell, [ebx + IniFile.fh]
-	mov	[ebx + IniFile.pos], eax
-	invoke	file.read, [ebx + IniFile.fh], esi, ini.BLOCK_SIZE
-	mov	esi,[ebx + IniFile.buf]
-	cmp	eax,ini.BLOCK_SIZE
-	jl	@f
-    @@: mov	[ebx + IniFile.cnt], eax
-	mov	[ebx + IniFile.bsize], eax
-	pop	ecx ebx eax
-	ret
+        push    eax ebx ecx
+        mov     ebx, [_f]
+    @@: mov     esi, [ebx + IniFile.buf]
+        push    edi
+        mov     edi, esi
+        mov     ecx, ini.BLOCK_SIZE / 4
+        xor     eax, eax
+        rep     stosd
+        pop     edi
+        invoke  file.tell, [ebx + IniFile.fh]
+        mov     [ebx + IniFile.pos], eax
+        invoke  file.read, [ebx + IniFile.fh], esi, ini.BLOCK_SIZE
+        mov     esi,[ebx + IniFile.buf]
+        cmp     eax,ini.BLOCK_SIZE
+        jl      @f
+    @@: mov     [ebx + IniFile.cnt], eax
+        mov     [ebx + IniFile.bsize], eax
+        pop     ecx ebx eax
+        ret
 endp

 ;;================================================================================================;;
@@ -217,18 +221,18 @@ proc libini._.reload_block _f ;/////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	eax ebx ecx
-	mov	ebx, [_f]
-	push	[ebx + IniFile.bsize]
-	push	esi [ebx + IniFile.cnt]
-	invoke	file.seek, [ebx + IniFile.fh], [ebx + IniFile.pos], SEEK_SET
-	stdcall libini._.preload_block, ebx
-	pop	[ebx + IniFile.cnt] esi
-	pop	eax
-	sub	eax,[ebx + IniFile.bsize]
-	sub	[ebx + IniFile.cnt], eax
-	pop	ecx ebx eax
-	ret
+        push    eax ebx ecx
+        mov     ebx, [_f]
+        push    [ebx + IniFile.bsize]
+        push    esi [ebx + IniFile.cnt]
+        invoke  file.seek, [ebx + IniFile.fh], [ebx + IniFile.pos], SEEK_SET
+        stdcall libini._.preload_block, ebx
+        pop     [ebx + IniFile.cnt] esi
+        pop     eax
+        sub     eax,[ebx + IniFile.bsize]
+        sub     [ebx + IniFile.cnt], eax
+        pop     ecx ebx eax
+        ret
 endp

 ; f_info - contains current file block number
@@ -249,91 +253,91 @@ locals
  buf dd ?
 endl

-	xor	eax, eax
-	cmp	[_delta], 0
-	je	.skip
+        xor     eax, eax
+        cmp     [_delta], 0
+        je      .skip

-	push	ebx ecx
-	invoke	mem.alloc, ini.BLOCK_SIZE
-	or	eax, eax
-	jz	.fail
-	mov	[buf], eax
+        push    ebx ecx
+        invoke  mem.alloc, ini.BLOCK_SIZE
+        or      eax, eax
+        jz      .fail
+        mov     [buf], eax

-	cmp	[_delta], 0
-	jl	.down
+        cmp     [_delta], 0
+        jl      .down

-	mov	ebx, [_f]
-	mov	ecx, [ebx + IniFile.cnt]
-	mov	ebx, [ebx + IniFile.fh]
-	invoke	file.tell, ebx
-	sub	eax, ecx
-	invoke	file.seek, ebx, eax, SEEK_SET
-    @@: invoke	file.seek, ebx, [_delta], SEEK_CUR
-	invoke	file.eof?, ebx
-	or	eax, eax
-	jnz	.done
-	invoke	file.read, ebx, [buf], ini.BLOCK_SIZE
-	mov	ecx, eax
-	mov	eax, [_delta]
-	neg	eax
-	sub	eax, ecx
-	invoke	file.seek, ebx, eax, SEEK_CUR
-	push	ecx
-	invoke	file.write, ebx, [buf], ecx
-	pop	ecx
-	cmp	eax, ecx
-	jz	@b
+        mov     ebx, [_f]
+        mov     ecx, [ebx + IniFile.cnt]
+        mov     ebx, [ebx + IniFile.fh]
+        invoke  file.tell, ebx
+        sub     eax, ecx
+        invoke  file.seek, ebx, eax, SEEK_SET
+    @@: invoke  file.seek, ebx, [_delta], SEEK_CUR
+        invoke  file.eof?, ebx
+        or      eax, eax
+        jnz     .done
+        invoke  file.read, ebx, [buf], ini.BLOCK_SIZE
+        mov     ecx, eax
+        mov     eax, [_delta]
+        neg     eax
+        sub     eax, ecx
+        invoke  file.seek, ebx, eax, SEEK_CUR
+        push    ecx
+        invoke  file.write, ebx, [buf], ecx
+        pop     ecx
+        cmp     eax, ecx
+        jz      @b
  .fail:
-	or	eax, -1
-	pop	ecx ebx
-	ret
+        or      eax, -1
+        pop     ecx ebx
+        ret
  .done:
-	mov	eax, [_delta]
-	neg	eax
-	invoke	file.seek, ebx, eax, SEEK_CUR
-	invoke	file.seteof, ebx
-	stdcall libini._.reload_block, [_f]
-	invoke	mem.free, [buf]
-	pop	ecx ebx
+        mov     eax, [_delta]
+        neg     eax
+        invoke  file.seek, ebx, eax, SEEK_CUR
+        invoke  file.seteof, ebx
+        stdcall libini._.reload_block, [_f]
+        invoke  mem.free, [buf]
+        pop     ecx ebx
  .skip:
-	ret
+        ret

  .down:
-	neg	[_delta]
+        neg     [_delta]

-	mov	ebx, [_f]
-	mov	ecx, [ebx + IniFile.cnt]
-	mov	ebx, [ebx + IniFile.fh]
-	invoke	file.tell, ebx
-	sub	eax, ecx
-	lea	edx, [eax - 1]
-	push	edx
-    @@: invoke	file.seek, ebx, edx, SEEK_SET
-	invoke	file.eof?, ebx
-	or	eax, eax
-	jnz	@f
-	add	edx, ini.BLOCK_SIZE
-	jmp	@b
-    @@: cmp	edx, [esp]
-	je	.skip.2
-	add	edx, -ini.BLOCK_SIZE
-	cmp	edx, [esp]
-	jl	@f
-	invoke	file.seek, ebx, edx, SEEK_SET
-	invoke	file.read, ebx, [buf], ini.BLOCK_SIZE
-	mov	ecx, eax
-	mov	eax, [_delta]
-	sub	eax, ecx
-	invoke	file.seek, ebx, eax, SEEK_CUR
-	invoke	file.write, ebx, [buf], ecx
-	jmp	@b
+        mov     ebx, [_f]
+        mov     ecx, [ebx + IniFile.cnt]
+        mov     ebx, [ebx + IniFile.fh]
+        invoke  file.tell, ebx
+        sub     eax, ecx
+        lea     edx, [eax - 1]
+        push    edx
+    @@: invoke  file.seek, ebx, edx, SEEK_SET
+        invoke  file.eof?, ebx
+        or      eax, eax
+        jnz     @f
+        add     edx, ini.BLOCK_SIZE
+        jmp     @b
+    @@: cmp     edx, [esp]
+        je      .skip.2
+        add     edx, -ini.BLOCK_SIZE
+        cmp     edx, [esp]
+        jl      @f
+        invoke  file.seek, ebx, edx, SEEK_SET
+        invoke  file.read, ebx, [buf], ini.BLOCK_SIZE
+        mov     ecx, eax
+        mov     eax, [_delta]
+        sub     eax, ecx
+        invoke  file.seek, ebx, eax, SEEK_CUR
+        invoke  file.write, ebx, [buf], ecx
+        jmp     @b
    @@:
  .skip.2:
-	add	esp, 4
-	stdcall libini._.reload_block, [_f]
-	invoke	mem.free, [buf]
-	pop	ecx ebx
-	ret
+        add     esp, 4
+        stdcall libini._.reload_block, [_f]
+        invoke  mem.free, [buf]
+        pop     ecx ebx
+        ret
 endp

 ;;================================================================================================;;
@@ -345,25 +349,25 @@ proc libini._.get_value_length _f ;/////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	ebx ecx edx eax
-	mov	ebx, [_f]
-	invoke	file.tell, [ebx + IniFile.fh]
-	push	esi [ebx + IniFile.cnt] [ebx + IniFile.pos]
-	sub	eax, [ebx + IniFile.cnt]
-	mov	edx, eax
+        push    ebx ecx edx eax
+        mov     ebx, [_f]
+        invoke  file.tell, [ebx + IniFile.fh]
+        push    esi [ebx + IniFile.cnt] [ebx + IniFile.pos]
+        sub     eax, [ebx + IniFile.cnt]
+        mov     edx, eax

-	stdcall libini._.skip_line, [_f]
-	invoke	file.tell, [ebx + IniFile.fh]
-	sub	eax, [ebx + IniFile.cnt]
-	sub	eax, edx
-	mov	[esp + 4 * 3], eax
+        stdcall libini._.skip_line, [_f]
+        invoke  file.tell, [ebx + IniFile.fh]
+        sub     eax, [ebx + IniFile.cnt]
+        sub     eax, edx
+        mov     [esp + 4 * 3], eax

-	pop	eax
-	invoke	file.seek, [ebx + IniFile.fh], eax, SEEK_SET
-	stdcall libini._.preload_block, [_f]
-	pop	[ebx + IniFile.cnt] esi
-	pop	eax edx ecx ebx
-	ret
+        pop     eax
+        invoke  file.seek, [ebx + IniFile.fh], eax, SEEK_SET
+        stdcall libini._.preload_block, [_f]
+        pop     [ebx + IniFile.cnt] esi
+        pop     eax edx ecx ebx
+        ret
 endp

 ;;================================================================================================;;
@@ -376,10 +380,10 @@ proc libini._.string_copy ;/////////////////////////////////////////////////////
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
    @@: lodsb
-	or	al, al
-	jz	@f
-	stosb
-	jmp	@b
+        or      al, al
+        jz      @f
+        stosb
+        jmp     @b
    @@: ret
 endp

@@ -392,26 +396,26 @@ proc libini._.find_next_section _f ;////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	ebx edi
+        push    ebx edi

    @@: stdcall libini._.skip_nonblanks, [_f]
-	cmp	al, '['
-	je	@f
-	or	al, al
-	jz	.exit_error
-	stdcall libini._.skip_line, [_f]
-	or	al, al
-	jz	.exit_error
-	jmp	@b
+        cmp     al, '['
+        je      @f
+        or      al, al
+        jz      .exit_error
+        stdcall libini._.skip_line, [_f]
+        or      al, al
+        jz      .exit_error
+        jmp     @b
    @@:
-	pop	edi ebx
-	xor	eax, eax
-	ret
+        pop     edi ebx
+        xor     eax, eax
+        ret

  .exit_error:
-	pop	edi ebx
-	or	eax, -1
-	ret
+        pop     edi ebx
+        or      eax, -1
+        ret
 endp

 ;;================================================================================================;;
@@ -425,50 +429,50 @@ proc libini._.find_section _f, _sec_name ;//////////////////////////////////////
 ;< eax = -1 (fail) / 0 (ok)                                                                       ;;
 ;< [_f.pos] = new cursor position (right after ']' char if eax = 0, at the end of file otherwise) ;;
 ;;================================================================================================;;
-	push	ebx edi
+        push    ebx edi

-	mov	ecx, [_f]
-	invoke	file.seek, [ecx + IniFile.fh], 0, SEEK_SET
-	stdcall libini._.preload_block, [_f]
+        mov     ecx, [_f]
+        invoke  file.seek, [ecx + IniFile.fh], 0, SEEK_SET
+        stdcall libini._.preload_block, [_f]

  .next_section:
-	stdcall libini._.find_next_section, [_f]
-	or	eax, eax
-	jnz	.exit_error
+        stdcall libini._.find_next_section, [_f]
+        or      eax, eax
+        jnz     .exit_error

-	stdcall libini._.get_char, [_f]
-	stdcall libini._.skip_spaces, [_f]
-	mov	edi, [_sec_name]
+        stdcall libini._.get_char, [_f]
+        stdcall libini._.skip_spaces, [_f]
+        mov     edi, [_sec_name]
    @@: stdcall libini._.get_char, [_f]
-	cmp	al, ']'
-	je	@f
-	or	al, al
-	jz	.exit_error
-	cmp	al, 13
-	je	.next_section
-	cmp	al, 10
-	je	.next_section
-	scasb
-	je	@b
-	cmp	byte[edi - 1], 0
-	jne	.next_section
-	dec	edi
-	stdcall libini._.unget_char, [_f]
-	stdcall libini._.skip_spaces, [_f]
-	stdcall libini._.get_char, [_f]
-	cmp	al, ']'
-	jne	.next_section
+        cmp     al, ']'
+        je      @f
+        or      al, al
+        jz      .exit_error
+        cmp     al, 13
+        je      .next_section
+        cmp     al, 10
+        je      .next_section
+        scasb
+        je      @b
+        cmp     byte[edi - 1], 0
+        jne     .next_section
+        dec     edi
+        stdcall libini._.unget_char, [_f]
+        stdcall libini._.skip_spaces, [_f]
+        stdcall libini._.get_char, [_f]
+        cmp     al, ']'
+        jne     .next_section
    @@:
-	cmp	byte[edi], 0
-	jne	.next_section
-	pop	edi ebx
-	xor	eax, eax
-	ret
+        cmp     byte[edi], 0
+        jne     .next_section
+        pop     edi ebx
+        xor     eax, eax
+        ret

  .exit_error:
-	pop	edi ebx
-	or	eax, -1
-	ret
+        pop     edi ebx
+        or      eax, -1
+        ret
 endp

 ;;================================================================================================;;
@@ -483,44 +487,44 @@ proc libini._.find_key _f, _key_name ;//////////////////////////////////////////
 ;< [_f.pos] = new cursor position (right after '=' char if eax = 0, at the end of file or right   ;;
 ;<            before '[' char otherwise)                                                          ;;
 ;;================================================================================================;;
-	push	ebx edi
+        push    ebx edi

  .next_value:
-	mov	edi, [_key_name]
-	stdcall libini._.skip_line, [_f]
-	stdcall libini._.skip_nonblanks, [_f]
-	or	al, al
-	jz	.exit_error
-	cmp	al, '['
-	je	.exit_error
+        mov     edi, [_key_name]
+        stdcall libini._.skip_line, [_f]
+        stdcall libini._.skip_nonblanks, [_f]
+        or      al, al
+        jz      .exit_error
+        cmp     al, '['
+        je      .exit_error
    @@: stdcall libini._.get_char, [_f]
-	or	al, al
-	jz	.exit_error
-	cmp	al, '='
-	je	@f
-	scasb
-	je	@b
-	cmp	byte[edi - 1], 0
-	jne	.next_value
-	dec	edi
-	stdcall libini._.unget_char, [_f]
-	stdcall libini._.skip_spaces, [_f]
-	stdcall libini._.get_char, [_f]
-	cmp	al, '='
-	je	@f
-	jmp	.next_value
+        or      al, al
+        jz      .exit_error
+        cmp     al, '='
+        je      @f
+        scasb
+        je      @b
+        cmp     byte[edi - 1], 0
+        jne     .next_value
+        dec     edi
+        stdcall libini._.unget_char, [_f]
+        stdcall libini._.skip_spaces, [_f]
+        stdcall libini._.get_char, [_f]
+        cmp     al, '='
+        je      @f
+        jmp     .next_value
    @@:
-	cmp	byte[edi], 0
-	jne	.next_value
+        cmp     byte[edi], 0
+        jne     .next_value

-	pop	edi ebx
-	xor	eax, eax
-	ret
+        pop     edi ebx
+        xor     eax, eax
+        ret

  .exit_error:
-	pop	edi ebx
-	or	eax, -1
-	ret
+        pop     edi ebx
+        or      eax, -1
+        ret
 endp

 ;;================================================================================================;;
@@ -532,31 +536,31 @@ proc libini._.low.read_value _f_addr, _buffer, _buf_len ;///////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	edi eax
-	mov	edi, [_buffer]
-	stdcall libini._.skip_spaces, [_f_addr]
-    @@: dec	[_buf_len]
-	jz	@f
-	stdcall libini._.get_char, [_f_addr]
-	cmp	al, 13
-	je	@f
-	cmp	al, 10
-	je	@f
-	stosb
-	or	al, al
-	jnz	@b
+        push    edi eax
+        mov     edi, [_buffer]
+        stdcall libini._.skip_spaces, [_f_addr]
+    @@: dec     [_buf_len]
+        jz      @f
+        stdcall libini._.get_char, [_f_addr]
+        cmp     al, 13
+        je      @f
+        cmp     al, 10
+        je      @f
+        stosb
+        or      al, al
+        jnz     @b
    @@: stdcall libini._.unget_char, [_f_addr]
-	mov	byte[edi], 0
-	dec	edi
-    @@: cmp	edi, [_buffer]
-	jb	@f
-	cmp	byte[edi], 32
-	ja	@f
-	mov	byte[edi], 0
-	dec	edi
-	jmp	@b
-    @@: pop	eax edi
-	ret
+        mov     byte[edi], 0
+        dec     edi
+    @@: cmp     edi, [_buffer]
+        jb      @f
+        cmp     byte[edi], 32
+        ja      @f
+        mov     byte[edi], 0
+        dec     edi
+        jmp     @b
+    @@: pop     eax edi
+        ret
 endp

 ;;================================================================================================;;
@@ -568,25 +572,25 @@ proc libini._.str_to_int ;//////////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< eax = binary number representation (no overflow checks made)                                   ;;
 ;;================================================================================================;;
-	push	edx
+        push    edx

-	xor	eax, eax
-	xor	edx, edx
+        xor     eax, eax
+        xor     edx, edx

    @@: lodsb
-	cmp	al, '0'
-	jb	@f
-	cmp	al, '9'
-	ja	@f
-	add	eax, -'0'
-	imul	edx, 10
-	add	edx, eax
-	jmp	@b
+        cmp     al, '0'
+        jb      @f
+        cmp     al, '9'
+        ja      @f
+        add     eax, -'0'
+        imul    edx, 10
+        add     edx, eax
+        jmp     @b

-    @@: dec	esi
-	mov	eax, edx
-	pop	edx
-	ret
+    @@: dec     esi
+        mov     eax, edx
+        pop     edx
+        ret
 endp

 ;;================================================================================================;;
@@ -600,29 +604,29 @@ proc libini._.int_to_str ;//////////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	ecx edx
+        push    ecx edx

-	or	eax, eax
-	jns	@f
-	mov	byte[edi], '-'
-	inc	edi
-    @@: call	.recurse
-	pop	edx ecx
-	ret
+        or      eax, eax
+        jns     @f
+        mov     byte[edi], '-'
+        inc     edi
+    @@: call    .recurse
+        pop     edx ecx
+        ret

  .recurse:
-	cmp	eax,ecx
-	jb	@f
-	xor	edx,edx
-	div	ecx
-	push	edx
-	call	.recurse
-	pop	eax
-    @@: cmp	al,10
-	sbb	al,0x69
-	das
-	stosb
-	retn
+        cmp     eax,ecx
+        jb      @f
+        xor     edx,edx
+        div     ecx
+        push    edx
+        call    .recurse
+        pop     eax
+    @@: cmp     al,10
+        sbb     al,0x69
+        das
+        stosb
+        retn
 endp

 ;;================================================================================================;;
@@ -635,50 +639,50 @@ proc libini._.ascii_to_scan ;_ascii_code ;//////////////////////////////////////
 ;< eax = 0 (error) / scancode (success)                                                           ;;
 ;;================================================================================================;;
 ; /sys/keymap.key
-	sub	esp, 256
-	mov	eax, esp
-	push	ebx
-	push	'key'
-	push	'map.'
-	push	'/key'
-	push	'/sys'
-	push	eax	; buffer in the stack
-	push	0x100	; read 0x100 bytes
-	push	0
-	push	0	; from position zero
-	push	0	; subfunction: read
-	mov	ebx, esp
-	push	70
-	pop	eax
-	mcall
-	add	esp, 36
-	pop	ebx
-	test	eax, eax
-	jnz	.die
-	mov	al, [esp+256+4]	; get ASCII code
-	push	edi
+        sub     esp, 256
+        mov     eax, esp
+        push    ebx
+        push    'key'
+        push    'map.'
+        push    '/key'
+        push    '/sys'
+        push    eax     ; buffer in the stack
+        push    0x100   ; read 0x100 bytes
+        push    0
+        push    0       ; from position zero
+        push    0       ; subfunction: read
+        mov     ebx, esp
+        push    70
+        pop     eax
+        mcall
+        add     esp, 36
+        pop     ebx
+        test    eax, eax
+        jnz     .die
+        mov     al, [esp+256+4] ; get ASCII code
+        push    edi
 ; first keytable - no modifiers pressed
 ; check scancodes from 1 to 36h (inclusive)
-	lea	edi, [esp+4+1]
-	mov	edx, edi
-	mov	ecx, 36h
-	repnz	scasb
-	jz	.found
+        lea     edi, [esp+4+1]
+        mov     edx, edi
+        mov     ecx, 36h
+        repnz   scasb
+        jz      .found
 ; second keytable - Shift pressed
-	lea	edi, [esp+4+128+1]
-	mov	edx, edi
-	mov	ecx, 36h
-	repnz	scasb
-	jz	.found
-	pop	edi
+        lea     edi, [esp+4+128+1]
+        mov     edx, edi
+        mov     ecx, 36h
+        repnz   scasb
+        jz      .found
+        pop     edi
 .die:
-	xor	eax, eax
-	jmp	.ret
+        xor     eax, eax
+        jmp     .ret
 .found:
-	mov	eax, edi
-	sub	eax, edx
-	pop	edi
+        mov     eax, edi
+        sub     eax, edx
+        pop     edi
 .ret:
-	add	esp, 256
-	ret	4
+        add     esp, 256
+        ret     4
 endp
--- a/programs/develop/libraries/proc_lib/trunk/proc_lib.asm
+++ b/programs/develop/libraries/proc_lib/trunk/proc_lib.asm
@@ -33,38 +33,39 @@ use_ColorDialog
 ;--------------------------------------------------
 align 16
 lib_init:
-ret
+        xor     eax, eax
+        ret

 ;--------------------------------------------------
 align 16
 EXPORTS:


-dd	sz_init,			lib_init
-dd	sz_version,			0x00000001
+dd      sz_init,                        lib_init
+dd      sz_version,                     0x00000001

-dd	sz_OpenDialog_init,	OpenDialog.init
-dd	sz_OpenDialog_start,	OpenDialog.start
-dd	sz_OpenDialog_set_file_name,	OpenDialog.set_file_name
-dd	sz_OpenDialog_set_file_ext,	OpenDialog.set_file_ext
-dd	szVersion_OpenDialog,	0x00010001
+dd      sz_OpenDialog_init,     OpenDialog.init
+dd      sz_OpenDialog_start,    OpenDialog.start
+dd      sz_OpenDialog_set_file_name,    OpenDialog.set_file_name
+dd      sz_OpenDialog_set_file_ext,     OpenDialog.set_file_ext
+dd      szVersion_OpenDialog,   0x00010001

-dd	sz_ColorDialog_init,	ColorDialog.init
-dd	sz_ColorDialog_start,	ColorDialog.start
-dd	szVersion_ColorDialog,	0x00010001
+dd      sz_ColorDialog_init,    ColorDialog.init
+dd      sz_ColorDialog_start,   ColorDialog.start
+dd      szVersion_ColorDialog,  0x00010001

-dd	0,0
+dd      0,0
 ;-----------------------------------------------------------------------------
-sz_init 			db 'lib_init',0
-sz_version			db 'version',0
+sz_init                         db 'lib_init',0
+sz_version                      db 'version',0

-sz_OpenDialog_init 		db 'OpenDialog_init',0
-sz_OpenDialog_start		db 'OpenDialog_start',0
-sz_OpenDialog_set_file_name	db 'OpenDialog_set_file_name',0
-sz_OpenDialog_set_file_ext	db 'OpenDialog_set_file_ext',0
-szVersion_OpenDialog		db 'Version_OpenDialog',0
+sz_OpenDialog_init              db 'OpenDialog_init',0
+sz_OpenDialog_start             db 'OpenDialog_start',0
+sz_OpenDialog_set_file_name     db 'OpenDialog_set_file_name',0
+sz_OpenDialog_set_file_ext      db 'OpenDialog_set_file_ext',0
+szVersion_OpenDialog            db 'Version_OpenDialog',0

-sz_ColorDialog_init 		db 'ColorDialog_init',0
-sz_ColorDialog_start		db 'ColorDialog_start',0
-szVersion_ColorDialog		db 'Version_ColorDialog',0
+sz_ColorDialog_init             db 'ColorDialog_init',0
+sz_ColorDialog_start            db 'ColorDialog_start',0
+szVersion_ColorDialog           db 'Version_ColorDialog',0
 ;-----------------------------------------------------------------------------
--- a/programs/develop/mtdbg/gui.inc
+++ b/programs/develop/mtdbg/gui.inc
@@ -122,7 +122,13 @@ struc fpcvt
  .sizeof:
 }

+;-----------------------------------------------------------------------------
+;                         Command flags

+CMD_WITHOUT_PARAM       = 1b    ; command may be called without parameters
+CMD_WITH_PARAM          = 10b   ; command may be called with parameters
+CMD_WITHOUT_LOADED_APP  = 100b  ; command may be called without loaded program
+CMD_WITH_LOADED_APP     = 1000b ; command may be called with loaded program

 ;-----------------------------------------------------------------------------
 ;                          Entry point
@@ -449,63 +455,56 @@ z1:
        mov     esi, commands
        call    find_cmd
        mov     eax, aUnknownCommand
-        jc      .x11
-
-        ; check command requirements
-        ; flags field:
-        ; &1: command may be called without parameters
-        ; &2: command may be called with parameters
-        ; &4: command may be called without loaded program
-        ; &8: command may be called with loaded program
+        jc      .cmd_procg
        mov     eax, [esi+8]
        mov     ecx, [curarg]
        cmp     byte [ecx], 0
        jz      .noargs
-        test    byte [esi+16], 2
-        jz      .x11
+        test    byte [esi+16], CMD_WITH_PARAM
+        jz      .cmd_procg
        jmp     @f

    .noargs:
-        test    byte [esi+16], 1
-        jz      .x11
+        test    byte [esi+16], CMD_WITHOUT_PARAM
+        jz      .cmd_procg

    @@:
        cmp     [debuggee_pid], 0
        jz      .nodebuggee
        mov     eax, aAlreadyLoaded
-        test    byte [esi+16], 8
-        jz      .x11
-        jmp     .x9
+        test    byte [esi+16], CMD_WITH_LOADED_APP
+        jz      .cmd_procg
+        jmp     .run_cmd

    .nodebuggee:
        mov     eax, need_debuggee
-        test    byte [esi+16], 4
-        jnz     .x9
+        test    byte [esi+16], CMD_WITHOUT_LOADED_APP
+        jnz     .run_cmd

-    .x11:
+    .cmd_procg:
        xchg    esi, eax
        call    put_message

        ; store cmdline for repeating
-    .x10:
+    .cmd_procg_no_put_msg:
        mov     esi, cmdline
        mov     ecx, [cmdline_len]

    @@:
        cmp     ecx, 0
-        jle     .we
+        jle     .wait_event
        mov     al, [esi + ecx]
        mov     [cmdline_prev + ecx], al
        dec     ecx
        jmp     @b

-    .we:
+    .wait_event:
        mov     [cmdline_len], 0
        jmp     waitevent

-    .x9:
+    .run_cmd:
        call    dword [esi+4]
-        jmp     .x10
+        jmp     .cmd_procg_no_put_msg

 ;-----------------------------------------------------------------------------
 ;                            Cmdline handling
--- a/programs/develop/mtdbg/mtdbg.asm
+++ b/programs/develop/mtdbg/mtdbg.asm
@@ -2,7 +2,10 @@
 COLOR_THEME fix MOVIEOS

 format binary as ""
+
 include '../../macros.inc'
+include '../../KOSfuncs.inc'
+
 use32
        db      'MENUET01'
        dd      1
@@ -1145,6 +1148,105 @@ OnDump:
    .ret:
        ret

+;-----------------------------------------------------------------------------
+;                            Print Backtrace
+
+struct STACK_FRAME
+        prev_frame      rd 1
+        ret_addr        rd 1
+ends
+
+OnBacktrace:
+        push    ebp
+
+        ; Set max depth counter
+        xor     eax, eax
+        dec     eax
+
+        mov     esi, [curarg]
+        cmp     byte [esi], 0
+        jz      .save_depth
+
+        call    get_hex_number
+        mov     esi, aParseError
+        jc      .exit
+
+        ; If depth 0
+        test    eax, eax
+        jz      .done
+
+    .save_depth:
+        mov     [bt_depth], eax
+
+        ; Get start frame addres
+        mov     ebp, [_ebp]
+        test    ebp, ebp
+        jz      .done
+
+        mov     edi, stack_frame_dump
+
+    .next:
+        mcall   SF_DEBUG, SSF_READ_MEMORY, [debuggee_pid], sizeof.STACK_FRAME, ebp
+        cmp     eax, -1
+        mov     esi, read_mem_err
+        jz      .exit
+
+        ; The address of the previous frame must be less than the current one
+        mov     eax, [edi + STACK_FRAME.prev_frame]
+        test    eax, eax
+        jz      .done
+
+        ; Save stack_frame_dump
+        push    edi
+        ; Save previous frame
+        push    ebp
+        ; Save return address
+        mov     eax, [edi + STACK_FRAME.ret_addr]
+        push    eax
+
+        ; Print frame address and return address
+        push    eax         ; pop in put_message_nodraw
+        push    ebp         ; pop in put_message_nodraw
+        mov     esi, aBacktraceFmt
+        call    put_message_nodraw
+
+        ; Restore return address
+        pop     eax
+
+        ; Find symbol by return address
+        call    find_near_symbol
+        test    esi, esi
+        jnz     .print_sym
+
+        mov     esi, aBacktraceSymStub
+
+    .print_sym:
+        call    put_message_nodraw
+        mov     esi, newline
+        call    put_message_nodraw
+
+        ; Restore previous frame
+        pop     ebp
+        ; Restore stack_frame_dump
+        pop     edi
+
+        ; The address of the previous frame must be greater than the current one.
+        cmp     [edi + STACK_FRAME.prev_frame], ebp
+        jna     .done
+
+        ; Set previous frame
+        mov     ebp,  [edi + STACK_FRAME.prev_frame]
+        dec     [bt_depth]
+        jnz     .next
+
+    .done:
+        mov     esi, newline
+
+    .exit:
+        call    put_message
+        pop     ebp
+        ret
+
 ;-----------------------------------------------------------------------------
 ;                   Dissassemble block of executable event

@@ -1864,7 +1966,7 @@ include 'disasm.inc'

 caption_str db  'Kolibri Debugger',0

-begin_str db    'Kolibri Debugger, version 0.35',10
+begin_str db    'Kolibri Debugger, version 0.36',10
        db      'Hint: type "help" for help, "quit" to quit'
 newline db      10,0
 prompt  db      '> ',0
@@ -1880,66 +1982,88 @@ help_groups:
 ;-----------------------------------------------------------------------------
 ;                   Commands format definitions

-; TODO: make it with macros
-
-; flags field:
-; &1: command may be called without parameters
-; &2: command may be called with parameters
-; &4: command may be called without loaded program
-; &8: command may be called with loaded program
 commands:
        dd      _aH, OnHelp, HelpSyntax, HelpHelp
-        db      0Fh
+        db      CMD_WITHOUT_PARAM or CMD_WITH_PARAM or CMD_WITHOUT_LOADED_APP or CMD_WITH_LOADED_APP
+
        dd      aHelp, OnHelp, HelpSyntax, HelpHelp
-        db      0Fh
+        db      CMD_WITHOUT_PARAM or CMD_WITH_PARAM or CMD_WITHOUT_LOADED_APP or CMD_WITH_LOADED_APP
+
        dd      aQuit, OnQuit, QuitSyntax, QuitHelp
-        db      0Dh
+        db      CMD_WITHOUT_PARAM or CMD_WITHOUT_LOADED_APP or CMD_WITH_LOADED_APP
+
        dd      aLoad, OnLoad, LoadSyntax, LoadHelp
-        db      6
+        db      CMD_WITH_PARAM or CMD_WITHOUT_LOADED_APP
+    
        dd      aReload, OnReload, ReloadSyntax, ReloadHelp
-        db      0Dh
+        db      CMD_WITHOUT_PARAM or CMD_WITHOUT_LOADED_APP or CMD_WITH_LOADED_APP
+
        dd      aTerminate, OnTerminate, TerminateSyntax, TerminateHelp
-        db      9
+        db      CMD_WITHOUT_PARAM or CMD_WITH_LOADED_APP
+
        dd      aDetach, OnDetach, DetachSyntax, DetachHelp
-        db      9
+        db      CMD_WITHOUT_PARAM or CMD_WITH_LOADED_APP
+
        dd      aSuspend, OnSuspend, SuspendSyntax, SuspendHelp
-        db      9
+        db      CMD_WITHOUT_PARAM or CMD_WITH_LOADED_APP
+
        dd      aResume, OnResume, ResumeSyntax, ResumeHelp
-        db      0Bh
+        db      CMD_WITHOUT_PARAM or CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aStep, OnStepMultiple, StepSyntax, StepHelp
-        db      0Bh
+        db      CMD_WITHOUT_PARAM or CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+    
        dd      aProceed, OnProceedMultiple, ProceedSyntax, ProceedHelp
-        db      0Bh
+        db      CMD_WITHOUT_PARAM or CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aCalc, OnCalc, CalcSyntax, CalcHelp
-        db      0Eh
+        db      CMD_WITH_PARAM or CMD_WITHOUT_LOADED_APP or CMD_WITH_LOADED_APP
+
        dd      aDump, OnDump, DumpSyntax, DumpHelp
-        db      0Bh
+        db      CMD_WITHOUT_PARAM or CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
+        dd      aBacktrace, OnBacktrace, BacktraceSyntax, BacktraceHelp
+        db      CMD_WITHOUT_PARAM or CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aUnassemble, OnUnassemble, UnassembleSyntax, UnassembleHelp
-        db      0Bh
+        db      CMD_WITHOUT_PARAM or CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aBp, OnBp, BpSyntax, BpHelp
-        db      0Ah
+        db      CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aBpm, OnBpmb, BpmSyntax, BpmHelp
-        db      0Ah
+        db      CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aBpmb, OnBpmb, BpmSyntax, BpmHelp
-        db      0Ah
+        db      CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aBpmw, OnBpmw, BpmSyntax, BpmHelp
-        db      0Ah
+        db      CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aBpmd, OnBpmd, BpmSyntax, BpmHelp
-        db      0Ah
+        db      CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aBl, OnBl, BlSyntax, BlHelp
-        db      0Bh
+        db      CMD_WITHOUT_PARAM or CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aBc, OnBc, BcSyntax, BcHelp
-        db      0Ah
+        db      CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aBd, OnBd, BdSyntax, BdHelp
-        db      0Ah
+        db      CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aBe, OnBe, BeSyntax, BeHelp
-        db      0Ah
+        db      CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aReg, OnReg, RSyntax, RHelp
-        db      0Ah
+        db      CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      aUnpack, OnUnpack, UnpackSyntax, UnpackHelp
-        db      9
+        db      CMD_WITHOUT_PARAM or CMD_WITH_LOADED_APP
+
        dd      aLoadSymbols, OnLoadSymbols, LoadSymbolsSyntax, LoadSymbolsHelp
-        db      0Ah
+        db      CMD_WITH_PARAM or CMD_WITH_LOADED_APP
+
        dd      0

 ;-----------------------------------------------------------------------------
@@ -1980,7 +2104,8 @@ help_data_msg db        'List of data commands:',10
        db      'd [<expression>]     - dump data at given address',10
        db      'u [<expression>]     - unassemble instructions at given address',10
        db      'r <register> <expression> or',10
-        db      'r <register>=<expression> - set register value',10,0
+        db      'r <register>=<expression> - set register value',10
+        db      'bt [<number>]        - display backtrace / stacktrace',10,0

 ;               Breakpoints commands group

@@ -2038,6 +2163,11 @@ DumpHelp db     'Dump data of debugged program',10
 DumpSyntax db   'Usage: d <expression> - dump data at specified address',10
        db      '   or: d              - continue current dump',10,0

+aBacktrace      db  3,'bt',0
+BacktraceHelp   db 'Display backtrace / stacktrace',10
+BacktraceSyntax db 'Usage: bt <number> - display backtrace with depth',10
+                db '   or: bt            display all backtrace',10,0
+
 aCalc   db      2,'?',0
 CalcHelp db     'Calculate value of expression',10
 CalcSyntax db   'Usage: ? <expression>',10,0
@@ -2102,6 +2232,11 @@ LoadSymbolsSyntax db 'Usage: load-symbols <symbols-file-name>',10,0

 aUnknownCommand db 'Unknown command',10,0

+;-----------------------------------------------------------------------------
+;                             Info messages
+aBacktraceSymStub  db '??',0
+aBacktraceFmt      db '[0x%8X] 0x%8X in ',0
+
 ;-----------------------------------------------------------------------------
 ;                             Error messages

@@ -2474,11 +2609,13 @@ disasm_cur_pos          dd ?
 disasm_cur_str          dd ?
 disasm_string           rb 256

-thread_info             process_information
+stack_frame_dump        rb sizeof.STACK_FRAME
+bt_depth                rd 1

 ;-----------------------------------------------------------------------------
 ;                  Coordinates and sizes for GUI

+thread_info             process_information
 data_x_size_dd          dd ?, ?
 messages_x_size_dd      dd ?, ?
 registers_x_pos_dd      dd ?, ?
--- a/programs/develop/mtdbg/symbols.inc
+++ b/programs/develop/mtdbg/symbols.inc
@@ -4,6 +4,11 @@

 include 'sort.inc'

+struct DEBUG_SYMBOL
+        addr    rd 1
+        string  rd 0
+ends
+
 ; compare proc for sorter
 compare:
        cmpsd
@@ -459,4 +464,69 @@ find_symbol_name:

  @@:
        pop     esi
-        ret
+        ret
+
+;-----------------------------------------------------------------------------
+;   
+; Find the nearest symol using binary search
+;
+; in:  eax - target addres
+; out: esi - symbol name
+; destroys: ebx, ecx, edx, edi, ebp
+;
+find_near_symbol:
+        mov     edi, [symbols] 
+        
+        xor     esi, esi            ; Result
+        mov     ecx, esi            ; Left
+        mov     edx, [num_symbols]  ; Right
+        dec     edx
+        js      .end       
+
+        ; If the first address is already greater than the target
+        mov     ebp, [edi + ecx * sizeof.DEBUG_SYMBOL]
+        cmp     [ebp + DEBUG_SYMBOL.addr], eax
+        ja      .end
+
+        ; If the last address is less than or equal to the target
+        mov     ebp, [edi + edx * sizeof.DEBUG_SYMBOL]
+        cmp     [ebp + DEBUG_SYMBOL.addr], eax
+        jbe     .found
+
+    .loop:
+        cmp     ecx, edx
+        ja      .end
+
+        ; Calc middle:
+        mov     ebx, edx            ; Middle
+        sub     ebx, ecx            ; (right - left)
+        shr     ebx, 1              ;  / 2
+        add     ebx, ecx            ; + left
+
+        ; Equal
+        mov     ebp, [edi + ebx * sizeof.DEBUG_SYMBOL]
+        cmp     [ebp + DEBUG_SYMBOL.addr], eax
+        jz      .found
+        jb      .update_left
+
+        ; Update right
+        mov     edx, ebx
+        dec     edx
+        jmp     .loop
+
+    .update_left:
+        ; Save potential result
+        mov     esi, ebp
+        add     esi, DEBUG_SYMBOL.string
+
+        ; Update left
+        mov     ecx, ebx
+        inc     ecx
+        jmp     .loop
+
+    .found:
+        mov     esi, ebp
+        add     esi, DEBUG_SYMBOL.string
+
+    .end:
+        ret
--- a/programs/develop/oberon07
+++ b/programs/develop/oberon07
--- a/programs/develop/oberon07/Compiler.kex
+++ b/programs/develop/oberon07/Compiler.kex
--- a/programs/develop/oberon07/LICENSE
+++ b/programs/develop/oberon07/LICENSE
@@ -1,25 +0,0 @@
-BSD 2-Clause License
-
-Copyright (c) 2018-2023, Anton Krotov
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are met:
-
-* Redistributions of source code must retain the above copyright notice, this
-  list of conditions and the following disclaimer.
-
-* Redistributions in binary form must reproduce the above copyright notice,
-  this list of conditions and the following disclaimer in the documentation
-  and/or other materials provided with the distribution.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
-FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
-OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
--- a/programs/develop/oberon07/doc/CC.txt
+++ b/programs/develop/oberon07/doc/CC.txt
@@ -1,61 +0,0 @@
-Условная компиляция
-
-синтаксис:
-
-    $IF "(" ident {"|" ident} ")"
-        <...>
-    {$ELSIF "(" ident {"|" ident} ")"}
-        <...>
-    [$ELSE]
-        <...>
-    $END
-
-    где ident:
-    - одно из возможных значений параметра <target> в командной строке
-    - пользовательский идентификатор, переданный с ключом -def при компиляции
-    - один из возможных предопределенных идентификаторов:
-
-        WINDOWS   - приложение Windows
-        LINUX     - приложение Linux
-        KOLIBRIOS - приложение KolibriOS
-        CPU_X86   - приложение для процессора x86 (32-бит)
-        CPU_X8664 - приложение для процессора x86_64
-
-
-примеры:
-
-    $IF (win64con | win64gui | win64dll)
-        OS := "WIN64";
-    $ELSIF (win32con | win32gui | win32dll)
-        OS := "WIN32";
-    $ELSIF (linux64exe | linux64so)
-        OS := "LINUX64";
-    $ELSIF (linux32exe | linux32so)
-        OS := "LINUX32";
-    $ELSE
-        OS := "UNKNOWN";
-    $END
-
-
-    $IF (debug) (* -def debug *)
-        print("debug");
-    $END
-
-
-    $IF (WINDOWS)
-        $IF (CPU_X86)
-        (*windows 32*)
-
-        $ELSIF (CPU_X8664)
-        (*windows 64*)
-
-        $END
-    $ELSIF (LINUX)
-        $IF (CPU_X86)
-        (*linux 32*)
-
-        $ELSIF (CPU_X8664)
-        (*linux 64*)
-
-        $END
-    $END
--- a/programs/develop/oberon07/doc/KOSLib.txt
+++ b/programs/develop/oberon07/doc/KOSLib.txt
@@ -1,566 +0,0 @@
-==============================================================================
-
-        Библиотека (KolibriOS)
-
------------------------------------------------------------------------------
-MODULE Out - консольный вывод
-
-        PROCEDURE Open
-                формально открывает консольный вывод
-
-        PROCEDURE Int(x, width: INTEGER)
-                вывод целого числа x;
-                width - количество знакомест, используемых для вывода
-
-        PROCEDURE Real(x: REAL; width: INTEGER)
-                вывод вещественного числа x в плавающем формате;
-                width - количество знакомест, используемых для вывода
-
-        PROCEDURE Char(x: CHAR)
-                вывод символа x
-
-        PROCEDURE FixReal(x: REAL; width, p: INTEGER)
-                вывод вещественного числа x в фиксированном формате;
-                width - количество знакомест, используемых для вывода;
-                p - количество знаков после десятичной точки
-
-        PROCEDURE Ln
-                переход на следующую строку
-
-        PROCEDURE String(s: ARRAY OF CHAR)
-                вывод строки s
-
------------------------------------------------------------------------------
-MODULE In - консольный ввод
-
-        VAR Done: BOOLEAN
-                принимает значение TRUE в случае успешного выполнения
-                операции ввода, иначе FALSE
-
-        PROCEDURE Open
-                формально открывает консольный ввод,
-                также присваивает переменной Done значение TRUE
-
-        PROCEDURE Int(VAR x: INTEGER)
-                ввод числа типа INTEGER
-
-        PROCEDURE Char(VAR x: CHAR)
-                ввод символа
-
-        PROCEDURE Real(VAR x: REAL)
-                ввод числа типа REAL
-
-        PROCEDURE String(VAR s: ARRAY OF CHAR)
-                ввод строки
-
-        PROCEDURE Ln
-                ожидание нажатия ENTER
-
------------------------------------------------------------------------------
-MODULE Console - дополнительные процедуры консольного вывода
-
-        CONST
-
-        Следующие константы определяют цвет консольного вывода
-
-                Black = 0      Blue = 1           Green = 2
-                Cyan = 3       Red = 4            Magenta = 5
-                Brown = 6      LightGray = 7      DarkGray = 8
-                LightBlue = 9  LightGreen = 10    LightCyan = 11
-                LightRed = 12  LightMagenta = 13  Yellow = 14
-                White = 15
-
-        PROCEDURE Cls
-                очистка окна консоли
-
-        PROCEDURE SetColor(FColor, BColor: INTEGER)
-                установка цвета консольного вывода: FColor - цвет текста,
-                BColor - цвет фона, возможные значения - вышеперечисленные
-                константы
-
-        PROCEDURE SetCursor(x, y: INTEGER)
-                установка курсора консоли в позицию (x, y)
-
-        PROCEDURE GetCursor(VAR x, y: INTEGER)
-                записывает в параметры текущие координаты курсора консоли
-
-        PROCEDURE GetCursorX(): INTEGER
-                возвращает текущую x-координату курсора консоли
-
-        PROCEDURE GetCursorY(): INTEGER
-                возвращает текущую y-координату курсора консоли
-
------------------------------------------------------------------------------
-MODULE ConsoleLib - обертка библиотеки console.obj
-
------------------------------------------------------------------------------
-MODULE Math - математические функции
-
-        CONST
-
-                pi = 3.141592653589793E+00
-                e  = 2.718281828459045E+00
-
-
-        PROCEDURE IsNan(x: REAL): BOOLEAN
-                возвращает TRUE, если x - не число
-
-        PROCEDURE IsInf(x: REAL): BOOLEAN
-                возвращает TRUE, если x - бесконечность
-
-        PROCEDURE sqrt(x: REAL): REAL
-                квадратный корень x
-
-        PROCEDURE exp(x: REAL): REAL
-                экспонента x
-
-        PROCEDURE ln(x: REAL): REAL
-                натуральный логарифм x
-
-        PROCEDURE sin(x: REAL): REAL
-                синус x
-
-        PROCEDURE cos(x: REAL): REAL
-                косинус x
-
-        PROCEDURE tan(x: REAL): REAL
-                тангенс x
-
-        PROCEDURE arcsin(x: REAL): REAL
-                арксинус x
-
-        PROCEDURE arccos(x: REAL): REAL
-                арккосинус x
-
-        PROCEDURE arctan(x: REAL): REAL
-                арктангенс x
-
-        PROCEDURE arctan2(y, x: REAL): REAL
-                арктангенс y/x
-
-        PROCEDURE power(base, exponent: REAL): REAL
-                возведение числа base в степень exponent
-
-        PROCEDURE log(base, x: REAL): REAL
-                логарифм x по основанию base
-
-        PROCEDURE sinh(x: REAL): REAL
-                гиперболический синус x
-
-        PROCEDURE cosh(x: REAL): REAL
-                гиперболический косинус x
-
-        PROCEDURE tanh(x: REAL): REAL
-                гиперболический тангенс x
-
-        PROCEDURE arsinh(x: REAL): REAL
-                обратный гиперболический синус x
-
-        PROCEDURE arcosh(x: REAL): REAL
-                обратный гиперболический косинус x
-
-        PROCEDURE artanh(x: REAL): REAL
-                обратный гиперболический тангенс x
-
-        PROCEDURE round(x: REAL): REAL
-                округление x до ближайшего целого
-
-        PROCEDURE frac(x: REAL): REAL;
-                дробная часть числа x
-
-        PROCEDURE floor(x: REAL): REAL
-                наибольшее целое число (представление как REAL),
-                не больше x: floor(1.2) = 1.0
-
-        PROCEDURE ceil(x: REAL): REAL
-                наименьшее целое число (представление как REAL),
-                не меньше x: ceil(1.2) = 2.0
-
-        PROCEDURE sgn(x: REAL): INTEGER
-                если x > 0 возвращает 1
-                если x < 0 возвращает -1
-                если x = 0 возвращает 0
-
-        PROCEDURE fact(n: INTEGER): REAL
-                факториал n
-
------------------------------------------------------------------------------
-MODULE Debug - вывод на доску отладки
-        Интерфейс как модуль Out
-
-        PROCEDURE Open
-                открывает доску отладки
-
------------------------------------------------------------------------------
-MODULE File - работа с файловой системой
-
-        TYPE
-
-                FNAME = ARRAY 520 OF CHAR
-
-                FS = POINTER TO rFS
-
-                rFS = RECORD (* информационная структура файла *)
-                        subfunc, pos, hpos, bytes, buffer: INTEGER;
-                        name: FNAME
-                END
-
-                FD = POINTER TO rFD
-
-                rFD = RECORD (* структура блока данных входа каталога *)
-                        attr: INTEGER;
-                        ntyp: CHAR;
-                        reserved: ARRAY 3 OF CHAR;
-                        time_create, date_create,
-                        time_access, date_access,
-                        time_modif,  date_modif,
-                        size, hsize: INTEGER;
-                        name: FNAME
-                END
-
-        CONST
-
-                SEEK_BEG = 0
-                SEEK_CUR = 1
-                SEEK_END = 2
-
-        PROCEDURE Load(FName: ARRAY OF CHAR; VAR size: INTEGER): INTEGER;
-                Загружает в память файл с именем FName, записывает в параметр
-                size размер файла, возвращает адрес загруженного файла
-                или 0 (ошибка). При необходимости, распаковывает
-                файл (kunpack).
-
-        PROCEDURE GetFileInfo(FName: ARRAY OF CHAR; VAR Info: rFD): BOOLEAN
-                Записывает структуру блока данных входа каталога для файла
-                или папки с именем FName в параметр Info.
-                При ошибке возвращает FALSE.
-
-        PROCEDURE Exists(FName: ARRAY OF CHAR): BOOLEAN
-                возвращает TRUE, если файл с именем FName существует
-
-        PROCEDURE Close(VAR F: FS)
-                освобождает память, выделенную для информационной структуры
-                файла F и присваивает F значение NIL
-
-        PROCEDURE Open(FName: ARRAY OF CHAR): FS
-                возвращает указатель на информационную структуру файла с
-                именем FName, при ошибке возвращает NIL
-
-        PROCEDURE Delete(FName: ARRAY OF CHAR): BOOLEAN
-                удаляет файл с именем FName, при ошибке возвращает FALSE
-
-        PROCEDURE Seek(F: FS; Offset, Origin: INTEGER): INTEGER
-                устанавливает позицию чтения-записи файла F на Offset,
-                относительно Origin = (SEEK_BEG - начало файла,
-                SEEK_CUR - текущая позиция, SEEK_END - конец файла),
-                возвращает позицию относительно начала файла, например:
-                        Seek(F, 0, SEEK_END)
-                устанавливает позицию на конец файла и возвращает длину
-                файла; при ошибке возвращает -1
-
-        PROCEDURE Read(F: FS; Buffer, Count: INTEGER): INTEGER
-                Читает данные из файла в память. F - указатель на
-                информационную структуру файла, Buffer - адрес области
-                памяти, Count - количество байт, которое требуется прочитать
-                из файла; возвращает количество байт, которое было прочитано
-                и соответствующим образом изменяет позицию чтения/записи в
-                информационной структуре F.
-
-        PROCEDURE Write(F: FS; Buffer, Count: INTEGER): INTEGER
-                Записывает данные из памяти в файл. F - указатель на
-                информационную структуру файла, Buffer - адрес области
-                памяти, Count - количество байт, которое требуется записать
-                в файл; возвращает количество байт, которое было записано и
-                соответствующим образом изменяет позицию чтения/записи в
-                информационной структуре F.
-
-        PROCEDURE Create(FName: ARRAY OF CHAR): FS
-                создает новый файл с именем FName (полное имя), возвращает
-                указатель на информационную структуру файла,
-                при ошибке возвращает NIL
-
-        PROCEDURE CreateDir(DirName: ARRAY OF CHAR): BOOLEAN
-                создает папку с именем DirName, все промежуточные папки
-                должны существовать, при ошибке возвращает FALSE
-
-        PROCEDURE DeleteDir(DirName: ARRAY OF CHAR): BOOLEAN
-                удаляет пустую папку с именем DirName,
-                при ошибке возвращает FALSE
-
-        PROCEDURE DirExists(DirName: ARRAY OF CHAR): BOOLEAN
-                возвращает TRUE, если папка с именем DirName существует
-
------------------------------------------------------------------------------
-MODULE Read - чтение основных типов данных из файла F
-
-        Процедуры возвращают TRUE в случае успешной операции чтения и
-        соответствующим образом изменяют позицию чтения/записи в
-        информационной структуре F
-
-        PROCEDURE Char(F: File.FS; VAR x: CHAR): BOOLEAN
-
-        PROCEDURE Int(F: File.FS; VAR x: INTEGER): BOOLEAN
-
-        PROCEDURE Real(F: File.FS; VAR x: REAL): BOOLEAN
-
-        PROCEDURE Boolean(F: File.FS; VAR x: BOOLEAN): BOOLEAN
-
-        PROCEDURE Set(F: File.FS; VAR x: SET): BOOLEAN
-
-        PROCEDURE WChar(F: File.FS; VAR x: WCHAR): BOOLEAN
-
------------------------------------------------------------------------------
-MODULE Write - запись основных типов данных в файл F
-
-        Процедуры возвращают TRUE в случае успешной операции записи и
-        соответствующим образом изменяют позицию чтения/записи в
-        информационной структуре F
-
-        PROCEDURE Char(F: File.FS; x: CHAR): BOOLEAN
-
-        PROCEDURE Int(F: File.FS; x: INTEGER): BOOLEAN
-
-        PROCEDURE Real(F: File.FS; x: REAL): BOOLEAN
-
-        PROCEDURE Boolean(F: File.FS; x: BOOLEAN): BOOLEAN
-
-        PROCEDURE Set(F: File.FS; x: SET): BOOLEAN
-
-        PROCEDURE WChar(F: File.FS; x: WCHAR): BOOLEAN
-
------------------------------------------------------------------------------
-MODULE DateTime - дата, время
-
-        CONST ERR = -7.0E5
-
-        PROCEDURE Now(VAR Year, Month, Day, Hour, Min, Sec: INTEGER)
-                записывает в параметры компоненты текущей системной даты и
-                времени
-
-        PROCEDURE Encode(Year, Month, Day, Hour, Min, Sec: INTEGER): REAL
-                возвращает дату, полученную из компонентов
-                Year, Month, Day, Hour, Min, Sec;
-                при ошибке возвращает константу ERR = -7.0E5
-
-        PROCEDURE Decode(Date: REAL; VAR Year, Month, Day,
-                                Hour, Min, Sec: INTEGER): BOOLEAN
-                извлекает компоненты
-                Year, Month, Day, Hour, Min, Sec из даты Date;
-                при ошибке возвращает FALSE
-
------------------------------------------------------------------------------
-MODULE Args - параметры программы
-
-        VAR argc: INTEGER
-                количество параметров программы, включая имя
-                исполняемого файла
-
-        PROCEDURE GetArg(n: INTEGER; VAR s: ARRAY OF CHAR)
-                записывает в строку s n-й параметр программы,
-                нумерация параметров от 0 до argc - 1,
-                нулевой параметр -- имя исполняемого файла
-
------------------------------------------------------------------------------
-MODULE KOSAPI
-
-        PROCEDURE sysfunc1(arg1: INTEGER): INTEGER
-        PROCEDURE sysfunc2(arg1, arg2: INTEGER): INTEGER
-        ...
-        PROCEDURE sysfunc7(arg1, arg2, ..., arg7: INTEGER): INTEGER
-                Обертки для функций API ядра KolibriOS.
-                arg1 .. arg7 соответствуют регистрам
-                        eax, ebx, ecx, edx, esi, edi, ebp;
-                возвращают значение регистра eax после системного вызова.
-
-        PROCEDURE sysfunc22(arg1, arg2: INTEGER; VAR res2: INTEGER): INTEGER
-                Обертка для функций API ядра KolibriOS.
-                arg1 - регистр eax, arg2 - регистр ebx,
-                res2 - значение регистра ebx после системного вызова;
-                возвращает значение регистра eax после системного вызова.
-
-        PROCEDURE malloc(size: INTEGER): INTEGER
-                Выделяет блок памяти.
-                size - размер блока в байтах,
-                возвращает адрес выделенного блока
-
-        PROCEDURE free(ptr: INTEGER): INTEGER
-                Освобождает ранее выделенный блок памяти с адресом ptr,
-                возвращает 0
-
-        PROCEDURE realloc(ptr, size: INTEGER): INTEGER
-                Перераспределяет блок памяти,
-                ptr - адрес ранее выделенного блока,
-                size - новый размер,
-                возвращает указатель на перераспределенный блок,
-                0 при ошибке
-
-        PROCEDURE GetCommandLine(): INTEGER
-                Возвращает адрес строки параметров
-
-        PROCEDURE GetName(): INTEGER
-                Возвращает адрес строки с именем программы
-
-        PROCEDURE LoadLib(name: ARRAY OF CHAR): INTEGER
-                Загружает DLL с полным именем name. Возвращает адрес таблицы
-                экспорта. При ошибке возвращает 0.
-
-        PROCEDURE GetProcAdr(name: ARRAY OF CHAR; lib: INTEGER): INTEGER
-                name - имя процедуры
-                lib - адрес таблицы экспорта DLL
-                Возвращает адрес процедуры. При ошибке возвращает 0.
-
------------------------------------------------------------------------------
-MODULE ColorDlg - работа с диалогом "Color Dialog"
-
-        TYPE
-
-                Dialog = POINTER TO RECORD (* структура диалога *)
-                    status: INTEGER   (* состояние диалога:
-                                         0 - пользователь нажал Cancel
-                                         1 - пользователь нажал OK
-                                         2 - диалог открыт       *)
-
-                    color:  INTEGER   (* выбранный цвет *)
-                END
-
-        PROCEDURE Create(draw_window: DRAW_WINDOW): Dialog
-                создать диалог
-                draw_window - процедура перерисовки основного окна
-                (TYPE DRAW_WINDOW = PROCEDURE);
-                процедура возвращает указатель на структуру диалога
-
-        PROCEDURE Show(cd: Dialog)
-                показать диалог
-                cd - указатель на структуру диалога, который был создан ранее
-                процедурой Create
-
-        PROCEDURE Destroy(VAR cd: Dialog)
-                уничтожить диалог
-                cd - указатель на структуру диалога
-
------------------------------------------------------------------------------
-MODULE OpenDlg - работа с диалогом "Open Dialog"
-
-        TYPE
-
-                Dialog = POINTER TO RECORD (* структура диалога *)
-                    status:   INTEGER  (* состояние диалога:
-                                          0 - пользователь нажал Cancel
-                                          1 - пользователь нажал OK
-                                          2 - диалог открыт       *)
-
-                    FileName: ARRAY 4096 OF CHAR (* имя выбранного файла *)
-                    FilePath: ARRAY 4096 OF CHAR (* полное имя выбранного
-                                                    файла           *)
-                END
-
-        PROCEDURE Create(draw_window: DRAW_WINDOW; type: INTEGER; def_path,
-                        filter: ARRAY OF CHAR): Dialog
-                создать диалог
-                draw_window - процедура перерисовки основного окна
-                        (TYPE DRAW_WINDOW = PROCEDURE)
-                type -  тип диалога
-                        0 - открыть
-                        1 - сохранить
-                        2 - выбрать папку
-                def_path - путь по умолчанию, папка def_path будет открыта
-                        при первом запуске диалога
-                filter - в строке записано перечисление расширений файлов,
-                        которые будут показаны в диалоговом окне, расширения
-                        разделяются символом "|", например: "ASM|TXT|INI"
-                процедура возвращает указатель на структуру диалога
-
-        PROCEDURE Show(od: Dialog; Width, Height: INTEGER)
-                показать диалог
-                od - указатель на структуру диалога, который был создан ранее
-                     процедурой Create
-                Width и Height - ширина и высота диалогового окна
-
-        PROCEDURE Destroy(VAR od: Dialog)
-                уничтожить диалог
-                od - указатель на структуру диалога
-
------------------------------------------------------------------------------
-MODULE kfonts - работа с kf-шрифтами
-
-        CONST
-
-                bold            =   1
-                italic          =   2
-                underline       =   4
-                strike_through  =   8
-                smoothing       =  16
-                bpp32           =  32
-
-        TYPE
-
-                TFont = POINTER TO TFont_desc (* указатель на шрифт *)
-
-        PROCEDURE LoadFont(file_name: ARRAY OF CHAR): TFont
-                загрузить шрифт из файла
-                file_name   имя kf-файла
-                рез-т:          указатель на шрифт/NIL (ошибка)
-
-        PROCEDURE SetSize(Font: TFont; font_size: INTEGER): BOOLEAN
-                установить размер шрифта
-                Font        указатель на шрифт
-                font_size   размер шрифта
-                рез-т:          TRUE/FALSE (ошибка)
-
-        PROCEDURE Enabled(Font: TFont; font_size: INTEGER): BOOLEAN
-                проверить, есть ли шрифт, заданного размера
-                Font        указатель на шрифт
-                font_size   размер шрифта
-                рез-т:          TRUE/FALSE (шрифта нет)
-
-        PROCEDURE Destroy(VAR Font: TFont)
-                выгрузить шрифт, освободить динамическую память
-                Font        указатель на шрифт
-                Присваивает переменной Font значение NIL
-
-        PROCEDURE TextHeight(Font: TFont): INTEGER
-                получить высоту строки текста
-                Font        указатель на шрифт
-                рез-т:          высота строки текста в пикселях
-
-        PROCEDURE TextWidth(Font: TFont;
-                    str, length, params: INTEGER): INTEGER
-                получить ширину строки текста
-                Font        указатель на шрифт
-                str         адрес строки текста в кодировке Win-1251
-                length      количество символов в строке или -1, если строка
-                            завершается нулем
-                params      параметры-флаги см. ниже
-                рез-т:          ширина строки текста в пикселях
-
-        PROCEDURE TextOut(Font: TFont;
-                    canvas, x, y, str, length, color, params: INTEGER)
-                вывести текст в буфер
-                для вывода буфера в окно, использовать ф.65 или
-                ф.7 (если буфер 24-битный)
-                Font        указатель на шрифт
-                canvas      адрес графического буфера
-                            структура буфера:
-                              Xsize       dd
-                              Ysize       dd
-                              picture     rb  Xsize * Ysize * 4 (32 бита)
-                                              или Xsize * Ysize * 3 (24 бита)
-                x, y        координаты текста относительно левого верхнего
-                            угла буфера
-                str         адрес строки текста в кодировке Win-1251
-                length      количество символов в строке или -1, если строка
-                            завершается нулем
-                color       цвет текста 0x00RRGGBB
-                params      параметры-флаги:
-                               1   жирный
-                               2   курсив
-                               4   подчеркнутый
-                               8   перечеркнутый
-                              16   применить сглаживание
-                              32   вывод в 32-битный буфер
-                            возможно использование флагов в любых сочетаниях
------------------------------------------------------------------------------
-MODULE RasterWorks - обертка библиотеки Rasterworks.obj
------------------------------------------------------------------------------
-MODULE libimg - обертка библиотеки libimg.obj
------------------------------------------------------------------------------
--- a/programs/develop/oberon07/doc/Oberon07.Report_2016_05_03.pdf
+++ b/programs/develop/oberon07/doc/Oberon07.Report_2016_05_03.pdf
--- a/programs/develop/oberon07/doc/x86.txt
+++ b/programs/develop/oberon07/doc/x86.txt
@@ -1,423 +0,0 @@
-        Компилятор языка программирования Oberon-07/16 для i486
-                Windows/Linux/KolibriOS.
------------------------------------------------------------------------------
-
-        Параметры командной строки
-
-  Вход - текстовые файлы модулей с расширением ".ob07", кодировка ANSI или
-UTF-8 с BOM-сигнатурой.
-  Выход - испоняемый файл формата PE32, ELF или MENUET01/MSCOFF.
-  Параметры:
-  1) имя главного модуля
-  2) тип приложения
-      "win32con" - Windows console
-      "win32gui" - Windows GUI
-      "win32dll" - Windows DLL
-      "linux32exe" - Linux ELF-EXEC
-      "linux32so"  - Linux ELF-SO
-      "kosexe" - KolibriOS
-      "kosdll" - KolibriOS DLL
-
-  3) необязательные параметры-ключи
-      -out <file_name> имя результирующего файла; по умолчанию,
-          совпадает с именем главного модуля, но с другим расширением
-          (соответствует типу исполняемого файла)
-      -stk <size> размер стэка в мегабайтах (по умолчанию 2 Мб,
-          допустимо от 1 до 32 Мб)
-      -tab <width> размер табуляции (используется для вычисления координат в
-          исходном коде), по умолчанию - 4
-      -nochk <"ptibcwra"> отключить проверки при выполнении (см. ниже)
-      -lower разрешить ключевые слова и встроенные идентификаторы в
-          нижнем регистре (по умолчанию)
-      -upper только верхний регистр для ключевых слов и встроенных
-          идентификаторов
-      -def <имя> задать символ условной компиляции
-      -ver <major.minor> версия программы (только для kosdll)
-      -uses вывести список импортированных модулей
-
-      параметр -nochk задается в виде строки из символов:
-      "p" - указатели
-      "t" - типы
-      "i" - индексы
-      "b" - неявное приведение INTEGER к BYTE
-      "c" - диапазон аргумента функции CHR
-      "w" - диапазон аргумента функции WCHR
-      "r" - эквивалентно "bcw"
-      "a" - все проверки
-
-      Порядок символов может быть любым. Наличие в строке того или иного
-      символа отключает соответствующую проверку.
-
-      Например: -nochk it - отключить проверку индексов и охрану типа.
-      -nochk a - отключить все отключаемые проверки.
-
-  Например:
-
-  Compiler.exe "C:\example.ob07" win32con -out "C:\example.exe" -stk 1
-  Compiler.exe "C:\example.ob07" win32dll -out "C:\example.dll"
-  Compiler.exe "C:\example.ob07" win32gui -out "C:\example.exe" -stk 4
-  Compiler.exe "C:\example.ob07" win32con -out "C:\example.exe" -nochk pti
-  Compiler.kex "/tmp0/1/example.ob07" kosexe -out "/tmp0/1/example.kex" -stk 4
-  Compiler.kex "/tmp0/1/example.ob07" kosdll -out "/tmp0/1/mydll.obj" -ver 2.7
-  Compiler.exe "C:\example.ob07" linux32exe -out "C:\example" -stk 1 -nochk a
-
-  В случае успешной компиляции, компилятор передает код завершения 0, иначе 1.
-При работе компилятора в KolibriOS, код завершения не передается.
-
------------------------------------------------------------------------------
-        Отличия от оригинала
-
-1.      Расширен псевдомодуль SYSTEM
-2.      В идентификаторах допускается символ "_"
-3.      Добавлены системные флаги
-4.      Усовершенствован оператор CASE (добавлены константные выражения в
-        метках вариантов и необязательная ветка ELSE)
-5.      Расширен набор стандартных процедур
-6.      Семантика охраны/проверки типа уточнена для нулевого указателя
-7.      Добавлены однострочные комментарии (начинаются с пары символов "//")
-8.      Разрешено наследование от типа-указателя
-9.      Добавлен синтаксис для импорта процедур из внешних библиотек
-10.     "Строки" можно заключать также в одиночные кавычки: 'строка'
-11.     Добавлен тип WCHAR
-12.     Добавлена операция конкатенации строковых и символьных констант
-13.     Возможен импорт модулей с указанием пути и имени файла
-14.     Добавлен специальный синтаксис для условной компиляции (см. CC.txt)
-15.     Имя процедуры в конце объявления (после END) необязательно
-16.     Разрешено использовать нижний регистр для ключевых слов
-
------------------------------------------------------------------------------
-        Особенности реализации
-
-1.      Основные типы
-
-          Тип              Диапазон значений               Размер, байт
-
-        INTEGER       -2147483648 .. 2147483647                 4
-        REAL          4.94E-324 .. 1.70E+308                    8
-        CHAR          символ ASCII (0X .. 0FFX)                 1
-        BOOLEAN       FALSE, TRUE                               1
-        SET           множество из целых чисел {0 .. 31}        4
-        BYTE          0 .. 255                                  1
-        WCHAR         символ юникода (0X .. 0FFFFX)             2
-
-2.      Максимальная длина идентификаторов - 255 символов
-3.      Максимальная длина строковых констант - 511 символов (UTF-8)
-4.      Максимальная размерность открытых массивов - 5
-5.      Процедура NEW заполняет нулями выделенный блок памяти
-6.      Глобальные и локальные переменные инициализируются нулями
-7.      В отличие от многих Oberon-реализаций, сборщик мусора и динамическая
-        модульность отсутствуют
-8.      Тип BYTE в выражениях всегда приводится к INTEGER
-9.      Контроль переполнения значений выражений не производится
-10.     Ошибки времени выполнения:
-
- 1      ASSERT(x), при x = FALSE
- 2      разыменование нулевого указателя
- 3      целочисленное деление на неположительное число
- 4      вызов процедуры через процедурную переменную с нулевым значением
- 5      ошибка охраны типа
- 6      нарушение границ массива
- 7      непредусмотренное значение выражения в операторе CASE
- 8      ошибка копирования массивов v := x, если LEN(v) < LEN(x)
- 9      CHR(x), если (x < 0) OR (x > 255)
-10      WCHR(x), если (x < 0) OR (x > 65535)
-11      неявное приведение x:INTEGER к v:BYTE, если (x < 0) OR (x > 255)
-
------------------------------------------------------------------------------
-        Псевдомодуль SYSTEM
-
-  Псевдомодуль SYSTEM содержит низкоуровневые и небезопасные процедуры,
-ошибки при использовании процедур псевдомодуля SYSTEM могут привести к
-повреждению данных времени выполнения и аварийному завершению программы.
-
-        PROCEDURE ADR(v: любой тип): INTEGER
-                v - переменная или процедура;
-                возвращает адрес v
-
-        PROCEDURE SADR(x: строковая константа (CHAR UTF-8)): INTEGER
-                возвращает адрес x
-
-        PROCEDURE WSADR(x: строковая константа (WCHAR)): INTEGER
-                возвращает адрес x
-
-        PROCEDURE VAL(v: любой тип; T): T
-                v - переменная;
-                интерпретирует v, как переменную типа T
-
-        PROCEDURE SIZE(T): INTEGER
-                возвращает размер типа T
-
-        PROCEDURE TYPEID(T): INTEGER
-                T - тип-запись или тип-указатель,
-                возвращает номер типа в таблице типов-записей
-
-        PROCEDURE INF(): REAL
-                возвращает специальное вещественное значение "бесконечность"
-
-        PROCEDURE MOVE(Source, Dest, n: INTEGER)
-                Копирует n байт памяти из Source в Dest,
-                области Source и Dest не могут перекрываться
-
-        PROCEDURE GET(a: INTEGER;
-                VAR v: любой основной тип, PROCEDURE, POINTER)
-                v := Память[a]
-
-        PROCEDURE GET8(a: INTEGER;
-                       VAR x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
-                Эквивалентно
-                SYSTEM.MOVE(a, SYSTEM.ADR(x), 1)
-
-        PROCEDURE GET16(a: INTEGER;
-                        VAR x: INTEGER, SET, WCHAR, SYSTEM.CARD32)
-                Эквивалентно
-                SYSTEM.MOVE(a, SYSTEM.ADR(x), 2)
-
-        PROCEDURE GET32(a: INTEGER; VAR x: INTEGER, SET, SYSTEM.CARD32)
-                Эквивалентно
-                SYSTEM.MOVE(a, SYSTEM.ADR(x), 4)
-
-        PROCEDURE PUT(a: INTEGER; x: любой основной тип, PROCEDURE, POINTER)
-                Память[a] := x;
-                Если x: BYTE или x: WCHAR, то значение x будет расширено
-                до 32 бит, для записи байтов использовать SYSTEM.PUT8,
-                для WCHAR -- SYSTEM.PUT16
-
-        PROCEDURE PUT8(a: INTEGER;
-                       x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
-                Память[a] := младшие 8 бит (x)
-
-        PROCEDURE PUT16(a: INTEGER;
-                        x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
-                Память[a] := младшие 16 бит (x)
-
-        PROCEDURE PUT32(a: INTEGER;
-                        x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32)
-                Память[a] := младшие 32 бит (x)
-
-        PROCEDURE COPY(VAR Source: любой тип; VAR Dest: любой тип; n: INTEGER)
-                Копирует n байт памяти из Source в Dest.
-                Эквивалентно
-                SYSTEM.MOVE(SYSTEM.ADR(Source), SYSTEM.ADR(Dest), n)
-
-        PROCEDURE CODE(byte1, byte2,... : INTEGER)
-                Вставка машинного кода,
-                byte1, byte2 ... - константы в диапазоне 0..255,
-                например:
-                SYSTEM.CODE(08BH, 045H, 008H) (* mov eax, dword [ebp + 08h] *)
-
-  Также, в модуле SYSTEM определен тип CARD32 (4 байта). Для типа CARD32 не
-допускаются никакие явные операции, за исключением присваивания.
-
-  Функции псевдомодуля SYSTEM нельзя использовать в константных выражениях.
-
------------------------------------------------------------------------------
-        Системные флаги
-
-  При объявлении процедурных типов и глобальных процедур, после ключевого
-слова PROCEDURE может быть указан флаг соглашения о вызове: [stdcall],
-[cdecl], [fastcall], [ccall], [windows], [linux], [oberon]. Например:
-
-        PROCEDURE [ccall] MyProc (x, y, z: INTEGER): INTEGER;
-
-  Если указан флаг [ccall], то принимается соглашение cdecl, но перед
-вызовом указатель стэка будет выравнен по границе 16 байт.
-  Флаг [windows] - синоним для [stdcall], [linux] - синоним для [ccall].
-  Знак "-" после имени флага ([stdcall-], [linux-], ...) означает, что
-результат процедуры можно игнорировать (не допускается для типа REAL).
-  Если флаг не указан или указан флаг [oberon], то принимается внутреннее
-соглашение о вызове.
-
-  При объявлении типов-записей, после ключевого слова RECORD может быть
-указан флаг [noalign]. Флаг [noalign] означает отсутствие выравнивания полей
-записи. Записи с системным флагом не могут иметь базовый тип и не могут быть
-базовыми типами для других записей.
-  Для использования системных флагов, требуется импортировать SYSTEM.
-
------------------------------------------------------------------------------
-        Оператор CASE
-
-  Синтаксис оператора CASE:
-
-        CaseStatement =
-                CASE Expression OF Case {"|" Case}
-                        [ELSE StatementSequence] END.
-        Case = [CaseLabelList ":" StatementSequence].
-        CaseLabelList = CaseLabels {"," CaseLabels}.
-        CaseLabels = ConstExpression [".." ConstExpression].
-
-  Например:
-
-        CASE x OF
-        |-1:    DoSomething1
-        | 1:    DoSomething2
-        | 0:    DoSomething3
-        ELSE
-                DoSomething4
-        END
-
-  В метках вариантов можно использовать константные выражения, ветка ELSE
-необязательна. Если значение x не соответствует ни одному варианту и ELSE
-отсутствует, то программа прерывается с ошибкой времени выполнения.
-
------------------------------------------------------------------------------
-        Тип WCHAR
-
-  Тип WCHAR добавлен в язык для удобной поддежки юникода. Для типов WCHAR и
-ARRAY OF WCHAR допускаются все те же операции, как для типов CHAR и
-ARRAY OF CHAR, за исключением встроенной процедуры CHR, которая возвращает
-только тип CHAR. Для получения значения типа WCHAR, следует использовать
-процедуру WCHR вместо CHR. Для правильной работы с типом, необходимо сохранять
-исходный код в кодировке UTF-8 с BOM.
-
------------------------------------------------------------------------------
-        Конкатенация строковых и символьных констант
-
-  Допускается конкатенация ("+") константных строк и символов типа CHAR:
-
-  str = CHR(39) + "string" + CHR(39); (* str = "'string'" *)
-
-  newline = 0DX + 0AX;
-
------------------------------------------------------------------------------
-        Проверка и охрана типа нулевого указателя
-
-  Оригинальное сообщение о языке не определяет поведение программы при
-выполнении охраны p(T) и проверки типа p IS T при p = NIL. Во многих
-Oberon-реализациях выполнение такой операции приводит к ошибке времени
-выполнения. В данной реализации охрана типа нулевого указателя не приводит к
-ошибке, а проверка типа дает результат FALSE. В ряде случаев это позволяет
-значительно сократить частоту применения охраны типа.
-
------------------------------------------------------------------------------
-        Дополнительные стандартные процедуры
-
-        DISPOSE (VAR v: любой_указатель)
-                Освобождает память, выделенную процедурой NEW для
-                динамической переменной v^, и присваивает переменной v
-                значение NIL.
-
-        COPY (x: ARRAY OF CHAR/WCHAR; VAR v: ARRAY OF CHAR/WCHAR);
-                v := x;
-                Если LEN(v) < LEN(x), то строка x будет скопирована
-                не полностью
-
-        LSR (x, n: INTEGER): INTEGER
-                Логический сдвиг x на n бит вправо.
-
-        MIN (a, b: INTEGER): INTEGER
-                Минимум из двух значений.
-
-        MAX (a, b: INTEGER): INTEGER
-                Максимум из двух значений.
-
-        BITS (x: INTEGER): SET
-                Интерпретирует x как значение типа SET.
-                Выполняется на этапе компиляции.
-
-        LENGTH (s: ARRAY OF CHAR/WCHAR): INTEGER
-                Длина 0X-завершенной строки s, без учета символа 0X.
-                Если символ 0X отсутствует, функция возвращает длину
-                массива s. s не может быть константой.
-
-        WCHR (n: INTEGER): WCHAR
-                Преобразование типа, аналогично CHR(n: INTEGER): CHAR
-
------------------------------------------------------------------------------
-        Импорт модулей с указанием пути и имени файла
-
-Примеры:
-
-    IMPORT Math IN "./lib/math.ob07"; (* относительно текущего модуля *)
-
-    IMPORT M1 IN "C:\lib\math.ob07"; (* абсолютный путь *)
-
------------------------------------------------------------------------------
-        Импортированные процедуры
-
-  Синтаксис импорта:
-
-  PROCEDURE [callconv, library, function] proc_name (FormalParam): Type;
-
-  - callconv -- соглашение о вызове
-  - library -- имя файла динамической библиотеки (строковая константа)
-  - function -- имя импортируемой процедуры (строковая константа), если
-  указана пустая строка, то имя процедуры = proc_name
-
-  например:
-
-  PROCEDURE [windows, "kernel32.dll", ""] ExitProcess (code: INTEGER);
-
-  PROCEDURE [stdcall, "Console.obj", "con_exit"] exit (bCloseWindow: BOOLEAN);
-
-  В конце объявления может быть добавлено (необязательно) "END proc_name;"
-
-  Объявления импортированных процедур должны располагаться в глобальной
-  области видимости модуля после объявления переменных, вместе с объявлением
-  "обычных" процедур, от которых импортированные отличаются только отсутствием
-  тела процедуры. В остальном, к таким процедурам применимы те же правила:
-  их можно вызвать, присвоить процедурной переменной или получить адрес.
-
-  Так как импортированная процедура всегда имеет явное указание соглашения о
-  вызове, то совместимый процедурный тип тоже должен быть объявлен с указанием
-  соглашения о вызове:
-
-  VAR
-      ExitProcess: PROCEDURE [windows] (code: INTEGER);
-      con_exit:    PROCEDURE [stdcall] (bCloseWindow: BOOLEAN);
-
-  В KolibriOS импортировать процедуры можно только из библиотек, размещенных
-  в /sys/lib. Импортировать и вызывать функции инициализации библиотек
-  (lib_init, START) при этом не нужно.
-
-  Для Linux, импортированные процедуры не реализованы.
-
------------------------------------------------------------------------------
-        Скрытые параметры процедур
-
-  Некоторые процедуры могут иметь скрытые параметры, они отсутствуют в списке
-формальных параметров, но учитываются компилятором при трансляции вызовов.
-Это возможно в следующих случаях:
-
-1.      Процедура имеет формальный параметр открытый массив:
-                PROCEDURE Proc (x: ARRAY OF ARRAY OF REAL);
-        Вызов транслируется так:
-                Proc(LEN(x), LEN(x[0]), SYSTEM.ADR(x))
-2.      Процедура имеет формальный параметр-переменную типа RECORD:
-                PROCEDURE Proc (VAR x: Rec);
-        Вызов транслируется так:
-                Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x))
-
-  Скрытые параметры необходимо учитывать при связи с внешними приложениями.
-
------------------------------------------------------------------------------
-        Модуль RTL
-
-  Все программы неявно используют модуль RTL. Компилятор транслирует
-некоторые операции (проверка и охрана типа, сравнение строк, сообщения об
-ошибках времени выполнения и др.) как вызовы процедур этого модуля. Не
-следует вызывать эти процедуры явно.
-  Сообщения об ошибках времени выполнения выводятся в диалоговых окнах
-(Windows), в терминал (Linux), на доску отладки (KolibriOS).
-
------------------------------------------------------------------------------
-        Модуль API
-
-  Существуют несколько реализаций модуля API (для различных ОС).
-  Как и модуль RTL, модуль API не предназначен для прямого использования.
-Он обеспечивает связь RTL с ОС.
-
------------------------------------------------------------------------------
-        Генерация исполняемых файлов DLL
-
-  Разрешается экспортировать только процедуры. Для этого, процедура должна
-находиться в главном модуле программы, и ее имя должно быть отмечено символом
-экспорта ("*"). Нельзя экспортировать процедуры, которые импортированы из
-других dll-библиотек.
-
-  KolibriOS DLL всегда экспортируют идентификаторы "version" (версия
-программы) и "lib_init" - адрес процедуры инициализации DLL:
-
-        PROCEDURE [stdcall] lib_init (): INTEGER
-
-Эта процедура должна быть вызвана перед использованием DLL.
-Процедура всегда возвращает 1.
--- a/programs/develop/oberon07/lib/KolibriOS/API.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/API.ob07
@@ -1,290 +0,0 @@
-(*
-    BSD 2-Clause License
-
-    Copyright (c) 2018, 2020-2022, Anton Krotov
-    All rights reserved.
-*)
-
-MODULE API;
-
-IMPORT SYSTEM, K := KOSAPI;
-
-
-CONST
-
-    eol* = 0DX + 0AX;
-    BIT_DEPTH* = 32;
-
-    MAX_SIZE  = 16 * 400H;
-    HEAP_SIZE =  1 * 100000H;
-
-    _new = 1;
-    _dispose = 2;
-
-    SizeOfHeader = 36;
-
-
-TYPE
-
-    CRITICAL_SECTION = ARRAY 2 OF INTEGER;
-
-
-VAR
-
-    heap, endheap: INTEGER;
-    pockets: ARRAY MAX_SIZE DIV 32 + 1 OF INTEGER;
-
-    CriticalSection: CRITICAL_SECTION;
-
-    multi: BOOLEAN;
-
-    base*: INTEGER;
-
-
-PROCEDURE [stdcall] zeromem* (dwords: INTEGER; adr: INTEGER);
-BEGIN
-    SYSTEM.CODE(
-    0FCH,               (*  cld                            *)
-    031H, 0C0H,         (*  xor     eax, eax               *)
-    057H,               (*  push    edi                    *)
-    08BH, 07DH, 00CH,   (*  mov     edi, dword [ebp + 12]  *)
-    08BH, 04DH, 008H,   (*  mov     ecx, dword [ebp +  8]  *)
-    0F3H, 0ABH,         (*  rep     stosd                  *)
-    05FH                (*  pop     edi                    *)
-    )
-END zeromem;
-
-
-PROCEDURE mem_commit* (adr, size: INTEGER);
-VAR
-    tmp: INTEGER;
-BEGIN
-    FOR tmp := adr TO adr + size - 1 BY 4096 DO
-        SYSTEM.PUT(tmp, 0)
-    END
-END mem_commit;
-
-
-PROCEDURE switch_task;
-BEGIN
-    K.sysfunc2(68, 1)
-END switch_task;
-
-
-PROCEDURE futex_create (ptr: INTEGER): INTEGER;
-    RETURN K.sysfunc3(77, 0, ptr)
-END futex_create;
-
-
-PROCEDURE futex_wait (futex, value, timeout: INTEGER);
-BEGIN
-    K.sysfunc5(77, 2, futex, value, timeout)
-END futex_wait;
-
-
-PROCEDURE futex_wake (futex, number: INTEGER);
-BEGIN
-    K.sysfunc4(77, 3, futex, number)
-END futex_wake;
-
-
-PROCEDURE EnterCriticalSection* (VAR CriticalSection: CRITICAL_SECTION);
-BEGIN
-    switch_task;
-    futex_wait(CriticalSection[0], 1, 10000);
-    CriticalSection[1] := 1
-END EnterCriticalSection;
-
-
-PROCEDURE LeaveCriticalSection* (VAR CriticalSection: CRITICAL_SECTION);
-BEGIN
-    CriticalSection[1] := 0;
-    futex_wake(CriticalSection[0], 1)
-END LeaveCriticalSection;
-
-
-PROCEDURE InitializeCriticalSection* (VAR CriticalSection: CRITICAL_SECTION);
-BEGIN
-    CriticalSection[0] := futex_create(SYSTEM.ADR(CriticalSection[1]));
-    CriticalSection[1] := 0
-END InitializeCriticalSection;
-
-
-PROCEDURE __NEW (size: INTEGER): INTEGER;
-VAR
-    res, idx, temp: INTEGER;
-BEGIN
-    IF size <= MAX_SIZE THEN
-        idx := ASR(size, 5);
-        res := pockets[idx];
-        IF res # 0 THEN
-            SYSTEM.GET(res, pockets[idx]);
-            SYSTEM.PUT(res, size);
-            INC(res, 4)
-        ELSE
-            temp := 0;
-            IF heap + size >= endheap THEN
-                IF K.sysfunc2(18, 16) > ASR(HEAP_SIZE, 10) THEN
-                    temp := K.sysfunc3(68, 12, HEAP_SIZE)
-                ELSE
-                    temp := 0
-                END;
-                IF temp # 0 THEN
-                    mem_commit(temp, HEAP_SIZE);
-                    heap := temp;
-                    endheap := heap + HEAP_SIZE
-                ELSE
-                    temp := -1
-                END
-            END;
-            IF (heap # 0) & (temp # -1) THEN
-                SYSTEM.PUT(heap, size);
-                res := heap + 4;
-                heap := heap + size
-            ELSE
-                res := 0
-            END
-        END
-    ELSE
-        IF K.sysfunc2(18, 16) > ASR(size, 10) THEN
-            res := K.sysfunc3(68, 12, size);
-            IF res # 0 THEN
-                mem_commit(res, size);
-                SYSTEM.PUT(res, size);
-                INC(res, 4)
-            END
-        ELSE
-            res := 0
-        END
-    END;
-    IF (res # 0) & (size <= MAX_SIZE) THEN
-        zeromem(ASR(size, 2) - 1, res)
-    END
-    RETURN res
-END __NEW;
-
-
-PROCEDURE __DISPOSE (ptr: INTEGER): INTEGER;
-VAR
-    size, idx: INTEGER;
-BEGIN
-    DEC(ptr, 4);
-    SYSTEM.GET(ptr, size);
-    IF size <= MAX_SIZE THEN
-        idx := ASR(size, 5);
-        SYSTEM.PUT(ptr, pockets[idx]);
-        pockets[idx] := ptr
-    ELSE
-        size := K.sysfunc3(68, 13, ptr)
-    END
-    RETURN 0
-END __DISPOSE;
-
-
-PROCEDURE NEW_DISPOSE (func, arg: INTEGER): INTEGER;
-VAR
-    res: INTEGER;
-
-BEGIN
-    IF multi THEN
-        EnterCriticalSection(CriticalSection)
-    END;
-
-    IF func = _new THEN
-        res := __NEW(arg)
-    ELSIF func = _dispose THEN
-        res := __DISPOSE(arg)
-    END;
-
-    IF multi THEN
-        LeaveCriticalSection(CriticalSection)
-    END
-
-    RETURN res
-END NEW_DISPOSE;
-
-
-PROCEDURE _NEW* (size: INTEGER): INTEGER;
-    RETURN NEW_DISPOSE(_new, size)
-END _NEW;
-
-
-PROCEDURE _DISPOSE* (ptr: INTEGER): INTEGER;
-    RETURN NEW_DISPOSE(_dispose, ptr)
-END _DISPOSE;
-
-
-PROCEDURE exit* (p1: INTEGER);
-BEGIN
-    K.sysfunc1(-1)
-END exit;
-
-
-PROCEDURE exit_thread* (p1: INTEGER);
-BEGIN
-    K.sysfunc1(-1)
-END exit_thread;
-
-
-PROCEDURE OutStr (pchar: INTEGER);
-VAR
-    c: CHAR;
-BEGIN
-    IF pchar # 0 THEN
-        REPEAT
-            SYSTEM.GET(pchar, c);
-            IF c # 0X THEN
-                K.OutChar(c)
-            END;
-            INC(pchar)
-        UNTIL c = 0X
-    END
-END OutStr;
-
-
-PROCEDURE DebugMsg* (lpText, lpCaption: INTEGER);
-BEGIN
-    IF lpCaption # 0 THEN
-        K.OutLn;
-        OutStr(lpCaption);
-        K.OutChar(":");
-        K.OutLn
-    END;
-    OutStr(lpText);
-    IF lpCaption # 0 THEN
-        K.OutLn
-    END
-END DebugMsg;
-
-
-PROCEDURE init* (import_, code: INTEGER);
-BEGIN
-    multi := FALSE;
-    base := code - SizeOfHeader;
-    K.sysfunc2(68, 11);
-    InitializeCriticalSection(CriticalSection);
-    K._init(import_)
-END init;
-
-
-PROCEDURE SetMultiThr* (value: BOOLEAN);
-BEGIN
-    multi := value
-END SetMultiThr;
-
-
-PROCEDURE GetTickCount* (): INTEGER;
-    RETURN K.sysfunc2(26, 9) * 10
-END GetTickCount;
-
-
-PROCEDURE dllentry* (hinstDLL, fdwReason, lpvReserved: INTEGER): INTEGER;
-    RETURN 0
-END dllentry;
-
-
-PROCEDURE sofinit*;
-END sofinit;
-
-
-END API.
--- a/programs/develop/oberon07/lib/KolibriOS/Args.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/Args.ob07
@@ -1,100 +0,0 @@
-(*
-    Copyright 2016, 2018 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE Args;
-
-IMPORT sys := SYSTEM, KOSAPI;
-
-CONST
-
-  MAX_PARAM = 1024;
-
-VAR
-
-  Params: ARRAY MAX_PARAM, 2 OF INTEGER;
-  argc*: INTEGER;
-
-PROCEDURE GetChar(adr: INTEGER): CHAR;
-VAR res: CHAR;
-BEGIN
-  sys.GET(adr, res)
-  RETURN res
-END GetChar;
-
-PROCEDURE ParamParse;
-VAR p, count, name: INTEGER; c: CHAR; cond: INTEGER;
-
-  PROCEDURE ChangeCond(A, B, C: INTEGER; c: CHAR; VAR cond: INTEGER);
-  BEGIN
-    IF (c <= 20X) & (c # 0X) THEN
-      cond := A
-    ELSIF c = 22X THEN
-      cond := B
-    ELSIF c = 0X THEN
-      cond := 6
-    ELSE
-      cond := C
-    END
-  END ChangeCond;
-
-BEGIN
-  p := KOSAPI.GetCommandLine();
-  name := KOSAPI.GetName();
-  Params[0, 0] := name;
-  WHILE GetChar(name) # 0X DO
-    INC(name)
-  END;
-  Params[0, 1] := name - 1;
-  cond := 0;
-  count := 1;
-  WHILE (argc < MAX_PARAM) & (cond # 6) DO
-    c := GetChar(p);
-    CASE cond OF
-    |0: ChangeCond(0, 4, 1, c, cond); IF cond = 1 THEN Params[count, 0] := p END
-    |1: ChangeCond(0, 3, 1, c, cond); IF cond IN {0, 6} THEN Params[count, 1] := p - 1; INC(count) END
-    |3: ChangeCond(3, 1, 3, c, cond); IF cond = 6 THEN Params[count, 1] := p - 1; INC(count) END
-    |4: ChangeCond(5, 0, 5, c, cond); IF cond = 5 THEN Params[count, 0] := p END
-    |5: ChangeCond(5, 1, 5, c, cond); IF cond = 6 THEN Params[count, 1] := p - 1; INC(count) END
-    ELSE
-    END;
-    INC(p)
-  END;
-  argc := count
-END ParamParse;
-
-PROCEDURE GetArg*(n: INTEGER; VAR s: ARRAY OF CHAR);
-VAR i, j, len: INTEGER; c: CHAR;
-BEGIN
-  j := 0;
-  IF n < argc THEN
-    len := LEN(s) - 1;
-    i := Params[n, 0];
-    WHILE (j < len) & (i <= Params[n, 1]) DO
-      c := GetChar(i);
-      IF c # 22X THEN
-        s[j] := c;
-        INC(j)
-      END;
-      INC(i);
-    END;
-  END;
-  s[j] := 0X
-END GetArg;
-
-BEGIN
-  ParamParse
-END Args.
--- a/programs/develop/oberon07/lib/KolibriOS/ColorDlg.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/ColorDlg.ob07
@@ -1,105 +0,0 @@
-(*
-    Copyright 2016, 2018, 2020, 2022 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE ColorDlg;
-
-IMPORT sys := SYSTEM, KOSAPI;
-
-TYPE
-
-  DRAW_WINDOW = PROCEDURE;
-
-  TDialog = RECORD
-    _type,
-    procinfo,
-    com_area_name,
-    com_area,
-    start_path: INTEGER;
-    draw_window: DRAW_WINDOW;
-    status*,
-    X, Y,
-    color_type,
-    color*: INTEGER;
-
-    procinf: ARRAY 1024 OF CHAR;
-    s_com_area_name: ARRAY 32 OF CHAR
-  END;
-
-  Dialog* = POINTER TO TDialog;
-
-VAR
-
-  Dialog_start, Dialog_init: PROCEDURE [stdcall] (cd: Dialog);
-
-PROCEDURE Show*(cd: Dialog);
-BEGIN
-  IF cd # NIL THEN
-    cd.X := 0;
-    cd.Y := 0;
-    Dialog_start(cd)
-  END
-END Show;
-
-PROCEDURE Create*(draw_window: DRAW_WINDOW): Dialog;
-VAR res: Dialog;
-BEGIN
-  NEW(res);
-  IF res # NIL THEN
-    res.s_com_area_name := "FFFFFFFF_color_dlg";
-    res.com_area := 0;
-    res._type := 0;
-    res.color_type := 0;
-    res.procinfo := sys.ADR(res.procinf[0]);
-    res.com_area_name := sys.ADR(res.s_com_area_name[0]);
-    res.start_path := sys.SADR("/sys/colrdial");
-    res.draw_window := draw_window;
-    res.status := 0;
-    res.X := 0;
-    res.Y := 0;
-    res.color := 0;
-    Dialog_init(res)
-  END
-  RETURN res
-END Create;
-
-PROCEDURE Destroy*(VAR cd: Dialog);
-BEGIN
-  IF cd # NIL THEN
-    DISPOSE(cd)
-  END
-END Destroy;
-
-PROCEDURE Load;
-VAR Lib: INTEGER;
-
-  PROCEDURE GetProc(Lib, v: INTEGER; name: ARRAY OF CHAR);
-  VAR a: INTEGER;
-  BEGIN
-    a := KOSAPI.GetProcAdr(name, Lib);
-    ASSERT(a # 0);
-    sys.PUT(v, a)
-  END GetProc;
-
-BEGIN
-  Lib := KOSAPI.LoadLib("/sys/Lib/Proc_lib.obj");
-  GetProc(Lib, sys.ADR(Dialog_init), "ColorDialog_init");
-  GetProc(Lib, sys.ADR(Dialog_start), "ColorDialog_start");
-END Load;
-
-BEGIN
-  Load
-END ColorDlg.
--- a/programs/develop/oberon07/lib/KolibriOS/Console.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/Console.ob07
@@ -1,94 +0,0 @@
-(*
-    Copyright 2016, 2018 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE Console;
-
-IMPORT ConsoleLib, In, Out;
-
-
-CONST
-
-    Black* = 0;      Blue* = 1;           Green* = 2;        Cyan* = 3;
-    Red* = 4;        Magenta* = 5;        Brown* = 6;        LightGray* = 7;
-    DarkGray* = 8;   LightBlue* = 9;      LightGreen* = 10;  LightCyan* = 11;
-    LightRed* = 12;  LightMagenta* = 13;  Yellow* = 14;      White* = 15;
-
-
-PROCEDURE SetCursor* (X, Y: INTEGER);
-BEGIN
-    ConsoleLib.set_cursor_pos(X, Y)
-END SetCursor;
-
-
-PROCEDURE GetCursor* (VAR X, Y: INTEGER);
-BEGIN
-    ConsoleLib.get_cursor_pos(X, Y)
-END GetCursor;
-
-
-PROCEDURE Cls*;
-BEGIN
-    ConsoleLib.cls
-END Cls;
-
-
-PROCEDURE SetColor* (FColor, BColor: INTEGER);
-VAR
-    res: INTEGER;
-
-BEGIN
-    IF (FColor IN {0..15}) & (BColor IN {0..15}) THEN
-        res := ConsoleLib.set_flags(LSL(BColor, 4) + FColor)
-    END
-END SetColor;
-
-
-PROCEDURE GetCursorX* (): INTEGER;
-VAR
-    x, y: INTEGER;
-
-BEGIN
-    ConsoleLib.get_cursor_pos(x, y)
-    RETURN x
-END GetCursorX;
-
-
-PROCEDURE GetCursorY* (): INTEGER;
-VAR
-    x, y: INTEGER;
-
-BEGIN
-    ConsoleLib.get_cursor_pos(x, y)
-    RETURN y
-END GetCursorY;
-
-
-PROCEDURE open*;
-BEGIN
-    ConsoleLib.open(-1, -1, -1, -1, "");
-    In.Open;
-    Out.Open
-END open;
-
-
-PROCEDURE exit* (bCloseWindow: BOOLEAN);
-BEGIN
-    ConsoleLib.exit(bCloseWindow)
-END exit;
-
-
-END Console.
--- a/programs/develop/oberon07/lib/KolibriOS/ConsoleLib.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/ConsoleLib.ob07
@@ -1,103 +0,0 @@
-(*
-    Copyright 2016, 2018, 2022 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE ConsoleLib;
-
-IMPORT sys := SYSTEM, KOSAPI;
-
-CONST
-
-    COLOR_BLUE*      = 001H;
-    COLOR_GREEN*     = 002H;
-    COLOR_RED*       = 004H;
-    COLOR_BRIGHT*    = 008H;
-    BGR_BLUE*        = 010H;
-    BGR_GREEN*       = 020H;
-    BGR_RED*         = 040H;
-    BGR_BRIGHT*      = 080H;
-    IGNORE_SPECIALS* = 100H;
-    WINDOW_CLOSED*   = 200H;
-
-TYPE
-
-    gets2_callback* = PROCEDURE [stdcall] (keycode: INTEGER; pstr: INTEGER; VAR n, pos: INTEGER);
-
-VAR
-
-    version*           : INTEGER;
-    init*              : PROCEDURE [stdcall] (wnd_width, wnd_height, scr_width, scr_height, title: INTEGER);
-    exit*              : PROCEDURE [stdcall] (bCloseWindow: BOOLEAN);
-    write_asciiz*      : PROCEDURE [stdcall] (string: INTEGER);
-    write_string*      : PROCEDURE [stdcall] (string, length: INTEGER);
-    get_flags*         : PROCEDURE [stdcall] (): INTEGER;
-    set_flags*         : PROCEDURE [stdcall] (new_flags: INTEGER): INTEGER;
-    get_font_height*   : PROCEDURE [stdcall] (): INTEGER;
-    get_cursor_height* : PROCEDURE [stdcall] (): INTEGER;
-    set_cursor_height* : PROCEDURE [stdcall] (new_height: INTEGER): INTEGER;
-    getch*             : PROCEDURE [stdcall] (): INTEGER;
-    getch2*            : PROCEDURE [stdcall] (): INTEGER;
-    kbhit*             : PROCEDURE [stdcall] (): INTEGER;
-    gets*              : PROCEDURE [stdcall] (str, n: INTEGER): INTEGER;
-    gets2*             : PROCEDURE [stdcall] (callback: gets2_callback; str, n: INTEGER): INTEGER;
-    cls*               : PROCEDURE [stdcall] ();
-    get_cursor_pos*    : PROCEDURE [stdcall] (VAR x, y: INTEGER);
-    set_cursor_pos*    : PROCEDURE [stdcall] (x, y: INTEGER);
-    set_title*         : PROCEDURE [stdcall] (title: INTEGER);
-
-PROCEDURE open*(wnd_width, wnd_height, scr_width, scr_height: INTEGER; title: ARRAY OF CHAR);
-BEGIN
-  init(wnd_width, wnd_height, scr_width, scr_height, sys.ADR(title[0]))
-END open;
-
-PROCEDURE main;
-VAR Lib: INTEGER;
-
-  PROCEDURE GetProc(Lib, v: INTEGER; name: ARRAY OF CHAR);
-  VAR a: INTEGER;
-  BEGIN
-    a := KOSAPI.GetProcAdr(name, Lib);
-    ASSERT(a # 0);
-    sys.PUT(v, a)
-  END GetProc;
-
-BEGIN
-  Lib := KOSAPI.LoadLib("/sys/lib/Console.obj");
-  ASSERT(Lib # 0);
-  GetProc(Lib, sys.ADR(version),           "version");
-  GetProc(Lib, sys.ADR(init),              "con_init");
-  GetProc(Lib, sys.ADR(exit),              "con_exit");
-  GetProc(Lib, sys.ADR(write_asciiz),      "con_write_asciiz");
-  GetProc(Lib, sys.ADR(write_string),      "con_write_string");
-  GetProc(Lib, sys.ADR(get_flags),         "con_get_flags");
-  GetProc(Lib, sys.ADR(set_flags),         "con_set_flags");
-  GetProc(Lib, sys.ADR(get_font_height),   "con_get_font_height");
-  GetProc(Lib, sys.ADR(get_cursor_height), "con_get_cursor_height");
-  GetProc(Lib, sys.ADR(set_cursor_height), "con_set_cursor_height");
-  GetProc(Lib, sys.ADR(getch),             "con_getch");
-  GetProc(Lib, sys.ADR(getch2),            "con_getch2");
-  GetProc(Lib, sys.ADR(kbhit),             "con_kbhit");
-  GetProc(Lib, sys.ADR(gets),              "con_gets");
-  GetProc(Lib, sys.ADR(gets2),             "con_gets2");
-  GetProc(Lib, sys.ADR(cls),               "con_cls");
-  GetProc(Lib, sys.ADR(get_cursor_pos),    "con_get_cursor_pos");
-  GetProc(Lib, sys.ADR(set_cursor_pos),    "con_set_cursor_pos");
-  GetProc(Lib, sys.ADR(set_title),         "con_set_title");
-END main;
-
-BEGIN
-  main
-END ConsoleLib.
--- a/programs/develop/oberon07/lib/KolibriOS/DateTime.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/DateTime.ob07
@@ -1,141 +0,0 @@
-(*
-    Copyright 2016, 2018 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE DateTime;
-
-IMPORT KOSAPI;
-
-CONST ERR* = -7.0E5;
-
-PROCEDURE Encode*(Year, Month, Day, Hour, Min, Sec: INTEGER): REAL;
-VAR d, i: INTEGER; M: ARRAY 14 OF CHAR; Res: REAL;
-BEGIN
-  Res := ERR;
-  IF (Year >= 1) & (Year <= 9999) & (Month >= 1) & (Month <= 12) &
-    (Day >= 1) & (Day <= 31) & (Hour >= 0) & (Hour <= 23) &
-    (Min >= 0) & (Min <= 59) & (Sec >= 0) & (Sec <= 59) THEN
-    M := "_303232332323";
-    IF (Year MOD 4 = 0) & (Year MOD 100 # 0) OR (Year MOD 400 = 0) THEN
-      M[2] := "1"
-    END;
-    IF Day <= ORD(M[Month]) - ORD("0") + 28 THEN
-      DEC(Year);
-      d := Year * 365 + (Year DIV 4) - (Year DIV 100) + (Year DIV 400) + Day - 693594;
-      FOR i := 1 TO Month - 1 DO
-        d := d + ORD(M[i]) - ORD("0") + 28
-      END;
-      Res := FLT(d) + FLT(Hour * 3600000 + Min * 60000 + Sec * 1000) / 86400000.0
-    END
-  END
-  RETURN Res
-END Encode;
-
-PROCEDURE Decode*(Date: REAL; VAR Year, Month, Day, Hour, Min, Sec: INTEGER): BOOLEAN;
-VAR Res, flag: BOOLEAN; d, t, i: INTEGER; M: ARRAY 14 OF CHAR;
-
-  PROCEDURE MonthDay(n: INTEGER; VAR d, Month: INTEGER; M: ARRAY OF CHAR): BOOLEAN;
-  VAR Res: BOOLEAN;
-  BEGIN
-    Res := FALSE;
-    IF d > ORD(M[n]) - ORD("0") + 28 THEN
-      d := d - ORD(M[n]) + ORD("0") - 28;
-      INC(Month);
-      Res := TRUE
-    END
-    RETURN Res
-  END MonthDay;
-
-BEGIN
-  IF (Date >= -693593.0) & (Date < 2958466.0) THEN
-    d := FLOOR(Date);
-    t := FLOOR((Date - FLT(d)) * 86400000.0);
-    d := d + 693593;
-    Year := 1;
-    Month := 1;
-    WHILE d > 0 DO
-      d := d - 365 - ORD((Year MOD 4 = 0) & (Year MOD 100 # 0) OR (Year MOD 400 = 0));
-      INC(Year)
-    END;
-    IF d < 0 THEN
-      DEC(Year);
-      d := d + 365 + ORD((Year MOD 4 = 0) & (Year MOD 100 # 0) OR (Year MOD 400 = 0))
-    END;
-    INC(d);
-    M := "_303232332323";
-    IF (Year MOD 4 = 0) & (Year MOD 100 # 0) OR (Year MOD 400 = 0) THEN
-      M[2] := "1"
-    END;
-    i := 1;
-    flag := TRUE;
-    WHILE flag & (i <= 12) DO
-      flag := MonthDay(i, d, Month, M);
-      INC(i)
-    END;
-    Day := d;
-    Hour := t DIV 3600000;
-    t := t MOD 3600000;
-    Min := t DIV 60000;
-    t := t MOD 60000;
-    Sec := t DIV 1000;
-    Res := TRUE
-  ELSE
-    Res := FALSE
-  END
-  RETURN Res
-END Decode;
-
-PROCEDURE Now*(VAR Year, Month, Day, Hour, Min, Sec, Msec: INTEGER);
-VAR date, time: INTEGER;
-BEGIN
-  date  := KOSAPI.sysfunc1(29);
-  time  := KOSAPI.sysfunc1(3);
-
-  Year  := date MOD 16;
-  date  := date DIV 16;
-  Year  := (date MOD 16) * 10 + Year;
-  date  := date DIV 16;
-
-  Month := date MOD 16;
-  date  := date DIV 16;
-  Month := (date MOD 16) * 10 + Month;
-  date  := date DIV 16;
-
-  Day := date MOD 16;
-  date  := date DIV 16;
-  Day := (date MOD 16) * 10 + Day;
-  date  := date DIV 16;
-
-  Hour  := time MOD 16;
-  time  := time DIV 16;
-  Hour  := (time MOD 16) * 10 + Hour;
-  time  := time DIV 16;
-
-  Min := time MOD 16;
-  time  := time DIV 16;
-  Min := (time MOD 16) * 10 + Min;
-  time  := time DIV 16;
-
-  Sec := time MOD 16;
-  time  := time DIV 16;
-  Sec := (time MOD 16) * 10 + Sec;
-  time  := time DIV 16;
-
-  Year := Year + 2000;
-  Msec := 0
-END Now;
-
-END DateTime.
--- a/programs/develop/oberon07/lib/KolibriOS/Debug.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/Debug.ob07
@@ -1,292 +0,0 @@
-(*
-    Copyright 2016, 2018, 2022 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE Debug;
-
-IMPORT KOSAPI, sys := SYSTEM;
-
-CONST
-
-  d = 1.0 - 5.0E-12;
-
-VAR
-
-  Realp: PROCEDURE (x: REAL; width: INTEGER);
-
-PROCEDURE Char*(c: CHAR);
-VAR res: INTEGER;
-BEGIN
-  res := KOSAPI.sysfunc3(63, 1, ORD(c))
-END Char;
-
-PROCEDURE String*(s: ARRAY OF CHAR);
-VAR n, i: INTEGER;
-BEGIN
-  n := LENGTH(s);
-  FOR i := 0 TO n - 1 DO
-    Char(s[i])
-  END
-END String;
-
-PROCEDURE WriteInt(x, n: INTEGER);
-VAR i: INTEGER; a: ARRAY 16 OF CHAR; neg: BOOLEAN;
-BEGIN
-  i := 0;
-  IF n < 1 THEN
-    n := 1
-  END;
-  IF x < 0 THEN
-    x := -x;
-    DEC(n);
-    neg := TRUE
-  END;
-  REPEAT
-    a[i] := CHR(x MOD 10 + ORD("0"));
-    x := x DIV 10;
-    INC(i)
-  UNTIL x = 0;
-  WHILE n > i DO
-    Char(" ");
-    DEC(n)
-  END;
-  IF neg THEN
-    Char("-")
-  END;
-  REPEAT
-    DEC(i);
-    Char(a[i])
-  UNTIL i = 0
-END WriteInt;
-
-PROCEDURE IsNan(AValue: REAL): BOOLEAN;
-VAR h, l: SET;
-BEGIN
-  sys.GET(sys.ADR(AValue), l);
-  sys.GET(sys.ADR(AValue) + 4, h)
-  RETURN (h * {20..30} = {20..30}) & ((h * {0..19} # {}) OR (l * {0..31} # {}))
-END IsNan;
-
-PROCEDURE IsInf(x: REAL): BOOLEAN;
-  RETURN ABS(x) = sys.INF()
-END IsInf;
-
-PROCEDURE Int*(x, width: INTEGER);
-VAR i: INTEGER;
-BEGIN
-  IF x # 80000000H THEN
-    WriteInt(x, width)
-  ELSE
-    FOR i := 12 TO width DO
-      Char(20X)
-    END;
-    String("-2147483648")
-  END
-END Int;
-
-PROCEDURE OutInf(x: REAL; width: INTEGER);
-VAR s: ARRAY 5 OF CHAR; i: INTEGER;
-BEGIN
-  IF IsNan(x) THEN
-    s := "Nan";
-    INC(width)
-  ELSIF IsInf(x) & (x > 0.0) THEN
-    s := "+Inf"
-  ELSIF IsInf(x) & (x < 0.0) THEN
-    s := "-Inf"
-  END;
-  FOR i := 1 TO width - 4 DO
-    Char(" ")
-  END;
-  String(s)
-END OutInf;
-
-PROCEDURE Ln*;
-BEGIN
-  Char(0DX);
-  Char(0AX)
-END Ln;
-
-PROCEDURE _FixReal(x: REAL; width, p: INTEGER);
-VAR e, len, i: INTEGER; y: REAL; minus: BOOLEAN;
-BEGIN
-  IF IsNan(x) OR IsInf(x) THEN
-    OutInf(x, width)
-  ELSIF p < 0 THEN
-    Realp(x, width)
-  ELSE
-    len := 0;
-    minus := FALSE;
-    IF x < 0.0 THEN
-      minus := TRUE;
-      INC(len);
-      x := ABS(x)
-    END;
-    e := 0;
-    WHILE x >= 10.0 DO
-      x := x / 10.0;
-      INC(e)
-    END;
-    IF e >= 0 THEN
-      len := len + e + p + 1;
-      IF x > 9.0 + d THEN
-        INC(len)
-      END;
-      IF p > 0 THEN
-        INC(len)
-      END
-    ELSE
-      len := len + p + 2
-    END;
-    FOR i := 1 TO width - len DO
-      Char(" ")
-    END;
-    IF minus THEN
-      Char("-")
-    END;
-    y := x;
-    WHILE (y < 1.0) & (y # 0.0) DO
-      y := y * 10.0;
-      DEC(e)
-    END;
-    IF e < 0 THEN
-      IF x - FLT(FLOOR(x)) > d THEN
-        Char("1");
-        x := 0.0
-      ELSE
-        Char("0");
-        x := x * 10.0
-      END
-    ELSE
-      WHILE e >= 0 DO
-        IF x - FLT(FLOOR(x)) > d THEN
-          IF x > 9.0 THEN
-            String("10")
-          ELSE
-            Char(CHR(FLOOR(x) + ORD("0") + 1))
-          END;
-          x := 0.0
-        ELSE
-          Char(CHR(FLOOR(x) + ORD("0")));
-          x := (x - FLT(FLOOR(x))) * 10.0
-        END;
-        DEC(e)
-      END
-    END;
-    IF p > 0 THEN
-      Char(".")
-    END;
-    WHILE p > 0 DO
-      IF x - FLT(FLOOR(x)) > d THEN
-        Char(CHR(FLOOR(x) + ORD("0") + 1));
-        x := 0.0
-      ELSE
-        Char(CHR(FLOOR(x) + ORD("0")));
-        x := (x - FLT(FLOOR(x))) * 10.0
-      END;
-      DEC(p)
-    END
-  END
-END _FixReal;
-
-PROCEDURE Real*(x: REAL; width: INTEGER);
-VAR e, n, i: INTEGER; minus: BOOLEAN;
-BEGIN
-  IF IsNan(x) OR IsInf(x) THEN
-    OutInf(x, width)
-  ELSE
-    e := 0;
-    n := 0;
-    IF width > 23 THEN
-      n := width - 23;
-      width := 23
-    ELSIF width < 9 THEN
-      width := 9
-    END;
-    width := width - 5;
-    IF x < 0.0 THEN
-      x := -x;
-      minus := TRUE
-    ELSE
-      minus := FALSE
-    END;
-    WHILE x >= 10.0 DO
-      x := x / 10.0;
-      INC(e)
-    END;
-    WHILE (x < 1.0) & (x # 0.0) DO
-      x := x * 10.0;
-      DEC(e)
-    END;
-    IF x > 9.0 + d THEN
-      x := 1.0;
-      INC(e)
-    END;
-    FOR i := 1 TO n DO
-      Char(" ")
-    END;
-    IF minus THEN
-      x := -x
-    END;
-    Realp := Real;
-    _FixReal(x, width, width - 3);
-    Char("E");
-    IF e >= 0 THEN
-      Char("+")
-    ELSE
-      Char("-");
-      e := ABS(e)
-    END;
-    IF e < 100 THEN
-      Char("0")
-    END;
-    IF e < 10 THEN
-      Char("0")
-    END;
-    Int(e, 0)
-  END
-END Real;
-
-PROCEDURE FixReal*(x: REAL; width, p: INTEGER);
-BEGIN
-  Realp := Real;
-  _FixReal(x, width, p)
-END FixReal;
-
-PROCEDURE Open*;
-TYPE
-
-  info_struct = RECORD
-    subfunc: INTEGER;
-    flags:   INTEGER;
-    param:   INTEGER;
-    rsrvd1:  INTEGER;
-    rsrvd2:  INTEGER;
-    fname:   ARRAY 1024 OF CHAR
-  END;
-
-VAR info: info_struct; res: INTEGER;
-BEGIN
-  info.subfunc := 7;
-  info.flags := 0;
-  info.param := sys.SADR(" ");
-  info.rsrvd1 := 0;
-  info.rsrvd2 := 0;
-  info.fname := "/sys/develop/board";
-  res := KOSAPI.sysfunc2(70, sys.ADR(info))
-END Open;
-
-END Debug.
--- a/programs/develop/oberon07/lib/KolibriOS/File.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/File.ob07
@@ -1,330 +0,0 @@
-(*
-    Copyright 2016, 2018, 2021 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE File;
-
-IMPORT sys := SYSTEM, KOSAPI;
-
-
-CONST
-
-    SEEK_BEG* = 0; SEEK_CUR* = 1; SEEK_END* = 2;
-
-
-TYPE
-
-    FNAME* = ARRAY 520 OF CHAR;
-
-    FS* = POINTER TO rFS;
-
-    rFS* = RECORD
-        subfunc*, pos*, hpos*, bytes*, buffer*: INTEGER;
-        name*: FNAME
-    END;
-
-    FD* = POINTER TO rFD;
-
-    rFD* = RECORD
-        attr*: INTEGER;
-        ntyp*: CHAR;
-        reserved: ARRAY 3 OF CHAR;
-        time_create*, date_create*,
-        time_access*, date_access*,
-        time_modif*,  date_modif*,
-        size*, hsize*: INTEGER;
-        name*: FNAME
-    END;
-
-
-PROCEDURE [stdcall] f_68_27 (file_name: INTEGER; VAR size: INTEGER): INTEGER;
-BEGIN
-    sys.CODE(
-    053H,               (*  push    ebx                    *)
-    06AH, 044H,         (*  push    68                     *)
-    058H,               (*  pop     eax                    *)
-    06AH, 01BH,         (*  push    27                     *)
-    05BH,               (*  pop     ebx                    *)
-    08BH, 04DH, 008H,   (*  mov     ecx, dword [ebp +  8]  *)
-    0CDH, 040H,         (*  int     64                     *)
-    08BH, 04DH, 00CH,   (*  mov     ecx, dword [ebp + 12]  *)
-    089H, 011H,         (*  mov     dword [ecx], edx       *)
-    05BH,               (*  pop     ebx                    *)
-    0C9H,               (*  leave                          *)
-    0C2H, 008H, 000H    (*  ret     8                      *)
-    )
-    RETURN 0
-END f_68_27;
-
-
-PROCEDURE Load* (FName: ARRAY OF CHAR; VAR size: INTEGER): INTEGER;
-    RETURN f_68_27(sys.ADR(FName[0]), size)
-END Load;
-
-
-PROCEDURE GetFileInfo* (FName: ARRAY OF CHAR; VAR Info: rFD): BOOLEAN;
-VAR
-    res2: INTEGER; fs: rFS;
-
-BEGIN
-    fs.subfunc := 5;
-    fs.pos     := 0;
-    fs.hpos    := 0;
-    fs.bytes   := 0;
-    fs.buffer  := sys.ADR(Info);
-    COPY(FName, fs.name)
-
-    RETURN KOSAPI.sysfunc22(70, sys.ADR(fs), res2) = 0
-END GetFileInfo;
-
-
-PROCEDURE FileSize* (FName: ARRAY OF CHAR): INTEGER;
-VAR
-    Info: rFD;
-    res: INTEGER;
-BEGIN
-    IF GetFileInfo(FName, Info) THEN
-        res := Info.size
-    ELSE
-        res := -1
-    END
-    RETURN res
-END FileSize;
-
-
-PROCEDURE Exists* (FName: ARRAY OF CHAR): BOOLEAN;
-VAR
-    fd: rFD;
-BEGIN
-    RETURN GetFileInfo(FName, fd) & ~(4 IN BITS(fd.attr))
-END Exists;
-
-
-PROCEDURE Close* (VAR F: FS);
-BEGIN
-    IF F # NIL THEN
-        DISPOSE(F)
-    END
-END Close;
-
-
-PROCEDURE Open* (FName: ARRAY OF CHAR): FS;
-VAR
-    F: FS;
-
-BEGIN
-
-    IF Exists(FName) THEN
-        NEW(F);
-        IF F # NIL THEN
-            F.subfunc := 0;
-            F.pos     := 0;
-            F.hpos    := 0;
-            F.bytes   := 0;
-            F.buffer  := 0;
-            COPY(FName, F.name)
-        END
-    ELSE
-        F := NIL
-    END
-
-    RETURN F
-END Open;
-
-
-PROCEDURE Delete* (FName: ARRAY OF CHAR): BOOLEAN;
-VAR
-    F: FS;
-    res, res2: INTEGER;
-
-BEGIN
-
-    IF Exists(FName) THEN
-        NEW(F);
-        IF F # NIL THEN
-            F.subfunc := 8;
-            F.pos     := 0;
-            F.hpos    := 0;
-            F.bytes   := 0;
-            F.buffer  := 0;
-            COPY(FName, F.name);
-            res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
-            DISPOSE(F)
-        ELSE
-            res := -1
-        END
-    ELSE
-        res := -1
-    END
-
-    RETURN res = 0
-END Delete;
-
-
-PROCEDURE Seek* (F: FS; Offset, Origin: INTEGER): INTEGER;
-VAR
-    res: INTEGER;
-    fd: rFD;
-
-BEGIN
-
-    IF (F # NIL) & GetFileInfo(F.name, fd) & (BITS(fd.attr) * {4} = {}) THEN
-        CASE Origin OF
-        |SEEK_BEG: F.pos := Offset
-        |SEEK_CUR: F.pos := F.pos + Offset
-        |SEEK_END: F.pos := fd.size + Offset
-        ELSE
-        END;
-        res := F.pos
-    ELSE
-        res := -1
-    END
-
-    RETURN res
-END Seek;
-
-
-PROCEDURE Read* (F: FS; Buffer, Count: INTEGER): INTEGER;
-VAR
-    res, res2: INTEGER;
-
-BEGIN
-
-    IF F # NIL THEN
-        F.subfunc := 0;
-        F.bytes   := Count;
-        F.buffer  := Buffer;
-        res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
-        IF res2 > 0 THEN
-            F.pos := F.pos + res2
-        END
-    ELSE
-        res2 := 0
-    END
-
-    RETURN res2
-END Read;
-
-
-PROCEDURE Write* (F: FS; Buffer, Count: INTEGER): INTEGER;
-VAR
-    res, res2: INTEGER;
-
-BEGIN
-
-    IF F # NIL THEN
-        F.subfunc := 3;
-        F.bytes   := Count;
-        F.buffer  := Buffer;
-        res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
-        IF res2 > 0 THEN
-            F.pos := F.pos + res2
-        END
-    ELSE
-        res2 := 0
-    END
-
-    RETURN res2
-END Write;
-
-
-PROCEDURE Create* (FName: ARRAY OF CHAR): FS;
-VAR
-    F: FS;
-    res2: INTEGER;
-
-BEGIN
-    NEW(F);
-
-    IF F # NIL THEN
-        F.subfunc := 2;
-        F.pos     := 0;
-        F.hpos    := 0;
-        F.bytes   := 0;
-        F.buffer  := 0;
-        COPY(FName, F.name);
-        IF KOSAPI.sysfunc22(70, sys.ADR(F^), res2) # 0 THEN
-            DISPOSE(F)
-        END
-    END
-
-    RETURN F
-END Create;
-
-
-PROCEDURE DirExists* (FName: ARRAY OF CHAR): BOOLEAN;
-VAR
-    fd: rFD;
-BEGIN
-    RETURN GetFileInfo(FName, fd) & (4 IN BITS(fd.attr))
-END DirExists;
-
-
-PROCEDURE CreateDir* (DirName: ARRAY OF CHAR): BOOLEAN;
-VAR
-    F: FS;
-    res, res2: INTEGER;
-
-BEGIN
-    NEW(F);
-
-    IF F # NIL THEN
-        F.subfunc := 9;
-        F.pos     := 0;
-        F.hpos    := 0;
-        F.bytes   := 0;
-        F.buffer  := 0;
-        COPY(DirName, F.name);
-        res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
-        DISPOSE(F)
-    ELSE
-        res := -1
-    END
-
-    RETURN res = 0
-END CreateDir;
-
-
-PROCEDURE DeleteDir* (DirName: ARRAY OF CHAR): BOOLEAN;
-VAR
-    F: FS;
-    res, res2: INTEGER;
-
-BEGIN
-
-    IF DirExists(DirName) THEN
-        NEW(F);
-        IF F # NIL THEN
-            F.subfunc := 8;
-            F.pos := 0;
-            F.hpos := 0;
-            F.bytes := 0;
-            F.buffer := 0;
-            COPY(DirName, F.name);
-            res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
-            DISPOSE(F)
-        ELSE
-            res := -1
-        END
-    ELSE
-        res := -1
-    END
-
-    RETURN res = 0
-END DeleteDir;
-
-
-END File.
--- a/programs/develop/oberon07/lib/KolibriOS/HOST.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/HOST.ob07
@@ -1,553 +0,0 @@
-(*
-    BSD 2-Clause License
-
-    Copyright (c) 2018-2022, Anton Krotov
-    All rights reserved.
-*)
-
-MODULE HOST;
-
-IMPORT SYSTEM, K := KOSAPI, API;
-
-
-CONST
-
-    slash* = "/";
-    eol* = 0DX + 0AX;
-
-    bit_depth* = API.BIT_DEPTH;
-    maxint* = ROR(-2, 1);
-    minint* = ROR(1, 1);
-
-    MAX_PARAM = 1024;
-
-
-TYPE
-
-    DAYS = ARRAY 12, 31, 2 OF INTEGER;
-
-    FNAME = ARRAY 520 OF CHAR;
-
-    FS = POINTER TO rFS;
-
-    rFS = RECORD
-        subfunc, pos, hpos, bytes, buffer: INTEGER;
-        name: FNAME
-    END;
-
-    FD = POINTER TO rFD;
-
-    rFD = RECORD
-        attr: INTEGER;
-        ntyp: CHAR;
-        reserved: ARRAY 3 OF CHAR;
-        time_create, date_create,
-        time_access, date_access,
-        time_modif,  date_modif,
-        size, hsize: INTEGER;
-        name: FNAME
-    END;
-
-
-VAR
-
-
-    Console: BOOLEAN;
-
-    days: DAYS;
-
-    Params: ARRAY MAX_PARAM, 2 OF INTEGER;
-    argc*: INTEGER;
-
-    maxreal*, inf*: REAL;
-
-
-PROCEDURE [stdcall, "Console.obj", "con_init"] con_init (wnd_width, wnd_height, scr_width, scr_height, title: INTEGER);
-
-PROCEDURE [stdcall, "Console.obj", "con_exit"] con_exit (bCloseWindow: BOOLEAN);
-
-PROCEDURE [stdcall, "Console.obj", "con_write_string"] con_write_string (string, length: INTEGER);
-
-
-PROCEDURE ExitProcess* (p1: INTEGER);
-BEGIN
-    IF Console THEN
-        con_exit(FALSE)
-    END;
-    K.sysfunc1(-1)
-END ExitProcess;
-
-
-PROCEDURE OutChar* (c: CHAR);
-BEGIN
-    IF Console THEN
-        con_write_string(SYSTEM.ADR(c), 1)
-    ELSE
-        K.sysfunc3(63, 1, ORD(c))
-    END
-END OutChar;
-
-
-PROCEDURE GetFileInfo (FName: ARRAY OF CHAR; VAR Info: rFD): BOOLEAN;
-VAR
-    res2: INTEGER;
-    fs:   rFS;
-
-BEGIN
-    fs.subfunc := 5;
-    fs.pos := 0;
-    fs.hpos := 0;
-    fs.bytes := 0;
-    fs.buffer := SYSTEM.ADR(Info);
-    COPY(FName, fs.name)
-    RETURN K.sysfunc22(70, SYSTEM.ADR(fs), res2) = 0
-END GetFileInfo;
-
-
-PROCEDURE Exists (FName: ARRAY OF CHAR): BOOLEAN;
-VAR
-    fd: rFD;
-
-BEGIN
-    RETURN GetFileInfo(FName, fd) & ~(4 IN BITS(fd.attr))
-END Exists;
-
-
-PROCEDURE Close (VAR F: FS);
-BEGIN
-    IF F # NIL THEN
-        DISPOSE(F)
-    END
-END Close;
-
-
-PROCEDURE Open (FName: ARRAY OF CHAR): FS;
-VAR
-    F: FS;
-
-BEGIN
-    IF Exists(FName) THEN
-        NEW(F);
-        IF F # NIL THEN
-            F.subfunc := 0;
-            F.pos := 0;
-            F.hpos := 0;
-            F.bytes := 0;
-            F.buffer := 0;
-            COPY(FName, F.name)
-        END
-    ELSE
-        F := NIL
-    END
-
-    RETURN F
-END Open;
-
-
-PROCEDURE Read (F: FS; Buffer, Count: INTEGER): INTEGER;
-VAR
-    res, res2: INTEGER;
-
-BEGIN
-    IF F # NIL THEN
-        F.subfunc := 0;
-        F.bytes := Count;
-        F.buffer := Buffer;
-        res := K.sysfunc22(70, SYSTEM.ADR(F^), res2);
-        IF res2 > 0 THEN
-            F.pos := F.pos + res2
-        END
-    ELSE
-        res2 := 0
-    END
-
-    RETURN res2
-END Read;
-
-
-PROCEDURE Write (F: FS; Buffer, Count: INTEGER): INTEGER;
-VAR
-    res, res2: INTEGER;
-
-BEGIN
-    IF F # NIL THEN
-        F.subfunc := 3;
-        F.bytes := Count;
-        F.buffer := Buffer;
-        res := K.sysfunc22(70, SYSTEM.ADR(F^), res2);
-        IF res2 > 0 THEN
-            F.pos := F.pos + res2
-        END
-    ELSE
-        res2 := 0
-    END
-
-    RETURN res2
-END Write;
-
-
-PROCEDURE Create (FName: ARRAY OF CHAR): FS;
-VAR
-    F:    FS;
-    res2: INTEGER;
-
-BEGIN
-    NEW(F);
-    IF F # NIL THEN
-        F.subfunc := 2;
-        F.pos := 0;
-        F.hpos := 0;
-        F.bytes := 0;
-        F.buffer := 0;
-        COPY(FName, F.name);
-        IF K.sysfunc22(70, SYSTEM.ADR(F^), res2) # 0 THEN
-            DISPOSE(F)
-        END
-    END
-
-    RETURN F
-END Create;
-
-
-PROCEDURE FileRead* (F: INTEGER; VAR Buffer: ARRAY OF CHAR; bytes: INTEGER): INTEGER;
-VAR
-    n: INTEGER;
-    fs: FS;
-
-BEGIN
-    SYSTEM.GET(SYSTEM.ADR(F), fs);
-    n := Read(fs, SYSTEM.ADR(Buffer[0]), bytes);
-    IF n = 0 THEN
-        n := -1
-    END
-
-    RETURN n
-END FileRead;
-
-
-PROCEDURE FileWrite* (F: INTEGER; Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
-VAR
-    n: INTEGER;
-    fs: FS;
-
-BEGIN
-    SYSTEM.GET(SYSTEM.ADR(F), fs);
-    n := Write(fs, SYSTEM.ADR(Buffer[0]), bytes);
-    IF n = 0 THEN
-        n := -1
-    END
-
-    RETURN n
-END FileWrite;
-
-
-PROCEDURE FileCreate* (FName: ARRAY OF CHAR): INTEGER;
-VAR
-    fs: FS;
-    res: INTEGER;
-
-BEGIN
-    fs := Create(FName);
-    SYSTEM.GET(SYSTEM.ADR(fs), res)
-    RETURN res
-END FileCreate;
-
-
-PROCEDURE FileClose* (F: INTEGER);
-VAR
-    fs: FS;
-
-BEGIN
-    SYSTEM.GET(SYSTEM.ADR(F), fs);
-    Close(fs)
-END FileClose;
-
-
-PROCEDURE FileOpen* (FName: ARRAY OF CHAR): INTEGER;
-VAR
-    fs: FS;
-    res: INTEGER;
-
-BEGIN
-    fs := Open(FName);
-    SYSTEM.GET(SYSTEM.ADR(fs), res)
-    RETURN res
-END FileOpen;
-
-
-PROCEDURE chmod* (FName: ARRAY OF CHAR);
-END chmod;
-
-
-PROCEDURE GetTickCount* (): INTEGER;
-    RETURN K.sysfunc2(26, 9)
-END GetTickCount;
-
-
-PROCEDURE AppAdr (): INTEGER;
-VAR
-    buf: ARRAY 1024 OF CHAR;
-    a: INTEGER;
-
-BEGIN
-    a := K.sysfunc3(9, SYSTEM.ADR(buf), -1);
-    SYSTEM.GET(SYSTEM.ADR(buf) + 22, a)
-    RETURN a
-END AppAdr;
-
-
-PROCEDURE GetCommandLine (): INTEGER;
-VAR
-    param: INTEGER;
-
-BEGIN
-    SYSTEM.GET(28 + AppAdr(), param)
-    RETURN param
-END GetCommandLine;
-
-
-PROCEDURE GetName (): INTEGER;
-VAR
-    name: INTEGER;
-
-BEGIN
-    SYSTEM.GET(32 + AppAdr(), name)
-    RETURN name
-END GetName;
-
-
-PROCEDURE GetChar (adr: INTEGER): CHAR;
-VAR
-    res: CHAR;
-
-BEGIN
-    SYSTEM.GET(adr, res)
-    RETURN res
-END GetChar;
-
-
-PROCEDURE ParamParse;
-VAR
-    p, count, name, cond: INTEGER;
-    c: CHAR;
-
-
-    PROCEDURE ChangeCond (A, B, C: INTEGER; c: CHAR; VAR cond: INTEGER);
-    BEGIN
-        IF (c <= 20X) & (c # 0X) THEN
-            cond := A
-        ELSIF c = 22X THEN
-            cond := B
-        ELSIF c = 0X THEN
-            cond := 6
-        ELSE
-            cond := C
-        END
-    END ChangeCond;
-
-
-BEGIN
-    p := GetCommandLine();
-    name := GetName();
-    Params[0, 0] := name;
-    WHILE GetChar(name) # 0X DO
-        INC(name)
-    END;
-    Params[0, 1] := name - 1;
-    cond := 0;
-    count := 1;
-    WHILE (argc < MAX_PARAM) & (cond # 6) DO
-        c := GetChar(p);
-        CASE cond OF
-        |0: ChangeCond(0, 4, 1, c, cond); IF cond = 1 THEN Params[count, 0] := p END
-        |1: ChangeCond(0, 3, 1, c, cond); IF cond IN {0, 6} THEN Params[count, 1] := p - 1; INC(count) END
-        |3: ChangeCond(3, 1, 3, c, cond); IF cond = 6 THEN Params[count, 1] := p - 1; INC(count) END
-        |4: ChangeCond(5, 0, 5, c, cond); IF cond = 5 THEN Params[count, 0] := p END
-        |5: ChangeCond(5, 1, 5, c, cond); IF cond = 6 THEN Params[count, 1] := p - 1; INC(count) END
-        |6:
-        END;
-        INC(p)
-    END;
-    argc := count
-END ParamParse;
-
-
-PROCEDURE GetArg* (n: INTEGER; VAR s: ARRAY OF CHAR);
-VAR
-    i, j, len: INTEGER;
-    c: CHAR;
-
-BEGIN
-    j := 0;
-    IF n < argc THEN
-        len := LEN(s) - 1;
-        i := Params[n, 0];
-        WHILE (j < len) & (i <= Params[n, 1]) DO
-            c := GetChar(i);
-            IF c # 22X THEN
-                s[j] := c;
-                INC(j)
-            END;
-            INC(i)
-        END
-    END;
-    s[j] := 0X
-END GetArg;
-
-
-PROCEDURE GetCurrentDirectory* (VAR path: ARRAY OF CHAR);
-VAR
-    n: INTEGER;
-
-BEGIN
-    n := K.sysfunc4(30, 2, SYSTEM.ADR(path[0]), LEN(path) - 2);
-    path[n - 1] := slash;
-    path[n] := 0X
-END GetCurrentDirectory;
-
-
-PROCEDURE isRelative* (path: ARRAY OF CHAR): BOOLEAN;
-    RETURN path[0] # slash
-END isRelative;
-
-
-PROCEDURE UnixTime* (): INTEGER;
-VAR
-    date, time, year, month, day, hour, min, sec: INTEGER;
-
-BEGIN
-    date  := K.sysfunc1(29);
-    time  := K.sysfunc1(3);
-
-    year  := date MOD 16;
-    date  := date DIV 16;
-    year  := (date MOD 16) * 10 + year;
-    date  := date DIV 16;
-
-    month := date MOD 16;
-    date  := date DIV 16;
-    month := (date MOD 16) * 10 + month;
-    date  := date DIV 16;
-
-    day   := date MOD 16;
-    date  := date DIV 16;
-    day   := (date MOD 16) * 10 + day;
-    date  := date DIV 16;
-
-    hour  := time MOD 16;
-    time  := time DIV 16;
-    hour  := (time MOD 16) * 10 + hour;
-    time  := time DIV 16;
-
-    min   := time MOD 16;
-    time  := time DIV 16;
-    min   := (time MOD 16) * 10 + min;
-    time  := time DIV 16;
-
-    sec   := time MOD 16;
-    time  := time DIV 16;
-    sec   := (time MOD 16) * 10 + sec;
-    time  := time DIV 16;
-
-    INC(year, 2000)
-
-    RETURN ((year - 1970) * 365 + days[month - 1, day - 1, ORD(year DIV 4 = 0)] + (year - 1969) DIV 4) * 86400 + hour * 3600 + min * 60 + sec
-END UnixTime;
-
-
-PROCEDURE splitf* (x: REAL; VAR a, b: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.GET32(SYSTEM.ADR(x), a);
-    SYSTEM.GET32(SYSTEM.ADR(x) + 4, b)
-    RETURN a
-END splitf;
-
-
-PROCEDURE d2s* (x: REAL): INTEGER;
-VAR
-    h, l, s, e: INTEGER;
-
-BEGIN
-    e := splitf(x, l, h);
-
-    s := ASR(h, 31) MOD 2;
-    e := (h DIV 100000H) MOD 2048;
-    IF e <= 896 THEN
-        h := (h MOD 100000H) * 8 + (l DIV 20000000H) MOD 8 + 800000H;
-        REPEAT
-            h := h DIV 2;
-            INC(e)
-        UNTIL e = 897;
-        e := 896;
-        l := (h MOD 8) * 20000000H;
-        h := h DIV 8
-    ELSIF (1151 <= e) & (e < 2047) THEN
-        e := 1151;
-        h := 0;
-        l := 0
-    ELSIF e = 2047 THEN
-        e := 1151;
-        IF (h MOD 100000H # 0) OR (BITS(l) * {0..31} # {}) THEN
-            h := 80000H;
-            l := 0
-        END
-    END;
-    DEC(e, 896)
-
-    RETURN LSL(s, 31) + LSL(e, 23) + (h MOD 100000H) * 8 + (l DIV 20000000H) MOD 8
-END d2s;
-
-
-PROCEDURE init (VAR days: DAYS);
-VAR
-    i, j, n0, n1: INTEGER;
-
-BEGIN
-
-    FOR i := 0 TO 11 DO
-        FOR j := 0 TO 30 DO
-            days[i, j, 0] := 0;
-            days[i, j, 1] := 0;
-        END
-    END;
-
-    days[ 1, 28, 0] := -1;
-
-    FOR i := 0 TO 1 DO
-        days[ 1, 29, i] := -1;
-        days[ 1, 30, i] := -1;
-        days[ 3, 30, i] := -1;
-        days[ 5, 30, i] := -1;
-        days[ 8, 30, i] := -1;
-        days[10, 30, i] := -1;
-    END;
-
-    n0 := 0;
-    n1 := 0;
-    FOR i := 0 TO 11 DO
-        FOR j := 0 TO 30 DO
-            IF days[i, j, 0] = 0 THEN
-                days[i, j, 0] := n0;
-                INC(n0)
-            END;
-            IF days[i, j, 1] = 0 THEN
-                days[i, j, 1] := n1;
-                INC(n1)
-            END
-        END
-    END;
-
-    inf := SYSTEM.INF();
-    maxreal := 1.9;
-    PACK(maxreal, 1023);
-    Console := TRUE;
-    IF Console THEN
-        con_init(-1, -1, -1, -1, SYSTEM.SADR("Oberon-07 for KolibriOS"))
-    END;
-    ParamParse
-END init;
-
-
-BEGIN
-    init(days)
-END HOST.
--- a/programs/develop/oberon07/lib/KolibriOS/In.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/In.ob07
@@ -1,282 +0,0 @@
-(*
-    Copyright 2016, 2018 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE In;
-
-IMPORT sys := SYSTEM, ConsoleLib;
-
-TYPE
-
-  STRING = ARRAY 260 OF CHAR;
-
-VAR
-
-  Done* : BOOLEAN;
-
-PROCEDURE digit(ch: CHAR): BOOLEAN;
-  RETURN (ch >= "0") & (ch <= "9")
-END digit;
-
-PROCEDURE CheckInt(s: STRING; VAR first, last: INTEGER; VAR neg: BOOLEAN; Point: BOOLEAN): BOOLEAN;
-VAR i: INTEGER;
-BEGIN
-  i := 0;
-  neg := FALSE;
-  WHILE (s[i] <= 20X) & (s[i] # 0X) DO
-    INC(i)
-  END;
-  IF s[i] = "-" THEN
-    neg := TRUE;
-    INC(i)
-  ELSIF s[i] = "+" THEN
-    INC(i)
-  END;
-  first := i;
-  WHILE digit(s[i]) DO
-    INC(i)
-  END;
-  last := i
-  RETURN ((s[i] <= 20X) OR (Point & (s[i] = "."))) & digit(s[first])
-END CheckInt;
-
-PROCEDURE IsMinInt(str: STRING; pos: INTEGER): BOOLEAN;
-VAR i: INTEGER; min: STRING;
-BEGIN
-  i := 0;
-  min := "2147483648";
-  WHILE (min[i] # 0X) & (str[i] # 0X) & (min[i] = str[i + pos]) DO
-    INC(i)
-  END
-  RETURN i = 10
-END IsMinInt;
-
-PROCEDURE StrToInt(str: STRING; VAR err: BOOLEAN): INTEGER;
-CONST maxINT = 7FFFFFFFH;
-VAR i, n, res: INTEGER; flag, neg: BOOLEAN;
-BEGIN
-  res := 0;
-  flag := CheckInt(str, i, n, neg, FALSE);
-  err := ~flag;
-  IF flag & neg & IsMinInt(str, i) THEN
-    flag := FALSE;
-    neg := FALSE;
-    res := 80000000H
-  END;
-  WHILE flag & digit(str[i]) DO
-    IF res > maxINT DIV 10 THEN
-      err := TRUE;
-      flag := FALSE;
-      res := 0
-    ELSE
-      res := res * 10;
-      IF res > maxINT - (ORD(str[i]) - ORD("0")) THEN
-        err := TRUE;
-        flag := FALSE;
-        res := 0
-      ELSE
-        res := res + (ORD(str[i]) - ORD("0"));
-        INC(i)
-      END
-    END
-  END;
-  IF neg THEN
-    res := -res
-  END
-  RETURN res
-END StrToInt;
-
-PROCEDURE Space(s: STRING): BOOLEAN;
-VAR i: INTEGER;
-BEGIN
-  i := 0;
-  WHILE (s[i] # 0X) & (s[i] <= 20X) DO
-    INC(i)
-  END
-  RETURN s[i] = 0X
-END Space;
-
-PROCEDURE CheckReal(s: STRING; VAR n: INTEGER; VAR neg: BOOLEAN): BOOLEAN;
-VAR i: INTEGER; Res: BOOLEAN;
-BEGIN
-  Res := CheckInt(s, n, i, neg, TRUE);
-  IF Res THEN
-    IF s[i] = "." THEN
-      INC(i);
-      WHILE digit(s[i]) DO
-        INC(i)
-      END;
-      IF (s[i] = "D") OR (s[i] = "E") OR (s[i] = "d") OR (s[i] = "e") THEN
-        INC(i);
-        IF (s[i] = "+") OR (s[i] = "-") THEN
-          INC(i)
-        END;
-        Res := digit(s[i]);
-        WHILE digit(s[i]) DO
-          INC(i)
-        END
-      END
-    END
-  END
-  RETURN Res & (s[i] <= 20X)
-END CheckReal;
-
-PROCEDURE StrToFloat(str: STRING; VAR err: BOOLEAN): REAL;
-CONST maxDBL = 1.69E308; maxINT = 7FFFFFFFH;
-VAR i, scale: INTEGER; res, m, d: REAL; minus, neg: BOOLEAN;
-
-  PROCEDURE part1 (str: STRING; VAR res, d: REAL; VAR i: INTEGER): BOOLEAN;
-  BEGIN
-    res := 0.0;
-    d := 1.0;
-    WHILE digit(str[i]) DO
-      res := res * 10.0 + FLT(ORD(str[i]) - ORD("0"));
-      INC(i)
-    END;
-    IF str[i] = "." THEN
-      INC(i);
-      WHILE digit(str[i]) DO
-        d := d / 10.0;
-        res := res + FLT(ORD(str[i]) - ORD("0")) * d;
-        INC(i)
-      END
-    END
-    RETURN str[i] # 0X
-  END part1;
-
-  PROCEDURE part2 (str: STRING; VAR i, scale: INTEGER; VAR minus, err: BOOLEAN; VAR m, res: REAL): BOOLEAN;
-  BEGIN
-    INC(i);
-    m := 10.0;
-    minus := FALSE;
-    IF str[i] = "+" THEN
-      INC(i)
-    ELSIF str[i] = "-" THEN
-      minus := TRUE;
-      INC(i);
-      m := 0.1
-    END;
-    scale := 0;
-    err := FALSE;
-    WHILE ~err & digit(str[i]) DO
-      IF scale > maxINT DIV 10 THEN
-        err := TRUE;
-        res := 0.0
-      ELSE
-        scale := scale * 10;
-        IF scale > maxINT - (ORD(str[i]) - ORD("0")) THEN
-          err := TRUE;
-          res := 0.0
-        ELSE
-          scale := scale + (ORD(str[i]) - ORD("0"));
-          INC(i)
-        END
-      END
-    END
-    RETURN ~err
-  END part2;
-
-  PROCEDURE part3 (VAR err, minus: BOOLEAN; VAR res, m: REAL; VAR scale: INTEGER);
-  VAR i: INTEGER;
-  BEGIN
-    err := FALSE;
-    IF scale = maxINT THEN
-      err := TRUE;
-      res := 0.0
-    END;
-    i := 1;
-    WHILE ~err & (i <= scale) DO
-      IF ~minus & (res > maxDBL / m) THEN
-        err := TRUE;
-        res := 0.0
-      ELSE
-        res := res * m;
-        INC(i)
-      END
-    END
-  END part3;
-
-BEGIN
-  IF CheckReal(str, i, neg) THEN
-    IF part1(str, res, d, i) & part2(str, i, scale, minus, err, m, res) THEN
-      part3(err, minus, res, m, scale)
-    END;
-    IF neg THEN
-      res := -res
-    END
-  ELSE
-    res := 0.0;
-    err := TRUE
-  END
-  RETURN res
-END StrToFloat;
-
-PROCEDURE String*(VAR s: ARRAY OF CHAR);
-VAR res, length: INTEGER; str: STRING;
-BEGIN
-  res := ConsoleLib.gets(sys.ADR(str[0]), LEN(str));
-  length := LENGTH(str);
-  IF length > 0 THEN
-    str[length - 1] := 0X
-  END;
-  COPY(str, s);
-  Done := TRUE
-END String;
-
-PROCEDURE Char*(VAR x: CHAR);
-VAR str: STRING;
-BEGIN
-  String(str);
-  x := str[0];
-  Done := TRUE
-END Char;
-
-PROCEDURE Ln*;
-VAR str: STRING;
-BEGIN
-  String(str);
-  Done := TRUE
-END Ln;
-
-PROCEDURE Real* (VAR x: REAL);
-VAR str: STRING; err: BOOLEAN;
-BEGIN
-  err := FALSE;
-  REPEAT
-    String(str)
-  UNTIL ~Space(str);
-  x := StrToFloat(str, err);
-  Done := ~err
-END Real;
-
-
-PROCEDURE Int*(VAR x: INTEGER);
-VAR str: STRING; err: BOOLEAN;
-BEGIN
-  err := FALSE;
-  REPEAT
-    String(str)
-  UNTIL ~Space(str);
-  x := StrToInt(str, err);
-  Done := ~err
-END Int;
-
-PROCEDURE Open*;
-BEGIN
-  Done := TRUE
-END Open;
-
-END In.
--- a/programs/develop/oberon07/lib/KolibriOS/KOSAPI.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/KOSAPI.ob07
@@ -1,436 +0,0 @@
-(*
-    BSD 2-Clause License
-
-    Copyright (c) 2018-2019, 2022 Anton Krotov
-    All rights reserved.
-*)
-
-MODULE KOSAPI;
-
-IMPORT SYSTEM;
-
-
-TYPE
-
-    STRING = ARRAY 1024 OF CHAR;
-
-
-VAR
-
-    DLL_INIT: PROCEDURE [stdcall] (entry: INTEGER);
-
-
-PROCEDURE [stdcall-] sysfunc1* (arg1: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.CODE(
-    08BH, 045H, 008H,   (*  mov     eax, dword [ebp + 8]   *)
-    0CDH, 040H,         (*  int     64                     *)
-    0C9H,               (*  leave                          *)
-    0C2H, 004H, 000H    (*  ret     4                      *)
-    )
-    RETURN 0
-END sysfunc1;
-
-
-PROCEDURE [stdcall-] sysfunc2* (arg1, arg2: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.CODE(
-    053H,               (*  push    ebx                    *)
-    08BH, 045H, 008H,   (*  mov     eax, dword [ebp +  8]  *)
-    08BH, 05DH, 00CH,   (*  mov     ebx, dword [ebp + 12]  *)
-    0CDH, 040H,         (*  int     64                     *)
-    05BH,               (*  pop     ebx                    *)
-    0C9H,               (*  leave                          *)
-    0C2H, 008H, 000H    (*  ret     8                      *)
-    )
-    RETURN 0
-END sysfunc2;
-
-
-PROCEDURE [stdcall-] sysfunc3* (arg1, arg2, arg3: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.CODE(
-    053H,               (*  push    ebx                    *)
-    08BH, 045H, 008H,   (*  mov     eax, dword [ebp +  8]  *)
-    08BH, 05DH, 00CH,   (*  mov     ebx, dword [ebp + 12]  *)
-    08BH, 04DH, 010H,   (*  mov     ecx, dword [ebp + 16]  *)
-    0CDH, 040H,         (*  int     64                     *)
-    05BH,               (*  pop     ebx                    *)
-    0C9H,               (*  leave                          *)
-    0C2H, 00CH, 000H    (*  ret     12                     *)
-    )
-    RETURN 0
-END sysfunc3;
-
-
-PROCEDURE [stdcall-] sysfunc4* (arg1, arg2, arg3, arg4: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.CODE(
-    053H,               (*  push    ebx                    *)
-    08BH, 045H, 008H,   (*  mov     eax, dword [ebp +  8]  *)
-    08BH, 05DH, 00CH,   (*  mov     ebx, dword [ebp + 12]  *)
-    08BH, 04DH, 010H,   (*  mov     ecx, dword [ebp + 16]  *)
-    08BH, 055H, 014H,   (*  mov     edx, dword [ebp + 20]  *)
-    0CDH, 040H,         (*  int     64                     *)
-    05BH,               (*  pop     ebx                    *)
-    0C9H,               (*  leave                          *)
-    0C2H, 010H, 000H    (*  ret     16                     *)
-    )
-    RETURN 0
-END sysfunc4;
-
-
-PROCEDURE [stdcall-] sysfunc5* (arg1, arg2, arg3, arg4, arg5: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.CODE(
-    053H,               (*  push    ebx                    *)
-    056H,               (*  push    esi                    *)
-    08BH, 045H, 008H,   (*  mov     eax, dword [ebp +  8]  *)
-    08BH, 05DH, 00CH,   (*  mov     ebx, dword [ebp + 12]  *)
-    08BH, 04DH, 010H,   (*  mov     ecx, dword [ebp + 16]  *)
-    08BH, 055H, 014H,   (*  mov     edx, dword [ebp + 20]  *)
-    08BH, 075H, 018H,   (*  mov     esi, dword [ebp + 24]  *)
-    0CDH, 040H,         (*  int     64                     *)
-    05EH,               (*  pop     esi                    *)
-    05BH,               (*  pop     ebx                    *)
-    0C9H,               (*  leave                          *)
-    0C2H, 014H, 000H    (*  ret     20                     *)
-    )
-    RETURN 0
-END sysfunc5;
-
-
-PROCEDURE [stdcall-] sysfunc6* (arg1, arg2, arg3, arg4, arg5, arg6: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.CODE(
-    053H,               (*  push    ebx                    *)
-    056H,               (*  push    esi                    *)
-    057H,               (*  push    edi                    *)
-    08BH, 045H, 008H,   (*  mov     eax, dword [ebp +  8]  *)
-    08BH, 05DH, 00CH,   (*  mov     ebx, dword [ebp + 12]  *)
-    08BH, 04DH, 010H,   (*  mov     ecx, dword [ebp + 16]  *)
-    08BH, 055H, 014H,   (*  mov     edx, dword [ebp + 20]  *)
-    08BH, 075H, 018H,   (*  mov     esi, dword [ebp + 24]  *)
-    08BH, 07DH, 01CH,   (*  mov     edi, dword [ebp + 28]  *)
-    0CDH, 040H,         (*  int     64                     *)
-    05FH,               (*  pop     edi                    *)
-    05EH,               (*  pop     esi                    *)
-    05BH,               (*  pop     ebx                    *)
-    0C9H,               (*  leave                          *)
-    0C2H, 018H, 000H    (*  ret     24                     *)
-    )
-    RETURN 0
-END sysfunc6;
-
-
-PROCEDURE [stdcall-] sysfunc7* (arg1, arg2, arg3, arg4, arg5, arg6, arg7: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.CODE(
-    053H,               (*  push    ebx                    *)
-    056H,               (*  push    esi                    *)
-    057H,               (*  push    edi                    *)
-    055H,               (*  push    ebp                    *)
-    08BH, 045H, 008H,   (*  mov     eax, dword [ebp +  8]  *)
-    08BH, 05DH, 00CH,   (*  mov     ebx, dword [ebp + 12]  *)
-    08BH, 04DH, 010H,   (*  mov     ecx, dword [ebp + 16]  *)
-    08BH, 055H, 014H,   (*  mov     edx, dword [ebp + 20]  *)
-    08BH, 075H, 018H,   (*  mov     esi, dword [ebp + 24]  *)
-    08BH, 07DH, 01CH,   (*  mov     edi, dword [ebp + 28]  *)
-    08BH, 06DH, 020H,   (*  mov     ebp, dword [ebp + 32]  *)
-    0CDH, 040H,         (*  int     64                     *)
-    05DH,               (*  pop     ebp                    *)
-    05FH,               (*  pop     edi                    *)
-    05EH,               (*  pop     esi                    *)
-    05BH,               (*  pop     ebx                    *)
-    0C9H,               (*  leave                          *)
-    0C2H, 01CH, 000H    (*  ret     28                     *)
-    )
-    RETURN 0
-END sysfunc7;
-
-
-PROCEDURE [stdcall-] sysfunc22* (arg1, arg2: INTEGER; VAR res2: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.CODE(
-    053H,               (*  push    ebx                    *)
-    08BH, 045H, 008H,   (*  mov     eax, dword [ebp +  8]  *)
-    08BH, 05DH, 00CH,   (*  mov     ebx, dword [ebp + 12]  *)
-    0CDH, 040H,         (*  int     64                     *)
-    08BH, 04DH, 010H,   (*  mov     ecx, dword [ebp + 16]  *)
-    089H, 019H,         (*  mov     dword [ecx], ebx       *)
-    05BH,               (*  pop     ebx                    *)
-    0C9H,               (*  leave                          *)
-    0C2H, 00CH, 000H    (*  ret     12                     *)
-    )
-    RETURN 0
-END sysfunc22;
-
-
-PROCEDURE mem_commit (adr, size: INTEGER);
-VAR
-    tmp: INTEGER;
-BEGIN
-    FOR tmp := adr TO adr + size - 1 BY 4096 DO
-        SYSTEM.PUT(tmp, 0)
-    END
-END mem_commit;
-
-
-PROCEDURE [stdcall] malloc* (size: INTEGER): INTEGER;
-VAR
-    ptr: INTEGER;
-BEGIN
-    SYSTEM.CODE(060H); (* pusha *)
-    IF sysfunc2(18, 16) > ASR(size, 10) THEN
-        ptr := sysfunc3(68, 12, size);
-        IF ptr # 0 THEN
-            mem_commit(ptr, size)
-        END
-    ELSE
-        ptr := 0
-    END;
-    SYSTEM.CODE(061H)  (* popa  *)
-    RETURN ptr
-END malloc;
-
-
-PROCEDURE [stdcall] free* (ptr: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.CODE(060H); (* pusha *)
-    IF ptr # 0 THEN
-        ptr := sysfunc3(68, 13, ptr)
-    END;
-    SYSTEM.CODE(061H)  (* popa  *)
-    RETURN 0
-END free;
-
-
-PROCEDURE [stdcall] realloc* (ptr, size: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.CODE(060H); (* pusha *)
-    ptr := sysfunc4(68, 20, size, ptr);
-    SYSTEM.CODE(061H)  (* popa  *)
-    RETURN ptr
-END realloc;
-
-
-PROCEDURE AppAdr (): INTEGER;
-VAR
-    buf: ARRAY 1024 OF CHAR;
-    a: INTEGER;
-BEGIN
-    a := sysfunc3(9, SYSTEM.ADR(buf), -1);
-    SYSTEM.GET(SYSTEM.ADR(buf) + 22, a)
-    RETURN a
-END AppAdr;
-
-
-PROCEDURE GetCommandLine* (): INTEGER;
-VAR
-    param: INTEGER;
-BEGIN
-    SYSTEM.GET(28 + AppAdr(), param)
-    RETURN param
-END GetCommandLine;
-
-
-PROCEDURE GetName* (): INTEGER;
-VAR
-    name: INTEGER;
-BEGIN
-    SYSTEM.GET(32 + AppAdr(), name)
-    RETURN name
-END GetName;
-
-
-PROCEDURE [stdcall] dll_init2 (arg1, arg2, arg3, arg4, arg5: INTEGER);
-BEGIN
-    SYSTEM.CODE(
-    060H,               (*  pusha                          *)
-    08BH, 045H, 008H,   (*  mov     eax, dword [ebp +  8]  *)
-    08BH, 05DH, 00CH,   (*  mov     ebx, dword [ebp + 12]  *)
-    08BH, 04DH, 010H,   (*  mov     ecx, dword [ebp + 16]  *)
-    08BH, 055H, 014H,   (*  mov     edx, dword [ebp + 20]  *)
-    08BH, 075H, 018H,   (*  mov     esi, dword [ebp + 24]  *)
-    0FFH, 0D6H,         (*  call    esi                    *)
-    061H,               (*  popa                           *)
-    0C9H,               (*  leave                          *)
-    0C2H, 014H, 000H    (*  ret     20                     *)
-    )
-END dll_init2;
-
-
-PROCEDURE GetProcAdr* (name: ARRAY OF CHAR; lib: INTEGER): INTEGER;
-VAR
-    cur, procname, adr: INTEGER;
-
-    PROCEDURE streq (str1, str2: INTEGER): BOOLEAN;
-    VAR
-        c1, c2: CHAR;
-    BEGIN
-        REPEAT
-            SYSTEM.GET(str1, c1);
-            SYSTEM.GET(str2, c2);
-            INC(str1);
-            INC(str2)
-        UNTIL (c1 # c2) OR (c1 = 0X)
-
-        RETURN c1 = c2
-    END streq;
-
-BEGIN
-    adr := 0;
-    IF (lib # 0) & (name # "") THEN
-        cur := lib;
-        REPEAT
-            SYSTEM.GET(cur, procname);
-            INC(cur, 8)
-        UNTIL (procname = 0) OR streq(procname, SYSTEM.ADR(name[0]));
-        IF procname # 0 THEN
-            SYSTEM.GET(cur - 4, adr)
-        END
-    END
-
-    RETURN adr
-END GetProcAdr;
-
-
-PROCEDURE init (dll: INTEGER);
-VAR
-    lib_init: INTEGER;
-BEGIN
-    lib_init := GetProcAdr("lib_init", dll);
-    IF lib_init # 0 THEN
-        DLL_INIT(lib_init)
-    END;
-    lib_init := GetProcAdr("START", dll);
-    IF lib_init # 0 THEN
-        DLL_INIT(lib_init)
-    END
-END init;
-
-
-PROCEDURE OutChar* (c: CHAR);
-BEGIN
-    sysfunc3(63, 1, ORD(c))
-END OutChar;
-
-
-PROCEDURE OutLn*;
-BEGIN
-    OutChar(0DX);
-    OutChar(0AX)
-END OutLn;
-
-
-PROCEDURE OutString (s: ARRAY OF CHAR);
-VAR
-    i: INTEGER;
-BEGIN
-    i := 0;
-    WHILE (i < LEN(s)) & (s[i] # 0X) DO
-        OutChar(s[i]);
-        INC(i)
-    END
-END OutString;
-
-
-PROCEDURE imp_error (lib, proc: STRING);
-BEGIN
-    OutString("import error: ");
-    IF proc = "" THEN
-        OutString("can't load '")
-    ELSE
-        OutString("not found '"); OutString(proc); OutString("' in '")
-    END;
-    OutString(lib);
-    OutString("'" + 0DX + 0AX)
-END imp_error;
-
-
-PROCEDURE GetStr (adr, i: INTEGER; VAR str: STRING);
-VAR
-    c: CHAR;
-BEGIN
-    REPEAT
-        SYSTEM.GET(adr, c); INC(adr);
-        str[i] := c; INC(i)
-    UNTIL c = 0X
-END GetStr;
-
-
-PROCEDURE [stdcall-] dll_Load* (import_table: INTEGER): INTEGER;
-CONST
-	path = "/sys/lib/";
-VAR
-    imp, lib, exp, proc, pathLen: INTEGER;
-    procname, libname: STRING;
-BEGIN
-    SYSTEM.CODE(060H); (* pusha *)
-    libname := path;
-    pathLen := LENGTH(libname);
-
-    SYSTEM.GET(import_table, imp);
-    WHILE imp # 0 DO
-        SYSTEM.GET(import_table + 4, lib);
-        GetStr(lib, pathLen, libname);
-        exp := sysfunc3(68, 19, SYSTEM.ADR(libname[0]));
-        IF exp = 0 THEN
-            imp_error(libname, "")
-        ELSE
-            REPEAT
-                SYSTEM.GET(imp, proc);
-                IF proc # 0 THEN
-                    GetStr(proc, 0, procname);
-                    proc := GetProcAdr(procname, exp);
-                    IF proc # 0 THEN
-                        SYSTEM.PUT(imp, proc)
-                    ELSE
-                    	proc := 1;
-                        imp_error(libname, procname)
-                    END;
-                    INC(imp, 4)
-                END
-            UNTIL proc = 0;
-            init(exp)
-        END;
-        INC(import_table, 8);
-        SYSTEM.GET(import_table, imp);
-    END;
-
-    SYSTEM.CODE(061H) (* popa *)
-    RETURN 0
-END dll_Load;
-
-
-PROCEDURE [stdcall] dll_Init (entry: INTEGER);
-BEGIN
-    SYSTEM.CODE(060H); (* pusha *)
-    IF entry # 0 THEN
-        dll_init2(SYSTEM.ADR(malloc), SYSTEM.ADR(free), SYSTEM.ADR(realloc), SYSTEM.ADR(dll_Load), entry)
-    END;
-    SYSTEM.CODE(061H); (* popa  *)
-END dll_Init;
-
-
-PROCEDURE LoadLib* (name: ARRAY OF CHAR): INTEGER;
-VAR
-    Lib: INTEGER;
-BEGIN
-    DLL_INIT := dll_Init;
-    Lib := sysfunc3(68, 19, SYSTEM.ADR(name[0]));
-    IF Lib # 0 THEN
-        init(Lib)
-    END
-    RETURN Lib
-END LoadLib;
-
-
-PROCEDURE _init* (import_table: INTEGER);
-BEGIN
-    DLL_INIT := dll_Init;
-    dll_Load(import_table)
-END _init;
-
-
-END KOSAPI.
--- a/programs/develop/oberon07/lib/KolibriOS/Math.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/Math.ob07
@@ -1,449 +0,0 @@
-(*
-    BSD 2-Clause License
-
-    Copyright (c) 2013-2014, 2018-2022 Anton Krotov
-    All rights reserved.
-*)
-
-MODULE Math;
-
-IMPORT SYSTEM;
-
-
-CONST
-
-    pi* = 3.141592653589793;
-    e*  = 2.718281828459045;
-
-
-PROCEDURE IsNan* (x: REAL): BOOLEAN;
-VAR
-    h, l: SET;
-
-BEGIN
-    SYSTEM.GET(SYSTEM.ADR(x), l);
-    SYSTEM.GET(SYSTEM.ADR(x) + 4, h)
-    RETURN (h * {20..30} = {20..30}) & ((h * {0..19} # {}) OR (l * {0..31} # {}))
-END IsNan;
-
-
-PROCEDURE IsInf* (x: REAL): BOOLEAN;
-    RETURN ABS(x) = SYSTEM.INF()
-END IsInf;
-
-
-PROCEDURE Max (a, b: REAL): REAL;
-VAR
-    res: REAL;
-
-BEGIN
-    IF a > b THEN
-        res := a
-    ELSE
-        res := b
-    END
-    RETURN res
-END Max;
-
-
-PROCEDURE Min (a, b: REAL): REAL;
-VAR
-    res: REAL;
-
-BEGIN
-    IF a < b THEN
-        res := a
-    ELSE
-        res := b
-    END
-    RETURN res
-END Min;
-
-
-PROCEDURE SameValue (a, b: REAL): BOOLEAN;
-VAR
-    eps: REAL;
-    res: BOOLEAN;
-
-BEGIN
-    eps := Max(Min(ABS(a), ABS(b)) * 1.0E-12, 1.0E-12);
-    IF a > b THEN
-        res := (a - b) <= eps
-    ELSE
-        res := (b - a) <= eps
-    END
-    RETURN res
-END SameValue;
-
-
-PROCEDURE IsZero (x: REAL): BOOLEAN;
-    RETURN ABS(x) <= 1.0E-12
-END IsZero;
-
-
-PROCEDURE [stdcall] sqrt* (x: REAL): REAL;
-BEGIN
-    SYSTEM.CODE(
-    0DDH, 045H, 008H,              (*  fld     qword [ebp + 08h]  *)
-    0D9H, 0FAH,                    (*  fsqrt                      *)
-    0C9H,                          (*  leave                      *)
-    0C2H, 008H, 000H               (*  ret     08h                *)
-    )
-    RETURN 0.0
-END sqrt;
-
-
-PROCEDURE [stdcall] sin* (x: REAL): REAL;
-BEGIN
-    SYSTEM.CODE(
-    0DDH, 045H, 008H,              (*  fld     qword [ebp + 08h]  *)
-    0D9H, 0FEH,                    (*  fsin                       *)
-    0C9H,                          (*  leave                      *)
-    0C2H, 008H, 000H               (*  ret     08h                *)
-    )
-    RETURN 0.0
-END sin;
-
-
-PROCEDURE [stdcall] cos* (x: REAL): REAL;
-BEGIN
-    SYSTEM.CODE(
-    0DDH, 045H, 008H,              (*  fld     qword [ebp + 08h]  *)
-    0D9H, 0FFH,                    (*  fcos                       *)
-    0C9H,                          (*  leave                      *)
-    0C2H, 008H, 000H               (*  ret     08h                *)
-    )
-    RETURN 0.0
-END cos;
-
-
-PROCEDURE [stdcall] tan* (x: REAL): REAL;
-BEGIN
-    SYSTEM.CODE(
-    0DDH, 045H, 008H,              (*  fld     qword [ebp + 08h]  *)
-    0D9H, 0FBH,                    (*  fsincos                    *)
-    0DEH, 0F9H,                    (*  fdivp st1, st              *)
-    0C9H,                          (*  leave                      *)
-    0C2H, 008H, 000H               (*  ret     08h                *)
-    )
-    RETURN 0.0
-END tan;
-
-
-PROCEDURE [stdcall] arctan2* (y, x: REAL): REAL;
-BEGIN
-    SYSTEM.CODE(
-    0DDH, 045H, 008H,              (*  fld     qword [ebp + 08h]  *)
-    0DDH, 045H, 010H,              (*  fld     qword [ebp + 10h]  *)
-    0D9H, 0F3H,                    (*  fpatan                     *)
-    0C9H,                          (*  leave                      *)
-    0C2H, 010H, 000H               (*  ret     10h                *)
-    )
-    RETURN 0.0
-END arctan2;
-
-
-PROCEDURE [stdcall] ln* (x: REAL): REAL;
-BEGIN
-    SYSTEM.CODE(
-    0D9H, 0EDH,                    (*  fldln2                     *)
-    0DDH, 045H, 008H,              (*  fld     qword [ebp + 08h]  *)
-    0D9H, 0F1H,                    (*  fyl2x                      *)
-    0C9H,                          (*  leave                      *)
-    0C2H, 008H, 000H               (*  ret     08h                *)
-    )
-    RETURN 0.0
-END ln;
-
-
-PROCEDURE [stdcall] log* (base, x: REAL): REAL;
-BEGIN
-    SYSTEM.CODE(
-    0D9H, 0E8H,                    (*  fld1                       *)
-    0DDH, 045H, 010H,              (*  fld     qword [ebp + 10h]  *)
-    0D9H, 0F1H,                    (*  fyl2x                      *)
-    0D9H, 0E8H,                    (*  fld1                       *)
-    0DDH, 045H, 008H,              (*  fld     qword [ebp + 08h]  *)
-    0D9H, 0F1H,                    (*  fyl2x                      *)
-    0DEH, 0F9H,                    (*  fdivp st1, st              *)
-    0C9H,                          (*  leave                      *)
-    0C2H, 010H, 000H               (*  ret     10h                *)
-    )
-    RETURN 0.0
-END log;
-
-
-PROCEDURE [stdcall] exp* (x: REAL): REAL;
-BEGIN
-    SYSTEM.CODE(
-    0DDH, 045H, 008H,           (*  fld     qword [ebp + 08h]  *)
-    0D9H, 0EAH,                 (*  fldl2e                     *)
-    0DEH, 0C9H, 0D9H, 0C0H,
-    0D9H, 0FCH, 0DCH, 0E9H,
-    0D9H, 0C9H, 0D9H, 0F0H,
-    0D9H, 0E8H, 0DEH, 0C1H,
-    0D9H, 0FDH, 0DDH, 0D9H,
-    0C9H,                       (*  leave                      *)
-    0C2H, 008H, 000H            (*  ret     08h                *)
-    )
-    RETURN 0.0
-END exp;
-
-
-PROCEDURE [stdcall] round* (x: REAL): REAL;
-BEGIN
-    SYSTEM.CODE(
-    0DDH, 045H, 008H,           (*  fld     qword [ebp + 08h]  *)
-    0D9H, 07DH, 0F4H, 0D9H,
-    07DH, 0F6H, 066H, 081H,
-    04DH, 0F6H, 000H, 003H,
-    0D9H, 06DH, 0F6H, 0D9H,
-    0FCH, 0D9H, 06DH, 0F4H,
-    0C9H,                       (*  leave                     *)
-    0C2H, 008H, 000H            (*  ret     08h               *)
-    )
-    RETURN 0.0
-END round;
-
-
-PROCEDURE [stdcall] frac* (x: REAL): REAL;
-BEGIN
-    SYSTEM.CODE(
-    050H,
-    0DDH, 045H, 008H,           (*  fld     qword [ebp + 08h]  *)
-    0D9H, 0C0H, 0D9H, 03CH,
-    024H, 0D9H, 07CH, 024H,
-    002H, 066H, 081H, 04CH,
-    024H, 002H, 000H, 00FH,
-    0D9H, 06CH, 024H, 002H,
-    0D9H, 0FCH, 0D9H, 02CH,
-    024H, 0DEH, 0E9H,
-    0C9H,                       (*  leave                     *)
-    0C2H, 008H, 000H            (*  ret     08h               *)
-    )
-    RETURN 0.0
-END frac;
-
-
-PROCEDURE sqri* (x: INTEGER): INTEGER;
-    RETURN x * x
-END sqri;
-
-
-PROCEDURE sqrr* (x: REAL): REAL;
-    RETURN x * x
-END sqrr;
-
-
-PROCEDURE arcsin* (x: REAL): REAL;
-    RETURN arctan2(x, sqrt(1.0 - x * x))
-END arcsin;
-
-
-PROCEDURE arccos* (x: REAL): REAL;
-    RETURN arctan2(sqrt(1.0 - x * x), x)
-END arccos;
-
-
-PROCEDURE arctan* (x: REAL): REAL;
-    RETURN arctan2(x, 1.0)
-END arctan;
-
-
-PROCEDURE sinh* (x: REAL): REAL;
-BEGIN
-    x := exp(x)
-    RETURN (x - 1.0 / x) * 0.5
-END sinh;
-
-
-PROCEDURE cosh* (x: REAL): REAL;
-BEGIN
-    x := exp(x)
-    RETURN (x + 1.0 / x) * 0.5
-END cosh;
-
-
-PROCEDURE tanh* (x: REAL): REAL;
-BEGIN
-    IF x > 15.0 THEN
-        x := 1.0
-    ELSIF x < -15.0 THEN
-        x := -1.0
-    ELSE
-        x := 1.0 - 2.0 / (exp(2.0 * x) + 1.0)
-    END
-
-    RETURN x
-END tanh;
-
-
-PROCEDURE arsinh* (x: REAL): REAL;
-    RETURN ln(x + sqrt(x * x + 1.0))
-END arsinh;
-
-
-PROCEDURE arcosh* (x: REAL): REAL;
-    RETURN ln(x + sqrt(x * x - 1.0))
-END arcosh;
-
-
-PROCEDURE artanh* (x: REAL): REAL;
-VAR
-    res: REAL;
-
-BEGIN
-    IF SameValue(x, 1.0) THEN
-        res := SYSTEM.INF()
-    ELSIF SameValue(x, -1.0) THEN
-        res := -SYSTEM.INF()
-    ELSE
-        res := 0.5 * ln((1.0 + x) / (1.0 - x))
-    END
-    RETURN res
-END artanh;
-
-
-PROCEDURE floor* (x: REAL): REAL;
-VAR
-    f: REAL;
-
-BEGIN
-    f := frac(x);
-    x := x - f;
-    IF f < 0.0 THEN
-        x := x - 1.0
-    END
-    RETURN x
-END floor;
-
-
-PROCEDURE ceil* (x: REAL): REAL;
-VAR
-    f: REAL;
-
-BEGIN
-    f := frac(x);
-    x := x - f;
-    IF f > 0.0 THEN
-        x := x + 1.0
-    END
-    RETURN x
-END ceil;
-
-
-PROCEDURE power* (base, exponent: REAL): REAL;
-VAR
-    res: REAL;
-
-BEGIN
-    IF exponent = 0.0 THEN
-        res := 1.0
-    ELSIF (base = 0.0) & (exponent > 0.0) THEN
-        res := 0.0
-    ELSE
-        res := exp(exponent * ln(base))
-    END
-    RETURN res
-END power;
-
-
-PROCEDURE ipower* (base: REAL; exponent: INTEGER): REAL;
-VAR
-    i: INTEGER;
-    a: REAL;
-
-BEGIN
-    a := 1.0;
-
-    IF base # 0.0 THEN
-        IF exponent # 0 THEN
-            IF exponent < 0 THEN
-                base := 1.0 / base
-            END;
-            i := ABS(exponent);
-            WHILE i > 0 DO
-                WHILE ~ODD(i) DO
-                    i := LSR(i, 1);
-                    base := sqrr(base)
-                END;
-                DEC(i);
-                a := a * base
-            END
-        ELSE
-            a := 1.0
-        END
-    ELSE
-        ASSERT(exponent > 0);
-        a := 0.0
-    END
-
-    RETURN a
-END ipower;
-
-
-PROCEDURE sgn* (x: REAL): INTEGER;
-VAR
-    res: INTEGER;
-
-BEGIN
-    IF x > 0.0 THEN
-        res := 1
-    ELSIF x < 0.0 THEN
-        res := -1
-    ELSE
-        res := 0
-    END
-
-    RETURN res
-END sgn;
-
-
-PROCEDURE fact* (n: INTEGER): REAL;
-VAR
-    res: REAL;
-
-BEGIN
-    res := 1.0;
-    WHILE n > 1 DO
-        res := res * FLT(n);
-        DEC(n)
-    END
-
-    RETURN res
-END fact;
-
-
-PROCEDURE DegToRad* (x: REAL): REAL;
-    RETURN x * (pi / 180.0)
-END DegToRad;
-
-
-PROCEDURE RadToDeg* (x: REAL): REAL;
-    RETURN x * (180.0 / pi)
-END RadToDeg;
-
-
-(* Return hypotenuse of triangle *)
-PROCEDURE hypot* (x, y: REAL): REAL;
-VAR
-    a: REAL;
-
-BEGIN
-    x := ABS(x);
-    y := ABS(y);
-    IF x > y THEN
-        a := x * sqrt(1.0 + sqrr(y / x))
-    ELSE
-        IF x > 0.0 THEN
-            a := y * sqrt(1.0 + sqrr(x / y))
-        ELSE
-            a := y
-        END
-    END
-
-    RETURN a
-END hypot;
-
-
-END Math.
--- a/programs/develop/oberon07/lib/KolibriOS/NetDevices.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/NetDevices.ob07
@@ -1,107 +0,0 @@
-(*
-    Copyright 2017 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE NetDevices;
-
-IMPORT sys := SYSTEM, K := KOSAPI;
-
-
-CONST
-
-  //net devices types
-
-  LOOPBACK*        = 0;
-  ETH*             = 1;
-  SLIP*            = 2;
-
-  //Link status
-
-  LINK_DOWN*       = 0;
-  LINK_UNKNOWN*    = 1;
-  LINK_FD*         = 2; //full duplex flag
-  LINK_10M*        = 4;
-  LINK_100M*       = 8;
-  LINK_1G*         = 12;
-
-
-TYPE
-
-  DEVICENAME* = ARRAY 64 OF CHAR;
-
-
-PROCEDURE Number* (): INTEGER;
-  RETURN K.sysfunc2(74, -1)
-END Number;
-
-
-PROCEDURE Type* (num: INTEGER): INTEGER;
-  RETURN K.sysfunc2(74, num * 256)
-END Type;
-
-
-PROCEDURE Name* (num: INTEGER; VAR name: DEVICENAME): BOOLEAN;
-VAR err: BOOLEAN;
-BEGIN
-  err := K.sysfunc3(74, num * 256 + 1, sys.ADR(name[0])) = -1;
-  IF err THEN
-    name := ""
-  END
-  RETURN ~err
-END Name;
-
-
-PROCEDURE Reset* (num: INTEGER): BOOLEAN;
-  RETURN K.sysfunc2(74, num * 256 + 2) # -1
-END Reset;
-
-
-PROCEDURE Stop* (num: INTEGER): BOOLEAN;
-  RETURN K.sysfunc2(74, num * 256 + 3) # -1
-END Stop;
-
-
-PROCEDURE Pointer* (num: INTEGER): INTEGER;
-  RETURN K.sysfunc2(74, num * 256 + 4)
-END Pointer;
-
-
-PROCEDURE SentPackets* (num: INTEGER): INTEGER;
-  RETURN K.sysfunc2(74, num * 256 + 6)
-END SentPackets;
-
-
-PROCEDURE ReceivedPackets* (num: INTEGER): INTEGER;
-  RETURN K.sysfunc2(74, num * 256 + 7)
-END ReceivedPackets;
-
-
-PROCEDURE SentBytes* (num: INTEGER; VAR hValue: INTEGER): INTEGER;
-  RETURN K.sysfunc22(74, num * 256 + 8, hValue)
-END SentBytes;
-
-
-PROCEDURE ReceivedBytes* (num: INTEGER; VAR hValue: INTEGER): INTEGER;
-  RETURN K.sysfunc22(74, num * 256 + 9, hValue)
-END ReceivedBytes;
-
-
-PROCEDURE LinkStatus* (num: INTEGER): INTEGER;
-  RETURN K.sysfunc2(74, num * 256 + 10)
-END LinkStatus;
-
-
-END NetDevices.
--- a/programs/develop/oberon07/lib/KolibriOS/OpenDlg.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/OpenDlg.ob07
@@ -1,158 +0,0 @@
-(*
-    Copyright 2016, 2018, 2020-2022 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE OpenDlg;
-
-IMPORT sys := SYSTEM, KOSAPI;
-
-CONST
-  topen* = 0;
-  tsave* = 1;
-  tdir* = 2;
-
-TYPE
-
-  DRAW_WINDOW = PROCEDURE;
-
-  TDialog = RECORD
-    _type*,
-    procinfo,
-    com_area_name,
-    com_area,
-    opendir_path,
-    dir_default_path,
-    start_path: INTEGER;
-    draw_window: DRAW_WINDOW;
-    status*,
-    openfile_path,
-    filename_area: INTEGER;
-    filter_area:
-      POINTER TO RECORD
-        size: INTEGER;
-        filter: ARRAY 4096 OF CHAR
-      END;
-    X, Y: INTEGER;
-
-    procinf: ARRAY 1024 OF CHAR;
-    s_com_area_name: ARRAY 32 OF CHAR;
-    s_opendir_path,
-    s_dir_default_path,
-    FilePath*,
-    FileName*: ARRAY 4096 OF CHAR
-  END;
-
-  Dialog* = POINTER TO TDialog;
-
-VAR
-
-  Dialog_start, Dialog_init: PROCEDURE [stdcall] (od: Dialog);
-
-
-PROCEDURE Show*(od: Dialog; Width, Height: INTEGER);
-BEGIN
-  IF od # NIL THEN
-    od.X := Width;
-    od.Y := Height;
-    Dialog_start(od)
-  END
-END Show;
-
-PROCEDURE Create*(draw_window: DRAW_WINDOW; _type: INTEGER; def_path, filter: ARRAY OF CHAR): Dialog;
-VAR res: Dialog; n, i: INTEGER;
-
-  PROCEDURE replace(VAR str: ARRAY OF CHAR; c1, c2: CHAR);
-  VAR i: INTEGER;
-  BEGIN
-    i := LENGTH(str) - 1;
-    WHILE i >= 0 DO
-      IF str[i] = c1 THEN
-        str[i] := c2
-      END;
-      DEC(i)
-    END
-  END replace;
-
-BEGIN
-  NEW(res);
-  IF res # NIL THEN
-    NEW(res.filter_area);
-    IF res.filter_area # NIL THEN
-      res.s_com_area_name    := "FFFFFFFF_open_dialog";
-      res.com_area           := 0;
-      res._type              := _type;
-      res.draw_window        := draw_window;
-      COPY(def_path, res.s_dir_default_path);
-      COPY(filter,   res.filter_area.filter);
-
-      n := LENGTH(res.filter_area.filter);
-      FOR i := 0 TO 3 DO
-        res.filter_area.filter[n + i] := "|"
-      END;
-      res.filter_area.filter[n + 4] := 0X;
-
-      res.X                  := 0;
-      res.Y                  := 0;
-      res.s_opendir_path     := res.s_dir_default_path;
-      res.FilePath           := "";
-      res.FileName           := "";
-      res.status             := 0;
-      res.filter_area.size   := LENGTH(res.filter_area.filter);
-      res.procinfo           := sys.ADR(res.procinf[0]);
-      res.com_area_name      := sys.ADR(res.s_com_area_name[0]);
-      res.start_path         := sys.SADR("/sys/File managers/opendial");
-      res.opendir_path       := sys.ADR(res.s_opendir_path[0]);
-      res.dir_default_path   := sys.ADR(res.s_dir_default_path[0]);
-      res.openfile_path      := sys.ADR(res.FilePath[0]);
-      res.filename_area      := sys.ADR(res.FileName[0]);
-
-      replace(res.filter_area.filter, "|", 0X);
-      Dialog_init(res)
-    ELSE
-      DISPOSE(res)
-    END
-  END
-  RETURN res
-END Create;
-
-PROCEDURE Destroy*(VAR od: Dialog);
-BEGIN
-  IF od # NIL THEN
-    DISPOSE(od.filter_area);
-    DISPOSE(od)
-  END
-END Destroy;
-
-PROCEDURE Load;
-VAR Lib: INTEGER;
-
-  PROCEDURE GetProc(Lib, v: INTEGER; name: ARRAY OF CHAR);
-  VAR a: INTEGER;
-  BEGIN
-    a := KOSAPI.GetProcAdr(name, Lib);
-    ASSERT(a # 0);
-    sys.PUT(v, a)
-  END GetProc;
-
-BEGIN
-  Lib := KOSAPI.LoadLib("/sys/Lib/Proc_lib.obj");
-  GetProc(Lib, sys.ADR(Dialog_init),  "OpenDialog_init");
-  GetProc(Lib, sys.ADR(Dialog_start), "OpenDialog_start");
-END Load;
-
-BEGIN
-  Load
-END OpenDlg.
--- a/programs/develop/oberon07/lib/KolibriOS/Out.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/Out.ob07
@@ -1,267 +0,0 @@
-(*
-    Copyright 2016, 2018 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE Out;
-
-IMPORT ConsoleLib, sys := SYSTEM;
-
-CONST
-
-  d = 1.0 - 5.0E-12;
-
-VAR
-
-  Realp: PROCEDURE (x: REAL; width: INTEGER);
-
-PROCEDURE Char*(c: CHAR);
-BEGIN
-  ConsoleLib.write_string(sys.ADR(c), 1)
-END Char;
-
-PROCEDURE String*(s: ARRAY OF CHAR);
-BEGIN
-  ConsoleLib.write_string(sys.ADR(s[0]), LENGTH(s))
-END String;
-
-PROCEDURE WriteInt(x, n: INTEGER);
-VAR i: INTEGER; a: ARRAY 16 OF CHAR; neg: BOOLEAN;
-BEGIN
-  i := 0;
-  IF n < 1 THEN
-    n := 1
-  END;
-  IF x < 0 THEN
-    x := -x;
-    DEC(n);
-    neg := TRUE
-  END;
-  REPEAT
-    a[i] := CHR(x MOD 10 + ORD("0"));
-    x := x DIV 10;
-    INC(i)
-  UNTIL x = 0;
-  WHILE n > i DO
-    Char(" ");
-    DEC(n)
-  END;
-  IF neg THEN
-    Char("-")
-  END;
-  REPEAT
-    DEC(i);
-    Char(a[i])
-  UNTIL i = 0
-END WriteInt;
-
-PROCEDURE IsNan(AValue: REAL): BOOLEAN;
-VAR h, l: SET;
-BEGIN
-  sys.GET(sys.ADR(AValue), l);
-  sys.GET(sys.ADR(AValue) + 4, h)
-  RETURN (h * {20..30} = {20..30}) & ((h * {0..19} # {}) OR (l * {0..31} # {}))
-END IsNan;
-
-PROCEDURE IsInf(x: REAL): BOOLEAN;
-  RETURN ABS(x) = sys.INF()
-END IsInf;
-
-PROCEDURE Int*(x, width: INTEGER);
-VAR i: INTEGER;
-BEGIN
-  IF x # 80000000H THEN
-    WriteInt(x, width)
-  ELSE
-    FOR i := 12 TO width DO
-      Char(20X)
-    END;
-    String("-2147483648")
-  END
-END Int;
-
-PROCEDURE OutInf(x: REAL; width: INTEGER);
-VAR s: ARRAY 5 OF CHAR; i: INTEGER;
-BEGIN
-  IF IsNan(x) THEN
-    s := "Nan";
-    INC(width)
-  ELSIF IsInf(x) & (x > 0.0) THEN
-    s := "+Inf"
-  ELSIF IsInf(x) & (x < 0.0) THEN
-    s := "-Inf"
-  END;
-  FOR i := 1 TO width - 4 DO
-    Char(" ")
-  END;
-  String(s)
-END OutInf;
-
-PROCEDURE Ln*;
-BEGIN
-  Char(0DX);
-  Char(0AX)
-END Ln;
-
-PROCEDURE _FixReal(x: REAL; width, p: INTEGER);
-VAR e, len, i: INTEGER; y: REAL; minus: BOOLEAN;
-BEGIN
-  IF IsNan(x) OR IsInf(x) THEN
-    OutInf(x, width)
-  ELSIF p < 0 THEN
-    Realp(x, width)
-  ELSE
-    len := 0;
-    minus := FALSE;
-    IF x < 0.0 THEN
-      minus := TRUE;
-      INC(len);
-      x := ABS(x)
-    END;
-    e := 0;
-    WHILE x >= 10.0 DO
-      x := x / 10.0;
-      INC(e)
-    END;
-    IF e >= 0 THEN
-      len := len + e + p + 1;
-      IF x > 9.0 + d THEN
-        INC(len)
-      END;
-      IF p > 0 THEN
-        INC(len)
-      END
-    ELSE
-      len := len + p + 2
-    END;
-    FOR i := 1 TO width - len DO
-      Char(" ")
-    END;
-    IF minus THEN
-      Char("-")
-    END;
-    y := x;
-    WHILE (y < 1.0) & (y # 0.0) DO
-      y := y * 10.0;
-      DEC(e)
-    END;
-    IF e < 0 THEN
-      IF x - FLT(FLOOR(x)) > d THEN
-        Char("1");
-        x := 0.0
-      ELSE
-        Char("0");
-        x := x * 10.0
-      END
-    ELSE
-      WHILE e >= 0 DO
-        IF x - FLT(FLOOR(x)) > d THEN
-          IF x > 9.0 THEN
-            String("10")
-          ELSE
-            Char(CHR(FLOOR(x) + ORD("0") + 1))
-          END;
-          x := 0.0
-        ELSE
-          Char(CHR(FLOOR(x) + ORD("0")));
-          x := (x - FLT(FLOOR(x))) * 10.0
-        END;
-        DEC(e)
-      END
-    END;
-    IF p > 0 THEN
-      Char(".")
-    END;
-    WHILE p > 0 DO
-      IF x - FLT(FLOOR(x)) > d THEN
-        Char(CHR(FLOOR(x) + ORD("0") + 1));
-        x := 0.0
-      ELSE
-        Char(CHR(FLOOR(x) + ORD("0")));
-        x := (x - FLT(FLOOR(x))) * 10.0
-      END;
-      DEC(p)
-    END
-  END
-END _FixReal;
-
-PROCEDURE Real*(x: REAL; width: INTEGER);
-VAR e, n, i: INTEGER; minus: BOOLEAN;
-BEGIN
-  IF IsNan(x) OR IsInf(x) THEN
-    OutInf(x, width)
-  ELSE
-    e := 0;
-    n := 0;
-    IF width > 23 THEN
-      n := width - 23;
-      width := 23
-    ELSIF width < 9 THEN
-      width := 9
-    END;
-    width := width - 5;
-    IF x < 0.0 THEN
-      x := -x;
-      minus := TRUE
-    ELSE
-      minus := FALSE
-    END;
-    WHILE x >= 10.0 DO
-      x := x / 10.0;
-      INC(e)
-    END;
-    WHILE (x < 1.0) & (x # 0.0) DO
-      x := x * 10.0;
-      DEC(e)
-    END;
-    IF x > 9.0 + d THEN
-      x := 1.0;
-      INC(e)
-    END;
-    FOR i := 1 TO n DO
-      Char(" ")
-    END;
-    IF minus THEN
-      x := -x
-    END;
-    Realp := Real;
-    _FixReal(x, width, width - 3);
-    Char("E");
-    IF e >= 0 THEN
-      Char("+")
-    ELSE
-      Char("-");
-      e := ABS(e)
-    END;
-    IF e < 100 THEN
-      Char("0")
-    END;
-    IF e < 10 THEN
-      Char("0")
-    END;
-    Int(e, 0)
-  END
-END Real;
-
-PROCEDURE FixReal*(x: REAL; width, p: INTEGER);
-BEGIN
-  Realp := Real;
-  _FixReal(x, width, p)
-END FixReal;
-
-PROCEDURE Open*;
-END Open;
-
-END Out.
--- a/programs/develop/oberon07/lib/KolibriOS/RTL.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/RTL.ob07
@@ -1,543 +0,0 @@
-(*
-    BSD 2-Clause License
-
-    Copyright (c) 2018-2021, Anton Krotov
-    All rights reserved.
-*)
-
-MODULE RTL;
-
-IMPORT SYSTEM, API;
-
-
-CONST
-
-    minint = ROR(1, 1);
-
-    WORD = API.BIT_DEPTH DIV 8;
-
-
-VAR
-
-    name:  INTEGER;
-    types: INTEGER;
-
-
-PROCEDURE [stdcall] _move* (bytes, dest, source: INTEGER);
-BEGIN
-    SYSTEM.CODE(
-    08BH, 045H, 008H,    (*  mov eax, dword [ebp + 8]   *)
-    085H, 0C0H,          (*  test eax, eax              *)
-    07EH, 019H,          (*  jle L                      *)
-    0FCH,                (*  cld                        *)
-    057H,                (*  push edi                   *)
-    056H,                (*  push esi                   *)
-    08BH, 075H, 010H,    (*  mov esi, dword [ebp + 16]  *)
-    08BH, 07DH, 00CH,    (*  mov edi, dword [ebp + 12]  *)
-    089H, 0C1H,          (*  mov ecx, eax               *)
-    0C1H, 0E9H, 002H,    (*  shr ecx, 2                 *)
-    0F3H, 0A5H,          (*  rep movsd                  *)
-    089H, 0C1H,          (*  mov ecx, eax               *)
-    083H, 0E1H, 003H,    (*  and ecx, 3                 *)
-    0F3H, 0A4H,          (*  rep movsb                  *)
-    05EH,                (*  pop esi                    *)
-    05FH                 (*  pop edi                    *)
-                         (*  L:                         *)
-                )
-END _move;
-
-
-PROCEDURE [stdcall] _arrcpy* (base_size, len_dst, dst, len_src, src: INTEGER): BOOLEAN;
-VAR
-    res: BOOLEAN;
-
-BEGIN
-    IF len_src > len_dst THEN
-        res := FALSE
-    ELSE
-        _move(len_src * base_size, dst, src);
-        res := TRUE
-    END
-
-    RETURN res
-END _arrcpy;
-
-
-PROCEDURE [stdcall] _strcpy* (chr_size, len_src, src, len_dst, dst: INTEGER);
-BEGIN
-    _move(MIN(len_dst, len_src) * chr_size, dst, src)
-END _strcpy;
-
-
-PROCEDURE [stdcall] _rot* (Len, Ptr: INTEGER);
-BEGIN
-    SYSTEM.CODE(
-    08BH, 04DH, 008H,   (*  mov   ecx, dword [ebp +  8]  *)  (* ecx <- Len *)
-    08BH, 045H, 00CH,   (*  mov   eax, dword [ebp + 12]  *)  (* eax <- Ptr *)
-    049H,               (*  dec   ecx                    *)
-    053H,               (*  push  ebx                    *)
-    08BH, 018H,         (*  mov   ebx, dword [eax]       *)
-                        (*  L:                           *)
-    08BH, 050H, 004H,   (*  mov   edx, dword [eax + 4]   *)
-    089H, 010H,         (*  mov   dword [eax], edx       *)
-    083H, 0C0H, 004H,   (*  add   eax, 4                 *)
-    049H,               (*  dec   ecx                    *)
-    075H, 0F5H,         (*  jnz   L                      *)
-    089H, 018H,         (*  mov   dword [eax], ebx       *)
-    05BH,               (*  pop   ebx                    *)
-    05DH,               (*  pop   ebp                    *)
-    0C2H, 008H, 000H    (*  ret   8                      *)
-    )
-END _rot;
-
-
-PROCEDURE [stdcall] _set* (b, a: INTEGER); (* {a..b} -> eax *)
-BEGIN
-    SYSTEM.CODE(
-    08BH, 04DH, 008H,              (*  mov   ecx, dword [ebp +  8]  *)  (* ecx <- b *)
-    08BH, 045H, 00CH,              (*  mov   eax, dword [ebp + 12]  *)  (* eax <- a *)
-    039H, 0C8H,                    (*  cmp   eax, ecx               *)
-    07FH, 033H,                    (*  jg    L1                     *)
-    083H, 0F8H, 01FH,              (*  cmp   eax, 31                *)
-    07FH, 02EH,                    (*  jg    L1                     *)
-    085H, 0C9H,                    (*  test  ecx, ecx               *)
-    07CH, 02AH,                    (*  jl    L1                     *)
-    083H, 0F9H, 01FH,              (*  cmp   ecx, 31                *)
-    07EH, 005H,                    (*  jle   L3                     *)
-    0B9H, 01FH, 000H, 000H, 000H,  (*  mov   ecx, 31                *)
-                                   (*  L3:                          *)
-    085H, 0C0H,                    (*  test  eax, eax               *)
-    07DH, 002H,                    (*  jge   L2                     *)
-    031H, 0C0H,                    (*  xor   eax, eax               *)
-                                   (*  L2:                          *)
-    089H, 0CAH,                    (*  mov   edx, ecx               *)
-    029H, 0C2H,                    (*  sub   edx, eax               *)
-    0B8H, 000H, 000H, 000H, 080H,  (*  mov   eax, 0x80000000        *)
-    087H, 0CAH,                    (*  xchg  edx, ecx               *)
-    0D3H, 0F8H,                    (*  sar   eax, cl                *)
-    087H, 0CAH,                    (*  xchg  edx, ecx               *)
-    083H, 0E9H, 01FH,              (*  sub   ecx, 31                *)
-    0F7H, 0D9H,                    (*  neg   ecx                    *)
-    0D3H, 0E8H,                    (*  shr   eax, cl                *)
-    05DH,                          (*  pop   ebp                    *)
-    0C2H, 008H, 000H,              (*  ret   8                      *)
-                                   (*  L1:                          *)
-    031H, 0C0H,                    (*  xor   eax, eax               *)
-    05DH,                          (*  pop   ebp                    *)
-    0C2H, 008H, 000H               (*  ret   8                      *)
-    )
-END _set;
-
-
-PROCEDURE [stdcall] _set1* (a: INTEGER); (* {a} -> eax *)
-BEGIN
-    SYSTEM.CODE(
-    031H, 0C0H,         (*  xor  eax, eax              *)
-    08BH, 04DH, 008H,   (*  mov  ecx, dword [ebp + 8]  *)  (* ecx <- a *)
-    083H, 0F9H, 01FH,   (*  cmp  ecx, 31               *)
-    077H, 003H,         (*  ja   L                     *)
-    00FH, 0ABH, 0C8H    (*  bts  eax, ecx              *)
-                        (*  L:                         *)
-    )
-END _set1;
-
-
-PROCEDURE [stdcall] _divmod* (y, x: INTEGER); (* (x div y) -> eax; (x mod y) -> edx *)
-BEGIN
-    SYSTEM.CODE(
-    053H,                (*  push    ebx                    *)
-    08BH, 045H, 00CH,    (*  mov     eax, dword [ebp + 12]  *)  (* eax <- x *)
-    031H, 0D2H,          (*  xor     edx, edx               *)
-    085H, 0C0H,          (*  test    eax, eax               *)
-    074H, 018H,          (*  je      L2                     *)
-    07FH, 002H,          (*  jg      L1                     *)
-    0F7H, 0D2H,          (*  not     edx                    *)
-                         (*  L1:                            *)
-    089H, 0C3H,          (*  mov     ebx, eax               *)
-    08BH, 04DH, 008H,    (*  mov     ecx, dword [ebp + 8]   *)  (* ecx <- y *)
-    0F7H, 0F9H,          (*  idiv    ecx                    *)
-    085H, 0D2H,          (*  test    edx, edx               *)
-    074H, 009H,          (*  je      L2                     *)
-    031H, 0CBH,          (*  xor     ebx, ecx               *)
-    085H, 0DBH,          (*  test    ebx, ebx               *)
-    07DH, 003H,          (*  jge     L2                     *)
-    048H,                (*  dec     eax                    *)
-    001H, 0CAH,          (*  add     edx, ecx               *)
-                         (*  L2:                            *)
-    05BH                 (*  pop     ebx                    *)
-               )
-END _divmod;
-
-
-PROCEDURE [stdcall] _new* (t, size: INTEGER; VAR ptr: INTEGER);
-BEGIN
-    ptr := API._NEW(size);
-    IF ptr # 0 THEN
-        SYSTEM.PUT(ptr, t);
-        INC(ptr, WORD)
-    END
-END _new;
-
-
-PROCEDURE [stdcall] _dispose* (VAR ptr: INTEGER);
-BEGIN
-    IF ptr # 0 THEN
-        ptr := API._DISPOSE(ptr - WORD)
-    END
-END _dispose;
-
-
-PROCEDURE [stdcall] _length* (len, str: INTEGER);
-BEGIN
-    SYSTEM.CODE(
-    08BH, 045H, 00CH,    (*  mov     eax, dword [ebp + 0Ch]  *)
-    08BH, 04DH, 008H,    (*  mov     ecx, dword [ebp + 08h]  *)
-    048H,                (*  dec     eax                     *)
-                         (*  L1:                             *)
-    040H,                (*  inc     eax                     *)
-    080H, 038H, 000H,    (*  cmp     byte [eax], 0           *)
-    074H, 003H,          (*  jz      L2                      *)
-    0E2H, 0F8H,          (*  loop    L1                      *)
-    040H,                (*  inc     eax                     *)
-                         (*  L2:                             *)
-    02BH, 045H, 00CH     (*  sub     eax, dword [ebp + 0Ch]  *)
-               )
-END _length;
-
-
-PROCEDURE [stdcall] _lengthw* (len, str: INTEGER);
-BEGIN
-    SYSTEM.CODE(
-    08BH, 045H, 00CH,         (*  mov     eax, dword [ebp + 0Ch]  *)
-    08BH, 04DH, 008H,         (*  mov     ecx, dword [ebp + 08h]  *)
-    048H,                     (*  dec     eax                     *)
-    048H,                     (*  dec     eax                     *)
-                              (*  L1:                             *)
-    040H,                     (*  inc     eax                     *)
-    040H,                     (*  inc     eax                     *)
-    066H, 083H, 038H, 000H,   (*  cmp     word [eax], 0           *)
-    074H, 004H,               (*  jz      L2                      *)
-    0E2H, 0F6H,               (*  loop    L1                      *)
-    040H,                     (*  inc     eax                     *)
-    040H,                     (*  inc     eax                     *)
-                              (*  L2:                             *)
-    02BH, 045H, 00CH,         (*  sub     eax, dword [ebp + 0Ch]  *)
-    0D1H, 0E8H                (*  shr     eax, 1                  *)
-               )
-END _lengthw;
-
-
-PROCEDURE [stdcall] strncmp (a, b, n: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.CODE(
-    056H,                    (*  push    esi                            *)
-    057H,                    (*  push    edi                            *)
-    053H,                    (*  push    ebx                            *)
-    08BH, 075H, 008H,        (*  mov     esi, dword[ebp +  8]; esi <- a *)
-    08BH, 07DH, 00CH,        (*  mov     edi, dword[ebp + 12]; edi <- b *)
-    08BH, 05DH, 010H,        (*  mov     ebx, dword[ebp + 16]; ebx <- n *)
-    031H, 0C9H,              (*  xor     ecx, ecx                       *)
-    031H, 0D2H,              (*  xor     edx, edx                       *)
-    0B8H,
-    000H, 000H, 000H, 080H,  (*  mov     eax, minint                    *)
-                             (*  L1:                                    *)
-    085H, 0DBH,              (*  test    ebx, ebx                       *)
-    07EH, 017H,              (*  jle     L3                             *)
-    08AH, 00EH,              (*  mov     cl, byte[esi]                  *)
-    08AH, 017H,              (*  mov     dl, byte[edi]                  *)
-    046H,                    (*  inc     esi                            *)
-    047H,                    (*  inc     edi                            *)
-    04BH,                    (*  dec     ebx                            *)
-    039H, 0D1H,              (*  cmp     ecx, edx                       *)
-    074H, 006H,              (*  je      L2                             *)
-    089H, 0C8H,              (*  mov     eax, ecx                       *)
-    029H, 0D0H,              (*  sub     eax, edx                       *)
-    0EBH, 006H,              (*  jmp     L3                             *)
-                             (*  L2:                                    *)
-    085H, 0C9H,              (*  test    ecx, ecx                       *)
-    075H, 0E7H,              (*  jne     L1                             *)
-    031H, 0C0H,              (*  xor     eax, eax                       *)
-                             (*  L3:                                    *)
-    05BH,                    (*  pop     ebx                            *)
-    05FH,                    (*  pop     edi                            *)
-    05EH,                    (*  pop     esi                            *)
-    05DH,                    (*  pop     ebp                            *)
-    0C2H, 00CH, 000H         (*  ret     12                             *)
-    )
-    RETURN 0
-END strncmp;
-
-
-PROCEDURE [stdcall] strncmpw (a, b, n: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.CODE(
-    056H,                    (*  push    esi                            *)
-    057H,                    (*  push    edi                            *)
-    053H,                    (*  push    ebx                            *)
-    08BH, 075H, 008H,        (*  mov     esi, dword[ebp +  8]; esi <- a *)
-    08BH, 07DH, 00CH,        (*  mov     edi, dword[ebp + 12]; edi <- b *)
-    08BH, 05DH, 010H,        (*  mov     ebx, dword[ebp + 16]; ebx <- n *)
-    031H, 0C9H,              (*  xor     ecx, ecx                       *)
-    031H, 0D2H,              (*  xor     edx, edx                       *)
-    0B8H,
-    000H, 000H, 000H, 080H,  (*  mov     eax, minint                    *)
-                             (*  L1:                                    *)
-    085H, 0DBH,              (*  test    ebx, ebx                       *)
-    07EH, 01BH,              (*  jle     L3                             *)
-    066H, 08BH, 00EH,        (*  mov     cx, word[esi]                  *)
-    066H, 08BH, 017H,        (*  mov     dx, word[edi]                  *)
-    046H,                    (*  inc     esi                            *)
-    046H,                    (*  inc     esi                            *)
-    047H,                    (*  inc     edi                            *)
-    047H,                    (*  inc     edi                            *)
-    04BH,                    (*  dec     ebx                            *)
-    039H, 0D1H,              (*  cmp     ecx, edx                       *)
-    074H, 006H,              (*  je      L2                             *)
-    089H, 0C8H,              (*  mov     eax, ecx                       *)
-    029H, 0D0H,              (*  sub     eax, edx                       *)
-    0EBH, 006H,              (*  jmp     L3                             *)
-                             (*  L2:                                    *)
-    085H, 0C9H,              (*  test    ecx, ecx                       *)
-    075H, 0E3H,              (*  jne     L1                             *)
-    031H, 0C0H,              (*  xor     eax, eax                       *)
-                             (*  L3:                                    *)
-    05BH,                    (*  pop     ebx                            *)
-    05FH,                    (*  pop     edi                            *)
-    05EH,                    (*  pop     esi                            *)
-    05DH,                    (*  pop     ebp                            *)
-    0C2H, 00CH, 000H         (*  ret     12                             *)
-    )
-    RETURN 0
-END strncmpw;
-
-
-PROCEDURE [stdcall] _strcmp* (op, len2, str2, len1, str1: INTEGER): BOOLEAN;
-VAR
-    res:  INTEGER;
-    bRes: BOOLEAN;
-    c:    CHAR;
-
-BEGIN
-    res := strncmp(str1, str2, MIN(len1, len2));
-    IF res = minint THEN
-        IF len1 > len2 THEN
-            SYSTEM.GET(str1 + len2, c);
-            res := ORD(c)
-        ELSIF len1 < len2 THEN
-            SYSTEM.GET(str2 + len1, c);
-            res := -ORD(c)
-        ELSE
-            res := 0
-        END
-    END;
-
-    CASE op OF
-    |0: bRes := res =  0
-    |1: bRes := res #  0
-    |2: bRes := res <  0
-    |3: bRes := res <= 0
-    |4: bRes := res >  0
-    |5: bRes := res >= 0
-    END
-
-    RETURN bRes
-END _strcmp;
-
-
-PROCEDURE [stdcall] _strcmpw* (op, len2, str2, len1, str1: INTEGER): BOOLEAN;
-VAR
-    res:  INTEGER;
-    bRes: BOOLEAN;
-    c:    WCHAR;
-
-BEGIN
-    res := strncmpw(str1, str2, MIN(len1, len2));
-    IF res = minint THEN
-        IF len1 > len2 THEN
-            SYSTEM.GET(str1 + len2 * 2, c);
-            res := ORD(c)
-        ELSIF len1 < len2 THEN
-            SYSTEM.GET(str2 + len1 * 2, c);
-            res := -ORD(c)
-        ELSE
-            res := 0
-        END
-    END;
-
-    CASE op OF
-    |0: bRes := res =  0
-    |1: bRes := res #  0
-    |2: bRes := res <  0
-    |3: bRes := res <= 0
-    |4: bRes := res >  0
-    |5: bRes := res >= 0
-    END
-
-    RETURN bRes
-END _strcmpw;
-
-
-PROCEDURE PCharToStr (pchar: INTEGER; VAR s: ARRAY OF CHAR);
-VAR
-    c: CHAR;
-    i: INTEGER;
-
-BEGIN
-    i := 0;
-    REPEAT
-        SYSTEM.GET(pchar, c);
-        s[i] := c;
-        INC(pchar);
-        INC(i)
-    UNTIL c = 0X
-END PCharToStr;
-
-
-PROCEDURE IntToStr (x: INTEGER; VAR str: ARRAY OF CHAR);
-VAR
-    i, a: INTEGER;
-
-BEGIN
-    i := 0;
-    a := x;
-    REPEAT
-        INC(i);
-        a := a DIV 10
-    UNTIL a = 0;
-
-    str[i] := 0X;
-
-    REPEAT
-        DEC(i);
-        str[i] := CHR(x MOD 10 + ORD("0"));
-        x := x DIV 10
-    UNTIL x = 0
-END IntToStr;
-
-
-PROCEDURE append (VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR);
-VAR
-    n1, n2: INTEGER;
-
-BEGIN
-    n1 := LENGTH(s1);
-    n2 := LENGTH(s2);
-
-    ASSERT(n1 + n2 < LEN(s1));
-
-    SYSTEM.MOVE(SYSTEM.ADR(s2[0]), SYSTEM.ADR(s1[n1]), n2);
-    s1[n1 + n2] := 0X
-END append;
-
-
-PROCEDURE [stdcall] _error* (modnum, _module, err, line: INTEGER);
-VAR
-    s, temp: ARRAY 1024 OF CHAR;
-
-BEGIN
-    CASE err OF
-    | 1: s := "assertion failure"
-    | 2: s := "NIL dereference"
-    | 3: s := "bad divisor"
-    | 4: s := "NIL procedure call"
-    | 5: s := "type guard error"
-    | 6: s := "index out of range"
-    | 7: s := "invalid CASE"
-    | 8: s := "array assignment error"
-    | 9: s := "CHR out of range"
-    |10: s := "WCHR out of range"
-    |11: s := "BYTE out of range"
-    END;
-
-    append(s, API.eol + "module: "); PCharToStr(_module, temp); append(s, temp);
-    append(s, API.eol + "line: ");   IntToStr(line, temp);     append(s, temp);
-
-    API.DebugMsg(SYSTEM.ADR(s[0]), name);
-
-    API.exit_thread(0)
-END _error;
-
-
-PROCEDURE [stdcall] _isrec* (t0, t1, r: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.GET(t0 + t1 + types, t0)
-    RETURN t0 MOD 2
-END _isrec;
-
-
-PROCEDURE [stdcall] _is* (t0, p: INTEGER): INTEGER;
-BEGIN
-    IF p # 0 THEN
-        SYSTEM.GET(p - WORD, p);
-        SYSTEM.GET(t0 + p + types, p)
-    END
-
-    RETURN p MOD 2
-END _is;
-
-
-PROCEDURE [stdcall] _guardrec* (t0, t1: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.GET(t0 + t1 + types, t0)
-    RETURN t0 MOD 2
-END _guardrec;
-
-
-PROCEDURE [stdcall] _guard* (t0, p: INTEGER): INTEGER;
-BEGIN
-    SYSTEM.GET(p, p);
-    IF p # 0 THEN
-        SYSTEM.GET(p - WORD, p);
-        SYSTEM.GET(t0 + p + types, p)
-    ELSE
-        p := 1
-    END
-
-    RETURN p MOD 2
-END _guard;
-
-
-PROCEDURE [stdcall] _dllentry* (hinstDLL, fdwReason, lpvReserved: INTEGER): INTEGER;
-    RETURN API.dllentry(hinstDLL, fdwReason, lpvReserved)
-END _dllentry;
-
-
-PROCEDURE [stdcall] _sofinit*;
-BEGIN
-    API.sofinit
-END _sofinit;
-
-
-PROCEDURE [stdcall] _exit* (code: INTEGER);
-BEGIN
-    API.exit(code)
-END _exit;
-
-
-PROCEDURE [stdcall] _init* (modname: INTEGER; tcount, _types: INTEGER; code, param: INTEGER);
-VAR
-    t0, t1, i, j: INTEGER;
-
-BEGIN
-    SYSTEM.CODE(09BH, 0DBH, 0E3H); (* finit *)
-    API.init(param, code);
-
-    types := API._NEW(tcount * tcount + SYSTEM.SIZE(INTEGER));
-    ASSERT(types # 0);
-    FOR i := 0 TO tcount - 1 DO
-        FOR j := 0 TO tcount - 1 DO
-            t0 := i; t1 := j;
-
-            WHILE (t1 # 0) & (t1 # t0) DO
-                SYSTEM.GET(_types + t1 * WORD, t1)
-            END;
-
-            SYSTEM.PUT8(i * tcount + j + types, ORD(t0 = t1))
-        END
-    END;
-
-    name := modname
-END _init;
-
-
-END RTL.
--- a/programs/develop/oberon07/lib/KolibriOS/RasterWorks.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/RasterWorks.ob07
@@ -1,124 +0,0 @@
-(*
-    Copyright 2016, 2018, 2022 KolibriOS team
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE RasterWorks;
-
-IMPORT sys := SYSTEM, KOSAPI;
-
-
-CONST
-
-(* flags *)
-
-  bold            *=   1;
-  italic          *=   2;
-  underline       *=   4;
-  strike_through  *=   8;
-  align_right     *=  16;
-  align_center    *=  32;
-
-  bpp32           *= 128;
-
-
-(* encoding *)
-
-  cp866           *=   1;
-  utf16le         *=   2;
-  utf8            *=   3;
-
-
-VAR
-
-  // draw text on 24bpp or 32bpp image
-  // autofits text between 'x' and 'xSize'
-  drawText *: PROCEDURE (canvas, x, y, string, charQuantity, fontColor, params: INTEGER): INTEGER;
-(*
-  [canvas]:
-    xSize        dd  ?
-    ySize        dd  ?
-    picture      rb  xSize * ySize * bpp
-
-   fontColor     dd  AARRGGBB
-    AA = alpha channel   ; 0 = transparent, FF = non transparent
-
-   params        dd  ffeewwhh
-    hh = char height
-    ww = char width      ; 0 = auto (proportional)
-    ee = encoding        ; 1 = cp866, 2 = UTF-16LE, 3 = UTF-8
-    ff = flags           ; 0001 = bold, 0010 = italic
-                         ; 0100 = underline, 1000 = strike-through
-   00010000 = align right, 00100000 = align center
-   01000000 = set text area between higher and lower halfs of 'x'
-   10000000 = 32bpp canvas insted of 24bpp
-   all flags combinable, except align right + align center
-
-   returns: char width (0 = error)
-*)
-
-  // calculate amount of valid chars in UTF-8 string
-  // supports zero terminated string (set byteQuantity = -1)
-  countUTF8Z *: PROCEDURE (string, byteQuantity: INTEGER): INTEGER;
-
-
-  // calculate amount of chars that fits given width
-  charsFit *: PROCEDURE (areaWidth, charHeight: INTEGER): INTEGER;
-
-
-  // calculate string width in pixels
-  strWidth *: PROCEDURE (charQuantity, charHeight: INTEGER): INTEGER;
-
-
-PROCEDURE params* (charHeight, charWidth, encoding, flags: INTEGER): INTEGER;
-(*
-    hh = char height
-    ww = char width      ; 0 = auto (proportional)
-    ee = encoding        ; 1 = cp866, 2 = UTF-16LE, 3 = UTF-8
-    ff = flags           ; 0001 = bold, 0010 = italic
-                        ; 0100 = underline, 1000 = strike-through
-   00010000 = align right, 00100000 = align center
-   01000000 = set text area between higher and lower halfs of 'x'
-   10000000 = 32bpp canvas insted of 24bpp
-   all flags combinable, except align right + align center
-*)
-  RETURN charHeight + LSL(charWidth, 8) + LSL(encoding, 16) + LSL(flags, 24)
-END params;
-
-
-PROCEDURE main;
-VAR Lib: INTEGER;
-
-  PROCEDURE GetProc(Lib, v: INTEGER; name: ARRAY OF CHAR);
-  VAR a: INTEGER;
-  BEGIN
-    a := KOSAPI.GetProcAdr(name, Lib);
-    ASSERT(a # 0);
-    sys.PUT(v, a)
-  END GetProc;
-
-BEGIN
-  Lib := KOSAPI.LoadLib("/sys/lib/RasterWorks.obj");
-  ASSERT(Lib # 0);
-  GetProc(Lib, sys.ADR(drawText),   "drawText");
-  GetProc(Lib, sys.ADR(countUTF8Z), "countUTF8Z");
-  GetProc(Lib, sys.ADR(charsFit),   "charsFit");
-  GetProc(Lib, sys.ADR(strWidth),   "strWidth");
-END main;
-
-
-BEGIN
-  main
-END RasterWorks.
--- a/programs/develop/oberon07/lib/KolibriOS/Read.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/Read.ob07
@@ -1,46 +0,0 @@
-(*
-    Copyright 2016, 2018 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE Read;
-
-IMPORT File, sys := SYSTEM;
-
-PROCEDURE Char*(F: File.FS; VAR x: CHAR): BOOLEAN;
-  RETURN File.Read(F, sys.ADR(x), sys.SIZE(CHAR)) = sys.SIZE(CHAR)
-END Char;
-
-PROCEDURE Int*(F: File.FS; VAR x: INTEGER): BOOLEAN;
-  RETURN File.Read(F, sys.ADR(x), sys.SIZE(INTEGER)) = sys.SIZE(INTEGER)
-END Int;
-
-PROCEDURE Real*(F: File.FS; VAR x: REAL): BOOLEAN;
-  RETURN File.Read(F, sys.ADR(x), sys.SIZE(REAL)) = sys.SIZE(REAL)
-END Real;
-
-PROCEDURE Boolean*(F: File.FS; VAR x: BOOLEAN): BOOLEAN;
-  RETURN File.Read(F, sys.ADR(x), sys.SIZE(BOOLEAN)) = sys.SIZE(BOOLEAN)
-END Boolean;
-
-PROCEDURE Set*(F: File.FS; VAR x: SET): BOOLEAN;
-  RETURN File.Read(F, sys.ADR(x), sys.SIZE(SET)) = sys.SIZE(SET)
-END Set;
-
-PROCEDURE WChar*(F: File.FS; VAR x: WCHAR): BOOLEAN;
-  RETURN File.Read(F, sys.ADR(x), sys.SIZE(WCHAR)) = sys.SIZE(WCHAR)
-END WChar;
-
-END Read.
--- a/programs/develop/oberon07/lib/KolibriOS/UnixTime.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/UnixTime.ob07
@@ -1,64 +0,0 @@
-(*
-    BSD 2-Clause License
-
-    Copyright (c) 2018-2019, Anton Krotov
-    All rights reserved.
-*)
-
-MODULE UnixTime;
-
-
-VAR
-
-    days: ARRAY 12, 31, 2 OF INTEGER;
-
-
-PROCEDURE init;
-VAR
-    i, j, k, n0, n1: INTEGER;
-BEGIN
-
-    FOR i := 0 TO 11 DO
-        FOR j := 0 TO 30 DO
-            days[i, j, 0] := 0;
-            days[i, j, 1] := 0;
-        END
-    END;
-
-    days[ 1, 28, 0] := -1;
-
-    FOR k := 0 TO 1 DO
-        days[ 1, 29, k] := -1;
-        days[ 1, 30, k] := -1;
-        days[ 3, 30, k] := -1;
-        days[ 5, 30, k] := -1;
-        days[ 8, 30, k] := -1;
-        days[10, 30, k] := -1;
-    END;
-
-    n0 := 0;
-    n1 := 0;
-    FOR i := 0 TO 11 DO
-        FOR j := 0 TO 30 DO
-            IF days[i, j, 0] = 0 THEN
-                days[i, j, 0] := n0;
-                INC(n0)
-            END;
-            IF days[i, j, 1] = 0 THEN
-                days[i, j, 1] := n1;
-                INC(n1)
-            END
-        END
-    END
-
-END init;
-
-
-PROCEDURE time* (year, month, day, hour, min, sec: INTEGER): INTEGER;
-    RETURN ((year - 1970) * 365 + days[month - 1, day - 1, ORD(year DIV 4 = 0)] + (year - 1969) DIV 4) * 86400 + hour * 3600 + min * 60 + sec
-END time;
-
-
-BEGIN
-    init
-END UnixTime.
--- a/programs/develop/oberon07/lib/KolibriOS/Vector.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/Vector.ob07
@@ -1,121 +0,0 @@
-(*
-    Copyright 2016 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE Vector;
-
-
-IMPORT sys := SYSTEM, K := KOSAPI;
-
-
-TYPE
-
-  DESC_VECTOR = RECORD
-
-    data   : INTEGER;
-    count  : INTEGER;
-    size   : INTEGER
-
-  END;
-
-  VECTOR* = POINTER TO DESC_VECTOR;
-
-  ANYREC* = RECORD END;
-
-  ANYPTR* = POINTER TO ANYREC;
-
-  DESTRUCTOR* = PROCEDURE (VAR ptr: ANYPTR);
-
-
-PROCEDURE count* (vector: VECTOR): INTEGER;
-BEGIN
-  ASSERT(vector # NIL)
-  RETURN vector.count
-END count;
-
-
-PROCEDURE push* (vector: VECTOR; value: ANYPTR);
-BEGIN
-  ASSERT(vector # NIL);
-  IF vector.count = vector.size THEN
-    vector.data := K.realloc(vector.data, (vector.size + 1024) * 4);
-    ASSERT(vector.data # 0);
-    vector.size := vector.size + 1024
-  END;
-  sys.PUT(vector.data + vector.count * 4, value);
-  INC(vector.count)
-END push;
-
-
-PROCEDURE get* (vector: VECTOR; idx: INTEGER): ANYPTR;
-VAR res: ANYPTR;
-BEGIN
-  ASSERT(vector # NIL);
-  ASSERT( (0 <= idx) & (idx < vector.count) );
-  sys.GET(vector.data + idx * 4, res)
-  RETURN res
-END get;
-
-
-PROCEDURE put* (vector: VECTOR; idx: INTEGER; value: ANYPTR);
-BEGIN
-  ASSERT(vector # NIL);
-  ASSERT( (0 <= idx) & (idx < vector.count) );
-  sys.PUT(vector.data + idx * 4, value)
-END put;
-
-
-PROCEDURE create* (size: INTEGER): VECTOR;
-VAR vector: VECTOR;
-BEGIN
-  NEW(vector);
-  IF vector # NIL THEN
-    vector.data  := K.malloc(4 * size);
-    IF vector.data # 0 THEN
-      vector.size  := size;
-      vector.count := 0
-    ELSE
-      DISPOSE(vector)
-    END
-  END
-  RETURN vector
-END create;
-
-
-PROCEDURE def_destructor (VAR any: ANYPTR);
-BEGIN
-  DISPOSE(any)
-END def_destructor;
-
-
-PROCEDURE destroy* (VAR vector: VECTOR; destructor: DESTRUCTOR);
-VAR i: INTEGER;
-    any: ANYPTR;
-BEGIN
-  ASSERT(vector # NIL);
-  IF destructor = NIL THEN
-    destructor := def_destructor
-  END;
-  FOR i := 0 TO vector.count - 1 DO
-    any := get(vector, i);
-    destructor(any)
-  END;
-  vector.data := K.free(vector.data);
-  DISPOSE(vector)
-END destroy;
-
-
-END Vector.
--- a/programs/develop/oberon07/lib/KolibriOS/Write.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/Write.ob07
@@ -1,46 +0,0 @@
-(*
-    Copyright 2016, 2018 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE Write;
-
-IMPORT File, sys := SYSTEM;
-
-PROCEDURE Char*(F: File.FS; x: CHAR): BOOLEAN;
-  RETURN File.Write(F, sys.ADR(x), sys.SIZE(CHAR)) = sys.SIZE(CHAR)
-END Char;
-
-PROCEDURE Int*(F: File.FS; x: INTEGER): BOOLEAN;
-  RETURN File.Write(F, sys.ADR(x), sys.SIZE(INTEGER)) = sys.SIZE(INTEGER)
-END Int;
-
-PROCEDURE Real*(F: File.FS; x: REAL): BOOLEAN;
-  RETURN File.Write(F, sys.ADR(x), sys.SIZE(REAL)) = sys.SIZE(REAL)
-END Real;
-
-PROCEDURE Boolean*(F: File.FS; x: BOOLEAN): BOOLEAN;
-  RETURN File.Write(F, sys.ADR(x), sys.SIZE(BOOLEAN)) = sys.SIZE(BOOLEAN)
-END Boolean;
-
-PROCEDURE Set*(F: File.FS; x: SET): BOOLEAN;
-  RETURN File.Write(F, sys.ADR(x), sys.SIZE(SET)) = sys.SIZE(SET)
-END Set;
-
-PROCEDURE WChar*(F: File.FS; x: WCHAR): BOOLEAN;
-  RETURN File.Write(F, sys.ADR(x), sys.SIZE(WCHAR)) = sys.SIZE(WCHAR)
-END WChar;
-
-END Write.
--- a/programs/develop/oberon07/lib/KolibriOS/kfonts.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/kfonts.ob07
@@ -1,492 +0,0 @@
-(*
-    Copyright 2016, 2018 Anton Krotov
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE kfonts;
-
-IMPORT sys := SYSTEM, File, KOSAPI;
-
-CONST
-
-  MIN_FONT_SIZE = 8;
-  MAX_FONT_SIZE = 46;
-
-  bold            *=   1;
-  italic          *=   2;
-  underline       *=   4;
-  strike_through  *=   8;
-  smoothing       *=  16;
-  bpp32           *=  32;
-
-TYPE
-
-  Glyph = RECORD
-    base: INTEGER;
-    xsize, ysize: INTEGER;
-    width: INTEGER
-  END;
-
-  TFont_desc = RECORD
-
-    data, size, font, char_size, width, height, font_size, mem, mempos: INTEGER;
-    glyphs: ARRAY 4, 256 OF Glyph
-
-  END;
-
-  TFont* = POINTER TO TFont_desc;
-
-
-PROCEDURE [stdcall] zeromem(size, adr: INTEGER);
-BEGIN
-  sys.CODE(057H, 08BH, 07DH, 00CH, 08BH, 04DH, 008H, 033H, 0C0H, 09CH, 0FCH, 0F3H, 0ABH, 09DH, 05FH)
-END zeromem;
-
-PROCEDURE pset(buf, x, y, color: INTEGER; bpp32: BOOLEAN);
-VAR xsize, ysize: INTEGER;
-BEGIN
-  sys.GET(buf, xsize);
-  sys.GET(buf + 4, ysize);
-  INC(buf, 8);
-  IF (0 <= x) & (x < xsize) & (0 <= y) & (y < ysize) THEN
-    IF bpp32 THEN
-      sys.PUT(buf + 4 * (xsize * y + x), color)
-    ELSE
-      sys.MOVE(sys.ADR(color), buf + 3 * (xsize * y + x), 3)
-    END
-  END
-END pset;
-
-PROCEDURE pget(buf, x, y: INTEGER; bpp32: BOOLEAN): INTEGER;
-VAR xsize, ysize, color: INTEGER;
-BEGIN
-  sys.GET(buf, xsize);
-  sys.GET(buf + 4, ysize);
-  INC(buf, 8);
-  IF (0 <= x) & (x < xsize) & (0 <= y) & (y < ysize) THEN
-    IF bpp32 THEN
-      sys.GET(buf + 4 * (xsize * y + x), color)
-    ELSE
-      sys.MOVE(buf + 3 * (xsize * y + x), sys.ADR(color), 3)
-    END
-  END
-  RETURN color
-END pget;
-
-PROCEDURE getrgb(color: INTEGER; VAR r, g, b: INTEGER);
-BEGIN
-  b := LSR(LSL(color, 24), 24);
-  g := LSR(LSL(color, 16), 24);
-  r := LSR(LSL(color,  8), 24);
-END getrgb;
-
-PROCEDURE rgb(r, g, b: INTEGER): INTEGER;
-  RETURN b + LSL(g, 8) + LSL(r, 16)
-END rgb;
-
-PROCEDURE create_glyph(VAR Font: TFont_desc; VAR glyph: Glyph; xsize, ysize: INTEGER);
-BEGIN
-  glyph.base := Font.mempos;
-  glyph.xsize := xsize;
-  glyph.ysize := ysize;
-  Font.mempos := Font.mempos + xsize * ysize
-END create_glyph;
-
-PROCEDURE getpix(Font: TFont_desc; n, x, y, xsize: INTEGER): CHAR;
-VAR res: CHAR;
-BEGIN
-  sys.GET(Font.mem + n + x + y * xsize, res)
-  RETURN res
-END getpix;
-
-PROCEDURE setpix(VAR Font: TFont_desc; n, x, y, xsize: INTEGER; c: CHAR);
-BEGIN
-  sys.PUT(Font.mem + n + x + y * xsize, c)
-END setpix;
-
-PROCEDURE smooth(VAR Font: TFont_desc; n, xsize, ysize: INTEGER);
-VAR x, y: INTEGER;
-BEGIN
-  FOR y := 1 TO ysize - 1 DO
-    FOR x := 1 TO xsize - 1 DO
-      IF (getpix(Font, n, x, y, xsize) = 1X) & (getpix(Font, n, x - 1, y - 1, xsize) = 1X) &
-         (getpix(Font, n, x - 1, y, xsize) = 0X) & (getpix(Font, n, x, y - 1, xsize) = 0X) THEN
-        setpix(Font, n, x - 1, y, xsize, 2X);
-        setpix(Font, n, x, y - 1, xsize, 2X)
-      END;
-      IF (getpix(Font, n, x, y, xsize) = 0X) & (getpix(Font, n, x - 1, y - 1, xsize) = 0X) &
-         (getpix(Font, n, x - 1, y, xsize) = 1X) & (getpix(Font, n, x, y - 1, xsize) = 1X) THEN
-        setpix(Font, n, x, y, xsize, 2X);
-        setpix(Font, n, x - 1, y - 1, xsize, 2X)
-      END
-    END
-  END
-END smooth;
-
-PROCEDURE _bold(VAR Font: TFont_desc; src, dst, src_xsize, dst_xsize, n: INTEGER);
-VAR i, j, k: INTEGER; pix: CHAR;
-BEGIN
-  FOR i := 0 TO src_xsize - 1 DO
-    FOR j := 0 TO Font.height - 1 DO
-      pix := getpix(Font, src, i, j, src_xsize);
-      IF pix = 1X THEN
-        FOR k := 0 TO n DO
-          setpix(Font, dst, i + k, j, dst_xsize, pix)
-        END
-      END
-    END
-  END
-END _bold;
-
-PROCEDURE make_glyph(VAR Font: TFont_desc; c: INTEGER);
-VAR ptr, i, j, max, x, y: INTEGER; s: SET; eoc: BOOLEAN;
-    glyph: Glyph; pix: CHAR; bold_width: INTEGER;
-BEGIN
-  create_glyph(Font, glyph, Font.width, Font.height);
-  x := 0;
-  y := 0;
-  max := 0;
-  ptr := Font.font + Font.char_size * c;
-  eoc := FALSE;
-  REPEAT
-    sys.GET(ptr, s);
-    INC(ptr, 4);
-    FOR i := 0 TO 31 DO
-      IF ~eoc THEN
-        IF i IN s THEN
-          setpix(Font, glyph.base, x, y, Font.width, 1X);
-          IF x > max THEN
-            max := x
-          END
-        ELSE
-          setpix(Font, glyph.base, x, y, Font.width, 0X)
-        END
-      END;
-      INC(x);
-      IF x = Font.width THEN
-        x := 0;
-        INC(y);
-        eoc := eoc OR (y = Font.height)
-      END
-    END
-  UNTIL eoc;
-  IF max = 0 THEN
-    max := Font.width DIV 3
-  END;
-
-  glyph.width := max;
-  smooth(Font, glyph.base, glyph.xsize, glyph.ysize);
-  Font.glyphs[0, c] := glyph;
-
-  bold_width := 1;
-
-  create_glyph(Font, glyph, Font.width + bold_width, Font.height);
-  _bold(Font, Font.glyphs[0, c].base, glyph.base, Font.glyphs[0, c].xsize, glyph.xsize, bold_width);
-  smooth(Font, glyph.base, glyph.xsize, glyph.ysize);
-  glyph.width := max + bold_width;
-  Font.glyphs[1, c] := glyph;
-
-  create_glyph(Font, glyph, Font.width + (Font.height - 1) DIV 3, Font.height);
-  FOR i := 0 TO Font.glyphs[0, c].xsize - 1 DO
-    FOR j := 0 TO Font.height - 1 DO
-      pix := getpix(Font, Font.glyphs[0, c].base, i, j, Font.glyphs[0, c].xsize);
-      IF pix = 1X THEN
-        setpix(Font, glyph.base, i + (Font.height - 1 - j) DIV 3, j, glyph.xsize, pix)
-      END
-    END
-  END;
-  smooth(Font, glyph.base, glyph.xsize, glyph.ysize);
-  glyph.width := max;
-  Font.glyphs[2, c] := glyph;
-
-  create_glyph(Font, glyph, Font.width + (Font.height - 1) DIV 3 + bold_width, Font.height);
-  _bold(Font, Font.glyphs[2, c].base, glyph.base, Font.glyphs[2, c].xsize, glyph.xsize, bold_width);
-  smooth(Font, glyph.base, glyph.xsize, glyph.ysize);
-  glyph.width := max + bold_width;
-  Font.glyphs[3, c] := glyph;
-
-END make_glyph;
-
-PROCEDURE OutChar(Font: TFont_desc; c: INTEGER; x, y: INTEGER; buf: INTEGER; bpp32, smoothing: BOOLEAN; color, style: INTEGER): INTEGER;
-VAR i, x0, y0, xsize, mem, xmax: INTEGER; r, g, b, r0, g0, b0: INTEGER; ch: CHAR; glyph: Glyph;
-BEGIN
-  x0 := x;
-  y0 := y;
-  style := style MOD 4;
-  glyph := Font.glyphs[style, c];
-  xsize := glyph.xsize;
-  xmax := x0 + xsize;
-  mem := Font.mem + glyph.base;
-  getrgb(color, r0, g0, b0);
-  FOR i := mem TO mem + xsize * Font.height - 1 DO
-    sys.GET(i, ch);
-    IF ch = 1X THEN
-      pset(buf, x, y, color, bpp32);
-    ELSIF (ch = 2X) & smoothing THEN
-      getrgb(pget(buf, x, y, bpp32), r, g, b);
-      r := (r * 3 + r0) DIV 4;
-      g := (g * 3 + g0) DIV 4;
-      b := (b * 3 + b0) DIV 4;
-      pset(buf, x, y, rgb(r, g, b), bpp32)
-    END;
-    INC(x);
-    IF x = xmax THEN
-      x := x0;
-      INC(y)
-    END
-  END
-  RETURN glyph.width
-END OutChar;
-
-PROCEDURE hline(buf, x, y, width, color: INTEGER; bpp32: BOOLEAN);
-VAR i: INTEGER;
-BEGIN
-  FOR i := x TO x + width - 1 DO
-    pset(buf, i, y, color, bpp32)
-  END
-END hline;
-
-PROCEDURE TextWidth*(Font: TFont; str, length, params: INTEGER): INTEGER;
-VAR res: INTEGER; c: CHAR;
-BEGIN
-  res := 0;
-  params := params MOD 4;
-  IF Font # NIL THEN
-    sys.GET(str, c);
-    WHILE (length > 0) OR (length = -1) & (c # 0X) DO
-      INC(str);
-      res := res + Font.glyphs[params, ORD(c)].width;
-      IF length > 0 THEN
-        DEC(length)
-      END;
-      IF length # 0 THEN
-        sys.GET(str, c)
-      END
-    END
-  END
-  RETURN res
-END TextWidth;
-
-PROCEDURE TextHeight*(Font: TFont): INTEGER;
-VAR res: INTEGER;
-BEGIN
-  IF Font # NIL THEN
-    res := Font.height
-  ELSE
-    res := 0
-  END
-  RETURN res
-END TextHeight;
-
-PROCEDURE TextClipLeft(Font: TFont; str, length, params: INTEGER; VAR x: INTEGER): INTEGER;
-VAR x1: INTEGER; c: CHAR;
-BEGIN
-  params := params MOD 4;
-  sys.GET(str, c);
-  WHILE (length > 0) OR (length = -1) & (c # 0X) DO
-    INC(str);
-    x1 := x;
-    x := x + Font.glyphs[params, ORD(c)].width;
-    IF x > 0 THEN
-      length := 0;
-    END;
-    IF length > 0 THEN
-      DEC(length)
-    END;
-    IF length # 0 THEN
-      sys.GET(str, c)
-    END
-  END;
-  x := x1
-  RETURN str - 1
-END TextClipLeft;
-
-PROCEDURE TextOut*(Font: TFont; canvas, x, y, str, length, color, params: INTEGER);
-VAR width, xsize, ysize, str1, n: INTEGER; c: CHAR; bpp32, smoothing, underline, strike: BOOLEAN;
-BEGIN
-  IF Font # NIL THEN
-    sys.GET(canvas,     xsize);
-    sys.GET(canvas + 4, ysize);
-    IF (y <= -TextHeight(Font)) OR (y >= ysize) THEN
-      length := 0
-    END;
-    IF length # 0 THEN
-      smoothing := 4 IN BITS(params);
-      bpp32 := 5 IN BITS(params);
-      underline := 2 IN BITS(params);
-      strike := 3 IN BITS(params);
-      str1 := TextClipLeft(Font, str, length, params, x);
-      n := str1 - str;
-      str := str1;
-      IF length >= n THEN
-        length := length - n
-      END;
-      sys.GET(str, c)
-    END;
-    WHILE (length > 0) OR (length = -1) & (c # 0X) DO
-      INC(str);
-      width := OutChar(Font^, ORD(c), x, y, canvas, bpp32, smoothing, color, params);
-      IF strike THEN
-        hline(canvas, x + ORD(1 IN BITS(params)) * ((Font.height DIV 2) DIV 3), y + Font.height DIV 2, width + 2, color, bpp32)
-      END;
-      IF underline THEN
-        hline(canvas, x, y + Font.height - 1, width + 2, color, bpp32)
-      END;
-      x := x + width;
-      IF x > xsize THEN
-        length := 0
-      END;
-      IF length > 0 THEN
-        DEC(length)
-      END;
-      IF length # 0 THEN
-        sys.GET(str, c)
-      END
-    END
-  END
-END TextOut;
-
-PROCEDURE SetSize*(_Font: TFont; font_size: INTEGER): BOOLEAN;
-VAR temp, offset, fsize, i, memsize, mem: INTEGER;
-    c: CHAR; Font, Font2: TFont_desc;
-BEGIN
-  offset := -1;
-  IF (MIN_FONT_SIZE <= font_size) & (font_size <= MAX_FONT_SIZE) & (_Font # NIL) THEN
-    Font := _Font^;
-    Font2 := Font;
-    temp := Font.data + (font_size - 8) * 4;
-    IF (Font.data <= temp) & (temp <= Font.size + Font.data - 4) THEN
-      sys.GET(temp, offset);
-      IF offset # -1 THEN
-        Font.font_size := font_size;
-        INC(offset, 156);
-        offset := offset + Font.data;
-        IF (Font.data <= offset) & (offset <= Font.size + Font.data - 4) THEN
-          sys.GET(offset, fsize);
-          IF fsize > 256 + 6 THEN
-            temp := offset + fsize - 1;
-            IF (Font.data <= temp) & (temp <= Font.size + Font.data - 1) THEN
-              sys.GET(temp, c);
-              IF c # 0X THEN
-                Font.height := ORD(c);
-                DEC(temp);
-                sys.GET(temp, c);
-                IF c # 0X THEN
-                  Font.width := ORD(c);
-                  DEC(fsize, 6);
-                  Font.char_size := fsize DIV 256;
-                  IF fsize MOD 256 # 0 THEN
-                    INC(Font.char_size)
-                  END;
-                  IF Font.char_size > 0 THEN
-                    Font.font := offset + 4;
-                    Font.mempos := 0;
-                    memsize := (Font.width + 10) * Font.height * 1024;
-                    mem := Font.mem;
-                    Font.mem := KOSAPI.sysfunc3(68, 12, memsize);
-                    IF Font.mem # 0 THEN
-                      IF mem # 0 THEN
-                        mem := KOSAPI.sysfunc3(68, 13, mem)
-                      END;
-                      zeromem(memsize DIV 4, Font.mem);
-                      FOR i := 0 TO 255 DO
-                        make_glyph(Font, i)
-                      END
-                    ELSE
-                      offset := -1
-                    END
-                  ELSE
-                    offset := -1
-                  END
-                ELSE
-                  offset := -1
-                END
-              ELSE
-                offset := -1
-              END
-            ELSE
-              offset := -1
-            END
-          ELSE
-            offset := -1
-          END
-        ELSE
-          offset := -1
-        END
-      END;
-    ELSE
-      offset := -1
-    END;
-    IF offset # -1 THEN
-      _Font^ := Font
-    ELSE
-      _Font^ := Font2
-    END
-  END
-  RETURN offset # -1
-END SetSize;
-
-PROCEDURE Enabled*(Font: TFont; font_size: INTEGER): BOOLEAN;
-VAR offset, temp: INTEGER;
-BEGIN
-  offset := -1;
-  IF (MIN_FONT_SIZE <= font_size) & (font_size <= MAX_FONT_SIZE) & (Font # NIL) THEN
-    temp := Font.data + (font_size - 8) * 4;
-    IF (Font.data <= temp) & (temp <= Font.size + Font.data - 4) THEN
-      sys.GET(temp, offset)
-    END
-  END
-  RETURN offset # -1
-END Enabled;
-
-PROCEDURE Destroy*(VAR Font: TFont);
-BEGIN
-  IF Font # NIL THEN
-    IF Font.mem # 0 THEN
-      Font.mem := KOSAPI.sysfunc3(68, 13, Font.mem)
-    END;
-    IF Font.data # 0 THEN
-      Font.data := KOSAPI.sysfunc3(68, 13, Font.data)
-    END;
-    DISPOSE(Font)
-  END
-END Destroy;
-
-PROCEDURE LoadFont*(file_name: ARRAY OF CHAR): TFont;
-VAR Font: TFont; data, size, n: INTEGER;
-BEGIN
-  data := File.Load(file_name, size);
-  IF (data # 0) & (size > 156) THEN
-    NEW(Font);
-    Font.data := data;
-    Font.size := size;
-    Font.font_size := 0;
-    n := MIN_FONT_SIZE;
-    WHILE ~SetSize(Font, n) & (n <= MAX_FONT_SIZE) DO
-      INC(n)
-    END;
-    IF Font.font_size = 0 THEN
-      Destroy(Font)
-    END
-  ELSE
-    IF data # 0 THEN
-      data := KOSAPI.sysfunc3(68, 13, data)
-    END;
-    Font := NIL
-  END
-  RETURN Font
-END LoadFont;
-
-END kfonts.
--- a/programs/develop/oberon07/lib/KolibriOS/libimg.ob07
+++ b/programs/develop/oberon07/lib/KolibriOS/libimg.ob07
@@ -1,435 +0,0 @@
-(*
-    Copyright 2016, 2018, 2020, 2022 KolibriOS team
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Lesser General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Lesser General Public License for more details.
-
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*)
-
-MODULE libimg;
-
-IMPORT sys := SYSTEM, KOSAPI;
-
-
-CONST
-
-  FLIP_VERTICAL   *= 1;
-  FLIP_HORIZONTAL *= 2;
-
-
-  ROTATE_90_CW    *= 1;
-  ROTATE_180      *= 2;
-  ROTATE_270_CW   *= 3;
-  ROTATE_90_CCW   *= ROTATE_270_CW;
-  ROTATE_270_CCW  *= ROTATE_90_CW;
-
-
-  // scale type                       corresponding img_scale params
-  LIBIMG_SCALE_INTEGER     *= 1;  //    scale factor ; reserved 0
-  LIBIMG_SCALE_TILE        *= 2;  //    new width    ; new height
-  LIBIMG_SCALE_STRETCH     *= 3;  //    new width    ; new height
-  LIBIMG_SCALE_FIT_RECT    *= 4;  //    new width    ; new height
-  LIBIMG_SCALE_FIT_WIDTH   *= 5;  //    new width    ; new height
-  LIBIMG_SCALE_FIT_HEIGHT  *= 6;  //    new width    ; new height
-  LIBIMG_SCALE_FIT_MAX     *= 7;  //    new width    ; new height
-
-
-  // interpolation algorithm
-  LIBIMG_INTER_NONE        *= 0;  //    use it with LIBIMG_SCALE_INTEGER, LIBIMG_SCALE_TILE, etc
-  LIBIMG_INTER_BILINEAR    *= 1;
-  LIBIMG_INTER_DEFAULT     *= LIBIMG_INTER_BILINEAR;
-
-
-  // list of format id's
-  LIBIMG_FORMAT_BMP        *=  1;
-  LIBIMG_FORMAT_ICO        *=  2;
-  LIBIMG_FORMAT_CUR        *=  3;
-  LIBIMG_FORMAT_GIF        *=  4;
-  LIBIMG_FORMAT_PNG        *=  5;
-  LIBIMG_FORMAT_JPEG       *=  6;
-  LIBIMG_FORMAT_TGA        *=  7;
-  LIBIMG_FORMAT_PCX        *=  8;
-  LIBIMG_FORMAT_XCF        *=  9;
-  LIBIMG_FORMAT_TIFF       *= 10;
-  LIBIMG_FORMAT_PNM        *= 11;
-  LIBIMG_FORMAT_WBMP       *= 12;
-  LIBIMG_FORMAT_XBM        *= 13;
-  LIBIMG_FORMAT_Z80        *= 14;
-
-
-  // encode flags (byte 0x02 of common option)
-  LIBIMG_ENCODE_STRICT_SPECIFIC   *= 01H;
-  LIBIMG_ENCODE_STRICT_BIT_DEPTH  *= 02H;
-  LIBIMG_ENCODE_DELETE_ALPHA      *= 08H;
-  LIBIMG_ENCODE_FLUSH_ALPHA       *= 10H;
-
-
-  // values for Image.Type
-  // must be consecutive to allow fast switch on Image.Type in support functions
-  bpp8i  *=   1;  // indexed
-  bpp24  *=   2;
-  bpp32  *=   3;
-  bpp15  *=   4;
-  bpp16  *=   5;
-  bpp1   *=   6;
-  bpp8g  *=   7;  // grayscale
-  bpp2i  *=   8;
-  bpp4i  *=   9;
-  bpp8a  *=  10;  // grayscale with alpha channel; application layer only!!! kernel doesn't handle this image type, libimg can only create and destroy such images
-
-
-  // bits in Image.Flags
-  IsAnimated *= 1;
-
-
-TYPE
-
-  Image* = RECORD
-
-    Checksum  *: INTEGER;
-    Width     *: INTEGER;
-    Height    *: INTEGER;
-    Next      *: INTEGER;
-    Previous  *: INTEGER;
-    Type      *: INTEGER; // one of bppN
-    Data      *: INTEGER;
-    Palette   *: INTEGER; // used iff Type eq bpp1, bpp2, bpp4 or bpp8i
-    Extended  *: INTEGER;
-    Flags     *: INTEGER; // bitfield
-    Delay     *: INTEGER  // used iff IsAnimated is set in Flags
-
-  END;
-
-
-  ImageDecodeOptions* = RECORD
-
-    UsedSize         *: INTEGER; // if >=8, the field BackgroundColor is valid, and so on
-    BackgroundColor  *: INTEGER  // used for transparent images as background
-
-  END;
-
-
-  FormatsTableEntry* = RECORD
-
-    Format_id     *: INTEGER;
-    Is            *: INTEGER;
-    Decode        *: INTEGER;
-    Encode        *: INTEGER;
-    Capabilities  *: INTEGER
-
-  END;
-
-
-VAR
-
-    img_is_img         *: PROCEDURE (data, length: INTEGER): INTEGER;
-
-
-
-    img_to_rgb2        *: PROCEDURE (img: INTEGER; out: INTEGER);
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? decodes image data into RGB triplets and stores them where out points to                       ;;
-;;------------------------------------------------------------------------------------------------;;
-;> img = pointer to source image                                                                  ;;
-;> out = where to store RGB triplets                                                              ;;
-;;================================================================================================;;
-*)
-
-
-
-    img_to_rgb         *: PROCEDURE (img: INTEGER): INTEGER;
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? decodes image data into RGB triplets and returns pointer to memory area containing them        ;;
-;;------------------------------------------------------------------------------------------------;;
-;> img = pointer to source image                                                                  ;;
-;;------------------------------------------------------------------------------------------------;;
-;< 0 / pointer to rgb_data (array of [rgb] triplets)                                              ;;
-;;================================================================================================;;
-*)
-
-
-
-    img_decode         *: PROCEDURE (data, length, options: INTEGER): INTEGER;
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? decodes loaded into memory graphic file                                                        ;;
-;;------------------------------------------------------------------------------------------------;;
-;> data    = pointer to file in memory                                                            ;;
-;> length  = size in bytes of memory area pointed to by data                                      ;;
-;> options = 0 / pointer to the structure of additional options                                   ;;
-;;------------------------------------------------------------------------------------------------;;
-;< 0 / pointer to image                                                                           ;;
-;;================================================================================================;;
-*)
-
-
-
-    img_encode         *: PROCEDURE (img: INTEGER; common, specific: INTEGER): INTEGER;
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? encode image to some format                                                                    ;;
-;;------------------------------------------------------------------------------------------------;;
-;> img      = pointer to input image                                                              ;;
-;> common   = some most important options                                                         ;;
-;     0x00 :  byte : format id                                                                    ;;
-;     0x01 :  byte : fast encoding (0) / best compression ratio (255)                             ;;
-;                    0 : store uncompressed data (if supported both by the format and libimg)     ;;
-;                    1 - 255 : use compression, if supported                                      ;;
-;                    this option may be ignored if any format specific options are defined        ;;
-;                    i.e. the 0 here will be ignored if some compression algorithm is specified   ;;
-;     0x02 :  byte : flags (bitfield)                                                             ;;
-;                   0x01 : return an error if format specific conditions cannot be met            ;;
-;                   0x02 : preserve current bit depth. means 8bpp/16bpp/24bpp and so on           ;;
-;                   0x04 : delete alpha channel, if any                                           ;;
-;                   0x08 : flush alpha channel with 0xff, if any; add it if none                  ;;
-;     0x03 :  byte : reserved, must be 0                                                          ;;
-;> specific = 0 / pointer to the structure of format specific options                             ;;
-;                   see <format_name>.inc for description                                         ;;
-;;------------------------------------------------------------------------------------------------;;
-;< 0 / pointer to encoded data                                                                    ;;
-;;================================================================================================;;
-  *)
-
-
-
-    img_create         *: PROCEDURE (width, height, _type: INTEGER): INTEGER;
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? creates an Image structure and initializes some its fields                                     ;;
-;;------------------------------------------------------------------------------------------------;;
-;> width  = width of an image in pixels                                                           ;;
-;> height = height of an image in pixels                                                          ;;
-;> type   = one of the bppN constants                                                             ;;
-;;------------------------------------------------------------------------------------------------;;
-;< 0 / pointer to image                                                                           ;;
-;;================================================================================================;;
-*)
-
-
-
-    img_destroy        *: PROCEDURE (img: INTEGER): BOOLEAN;
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? frees memory occupied by an image and all the memory regions its fields point to               ;;
-;? follows Previous/Next pointers and deletes all the images in sequence                          ;;
-;;------------------------------------------------------------------------------------------------;;
-;> img = pointer to image                                                                         ;;
-;;------------------------------------------------------------------------------------------------;;
-;< FALSE (fail) / TRUE (success)                                                                  ;;
-;;================================================================================================;;
-*)
-
-
-
-    img_destroy_layer  *: PROCEDURE (img: INTEGER): BOOLEAN;
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? frees memory occupied by an image and all the memory regions its fields point to               ;;
-;? for image sequences deletes only one frame and fixes Previous/Next pointers                    ;;
-;;------------------------------------------------------------------------------------------------;;
-;> img = pointer to image                                                                         ;;
-;;------------------------------------------------------------------------------------------------;;
-;< FALSE (fail) / TRUE (success)                                                                  ;;
-;;================================================================================================;;
-*)
-
-
-
-    img_count          *: PROCEDURE (img: INTEGER): INTEGER;
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? Get number of images in the list (e.g. in animated GIF file)                                   ;;
-;;------------------------------------------------------------------------------------------------;;
-;> img = pointer to image                                                                         ;;
-;;------------------------------------------------------------------------------------------------;;
-;< -1 (fail) / >0 (ok)                                                                            ;;
-;;================================================================================================;;
-*)
-
-
-
-    img_flip           *: PROCEDURE (img: INTEGER; flip_kind: INTEGER): BOOLEAN;
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? Flip all layers of image                                                                       ;;
-;;------------------------------------------------------------------------------------------------;;
-;> img = pointer to image                                                                         ;;
-;> flip_kind = one of FLIP_* constants                                                            ;;
-;;------------------------------------------------------------------------------------------------;;
-;< FALSE / TRUE                                                                                   ;;
-;;================================================================================================;;
-*)
-
-
-
-    img_flip_layer     *: PROCEDURE (img: INTEGER; flip_kind: INTEGER): BOOLEAN;
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? Flip image layer                                                                               ;;
-;;------------------------------------------------------------------------------------------------;;
-;> img = pointer to image                                                                         ;;
-;> flip_kind = one of FLIP_* constants                                                            ;;
-;;------------------------------------------------------------------------------------------------;;
-;< FALSE / TRUE                                                                                   ;;
-;;================================================================================================;;
-*)
-
-
-
-    img_rotate         *: PROCEDURE (img: INTEGER; rotate_kind: INTEGER): BOOLEAN;
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? Rotate all layers of image                                                                     ;;
-;;------------------------------------------------------------------------------------------------;;
-;> img = pointer to image                                                                         ;;
-;> rotate_kind = one of ROTATE_* constants                                                        ;;
-;;------------------------------------------------------------------------------------------------;;
-;< FALSE / TRUE                                                                                   ;;
-;;================================================================================================;;
-*)
-
-
-
-    img_rotate_layer   *: PROCEDURE (img: INTEGER; rotate_kind: INTEGER): BOOLEAN;
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? Rotate image layer                                                                             ;;
-;;------------------------------------------------------------------------------------------------;;
-;> img = pointer to image                                                                         ;;
-;> rotate_kind = one of ROTATE_* constants                                                        ;;
-;;------------------------------------------------------------------------------------------------;;
-;< FALSE / TRUE                                                                                   ;;
-;;================================================================================================;;
-*)
-
-
-
-    img_draw           *: PROCEDURE (img: INTEGER; x, y, width, height, xpos, ypos: INTEGER);
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? Draw image in the window                                                                       ;;
-;;------------------------------------------------------------------------------------------------;;
-;> img = pointer to image                                                                         ;;
-;> x = x-coordinate in the window                                                                 ;;
-;> y = y-coordinate in the window                                                                 ;;
-;> width = maximum width to draw                                                                  ;;
-;> height = maximum height to draw                                                                ;;
-;> xpos = offset in image by x-axis                                                               ;;
-;> ypos = offset in image by y-axis                                                               ;;
-;;================================================================================================;;
-*)
-
-
-
-    img_scale          *: PROCEDURE (src: INTEGER; crop_x, crop_y, crop_width, crop_height: INTEGER; dst: INTEGER; scale, inter, param1, param2: INTEGER ): INTEGER;
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? scale _image                                                                                   ;;
-;;------------------------------------------------------------------------------------------------;;
-;> src         = pointer to source image                                                          ;;
-;> crop_x      = left coord of cropping rect                                                      ;;
-;> crop_y      = top coord of cropping rect                                                       ;;
-;> crop_width  = width of cropping rect                                                           ;;
-;> crop_height = height of cropping rect                                                          ;;
-;> dst         = pointer to resulting image / 0                                                   ;;
-;> scale       = how to change width and height. see libimg.inc                                   ;;
-;> inter       = interpolation algorithm                                                          ;;
-;> param1      = see libimg.inc                                                                   ;;
-;> param2      = see libimg.inc                                                                   ;;
-;;------------------------------------------------------------------------------------------------;;
-;< 0 / pointer to scaled image                                                                    ;;
-;;================================================================================================;;
-*)
-
-
-
-    img_convert        *: PROCEDURE (src, dst: INTEGER; dst_type, flags, param: INTEGER);
-(*
-;;------------------------------------------------------------------------------------------------;;
-;? scale _image                                                                                   ;;
-;;------------------------------------------------------------------------------------------------;;
-;> src      = pointer to source image                                                             ;;
-;> flags    = see libimg.inc                                                                      ;;
-;> dst_type = the Image.Type of converted image                                                   ;;
-;> dst      = pointer to destination image, if any                                                ;;
-;;------------------------------------------------------------------------------------------------;;
-;< 0 / pointer to converted image                                                                 ;;
-;;================================================================================================;;
-*)
-
-
-    img_formats_table  *: ARRAY 20 OF FormatsTableEntry;
-
-
-
-PROCEDURE GetImageStruct* (img: INTEGER; VAR ImageStruct: Image): BOOLEAN;
-BEGIN
-  IF img # 0 THEN
-    sys.MOVE(img, sys.ADR(ImageStruct), sys.SIZE(Image))
-  END
-  RETURN img # 0
-END GetImageStruct;
-
-
-PROCEDURE GetFormatsTable(ptr: INTEGER);
-VAR i: INTEGER; eot: BOOLEAN;
-BEGIN
-  i := 0;
-  REPEAT
-    sys.MOVE(ptr, sys.ADR(img_formats_table[i]), sys.SIZE(FormatsTableEntry));
-    ptr := ptr + sys.SIZE(FormatsTableEntry);
-    eot := img_formats_table[i].Format_id = 0;
-    INC(i)
-  UNTIL eot OR (i = LEN(img_formats_table))
-END GetFormatsTable;
-
-
-PROCEDURE main;
-VAR Lib, formats_table_ptr: INTEGER;
-
-  PROCEDURE GetProc(Lib, v: INTEGER; name: ARRAY OF CHAR);
-  VAR a: INTEGER;
-  BEGIN
-    a := KOSAPI.GetProcAdr(name, Lib);
-    ASSERT(a # 0);
-    sys.PUT(v, a)
-  END GetProc;
-
-BEGIN
-  Lib := KOSAPI.LoadLib("/sys/lib/libimg.obj");
-  ASSERT(Lib # 0);
-  GetProc(Lib, sys.ADR(img_is_img)        , "img_is_img");
-  GetProc(Lib, sys.ADR(img_to_rgb)        , "img_to_rgb");
-  GetProc(Lib, sys.ADR(img_to_rgb2)       , "img_to_rgb2");
-  GetProc(Lib, sys.ADR(img_decode)        , "img_decode");
-  GetProc(Lib, sys.ADR(img_encode)        , "img_encode");
-  GetProc(Lib, sys.ADR(img_create)        , "img_create");
-  GetProc(Lib, sys.ADR(img_destroy)       , "img_destroy");
-  GetProc(Lib, sys.ADR(img_destroy_layer) , "img_destroy_layer");
-  GetProc(Lib, sys.ADR(img_count)         , "img_count");
-  GetProc(Lib, sys.ADR(img_flip)          , "img_flip");
-  GetProc(Lib, sys.ADR(img_flip_layer)    , "img_flip_layer");
-  GetProc(Lib, sys.ADR(img_rotate)        , "img_rotate");
-  GetProc(Lib, sys.ADR(img_rotate_layer)  , "img_rotate_layer");
-  GetProc(Lib, sys.ADR(img_draw)          , "img_draw");
-  GetProc(Lib, sys.ADR(img_scale)         , "img_scale");
-  GetProc(Lib, sys.ADR(img_convert)       , "img_convert");
-  GetProc(Lib, sys.ADR(formats_table_ptr) , "img_formats_table");
-  GetFormatsTable(formats_table_ptr)
-END main;
-
-
-BEGIN
-  main
-END libimg.
--- a/programs/develop/oberon07/lib/Math/CMath.ob07
+++ b/programs/develop/oberon07/lib/Math/CMath.ob07
@@ -1,462 +0,0 @@
-(* ***********************************************
-    Модуль работы с комплексными числами.
-    Вадим Исаев, 2020
-    Module for complex numbers.
-    Vadim Isaev, 2020
-*************************************************** *)
-
-MODULE CMath;
-
-IMPORT Math, Out;
-
-TYPE
-  complex* = POINTER TO RECORD
-    re*: REAL;
-    im*: REAL
-  END;
-
-VAR
-  result: complex;
-
-  i* : complex;
-  _0*: complex;
-
-(* Инициализация комплексного числа.
-   Init complex number. *)
-PROCEDURE CInit* (re : REAL; im: REAL): complex;
-VAR
-  temp: complex;
-BEGIN
-  NEW(temp);
-  temp.re:=re;
-  temp.im:=im;
-
-  RETURN temp
-END CInit;
-
-
-(* Четыре основных арифметических операций.
-   Four base operations  +, -, * , / *)
-
-(* Сложение
-   addition : z := z1 + z2 *)
-PROCEDURE CAdd* (z1, z2: complex): complex;
-BEGIN
-  result.re := z1.re + z2.re;
-  result.im := z1.im + z2.im;
-
-  RETURN result
-END CAdd;
-
-(* Сложение с REAL.
-   addition : z := z1 + r1 *)
-PROCEDURE CAdd_r* (z1: complex; r1: REAL): complex;
-BEGIN
-  result.re := z1.re + r1;
-  result.im := z1.im;
-
-  RETURN result
-END CAdd_r;
-
-(* Сложение с INTEGER.
-   addition : z := z1 + i1 *)
-PROCEDURE CAdd_i* (z1: complex; i1: INTEGER): complex;
-BEGIN
-  result.re := z1.re + FLT(i1);
-  result.im := z1.im;
-
-  RETURN result
-END CAdd_i;
-
-(* Смена знака.
-   substraction : z := - z1 *)
-PROCEDURE CNeg (z1 : complex): complex;
-BEGIN
-  result.re := -z1.re;
-  result.im := -z1.im;
-
-  RETURN result
-END CNeg;
-
-(* Вычитание.
-   substraction : z := z1 - z2 *)
-PROCEDURE CSub* (z1, z2 : complex): complex;
-BEGIN
-  result.re := z1.re - z2.re;
-  result.im := z1.im - z2.im;
-
-  RETURN result
-END CSub;
-
-(* Вычитание REAL.
-   substraction : z := z1 - r1 *)
-PROCEDURE CSub_r1* (z1 : complex; r1 : REAL): complex;
-BEGIN
-  result.re := z1.re - r1;
-  result.im := z1.im;
-
-  RETURN result
-END CSub_r1;
-
-(* Вычитание из REAL.
-   substraction : z := r1 - z1 *)
-PROCEDURE CSub_r2* (r1 : REAL; z1 : complex): complex;
-BEGIN
-  result.re := r1 - z1.re;
-  result.im := - z1.im;
-
-  RETURN result
-END CSub_r2;
-
-(* Вычитание INTEGER.
-   substraction : z := z1 - i1 *)
-PROCEDURE CSub_i* (z1 : complex; i1 : INTEGER): complex;
-BEGIN
-  result.re := z1.re - FLT(i1);
-  result.im := z1.im;
-
-  RETURN result
-END CSub_i;
-
-(* Умножение.
-   multiplication : z := z1 * z2 *)
-PROCEDURE CMul (z1, z2 : complex): complex;
-BEGIN
-  result.re := (z1.re * z2.re) - (z1.im * z2.im);
-  result.im := (z1.re * z2.im) + (z1.im * z2.re);
-
-  RETURN result
-END CMul;
-
-(* Умножение с REAL.
-   multiplication : z := z1 * r1 *)
-PROCEDURE CMul_r (z1 : complex; r1 : REAL): complex;
-BEGIN
-  result.re := z1.re * r1;
-  result.im := z1.im * r1;
-
-  RETURN result
-END CMul_r;
-
-(* Умножение с INTEGER.
-   multiplication : z := z1 * i1 *)
-PROCEDURE CMul_i (z1 : complex; i1 : INTEGER): complex;
-BEGIN
-  result.re := z1.re * FLT(i1);
-  result.im := z1.im * FLT(i1);
-
-  RETURN result
-END CMul_i;
-
-(* Деление.
-   division : z := znum / zden *)
-PROCEDURE CDiv (z1, z2 : complex): complex;
-    (* The following algorithm is used to properly handle
-      denominator overflow:
-
-                 |  a + b(d/c)   c - a(d/c)
-                 |  ---------- + ---------- I     if |d| < |c|
-      a + b I    |  c + d(d/c)   a + d(d/c)
-      -------  = |
-      c + d I    |  b + a(c/d)   -a+ b(c/d)
-                 |  ---------- + ---------- I     if |d| >= |c|
-                 |  d + c(c/d)   d + c(c/d)
-    *)
-VAR
-  tmp, denom : REAL;
-BEGIN
-   IF ( ABS(z2.re) > ABS(z2.im) ) THEN
-     tmp := z2.im / z2.re;
-     denom := z2.re + z2.im * tmp;
-     result.re := (z1.re + z1.im * tmp) / denom;
-     result.im := (z1.im - z1.re * tmp) / denom;
-   ELSE
-     tmp := z2.re / z2.im;
-     denom := z2.im + z2.re * tmp;
-     result.re := (z1.im + z1.re * tmp) / denom;
-     result.im := (-z1.re + z1.im * tmp) / denom;
-   END;
-
-   RETURN result
-END CDiv;
-
-(* Деление на REAL.
-   division : z := znum / r1 *)
-PROCEDURE CDiv_r* (z1 : complex; r1 : REAL): complex;
-BEGIN
-  result.re := z1.re / r1;
-  result.im := z1.im / r1;
-
-  RETURN result
-END CDiv_r;
-
-(* Деление на INTEGER.
-   division : z := znum / i1 *)
-PROCEDURE CDiv_i* (z1 : complex; i1 : INTEGER): complex;
-BEGIN
-  result.re := z1.re / FLT(i1);
-  result.im := z1.im / FLT(i1);
-
-  RETURN result
-END CDiv_i;
-
-(* fonctions elementaires *)
-
-(* Вывод на экран.
-   out complex number *)
-PROCEDURE CPrint* (z: complex; width: INTEGER);
-BEGIN
-  Out.Real(z.re, width);
-  IF z.im>=0.0 THEN
-    Out.String("+");
-  END;
-  Out.Real(z.im, width);
-  Out.String("i");
-END CPrint;
-
-PROCEDURE CPrintLn* (z: complex; width: INTEGER);
-BEGIN
-  CPrint(z, width);
-  Out.Ln;
-END CPrintLn;
-
-(* Вывод на экран с фиксированным кол-вом знаков
-   после запятой (p) *)
-PROCEDURE CPrintFix* (z: complex; width, p: INTEGER);
-BEGIN
-  Out.FixReal(z.re, width, p);
-  IF z.im>=0.0 THEN
-    Out.String("+");
-  END;
-  Out.FixReal(z.im, width, p);
-  Out.String("i");
-END CPrintFix;
-
-PROCEDURE CPrintFixLn* (z: complex; width, p: INTEGER);
-BEGIN
-  CPrintFix(z, width, p);
-  Out.Ln;
-END CPrintFixLn;
-
-(* Модуль числа.
-   module : r = |z| *)
-PROCEDURE CMod* (z1 : complex): REAL;
-BEGIN
-  RETURN Math.sqrt((z1.re * z1.re) + (z1.im * z1.im))
-END CMod;
-
-(* Квадрат числа.
-   square : r := z*z *)
-PROCEDURE CSqr* (z1: complex): complex;
-BEGIN
-  result.re := z1.re * z1.re - z1.im * z1.im;
-  result.im := 2.0 * z1.re * z1.im;
-
-  RETURN result
-END CSqr;
-
-(* Квадратный корень числа.
-   square root : r := sqrt(z) *)
-PROCEDURE CSqrt* (z1: complex): complex;
-VAR
-  root, q: REAL;
-BEGIN
-  IF (z1.re#0.0) OR (z1.im#0.0) THEN
-    root := Math.sqrt(0.5 * (ABS(z1.re) + CMod(z1)));
-    q := z1.im / (2.0 * root);
-    IF z1.re >= 0.0 THEN
-      result.re := root;
-      result.im := q;
-    ELSE
-      IF z1.im < 0.0 THEN
-        result.re := - q;
-        result.im := - root
-      ELSE
-        result.re :=  q;
-        result.im :=  root
-      END
-    END
-  ELSE
-    result := z1;
-  END;
-
-  RETURN result
-END CSqrt;
-
-(* Экспонента.
-   exponantial : r := exp(z) *)
-(* exp(x + iy) = exp(x).exp(iy) = exp(x).[cos(y) + i sin(y)] *)
-PROCEDURE CExp* (z: complex): complex;
-VAR
-  expz : REAL;
-BEGIN
-  expz := Math.exp(z.re);
-  result.re := expz * Math.cos(z.im);
-  result.im := expz * Math.sin(z.im);
-
-  RETURN result
-END CExp;
-
-(* Натуральный логарифм.
-   natural logarithm : r := ln(z) *)
-(* ln( p exp(i0)) = ln(p) + i0 + 2kpi *)
-PROCEDURE CLn* (z: complex): complex;
-BEGIN
-  result.re := Math.ln(CMod(z));
-  result.im := Math.arctan2(z.im, z.re);
-
-  RETURN result
-END CLn;
-
-(* Число в степени.
-   exp : z := z1^z2 *)
-PROCEDURE CPower* (z1, z2 : complex): complex;
-VAR
-  a: complex;
-BEGIN
-   a:=CLn(z1);
-   a:=CMul(z2, a);
-   result:=CExp(a);
-
-   RETURN result
-END CPower;
-
-(* Число в степени REAL.
-   multiplication : z := z1^r *)
-PROCEDURE CPower_r* (z1: complex; r: REAL): complex;
-VAR
-  a: complex;
-BEGIN
-  a:=CLn(z1);
-  a:=CMul_r(a, r);
-  result:=CExp(a);
-
-  RETURN result
-END CPower_r;
-
-(* Обратное число.
-   inverse : r := 1 / z *)
-PROCEDURE CInv* (z: complex): complex;
-VAR
-  denom : REAL;
-BEGIN
-  denom := (z.re * z.re) + (z.im * z.im);
-  (* generates a fpu exception if denom=0 as for reals *)
-  result.re:=z.re/denom;
-  result.im:=-z.im/denom;
-
-  RETURN result
-END CInv;
-
-(* direct trigonometric functions *)
-
-(* Косинус.
-   complex cosinus *)
-(* cos(x+iy) = cos(x).cos(iy) - sin(x).sin(iy) *)
-(* cos(ix) = cosh(x) et sin(ix) = i.sinh(x) *)
-PROCEDURE CCos* (z: complex): complex;
-BEGIN
-  result.re := Math.cos(z.re) * Math.cosh(z.im);
-  result.im := - Math.sin(z.re) * Math.sinh(z.im);
-
-  RETURN result
-END CCos;
-
-(* Синус.
-   sinus complex *)
-(* sin(x+iy) = sin(x).cos(iy) + cos(x).sin(iy) *)
-(* cos(ix) = cosh(x) et sin(ix) = i.sinh(x) *)
-PROCEDURE CSin (z: complex): complex;
-BEGIN
-  result.re := Math.sin(z.re) * Math.cosh(z.im);
-  result.im := Math.cos(z.re) * Math.sinh(z.im);
-
-  RETURN result
-END CSin;
-
-(* Тангенс.
-   tangente *)
-PROCEDURE CTg* (z: complex): complex;
-VAR
-  temp1, temp2: complex;
-BEGIN
-  temp1:=CSin(z);
-  temp2:=CCos(z);
-  result:=CDiv(temp1, temp2);
-
-  RETURN result
-END CTg;
-
-(* inverse complex hyperbolic functions *)
-
-(* Гиперболический арккосинус.
-   hyberbolic arg cosinus *)
-(*                          _________  *)
-(* argch(z) = -/+ ln(z + i.V 1 - z.z)  *)
-PROCEDURE CArcCosh* (z : complex): complex;
-BEGIN
-  result:=CNeg(CLn(CAdd(z, CMul(i, CSqrt(CSub_r2(1.0, CMul(z, z)))))));
-
-  RETURN result
-END CArcCosh;
-
-(* Гиперболический арксинус.
-   hyperbolic arc sinus       *)
-(*                    ________  *)
-(* argsh(z) = ln(z + V 1 + z.z) *)
-PROCEDURE CArcSinh* (z : complex): complex;
-BEGIN
-  result:=CLn(CAdd(z, CSqrt(CAdd_r(CMul(z, z), 1.0))));
-
-  RETURN result
-END CArcSinh;
-
-(* Гиперболический арктангенс.
-   hyperbolic arc tangent *)
-(* argth(z) = 1/2 ln((z + 1) / (1 - z)) *)
-PROCEDURE CArcTgh (z : complex): complex;
-BEGIN
-  result:=CDiv_r(CLn(CDiv(CAdd_r(z, 1.0), CSub_r2(1.0, z))), 2.0);
-
-  RETURN result
-END CArcTgh;
-
-(* trigonometriques inverses *)
-
-(* Арккосинус.
-   arc cosinus complex *)
-(* arccos(z) = -i.argch(z) *)
-PROCEDURE CArcCos* (z: complex): complex;
-BEGIN
-  result := CNeg(CMul(i, CArcCosh(z)));
-
-  RETURN result
-END CArcCos;
-
-(* Арксинус.
-   arc sinus complex *)
-(* arcsin(z) = -i.argsh(i.z) *)
-PROCEDURE CArcSin* (z : complex): complex;
-BEGIN
-  result := CNeg(CMul(i, CArcSinh(z)));
-
-  RETURN result
-END CArcSin;
-
-(* Арктангенс.
-   arc tangente complex *)
-(* arctg(z) = -i.argth(i.z) *)
-PROCEDURE CArcTg* (z : complex): complex;
-BEGIN
-  result := CNeg(CMul(i, CArcTgh(CMul(i, z))));
-
-  RETURN result
-END CArcTg;
-
-BEGIN
-
-  result:=CInit(0.0, 0.0);
-  i :=CInit(0.0, 1.0);
-  _0:=CInit(0.0, 0.0);
-
-END CMath.
--- a/programs/develop/oberon07/lib/Math/MathBits.ob07
+++ b/programs/develop/oberon07/lib/Math/MathBits.ob07
@@ -1,33 +0,0 @@
-(* ****************************************
-   Дополнение к модулю Math.
-   Побитовые операции над целыми числами.
-   Вадим Исаев, 2020
-   Additional functions to the module Math.
-   Bitwise operations on integers.
-   Vadim Isaev, 2020
-******************************************* *)
-
-MODULE MathBits;
-
-
-PROCEDURE iand* (x, y: INTEGER): INTEGER;
-    RETURN ORD(BITS(x) * BITS(y))
-END iand;
-
-
-PROCEDURE ior* (x, y: INTEGER): INTEGER;
-    RETURN ORD(BITS(x) + BITS(y))
-END ior;
-
-
-PROCEDURE ixor* (x, y: INTEGER): INTEGER;
-    RETURN ORD(BITS(x) / BITS(y))
-END ixor;
-
-
-PROCEDURE inot* (x: INTEGER): INTEGER;
-    RETURN ORD(-BITS(x))
-END inot;
-
-
-END MathBits.
--- a/Show More
+++ b/Show More
Author	SHA1	Message	Date
Igor Shutrov	9b1de0b705	heed: Refactor help window (ESC)	2026-03-08 09:49:58 +05:00
Igor Shutrov	0000458f65	heed: Simplify ESC code	2026-03-01 22:09:44 +05:00
Igor Shutrov	815d81f936	heed: Add exit by ESC	2026-02-24 23:08:53 +05:00
Max Logaev	864210679c	oberon07: Option `-nochk a` by default This option disables runtime checks to reduce binary file size. Signed-off-by: Max Logaev <maxlogaev@proton.me>	2026-02-21 19:22:11 +00:00
Max Logaev	7f8e028ffd	ci/cd: Added checkout of submodules Signed-off-by: Max Logaev <maxlogaev@proton.me>	2026-02-21 19:22:11 +00:00
Max Logaev	e9b6cf3fc9	cedit: Added to build system Fixed installation of oberon07 compiler in ISO image Signed-off-by: Max Logaev <maxlogaev@proton.me>	2026-02-21 19:22:11 +00:00
Max Logaev	4658a928d4	oberon07: Added as a git submodule Signed-off-by: Max Logaev <maxlogaev@proton.me>	2026-02-21 19:22:11 +00:00
Max Logaev	b6a5171cd9	oberon07: Source code removed Signed-off-by: Max Logaev <maxlogaev@proton.me>	2026-02-21 19:22:11 +00:00
Igor Shutrov	668fd4deeb	ftpd: add ip to first message	2026-02-17 22:08:04 +05:00
Max Logaev	dd9a7b92d8	libc.obj: Fixed build skip with TCC build enabled Signed-off-by: Max Logaev <maxlogaev@proton.me>	2026-01-28 17:22:54 +03:00
Igor Shutrov	1173ca7b26	Cedit: Improve search panel (#313 ) Улучшения для Cedit в Панели поиска: - Добавлен поиск следующего фрагмента текста по нажатию Enter - Добавлен обратный переход по полям ввода в Панели поиска по Shift-Tab Co-authored-by: Igor Shutrov <igor@shutrov.ru> Reviewed-on: KolibriOS/kolibrios#313 Reviewed-by: Burer <burer@noreply.localhost> Co-authored-by: Igor Shutrov <kolibridev@inbox.ru> Co-committed-by: Igor Shutrov <kolibridev@inbox.ru>	2026-01-18 16:28:46 +00:00
Max Logaev	ccd0c183ec	mtdbg: Backtrace implemented (#315 ) Added support for backtrace/stacktrace output. This is useful for high-level languages like C and Oberon07. If a debug file is provided, searches for the nearest debug symbol. Reviewed-on: KolibriOS/kolibrios#315 Reviewed-by: Mikhail Frolov <mixa.frolov2003@gmail.com> Reviewed-by: Burer <burer@noreply.localhost>	2026-01-18 13:08:02 +00:00
Max Logaev	f065cc6e69	mtdbg: Fixed magic cmd flags Signed-off-by: Max Logaev <maxlogaev@proton.me>	2026-01-11 13:35:58 +00:00
Егор	f1b99bad84	libc.obj: Added missing `strpbrk()` to `EXPORTS` (#310 ) Reviewed-on: KolibriOS/kolibrios#310 Reviewed-by: Max Logaev <maxlogaev@proton.me> Co-authored-by: Егор <velikiydolbayeb@gmail.com> Co-committed-by: Егор <velikiydolbayeb@gmail.com>	2026-01-10 23:27:51 +00:00
igorsh	c580d4ac5b	ftpd: Add XPWD and XCWD commands (#309 ) Добавлены команды XPWD и XCWD, дублирующие PWD и CWD Co-authored-by: Igor Shutrov <igor@shutrov.ru> Co-authored-by: Burer <burer@kolibrios.org> Reviewed-on: KolibriOS/kolibrios#309 Reviewed-by: Burer <burer@noreply.localhost> Co-authored-by: igorsh <kolibridev@inbox.ru> Co-committed-by: igorsh <kolibridev@inbox.ru>	2026-01-08 17:03:23 +00:00
Igor Shutrov	17c33521c3	ftpd: Fix typo	2026-01-07 19:41:28 +00:00
Igor Shutrov	f6395c9501	ftpd: Fix typo	2026-01-07 19:41:28 +00:00
Igor Shutrov	000288ce8b	ftpd: Fix RETR for small and empty files	2026-01-06 18:20:39 +00:00
IgorA	10d9e9f36f	Info3ds: added resizing of the window with the figure (#241 ) info3ds: added resizing of the window with the figure and the list of vertices in the properties window, info3ds, info3ds_u: files with menu icons are embedded into the program Reviewed-on: KolibriOS/kolibrios#241 Reviewed-by: Mikhail Frolov <mixa.frolov2003@gmail.com> Reviewed-by: Burer <burer@noreply.localhost> Co-authored-by: IgorA <aie85playm@gmail.com> Co-committed-by: IgorA <aie85playm@gmail.com>	2025-12-31 07:34:00 +00:00
Burer	f4c4a7e29a	apps/floppybird: rewrite to c (#284 ) What was done: - [x] Rewritten to C - [x] Refactored some code - [x] Fixed window resizing (#182) - [x] Adaptation for different skin height - [x] Fixed some tubes leftovers drawing - [x] Changed tubes generation a little bit - [x] Changed interface a little bit - [x] Added Escape key for exit to main menu - [x] Removed buttons from main menu (hotkeys left) :( What needs to be done: - [ ] ~~Fix rolled-up bug?~~ - [ ] ~~Fit it into 2048 bytes?~~ - [ ] ~~Add pause?~~ - [ ] ~~Use buffer for drawing without flickering?~~ P.S. There is no way game with all this changes will fit in 2560 bytes, as previous version, so I decided to skip them. Reviewed-on: KolibriOS/kolibrios#284 Reviewed-by: Ivan B <dunkaist@noreply.localhost> Reviewed-by: Mikhail Frolov <mixa.frolov2003@gmail.com> Co-authored-by: Burer <burer@kolibrios.org> Co-committed-by: Burer <burer@kolibrios.org>	2025-12-29 06:34:23 +00:00
Igor Shutrov	bc5b2f884a	Remove redundant space before 220 code	2025-12-29 06:32:40 +00:00
manh-td	d0de275ab3	Use 64 bit for times in mpeg4_encode_gop_header()	2025-12-20 11:01:45 +00:00
manh-td	a83f6f7e4b	Fix DoS due to lack of eof check	2025-12-20 11:00:16 +00:00
manh-td	d54c802297	Fixes out of array access	2025-12-20 10:59:41 +00:00
manh-td	29c42738b8	Add missing check for av_malloc	2025-12-20 10:37:35 +00:00
Егор	c17d1a57a3	Correcting typos in C_Layer libini (#289 ) Change `int_get_color` to `int_get_shortcut` to `ini_get_color` and `ini_get_shortcut` to fix library initialization. Reviewed-on: KolibriOS/kolibrios#289 Reviewed-by: Gleb Zaharov <risdeveau@codrs.ru> Reviewed-by: Burer <burer@noreply.localhost> Co-authored-by: Егор <egor00f@noreply.localhost> Co-committed-by: Егор <egor00f@noreply.localhost>	2025-12-14 10:02:43 +00:00
Burer	7b0867a6cf	[apps/cmm] add new proxy for https sources (#277 ) Deployed new https proxy for WebView and Downloader. Made it configurable through /sys/settings/app.ini. Reviewed-on: KolibriOS/kolibrios#277 Reviewed-by: Mikhail Frolov <mixa.frolov2003@gmail.com> Co-authored-by: Burer <burer@kolibrios.org> Co-committed-by: Burer <burer@kolibrios.org>	2025-10-17 11:04:08 +02:00
iyzsong	c65da0d96f	programs: Add Uxn emulator (#272 ) To build this, a zig compiler (tested: 0.14.1) is needed, run `zig build --release=fast`. It will download https://github.com/chmod222/zuxn when building. Co-authored-by: 宋文武 <iyzsong@member.fsf.org> Reviewed-on: KolibriOS/kolibrios#272 Reviewed-by: Mikhail Frolov <mixa.frolov2003@gmail.com> Reviewed-by: Burer <burer@kolibrios.org> Co-authored-by: iyzsong <iyzsong@envs.net> Co-committed-by: iyzsong <iyzsong@envs.net>	2025-10-13 11:52:24 +02:00
Talkashie	a0c01e204e	Webview: Fix many typos with the English translation (#282 ) - Fixes a few spelling mistakes and rewords things to sound more natural. - Reworded to sound more natural in English. - Fixes many typos on the English homepage of WebView. Reviewed-on: KolibriOS/kolibrios#282 Reviewed-by: Gleb Zaharov <risdeveau@codrs.ru> Reviewed-by: Burer <burer@noreply.localhost> Co-authored-by: Talkashie <talkashie97@gmail.com> Co-committed-by: Talkashie <talkashie97@gmail.com>	2025-10-08 00:12:15 +02:00
Andrew	d50642ce1f	general: Fix brand name to `КолибриОС` (#280 ) - Ensure consistent brand name`КолибриОС`; update Docs and source code. Fixes #6. - Minimal whitespace clean-up; remove some trailing space from end of lines. Reviewed-on: KolibriOS/kolibrios#280 Reviewed-by: Burer <burer@noreply.localhost> Reviewed-by: Mikhail Frolov <mixa.frolov2003@gmail.com> Co-authored-by: Andrew <dent.ace@gmail.com> Co-committed-by: Andrew <dent.ace@gmail.com>	2025-09-25 16:39:01 +02:00
Mikhail Frolov	8d235ce49b	Libraries: fixed a bug in lib_init functions (#274 ) added verification of the second initialization attempt Reviewed-on: KolibriOS/kolibrios#274	2025-08-02 18:00:18 +02:00
IgorA	e423bfb2d1	CtrlDemo: code cleaning, library import optimization (#242 ) CtrlDemo, EditboxEx, TooltipDemo: - code cleaning, library import optimization Reviewed-on: KolibriOS/kolibrios#242 Reviewed-by: Mikhail Frolov <mixa.frolov2003@gmail.com> Reviewed-by: Ivan B <dunkaist@noreply.localhost> Co-authored-by: IgorA <aie85playm@gmail.com> Co-committed-by: IgorA <aie85playm@gmail.com>	2025-07-14 08:49:18 +02:00
IgorA	1483ec8462	Libraries (box_lib, buf2d, libimg, tinygl): optimize function import (#231 ) Libraries (box_lib, buf2d, libimg, tinygl): optimize function import Programs updated: - gears, test3, test_glu1, test_glu2, - test_array1, textures0, textures1, textures2, - ctrldemo, editbox_ex, crypt_files, img_transform, - scrshoot, t_edit, cnc_control, cnc_editor Reviewed-on: KolibriOS/kolibrios#231 Reviewed-by: Mikhail Frolov <mixa.frolov2003@gmail.com> Reviewed-by: Ivan B <dunkaist@noreply.localhost> Co-authored-by: IgorA <aie85playm@gmail.com> Co-committed-by: IgorA <aie85playm@gmail.com>	2025-07-14 08:20:32 +02:00
Mikhail Frolov	e8121c66f8	drivers/usb: add usbother driver and usbdrv.dat config (#253 ) This driver loading usb drivers for class and for vendor and product id device. Co-authored-by: Burer <burer@kolibrios.org> Reviewed-on: KolibriOS/kolibrios#253 Reviewed-by: Ivan B <dunkaist@noreply.localhost> Reviewed-by: Burer <burer@noreply.localhost>	2025-07-12 03:31:44 +02:00