[GoSub ОКНО] [Set I=A][Rem В I оператор перехода к текущему окну ]
!96 [Rem Открываем новое окно CTRL_F3 ]
[Stop ВЫХОД] [Rem Установка подпрограммы Выхода ]
[GoSub ОКНО] [Set D=A][Rem B D оператор перехода к новому окну ]
. . . [Stop] [Rem Выполняем Подпрограмму ВЫХОД ]
"ОКНО [Rem Подпрограмма помешает в A оператор текущего окна экрана]
{3 Y} {44 X} [Rem Установить точку считывания ]
{Set A} [Rem Считать номер окна в переменную A ]
{119 Inc A} [Rem Увеличить A на 119 ]
{Calc A=!_A} [Rem Создать оператор (1 соответствует !120)]
{0 Y} {0 X} [Rem Установить точку считывания от курсора]
{Stop} [Rem Завершить выполнение подпрограммы ОКНО]
"ВЫХОД [S-] [Rem Подпрограмма выхода ]
[Get D] [Rem Возвращаемся к открытому программой экрану]
!106 [Rem Закрываем окно Alt_F3 ]
[If Перезаписать][Enter][Rem Если появился запрос Перезаписать?-ДА]
[Stop] [Rem Конец работы программы]|
© ООО "АТЛАС" г.Воронеж, 2007. Все права защищены. |