[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. Все права защищены. |