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