Бейсик-помощь

[Black Cat / Era CG]

MODE 23617 / IY+7 / #5C41
0 - режим K, L или C (только 1 символ);
1 - режим E (только 1 символ);
2 и более - режим G (все последующие символы). При значении больше 2 меняется внешний вид курсора.

Из книги ZX Spectrum & TR-DOS для пользователей и программистов.

- - - Добавлено - - -

Сам не пробовал

[ZEman]

poke 23617, 1 (или 2) - не работает.

[null_device]

подскажите пожалуйста POKE с помощью которых курсор переводится в EXTEND MODE и POKE для перевода курсора в GRAPH MODE.

А, для чего и как вы собираетесь это использовать?

[ZEman]

знаю что poke 23658,8 - делает "С" режим курсора.
poke 23658,0 - возвращает в "L" режим.
мне нужно принудительно поставить режим курсора "Е" или "G".

- - - Добавлено - - -

А, для чего и как вы собираетесь это использовать?

текстовый редактор, печать текста и нужно переключать режимы.
вот, засада, лет 15 назад на спеке же делал такое, а как забыл.

[null_device]

текстовый редактор, печать текста и нужно переключать режимы.

А практический смысл?
Сканируете нажатие клавиш (включающих режим E и G). "Взводите" флаг режима и печатаете символ в соответствии с состоянием флагов и нажатой клавишей.

[Black Cat / Era CG]

poke 23617, 1 (или 2) - не работает.

В редакторе да. А вот в run-time - пашет.
Запустите например программку:

10 POKE 23617,1: INPUT a

или

10 POKE 23617,4: INPUT a

Правда, во втором случае курсор меняется на G сразу же после 1 символа.

[ZEman]

ну допустим.
у меня програмка типа:
100 let a$=inkeys
110 if code a$=5 движение влево
120 if code a$=8 движение вправо
....
150 if code a$=14 - (нажата клавиша extend mode) gosub 1000
160 if code a$=15 - (нажата клавиша graph mode) gosub 1000
200 if a$<>"" then gosub 1000
300 go to 100
1000 print at y,x;a$
...
1050 return

примерно так.
символы на экране печатаются.
могу выводить заглавные и строчные символы.
а из расширенного или графического режима нет.

[null_device]

ZEman, я уже писал вам, что пользуетесь неоптимальным методом опроса клавиатуры. Используйте цифровое представление нажатой клавиши (конструкцию LET K = CODE INKEY$ или значение переменной LAST_K). Упрощается вычисление отображения символа.

[ZEman]

а какая разница ?
code inkey$ - это тоже самое.
код клавиши "graph" - также равен 15.
код клавиши "extend" = 14
движение влево, вправо, верх, вниз - 8,9,10,11.
delete = 12.
enter = 13.
и.т.д.

[null_device]

ZEman, смотрите: мы переключаемся на заглавные буквы (через poke 23658,8).
Нажатие клавиш с буквами, выдает коды в диапазоне 65-90. Не зависящее от того - нажата клавиша SHIFT или нет.
При нажатии клавиши GRAPH MODE "взводим" флаг режима ввода (переменная m, которая имеет три значения: 0 - обычный режим, 1 - строчные буквы, 2 - EXT MODE и 3 - GRAPH MODE).
Пишем что-то типа: IF m=1 THEN IF k>65 AND k<86 THEN LET k=k+79 : GO TO печать символа. Т.о. при нажатии буквенной клавиши будет отрисован символ псевдографики.
Остальное - аналогично.