Секреты и трюки программирования (в том числе и игр) для РК-86

[Vital72]

Denn, это сделано для того, чтобы приостанавливать вывод на экран при нажатии на клавишу "РУС/ЛАТ".
Как по мне -- это идиотское решение, только затормаживает вывод на экран стандартными средствами, в своём МОНИТОРе я это херню убрал.

[BYTEMAN]

Может немного не в тему, но я тут подключил наконец-то апогей к тёплому ламповому, так что можно какие-то вещи на реале прогнать.
https://goo.gl/photos/Vm31JgknHTByWFpP8

[NEO SPECTRUMAN]

Может немного не в тему, но я тут подключил наконец-то апогей к тёплому ламповому, так что можно какие-то вещи на реале прогнать.

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

пока мож запустить єто
http://zx-pk.ru/threads/27478-sekret...l=1#post907239
если повезет увидишь всякие градиенты

если нет
то не увидишь


нормальный хайрес пока не получается сделать
нужно чтоб в вг75 попадали точно нужные данные
а умя туда попадает куча фигни да еще и не по тому смещению по которому нужно...
а без реала на расстоянии...

последние достижения модно увидеть под каким то спойлером в этой теме...
http://zx-pk.ru/threads/27593-progra...adio-86rk.html

[yevrowl]

Каким образом на Бейсике для РК-86 можно реализовать INKEY$ (опрос клавиатуры на предмет выбора цифр)?

1910 K$ = INKEY$
1920 IF K$ = CHR$(49) THEN GOTO 2030
1930 IF K$ = CHR$(50) THEN GOTO 2080
1940 IF K$ = CHR$(51) THEN GOTO 2130
1950 IF K$ = CHR$(52) THEN GOTO 2180
1960 IF K$ = CHR$(53) THEN GOTO 2230
1970 IF K$ = CHR$(54) THEN GOTO 2280
1980 IF K$ = CHR$(55) THEN GOTO 2330
1990 IF K$ = CHR$(56) THEN GOTO 2380
2000 IF K$ = CHR$(57) THEN GOTO 2430
2010 IF K$ = CHR$(27) THEN CLS : END
2020 GOTO 1910

[yevrowl]

Каким образом можно вывести символ псевдографики 07H?
При команде PRINT CHR$(7) издаётся звуковой сигнал.

[tnt23]

Каким образом можно вывести символ псевдографики 07H?

Записать его код прямо в экранное ОЗУ?

[yevrowl]

Записать его код прямо в экранное ОЗУ?

Каким образом это можно осуществить средствами Бейсика?

[tnt23]

Каким образом это можно осуществить средствами Бейсика?

Используя такие средства Бейсика, как POKE, например.

[yevrowl]

Используя такие средства Бейсика, как POKE, например.

Какую команду следует ввести, чтобы вывести упомянутый символ?

[tnt23]

Какую команду следует ввести, чтобы вывести упомянутый символ?

Надо ввести команду POKE с соответствующими параметрами. Формат команды надо подсмотреть в описании бейсика, а адрес, в который будет записываться код, надо вычислить исходя из адреса начала экранного ОЗУ и желаемых координат строки и столбца для вывода символа.

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

yevrowl, рекомендую не пренебрегать поиском. Например, простой запрос гуглу с использованием ключевых слов БЕЙСИК, РК86 и POKE в числе прочего выдаст ссылку на полезную статью:

https://emuverse.ru/wiki/%D0%A0%D0%B...BD%D0%B0_Basic

Радио-86РК / Радио 04-90 / Организация окон в программах на Basic

В статье в Таблице 4 есть хороший пример использования средств бейсика для РК86:

				Таблица 4
10 REM ПРИМЕР ИСПОЛЬЗОВАНИЯ ОКОННОГО ДРАЙВЕРА
20 REM В ПРОГРАММАХ НА BASIC "МИКРОН"
30 В=4А800 : REM АДРЕС ОБЛАСТИ СВЯЗИ
40 A=USR(B): REM ИНИЦИАЛИЗАЦИЯ ДРАЙВЕРА
50 WX=5 :WY=22: REM КООРДИНАТЫ ОКНА
69 LX=20:LY=6 : REM РАЗМЕРЫ ОКНА
70 FOR I=1 ТО 5
80 РОКЕ В+9,WХ+(I-1)*2: РОКЕ В+10,WY-(I-1)*2
90 POKE B+11,LX: POKE B+12,LY
100 NW=USR(B+3): REM ОТКРЫВАЕМ ОКНО NW
110 PRINT CHR$(&,1F) ;"ВЫВОД В ОКНО"
120 PRINT "НОМЕР ";NW
130 PAUSE 2 
140 NEXT I 
150 FOR I=1 ТО 5 
160 NW=USR(B+6): REM ЗАКРЫВАЕМ ОКНА
170 PAUSE 1
180 NEXT I
190 REM ВОССТАНАВЛИВАЕМ КОДЫ ИНТЕРПРЕТАТОРА
200 A=USR(B)
210 STOP