Бейсик. Мигалка

Бейсик. Мигалка.
Жду предложений по улучшению программы )))
CLS 'Мигалка
'Дело было вечером - делать было нечего.
SCREEN 12
WHILE INKEY$ = ""
FOR i = 250 TO 400
r = 20
c = INT(RND(1) * 2) + 11
CIRCLE (i, 200), r, c
PAINT (i, 200), c
c = INT(RND(1) * 2) + 11
CIRCLE (500 - i, 200), r, c
PAINT (500 - i, 200), c
NEXT i
FOR i = 1900 TO 2500
SOUND i, .04
NEXT i
WEND