А можно и по-другому!
Заранее заготовить четыре таблички по 256 байт.
В первой -- какой Ink будет с этим Attr, во второй -- Paper, третьей -- Bright, четвертой -- Flash.
Взять четыре переменные, обозвать их ink, paper, flash и bright.
Сделать LET ink=<адрес первой таблички> и т. д.
И теперь PEEK (ink+A) как раз будет цветом чернил!




Ответить с цитированием
Размещение рекламы на форуме способствует его дальнейшему развитию 
