Построить совокупность n кругов радиуса r со случайными координатами их центров, закрашенные в случайные цвета- QBasic(Бейсик)

CLS
INPUT "Vvedite kol-vo krugov:"; n
INPUT "Vvedite radius:"; r
SCREEN 12
FOR i = 1 TO n
    cv = RND * 15 + 1
    kx = RND * 639: ky = RND * 479
    CIRCLE (kx, ky), r, cv
    PAINT (kx, ky), cv, cv
NEXT