confeti.BAS

{* Конфетти *}

REM basic

' Конфетти


SCREEN 9{конфетти
}CLS
22 RANDOMIZE TIMER
x = 0 + INT(RND * 640)
y = 0 + INT(RND * 350)
r = 8 + INT(RND * 18)
c = 1 + INT(RND * 15)
CIRCLE (x, y), r, c
PAINT (x, y), c
GoTo 22