Различия

Здесь показаны различия между двумя версиями данной страницы.

--- msx:basic_programming_guide:07 [2020-04-03 19:35]
+++ msx:basic_programming_guide:07 [2022-09-09 23:27]
@@ Строка 1: / Строка 1: @@
-[<>]
-~~TOC wide~~
-====== Глава VII. Дополнительные возможности языка MSX BASIC ======
-===== VII.1. Работа с клавиатурой =====
-==== VII.1.1. Нестандартный ввод с клавиатуры ====
-Как правило, ввод данных с клавиатуры пользователь осуществляет с помощью оператора ''INPUT''. При этом нужно нажать как минимум две клавиши: одну для ввода символа и вторую для помещения его в память. При этом знак вопроса ("подсказка") и вводимый символ ("эхо") отображаются на экране.
-{{anchor:inkey}}
-Строковая функция ''INKEY$'' подавляет "подсказку" и "эхо" символа на экране и не требует нажатия клавиши ввода <key>'Ввод '⏎</key>.
-Функция
-<WRAP group>
-<WRAP half column>
-<code>
-INKEY$
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где ''INKEY'' ("KEY IN" — "вводить с клавиатуры") — служебное слово, в момент нажатия на какую–либо клавишу возвращает значение, равное вводимому по ней символу. Если клавиша не нажата, то значением функции ''INKEY$'' является пустая строка (%%""%%).
-{{anchor:e0711-01}} __//Пример 1//__.
-\\ {{.examples:0711-01.bas|}} \\ [[+tab|wmsxbpge>0711-01.bas]]
-<code>
-W$=INKEY$:IF W$="" THEN 10 'Если клавиша не нажата, то компьютер переходит к выполнению строки с номером 10.
-PRINT W$:GOTO 10 'Вывод на экран символа, соответствующего нажатой клавише,и переход к выполнению строки 10.
-run
-a     ◀── нажата клавиша "a"
-p    │
-r    │
-i    │◀── нажата клавиша "F1" (для компьютера MSX 1)
-n    │
-t    │
-     │
-█     ◀── нажата клавиша "STOP"
-Break in 10 ◀── нажаты клавиши "CTRL"+"STOP"
-Ok
-</code>
-При выполнении программы клавиатура постоянно опрашивается (сканируется), и полученные коды записываются в область памяти, называемую //буфером// клавиатуры. Функция ''INKEY$'', как Вы только что увидели, извлекает
-из буфера клавиатуры код набранного символа. Если буфер "пуст" (никакая клавиша не нажата!), то функция ''INKEY$'' возвращает пустую строку.
-<WRAP center round important 60%>
-Важной особенностью функции ''INKEY$'' является то, что она не выводит на экран символ, набранный на клавиатуре (если, конечно, в программе отсутствует оператор ''PRINT'' !), и не "ожидает" ввода символа, если клавиша не нажата.
-</WRAP>
-С помощью функции ''INKEY$'' можно "прочитать" нажатие только тех клавиш, которым соответствует код какого–либо символа. Это делается так:
-  IF INKEY$="с и м в о л" THEN …
-Далее, для обнаружения нажатия какой–либо из клавиш: <key>ESC</key>, <key>TAB</key>, <key>'Ввод '⏎</key>, <key>SELECT</key>, <key>HOME/CLS</key>, <key>INS</key>, <key>DEL</key>, <key>←</key>, <key>↑</key>, <key>→</key>, <key>↓</key>, <key>CTRL+буква</key> используйте оператор:
-  IF INKEY$=CHR$(K) THEN …
-где К — код клавиши, нажатия которой ожидается.
-К сожалению, клавиши <key>CAPS</key>, <key>SHIFT</key>, <key>GRAPH</key>, <key>CTRL</key>, <key>РУС</key>, <key>STOP</key> "нечитаемы" операторами ''[[#input1|INPUT$]]'' или ''[[#inkey|INKEY$]]''. Тем не менее, для чтения этих клавиш достаточно прочесть буфер NEWKEY (11 байтов) по адресу &HFBE5 (см. [[10#X.9.1. Матрица клавиатуры|раздел X.9.1.]]).
-{{anchor:e0711-02}} __//Пример 2//__. Пример программы, останавливаемой нажатием клавиши <key>SHIFT</key>:
-\\ {{.examples:0711-02.bas|}} \\ [[+tab|wmsxbpge>0711-02.bas]]
-<code>
-Z=PEEK(&HFBEB):IF Z<>254 THEN 10
-</code>
-{{anchor:e0711-03}} __//Пример 3//__. Вспомним, что функция ''ASC(α)'', где α — строковое выражение, возвращает десятичный код ASCII  первого символа значения выражения α. Используя функцию ''INKEY$'', можно получать десятичные коды ASCII "печатаемых" символов и некоторых управляющих клавиш. Интересны результаты нажатия функциональных клавиш.
-\\ {{.examples:0711-03.bas|}} \\ [[+tab|wmsxbpge>0711-03.bas]]
-<code>
-W$=INKEY$:IF W$="" THEN 10 ELSE PRINT ASC(W$):GOTO 10
-run
-  ◀── нажата клавиша "ESC"        112 │
-◀── нажата клавиша "p"          114 │
-◀── нажата клавиша "r"          105 │ ◀── нажата клавиша "F1"
-◀── нажата клавиша "i"          110 │
-◀── нажата клавиша "n"          116 │
-◀── нажата клавиша "t"          32  │
-  ◀── нажата клавиша "пробел"    Break in 10◀── нажаты клавиши"CTRL"
-█   ◀── нажата клавиша "STOP"      Ok              +"STOP"
-  ◀── нажата клавиша "SHIFT"+"1"
-</code>
-Таким образом, функциональные клавиши имеют ту особенность, что нажатие любой из них вызывает вывод кодов нескольких символов, составляющих её текст.
-Приведём ещё один пример применения функции ''INKEY$''.
-<code>
-PRINT "Нажмите любую клавишу для продолжения"
-IF INKEY$="" THEN 20   'Задержка до нажатия клавиши
-</code>
-{{anchor:input1}}
-Функция ''INPUT$(n)'' служит для получения n последовательно вводимых с клавиатуры символов. Вводимые символы "накапливаются" в буфере клавиатуры без изображения их на экране дисплея. Когда ввод окончен (время ввода не ограничено!), то функция ''INPUT$()'' возвращает на экран дисплея строку введённых символов и курсор.
-<WRAP center round important 60%>
-Запомните, что только нажатие клавиш <key>CTRL+STOP</key> прерывает действие данной функции!
-</WRAP>
-{{anchor:e0711-04}} __//Пример 4//__.
-\\ {{.examples:0711-04.bas|}} \\ [[+tab|wmsxbpge>0711-04.bas]]
-<code>
-W$=INPUT$(2):?W$:GOTO 10
-run
-█
-█   ◀── нажата клавиша "a"
-ar  ◀── нажата клавиша "r"
-█
-Break in 10 ◀── нажаты клавиши "CTRL"+"STOP"
-Ok
-</code>
-Этот оператор неудобно использовать для ввода //длинных// символьных строк с клавиатуры, ибо Вы можете потерять контроль над вводом (введённые символы не видны на экране до тех пор, пока не введён последний из них).
-Однако можно использовать функцию ''INPUT$(1)'' для ввода с клавиатуры по одному символу (аналогично функции ''INKEY$'').
-{{anchor:e0711-05}} __//Пример 5//__.
-<WRAP group>
-<WRAP half column>
-{{.examples:0711-051.bas|}} \\ [[+tab|wmsxbpge>0711-051.bas]]
-<code>
-W$=INPUT$(1):?W$:GOTO10
-run
-█
-a   ◀── нажата клавиша "a"
-p   ◀── нажата клавиша "p"
-p  │
-r  │
-i  │◀── нажата клавиша "F1"
-n  │    на компьютере
-t  │    серии MSX 1
-   │
-█    и так далее…
-</code>
-</WRAP>
-<WRAP half column>
-{{.examples:0711-052.bas|}} \\ [[+tab|wmsxbpge>0711-052.bas]]
-<code>
-? ASC(INPUT$(1)):GOTO 10
-run
-█
-  │
-  │
-  │◀── нажата клавиша "F1"
-  │    на компьютере
-  │    серии MSX 1
-   │
-█
-◀── нажата клавиша "а"
-█       и так далее…
-</code>
-</WRAP>
-</WRAP>
-Таким образом, функцию ''INPUT$()'' можно также использовать для получения десятичных кодов ASCII символов, а также десятичных кодов ASCII некоторых управляющих и функциональных клавиш.
-{{anchor:e0711-06}} __//Пример 6//__. //Пароль !//
-\\ {{.examples:0711-06.bas|}} \\ [[+tab|wmsxbpge>0711-06.bas]]
-<code>
-CODE$="Секрет":COUNT=0:PRINT"Имя":INPUT N$
-PRINT "Пароль:"
-P$=INPUT$(6) 'Чтение  ш е с т и  символов
-IF P$=CODE$ THEN GOTO 150
-COUNT=COUNT+1
-IF COUNT<3 THEN GOTO 70 ELSE PRINT"Проход закрыт":END
-PRINT:PRINT N$:PRINT"Проходи, приятель":END
-</code>
-Результат работы программной строки
-<code>
-A$=INKEY$:IF A$="" THEN 10
-</code>
-может показаться эквивалентным результату работы команды
-<WRAP group>
-<WRAP half column>
-<code>
-A$=INPUT$(1)
-</code>
-</WRAP>
-<WRAP half column>
-!
-</WRAP>
-</WRAP>
-Однако между ними есть различие: нажатие клавиши <key>STOP</key> задерживает программу в цикле с оператором ''INKEY$'', тогда как во время ожидания нажатия клавиши, "организованного" оператором ''INPUT$'', клавиша <key>STOP</key> временно отключается.
-<WRAP center round tip 60%>
-Это единственный способ временно отключить клавишу <key>STOP</key> в [[msx:basic:]]!
-</WRAP>
-==== VII.1.2. Функциональные клавиши ====
-При нажатии клавиши <key>F1</key> на дисплее компьютера серии [[msx:msx_1]] появляется слово ''print'' (как если бы оно набиралось на клавиатуре посимвольно). Аналогичным образом действует любая из остальных девяти функциональных клавиш: <key>F2</key>, <key>F3</key>, <key>F4</key>, <key>F5</key>, <key>F6</key>, <key>F7</key>, <key>F8</key>, <key>F9</key>, <key>F10</key>, — генерируя на экране соответствующее слово. Подобные клавиши называются //функциональными// (программируемыми), поскольку они не связаны жёстко с каким–либо определённым символом. Генерируемые ими слова называются //значениями// функциональных клавиш.
-{{anchor:key}}
-[[msx:basic:]] располагает средством, позволяющим изменять эти значения так, что при нажатии соответствующей клавиши генерируется заранее заданная цепочка символов. Этим средством является оператор
-<WRAP group>
-<WRAP half column>
-<code>
-KEY n,T
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * KEY ("key" — "клавиша") — служебное слово;
-  * n — арифметическое выражение, целая часть значения которого задаёт номер функциональной клавиши (n=1, 2, …, 10);
-  * T — символьное выражение.
-При выполнении данного оператора значение клавиши <key>Fn</key> становится равным значению символьного выражения T. Длина последнего не должна превышать 15.
-В противном случае будут использованы лишь первые 15 символов этого значения. Отметим, что оператор
-<code>
-KEY n,""
-</code>
-"сбрасывает" значение функциональной клавиши с номером n.
-Оператор
-<code>
-KEY LIST
-</code>
-выводит на экран дисплея значения 10 функциональных клавиш по порядку, по одной на дисплейную строку.
-Приведём ряд //примеров//:
-  * 1) <code>
-KEY 1,CHR$(1)+CHR$(78)
-KEY LIST
-run
-♬          │
-auto       │ для компьютеров
-goto       │  серии MSX 1
-…          │
-_comterm   │
-Ok
-</code>
-  * 2) <code>
-KEY 5,"print x;y"
-</code>
-  * 3) <code>
-FOR S=1 TO 5:KEY S,"":NEXT: KEY 1,"GOSUB"
-KEY S,"YES":KEY LIST
-</code>
-  * 4) <code>
-X$="for x=1 to 15'заголовок":KEY5,X$:KEY LIST
-</code>
-  * 5) <code>
-KEY 2,"LIST"+CHR$(13) 'При нажатии клавиши F2 выполняется команда LIST.
-</code>
-Заметим, что символ ''CHR$(13)'' вызывает ввод команды (оператора) так же, как и нажатие клавиши <key>'Ввод '⏎</key>!
-Отметим, что при включении компьютера серии [[msx:msx_1]] значения функциональных клавиш устанавливаются по умолчанию следующим образом:
-<code>
-print          auto          goto          list            run
-run"COM:"      save"COM:"    load"COM:"    merge"COM:"     _comterm
-</code>
-Однако, если одновременно нажать на кнопку сброса <key>RESET</key> и клавишу <key>DEL</key>, то ключи будут установлены следующим образом:
-<code>
-color          auto          goto          list            run
-color 15,4,4   cload"        cont          list.           run
-</code>
-Кстати, этого состояния функциональных клавиш можно достичь программным путём. Для этого используйте команды:
-<code>
-DEFUSR=&H003E:X=USR(X)
-</code>
-При помощи функциональных клавиш можно значительно ускорить ввод программ в память компьютера, если "занести в них" часто встречающиеся в программе служебные слова.
-Использование функциональных клавиш очень полезно на этапе //редактирования// программы. Каждая из клавиш может быть специально определена для ускорения набора текста программы.
-Предположим, что Вы хотите ввести большое количество двоичных чисел. Это часто бывает необходимо при определении образа спрайта. Чтобы облегчить себе работу, определите одну из функциональных клавиш так:
-<code>
-KEY1,"DATA 00000000"+CHR$(13)
-</code>
-а затем введите команду ''AUTO''. Нажмите клавишу <key>F1</key> несколько раз для получения начальных "шаблонов" операторов ''DATA'' с последовательными номерами строк. Вам остаётся только отредактировать те строки, в которых  необходимо заменить нули на единицы в нужных местах!
-{{anchor:fk-bas}} __//Пример.//__
-\\ Установка новых значений функциональных клавиш((Примечание редактора: добавлено 2019-10-20))
-\\ {{:msx:basic_programming_guide:.examples:fk.bas|}} \\ [[+tab|wmsxbpge>fk.bas]]
-=== Описание структур хранения значения функциональных клавиш ===
-Таблица содержит значения по умолчанию для десяти функциональных клавиш (от <key>F1</key> до <key>F10</key>)((Примечание редактора: добавлено 2019-11-01)).
-Место в ОЗУ: 0xF87F–0xF91E = 160 байт.
-{{anchor:fkmsx1}}
-== MSX 1 ==
-Место в ПЗУ: 0x13A9–0x1448 = 160 байт.
-Каждой клавише назначается область памяти из 16 байт.
-^  Клавиша  ^  Диапазон адресов  ^  Значение  ^  Содержимое  ^
-|F1|  0x13A9–0x1388  |''63 6F 6C 6F 72 20 00 00 00 00 00 00 00 00 00 00''|''color''|
-|F2|  0x1389–0x13C8  |''61 75 74 6F 20 00 00 00 00 00 00 00 00 00 00 00''|''auto''|
-|F3|  0x13C9–0x13D8  |''67 6F 74 6F 20 00 00 00 00 00 00 00 00 00 00 00''|''goto''|
-|F4|  0x13D9–0x13E8  |''6C 69 73 74 20 00 00 00 00 00 00 00 00 00 00 00''|''list''|
-|F5|  0x13E9–0x13F8  |''72 75 6E 0D 00 00 00 00 00 00 00 00 00 00 00 00''|''run''<key>'Ввод '⏎</key>|
-|F6|  0x13F9–0x1408  |''63 6F 6C 6F 72 20 31 35 2C 34 2C 34 0D 00 00 00''|''color 15,4,4''<key>'Ввод '⏎</key>|
-|F7|  0x1409–0x1418  |''63 6C 6F 61 64 22 00 00 00 00 00 00 00 00 00 00''|''cload%%"%%''|
-|F8|  0x1419–0x1428  |''63 6F 6E 74 0D 00 00 00 00 00 00 00 00 00 00 00''|''cont''<key>'Ввод '⏎</key>|
-|F9|  0x1429–0x1438  |''6C 6F 6E 74 2E 0D 1E 1E 00 00 00 00 00 00 00 00''|''list.''<key>'Ввод '⏎</key><key>⇑</key><key>⇑</key>|
-|F10|  0x1439–0x1448  |''0C 72 75 6E 0D 00 00 00 00 00 00 00 00 00 00 00''|<key>CLS</key>''run''<key>'Ввод '⏎</key>|
-----
-  * [[http://msxvillage.fr/upload/clefs-pour-msx.pdf|Clefs pour MSX (Tome 1) p.154]]
-  * http://www.angelfire.com/art2/unicorndreams/msx/RR-BIOS.html
-{{anchor:fkmsx2}}
-== MSX 2 ==
-Место в ПЗУ 0x13C3–0x140B = 72 байта.
-Для [[msx:msx_2|]] и [[msx:msx_2_plus|]] структуру буфера в ПЗУ попытались оптимизировать (по сравниванию с [[#fkmsx1|MSX 1]]) с целью уменьшить его объём, учитывая что длина строковых заготовок чаще всего меньше 16 байт. Задаются только значимые коды символов и команд, а строки разделяются байтом с значением 0.
-При этом естественно увеличился объём кода процедуры, которая формирует буфер FNKSTR.
-Всего 10 записей длиной до 15 символов (с обязательным 0 в конце строки).
-^  Значение  ^  Содержимое  ^
-|''63 6F 6C 6F 72 20 00 61 75 74 6F 20''|''color .auto ''|
-|''00 67 6F 74 6F 20 00 6C 69 73 74 20''|''.goto .list ''|
-|''00 72 75 6E 0D 00 63 6F 6C 6F 72 20''|''.run..color ''|
-|''31 35 2C 34 2C 34 0D 00 63 6C 6F 61''|''15,4,4..cloa''|
-|''64 22 00 63 6F 6E 74 0D 00 6C 69 73''|''%% d".cont..lis %%''|
-|''74 2E 0D 1E 1E 00 0C 72 75 6E 0D 00''|''%% t......run.. %%''|
-----
-//--- Камиль Каримов (caro)//
-==== VII.1.3. Джойстик ====
-FIXME
-<WRAP group 99%>
-<WRAP half column> \\ </WRAP>
-<WRAP half column><WRAP justify>
-Человеческая изобретательность ни в чем не проявляется так, как в играх.
-<WRAP rightalign>
-—//Из письма Г.В.Лейбница Б.Паскалю//
-</WRAP></WRAP>
-</WRAP></WRAP>
-В комплекте MSX–компьютера имеется два периферийных устройства для ввода информации, которые называются //джойстиками// ("joy stick" — "палочка радости").
-Подробнее джойстиках [[msx:msx#joystick|здесь]]((Примечание редактора)).
-Каждый джойстик состоит из двух блоков: //рукоятки и кнопки//. Обычно у джойстика имеется одна кнопка. Кроме того, к каждому джойстику можно присоединить дополнительно ещё по одной кнопке (отметим, что у некоторых моделей их две изначально!).
-Рукоятку джойстика можно перемещать вверх, вниз, направо, налево, а также в комбинациях: вверх+направо, вверх+налево, вниз+направо, вниз+налево.
-Таким образом, получается //восемь// допустимых направлений движения.
-<WRAP center round tip 60%>
-Важно отметить, что MSX–компьютер имеет встроенный "джойстик" (с номером 0). Роль //рукоятки// этого "джойстика" играют клавиши управления курсором, а роль //кнопки// играет клавиша "пробел"!
-</WRAP>
-В [[msx:basic:]] имеется возможность нестандартного ввода информации при помощи джойстика. Делается это при помощи функций ''[[#stick|STICK()]]'', ''[[#strig|STRIG()]]'', ''[[#pdl|PDL()]]'' и ''[[#pad|PAD()]]''.
-{{anchor:stick}}
-Формат функции ''STICK()'' следующий:
-<WRAP group>
-<WRAP half column>
-<code>
-STICK(α)
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * STICK ("рукоятка") — служебное слово;
-  * α — арифметическое выражение, целая часть значения которого принадлежит отрезку [0,2] и задаёт номер джойстика.
-<code>
-   1   2
-   ◤  ▲  ◥
-    ╲ │ ╱
-◀── 0 ──▶ 3
-    ╱ │ ╲
-   ◣  ▼  ◢
-   5   4
-</code>
-Эта функция возвращает целое число, принадлежащее отрезку [0,8] и отмечающее направление перемещения рукоятки джойстика, номер которого определяется значением выражения α. Рисунок демонстрирует различные значения функции ''STICK()'' (когда джойстик находится в нейтральном положении, функция возвращает значение 0).
-Говорят, что функция ''STICK(0)'' "читает" клавиши управления курсором, функция ''STICK(1)'' "читает джойстик" в первом разъёме, функция ''STICK(2)'' "читает джойстик"во втором разъёме.
-Приведём возможные значения функции ''STICK(0)'':
-  * X=1, если нажата клавиша <key>↑</key>;
-  * X=2, если нажаты одновременно клавиши <key>→</key> и <key>↑</key>;
-  * X=3, если нажата клавиша <key>→</key>;
-  * X=4, если нажаты одновременно клавиши <key>→</key> и <key>↓</key>;
-  * X=5, если нажата клавиша <key>↓</key>;
-  * X=6, если нажаты одновременно клавиши <key>←</key> и <key>↓</key>;
-  * X=7, если нажата клавиша <key>←</key>;
-  * X=8, если нажаты одновременно клавиши <key>↑</key> и <key>←</key>;
-  * X=0, если не нажата ни одна из этих клавиш.
-{{anchor:e0713-01}} Например, если Вы запустите программу
-\\ {{.examples:0713-01.bas|}} \\ [[+tab|wmsxbpge>0713-01.bas]]
-<code>
-D=STICK(0):LOCATE 18,11:PRINT D:GOTO 10
-</code>
-и будете нажимать клавиши управления курсором, то будете получать значения переменной D от 0 до 8.
-Если же у Вас есть джойстик, установите его в порт джойстика номер 1 (он находится на правой боковой панели компьютера), замените в строке 10 оператор ''D=STICK(0)'' на оператор ''D=STICK(1)'' и вновь запустите программу (итог будет аналогичным).
-{{anchor:strig}}
-Функция ''STRIG()'' определяет, нажата или нет нужная Вам //кнопка//.
-Формат функции ''STRIG()'' следующий:
-<WRAP group>
-<WRAP half column>
-<code>
-STRIG(β)
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''STRIG'' ("Stick TRIGer" — "кнопка джойстика") — служебное слово:
-  * β — арифметическое выражение, целая часть которого принадлежит отрезку [0,4] и указывает на соответствующую кнопку джойстика.
-Функции ''STRIG(1)'' и ''STRIG(2)'' читают состояние кнопок джойстиков из основного комплекта MSX. Функции ''STRIG(3)'' и ''STRIG(4)'' читают состояние дополнительных кнопок джойстиков 1 и 2, причём:
-  - функция ''STRIG(0)'' читает состояние клавиши "пробел";
-  - функция ''STRIG(1)'' читает состояние кнопки 1 джойстика в разъёме 1;
-  - функция ''STRIG(2)'' читает состояние кнопки 1 джойстика в разъёме 2;
-  - функция ''STRIG(3)'' читает состояние кнопки 2 джойстика в разъёме 1;
-  - функция ''STRIG(4)'' читает состояние кнопки 2 джойстика в разъёме 2.
-Функция ''STRIG()'' возвращает значение либо ноль, если кнопка не нажата, либо -1, если кнопка нажата.
-__//Пример 1//__.
-<code>
-IF STRIG(0) THEN BEEP
-</code>
-Оператор вызывает звуковой сигнал (''BEEP''), если кнопка джойстика нажата (т.е. ''STRIG(0)'' имеет значение -1).
-При использовании этой функции, например, в процессе компьютерной игры, когда требуется "вести стрельбу", функция ''STRIG(0)'' ежесекундно задействуется много раз. Для этих частых проверок значений существует специальный термин //"опрос"//.
-Метод опроса иллюстрируется [[#e0713-02|примером 2]]. Программа начинается с вопроса пользователю о том, располагает ли он джойстиком или работает за клавиатурой. Далее запрашиваются состояния пусковых кнопок, и в зависимости от
-того, какая из них нажата, выбирается джойстик.
-{{anchor:e0713-02}} __//Пример 2//__ [[bibliography#b76|[76]]].
-\\ {{.examples:0713-02.bas|}} \\ [[+tab|wmsxbpge>0713-02.bas]]
-<code>
-CLS:WIDTH 40
-PRINT "Нажмите пусковую кнопку":PRINT "выбранного джойстика или"
-PRINT "клавишу ПРОБЕЛ - для клавиатуры"
-PRINT:PRINT:PRINT "Нажимайте":PRINT:PRINT
-F=-1
-FOR I=0 TO 4:IF STRIG(I) THEN F=I:NEXT I
-IF F=-1 THEN GOTO 160
-BEEP
-IF F=0 THEN PRINT "Клавиатура ";
-IF F=1 OR F=3 THEN PRINT "Джойстик А";
-IF F=2 OR F=4 THEN PRINT "Джойстик B";
-PRINT " в действии":END
-</code>
-В ожидании нажатия клавиши "пробел" опрос будет выполняться постоянно, что делает возможной //немедленную// реакцию программы. Напомним Вам, что нажатие клавиши "пробел" может также проверяться с помощью функции ''INKEY$'', но в этом случае компьютер будет проверять текущее состояние буфера клавиатуры.
-//Замечание//. Функция ''STRIG(0)'' возвращает (-1) только, если клавиша "пробел" нажата во время //вычисления//  значения этой функции.
-{{anchor:e0713-03}} __//Пример 3//__.
-\\ {{.examples:0713-03.bas|}} \\ [[+tab|wmsxbpge>0713-03.bas]]
-<code>
-FOR I=0 TO 500:PRINT I:NEXT
-IF STRIG(0) THEN 10 ELSE 20
-</code>
-Обратите внимание, что если клавиша "пробел" нажата во время вывода информации на экран, это событие не будет зафиксировано функцией ''STRIG(0)'', как произошло бы в случае замены программной строки 20 на строку
-<code>
-IF INKEY$=CHR$(32) THEN 10 ELSE 20
-</code>
-При применении функции ''STRIG(0)'' компьютер "реагирует" на нажатие клавиши "пробел" //только// при выполнении 20 строки. Функция ''STRIG(0)'' не перехватывает предварительного нажатия клавиши "пробел", тогда как функция
-''INKEY$'' реагирует на //все// предварительные нажатия. Сколько раз была нажата клавиша "пробел", столько раз и выполнится соответствующая команда.
-{{anchor:e0713-04}} __//Пример 4//__. Ввод рисунков с клавиатуры при помощи "рукоятки" (клавиши управления курсором) и "кнопки" (клавиша "пробел") встроенного "джойстика" с номером 0.
-    - <WRAP>{{.examples:0713-041.bas|}} \\ [[+tab|wmsxbpge>0713-041.bas]] <code>
-CLS:X=16:Y=11
-D=STICK(0)
-IF D=1 OR D=2 OR D=8 THEN Y=Y-1
-IF D=4 OR D=5 OR D=6 THEN Y=Y+1
-IF D=2 OR D=3 OR D=4 THEN X=X+1
-IF D=6 OR D=7 OR D=8 THEN X=X-1
-IF X<0 THEN X=0 ELSE IF X>36 THEN X=36
-IF Y<0 THEN Y=0 ELSE IF Y>20 THEN Y=20
-LOCATE X,Y
-IF STRIG(0) THEN PRINT "∗":GOTO 30 ELSE PRINT "+":GOTO 30
-</code>
-А теперь исправьте "∗" на " ". Что изменилось в работе программы?
-</WRAP>
-  - {{.examples:0713-042.bas|}} \\ [[+tab|wmsxbpge>0713-042.bas]] <code>
-COLOR 1,15:SCREEN 2
-GOSUB 60:LINE (X,Y)-(X+10,Y+10)
-X1=X:Y1=Y:A$=INKEY$:IF A$="n" OR A$="N" THEN ELSE 20
-GOSUB 60:LINE (X1,Y1)-(X1+10,Y1+10),15:LINE (X,Y)-(X+10,Y+10)
-X1=X:Y1=Y:A$=INKEY$:IF A$="r" OR A$="R" THEN 20 ELSE 40
-D=STICK(0)
-IF D=1 OR D=2 OR D=8 THEN Y=Y-1
-IF D=4 OR D=5 OR D=6 THEN Y=Y+1
-IF D=2 OR D=3 OR D=4 THEN X=X+1
-IF D=6 OR D=7 OR D=8 THEN X=X-1
-RETURN'──▶
-</code>
-{{anchor:e0713-05}} __//Пример 5//__. А теперь настала очередь "настоящего" джойстика!
-  - {{.examples:0713-051.bas|}} \\ [[+tab|wmsxbpge>0713-051.bas]] <code>
-CLS:X=16:Y=11
-D=STICK(1)
-IF D=1 OR D=2 OR D=8 THEN Y=Y-1
-IF D=4 OR D=5 OR D=6 THEN Y=Y+1
-IF D=2 OR D=3 OR D=4 THEN X=X+1
-IF D=6 OR D=7 OR D=8 THEN X=X-1
-IF X<0 THEN X=0 ELSE IF X>36 THEN X=36
-IF Y<0 THEN Y=0 ELSE IF Y>20 THEN Y=20
-LOCATE X,Y
-IF STRIG(1) THEN PRINT "∗":GOTO 30 ELSE PRINT "+":GOTO 30
-</code>
-  - {{.examples:0713-052.bas|}} \\ [[+tab|wmsxbpge>0713-052.bas]] <code>
-COLOR 1,15:SCREEN 2
-GOSUB 60:LINE (X,Y)-(X+10,Y+10)
-X1=X:Y1=Y:A$=INKEY$:IF A$="n" OR A$="N" THEN ELSE 20
-GOSUB 60:LINE (X1,Y1)-(X1+10,Y1+10),15:LINE (X,Y)-(X+10,Y+10)
-X1=X:Y1=Y:A$=INKEY$:IF A$="r" OR A$="R" THEN 20 ELSE 40
-D=STICK(2)
-IF D=1 OR D=2 OR D=8 THEN Y=Y-1
-IF D=4 OR D=5 OR D=6 THEN Y=Y+1
-IF D=2 OR D=3 OR D=4 THEN X=X+1
-IF D=6 OR D=7 OR D=8 THEN X=X-1
-RETURN'──▶
-</code>
-//Замечание//.
-С помощью регистров Программируемого Звукового Генератора (PSG) можно определить состояние джойстиков (состояние клавиш управления курсором с помощью регистров PSG определить нельзя!) и изменять состояние индикатора "РУС".
-Для Вас, конечно же, будет неожиданным сообщение о том, что PSG имеет 16 регистров, причём регистры с номерами 0÷13 отвечают за генерацию звука, а регистры 14 и 15 — за состояние джойстиков и индикатора "РУС".
-Для того, чтобы определить состояние джойстиков нужно в регистр с номером 15 занести следующие значения:
-//Для джойстика// 1:
-<code>
-   6   5   4   3   2   1   0
-┌───┬───┬───┬───┬───┬───┬───┬───┐
-│ – │ 0 │ – │ 0 │ – │ – │ 1 │ 1 │
-└───┴───┴───┴───┴───┴───┴───┴───┘
-</code>
-//Для джойстика// 2:
-<code>
-   6   5   4   3   2   1   0
-┌───┬───┬───┬───┬───┬───┬───┬───┐
-│ – │ 1 │ 0 │ – │ 1 │ 1 │ – │ – │
-└───┴───┴───┴───┴───┴───┴───┴───┘
-</code>
-…и прочитать регистр PSG с номером 14. Четыре его младших бита покажут состояние выбранного с помощью регистра 15 джойстика:
-<code>
-   6   5   4   3   2   1   0
-┌───┬───┬───┬───┬───┬───┬───┬───┐
-│ – │ – │ – │ – │ → │ ← │ ↓ │ ↑ │
-└───┴───┴───┴───┴───┴───┴───┴───┘
-</code>
-Если бит в данной позиции "сброшен", то джойстик направлен в показанном на таблице направлении.
-{{anchor:e0713-06}} __//Пример 6//__. Автор программы: Г.Беленький. 26.05.90.
-\\ {{.examples:0713-06.bas|}} \\ [[+tab|wmsxbpge>0713-06.bas]]
-<code>
-DATA 3E,0F     :' LD   A,0Fh      ; В 15-й регистр PSG поместим
-DATA 1Е,03     :' LD   Е,03h      ; 3 (для джойстика 1)
-DATA CD,93,00  :' CALL 0093h      ; BIOS записи (оператор SOUND не
-'                                 ; действует!)
-DATA 3E,0E     :' LD   A,0Eh      ; Читаем содержимое регистра 14
-DATA CD,96,00  :' CALL 0096h      ; BIOS чтения
-DATA 32,00,E0  :' LD   (E000h),A  ; Полученное число поместим в
-'                                 ; ячейку с адресом &HE000
-DATA C9        :' RET
-FOR I=0 TO 15:READ A$:POKE &HD000+I,VAL("&H"+A$):NEXT I
-DEFUSR=&HD000
-A=USR(0)                         ' Прочитаем состояние джойстика 1
-PRINT RIGHT$("0"+BIN$(NOT(PEEK(&HE000) AND 15)),4)
-</code>
-{{anchor:e0713-07}} __//Пример 7//__. Автор программы: Г.Беленький. 26.05.90.
-\\ {{.examples:0713-07.bas|}} \\ [[+tab|wmsxbpge>0713-07.bas]]
-<code>
-DATA 3E,0F      :' LD   A,0Fh        ; Подпрограмма, позволяющая
-DATA 1E,83      :' ld   E,83h        ; прочитать содержимое
-DATA CD,93,00   :' CALL 0093h        ; регистра PSG с номером 14,
-DATA 3E,0E      :' LD   A,0Eh        ; для определения
-DATA CD,96,00   :' CALL 0096h        ; состояния джойстика 1.
-DATA 32,00,E0   :' LD   (E000h),A    ;
-DATA C9         :' RET
-FOR I=0 TO 15:READ A$:POKE &HD000+I,VAL("&h"+A$):NEXT I
-DEFUSR=&HD000
-SCREEN 2,0
-SPRITE$(0)="ЧЧЧЧЧЧЧЧ"               ' Образ спрайта
-X=128:Y=96                          ' Начальные координаты спрайта
-PUT SPRITE 0,(X,Y),15,0
-A=USR(0)                            ' Определяем состояние
-A=PEEK(&HE000) AND 15               ' джойстика 1
-IF A=10 OR A=14 OR A=6 THEN Y=Y-2   ' Изменение координат
-IF A=9  OR A=13 OR A=5 THEN Y=Y+2
-IF A=10 OR A=11 OR A=9 THEN X=X-2
-IF A=6  OR A=7  OR A=5 THEN X=X+2
-GOTO 140
-</code>
-Для того, чтобы изменить состояние индикатора "РУС", нужно в регистре PSG с номером 15 изменить старший бит. Если этот бит равен 0, то индикатор включается, а если 1, то выключается.
-{{anchor:e0713-08}} __//Пример 8//__. Автор программы: Г.Беленький. 26.05.90.
-\\ {{.examples:0713-08.bas|}} \\ [[+tab|wmsxbpge>0713-08.bas]]
-<code>
-DATA 3E,0F     :' LD   A,0Fh
-DATA 1E,00     :' LD   E,00h
-DATA CD,93,00  :' CALL 0093h
-DATA C9        :' RET
-FOR I=0 TO 7:READ A$:POKE &HD000+I,VAL("&H"+A$):NEXT I
-DEFUSR=&HD000
-A=USR(0)                 ' Включем индикатор "РУС"
-FOR I=0 TO 50:NEXT I
-POKE &HD003,128:A=USR(0) ' Выключем индикатор "РУС"
-FOR I=0 TO 50:NEXT I
-POKE &HD003,0:GOTO 70
-</code>
-Кроме только что рассмотренных функций ''[[#STICK]]'' и ''[[#STRIG]]'', для работы с джойстиком можно использовать функции ''[[#PDL]]'' и ''[[#PAD]]''.
-{{anchor:pdl}}
-Формат функции ''PDL'' следующий:
-<WRAP group>
-<WRAP half column>
-<code>
-PDL(N)
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''PDL'' — служебное слово;
-  * N — арифметическое выражение, целая часть которого должна принадлежать отрезку [1,12] (в противном случае последует сообщение об ошибке <WRAP centeralign>"Illegal function call".</WRAP>
-Функция ''PDL(N)'' возвращает значение кода положения //игрового рычажка//, подключённого к разъёму для джойстика.
-Функция проверяет, происходило ли действие и возвращает 255 ("истина"), или 0 ("ложь") — в противном случае.
-Для чётных значений N считывается значение в разъёме 1, для нечётных — в разъёме 2.
-Если же у Вас нет игрового рычажка, но есть //джойстик//, не огорчайтесь и читайте дальше!
-^  Аргумент функции \\ ''PDL(N)''  ^  Действие  ^  Разъём \\ джойстика  ^
-|  1  |  ↑ \\ (вперёд)  |  1  |
-|  2  |:::|  2  |
-|  3  |  ↓ \\ (назад)  |  1  |
-|  4  |:::|  2  |
-|  5  |  ← \\ (влево)  |  1  |
-|  6  |:::|  2  |
-|  7  |  → \\ (вправо)  |  1  |
-|  8  |:::|  2  |
-|  9  |  <key>Кнопка 1</key> \\ (A)  |  1  |
-|  10  |:::|  2  |
-|  11  |  <key>Кнопка 2</key> \\ (B)  |  1  |
-|  12  |:::|  2  |
-{{anchor:pad}}
-Основное назначение функции PAD — работа с графическим планшетом.
-Формат функции PAD следующий:
-<WRAP group>
-<WRAP half column>
-<code>
-PAD(N)
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * PAD ("pad" — "графический планшет") — служебное слово;
-  * N — арифметическое выражение, целая часть которого должна принадлежать отрезку [0,7] (в противном случае последует сообщение об ошибке <WRAP centeralign>"Illegal function call".</WRAP>
-Функция ''PAD(N)'' считывает данные с графического планшета, подключённого к разъёму для джойстика. Значение разъёма 1 считываются при N, равном 1, 2 или 3, а с разъёма 2 при N, равном 4, 5, 6 или 7.
-Смысл возвращаемой величины для каждого значения N:
-  * 0 или 4 : возвращается 0 или -1 в зависимости от того, есть прикосновение пера к планшету или нет;
-  * 1 или 5 : возвращается координата X точки касания;
-  * 2 или 6 : возвращается координата Y точки касания;
-  * 3 или 7 : возвращается состояние кнопки–переключателя (-1, если кнопка нажата, иначе 0).
-Однако функцию ''PAD()'' можно применять и в том случае, если у Вас нет графического планшета, но есть //джойстик//.
-Функция ''PAD(N)'' проверяет, происходило ли перемещение рукоятки джойстика в соответствующем разъёме и возвращает 0 ("ложь"), если рукоятка не перемещалась, или -1 ("истина") — в противном случае.
-^  Аргумент функции \\ ''PAD(N)''  ^  Действие  ^  Разъём \\ джойстика  ^
-|  0  |  ↑ \\ (вперёд)  |  1  |
-|  3  |  → \\ (вправо)  |  1  |
-|  4  |  ↑ \\ (вперёд)  |  2  |
-|  7  |  → \\ (вправо)  |  2  |
-Функции ''PAD(1)'', ''PAD(2)'', ''PAD(5)'' и ''PAD(6)'' всегда возвращают значение 255.
-===== VII.2. Переход к подпрограмме по событию =====
-Переход к подпрограмме по событию (//прерывание// в программе пользователя) представляет собой особый тип условного перехода.
-Для выполнения //"обычного"// условного перехода где–то в программе располагается оператор, проверяющий истинность условия и передающий управление на указанный номер строки в соответствии с результатами проверки.
-Переход происходит только в том случае, если при выполнении программы в последовательности операторов был //обнаружен// оператор перехода.
-Что же касается перехода к подпрограмме по //событию//, то компьютер непрерывно "проверяет" условие его возникновения в то время, как программа пользователя выполняет другую работу.
-Обработка прерываний при наступлении события выполняется с помощью операторов двух типов:
-{{anchor:vii2-1}}
-<WRAP group>
-<WRAP half column>
-<code>
-ON событие GOSUB номер строки
-</code>
-</WRAP>
-<WRAP half column>
-(1)
-</WRAP>
-</WRAP>
-Этот оператор определяет событие, вызывающее проверку, а также место в программе, куда будет передано управление при наступлении события.
-{{anchor:vii2-2}}
-<WRAP group>
-<WRAP half column>
-<code>
-событие ON/OFF/STOP
-</code>
-</WRAP>
-<WRAP half column>
-(2)
-</WRAP>
-</WRAP>
-Если событие //включено// (ON), то происходит переход, определённый оператором [[#vii2-1|(1)]]. Разумеется, что этот оператор должен быть предварительно выполнен.
-Если событие //выключено// (OFF) (по умолчанию), то перехода на подпрограмму обработки не происходит.
-Если событие //остановлено// (STOP), то переход при наступлении события не происходит, но информация о том, что событие произошло, запоминается, а переход происходит только после обнаружения в программе оператора
-<WRAP group>
-<WRAP half column>
-<code>
-событие ON
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-Отметим, что операторы [[#vii2-1|(1)]] или [[#vii2-2|(2)]] не выполняют "сами по себе" переход на подпрограмму обработки события.
-Когда выполнен оператор типа [[#vii2-1|(1)]], относящийся к указанному событию, компьютер начинает проверять, не произошло ли данное событие во время выполнения программы.
-Если событие произошло, текущий оператор все равно выполняется до конца.
-Затем компьютер проверяет, выполнен ли оператор типа [[#vii2-2|(2)]].
-Возможны //три// варианта:
-  - <WRAP> оператор
-<WRAP group>
-<WRAP half column>
-<code>
-событие ON/OFF/STOP
-</code>
-</WRAP>
-<WRAP half column>
-</WRAP>
-</WRAP>
-не был выполнен.
-Программа выполняется, как если бы событие не произошло;
-</WRAP>
-  - <WRAP> оператор
-<WRAP group>
-<WRAP half column>
-<code>
-событие ON
-</code>
-</WRAP>
-<WRAP half column>
-</WRAP>
-</WRAP>
-был выполнен и является последним оператором этого типа, относящимся к данному событию.
-Происходит переход к подпрограмме, указанной в операторе
-<WRAP group>
-<WRAP half column>
-<code>
-ON событие GOSUB номер строки
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-При входе в эту подпрограмму неявно выполняется оператор
-<WRAP group>
-<WRAP half column>
-<code>
-событие STOP
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-При выполнении оператора ''RETURN'' автоматически выполняется оператор
-<WRAP group>
-<WRAP half column>
-<code>
-событие ON
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-и управление передаётся оператору, следующему за тем, при выполнении которого было обнаружено наступление события;
-</WRAP>
-  - <WRAP> был выполнен оператор
-<WRAP group>
-<WRAP half column>
-<code>
-событие STOP
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-и он является последним оператором обработки данного события.
-Программа продолжает выполняться так, как будто бы событие не произошло. Это событие запоминается, и если в дальнейшем в программе встречается оператор
-<WRAP group>
-<WRAP half column>
-<code>
-событие ON
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-относящийся к тому же событию, то происходит переход к подпрограмме обработки события.
-</WRAP>
-Имеется возможность организовать переход на подпрограммы по совершению таких событий, как истечение определённого интервала времени, нажатие какой–либо клавиши <key>F1</key>÷<key>F10</key>, нажатие клавиш <key>CTRL+STOP</key> и т.п. Об этом и пойдёт речь в следующих разделах.
-<WRAP center round important 60%>
-Перед тем, как выполнить программу, содержащую переход к подпрограммам по событию, не забудьте (если работаете на компьютере [[msx:msx_2]]) набрать ''[[msx:network_basic#CALL NETEND]]''.
-</WRAP>
-==== VII.2.1. Переход по ключу ====
-{{anchor:onkeygosub}}
-<WRAP group 99%>
-<WRAP half column> \\ </WRAP>
-<WRAP half column><WRAP justify>
-Стоять я не могу… Мои колени слабеют… \\
-душно… Где ключи? Ключи, ключи мои…
-<WRAP rightalign>
-—//А.С. Пушкин//
-</WRAP></WRAP>
-</WRAP></WRAP>
-[[msx:basic:]] включает в себя средство, позволяющее использовать функциональные клавиши не только для ввода некоторого слова, но и для прерывания выполнения программы и вызова определённой подпрограммы.
-Оператор
-<WRAP group>
-<WRAP half column>
-<code>
-ON KEY GOSUB n1, n2, …, nk
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''ON'' ("по"), ''KEY'' ("ключ","клавиша"), ''GOSUB'' — служебные слова;
-  * n1, n2, …, nk — номера строк программы (1≤k≤10);
-осуществляет передачи управления подпрограммам, расположенным со строк n1, n2, …, nk, причём нажатие функциональной клавиши <key>Fk</key> (k=1, 2, …, 10) приводит к передаче управления подпрограмме, начинающейся со строки с номером nk (k=1, 2, …, 10). Если Вы хотите использовать только некоторые функциональные клавиши, то пропустите ненужные номера строк (оставив запятые!).
-{{anchor:key1}}
-Предварительно функциональную клавишу <key>Fk</key> необходимо "активизировать" оператором
-<WRAP group>
-<WRAP half column>
-<code>
-KEY(k)ON
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-Записанное в скобках значение k определяет,какая именно функциональная клавиша будет "активизирована". После выполнения приведённого выше оператора нажатие клавиши <key>Fk</key> не будет приводить к генерации какой–либо строки символов.
-Теперь перед выполнением каждого нового оператора программы интерпретатор будет проверять, не была ли нажата какая–нибудь "активизированная" функциональная клавиша, и если такое нажатие произошло, то интерпретатор вызывает соответствующую подпрограмму.
-Для блокирования (запрещения) такого вызова необходимо выполнить оператор
-<WRAP group>
-<WRAP half column>
-<code>
-KEY(k)OFF
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-Как и в предыдущих случаях, значение в скобках k определяет номер функциональной клавиши, для которой выполняется данный оператор.
-Иногда возникает необходимость временно оградить программу от прерываний, вызываемых функциональными клавишами, и в то же время запомнить каждое нажатие такой клавиши с тем, чтобы впоследствии можно было выполнить все соответствующие вызовы подпрограммы. Это достигается с помощью оператора
-<WRAP group>
-<WRAP half column>
-<code>
-KEY(k)STOP
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-который временно "дезактивизирует" функциональную клавишу <key>Fk</key>.
-Если после выполнения указанного выше оператора производились нажатия функциональной клавиши <key>Fk</key>, то все соответствующие вызовы подпрограмм всё–таки будут реализованы, но не сразу, а только после выполнения оператора
-<WRAP group>
-<WRAP half column>
-<code>
-KEY(k)ON
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-вновь "активизирующего" эту клавишу.
-__//Примеры//__.
-  - {{anchor:e0721-01}} \\ {{.examples:0721-01.bas|}} \\ [[+tab|wmsxbpge>0721-01.bas]] <code>
-ON KEY GOSUB 100
-KEY(1)ON:SCREEN 2
-LINE(50,50)-(200,150),,B
-GOTO 30
-' Подпрограмма
-:::
-BEEP:CLS
-FOR I=10 TO 90 STEP 10
-CIRCLE(120,100),I:NEXT I
-CLS:RETURN 30
-</code>
-  - {{anchor:e0721-02}} \\ {{.examples:0721-02.bas|}} \\ [[+tab|wmsxbpge>0721-02.bas]] <code>
-ON KEY GOSUB 100
-KEY(1)ON:SCREEN 2
-LINE(50,50)-(200,150),,B
-GOTO 30
-' Подпрограмма
-KEY(1)ON
-BEEP:CLS
-FOR I=10 TO 90 STEP 10
-CIRCLE(120,100),I:NEXT I
-CLS:RETURN 30
-</code>
-  - Наберите [[#e0721-02|пример 2]], вставив строку: <code>135 IF I=50 THEN KEY(1)STOP</code>
-Оператор ''ON KEY GOSUB'' позволяет легко организовывать "листание" законченных программных фрагментов во время выполнения программы, например, страницы справочной информации 1÷3 вызываются нажатием на клавиши
-<key>F1</key>÷<key>F3</key>, демонстрационный пример выполняется при нажатии клавиши <key>F4</key>,
-выход из программы — при нажатии клавиши <key>F5</key> и т.д.
-==== VII.2.2. Переход по временному интервалу ====
-{{anchor:onintervalgosub}}
-Оператор
-<WRAP group>
-<WRAP half column>
-<code>
-ON INTERVAL=α GOSUB n
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''ON'', ''INTERVAL'' ("интервал"), ''GOSUB'' — служебные слова;
-  * α — арифметическое выражение, целая часть значения которого принадлежит отрезку [1,65535];
-  * <WRAP>n — номер программной сроки, назначает интервалы времени, равные INT(α)/60 секунд, через которые компьютер периодически передаёт управление подпрограмме, расположенной с программной строки с номером n. Отсчёт временных интервалов реализуется специальным счётчиком, принимающим значения
-<code>
-, 2, …, INT(α), 1, 2, …, INT(α), 1, 2, …, INT(α), …
-</code>
-</WRAP>
-{{anchor:interval}}
-По аналогии с [[#VII.2.1. Переход по ключу|пунктом VII.2.1]] счётчик "активизируется" оператором
-<WRAP group>
-<WRAP half column>
-<code>
-INTERVAL ON
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-"дезактивизируется" оператором
-<WRAP group>
-<WRAP half column>
-<code>
-INTERVAL OFF
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-и временно "дезактивизируется" оператором
-<WRAP group>
-<WRAP half column>
-<code>
-INTERVAL STOP
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-__//Примечание//__. Прежде чем запустить составленную Вами программу, убедитесь в том, что интервал INT(α)/60 не короче, чем время выполнения подпрограммы обработки, иначе она будет бесконечно вызывать саму себя, ибо
-в конце её неявно выполняется оператор ''INTERVAL ON''.
-{{anchor:e0722-01}} __//Пример 1//__. Проследите за выполнением следующего фрагмента при K=1, 2, 6.
-\\ {{.examples:0722-01.bas|}} \\ [[+tab|wmsxbpge>0722-01.bas]] <code>
-INPUT K:ON INTERVAL=K*60 GOSUB 80
-INTERVAL ON:GOSUB 100:INTERVAL STOP:GOSUB 100
-INTERVAL ON:GOSUB 100:INTERVAL OFF:GOSUB 100
-END
-PRINT "Проверка":RETURN
-FOR K=1 TO 7000:NEXT:RETURN
-</code>
-{{anchor:e0722-02}} __//Пример 2//__. "Секундомер"!
-\\ {{.examples:0722-02.bas|}} \\ [[+tab|wmsxbpge>0722-02.bas]] <code>
-INPUT "Сколько секунд отсчитать";K:ON INTERVAL=60 GOSUB 80:S=1:PRINТ 0;TAB(4)"мин"0TAB(11)"сек":LOCATE POS(0),CSRLIN-1
-INTERVAL ON:FOR I=1 TO K*1000/2.395:NEXT:LOCATE POS(0),CSRLIN+1:END
-PRINT M;TAB(4) "мин";S;TAB(11) "сек":LOCATE POS(0),CSRLIN -1:S=S+1:IF S MOD 60=0 THEN J=0:LOCATE POS(0),CSRLIN:M=M+1:S=0
-RETURN
-</code>
-Обработка интервала оказывается очень удобной в игровых программах, где нужно повторять какое–либо действие через одинаковые интервалы времени.
-{{anchor:e0722-03}} __//Пример 3//__ [[bibliography#b76|[76]]]. Данная программа позволяет наряду с вводом текста организовать отсчёт времени ("часы") в правом верхнем углу экрана. Заметим, что "опрос" клавиатуры выполняется с помощью функции ''INKEY$''. В этом случае функция ''INPUT$()'' неприменима, так как она ожидает нажатия клавиши, поэтому ввод с клавиатуры будет мешать нормальному изменению состояния счётчика времени.
-\\ {{.examples:0722-03.bas|}} \\ [[+tab|wmsxbpge>0722-03.bas]] <code>
-CLS:WIDTH 40:ON INTERVAL=50 GOSUB 230
-TIME=0:INTERVAL ON
-LOCATE 16,0,0:PRINT"Время:":LOCATE 24,0:PRINT H;":";M;":";S
-INTERVAL ON
-A$=INKEY$:IF A$=""THEN GOTO 110 ELSE PRINT A$;
-'Очистка заполненного экрана
-IF CSRLIN=23 AND POS(0)=37 THEN PRINT A$:CLS:LOCATE 0,1,0:GOTO 80
-GOTO 110
-'Подпрограмма обработки прерывания
-X=POS(0):Y=CSRLIN 'Запоминание координат курсора
-S=S+1
-IF S=60 THEN M=M+1:S=0
-IF M=60 THEN H=H-1:M=0
-IF H=24 THEN H=0:LOCATE 24,0,0:PRINT
-LOCATE 24,0,0:PRINT H;":";M;":";S:LOCATE X,Y,1:RETURN
-</code>
-==== VII.2.3. Переход по нажатию клавиш "CTRL"+"STOP" ====
-{{anchor:onstopgosub}}
-По оператору
-<WRAP group>
-<WRAP half column>
-<code>
-ON STOP GOSUB n
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''ON'', ''STOP'', ''GOSUB'' — служебные слова;
-  * n — номер программной строки;
-при нажатии на клавиши <key>CTRL+STOP</key> может осуществиться передача управления подпрограмме, расположенной со строки n.
-При этом действие <key>CTRL+STOP</key> должно быть подтверждено (ON), отменено (OFF) или приостановлено (STOP) соответственно операторами:
-<WRAP group>
-<WRAP half column>
-<code>
-STOP ON
-STOP OFF
-STOP STOP
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-{{anchor:e0723-01}} __//Пример//__.
-\\ {{.examples:0723-011.bas|}} \\ [[+tab|wmsxbpge>0723-011.bas]]
-<code>
-CLS:STOP ON:ON STOP GOSUB 80
-PRINT"Нажмите клавишу RESET !!!":GOTO 20
-PRINT"Вам уже ничего не поможет! Делайте, как подсказывают."
-RETURN
-</code>
-На закуску отметим интересный факт:
-\\ {{.examples:0723-012.bas|}} \\ [[+tab|wmsxbpge>0723-012.bas]]
-<code>
-STOP ON:ON STOP GOSUB 50:FOR I=1 TO 5000:NEXT:END
-POKE &HFBB0,1:RETURN '──▶
-</code>
-Нажатие клавиш <key>CTRL+STOP</key> игнорируется. "Доступ" к тексту программы становится возможным, если одновременно нажать пять клавиш: <key>CTRL+GRAPH+SHIFT+1+3</key> или четыре клавиши <key>CTRL+GRAPH+РУС+SHIFT</key> !
-Если же оператор
-<WRAP group>
-<WRAP half column>
-<code>
-POKE &HFBB0,1
-</code>
-</WRAP>
-<WRAP half column>
-</WRAP>
-</WRAP>
-заменить на оператор
-<WRAP group>
-<WRAP half column>
-<code>
-POKE &HFBB0,0
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-то Вас уже ничто не спасёт!
-Обратите внимание, что обрабатывается только одновременное нажатие двух клавиш: <key>CTRL+STOP</key>. Нажатие одной клавиши <key>STOP</key> просто "задержит" программу. Средствами языка [[msx:basic:]] нажатие клавиши <key>STOP</key> "перехватываться" не может. Однако её можно "отключить" во время выполнения функции ''INPUT$''.
-Обработка нажатия клавиш <key>CTRL+STOP</key> позволит избежать любого вмешательства в программу, выполняющуюся в Ваше отсутствие!
-==== VII.2.4. Переход по джойстику ====
-{{anchor:onstringgosub}}
-Поговорим теперь об операторе перехода к подпрограмме по нажатию кнопки джойстика:
-<WRAP group>
-<WRAP half column>
-<code>
-ON STRIG GOSUB n[,n1][,n2][,n3][,n4]
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''ON'', ''STRIG'', ''GOSUB'' — служебные слова;
-  * n — номер первой строки подпрограммы, которой передаётся управление при нажатии клавиши <key>пробел</key> (кнопка "джойстика" с номером 0);
-  * n1 — номер первой строки подпрограммы, которой передаётся управление при нажатии кнопки 1 джойстика 1;
-  * n2 — номер первой строки подпрограммы, которой передаётся управление при нажатии кнопки 1 джойстика 2;
-  * n3 — номер первой строки подпрограммы, которой передаётся управление при нажатии кнопки 2 джойстика 1;
-  * n4 — номер первой строки подпрограммы, которой передаётся управление при нажатии кнопки 2 джойстика 2.
-Для того, чтобы переход к подпрограмме по джойстику был возможен, его можно подтвердить, отменить или приостановить соответственно операторами
-<WRAP group>
-<WRAP half column>
-<code>
-STRIG(k)ON
-STRIG(k)OFF
-STRIG(k)STOP
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где k — арифметическое выражение, целая часть значения которого определяет номер кнопки джойстика, INT(k)∈[0,4] (k=0 соответствует клавише <key>пробел</key>).
-Оператор ''ON STRIG GOSUB'' приостанавливает нормальный ход выполнения программы и передаёт управление соответствующей подпрограмме, если нажата соответствующая кнопка джойстика. Переход к первому номеру строки из списка осуществляется в том случае, если нажата клавиша <key>пробел</key>, ко второму — если нажата кнопка 1 джойстика 1 и т.д.
-{{anchor:e0724-01}} __//Пример 1//__.
-\\ {{.examples:0724-01.bas|}} \\ [[+tab|wmsxbpge>0724-01.bas]]
-<code>
-STRIG(0) ON:STRIG(1) ON:STRIG(3) ON
-ON STRIG GOSUB 100,200,,300
-FOR I=1 TO 2000:NEXT:END
-PRINT "Нажата клавиша 'ПРОБЕЛ'"    :END
-PRINT "Нажата кнопка 1 джойстика 1":END
-PRINT "Нажата кнопка 2 джойстика 1":END
-</code>
-{{anchor:e0724-02}} __//Пример 2//__ [[bibliography#b76|[76]]]. Моделирование работы простого реле времени.
-\\ {{.examples:0724-02.bas|}} \\ [[+tab|wmsxbpge>0724-02.bas]]
-<code>
-ON STRIG GOSUB 270
-CLS:R=RND(-TIME):PRINT "Реле времени"
-PRINT "Когда раздастся звонок, нажмите клавишу 'пробел'"
-T=INT(RND(1)*500)+10
-ON INTERVAL=T GOSUB 200
-INTERVAL ON
-GOTO 160
-'Подпрограмма отсчета времени
-INTERVAL OFF:BEEP:TIME=0:STRIG(0)ON
-GOTO 230
-'Анализ прерывания от джойстика
-STRIG(0) OFF
-PRINT "Ваша реакция":PRINT"=";TIME/60;"секунд":END
-</code>
-Пока выполняется подпрограмма, всякий новый сигнал от кнопки джойстика откладывается до окончания текущей обработки.
-После возврата управления из подпрограммы интерпретатор определит наличие ожидающих сигналов, после чего будет выполнен очередной переход на подпрограмму обработки.
-Оператор
-<code>
-STRIG(k) ON
-</code>
-включает оператор ''[[#onstringgosub|ON STRIG GOSUB]]'' для соответствующего джойстика с номером k, после чего перед выполнением каждого оператора интерпретатор проверяет, нажата ли кнопка джойстика.
-Оператор
-<code>
-STRIG(k) STOP
-</code>
-приостанавливает разрешение обработки прерываний по нажатию кнопки джойстика, но сохраняет информацию о нажатии.
-{{anchor:e0724-03}} __//Пример 3//__. Использование "встроенного" джойстика !
-\\ {{.examples:0724-03.bas|}} \\ [[+tab|wmsxbpge>0724-03.bas]]
-<code>
-STRIG(0) ON:ON STRIG GOSUB 130:DEFINT A-Z
-DATA 3,7,15,15,31,31,31,31,15,0,49,1,1,0,0,0,192,240,248,252,180,182,182,182,252,2,244,240,236,216,112,32 : '"Череп"
-DATA 16,56,56,56,16,16,16,16         : 'Вид оружия
-COLOR 15,1,1:SCREEN 2,2:X=125:Y=96
-FOR T=1 TO 32:READA:B$=B$+CHR$(A):NEXT:SPRITE$(1)=B$:FOR I=1 TO 8:READ W:C$=C$+CHR$(W):NEXT:SPRITE$(2)=C$  'Формирование спрайтов
-GOSUB 70:GOTO 60  'Основная программа.
-D=STICK(0):IF D=1 OR D=2 OR D=8 THEN Y=Y-3  'Движение "черепа" при
-IF D=2 OR D=3 OR D=4 THEN X=X+3           'помощи клавиш управления
-IF D=4 OR D=5 OR D=6 THEN Y=Y+3                  'курсором
-IF D=6 OR D=7 OR D=8 THEN X=X-3
-IF Y<60 THEN Y=60 ELSE IF Y>145 THEN Y=145 ' Ограничение движения
-PUT SPRITE 1,(X,Y):RETURN'──▶
-A=X:B=Y:C=A+8  'Подпрограмма полета стрелы
-B=B-16:PUT SPRITE 2,(A,B),8,2:PUT SPRITE 3,(C,B),8,2:GOSUB 70
-E=STRIG(0):IF B<10 THEN IF E=0 THEN RETURN ELSE 130 ELSE 140
-</code>
-{{anchor:e0724-04}} __//Пример 4//__. А теперь — использование "настоящего" джойстика !
-\\ {{.examples:0724-04.bas|}} \\ [[+tab|wmsxbpge>0724-04.bas]]
-<code>
-STRIG(1) ON:ON STRIG GOSUB ,130:DEFINT A-Z
-DATA 3,7,15,15,31,31,31,31,15,0,49,1,1,0,0,0,192,240,248,252,180,182,182,182,252,2,244,240,236,216,112,32 : '"Череп"
-DATA 16,56,56,56,16,16,16,16         : 'Вид оружия
-COLOR 15,1,1:SCREEN 2,2:X=125:Y=96
-FOR T=1 TO 32:READA:B$=B$+CHR$(A):NEXT:SPRITE$(1)=B$:FOR I=1 TO 8:READ W:C$=C$+CHR$(W):NEXT:SPRITE$(2)=C$ 'Формирование спрайтов
-GOSUB 70:GOTO 60  'Основная программа.
-D=STICK(1):IF D=1 OR D=2 OR D=8 THEN Y=Y-3  'Движение "черепа" при
-IF D=2 OR D=3 OR D=4 THEN X=X+3           'помощи клавиш управления
-IF D=4 OR D=5 OR D=6 THEN Y=Y+3                  'курсором
-IF D=6 OR D=7 OR D=8 THEN X=X-3
-IF Y<60 THEN Y=60 ELSE IF Y>145 THEN Y=145 ' Ограничение движения
-PUT SPRITE 1,(X,Y):RETURN'──▶
-A=X:B=Y:C=A+8  'Подпрограмма полета стрелы
-B=B-16:PUT SPRITE 2,(A,B),8,2:PUT SPRITE 3,(C,B),8,2:GOSUB 70
-E=STRIG(1):IF B<10 THEN IF E=0 THEN RETURN ELSE 130 ELSE 140
-</code>
-==== VII.2.5. Особенности одновременной обработки событий различных типов ====
-Обрадуем Вас: в одной программе допустима обработка нескольких событий различных типов! Однако для того, чтобы структура программы оставалась ясной, необходимо учитывать следующее:
-  - <WRAP> Перед входом в подпрограмму обработки события всегда неявно выполняется оператор
-<WRAP group>
-<WRAP half column>
-<code>
-событие STOP
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-Если в процессе выполнения этой подпрограммы происходит это же событие, то подпрограмма по завершении будет сразу же //вызвана// снова. Чтобы избежать этого, помещайте в начале подпрограммы оператор
-<WRAP group>
-<WRAP half column>
-<code>
-событие STOP
-</code>
-</WRAP>
-<WRAP half column>
-</WRAP>
-</WRAP>
-или оператор
-<WRAP group>
-<WRAP half column>
-<code>
-событие OFF
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-</WRAP>
-  - <WRAP> Применение операторов
-<WRAP group>
-<WRAP half column>
-<code>
-событие OFF
-</code>
-</WRAP>
-<WRAP half column>
-</WRAP>
-</WRAP>
-и
-<WRAP group>
-<WRAP half column>
-<code>
-событие STOP
-</code>
-</WRAP>
-<WRAP half column>
-</WRAP>
-</WRAP>
-"очищает" от обработки прерываний определённые участки Вашей программы.
-</WRAP>
-  - <WRAP> Если событие остановлено (STOP), то факт возникновения этого события запоминается.
-<WRAP centeralign>Если же событие того же типа возникает ещё раз, то компьютер запоминает наступление только последнего события!</WRAP>
-</WRAP>
-  - <WRAP> Приоритет (в порядке убывания) при одновременном возникновении событий:
-  * обработка ошибок в программе пользователя
-  * ''[[07#onkeygosub|ON KEY GOSUB]]''
-  * ''[[07#onstopgosub|ON STOP GOSUB]]''
-  * ''[[05#onspritegosub|ON SPRITE GOSUB]]''
-  * ''[[07#onstringgosub|ON STRIG GOSUB]]''
-  * ''[[07#onintervalgosub|ON INTERVAL GOSUB]]''
-  * [[msx:network_basic|прерывания в локальной сети]]
-  * другие прерывания.
-</WRAP>
-В заключение запомните, что использование в Вашей программе полдюжины (≈шесть!) операторов перехода к подпрограммам по событию может мгновенно завести в тупик любого, пытающегося разобраться в ней программиста!
-{{anchor:e0725-01}} __//Пример//__ [[bibliography#b76|[76]]]. Предположим, что Вы управляете космическим кораблём, который может перемещаться вверх и вниз. Вы можете обстреливать появившийся вражеский корабль, который также стреляет по Вашему кораблю. Программа структурирована таким образом, что возможны лишь следующие столкновения спрайтов:
-  - вражеский корабль с Вашим снарядом;
-  - Ваш корабль с вражеским снарядом;
-  - вражеский снаряд с Вашим снарядом.
-При попадании в цель вражеского снаряда Ваш корабль гибнет, и игра прекращается; если же Вам удаётся одним из своих снарядов поразить противника — Ваш счёт увеличивается.
-Игры такого типа безжалостно обнажают серьёзную слабость языка [[basic:basic]]: это весьма //"медленный"// язык. Спрайты позволяют несколько увеличить скорость выполнения программы, но ясно, что без машинных кодов обойтись не удастся!
-\\ {{.examples:0725-01.bas|}} \\ [[+tab|wmsxbpge>0725-01.bas]]
-<code>
-DEFINT A-Z:OPEN"GRP:"AS#1:DIM M(100):DIM T(7)
-R=RND(-TIME)
-ON STRIG GOSUB 1000
-ON SPRITE GOSUB 1250
-ON INTERVAL=10 GOSUB 1110
-ON SPRITE GOSUB 1250
-COLOR 15,1,1:SCREEN 2,0,0
-'Начальная установка спрайтов
-FOR I=0 TO 3
-    S$=""
-    FOR J=1 TO 8:READ S:S$=S$+CHR$(S):NEXT J
-    SPRITE$(I)=S$
-NEXT I
-' И з о б р а ж е н и е  ф о н а
-DRAW"bm0,176":DRAW"s4a0"
-LINE(0,0)-(255,191),15,B:LINE(16,2)-(239,2),15
-LINE(16,2)-(239,189),15,B:LINE(16,16)-(239,16),15
-DRAW"bm136,5":COLOR 15
-T$="Счет:":GOSUB 920
-SC=0
-PRINT#1,USING"######";SC
-' З в е з д н о е  н е б о
-FOR I=1 TO 100
-    E=INT(RND(1)*224)+16:F=INT(RND(1)*160)+16:PSET(E,F)
-NEXT I
-'Случайное движение корабля противника
-FOR I=1 TO 100:M(I)=INT(RND(1)*130)+16:NEXT I
-CIRCLE(160,60),40,11:PAINT(160,60),11
-CIRCLE(175,45),10,9,,,13/10:PAINT(175,45),9
-'У с т а н о в к а  о т м е т о к
-DRAW"bm10,4"
-FOR I=10 TO 13:PUT SPRITE I,STEP(10,0),15,1:NEXT
-X=24:Y=96:LI=14
-F$="t180v12o2s11m100e16r16d#2"
-M$="t180v12o6l24bgbgab"
-W$="t180s1m3000o3c"
-MX=200:MY=96:IX=IX+1:T=-2:F=0:J=0
-STRIG(0)ON:SPRITE ON:INTERVAL ON
-IF IX>100THEN IX=0
-L=SGN(M(IX)-MY)
-'О с н о в н о й  ц и к л
-PUT SPRITE 0,(X,Y),15,1
-PUT SPRITE 1,(MX,MY),15,0
-IF F THEN GOSUB 1040
-IF J THEN GOSUB 1160
-IF STICK(0)=1 THEN Y=Y-2
-IF STICK(0)=5 THEN Y=Y+2
-IF Y<=16 THEN Y=16
-IF Y>=176 THEN Y=176
-MY=MY+L:IF MY=M(IX)THEN IX=IX+1:GOTO 730
-MX=MX-T:IF MX<40 OR MX>228 THEN T=-T
-GOTO 780
-'Подпрограмма вывода на экран
-FOR I=1 TO LEN(T$):PRINT#1,T$:DRAW"bm-2,0":NEXT
-RETURN
-' Свой  с н а р я д
-IF F THEN RETURN
-PLAY"l8s8m300o6c","l8s8m300o7c"
-A=Y:B=X+16:F=1
-RETURN
-B=B+7
-IF B>232 THEN PUT SPRITE 3,(0,209):F=0:RETURN
-PUT SPRITE 3,(B,A),15,2:RETURN
-RETURN
-' С н а р я д  противника
-IF J THEN RETURN
-PLAY"l16s14m800o2a"
-BX=MX-8:BY=MY+4
-PUT SPRITE 4,(BX,BY),2,3
-J=-1:STRIG(0)ON:RETURN
-BX=BX-5
-IF BX<16 THEN BY=209:J=0
-PUT SPRITE 4,(BX,BY),2,3
-RETURN
-'Подпрограмма обработки прерываний.
-'Определение спрайтов по отношению к их расположению
-SPRITE OFF:INTERVAL OFF
-IF A+2>MY AND A+5<=MY+7 AND B+8>=MX THEN SI=30:PLAY M$:GOTO 1300
-IF BY+2>Y AND BY-7<Y AND BX<34 THEN LI=LI-1:PLAY F$:GOTO 1300
-IF A+2>=BY AND A+5<=BY+7 AND BY+8>=36 THEN SI=10:PLAY W$:GOTO 1400
-SPRITE ON:INTERVAL ON:STRIG(0)ON:RETURN
-' В с п ы ш к а  на экране
-FOR I=0 TO 50
-COLOR,,RND(1)*16
-NEXT
-MY=96:MX=220
-' Удаление снаряда
-PUT SPRITE 3,(0,209):F=0:A=0:B=209
-PUT SPRITE 4,(0,209):J=0:BX=0:BY=209
-IX=IX+1
-' Увеличение счета
-DRAW"bm178,5":COLOR 1
-PRINT#1,USING"######";SC
-SC=SC+SI
-DRAW"bm178,5":COLOR 15
-PRINT#1,USING"######";SC
-COLOR,,1
-IF LI=9 THEN GOTO 1590
-PUT SPRITE LI,(0,209)
-SPRITE ON:INTERVAL ON
-RETURN 730
-' К о н е ц  и г р ы
-STRIG(0)OFF:INTERVAL OFF:SPRITE OFF
-PUT SPRITE 0,(0,209)
-PUT SPRITE 1,(0,209)
-PUT SPRITE 3,(0,209)
-PUT SPRITE 4,(0,209)
-LINE(24,60)-(232,76),15,BF
-DRAW"bm26,64":COLOR 1
-T$="     ИГРА ОКОНЧЕНА"
-GOSUB 920
-FOR I=1 TO 5000:NEXT
-S=STICK(0):IF S=0 THEN 1690
-IF S<>1 THEN 1720
-CLS:GOTO 310
-COLOR 15,4,4
-END
-' Д а н н ы е  для  с п р а й т о в
-DATA 0, 60, 66,255, 66,255, 66, 60
-DATA 0,224, 68,255,255, 68,224,  0
-DATA 0, 64, 34, 63, 34, 64,  0,  0
-DATA 0,  2, 68,252, 68,  2,  0,  0
-</code>
-{{anchor:initialization}}
-===== VII.3. Инициализация в языке MSX BASIC =====
-При включении компьютера он приводится автоматически в некоторое исходное состояние (происходит его //инициализация//); так, например, экран устанавливается в режим ''SCREEN 0'' и окрашивается в определённый цвет.
-В языке [[msx:basic:]] для компьютеров [[msx:msx_2]] существуют операторы для дополнительной инициализации. Действие этих операторов в своём роде уникально:
-<WRAP center round tip 60%>
-будучи //один// раз выполненными, они воздействуют на компьютер при //каждом// включении (установленные ими значения запоминаются в небольшой по объёму памяти, сохраняющей своё содержимое при отключённом основном питании)!
-</WRAP>
-  - {{anchor:setadjust}} <WRAP> Оператор
-<WRAP group>
-<WRAP half column>
-<code>
-SET ADJUST(X,Y)
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''SET'' ("установить"), ''ADJUST'' ("корректировка") — служебное слово;
-  * X и Y — арифметические выражения, целые части значений которых принадлежат отрезку [-7,8] (по умолчанию X=0,Y=0), регулирует положение используемой части экрана.
-</WRAP>
-  - {{anchor:setbeep}} <WRAP>Оператор
-<WRAP group>
-<WRAP half column>
-<code>
-SET BEEP [звук][,громкость]
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''SET'', ''BEEP'' — служебные слова;
-  * //звук// — арифметическое выражение, целая часть значения которого принадлежит отрезку [1,4]:
-    * 1 — громкий (как на [[msx:msx_1|MSX1]]);
-    * 2 — тихий;
-    * 3 — 2–тональный;
-    * 4 — 3–тональный;
-  * //громкость// — арифметическое выражение, целая часть которого принадлежит отрезку [1,4];
-устанавливает звук и громкость при выполнении оператора ''BEEP''.
-Любой из параметров может быть опущен (его значение совпадёт со значением, установленным ранее), причём, если опущен первый параметр, то запятая должна быть сохранена.
-</WRAP>
-  - {{anchor:settitle}} <WRAP> Оператор
-<WRAP group>
-<WRAP half column>
-<code>
-SET TITLE ["заголовок"][,цвет]
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''SET'', ''TITLE'' ("заголовок") — служебные слова;
-  * //заголовок// — значение строковой константы, длина которого не должна превышать 6 ;
-  * //цвет// — арифметическое выражение, целая часть значения которого принадлежит отрезку [1,4]:
-    * 1 — синий;
-    * 2 — зелёный;
-    * 3 — красный;
-    * 4 — оранжевый;
-позволяет переопределять заголовок, возникающий на экране при включении компьютера. Если //заголовок// имеет длину 6, то система будет "ожидать" нажатия любой клавиши после вывода заголовка на экран.
-</WRAP>
-  - {{anchor:setpassword}} <WRAP> Оператор
-<WRAP group>
-<WRAP half column>
-<code>
-SET PASSWORD "пароль"
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''SET'', ''PASSWORD'' — служебные слова;
-  * //пароль// — значение строковой константы, длина которого не должна превышать 255 ;
-позволяет ввести пароль, проверяемый всякий раз при включении компьютера.
-Если Вы забыли пароль, нажмите клавиши <key>STOP</key> и <key>GRAPH</key> при включении.
-</WRAP>
-  - {{anchor:setprompt}} <WRAP> Оператор
-<WRAP group>
-<WRAP half column>
-<code>
-SET PROMPT "подсказка"
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''SET'', ''PROMPT'' — служебные слова;
-  * подсказка — значение строковой константы, длина которого не более 6 символов;
-переопределяет подсказку Ok.
-Примечание. Можно сохранить результат действия только одного из операторов ''[[#settitle|SET TITLE]]'', ''[[#setpassword|SET PASSWORD]]'' или ''[[#setprompt|SET PROMPT]]'': использованный последним "замещает" предыдущий.
-Пользуясь этой возможностью, можно отменить пароль, вернуться к исходному заголовку, к подсказке "Ok". Достаточно ввести команду
-<code>
-SET PROMPT "Ok"
-</code>
-</WRAP>
-  - {{anchor:setscreen}} <WRAP> Оператор
-<WRAP group>
-<WRAP half column>
-<code>
-SET SCREEN
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где: ''SET'', ''SCREEN'' — служебные слова; позволяет //сохранить// значения параметров, относящихся к состоянию экрана, которые были ранее установлены операторами ''SCREEN'', ''COLOR'', ''KEY ON/OFF'', ''WIDTH''.
-Сохраняются только те параметры, которые могут вводиться в командном режиме:
-  * режим экрана (0 или 1);
-  * ширина экрана (от 1 до 80, если режим экрана =0; от 1 до 32, если режим экрана =1);
-  * цвет текста (от 0 до 15);
-  * цвет фона (от 0 до 15);
-  * цвет бордюра (от 0 до 15);
-  * высвечивание текста функциональных клавиш (ON или OFF);
-  * размер спрайтов (от 0 до 3);
-  * звук при нажатии клавиш (0 или 1);
-  * скорость передачи информации (1200 или 2400 бод);
-  * тип используемого принтера (MSX или другой тип);
-  * режим вывода (от 0 до 3).
-При включении компьютера неявно выполняются операторы ''SCREEN'', ''COLOR'', ''KEY ON/OFF'' и ''WIDTH'', параметры которых были сохранены.
-Этот оператор задаёт режим экрана, размер и масштаб увеличения спрайтов; управляет эхо-сигналом при нажатии клавиш, скоростью передачи данных на "CAS:" и объявляет тип подключённого принтера; определяет режим вывода на экран.
-<WRAP group 99%>
-<WRAP half column> \\ </WRAP>
-<WRAP half column><WRAP justify>
-Мартобря 86 числа.
-<WRAP rightalign>
-—//Н.В.Гоголь. Записки сумасшедшего//
-</WRAP></WRAP>
-</WRAP></WRAP>
-</WRAP>
-  - {{anchor:setdate}} <WRAP> Оператор
-<WRAP group>
-<WRAP half column>
-<code>
-SET DATE "ММ/ДД/ГГ",[A]
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''SET'', ''DATE'' ("дата") — служебные слова;
-  * ММ/ДД/ГГ — значение строковой константы, определяющей дату;
-  * A — необязательный параметр;
-определяет дату в формате:
-<WRAP group>
-<WRAP half column>
-<code>
-ММ/ДД/ГГ
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ММ — месяц (от 00 до 12);
-  * ДД — день (от 00 до 31);
-  * ГГ — две последние цифры года, диапазон: 1980–2079 ((Примечание редактора))
-    * 00–79 (2000–2079)
-    * 80–99 (1980–1999)
-Отметим, что наличие нулей обязательно!
-Например:
-<code>
-SET DATЕ "01/05/89"
-</code>
-Если присутствует параметр A, то дата будет рассматриваться как //дата// подачи сигнала ("будильник с календарём") (при этом игнорируются месяц и год).
-</WRAP>
-  - {{anchor:settime}} <WRAP> Оператор
-<WRAP group>
-<WRAP half column>
-<code>
-SET TIME "ЧЧ:ММ:СС",[A]
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''SET'', ''TIME'' — служебные слова;
-  * ЧЧ:ММ:СС — значение строковой константы, определяющей время;
-  * A — необязательный параметр;
-задаёт время в следующем формате:
-<WRAP group>
-<WRAP half column>
-<code>
-ЧЧ:ММ:СС
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ЧЧ — часы    (от 00 до 23);
-  * ММ — минуты  (от 00 до 59);
-  * СС — секунды (от 00 до 59).
-Отметим, что наличие нулей обязательно!
-Присутствие параметра A задаёт //время// подачи сигнала ("будильник"), причём секунды игнорируются. Учтите, что используя параметр А, всегда необходимо вводить вначале //время//, а лишь затем //дату// !
-</WRAP>
-<WRAP group 99%>
-<WRAP half column> \\ </WRAP>
-<WRAP half column><WRAP justify>
-Всё врут календари.
-<WRAP rightalign>
-—//А.С.Грибоедов. Горе от ума//
-</WRAP></WRAP>
-</WRAP></WRAP>
-Для получения даты и времени [[msx:basic:]] предоставляет также ещё два оператора:
-  * 1) <WRAP>{{anchor:getdate}}
-<WRAP group>
-<WRAP half column>
-<code>
-GET DATE Z$,[A]
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''GET'' ("получать"), ''DATE'' — служебные слова;
-  * Z$ — строковая переменная;
-  * A — необязательный параметр.
-Этот оператор присваивает значение даты переменной Z$ в формате ''ММ/ДД/ГГ''  .
-Команда ''GET DATE Z$,A'' возвращает значение, определяющее дату подачи сигнала.
-</WRAP>
-  * 2) <WRAP>{{anchor:gettime}}
-<WRAP group>
-<WRAP half column>
-<code>
-GET TIME Z$,[A]
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где:
-  * ''GET'', ''TIME'' — служебные слова;
-  * Z$ — строковая переменная;
-  * A — необязательный параметр.
-Этот оператор присваивает значение времени переменной Z$ в формате ''ЧЧ:ММ:СС''  .
-Команда ''GET TIME Z$,A'' возвращает значение, определяющее время подачи подачи сигнала.
-</WRAP>
-Отметим, что подача сигнала не является автоматической. Для её осуществления необходимо использовать подпрограмму, сравнивающую текущие дату и время с заданными параметром A, и в случае совпадения выдающую сигнал ''BEEP'' или определённое сообщение.
-__//Примеры//__:
-  * 1) <code>
-set date "01/17/89"
-Ok
-get date d$:?d$
-/17/89
-Ok
-</code>
-  * 2) <code>
-set date "01/17/89",a
-Ok
-get date d$,a:?d$
-/17/00
-Ok
-</code>
-  * 3) <code>
-set time "20:45:30" │ Начался отсчёт времени
-Ok
-get time t$:?t$
-:45:40 ◀──── 10 с прошло с момента выполнения предыдущей команды
-Ok
-</code>
-  * 4) <code>
-set time "20:45:30",a
-Ok
-get time t$,a:?t$
-:45:00
-Ok
-</code>
-  * 5) <code>
-set time "20:45:30":set time"20:50:30",a
-Ok
-get time t$:get time tm$,a:?t$,tm$
-:45:43      20:50:00
-Ok
-Более того:
-get time m$,a:?m$ ◀─── !!!
-:50:00
-Ok
-</code>
-  * <WRAP>{{anchor:e073-06}} 6) Ваш компьютер можно использовать и в бытовых целях. Если не хотите опаздывать на свидание, пользуйтесь возможностями компьютеров [[msx:msx_2]] !!!
-\\ {{.examples:073-06.bas|}} \\ [[+tab|wmsxbpge>073-06.bas]]
-<code>
-SET BEEP 3,4
-SET TIME "22:30:45":SET DATE "01/17/89"
-SET TIME "22:31:45",A:SET DATE "01/17/89",A
-GET TIME TM$,A:GET DATE DT$,A
-GET TIME T$:GET DATE D$
-IF MID$(T$,1,6)+"00"=TM$ AND "00"+MID$(D$,3,4)+"00"=DT$ THEN BEEP:GOTO 50 ELSE GOTO 50
-</code>
-</WRAP>
-  * <WRAP>{{anchor:e073-07}} 7) Если Вы хотите сохранить несколько версий программы, с которой Вы работаете, то Вас наверняка заинтересует следующий пример:
-\\ {{.examples:073-07.bas|}} \\ [[+tab|wmsxbpge>073-07.bas]]
-<code>
-GET TIME Y$
-SAVE"A"+LEFT$(Y$,2)+MID$(Y$,4,2)+RIGHT$(Y$,2)
-'Основная программа
-</code>
-Запись программы в 14 ч 53 мин 33 с приведёт к созданию файла с именем A145333. Записанные ранее версии Вашей программы остаются в неприкосновенности!
-</WRAP>
-  * <WRAP> {{anchor:dt-bas}} Настройка [[msx:rtc:rtc|часов реального времени]].((Примечание редактора: добавлено 2019-10-18))
-\\ {{:msx:basic_programming_guide:.examples:dt.bas|}} \\ [[+tab|wmsxbpge>dt.bas]]
-</WRAP>
-Также средством инициализации является файл [[msx:basic_programming_guide:09#autoexecbas|AUTOEXEC.BAS]].
-{{anchor:call}}
-FIXME
-Оператор ''CALL'' служит для вызова дополнительных инструкций [[bibliography#b92|[92]]]. Он имеет следующий синтаксис:
-<WRAP group>
-<WRAP half column>
-<code>
-CALL <инструкция> [(<параметр>[,<параметр>])]
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где
-  * ''CALL'' ("выхов")
-  * инструкция
-  * параметр — один или несколько паратетров
-Слово ''CALL'' можно заменить символом "_" (подчёркивание) после которого не требуется пробелов.
-Используется в следующих случаях:
-  * [[09#ramdisk|Использование RAM–диска]]
-  * [[msx:disk_basic]]
-  * [[msx:network_basic]]
-  * [[msx:music|]]
-===== VII.4. Работа с принтером =====
-<WRAP center round info 70%>
-Примеры программ этой главы были проверенны только в эмуляторе [[openmsx:openmsx|]] ((Примечание редактора)).
-</WRAP>
-Вначале напомним известные Вам факты.
-С помощью оператора ''PRINT'' можно "печатать" на //экране// дисплея текст в любом месте экрана (ему"активно помогает" в этом оператор ''LOCATE'').
-При печати на //бумаге// оператора, аналогичного ''LOCATE'', нет. Более того, при печати нельзя возвращаться в предыдущие строки (прогон бумаги осуществляется только //вперёд//). Возврат в начало текущей строки из
-её конца //возможен//.
-Установка печатающей головки в заданное место строки производится с помощью так называемого //табулятора// — команды ''TAB'' (его использование в "обычном" операторе ''PRINT'', конечно же, Вам известно).
-{{anchor:e074-01}} __//Пример 1//__.
-\\ {{.examples:074-01.bas|}}
-<code>
-FOR I=1 TO 50
-    LPRINT TAB(25-20*SIN(I/3));"Принтер!"
-NEXT I
-</code>
-Арифметическое выражение, задающее номер позиции печатающей головки, указывается после служебного слова ''TAB'' в скобках и значение его целой части не должно превосходить 255.
-Использование в команде ''LPRINT'' специальных управляющих кодов и функции ''CHR$'' позволяет управлять принтером, например, менять вид шрифта, его плотность и высоту.
-И наконец,
-дюйм ≈ 2,54 см
-==== VII.4.1. Команды для управления типом печати ====
-Эти команды используются для управления типом шрифта, шагом печати и "создания" специальных эффектов.
-=== VII.4.1.1. Управление типом шрифта ===
-Взгляните на следующую таблицу:
-^  Функция  ^  Управляющий код  ^
-|  Установка стандартных символов  |<code>CHR$(27);"5"</code>|
-|  Установка наклонной печати ("италик")  |<code>CHR$(27);"4"</code>|
-|  Печать графического символа MSX  |<code>CHR$(1);CHR$(Код символа)</code>|
-По умолчанию (при включении питания) осуществляется печать //стандартными// символами. Отметим, что первые два кода //отменяют// друг друга.
-{{anchor:e074-02}} __//Пример 2//__.
-\\ {{.examples:074-02.bas|}}
-<code>
-LPRINT CHR$(27);"4":LPRINT "Данная строка напечатана италиком!"
-LPRINT CHR$(27);"5":LPRINT "Эта строка напечатана стандартным шрифтом"
-</code>
-Строка 10 включает тип шрифта //"италик"// с помощью кода
-<WRAP group>
-<WRAP half column>
-<code>
-CHR$(27);"4"
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-а строка 20 выключает его кодом
-<WRAP group>
-<WRAP half column>
-<code>
-CHR$(27);"5"
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-<code>
-^4Буквы текста, напечатанного "италиком", наклонены вправо^5
-^4"Италик" может использоваться для выделения некоторых букв и слов^5
-</code>
-Заметим, что //каждый// тип шрифта может комбинироваться с любым из трёх шагов шрифта, а также с расширенной и выделенной печатью, о которых речь пойдёт ниже.
-=== VII.4.1.2. Управление шагом шрифта ===
-Для печати используются три плотности шага:
-  * //цицеро (нормальная)//,
-  * //элите//,
-  * //уплотнённая//.
-Каждая из них может быть изменена с помощью команды расширения режима печати, при этом шаг увеличивается в два раза (см. [[07#VII.4.1.3. Специальные режимы печати|раздел VII.4.1.3.]]).
-Предлагаем Вашему вниманию таблицу:
-^  Плотность шага  ^  Знаки/дюйм  ^  Управляющий код  ^
-|  //Цицеро//  |  10  |<code>CHR$(27);"P"</code>|
-|  //Цицеро//  |  10  |<code>CHR$(27);"N"</code>|
-|  //Элите//  |  12  |<code>CHR$(27);"E"</code>|
-|  //Уплотнённая//  |  17  |<code>CHR$(27);"Q"</code>|
-Поговорим о шаге //"цицеро"//. Команда, его устанавливающая, определяет максимальное число печатаемых колонок до 80 в печатающем устройстве десятидюймового типа (например, "Gemini–10XR") и до 136 — в печатающем устройстве пятнадцати–дюймового типа. При этом плотность шага устанавливается равной 10 знакам на дюйм в режиме печати текста и 160 точкам на дюйм в режиме //растровой// (точечной) графики (о ней мы расскажем ниже).
-Немного об //"элите"//. Выбор этого шага устанавливает максимальное число печатаемых колонок до 96 в печатающем устройстве десятидюймового типа и до 163 в печатающем устройстве пятнадцати–дюймового типа. В режиме растровой печати плотность шага устанавливается равной 90 точкам на дюйм.
-Установка //уплотнённой// печати приводит к тому,что вся последующая печать выполняется с плотностью 17 знакам на дюйм. Данная команда также устанавливает максимальное число печатаемых колонок на 136 в печатающем устройстве десятидюймового типа и на 233 в печатающем устройстве пятнадцати–дюймового типа.
-{{anchor:e074-03}} __//Пример 3//__.
-\\ {{.examples:074-03.bas|}}
-<code>
-LPRINT CHR$(27);"N":LPRINT "WHAT IS YOUR NAME?"
-LPRINT CHR$(27);"E":LPRINT "YOUR PRINTER PRINTS IN ELITE PITCH"
-LPRINT CHR$(27);"Q":LPRINT "AS WELL AS CONDENSED, THE NARROOWEST PITCH"
-LPRINT CHR$(27);"Р"
-LPRINT "PICA PITCH PRINTING IS PRINTER'S THIRD PITCH"
-run
-^N
-  WHAT IS YOUR NAME?
-^E
-  YOUR PRINTER PRINTS IN ELITE PITCH
-^Q
-  AS WELL AS CONDENSED, THE NARROOWEST PITCH
-^P
-  PICA PITCH PRINTING IS PRINTER'S THIRD PITCH
-^E
-  Ok
-</code>
-{{anchor:e074-04}} __//Пример 4//__.
-\\ {{.examples:074-04.bas|}}
-<code>
-LPRINT CHR$(27);"P":GOSUB 100
-LPRINT CHR$(27);"E":GOSUB 100
-LPRINT CHR$(27);"Q":GOSUB 100
-LPRINT CHR$(27);"N":GOSUB 100:END
-LPRINT "Я Вас любил...":RETURN
-run
-^P
-  Я Вас любил...
-^E
-  Я Вас любил...
-^Q
-  Я Вас любил...
-^N
-  Я Вас любил...
-^E
-  Ok
-</code>
-Различные типы плотности можно комбинировать с "италиком" и стандартным шрифтом.
-=== VII.4.1.3. Специальные режимы печати ===
-<WRAP group 99%>
-<WRAP half column> \\ </WRAP>
-<WRAP half column><WRAP justify>
-"M∗∗∗ сказал молодому человеку, который не замечал,что его любит женщина:"Вы ещё так юны, что, видно, разбираете  только крупный шрифт".
-<WRAP rightalign>
-—//Себастьян Шамфор. Характеры и анекдоты//
-</WRAP></WRAP>
-</WRAP></WRAP>
-Коды для //расширенной// печати
-^  Функция  ^  Управляющий код  ^
-|Установка режима расширенной печати|<code>CHR$(14)</code>|
-|Отмена режима расширенной печати|<code>CHR$(15)</code>|
-Режим расширенной печати можно комбинировать с различной плотностью шага. При этом каждый символ будет напечатан  в два раза шире, чем это предусмотрено выбором плотности шага.
-{{anchor:e074-05}} __//Пример 5//__.
-\\ {{.examples:074-05.bas|}}
-<code>
-LPRINT CHR$(14);"EXPANDED PICA PITCH"
-LPRINT CHR$(27);"E":LPRINT "EXPANDED ELITE PITCH"
-LPRINT CHR$(27);"Q":LPRINT "EXPANDED CONDENSED PITCH"
-LPRINT CHR$(27);"P";CHR$(15)
-LPRINT "NOW WE ARE BACK TO UNEXPANDED PICA PRINTING"
-run
-^N
-  EXPANDED PICA PITCH
-^E
-  EXPANDED ELITE PITCH
-^Q
-  EXPANDED CONDENSED PITCH
-^P
-  NOW WE ARE BACK TO UNEXPANDED PICA PRINTING
-^E
-  Ok
-</code>
-Коды //выделения// печати
-^  Функция  ^  Управляющий код  ^
-|Выбор печати двойным ударом|<code>CHR$(27);"G"</code>|
-|Отмена печати двойным ударом|<code>CHR$(27);"H"</code>|
-|Выбор выделенной печати|<code>CHR$(27);"!"</code>|
-|Отмена выделенной печати|<code>CHR$(27);CHR$(34)</code>|
-Выделить текст можно //двумя// способами:
-  - используя двойную печать со смещением вниз (печать двойным ударом);
-  - используя двойную печать со смещением вправо (выделенная печать).
-В обоих этих случаях символы пропечатываются //дважды//.
-**Выделенную печать рекомендуется использовать с шагом "цицеро". Для другой плотности печати используйте печать //двойным// ударом.**
-Заметим, что отмена печати двойным ударом возвращает печатающее устройство к предыдущему стилю печатания, а отмена выделенной печати возвращает печатающее устройство к стандартной печати.
-{{anchor:e074-06}}__//Пример 6//__.
-\\ {{.examples:074-06.bas|}}
-<code>
-LPRINT CHR$(14):GOSUB 100      'Расширенная печать включена
-LPRINT CHR$(27);"4":GOSUB 100  '"Италик" включен
-LPRINT CHR$(15):GOSUB 100      'Расширенная печать выключена
-LPRINT CHR$(27);"5":GOSUB 100:END
-LPRINT CHR$(27);"G":GOSUB 1000:LPRINT CHR$(27);"H"
-LPRINT CHR$(27);"!":GOSUB 1000:LPRINT CHR$(27);CHR$(34)
-END
-LPRINT "БУДЬТЕ СЧАСТЛИВЫ !!! Живите долго!":RETURN
-run
-^N
-  БУДЬТЕ СЧАСТЛИВЫ !!! Живите долго!
-^4
-   БУДЬТЕ СЧАСТЛИВЫ !!! Живите долго!
-   БУДЬТЕ СЧАСТЛИВЫ !!! Живите долго!
-^5
-   БУДЬТЕ СЧАСТЛИВЫ !!! Живите долго!
-^G
-   БУДЬТЕ СЧАСТЛИВЫ !!! Живите долго!
-^H^!
-   БУДЬТЕ СЧАСТЛИВЫ !!! Живите долго!
-^"^E   Ok
-</code>
-{{anchor:e074-07}}//Пример 7//.
-\\ {{.examples:074-07.bas|}}
-<code>
-LPRINT CHR$(27);"Q";"Миша";CHR$(27);"P";" + ";CHR$(27);"4";"Ирочка ";CHR$(27);"5";"= ";CHR$(27);"!";"ЛЮБОВЬ !!!";CHR$(15);CHR$(27);"Q";" Караул";CHR$(27);CHR$(34)
-run
-^QМиша^P + ^4Ирочка ^5= ^!ЛЮБОВЬ !!!^Q Караул^"^c1^E
-Ok
-</code>
-Коды для //однонаправленной// печати
-^  Функция  ^  Управляющий код  ^
-|Выбор однонаправленной печати|<code>CHR$(27);">"</code>|
-|Отмена однонаправленной печати|<code>CHR$(27);"]"</code>|
-Однонаправленная печать используется в таблицах и схемах, так как обеспечивает //строго// вертикальное расположение символов и выравнивает печать вертикальных столбцов. После включения принтера устанавливается режим двунаправленной печати, которая несколько быстрее однонаправленной.
-{{anchor:e074-08}}__//Пример 8//__.
-\\ {{.examples:074-08.bas|}}
-<code>
-FOR I=1 TO 10:LPRINT "++++++++++++++++++++":NEXT I
-LPRINT:LPRINT:LPRINT CHR$(27);">"
-FOR I=1 TO 10:LPRINT "++++++++++++++++++++":NEXT I
-</code>
-Коды для //подчёркивания//
-^  Функция  ^  Управляющий код  ^
-|Выбор подчёркивания|<code>CHR$(27);"X"</code>|
-|Отмена подчёркивания|<code>CHR$(27);"Y"</code>|
-{{anchor:e074-09}} __//Пример 9//__.
-\\ {{.examples:074-09.bas|}}
-<code>
-LPRINT CHR$(27);"Q"               'Уплотненный шаг включен
-LPRINT "Текст ";
-LPRINT CHR$(14);"можно ";CHR$(15);"выделить";
-LPRINT CHR$(27);"X";" ПОДЧЕРКИВАНИЕМ";CHR$(27);"Y":END
-run
-^QТекст можно выделить^X ПОДЧЕРКИВАНИЕМ^Y^c1^E
- Ok
-</code>
-Использование кода
-  CHR$(27);"X"
-приводит к автоматическому подчёркиванию //всех// последующих печатаемых символов (в том числе и пробелов).
-Отмена подчёркивания осуществляется командой:
-  LPRINT CHR$(27);"Y"
-Коды печати //верхнего и нижнего// индексов
-^  Функция  ^  Управляющий код  ^
-|Выбор верхнего индекса|<code>CHR$(27);"s1"</code>|
-|Выбор нижнего индекса|<code>CHR$(27);"s2"</code>|
-|Отмена верхнего и нижнего индексов|<code>CHR$(27);"s0"</code>|
-Верхние и нижние индексы по высоте составляет половину //строчных// символов. //Верхние// индексы печатаются наравне с верхней частью обычного символа, а //нижние// индексы — наравне с нижней частью обычного символа. Индексы часто применяются для ссылок, примечаний и в математических формулах.
-Пока печатающее устройство находится в режиме печати верхних или нижних индексов, обычная двунаправленная печать  отменяется и заменяется  однонаправленной. Более того, при печати верхних и нижних индексов устанавливается режим //двойного удара//.
-Выбор верхних и нижних индексов можно совмещать с выбором шрифта "италик", однако индексы нельзя использовать с подчёркиванием и расширенной печатью.
-Заметим, что команда //отмены// верхних и нижних индексов отключает и направленную печать, и двойной удар.
-{{anchor:e074-10}}__//Пример 10//__.
-\\ {{.examples:074-10.bas|}}
-<code>
-LPRINT "очень";CHR$(27);"s1";"полезная";CHR$(27);"s0";"ВОЗМОЖНОСТЬ";CHR$(27);"s2";"ПРИНТЕРА";CHR$(27);"s0"
-run
-очень^s1 полезная ^s0ВОЗМОЖНОСТЬ^s2 ПРИНТЕРА^s0
-Ok
-</code>
-==== VII.4.2. Управление вертикальной позицией печатающей головки ====
-  - <WRAP> //Изменение высоты строки//
-^  Функция  ^  Управляющий код  ^
-|Установка высоты строки на n/144 дюйма|<code>CHR$(27);"Т";"n1";"n2"</code>|
-|Установка высоты строки на 1/6 дюйма|<code>CHR$(27);"A"</code>|
-|Установка высоты строки на 1/8 дюйма|<code>CHR$(27);"В"</code>(переключатель 1–2 выключен)|
-|Установка высоты строки на 1/9 дюйма|<code>CHR$(27);"В"</code>(переключатель 1–2 включён)|
-При включении печатающего устройства  плотность  строк устанавливается равной 6 строкам в дюйме. Однако для данного печатающего устройства можно установить высоту строки на любое требуемое значение.
-Это делается командой:
-<WRAP group>
-<WRAP half column>
-<code>
-LPRINT CHR$(27);"T";"n1";"n2"
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-где n1 и n2 — цифры от 0 до 9, определяющие высоту строки в n/144 дюйма,величины n, n1 и n2 связаны при помощи формулы:
-<WRAP group>
-<WRAP half column>
-<code>
-n=10·n1+n2
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-А теперь посмотрите, как легко и просто изменяется плотность строк.
-{{anchor:e074-11}} __//Пример 11//__.
-\\ {{.examples:074-11.bas|}}
-<code>
-FOR I=48 TO 50
-   FOR J=48 TO 57
-      LPRINT CHR$(27);"T";CHR$(I);CHR$(J)
-      LPRINT "VARIABLE LINE SPACING WITH PRINTER"
-   NEXT J
-NEXT I
-LPRINT CHR$(27);"A"
-</code>
-Приведём программу, "настраивающую" принтер на "очень мелкую" печать (она пригодится Вам для изготовления шпаргалок!)
-{{anchor:e074-12}} __//Пример 12//__.
-\\ {{.examples:074-12.bas|}}
-<code>
-LPRINT CHR$(27);"T07";CHR$(27);"s1";CHR$(27);"Q"
-</code>
-Имеется и другой управляющий код для задания высоты строки.
-{{anchor:e074-13}}__//Пример 13//__.
-\\ {{.examples:074-13.bas|}}
-<code>
-FOR I=1 TO 20
-    LPRINT CHR$(27);"B":LPRINT "LINE NUMBER";I
-NEXT I
-</code>
-В зависимости от положения двухпозиционного переключателя 1–2 (включён или выключен), который находится внутри принтера, задаются две различные высоты. Попробуйте!
-</WRAP>
-  - <WRAP> //Управление переводом строк//
-^  Функция  ^  Управляющий код  ^
-|Возврат печатающей головки на левый край  |<code>CHR$(13)</code>|
-|Перемещение бумаги вперёд на одну строку  |<code>CHR$(10)</code>|
-|Подача бумаги вперёд на  n  строк|<code>CHR$(31);CHR$(n)</code>|
-|Подача бумаги на n строк без возврата каретки|<code>CHR$(27);"a";CHR$(n)</code>|
-Эти коды применяются для перемещения бумаги относительно печатающей головки.
-Возврат печатающей головки в исходную позицию (возврат каретки) производится командой
-<code>
-LPRINT CHR$(13)
-</code>
-При этом бумага не продвигается.
-"Получив" код ''CHR$(10)'', печатающее устройство продвигает бумагу //вперёд// на одну строку.
-Для перемещения печатающей головки на левый край //следующей// строки примените команду:
-<code>
-LPRINT CHR$(13);CHR$(10)
-</code>
-{{anchor:e074-14}} __//Пример 14//__. Сравните результаты работы командных строк:
-\\ {{.examples:074-14.bas|}}
-<code>
-LPRINT "PROGRAM";CHR$(10);"BASIC"
-LPRINT "PROGRAM";CHR$(13);"BASIC"
-</code>
-Команда
-<WRAP group>
-<WRAP half column>
-<code>
-LPRINT CHR$(31);CHR$(n)
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где n — целое число (1≤n≤15), позволяет продвинуть бумагу //вперёд// на n строк.
-Команда
-<WRAP group>
-<WRAP half column>
-<code>
-LPRINT CHR$(27);"a";CHR$(n)
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где n — целое число (1≤n≤255), перемещает бумагу на n строк (используя высоту текущей строки) без перемещения печатающей головки. Однако это не изменяет текущее значение вертикального положения табуляции. Отметим, что данную команду можно записать и в таком виде:
-<WRAP group>
-<WRAP half column>
-<code>
-LPRINT CHR$(27);CHR$(97);CHR$(n)
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где 97 — код символа "a".
-{{anchor:e074-15}} __//Пример 15//__.
-\\ {{.examples:074-15.bas|}}
-<code>
-LPRINT "LINE NUMBER 1.":LPRINT "LINE NUMBER 2.";
-LPRINT CHR$(27);"a";CHR$(3);
-LPRINT "LINE NUMBER 3.":LPRINT "LINE NUMBER 4."
-</code>
-Программная строка 30 позволяет переместить страницу вверх на 3 строки, печатающая головка при этом не перемещается. Следовательно, строка 40 печатает сообщение начиная с колонки, в которой печатающая головка осталась в конце строки 20.
-</WRAP>
-  - <WRAP> //Управление страницами//
-^  Функция  ^  Управляющий код  ^
-|Перемещение бумаги на верхнюю часть следующей страницы|  ''CHR$(12)''  |
-|Перемещение бумаги в позицию следующей\\ вертикальной метки табуляции. \\ Позиции вертикальной табуляции устанавливаются на \\ строках с номерами, кратными 6 (6, 12, 18, … 60)|  ''CHR$(11)''  |
-Команда
-<code>
-LPRINT CHR$(11)
-</code>
-приводит к перемещению печатающей головки //вниз// в позицию следующей //вертикальной// метки табуляции или на верхнюю часть следующей страницы в порядке первоочерёдности нахождения.
-{{anchor:e074-16}} __//Пример 16//__. Перед тем как запустить программу, следует выключить печатающее устройство и отрегулировать бумагу таким образом, чтобы лист был на одном уровне с верхом направляющей ленты на печатающей головке, а затем включить печатающее устройство.
-\\ {{.examples:074-16.bas|}}
-<code>
-LPRINT "LINE NUMBER 1.":LPRINT "LINE NUMBER 2.";
-LPRINT CHR$(12);
-LPRINT "LINE NUMBER 3.":LPRINT "LINE NUMBER 4."
-LPRINT CHR$(11);
-LPRINT "LINE NUMBER 5.":LPRINT "LINE NUMBER 6."
-</code>
-</WRAP>
-==== VII.4.3. Управление горизонтальной позицией печатающей головки ====
-Как Вам известно, любой текст имеет правую и левую границу, называемые //полями//.
-  - <WRAP> Поговорим об //установке полей//
-^  Функция  ^  Управляющий код  ^
-|Установка левого поля в колонке n|<code>CHR$(27);"L";"n1n2n3"</code>|
-|Установка правого поля в колонке n|<code>CHR$(27);"/";"n1n2n3"</code>|
-Команда
-  LPRINT CHR$(27);"L";"n1n2n3"
-устанавливает позицию //начала// строки, определённую трёхзначным числом. Например, при выполнении команды
-  LPRINT CHR$(27);"L";"126"
-//левая// граница будет сдвинута на 126 символов.
-Команда
-<code>
-LPRINT CHR$(27);"/";"n1n2n3"
-</code>
-устанавливает позицию //конца// строки, определённую трёхзначным числом.
-Например, при выполнении команды
-<code>
-LPRINT CHR$(27);"/";"065"
-</code>
-//правая// граница будет установлена на 65 символов.
-Для печатающего устройства //десятидюймового// типа (например, "[[msx:star_gemini-10xr:star_gemini-10xr|Gemini–10XR]]") максимальная печатная позиция равна:
-  - для шага //"цицеро"//       —  80,
-  - для шага //"элите"//        —  96, а
-  - для //уплотнённого// шага   — 136.
-Для печатающего устройства  //пятнадцати–дюймового// типа максимальная печатная позиция равна:
-  - для шага //"цицеро"//       — 136,
-  - для шага //"элите"//        — 163 и
-  - для //уплотняемого// шага   — 233.
-{{anchor:e074-17}} __//Пример 17//__. Установка полей.
-\\ {{.examples:074-17.bas|}}
-<code>
-GOSUB 40
-LPRINT CHR$(27);"L";"010";:LPRINT CHR$(27);"/";"070"
-GOSUB 40:END
-FOR I=1 TO 80:LPRINT "=";:NEXT I:RETURN
-</code>
-Подпрограмма осуществляет печать 80 символов «=» в одной строке. При первом вызове подпрограммы все символы «=» печатаются в одной строке. Затем строка 20 устанавливает левое и правое поля. Теперь, после обращения к
-подпрограмме в строке 30, на одной строке уместятся лишь 60 символов, остальные будут напечатаны со следующей строки.
-Для того, чтобы установить поля в исходное положение //по умолчанию//, имеются две возможности:
-  - Вы можете выключить и затем снова включить печатающее устройство;
-  - установить поля равными значениям по умолчанию. Это означает, что Вы должны установить левое поле на 0–й и правое поле на 80–й позиции на печатающем устройстве //десяти–дюймового// типа или 136 — на печатающем устройстве //пятнадцати–дюймового// типа.
-<WRAP centeralign>Если изменять шаг печати после установки полей, поля не будут изменяться (количество символов в строке останется тем же)!</WRAP>
-</WRAP>
-  - <WRAP> //Установка горизонтальных меток//
-^  Функция  ^  Управляющий код  ^
-|  Перемещение на следующую \\ горизонтальную метку  |  <code>CHR$(9)</code>  |
-|  Установка положений \\ горизонтальных меток  |  <code>CHR$(27);"(";"n11n12n13,...,nn1nn2nn3."</code>  |
-|  Стирание установленных горизонтальных меток \\ (селективное стирание меток)|  <code>CHR$(27);")";"n11n12n13, …,nn1nn2nn3."</code>  |
-|  Стирание всех горизонтальных \\ меток  |  <code>CHR$(27);"2"</code>  |
-Версия [[msx:basic:]] предоставляет возможность использования двух режимов работы с горизонтальными метками. Дело в том, что у компьютера и у принтера //разный// набор меток.
-У компьютера метки располагаются строго через //восемь// позиций. У принтера же сразу после его включения горизонтальные метки автоматически устанавливаются через //десять// печатных позиций. Кроме того, набор
-меток печатающего устройства можно изменять программным путём.
-Информация о том, из какого набора будут взяты горизонтальные метки табуляции, хранится в ячейке памяти с адресом &HF418. Если содержимое этой ячейки равно нулю, то принтер будет работать с метками из набора компьютера. Если же содержимое ячейки памяти отлично от нуля,то печатающее устройство будет работать с горизонтальными метками из своего набора.
-Для перемещения печатающей головки в позицию следующей горизонтальной метки табуляции применяется команда
-<code>
-LPRINT CHR$(9);
-</code>
-{{anchor:e074-18}} __//Пример 18//__. Демонстрация использования горизонтальных меток.
-  * 1) \\ {{.examples:074-181.bas|}} <code>
-LPRINT "ONE";CHR$(9);"TWO";CHR$(9);"THREE";CHR$(9);"FOUR"
-run
-  ONE     TWO     THREE   FOUR
-          ▲       ▲       ▲
-          │       │       │
-–я позиция  16–я позиция 24–я позиция
-Ok
-</code>
-  * 2) \\ {{.examples:074-182.bas|}} <code>
-POKE &HF418,1
-LPRINT "ONE";CHR$(9);"TWO";CHR$(9);"THREE";CHR$(9);"FOUR"
-run
-ONE      TWO       THREE     FOUR
-         ▲         ▲         ▲
-         │         │         │
-–я позиция 20–я позиция 30–я позиция
-Ok
-</code>
-  * <WRAP> 3) Установка позиции горизонтальной табуляции (установка положений меток) осуществляется следующей командой:
-<code>
-LPRINT CHR$(27);"(";"n11n12n13,n21n22n23,...nn1nn2nn3."
-</code>
-При этом аннулируются все позиции текущей горизонтальной табуляции и устанавливает новые, определённые трёхзначными числами.
-\\ {{.examples:074-183.bas|}} <code>
-POKE &HF418,1
-LPRINT CHR$(27);"(";"008,016,024."
-LPRINT "ONE";CHR$(9);"TWO";CHR$(9);"THREE";CHR$(9);"FOUR"
-run
-  ONE    TWO     THREE   FOUR
-         ▲       ▲       ▲
-         │       │       │
-–я позиция 16–я позиция 24–я позиция
-Ok
-</code>
-Метки будут установлены в колонках 8, 16 и 24. Запятые в 10–й строке используются для разделения цепочки меток, точка — для окончания определения.
-</WRAP>
-  * <WRAP> 4) Для того, чтобы стереть часть горизонтальных меток из набора печатающего устройства, существует следующая команда:
-<code>
-LPRINT CHR$(27);")";"n11n12n13,n21n22n23,...nn1nn2nn3."
-</code>
-По коду селективного стирания табуляции стираются позиции табуляции, определённой трёхзначными номерами.
-\\ {{.examples:074-184.bas|}} <code>
-POKE &HF418,1
-LPRINT CHR$(27);"(";"008,016,024."
-LPRINT "ONE";CHR$(9);"TWO";CHR$(9);"THREE";CHR$(9);"FOUR"
-LPRINT CHR$(27);")";"016."
-LPRINT "ONE";CHR$(9);"TWO";CHR$(9);"FOUR"
-run
-ONE    TWO     THREE   FOUR
-ONE    TWO             FOUR
-Ok
-</code>
-В настоящей программе метки стираются в колонке 16.
-Если командой <code>LPRINT CHR$(27);"2"</code> Вы уберёте все метки, то при использовании меток из набора принтера команда ''LPRINT CHR$(9)'' будет игнорироваться.
-</WRAP>
-</WRAP>
-  - <WRAP> //Прочие команды для управления горизонтальной позицией печатающей головки//
-|  Перемещение на n пробелов  |  <code>CHR$(27);"b";CHR$(n)</code>  |
-|  Перемещение на n точек  |  <code>CHR$(27);"F";"n1n2n3n4"</code>  |
-|  Смещение на один символ влево  |  <code>CHR$(8)</code>  |
-Команда
-<WRAP group>
-<WRAP half column>
-<code>
-LPRINT CHR$(27);"b";CHR$(n)
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где n — целое число из отрезка [1,255], позволяет пропустить n печатных позиций. Эта команда не изменяет текущего значения позиции горизонтальной табуляции.
-Команда
-<WRAP group>
-<WRAP half column>
-<code>
-LPRINT CHR$(27);"F";"n1n2n3n4"
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где n1, n2, n3, n4 — цифры от 0 до 9, перемещает печатающую головку на n точечных позиций //вправо//. При этом величина n должна принадлежать отрезку [0,479] и вычисляется по следующей формуле:
-<code>
-n = 1000·n1+100·n2+10·n3+n4
-</code>
-Команда
-<code>
-LPRINT CHR$(8)
-</code>
-смещает печатающую головку на одну колонку //влево//. Если печатная головка находится в исходной позиции, то команда игнорируется. Эта команда используется для печати дополнительных знаков.
-</WRAP>
-==== VII.4.4. Команды управления графикой ====
-Принтер можно использовать в качестве //графопостроителя//, т.е. устройства, которое позволяет вывести на печать рисунки, графики и т.д. Дело в том, что принтер печатает восемью штырьками печатающей головки. Каждый штырёк печатает //одну// точку. Существует //режим растровой графики//, позволяющий непосредственно управлять ударом //каждого// штырька.
-Взгляните на следующую таблицу:
-^  Функция  ^  Управляющий код  ^
-|Печать растровой графики|<code>CHR$(27);"S";"n1n2n3n4"</code>|
-|Повторение растровой графики|<code>CHR$(27);"V";"n1n2n3n4";CHR$(m)</code>|
-Режим //растровой// графики устанавливается командой
-<WRAP group>
-<WRAP half column>
-<code>
-LPRINT CHR$(27);"S";"n1n2n3n4";
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где  n1, n2, n3, n4 — цифры от 0 до 9.
-Если обозначить n — количество положений печатающей головки в строке при растровой печати, то
-<WRAP group>
-<WRAP half column>
-<code>
-n=1000·n1+100·n2+10·n3+n4
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-На //каждое// такое положение нужно подать команду
-<WRAP group>
-<WRAP half column>
-<code>
-LPRINT CHR$(Двоичный код положения штырька);
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-с указанием того, какие штырьки печатающей головки должны печатать.
-<WRAP group 99%>
-<WRAP half column> \\ </WRAP>
-<WRAP half column><WRAP justify>
-— Боюсь, что от объяснений все проигрывает,— сказал он. \\
-— Одни только результаты впечатляют гораздо больше.
-<WRAP rightalign>
-—//Конан Дойль. Приключения клерка//
-</WRAP></WRAP>
-</WRAP></WRAP>
-{{anchor:e074-19}} __//Пример 19//__.
-\\ {{.examples:074-19.bas|}}
-<code>
-Код штырька
-&b00000001      ───▶  ·
-&b00000010      ───▶  ·           ·
-&b00000100      ───▶  ·           ·           ·
-&b00001000      ───▶  ·           ·           ·           ·
-&b00010000      ───▶  ·           ·           ·           ·
-&b00100000      ───▶  ·           ·           ·
-&b01000000      ───▶  ·           ·
-&b10000000      ───▶  ·
-                      ▲           ▲           ▲           ▲
-                      │           │           │           │
-                 &b11111111  &b01111110  &b00111100  &b00011000
-LPRINT CHR$(27);"S";"0008";
-FOR T=1 TO 2:LPRINT CHR$(&B11111111);:NEXT
-FOR T=1 TO 2:LPRINT CHR$(&B01111110);:NEXT
-FOR T=1 TO 2:LPRINT CHR$(&B00111100);:NEXT
-FOR T=1 TO 2:LPRINT CHR$(&B00011000);:NEXT
-run
-··
-····
-······
-········
-········
-······
-····
-··
-Ok
-</code>
-{{anchor:e074-20}} __//Пример 20//__. Программа печатает прямоугольник размерами 200 точек × 16 точек.
-\\ {{.examples:074-20.bas|}}
-<code>
-DATA &B00000001,&B10000000
-LPRINT CHR$(27);"T16";  'Команда устранения пробелов между строками
-FOR I=1 TO 2
-    LPRINT CHR$(27);"S0200";:LPRINT CHR$(255);:READ A
-    LPRINT STRING$(198,CHR$(A));:LPRINT CHR$(255)
-NEXT I
-</code>
-<WRAP group 99%>
-<WRAP half column> \\ </WRAP>
-<WRAP half column><WRAP justify>
-Сделаешь раз по сто — вот и будет просто.<WRAP rightalign>
-—//П.А. Федотов//
-</WRAP></WRAP>
-</WRAP></WRAP>
-Команда
-<WRAP group>
-<WRAP half column>
-<code>
-LPRINT CHR$(27);"V";"n1n2n3n4";CHR$(m)
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где
-  * n1, n2, n3, n4 — цифры от 0 до 9;
-  * m — целое число, принадлежащее отрезку [0,255];
-позволяет повторить N раз изображение вертикальной линии (8 точек), шаблон которой устанавливается двоичным представлением числа m.
-Величина N определяется по формуле:
-<WRAP group>
-<WRAP half column>
-<code>
-N=1000·n1+100·n2+10·n3+n4
-</code>
-</WRAP>
-<WRAP half column>
-.
-</WRAP>
-</WRAP>
-Отметим, что для выполнения этой команды //не// требуется предварительной установки растровой печати.
-{{anchor:e074-21}} __//Пример 21//__. Результат действия следующих двух фрагментов одинаков!
-  * 1) \\ {{.examples:074-211.bas|}} <code>
-LPRINT CHR$(27);"S";"0008";
-FOR T=1 TO 8:LPRINT CHR$(&B11111111);:NEXT
-</code>
-  * 2) \\ {{.examples:074-212.bas|}} <code>
-LPRINT CHR$(27);"V";"0008";CHR$(&B11111111)
-</code>
-==== VII.4.5. Использование макрокоманд ====
-^  Функция  ^  Управляющий код  ^
-|  Определение макрокоманды\\ (макроопределение)  |  <code>CHR$(27);"+";… ;CHR$(0)
-             ▲
-             │
-    Совокупность команд
-</code>|
-|  Выполнение макрокоманды  |<code>CHR$(27);"%"</code>|
-Команда
-<code>
-LPRINT CHR$(27);"+";...;CHR$(0)
-</code>
-отменяет существующую макрокоманду и заменяет её определяемой макрокомандой. Максимальное число символов в макрокоманде (не считая символов %% "+" %% и ''CHR$(0)'' ) равно 16, в противном случае печатающее устройство будет реагировать только на первые 16 символов макроопределения.
-Команда
-<code>
-LPRINT CHR$(27);"%"
-</code>
-выполняет макрокоманду, которая предварительно была определена при помощи макроопределения.
-После описания макроопределения, Вы можете использовать макрокоманду в любой требуемый момент времени и печатающее устройство будет "делать" все, что Вы включили в макроопределение.
-{{anchor:e074-22}} __//Пример 22//__. Макроопределение для установки принтера в исходное положение всех стилей печати.
-\\ {{.examples:074-22.bas|}}
-<code>
-  LPRINT CHR$(27);"+";      ' Начало макроопределения
-  LPRINT CHR$(27);"P";      '   Шаг "цицеро"
-  LPRINT CHR$(15);          '   Отмена расширенной печати
-  LPRINT CHR$(27);"H";      '   Отмена двойного удара
-  LPRINT CHR$(27);CHR$(34); '   Отмена выделенной печати
-  LPRINT CHR$(27);"s";"0";  '   Отмена индексов
-  LPRINT CHR$(27);"5";      '   Отмена шрифта "италик"
-  LPRINT CHR$(27);"Y";      '   Отмена подчеркивания
-LPRINT CHR$(27);"A"       '   Высота строки =24/144 дюйма
-LPRINT CHR$(0)            ' Конец макроопределения
-</code>
-Печатающее устройство будет "помнить" об этом макроопределении до тех пор, пока не будет введено новое макроопределение!
-Теперь посмотрите, как можно использовать описанное макроопределение.
-{{anchor:e074-23}} __//Пример 23//__. Программа печатает всего одну строку, используя несколько различных стилей печати. Затем программная строка 50 позволяет вызвать макрокоманду, определённую в [[#e074-21|примере 21]].
-\\ {{.examples:074-23.bas|}}
-<code>
-LPRINT CHR$(27);"4";              ' "Италик"
-LPRINT CHR$(27);"G";              ' Двойной удар
-LPRINT CHR$(14);                  ' Расширенная печать
-LPRINT "TESTING ONE, TWO, THREE"
-LPRINT CHR$(27);"%";              ' Вызов макрокоманды
-LPRINT "TESTING FOUR, FIVE, SIX"
-</code>
-==== VII.4.6. Другие полезные команды ====
-<WRAP group 99%>
-<WRAP half column> \\ </WRAP>
-<WRAP half column><WRAP justify>
-Все правила достойного поведения давным–давно известны,
-остановка за малым — за умением ими пользоваться.
-<WRAP rightalign>
-—//Блез Паскаль. Мысли//
-</WRAP></WRAP>
-</WRAP></WRAP>
-Предлагаем Вашему вниманию следующую таблицу:
-^  Функция  ^  Управляющий код  ^
-|Повторение символа|<code>CHR$(27);"R";"n1n2n3";CHR$(m)</code>|
-|Отмена последней строки ("стирание" последней строки в буфере)|<code>CHR$(24)</code>|
-|Установка печатающего устройства в автономный режим ("OFF LINE")|<code>CHR$(19)</code>|
-|Установка печатающего устройства в неавтономный режим ("ON LINE")|<code>CHR$(17)</code>|
-|Звучание звонка печатающего устройства|<code>CHR$(7)''</code>|
-|Выключение из работы детектора отсутствия бумаги|<code>CHR$(27);"p";"0"</code>|
-|Включение в работу детектора отсутствия бумаги|<code>CHR$(27);"p";"1"</code>|
-|Инициализация печатающего устройства|<code>CHR$(27);"c";"1"</code>|
-Выполнение команды повторения символа
-<WRAP group>
-<WRAP half column>
-<code>
-LPRINT CHR$(27);"R";"n1n2n3";CHR$(m)
-</code>
-</WRAP>
-<WRAP half column>
-,
-</WRAP>
-</WRAP>
-где  n1, n2, n3 — цифры от 0 до 9, приводит к повторению n раз (n=100·n1+10·n2+n3) символа с кодом m.
-{{anchor:e074-24}} __//Пример 24//__.
-  * 1) \\ {{.examples:074-241.bas|}} <code>
-LPRINT CHR$(27);"R120";"+"
-</code>
-  * 2) \\ {{.examples:074-242.bas|}} <code>
-LPRINT CHR$(27);"R120";"+";CHR$(24)
-</code>
-Команда
-<code>
-LPRINT CHR$(19)
-</code>
-приводит к установке печатающего устройства в автономный режим. При этом игнорируются все последующие символы и функциональные коды, кроме кода ''CHR$(17)'', который служит для возвращения печатающего устройства в режим "ON LINE".
-Действие команды
-<code>
-LPRINT CHR$(17)
-</code>
-отличается от нажатия на кнопку "ON LINE", расположенную на принтере. Когда горит лампочка "ON LINE", то печатающее устройство "игнорирует" код ''CHR$(17)''.
-Команда
-<code>
-LPRINT CHR$(7)
-</code>
-"заставляет" печатающее устройство издавать звук в течение приблизительно 1/4 секунды.
-Командой
-<code>
-LPRINT CHR$(27);"p";"0"
-</code>
-отменяется сигнал, подаваемый детектором отсутствия бумаги. Сигнал отсутствия бумаги обычно заставляет звучать звонок печатающего устройства и останавливает печать до тех пор, пока не будет вставлена бумага.
-Команда
-<code>
-LPRINT CHR$(27);"p";"1"
-</code>
-восстанавливает функции детектора отсутствия бумаги.
-Команда //инициализации// печатающего устройства
-<code>
-LPRINT CHR$(27);"c";"1"
-</code>
-повторно инициализирует печатающее устройство. Буфер печати при этом очищается.
-====== Диск с примерами ======
-{{.examples:examples07.dsk|Загрузить образ диска}}
-[[+tab|wmsxbpged>examples07.dsk|Открыть диск в WebMSX]]
-----
-[<>]
-{{tag>MSX BASIC Book_msxbpg}}

Мозаика системного администрирования

Инструменты пользователя

Инструменты сайта

Различия

Инструменты страницы