Примеры программ на языке QBASIC

'Построение кирпичной стены
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$: M1$ = M1$ + B0$ + G0$ + RR$ + I1$
LINE (100, 100)-(200, 200), , B
PAINT (150, 150), M1$, 15
END