{s-} [rem Отключение остановки при сообщениях ] {1x}{25y}{63 set a} [rem В переменной A комментарий выполнения ] [set k=100] [rem В переменной K задержка выполнения ] {1 step} [rem переход к вызывающему процессу на 55мс ] {0 read i} [rem передаем в i строку нажатой клавиши ] {k delay}{0 delay} [rem задержка для замедления процесса ] [if i={up}] {dec k}{3goto} [rem Если нажата клавиша {Up} уменьшить K ] [if i={down}]{inc k}{2goto}[rem Если нажата клавиша {Down} увеличить K] [if i={esc}][0pause] [rem Вывод запроса на прекращение работы ] {inc j}{if j=40}{set j=} [rem Определение позиции вывода сообщения A ] {r }{j r a}{70 r k}[w-] [rem Вывод сообщения и показ экрана ] {-8 goto} [rem Переход на начало работы ] ------------- Пример обращения к программе ----------------------------- [w-][s-] [rem Программа отлажена ] [R ПЕРЕНОС ДАННЫХ][0Call 0,3,148] [rem Независимый запуск ] ... [stop] [rem "параллельная" работа]
© ООО "АТЛАС" г.Воронеж, 2007. Все права защищены. |