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