?BREAK
?BREAK (вопрос-разрыв, читается «вопрос-брэйк») — родное слово Каллисто.
?BREAK ( −− ) Проверить клавиатуру на паузу и аварийную остановку.
Проверяем клавиатуру на паузу и аварийную остановку. Делаем паузу или выходим в QUIT, если на это есть запрос с клавиатуры. Рекомендуется для использования в длительных циклах.
Ввод слова ?BREAK[править]
В режиме NUM последовательно нажмите клавиши K Р-ГРД-Г В/О × ИП ШГ← 9
Для возврата в режим NUM нажмите синюю клавишу P .
Реализация[править]
Для приостановки вывода нажмите синюю клавишу K . Чтобы прервать вывод, используйте последовательность из двух клавиш K С/П .
Каллисто 1.0 использует ?BREAK в словах LIST и WORDS
565 ;#qBREAK 566 ; ?BREAK ( −− ) Проверить клавиатуру на паузу и аварийную остановку. 567 LQBREAK: .DB 6 568 .TEXT "?BREAK" 569 .DW LNOP 570 QBREAK: .DW JQBREAK 571 JQBREAK: PPRM 9028 ; Клавиша нажата? 572 21 − KX=09 ; Если нажата не К, продолжить 573 PGSB CSRON 574 QBL: PPRM 9028 575 KNOT FX=0 QBL 576 PPM 9029 ; Очистить буфер клавиатуры 577 QBL2: PPRM 9029 MA ; Прочесть код клавиши 578 KNOT FX!=0 QBL2 579 PGSB CSROFF 580 RMA 26 − KX=09 ; Если не С/П, продолжить 581 94 PPM 9020 ; "^" 582 67 PPM 9020 ; "C" 583 .NUM RABORT 584 PGOTO SETRIPRG ; Перейти на исполнение шитого кода с ABORT
?TERMINAL в fig-FORTH Release 1 glossary, май 1979 (англ.)[править]
?TERMINAL --- f Perform a test of the terminal keyboard for actuation of the break key. A true flag indicates actuation. This definition is installation dependent.
Ссылки[править]
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |