Примеры программы 2.
--- Пример работы с двумя окнами ---

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

Сайт создан в системе uCoz