Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте или
создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Правка может быть отменена.
Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия |
Ваш текст |
Строка 11: |
Строка 11: |
| Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]]. | | Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]]. |
|
| |
|
| == Реализация == | | == Детали реализации == |
| В [[Каллисто|Каллисто 1.0]] слово +FRAME это обёртка вокруг [[R9014]], но порядок аргументов взят из {{colorForth}}. [[Атрибуты вывода]] берутся из [[R9001]].
| | Обёртка вокруг [[R9014]], но порядок аргументов взят из {{colorForth}}. [[Атрибуты вывода]] берутся из [[R9001]]. |
| <pre>
| |
| 1088 JPL0: 9 EE 3 + M8 ; В железном МК−161 после БП не нужен ENT
| |
| 1089 RM3 MB M5 2 + M3
| |
| 1090 KRMB KRM5 KM8
| |
| 1091 KGOTO9
| |
| …
| |
| 1093 JJPL0: PGOTO JPL0 ; 9000 AT Установить курсор
| |
| …
| |
| 1096 JFRAME: 14 GOTO JJPL0 ; 9014 +FRAME Вывод рамки
| |
| …
| |
| 1119 ;#PlusFRAME
| |
| 1120 ; +FRAME ( c1 c2 −− ) Нарисовать на индикаторе рамку шириной c1 высотой c2.
| |
| 1121 ; dX dY +FRAME рисует рамку, dX и dY − размер рамки
| |
| 1122 ; Рамка начинается от текущей позиции курсора, заданной AT
| |
| 1123 ; Атрибут из R9001. Обёртка вокруг R9014, но порядок аргументов взят из colorForth.
| |
| 1124 LFRAME: .DB 6
| |
| 1125 .TEXT "+FRAME" ; ( dX dY −− )
| |
| 1126 .DW LBOX
| |
| 1127 FRAME: .DW JFRAME
| |
| </pre>
| |
|
| |
|
| == История == | | == История == |