Три года пользую Gate на рассыпухе - надоело:
code_279.txt

[size=-2]------ Добавлено в 00:37
nesco, Спасибо за советы. Вот исправленый код с учётом замечаний:

[size=-2]------ Добавлено в 12:36
Куда-то код делся - выкладываю опять.