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

REM Красные штрихи в шахматном порядке
SCREEN 12
I1$ = CHR$(&HFF): 'байт с битами повышенной интенсивности
B0$ = CHR$(&H0): 'байт с нулевыми битами синего цвета
G0$ = CHR$(&H0): 'байт с нулевыми битами зеленого цвета
R0$ = CHR$(&H0): 'байт с нулевыми битами красного цвета
R40$ = CHR$(&HF0): 'байт с битами красного-черного
R04$ = CHR$(&HF): 'байт с битами черного-красного
M1$ = M1$ + B0$ + G0$ + R40$ + I1$: M1$ = M1$ + B0$ + G0$ + R0$ + I1$
M1$ = M1$ + B0$ + G0$ + R0$ + I1$: M1$ = M1$ + B0$ + G0$ + R0$ + I1$
M1$ = M1$ + B0$ + G0$ + R04$ + I1$: M1$ = M1$ + B0$ + G0$ + R0$ + I1$
M1$ = M1$ + B0$ + G0$ + R0$ + I1$: M1$ = M1$ + B0$ + G0$ + R0$ + I1$
LINE (100, 100)-(200, 200), , B
PAINT (150, 150), M1$, 15
END