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

REM Построение эллипсов
SCREEN 12
VIEW (0, 0)-(400, 400), , 1
FOR X = 10 TO 390 STEP 10
  FOR Y = 10 TO 390 STEP 10
    LINE (X, 10)-(X, 390), 7: 'построение вертикальных линий сетки
    LINE (10, Y)-(390, Y), 7: 'построение горизонтальных линий сетки
  NEXT Y
NEXT X
LINE (0, 200)-(400, 200), 14:           'построение "оси" x
LINE (200, 0)-(200, 400), 14:           'построение "оси" y
CIRCLE (200, 200), 120, 15, , , 4 / 3:  'белый эллипс
CIRCLE (200, 200), 120, 14, , , 3 / 4:  'желтый эллипс
END