LASER BASIC 2

[Oleg N. Cher]

Для перехода к следующей строке атрибутов спрайта за пределами экрана можно вычислить смещение с отсечением, и прибавлять это число. И его же, умноженное на 8, мы будем использовать, чтобы отсечь невидимые блоки пикселей, там в целом всё довольно эффективно можно сделать. Я закодирую и покажу.

Кстати, оптимизировал чуть-чуть подпрограмму в первом посте темы. И набросал конвертер спрайтов из лазерного формата.

Alcoholics Anonymous, yes, Oberon has function pointers (procedure variables):

VAR p: PROCEDURE (i: INTEGER): REAL;