Практика программирования (Бейсик, Си, Паскаль)
Сравнительно несложная модификация этой программы
LINE (100,100)-(200,200),,B PAINT (150,150),M1$,15 END
Сравнительно несложная модификация этой программы позволяет изобразить фрагмент кирпичной стены:
Программа 8_11.bas
' Построение кирпичной стены SCREEN 12
I1$=CHR$(&HFF) ' байт с битами повышенной интенсивности
B0$=CHR$(&H0) ' байт с нулевыми битами синего цвета
G0$=CHR$(&H0) ' байт с нулевыми битами зеленого цвета
R8$=CHR$(&HFF) ' байт с единичными Ситами красного цвета
RL$=CHR$(&H40) ' красный бит слева
RR$=CHR$(£H2) ' красный бит справа
M1$=M1$+B0$+G0$+R8$+I1$: M1$=M1$+B0$+G0$+RL$+I1$
M1$=M1$+B0$+G0$+RL$+I1$: M1$=M1$+B0$+G0$+RL$+I1$
M1$=M1$+B0$+G0$+R8$+I1$: M1$=M1$+B0$+G0$+RR$+I1$
M1$=M1$+B0$+G0$+RR$+I1$: Ml$=Ml$+B0$+G0$+RR$+Il$
LINE (100,100)-(200,200),,B
PAINT (150,150),M1$,15 END
