Функция ATTR (x,y) на бейсике.

[AndTorp]

3. Подправить код - чернеет всё после кода #16 (#5D7B) (упр.код AT и дальше комп понимает что идут коррдинаты, а они обе #29, вот и перемещается позиция печати за экран и выдаётся код ошибки), т.е. можно скорректировать прогу так, чтоб этой цифры не было.
Там (#5D7A) команду LD H,#16 - заменить на:
LD H,#17
DEC H
Ну или вроде того...

Спасибо за разъяснение. Исправил.

Может быть шустрее было-бы сделать по другому.
1. Требуемый параметр всегда задаём в одной и той-же переменной (ну к примеру attr) и там указываем что нужно. 0=инк, 1=папер, 2=бордер, 3=брайт, 4= флэш (хотя нафик он нужен по сути-то, но...)
2. Бэйсик-прога при запуске выясняет значения PROG и адрес переменных attr,x,y и подставляет в соответсвующее место кода.
3. После этого всего (назовём это инициализацией) можно делать так:
LET attr=0:LET x=10:LET y=20 (хотим узнать инк по коорд 10,20)
LET attr=USR адрес кода (в котором уже есть адреса всех нужных переменных (они появились там после инициализации) и который тупо берет эти значения и выяснив что нужно от него в данный момент, возвращает значение атрибута в регистровой паре BC, которую интерпритатор бэйсика уже сам запихает в attr).

Сдаётся мне что это будет быстрей, но могу ошибатся, надо проверять, сравнивать с предыдущими вариантами. Бог в помощь!

Возможно и быстрее, но я хотел сделать простую в использовании функцию.

P.S. А вообще пора уже писать компилируемый вариант бейсика ("сам-знаеш-кто" не надо кричать "Я ведь тебе говорил!". Помню. Может быть и займусь.)

Да, это было бы хорошо! И побольше графических возможностей, как в PRO-DOS. И хорошо бы реализация работы с прерываниями.

P.S.S AndTorp (или женя999, кому там надо) зачем это выяснение атрибутов вообще нужно?

Это нужно Жене, я просто попробовал реализовать.

Исправленный вариант.

[Advertiser]