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

REM Демонстрация цветовой палитры
SCREEN 12
CLS
FOR Y = 10 TO 310 STEP 100
FOR X = 10 TO 460 STEP 150
  LINE (X - 1, Y - 1)-(X + 101, Y + 76), 15, B
  LINE (X, Y)-(X + 100, Y + 75), COL, BF
  COL = COL + 1
  SLEEP 1: ' Задержка на 1 сек
NEXT X
NEXT Y
END