Нарисовать множество окружностей — QBasic(Бейсик)

CLS
SCREEN 9
RANDOMIZE TIMER
FOR i = 1 TO 8
    k1 = FIX(480 * RND(1))
    k2 = FIX(190 * RND(1))
    r = i * 10
    CIRCLE (k1 + 85, k2 + 85), r, , , , 1
NEXT

Тестирование выполнено в программе QB64 ( Скачать )