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

[Destr]

Но стоп! Разве в Zx Basic-е по-нормальному выполняются логические команды?

Если нет, то типа такого.

let p=аттрибут
let ink=p - (128*(p>128))
let ink=ink - (64*(ink>64))
let ink=ink - (32*(ink>32))
let ink=ink - (16*(ink>16))
let ink=ink - (8*(ink>8))
let paper=INT(p/8)
let paper=paper - (128*(paper>128))
let paper=paper - (64*(paper>64))
let bright=INT(p/64)
letbright=bright - (128*(bright>128))
let flash=INT(p/128)

Но конечно это медленный способ, массив быстрей будет, а самое быстрое - таблички.
Можно и асм-подпрограммку замутить подключив её к DEF FN.
Вот как тут описано: http://zxpress.ru/book_articles.php?id=1539