用 QBasic 绘制奥运五环：简单代码示例

CLS
SCREEN 12
COLOR 15

' 画五个圆
CIRCLE (200, 200), 100, 2
CIRCLE (300, 300), 100, 3
CIRCLE (400, 200), 100, 4
CIRCLE (500, 300), 100, 5
CIRCLE (600, 200), 100, 1

' 填充五个圆
FOR i = 1 TO 5
    CIRCLE (200 + i * 100, 200), 90, i, , , , , , FILL
NEXT i

' 画五个圆心
FOR i = 1 TO 5
    CIRCLE (200 + i * 100, 200), 10, 0
NEXT i

DO
LOOP UNTIL INKEY$ <> ''